/*===========================================================================*/
/*   (Eval/evaluate.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.scm -indent -o objs/obj_u/Eval/evaluate.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_TYPE_DEFINITIONS
#define BGL___EVALUATE_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_orz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_argsz00;
	}               *BgL_ev_orz00_bglt;

	typedef struct BgL_ev_andz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_argsz00;
	}                *BgL_ev_andz00_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_trapz00_bgl
	{
		header_t header;
		obj_t widening;
		struct BgL_ev_exprz00_bgl *BgL_ez00;
	}                 *BgL_ev_trapz00_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_setglobalz00_bgl
	{
		header_t header;
		obj_t widening;
		struct BgL_ev_exprz00_bgl *BgL_ez00;
		obj_t BgL_locz00;
		obj_t BgL_namez00;
		obj_t BgL_modz00;
	}                      *BgL_ev_setglobalz00_bglt;

	typedef struct BgL_ev_defglobalz00_bgl
	{
		header_t header;
		obj_t widening;
		struct BgL_ev_exprz00_bgl *BgL_ez00;
		obj_t BgL_locz00;
		obj_t BgL_namez00;
		obj_t BgL_modz00;
	}                      *BgL_ev_defglobalz00_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_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_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	extern obj_t BGl_ev_defglobalz00zz__evaluate_typesz00;
	static obj_t BGl_convzd2beginzd2zz__evaluatez00(obj_t, obj_t, obj_t, obj_t,
		obj_t, obj_t, bool_t);
	extern obj_t BGl_compilez00zz__evaluate_compz00(BgL_ev_exprz00_bglt);
	static obj_t BGl_requirezd2initializa7ationz75zz__evaluatez00 = BUNSPEC;
	extern bool_t BGl_classzd2fieldzf3z21zz__objectz00(obj_t);
	static BgL_ev_absz00_bglt BGl_convzd2lambdaze70z35zz__evaluatez00(obj_t,
		obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
	extern 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);
	extern obj_t BGl_za2classesza2z00zz__objectz00;
	BGL_EXPORTED_DECL obj_t
		BGl_setzd2evaluationzd2contextz12z12zz__evaluatez00(obj_t);
	static obj_t BGl_getzd2locationzd2zz__evaluatez00(obj_t, obj_t);
	extern obj_t BGl_ev_letrecz00zz__evaluate_typesz00;
	extern obj_t BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(obj_t);
	extern obj_t BGl_ev_letz00zz__evaluate_typesz00;
	extern obj_t BGl_formatz00zz__r4_output_6_10_3z00(obj_t, obj_t);
	extern obj_t bgl_reverse(obj_t);
	static obj_t BGl_genericzd2initzd2zz__evaluatez00(void);
	extern obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t);
	extern obj_t BGl_classzd2existszd2zz__objectz00(obj_t);
	extern obj_t BGl_ev_prog2z00zz__evaluate_typesz00;
	extern int BGl_framezd2siza7ez75zz__evaluate_fsiza7eza7(BgL_ev_exprz00_bglt);
	static obj_t BGl_objectzd2initzd2zz__evaluatez00(void);
	extern bool_t BGl_classzd2fieldzd2mutablezf3zf3zz__objectz00(obj_t);
	extern obj_t BGl_ev_bindzd2exitzd2zz__evaluate_typesz00;
	static obj_t BGl_symbol2957z00zz__evaluatez00 = BUNSPEC;
	extern obj_t BGl_za2inheritancesza2z00zz__objectz00;
	static obj_t BGl_convzd2fieldzd2refz00zz__evaluatez00(obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t, bool_t);
	extern obj_t bgl_reverse_bang(obj_t);
	static obj_t BGl_z62getzd2evaluationzd2contextz62zz__evaluatez00(obj_t);
	static obj_t BGl_symbol2965z00zz__evaluatez00 = BUNSPEC;
	static obj_t BGl_symbol2967z00zz__evaluatez00 = BUNSPEC;
	static obj_t BGl_symbol2969z00zz__evaluatez00 = BUNSPEC;
	extern obj_t BGl_findzd2classzd2fieldz00zz__objectz00(obj_t, obj_t);
	extern obj_t BGl_ev_unwindzd2protectzd2zz__evaluate_typesz00;
	static obj_t BGl_symbol2970z00zz__evaluatez00 = BUNSPEC;
	static obj_t BGl_symbol2972z00zz__evaluatez00 = BUNSPEC;
	static obj_t BGl_symbol2974z00zz__evaluatez00 = BUNSPEC;
	static obj_t BGl_symbol2976z00zz__evaluatez00 = BUNSPEC;
	static obj_t BGl_symbol2978z00zz__evaluatez00 = BUNSPEC;
	extern obj_t bstring_to_symbol(obj_t);
	extern obj_t BGl_classzd2fieldzd2mutatorz00zz__objectz00(obj_t);
	static obj_t BGl_convzd2fieldzd2setz00zz__evaluatez00(obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t, obj_t, obj_t, bool_t);
	extern obj_t make_vector(long, obj_t);
	extern obj_t BGl_ev_letza2za2zz__evaluate_typesz00;
	static obj_t BGl_symbol2980z00zz__evaluatez00 = BUNSPEC;
	static obj_t BGl_symbol2982z00zz__evaluatez00 = BUNSPEC;
	static obj_t BGl_convzd2varzd2zz__evaluatez00(obj_t, obj_t);
	static obj_t BGl_symbol2983z00zz__evaluatez00 = BUNSPEC;
	static obj_t BGl_symbol2985z00zz__evaluatez00 = BUNSPEC;
	static obj_t BGl_z62evaluate2zd2restorezd2statez12z70zz__evaluatez00(obj_t,
		obj_t);
	static obj_t BGl_symbol2987z00zz__evaluatez00 = BUNSPEC;
	static obj_t BGl_symbol2989z00zz__evaluatez00 = BUNSPEC;
	static obj_t BGl_appendzd221011zd2zz__evaluatez00(obj_t, obj_t);
	static obj_t BGl_typezd2checkszd2zz__evaluatez00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_methodzd2initzd2zz__evaluatez00(void);
	static obj_t BGl_symbol2991z00zz__evaluatez00 = BUNSPEC;
	static obj_t BGl_symbol2993z00zz__evaluatez00 = BUNSPEC;
	static obj_t BGl_symbol2995z00zz__evaluatez00 = BUNSPEC;
	extern obj_t BGl_ev_absz00zz__evaluate_typesz00;
	extern obj_t BGl_ev_trapz00zz__evaluate_typesz00;
	static obj_t BGl_symbol2997z00zz__evaluatez00 = BUNSPEC;
	static obj_t BGl_symbol2999z00zz__evaluatez00 = BUNSPEC;
	extern obj_t BGl_ev_setglobalz00zz__evaluate_typesz00;
	extern obj_t string_append(obj_t, obj_t);
	extern obj_t BGl_classzd2fieldzd2accessorz00zz__objectz00(obj_t);
	extern obj_t BGl_ev_ifz00zz__evaluate_typesz00;
	extern obj_t BGl_analysezd2varszd2zz__evaluate_avarz00(BgL_ev_exprz00_bglt);
	extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
	extern obj_t BGl_substringz00zz__r4_strings_6_7z00(obj_t, long, long);
	extern obj_t BGl_findzd2statezd2zz__evaluate_compz00(void);
	extern obj_t BGl_evmodulez00zz__evmodulez00(obj_t, obj_t);
	static obj_t BGl_untypezd2identzd2zz__evaluatez00(obj_t);
	extern obj_t bstring_to_keyword(obj_t);
	extern obj_t BGl_classzd2fieldzd2typez00zz__objectz00(obj_t);
	static obj_t BGl_symbol3001z00zz__evaluatez00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__evaluatez00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evaluate_compz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evaluate_uncompz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evaluate_fsiza7eza7(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evaluate_avarz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evaluate_typesz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evmodulez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__everrorz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evcompilez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evenvz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__expandz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__prognz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__ppz00(long, char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r5_control_features_6_4z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_booleans_6_1z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_characters_6_6z00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonum_dtoaz00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(long, char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__threadz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__paramz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__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_symbol3003z00zz__evaluatez00 = BUNSPEC;
	static obj_t BGl_symbol3005z00zz__evaluatez00 = BUNSPEC;
	extern obj_t BGl_expandz00zz__expandz00(obj_t);
	static obj_t BGl_symbol3007z00zz__evaluatez00 = BUNSPEC;
	static obj_t BGl_symbol3009z00zz__evaluatez00 = BUNSPEC;
	static obj_t BGl_z62setzd2evaluationzd2contextz12z70zz__evaluatez00(obj_t,
		obj_t);
	extern obj_t BGl_ev_globalz00zz__evaluate_typesz00;
	static obj_t BGl_z62zc3z04anonymousza31372ze3ze5zz__evaluatez00(obj_t);
	extern bool_t BGl_classzf3zf3zz__objectz00(obj_t);
	static obj_t BGl_symbol3011z00zz__evaluatez00 = BUNSPEC;
	static obj_t BGl_symbol3013z00zz__evaluatez00 = BUNSPEC;
	static obj_t BGl_symbol3015z00zz__evaluatez00 = BUNSPEC;
	static obj_t BGl_symbol3017z00zz__evaluatez00 = BUNSPEC;
	static obj_t BGl_symbol3019z00zz__evaluatez00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t
		BGl_evaluate2zd2restorezd2statez12z12zz__evaluatez00(obj_t);
	extern int bgl_debug(void);
	static obj_t BGl_keyword3068z00zz__evaluatez00 = BUNSPEC;
	extern obj_t BGl_ev_littz00zz__evaluate_typesz00;
	extern obj_t BGl_ev_orz00zz__evaluate_typesz00;
	static obj_t BGl_symbol3021z00zz__evaluatez00 = BUNSPEC;
	static obj_t BGl_symbol3023z00zz__evaluatez00 = BUNSPEC;
	static obj_t BGl_symbol3025z00zz__evaluatez00 = BUNSPEC;
	static obj_t BGl_symbol3027z00zz__evaluatez00 = BUNSPEC;
	extern obj_t BGl_ev_varz00zz__evaluate_typesz00;
	static obj_t BGl_symbol3029z00zz__evaluatez00 = BUNSPEC;
	extern obj_t BGl_makezd2dssslzd2functionzd2preludezd2zz__dssslz00(obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_typezd2checkzd2zz__evaluatez00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62evaluate2z62zz__evaluatez00(obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_cnstzd2initzd2zz__evaluatez00(void);
	static obj_t BGl_symbol3031z00zz__evaluatez00 = BUNSPEC;
	static obj_t BGl_symbol3035z00zz__evaluatez00 = BUNSPEC;
	static obj_t BGl_symbol3037z00zz__evaluatez00 = BUNSPEC;
	static obj_t BGl_importedzd2moduleszd2initz00zz__evaluatez00(void);
	static obj_t BGl_gczd2rootszd2initz00zz__evaluatez00(void);
	static obj_t BGl_symbol3040z00zz__evaluatez00 = BUNSPEC;
	static obj_t BGl_symbol3042z00zz__evaluatez00 = BUNSPEC;
	static obj_t BGl_symbol3044z00zz__evaluatez00 = BUNSPEC;
	extern obj_t BGl_ev_withzd2handlerzd2zz__evaluate_typesz00;
	static obj_t BGl_symbol3046z00zz__evaluatez00 = BUNSPEC;
	static obj_t BGl_symbol3048z00zz__evaluatez00 = BUNSPEC;
	extern obj_t BGl_ev_andz00zz__evaluate_typesz00;
	static obj_t BGl_symbol3050z00zz__evaluatez00 = BUNSPEC;
	static obj_t BGl_symbol3052z00zz__evaluatez00 = BUNSPEC;
	static obj_t BGl_symbol3054z00zz__evaluatez00 = BUNSPEC;
	static obj_t BGl_symbol3056z00zz__evaluatez00 = BUNSPEC;
	static obj_t BGl_symbol3058z00zz__evaluatez00 = BUNSPEC;
	static obj_t BGl_uconvzf2locze70z15zz__evaluatez00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_convzd2valsze70z35zz__evaluatez00(obj_t, obj_t, obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_symbol3060z00zz__evaluatez00 = BUNSPEC;
	extern bool_t BGl_evmodulezf3zf3zz__evmodulez00(obj_t);
	static obj_t BGl_symbol3062z00zz__evaluatez00 = BUNSPEC;
	static obj_t BGl_symbol3064z00zz__evaluatez00 = BUNSPEC;
	extern obj_t BGl_getzd2sourcezd2locationz00zz__readerz00(obj_t);
	static obj_t BGl_symbol3066z00zz__evaluatez00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_evaluate2z00zz__evaluatez00(obj_t, obj_t, obj_t);
	extern obj_t BGl_ev_appz00zz__evaluate_typesz00;
	extern obj_t
		BGl_dssslzd2formalszd2ze3schemezd2typedzd2formalsze3zz__dssslz00(obj_t,
		obj_t, bool_t);
	static obj_t BGl_symbol3070z00zz__evaluatez00 = BUNSPEC;
	static obj_t BGl_symbol3072z00zz__evaluatez00 = BUNSPEC;
	extern obj_t c_substring(obj_t, long, long);
	extern obj_t BGl_evalzd2findzd2modulez00zz__evmodulez00(obj_t);
	static obj_t BGl_typezd2resultzd2zz__evaluatez00(obj_t, obj_t, obj_t);
	extern obj_t BGl_gensymz00zz__r4_symbols_6_4z00(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_evaluate2zd2restorezd2bpz12z12zz__evaluatez00(int);
	extern obj_t BGl_evcompilezd2errorzd2zz__evcompilez00(obj_t, obj_t, obj_t,
		obj_t);
	extern obj_t BGl_ev_synchroniza7eza7zz__evaluate_typesz00;
	static obj_t BGl_loopze70ze7zz__evaluatez00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_loopze71ze7zz__evaluatez00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_getzd2evaluationzd2contextz00zz__evaluatez00(void);
	extern obj_t BGl_ev_setlocalz00zz__evaluate_typesz00;
	static obj_t BGl_convz00zz__evaluatez00(obj_t, obj_t, obj_t, obj_t, obj_t,
		obj_t, bool_t);
	static obj_t BGl_z62evaluate2zd2restorezd2bpz12z70zz__evaluatez00(obj_t,
		obj_t);
	static obj_t *__cnst;


	   
		 
		BGL_DEFINE_STRING(BGl_string3010z00zz__evaluatez00,
		BgL_bgl_string3010za700za7za7_3077za7, "o", 1);
	      BGL_DEFINE_STRING(BGl_string3012z00zz__evaluatez00,
		BgL_bgl_string3012za700za7za7_3078za7, "quote", 5);
	      BGL_DEFINE_STRING(BGl_string3014z00zz__evaluatez00,
		BgL_bgl_string3014za700za7za7_3079za7, "class-exists", 12);
	      BGL_DEFINE_STRING(BGl_string3016z00zz__evaluatez00,
		BgL_bgl_string3016za700za7za7_3080za7, "c", 1);
	      BGL_DEFINE_STRING(BGl_string3018z00zz__evaluatez00,
		BgL_bgl_string3018za700za7za7_3081za7, "isa?", 4);
	      BGL_DEFINE_STRING(BGl_string3020z00zz__evaluatez00,
		BgL_bgl_string3020za700za7za7_3082za7, "if", 2);
	      BGL_DEFINE_STRING(BGl_string3022z00zz__evaluatez00,
		BgL_bgl_string3022za700za7za7_3083za7, "let", 3);
	      BGL_DEFINE_STRING(BGl_string3024z00zz__evaluatez00,
		BgL_bgl_string3024za700za7za7_3084za7, "lambda", 6);
	      BGL_DEFINE_STRING(BGl_string3026z00zz__evaluatez00,
		BgL_bgl_string3026za700za7za7_3085za7, "bigloo-type-error/location", 26);
	      BGL_DEFINE_STRING(BGl_string3028z00zz__evaluatez00,
		BgL_bgl_string3028za700za7za7_3086za7, "bigloo-type-error", 17);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_evaluate2zd2restorezd2bpz12zd2envzc0zz__evaluatez00,
		BgL_bgl_za762evaluate2za7d2r3087z00,
		BGl_z62evaluate2zd2restorezd2bpz12z70zz__evaluatez00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string3030z00zz__evaluatez00,
		BgL_bgl_string3030za700za7za7_3088za7, "at", 2);
	      BGL_DEFINE_STRING(BGl_string3032z00zz__evaluatez00,
		BgL_bgl_string3032za700za7za7_3089za7, "tmp", 3);
	      BGL_DEFINE_STRING(BGl_string3033z00zz__evaluatez00,
		BgL_bgl_string3033za700za7za7_3090za7, "~a::~a", 6);
	      BGL_DEFINE_STRING(BGl_string3034z00zz__evaluatez00,
		BgL_bgl_string3034za700za7za7_3091za7, "Illegal form", 12);
	      BGL_DEFINE_STRING(BGl_string3036z00zz__evaluatez00,
		BgL_bgl_string3036za700za7za7_3092za7, "begin", 5);
	      BGL_DEFINE_STRING(BGl_string3038z00zz__evaluatez00,
		BgL_bgl_string3038za700za7za7_3093za7, " ", 1);
	      BGL_DEFINE_STRING(BGl_string3039z00zz__evaluatez00,
		BgL_bgl_string3039za700za7za7_3094za7,
		"Illegal non toplevel module declaration", 39);
	      BGL_DEFINE_STRING(BGl_string3041z00zz__evaluatez00,
		BgL_bgl_string3041za700za7za7_3095za7, "module", 6);
	      BGL_DEFINE_STRING(BGl_string3043z00zz__evaluatez00,
		BgL_bgl_string3043za700za7za7_3096za7, "@", 1);
	      BGL_DEFINE_STRING(BGl_string3045z00zz__evaluatez00,
		BgL_bgl_string3045za700za7za7_3097za7, "->", 2);
	      BGL_DEFINE_STRING(BGl_string3047z00zz__evaluatez00,
		BgL_bgl_string3047za700za7za7_3098za7, "trap", 4);
	      BGL_DEFINE_STRING(BGl_string3049z00zz__evaluatez00,
		BgL_bgl_string3049za700za7za7_3099za7, "or", 2);
	      BGL_DEFINE_STRING(BGl_string3051z00zz__evaluatez00,
		BgL_bgl_string3051za700za7za7_3100za7, "and", 3);
	      BGL_DEFINE_STRING(BGl_string3053z00zz__evaluatez00,
		BgL_bgl_string3053za700za7za7_3101za7, "let*", 4);
	      BGL_DEFINE_STRING(BGl_string3055z00zz__evaluatez00,
		BgL_bgl_string3055za700za7za7_3102za7, "letrec", 6);
	      BGL_DEFINE_STRING(BGl_string3057z00zz__evaluatez00,
		BgL_bgl_string3057za700za7za7_3103za7, "set!", 4);
	      BGL_DEFINE_STRING(BGl_string3059z00zz__evaluatez00,
		BgL_bgl_string3059za700za7za7_3104za7, "define", 6);
	      BGL_DEFINE_STRING(BGl_string3061z00zz__evaluatez00,
		BgL_bgl_string3061za700za7za7_3105za7, "bind-exit", 9);
	      BGL_DEFINE_STRING(BGl_string3063z00zz__evaluatez00,
		BgL_bgl_string3063za700za7za7_3106za7, "unwind-protect", 14);
	      BGL_DEFINE_STRING(BGl_string3065z00zz__evaluatez00,
		BgL_bgl_string3065za700za7za7_3107za7, "with-handler", 12);
	      BGL_DEFINE_STRING(BGl_string3067z00zz__evaluatez00,
		BgL_bgl_string3067za700za7za7_3108za7, "synchronize", 11);
	      BGL_DEFINE_STRING(BGl_string3069z00zz__evaluatez00,
		BgL_bgl_string3069za700za7za7_3109za7, "prelock", 7);
	      BGL_DEFINE_STRING(BGl_string3071z00zz__evaluatez00,
		BgL_bgl_string3071za700za7za7_3110za7, ".", 1);
	      BGL_DEFINE_STRING(BGl_string3073z00zz__evaluatez00,
		BgL_bgl_string3073za700za7za7_3111za7, "free-pragma::obj", 16);
	      BGL_DEFINE_STRING(BGl_string3074z00zz__evaluatez00,
		BgL_bgl_string3074za700za7za7_3112za7, "free-pragma", 11);
	      BGL_DEFINE_STRING(BGl_string3075z00zz__evaluatez00,
		BgL_bgl_string3075za700za7za7_3113za7, "not supported in eval", 21);
	      BGL_DEFINE_STRING(BGl_string3076z00zz__evaluatez00,
		BgL_bgl_string3076za700za7za7_3114za7, "__evaluate", 10);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_setzd2evaluationzd2contextz12zd2envzc0zz__evaluatez00,
		BgL_bgl_za762setza7d2evaluat3115z00,
		BGl_z62setzd2evaluationzd2contextz12z70zz__evaluatez00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2951z00zz__evaluatez00,
		BgL_bgl_string2951za700za7za7_3116za7, "", 0);
	      BGL_DEFINE_STRING(BGl_string2952z00zz__evaluatez00,
		BgL_bgl_string2952za700za7za7_3117za7,
		"/tmp/bigloo/runtime/Eval/evaluate.scm", 37);
	      BGL_DEFINE_STRING(BGl_string2953z00zz__evaluatez00,
		BgL_bgl_string2953za700za7za7_3118za7, "&evaluate2-restore-bp!", 22);
	      BGL_DEFINE_STRING(BGl_string2954z00zz__evaluatez00,
		BgL_bgl_string2954za700za7za7_3119za7, "bint", 4);
	      BGL_DEFINE_STRING(BGl_string2955z00zz__evaluatez00,
		BgL_bgl_string2955za700za7za7_3120za7, "&evaluate2-restore-state!", 25);
	      BGL_DEFINE_STRING(BGl_string2956z00zz__evaluatez00,
		BgL_bgl_string2956za700za7za7_3121za7, "vector", 6);
	      BGL_DEFINE_STRING(BGl_string2958z00zz__evaluatez00,
		BgL_bgl_string2958za700za7za7_3122za7, "toplevel", 8);
	      BGL_DEFINE_STRING(BGl_string2959z00zz__evaluatez00,
		BgL_bgl_string2959za700za7za7_3123za7, "eval", 4);
	      BGL_DEFINE_STRING(BGl_string2960z00zz__evaluatez00,
		BgL_bgl_string2960za700za7za7_3124za7, "Bad syntax", 10);
	      BGL_DEFINE_STRING(BGl_string2961z00zz__evaluatez00,
		BgL_bgl_string2961za700za7za7_3125za7, "Class \"~a\" has no field \"~a\"",
		28);
	      BGL_DEFINE_STRING(BGl_string2962z00zz__evaluatez00,
		BgL_bgl_string2962za700za7za7_3126za7, "Static type not a class", 23);
	      BGL_DEFINE_STRING(BGl_string2963z00zz__evaluatez00,
		BgL_bgl_string2963za700za7za7_3127za7, "Variable unbound", 16);
	      BGL_DEFINE_STRING(BGl_string2964z00zz__evaluatez00,
		BgL_bgl_string2964za700za7za7_3128za7, "Field read-only", 15);
	      BGL_DEFINE_STRING(BGl_string2966z00zz__evaluatez00,
		BgL_bgl_string2966za700za7za7_3129za7, "pair", 4);
	      BGL_DEFINE_STRING(BGl_string2968z00zz__evaluatez00,
		BgL_bgl_string2968za700za7za7_3130za7, "pair?", 5);
	      BGL_DEFINE_STRING(BGl_string2971z00zz__evaluatez00,
		BgL_bgl_string2971za700za7za7_3131za7, "vector?", 7);
	      BGL_DEFINE_STRING(BGl_string2973z00zz__evaluatez00,
		BgL_bgl_string2973za700za7za7_3132za7, "symbol", 6);
	      BGL_DEFINE_STRING(BGl_string2975z00zz__evaluatez00,
		BgL_bgl_string2975za700za7za7_3133za7, "symbol?", 7);
	      BGL_DEFINE_STRING(BGl_string2977z00zz__evaluatez00,
		BgL_bgl_string2977za700za7za7_3134za7, "char", 4);
	      BGL_DEFINE_STRING(BGl_string2979z00zz__evaluatez00,
		BgL_bgl_string2979za700za7za7_3135za7, "char?", 5);
	extern obj_t BGl_errorzd2envzd2zz__errorz00;
	   
		 
		BGL_DEFINE_STRING(BGl_string2981z00zz__evaluatez00,
		BgL_bgl_string2981za700za7za7_3136za7, "int", 3);
	      BGL_DEFINE_STRING(BGl_string2984z00zz__evaluatez00,
		BgL_bgl_string2984za700za7za7_3137za7, "integer?", 8);
	      BGL_DEFINE_STRING(BGl_string2986z00zz__evaluatez00,
		BgL_bgl_string2986za700za7za7_3138za7, "real", 4);
	      BGL_DEFINE_STRING(BGl_string2988z00zz__evaluatez00,
		BgL_bgl_string2988za700za7za7_3139za7, "breal", 5);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_evaluate2zd2restorezd2statez12zd2envzc0zz__evaluatez00,
		BgL_bgl_za762evaluate2za7d2r3140z00,
		BGl_z62evaluate2zd2restorezd2statez12z70zz__evaluatez00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2990z00zz__evaluatez00,
		BgL_bgl_string2990za700za7za7_3141za7, "real?", 5);
	      BGL_DEFINE_STRING(BGl_string2992z00zz__evaluatez00,
		BgL_bgl_string2992za700za7za7_3142za7, "bool", 4);
	      BGL_DEFINE_STRING(BGl_string2994z00zz__evaluatez00,
		BgL_bgl_string2994za700za7za7_3143za7, "boolean?", 8);
	      BGL_DEFINE_STRING(BGl_string2996z00zz__evaluatez00,
		BgL_bgl_string2996za700za7za7_3144za7, "struct", 6);
	      BGL_DEFINE_STRING(BGl_string2998z00zz__evaluatez00,
		BgL_bgl_string2998za700za7za7_3145za7, "struct?", 7);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_getzd2evaluationzd2contextzd2envzd2zz__evaluatez00,
		BgL_bgl_za762getza7d2evaluat3146z00,
		BGl_z62getzd2evaluationzd2contextz62zz__evaluatez00, 0L, BUNSPEC, 0);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_evaluate2zd2envzd2zz__evaluatez00,
		BgL_bgl_za762evaluate2za762za73147za7, BGl_z62evaluate2z62zz__evaluatez00,
		0L, BUNSPEC, 3);
	      BGL_DEFINE_STRING(BGl_string3000z00zz__evaluatez00,
		BgL_bgl_string3000za700za7za7_3148za7, "class", 5);
	      BGL_DEFINE_STRING(BGl_string3002z00zz__evaluatez00,
		BgL_bgl_string3002za700za7za7_3149za7, "class?", 6);
	      BGL_DEFINE_STRING(BGl_string3004z00zz__evaluatez00,
		BgL_bgl_string3004za700za7za7_3150za7, "string", 6);
	      BGL_DEFINE_STRING(BGl_string3006z00zz__evaluatez00,
		BgL_bgl_string3006za700za7za7_3151za7, "bstring", 7);
	      BGL_DEFINE_STRING(BGl_string3008z00zz__evaluatez00,
		BgL_bgl_string3008za700za7za7_3152za7, "string?", 7);

/* contant bindings */
	static void bgl_constant_bindings()
	{
		BGL_BIND_STRING(BGl_string3008z00zz__evaluatez00,
			BgL_bgl_string3008za700za7za7_3152za7);
		BGL_BIND_STRING(BGl_string3006z00zz__evaluatez00,
			BgL_bgl_string3006za700za7za7_3151za7);
		BGL_BIND_STRING(BGl_string3004z00zz__evaluatez00,
			BgL_bgl_string3004za700za7za7_3150za7);
		BGL_BIND_STRING(BGl_string3002z00zz__evaluatez00,
			BgL_bgl_string3002za700za7za7_3149za7);
		BGL_BIND_STRING(BGl_string3000z00zz__evaluatez00,
			BgL_bgl_string3000za700za7za7_3148za7);
		BGL_BIND_PROCEDURE(BGl_evaluate2zd2envzd2zz__evaluatez00,
			BgL_bgl_za762evaluate2za762za73147za7);
		BGL_BIND_PROCEDURE(BGl_getzd2evaluationzd2contextzd2envzd2zz__evaluatez00,
			BgL_bgl_za762getza7d2evaluat3146z00);
		BGL_BIND_STRING(BGl_string2998z00zz__evaluatez00,
			BgL_bgl_string2998za700za7za7_3145za7);
		BGL_BIND_STRING(BGl_string2996z00zz__evaluatez00,
			BgL_bgl_string2996za700za7za7_3144za7);
		BGL_BIND_STRING(BGl_string2994z00zz__evaluatez00,
			BgL_bgl_string2994za700za7za7_3143za7);
		BGL_BIND_STRING(BGl_string2992z00zz__evaluatez00,
			BgL_bgl_string2992za700za7za7_3142za7);
		BGL_BIND_STRING(BGl_string2990z00zz__evaluatez00,
			BgL_bgl_string2990za700za7za7_3141za7);
		BGL_BIND_PROCEDURE
			(BGl_evaluate2zd2restorezd2statez12zd2envzc0zz__evaluatez00,
			BgL_bgl_za762evaluate2za7d2r3140z00);
		BGL_BIND_STRING(BGl_string2988z00zz__evaluatez00,
			BgL_bgl_string2988za700za7za7_3139za7);
		BGL_BIND_STRING(BGl_string2986z00zz__evaluatez00,
			BgL_bgl_string2986za700za7za7_3138za7);
		BGL_BIND_STRING(BGl_string2984z00zz__evaluatez00,
			BgL_bgl_string2984za700za7za7_3137za7);
		BGL_BIND_STRING(BGl_string2981z00zz__evaluatez00,
			BgL_bgl_string2981za700za7za7_3136za7);
		BGL_BIND_STRING(BGl_string2979z00zz__evaluatez00,
			BgL_bgl_string2979za700za7za7_3135za7);
		BGL_BIND_STRING(BGl_string2977z00zz__evaluatez00,
			BgL_bgl_string2977za700za7za7_3134za7);
		BGL_BIND_STRING(BGl_string2975z00zz__evaluatez00,
			BgL_bgl_string2975za700za7za7_3133za7);
		BGL_BIND_STRING(BGl_string2973z00zz__evaluatez00,
			BgL_bgl_string2973za700za7za7_3132za7);
		BGL_BIND_STRING(BGl_string2971z00zz__evaluatez00,
			BgL_bgl_string2971za700za7za7_3131za7);
		BGL_BIND_STRING(BGl_string2968z00zz__evaluatez00,
			BgL_bgl_string2968za700za7za7_3130za7);
		BGL_BIND_STRING(BGl_string2966z00zz__evaluatez00,
			BgL_bgl_string2966za700za7za7_3129za7);
		BGL_BIND_STRING(BGl_string2964z00zz__evaluatez00,
			BgL_bgl_string2964za700za7za7_3128za7);
		BGL_BIND_STRING(BGl_string2963z00zz__evaluatez00,
			BgL_bgl_string2963za700za7za7_3127za7);
		BGL_BIND_STRING(BGl_string2962z00zz__evaluatez00,
			BgL_bgl_string2962za700za7za7_3126za7);
		BGL_BIND_STRING(BGl_string2961z00zz__evaluatez00,
			BgL_bgl_string2961za700za7za7_3125za7);
		BGL_BIND_STRING(BGl_string2960z00zz__evaluatez00,
			BgL_bgl_string2960za700za7za7_3124za7);
		BGL_BIND_STRING(BGl_string2959z00zz__evaluatez00,
			BgL_bgl_string2959za700za7za7_3123za7);
		BGL_BIND_STRING(BGl_string2958z00zz__evaluatez00,
			BgL_bgl_string2958za700za7za7_3122za7);
		BGL_BIND_STRING(BGl_string2956z00zz__evaluatez00,
			BgL_bgl_string2956za700za7za7_3121za7);
		BGL_BIND_STRING(BGl_string2955z00zz__evaluatez00,
			BgL_bgl_string2955za700za7za7_3120za7);
		BGL_BIND_STRING(BGl_string2954z00zz__evaluatez00,
			BgL_bgl_string2954za700za7za7_3119za7);
		BGL_BIND_STRING(BGl_string2953z00zz__evaluatez00,
			BgL_bgl_string2953za700za7za7_3118za7);
		BGL_BIND_STRING(BGl_string2952z00zz__evaluatez00,
			BgL_bgl_string2952za700za7za7_3117za7);
		BGL_BIND_STRING(BGl_string2951z00zz__evaluatez00,
			BgL_bgl_string2951za700za7za7_3116za7);
		BGL_BIND_PROCEDURE
			(BGl_setzd2evaluationzd2contextz12zd2envzc0zz__evaluatez00,
			BgL_bgl_za762setza7d2evaluat3115z00);
		BGL_BIND_STRING(BGl_string3076z00zz__evaluatez00,
			BgL_bgl_string3076za700za7za7_3114za7);
		BGL_BIND_STRING(BGl_string3075z00zz__evaluatez00,
			BgL_bgl_string3075za700za7za7_3113za7);
		BGL_BIND_STRING(BGl_string3074z00zz__evaluatez00,
			BgL_bgl_string3074za700za7za7_3112za7);
		BGL_BIND_STRING(BGl_string3073z00zz__evaluatez00,
			BgL_bgl_string3073za700za7za7_3111za7);
		BGL_BIND_STRING(BGl_string3071z00zz__evaluatez00,
			BgL_bgl_string3071za700za7za7_3110za7);
		BGL_BIND_STRING(BGl_string3069z00zz__evaluatez00,
			BgL_bgl_string3069za700za7za7_3109za7);
		BGL_BIND_STRING(BGl_string3067z00zz__evaluatez00,
			BgL_bgl_string3067za700za7za7_3108za7);
		BGL_BIND_STRING(BGl_string3065z00zz__evaluatez00,
			BgL_bgl_string3065za700za7za7_3107za7);
		BGL_BIND_STRING(BGl_string3063z00zz__evaluatez00,
			BgL_bgl_string3063za700za7za7_3106za7);
		BGL_BIND_STRING(BGl_string3061z00zz__evaluatez00,
			BgL_bgl_string3061za700za7za7_3105za7);
		BGL_BIND_STRING(BGl_string3059z00zz__evaluatez00,
			BgL_bgl_string3059za700za7za7_3104za7);
		BGL_BIND_STRING(BGl_string3057z00zz__evaluatez00,
			BgL_bgl_string3057za700za7za7_3103za7);
		BGL_BIND_STRING(BGl_string3055z00zz__evaluatez00,
			BgL_bgl_string3055za700za7za7_3102za7);
		BGL_BIND_STRING(BGl_string3053z00zz__evaluatez00,
			BgL_bgl_string3053za700za7za7_3101za7);
		BGL_BIND_STRING(BGl_string3051z00zz__evaluatez00,
			BgL_bgl_string3051za700za7za7_3100za7);
		BGL_BIND_STRING(BGl_string3049z00zz__evaluatez00,
			BgL_bgl_string3049za700za7za7_3099za7);
		BGL_BIND_STRING(BGl_string3047z00zz__evaluatez00,
			BgL_bgl_string3047za700za7za7_3098za7);
		BGL_BIND_STRING(BGl_string3045z00zz__evaluatez00,
			BgL_bgl_string3045za700za7za7_3097za7);
		BGL_BIND_STRING(BGl_string3043z00zz__evaluatez00,
			BgL_bgl_string3043za700za7za7_3096za7);
		BGL_BIND_STRING(BGl_string3041z00zz__evaluatez00,
			BgL_bgl_string3041za700za7za7_3095za7);
		BGL_BIND_STRING(BGl_string3039z00zz__evaluatez00,
			BgL_bgl_string3039za700za7za7_3094za7);
		BGL_BIND_STRING(BGl_string3038z00zz__evaluatez00,
			BgL_bgl_string3038za700za7za7_3093za7);
		BGL_BIND_STRING(BGl_string3036z00zz__evaluatez00,
			BgL_bgl_string3036za700za7za7_3092za7);
		BGL_BIND_STRING(BGl_string3034z00zz__evaluatez00,
			BgL_bgl_string3034za700za7za7_3091za7);
		BGL_BIND_STRING(BGl_string3033z00zz__evaluatez00,
			BgL_bgl_string3033za700za7za7_3090za7);
		BGL_BIND_STRING(BGl_string3032z00zz__evaluatez00,
			BgL_bgl_string3032za700za7za7_3089za7);
		BGL_BIND_STRING(BGl_string3030z00zz__evaluatez00,
			BgL_bgl_string3030za700za7za7_3088za7);
		BGL_BIND_PROCEDURE(BGl_evaluate2zd2restorezd2bpz12zd2envzc0zz__evaluatez00,
			BgL_bgl_za762evaluate2za7d2r3087z00);
		BGL_BIND_STRING(BGl_string3028z00zz__evaluatez00,
			BgL_bgl_string3028za700za7za7_3086za7);
		BGL_BIND_STRING(BGl_string3026z00zz__evaluatez00,
			BgL_bgl_string3026za700za7za7_3085za7);
		BGL_BIND_STRING(BGl_string3024z00zz__evaluatez00,
			BgL_bgl_string3024za700za7za7_3084za7);
		BGL_BIND_STRING(BGl_string3022z00zz__evaluatez00,
			BgL_bgl_string3022za700za7za7_3083za7);
		BGL_BIND_STRING(BGl_string3020z00zz__evaluatez00,
			BgL_bgl_string3020za700za7za7_3082za7);
		BGL_BIND_STRING(BGl_string3018z00zz__evaluatez00,
			BgL_bgl_string3018za700za7za7_3081za7);
		BGL_BIND_STRING(BGl_string3016z00zz__evaluatez00,
			BgL_bgl_string3016za700za7za7_3080za7);
		BGL_BIND_STRING(BGl_string3014z00zz__evaluatez00,
			BgL_bgl_string3014za700za7za7_3079za7);
		BGL_BIND_STRING(BGl_string3012z00zz__evaluatez00,
			BgL_bgl_string3012za700za7za7_3078za7);
		BGL_BIND_STRING(BGl_string3010z00zz__evaluatez00,
			BgL_bgl_string3010za700za7za7_3077za7);
	}

/* 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__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol2957z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol2965z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol2967z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol2969z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol2970z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol2972z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol2974z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol2976z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol2978z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol2980z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol2982z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol2983z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol2985z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol2987z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol2989z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol2991z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol2993z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol2995z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol2997z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol2999z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol3001z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol3003z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol3005z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol3007z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol3009z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol3011z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol3013z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol3015z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol3017z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol3019z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_keyword3068z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol3021z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol3023z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol3025z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol3027z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol3029z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol3031z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol3035z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol3037z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol3040z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol3042z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol3044z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol3046z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol3048z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol3050z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol3052z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol3054z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol3056z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol3058z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol3060z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol3062z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol3064z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol3066z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol3070z00zz__evaluatez00));
		ADD_ROOT((void *) (&BGl_symbol3072z00zz__evaluatez00));
#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__evaluatez00(long
		BgL_checksumz00_4962, char *BgL_fromz00_4963)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__evaluatez00))
				{
					BGl_requirezd2initializa7ationz75zz__evaluatez00 =
						BBOOL(((bool_t) 0));
					bgl_constant_bindings();
					BGl_gczd2rootszd2initz00zz__evaluatez00();
					BGl_cnstzd2initzd2zz__evaluatez00();
					BGl_importedzd2moduleszd2initz00zz__evaluatez00();
					return BGl_methodzd2initzd2zz__evaluatez00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zz__evaluatez00(void)
	{
		{	/* Eval/evaluate.scm 15 */
			BGl_symbol2957z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string2958z00zz__evaluatez00);
			BGl_symbol2965z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string2966z00zz__evaluatez00);
			BGl_symbol2967z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string2968z00zz__evaluatez00);
			BGl_symbol2969z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string2956z00zz__evaluatez00);
			BGl_symbol2970z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string2971z00zz__evaluatez00);
			BGl_symbol2972z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string2973z00zz__evaluatez00);
			BGl_symbol2974z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string2975z00zz__evaluatez00);
			BGl_symbol2976z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string2977z00zz__evaluatez00);
			BGl_symbol2978z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string2979z00zz__evaluatez00);
			BGl_symbol2980z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string2981z00zz__evaluatez00);
			BGl_symbol2982z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string2954z00zz__evaluatez00);
			BGl_symbol2983z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string2984z00zz__evaluatez00);
			BGl_symbol2985z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string2986z00zz__evaluatez00);
			BGl_symbol2987z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string2988z00zz__evaluatez00);
			BGl_symbol2989z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string2990z00zz__evaluatez00);
			BGl_symbol2991z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string2992z00zz__evaluatez00);
			BGl_symbol2993z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string2994z00zz__evaluatez00);
			BGl_symbol2995z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string2996z00zz__evaluatez00);
			BGl_symbol2997z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string2998z00zz__evaluatez00);
			BGl_symbol2999z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string3000z00zz__evaluatez00);
			BGl_symbol3001z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string3002z00zz__evaluatez00);
			BGl_symbol3003z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string3004z00zz__evaluatez00);
			BGl_symbol3005z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string3006z00zz__evaluatez00);
			BGl_symbol3007z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string3008z00zz__evaluatez00);
			BGl_symbol3009z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string3010z00zz__evaluatez00);
			BGl_symbol3011z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string3012z00zz__evaluatez00);
			BGl_symbol3013z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string3014z00zz__evaluatez00);
			BGl_symbol3015z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string3016z00zz__evaluatez00);
			BGl_symbol3017z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string3018z00zz__evaluatez00);
			BGl_symbol3019z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string3020z00zz__evaluatez00);
			BGl_symbol3021z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string3022z00zz__evaluatez00);
			BGl_symbol3023z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string3024z00zz__evaluatez00);
			BGl_symbol3025z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string3026z00zz__evaluatez00);
			BGl_symbol3027z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string3028z00zz__evaluatez00);
			BGl_symbol3029z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string3030z00zz__evaluatez00);
			BGl_symbol3031z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string3032z00zz__evaluatez00);
			BGl_symbol3035z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string3036z00zz__evaluatez00);
			BGl_symbol3037z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string3038z00zz__evaluatez00);
			BGl_symbol3040z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string3041z00zz__evaluatez00);
			BGl_symbol3042z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string3043z00zz__evaluatez00);
			BGl_symbol3044z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string3045z00zz__evaluatez00);
			BGl_symbol3046z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string3047z00zz__evaluatez00);
			BGl_symbol3048z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string3049z00zz__evaluatez00);
			BGl_symbol3050z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string3051z00zz__evaluatez00);
			BGl_symbol3052z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string3053z00zz__evaluatez00);
			BGl_symbol3054z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string3055z00zz__evaluatez00);
			BGl_symbol3056z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string3057z00zz__evaluatez00);
			BGl_symbol3058z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string3059z00zz__evaluatez00);
			BGl_symbol3060z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string3061z00zz__evaluatez00);
			BGl_symbol3062z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string3063z00zz__evaluatez00);
			BGl_symbol3064z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string3065z00zz__evaluatez00);
			BGl_symbol3066z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string3067z00zz__evaluatez00);
			BGl_keyword3068z00zz__evaluatez00 =
				bstring_to_keyword(BGl_string3069z00zz__evaluatez00);
			BGl_symbol3070z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string3071z00zz__evaluatez00);
			return (BGl_symbol3072z00zz__evaluatez00 =
				bstring_to_symbol(BGl_string3073z00zz__evaluatez00), BUNSPEC);
		}

	}



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

	}



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

					BgL_headz00_1198 = MAKE_YOUNG_PAIR(BNIL, BgL_l2z00_2);
					{
						obj_t BgL_prevz00_3228;
						obj_t BgL_tailz00_3229;

						BgL_prevz00_3228 = BgL_headz00_1198;
						BgL_tailz00_3229 = BgL_l1z00_1;
					BgL_loopz00_3227:
						if (PAIRP(BgL_tailz00_3229))
							{
								obj_t BgL_newzd2prevzd2_3235;

								BgL_newzd2prevzd2_3235 =
									MAKE_YOUNG_PAIR(CAR(BgL_tailz00_3229), BgL_l2z00_2);
								SET_CDR(BgL_prevz00_3228, BgL_newzd2prevzd2_3235);
								{
									obj_t BgL_tailz00_5037;
									obj_t BgL_prevz00_5036;

									BgL_prevz00_5036 = BgL_newzd2prevzd2_3235;
									BgL_tailz00_5037 = CDR(BgL_tailz00_3229);
									BgL_tailz00_3229 = BgL_tailz00_5037;
									BgL_prevz00_3228 = BgL_prevz00_5036;
									goto BgL_loopz00_3227;
								}
							}
						else
							{
								BNIL;
							}
					}
					return CDR(BgL_headz00_1198);
				}
		}

	}



/* untype-ident */
	obj_t BGl_untypezd2identzd2zz__evaluatez00(obj_t BgL_idz00_3)
	{
		{	/* Eval/evaluate.scm 73 */
			{	/* Eval/evaluate.scm 74 */
				obj_t BgL_stringz00_1206;

				{	/* Eval/evaluate.scm 74 */
					obj_t BgL_arg2654z00_3243;

					BgL_arg2654z00_3243 = SYMBOL_TO_STRING(BgL_idz00_3);
					BgL_stringz00_1206 =
						BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_arg2654z00_3243);
				}
				{	/* Eval/evaluate.scm 74 */
					long BgL_lenz00_1207;

					BgL_lenz00_1207 = STRING_LENGTH(BgL_stringz00_1206);
					{	/* Eval/evaluate.scm 75 */

						{
							long BgL_walkerz00_1209;

							BgL_walkerz00_1209 = 0L;
						BgL_zc3z04anonymousza31339ze3z87_1210:
							if ((BgL_walkerz00_1209 == BgL_lenz00_1207))
								{	/* Eval/evaluate.scm 78 */
									return MAKE_YOUNG_PAIR(BgL_idz00_3, BFALSE);
								}
							else
								{	/* Eval/evaluate.scm 80 */
									bool_t BgL_test3157z00_5046;

									if (
										(STRING_REF(BgL_stringz00_1206,
												BgL_walkerz00_1209) == ((unsigned char) ':')))
										{	/* Eval/evaluate.scm 80 */
											if ((BgL_walkerz00_1209 < (BgL_lenz00_1207 - 1L)))
												{	/* Eval/evaluate.scm 81 */
													BgL_test3157z00_5046 =
														(STRING_REF(BgL_stringz00_1206,
															(BgL_walkerz00_1209 + 1L)) ==
														((unsigned char) ':'));
												}
											else
												{	/* Eval/evaluate.scm 81 */
													BgL_test3157z00_5046 = ((bool_t) 0);
												}
										}
									else
										{	/* Eval/evaluate.scm 80 */
											BgL_test3157z00_5046 = ((bool_t) 0);
										}
									if (BgL_test3157z00_5046)
										{	/* Eval/evaluate.scm 83 */
											obj_t BgL_arg1351z00_1221;
											obj_t BgL_arg1352z00_1222;

											BgL_arg1351z00_1221 =
												bstring_to_symbol(c_substring(BgL_stringz00_1206, 0L,
													BgL_walkerz00_1209));
											{	/* Eval/evaluate.scm 84 */
												obj_t BgL_arg1355z00_1224;

												{	/* Eval/evaluate.scm 84 */
													long BgL_arg1356z00_1225;

													BgL_arg1356z00_1225 = (BgL_walkerz00_1209 + 2L);
													{	/* Ieee/string.scm 194 */
														long BgL_endz00_1228;

														BgL_endz00_1228 = STRING_LENGTH(BgL_stringz00_1206);
														{	/* Ieee/string.scm 194 */

															BgL_arg1355z00_1224 =
																BGl_substringz00zz__r4_strings_6_7z00
																(BgL_stringz00_1206, BgL_arg1356z00_1225,
																BgL_endz00_1228);
												}}}
												BgL_arg1352z00_1222 =
													bstring_to_symbol(BgL_arg1355z00_1224);
											}
											return
												MAKE_YOUNG_PAIR(BgL_arg1351z00_1221,
												BgL_arg1352z00_1222);
										}
									else
										{
											long BgL_walkerz00_5063;

											BgL_walkerz00_5063 = (BgL_walkerz00_1209 + 1L);
											BgL_walkerz00_1209 = BgL_walkerz00_5063;
											goto BgL_zc3z04anonymousza31339ze3z87_1210;
										}
								}
						}
					}
				}
			}
		}

	}



/* get-evaluation-context */
	BGL_EXPORTED_DEF obj_t BGl_getzd2evaluationzd2contextz00zz__evaluatez00(void)
	{
		{	/* Eval/evaluate.scm 91 */
			{	/* Eval/evaluate.scm 92 */
				obj_t BgL_sz00_1237;

				BgL_sz00_1237 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate.scm 93 */
					obj_t BgL_bpz00_1238;

					BgL_bpz00_1238 = VECTOR_REF(((obj_t) BgL_sz00_1237), 0L);
					{	/* Eval/evaluate.scm 94 */
						obj_t BgL_rz00_1239;

						BgL_rz00_1239 =
							make_vector(
							(long) CINT(BgL_bpz00_1238), BGl_string2951z00zz__evaluatez00);
						{
							long BgL_iz00_3275;

							BgL_iz00_3275 = 0L;
						BgL_recz00_3274:
							if ((BgL_iz00_3275 < (long) CINT(BgL_bpz00_1238)))
								{	/* Eval/evaluate.scm 96 */
									{	/* Eval/evaluate.scm 97 */
										obj_t BgL_arg1365z00_3279;

										BgL_arg1365z00_3279 =
											VECTOR_REF(((obj_t) BgL_sz00_1237), BgL_iz00_3275);
										VECTOR_SET(BgL_rz00_1239, BgL_iz00_3275,
											BgL_arg1365z00_3279);
									}
									{
										long BgL_iz00_5076;

										BgL_iz00_5076 = (BgL_iz00_3275 + 1L);
										BgL_iz00_3275 = BgL_iz00_5076;
										goto BgL_recz00_3274;
									}
								}
							else
								{	/* Eval/evaluate.scm 96 */
									((bool_t) 0);
								}
						}
						return BgL_rz00_1239;
					}
				}
			}
		}

	}



/* &get-evaluation-context */
	obj_t BGl_z62getzd2evaluationzd2contextz62zz__evaluatez00(obj_t
		BgL_envz00_4865)
	{
		{	/* Eval/evaluate.scm 91 */
			return BGl_getzd2evaluationzd2contextz00zz__evaluatez00();
		}

	}



/* set-evaluation-context! */
	BGL_EXPORTED_DEF obj_t
		BGl_setzd2evaluationzd2contextz12z12zz__evaluatez00(obj_t BgL_vz00_4)
	{
		{	/* Eval/evaluate.scm 104 */
			{	/* Eval/evaluate.scm 105 */
				obj_t BgL_sz00_1247;

				BgL_sz00_1247 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate.scm 106 */
					obj_t BgL_bpz00_1248;

					BgL_bpz00_1248 = VECTOR_REF(((obj_t) BgL_vz00_4), 0L);
					{
						long BgL_iz00_3295;

						{	/* Eval/evaluate.scm 107 */
							bool_t BgL_tmpz00_5082;

							BgL_iz00_3295 = 0L;
						BgL_recz00_3294:
							if ((BgL_iz00_3295 < (long) CINT(BgL_bpz00_1248)))
								{	/* Eval/evaluate.scm 108 */
									{	/* Eval/evaluate.scm 109 */
										obj_t BgL_arg1369z00_3299;

										BgL_arg1369z00_3299 =
											VECTOR_REF(((obj_t) BgL_vz00_4), BgL_iz00_3295);
										VECTOR_SET(
											((obj_t) BgL_sz00_1247), BgL_iz00_3295,
											BgL_arg1369z00_3299);
									}
									{
										long BgL_iz00_5090;

										BgL_iz00_5090 = (BgL_iz00_3295 + 1L);
										BgL_iz00_3295 = BgL_iz00_5090;
										goto BgL_recz00_3294;
									}
								}
							else
								{	/* Eval/evaluate.scm 108 */
									BgL_tmpz00_5082 = ((bool_t) 0);
								}
							return BBOOL(BgL_tmpz00_5082);
						}
					}
				}
			}
		}

	}



/* &set-evaluation-context! */
	obj_t BGl_z62setzd2evaluationzd2contextz12z70zz__evaluatez00(obj_t
		BgL_envz00_4866, obj_t BgL_vz00_4867)
	{
		{	/* Eval/evaluate.scm 104 */
			return BGl_setzd2evaluationzd2contextz12z12zz__evaluatez00(BgL_vz00_4867);
		}

	}



/* evaluate2-restore-bp! */
	BGL_EXPORTED_DEF obj_t BGl_evaluate2zd2restorezd2bpz12z12zz__evaluatez00(int
		BgL_bpz00_5)
	{
		{	/* Eval/evaluate.scm 115 */
			{	/* Eval/evaluate.scm 116 */
				obj_t BgL_sz00_3306;

				{	/* Eval/evaluate.scm 116 */
					obj_t BgL_tmpz00_5094;

					BgL_tmpz00_5094 = BGL_CURRENT_DYNAMIC_ENV();
					BgL_sz00_3306 = BGL_ENV_EVSTATE(BgL_tmpz00_5094);
				}
				return VECTOR_SET(((obj_t) BgL_sz00_3306), 0L, BINT(BgL_bpz00_5));
			}
		}

	}



/* &evaluate2-restore-bp! */
	obj_t BGl_z62evaluate2zd2restorezd2bpz12z70zz__evaluatez00(obj_t
		BgL_envz00_4868, obj_t BgL_bpz00_4869)
	{
		{	/* Eval/evaluate.scm 115 */
			{	/* Eval/evaluate.scm 116 */
				int BgL_auxz00_5100;

				{	/* Eval/evaluate.scm 116 */
					obj_t BgL_tmpz00_5101;

					if (INTEGERP(BgL_bpz00_4869))
						{	/* Eval/evaluate.scm 116 */
							BgL_tmpz00_5101 = BgL_bpz00_4869;
						}
					else
						{
							obj_t BgL_auxz00_5104;

							BgL_auxz00_5104 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2952z00zz__evaluatez00, BINT(3890L),
								BGl_string2953z00zz__evaluatez00,
								BGl_string2954z00zz__evaluatez00, BgL_bpz00_4869);
							FAILURE(BgL_auxz00_5104, BFALSE, BFALSE);
						}
					BgL_auxz00_5100 = CINT(BgL_tmpz00_5101);
				}
				return
					BGl_evaluate2zd2restorezd2bpz12z12zz__evaluatez00(BgL_auxz00_5100);
			}
		}

	}



/* evaluate2-restore-state! */
	BGL_EXPORTED_DEF obj_t
		BGl_evaluate2zd2restorezd2statez12z12zz__evaluatez00(obj_t BgL_statez00_6)
	{
		{	/* Eval/evaluate.scm 122 */
			{	/* Eval/evaluate.scm 124 */
				obj_t BgL_tmpz00_5110;

				BgL_tmpz00_5110 = BGL_CURRENT_DYNAMIC_ENV();
				return BGL_ENV_EVSTATE_SET(BgL_tmpz00_5110, BgL_statez00_6);
			}
		}

	}



/* &evaluate2-restore-state! */
	obj_t BGl_z62evaluate2zd2restorezd2statez12z70zz__evaluatez00(obj_t
		BgL_envz00_4870, obj_t BgL_statez00_4871)
	{
		{	/* Eval/evaluate.scm 122 */
			{	/* Eval/evaluate.scm 123 */
				obj_t BgL_auxz00_5113;

				if (VECTORP(BgL_statez00_4871))
					{	/* Eval/evaluate.scm 123 */
						BgL_auxz00_5113 = BgL_statez00_4871;
					}
				else
					{
						obj_t BgL_auxz00_5116;

						BgL_auxz00_5116 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2952z00zz__evaluatez00,
							BINT(4240L), BGl_string2955z00zz__evaluatez00,
							BGl_string2956z00zz__evaluatez00, BgL_statez00_4871);
						FAILURE(BgL_auxz00_5116, BFALSE, BFALSE);
					}
				return
					BGl_evaluate2zd2restorezd2statez12z12zz__evaluatez00(BgL_auxz00_5113);
			}
		}

	}



/* evaluate2 */
	BGL_EXPORTED_DEF obj_t BGl_evaluate2z00zz__evaluatez00(obj_t BgL_sexpz00_7,
		obj_t BgL_envz00_8, obj_t BgL_locz00_9)
	{
		{	/* Eval/evaluate.scm 129 */
			{	/* Eval/evaluate.scm 130 */
				BgL_ev_exprz00_bglt BgL_astz00_1259;

				{	/* Eval/evaluate.scm 130 */
					obj_t BgL_arg1373z00_1269;

					BgL_arg1373z00_1269 =
						BGl_convz00zz__evaluatez00(BgL_sexpz00_7, BNIL, BgL_envz00_8,
						BFALSE, BGl_symbol2957z00zz__evaluatez00, BgL_locz00_9,
						((bool_t) 1));
					BgL_astz00_1259 =
						BGl_extractzd2loopszd2zz__evaluate_fsiza7eza7(((BgL_ev_exprz00_bglt)
							BgL_arg1373z00_1269));
				}
				BGl_analysezd2varszd2zz__evaluate_avarz00(BgL_astz00_1259);
				{	/* Eval/evaluate.scm 132 */
					int BgL_nz00_1260;

					BgL_nz00_1260 =
						BGl_framezd2siza7ez75zz__evaluate_fsiza7eza7(BgL_astz00_1259);
					{	/* Eval/evaluate.scm 133 */
						obj_t BgL_fz00_1261;

						BgL_fz00_1261 = BGl_compilez00zz__evaluate_compz00(BgL_astz00_1259);
						{	/* Eval/evaluate.scm 134 */
							obj_t BgL_sz00_1262;

							BgL_sz00_1262 = BGl_findzd2statezd2zz__evaluate_compz00();
							{	/* Eval/evaluate.scm 135 */
								obj_t BgL_bpz00_1263;

								BgL_bpz00_1263 = VECTOR_REF(((obj_t) BgL_sz00_1262), 0L);
								{	/* Eval/evaluate.scm 136 */
									obj_t BgL_exitd1065z00_1264;

									BgL_exitd1065z00_1264 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate.scm 138 */
										obj_t BgL_zc3z04anonymousza31372ze3z87_4872;

										BgL_zc3z04anonymousza31372ze3z87_4872 =
											MAKE_FX_PROCEDURE
											(BGl_z62zc3z04anonymousza31372ze3ze5zz__evaluatez00,
											(int) (0L), (int) (2L));
										PROCEDURE_SET(BgL_zc3z04anonymousza31372ze3z87_4872,
											(int) (0L), BgL_sz00_1262);
										PROCEDURE_SET(BgL_zc3z04anonymousza31372ze3z87_4872,
											(int) (1L), BgL_bpz00_1263);
										{	/* Eval/evaluate.scm 136 */
											obj_t BgL_arg2928z00_3312;

											{	/* Eval/evaluate.scm 136 */
												obj_t BgL_arg2929z00_3313;

												BgL_arg2929z00_3313 =
													BGL_EXITD_PROTECT(BgL_exitd1065z00_1264);
												BgL_arg2928z00_3312 =
													MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31372ze3z87_4872,
													BgL_arg2929z00_3313);
											}
											BGL_EXITD_PROTECT_SET(BgL_exitd1065z00_1264,
												BgL_arg2928z00_3312);
											BUNSPEC;
										}
										{	/* Eval/evaluate.scm 137 */
											obj_t BgL_tmp1067z00_1266;

											BgL_tmp1067z00_1266 =
												BGL_PROCEDURE_CALL1(BgL_fz00_1261, BgL_sz00_1262);
											{	/* Eval/evaluate.scm 136 */
												bool_t BgL_test3164z00_5145;

												{	/* Eval/evaluate.scm 136 */
													obj_t BgL_arg2927z00_3315;

													BgL_arg2927z00_3315 =
														BGL_EXITD_PROTECT(BgL_exitd1065z00_1264);
													BgL_test3164z00_5145 = PAIRP(BgL_arg2927z00_3315);
												}
												if (BgL_test3164z00_5145)
													{	/* Eval/evaluate.scm 136 */
														obj_t BgL_arg2925z00_3316;

														{	/* Eval/evaluate.scm 136 */
															obj_t BgL_arg2926z00_3317;

															BgL_arg2926z00_3317 =
																BGL_EXITD_PROTECT(BgL_exitd1065z00_1264);
															BgL_arg2925z00_3316 =
																CDR(((obj_t) BgL_arg2926z00_3317));
														}
														BGL_EXITD_PROTECT_SET(BgL_exitd1065z00_1264,
															BgL_arg2925z00_3316);
														BUNSPEC;
													}
												else
													{	/* Eval/evaluate.scm 136 */
														BFALSE;
													}
											}
											VECTOR_SET(((obj_t) BgL_sz00_1262), 0L, BgL_bpz00_1263);
											return BgL_tmp1067z00_1266;
										}
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* &evaluate2 */
	obj_t BGl_z62evaluate2z62zz__evaluatez00(obj_t BgL_envz00_4873,
		obj_t BgL_sexpz00_4874, obj_t BgL_envz00_4875, obj_t BgL_locz00_4876)
	{
		{	/* Eval/evaluate.scm 129 */
			return
				BGl_evaluate2z00zz__evaluatez00(BgL_sexpz00_4874, BgL_envz00_4875,
				BgL_locz00_4876);
		}

	}



/* &<@anonymous:1372> */
	obj_t BGl_z62zc3z04anonymousza31372ze3ze5zz__evaluatez00(obj_t
		BgL_envz00_4877)
	{
		{	/* Eval/evaluate.scm 136 */
			{	/* Eval/evaluate.scm 138 */
				obj_t BgL_sz00_4878;
				obj_t BgL_bpz00_4879;

				BgL_sz00_4878 = PROCEDURE_REF(BgL_envz00_4877, (int) (0L));
				BgL_bpz00_4879 = PROCEDURE_REF(BgL_envz00_4877, (int) (1L));
				return VECTOR_SET(((obj_t) BgL_sz00_4878), 0L, BgL_bpz00_4879);
			}
		}

	}



/* get-location */
	obj_t BGl_getzd2locationzd2zz__evaluatez00(obj_t BgL_expz00_10,
		obj_t BgL_locz00_11)
	{
		{	/* Eval/evaluate.scm 143 */
			{	/* Eval/evaluate.scm 144 */
				obj_t BgL__ortest_1069z00_3320;

				BgL__ortest_1069z00_3320 =
					BGl_getzd2sourcezd2locationz00zz__readerz00(BgL_expz00_10);
				if (CBOOL(BgL__ortest_1069z00_3320))
					{	/* Eval/evaluate.scm 144 */
						return BgL__ortest_1069z00_3320;
					}
				else
					{	/* Eval/evaluate.scm 144 */
						return BgL_locz00_11;
					}
			}
		}

	}



/* conv-var */
	obj_t BGl_convzd2varzd2zz__evaluatez00(obj_t BgL_vz00_18,
		obj_t BgL_localsz00_19)
	{
		{	/* Eval/evaluate.scm 163 */
			{
				obj_t BgL_lz00_1274;

				BgL_lz00_1274 = BgL_localsz00_19;
			BgL_zc3z04anonymousza31374ze3z87_1275:
				if (NULLP(BgL_lz00_1274))
					{	/* Eval/evaluate.scm 165 */
						return BFALSE;
					}
				else
					{	/* Eval/evaluate.scm 167 */
						obj_t BgL_rvz00_1277;

						BgL_rvz00_1277 = CAR(((obj_t) BgL_lz00_1274));
						if (
							(BgL_vz00_18 ==
								(((BgL_ev_varz00_bglt) COBJECT(
											((BgL_ev_varz00_bglt) BgL_rvz00_1277)))->BgL_namez00)))
							{	/* Eval/evaluate.scm 169 */
								return BgL_rvz00_1277;
							}
						else
							{
								obj_t BgL_lz00_5172;

								BgL_lz00_5172 = CDR(((obj_t) BgL_lz00_1274));
								BgL_lz00_1274 = BgL_lz00_5172;
								goto BgL_zc3z04anonymousza31374ze3z87_1275;
							}
					}
			}
		}

	}



/* conv-begin */
	obj_t BGl_convzd2beginzd2zz__evaluatez00(obj_t BgL_lz00_20,
		obj_t BgL_localsz00_21, obj_t BgL_globalsz00_22, obj_t BgL_tailzf3zf3_23,
		obj_t BgL_wherez00_24, obj_t BgL_locz00_25, bool_t BgL_topzf3zf3_26)
	{
		{	/* Eval/evaluate.scm 176 */
			{	/* Eval/evaluate.scm 177 */
				obj_t BgL_locz00_1284;

				{	/* Eval/evaluate.scm 144 */
					obj_t BgL__ortest_1069z00_3325;

					BgL__ortest_1069z00_3325 =
						BGl_getzd2sourcezd2locationz00zz__readerz00(BgL_lz00_20);
					if (CBOOL(BgL__ortest_1069z00_3325))
						{	/* Eval/evaluate.scm 144 */
							BgL_locz00_1284 = BgL__ortest_1069z00_3325;
						}
					else
						{	/* Eval/evaluate.scm 144 */
							BgL_locz00_1284 = BgL_locz00_25;
						}
				}
				{
					obj_t BgL_e1z00_1288;
					obj_t BgL_rz00_1289;

					if (NULLP(BgL_lz00_20))
						{
							BgL_ev_littz00_bglt BgL_auxz00_5180;

							{	/* Eval/evaluate.scm 180 */
								BgL_ev_littz00_bglt BgL_new1074z00_1301;

								{	/* Eval/evaluate.scm 181 */
									BgL_ev_littz00_bglt BgL_new1073z00_1302;

									BgL_new1073z00_1302 =
										((BgL_ev_littz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
													BgL_ev_littz00_bgl))));
									{	/* Eval/evaluate.scm 181 */
										long BgL_arg1388z00_1303;

										BgL_arg1388z00_1303 =
											BGL_CLASS_NUM(BGl_ev_littz00zz__evaluate_typesz00);
										BGL_OBJECT_CLASS_NUM_SET(
											((BgL_objectz00_bglt) BgL_new1073z00_1302),
											BgL_arg1388z00_1303);
									}
									BgL_new1074z00_1301 = BgL_new1073z00_1302;
								}
								((((BgL_ev_littz00_bglt) COBJECT(BgL_new1074z00_1301))->
										BgL_valuez00) = ((obj_t) BUNSPEC), BUNSPEC);
								BgL_auxz00_5180 = BgL_new1074z00_1301;
							}
							return ((obj_t) BgL_auxz00_5180);
						}
					else
						{	/* Eval/evaluate.scm 178 */
							if (PAIRP(BgL_lz00_20))
								{	/* Eval/evaluate.scm 178 */
									if (NULLP(CDR(((obj_t) BgL_lz00_20))))
										{	/* Eval/evaluate.scm 178 */
											obj_t BgL_arg1384z00_1297;

											BgL_arg1384z00_1297 = CAR(((obj_t) BgL_lz00_20));
											{	/* Eval/evaluate.scm 183 */
												obj_t BgL_arg1389z00_3337;

												{	/* Eval/evaluate.scm 144 */
													obj_t BgL__ortest_1069z00_3338;

													BgL__ortest_1069z00_3338 =
														BGl_getzd2sourcezd2locationz00zz__readerz00
														(BgL_arg1384z00_1297);
													if (CBOOL(BgL__ortest_1069z00_3338))
														{	/* Eval/evaluate.scm 144 */
															BgL_arg1389z00_3337 = BgL__ortest_1069z00_3338;
														}
													else
														{	/* Eval/evaluate.scm 144 */
															BgL_arg1389z00_3337 = BgL_locz00_1284;
														}
												}
												BGL_TAIL return
													BGl_convz00zz__evaluatez00(BgL_arg1384z00_1297,
													BgL_localsz00_21, BgL_globalsz00_22,
													BgL_tailzf3zf3_23, BgL_wherez00_24,
													BgL_arg1389z00_3337, BgL_topzf3zf3_26);
											}
										}
									else
										{	/* Eval/evaluate.scm 178 */
											obj_t BgL_arg1385z00_1298;
											obj_t BgL_arg1386z00_1299;

											BgL_arg1385z00_1298 = CAR(((obj_t) BgL_lz00_20));
											BgL_arg1386z00_1299 = CDR(((obj_t) BgL_lz00_20));
											{
												BgL_ev_prog2z00_bglt BgL_auxz00_5203;

												BgL_e1z00_1288 = BgL_arg1385z00_1298;
												BgL_rz00_1289 = BgL_arg1386z00_1299;
												{	/* Eval/evaluate.scm 185 */
													BgL_ev_prog2z00_bglt BgL_new1076z00_1305;

													{	/* Eval/evaluate.scm 186 */
														BgL_ev_prog2z00_bglt BgL_new1075z00_1307;

														BgL_new1075z00_1307 =
															((BgL_ev_prog2z00_bglt)
															BOBJECT(GC_MALLOC(sizeof(struct
																		BgL_ev_prog2z00_bgl))));
														{	/* Eval/evaluate.scm 186 */
															long BgL_arg1391z00_1308;

															BgL_arg1391z00_1308 =
																BGL_CLASS_NUM
																(BGl_ev_prog2z00zz__evaluate_typesz00);
															BGL_OBJECT_CLASS_NUM_SET(((BgL_objectz00_bglt)
																	BgL_new1075z00_1307), BgL_arg1391z00_1308);
														}
														BgL_new1076z00_1305 = BgL_new1075z00_1307;
													}
													{
														BgL_ev_exprz00_bglt BgL_auxz00_5208;

														{	/* Eval/evaluate.scm 186 */
															obj_t BgL_arg1390z00_1306;

															{	/* Eval/evaluate.scm 144 */
																obj_t BgL__ortest_1069z00_3334;

																BgL__ortest_1069z00_3334 =
																	BGl_getzd2sourcezd2locationz00zz__readerz00
																	(BgL_e1z00_1288);
																if (CBOOL(BgL__ortest_1069z00_3334))
																	{	/* Eval/evaluate.scm 144 */
																		BgL_arg1390z00_1306 =
																			BgL__ortest_1069z00_3334;
																	}
																else
																	{	/* Eval/evaluate.scm 144 */
																		BgL_arg1390z00_1306 = BgL_locz00_1284;
																	}
															}
															BgL_auxz00_5208 =
																((BgL_ev_exprz00_bglt)
																BGl_convz00zz__evaluatez00(BgL_e1z00_1288,
																	BgL_localsz00_21, BgL_globalsz00_22, BFALSE,
																	BgL_wherez00_24, BgL_arg1390z00_1306,
																	BgL_topzf3zf3_26));
														}
														((((BgL_ev_prog2z00_bglt)
																	COBJECT(BgL_new1076z00_1305))->BgL_e1z00) =
															((BgL_ev_exprz00_bglt) BgL_auxz00_5208), BUNSPEC);
													}
													((((BgL_ev_prog2z00_bglt)
																COBJECT(BgL_new1076z00_1305))->BgL_e2z00) =
														((BgL_ev_exprz00_bglt) ((BgL_ev_exprz00_bglt)
																BGl_convzd2beginzd2zz__evaluatez00
																(BgL_rz00_1289, BgL_localsz00_21,
																	BgL_globalsz00_22, BgL_tailzf3zf3_23,
																	BgL_wherez00_24, BgL_locz00_1284,
																	BgL_topzf3zf3_26))), BUNSPEC);
													BgL_auxz00_5203 = BgL_new1076z00_1305;
												}
												return ((obj_t) BgL_auxz00_5203);
											}
										}
								}
							else
								{	/* Eval/evaluate.scm 178 */
									return
										BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_1284,
										BGl_string2959z00zz__evaluatez00,
										BGl_string2960z00zz__evaluatez00, BgL_lz00_20);
								}
						}
				}
			}
		}

	}



/* conv-field-ref */
	obj_t BGl_convzd2fieldzd2refz00zz__evaluatez00(obj_t BgL_ez00_30,
		obj_t BgL_localsz00_31, obj_t BgL_globalsz00_32, obj_t BgL_tailzf3zf3_33,
		obj_t BgL_wherez00_34, obj_t BgL_locz00_35, bool_t BgL_topzf3zf3_36)
	{
		{	/* Eval/evaluate.scm 203 */
			{	/* Eval/evaluate.scm 204 */
				obj_t BgL_lz00_1313;

				BgL_lz00_1313 = CDR(((obj_t) BgL_ez00_30));
				{	/* Eval/evaluate.scm 204 */
					obj_t BgL_vz00_1314;

					BgL_vz00_1314 =
						BGl_convzd2varzd2zz__evaluatez00(CAR(
							((obj_t) BgL_lz00_1313)), BgL_localsz00_31);
					{	/* Eval/evaluate.scm 205 */

						{	/* Eval/evaluate.scm 206 */
							bool_t BgL_test3174z00_5225;

							{	/* Eval/evaluate.scm 206 */
								obj_t BgL_classz00_3350;

								BgL_classz00_3350 = BGl_ev_varz00zz__evaluate_typesz00;
								if (BGL_OBJECTP(BgL_vz00_1314))
									{	/* Eval/evaluate.scm 206 */
										BgL_objectz00_bglt BgL_arg2877z00_3352;

										BgL_arg2877z00_3352 = (BgL_objectz00_bglt) (BgL_vz00_1314);
										if (BGL_CONDEXPAND_ISA_ARCH64())
											{	/* Eval/evaluate.scm 206 */
												long BgL_idxz00_3358;

												BgL_idxz00_3358 =
													BGL_OBJECT_INHERITANCE_NUM(BgL_arg2877z00_3352);
												BgL_test3174z00_5225 =
													(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
														(BgL_idxz00_3358 + 2L)) == BgL_classz00_3350);
											}
										else
											{	/* Eval/evaluate.scm 206 */
												bool_t BgL_res2930z00_3383;

												{	/* Eval/evaluate.scm 206 */
													obj_t BgL_oclassz00_3366;

													{	/* Eval/evaluate.scm 206 */
														obj_t BgL_arg2898z00_3374;
														long BgL_arg2899z00_3375;

														BgL_arg2898z00_3374 =
															(BGl_za2classesza2z00zz__objectz00);
														{	/* Eval/evaluate.scm 206 */
															long BgL_arg2909z00_3376;

															BgL_arg2909z00_3376 =
																BGL_OBJECT_CLASS_NUM(BgL_arg2877z00_3352);
															BgL_arg2899z00_3375 =
																(BgL_arg2909z00_3376 - OBJECT_TYPE);
														}
														BgL_oclassz00_3366 =
															VECTOR_REF(BgL_arg2898z00_3374,
															BgL_arg2899z00_3375);
													}
													{	/* Eval/evaluate.scm 206 */
														bool_t BgL__ortest_1203z00_3367;

														BgL__ortest_1203z00_3367 =
															(BgL_classz00_3350 == BgL_oclassz00_3366);
														if (BgL__ortest_1203z00_3367)
															{	/* Eval/evaluate.scm 206 */
																BgL_res2930z00_3383 = BgL__ortest_1203z00_3367;
															}
														else
															{	/* Eval/evaluate.scm 206 */
																long BgL_odepthz00_3368;

																{	/* Eval/evaluate.scm 206 */
																	obj_t BgL_arg2873z00_3369;

																	BgL_arg2873z00_3369 = (BgL_oclassz00_3366);
																	BgL_odepthz00_3368 =
																		BGL_CLASS_DEPTH(BgL_arg2873z00_3369);
																}
																if ((2L < BgL_odepthz00_3368))
																	{	/* Eval/evaluate.scm 206 */
																		obj_t BgL_arg2871z00_3371;

																		{	/* Eval/evaluate.scm 206 */
																			obj_t BgL_arg2872z00_3372;

																			BgL_arg2872z00_3372 =
																				(BgL_oclassz00_3366);
																			BgL_arg2871z00_3371 =
																				BGL_CLASS_ANCESTORS_REF
																				(BgL_arg2872z00_3372, 2L);
																		}
																		BgL_res2930z00_3383 =
																			(BgL_arg2871z00_3371 ==
																			BgL_classz00_3350);
																	}
																else
																	{	/* Eval/evaluate.scm 206 */
																		BgL_res2930z00_3383 = ((bool_t) 0);
																	}
															}
													}
												}
												BgL_test3174z00_5225 = BgL_res2930z00_3383;
											}
									}
								else
									{	/* Eval/evaluate.scm 206 */
										BgL_test3174z00_5225 = ((bool_t) 0);
									}
							}
							if (BgL_test3174z00_5225)
								{	/* Eval/evaluate.scm 208 */
									obj_t BgL_g1080z00_1317;
									obj_t BgL_g1081z00_1318;

									{	/* Eval/evaluate.scm 209 */
										obj_t BgL_arg1412z00_1341;

										BgL_arg1412z00_1341 =
											(((BgL_ev_varz00_bglt) COBJECT(
													((BgL_ev_varz00_bglt) BgL_vz00_1314)))->BgL_typez00);
										BgL_g1080z00_1317 =
											BGl_classzd2existszd2zz__objectz00(BgL_arg1412z00_1341);
									}
									BgL_g1081z00_1318 = CDR(((obj_t) BgL_lz00_1313));
									{
										obj_t BgL_nodez00_1320;
										obj_t BgL_klassz00_1321;
										obj_t BgL_fieldsz00_1322;

										BgL_nodez00_1320 = BgL_vz00_1314;
										BgL_klassz00_1321 = BgL_g1080z00_1317;
										BgL_fieldsz00_1322 = BgL_g1081z00_1318;
									BgL_zc3z04anonymousza31397ze3z87_1323:
										if (NULLP(BgL_fieldsz00_1322))
											{	/* Eval/evaluate.scm 212 */
												return BgL_nodez00_1320;
											}
										else
											{	/* Eval/evaluate.scm 212 */
												if (BGl_classzf3zf3zz__objectz00(BgL_klassz00_1321))
													{	/* Eval/evaluate.scm 215 */
														obj_t BgL_fieldz00_1326;

														{	/* Eval/evaluate.scm 215 */
															obj_t BgL_arg1410z00_1337;

															BgL_arg1410z00_1337 =
																CAR(((obj_t) BgL_fieldsz00_1322));
															BgL_fieldz00_1326 =
																BGl_findzd2classzd2fieldz00zz__objectz00
																(BgL_klassz00_1321, BgL_arg1410z00_1337);
														}
														if (BGl_classzd2fieldzf3z21zz__objectz00
															(BgL_fieldz00_1326))
															{	/* Eval/evaluate.scm 217 */
																BgL_ev_appz00_bglt BgL_nodez00_1328;

																{	/* Eval/evaluate.scm 271 */
																	obj_t BgL_getz00_3386;

																	BgL_getz00_3386 =
																		BGl_classzd2fieldzd2accessorz00zz__objectz00
																		(BgL_fieldz00_1326);
																	{	/* Eval/evaluate.scm 272 */
																		BgL_ev_appz00_bglt BgL_new1088z00_3387;

																		{	/* Eval/evaluate.scm 273 */
																			BgL_ev_appz00_bglt BgL_new1087z00_3388;

																			BgL_new1087z00_3388 =
																				((BgL_ev_appz00_bglt)
																				BOBJECT(GC_MALLOC(sizeof(struct
																							BgL_ev_appz00_bgl))));
																			{	/* Eval/evaluate.scm 273 */
																				long BgL_arg1445z00_3389;

																				BgL_arg1445z00_3389 =
																					BGL_CLASS_NUM
																					(BGl_ev_appz00zz__evaluate_typesz00);
																				BGL_OBJECT_CLASS_NUM_SET((
																						(BgL_objectz00_bglt)
																						BgL_new1087z00_3388),
																					BgL_arg1445z00_3389);
																			}
																			BgL_new1088z00_3387 = BgL_new1087z00_3388;
																		}
																		((((BgL_ev_appz00_bglt)
																					COBJECT(BgL_new1088z00_3387))->
																				BgL_locz00) =
																			((obj_t) BgL_locz00_35), BUNSPEC);
																		{
																			BgL_ev_exprz00_bglt BgL_auxz00_5268;

																			{	/* Eval/evaluate.scm 274 */
																				BgL_ev_littz00_bglt BgL_new1090z00_3390;

																				{	/* Eval/evaluate.scm 274 */
																					BgL_ev_littz00_bglt
																						BgL_new1089z00_3391;
																					BgL_new1089z00_3391 =
																						((BgL_ev_littz00_bglt)
																						BOBJECT(GC_MALLOC(sizeof(struct
																									BgL_ev_littz00_bgl))));
																					{	/* Eval/evaluate.scm 274 */
																						long BgL_arg1443z00_3392;

																						{	/* Eval/evaluate.scm 274 */
																							obj_t BgL_classz00_3397;

																							BgL_classz00_3397 =
																								BGl_ev_littz00zz__evaluate_typesz00;
																							BgL_arg1443z00_3392 =
																								BGL_CLASS_NUM
																								(BgL_classz00_3397);
																						}
																						BGL_OBJECT_CLASS_NUM_SET(
																							((BgL_objectz00_bglt)
																								BgL_new1089z00_3391),
																							BgL_arg1443z00_3392);
																					}
																					BgL_new1090z00_3390 =
																						BgL_new1089z00_3391;
																				}
																				((((BgL_ev_littz00_bglt)
																							COBJECT(BgL_new1090z00_3390))->
																						BgL_valuez00) =
																					((obj_t) BgL_getz00_3386), BUNSPEC);
																				BgL_auxz00_5268 =
																					((BgL_ev_exprz00_bglt)
																					BgL_new1090z00_3390);
																			}
																			((((BgL_ev_appz00_bglt)
																						COBJECT(BgL_new1088z00_3387))->
																					BgL_funz00) =
																				((BgL_ev_exprz00_bglt) BgL_auxz00_5268),
																				BUNSPEC);
																		}
																		{
																			obj_t BgL_auxz00_5276;

																			{	/* Eval/evaluate.scm 275 */
																				obj_t BgL_list1444z00_3393;

																				BgL_list1444z00_3393 =
																					MAKE_YOUNG_PAIR(BgL_nodez00_1320,
																					BNIL);
																				BgL_auxz00_5276 = BgL_list1444z00_3393;
																			}
																			((((BgL_ev_appz00_bglt)
																						COBJECT(BgL_new1088z00_3387))->
																					BgL_argsz00) =
																				((obj_t) BgL_auxz00_5276), BUNSPEC);
																		}
																		((((BgL_ev_appz00_bglt)
																					COBJECT(BgL_new1088z00_3387))->
																				BgL_tailzf3zf3) =
																			((obj_t) BgL_tailzf3zf3_33), BUNSPEC);
																		BgL_nodez00_1328 = BgL_new1088z00_3387;
																}}
																{	/* Eval/evaluate.scm 220 */
																	obj_t BgL_arg1401z00_1329;
																	obj_t BgL_arg1402z00_1330;

																	BgL_arg1401z00_1329 =
																		BGl_classzd2fieldzd2typez00zz__objectz00
																		(BgL_fieldz00_1326);
																	BgL_arg1402z00_1330 =
																		CDR(((obj_t) BgL_fieldsz00_1322));
																	{
																		obj_t BgL_fieldsz00_5286;
																		obj_t BgL_klassz00_5285;
																		obj_t BgL_nodez00_5283;

																		BgL_nodez00_5283 =
																			((obj_t) BgL_nodez00_1328);
																		BgL_klassz00_5285 = BgL_arg1401z00_1329;
																		BgL_fieldsz00_5286 = BgL_arg1402z00_1330;
																		BgL_fieldsz00_1322 = BgL_fieldsz00_5286;
																		BgL_klassz00_1321 = BgL_klassz00_5285;
																		BgL_nodez00_1320 = BgL_nodez00_5283;
																		goto BgL_zc3z04anonymousza31397ze3z87_1323;
																	}
																}
															}
														else
															{	/* Eval/evaluate.scm 222 */
																obj_t BgL_arg1403z00_1331;
																obj_t BgL_arg1404z00_1332;

																BgL_arg1403z00_1331 =
																	(((BgL_ev_varz00_bglt) COBJECT(
																			((BgL_ev_varz00_bglt) BgL_vz00_1314)))->
																	BgL_typez00);
																{	/* Eval/evaluate.scm 223 */
																	obj_t BgL_arg1405z00_1333;
																	obj_t BgL_arg1407z00_1334;

																	BgL_arg1405z00_1333 =
																		(((BgL_ev_varz00_bglt) COBJECT(
																				((BgL_ev_varz00_bglt) BgL_vz00_1314)))->
																		BgL_typez00);
																	BgL_arg1407z00_1334 =
																		CAR(((obj_t) BgL_fieldsz00_1322));
																	{	/* Eval/evaluate.scm 223 */
																		obj_t BgL_list1408z00_1335;

																		{	/* Eval/evaluate.scm 223 */
																			obj_t BgL_arg1409z00_1336;

																			BgL_arg1409z00_1336 =
																				MAKE_YOUNG_PAIR(BgL_arg1407z00_1334,
																				BNIL);
																			BgL_list1408z00_1335 =
																				MAKE_YOUNG_PAIR(BgL_arg1405z00_1333,
																				BgL_arg1409z00_1336);
																		}
																		BgL_arg1404z00_1332 =
																			BGl_formatz00zz__r4_output_6_10_3z00
																			(BGl_string2961z00zz__evaluatez00,
																			BgL_list1408z00_1335);
																	}
																}
																return
																	BGl_evcompilezd2errorzd2zz__evcompilez00
																	(BgL_locz00_35, BgL_arg1403z00_1331,
																	BgL_arg1404z00_1332, BgL_ez00_30);
															}
													}
												else
													{	/* Eval/evaluate.scm 226 */
														obj_t BgL_arg1411z00_1338;

														{	/* Eval/evaluate.scm 226 */
															obj_t BgL__ortest_1082z00_1339;

															BgL__ortest_1082z00_1339 =
																(((BgL_ev_varz00_bglt) COBJECT(
																		((BgL_ev_varz00_bglt) BgL_vz00_1314)))->
																BgL_typez00);
															if (CBOOL(BgL__ortest_1082z00_1339))
																{	/* Eval/evaluate.scm 226 */
																	BgL_arg1411z00_1338 =
																		BgL__ortest_1082z00_1339;
																}
															else
																{	/* Eval/evaluate.scm 226 */
																	BgL_arg1411z00_1338 =
																		(((BgL_ev_varz00_bglt) COBJECT(
																				((BgL_ev_varz00_bglt) BgL_vz00_1314)))->
																		BgL_namez00);
																}
														}
														return
															BGl_evcompilezd2errorzd2zz__evcompilez00
															(BgL_locz00_35, BgL_arg1411z00_1338,
															BGl_string2962z00zz__evaluatez00, BgL_ez00_30);
													}
											}
									}
								}
							else
								{	/* Eval/evaluate.scm 228 */
									obj_t BgL_arg1413z00_1342;

									{	/* Eval/evaluate.scm 228 */
										obj_t BgL_pairz00_3406;

										BgL_pairz00_3406 = CDR(((obj_t) BgL_ez00_30));
										BgL_arg1413z00_1342 = CAR(BgL_pairz00_3406);
									}
									return
										BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_35,
										BgL_arg1413z00_1342, BGl_string2963z00zz__evaluatez00,
										BgL_ez00_30);
								}
						}
					}
				}
			}
		}

	}



/* conv-field-set */
	obj_t BGl_convzd2fieldzd2setz00zz__evaluatez00(obj_t BgL_lz00_37,
		obj_t BgL_e2z00_38, obj_t BgL_ez00_39, obj_t BgL_localsz00_40,
		obj_t BgL_globalsz00_41, obj_t BgL_tailzf3zf3_42, obj_t BgL_wherez00_43,
		obj_t BgL_locz00_44, bool_t BgL_topzf3zf3_45)
	{
		{	/* Eval/evaluate.scm 233 */
			{	/* Eval/evaluate.scm 234 */
				obj_t BgL_vz00_1344;

				BgL_vz00_1344 =
					BGl_convzd2varzd2zz__evaluatez00(CAR(BgL_lz00_37), BgL_localsz00_40);
				{	/* Eval/evaluate.scm 234 */
					obj_t BgL_e2z00_1345;

					BgL_e2z00_1345 =
						BGl_convz00zz__evaluatez00(BgL_e2z00_38, BgL_localsz00_40,
						BgL_globalsz00_41, BFALSE, BgL_wherez00_43, BgL_locz00_44,
						((bool_t) 0));
					{	/* Eval/evaluate.scm 235 */

						{	/* Eval/evaluate.scm 236 */
							bool_t BgL_test3183z00_5311;

							{	/* Eval/evaluate.scm 236 */
								obj_t BgL_classz00_3408;

								BgL_classz00_3408 = BGl_ev_varz00zz__evaluate_typesz00;
								if (BGL_OBJECTP(BgL_vz00_1344))
									{	/* Eval/evaluate.scm 236 */
										BgL_objectz00_bglt BgL_arg2877z00_3410;

										BgL_arg2877z00_3410 = (BgL_objectz00_bglt) (BgL_vz00_1344);
										if (BGL_CONDEXPAND_ISA_ARCH64())
											{	/* Eval/evaluate.scm 236 */
												long BgL_idxz00_3416;

												BgL_idxz00_3416 =
													BGL_OBJECT_INHERITANCE_NUM(BgL_arg2877z00_3410);
												BgL_test3183z00_5311 =
													(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
														(BgL_idxz00_3416 + 2L)) == BgL_classz00_3408);
											}
										else
											{	/* Eval/evaluate.scm 236 */
												bool_t BgL_res2932z00_3441;

												{	/* Eval/evaluate.scm 236 */
													obj_t BgL_oclassz00_3424;

													{	/* Eval/evaluate.scm 236 */
														obj_t BgL_arg2898z00_3432;
														long BgL_arg2899z00_3433;

														BgL_arg2898z00_3432 =
															(BGl_za2classesza2z00zz__objectz00);
														{	/* Eval/evaluate.scm 236 */
															long BgL_arg2909z00_3434;

															BgL_arg2909z00_3434 =
																BGL_OBJECT_CLASS_NUM(BgL_arg2877z00_3410);
															BgL_arg2899z00_3433 =
																(BgL_arg2909z00_3434 - OBJECT_TYPE);
														}
														BgL_oclassz00_3424 =
															VECTOR_REF(BgL_arg2898z00_3432,
															BgL_arg2899z00_3433);
													}
													{	/* Eval/evaluate.scm 236 */
														bool_t BgL__ortest_1203z00_3425;

														BgL__ortest_1203z00_3425 =
															(BgL_classz00_3408 == BgL_oclassz00_3424);
														if (BgL__ortest_1203z00_3425)
															{	/* Eval/evaluate.scm 236 */
																BgL_res2932z00_3441 = BgL__ortest_1203z00_3425;
															}
														else
															{	/* Eval/evaluate.scm 236 */
																long BgL_odepthz00_3426;

																{	/* Eval/evaluate.scm 236 */
																	obj_t BgL_arg2873z00_3427;

																	BgL_arg2873z00_3427 = (BgL_oclassz00_3424);
																	BgL_odepthz00_3426 =
																		BGL_CLASS_DEPTH(BgL_arg2873z00_3427);
																}
																if ((2L < BgL_odepthz00_3426))
																	{	/* Eval/evaluate.scm 236 */
																		obj_t BgL_arg2871z00_3429;

																		{	/* Eval/evaluate.scm 236 */
																			obj_t BgL_arg2872z00_3430;

																			BgL_arg2872z00_3430 =
																				(BgL_oclassz00_3424);
																			BgL_arg2871z00_3429 =
																				BGL_CLASS_ANCESTORS_REF
																				(BgL_arg2872z00_3430, 2L);
																		}
																		BgL_res2932z00_3441 =
																			(BgL_arg2871z00_3429 ==
																			BgL_classz00_3408);
																	}
																else
																	{	/* Eval/evaluate.scm 236 */
																		BgL_res2932z00_3441 = ((bool_t) 0);
																	}
															}
													}
												}
												BgL_test3183z00_5311 = BgL_res2932z00_3441;
											}
									}
								else
									{	/* Eval/evaluate.scm 236 */
										BgL_test3183z00_5311 = ((bool_t) 0);
									}
							}
							if (BgL_test3183z00_5311)
								{	/* Eval/evaluate.scm 238 */
									obj_t BgL_g1084z00_1348;
									obj_t BgL_g1085z00_1349;

									{	/* Eval/evaluate.scm 239 */
										obj_t BgL_arg1438z00_1380;

										BgL_arg1438z00_1380 =
											(((BgL_ev_varz00_bglt) COBJECT(
													((BgL_ev_varz00_bglt) BgL_vz00_1344)))->BgL_typez00);
										BgL_g1084z00_1348 =
											BGl_classzd2existszd2zz__objectz00(BgL_arg1438z00_1380);
									}
									BgL_g1085z00_1349 = CDR(BgL_lz00_37);
									{
										obj_t BgL_nodez00_1351;
										obj_t BgL_klassz00_1352;
										obj_t BgL_fieldsz00_1353;

										BgL_nodez00_1351 = BgL_vz00_1344;
										BgL_klassz00_1352 = BgL_g1084z00_1348;
										BgL_fieldsz00_1353 = BgL_g1085z00_1349;
									BgL_zc3z04anonymousza31416ze3z87_1354:
										if (NULLP(BgL_fieldsz00_1353))
											{	/* Eval/evaluate.scm 242 */
												return BgL_nodez00_1351;
											}
										else
											{	/* Eval/evaluate.scm 242 */
												if (BGl_classzf3zf3zz__objectz00(BgL_klassz00_1352))
													{	/* Eval/evaluate.scm 245 */
														obj_t BgL_fieldz00_1357;

														{	/* Eval/evaluate.scm 245 */
															obj_t BgL_arg1436z00_1376;

															BgL_arg1436z00_1376 =
																CAR(((obj_t) BgL_fieldsz00_1353));
															BgL_fieldz00_1357 =
																BGl_findzd2classzd2fieldz00zz__objectz00
																(BgL_klassz00_1352, BgL_arg1436z00_1376);
														}
														if (BGl_classzd2fieldzf3z21zz__objectz00
															(BgL_fieldz00_1357))
															{	/* Eval/evaluate.scm 246 */
																if (NULLP(CDR(((obj_t) BgL_fieldsz00_1353))))
																	{	/* Eval/evaluate.scm 247 */
																		if (BGl_classzd2fieldzd2mutablezf3zf3zz__objectz00(BgL_fieldz00_1357))
																			{	/* Eval/evaluate.scm 250 */
																				obj_t BgL_arg1423z00_1362;

																				{	/* Eval/evaluate.scm 250 */
																					obj_t BgL_list1424z00_1363;

																					{	/* Eval/evaluate.scm 250 */
																						obj_t BgL_arg1425z00_1364;

																						BgL_arg1425z00_1364 =
																							MAKE_YOUNG_PAIR(BgL_e2z00_1345,
																							BNIL);
																						BgL_list1424z00_1363 =
																							MAKE_YOUNG_PAIR(BgL_nodez00_1351,
																							BgL_arg1425z00_1364);
																					}
																					BgL_arg1423z00_1362 =
																						BgL_list1424z00_1363;
																				}
																				{	/* Eval/evaluate.scm 282 */
																					obj_t BgL_setz00_3446;

																					BgL_setz00_3446 =
																						BGl_classzd2fieldzd2mutatorz00zz__objectz00
																						(BgL_fieldz00_1357);
																					{	/* Eval/evaluate.scm 283 */
																						BgL_ev_appz00_bglt
																							BgL_new1092z00_3447;
																						{	/* Eval/evaluate.scm 284 */
																							BgL_ev_appz00_bglt
																								BgL_new1091z00_3448;
																							BgL_new1091z00_3448 =
																								((BgL_ev_appz00_bglt)
																								BOBJECT(GC_MALLOC(sizeof(struct
																											BgL_ev_appz00_bgl))));
																							{	/* Eval/evaluate.scm 284 */
																								long BgL_arg1447z00_3449;

																								BgL_arg1447z00_3449 =
																									BGL_CLASS_NUM
																									(BGl_ev_appz00zz__evaluate_typesz00);
																								BGL_OBJECT_CLASS_NUM_SET((
																										(BgL_objectz00_bglt)
																										BgL_new1091z00_3448),
																									BgL_arg1447z00_3449);
																							}
																							BgL_new1092z00_3447 =
																								BgL_new1091z00_3448;
																						}
																						((((BgL_ev_appz00_bglt)
																									COBJECT
																									(BgL_new1092z00_3447))->
																								BgL_locz00) =
																							((obj_t) BgL_locz00_44), BUNSPEC);
																						{
																							BgL_ev_exprz00_bglt
																								BgL_auxz00_5361;
																							{	/* Eval/evaluate.scm 285 */
																								BgL_ev_littz00_bglt
																									BgL_new1094z00_3450;
																								{	/* Eval/evaluate.scm 285 */
																									BgL_ev_littz00_bglt
																										BgL_new1093z00_3451;
																									BgL_new1093z00_3451 =
																										((BgL_ev_littz00_bglt)
																										BOBJECT(GC_MALLOC(sizeof
																												(struct
																													BgL_ev_littz00_bgl))));
																									{	/* Eval/evaluate.scm 285 */
																										long BgL_arg1446z00_3452;

																										{	/* Eval/evaluate.scm 285 */
																											obj_t BgL_classz00_3456;

																											BgL_classz00_3456 =
																												BGl_ev_littz00zz__evaluate_typesz00;
																											BgL_arg1446z00_3452 =
																												BGL_CLASS_NUM
																												(BgL_classz00_3456);
																										}
																										BGL_OBJECT_CLASS_NUM_SET(
																											((BgL_objectz00_bglt)
																												BgL_new1093z00_3451),
																											BgL_arg1446z00_3452);
																									}
																									BgL_new1094z00_3450 =
																										BgL_new1093z00_3451;
																								}
																								((((BgL_ev_littz00_bglt)
																											COBJECT
																											(BgL_new1094z00_3450))->
																										BgL_valuez00) =
																									((obj_t) BgL_setz00_3446),
																									BUNSPEC);
																								BgL_auxz00_5361 =
																									((BgL_ev_exprz00_bglt)
																									BgL_new1094z00_3450);
																							}
																							((((BgL_ev_appz00_bglt)
																										COBJECT
																										(BgL_new1092z00_3447))->
																									BgL_funz00) =
																								((BgL_ev_exprz00_bglt)
																									BgL_auxz00_5361), BUNSPEC);
																						}
																						((((BgL_ev_appz00_bglt)
																									COBJECT
																									(BgL_new1092z00_3447))->
																								BgL_argsz00) =
																							((obj_t) BgL_arg1423z00_1362),
																							BUNSPEC);
																						((((BgL_ev_appz00_bglt)
																									COBJECT
																									(BgL_new1092z00_3447))->
																								BgL_tailzf3zf3) =
																							((obj_t) BgL_tailzf3zf3_42),
																							BUNSPEC);
																						return ((obj_t)
																							BgL_new1092z00_3447);
																					}
																				}
																			}
																		else
																			{	/* Eval/evaluate.scm 251 */
																				obj_t BgL_arg1426z00_1365;

																				BgL_arg1426z00_1365 =
																					CAR(((obj_t) BgL_fieldsz00_1353));
																				return
																					BGl_evcompilezd2errorzd2zz__evcompilez00
																					(BgL_locz00_44, BgL_arg1426z00_1365,
																					BGl_string2964z00zz__evaluatez00,
																					BgL_ez00_39);
																			}
																	}
																else
																	{	/* Eval/evaluate.scm 254 */
																		BgL_ev_appz00_bglt BgL_nodez00_1366;

																		{	/* Eval/evaluate.scm 271 */
																			obj_t BgL_getz00_3460;

																			BgL_getz00_3460 =
																				BGl_classzd2fieldzd2accessorz00zz__objectz00
																				(BgL_fieldz00_1357);
																			{	/* Eval/evaluate.scm 272 */
																				BgL_ev_appz00_bglt BgL_new1088z00_3461;

																				{	/* Eval/evaluate.scm 273 */
																					BgL_ev_appz00_bglt
																						BgL_new1087z00_3462;
																					BgL_new1087z00_3462 =
																						((BgL_ev_appz00_bglt)
																						BOBJECT(GC_MALLOC(sizeof(struct
																									BgL_ev_appz00_bgl))));
																					{	/* Eval/evaluate.scm 273 */
																						long BgL_arg1445z00_3463;

																						BgL_arg1445z00_3463 =
																							BGL_CLASS_NUM
																							(BGl_ev_appz00zz__evaluate_typesz00);
																						BGL_OBJECT_CLASS_NUM_SET((
																								(BgL_objectz00_bglt)
																								BgL_new1087z00_3462),
																							BgL_arg1445z00_3463);
																					}
																					BgL_new1088z00_3461 =
																						BgL_new1087z00_3462;
																				}
																				((((BgL_ev_appz00_bglt)
																							COBJECT(BgL_new1088z00_3461))->
																						BgL_locz00) =
																					((obj_t) BgL_locz00_44), BUNSPEC);
																				{
																					BgL_ev_exprz00_bglt BgL_auxz00_5381;

																					{	/* Eval/evaluate.scm 274 */
																						BgL_ev_littz00_bglt
																							BgL_new1090z00_3464;
																						{	/* Eval/evaluate.scm 274 */
																							BgL_ev_littz00_bglt
																								BgL_new1089z00_3465;
																							BgL_new1089z00_3465 =
																								((BgL_ev_littz00_bglt)
																								BOBJECT(GC_MALLOC(sizeof(struct
																											BgL_ev_littz00_bgl))));
																							{	/* Eval/evaluate.scm 274 */
																								long BgL_arg1443z00_3466;

																								{	/* Eval/evaluate.scm 274 */
																									obj_t BgL_classz00_3471;

																									BgL_classz00_3471 =
																										BGl_ev_littz00zz__evaluate_typesz00;
																									BgL_arg1443z00_3466 =
																										BGL_CLASS_NUM
																										(BgL_classz00_3471);
																								}
																								BGL_OBJECT_CLASS_NUM_SET(
																									((BgL_objectz00_bglt)
																										BgL_new1089z00_3465),
																									BgL_arg1443z00_3466);
																							}
																							BgL_new1090z00_3464 =
																								BgL_new1089z00_3465;
																						}
																						((((BgL_ev_littz00_bglt)
																									COBJECT
																									(BgL_new1090z00_3464))->
																								BgL_valuez00) =
																							((obj_t) BgL_getz00_3460),
																							BUNSPEC);
																						BgL_auxz00_5381 =
																							((BgL_ev_exprz00_bglt)
																							BgL_new1090z00_3464);
																					}
																					((((BgL_ev_appz00_bglt)
																								COBJECT(BgL_new1088z00_3461))->
																							BgL_funz00) =
																						((BgL_ev_exprz00_bglt)
																							BgL_auxz00_5381), BUNSPEC);
																				}
																				{
																					obj_t BgL_auxz00_5389;

																					{	/* Eval/evaluate.scm 275 */
																						obj_t BgL_list1444z00_3467;

																						BgL_list1444z00_3467 =
																							MAKE_YOUNG_PAIR(BgL_nodez00_1351,
																							BNIL);
																						BgL_auxz00_5389 =
																							BgL_list1444z00_3467;
																					}
																					((((BgL_ev_appz00_bglt)
																								COBJECT(BgL_new1088z00_3461))->
																							BgL_argsz00) =
																						((obj_t) BgL_auxz00_5389), BUNSPEC);
																				}
																				((((BgL_ev_appz00_bglt)
																							COBJECT(BgL_new1088z00_3461))->
																						BgL_tailzf3zf3) =
																					((obj_t) BgL_tailzf3zf3_42), BUNSPEC);
																				BgL_nodez00_1366 = BgL_new1088z00_3461;
																		}}
																		{	/* Eval/evaluate.scm 257 */
																			obj_t BgL_arg1427z00_1367;
																			obj_t BgL_arg1428z00_1368;

																			BgL_arg1427z00_1367 =
																				BGl_classzd2fieldzd2typez00zz__objectz00
																				(BgL_fieldz00_1357);
																			BgL_arg1428z00_1368 =
																				CDR(((obj_t) BgL_fieldsz00_1353));
																			{
																				obj_t BgL_fieldsz00_5399;
																				obj_t BgL_klassz00_5398;
																				obj_t BgL_nodez00_5396;

																				BgL_nodez00_5396 =
																					((obj_t) BgL_nodez00_1366);
																				BgL_klassz00_5398 = BgL_arg1427z00_1367;
																				BgL_fieldsz00_5399 =
																					BgL_arg1428z00_1368;
																				BgL_fieldsz00_1353 = BgL_fieldsz00_5399;
																				BgL_klassz00_1352 = BgL_klassz00_5398;
																				BgL_nodez00_1351 = BgL_nodez00_5396;
																				goto
																					BgL_zc3z04anonymousza31416ze3z87_1354;
																			}
																		}
																	}
															}
														else
															{	/* Eval/evaluate.scm 259 */
																obj_t BgL_arg1430z00_1370;
																obj_t BgL_arg1431z00_1371;

																BgL_arg1430z00_1370 =
																	(((BgL_ev_varz00_bglt) COBJECT(
																			((BgL_ev_varz00_bglt) BgL_vz00_1344)))->
																	BgL_typez00);
																{	/* Eval/evaluate.scm 260 */
																	obj_t BgL_arg1432z00_1372;
																	obj_t BgL_arg1433z00_1373;

																	BgL_arg1432z00_1372 =
																		(((BgL_ev_varz00_bglt) COBJECT(
																				((BgL_ev_varz00_bglt) BgL_vz00_1344)))->
																		BgL_typez00);
																	BgL_arg1433z00_1373 =
																		CAR(((obj_t) BgL_fieldsz00_1353));
																	{	/* Eval/evaluate.scm 260 */
																		obj_t BgL_list1434z00_1374;

																		{	/* Eval/evaluate.scm 260 */
																			obj_t BgL_arg1435z00_1375;

																			BgL_arg1435z00_1375 =
																				MAKE_YOUNG_PAIR(BgL_arg1433z00_1373,
																				BNIL);
																			BgL_list1434z00_1374 =
																				MAKE_YOUNG_PAIR(BgL_arg1432z00_1372,
																				BgL_arg1435z00_1375);
																		}
																		BgL_arg1431z00_1371 =
																			BGl_formatz00zz__r4_output_6_10_3z00
																			(BGl_string2961z00zz__evaluatez00,
																			BgL_list1434z00_1374);
																	}
																}
																return
																	BGl_evcompilezd2errorzd2zz__evcompilez00
																	(BgL_locz00_44, BgL_arg1430z00_1370,
																	BgL_arg1431z00_1371, BgL_ez00_39);
															}
													}
												else
													{	/* Eval/evaluate.scm 264 */
														obj_t BgL_arg1437z00_1377;

														{	/* Eval/evaluate.scm 264 */
															obj_t BgL__ortest_1086z00_1378;

															BgL__ortest_1086z00_1378 =
																(((BgL_ev_varz00_bglt) COBJECT(
																		((BgL_ev_varz00_bglt) BgL_vz00_1344)))->
																BgL_typez00);
															if (CBOOL(BgL__ortest_1086z00_1378))
																{	/* Eval/evaluate.scm 264 */
																	BgL_arg1437z00_1377 =
																		BgL__ortest_1086z00_1378;
																}
															else
																{	/* Eval/evaluate.scm 264 */
																	BgL_arg1437z00_1377 =
																		(((BgL_ev_varz00_bglt) COBJECT(
																				((BgL_ev_varz00_bglt) BgL_vz00_1344)))->
																		BgL_namez00);
																}
														}
														return
															BGl_evcompilezd2errorzd2zz__evcompilez00
															(BgL_locz00_44, BgL_arg1437z00_1377,
															BGl_string2962z00zz__evaluatez00, BgL_ez00_39);
													}
											}
									}
								}
							else
								{	/* Eval/evaluate.scm 236 */
									return
										BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_44,
										CAR(BgL_lz00_37), BGl_string2963z00zz__evaluatez00,
										BgL_ez00_39);
								}
						}
					}
				}
			}
		}

	}



/* type-check */
	obj_t BGl_typezd2checkzd2zz__evaluatez00(obj_t BgL_varz00_56,
		obj_t BgL_tnamez00_57, obj_t BgL_locz00_58, obj_t BgL_procnamez00_59,
		obj_t BgL_bodyz00_60)
	{
		{	/* Eval/evaluate.scm 298 */
			if (SYMBOLP(BgL_tnamez00_57))
				{	/* Eval/evaluate.scm 301 */
					obj_t BgL_predz00_1401;

					if ((BgL_tnamez00_57 == BGl_symbol2965z00zz__evaluatez00))
						{	/* Eval/evaluate.scm 301 */
							BgL_predz00_1401 = BGl_symbol2967z00zz__evaluatez00;
						}
					else
						{	/* Eval/evaluate.scm 301 */
							if ((BgL_tnamez00_57 == BGl_symbol2969z00zz__evaluatez00))
								{	/* Eval/evaluate.scm 301 */
									BgL_predz00_1401 = BGl_symbol2970z00zz__evaluatez00;
								}
							else
								{	/* Eval/evaluate.scm 301 */
									if ((BgL_tnamez00_57 == BGl_symbol2972z00zz__evaluatez00))
										{	/* Eval/evaluate.scm 301 */
											BgL_predz00_1401 = BGl_symbol2974z00zz__evaluatez00;
										}
									else
										{	/* Eval/evaluate.scm 301 */
											if ((BgL_tnamez00_57 == BGl_symbol2976z00zz__evaluatez00))
												{	/* Eval/evaluate.scm 301 */
													BgL_predz00_1401 = BGl_symbol2978z00zz__evaluatez00;
												}
											else
												{	/* Eval/evaluate.scm 301 */
													bool_t BgL_test3199z00_5429;

													{	/* Eval/evaluate.scm 301 */
														bool_t BgL__ortest_1095z00_1477;

														BgL__ortest_1095z00_1477 =
															(BgL_tnamez00_57 ==
															BGl_symbol2980z00zz__evaluatez00);
														if (BgL__ortest_1095z00_1477)
															{	/* Eval/evaluate.scm 301 */
																BgL_test3199z00_5429 = BgL__ortest_1095z00_1477;
															}
														else
															{	/* Eval/evaluate.scm 301 */
																BgL_test3199z00_5429 =
																	(BgL_tnamez00_57 ==
																	BGl_symbol2982z00zz__evaluatez00);
															}
													}
													if (BgL_test3199z00_5429)
														{	/* Eval/evaluate.scm 301 */
															BgL_predz00_1401 =
																BGl_symbol2983z00zz__evaluatez00;
														}
													else
														{	/* Eval/evaluate.scm 301 */
															bool_t BgL_test3201z00_5433;

															{	/* Eval/evaluate.scm 301 */
																bool_t BgL__ortest_1096z00_1476;

																BgL__ortest_1096z00_1476 =
																	(BgL_tnamez00_57 ==
																	BGl_symbol2985z00zz__evaluatez00);
																if (BgL__ortest_1096z00_1476)
																	{	/* Eval/evaluate.scm 301 */
																		BgL_test3201z00_5433 =
																			BgL__ortest_1096z00_1476;
																	}
																else
																	{	/* Eval/evaluate.scm 301 */
																		BgL_test3201z00_5433 =
																			(BgL_tnamez00_57 ==
																			BGl_symbol2987z00zz__evaluatez00);
																	}
															}
															if (BgL_test3201z00_5433)
																{	/* Eval/evaluate.scm 301 */
																	BgL_predz00_1401 =
																		BGl_symbol2989z00zz__evaluatez00;
																}
															else
																{	/* Eval/evaluate.scm 301 */
																	if (
																		(BgL_tnamez00_57 ==
																			BGl_symbol2991z00zz__evaluatez00))
																		{	/* Eval/evaluate.scm 301 */
																			BgL_predz00_1401 =
																				BGl_symbol2993z00zz__evaluatez00;
																		}
																	else
																		{	/* Eval/evaluate.scm 301 */
																			if (
																				(BgL_tnamez00_57 ==
																					BGl_symbol2995z00zz__evaluatez00))
																				{	/* Eval/evaluate.scm 301 */
																					BgL_predz00_1401 =
																						BGl_symbol2997z00zz__evaluatez00;
																				}
																			else
																				{	/* Eval/evaluate.scm 301 */
																					if (
																						(BgL_tnamez00_57 ==
																							BGl_symbol2999z00zz__evaluatez00))
																						{	/* Eval/evaluate.scm 301 */
																							BgL_predz00_1401 =
																								BGl_symbol3001z00zz__evaluatez00;
																						}
																					else
																						{	/* Eval/evaluate.scm 301 */
																							bool_t BgL_test3206z00_5443;

																							{	/* Eval/evaluate.scm 301 */
																								bool_t BgL__ortest_1097z00_1475;

																								BgL__ortest_1097z00_1475 =
																									(BgL_tnamez00_57 ==
																									BGl_symbol3003z00zz__evaluatez00);
																								if (BgL__ortest_1097z00_1475)
																									{	/* Eval/evaluate.scm 301 */
																										BgL_test3206z00_5443 =
																											BgL__ortest_1097z00_1475;
																									}
																								else
																									{	/* Eval/evaluate.scm 301 */
																										BgL_test3206z00_5443 =
																											(BgL_tnamez00_57 ==
																											BGl_symbol3005z00zz__evaluatez00);
																									}
																							}
																							if (BgL_test3206z00_5443)
																								{	/* Eval/evaluate.scm 301 */
																									BgL_predz00_1401 =
																										BGl_symbol3007z00zz__evaluatez00;
																								}
																							else
																								{	/* Eval/evaluate.scm 312 */
																									obj_t BgL_arg1498z00_1455;

																									{	/* Eval/evaluate.scm 312 */
																										obj_t BgL_arg1499z00_1456;
																										obj_t BgL_arg1500z00_1457;

																										BgL_arg1499z00_1456 =
																											MAKE_YOUNG_PAIR
																											(BGl_symbol3009z00zz__evaluatez00,
																											BNIL);
																										{	/* Eval/evaluate.scm 313 */
																											obj_t BgL_arg1501z00_1458;

																											{	/* Eval/evaluate.scm 313 */
																												obj_t
																													BgL_arg1502z00_1459;
																												{	/* Eval/evaluate.scm 313 */
																													obj_t
																														BgL_arg1505z00_1460;
																													obj_t
																														BgL_arg1506z00_1461;
																													{	/* Eval/evaluate.scm 313 */
																														obj_t
																															BgL_arg1507z00_1462;
																														{	/* Eval/evaluate.scm 313 */
																															obj_t
																																BgL_arg1508z00_1463;
																															{	/* Eval/evaluate.scm 313 */
																																obj_t
																																	BgL_arg1509z00_1464;
																																{	/* Eval/evaluate.scm 313 */
																																	obj_t
																																		BgL_arg1510z00_1465;
																																	{	/* Eval/evaluate.scm 313 */
																																		obj_t
																																			BgL_arg1511z00_1466;
																																		{	/* Eval/evaluate.scm 313 */
																																			obj_t
																																				BgL_arg1512z00_1467;
																																			BgL_arg1512z00_1467
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_tnamez00_57,
																																				BNIL);
																																			BgL_arg1511z00_1466
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BGl_symbol3011z00zz__evaluatez00,
																																				BgL_arg1512z00_1467);
																																		}
																																		BgL_arg1510z00_1465
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BgL_arg1511z00_1466,
																																			BNIL);
																																	}
																																	BgL_arg1509z00_1464
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BGl_symbol3013z00zz__evaluatez00,
																																		BgL_arg1510z00_1465);
																																}
																																BgL_arg1508z00_1463
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_arg1509z00_1464,
																																	BNIL);
																															}
																															BgL_arg1507z00_1462
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_symbol3015z00zz__evaluatez00,
																																BgL_arg1508z00_1463);
																														}
																														BgL_arg1505z00_1460
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_arg1507z00_1462,
																															BNIL);
																													}
																													{	/* Eval/evaluate.scm 314 */
																														obj_t
																															BgL_arg1513z00_1468;
																														{	/* Eval/evaluate.scm 314 */
																															obj_t
																																BgL_arg1514z00_1469;
																															{	/* Eval/evaluate.scm 314 */
																																obj_t
																																	BgL_arg1515z00_1470;
																																{	/* Eval/evaluate.scm 314 */
																																	obj_t
																																		BgL_arg1516z00_1471;
																																	obj_t
																																		BgL_arg1517z00_1472;
																																	{	/* Eval/evaluate.scm 314 */
																																		obj_t
																																			BgL_arg1520z00_1473;
																																		{	/* Eval/evaluate.scm 314 */
																																			obj_t
																																				BgL_arg1521z00_1474;
																																			BgL_arg1521z00_1474
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BGl_symbol3015z00zz__evaluatez00,
																																				BNIL);
																																			BgL_arg1520z00_1473
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BGl_symbol3009z00zz__evaluatez00,
																																				BgL_arg1521z00_1474);
																																		}
																																		BgL_arg1516z00_1471
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BGl_symbol3017z00zz__evaluatez00,
																																			BgL_arg1520z00_1473);
																																	}
																																	BgL_arg1517z00_1472
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BTRUE,
																																		BNIL);
																																	BgL_arg1515z00_1470
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_arg1516z00_1471,
																																		BgL_arg1517z00_1472);
																																}
																																BgL_arg1514z00_1469
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BGl_symbol3015z00zz__evaluatez00,
																																	BgL_arg1515z00_1470);
																															}
																															BgL_arg1513z00_1468
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_symbol3019z00zz__evaluatez00,
																																BgL_arg1514z00_1469);
																														}
																														BgL_arg1506z00_1461
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_arg1513z00_1468,
																															BNIL);
																													}
																													BgL_arg1502z00_1459 =
																														MAKE_YOUNG_PAIR
																														(BgL_arg1505z00_1460,
																														BgL_arg1506z00_1461);
																												}
																												BgL_arg1501z00_1458 =
																													MAKE_YOUNG_PAIR
																													(BGl_symbol3021z00zz__evaluatez00,
																													BgL_arg1502z00_1459);
																											}
																											BgL_arg1500z00_1457 =
																												MAKE_YOUNG_PAIR
																												(BgL_arg1501z00_1458,
																												BNIL);
																										}
																										BgL_arg1498z00_1455 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg1499z00_1456,
																											BgL_arg1500z00_1457);
																									}
																									BgL_predz00_1401 =
																										MAKE_YOUNG_PAIR
																										(BGl_symbol3023z00zz__evaluatez00,
																										BgL_arg1498z00_1455);
																								}
																						}
																				}
																		}
																}
														}
												}
										}
								}
						}
					{	/* Eval/evaluate.scm 316 */
						obj_t BgL_arg1452z00_1402;

						{	/* Eval/evaluate.scm 316 */
							obj_t BgL_arg1453z00_1403;

							{	/* Eval/evaluate.scm 316 */
								obj_t BgL_arg1455z00_1404;
								obj_t BgL_arg1456z00_1405;

								{	/* Eval/evaluate.scm 316 */
									obj_t BgL_arg1457z00_1406;

									BgL_arg1457z00_1406 = MAKE_YOUNG_PAIR(BgL_varz00_56, BNIL);
									BgL_arg1455z00_1404 =
										MAKE_YOUNG_PAIR(BgL_predz00_1401, BgL_arg1457z00_1406);
								}
								{	/* Eval/evaluate.scm 316 */
									obj_t BgL_arg1458z00_1407;

									{	/* Eval/evaluate.scm 316 */
										obj_t BgL_arg1459z00_1408;

										{
											obj_t BgL_fnamez00_1409;
											obj_t BgL_posz00_1410;

											if (PAIRP(BgL_locz00_58))
												{	/* Eval/evaluate.scm 316 */
													obj_t BgL_cdrzd2138zd2_1415;

													BgL_cdrzd2138zd2_1415 = CDR(((obj_t) BgL_locz00_58));
													if (
														(CAR(
																((obj_t) BgL_locz00_58)) ==
															BGl_symbol3029z00zz__evaluatez00))
														{	/* Eval/evaluate.scm 316 */
															if (PAIRP(BgL_cdrzd2138zd2_1415))
																{	/* Eval/evaluate.scm 316 */
																	obj_t BgL_cdrzd2142zd2_1419;

																	BgL_cdrzd2142zd2_1419 =
																		CDR(BgL_cdrzd2138zd2_1415);
																	if (PAIRP(BgL_cdrzd2142zd2_1419))
																		{	/* Eval/evaluate.scm 316 */
																			if (NULLP(CDR(BgL_cdrzd2142zd2_1419)))
																				{	/* Eval/evaluate.scm 316 */
																					BgL_fnamez00_1409 =
																						CAR(BgL_cdrzd2138zd2_1415);
																					BgL_posz00_1410 =
																						CAR(BgL_cdrzd2142zd2_1419);
																					{	/* Eval/evaluate.scm 321 */
																						obj_t BgL_arg1471z00_1427;

																						{	/* Eval/evaluate.scm 321 */
																							obj_t BgL_arg1472z00_1428;
																							obj_t BgL_arg1473z00_1429;

																							if (SYMBOLP(BgL_procnamez00_59))
																								{	/* Eval/evaluate.scm 321 */
																									obj_t BgL_arg2654z00_3519;

																									BgL_arg2654z00_3519 =
																										SYMBOL_TO_STRING
																										(BgL_procnamez00_59);
																									BgL_arg1472z00_1428 =
																										BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																										(BgL_arg2654z00_3519);
																								}
																							else
																								{	/* Eval/evaluate.scm 321 */
																									BgL_arg1472z00_1428 = BFALSE;
																								}
																							{	/* Eval/evaluate.scm 322 */
																								obj_t BgL_arg1475z00_1431;
																								obj_t BgL_arg1476z00_1432;

																								{	/* Eval/evaluate.scm 322 */
																									obj_t BgL_arg2654z00_3521;

																									BgL_arg2654z00_3521 =
																										SYMBOL_TO_STRING(
																										((obj_t) BgL_tnamez00_57));
																									BgL_arg1475z00_1431 =
																										BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																										(BgL_arg2654z00_3521);
																								}
																								{	/* Eval/evaluate.scm 320 */
																									obj_t BgL_arg1479z00_1433;

																									{	/* Eval/evaluate.scm 320 */
																										obj_t BgL_arg1480z00_1434;

																										BgL_arg1480z00_1434 =
																											MAKE_YOUNG_PAIR
																											(BgL_posz00_1410, BNIL);
																										BgL_arg1479z00_1433 =
																											MAKE_YOUNG_PAIR
																											(BgL_fnamez00_1409,
																											BgL_arg1480z00_1434);
																									}
																									BgL_arg1476z00_1432 =
																										MAKE_YOUNG_PAIR
																										(BgL_varz00_56,
																										BgL_arg1479z00_1433);
																								}
																								BgL_arg1473z00_1429 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1475z00_1431,
																									BgL_arg1476z00_1432);
																							}
																							BgL_arg1471z00_1427 =
																								MAKE_YOUNG_PAIR
																								(BgL_arg1472z00_1428,
																								BgL_arg1473z00_1429);
																						}
																						BgL_arg1459z00_1408 =
																							MAKE_YOUNG_PAIR
																							(BGl_symbol3025z00zz__evaluatez00,
																							BgL_arg1471z00_1427);
																					}
																				}
																			else
																				{	/* Eval/evaluate.scm 316 */
																				BgL_tagzd2131zd2_1412:
																					{	/* Eval/evaluate.scm 326 */
																						obj_t BgL_arg1481z00_1435;

																						{	/* Eval/evaluate.scm 326 */
																							obj_t BgL_arg1482z00_1436;
																							obj_t BgL_arg1483z00_1437;

																							if (SYMBOLP(BgL_procnamez00_59))
																								{	/* Eval/evaluate.scm 326 */
																									obj_t BgL_arg2654z00_3523;

																									BgL_arg2654z00_3523 =
																										SYMBOL_TO_STRING
																										(BgL_procnamez00_59);
																									BgL_arg1482z00_1436 =
																										BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																										(BgL_arg2654z00_3523);
																								}
																							else
																								{	/* Eval/evaluate.scm 326 */
																									BgL_arg1482z00_1436 = BFALSE;
																								}
																							{	/* Eval/evaluate.scm 327 */
																								obj_t BgL_arg1486z00_1439;
																								obj_t BgL_arg1487z00_1440;

																								{	/* Eval/evaluate.scm 327 */
																									obj_t BgL_arg2654z00_3525;

																									BgL_arg2654z00_3525 =
																										SYMBOL_TO_STRING(
																										((obj_t) BgL_tnamez00_57));
																									BgL_arg1486z00_1439 =
																										BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																										(BgL_arg2654z00_3525);
																								}
																								BgL_arg1487z00_1440 =
																									MAKE_YOUNG_PAIR(BgL_varz00_56,
																									BNIL);
																								BgL_arg1483z00_1437 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1486z00_1439,
																									BgL_arg1487z00_1440);
																							}
																							BgL_arg1481z00_1435 =
																								MAKE_YOUNG_PAIR
																								(BgL_arg1482z00_1436,
																								BgL_arg1483z00_1437);
																						}
																						BgL_arg1459z00_1408 =
																							MAKE_YOUNG_PAIR
																							(BGl_symbol3027z00zz__evaluatez00,
																							BgL_arg1481z00_1435);
																					}
																				}
																		}
																	else
																		{	/* Eval/evaluate.scm 316 */
																			goto BgL_tagzd2131zd2_1412;
																		}
																}
															else
																{	/* Eval/evaluate.scm 316 */
																	goto BgL_tagzd2131zd2_1412;
																}
														}
													else
														{	/* Eval/evaluate.scm 316 */
															goto BgL_tagzd2131zd2_1412;
														}
												}
											else
												{	/* Eval/evaluate.scm 316 */
													goto BgL_tagzd2131zd2_1412;
												}
										}
										BgL_arg1458z00_1407 =
											MAKE_YOUNG_PAIR(BgL_arg1459z00_1408, BNIL);
									}
									BgL_arg1456z00_1405 =
										MAKE_YOUNG_PAIR(BgL_bodyz00_60, BgL_arg1458z00_1407);
								}
								BgL_arg1453z00_1403 =
									MAKE_YOUNG_PAIR(BgL_arg1455z00_1404, BgL_arg1456z00_1405);
							}
							BgL_arg1452z00_1402 =
								MAKE_YOUNG_PAIR(BGl_symbol3019z00zz__evaluatez00,
								BgL_arg1453z00_1403);
						}
						{	/* Eval/evaluate.scm 293 */
							obj_t BgL_arg1448z00_3532;
							obj_t BgL_arg1450z00_3533;

							BgL_arg1448z00_3532 = CAR(BgL_arg1452z00_1402);
							BgL_arg1450z00_3533 = CDR(BgL_arg1452z00_1402);
							{	/* Eval/evaluate.scm 293 */
								obj_t BgL_res2937z00_3536;

								BgL_res2937z00_3536 =
									MAKE_YOUNG_EPAIR(BgL_arg1448z00_3532, BgL_arg1450z00_3533,
									BgL_locz00_58);
								return BgL_res2937z00_3536;
							}
						}
					}
				}
			else
				{	/* Eval/evaluate.scm 300 */
					return BgL_bodyz00_60;
				}
		}

	}



/* type-checks */
	obj_t BGl_typezd2checkszd2zz__evaluatez00(obj_t BgL_varsz00_61,
		obj_t BgL_srcsz00_62, obj_t BgL_bodyz00_63, obj_t BgL_locz00_64,
		obj_t BgL_procnamez00_65)
	{
		{	/* Eval/evaluate.scm 334 */
			{	/* Eval/evaluate.scm 335 */
				bool_t BgL_test3215z00_5519;

				{	/* Eval/evaluate.scm 335 */
					int BgL_arg1537z00_1496;

					BgL_arg1537z00_1496 = bgl_debug();
					BgL_test3215z00_5519 = ((long) (BgL_arg1537z00_1496) <= 0L);
				}
				if (BgL_test3215z00_5519)
					{	/* Eval/evaluate.scm 335 */
						return BgL_bodyz00_63;
					}
				else
					{	/* Eval/evaluate.scm 335 */
						BGL_TAIL return
							BGl_loopze71ze7zz__evaluatez00(BgL_bodyz00_63, BgL_procnamez00_65,
							BgL_locz00_64, BgL_varsz00_61, BgL_srcsz00_62);
					}
			}
		}

	}



/* loop~1 */
	obj_t BGl_loopze71ze7zz__evaluatez00(obj_t BgL_bodyz00_4903,
		obj_t BgL_procnamez00_4902, obj_t BgL_locz00_4901, obj_t BgL_varsz00_1481,
		obj_t BgL_srcsz00_1482)
	{
		{	/* Eval/evaluate.scm 337 */
		BGl_loopze71ze7zz__evaluatez00:
			if (NULLP(BgL_varsz00_1481))
				{	/* Eval/evaluate.scm 339 */
					return BgL_bodyz00_4903;
				}
			else
				{	/* Eval/evaluate.scm 341 */
					obj_t BgL_vz00_1485;

					BgL_vz00_1485 = CAR(((obj_t) BgL_varsz00_1481));
					{	/* Eval/evaluate.scm 341 */
						obj_t BgL_idz00_1486;

						BgL_idz00_1486 = CAR(((obj_t) BgL_vz00_1485));
						{	/* Eval/evaluate.scm 342 */
							obj_t BgL_tnamez00_1487;

							BgL_tnamez00_1487 = CDR(((obj_t) BgL_vz00_1485));
							{	/* Eval/evaluate.scm 343 */

								if (CBOOL(BgL_tnamez00_1487))
									{	/* Eval/evaluate.scm 345 */
										obj_t BgL_locz00_1488;

										{	/* Eval/evaluate.scm 345 */
											obj_t BgL_arg1532z00_1492;

											BgL_arg1532z00_1492 = CAR(((obj_t) BgL_srcsz00_1482));
											{	/* Eval/evaluate.scm 150 */
												obj_t BgL__ortest_1070z00_3542;

												BgL__ortest_1070z00_3542 =
													BGl_getzd2sourcezd2locationz00zz__readerz00
													(BgL_arg1532z00_1492);
												if (CBOOL(BgL__ortest_1070z00_3542))
													{	/* Eval/evaluate.scm 150 */
														BgL_locz00_1488 = BgL__ortest_1070z00_3542;
													}
												else
													{	/* Eval/evaluate.scm 151 */
														obj_t BgL__ortest_1071z00_3543;

														BgL__ortest_1071z00_3543 =
															BGl_getzd2sourcezd2locationz00zz__readerz00
															(BgL_srcsz00_1482);
														if (CBOOL(BgL__ortest_1071z00_3543))
															{	/* Eval/evaluate.scm 151 */
																BgL_locz00_1488 = BgL__ortest_1071z00_3543;
															}
														else
															{	/* Eval/evaluate.scm 151 */
																BgL_locz00_1488 = BgL_locz00_4901;
															}
													}
											}
										}
										{	/* Eval/evaluate.scm 347 */
											obj_t BgL_arg1526z00_1489;

											{	/* Eval/evaluate.scm 347 */
												obj_t BgL_arg1527z00_1490;
												obj_t BgL_arg1528z00_1491;

												BgL_arg1527z00_1490 = CDR(((obj_t) BgL_varsz00_1481));
												BgL_arg1528z00_1491 = CDR(((obj_t) BgL_srcsz00_1482));
												BgL_arg1526z00_1489 =
													BGl_loopze71ze7zz__evaluatez00(BgL_bodyz00_4903,
													BgL_procnamez00_4902, BgL_locz00_4901,
													BgL_arg1527z00_1490, BgL_arg1528z00_1491);
											}
											BGL_TAIL return
												BGl_typezd2checkzd2zz__evaluatez00(BgL_idz00_1486,
												BgL_tnamez00_1487, BgL_locz00_1488,
												BgL_procnamez00_4902, BgL_arg1526z00_1489);
										}
									}
								else
									{	/* Eval/evaluate.scm 348 */
										obj_t BgL_arg1533z00_1493;
										obj_t BgL_arg1534z00_1494;

										BgL_arg1533z00_1493 = CDR(((obj_t) BgL_varsz00_1481));
										BgL_arg1534z00_1494 = CDR(((obj_t) BgL_srcsz00_1482));
										{
											obj_t BgL_srcsz00_5553;
											obj_t BgL_varsz00_5552;

											BgL_varsz00_5552 = BgL_arg1533z00_1493;
											BgL_srcsz00_5553 = BgL_arg1534z00_1494;
											BgL_srcsz00_1482 = BgL_srcsz00_5553;
											BgL_varsz00_1481 = BgL_varsz00_5552;
											goto BGl_loopze71ze7zz__evaluatez00;
										}
									}
							}
						}
					}
				}
		}

	}



/* type-result */
	obj_t BGl_typezd2resultzd2zz__evaluatez00(obj_t BgL_typez00_66,
		obj_t BgL_bodyz00_67, obj_t BgL_locz00_68)
	{
		{	/* Eval/evaluate.scm 353 */
			{	/* Eval/evaluate.scm 354 */
				bool_t BgL_test3220z00_5554;

				if (CBOOL(BgL_typez00_66))
					{	/* Eval/evaluate.scm 354 */
						int BgL_arg1555z00_1511;

						BgL_arg1555z00_1511 = bgl_debug();
						BgL_test3220z00_5554 = ((long) (BgL_arg1555z00_1511) >= 1L);
					}
				else
					{	/* Eval/evaluate.scm 354 */
						BgL_test3220z00_5554 = ((bool_t) 0);
					}
				if (BgL_test3220z00_5554)
					{	/* Eval/evaluate.scm 355 */
						obj_t BgL_tmpz00_1499;

						BgL_tmpz00_1499 =
							BGl_gensymz00zz__r4_symbols_6_4z00
							(BGl_symbol3031z00zz__evaluatez00);
						{	/* Eval/evaluate.scm 357 */
							obj_t BgL_arg1540z00_1500;
							obj_t BgL_arg1541z00_1501;

							{	/* Eval/evaluate.scm 357 */
								obj_t BgL_arg1542z00_1502;

								{	/* Eval/evaluate.scm 357 */
									obj_t BgL_arg1543z00_1503;
									obj_t BgL_arg1545z00_1504;

									{	/* Eval/evaluate.scm 357 */
										obj_t BgL_arg1546z00_1505;

										{	/* Eval/evaluate.scm 357 */
											obj_t BgL_arg1547z00_1506;
											obj_t BgL_arg1549z00_1507;

											{	/* Eval/evaluate.scm 357 */
												obj_t BgL_arg1551z00_1508;

												{	/* Eval/evaluate.scm 357 */
													obj_t BgL_list1552z00_1509;

													{	/* Eval/evaluate.scm 357 */
														obj_t BgL_arg1554z00_1510;

														BgL_arg1554z00_1510 =
															MAKE_YOUNG_PAIR(BgL_typez00_66, BNIL);
														BgL_list1552z00_1509 =
															MAKE_YOUNG_PAIR(BgL_tmpz00_1499,
															BgL_arg1554z00_1510);
													}
													BgL_arg1551z00_1508 =
														BGl_formatz00zz__r4_output_6_10_3z00
														(BGl_string3033z00zz__evaluatez00,
														BgL_list1552z00_1509);
												}
												BgL_arg1547z00_1506 =
													bstring_to_symbol(BgL_arg1551z00_1508);
											}
											BgL_arg1549z00_1507 =
												MAKE_YOUNG_PAIR(BgL_bodyz00_67, BNIL);
											BgL_arg1546z00_1505 =
												MAKE_YOUNG_PAIR(BgL_arg1547z00_1506,
												BgL_arg1549z00_1507);
										}
										BgL_arg1543z00_1503 =
											MAKE_YOUNG_PAIR(BgL_arg1546z00_1505, BNIL);
									}
									BgL_arg1545z00_1504 = MAKE_YOUNG_PAIR(BgL_tmpz00_1499, BNIL);
									BgL_arg1542z00_1502 =
										MAKE_YOUNG_PAIR(BgL_arg1543z00_1503, BgL_arg1545z00_1504);
								}
								BgL_arg1540z00_1500 =
									MAKE_YOUNG_PAIR(BGl_symbol3021z00zz__evaluatez00,
									BgL_arg1542z00_1502);
							}
							{	/* Eval/evaluate.scm 144 */
								obj_t BgL__ortest_1069z00_3550;

								BgL__ortest_1069z00_3550 =
									BGl_getzd2sourcezd2locationz00zz__readerz00(BgL_bodyz00_67);
								if (CBOOL(BgL__ortest_1069z00_3550))
									{	/* Eval/evaluate.scm 144 */
										BgL_arg1541z00_1501 = BgL__ortest_1069z00_3550;
									}
								else
									{	/* Eval/evaluate.scm 144 */
										BgL_arg1541z00_1501 = BgL_locz00_68;
									}
							}
							{	/* Eval/evaluate.scm 293 */
								obj_t BgL_arg1448z00_3551;
								obj_t BgL_arg1450z00_3552;

								BgL_arg1448z00_3551 = CAR(BgL_arg1540z00_1500);
								BgL_arg1450z00_3552 = CDR(BgL_arg1540z00_1500);
								{	/* Eval/evaluate.scm 293 */
									obj_t BgL_res2938z00_3555;

									BgL_res2938z00_3555 =
										MAKE_YOUNG_EPAIR(BgL_arg1448z00_3551, BgL_arg1450z00_3552,
										BgL_arg1541z00_1501);
									return BgL_res2938z00_3555;
								}
							}
						}
					}
				else
					{	/* Eval/evaluate.scm 354 */
						return BgL_bodyz00_67;
					}
			}
		}

	}



/* conv */
	obj_t BGl_convz00zz__evaluatez00(obj_t BgL_ez00_69, obj_t BgL_localsz00_70,
		obj_t BgL_globalsz00_71, obj_t BgL_tailzf3zf3_72, obj_t BgL_wherez00_73,
		obj_t BgL_locz00_74, bool_t BgL_topzf3zf3_75)
	{
		{	/* Eval/evaluate.scm 365 */
		BGl_convz00zz__evaluatez00:
			{
				obj_t BgL_xz00_1520;
				obj_t BgL_bahz00_1522;
				obj_t BgL_lz00_1527;
				obj_t BgL_funz00_1529;
				obj_t BgL_argsz00_1530;
				obj_t BgL_pz00_1536;
				obj_t BgL_tz00_1537;
				obj_t BgL_oz00_1538;
				obj_t BgL_pz00_1540;
				obj_t BgL_tz00_1541;
				obj_t BgL_bindsz00_1549;
				obj_t BgL_bodyz00_1550;
				obj_t BgL_bindsz00_1552;
				obj_t BgL_bodyz00_1553;
				obj_t BgL_bindsz00_1555;
				obj_t BgL_bodyz00_1556;
				obj_t BgL_lz00_1562;
				obj_t BgL_e2z00_1563;
				obj_t BgL_vz00_1565;
				obj_t BgL_ez00_1566;
				obj_t BgL_gvz00_1569;
				obj_t BgL_formalsz00_1570;
				obj_t BgL_bodyz00_1571;
				obj_t BgL_gvz00_1573;
				obj_t BgL_gez00_1574;
				obj_t BgL_vz00_1576;
				obj_t BgL_bodyz00_1577;
				obj_t BgL_mz00_1589;
				obj_t BgL_bodyz00_1590;
				obj_t BgL_fz00_1596;
				obj_t BgL_argsz00_1597;

				if (PAIRP(BgL_ez00_69))
					{	/* Eval/evaluate.scm 424 */
						if (
							(CAR(((obj_t) BgL_ez00_69)) == BGl_symbol3040z00zz__evaluatez00))
							{	/* Eval/evaluate.scm 424 */
								obj_t BgL_arg1561z00_1604;

								BgL_arg1561z00_1604 = CDR(((obj_t) BgL_ez00_69));
								BgL_bahz00_1522 = BgL_arg1561z00_1604;
								if (BgL_topzf3zf3_75)
									{	/* Eval/evaluate.scm 432 */
										obj_t BgL_formsz00_2387;

										{	/* Eval/evaluate.scm 432 */
											obj_t BgL_arg2281z00_2390;

											{	/* Eval/evaluate.scm 144 */
												obj_t BgL__ortest_1069z00_3592;

												BgL__ortest_1069z00_3592 =
													BGl_getzd2sourcezd2locationz00zz__readerz00
													(BgL_ez00_69);
												if (CBOOL(BgL__ortest_1069z00_3592))
													{	/* Eval/evaluate.scm 144 */
														BgL_arg2281z00_2390 = BgL__ortest_1069z00_3592;
													}
												else
													{	/* Eval/evaluate.scm 144 */
														BgL_arg2281z00_2390 = BgL_locz00_74;
													}
											}
											BgL_formsz00_2387 =
												BGl_evmodulez00zz__evmodulez00(BgL_ez00_69,
												BgL_arg2281z00_2390);
										}
										{	/* Eval/evaluate.scm 433 */
											obj_t BgL_arg2279z00_2388;
											obj_t BgL_arg2280z00_2389;

											BgL_arg2279z00_2388 =
												BGl_expandz00zz__expandz00(BgL_formsz00_2387);
											BgL_arg2280z00_2389 = BGL_MODULE();
											{
												bool_t BgL_topzf3zf3_5596;
												obj_t BgL_wherez00_5595;
												obj_t BgL_tailzf3zf3_5594;
												obj_t BgL_globalsz00_5593;
												obj_t BgL_ez00_5592;

												BgL_ez00_5592 = BgL_arg2279z00_2388;
												BgL_globalsz00_5593 = BgL_arg2280z00_2389;
												BgL_tailzf3zf3_5594 = BgL_wherez00_73;
												BgL_wherez00_5595 = BFALSE;
												BgL_topzf3zf3_5596 = ((bool_t) 1);
												BgL_topzf3zf3_75 = BgL_topzf3zf3_5596;
												BgL_wherez00_73 = BgL_wherez00_5595;
												BgL_tailzf3zf3_72 = BgL_tailzf3zf3_5594;
												BgL_globalsz00_71 = BgL_globalsz00_5593;
												BgL_ez00_69 = BgL_ez00_5592;
												goto BGl_convz00zz__evaluatez00;
											}
										}
									}
								else
									{	/* Eval/evaluate.scm 431 */
										return
											BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_74,
											BGl_string2959z00zz__evaluatez00,
											BGl_string3039z00zz__evaluatez00, BgL_ez00_69);
									}
							}
						else
							{	/* Eval/evaluate.scm 424 */
								obj_t BgL_cdrzd2250zd2_1605;

								BgL_cdrzd2250zd2_1605 = CDR(((obj_t) BgL_ez00_69));
								if (
									(CAR(
											((obj_t) BgL_ez00_69)) ==
										BGl_symbol3042z00zz__evaluatez00))
									{	/* Eval/evaluate.scm 424 */
										if (PAIRP(BgL_cdrzd2250zd2_1605))
											{	/* Eval/evaluate.scm 424 */
												obj_t BgL_carzd2253zd2_1609;
												obj_t BgL_cdrzd2254zd2_1610;

												BgL_carzd2253zd2_1609 = CAR(BgL_cdrzd2250zd2_1605);
												BgL_cdrzd2254zd2_1610 = CDR(BgL_cdrzd2250zd2_1605);
												if (SYMBOLP(BgL_carzd2253zd2_1609))
													{	/* Eval/evaluate.scm 424 */
														if (PAIRP(BgL_cdrzd2254zd2_1610))
															{	/* Eval/evaluate.scm 424 */
																obj_t BgL_carzd2258zd2_1613;

																BgL_carzd2258zd2_1613 =
																	CAR(BgL_cdrzd2254zd2_1610);
																if (SYMBOLP(BgL_carzd2258zd2_1613))
																	{	/* Eval/evaluate.scm 424 */
																		if (NULLP(CDR(BgL_cdrzd2254zd2_1610)))
																			{	/* Eval/evaluate.scm 437 */
																				BgL_ev_globalz00_bglt
																					BgL_new1107z00_3948;
																				{	/* Eval/evaluate.scm 438 */
																					BgL_ev_globalz00_bglt
																						BgL_new1106z00_3949;
																					BgL_new1106z00_3949 =
																						((BgL_ev_globalz00_bglt)
																						BOBJECT(GC_MALLOC(sizeof(struct
																									BgL_ev_globalz00_bgl))));
																					{	/* Eval/evaluate.scm 438 */
																						long BgL_arg2282z00_3950;

																						BgL_arg2282z00_3950 =
																							BGL_CLASS_NUM
																							(BGl_ev_globalz00zz__evaluate_typesz00);
																						BGL_OBJECT_CLASS_NUM_SET((
																								(BgL_objectz00_bglt)
																								BgL_new1106z00_3949),
																							BgL_arg2282z00_3950);
																					}
																					BgL_new1107z00_3948 =
																						BgL_new1106z00_3949;
																				}
																				((((BgL_ev_globalz00_bglt)
																							COBJECT(BgL_new1107z00_3948))->
																						BgL_locz00) =
																					((obj_t) BgL_locz00_74), BUNSPEC);
																				((((BgL_ev_globalz00_bglt)
																							COBJECT(BgL_new1107z00_3948))->
																						BgL_namez00) =
																					((obj_t) BgL_carzd2253zd2_1609),
																					BUNSPEC);
																				((((BgL_ev_globalz00_bglt)
																							COBJECT(BgL_new1107z00_3948))->
																						BgL_modz00) =
																					((obj_t)
																						BGl_evalzd2findzd2modulez00zz__evmodulez00
																						(BgL_carzd2258zd2_1613)), BUNSPEC);
																				return ((obj_t) BgL_new1107z00_3948);
																			}
																		else
																			{	/* Eval/evaluate.scm 424 */
																				obj_t BgL_carzd2303zd2_1617;

																				BgL_carzd2303zd2_1617 =
																					CAR(((obj_t) BgL_ez00_69));
																				if (SYMBOLP(BgL_carzd2303zd2_1617))
																					{	/* Eval/evaluate.scm 424 */
																						if (CBOOL
																							(BGl_convzd2varzd2zz__evaluatez00
																								(BgL_carzd2303zd2_1617,
																									BgL_localsz00_70)))
																							{
																								BgL_ev_appz00_bglt
																									BgL_auxz00_5634;
																								BgL_funz00_1529 =
																									BgL_carzd2303zd2_1617;
																								BgL_argsz00_1530 =
																									BgL_cdrzd2250zd2_1605;
																							BgL_tagzd2152zd2_1531:
																								{	/* Eval/evaluate.scm 449 */
																									obj_t BgL_funz00_2420;
																									obj_t BgL_argsz00_2421;

																									{	/* Eval/evaluate.scm 380 */
																										obj_t BgL_arg2470z00_3602;

																										{	/* Eval/evaluate.scm 144 */
																											obj_t
																												BgL__ortest_1069z00_3603;
																											BgL__ortest_1069z00_3603 =
																												BGl_getzd2sourcezd2locationz00zz__readerz00
																												(BgL_funz00_1529);
																											if (CBOOL
																												(BgL__ortest_1069z00_3603))
																												{	/* Eval/evaluate.scm 144 */
																													BgL_arg2470z00_3602 =
																														BgL__ortest_1069z00_3603;
																												}
																											else
																												{	/* Eval/evaluate.scm 144 */
																													BgL_arg2470z00_3602 =
																														BgL_locz00_74;
																												}
																										}
																										BgL_funz00_2420 =
																											BGl_convz00zz__evaluatez00
																											(BgL_funz00_1529,
																											BgL_localsz00_70,
																											BgL_globalsz00_71, BFALSE,
																											BgL_wherez00_73,
																											BgL_arg2470z00_3602,
																											((bool_t) 0));
																									}
																									BgL_argsz00_2421 =
																										BGl_loopze70ze7zz__evaluatez00
																										(BgL_wherez00_73,
																										BgL_globalsz00_71,
																										BgL_localsz00_70,
																										BgL_locz00_74,
																										BgL_argsz00_1530);
																									{	/* Eval/evaluate.scm 450 */
																										BgL_ev_appz00_bglt
																											BgL_new1109z00_2422;
																										{	/* Eval/evaluate.scm 451 */
																											BgL_ev_appz00_bglt
																												BgL_new1108z00_2423;
																											BgL_new1108z00_2423 =
																												((BgL_ev_appz00_bglt)
																												BOBJECT(GC_MALLOC(sizeof
																														(struct
																															BgL_ev_appz00_bgl))));
																											{	/* Eval/evaluate.scm 451 */
																												long
																													BgL_arg2297z00_2424;
																												BgL_arg2297z00_2424 =
																													BGL_CLASS_NUM
																													(BGl_ev_appz00zz__evaluate_typesz00);
																												BGL_OBJECT_CLASS_NUM_SET
																													(((BgL_objectz00_bglt)
																														BgL_new1108z00_2423),
																													BgL_arg2297z00_2424);
																											}
																											BgL_new1109z00_2422 =
																												BgL_new1108z00_2423;
																										}
																										((((BgL_ev_appz00_bglt)
																													COBJECT
																													(BgL_new1109z00_2422))->
																												BgL_locz00) =
																											((obj_t) BgL_locz00_74),
																											BUNSPEC);
																										((((BgL_ev_appz00_bglt)
																													COBJECT
																													(BgL_new1109z00_2422))->
																												BgL_funz00) =
																											((BgL_ev_exprz00_bglt) (
																													(BgL_ev_exprz00_bglt)
																													BgL_funz00_2420)),
																											BUNSPEC);
																										((((BgL_ev_appz00_bglt)
																													COBJECT
																													(BgL_new1109z00_2422))->
																												BgL_argsz00) =
																											((obj_t)
																												BgL_argsz00_2421),
																											BUNSPEC);
																										((((BgL_ev_appz00_bglt)
																													COBJECT
																													(BgL_new1109z00_2422))->
																												BgL_tailzf3zf3) =
																											((obj_t)
																												BgL_tailzf3zf3_72),
																											BUNSPEC);
																										BgL_auxz00_5634 =
																											BgL_new1109z00_2422;
																								}}
																								return
																									((obj_t) BgL_auxz00_5634);
																							}
																						else
																							{
																								BgL_ev_appz00_bglt
																									BgL_auxz00_5650;
																								BgL_fz00_1596 =
																									BgL_carzd2303zd2_1617;
																								BgL_argsz00_1597 =
																									BgL_cdrzd2250zd2_1605;
																							BgL_tagzd2176zd2_1598:
																								{	/* Eval/evaluate.scm 603 */
																									obj_t BgL_funz00_2692;
																									obj_t BgL_argsz00_2693;

																									{	/* Eval/evaluate.scm 380 */
																										obj_t BgL_arg2470z00_3935;

																										{	/* Eval/evaluate.scm 144 */
																											obj_t
																												BgL__ortest_1069z00_3936;
																											BgL__ortest_1069z00_3936 =
																												BGl_getzd2sourcezd2locationz00zz__readerz00
																												(BgL_fz00_1596);
																											if (CBOOL
																												(BgL__ortest_1069z00_3936))
																												{	/* Eval/evaluate.scm 144 */
																													BgL_arg2470z00_3935 =
																														BgL__ortest_1069z00_3936;
																												}
																											else
																												{	/* Eval/evaluate.scm 144 */
																													BgL_arg2470z00_3935 =
																														BgL_locz00_74;
																												}
																										}
																										BgL_funz00_2692 =
																											BGl_convz00zz__evaluatez00
																											(BgL_fz00_1596,
																											BgL_localsz00_70,
																											BgL_globalsz00_71, BFALSE,
																											BgL_wherez00_73,
																											BgL_arg2470z00_3935,
																											((bool_t) 0));
																									}
																									BgL_argsz00_2693 =
																										BGl_loopze70ze7zz__evaluatez00
																										(BgL_wherez00_73,
																										BgL_globalsz00_71,
																										BgL_localsz00_70,
																										BgL_locz00_74,
																										BgL_argsz00_1597);
																									{	/* Eval/evaluate.scm 604 */
																										BgL_ev_appz00_bglt
																											BgL_new1164z00_2694;
																										{	/* Eval/evaluate.scm 605 */
																											BgL_ev_appz00_bglt
																												BgL_new1163z00_2695;
																											BgL_new1163z00_2695 =
																												((BgL_ev_appz00_bglt)
																												BOBJECT(GC_MALLOC(sizeof
																														(struct
																															BgL_ev_appz00_bgl))));
																											{	/* Eval/evaluate.scm 605 */
																												long
																													BgL_arg2459z00_2696;
																												BgL_arg2459z00_2696 =
																													BGL_CLASS_NUM
																													(BGl_ev_appz00zz__evaluate_typesz00);
																												BGL_OBJECT_CLASS_NUM_SET
																													(((BgL_objectz00_bglt)
																														BgL_new1163z00_2695),
																													BgL_arg2459z00_2696);
																											}
																											BgL_new1164z00_2694 =
																												BgL_new1163z00_2695;
																										}
																										((((BgL_ev_appz00_bglt)
																													COBJECT
																													(BgL_new1164z00_2694))->
																												BgL_locz00) =
																											((obj_t) BgL_locz00_74),
																											BUNSPEC);
																										((((BgL_ev_appz00_bglt)
																													COBJECT
																													(BgL_new1164z00_2694))->
																												BgL_funz00) =
																											((BgL_ev_exprz00_bglt) (
																													(BgL_ev_exprz00_bglt)
																													BgL_funz00_2692)),
																											BUNSPEC);
																										((((BgL_ev_appz00_bglt)
																													COBJECT
																													(BgL_new1164z00_2694))->
																												BgL_argsz00) =
																											((obj_t)
																												BgL_argsz00_2693),
																											BUNSPEC);
																										((((BgL_ev_appz00_bglt)
																													COBJECT
																													(BgL_new1164z00_2694))->
																												BgL_tailzf3zf3) =
																											((obj_t)
																												BgL_tailzf3zf3_72),
																											BUNSPEC);
																										BgL_auxz00_5650 =
																											BgL_new1164z00_2694;
																								}}
																								return
																									((obj_t) BgL_auxz00_5650);
																							}
																					}
																				else
																					{
																						BgL_ev_appz00_bglt BgL_auxz00_5666;

																						{
																							obj_t BgL_argsz00_5668;
																							obj_t BgL_fz00_5667;

																							BgL_fz00_5667 =
																								BgL_carzd2303zd2_1617;
																							BgL_argsz00_5668 =
																								BgL_cdrzd2250zd2_1605;
																							BgL_argsz00_1597 =
																								BgL_argsz00_5668;
																							BgL_fz00_1596 = BgL_fz00_5667;
																							goto BgL_tagzd2176zd2_1598;
																						}
																						return ((obj_t) BgL_auxz00_5666);
																					}
																			}
																	}
																else
																	{	/* Eval/evaluate.scm 424 */
																		obj_t BgL_carzd21010zd2_1628;

																		BgL_carzd21010zd2_1628 =
																			CAR(((obj_t) BgL_ez00_69));
																		if (SYMBOLP(BgL_carzd21010zd2_1628))
																			{	/* Eval/evaluate.scm 424 */
																				if (CBOOL
																					(BGl_convzd2varzd2zz__evaluatez00
																						(BgL_carzd21010zd2_1628,
																							BgL_localsz00_70)))
																					{
																						BgL_ev_appz00_bglt BgL_auxz00_5677;

																						{
																							obj_t BgL_argsz00_5679;
																							obj_t BgL_funz00_5678;

																							BgL_funz00_5678 =
																								BgL_carzd21010zd2_1628;
																							BgL_argsz00_5679 =
																								BgL_cdrzd2250zd2_1605;
																							BgL_argsz00_1530 =
																								BgL_argsz00_5679;
																							BgL_funz00_1529 = BgL_funz00_5678;
																							goto BgL_tagzd2152zd2_1531;
																						}
																						return ((obj_t) BgL_auxz00_5677);
																					}
																				else
																					{
																						BgL_ev_appz00_bglt BgL_auxz00_5681;

																						{
																							obj_t BgL_argsz00_5683;
																							obj_t BgL_fz00_5682;

																							BgL_fz00_5682 =
																								BgL_carzd21010zd2_1628;
																							BgL_argsz00_5683 =
																								BgL_cdrzd2250zd2_1605;
																							BgL_argsz00_1597 =
																								BgL_argsz00_5683;
																							BgL_fz00_1596 = BgL_fz00_5682;
																							goto BgL_tagzd2176zd2_1598;
																						}
																						return ((obj_t) BgL_auxz00_5681);
																					}
																			}
																		else
																			{
																				BgL_ev_appz00_bglt BgL_auxz00_5685;

																				{
																					obj_t BgL_argsz00_5687;
																					obj_t BgL_fz00_5686;

																					BgL_fz00_5686 =
																						BgL_carzd21010zd2_1628;
																					BgL_argsz00_5687 =
																						BgL_cdrzd2250zd2_1605;
																					BgL_argsz00_1597 = BgL_argsz00_5687;
																					BgL_fz00_1596 = BgL_fz00_5686;
																					goto BgL_tagzd2176zd2_1598;
																				}
																				return ((obj_t) BgL_auxz00_5685);
																			}
																	}
															}
														else
															{	/* Eval/evaluate.scm 424 */
																obj_t BgL_carzd21717zd2_1638;

																BgL_carzd21717zd2_1638 =
																	CAR(((obj_t) BgL_ez00_69));
																if (SYMBOLP(BgL_carzd21717zd2_1638))
																	{	/* Eval/evaluate.scm 424 */
																		if (CBOOL(BGl_convzd2varzd2zz__evaluatez00
																				(BgL_carzd21717zd2_1638,
																					BgL_localsz00_70)))
																			{
																				BgL_ev_appz00_bglt BgL_auxz00_5696;

																				{
																					obj_t BgL_argsz00_5698;
																					obj_t BgL_funz00_5697;

																					BgL_funz00_5697 =
																						BgL_carzd21717zd2_1638;
																					BgL_argsz00_5698 =
																						BgL_cdrzd2250zd2_1605;
																					BgL_argsz00_1530 = BgL_argsz00_5698;
																					BgL_funz00_1529 = BgL_funz00_5697;
																					goto BgL_tagzd2152zd2_1531;
																				}
																				return ((obj_t) BgL_auxz00_5696);
																			}
																		else
																			{
																				BgL_ev_appz00_bglt BgL_auxz00_5700;

																				{
																					obj_t BgL_argsz00_5702;
																					obj_t BgL_fz00_5701;

																					BgL_fz00_5701 =
																						BgL_carzd21717zd2_1638;
																					BgL_argsz00_5702 =
																						BgL_cdrzd2250zd2_1605;
																					BgL_argsz00_1597 = BgL_argsz00_5702;
																					BgL_fz00_1596 = BgL_fz00_5701;
																					goto BgL_tagzd2176zd2_1598;
																				}
																				return ((obj_t) BgL_auxz00_5700);
																			}
																	}
																else
																	{
																		BgL_ev_appz00_bglt BgL_auxz00_5704;

																		{
																			obj_t BgL_argsz00_5706;
																			obj_t BgL_fz00_5705;

																			BgL_fz00_5705 = BgL_carzd21717zd2_1638;
																			BgL_argsz00_5706 = BgL_cdrzd2250zd2_1605;
																			BgL_argsz00_1597 = BgL_argsz00_5706;
																			BgL_fz00_1596 = BgL_fz00_5705;
																			goto BgL_tagzd2176zd2_1598;
																		}
																		return ((obj_t) BgL_auxz00_5704);
																	}
															}
													}
												else
													{	/* Eval/evaluate.scm 424 */
														obj_t BgL_carzd22424zd2_1648;

														BgL_carzd22424zd2_1648 = CAR(((obj_t) BgL_ez00_69));
														if (SYMBOLP(BgL_carzd22424zd2_1648))
															{	/* Eval/evaluate.scm 424 */
																if (CBOOL(BGl_convzd2varzd2zz__evaluatez00
																		(BgL_carzd22424zd2_1648, BgL_localsz00_70)))
																	{
																		BgL_ev_appz00_bglt BgL_auxz00_5715;

																		{
																			obj_t BgL_argsz00_5717;
																			obj_t BgL_funz00_5716;

																			BgL_funz00_5716 = BgL_carzd22424zd2_1648;
																			BgL_argsz00_5717 = BgL_cdrzd2250zd2_1605;
																			BgL_argsz00_1530 = BgL_argsz00_5717;
																			BgL_funz00_1529 = BgL_funz00_5716;
																			goto BgL_tagzd2152zd2_1531;
																		}
																		return ((obj_t) BgL_auxz00_5715);
																	}
																else
																	{
																		BgL_ev_appz00_bglt BgL_auxz00_5719;

																		{
																			obj_t BgL_argsz00_5721;
																			obj_t BgL_fz00_5720;

																			BgL_fz00_5720 = BgL_carzd22424zd2_1648;
																			BgL_argsz00_5721 = BgL_cdrzd2250zd2_1605;
																			BgL_argsz00_1597 = BgL_argsz00_5721;
																			BgL_fz00_1596 = BgL_fz00_5720;
																			goto BgL_tagzd2176zd2_1598;
																		}
																		return ((obj_t) BgL_auxz00_5719);
																	}
															}
														else
															{
																BgL_ev_appz00_bglt BgL_auxz00_5723;

																{
																	obj_t BgL_argsz00_5725;
																	obj_t BgL_fz00_5724;

																	BgL_fz00_5724 = BgL_carzd22424zd2_1648;
																	BgL_argsz00_5725 = BgL_cdrzd2250zd2_1605;
																	BgL_argsz00_1597 = BgL_argsz00_5725;
																	BgL_fz00_1596 = BgL_fz00_5724;
																	goto BgL_tagzd2176zd2_1598;
																}
																return ((obj_t) BgL_auxz00_5723);
															}
													}
											}
										else
											{	/* Eval/evaluate.scm 424 */
												obj_t BgL_carzd23131zd2_1658;

												BgL_carzd23131zd2_1658 = CAR(((obj_t) BgL_ez00_69));
												if (SYMBOLP(BgL_carzd23131zd2_1658))
													{	/* Eval/evaluate.scm 424 */
														if (CBOOL(BGl_convzd2varzd2zz__evaluatez00
																(BgL_carzd23131zd2_1658, BgL_localsz00_70)))
															{
																BgL_ev_appz00_bglt BgL_auxz00_5734;

																{
																	obj_t BgL_argsz00_5736;
																	obj_t BgL_funz00_5735;

																	BgL_funz00_5735 = BgL_carzd23131zd2_1658;
																	BgL_argsz00_5736 = BgL_cdrzd2250zd2_1605;
																	BgL_argsz00_1530 = BgL_argsz00_5736;
																	BgL_funz00_1529 = BgL_funz00_5735;
																	goto BgL_tagzd2152zd2_1531;
																}
																return ((obj_t) BgL_auxz00_5734);
															}
														else
															{
																BgL_ev_appz00_bglt BgL_auxz00_5738;

																{
																	obj_t BgL_argsz00_5740;
																	obj_t BgL_fz00_5739;

																	BgL_fz00_5739 = BgL_carzd23131zd2_1658;
																	BgL_argsz00_5740 = BgL_cdrzd2250zd2_1605;
																	BgL_argsz00_1597 = BgL_argsz00_5740;
																	BgL_fz00_1596 = BgL_fz00_5739;
																	goto BgL_tagzd2176zd2_1598;
																}
																return ((obj_t) BgL_auxz00_5738);
															}
													}
												else
													{
														BgL_ev_appz00_bglt BgL_auxz00_5742;

														{
															obj_t BgL_argsz00_5744;
															obj_t BgL_fz00_5743;

															BgL_fz00_5743 = BgL_carzd23131zd2_1658;
															BgL_argsz00_5744 = BgL_cdrzd2250zd2_1605;
															BgL_argsz00_1597 = BgL_argsz00_5744;
															BgL_fz00_1596 = BgL_fz00_5743;
															goto BgL_tagzd2176zd2_1598;
														}
														return ((obj_t) BgL_auxz00_5742);
													}
											}
									}
								else
									{	/* Eval/evaluate.scm 424 */
										if (
											(CAR(
													((obj_t) BgL_ez00_69)) ==
												BGl_symbol3044z00zz__evaluatez00))
											{	/* Eval/evaluate.scm 424 */
												BgL_lz00_1527 = BgL_cdrzd2250zd2_1605;
												{	/* Eval/evaluate.scm 442 */
													bool_t BgL_test3246z00_5750;

													if (PAIRP(BgL_lz00_1527))
														{	/* Eval/evaluate.scm 442 */
															bool_t BgL_test3248z00_5753;

															{	/* Eval/evaluate.scm 442 */
																obj_t BgL_tmpz00_5754;

																BgL_tmpz00_5754 = CDR(BgL_lz00_1527);
																BgL_test3248z00_5753 = PAIRP(BgL_tmpz00_5754);
															}
															if (BgL_test3248z00_5753)
																{
																	obj_t BgL_l1215z00_2411;

																	BgL_l1215z00_2411 = BgL_lz00_1527;
																BgL_zc3z04anonymousza32292ze3z87_2412:
																	if (NULLP(BgL_l1215z00_2411))
																		{	/* Eval/evaluate.scm 442 */
																			BgL_test3246z00_5750 = ((bool_t) 1);
																		}
																	else
																		{	/* Eval/evaluate.scm 442 */
																			bool_t BgL_test3250z00_5759;

																			{	/* Eval/evaluate.scm 442 */
																				obj_t BgL_tmpz00_5760;

																				BgL_tmpz00_5760 =
																					CAR(((obj_t) BgL_l1215z00_2411));
																				BgL_test3250z00_5759 =
																					SYMBOLP(BgL_tmpz00_5760);
																			}
																			if (BgL_test3250z00_5759)
																				{
																					obj_t BgL_l1215z00_5764;

																					BgL_l1215z00_5764 =
																						CDR(((obj_t) BgL_l1215z00_2411));
																					BgL_l1215z00_2411 = BgL_l1215z00_5764;
																					goto
																						BgL_zc3z04anonymousza32292ze3z87_2412;
																				}
																			else
																				{	/* Eval/evaluate.scm 442 */
																					BgL_test3246z00_5750 = ((bool_t) 0);
																				}
																		}
																}
															else
																{	/* Eval/evaluate.scm 442 */
																	BgL_test3246z00_5750 = ((bool_t) 0);
																}
														}
													else
														{	/* Eval/evaluate.scm 442 */
															BgL_test3246z00_5750 = ((bool_t) 0);
														}
													if (BgL_test3246z00_5750)
														{	/* Eval/evaluate.scm 442 */
															BGL_TAIL return
																BGl_convzd2fieldzd2refz00zz__evaluatez00
																(BgL_ez00_69, BgL_localsz00_70,
																BgL_globalsz00_71, BgL_tailzf3zf3_72,
																BgL_wherez00_73, BgL_locz00_74,
																BgL_topzf3zf3_75);
														}
													else
														{	/* Eval/evaluate.scm 442 */
															return
																BGl_evcompilezd2errorzd2zz__evcompilez00
																(BgL_locz00_74,
																BGl_string2959z00zz__evaluatez00,
																BGl_string3034z00zz__evaluatez00, BgL_ez00_69);
														}
												}
											}
										else
											{	/* Eval/evaluate.scm 424 */
												obj_t BgL_carzd23841zd2_1671;

												BgL_carzd23841zd2_1671 = CAR(((obj_t) BgL_ez00_69));
												if (SYMBOLP(BgL_carzd23841zd2_1671))
													{	/* Eval/evaluate.scm 424 */
														if (CBOOL(BGl_convzd2varzd2zz__evaluatez00
																(BgL_carzd23841zd2_1671, BgL_localsz00_70)))
															{
																BgL_ev_appz00_bglt BgL_auxz00_5776;

																{
																	obj_t BgL_argsz00_5778;
																	obj_t BgL_funz00_5777;

																	BgL_funz00_5777 = BgL_carzd23841zd2_1671;
																	BgL_argsz00_5778 = BgL_cdrzd2250zd2_1605;
																	BgL_argsz00_1530 = BgL_argsz00_5778;
																	BgL_funz00_1529 = BgL_funz00_5777;
																	goto BgL_tagzd2152zd2_1531;
																}
																return ((obj_t) BgL_auxz00_5776);
															}
														else
															{	/* Eval/evaluate.scm 424 */
																if (
																	(BgL_carzd23841zd2_1671 ==
																		BGl_symbol3046z00zz__evaluatez00))
																	{	/* Eval/evaluate.scm 424 */
																		if (PAIRP(BgL_cdrzd2250zd2_1605))
																			{	/* Eval/evaluate.scm 424 */
																				if (NULLP(CDR(BgL_cdrzd2250zd2_1605)))
																					{	/* Eval/evaluate.scm 424 */
																						obj_t BgL_arg1625z00_1682;

																						BgL_arg1625z00_1682 =
																							CAR(BgL_cdrzd2250zd2_1605);
																						{	/* Eval/evaluate.scm 456 */
																							BgL_ev_trapz00_bglt
																								BgL_new1112z00_3992;
																							{	/* Eval/evaluate.scm 457 */
																								BgL_ev_trapz00_bglt
																									BgL_new1110z00_3993;
																								BgL_new1110z00_3993 =
																									((BgL_ev_trapz00_bglt)
																									BOBJECT(GC_MALLOC(sizeof
																											(struct
																												BgL_ev_trapz00_bgl))));
																								{	/* Eval/evaluate.scm 457 */
																									long BgL_arg2299z00_3994;

																									BgL_arg2299z00_3994 =
																										BGL_CLASS_NUM
																										(BGl_ev_trapz00zz__evaluate_typesz00);
																									BGL_OBJECT_CLASS_NUM_SET((
																											(BgL_objectz00_bglt)
																											BgL_new1110z00_3993),
																										BgL_arg2299z00_3994);
																								}
																								BgL_new1112z00_3992 =
																									BgL_new1110z00_3993;
																							}
																							{
																								BgL_ev_exprz00_bglt
																									BgL_auxz00_5792;
																								{	/* Eval/evaluate.scm 380 */
																									obj_t BgL_arg2470z00_3998;

																									BgL_arg2470z00_3998 =
																										BGl_getzd2locationzd2zz__evaluatez00
																										(BgL_arg1625z00_1682,
																										BgL_locz00_74);
																									BgL_auxz00_5792 =
																										((BgL_ev_exprz00_bglt)
																										BGl_uconvzf2locze70z15zz__evaluatez00
																										(BgL_wherez00_73,
																											BgL_globalsz00_71,
																											BgL_localsz00_70,
																											BgL_arg1625z00_1682,
																											BgL_arg2470z00_3998));
																								}
																								((((BgL_ev_hookz00_bglt)
																											COBJECT((
																													(BgL_ev_hookz00_bglt)
																													BgL_new1112z00_3992)))->
																										BgL_ez00) =
																									((BgL_ev_exprz00_bglt)
																										BgL_auxz00_5792), BUNSPEC);
																							}
																							return
																								((obj_t) BgL_new1112z00_3992);
																						}
																					}
																				else
																					{	/* Eval/evaluate.scm 424 */
																						obj_t BgL_arg1626z00_1683;
																						obj_t BgL_arg1627z00_1684;

																						BgL_arg1626z00_1683 =
																							CAR(((obj_t) BgL_ez00_69));
																						BgL_arg1627z00_1684 =
																							CDR(((obj_t) BgL_ez00_69));
																						{
																							BgL_ev_appz00_bglt
																								BgL_auxz00_5803;
																							{
																								obj_t BgL_argsz00_5805;
																								obj_t BgL_fz00_5804;

																								BgL_fz00_5804 =
																									BgL_arg1626z00_1683;
																								BgL_argsz00_5805 =
																									BgL_arg1627z00_1684;
																								BgL_argsz00_1597 =
																									BgL_argsz00_5805;
																								BgL_fz00_1596 = BgL_fz00_5804;
																								goto BgL_tagzd2176zd2_1598;
																							}
																							return ((obj_t) BgL_auxz00_5803);
																						}
																					}
																			}
																		else
																			{	/* Eval/evaluate.scm 424 */
																				obj_t BgL_arg1629z00_1686;
																				obj_t BgL_arg1630z00_1687;

																				BgL_arg1629z00_1686 =
																					CAR(((obj_t) BgL_ez00_69));
																				BgL_arg1630z00_1687 =
																					CDR(((obj_t) BgL_ez00_69));
																				{
																					BgL_ev_appz00_bglt BgL_auxz00_5811;

																					{
																						obj_t BgL_argsz00_5813;
																						obj_t BgL_fz00_5812;

																						BgL_fz00_5812 = BgL_arg1629z00_1686;
																						BgL_argsz00_5813 =
																							BgL_arg1630z00_1687;
																						BgL_argsz00_1597 = BgL_argsz00_5813;
																						BgL_fz00_1596 = BgL_fz00_5812;
																						goto BgL_tagzd2176zd2_1598;
																					}
																					return ((obj_t) BgL_auxz00_5811);
																				}
																			}
																	}
																else
																	{	/* Eval/evaluate.scm 424 */
																		obj_t BgL_cdrzd24514zd2_1688;

																		BgL_cdrzd24514zd2_1688 =
																			CDR(((obj_t) BgL_ez00_69));
																		if (
																			(CAR(
																					((obj_t) BgL_ez00_69)) ==
																				BGl_symbol3011z00zz__evaluatez00))
																			{	/* Eval/evaluate.scm 424 */
																				if (PAIRP(BgL_cdrzd24514zd2_1688))
																					{	/* Eval/evaluate.scm 424 */
																						if (NULLP(CDR
																								(BgL_cdrzd24514zd2_1688)))
																							{	/* Eval/evaluate.scm 424 */
																								obj_t BgL_arg1636z00_1694;

																								BgL_arg1636z00_1694 =
																									CAR(BgL_cdrzd24514zd2_1688);
																								{	/* Eval/evaluate.scm 459 */
																									BgL_ev_littz00_bglt
																										BgL_new1116z00_4007;
																									{	/* Eval/evaluate.scm 460 */
																										BgL_ev_littz00_bglt
																											BgL_new1113z00_4008;
																										BgL_new1113z00_4008 =
																											((BgL_ev_littz00_bglt)
																											BOBJECT(GC_MALLOC(sizeof
																													(struct
																														BgL_ev_littz00_bgl))));
																										{	/* Eval/evaluate.scm 460 */
																											long BgL_arg2300z00_4009;

																											BgL_arg2300z00_4009 =
																												BGL_CLASS_NUM
																												(BGl_ev_littz00zz__evaluate_typesz00);
																											BGL_OBJECT_CLASS_NUM_SET((
																													(BgL_objectz00_bglt)
																													BgL_new1113z00_4008),
																												BgL_arg2300z00_4009);
																										}
																										BgL_new1116z00_4007 =
																											BgL_new1113z00_4008;
																									}
																									((((BgL_ev_littz00_bglt)
																												COBJECT
																												(BgL_new1116z00_4007))->
																											BgL_valuez00) =
																										((obj_t)
																											BgL_arg1636z00_1694),
																										BUNSPEC);
																									return ((obj_t)
																										BgL_new1116z00_4007);
																								}
																							}
																						else
																							{	/* Eval/evaluate.scm 424 */
																								obj_t BgL_arg1637z00_1695;

																								BgL_arg1637z00_1695 =
																									CAR(((obj_t) BgL_ez00_69));
																								{
																									BgL_ev_appz00_bglt
																										BgL_auxz00_5835;
																									{
																										obj_t BgL_argsz00_5837;
																										obj_t BgL_fz00_5836;

																										BgL_fz00_5836 =
																											BgL_arg1637z00_1695;
																										BgL_argsz00_5837 =
																											BgL_cdrzd24514zd2_1688;
																										BgL_argsz00_1597 =
																											BgL_argsz00_5837;
																										BgL_fz00_1596 =
																											BgL_fz00_5836;
																										goto BgL_tagzd2176zd2_1598;
																									}
																									return
																										((obj_t) BgL_auxz00_5835);
																								}
																							}
																					}
																				else
																					{	/* Eval/evaluate.scm 424 */
																						obj_t BgL_arg1642z00_1698;

																						BgL_arg1642z00_1698 =
																							CAR(((obj_t) BgL_ez00_69));
																						{
																							BgL_ev_appz00_bglt
																								BgL_auxz00_5841;
																							{
																								obj_t BgL_argsz00_5843;
																								obj_t BgL_fz00_5842;

																								BgL_fz00_5842 =
																									BgL_arg1642z00_1698;
																								BgL_argsz00_5843 =
																									BgL_cdrzd24514zd2_1688;
																								BgL_argsz00_1597 =
																									BgL_argsz00_5843;
																								BgL_fz00_1596 = BgL_fz00_5842;
																								goto BgL_tagzd2176zd2_1598;
																							}
																							return ((obj_t) BgL_auxz00_5841);
																						}
																					}
																			}
																		else
																			{	/* Eval/evaluate.scm 424 */
																				if (
																					(CAR(
																							((obj_t) BgL_ez00_69)) ==
																						BGl_symbol3019z00zz__evaluatez00))
																					{	/* Eval/evaluate.scm 424 */
																						if (PAIRP(BgL_cdrzd24514zd2_1688))
																							{	/* Eval/evaluate.scm 424 */
																								obj_t BgL_cdrzd25128zd2_1704;

																								BgL_cdrzd25128zd2_1704 =
																									CDR(BgL_cdrzd24514zd2_1688);
																								if (PAIRP
																									(BgL_cdrzd25128zd2_1704))
																									{	/* Eval/evaluate.scm 424 */
																										obj_t
																											BgL_cdrzd25133zd2_1706;
																										BgL_cdrzd25133zd2_1706 =
																											CDR
																											(BgL_cdrzd25128zd2_1704);
																										if (PAIRP
																											(BgL_cdrzd25133zd2_1706))
																											{	/* Eval/evaluate.scm 424 */
																												if (NULLP(CDR
																														(BgL_cdrzd25133zd2_1706)))
																													{	/* Eval/evaluate.scm 424 */
																														obj_t
																															BgL_arg1651z00_1710;
																														obj_t
																															BgL_arg1652z00_1711;
																														obj_t
																															BgL_arg1653z00_1712;
																														BgL_arg1651z00_1710
																															=
																															CAR
																															(BgL_cdrzd24514zd2_1688);
																														BgL_arg1652z00_1711
																															=
																															CAR
																															(BgL_cdrzd25128zd2_1704);
																														BgL_arg1653z00_1712
																															=
																															CAR
																															(BgL_cdrzd25133zd2_1706);
																														{
																															BgL_ev_ifz00_bglt
																																BgL_auxz00_5863;
																															BgL_pz00_1536 =
																																BgL_arg1651z00_1710;
																															BgL_tz00_1537 =
																																BgL_arg1652z00_1711;
																															BgL_oz00_1538 =
																																BgL_arg1653z00_1712;
																														BgL_tagzd2155zd2_1539:
																															{	/* Eval/evaluate.scm 462 */
																																BgL_ev_ifz00_bglt
																																	BgL_new1118z00_2431;
																																{	/* Eval/evaluate.scm 463 */
																																	BgL_ev_ifz00_bglt
																																		BgL_new1117z00_2435;
																																	BgL_new1117z00_2435
																																		=
																																		(
																																		(BgL_ev_ifz00_bglt)
																																		BOBJECT
																																		(GC_MALLOC
																																			(sizeof
																																				(struct
																																					BgL_ev_ifz00_bgl))));
																																	{	/* Eval/evaluate.scm 463 */
																																		long
																																			BgL_arg2304z00_2436;
																																		BgL_arg2304z00_2436
																																			=
																																			BGL_CLASS_NUM
																																			(BGl_ev_ifz00zz__evaluate_typesz00);
																																		BGL_OBJECT_CLASS_NUM_SET
																																			(((BgL_objectz00_bglt) BgL_new1117z00_2435), BgL_arg2304z00_2436);
																																	}
																																	BgL_new1118z00_2431
																																		=
																																		BgL_new1117z00_2435;
																																}
																																{
																																	BgL_ev_exprz00_bglt
																																		BgL_auxz00_5868;
																																	{	/* Eval/evaluate.scm 463 */
																																		obj_t
																																			BgL_arg2301z00_2432;
																																		{	/* Eval/evaluate.scm 144 */
																																			obj_t
																																				BgL__ortest_1069z00_3624;
																																			BgL__ortest_1069z00_3624
																																				=
																																				BGl_getzd2sourcezd2locationz00zz__readerz00
																																				(BgL_pz00_1536);
																																			if (CBOOL
																																				(BgL__ortest_1069z00_3624))
																																				{	/* Eval/evaluate.scm 144 */
																																					BgL_arg2301z00_2432
																																						=
																																						BgL__ortest_1069z00_3624;
																																				}
																																			else
																																				{	/* Eval/evaluate.scm 144 */
																																					BgL_arg2301z00_2432
																																						=
																																						BgL_locz00_74;
																																				}
																																		}
																																		BgL_auxz00_5868
																																			=
																																			(
																																			(BgL_ev_exprz00_bglt)
																																			BGl_convz00zz__evaluatez00
																																			(BgL_pz00_1536,
																																				BgL_localsz00_70,
																																				BgL_globalsz00_71,
																																				BFALSE,
																																				BgL_wherez00_73,
																																				BgL_arg2301z00_2432,
																																				((bool_t) 0)));
																																	}
																																	((((BgL_ev_ifz00_bglt) COBJECT(BgL_new1118z00_2431))->BgL_pz00) = ((BgL_ev_exprz00_bglt) BgL_auxz00_5868), BUNSPEC);
																																}
																																{
																																	BgL_ev_exprz00_bglt
																																		BgL_auxz00_5875;
																																	{	/* Eval/evaluate.scm 464 */
																																		obj_t
																																			BgL_arg2302z00_2433;
																																		{	/* Eval/evaluate.scm 144 */
																																			obj_t
																																				BgL__ortest_1069z00_3625;
																																			BgL__ortest_1069z00_3625
																																				=
																																				BGl_getzd2sourcezd2locationz00zz__readerz00
																																				(BgL_tz00_1537);
																																			if (CBOOL
																																				(BgL__ortest_1069z00_3625))
																																				{	/* Eval/evaluate.scm 144 */
																																					BgL_arg2302z00_2433
																																						=
																																						BgL__ortest_1069z00_3625;
																																				}
																																			else
																																				{	/* Eval/evaluate.scm 144 */
																																					BgL_arg2302z00_2433
																																						=
																																						BgL_locz00_74;
																																				}
																																		}
																																		BgL_auxz00_5875
																																			=
																																			(
																																			(BgL_ev_exprz00_bglt)
																																			BGl_convz00zz__evaluatez00
																																			(BgL_tz00_1537,
																																				BgL_localsz00_70,
																																				BgL_globalsz00_71,
																																				BgL_tailzf3zf3_72,
																																				BgL_wherez00_73,
																																				BgL_arg2302z00_2433,
																																				((bool_t) 0)));
																																	}
																																	((((BgL_ev_ifz00_bglt) COBJECT(BgL_new1118z00_2431))->BgL_tz00) = ((BgL_ev_exprz00_bglt) BgL_auxz00_5875), BUNSPEC);
																																}
																																{
																																	BgL_ev_exprz00_bglt
																																		BgL_auxz00_5882;
																																	{	/* Eval/evaluate.scm 465 */
																																		obj_t
																																			BgL_arg2303z00_2434;
																																		{	/* Eval/evaluate.scm 144 */
																																			obj_t
																																				BgL__ortest_1069z00_3626;
																																			BgL__ortest_1069z00_3626
																																				=
																																				BGl_getzd2sourcezd2locationz00zz__readerz00
																																				(BgL_oz00_1538);
																																			if (CBOOL
																																				(BgL__ortest_1069z00_3626))
																																				{	/* Eval/evaluate.scm 144 */
																																					BgL_arg2303z00_2434
																																						=
																																						BgL__ortest_1069z00_3626;
																																				}
																																			else
																																				{	/* Eval/evaluate.scm 144 */
																																					BgL_arg2303z00_2434
																																						=
																																						BgL_locz00_74;
																																				}
																																		}
																																		BgL_auxz00_5882
																																			=
																																			(
																																			(BgL_ev_exprz00_bglt)
																																			BGl_convz00zz__evaluatez00
																																			(BgL_oz00_1538,
																																				BgL_localsz00_70,
																																				BgL_globalsz00_71,
																																				BgL_tailzf3zf3_72,
																																				BgL_wherez00_73,
																																				BgL_arg2303z00_2434,
																																				((bool_t) 0)));
																																	}
																																	((((BgL_ev_ifz00_bglt) COBJECT(BgL_new1118z00_2431))->BgL_ez00) = ((BgL_ev_exprz00_bglt) BgL_auxz00_5882), BUNSPEC);
																																}
																																BgL_auxz00_5863
																																	=
																																	BgL_new1118z00_2431;
																															}
																															return
																																((obj_t)
																																BgL_auxz00_5863);
																														}
																													}
																												else
																													{	/* Eval/evaluate.scm 424 */
																														obj_t
																															BgL_arg1655z00_1713;
																														obj_t
																															BgL_arg1658z00_1714;
																														BgL_arg1655z00_1713
																															=
																															CAR(((obj_t)
																																BgL_ez00_69));
																														BgL_arg1658z00_1714
																															=
																															CDR(((obj_t)
																																BgL_ez00_69));
																														{
																															BgL_ev_appz00_bglt
																																BgL_auxz00_5894;
																															{
																																obj_t
																																	BgL_argsz00_5896;
																																obj_t
																																	BgL_fz00_5895;
																																BgL_fz00_5895 =
																																	BgL_arg1655z00_1713;
																																BgL_argsz00_5896
																																	=
																																	BgL_arg1658z00_1714;
																																BgL_argsz00_1597
																																	=
																																	BgL_argsz00_5896;
																																BgL_fz00_1596 =
																																	BgL_fz00_5895;
																																goto
																																	BgL_tagzd2176zd2_1598;
																															}
																															return
																																((obj_t)
																																BgL_auxz00_5894);
																														}
																													}
																											}
																										else
																											{	/* Eval/evaluate.scm 424 */
																												obj_t
																													BgL_cdrzd25433zd2_1716;
																												BgL_cdrzd25433zd2_1716 =
																													CDR(((obj_t)
																														BgL_ez00_69));
																												{	/* Eval/evaluate.scm 424 */
																													obj_t
																														BgL_cdrzd25439zd2_1717;
																													BgL_cdrzd25439zd2_1717
																														=
																														CDR(((obj_t)
																															BgL_cdrzd25433zd2_1716));
																													if (NULLP(CDR(((obj_t)
																																	BgL_cdrzd25439zd2_1717))))
																														{	/* Eval/evaluate.scm 424 */
																															obj_t
																																BgL_arg1662z00_1720;
																															obj_t
																																BgL_arg1664z00_1721;
																															BgL_arg1662z00_1720
																																=
																																CAR(((obj_t)
																																	BgL_cdrzd25433zd2_1716));
																															BgL_arg1664z00_1721
																																=
																																CAR(((obj_t)
																																	BgL_cdrzd25439zd2_1717));
																															{
																																BgL_ev_ifz00_bglt
																																	BgL_auxz00_5910;
																																BgL_pz00_1540 =
																																	BgL_arg1662z00_1720;
																																BgL_tz00_1541 =
																																	BgL_arg1664z00_1721;
																															BgL_tagzd2156zd2_1542:
																																{	/* Eval/evaluate.scm 467 */
																																	BgL_ev_ifz00_bglt
																																		BgL_new1121z00_2437;
																																	{	/* Eval/evaluate.scm 468 */
																																		BgL_ev_ifz00_bglt
																																			BgL_new1120z00_2441;
																																		BgL_new1120z00_2441
																																			=
																																			(
																																			(BgL_ev_ifz00_bglt)
																																			BOBJECT
																																			(GC_MALLOC
																																				(sizeof
																																					(struct
																																						BgL_ev_ifz00_bgl))));
																																		{	/* Eval/evaluate.scm 468 */
																																			long
																																				BgL_arg2310z00_2442;
																																			BgL_arg2310z00_2442
																																				=
																																				BGL_CLASS_NUM
																																				(BGl_ev_ifz00zz__evaluate_typesz00);
																																			BGL_OBJECT_CLASS_NUM_SET
																																				(((BgL_objectz00_bglt) BgL_new1120z00_2441), BgL_arg2310z00_2442);
																																		}
																																		BgL_new1121z00_2437
																																			=
																																			BgL_new1120z00_2441;
																																	}
																																	{
																																		BgL_ev_exprz00_bglt
																																			BgL_auxz00_5915;
																																		{	/* Eval/evaluate.scm 468 */
																																			obj_t
																																				BgL_arg2306z00_2438;
																																			{	/* Eval/evaluate.scm 144 */
																																				obj_t
																																					BgL__ortest_1069z00_3630;
																																				BgL__ortest_1069z00_3630
																																					=
																																					BGl_getzd2sourcezd2locationz00zz__readerz00
																																					(BgL_pz00_1540);
																																				if (CBOOL(BgL__ortest_1069z00_3630))
																																					{	/* Eval/evaluate.scm 144 */
																																						BgL_arg2306z00_2438
																																							=
																																							BgL__ortest_1069z00_3630;
																																					}
																																				else
																																					{	/* Eval/evaluate.scm 144 */
																																						BgL_arg2306z00_2438
																																							=
																																							BgL_locz00_74;
																																					}
																																			}
																																			BgL_auxz00_5915
																																				=
																																				(
																																				(BgL_ev_exprz00_bglt)
																																				BGl_convz00zz__evaluatez00
																																				(BgL_pz00_1540,
																																					BgL_localsz00_70,
																																					BgL_globalsz00_71,
																																					BFALSE,
																																					BgL_wherez00_73,
																																					BgL_arg2306z00_2438,
																																					((bool_t) 0)));
																																		}
																																		((((BgL_ev_ifz00_bglt) COBJECT(BgL_new1121z00_2437))->BgL_pz00) = ((BgL_ev_exprz00_bglt) BgL_auxz00_5915), BUNSPEC);
																																	}
																																	{
																																		BgL_ev_exprz00_bglt
																																			BgL_auxz00_5922;
																																		{	/* Eval/evaluate.scm 469 */
																																			obj_t
																																				BgL_arg2307z00_2439;
																																			{	/* Eval/evaluate.scm 144 */
																																				obj_t
																																					BgL__ortest_1069z00_3631;
																																				BgL__ortest_1069z00_3631
																																					=
																																					BGl_getzd2sourcezd2locationz00zz__readerz00
																																					(BgL_tz00_1541);
																																				if (CBOOL(BgL__ortest_1069z00_3631))
																																					{	/* Eval/evaluate.scm 144 */
																																						BgL_arg2307z00_2439
																																							=
																																							BgL__ortest_1069z00_3631;
																																					}
																																				else
																																					{	/* Eval/evaluate.scm 144 */
																																						BgL_arg2307z00_2439
																																							=
																																							BgL_locz00_74;
																																					}
																																			}
																																			BgL_auxz00_5922
																																				=
																																				(
																																				(BgL_ev_exprz00_bglt)
																																				BGl_convz00zz__evaluatez00
																																				(BgL_tz00_1541,
																																					BgL_localsz00_70,
																																					BgL_globalsz00_71,
																																					BgL_tailzf3zf3_72,
																																					BgL_wherez00_73,
																																					BgL_arg2307z00_2439,
																																					((bool_t) 0)));
																																		}
																																		((((BgL_ev_ifz00_bglt) COBJECT(BgL_new1121z00_2437))->BgL_tz00) = ((BgL_ev_exprz00_bglt) BgL_auxz00_5922), BUNSPEC);
																																	}
																																	{
																																		BgL_ev_exprz00_bglt
																																			BgL_auxz00_5929;
																																		{	/* Eval/evaluate.scm 470 */
																																			obj_t
																																				BgL_arg2309z00_2440;
																																			{	/* Eval/evaluate.scm 144 */
																																				obj_t
																																					BgL__ortest_1069z00_3632;
																																				BgL__ortest_1069z00_3632
																																					=
																																					BGl_getzd2sourcezd2locationz00zz__readerz00
																																					(BFALSE);
																																				if (CBOOL(BgL__ortest_1069z00_3632))
																																					{	/* Eval/evaluate.scm 144 */
																																						BgL_arg2309z00_2440
																																							=
																																							BgL__ortest_1069z00_3632;
																																					}
																																				else
																																					{	/* Eval/evaluate.scm 144 */
																																						BgL_arg2309z00_2440
																																							=
																																							BgL_locz00_74;
																																					}
																																			}
																																			BgL_auxz00_5929
																																				=
																																				(
																																				(BgL_ev_exprz00_bglt)
																																				BGl_convz00zz__evaluatez00
																																				(BgL_ez00_69,
																																					BgL_localsz00_70,
																																					BgL_globalsz00_71,
																																					BgL_tailzf3zf3_72,
																																					BgL_wherez00_73,
																																					BgL_arg2309z00_2440,
																																					((bool_t) 0)));
																																		}
																																		((((BgL_ev_ifz00_bglt) COBJECT(BgL_new1121z00_2437))->BgL_ez00) = ((BgL_ev_exprz00_bglt) BgL_auxz00_5929), BUNSPEC);
																																	}
																																	BgL_auxz00_5910
																																		=
																																		BgL_new1121z00_2437;
																																}
																																return
																																	((obj_t)
																																	BgL_auxz00_5910);
																															}
																														}
																													else
																														{	/* Eval/evaluate.scm 424 */
																															obj_t
																																BgL_arg1665z00_1722;
																															BgL_arg1665z00_1722
																																=
																																CAR(((obj_t)
																																	BgL_ez00_69));
																															{
																																BgL_ev_appz00_bglt
																																	BgL_auxz00_5939;
																																{
																																	obj_t
																																		BgL_argsz00_5941;
																																	obj_t
																																		BgL_fz00_5940;
																																	BgL_fz00_5940
																																		=
																																		BgL_arg1665z00_1722;
																																	BgL_argsz00_5941
																																		=
																																		BgL_cdrzd25433zd2_1716;
																																	BgL_argsz00_1597
																																		=
																																		BgL_argsz00_5941;
																																	BgL_fz00_1596
																																		=
																																		BgL_fz00_5940;
																																	goto
																																		BgL_tagzd2176zd2_1598;
																																}
																																return
																																	((obj_t)
																																	BgL_auxz00_5939);
																															}
																														}
																												}
																											}
																									}
																								else
																									{	/* Eval/evaluate.scm 424 */
																										obj_t BgL_arg1671z00_1725;
																										obj_t BgL_arg1672z00_1726;

																										BgL_arg1671z00_1725 =
																											CAR(
																											((obj_t) BgL_ez00_69));
																										BgL_arg1672z00_1726 =
																											CDR(
																											((obj_t) BgL_ez00_69));
																										{
																											BgL_ev_appz00_bglt
																												BgL_auxz00_5947;
																											{
																												obj_t BgL_argsz00_5949;
																												obj_t BgL_fz00_5948;

																												BgL_fz00_5948 =
																													BgL_arg1671z00_1725;
																												BgL_argsz00_5949 =
																													BgL_arg1672z00_1726;
																												BgL_argsz00_1597 =
																													BgL_argsz00_5949;
																												BgL_fz00_1596 =
																													BgL_fz00_5948;
																												goto
																													BgL_tagzd2176zd2_1598;
																											}
																											return
																												((obj_t)
																												BgL_auxz00_5947);
																										}
																									}
																							}
																						else
																							{	/* Eval/evaluate.scm 424 */
																								obj_t BgL_arg1673z00_1727;
																								obj_t BgL_arg1674z00_1728;

																								BgL_arg1673z00_1727 =
																									CAR(((obj_t) BgL_ez00_69));
																								BgL_arg1674z00_1728 =
																									CDR(((obj_t) BgL_ez00_69));
																								{
																									BgL_ev_appz00_bglt
																										BgL_auxz00_5955;
																									{
																										obj_t BgL_argsz00_5957;
																										obj_t BgL_fz00_5956;

																										BgL_fz00_5956 =
																											BgL_arg1673z00_1727;
																										BgL_argsz00_5957 =
																											BgL_arg1674z00_1728;
																										BgL_argsz00_1597 =
																											BgL_argsz00_5957;
																										BgL_fz00_1596 =
																											BgL_fz00_5956;
																										goto BgL_tagzd2176zd2_1598;
																									}
																									return
																										((obj_t) BgL_auxz00_5955);
																								}
																							}
																					}
																				else
																					{	/* Eval/evaluate.scm 424 */
																						if (
																							(CAR(
																									((obj_t) BgL_ez00_69)) ==
																								BGl_symbol3048z00zz__evaluatez00))
																							{	/* Eval/evaluate.scm 424 */
																								obj_t BgL_arg1681z00_1731;

																								BgL_arg1681z00_1731 =
																									CDR(((obj_t) BgL_ez00_69));
																								{	/* Eval/evaluate.scm 472 */
																									BgL_ev_orz00_bglt
																										BgL_new1124z00_4040;
																									{	/* Eval/evaluate.scm 473 */
																										BgL_ev_orz00_bglt
																											BgL_new1123z00_4041;
																										BgL_new1123z00_4041 =
																											((BgL_ev_orz00_bglt)
																											BOBJECT(GC_MALLOC(sizeof
																													(struct
																														BgL_ev_orz00_bgl))));
																										{	/* Eval/evaluate.scm 473 */
																											long BgL_arg2311z00_4042;

																											BgL_arg2311z00_4042 =
																												BGL_CLASS_NUM
																												(BGl_ev_orz00zz__evaluate_typesz00);
																											BGL_OBJECT_CLASS_NUM_SET((
																													(BgL_objectz00_bglt)
																													BgL_new1123z00_4041),
																												BgL_arg2311z00_4042);
																										}
																										BgL_new1124z00_4040 =
																											BgL_new1123z00_4041;
																									}
																									((((BgL_ev_listz00_bglt)
																												COBJECT((
																														(BgL_ev_listz00_bglt)
																														BgL_new1124z00_4040)))->
																											BgL_argsz00) =
																										((obj_t)
																											BGl_loopze70ze7zz__evaluatez00
																											(BgL_wherez00_73,
																												BgL_globalsz00_71,
																												BgL_localsz00_70,
																												BgL_locz00_74,
																												BgL_arg1681z00_1731)),
																										BUNSPEC);
																									return ((obj_t)
																										BgL_new1124z00_4040);
																								}
																							}
																						else
																							{	/* Eval/evaluate.scm 424 */
																								if (
																									(CAR(
																											((obj_t) BgL_ez00_69)) ==
																										BGl_symbol3050z00zz__evaluatez00))
																									{	/* Eval/evaluate.scm 424 */
																										obj_t BgL_arg1687z00_1734;

																										BgL_arg1687z00_1734 =
																											CDR(
																											((obj_t) BgL_ez00_69));
																										{	/* Eval/evaluate.scm 475 */
																											BgL_ev_andz00_bglt
																												BgL_new1126z00_4048;
																											{	/* Eval/evaluate.scm 476 */
																												BgL_ev_andz00_bglt
																													BgL_new1125z00_4049;
																												BgL_new1125z00_4049 =
																													((BgL_ev_andz00_bglt)
																													BOBJECT(GC_MALLOC
																														(sizeof(struct
																																BgL_ev_andz00_bgl))));
																												{	/* Eval/evaluate.scm 476 */
																													long
																														BgL_arg2313z00_4050;
																													BgL_arg2313z00_4050 =
																														BGL_CLASS_NUM
																														(BGl_ev_andz00zz__evaluate_typesz00);
																													BGL_OBJECT_CLASS_NUM_SET
																														(((BgL_objectz00_bglt) BgL_new1125z00_4049), BgL_arg2313z00_4050);
																												}
																												BgL_new1126z00_4048 =
																													BgL_new1125z00_4049;
																											}
																											((((BgL_ev_listz00_bglt)
																														COBJECT((
																																(BgL_ev_listz00_bglt)
																																BgL_new1126z00_4048)))->
																													BgL_argsz00) =
																												((obj_t)
																													BGl_loopze70ze7zz__evaluatez00
																													(BgL_wherez00_73,
																														BgL_globalsz00_71,
																														BgL_localsz00_70,
																														BgL_locz00_74,
																														BgL_arg1687z00_1734)),
																												BUNSPEC);
																											return ((obj_t)
																												BgL_new1126z00_4048);
																										}
																									}
																								else
																									{	/* Eval/evaluate.scm 424 */
																										if (
																											(CAR(
																													((obj_t) BgL_ez00_69))
																												==
																												BGl_symbol3035z00zz__evaluatez00))
																											{	/* Eval/evaluate.scm 424 */
																												obj_t
																													BgL_arg1691z00_1737;
																												BgL_arg1691z00_1737 =
																													CDR(((obj_t)
																														BgL_ez00_69));
																												BGL_TAIL return
																													BGl_convzd2beginzd2zz__evaluatez00
																													(BgL_arg1691z00_1737,
																													BgL_localsz00_70,
																													BgL_globalsz00_71,
																													BgL_tailzf3zf3_72,
																													BgL_wherez00_73,
																													BgL_locz00_74,
																													BgL_topzf3zf3_75);
																											}
																										else
																											{	/* Eval/evaluate.scm 424 */
																												obj_t
																													BgL_cdrzd26338zd2_1738;
																												BgL_cdrzd26338zd2_1738 =
																													CDR(((obj_t)
																														BgL_ez00_69));
																												if ((CAR(((obj_t)
																																BgL_ez00_69)) ==
																														BGl_symbol3021z00zz__evaluatez00))
																													{	/* Eval/evaluate.scm 424 */
																														if (PAIRP
																															(BgL_cdrzd26338zd2_1738))
																															{	/* Eval/evaluate.scm 424 */
																																obj_t
																																	BgL_arg1697z00_1742;
																																obj_t
																																	BgL_arg1698z00_1743;
																																BgL_arg1697z00_1742
																																	=
																																	CAR
																																	(BgL_cdrzd26338zd2_1738);
																																BgL_arg1698z00_1743
																																	=
																																	CDR
																																	(BgL_cdrzd26338zd2_1738);
																																{
																																	BgL_ev_letz00_bglt
																																		BgL_auxz00_6004;
																																	BgL_bindsz00_1549
																																		=
																																		BgL_arg1697z00_1742;
																																	BgL_bodyz00_1550
																																		=
																																		BgL_arg1698z00_1743;
																																BgL_tagzd2160zd2_1551:
																																	{	/* Eval/evaluate.scm 480 */
																																		obj_t
																																			BgL_ubindsz00_2449;
																																		if (NULLP
																																			(BgL_bindsz00_1549))
																																			{	/* Eval/evaluate.scm 480 */
																																				BgL_ubindsz00_2449
																																					=
																																					BNIL;
																																			}
																																		else
																																			{	/* Eval/evaluate.scm 480 */
																																				obj_t
																																					BgL_head1220z00_2494;
																																				BgL_head1220z00_2494
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BNIL,
																																					BNIL);
																																				{
																																					obj_t
																																						BgL_l1218z00_3668;
																																					obj_t
																																						BgL_tail1221z00_3669;
																																					BgL_l1218z00_3668
																																						=
																																						BgL_bindsz00_1549;
																																					BgL_tail1221z00_3669
																																						=
																																						BgL_head1220z00_2494;
																																				BgL_zc3z04anonymousza32334ze3z87_3667:
																																					if (NULLP(BgL_l1218z00_3668))
																																						{	/* Eval/evaluate.scm 480 */
																																							BgL_ubindsz00_2449
																																								=
																																								CDR
																																								(BgL_head1220z00_2494);
																																						}
																																					else
																																						{	/* Eval/evaluate.scm 480 */
																																							obj_t
																																								BgL_newtail1222z00_3677;
																																							{	/* Eval/evaluate.scm 480 */
																																								obj_t
																																									BgL_arg2338z00_3678;
																																								{	/* Eval/evaluate.scm 480 */
																																									obj_t
																																										BgL_bz00_3679;
																																									BgL_bz00_3679
																																										=
																																										CAR
																																										(
																																										((obj_t) BgL_l1218z00_3668));
																																									{	/* Eval/evaluate.scm 480 */
																																										obj_t
																																											BgL_arg2339z00_3680;
																																										BgL_arg2339z00_3680
																																											=
																																											CAR
																																											(
																																											((obj_t) BgL_bz00_3679));
																																										BgL_arg2338z00_3678
																																											=
																																											BGl_untypezd2identzd2zz__evaluatez00
																																											(BgL_arg2339z00_3680);
																																									}
																																								}
																																								BgL_newtail1222z00_3677
																																									=
																																									MAKE_YOUNG_PAIR
																																									(BgL_arg2338z00_3678,
																																									BNIL);
																																							}
																																							SET_CDR
																																								(BgL_tail1221z00_3669,
																																								BgL_newtail1222z00_3677);
																																							{	/* Eval/evaluate.scm 480 */
																																								obj_t
																																									BgL_arg2337z00_3681;
																																								BgL_arg2337z00_3681
																																									=
																																									CDR
																																									(
																																									((obj_t) BgL_l1218z00_3668));
																																								{
																																									obj_t
																																										BgL_tail1221z00_6021;
																																									obj_t
																																										BgL_l1218z00_6020;
																																									BgL_l1218z00_6020
																																										=
																																										BgL_arg2337z00_3681;
																																									BgL_tail1221z00_6021
																																										=
																																										BgL_newtail1222z00_3677;
																																									BgL_tail1221z00_3669
																																										=
																																										BgL_tail1221z00_6021;
																																									BgL_l1218z00_3668
																																										=
																																										BgL_l1218z00_6020;
																																									goto
																																										BgL_zc3z04anonymousza32334ze3z87_3667;
																																								}
																																							}
																																						}
																																				}
																																			}
																																		{	/* Eval/evaluate.scm 480 */
																																			obj_t
																																				BgL_varsz00_2450;
																																			if (NULLP
																																				(BgL_ubindsz00_2449))
																																				{	/* Eval/evaluate.scm 481 */
																																					BgL_varsz00_2450
																																						=
																																						BNIL;
																																				}
																																			else
																																				{	/* Eval/evaluate.scm 481 */
																																					obj_t
																																						BgL_head1225z00_2478;
																																					BgL_head1225z00_2478
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BNIL,
																																						BNIL);
																																					{
																																						obj_t
																																							BgL_l1223z00_2480;
																																						obj_t
																																							BgL_tail1226z00_2481;
																																						BgL_l1223z00_2480
																																							=
																																							BgL_ubindsz00_2449;
																																						BgL_tail1226z00_2481
																																							=
																																							BgL_head1225z00_2478;
																																					BgL_zc3z04anonymousza32328ze3z87_2482:
																																						if (NULLP(BgL_l1223z00_2480))
																																							{	/* Eval/evaluate.scm 481 */
																																								BgL_varsz00_2450
																																									=
																																									CDR
																																									(BgL_head1225z00_2478);
																																							}
																																						else
																																							{	/* Eval/evaluate.scm 481 */
																																								obj_t
																																									BgL_newtail1227z00_2484;
																																								{	/* Eval/evaluate.scm 481 */
																																									BgL_ev_varz00_bglt
																																										BgL_arg2331z00_2486;
																																									{	/* Eval/evaluate.scm 481 */
																																										obj_t
																																											BgL_iz00_2487;
																																										BgL_iz00_2487
																																											=
																																											CAR
																																											(
																																											((obj_t) BgL_l1223z00_2480));
																																										{	/* Eval/evaluate.scm 482 */
																																											BgL_ev_varz00_bglt
																																												BgL_new1128z00_2488;
																																											{	/* Eval/evaluate.scm 484 */
																																												BgL_ev_varz00_bglt
																																													BgL_new1127z00_2489;
																																												BgL_new1127z00_2489
																																													=
																																													(
																																													(BgL_ev_varz00_bglt)
																																													BOBJECT
																																													(GC_MALLOC
																																														(sizeof
																																															(struct
																																																BgL_ev_varz00_bgl))));
																																												{	/* Eval/evaluate.scm 484 */
																																													long
																																														BgL_arg2332z00_2490;
																																													BgL_arg2332z00_2490
																																														=
																																														BGL_CLASS_NUM
																																														(BGl_ev_varz00zz__evaluate_typesz00);
																																													BGL_OBJECT_CLASS_NUM_SET
																																														(
																																														((BgL_objectz00_bglt) BgL_new1127z00_2489), BgL_arg2332z00_2490);
																																												}
																																												BgL_new1128z00_2488
																																													=
																																													BgL_new1127z00_2489;
																																											}
																																											((((BgL_ev_varz00_bglt) COBJECT(BgL_new1128z00_2488))->BgL_namez00) = ((obj_t) CAR(((obj_t) BgL_iz00_2487))), BUNSPEC);
																																											((((BgL_ev_varz00_bglt) COBJECT(BgL_new1128z00_2488))->BgL_effz00) = ((obj_t) BFALSE), BUNSPEC);
																																											((((BgL_ev_varz00_bglt) COBJECT(BgL_new1128z00_2488))->BgL_typez00) = ((obj_t) CDR(((obj_t) BgL_iz00_2487))), BUNSPEC);
																																											BgL_arg2331z00_2486
																																												=
																																												BgL_new1128z00_2488;
																																									}}
																																									BgL_newtail1227z00_2484
																																										=
																																										MAKE_YOUNG_PAIR
																																										(
																																										((obj_t) BgL_arg2331z00_2486), BNIL);
																																								}
																																								SET_CDR
																																									(BgL_tail1226z00_2481,
																																									BgL_newtail1227z00_2484);
																																								{	/* Eval/evaluate.scm 481 */
																																									obj_t
																																										BgL_arg2330z00_2485;
																																									BgL_arg2330z00_2485
																																										=
																																										CDR
																																										(
																																										((obj_t) BgL_l1223z00_2480));
																																									{
																																										obj_t
																																											BgL_tail1226z00_6047;
																																										obj_t
																																											BgL_l1223z00_6046;
																																										BgL_l1223z00_6046
																																											=
																																											BgL_arg2330z00_2485;
																																										BgL_tail1226z00_6047
																																											=
																																											BgL_newtail1227z00_2484;
																																										BgL_tail1226z00_2481
																																											=
																																											BgL_tail1226z00_6047;
																																										BgL_l1223z00_2480
																																											=
																																											BgL_l1223z00_6046;
																																										goto
																																											BgL_zc3z04anonymousza32328ze3z87_2482;
																																									}
																																								}
																																							}
																																					}
																																				}
																																			{	/* Eval/evaluate.scm 481 */
																																				obj_t
																																					BgL_bodyz00_2451;
																																				{	/* Eval/evaluate.scm 486 */
																																					bool_t
																																						BgL_test3280z00_6048;
																																					{	/* Eval/evaluate.scm 486 */
																																						obj_t
																																							BgL_tmpz00_6049;
																																						BgL_tmpz00_6049
																																							=
																																							CDR
																																							(((obj_t) BgL_bodyz00_1550));
																																						BgL_test3280z00_6048
																																							=
																																							PAIRP
																																							(BgL_tmpz00_6049);
																																					}
																																					if (BgL_test3280z00_6048)
																																						{	/* Eval/evaluate.scm 486 */
																																							obj_t
																																								BgL_res2939z00_3698;
																																							BgL_res2939z00_3698
																																								=
																																								MAKE_YOUNG_EPAIR
																																								(BGl_symbol3035z00zz__evaluatez00,
																																								BgL_bodyz00_1550,
																																								BgL_locz00_74);
																																							BgL_bodyz00_2451
																																								=
																																								BgL_res2939z00_3698;
																																						}
																																					else
																																						{	/* Eval/evaluate.scm 486 */
																																							BgL_bodyz00_2451
																																								=
																																								CAR
																																								(
																																								((obj_t) BgL_bodyz00_1550));
																																						}
																																				}
																																				{	/* Eval/evaluate.scm 486 */
																																					obj_t
																																						BgL_tbodyz00_2452;
																																					BgL_tbodyz00_2452
																																						=
																																						BGl_typezd2checkszd2zz__evaluatez00
																																						(BgL_ubindsz00_2449,
																																						BgL_bindsz00_1549,
																																						BgL_bodyz00_2451,
																																						BgL_locz00_74,
																																						BgL_wherez00_73);
																																					{	/* Eval/evaluate.scm 487 */

																																						{	/* Eval/evaluate.scm 488 */
																																							obj_t
																																								BgL_blocz00_2453;
																																							{	/* Eval/evaluate.scm 144 */
																																								obj_t
																																									BgL__ortest_1069z00_3700;
																																								BgL__ortest_1069z00_3700
																																									=
																																									BGl_getzd2sourcezd2locationz00zz__readerz00
																																									(BgL_bindsz00_1549);
																																								if (CBOOL(BgL__ortest_1069z00_3700))
																																									{	/* Eval/evaluate.scm 144 */
																																										BgL_blocz00_2453
																																											=
																																											BgL__ortest_1069z00_3700;
																																									}
																																								else
																																									{	/* Eval/evaluate.scm 144 */
																																										BgL_blocz00_2453
																																											=
																																											BgL_locz00_74;
																																									}
																																							}
																																							{	/* Eval/evaluate.scm 489 */
																																								BgL_ev_letz00_bglt
																																									BgL_new1130z00_2454;
																																								{	/* Eval/evaluate.scm 490 */
																																									BgL_ev_letz00_bglt
																																										BgL_new1129z00_2471;
																																									BgL_new1129z00_2471
																																										=
																																										(
																																										(BgL_ev_letz00_bglt)
																																										BOBJECT
																																										(GC_MALLOC
																																											(sizeof
																																												(struct
																																													BgL_ev_letz00_bgl))));
																																									{	/* Eval/evaluate.scm 490 */
																																										long
																																											BgL_arg2323z00_2472;
																																										BgL_arg2323z00_2472
																																											=
																																											BGL_CLASS_NUM
																																											(BGl_ev_letz00zz__evaluate_typesz00);
																																										BGL_OBJECT_CLASS_NUM_SET
																																											(
																																											((BgL_objectz00_bglt) BgL_new1129z00_2471), BgL_arg2323z00_2472);
																																									}
																																									BgL_new1130z00_2454
																																										=
																																										BgL_new1129z00_2471;
																																								}
																																								((((BgL_ev_binderz00_bglt) COBJECT(((BgL_ev_binderz00_bglt) BgL_new1130z00_2454)))->BgL_varsz00) = ((obj_t) BgL_varsz00_2450), BUNSPEC);
																																								{
																																									obj_t
																																										BgL_auxz00_6066;
																																									if (NULLP(BgL_bindsz00_1549))
																																										{	/* Eval/evaluate.scm 491 */
																																											BgL_auxz00_6066
																																												=
																																												BNIL;
																																										}
																																									else
																																										{	/* Eval/evaluate.scm 491 */
																																											obj_t
																																												BgL_head1230z00_2457;
																																											BgL_head1230z00_2457
																																												=
																																												MAKE_YOUNG_PAIR
																																												(BNIL,
																																												BNIL);
																																											{
																																												obj_t
																																													BgL_l1228z00_2459;
																																												obj_t
																																													BgL_tail1231z00_2460;
																																												BgL_l1228z00_2459
																																													=
																																													BgL_bindsz00_1549;
																																												BgL_tail1231z00_2460
																																													=
																																													BgL_head1230z00_2457;
																																											BgL_zc3z04anonymousza32315ze3z87_2461:
																																												if (NULLP(BgL_l1228z00_2459))
																																													{	/* Eval/evaluate.scm 491 */
																																														BgL_auxz00_6066
																																															=
																																															CDR
																																															(BgL_head1230z00_2457);
																																													}
																																												else
																																													{	/* Eval/evaluate.scm 491 */
																																														obj_t
																																															BgL_newtail1232z00_2463;
																																														{	/* Eval/evaluate.scm 491 */
																																															obj_t
																																																BgL_arg2319z00_2465;
																																															{	/* Eval/evaluate.scm 491 */
																																																obj_t
																																																	BgL_bz00_2466;
																																																BgL_bz00_2466
																																																	=
																																																	CAR
																																																	(
																																																	((obj_t) BgL_l1228z00_2459));
																																																{	/* Eval/evaluate.scm 492 */
																																																	obj_t
																																																		BgL_locz00_2467;
																																																	{	/* Eval/evaluate.scm 144 */
																																																		obj_t
																																																			BgL__ortest_1069z00_3706;
																																																		BgL__ortest_1069z00_3706
																																																			=
																																																			BGl_getzd2sourcezd2locationz00zz__readerz00
																																																			(BgL_bz00_2466);
																																																		if (CBOOL(BgL__ortest_1069z00_3706))
																																																			{	/* Eval/evaluate.scm 144 */
																																																				BgL_locz00_2467
																																																					=
																																																					BgL__ortest_1069z00_3706;
																																																			}
																																																		else
																																																			{	/* Eval/evaluate.scm 144 */
																																																				BgL_locz00_2467
																																																					=
																																																					BgL_blocz00_2453;
																																																			}
																																																	}
																																																	{	/* Eval/evaluate.scm 493 */
																																																		obj_t
																																																			BgL_arg2320z00_2468;
																																																		{	/* Eval/evaluate.scm 493 */
																																																			obj_t
																																																				BgL_pairz00_3710;
																																																			BgL_pairz00_3710
																																																				=
																																																				CDR
																																																				(
																																																				((obj_t) BgL_bz00_2466));
																																																			BgL_arg2320z00_2468
																																																				=
																																																				CAR
																																																				(BgL_pairz00_3710);
																																																		}
																																																		BgL_arg2319z00_2465
																																																			=
																																																			BGl_convz00zz__evaluatez00
																																																			(BgL_arg2320z00_2468,
																																																			BgL_localsz00_70,
																																																			BgL_globalsz00_71,
																																																			BFALSE,
																																																			BgL_wherez00_73,
																																																			BgL_locz00_2467,
																																																			((bool_t) 0));
																																																	}
																																																}
																																															}
																																															BgL_newtail1232z00_2463
																																																=
																																																MAKE_YOUNG_PAIR
																																																(BgL_arg2319z00_2465,
																																																BNIL);
																																														}
																																														SET_CDR
																																															(BgL_tail1231z00_2460,
																																															BgL_newtail1232z00_2463);
																																														{	/* Eval/evaluate.scm 491 */
																																															obj_t
																																																BgL_arg2318z00_2464;
																																															BgL_arg2318z00_2464
																																																=
																																																CDR
																																																(
																																																((obj_t) BgL_l1228z00_2459));
																																															{
																																																obj_t
																																																	BgL_tail1231z00_6088;
																																																obj_t
																																																	BgL_l1228z00_6087;
																																																BgL_l1228z00_6087
																																																	=
																																																	BgL_arg2318z00_2464;
																																																BgL_tail1231z00_6088
																																																	=
																																																	BgL_newtail1232z00_2463;
																																																BgL_tail1231z00_2460
																																																	=
																																																	BgL_tail1231z00_6088;
																																																BgL_l1228z00_2459
																																																	=
																																																	BgL_l1228z00_6087;
																																																goto
																																																	BgL_zc3z04anonymousza32315ze3z87_2461;
																																															}
																																														}
																																													}
																																											}
																																										}
																																									((((BgL_ev_binderz00_bglt) COBJECT(((BgL_ev_binderz00_bglt) BgL_new1130z00_2454)))->BgL_valsz00) = ((obj_t) BgL_auxz00_6066), BUNSPEC);
																																								}
																																								{
																																									BgL_ev_exprz00_bglt
																																										BgL_auxz00_6090;
																																									{	/* Eval/evaluate.scm 495 */
																																										obj_t
																																											BgL_arg2322z00_2470;
																																										BgL_arg2322z00_2470
																																											=
																																											BGl_appendzd221011zd2zz__evaluatez00
																																											(BgL_varsz00_2450,
																																											BgL_localsz00_70);
																																										BgL_auxz00_6090
																																											=
																																											(
																																											(BgL_ev_exprz00_bglt)
																																											BGl_convz00zz__evaluatez00
																																											(BgL_tbodyz00_2452,
																																												BgL_arg2322z00_2470,
																																												BgL_globalsz00_71,
																																												BgL_tailzf3zf3_72,
																																												BgL_wherez00_73,
																																												BgL_locz00_74,
																																												((bool_t) 0)));
																																									}
																																									((((BgL_ev_binderz00_bglt) COBJECT(((BgL_ev_binderz00_bglt) BgL_new1130z00_2454)))->BgL_bodyz00) = ((BgL_ev_exprz00_bglt) BgL_auxz00_6090), BUNSPEC);
																																								}
																																								((((BgL_ev_letz00_bglt) COBJECT(BgL_new1130z00_2454))->BgL_boxesz00) = ((obj_t) BNIL), BUNSPEC);
																																								BgL_auxz00_6004
																																									=
																																									BgL_new1130z00_2454;
																																							}
																																						}
																																					}
																																				}
																																			}
																																		}
																																	}
																																	return
																																		((obj_t)
																																		BgL_auxz00_6004);
																																}
																															}
																														else
																															{	/* Eval/evaluate.scm 424 */
																																obj_t
																																	BgL_arg1702z00_1744;
																																BgL_arg1702z00_1744
																																	=
																																	CAR(((obj_t)
																																		BgL_ez00_69));
																																{
																																	BgL_ev_appz00_bglt
																																		BgL_auxz00_6100;
																																	{
																																		obj_t
																																			BgL_argsz00_6102;
																																		obj_t
																																			BgL_fz00_6101;
																																		BgL_fz00_6101
																																			=
																																			BgL_arg1702z00_1744;
																																		BgL_argsz00_6102
																																			=
																																			BgL_cdrzd26338zd2_1738;
																																		BgL_argsz00_1597
																																			=
																																			BgL_argsz00_6102;
																																		BgL_fz00_1596
																																			=
																																			BgL_fz00_6101;
																																		goto
																																			BgL_tagzd2176zd2_1598;
																																	}
																																	return
																																		((obj_t)
																																		BgL_auxz00_6100);
																																}
																															}
																													}
																												else
																													{	/* Eval/evaluate.scm 424 */
																														if (
																															(CAR(
																																	((obj_t)
																																		BgL_ez00_69))
																																==
																																BGl_symbol3052z00zz__evaluatez00))
																															{	/* Eval/evaluate.scm 424 */
																																if (PAIRP
																																	(BgL_cdrzd26338zd2_1738))
																																	{	/* Eval/evaluate.scm 424 */
																																		obj_t
																																			BgL_arg1708z00_1750;
																																		obj_t
																																			BgL_arg1709z00_1751;
																																		BgL_arg1708z00_1750
																																			=
																																			CAR
																																			(BgL_cdrzd26338zd2_1738);
																																		BgL_arg1709z00_1751
																																			=
																																			CDR
																																			(BgL_cdrzd26338zd2_1738);
																																		{
																																			BgL_ev_letza2za2_bglt
																																				BgL_auxz00_6112;
																																			BgL_bindsz00_1552
																																				=
																																				BgL_arg1708z00_1750;
																																			BgL_bodyz00_1553
																																				=
																																				BgL_arg1709z00_1751;
																																		BgL_tagzd2161zd2_1554:
																																			{	/* Eval/evaluate.scm 503 */
																																				obj_t
																																					BgL_varsz00_2507;
																																				obj_t
																																					BgL_blocz00_2508;
																																				if (NULLP(BgL_bindsz00_1552))
																																					{	/* Eval/evaluate.scm 503 */
																																						BgL_varsz00_2507
																																							=
																																							BNIL;
																																					}
																																				else
																																					{	/* Eval/evaluate.scm 503 */
																																						obj_t
																																							BgL_head1235z00_2516;
																																						BgL_head1235z00_2516
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BNIL,
																																							BNIL);
																																						{
																																							obj_t
																																								BgL_l1233z00_2518;
																																							obj_t
																																								BgL_tail1236z00_2519;
																																							BgL_l1233z00_2518
																																								=
																																								BgL_bindsz00_1552;
																																							BgL_tail1236z00_2519
																																								=
																																								BgL_head1235z00_2516;
																																						BgL_zc3z04anonymousza32347ze3z87_2520:
																																							if (NULLP(BgL_l1233z00_2518))
																																								{	/* Eval/evaluate.scm 503 */
																																									BgL_varsz00_2507
																																										=
																																										CDR
																																										(BgL_head1235z00_2516);
																																								}
																																							else
																																								{	/* Eval/evaluate.scm 503 */
																																									obj_t
																																										BgL_newtail1237z00_2522;
																																									{	/* Eval/evaluate.scm 503 */
																																										BgL_ev_varz00_bglt
																																											BgL_arg2350z00_2524;
																																										{	/* Eval/evaluate.scm 503 */
																																											obj_t
																																												BgL_bz00_2525;
																																											BgL_bz00_2525
																																												=
																																												CAR
																																												(
																																												((obj_t) BgL_l1233z00_2518));
																																											{	/* Eval/evaluate.scm 504 */
																																												obj_t
																																													BgL_iz00_2526;
																																												{	/* Eval/evaluate.scm 504 */
																																													obj_t
																																														BgL_arg2353z00_2530;
																																													BgL_arg2353z00_2530
																																														=
																																														CAR
																																														(
																																														((obj_t) BgL_bz00_2525));
																																													BgL_iz00_2526
																																														=
																																														BGl_untypezd2identzd2zz__evaluatez00
																																														(BgL_arg2353z00_2530);
																																												}
																																												{	/* Eval/evaluate.scm 505 */
																																													BgL_ev_varz00_bglt
																																														BgL_new1132z00_2527;
																																													{	/* Eval/evaluate.scm 507 */
																																														BgL_ev_varz00_bglt
																																															BgL_new1131z00_2528;
																																														BgL_new1131z00_2528
																																															=
																																															(
																																															(BgL_ev_varz00_bglt)
																																															BOBJECT
																																															(GC_MALLOC
																																																(sizeof
																																																	(struct
																																																		BgL_ev_varz00_bgl))));
																																														{	/* Eval/evaluate.scm 507 */
																																															long
																																																BgL_arg2351z00_2529;
																																															BgL_arg2351z00_2529
																																																=
																																																BGL_CLASS_NUM
																																																(BGl_ev_varz00zz__evaluate_typesz00);
																																															BGL_OBJECT_CLASS_NUM_SET
																																																(
																																																((BgL_objectz00_bglt) BgL_new1131z00_2528), BgL_arg2351z00_2529);
																																														}
																																														BgL_new1132z00_2527
																																															=
																																															BgL_new1131z00_2528;
																																													}
																																													((((BgL_ev_varz00_bglt) COBJECT(BgL_new1132z00_2527))->BgL_namez00) = ((obj_t) CAR(BgL_iz00_2526)), BUNSPEC);
																																													((((BgL_ev_varz00_bglt) COBJECT(BgL_new1132z00_2527))->BgL_effz00) = ((obj_t) BFALSE), BUNSPEC);
																																													((((BgL_ev_varz00_bglt) COBJECT(BgL_new1132z00_2527))->BgL_typez00) = ((obj_t) CDR(BgL_iz00_2526)), BUNSPEC);
																																													BgL_arg2350z00_2524
																																														=
																																														BgL_new1132z00_2527;
																																										}}}
																																										BgL_newtail1237z00_2522
																																											=
																																											MAKE_YOUNG_PAIR
																																											(
																																											((obj_t) BgL_arg2350z00_2524), BNIL);
																																									}
																																									SET_CDR
																																										(BgL_tail1236z00_2519,
																																										BgL_newtail1237z00_2522);
																																									{	/* Eval/evaluate.scm 503 */
																																										obj_t
																																											BgL_arg2349z00_2523;
																																										BgL_arg2349z00_2523
																																											=
																																											CDR
																																											(
																																											((obj_t) BgL_l1233z00_2518));
																																										{
																																											obj_t
																																												BgL_tail1236z00_6139;
																																											obj_t
																																												BgL_l1233z00_6138;
																																											BgL_l1233z00_6138
																																												=
																																												BgL_arg2349z00_2523;
																																											BgL_tail1236z00_6139
																																												=
																																												BgL_newtail1237z00_2522;
																																											BgL_tail1236z00_2519
																																												=
																																												BgL_tail1236z00_6139;
																																											BgL_l1233z00_2518
																																												=
																																												BgL_l1233z00_6138;
																																											goto
																																												BgL_zc3z04anonymousza32347ze3z87_2520;
																																										}
																																									}
																																								}
																																						}
																																					}
																																				{	/* Eval/evaluate.scm 144 */
																																					obj_t
																																						BgL__ortest_1069z00_3744;
																																					BgL__ortest_1069z00_3744
																																						=
																																						BGl_getzd2sourcezd2locationz00zz__readerz00
																																						(BgL_bindsz00_1552);
																																					if (CBOOL(BgL__ortest_1069z00_3744))
																																						{	/* Eval/evaluate.scm 144 */
																																							BgL_blocz00_2508
																																								=
																																								BgL__ortest_1069z00_3744;
																																						}
																																					else
																																						{	/* Eval/evaluate.scm 144 */
																																							BgL_blocz00_2508
																																								=
																																								BgL_locz00_74;
																																						}
																																				}
																																				{	/* Eval/evaluate.scm 510 */
																																					BgL_ev_letza2za2_bglt
																																						BgL_new1135z00_2509;
																																					{	/* Eval/evaluate.scm 511 */
																																						BgL_ev_letza2za2_bglt
																																							BgL_new1133z00_2512;
																																						BgL_new1133z00_2512
																																							=
																																							(
																																							(BgL_ev_letza2za2_bglt)
																																							BOBJECT
																																							(GC_MALLOC
																																								(sizeof
																																									(struct
																																										BgL_ev_letza2za2_bgl))));
																																						{	/* Eval/evaluate.scm 511 */
																																							long
																																								BgL_arg2345z00_2513;
																																							BgL_arg2345z00_2513
																																								=
																																								BGL_CLASS_NUM
																																								(BGl_ev_letza2za2zz__evaluate_typesz00);
																																							BGL_OBJECT_CLASS_NUM_SET
																																								(
																																								((BgL_objectz00_bglt) BgL_new1133z00_2512), BgL_arg2345z00_2513);
																																						}
																																						BgL_new1135z00_2509
																																							=
																																							BgL_new1133z00_2512;
																																					}
																																					((((BgL_ev_binderz00_bglt) COBJECT(((BgL_ev_binderz00_bglt) BgL_new1135z00_2509)))->BgL_varsz00) = ((obj_t) BgL_varsz00_2507), BUNSPEC);
																																					((((BgL_ev_binderz00_bglt) COBJECT(((BgL_ev_binderz00_bglt) BgL_new1135z00_2509)))->BgL_valsz00) = ((obj_t) BGl_convzd2valsze70z35zz__evaluatez00(BgL_wherez00_73, BgL_globalsz00_71, BgL_bindsz00_1552, BgL_varsz00_2507, BgL_localsz00_70, BgL_blocz00_2508)), BUNSPEC);
																																					{
																																						BgL_ev_exprz00_bglt
																																							BgL_auxz00_6152;
																																						{	/* Eval/evaluate.scm 513 */
																																							obj_t
																																								BgL_arg2340z00_2510;
																																							{	/* Eval/evaluate.scm 513 */
																																								obj_t
																																									BgL_arg2343z00_2511;
																																								BgL_arg2343z00_2511
																																									=
																																									bgl_reverse
																																									(BgL_varsz00_2507);
																																								BgL_arg2340z00_2510
																																									=
																																									BGl_appendzd221011zd2zz__evaluatez00
																																									(BgL_arg2343z00_2511,
																																									BgL_localsz00_70);
																																							}
																																							BgL_auxz00_6152
																																								=
																																								(
																																								(BgL_ev_exprz00_bglt)
																																								BGl_convzd2beginzd2zz__evaluatez00
																																								(BgL_bodyz00_1553,
																																									BgL_arg2340z00_2510,
																																									BgL_globalsz00_71,
																																									BgL_tailzf3zf3_72,
																																									BgL_wherez00_73,
																																									BgL_locz00_74,
																																									((bool_t) 0)));
																																						}
																																						((((BgL_ev_binderz00_bglt) COBJECT(((BgL_ev_binderz00_bglt) BgL_new1135z00_2509)))->BgL_bodyz00) = ((BgL_ev_exprz00_bglt) BgL_auxz00_6152), BUNSPEC);
																																					}
																																					((((BgL_ev_letza2za2_bglt) COBJECT(BgL_new1135z00_2509))->BgL_boxesz00) = ((obj_t) BNIL), BUNSPEC);
																																					BgL_auxz00_6112
																																						=
																																						BgL_new1135z00_2509;
																																			}}
																																			return
																																				((obj_t)
																																				BgL_auxz00_6112);
																																		}
																																	}
																																else
																																	{	/* Eval/evaluate.scm 424 */
																																		obj_t
																																			BgL_arg1710z00_1752;
																																		obj_t
																																			BgL_arg1711z00_1753;
																																		BgL_arg1710z00_1752
																																			=
																																			CAR((
																																				(obj_t)
																																				BgL_ez00_69));
																																		BgL_arg1711z00_1753
																																			=
																																			CDR((
																																				(obj_t)
																																				BgL_ez00_69));
																																		{
																																			BgL_ev_appz00_bglt
																																				BgL_auxz00_6165;
																																			{
																																				obj_t
																																					BgL_argsz00_6167;
																																				obj_t
																																					BgL_fz00_6166;
																																				BgL_fz00_6166
																																					=
																																					BgL_arg1710z00_1752;
																																				BgL_argsz00_6167
																																					=
																																					BgL_arg1711z00_1753;
																																				BgL_argsz00_1597
																																					=
																																					BgL_argsz00_6167;
																																				BgL_fz00_1596
																																					=
																																					BgL_fz00_6166;
																																				goto
																																					BgL_tagzd2176zd2_1598;
																																			}
																																			return
																																				((obj_t)
																																				BgL_auxz00_6165);
																																		}
																																	}
																															}
																														else
																															{	/* Eval/evaluate.scm 424 */
																																obj_t
																																	BgL_cdrzd26736zd2_1754;
																																BgL_cdrzd26736zd2_1754
																																	=
																																	CDR(((obj_t)
																																		BgL_ez00_69));
																																if ((CAR((
																																				(obj_t)
																																				BgL_ez00_69))
																																		==
																																		BGl_symbol3054z00zz__evaluatez00))
																																	{	/* Eval/evaluate.scm 424 */
																																		if (PAIRP
																																			(BgL_cdrzd26736zd2_1754))
																																			{	/* Eval/evaluate.scm 424 */
																																				obj_t
																																					BgL_arg1715z00_1758;
																																				obj_t
																																					BgL_arg1716z00_1759;
																																				BgL_arg1715z00_1758
																																					=
																																					CAR
																																					(BgL_cdrzd26736zd2_1754);
																																				BgL_arg1716z00_1759
																																					=
																																					CDR
																																					(BgL_cdrzd26736zd2_1754);
																																				{
																																					BgL_ev_letrecz00_bglt
																																						BgL_auxz00_6179;
																																					BgL_bindsz00_1555
																																						=
																																						BgL_arg1715z00_1758;
																																					BgL_bodyz00_1556
																																						=
																																						BgL_arg1716z00_1759;
																																				BgL_tagzd2162zd2_1557:
																																					{	/* Eval/evaluate.scm 515 */
																																						obj_t
																																							BgL_ubindsz00_2548;
																																						if (NULLP(BgL_bindsz00_1555))
																																							{	/* Eval/evaluate.scm 515 */
																																								BgL_ubindsz00_2548
																																									=
																																									BNIL;
																																							}
																																						else
																																							{	/* Eval/evaluate.scm 515 */
																																								obj_t
																																									BgL_head1240z00_2598;
																																								BgL_head1240z00_2598
																																									=
																																									MAKE_YOUNG_PAIR
																																									(BNIL,
																																									BNIL);
																																								{
																																									obj_t
																																										BgL_l1238z00_3771;
																																									obj_t
																																										BgL_tail1241z00_3772;
																																									BgL_l1238z00_3771
																																										=
																																										BgL_bindsz00_1555;
																																									BgL_tail1241z00_3772
																																										=
																																										BgL_head1240z00_2598;
																																								BgL_zc3z04anonymousza32392ze3z87_3770:
																																									if (NULLP(BgL_l1238z00_3771))
																																										{	/* Eval/evaluate.scm 515 */
																																											BgL_ubindsz00_2548
																																												=
																																												CDR
																																												(BgL_head1240z00_2598);
																																										}
																																									else
																																										{	/* Eval/evaluate.scm 515 */
																																											obj_t
																																												BgL_newtail1242z00_3780;
																																											{	/* Eval/evaluate.scm 515 */
																																												obj_t
																																													BgL_arg2396z00_3781;
																																												{	/* Eval/evaluate.scm 515 */
																																													obj_t
																																														BgL_bz00_3782;
																																													BgL_bz00_3782
																																														=
																																														CAR
																																														(
																																														((obj_t) BgL_l1238z00_3771));
																																													{	/* Eval/evaluate.scm 515 */
																																														obj_t
																																															BgL_arg2397z00_3783;
																																														BgL_arg2397z00_3783
																																															=
																																															CAR
																																															(
																																															((obj_t) BgL_bz00_3782));
																																														BgL_arg2396z00_3781
																																															=
																																															BGl_untypezd2identzd2zz__evaluatez00
																																															(BgL_arg2397z00_3783);
																																													}
																																												}
																																												BgL_newtail1242z00_3780
																																													=
																																													MAKE_YOUNG_PAIR
																																													(BgL_arg2396z00_3781,
																																													BNIL);
																																											}
																																											SET_CDR
																																												(BgL_tail1241z00_3772,
																																												BgL_newtail1242z00_3780);
																																											{	/* Eval/evaluate.scm 515 */
																																												obj_t
																																													BgL_arg2395z00_3784;
																																												BgL_arg2395z00_3784
																																													=
																																													CDR
																																													(
																																													((obj_t) BgL_l1238z00_3771));
																																												{
																																													obj_t
																																														BgL_tail1241z00_6196;
																																													obj_t
																																														BgL_l1238z00_6195;
																																													BgL_l1238z00_6195
																																														=
																																														BgL_arg2395z00_3784;
																																													BgL_tail1241z00_6196
																																														=
																																														BgL_newtail1242z00_3780;
																																													BgL_tail1241z00_3772
																																														=
																																														BgL_tail1241z00_6196;
																																													BgL_l1238z00_3771
																																														=
																																														BgL_l1238z00_6195;
																																													goto
																																														BgL_zc3z04anonymousza32392ze3z87_3770;
																																												}
																																											}
																																										}
																																								}
																																							}
																																						{	/* Eval/evaluate.scm 515 */
																																							obj_t
																																								BgL_varsz00_2549;
																																							if (NULLP(BgL_ubindsz00_2548))
																																								{	/* Eval/evaluate.scm 516 */
																																									BgL_varsz00_2549
																																										=
																																										BNIL;
																																								}
																																							else
																																								{	/* Eval/evaluate.scm 516 */
																																									obj_t
																																										BgL_head1245z00_2582;
																																									BgL_head1245z00_2582
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BNIL,
																																										BNIL);
																																									{
																																										obj_t
																																											BgL_l1243z00_2584;
																																										obj_t
																																											BgL_tail1246z00_2585;
																																										BgL_l1243z00_2584
																																											=
																																											BgL_ubindsz00_2548;
																																										BgL_tail1246z00_2585
																																											=
																																											BgL_head1245z00_2582;
																																									BgL_zc3z04anonymousza32386ze3z87_2586:
																																										if (NULLP(BgL_l1243z00_2584))
																																											{	/* Eval/evaluate.scm 516 */
																																												BgL_varsz00_2549
																																													=
																																													CDR
																																													(BgL_head1245z00_2582);
																																											}
																																										else
																																											{	/* Eval/evaluate.scm 516 */
																																												obj_t
																																													BgL_newtail1247z00_2588;
																																												{	/* Eval/evaluate.scm 516 */
																																													BgL_ev_varz00_bglt
																																														BgL_arg2389z00_2590;
																																													{	/* Eval/evaluate.scm 516 */
																																														obj_t
																																															BgL_iz00_2591;
																																														BgL_iz00_2591
																																															=
																																															CAR
																																															(
																																															((obj_t) BgL_l1243z00_2584));
																																														{	/* Eval/evaluate.scm 517 */
																																															BgL_ev_varz00_bglt
																																																BgL_new1137z00_2592;
																																															{	/* Eval/evaluate.scm 519 */
																																																BgL_ev_varz00_bglt
																																																	BgL_new1136z00_2593;
																																																BgL_new1136z00_2593
																																																	=
																																																	(
																																																	(BgL_ev_varz00_bglt)
																																																	BOBJECT
																																																	(GC_MALLOC
																																																		(sizeof
																																																			(struct
																																																				BgL_ev_varz00_bgl))));
																																																{	/* Eval/evaluate.scm 519 */
																																																	long
																																																		BgL_arg2390z00_2594;
																																																	BgL_arg2390z00_2594
																																																		=
																																																		BGL_CLASS_NUM
																																																		(BGl_ev_varz00zz__evaluate_typesz00);
																																																	BGL_OBJECT_CLASS_NUM_SET
																																																		(
																																																		((BgL_objectz00_bglt) BgL_new1136z00_2593), BgL_arg2390z00_2594);
																																																}
																																																BgL_new1137z00_2592
																																																	=
																																																	BgL_new1136z00_2593;
																																															}
																																															((((BgL_ev_varz00_bglt) COBJECT(BgL_new1137z00_2592))->BgL_namez00) = ((obj_t) CAR(((obj_t) BgL_iz00_2591))), BUNSPEC);
																																															((((BgL_ev_varz00_bglt) COBJECT(BgL_new1137z00_2592))->BgL_effz00) = ((obj_t) BFALSE), BUNSPEC);
																																															((((BgL_ev_varz00_bglt) COBJECT(BgL_new1137z00_2592))->BgL_typez00) = ((obj_t) CDR(((obj_t) BgL_iz00_2591))), BUNSPEC);
																																															BgL_arg2389z00_2590
																																																=
																																																BgL_new1137z00_2592;
																																													}}
																																													BgL_newtail1247z00_2588
																																														=
																																														MAKE_YOUNG_PAIR
																																														(
																																														((obj_t) BgL_arg2389z00_2590), BNIL);
																																												}
																																												SET_CDR
																																													(BgL_tail1246z00_2585,
																																													BgL_newtail1247z00_2588);
																																												{	/* Eval/evaluate.scm 516 */
																																													obj_t
																																														BgL_arg2388z00_2589;
																																													BgL_arg2388z00_2589
																																														=
																																														CDR
																																														(
																																														((obj_t) BgL_l1243z00_2584));
																																													{
																																														obj_t
																																															BgL_tail1246z00_6222;
																																														obj_t
																																															BgL_l1243z00_6221;
																																														BgL_l1243z00_6221
																																															=
																																															BgL_arg2388z00_2589;
																																														BgL_tail1246z00_6222
																																															=
																																															BgL_newtail1247z00_2588;
																																														BgL_tail1246z00_2585
																																															=
																																															BgL_tail1246z00_6222;
																																														BgL_l1243z00_2584
																																															=
																																															BgL_l1243z00_6221;
																																														goto
																																															BgL_zc3z04anonymousza32386ze3z87_2586;
																																													}
																																												}
																																											}
																																									}
																																								}
																																							{	/* Eval/evaluate.scm 516 */
																																								obj_t
																																									BgL_localsz00_2550;
																																								BgL_localsz00_2550
																																									=
																																									BGl_appendzd221011zd2zz__evaluatez00
																																									(BgL_varsz00_2549,
																																									BgL_localsz00_70);
																																								{	/* Eval/evaluate.scm 521 */
																																									obj_t
																																										BgL_bodyz00_2551;
																																									{	/* Eval/evaluate.scm 522 */
																																										bool_t
																																											BgL_test3296z00_6224;
																																										{	/* Eval/evaluate.scm 522 */
																																											obj_t
																																												BgL_tmpz00_6225;
																																											BgL_tmpz00_6225
																																												=
																																												CDR
																																												(
																																												((obj_t) BgL_bodyz00_1556));
																																											BgL_test3296z00_6224
																																												=
																																												PAIRP
																																												(BgL_tmpz00_6225);
																																										}
																																										if (BgL_test3296z00_6224)
																																											{	/* Eval/evaluate.scm 522 */
																																												obj_t
																																													BgL_res2940z00_3801;
																																												BgL_res2940z00_3801
																																													=
																																													MAKE_YOUNG_EPAIR
																																													(BGl_symbol3035z00zz__evaluatez00,
																																													BgL_bodyz00_1556,
																																													BgL_locz00_74);
																																												BgL_bodyz00_2551
																																													=
																																													BgL_res2940z00_3801;
																																											}
																																										else
																																											{	/* Eval/evaluate.scm 522 */
																																												BgL_bodyz00_2551
																																													=
																																													CAR
																																													(
																																													((obj_t) BgL_bodyz00_1556));
																																											}
																																									}
																																									{	/* Eval/evaluate.scm 522 */
																																										obj_t
																																											BgL_tbodyz00_2552;
																																										BgL_tbodyz00_2552
																																											=
																																											BGl_typezd2checkszd2zz__evaluatez00
																																											(BgL_ubindsz00_2548,
																																											BgL_bindsz00_1555,
																																											BgL_bodyz00_2551,
																																											BgL_locz00_74,
																																											BgL_wherez00_73);
																																										{	/* Eval/evaluate.scm 523 */
																																											obj_t
																																												BgL_blocz00_2553;
																																											{	/* Eval/evaluate.scm 144 */
																																												obj_t
																																													BgL__ortest_1069z00_3803;
																																												BgL__ortest_1069z00_3803
																																													=
																																													BGl_getzd2sourcezd2locationz00zz__readerz00
																																													(BgL_bindsz00_1555);
																																												if (CBOOL(BgL__ortest_1069z00_3803))
																																													{	/* Eval/evaluate.scm 144 */
																																														BgL_blocz00_2553
																																															=
																																															BgL__ortest_1069z00_3803;
																																													}
																																												else
																																													{	/* Eval/evaluate.scm 144 */
																																														BgL_blocz00_2553
																																															=
																																															BgL_locz00_74;
																																													}
																																											}
																																											{	/* Eval/evaluate.scm 524 */

																																												{	/* Eval/evaluate.scm 525 */
																																													BgL_ev_letrecz00_bglt
																																														BgL_new1139z00_2554;
																																													{	/* Eval/evaluate.scm 526 */
																																														BgL_ev_letrecz00_bglt
																																															BgL_new1138z00_2575;
																																														BgL_new1138z00_2575
																																															=
																																															(
																																															(BgL_ev_letrecz00_bglt)
																																															BOBJECT
																																															(GC_MALLOC
																																																(sizeof
																																																	(struct
																																																		BgL_ev_letrecz00_bgl))));
																																														{	/* Eval/evaluate.scm 526 */
																																															long
																																																BgL_arg2380z00_2576;
																																															BgL_arg2380z00_2576
																																																=
																																																BGL_CLASS_NUM
																																																(BGl_ev_letrecz00zz__evaluate_typesz00);
																																															BGL_OBJECT_CLASS_NUM_SET
																																																(
																																																((BgL_objectz00_bglt) BgL_new1138z00_2575), BgL_arg2380z00_2576);
																																														}
																																														BgL_new1139z00_2554
																																															=
																																															BgL_new1138z00_2575;
																																													}
																																													((((BgL_ev_binderz00_bglt) COBJECT(((BgL_ev_binderz00_bglt) BgL_new1139z00_2554)))->BgL_varsz00) = ((obj_t) BgL_varsz00_2549), BUNSPEC);
																																													{
																																														obj_t
																																															BgL_auxz00_6242;
																																														if (NULLP(BgL_bindsz00_1555))
																																															{	/* Eval/evaluate.scm 527 */
																																																BgL_auxz00_6242
																																																	=
																																																	BNIL;
																																															}
																																														else
																																															{	/* Eval/evaluate.scm 527 */
																																																obj_t
																																																	BgL_head1250z00_2557;
																																																BgL_head1250z00_2557
																																																	=
																																																	MAKE_YOUNG_PAIR
																																																	(BNIL,
																																																	BNIL);
																																																{
																																																	obj_t
																																																		BgL_l1248z00_2559;
																																																	obj_t
																																																		BgL_tail1251z00_2560;
																																																	BgL_l1248z00_2559
																																																		=
																																																		BgL_bindsz00_1555;
																																																	BgL_tail1251z00_2560
																																																		=
																																																		BgL_head1250z00_2557;
																																																BgL_zc3z04anonymousza32367ze3z87_2561:
																																																	if (NULLP(BgL_l1248z00_2559))
																																																		{	/* Eval/evaluate.scm 527 */
																																																			BgL_auxz00_6242
																																																				=
																																																				CDR
																																																				(BgL_head1250z00_2557);
																																																		}
																																																	else
																																																		{	/* Eval/evaluate.scm 527 */
																																																			obj_t
																																																				BgL_newtail1252z00_2563;
																																																			{	/* Eval/evaluate.scm 527 */
																																																				obj_t
																																																					BgL_arg2370z00_2565;
																																																				{	/* Eval/evaluate.scm 527 */
																																																					obj_t
																																																						BgL_bz00_2566;
																																																					BgL_bz00_2566
																																																						=
																																																						CAR
																																																						(
																																																						((obj_t) BgL_l1248z00_2559));
																																																					{	/* Eval/evaluate.scm 528 */
																																																						obj_t
																																																							BgL_arg2372z00_2567;
																																																						obj_t
																																																							BgL_arg2373z00_2568;
																																																						obj_t
																																																							BgL_arg2375z00_2569;
																																																						{	/* Eval/evaluate.scm 528 */
																																																							obj_t
																																																								BgL_pairz00_3812;
																																																							BgL_pairz00_3812
																																																								=
																																																								CDR
																																																								(
																																																								((obj_t) BgL_bz00_2566));
																																																							BgL_arg2372z00_2567
																																																								=
																																																								CAR
																																																								(BgL_pairz00_3812);
																																																						}
																																																						{	/* Eval/evaluate.scm 528 */
																																																							obj_t
																																																								BgL_arg2376z00_2570;
																																																							BgL_arg2376z00_2570
																																																								=
																																																								CAR
																																																								(
																																																								((obj_t) BgL_bz00_2566));
																																																							{	/* Eval/evaluate.scm 528 */
																																																								obj_t
																																																									BgL_list2377z00_2571;
																																																								{	/* Eval/evaluate.scm 528 */
																																																									obj_t
																																																										BgL_arg2378z00_2572;
																																																									{	/* Eval/evaluate.scm 528 */
																																																										obj_t
																																																											BgL_arg2379z00_2573;
																																																										BgL_arg2379z00_2573
																																																											=
																																																											MAKE_YOUNG_PAIR
																																																											(BgL_wherez00_73,
																																																											BNIL);
																																																										BgL_arg2378z00_2572
																																																											=
																																																											MAKE_YOUNG_PAIR
																																																											(BGl_symbol3037z00zz__evaluatez00,
																																																											BgL_arg2379z00_2573);
																																																									}
																																																									BgL_list2377z00_2571
																																																										=
																																																										MAKE_YOUNG_PAIR
																																																										(BgL_arg2376z00_2570,
																																																										BgL_arg2378z00_2572);
																																																								}
																																																								BgL_arg2373z00_2568
																																																									=
																																																									BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00
																																																									(BgL_list2377z00_2571);
																																																							}
																																																						}
																																																						{	/* Eval/evaluate.scm 144 */
																																																							obj_t
																																																								BgL__ortest_1069z00_3814;
																																																							BgL__ortest_1069z00_3814
																																																								=
																																																								BGl_getzd2sourcezd2locationz00zz__readerz00
																																																								(BgL_bz00_2566);
																																																							if (CBOOL(BgL__ortest_1069z00_3814))
																																																								{	/* Eval/evaluate.scm 144 */
																																																									BgL_arg2375z00_2569
																																																										=
																																																										BgL__ortest_1069z00_3814;
																																																								}
																																																							else
																																																								{	/* Eval/evaluate.scm 144 */
																																																									BgL_arg2375z00_2569
																																																										=
																																																										BgL_blocz00_2553;
																																																								}
																																																						}
																																																						BgL_arg2370z00_2565
																																																							=
																																																							BGl_convz00zz__evaluatez00
																																																							(BgL_arg2372z00_2567,
																																																							BgL_localsz00_2550,
																																																							BgL_globalsz00_71,
																																																							BFALSE,
																																																							BgL_arg2373z00_2568,
																																																							BgL_arg2375z00_2569,
																																																							((bool_t) 0));
																																																					}
																																																				}
																																																				BgL_newtail1252z00_2563
																																																					=
																																																					MAKE_YOUNG_PAIR
																																																					(BgL_arg2370z00_2565,
																																																					BNIL);
																																																			}
																																																			SET_CDR
																																																				(BgL_tail1251z00_2560,
																																																				BgL_newtail1252z00_2563);
																																																			{	/* Eval/evaluate.scm 527 */
																																																				obj_t
																																																					BgL_arg2369z00_2564;
																																																				BgL_arg2369z00_2564
																																																					=
																																																					CDR
																																																					(
																																																					((obj_t) BgL_l1248z00_2559));
																																																				{
																																																					obj_t
																																																						BgL_tail1251z00_6270;
																																																					obj_t
																																																						BgL_l1248z00_6269;
																																																					BgL_l1248z00_6269
																																																						=
																																																						BgL_arg2369z00_2564;
																																																					BgL_tail1251z00_6270
																																																						=
																																																						BgL_newtail1252z00_2563;
																																																					BgL_tail1251z00_2560
																																																						=
																																																						BgL_tail1251z00_6270;
																																																					BgL_l1248z00_2559
																																																						=
																																																						BgL_l1248z00_6269;
																																																					goto
																																																						BgL_zc3z04anonymousza32367ze3z87_2561;
																																																				}
																																																			}
																																																		}
																																																}
																																															}
																																														((((BgL_ev_binderz00_bglt) COBJECT(((BgL_ev_binderz00_bglt) BgL_new1139z00_2554)))->BgL_valsz00) = ((obj_t) BgL_auxz00_6242), BUNSPEC);
																																													}
																																													((((BgL_ev_binderz00_bglt) COBJECT(((BgL_ev_binderz00_bglt) BgL_new1139z00_2554)))->BgL_bodyz00) = ((BgL_ev_exprz00_bglt) ((BgL_ev_exprz00_bglt) BGl_convz00zz__evaluatez00(BgL_tbodyz00_2552, BgL_localsz00_2550, BgL_globalsz00_71, BgL_tailzf3zf3_72, BgL_wherez00_73, BgL_locz00_74, ((bool_t) 0)))), BUNSPEC);
																																													BgL_auxz00_6179
																																														=
																																														BgL_new1139z00_2554;
																																												}
																																											}
																																										}
																																									}
																																								}
																																							}
																																						}
																																					}
																																					return
																																						(
																																						(obj_t)
																																						BgL_auxz00_6179);
																																				}
																																			}
																																		else
																																			{	/* Eval/evaluate.scm 424 */
																																				obj_t
																																					BgL_arg1718z00_1760;
																																				BgL_arg1718z00_1760
																																					=
																																					CAR((
																																						(obj_t)
																																						BgL_ez00_69));
																																				{
																																					BgL_ev_appz00_bglt
																																						BgL_auxz00_6279;
																																					{
																																						obj_t
																																							BgL_argsz00_6281;
																																						obj_t
																																							BgL_fz00_6280;
																																						BgL_fz00_6280
																																							=
																																							BgL_arg1718z00_1760;
																																						BgL_argsz00_6281
																																							=
																																							BgL_cdrzd26736zd2_1754;
																																						BgL_argsz00_1597
																																							=
																																							BgL_argsz00_6281;
																																						BgL_fz00_1596
																																							=
																																							BgL_fz00_6280;
																																						goto
																																							BgL_tagzd2176zd2_1598;
																																					}
																																					return
																																						(
																																						(obj_t)
																																						BgL_auxz00_6279);
																																				}
																																			}
																																	}
																																else
																																	{	/* Eval/evaluate.scm 424 */
																																		if (
																																			(CAR(
																																					((obj_t) BgL_ez00_69)) == BGl_symbol3056z00zz__evaluatez00))
																																			{	/* Eval/evaluate.scm 424 */
																																				if (PAIRP(BgL_cdrzd26736zd2_1754))
																																					{	/* Eval/evaluate.scm 424 */
																																						obj_t
																																							BgL_carzd26912zd2_1766;
																																						obj_t
																																							BgL_cdrzd26913zd2_1767;
																																						BgL_carzd26912zd2_1766
																																							=
																																							CAR
																																							(BgL_cdrzd26736zd2_1754);
																																						BgL_cdrzd26913zd2_1767
																																							=
																																							CDR
																																							(BgL_cdrzd26736zd2_1754);
																																						if (PAIRP(BgL_carzd26912zd2_1766))
																																							{	/* Eval/evaluate.scm 424 */
																																								obj_t
																																									BgL_cdrzd26917zd2_1769;
																																								BgL_cdrzd26917zd2_1769
																																									=
																																									CDR
																																									(BgL_carzd26912zd2_1766);
																																								if ((CAR(BgL_carzd26912zd2_1766) == BGl_symbol3042z00zz__evaluatez00))
																																									{	/* Eval/evaluate.scm 424 */
																																										if (PAIRP(BgL_cdrzd26917zd2_1769))
																																											{	/* Eval/evaluate.scm 424 */
																																												obj_t
																																													BgL_carzd26920zd2_1773;
																																												obj_t
																																													BgL_cdrzd26921zd2_1774;
																																												BgL_carzd26920zd2_1773
																																													=
																																													CAR
																																													(BgL_cdrzd26917zd2_1769);
																																												BgL_cdrzd26921zd2_1774
																																													=
																																													CDR
																																													(BgL_cdrzd26917zd2_1769);
																																												if (SYMBOLP(BgL_carzd26920zd2_1773))
																																													{	/* Eval/evaluate.scm 424 */
																																														if (PAIRP(BgL_cdrzd26921zd2_1774))
																																															{	/* Eval/evaluate.scm 424 */
																																																obj_t
																																																	BgL_carzd26925zd2_1777;
																																																BgL_carzd26925zd2_1777
																																																	=
																																																	CAR
																																																	(BgL_cdrzd26921zd2_1774);
																																																if (SYMBOLP(BgL_carzd26925zd2_1777))
																																																	{	/* Eval/evaluate.scm 424 */
																																																		if (NULLP(CDR(BgL_cdrzd26921zd2_1774)))
																																																			{	/* Eval/evaluate.scm 424 */
																																																				if (PAIRP(BgL_cdrzd26913zd2_1767))
																																																					{	/* Eval/evaluate.scm 424 */
																																																						if (NULLP(CDR(BgL_cdrzd26913zd2_1767)))
																																																							{	/* Eval/evaluate.scm 424 */
																																																								obj_t
																																																									BgL_arg1735z00_1784;
																																																								BgL_arg1735z00_1784
																																																									=
																																																									CAR
																																																									(BgL_cdrzd26913zd2_1767);
																																																								{	/* Eval/evaluate.scm 531 */
																																																									BgL_ev_setglobalz00_bglt
																																																										BgL_new1141z00_4086;
																																																									{	/* Eval/evaluate.scm 535 */
																																																										BgL_ev_setglobalz00_bglt
																																																											BgL_new1140z00_4087;
																																																										BgL_new1140z00_4087
																																																											=
																																																											(
																																																											(BgL_ev_setglobalz00_bglt)
																																																											BOBJECT
																																																											(GC_MALLOC
																																																												(sizeof
																																																													(struct
																																																														BgL_ev_setglobalz00_bgl))));
																																																										{	/* Eval/evaluate.scm 535 */
																																																											long
																																																												BgL_arg2398z00_4088;
																																																											BgL_arg2398z00_4088
																																																												=
																																																												BGL_CLASS_NUM
																																																												(BGl_ev_setglobalz00zz__evaluate_typesz00);
																																																											BGL_OBJECT_CLASS_NUM_SET
																																																												(
																																																												((BgL_objectz00_bglt) BgL_new1140z00_4087), BgL_arg2398z00_4088);
																																																										}
																																																										BgL_new1141z00_4086
																																																											=
																																																											BgL_new1140z00_4087;
																																																									}
																																																									{
																																																										BgL_ev_exprz00_bglt
																																																											BgL_auxz00_6321;
																																																										{	/* Eval/evaluate.scm 380 */
																																																											obj_t
																																																												BgL_arg2470z00_4092;
																																																											BgL_arg2470z00_4092
																																																												=
																																																												BGl_getzd2locationzd2zz__evaluatez00
																																																												(BgL_arg1735z00_1784,
																																																												BgL_locz00_74);
																																																											BgL_auxz00_6321
																																																												=
																																																												(
																																																												(BgL_ev_exprz00_bglt)
																																																												BGl_uconvzf2locze70z15zz__evaluatez00
																																																												(BgL_wherez00_73,
																																																													BgL_globalsz00_71,
																																																													BgL_localsz00_70,
																																																													BgL_arg1735z00_1784,
																																																													BgL_arg2470z00_4092));
																																																										}
																																																										((((BgL_ev_hookz00_bglt) COBJECT(((BgL_ev_hookz00_bglt) BgL_new1141z00_4086)))->BgL_ez00) = ((BgL_ev_exprz00_bglt) BgL_auxz00_6321), BUNSPEC);
																																																									}
																																																									((((BgL_ev_setglobalz00_bglt) COBJECT(BgL_new1141z00_4086))->BgL_locz00) = ((obj_t) BgL_locz00_74), BUNSPEC);
																																																									((((BgL_ev_setglobalz00_bglt) COBJECT(BgL_new1141z00_4086))->BgL_namez00) = ((obj_t) BgL_carzd26920zd2_1773), BUNSPEC);
																																																									((((BgL_ev_setglobalz00_bglt) COBJECT(BgL_new1141z00_4086))->BgL_modz00) = ((obj_t) BGl_evalzd2findzd2modulez00zz__evmodulez00(BgL_carzd26925zd2_1777)), BUNSPEC);
																																																									return
																																																										(
																																																										(obj_t)
																																																										BgL_new1141z00_4086);
																																																								}
																																																							}
																																																						else
																																																							{	/* Eval/evaluate.scm 424 */
																																																								return
																																																									BGl_evcompilezd2errorzd2zz__evcompilez00
																																																									(BgL_locz00_74,
																																																									BGl_string2959z00zz__evaluatez00,
																																																									BGl_string3034z00zz__evaluatez00,
																																																									BgL_ez00_69);
																																																							}
																																																					}
																																																				else
																																																					{	/* Eval/evaluate.scm 424 */
																																																						return
																																																							BGl_evcompilezd2errorzd2zz__evcompilez00
																																																							(BgL_locz00_74,
																																																							BGl_string2959z00zz__evaluatez00,
																																																							BGl_string3034z00zz__evaluatez00,
																																																							BgL_ez00_69);
																																																					}
																																																			}
																																																		else
																																																			{	/* Eval/evaluate.scm 424 */
																																																				obj_t
																																																					BgL_cdrzd27041zd2_1786;
																																																				BgL_cdrzd27041zd2_1786
																																																					=
																																																					CDR
																																																					(
																																																					((obj_t) BgL_ez00_69));
																																																				{	/* Eval/evaluate.scm 424 */
																																																					obj_t
																																																						BgL_cdrzd27045zd2_1787;
																																																					BgL_cdrzd27045zd2_1787
																																																						=
																																																						CDR
																																																						(
																																																						((obj_t) BgL_cdrzd27041zd2_1786));
																																																					if (PAIRP(BgL_cdrzd27045zd2_1787))
																																																						{	/* Eval/evaluate.scm 424 */
																																																							if (NULLP(CDR(BgL_cdrzd27045zd2_1787)))
																																																								{	/* Eval/evaluate.scm 424 */
																																																									obj_t
																																																										BgL_arg1743z00_1791;
																																																									obj_t
																																																										BgL_arg1744z00_1792;
																																																									BgL_arg1743z00_1791
																																																										=
																																																										CAR
																																																										(
																																																										((obj_t) BgL_cdrzd27041zd2_1786));
																																																									BgL_arg1744z00_1792
																																																										=
																																																										CAR
																																																										(BgL_cdrzd27045zd2_1787);
																																																									{
																																																										BgL_ev_hookz00_bglt
																																																											BgL_auxz00_6346;
																																																										BgL_vz00_1565
																																																											=
																																																											BgL_arg1743z00_1791;
																																																										BgL_ez00_1566
																																																											=
																																																											BgL_arg1744z00_1792;
																																																									BgL_tagzd2165zd2_1567:
																																																										{	/* Eval/evaluate.scm 541 */
																																																											obj_t
																																																												BgL_cvz00_2639;
																																																											BgL_cvz00_2639
																																																												=
																																																												BGl_convzd2varzd2zz__evaluatez00
																																																												(BgL_vz00_1565,
																																																												BgL_localsz00_70);
																																																											{	/* Eval/evaluate.scm 541 */
																																																												obj_t
																																																													BgL_ez00_2640;
																																																												{	/* Eval/evaluate.scm 380 */
																																																													obj_t
																																																														BgL_arg2470z00_3828;
																																																													{	/* Eval/evaluate.scm 144 */
																																																														obj_t
																																																															BgL__ortest_1069z00_3829;
																																																														BgL__ortest_1069z00_3829
																																																															=
																																																															BGl_getzd2sourcezd2locationz00zz__readerz00
																																																															(BgL_ez00_1566);
																																																														if (CBOOL(BgL__ortest_1069z00_3829))
																																																															{	/* Eval/evaluate.scm 144 */
																																																																BgL_arg2470z00_3828
																																																																	=
																																																																	BgL__ortest_1069z00_3829;
																																																															}
																																																														else
																																																															{	/* Eval/evaluate.scm 144 */
																																																																BgL_arg2470z00_3828
																																																																	=
																																																																	BgL_locz00_74;
																																																															}
																																																													}
																																																													BgL_ez00_2640
																																																														=
																																																														BGl_convz00zz__evaluatez00
																																																														(BgL_ez00_1566,
																																																														BgL_localsz00_70,
																																																														BgL_globalsz00_71,
																																																														BFALSE,
																																																														BgL_wherez00_73,
																																																														BgL_arg2470z00_3828,
																																																														((bool_t) 0));
																																																												}
																																																												{	/* Eval/evaluate.scm 542 */

																																																													{	/* Eval/evaluate.scm 543 */
																																																														bool_t
																																																															BgL_test3315z00_6352;
																																																														{	/* Eval/evaluate.scm 543 */
																																																															obj_t
																																																																BgL_classz00_3830;
																																																															BgL_classz00_3830
																																																																=
																																																																BGl_ev_absz00zz__evaluate_typesz00;
																																																															if (BGL_OBJECTP(BgL_ez00_2640))
																																																																{	/* Eval/evaluate.scm 543 */
																																																																	BgL_objectz00_bglt
																																																																		BgL_arg2877z00_3832;
																																																																	BgL_arg2877z00_3832
																																																																		=
																																																																		(BgL_objectz00_bglt)
																																																																		(BgL_ez00_2640);
																																																																	if (BGL_CONDEXPAND_ISA_ARCH64())
																																																																		{	/* Eval/evaluate.scm 543 */
																																																																			long
																																																																				BgL_idxz00_3838;
																																																																			BgL_idxz00_3838
																																																																				=
																																																																				BGL_OBJECT_INHERITANCE_NUM
																																																																				(BgL_arg2877z00_3832);
																																																																			BgL_test3315z00_6352
																																																																				=
																																																																				(VECTOR_REF
																																																																				(BGl_za2inheritancesza2z00zz__objectz00,
																																																																					(BgL_idxz00_3838
																																																																						+
																																																																						2L))
																																																																				==
																																																																				BgL_classz00_3830);
																																																																		}
																																																																	else
																																																																		{	/* Eval/evaluate.scm 543 */
																																																																			bool_t
																																																																				BgL_res2941z00_3863;
																																																																			{	/* Eval/evaluate.scm 543 */
																																																																				obj_t
																																																																					BgL_oclassz00_3846;
																																																																				{	/* Eval/evaluate.scm 543 */
																																																																					obj_t
																																																																						BgL_arg2898z00_3854;
																																																																					long
																																																																						BgL_arg2899z00_3855;
																																																																					BgL_arg2898z00_3854
																																																																						=
																																																																						(BGl_za2classesza2z00zz__objectz00);
																																																																					{	/* Eval/evaluate.scm 543 */
																																																																						long
																																																																							BgL_arg2909z00_3856;
																																																																						BgL_arg2909z00_3856
																																																																							=
																																																																							BGL_OBJECT_CLASS_NUM
																																																																							(BgL_arg2877z00_3832);
																																																																						BgL_arg2899z00_3855
																																																																							=
																																																																							(BgL_arg2909z00_3856
																																																																							-
																																																																							OBJECT_TYPE);
																																																																					}
																																																																					BgL_oclassz00_3846
																																																																						=
																																																																						VECTOR_REF
																																																																						(BgL_arg2898z00_3854,
																																																																						BgL_arg2899z00_3855);
																																																																				}
																																																																				{	/* Eval/evaluate.scm 543 */
																																																																					bool_t
																																																																						BgL__ortest_1203z00_3847;
																																																																					BgL__ortest_1203z00_3847
																																																																						=
																																																																						(BgL_classz00_3830
																																																																						==
																																																																						BgL_oclassz00_3846);
																																																																					if (BgL__ortest_1203z00_3847)
																																																																						{	/* Eval/evaluate.scm 543 */
																																																																							BgL_res2941z00_3863
																																																																								=
																																																																								BgL__ortest_1203z00_3847;
																																																																						}
																																																																					else
																																																																						{	/* Eval/evaluate.scm 543 */
																																																																							long
																																																																								BgL_odepthz00_3848;
																																																																							{	/* Eval/evaluate.scm 543 */
																																																																								obj_t
																																																																									BgL_arg2873z00_3849;
																																																																								BgL_arg2873z00_3849
																																																																									=
																																																																									(BgL_oclassz00_3846);
																																																																								BgL_odepthz00_3848
																																																																									=
																																																																									BGL_CLASS_DEPTH
																																																																									(BgL_arg2873z00_3849);
																																																																							}
																																																																							if ((2L < BgL_odepthz00_3848))
																																																																								{	/* Eval/evaluate.scm 543 */
																																																																									obj_t
																																																																										BgL_arg2871z00_3851;
																																																																									{	/* Eval/evaluate.scm 543 */
																																																																										obj_t
																																																																											BgL_arg2872z00_3852;
																																																																										BgL_arg2872z00_3852
																																																																											=
																																																																											(BgL_oclassz00_3846);
																																																																										BgL_arg2871z00_3851
																																																																											=
																																																																											BGL_CLASS_ANCESTORS_REF
																																																																											(BgL_arg2872z00_3852,
																																																																											2L);
																																																																									}
																																																																									BgL_res2941z00_3863
																																																																										=
																																																																										(BgL_arg2871z00_3851
																																																																										==
																																																																										BgL_classz00_3830);
																																																																								}
																																																																							else
																																																																								{	/* Eval/evaluate.scm 543 */
																																																																									BgL_res2941z00_3863
																																																																										=
																																																																										(
																																																																										(bool_t)
																																																																										0);
																																																																								}
																																																																						}
																																																																				}
																																																																			}
																																																																			BgL_test3315z00_6352
																																																																				=
																																																																				BgL_res2941z00_3863;
																																																																		}
																																																																}
																																																															else
																																																																{	/* Eval/evaluate.scm 543 */
																																																																	BgL_test3315z00_6352
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		0);
																																																																}
																																																														}
																																																														if (BgL_test3315z00_6352)
																																																															{
																																																																obj_t
																																																																	BgL_auxz00_6375;
																																																																{	/* Eval/evaluate.scm 545 */
																																																																	obj_t
																																																																		BgL_arg2416z00_2643;
																																																																	{	/* Eval/evaluate.scm 545 */
																																																																		obj_t
																																																																			BgL_arg2417z00_2644;
																																																																		obj_t
																																																																			BgL_arg2418z00_2645;
																																																																		{	/* Eval/evaluate.scm 545 */
																																																																			obj_t
																																																																				BgL_arg2654z00_3865;
																																																																			BgL_arg2654z00_3865
																																																																				=
																																																																				SYMBOL_TO_STRING
																																																																				(
																																																																				((obj_t) BgL_vz00_1565));
																																																																			BgL_arg2417z00_2644
																																																																				=
																																																																				BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																																																																				(BgL_arg2654z00_3865);
																																																																		}
																																																																		{	/* Eval/evaluate.scm 545 */
																																																																			obj_t
																																																																				BgL_arg2419z00_2646;
																																																																			BgL_arg2419z00_2646
																																																																				=
																																																																				(
																																																																				((BgL_ev_absz00_bglt) COBJECT(((BgL_ev_absz00_bglt) BgL_ez00_2640)))->BgL_wherez00);
																																																																			{	/* Eval/evaluate.scm 545 */
																																																																				obj_t
																																																																					BgL_arg2654z00_3867;
																																																																				BgL_arg2654z00_3867
																																																																					=
																																																																					SYMBOL_TO_STRING
																																																																					(
																																																																					((obj_t) BgL_arg2419z00_2646));
																																																																				BgL_arg2418z00_2645
																																																																					=
																																																																					BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																																																																					(BgL_arg2654z00_3867);
																																																																			}
																																																																		}
																																																																		BgL_arg2416z00_2643
																																																																			=
																																																																			string_append
																																																																			(BgL_arg2417z00_2644,
																																																																			BgL_arg2418z00_2645);
																																																																	}
																																																																	BgL_auxz00_6375
																																																																		=
																																																																		bstring_to_symbol
																																																																		(BgL_arg2416z00_2643);
																																																																}
																																																																((((BgL_ev_absz00_bglt) COBJECT(((BgL_ev_absz00_bglt) BgL_ez00_2640)))->BgL_wherez00) = ((obj_t) BgL_auxz00_6375), BUNSPEC);
																																																															}
																																																														else
																																																															{	/* Eval/evaluate.scm 543 */
																																																																BFALSE;
																																																															}
																																																													}
																																																													if (CBOOL(BgL_cvz00_2639))
																																																														{	/* Eval/evaluate.scm 547 */
																																																															BgL_ev_setlocalz00_bglt
																																																																BgL_new1144z00_2647;
																																																															{	/* Eval/evaluate.scm 549 */
																																																																BgL_ev_setlocalz00_bglt
																																																																	BgL_new1143z00_2648;
																																																																BgL_new1143z00_2648
																																																																	=
																																																																	(
																																																																	(BgL_ev_setlocalz00_bglt)
																																																																	BOBJECT
																																																																	(GC_MALLOC
																																																																		(sizeof
																																																																			(struct
																																																																				BgL_ev_setlocalz00_bgl))));
																																																																{	/* Eval/evaluate.scm 549 */
																																																																	long
																																																																		BgL_arg2420z00_2649;
																																																																	BgL_arg2420z00_2649
																																																																		=
																																																																		BGL_CLASS_NUM
																																																																		(BGl_ev_setlocalz00zz__evaluate_typesz00);
																																																																	BGL_OBJECT_CLASS_NUM_SET
																																																																		(
																																																																		((BgL_objectz00_bglt) BgL_new1143z00_2648), BgL_arg2420z00_2649);
																																																																}
																																																																BgL_new1144z00_2647
																																																																	=
																																																																	BgL_new1143z00_2648;
																																																															}
																																																															((((BgL_ev_hookz00_bglt) COBJECT(((BgL_ev_hookz00_bglt) BgL_new1144z00_2647)))->BgL_ez00) = ((BgL_ev_exprz00_bglt) ((BgL_ev_exprz00_bglt) BgL_ez00_2640)), BUNSPEC);
																																																															((((BgL_ev_setlocalz00_bglt) COBJECT(BgL_new1144z00_2647))->BgL_vz00) = ((BgL_ev_varz00_bglt) ((BgL_ev_varz00_bglt) BgL_cvz00_2639)), BUNSPEC);
																																																															BgL_auxz00_6346
																																																																=
																																																																(
																																																																(BgL_ev_hookz00_bglt)
																																																																BgL_new1144z00_2647);
																																																														}
																																																													else
																																																														{	/* Eval/evaluate.scm 550 */
																																																															BgL_ev_setglobalz00_bglt
																																																																BgL_new1146z00_2650;
																																																															{	/* Eval/evaluate.scm 554 */
																																																																BgL_ev_setglobalz00_bglt
																																																																	BgL_new1145z00_2652;
																																																																BgL_new1145z00_2652
																																																																	=
																																																																	(
																																																																	(BgL_ev_setglobalz00_bglt)
																																																																	BOBJECT
																																																																	(GC_MALLOC
																																																																		(sizeof
																																																																			(struct
																																																																				BgL_ev_setglobalz00_bgl))));
																																																																{	/* Eval/evaluate.scm 554 */
																																																																	long
																																																																		BgL_arg2424z00_2653;
																																																																	BgL_arg2424z00_2653
																																																																		=
																																																																		BGL_CLASS_NUM
																																																																		(BGl_ev_setglobalz00zz__evaluate_typesz00);
																																																																	BGL_OBJECT_CLASS_NUM_SET
																																																																		(
																																																																		((BgL_objectz00_bglt) BgL_new1145z00_2652), BgL_arg2424z00_2653);
																																																																}
																																																																BgL_new1146z00_2650
																																																																	=
																																																																	BgL_new1145z00_2652;
																																																															}
																																																															((((BgL_ev_hookz00_bglt) COBJECT(((BgL_ev_hookz00_bglt) BgL_new1146z00_2650)))->BgL_ez00) = ((BgL_ev_exprz00_bglt) ((BgL_ev_exprz00_bglt) BgL_ez00_2640)), BUNSPEC);
																																																															((((BgL_ev_setglobalz00_bglt) COBJECT(BgL_new1146z00_2650))->BgL_locz00) = ((obj_t) BgL_locz00_74), BUNSPEC);
																																																															((((BgL_ev_setglobalz00_bglt) COBJECT(BgL_new1146z00_2650))->BgL_namez00) = ((obj_t) BgL_vz00_1565), BUNSPEC);
																																																															{
																																																																obj_t
																																																																	BgL_auxz00_6409;
																																																																if (BGl_evmodulezf3zf3zz__evmodulez00(BgL_globalsz00_71))
																																																																	{	/* Eval/evaluate.scm 553 */
																																																																		BgL_auxz00_6409
																																																																			=
																																																																			BgL_globalsz00_71;
																																																																	}
																																																																else
																																																																	{	/* Eval/evaluate.scm 553 */
																																																																		BgL_auxz00_6409
																																																																			=
																																																																			BGL_MODULE
																																																																			();
																																																																	}
																																																																((((BgL_ev_setglobalz00_bglt) COBJECT(BgL_new1146z00_2650))->BgL_modz00) = ((obj_t) BgL_auxz00_6409), BUNSPEC);
																																																															}
																																																															BgL_auxz00_6346
																																																																=
																																																																(
																																																																(BgL_ev_hookz00_bglt)
																																																																BgL_new1146z00_2650);
																																																														}
																																																												}
																																																											}
																																																										}
																																																										return
																																																											(
																																																											(obj_t)
																																																											BgL_auxz00_6346);
																																																									}
																																																								}
																																																							else
																																																								{	/* Eval/evaluate.scm 424 */
																																																									return
																																																										BGl_evcompilezd2errorzd2zz__evcompilez00
																																																										(BgL_locz00_74,
																																																										BGl_string2959z00zz__evaluatez00,
																																																										BGl_string3034z00zz__evaluatez00,
																																																										BgL_ez00_69);
																																																								}
																																																						}
																																																					else
																																																						{	/* Eval/evaluate.scm 424 */
																																																							return
																																																								BGl_evcompilezd2errorzd2zz__evcompilez00
																																																								(BgL_locz00_74,
																																																								BGl_string2959z00zz__evaluatez00,
																																																								BGl_string3034z00zz__evaluatez00,
																																																								BgL_ez00_69);
																																																						}
																																																				}
																																																			}
																																																	}
																																																else
																																																	{	/* Eval/evaluate.scm 424 */
																																																		obj_t
																																																			BgL_cdrzd27102zd2_1795;
																																																		BgL_cdrzd27102zd2_1795
																																																			=
																																																			CDR
																																																			(
																																																			((obj_t) BgL_ez00_69));
																																																		{	/* Eval/evaluate.scm 424 */
																																																			obj_t
																																																				BgL_cdrzd27106zd2_1796;
																																																			BgL_cdrzd27106zd2_1796
																																																				=
																																																				CDR
																																																				(
																																																				((obj_t) BgL_cdrzd27102zd2_1795));
																																																			if (PAIRP(BgL_cdrzd27106zd2_1796))
																																																				{	/* Eval/evaluate.scm 424 */
																																																					if (NULLP(CDR(BgL_cdrzd27106zd2_1796)))
																																																						{	/* Eval/evaluate.scm 424 */
																																																							obj_t
																																																								BgL_arg1754z00_1800;
																																																							obj_t
																																																								BgL_arg1755z00_1801;
																																																							BgL_arg1754z00_1800
																																																								=
																																																								CAR
																																																								(
																																																								((obj_t) BgL_cdrzd27102zd2_1795));
																																																							BgL_arg1755z00_1801
																																																								=
																																																								CAR
																																																								(BgL_cdrzd27106zd2_1796);
																																																							{
																																																								BgL_ev_hookz00_bglt
																																																									BgL_auxz00_6430;
																																																								{
																																																									obj_t
																																																										BgL_ez00_6432;
																																																									obj_t
																																																										BgL_vz00_6431;
																																																									BgL_vz00_6431
																																																										=
																																																										BgL_arg1754z00_1800;
																																																									BgL_ez00_6432
																																																										=
																																																										BgL_arg1755z00_1801;
																																																									BgL_ez00_1566
																																																										=
																																																										BgL_ez00_6432;
																																																									BgL_vz00_1565
																																																										=
																																																										BgL_vz00_6431;
																																																									goto
																																																										BgL_tagzd2165zd2_1567;
																																																								}
																																																								return
																																																									(
																																																									(obj_t)
																																																									BgL_auxz00_6430);
																																																							}
																																																						}
																																																					else
																																																						{	/* Eval/evaluate.scm 424 */
																																																							return
																																																								BGl_evcompilezd2errorzd2zz__evcompilez00
																																																								(BgL_locz00_74,
																																																								BGl_string2959z00zz__evaluatez00,
																																																								BGl_string3034z00zz__evaluatez00,
																																																								BgL_ez00_69);
																																																						}
																																																				}
																																																			else
																																																				{	/* Eval/evaluate.scm 424 */
																																																					return
																																																						BGl_evcompilezd2errorzd2zz__evcompilez00
																																																						(BgL_locz00_74,
																																																						BGl_string2959z00zz__evaluatez00,
																																																						BGl_string3034z00zz__evaluatez00,
																																																						BgL_ez00_69);
																																																				}
																																																		}
																																																	}
																																															}
																																														else
																																															{	/* Eval/evaluate.scm 424 */
																																																obj_t
																																																	BgL_cdrzd27163zd2_1803;
																																																BgL_cdrzd27163zd2_1803
																																																	=
																																																	CDR
																																																	(
																																																	((obj_t) BgL_ez00_69));
																																																{	/* Eval/evaluate.scm 424 */
																																																	obj_t
																																																		BgL_cdrzd27167zd2_1804;
																																																	BgL_cdrzd27167zd2_1804
																																																		=
																																																		CDR
																																																		(
																																																		((obj_t) BgL_cdrzd27163zd2_1803));
																																																	if (PAIRP(BgL_cdrzd27167zd2_1804))
																																																		{	/* Eval/evaluate.scm 424 */
																																																			if (NULLP(CDR(BgL_cdrzd27167zd2_1804)))
																																																				{	/* Eval/evaluate.scm 424 */
																																																					obj_t
																																																						BgL_arg1760z00_1808;
																																																					obj_t
																																																						BgL_arg1761z00_1809;
																																																					BgL_arg1760z00_1808
																																																						=
																																																						CAR
																																																						(
																																																						((obj_t) BgL_cdrzd27163zd2_1803));
																																																					BgL_arg1761z00_1809
																																																						=
																																																						CAR
																																																						(BgL_cdrzd27167zd2_1804);
																																																					{
																																																						BgL_ev_hookz00_bglt
																																																							BgL_auxz00_6448;
																																																						{
																																																							obj_t
																																																								BgL_ez00_6450;
																																																							obj_t
																																																								BgL_vz00_6449;
																																																							BgL_vz00_6449
																																																								=
																																																								BgL_arg1760z00_1808;
																																																							BgL_ez00_6450
																																																								=
																																																								BgL_arg1761z00_1809;
																																																							BgL_ez00_1566
																																																								=
																																																								BgL_ez00_6450;
																																																							BgL_vz00_1565
																																																								=
																																																								BgL_vz00_6449;
																																																							goto
																																																								BgL_tagzd2165zd2_1567;
																																																						}
																																																						return
																																																							(
																																																							(obj_t)
																																																							BgL_auxz00_6448);
																																																					}
																																																				}
																																																			else
																																																				{	/* Eval/evaluate.scm 424 */
																																																					return
																																																						BGl_evcompilezd2errorzd2zz__evcompilez00
																																																						(BgL_locz00_74,
																																																						BGl_string2959z00zz__evaluatez00,
																																																						BGl_string3034z00zz__evaluatez00,
																																																						BgL_ez00_69);
																																																				}
																																																		}
																																																	else
																																																		{	/* Eval/evaluate.scm 424 */
																																																			return
																																																				BGl_evcompilezd2errorzd2zz__evcompilez00
																																																				(BgL_locz00_74,
																																																				BGl_string2959z00zz__evaluatez00,
																																																				BGl_string3034z00zz__evaluatez00,
																																																				BgL_ez00_69);
																																																		}
																																																}
																																															}
																																													}
																																												else
																																													{	/* Eval/evaluate.scm 424 */
																																														obj_t
																																															BgL_cdrzd27224zd2_1811;
																																														BgL_cdrzd27224zd2_1811
																																															=
																																															CDR
																																															(
																																															((obj_t) BgL_ez00_69));
																																														{	/* Eval/evaluate.scm 424 */
																																															obj_t
																																																BgL_cdrzd27228zd2_1812;
																																															BgL_cdrzd27228zd2_1812
																																																=
																																																CDR
																																																(
																																																((obj_t) BgL_cdrzd27224zd2_1811));
																																															if (PAIRP(BgL_cdrzd27228zd2_1812))
																																																{	/* Eval/evaluate.scm 424 */
																																																	if (NULLP(CDR(BgL_cdrzd27228zd2_1812)))
																																																		{	/* Eval/evaluate.scm 424 */
																																																			obj_t
																																																				BgL_arg1766z00_1816;
																																																			obj_t
																																																				BgL_arg1767z00_1817;
																																																			BgL_arg1766z00_1816
																																																				=
																																																				CAR
																																																				(
																																																				((obj_t) BgL_cdrzd27224zd2_1811));
																																																			BgL_arg1767z00_1817
																																																				=
																																																				CAR
																																																				(BgL_cdrzd27228zd2_1812);
																																																			{
																																																				BgL_ev_hookz00_bglt
																																																					BgL_auxz00_6466;
																																																				{
																																																					obj_t
																																																						BgL_ez00_6468;
																																																					obj_t
																																																						BgL_vz00_6467;
																																																					BgL_vz00_6467
																																																						=
																																																						BgL_arg1766z00_1816;
																																																					BgL_ez00_6468
																																																						=
																																																						BgL_arg1767z00_1817;
																																																					BgL_ez00_1566
																																																						=
																																																						BgL_ez00_6468;
																																																					BgL_vz00_1565
																																																						=
																																																						BgL_vz00_6467;
																																																					goto
																																																						BgL_tagzd2165zd2_1567;
																																																				}
																																																				return
																																																					(
																																																					(obj_t)
																																																					BgL_auxz00_6466);
																																																			}
																																																		}
																																																	else
																																																		{	/* Eval/evaluate.scm 424 */
																																																			return
																																																				BGl_evcompilezd2errorzd2zz__evcompilez00
																																																				(BgL_locz00_74,
																																																				BGl_string2959z00zz__evaluatez00,
																																																				BGl_string3034z00zz__evaluatez00,
																																																				BgL_ez00_69);
																																																		}
																																																}
																																															else
																																																{	/* Eval/evaluate.scm 424 */
																																																	return
																																																		BGl_evcompilezd2errorzd2zz__evcompilez00
																																																		(BgL_locz00_74,
																																																		BGl_string2959z00zz__evaluatez00,
																																																		BGl_string3034z00zz__evaluatez00,
																																																		BgL_ez00_69);
																																																}
																																														}
																																													}
																																											}
																																										else
																																											{	/* Eval/evaluate.scm 424 */
																																												obj_t
																																													BgL_cdrzd27285zd2_1819;
																																												BgL_cdrzd27285zd2_1819
																																													=
																																													CDR
																																													(
																																													((obj_t) BgL_ez00_69));
																																												{	/* Eval/evaluate.scm 424 */
																																													obj_t
																																														BgL_cdrzd27289zd2_1820;
																																													BgL_cdrzd27289zd2_1820
																																														=
																																														CDR
																																														(
																																														((obj_t) BgL_cdrzd27285zd2_1819));
																																													if (PAIRP(BgL_cdrzd27289zd2_1820))
																																														{	/* Eval/evaluate.scm 424 */
																																															if (NULLP(CDR(BgL_cdrzd27289zd2_1820)))
																																																{	/* Eval/evaluate.scm 424 */
																																																	obj_t
																																																		BgL_arg1772z00_1824;
																																																	obj_t
																																																		BgL_arg1773z00_1825;
																																																	BgL_arg1772z00_1824
																																																		=
																																																		CAR
																																																		(
																																																		((obj_t) BgL_cdrzd27285zd2_1819));
																																																	BgL_arg1773z00_1825
																																																		=
																																																		CAR
																																																		(BgL_cdrzd27289zd2_1820);
																																																	{
																																																		BgL_ev_hookz00_bglt
																																																			BgL_auxz00_6484;
																																																		{
																																																			obj_t
																																																				BgL_ez00_6486;
																																																			obj_t
																																																				BgL_vz00_6485;
																																																			BgL_vz00_6485
																																																				=
																																																				BgL_arg1772z00_1824;
																																																			BgL_ez00_6486
																																																				=
																																																				BgL_arg1773z00_1825;
																																																			BgL_ez00_1566
																																																				=
																																																				BgL_ez00_6486;
																																																			BgL_vz00_1565
																																																				=
																																																				BgL_vz00_6485;
																																																			goto
																																																				BgL_tagzd2165zd2_1567;
																																																		}
																																																		return
																																																			(
																																																			(obj_t)
																																																			BgL_auxz00_6484);
																																																	}
																																																}
																																															else
																																																{	/* Eval/evaluate.scm 424 */
																																																	return
																																																		BGl_evcompilezd2errorzd2zz__evcompilez00
																																																		(BgL_locz00_74,
																																																		BGl_string2959z00zz__evaluatez00,
																																																		BGl_string3034z00zz__evaluatez00,
																																																		BgL_ez00_69);
																																																}
																																														}
																																													else
																																														{	/* Eval/evaluate.scm 424 */
																																															return
																																																BGl_evcompilezd2errorzd2zz__evcompilez00
																																																(BgL_locz00_74,
																																																BGl_string2959z00zz__evaluatez00,
																																																BGl_string3034z00zz__evaluatez00,
																																																BgL_ez00_69);
																																														}
																																												}
																																											}
																																									}
																																								else
																																									{	/* Eval/evaluate.scm 424 */
																																										obj_t
																																											BgL_cdrzd27333zd2_1827;
																																										BgL_cdrzd27333zd2_1827
																																											=
																																											CDR
																																											(
																																											((obj_t) BgL_ez00_69));
																																										{	/* Eval/evaluate.scm 424 */
																																											obj_t
																																												BgL_carzd27336zd2_1828;
																																											obj_t
																																												BgL_cdrzd27337zd2_1829;
																																											BgL_carzd27336zd2_1828
																																												=
																																												CAR
																																												(
																																												((obj_t) BgL_cdrzd27333zd2_1827));
																																											BgL_cdrzd27337zd2_1829
																																												=
																																												CDR
																																												(
																																												((obj_t) BgL_cdrzd27333zd2_1827));
																																											if ((CAR(((obj_t) BgL_carzd27336zd2_1828)) == BGl_symbol3044z00zz__evaluatez00))
																																												{	/* Eval/evaluate.scm 424 */
																																													if (PAIRP(BgL_cdrzd27337zd2_1829))
																																														{	/* Eval/evaluate.scm 424 */
																																															if (NULLP(CDR(BgL_cdrzd27337zd2_1829)))
																																																{	/* Eval/evaluate.scm 424 */
																																																	obj_t
																																																		BgL_arg1781z00_1835;
																																																	obj_t
																																																		BgL_arg1782z00_1836;
																																																	BgL_arg1781z00_1835
																																																		=
																																																		CDR
																																																		(
																																																		((obj_t) BgL_carzd27336zd2_1828));
																																																	BgL_arg1782z00_1836
																																																		=
																																																		CAR
																																																		(BgL_cdrzd27337zd2_1829);
																																																	BgL_lz00_1562
																																																		=
																																																		BgL_arg1781z00_1835;
																																																	BgL_e2z00_1563
																																																		=
																																																		BgL_arg1782z00_1836;
																																																BgL_tagzd2164zd2_1564:
																																																	{	/* Eval/evaluate.scm 537 */
																																																		bool_t
																																																			BgL_test3333z00_6508;
																																																		if (PAIRP(BgL_lz00_1562))
																																																			{	/* Eval/evaluate.scm 537 */
																																																				bool_t
																																																					BgL_test3335z00_6511;
																																																				{	/* Eval/evaluate.scm 537 */
																																																					obj_t
																																																						BgL_tmpz00_6512;
																																																					BgL_tmpz00_6512
																																																						=
																																																						CDR
																																																						(BgL_lz00_1562);
																																																					BgL_test3335z00_6511
																																																						=
																																																						PAIRP
																																																						(BgL_tmpz00_6512);
																																																				}
																																																				if (BgL_test3335z00_6511)
																																																					{
																																																						obj_t
																																																							BgL_l1253z00_2630;
																																																						BgL_l1253z00_2630
																																																							=
																																																							BgL_lz00_1562;
																																																					BgL_zc3z04anonymousza32408ze3z87_2631:
																																																						if (NULLP(BgL_l1253z00_2630))
																																																							{	/* Eval/evaluate.scm 537 */
																																																								BgL_test3333z00_6508
																																																									=
																																																									(
																																																									(bool_t)
																																																									1);
																																																							}
																																																						else
																																																							{	/* Eval/evaluate.scm 537 */
																																																								bool_t
																																																									BgL_test3337z00_6517;
																																																								{	/* Eval/evaluate.scm 537 */
																																																									obj_t
																																																										BgL_tmpz00_6518;
																																																									BgL_tmpz00_6518
																																																										=
																																																										CAR
																																																										(
																																																										((obj_t) BgL_l1253z00_2630));
																																																									BgL_test3337z00_6517
																																																										=
																																																										SYMBOLP
																																																										(BgL_tmpz00_6518);
																																																								}
																																																								if (BgL_test3337z00_6517)
																																																									{
																																																										obj_t
																																																											BgL_l1253z00_6522;
																																																										BgL_l1253z00_6522
																																																											=
																																																											CDR
																																																											(
																																																											((obj_t) BgL_l1253z00_2630));
																																																										BgL_l1253z00_2630
																																																											=
																																																											BgL_l1253z00_6522;
																																																										goto
																																																											BgL_zc3z04anonymousza32408ze3z87_2631;
																																																									}
																																																								else
																																																									{	/* Eval/evaluate.scm 537 */
																																																										BgL_test3333z00_6508
																																																											=
																																																											(
																																																											(bool_t)
																																																											0);
																																																									}
																																																							}
																																																					}
																																																				else
																																																					{	/* Eval/evaluate.scm 537 */
																																																						BgL_test3333z00_6508
																																																							=
																																																							(
																																																							(bool_t)
																																																							0);
																																																					}
																																																			}
																																																		else
																																																			{	/* Eval/evaluate.scm 537 */
																																																				BgL_test3333z00_6508
																																																					=
																																																					(
																																																					(bool_t)
																																																					0);
																																																			}
																																																		if (BgL_test3333z00_6508)
																																																			{	/* Eval/evaluate.scm 537 */
																																																				return
																																																					BGl_convzd2fieldzd2setz00zz__evaluatez00
																																																					(BgL_lz00_1562,
																																																					BgL_e2z00_1563,
																																																					BgL_ez00_69,
																																																					BgL_localsz00_70,
																																																					BgL_globalsz00_71,
																																																					BgL_tailzf3zf3_72,
																																																					BgL_wherez00_73,
																																																					BgL_locz00_74,
																																																					BgL_topzf3zf3_75);
																																																			}
																																																		else
																																																			{	/* Eval/evaluate.scm 537 */
																																																				return
																																																					BGl_evcompilezd2errorzd2zz__evcompilez00
																																																					(BgL_locz00_74,
																																																					BGl_string2959z00zz__evaluatez00,
																																																					BGl_string3034z00zz__evaluatez00,
																																																					BgL_ez00_69);
																																																			}
																																																	}
																																																}
																																															else
																																																{	/* Eval/evaluate.scm 424 */
																																																	return
																																																		BGl_evcompilezd2errorzd2zz__evcompilez00
																																																		(BgL_locz00_74,
																																																		BGl_string2959z00zz__evaluatez00,
																																																		BGl_string3034z00zz__evaluatez00,
																																																		BgL_ez00_69);
																																																}
																																														}
																																													else
																																														{	/* Eval/evaluate.scm 424 */
																																															return
																																																BGl_evcompilezd2errorzd2zz__evcompilez00
																																																(BgL_locz00_74,
																																																BGl_string2959z00zz__evaluatez00,
																																																BGl_string3034z00zz__evaluatez00,
																																																BgL_ez00_69);
																																														}
																																												}
																																											else
																																												{	/* Eval/evaluate.scm 424 */
																																													obj_t
																																														BgL_cdrzd27413zd2_1839;
																																													BgL_cdrzd27413zd2_1839
																																														=
																																														CDR
																																														(
																																														((obj_t) BgL_cdrzd27333zd2_1827));
																																													if (PAIRP(BgL_cdrzd27413zd2_1839))
																																														{	/* Eval/evaluate.scm 424 */
																																															if (NULLP(CDR(BgL_cdrzd27413zd2_1839)))
																																																{	/* Eval/evaluate.scm 424 */
																																																	obj_t
																																																		BgL_arg1787z00_1843;
																																																	obj_t
																																																		BgL_arg1788z00_1844;
																																																	BgL_arg1787z00_1843
																																																		=
																																																		CAR
																																																		(
																																																		((obj_t) BgL_cdrzd27333zd2_1827));
																																																	BgL_arg1788z00_1844
																																																		=
																																																		CAR
																																																		(BgL_cdrzd27413zd2_1839);
																																																	{
																																																		BgL_ev_hookz00_bglt
																																																			BgL_auxz00_6539;
																																																		{
																																																			obj_t
																																																				BgL_ez00_6541;
																																																			obj_t
																																																				BgL_vz00_6540;
																																																			BgL_vz00_6540
																																																				=
																																																				BgL_arg1787z00_1843;
																																																			BgL_ez00_6541
																																																				=
																																																				BgL_arg1788z00_1844;
																																																			BgL_ez00_1566
																																																				=
																																																				BgL_ez00_6541;
																																																			BgL_vz00_1565
																																																				=
																																																				BgL_vz00_6540;
																																																			goto
																																																				BgL_tagzd2165zd2_1567;
																																																		}
																																																		return
																																																			(
																																																			(obj_t)
																																																			BgL_auxz00_6539);
																																																	}
																																																}
																																															else
																																																{	/* Eval/evaluate.scm 424 */
																																																	return
																																																		BGl_evcompilezd2errorzd2zz__evcompilez00
																																																		(BgL_locz00_74,
																																																		BGl_string2959z00zz__evaluatez00,
																																																		BGl_string3034z00zz__evaluatez00,
																																																		BgL_ez00_69);
																																																}
																																														}
																																													else
																																														{	/* Eval/evaluate.scm 424 */
																																															return
																																																BGl_evcompilezd2errorzd2zz__evcompilez00
																																																(BgL_locz00_74,
																																																BGl_string2959z00zz__evaluatez00,
																																																BGl_string3034z00zz__evaluatez00,
																																																BgL_ez00_69);
																																														}
																																												}
																																										}
																																									}
																																							}
																																						else
																																							{	/* Eval/evaluate.scm 424 */
																																								obj_t
																																									BgL_cdrzd27470zd2_1848;
																																								BgL_cdrzd27470zd2_1848
																																									=
																																									CDR
																																									(
																																									((obj_t) BgL_ez00_69));
																																								{	/* Eval/evaluate.scm 424 */
																																									obj_t
																																										BgL_cdrzd27474zd2_1849;
																																									BgL_cdrzd27474zd2_1849
																																										=
																																										CDR
																																										(
																																										((obj_t) BgL_cdrzd27470zd2_1848));
																																									if (PAIRP(BgL_cdrzd27474zd2_1849))
																																										{	/* Eval/evaluate.scm 424 */
																																											if (NULLP(CDR(BgL_cdrzd27474zd2_1849)))
																																												{	/* Eval/evaluate.scm 424 */
																																													obj_t
																																														BgL_arg1795z00_1853;
																																													obj_t
																																														BgL_arg1796z00_1854;
																																													BgL_arg1795z00_1853
																																														=
																																														CAR
																																														(
																																														((obj_t) BgL_cdrzd27470zd2_1848));
																																													BgL_arg1796z00_1854
																																														=
																																														CAR
																																														(BgL_cdrzd27474zd2_1849);
																																													{
																																														BgL_ev_hookz00_bglt
																																															BgL_auxz00_6557;
																																														{
																																															obj_t
																																																BgL_ez00_6559;
																																															obj_t
																																																BgL_vz00_6558;
																																															BgL_vz00_6558
																																																=
																																																BgL_arg1795z00_1853;
																																															BgL_ez00_6559
																																																=
																																																BgL_arg1796z00_1854;
																																															BgL_ez00_1566
																																																=
																																																BgL_ez00_6559;
																																															BgL_vz00_1565
																																																=
																																																BgL_vz00_6558;
																																															goto
																																																BgL_tagzd2165zd2_1567;
																																														}
																																														return
																																															(
																																															(obj_t)
																																															BgL_auxz00_6557);
																																													}
																																												}
																																											else
																																												{	/* Eval/evaluate.scm 424 */
																																													return
																																														BGl_evcompilezd2errorzd2zz__evcompilez00
																																														(BgL_locz00_74,
																																														BGl_string2959z00zz__evaluatez00,
																																														BGl_string3034z00zz__evaluatez00,
																																														BgL_ez00_69);
																																												}
																																										}
																																									else
																																										{	/* Eval/evaluate.scm 424 */
																																											return
																																												BGl_evcompilezd2errorzd2zz__evcompilez00
																																												(BgL_locz00_74,
																																												BGl_string2959z00zz__evaluatez00,
																																												BGl_string3034z00zz__evaluatez00,
																																												BgL_ez00_69);
																																										}
																																								}
																																							}
																																					}
																																				else
																																					{	/* Eval/evaluate.scm 424 */
																																						return
																																							BGl_evcompilezd2errorzd2zz__evcompilez00
																																							(BgL_locz00_74,
																																							BGl_string2959z00zz__evaluatez00,
																																							BGl_string3034z00zz__evaluatez00,
																																							BgL_ez00_69);
																																					}
																																			}
																																		else
																																			{	/* Eval/evaluate.scm 424 */
																																				obj_t
																																					BgL_cdrzd27595zd2_1856;
																																				BgL_cdrzd27595zd2_1856
																																					=
																																					CDR((
																																						(obj_t)
																																						BgL_ez00_69));
																																				if ((CAR
																																						(((obj_t) BgL_ez00_69)) == BGl_symbol3058z00zz__evaluatez00))
																																					{	/* Eval/evaluate.scm 424 */
																																						if (PAIRP(BgL_cdrzd27595zd2_1856))
																																							{	/* Eval/evaluate.scm 424 */
																																								obj_t
																																									BgL_cdrzd27600zd2_1860;
																																								BgL_cdrzd27600zd2_1860
																																									=
																																									CDR
																																									(BgL_cdrzd27595zd2_1856);
																																								if (PAIRP(BgL_cdrzd27600zd2_1860))
																																									{	/* Eval/evaluate.scm 424 */
																																										obj_t
																																											BgL_carzd27604zd2_1862;
																																										BgL_carzd27604zd2_1862
																																											=
																																											CAR
																																											(BgL_cdrzd27600zd2_1860);
																																										if (PAIRP(BgL_carzd27604zd2_1862))
																																											{	/* Eval/evaluate.scm 424 */
																																												obj_t
																																													BgL_cdrzd27609zd2_1864;
																																												BgL_cdrzd27609zd2_1864
																																													=
																																													CDR
																																													(BgL_carzd27604zd2_1862);
																																												if ((CAR(BgL_carzd27604zd2_1862) == BGl_symbol3023z00zz__evaluatez00))
																																													{	/* Eval/evaluate.scm 424 */
																																														if (PAIRP(BgL_cdrzd27609zd2_1864))
																																															{	/* Eval/evaluate.scm 424 */
																																																obj_t
																																																	BgL_cdrzd27613zd2_1868;
																																																BgL_cdrzd27613zd2_1868
																																																	=
																																																	CDR
																																																	(BgL_cdrzd27609zd2_1864);
																																																if (PAIRP(BgL_cdrzd27613zd2_1868))
																																																	{	/* Eval/evaluate.scm 424 */
																																																		if (NULLP(CDR(BgL_cdrzd27613zd2_1868)))
																																																			{	/* Eval/evaluate.scm 424 */
																																																				if (NULLP(CDR(BgL_cdrzd27600zd2_1860)))
																																																					{	/* Eval/evaluate.scm 424 */
																																																						obj_t
																																																							BgL_arg1813z00_1874;
																																																						obj_t
																																																							BgL_arg1814z00_1875;
																																																						obj_t
																																																							BgL_arg1815z00_1876;
																																																						BgL_arg1813z00_1874
																																																							=
																																																							CAR
																																																							(BgL_cdrzd27595zd2_1856);
																																																						BgL_arg1814z00_1875
																																																							=
																																																							CAR
																																																							(BgL_cdrzd27609zd2_1864);
																																																						BgL_arg1815z00_1876
																																																							=
																																																							CAR
																																																							(BgL_cdrzd27613zd2_1868);
																																																						{
																																																							BgL_ev_defglobalz00_bglt
																																																								BgL_auxz00_6596;
																																																							BgL_gvz00_1569
																																																								=
																																																								BgL_arg1813z00_1874;
																																																							BgL_formalsz00_1570
																																																								=
																																																								BgL_arg1814z00_1875;
																																																							BgL_bodyz00_1571
																																																								=
																																																								BgL_arg1815z00_1876;
																																																						BgL_tagzd2167zd2_1572:
																																																							{	/* Eval/evaluate.scm 558 */
																																																								obj_t
																																																									BgL_tidz00_2654;
																																																								BgL_tidz00_2654
																																																									=
																																																									BGl_untypezd2identzd2zz__evaluatez00
																																																									(BgL_gvz00_1569);
																																																								{	/* Eval/evaluate.scm 559 */
																																																									BgL_ev_defglobalz00_bglt
																																																										BgL_new1148z00_2655;
																																																									{	/* Eval/evaluate.scm 563 */
																																																										BgL_ev_defglobalz00_bglt
																																																											BgL_new1147z00_2658;
																																																										BgL_new1147z00_2658
																																																											=
																																																											(
																																																											(BgL_ev_defglobalz00_bglt)
																																																											BOBJECT
																																																											(GC_MALLOC
																																																												(sizeof
																																																													(struct
																																																														BgL_ev_defglobalz00_bgl))));
																																																										{	/* Eval/evaluate.scm 563 */
																																																											long
																																																												BgL_arg2429z00_2659;
																																																											BgL_arg2429z00_2659
																																																												=
																																																												BGL_CLASS_NUM
																																																												(BGl_ev_defglobalz00zz__evaluate_typesz00);
																																																											BGL_OBJECT_CLASS_NUM_SET
																																																												(
																																																												((BgL_objectz00_bglt) BgL_new1147z00_2658), BgL_arg2429z00_2659);
																																																										}
																																																										BgL_new1148z00_2655
																																																											=
																																																											BgL_new1147z00_2658;
																																																									}
																																																									{
																																																										BgL_ev_exprz00_bglt
																																																											BgL_auxz00_6602;
																																																										{	/* Eval/evaluate.scm 563 */
																																																											obj_t
																																																												BgL_arg2427z00_2656;
																																																											BgL_arg2427z00_2656
																																																												=
																																																												CDR
																																																												(BgL_tidz00_2654);
																																																											BgL_auxz00_6602
																																																												=
																																																												(
																																																												(BgL_ev_exprz00_bglt)
																																																												BGl_convzd2lambdaze70z35zz__evaluatez00
																																																												(BgL_globalsz00_71,
																																																													BgL_localsz00_70,
																																																													BgL_ez00_69,
																																																													BgL_locz00_74,
																																																													BgL_formalsz00_1570,
																																																													BgL_bodyz00_1571,
																																																													BgL_gvz00_1569,
																																																													BgL_arg2427z00_2656));
																																																										}
																																																										((((BgL_ev_hookz00_bglt) COBJECT(((BgL_ev_hookz00_bglt) BgL_new1148z00_2655)))->BgL_ez00) = ((BgL_ev_exprz00_bglt) BgL_auxz00_6602), BUNSPEC);
																																																									}
																																																									((((BgL_ev_setglobalz00_bglt) COBJECT(((BgL_ev_setglobalz00_bglt) BgL_new1148z00_2655)))->BgL_locz00) = ((obj_t) BgL_locz00_74), BUNSPEC);
																																																									((((BgL_ev_setglobalz00_bglt) COBJECT(((BgL_ev_setglobalz00_bglt) BgL_new1148z00_2655)))->BgL_namez00) = ((obj_t) CAR(BgL_tidz00_2654)), BUNSPEC);
																																																									{
																																																										obj_t
																																																											BgL_auxz00_6613;
																																																										if (BGl_evmodulezf3zf3zz__evmodulez00(BgL_globalsz00_71))
																																																											{	/* Eval/evaluate.scm 562 */
																																																												BgL_auxz00_6613
																																																													=
																																																													BgL_globalsz00_71;
																																																											}
																																																										else
																																																											{	/* Eval/evaluate.scm 562 */
																																																												BgL_auxz00_6613
																																																													=
																																																													BGL_MODULE
																																																													();
																																																											}
																																																										((((BgL_ev_setglobalz00_bglt) COBJECT(((BgL_ev_setglobalz00_bglt) BgL_new1148z00_2655)))->BgL_modz00) = ((obj_t) BgL_auxz00_6613), BUNSPEC);
																																																									}
																																																									BgL_auxz00_6596
																																																										=
																																																										BgL_new1148z00_2655;
																																																								}
																																																							}
																																																							return
																																																								(
																																																								(obj_t)
																																																								BgL_auxz00_6596);
																																																						}
																																																					}
																																																				else
																																																					{	/* Eval/evaluate.scm 424 */
																																																						obj_t
																																																							BgL_arg1816z00_1877;
																																																						BgL_arg1816z00_1877
																																																							=
																																																							CAR
																																																							(
																																																							((obj_t) BgL_ez00_69));
																																																						{
																																																							BgL_ev_appz00_bglt
																																																								BgL_auxz00_6622;
																																																							{
																																																								obj_t
																																																									BgL_argsz00_6624;
																																																								obj_t
																																																									BgL_fz00_6623;
																																																								BgL_fz00_6623
																																																									=
																																																									BgL_arg1816z00_1877;
																																																								BgL_argsz00_6624
																																																									=
																																																									BgL_cdrzd27595zd2_1856;
																																																								BgL_argsz00_1597
																																																									=
																																																									BgL_argsz00_6624;
																																																								BgL_fz00_1596
																																																									=
																																																									BgL_fz00_6623;
																																																								goto
																																																									BgL_tagzd2176zd2_1598;
																																																							}
																																																							return
																																																								(
																																																								(obj_t)
																																																								BgL_auxz00_6622);
																																																						}
																																																					}
																																																			}
																																																		else
																																																			{	/* Eval/evaluate.scm 424 */
																																																				obj_t
																																																					BgL_cdrzd27715zd2_1881;
																																																				BgL_cdrzd27715zd2_1881
																																																					=
																																																					CDR
																																																					(
																																																					((obj_t) BgL_cdrzd27595zd2_1856));
																																																				if (NULLP(CDR(((obj_t) BgL_cdrzd27715zd2_1881))))
																																																					{	/* Eval/evaluate.scm 424 */
																																																						obj_t
																																																							BgL_arg1821z00_1884;
																																																						obj_t
																																																							BgL_arg1822z00_1885;
																																																						BgL_arg1821z00_1884
																																																							=
																																																							CAR
																																																							(
																																																							((obj_t) BgL_cdrzd27595zd2_1856));
																																																						BgL_arg1822z00_1885
																																																							=
																																																							CAR
																																																							(
																																																							((obj_t) BgL_cdrzd27715zd2_1881));
																																																						{
																																																							BgL_ev_defglobalz00_bglt
																																																								BgL_auxz00_6636;
																																																							BgL_gvz00_1573
																																																								=
																																																								BgL_arg1821z00_1884;
																																																							BgL_gez00_1574
																																																								=
																																																								BgL_arg1822z00_1885;
																																																						BgL_tagzd2168zd2_1575:
																																																							{	/* Eval/evaluate.scm 565 */
																																																								obj_t
																																																									BgL_tidz00_2660;
																																																								BgL_tidz00_2660
																																																									=
																																																									BGl_untypezd2identzd2zz__evaluatez00
																																																									(BgL_gvz00_1573);
																																																								{	/* Eval/evaluate.scm 566 */
																																																									BgL_ev_defglobalz00_bglt
																																																										BgL_new1150z00_2661;
																																																									{	/* Eval/evaluate.scm 570 */
																																																										BgL_ev_defglobalz00_bglt
																																																											BgL_new1149z00_2666;
																																																										BgL_new1149z00_2666
																																																											=
																																																											(
																																																											(BgL_ev_defglobalz00_bglt)
																																																											BOBJECT
																																																											(GC_MALLOC
																																																												(sizeof
																																																													(struct
																																																														BgL_ev_defglobalz00_bgl))));
																																																										{	/* Eval/evaluate.scm 570 */
																																																											long
																																																												BgL_arg2440z00_2667;
																																																											BgL_arg2440z00_2667
																																																												=
																																																												BGL_CLASS_NUM
																																																												(BGl_ev_defglobalz00zz__evaluate_typesz00);
																																																											BGL_OBJECT_CLASS_NUM_SET
																																																												(
																																																												((BgL_objectz00_bglt) BgL_new1149z00_2666), BgL_arg2440z00_2667);
																																																										}
																																																										BgL_new1150z00_2661
																																																											=
																																																											BgL_new1149z00_2666;
																																																									}
																																																									{
																																																										BgL_ev_exprz00_bglt
																																																											BgL_auxz00_6642;
																																																										{	/* Eval/evaluate.scm 571 */
																																																											obj_t
																																																												BgL_arg2430z00_2662;
																																																											{	/* Eval/evaluate.scm 571 */
																																																												obj_t
																																																													BgL_arg2436z00_2664;
																																																												BgL_arg2436z00_2664
																																																													=
																																																													CDR
																																																													(BgL_tidz00_2660);
																																																												BgL_arg2430z00_2662
																																																													=
																																																													BGl_typezd2resultzd2zz__evaluatez00
																																																													(BgL_arg2436z00_2664,
																																																													BgL_gez00_1574,
																																																													BgL_locz00_74);
																																																											}
																																																											{	/* Eval/evaluate.scm 383 */
																																																												obj_t
																																																													BgL_arg2472z00_3884;
																																																												{	/* Eval/evaluate.scm 144 */
																																																													obj_t
																																																														BgL__ortest_1069z00_3885;
																																																													BgL__ortest_1069z00_3885
																																																														=
																																																														BGl_getzd2sourcezd2locationz00zz__readerz00
																																																														(BgL_arg2430z00_2662);
																																																													if (CBOOL(BgL__ortest_1069z00_3885))
																																																														{	/* Eval/evaluate.scm 144 */
																																																															BgL_arg2472z00_3884
																																																																=
																																																																BgL__ortest_1069z00_3885;
																																																														}
																																																													else
																																																														{	/* Eval/evaluate.scm 144 */
																																																															BgL_arg2472z00_3884
																																																																=
																																																																BgL_locz00_74;
																																																														}
																																																												}
																																																												{
																																																													obj_t
																																																														BgL_auxz00_6649;
																																																													{	/* Eval/evaluate.scm 374 */
																																																														obj_t
																																																															BgL_auxz00_6650;
																																																														if (BgL_topzf3zf3_75)
																																																															{	/* Eval/evaluate.scm 572 */
																																																																BgL_auxz00_6650
																																																																	=
																																																																	BgL_gvz00_1573;
																																																															}
																																																														else
																																																															{	/* Eval/evaluate.scm 572 */
																																																																BgL_auxz00_6650
																																																																	=
																																																																	BgL_wherez00_73;
																																																															}
																																																														BgL_auxz00_6649
																																																															=
																																																															BGl_convz00zz__evaluatez00
																																																															(BgL_arg2430z00_2662,
																																																															BgL_localsz00_70,
																																																															BgL_globalsz00_71,
																																																															BFALSE,
																																																															BgL_auxz00_6650,
																																																															BgL_arg2472z00_3884,
																																																															((bool_t) 0));
																																																													}
																																																													BgL_auxz00_6642
																																																														=
																																																														(
																																																														(BgL_ev_exprz00_bglt)
																																																														BgL_auxz00_6649);
																																																												}
																																																											}
																																																										}
																																																										((((BgL_ev_hookz00_bglt) COBJECT(((BgL_ev_hookz00_bglt) BgL_new1150z00_2661)))->BgL_ez00) = ((BgL_ev_exprz00_bglt) BgL_auxz00_6642), BUNSPEC);
																																																									}
																																																									((((BgL_ev_setglobalz00_bglt) COBJECT(((BgL_ev_setglobalz00_bglt) BgL_new1150z00_2661)))->BgL_locz00) = ((obj_t) BgL_locz00_74), BUNSPEC);
																																																									((((BgL_ev_setglobalz00_bglt) COBJECT(((BgL_ev_setglobalz00_bglt) BgL_new1150z00_2661)))->BgL_namez00) = ((obj_t) CAR(BgL_tidz00_2660)), BUNSPEC);
																																																									{
																																																										obj_t
																																																											BgL_auxz00_6660;
																																																										if (BGl_evmodulezf3zf3zz__evmodulez00(BgL_globalsz00_71))
																																																											{	/* Eval/evaluate.scm 569 */
																																																												BgL_auxz00_6660
																																																													=
																																																													BgL_globalsz00_71;
																																																											}
																																																										else
																																																											{	/* Eval/evaluate.scm 569 */
																																																												BgL_auxz00_6660
																																																													=
																																																													BGL_MODULE
																																																													();
																																																											}
																																																										((((BgL_ev_setglobalz00_bglt) COBJECT(((BgL_ev_setglobalz00_bglt) BgL_new1150z00_2661)))->BgL_modz00) = ((obj_t) BgL_auxz00_6660), BUNSPEC);
																																																									}
																																																									BgL_auxz00_6636
																																																										=
																																																										BgL_new1150z00_2661;
																																																								}
																																																							}
																																																							return
																																																								(
																																																								(obj_t)
																																																								BgL_auxz00_6636);
																																																						}
																																																					}
																																																				else
																																																					{	/* Eval/evaluate.scm 424 */
																																																						obj_t
																																																							BgL_arg1824z00_1886;
																																																						obj_t
																																																							BgL_arg1825z00_1887;
																																																						BgL_arg1824z00_1886
																																																							=
																																																							CAR
																																																							(
																																																							((obj_t) BgL_ez00_69));
																																																						BgL_arg1825z00_1887
																																																							=
																																																							CDR
																																																							(
																																																							((obj_t) BgL_ez00_69));
																																																						{
																																																							BgL_ev_appz00_bglt
																																																								BgL_auxz00_6671;
																																																							{
																																																								obj_t
																																																									BgL_argsz00_6673;
																																																								obj_t
																																																									BgL_fz00_6672;
																																																								BgL_fz00_6672
																																																									=
																																																									BgL_arg1824z00_1886;
																																																								BgL_argsz00_6673
																																																									=
																																																									BgL_arg1825z00_1887;
																																																								BgL_argsz00_1597
																																																									=
																																																									BgL_argsz00_6673;
																																																								BgL_fz00_1596
																																																									=
																																																									BgL_fz00_6672;
																																																								goto
																																																									BgL_tagzd2176zd2_1598;
																																																							}
																																																							return
																																																								(
																																																								(obj_t)
																																																								BgL_auxz00_6671);
																																																						}
																																																					}
																																																			}
																																																	}
																																																else
																																																	{	/* Eval/evaluate.scm 424 */
																																																		obj_t
																																																			BgL_cdrzd27804zd2_1891;
																																																		BgL_cdrzd27804zd2_1891
																																																			=
																																																			CDR
																																																			(
																																																			((obj_t) BgL_cdrzd27595zd2_1856));
																																																		if (NULLP(CDR(((obj_t) BgL_cdrzd27804zd2_1891))))
																																																			{	/* Eval/evaluate.scm 424 */
																																																				obj_t
																																																					BgL_arg1832z00_1894;
																																																				obj_t
																																																					BgL_arg1833z00_1895;
																																																				BgL_arg1832z00_1894
																																																					=
																																																					CAR
																																																					(
																																																					((obj_t) BgL_cdrzd27595zd2_1856));
																																																				BgL_arg1833z00_1895
																																																					=
																																																					CAR
																																																					(
																																																					((obj_t) BgL_cdrzd27804zd2_1891));
																																																				{
																																																					BgL_ev_defglobalz00_bglt
																																																						BgL_auxz00_6685;
																																																					{
																																																						obj_t
																																																							BgL_gez00_6687;
																																																						obj_t
																																																							BgL_gvz00_6686;
																																																						BgL_gvz00_6686
																																																							=
																																																							BgL_arg1832z00_1894;
																																																						BgL_gez00_6687
																																																							=
																																																							BgL_arg1833z00_1895;
																																																						BgL_gez00_1574
																																																							=
																																																							BgL_gez00_6687;
																																																						BgL_gvz00_1573
																																																							=
																																																							BgL_gvz00_6686;
																																																						goto
																																																							BgL_tagzd2168zd2_1575;
																																																					}
																																																					return
																																																						(
																																																						(obj_t)
																																																						BgL_auxz00_6685);
																																																				}
																																																			}
																																																		else
																																																			{	/* Eval/evaluate.scm 424 */
																																																				obj_t
																																																					BgL_arg1834z00_1896;
																																																				obj_t
																																																					BgL_arg1835z00_1897;
																																																				BgL_arg1834z00_1896
																																																					=
																																																					CAR
																																																					(
																																																					((obj_t) BgL_ez00_69));
																																																				BgL_arg1835z00_1897
																																																					=
																																																					CDR
																																																					(
																																																					((obj_t) BgL_ez00_69));
																																																				{
																																																					BgL_ev_appz00_bglt
																																																						BgL_auxz00_6693;
																																																					{
																																																						obj_t
																																																							BgL_argsz00_6695;
																																																						obj_t
																																																							BgL_fz00_6694;
																																																						BgL_fz00_6694
																																																							=
																																																							BgL_arg1834z00_1896;
																																																						BgL_argsz00_6695
																																																							=
																																																							BgL_arg1835z00_1897;
																																																						BgL_argsz00_1597
																																																							=
																																																							BgL_argsz00_6695;
																																																						BgL_fz00_1596
																																																							=
																																																							BgL_fz00_6694;
																																																						goto
																																																							BgL_tagzd2176zd2_1598;
																																																					}
																																																					return
																																																						(
																																																						(obj_t)
																																																						BgL_auxz00_6693);
																																																				}
																																																			}
																																																	}
																																															}
																																														else
																																															{	/* Eval/evaluate.scm 424 */
																																																obj_t
																																																	BgL_cdrzd27893zd2_1900;
																																																BgL_cdrzd27893zd2_1900
																																																	=
																																																	CDR
																																																	(
																																																	((obj_t) BgL_cdrzd27595zd2_1856));
																																																if (NULLP(CDR(((obj_t) BgL_cdrzd27893zd2_1900))))
																																																	{	/* Eval/evaluate.scm 424 */
																																																		obj_t
																																																			BgL_arg1839z00_1903;
																																																		obj_t
																																																			BgL_arg1840z00_1904;
																																																		BgL_arg1839z00_1903
																																																			=
																																																			CAR
																																																			(
																																																			((obj_t) BgL_cdrzd27595zd2_1856));
																																																		BgL_arg1840z00_1904
																																																			=
																																																			CAR
																																																			(
																																																			((obj_t) BgL_cdrzd27893zd2_1900));
																																																		{
																																																			BgL_ev_defglobalz00_bglt
																																																				BgL_auxz00_6707;
																																																			{
																																																				obj_t
																																																					BgL_gez00_6709;
																																																				obj_t
																																																					BgL_gvz00_6708;
																																																				BgL_gvz00_6708
																																																					=
																																																					BgL_arg1839z00_1903;
																																																				BgL_gez00_6709
																																																					=
																																																					BgL_arg1840z00_1904;
																																																				BgL_gez00_1574
																																																					=
																																																					BgL_gez00_6709;
																																																				BgL_gvz00_1573
																																																					=
																																																					BgL_gvz00_6708;
																																																				goto
																																																					BgL_tagzd2168zd2_1575;
																																																			}
																																																			return
																																																				(
																																																				(obj_t)
																																																				BgL_auxz00_6707);
																																																		}
																																																	}
																																																else
																																																	{	/* Eval/evaluate.scm 424 */
																																																		obj_t
																																																			BgL_arg1841z00_1905;
																																																		obj_t
																																																			BgL_arg1842z00_1906;
																																																		BgL_arg1841z00_1905
																																																			=
																																																			CAR
																																																			(
																																																			((obj_t) BgL_ez00_69));
																																																		BgL_arg1842z00_1906
																																																			=
																																																			CDR
																																																			(
																																																			((obj_t) BgL_ez00_69));
																																																		{
																																																			BgL_ev_appz00_bglt
																																																				BgL_auxz00_6715;
																																																			{
																																																				obj_t
																																																					BgL_argsz00_6717;
																																																				obj_t
																																																					BgL_fz00_6716;
																																																				BgL_fz00_6716
																																																					=
																																																					BgL_arg1841z00_1905;
																																																				BgL_argsz00_6717
																																																					=
																																																					BgL_arg1842z00_1906;
																																																				BgL_argsz00_1597
																																																					=
																																																					BgL_argsz00_6717;
																																																				BgL_fz00_1596
																																																					=
																																																					BgL_fz00_6716;
																																																				goto
																																																					BgL_tagzd2176zd2_1598;
																																																			}
																																																			return
																																																				(
																																																				(obj_t)
																																																				BgL_auxz00_6715);
																																																		}
																																																	}
																																															}
																																													}
																																												else
																																													{	/* Eval/evaluate.scm 424 */
																																														obj_t
																																															BgL_cdrzd27982zd2_1909;
																																														BgL_cdrzd27982zd2_1909
																																															=
																																															CDR
																																															(
																																															((obj_t) BgL_cdrzd27595zd2_1856));
																																														if (NULLP(CDR(((obj_t) BgL_cdrzd27982zd2_1909))))
																																															{	/* Eval/evaluate.scm 424 */
																																																obj_t
																																																	BgL_arg1848z00_1912;
																																																obj_t
																																																	BgL_arg1849z00_1913;
																																																BgL_arg1848z00_1912
																																																	=
																																																	CAR
																																																	(
																																																	((obj_t) BgL_cdrzd27595zd2_1856));
																																																BgL_arg1849z00_1913
																																																	=
																																																	CAR
																																																	(
																																																	((obj_t) BgL_cdrzd27982zd2_1909));
																																																{
																																																	BgL_ev_defglobalz00_bglt
																																																		BgL_auxz00_6729;
																																																	{
																																																		obj_t
																																																			BgL_gez00_6731;
																																																		obj_t
																																																			BgL_gvz00_6730;
																																																		BgL_gvz00_6730
																																																			=
																																																			BgL_arg1848z00_1912;
																																																		BgL_gez00_6731
																																																			=
																																																			BgL_arg1849z00_1913;
																																																		BgL_gez00_1574
																																																			=
																																																			BgL_gez00_6731;
																																																		BgL_gvz00_1573
																																																			=
																																																			BgL_gvz00_6730;
																																																		goto
																																																			BgL_tagzd2168zd2_1575;
																																																	}
																																																	return
																																																		(
																																																		(obj_t)
																																																		BgL_auxz00_6729);
																																																}
																																															}
																																														else
																																															{	/* Eval/evaluate.scm 424 */
																																																obj_t
																																																	BgL_arg1851z00_1914;
																																																obj_t
																																																	BgL_arg1852z00_1915;
																																																BgL_arg1851z00_1914
																																																	=
																																																	CAR
																																																	(
																																																	((obj_t) BgL_ez00_69));
																																																BgL_arg1852z00_1915
																																																	=
																																																	CDR
																																																	(
																																																	((obj_t) BgL_ez00_69));
																																																{
																																																	BgL_ev_appz00_bglt
																																																		BgL_auxz00_6737;
																																																	{
																																																		obj_t
																																																			BgL_argsz00_6739;
																																																		obj_t
																																																			BgL_fz00_6738;
																																																		BgL_fz00_6738
																																																			=
																																																			BgL_arg1851z00_1914;
																																																		BgL_argsz00_6739
																																																			=
																																																			BgL_arg1852z00_1915;
																																																		BgL_argsz00_1597
																																																			=
																																																			BgL_argsz00_6739;
																																																		BgL_fz00_1596
																																																			=
																																																			BgL_fz00_6738;
																																																		goto
																																																			BgL_tagzd2176zd2_1598;
																																																	}
																																																	return
																																																		(
																																																		(obj_t)
																																																		BgL_auxz00_6737);
																																																}
																																															}
																																													}
																																											}
																																										else
																																											{	/* Eval/evaluate.scm 424 */
																																												obj_t
																																													BgL_cdrzd28071zd2_1919;
																																												BgL_cdrzd28071zd2_1919
																																													=
																																													CDR
																																													(
																																													((obj_t) BgL_cdrzd27595zd2_1856));
																																												if (NULLP(CDR(((obj_t) BgL_cdrzd28071zd2_1919))))
																																													{	/* Eval/evaluate.scm 424 */
																																														obj_t
																																															BgL_arg1858z00_1922;
																																														obj_t
																																															BgL_arg1859z00_1923;
																																														BgL_arg1858z00_1922
																																															=
																																															CAR
																																															(
																																															((obj_t) BgL_cdrzd27595zd2_1856));
																																														BgL_arg1859z00_1923
																																															=
																																															CAR
																																															(
																																															((obj_t) BgL_cdrzd28071zd2_1919));
																																														{
																																															BgL_ev_defglobalz00_bglt
																																																BgL_auxz00_6751;
																																															{
																																																obj_t
																																																	BgL_gez00_6753;
																																																obj_t
																																																	BgL_gvz00_6752;
																																																BgL_gvz00_6752
																																																	=
																																																	BgL_arg1858z00_1922;
																																																BgL_gez00_6753
																																																	=
																																																	BgL_arg1859z00_1923;
																																																BgL_gez00_1574
																																																	=
																																																	BgL_gez00_6753;
																																																BgL_gvz00_1573
																																																	=
																																																	BgL_gvz00_6752;
																																																goto
																																																	BgL_tagzd2168zd2_1575;
																																															}
																																															return
																																																(
																																																(obj_t)
																																																BgL_auxz00_6751);
																																														}
																																													}
																																												else
																																													{	/* Eval/evaluate.scm 424 */
																																														obj_t
																																															BgL_arg1860z00_1924;
																																														obj_t
																																															BgL_arg1861z00_1925;
																																														BgL_arg1860z00_1924
																																															=
																																															CAR
																																															(
																																															((obj_t) BgL_ez00_69));
																																														BgL_arg1861z00_1925
																																															=
																																															CDR
																																															(
																																															((obj_t) BgL_ez00_69));
																																														{
																																															BgL_ev_appz00_bglt
																																																BgL_auxz00_6759;
																																															{
																																																obj_t
																																																	BgL_argsz00_6761;
																																																obj_t
																																																	BgL_fz00_6760;
																																																BgL_fz00_6760
																																																	=
																																																	BgL_arg1860z00_1924;
																																																BgL_argsz00_6761
																																																	=
																																																	BgL_arg1861z00_1925;
																																																BgL_argsz00_1597
																																																	=
																																																	BgL_argsz00_6761;
																																																BgL_fz00_1596
																																																	=
																																																	BgL_fz00_6760;
																																																goto
																																																	BgL_tagzd2176zd2_1598;
																																															}
																																															return
																																																(
																																																(obj_t)
																																																BgL_auxz00_6759);
																																														}
																																													}
																																											}
																																									}
																																								else
																																									{	/* Eval/evaluate.scm 424 */
																																										obj_t
																																											BgL_arg1863z00_1927;
																																										BgL_arg1863z00_1927
																																											=
																																											CAR
																																											(
																																											((obj_t) BgL_ez00_69));
																																										{
																																											BgL_ev_appz00_bglt
																																												BgL_auxz00_6765;
																																											{
																																												obj_t
																																													BgL_argsz00_6767;
																																												obj_t
																																													BgL_fz00_6766;
																																												BgL_fz00_6766
																																													=
																																													BgL_arg1863z00_1927;
																																												BgL_argsz00_6767
																																													=
																																													BgL_cdrzd27595zd2_1856;
																																												BgL_argsz00_1597
																																													=
																																													BgL_argsz00_6767;
																																												BgL_fz00_1596
																																													=
																																													BgL_fz00_6766;
																																												goto
																																													BgL_tagzd2176zd2_1598;
																																											}
																																											return
																																												(
																																												(obj_t)
																																												BgL_auxz00_6765);
																																										}
																																									}
																																							}
																																						else
																																							{	/* Eval/evaluate.scm 424 */
																																								obj_t
																																									BgL_arg1865z00_1929;
																																								BgL_arg1865z00_1929
																																									=
																																									CAR
																																									(
																																									((obj_t) BgL_ez00_69));
																																								{
																																									BgL_ev_appz00_bglt
																																										BgL_auxz00_6771;
																																									{
																																										obj_t
																																											BgL_argsz00_6773;
																																										obj_t
																																											BgL_fz00_6772;
																																										BgL_fz00_6772
																																											=
																																											BgL_arg1865z00_1929;
																																										BgL_argsz00_6773
																																											=
																																											BgL_cdrzd27595zd2_1856;
																																										BgL_argsz00_1597
																																											=
																																											BgL_argsz00_6773;
																																										BgL_fz00_1596
																																											=
																																											BgL_fz00_6772;
																																										goto
																																											BgL_tagzd2176zd2_1598;
																																									}
																																									return
																																										(
																																										(obj_t)
																																										BgL_auxz00_6771);
																																								}
																																							}
																																					}
																																				else
																																					{	/* Eval/evaluate.scm 424 */
																																						if (
																																							(CAR
																																								(((obj_t) BgL_ez00_69)) == BGl_symbol3060z00zz__evaluatez00))
																																							{	/* Eval/evaluate.scm 424 */
																																								if (PAIRP(BgL_cdrzd27595zd2_1856))
																																									{	/* Eval/evaluate.scm 424 */
																																										obj_t
																																											BgL_carzd28319zd2_1935;
																																										BgL_carzd28319zd2_1935
																																											=
																																											CAR
																																											(BgL_cdrzd27595zd2_1856);
																																										if (PAIRP(BgL_carzd28319zd2_1935))
																																											{	/* Eval/evaluate.scm 424 */
																																												if (NULLP(CDR(BgL_carzd28319zd2_1935)))
																																													{	/* Eval/evaluate.scm 424 */
																																														obj_t
																																															BgL_arg1876z00_1939;
																																														obj_t
																																															BgL_arg1878z00_1940;
																																														BgL_arg1876z00_1939
																																															=
																																															CAR
																																															(BgL_carzd28319zd2_1935);
																																														BgL_arg1878z00_1940
																																															=
																																															CDR
																																															(BgL_cdrzd27595zd2_1856);
																																														{
																																															BgL_ev_bindzd2exitzd2_bglt
																																																BgL_auxz00_6789;
																																															BgL_vz00_1576
																																																=
																																																BgL_arg1876z00_1939;
																																															BgL_bodyz00_1577
																																																=
																																																BgL_arg1878z00_1940;
																																														BgL_tagzd2169zd2_1578:
																																															{	/* Eval/evaluate.scm 574 */
																																																BgL_ev_varz00_bglt
																																																	BgL_varz00_2668;
																																																{	/* Eval/evaluate.scm 574 */
																																																	BgL_ev_varz00_bglt
																																																		BgL_new1152z00_2673;
																																																	{	/* Eval/evaluate.scm 574 */
																																																		BgL_ev_varz00_bglt
																																																			BgL_new1151z00_2674;
																																																		BgL_new1151z00_2674
																																																			=
																																																			(
																																																			(BgL_ev_varz00_bglt)
																																																			BOBJECT
																																																			(GC_MALLOC
																																																				(sizeof
																																																					(struct
																																																						BgL_ev_varz00_bgl))));
																																																		{	/* Eval/evaluate.scm 574 */
																																																			long
																																																				BgL_arg2445z00_2675;
																																																			BgL_arg2445z00_2675
																																																				=
																																																				BGL_CLASS_NUM
																																																				(BGl_ev_varz00zz__evaluate_typesz00);
																																																			BGL_OBJECT_CLASS_NUM_SET
																																																				(
																																																				((BgL_objectz00_bglt) BgL_new1151z00_2674), BgL_arg2445z00_2675);
																																																		}
																																																		BgL_new1152z00_2673
																																																			=
																																																			BgL_new1151z00_2674;
																																																	}
																																																	((((BgL_ev_varz00_bglt) COBJECT(BgL_new1152z00_2673))->BgL_namez00) = ((obj_t) BgL_vz00_1576), BUNSPEC);
																																																	((((BgL_ev_varz00_bglt) COBJECT(BgL_new1152z00_2673))->BgL_effz00) = ((obj_t) BFALSE), BUNSPEC);
																																																	((((BgL_ev_varz00_bglt) COBJECT(BgL_new1152z00_2673))->BgL_typez00) = ((obj_t) BFALSE), BUNSPEC);
																																																	BgL_varz00_2668
																																																		=
																																																		BgL_new1152z00_2673;
																																																}
																																																{	/* Eval/evaluate.scm 575 */
																																																	BgL_ev_bindzd2exitzd2_bglt
																																																		BgL_new1154z00_2669;
																																																	{	/* Eval/evaluate.scm 576 */
																																																		BgL_ev_bindzd2exitzd2_bglt
																																																			BgL_new1153z00_2671;
																																																		BgL_new1153z00_2671
																																																			=
																																																			(
																																																			(BgL_ev_bindzd2exitzd2_bglt)
																																																			BOBJECT
																																																			(GC_MALLOC
																																																				(sizeof
																																																					(struct
																																																						BgL_ev_bindzd2exitzd2_bgl))));
																																																		{	/* Eval/evaluate.scm 576 */
																																																			long
																																																				BgL_arg2442z00_2672;
																																																			BgL_arg2442z00_2672
																																																				=
																																																				BGL_CLASS_NUM
																																																				(BGl_ev_bindzd2exitzd2zz__evaluate_typesz00);
																																																			BGL_OBJECT_CLASS_NUM_SET
																																																				(
																																																				((BgL_objectz00_bglt) BgL_new1153z00_2671), BgL_arg2442z00_2672);
																																																		}
																																																		BgL_new1154z00_2669
																																																			=
																																																			BgL_new1153z00_2671;
																																																	}
																																																	((((BgL_ev_bindzd2exitzd2_bglt) COBJECT(BgL_new1154z00_2669))->BgL_varz00) = ((BgL_ev_varz00_bglt) BgL_varz00_2668), BUNSPEC);
																																																	{
																																																		BgL_ev_exprz00_bglt
																																																			BgL_auxz00_6802;
																																																		{	/* Eval/evaluate.scm 577 */
																																																			obj_t
																																																				BgL_arg2441z00_2670;
																																																			BgL_arg2441z00_2670
																																																				=
																																																				MAKE_YOUNG_PAIR
																																																				(
																																																				((obj_t) BgL_varz00_2668), BgL_localsz00_70);
																																																			BgL_auxz00_6802
																																																				=
																																																				(
																																																				(BgL_ev_exprz00_bglt)
																																																				BGl_convzd2beginzd2zz__evaluatez00
																																																				(BgL_bodyz00_1577,
																																																					BgL_arg2441z00_2670,
																																																					BgL_globalsz00_71,
																																																					BFALSE,
																																																					BgL_wherez00_73,
																																																					BgL_locz00_74,
																																																					((bool_t) 0)));
																																																		}
																																																		((((BgL_ev_bindzd2exitzd2_bglt) COBJECT(BgL_new1154z00_2669))->BgL_bodyz00) = ((BgL_ev_exprz00_bglt) BgL_auxz00_6802), BUNSPEC);
																																																	}
																																																	BgL_auxz00_6789
																																																		=
																																																		BgL_new1154z00_2669;
																																															}}
																																															return
																																																(
																																																(obj_t)
																																																BgL_auxz00_6789);
																																														}
																																													}
																																												else
																																													{	/* Eval/evaluate.scm 424 */
																																														obj_t
																																															BgL_arg1879z00_1941;
																																														obj_t
																																															BgL_arg1881z00_1942;
																																														BgL_arg1879z00_1941
																																															=
																																															CAR
																																															(
																																															((obj_t) BgL_ez00_69));
																																														BgL_arg1881z00_1942
																																															=
																																															CDR
																																															(
																																															((obj_t) BgL_ez00_69));
																																														{
																																															BgL_ev_appz00_bglt
																																																BgL_auxz00_6813;
																																															{
																																																obj_t
																																																	BgL_argsz00_6815;
																																																obj_t
																																																	BgL_fz00_6814;
																																																BgL_fz00_6814
																																																	=
																																																	BgL_arg1879z00_1941;
																																																BgL_argsz00_6815
																																																	=
																																																	BgL_arg1881z00_1942;
																																																BgL_argsz00_1597
																																																	=
																																																	BgL_argsz00_6815;
																																																BgL_fz00_1596
																																																	=
																																																	BgL_fz00_6814;
																																																goto
																																																	BgL_tagzd2176zd2_1598;
																																															}
																																															return
																																																(
																																																(obj_t)
																																																BgL_auxz00_6813);
																																														}
																																													}
																																											}
																																										else
																																											{	/* Eval/evaluate.scm 424 */
																																												obj_t
																																													BgL_arg1883z00_1944;
																																												obj_t
																																													BgL_arg1884z00_1945;
																																												BgL_arg1883z00_1944
																																													=
																																													CAR
																																													(
																																													((obj_t) BgL_ez00_69));
																																												BgL_arg1884z00_1945
																																													=
																																													CDR
																																													(
																																													((obj_t) BgL_ez00_69));
																																												{
																																													BgL_ev_appz00_bglt
																																														BgL_auxz00_6821;
																																													{
																																														obj_t
																																															BgL_argsz00_6823;
																																														obj_t
																																															BgL_fz00_6822;
																																														BgL_fz00_6822
																																															=
																																															BgL_arg1883z00_1944;
																																														BgL_argsz00_6823
																																															=
																																															BgL_arg1884z00_1945;
																																														BgL_argsz00_1597
																																															=
																																															BgL_argsz00_6823;
																																														BgL_fz00_1596
																																															=
																																															BgL_fz00_6822;
																																														goto
																																															BgL_tagzd2176zd2_1598;
																																													}
																																													return
																																														(
																																														(obj_t)
																																														BgL_auxz00_6821);
																																												}
																																											}
																																									}
																																								else
																																									{	/* Eval/evaluate.scm 424 */
																																										obj_t
																																											BgL_arg1885z00_1946;
																																										obj_t
																																											BgL_arg1886z00_1947;
																																										BgL_arg1885z00_1946
																																											=
																																											CAR
																																											(
																																											((obj_t) BgL_ez00_69));
																																										BgL_arg1886z00_1947
																																											=
																																											CDR
																																											(
																																											((obj_t) BgL_ez00_69));
																																										{
																																											BgL_ev_appz00_bglt
																																												BgL_auxz00_6829;
																																											{
																																												obj_t
																																													BgL_argsz00_6831;
																																												obj_t
																																													BgL_fz00_6830;
																																												BgL_fz00_6830
																																													=
																																													BgL_arg1885z00_1946;
																																												BgL_argsz00_6831
																																													=
																																													BgL_arg1886z00_1947;
																																												BgL_argsz00_1597
																																													=
																																													BgL_argsz00_6831;
																																												BgL_fz00_1596
																																													=
																																													BgL_fz00_6830;
																																												goto
																																													BgL_tagzd2176zd2_1598;
																																											}
																																											return
																																												(
																																												(obj_t)
																																												BgL_auxz00_6829);
																																										}
																																									}
																																							}
																																						else
																																							{	/* Eval/evaluate.scm 424 */
																																								obj_t
																																									BgL_cdrzd28490zd2_1948;
																																								BgL_cdrzd28490zd2_1948
																																									=
																																									CDR
																																									(
																																									((obj_t) BgL_ez00_69));
																																								if ((CAR(((obj_t) BgL_ez00_69)) == BGl_symbol3062z00zz__evaluatez00))
																																									{	/* Eval/evaluate.scm 424 */
																																										if (PAIRP(BgL_cdrzd28490zd2_1948))
																																											{	/* Eval/evaluate.scm 424 */
																																												obj_t
																																													BgL_arg1890z00_1952;
																																												obj_t
																																													BgL_arg1891z00_1953;
																																												BgL_arg1890z00_1952
																																													=
																																													CAR
																																													(BgL_cdrzd28490zd2_1948);
																																												BgL_arg1891z00_1953
																																													=
																																													CDR
																																													(BgL_cdrzd28490zd2_1948);
																																												{	/* Eval/evaluate.scm 579 */
																																													BgL_ev_unwindzd2protectzd2_bglt
																																														BgL_new1156z00_4204;
																																													{	/* Eval/evaluate.scm 580 */
																																														BgL_ev_unwindzd2protectzd2_bglt
																																															BgL_new1155z00_4205;
																																														BgL_new1155z00_4205
																																															=
																																															(
																																															(BgL_ev_unwindzd2protectzd2_bglt)
																																															BOBJECT
																																															(GC_MALLOC
																																																(sizeof
																																																	(struct
																																																		BgL_ev_unwindzd2protectzd2_bgl))));
																																														{	/* Eval/evaluate.scm 580 */
																																															long
																																																BgL_arg2446z00_4206;
																																															BgL_arg2446z00_4206
																																																=
																																																BGL_CLASS_NUM
																																																(BGl_ev_unwindzd2protectzd2zz__evaluate_typesz00);
																																															BGL_OBJECT_CLASS_NUM_SET
																																																(
																																																((BgL_objectz00_bglt) BgL_new1155z00_4205), BgL_arg2446z00_4206);
																																														}
																																														BgL_new1156z00_4204
																																															=
																																															BgL_new1155z00_4205;
																																													}
																																													{
																																														BgL_ev_exprz00_bglt
																																															BgL_auxz00_6847;
																																														{	/* Eval/evaluate.scm 380 */
																																															obj_t
																																																BgL_arg2470z00_4210;
																																															BgL_arg2470z00_4210
																																																=
																																																BGl_getzd2locationzd2zz__evaluatez00
																																																(BgL_arg1890z00_1952,
																																																BgL_locz00_74);
																																															BgL_auxz00_6847
																																																=
																																																(
																																																(BgL_ev_exprz00_bglt)
																																																BGl_uconvzf2locze70z15zz__evaluatez00
																																																(BgL_wherez00_73,
																																																	BgL_globalsz00_71,
																																																	BgL_localsz00_70,
																																																	BgL_arg1890z00_1952,
																																																	BgL_arg2470z00_4210));
																																														}
																																														((((BgL_ev_unwindzd2protectzd2_bglt) COBJECT(BgL_new1156z00_4204))->BgL_ez00) = ((BgL_ev_exprz00_bglt) BgL_auxz00_6847), BUNSPEC);
																																													}
																																													((((BgL_ev_unwindzd2protectzd2_bglt) COBJECT(BgL_new1156z00_4204))->BgL_bodyz00) = ((BgL_ev_exprz00_bglt) ((BgL_ev_exprz00_bglt) BGl_convzd2beginzd2zz__evaluatez00(BgL_arg1891z00_1953, BgL_localsz00_70, BgL_globalsz00_71, BFALSE, BgL_wherez00_73, BgL_locz00_74, ((bool_t) 0)))), BUNSPEC);
																																													return
																																														(
																																														(obj_t)
																																														BgL_new1156z00_4204);
																																												}
																																											}
																																										else
																																											{	/* Eval/evaluate.scm 424 */
																																												obj_t
																																													BgL_arg1892z00_1954;
																																												BgL_arg1892z00_1954
																																													=
																																													CAR
																																													(
																																													((obj_t) BgL_ez00_69));
																																												{
																																													BgL_ev_appz00_bglt
																																														BgL_auxz00_6858;
																																													{
																																														obj_t
																																															BgL_argsz00_6860;
																																														obj_t
																																															BgL_fz00_6859;
																																														BgL_fz00_6859
																																															=
																																															BgL_arg1892z00_1954;
																																														BgL_argsz00_6860
																																															=
																																															BgL_cdrzd28490zd2_1948;
																																														BgL_argsz00_1597
																																															=
																																															BgL_argsz00_6860;
																																														BgL_fz00_1596
																																															=
																																															BgL_fz00_6859;
																																														goto
																																															BgL_tagzd2176zd2_1598;
																																													}
																																													return
																																														(
																																														(obj_t)
																																														BgL_auxz00_6858);
																																												}
																																											}
																																									}
																																								else
																																									{	/* Eval/evaluate.scm 424 */
																																										if ((CAR(((obj_t) BgL_ez00_69)) == BGl_symbol3064z00zz__evaluatez00))
																																											{	/* Eval/evaluate.scm 424 */
																																												if (PAIRP(BgL_cdrzd28490zd2_1948))
																																													{	/* Eval/evaluate.scm 424 */
																																														obj_t
																																															BgL_arg1897z00_1960;
																																														obj_t
																																															BgL_arg1898z00_1961;
																																														BgL_arg1897z00_1960
																																															=
																																															CAR
																																															(BgL_cdrzd28490zd2_1948);
																																														BgL_arg1898z00_1961
																																															=
																																															CDR
																																															(BgL_cdrzd28490zd2_1948);
																																														{	/* Eval/evaluate.scm 583 */
																																															BgL_ev_withzd2handlerzd2_bglt
																																																BgL_new1158z00_4217;
																																															{	/* Eval/evaluate.scm 584 */
																																																BgL_ev_withzd2handlerzd2_bglt
																																																	BgL_new1157z00_4218;
																																																BgL_new1157z00_4218
																																																	=
																																																	(
																																																	(BgL_ev_withzd2handlerzd2_bglt)
																																																	BOBJECT
																																																	(GC_MALLOC
																																																		(sizeof
																																																			(struct
																																																				BgL_ev_withzd2handlerzd2_bgl))));
																																																{	/* Eval/evaluate.scm 584 */
																																																	long
																																																		BgL_arg2451z00_4219;
																																																	BgL_arg2451z00_4219
																																																		=
																																																		BGL_CLASS_NUM
																																																		(BGl_ev_withzd2handlerzd2zz__evaluate_typesz00);
																																																	BGL_OBJECT_CLASS_NUM_SET
																																																		(
																																																		((BgL_objectz00_bglt) BgL_new1157z00_4218), BgL_arg2451z00_4219);
																																																}
																																																BgL_new1158z00_4217
																																																	=
																																																	BgL_new1157z00_4218;
																																															}
																																															{
																																																BgL_ev_exprz00_bglt
																																																	BgL_auxz00_6874;
																																																{	/* Eval/evaluate.scm 380 */
																																																	obj_t
																																																		BgL_arg2470z00_4223;
																																																	BgL_arg2470z00_4223
																																																		=
																																																		BGl_getzd2locationzd2zz__evaluatez00
																																																		(BgL_arg1897z00_1960,
																																																		BgL_locz00_74);
																																																	BgL_auxz00_6874
																																																		=
																																																		(
																																																		(BgL_ev_exprz00_bglt)
																																																		BGl_uconvzf2locze70z15zz__evaluatez00
																																																		(BgL_wherez00_73,
																																																			BgL_globalsz00_71,
																																																			BgL_localsz00_70,
																																																			BgL_arg1897z00_1960,
																																																			BgL_arg2470z00_4223));
																																																}
																																																((((BgL_ev_withzd2handlerzd2_bglt) COBJECT(BgL_new1158z00_4217))->BgL_handlerz00) = ((BgL_ev_exprz00_bglt) BgL_auxz00_6874), BUNSPEC);
																																															}
																																															((((BgL_ev_withzd2handlerzd2_bglt) COBJECT(BgL_new1158z00_4217))->BgL_bodyz00) = ((BgL_ev_exprz00_bglt) ((BgL_ev_exprz00_bglt) BGl_convzd2beginzd2zz__evaluatez00(BgL_arg1898z00_1961, BgL_localsz00_70, BgL_globalsz00_71, BFALSE, BgL_wherez00_73, BgL_locz00_74, ((bool_t) 0)))), BUNSPEC);
																																															return
																																																(
																																																(obj_t)
																																																BgL_new1158z00_4217);
																																														}
																																													}
																																												else
																																													{	/* Eval/evaluate.scm 424 */
																																														obj_t
																																															BgL_arg1899z00_1962;
																																														obj_t
																																															BgL_arg1901z00_1963;
																																														BgL_arg1899z00_1962
																																															=
																																															CAR
																																															(
																																															((obj_t) BgL_ez00_69));
																																														BgL_arg1901z00_1963
																																															=
																																															CDR
																																															(
																																															((obj_t) BgL_ez00_69));
																																														{
																																															BgL_ev_appz00_bglt
																																																BgL_auxz00_6887;
																																															{
																																																obj_t
																																																	BgL_argsz00_6889;
																																																obj_t
																																																	BgL_fz00_6888;
																																																BgL_fz00_6888
																																																	=
																																																	BgL_arg1899z00_1962;
																																																BgL_argsz00_6889
																																																	=
																																																	BgL_arg1901z00_1963;
																																																BgL_argsz00_1597
																																																	=
																																																	BgL_argsz00_6889;
																																																BgL_fz00_1596
																																																	=
																																																	BgL_fz00_6888;
																																																goto
																																																	BgL_tagzd2176zd2_1598;
																																															}
																																															return
																																																(
																																																(obj_t)
																																																BgL_auxz00_6887);
																																														}
																																													}
																																											}
																																										else
																																											{	/* Eval/evaluate.scm 424 */
																																												obj_t
																																													BgL_cdrzd28597zd2_1964;
																																												BgL_cdrzd28597zd2_1964
																																													=
																																													CDR
																																													(
																																													((obj_t) BgL_ez00_69));
																																												if ((CAR(((obj_t) BgL_ez00_69)) == BGl_symbol3066z00zz__evaluatez00))
																																													{	/* Eval/evaluate.scm 424 */
																																														if (PAIRP(BgL_cdrzd28597zd2_1964))
																																															{	/* Eval/evaluate.scm 424 */
																																																obj_t
																																																	BgL_cdrzd28602zd2_1968;
																																																BgL_cdrzd28602zd2_1968
																																																	=
																																																	CDR
																																																	(BgL_cdrzd28597zd2_1964);
																																																if (PAIRP(BgL_cdrzd28602zd2_1968))
																																																	{	/* Eval/evaluate.scm 424 */
																																																		obj_t
																																																			BgL_cdrzd28607zd2_1970;
																																																		BgL_cdrzd28607zd2_1970
																																																			=
																																																			CDR
																																																			(BgL_cdrzd28602zd2_1968);
																																																		if ((CAR(BgL_cdrzd28602zd2_1968) == BGl_keyword3068z00zz__evaluatez00))
																																																			{	/* Eval/evaluate.scm 424 */
																																																				if (PAIRP(BgL_cdrzd28607zd2_1970))
																																																					{	/* Eval/evaluate.scm 424 */
																																																						obj_t
																																																							BgL_arg1911z00_1974;
																																																						obj_t
																																																							BgL_arg1914z00_1975;
																																																						obj_t
																																																							BgL_arg1915z00_1976;
																																																						BgL_arg1911z00_1974
																																																							=
																																																							CAR
																																																							(BgL_cdrzd28597zd2_1964);
																																																						BgL_arg1914z00_1975
																																																							=
																																																							CAR
																																																							(BgL_cdrzd28607zd2_1970);
																																																						BgL_arg1915z00_1976
																																																							=
																																																							CDR
																																																							(BgL_cdrzd28607zd2_1970);
																																																						{	/* Eval/evaluate.scm 587 */
																																																							BgL_ev_synchroniza7eza7_bglt
																																																								BgL_new1160z00_4234;
																																																							{	/* Eval/evaluate.scm 588 */
																																																								BgL_ev_synchroniza7eza7_bglt
																																																									BgL_new1159z00_4235;
																																																								BgL_new1159z00_4235
																																																									=
																																																									(
																																																									(BgL_ev_synchroniza7eza7_bglt)
																																																									BOBJECT
																																																									(GC_MALLOC
																																																										(sizeof
																																																											(struct
																																																												BgL_ev_synchroniza7eza7_bgl))));
																																																								{	/* Eval/evaluate.scm 588 */
																																																									long
																																																										BgL_arg2453z00_4236;
																																																									BgL_arg2453z00_4236
																																																										=
																																																										BGL_CLASS_NUM
																																																										(BGl_ev_synchroniza7eza7zz__evaluate_typesz00);
																																																									BGL_OBJECT_CLASS_NUM_SET
																																																										(
																																																										((BgL_objectz00_bglt) BgL_new1159z00_4235), BgL_arg2453z00_4236);
																																																								}
																																																								BgL_new1160z00_4234
																																																									=
																																																									BgL_new1159z00_4235;
																																																							}
																																																							((((BgL_ev_synchroniza7eza7_bglt) COBJECT(BgL_new1160z00_4234))->BgL_locz00) = ((obj_t) BgL_locz00_74), BUNSPEC);
																																																							{
																																																								BgL_ev_exprz00_bglt
																																																									BgL_auxz00_6916;
																																																								{	/* Eval/evaluate.scm 380 */
																																																									obj_t
																																																										BgL_arg2470z00_4240;
																																																									BgL_arg2470z00_4240
																																																										=
																																																										BGl_getzd2locationzd2zz__evaluatez00
																																																										(BgL_arg1911z00_1974,
																																																										BgL_locz00_74);
																																																									BgL_auxz00_6916
																																																										=
																																																										(
																																																										(BgL_ev_exprz00_bglt)
																																																										BGl_uconvzf2locze70z15zz__evaluatez00
																																																										(BgL_wherez00_73,
																																																											BgL_globalsz00_71,
																																																											BgL_localsz00_70,
																																																											BgL_arg1911z00_1974,
																																																											BgL_arg2470z00_4240));
																																																								}
																																																								((((BgL_ev_synchroniza7eza7_bglt) COBJECT(BgL_new1160z00_4234))->BgL_mutexz00) = ((BgL_ev_exprz00_bglt) BgL_auxz00_6916), BUNSPEC);
																																																							}
																																																							{
																																																								BgL_ev_exprz00_bglt
																																																									BgL_auxz00_6921;
																																																								{	/* Eval/evaluate.scm 380 */
																																																									obj_t
																																																										BgL_arg2470z00_4241;
																																																									BgL_arg2470z00_4241
																																																										=
																																																										BGl_getzd2locationzd2zz__evaluatez00
																																																										(BgL_arg1914z00_1975,
																																																										BgL_locz00_74);
																																																									BgL_auxz00_6921
																																																										=
																																																										(
																																																										(BgL_ev_exprz00_bglt)
																																																										BGl_uconvzf2locze70z15zz__evaluatez00
																																																										(BgL_wherez00_73,
																																																											BgL_globalsz00_71,
																																																											BgL_localsz00_70,
																																																											BgL_arg1914z00_1975,
																																																											BgL_arg2470z00_4241));
																																																								}
																																																								((((BgL_ev_synchroniza7eza7_bglt) COBJECT(BgL_new1160z00_4234))->BgL_prelockz00) = ((BgL_ev_exprz00_bglt) BgL_auxz00_6921), BUNSPEC);
																																																							}
																																																							((((BgL_ev_synchroniza7eza7_bglt) COBJECT(BgL_new1160z00_4234))->BgL_bodyz00) = ((BgL_ev_exprz00_bglt) ((BgL_ev_exprz00_bglt) BGl_convzd2beginzd2zz__evaluatez00(BgL_arg1915z00_1976, BgL_localsz00_70, BgL_globalsz00_71, BFALSE, BgL_wherez00_73, BgL_locz00_74, ((bool_t) 0)))), BUNSPEC);
																																																							return
																																																								(
																																																								(obj_t)
																																																								BgL_new1160z00_4234);
																																																						}
																																																					}
																																																				else
																																																					{	/* Eval/evaluate.scm 424 */
																																																						obj_t
																																																							BgL_arg1916z00_1978;
																																																						obj_t
																																																							BgL_arg1917z00_1979;
																																																						BgL_arg1916z00_1978
																																																							=
																																																							CAR
																																																							(
																																																							((obj_t) BgL_cdrzd28597zd2_1964));
																																																						BgL_arg1917z00_1979
																																																							=
																																																							CDR
																																																							(
																																																							((obj_t) BgL_cdrzd28597zd2_1964));
																																																						{
																																																							BgL_ev_synchroniza7eza7_bglt
																																																								BgL_auxz00_6934;
																																																							BgL_mz00_1589
																																																								=
																																																								BgL_arg1916z00_1978;
																																																							BgL_bodyz00_1590
																																																								=
																																																								BgL_arg1917z00_1979;
																																																						BgL_tagzd2173zd2_1591:
																																																							{	/* Eval/evaluate.scm 593 */
																																																								BgL_ev_synchroniza7eza7_bglt
																																																									BgL_new1162z00_2685;
																																																								{	/* Eval/evaluate.scm 594 */
																																																									BgL_ev_synchroniza7eza7_bglt
																																																										BgL_new1161z00_2686;
																																																									BgL_new1161z00_2686
																																																										=
																																																										(
																																																										(BgL_ev_synchroniza7eza7_bglt)
																																																										BOBJECT
																																																										(GC_MALLOC
																																																											(sizeof
																																																												(struct
																																																													BgL_ev_synchroniza7eza7_bgl))));
																																																									{	/* Eval/evaluate.scm 594 */
																																																										long
																																																											BgL_arg2454z00_2687;
																																																										BgL_arg2454z00_2687
																																																											=
																																																											BGL_CLASS_NUM
																																																											(BGl_ev_synchroniza7eza7zz__evaluate_typesz00);
																																																										BGL_OBJECT_CLASS_NUM_SET
																																																											(
																																																											((BgL_objectz00_bglt) BgL_new1161z00_2686), BgL_arg2454z00_2687);
																																																									}
																																																									BgL_new1162z00_2685
																																																										=
																																																										BgL_new1161z00_2686;
																																																								}
																																																								((((BgL_ev_synchroniza7eza7_bglt) COBJECT(BgL_new1162z00_2685))->BgL_locz00) = ((obj_t) BgL_locz00_74), BUNSPEC);
																																																								{
																																																									BgL_ev_exprz00_bglt
																																																										BgL_auxz00_6940;
																																																									{	/* Eval/evaluate.scm 380 */
																																																										obj_t
																																																											BgL_arg2470z00_3922;
																																																										{	/* Eval/evaluate.scm 144 */
																																																											obj_t
																																																												BgL__ortest_1069z00_3923;
																																																											BgL__ortest_1069z00_3923
																																																												=
																																																												BGl_getzd2sourcezd2locationz00zz__readerz00
																																																												(BgL_mz00_1589);
																																																											if (CBOOL(BgL__ortest_1069z00_3923))
																																																												{	/* Eval/evaluate.scm 144 */
																																																													BgL_arg2470z00_3922
																																																														=
																																																														BgL__ortest_1069z00_3923;
																																																												}
																																																											else
																																																												{	/* Eval/evaluate.scm 144 */
																																																													BgL_arg2470z00_3922
																																																														=
																																																														BgL_locz00_74;
																																																												}
																																																										}
																																																										BgL_auxz00_6940
																																																											=
																																																											(
																																																											(BgL_ev_exprz00_bglt)
																																																											BGl_convz00zz__evaluatez00
																																																											(BgL_mz00_1589,
																																																												BgL_localsz00_70,
																																																												BgL_globalsz00_71,
																																																												BFALSE,
																																																												BgL_wherez00_73,
																																																												BgL_arg2470z00_3922,
																																																												((bool_t) 0)));
																																																									}
																																																									((((BgL_ev_synchroniza7eza7_bglt) COBJECT(BgL_new1162z00_2685))->BgL_mutexz00) = ((BgL_ev_exprz00_bglt) BgL_auxz00_6940), BUNSPEC);
																																																								}
																																																								{
																																																									BgL_ev_exprz00_bglt
																																																										BgL_auxz00_6947;
																																																									{	/* Eval/evaluate.scm 380 */
																																																										obj_t
																																																											BgL_arg2470z00_3924;
																																																										{	/* Eval/evaluate.scm 144 */
																																																											obj_t
																																																												BgL__ortest_1069z00_3925;
																																																											BgL__ortest_1069z00_3925
																																																												=
																																																												BGl_getzd2sourcezd2locationz00zz__readerz00
																																																												(BNIL);
																																																											if (CBOOL(BgL__ortest_1069z00_3925))
																																																												{	/* Eval/evaluate.scm 144 */
																																																													BgL_arg2470z00_3924
																																																														=
																																																														BgL__ortest_1069z00_3925;
																																																												}
																																																											else
																																																												{	/* Eval/evaluate.scm 144 */
																																																													BgL_arg2470z00_3924
																																																														=
																																																														BgL_locz00_74;
																																																												}
																																																										}
																																																										BgL_auxz00_6947
																																																											=
																																																											(
																																																											(BgL_ev_exprz00_bglt)
																																																											BGl_convz00zz__evaluatez00
																																																											(BNIL,
																																																												BgL_localsz00_70,
																																																												BgL_globalsz00_71,
																																																												BFALSE,
																																																												BgL_wherez00_73,
																																																												BgL_arg2470z00_3924,
																																																												((bool_t) 0)));
																																																									}
																																																									((((BgL_ev_synchroniza7eza7_bglt) COBJECT(BgL_new1162z00_2685))->BgL_prelockz00) = ((BgL_ev_exprz00_bglt) BgL_auxz00_6947), BUNSPEC);
																																																								}
																																																								((((BgL_ev_synchroniza7eza7_bglt) COBJECT(BgL_new1162z00_2685))->BgL_bodyz00) = ((BgL_ev_exprz00_bglt) ((BgL_ev_exprz00_bglt) BGl_convzd2beginzd2zz__evaluatez00(BgL_bodyz00_1590, BgL_localsz00_70, BgL_globalsz00_71, BFALSE, BgL_wherez00_73, BgL_locz00_74, ((bool_t) 0)))), BUNSPEC);
																																																								BgL_auxz00_6934
																																																									=
																																																									BgL_new1162z00_2685;
																																																							}
																																																							return
																																																								(
																																																								(obj_t)
																																																								BgL_auxz00_6934);
																																																						}
																																																					}
																																																			}
																																																		else
																																																			{	/* Eval/evaluate.scm 424 */
																																																				obj_t
																																																					BgL_arg1918z00_1981;
																																																				obj_t
																																																					BgL_arg1919z00_1982;
																																																				BgL_arg1918z00_1981
																																																					=
																																																					CAR
																																																					(
																																																					((obj_t) BgL_cdrzd28597zd2_1964));
																																																				BgL_arg1919z00_1982
																																																					=
																																																					CDR
																																																					(
																																																					((obj_t) BgL_cdrzd28597zd2_1964));
																																																				{
																																																					BgL_ev_synchroniza7eza7_bglt
																																																						BgL_auxz00_6962;
																																																					{
																																																						obj_t
																																																							BgL_bodyz00_6964;
																																																						obj_t
																																																							BgL_mz00_6963;
																																																						BgL_mz00_6963
																																																							=
																																																							BgL_arg1918z00_1981;
																																																						BgL_bodyz00_6964
																																																							=
																																																							BgL_arg1919z00_1982;
																																																						BgL_bodyz00_1590
																																																							=
																																																							BgL_bodyz00_6964;
																																																						BgL_mz00_1589
																																																							=
																																																							BgL_mz00_6963;
																																																						goto
																																																							BgL_tagzd2173zd2_1591;
																																																					}
																																																					return
																																																						(
																																																						(obj_t)
																																																						BgL_auxz00_6962);
																																																				}
																																																			}
																																																	}
																																																else
																																																	{	/* Eval/evaluate.scm 424 */
																																																		obj_t
																																																			BgL_arg1921z00_1985;
																																																		obj_t
																																																			BgL_arg1922z00_1986;
																																																		BgL_arg1921z00_1985
																																																			=
																																																			CAR
																																																			(
																																																			((obj_t) BgL_cdrzd28597zd2_1964));
																																																		BgL_arg1922z00_1986
																																																			=
																																																			CDR
																																																			(
																																																			((obj_t) BgL_cdrzd28597zd2_1964));
																																																		{
																																																			BgL_ev_synchroniza7eza7_bglt
																																																				BgL_auxz00_6970;
																																																			{
																																																				obj_t
																																																					BgL_bodyz00_6972;
																																																				obj_t
																																																					BgL_mz00_6971;
																																																				BgL_mz00_6971
																																																					=
																																																					BgL_arg1921z00_1985;
																																																				BgL_bodyz00_6972
																																																					=
																																																					BgL_arg1922z00_1986;
																																																				BgL_bodyz00_1590
																																																					=
																																																					BgL_bodyz00_6972;
																																																				BgL_mz00_1589
																																																					=
																																																					BgL_mz00_6971;
																																																				goto
																																																					BgL_tagzd2173zd2_1591;
																																																			}
																																																			return
																																																				(
																																																				(obj_t)
																																																				BgL_auxz00_6970);
																																																		}
																																																	}
																																															}
																																														else
																																															{	/* Eval/evaluate.scm 424 */
																																																obj_t
																																																	BgL_arg1923z00_1987;
																																																BgL_arg1923z00_1987
																																																	=
																																																	CAR
																																																	(
																																																	((obj_t) BgL_ez00_69));
																																																{
																																																	BgL_ev_appz00_bglt
																																																		BgL_auxz00_6976;
																																																	{
																																																		obj_t
																																																			BgL_argsz00_6978;
																																																		obj_t
																																																			BgL_fz00_6977;
																																																		BgL_fz00_6977
																																																			=
																																																			BgL_arg1923z00_1987;
																																																		BgL_argsz00_6978
																																																			=
																																																			BgL_cdrzd28597zd2_1964;
																																																		BgL_argsz00_1597
																																																			=
																																																			BgL_argsz00_6978;
																																																		BgL_fz00_1596
																																																			=
																																																			BgL_fz00_6977;
																																																		goto
																																																			BgL_tagzd2176zd2_1598;
																																																	}
																																																	return
																																																		(
																																																		(obj_t)
																																																		BgL_auxz00_6976);
																																																}
																																															}
																																													}
																																												else
																																													{	/* Eval/evaluate.scm 424 */
																																														if ((CAR(((obj_t) BgL_ez00_69)) == BGl_symbol3023z00zz__evaluatez00))
																																															{	/* Eval/evaluate.scm 424 */
																																																if (PAIRP(BgL_cdrzd28597zd2_1964))
																																																	{	/* Eval/evaluate.scm 424 */
																																																		obj_t
																																																			BgL_cdrzd28709zd2_1993;
																																																		BgL_cdrzd28709zd2_1993
																																																			=
																																																			CDR
																																																			(BgL_cdrzd28597zd2_1964);
																																																		if (PAIRP(BgL_cdrzd28709zd2_1993))
																																																			{	/* Eval/evaluate.scm 424 */
																																																				if (NULLP(CDR(BgL_cdrzd28709zd2_1993)))
																																																					{	/* Eval/evaluate.scm 424 */
																																																						obj_t
																																																							BgL_arg1933z00_1997;
																																																						obj_t
																																																							BgL_arg1934z00_1998;
																																																						BgL_arg1933z00_1997
																																																							=
																																																							CAR
																																																							(BgL_cdrzd28597zd2_1964);
																																																						BgL_arg1934z00_1998
																																																							=
																																																							CAR
																																																							(BgL_cdrzd28709zd2_1993);
																																																						{	/* Eval/evaluate.scm 599 */
																																																							obj_t
																																																								BgL_arg2455z00_4259;
																																																							{	/* Eval/evaluate.scm 599 */
																																																								obj_t
																																																									BgL_arg2456z00_4260;
																																																								{	/* Eval/evaluate.scm 599 */
																																																									obj_t
																																																										BgL_arg2457z00_4261;
																																																									obj_t
																																																										BgL_arg2458z00_4262;
																																																									{	/* Eval/evaluate.scm 599 */
																																																										obj_t
																																																											BgL_symbolz00_4263;
																																																										BgL_symbolz00_4263
																																																											=
																																																											BGl_symbol3070z00zz__evaluatez00;
																																																										{	/* Eval/evaluate.scm 599 */
																																																											obj_t
																																																												BgL_arg2654z00_4264;
																																																											BgL_arg2654z00_4264
																																																												=
																																																												SYMBOL_TO_STRING
																																																												(BgL_symbolz00_4263);
																																																											BgL_arg2457z00_4261
																																																												=
																																																												BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																																																												(BgL_arg2654z00_4264);
																																																										}
																																																									}
																																																									{	/* Eval/evaluate.scm 599 */
																																																										obj_t
																																																											BgL_arg2654z00_4266;
																																																										BgL_arg2654z00_4266
																																																											=
																																																											SYMBOL_TO_STRING
																																																											(
																																																											((obj_t) BgL_wherez00_73));
																																																										BgL_arg2458z00_4262
																																																											=
																																																											BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																																																											(BgL_arg2654z00_4266);
																																																									}
																																																									BgL_arg2456z00_4260
																																																										=
																																																										string_append
																																																										(BgL_arg2457z00_4261,
																																																										BgL_arg2458z00_4262);
																																																								}
																																																								BgL_arg2455z00_4259
																																																									=
																																																									bstring_to_symbol
																																																									(BgL_arg2456z00_4260);
																																																							}
																																																							return
																																																								(
																																																								(obj_t)
																																																								BGl_convzd2lambdaze70z35zz__evaluatez00
																																																								(BgL_globalsz00_71,
																																																									BgL_localsz00_70,
																																																									BgL_ez00_69,
																																																									BgL_locz00_74,
																																																									BgL_arg1933z00_1997,
																																																									BgL_arg1934z00_1998,
																																																									BgL_arg2455z00_4259,
																																																									BFALSE));
																																																						}
																																																					}
																																																				else
																																																					{	/* Eval/evaluate.scm 424 */
																																																						obj_t
																																																							BgL_arg1935z00_1999;
																																																						obj_t
																																																							BgL_arg1936z00_2000;
																																																						BgL_arg1935z00_1999
																																																							=
																																																							CAR
																																																							(
																																																							((obj_t) BgL_ez00_69));
																																																						BgL_arg1936z00_2000
																																																							=
																																																							CDR
																																																							(
																																																							((obj_t) BgL_ez00_69));
																																																						{
																																																							BgL_ev_appz00_bglt
																																																								BgL_auxz00_7007;
																																																							{
																																																								obj_t
																																																									BgL_argsz00_7009;
																																																								obj_t
																																																									BgL_fz00_7008;
																																																								BgL_fz00_7008
																																																									=
																																																									BgL_arg1935z00_1999;
																																																								BgL_argsz00_7009
																																																									=
																																																									BgL_arg1936z00_2000;
																																																								BgL_argsz00_1597
																																																									=
																																																									BgL_argsz00_7009;
																																																								BgL_fz00_1596
																																																									=
																																																									BgL_fz00_7008;
																																																								goto
																																																									BgL_tagzd2176zd2_1598;
																																																							}
																																																							return
																																																								(
																																																								(obj_t)
																																																								BgL_auxz00_7007);
																																																						}
																																																					}
																																																			}
																																																		else
																																																			{	/* Eval/evaluate.scm 424 */
																																																				obj_t
																																																					BgL_arg1938z00_2002;
																																																				obj_t
																																																					BgL_arg1939z00_2003;
																																																				BgL_arg1938z00_2002
																																																					=
																																																					CAR
																																																					(
																																																					((obj_t) BgL_ez00_69));
																																																				BgL_arg1939z00_2003
																																																					=
																																																					CDR
																																																					(
																																																					((obj_t) BgL_ez00_69));
																																																				{
																																																					BgL_ev_appz00_bglt
																																																						BgL_auxz00_7015;
																																																					{
																																																						obj_t
																																																							BgL_argsz00_7017;
																																																						obj_t
																																																							BgL_fz00_7016;
																																																						BgL_fz00_7016
																																																							=
																																																							BgL_arg1938z00_2002;
																																																						BgL_argsz00_7017
																																																							=
																																																							BgL_arg1939z00_2003;
																																																						BgL_argsz00_1597
																																																							=
																																																							BgL_argsz00_7017;
																																																						BgL_fz00_1596
																																																							=
																																																							BgL_fz00_7016;
																																																						goto
																																																							BgL_tagzd2176zd2_1598;
																																																					}
																																																					return
																																																						(
																																																						(obj_t)
																																																						BgL_auxz00_7015);
																																																				}
																																																			}
																																																	}
																																																else
																																																	{	/* Eval/evaluate.scm 424 */
																																																		obj_t
																																																			BgL_arg1940z00_2004;
																																																		obj_t
																																																			BgL_arg1941z00_2005;
																																																		BgL_arg1940z00_2004
																																																			=
																																																			CAR
																																																			(
																																																			((obj_t) BgL_ez00_69));
																																																		BgL_arg1941z00_2005
																																																			=
																																																			CDR
																																																			(
																																																			((obj_t) BgL_ez00_69));
																																																		{
																																																			BgL_ev_appz00_bglt
																																																				BgL_auxz00_7023;
																																																			{
																																																				obj_t
																																																					BgL_argsz00_7025;
																																																				obj_t
																																																					BgL_fz00_7024;
																																																				BgL_fz00_7024
																																																					=
																																																					BgL_arg1940z00_2004;
																																																				BgL_argsz00_7025
																																																					=
																																																					BgL_arg1941z00_2005;
																																																				BgL_argsz00_1597
																																																					=
																																																					BgL_argsz00_7025;
																																																				BgL_fz00_1596
																																																					=
																																																					BgL_fz00_7024;
																																																				goto
																																																					BgL_tagzd2176zd2_1598;
																																																			}
																																																			return
																																																				(
																																																				(obj_t)
																																																				BgL_auxz00_7023);
																																																		}
																																																	}
																																															}
																																														else
																																															{	/* Eval/evaluate.scm 424 */
																																																if ((CAR(((obj_t) BgL_ez00_69)) == BGl_symbol3072z00zz__evaluatez00))
																																																	{	/* Eval/evaluate.scm 424 */
																																																		return
																																																			BGl_errorz00zz__errorz00
																																																			(BGl_string3074z00zz__evaluatez00,
																																																			BGl_string3075z00zz__evaluatez00,
																																																			BgL_ez00_69);
																																																	}
																																																else
																																																	{	/* Eval/evaluate.scm 424 */
																																																		obj_t
																																																			BgL_arg1944z00_2008;
																																																		obj_t
																																																			BgL_arg1945z00_2009;
																																																		BgL_arg1944z00_2008
																																																			=
																																																			CAR
																																																			(
																																																			((obj_t) BgL_ez00_69));
																																																		BgL_arg1945z00_2009
																																																			=
																																																			CDR
																																																			(
																																																			((obj_t) BgL_ez00_69));
																																																		{
																																																			BgL_ev_appz00_bglt
																																																				BgL_auxz00_7036;
																																																			{
																																																				obj_t
																																																					BgL_argsz00_7038;
																																																				obj_t
																																																					BgL_fz00_7037;
																																																				BgL_fz00_7037
																																																					=
																																																					BgL_arg1944z00_2008;
																																																				BgL_argsz00_7038
																																																					=
																																																					BgL_arg1945z00_2009;
																																																				BgL_argsz00_1597
																																																					=
																																																					BgL_argsz00_7038;
																																																				BgL_fz00_1596
																																																					=
																																																					BgL_fz00_7037;
																																																				goto
																																																					BgL_tagzd2176zd2_1598;
																																																			}
																																																			return
																																																				(
																																																				(obj_t)
																																																				BgL_auxz00_7036);
																																																		}
																																																	}
																																															}
																																													}
																																											}
																																									}
																																							}
																																					}
																																			}
																																	}
																															}
																													}
																											}
																									}
																							}
																					}
																			}
																	}
															}
													}
												else
													{	/* Eval/evaluate.scm 424 */
														if (
															(BgL_carzd23841zd2_1671 ==
																BGl_symbol3046z00zz__evaluatez00))
															{	/* Eval/evaluate.scm 424 */
																if (PAIRP(BgL_cdrzd2250zd2_1605))
																	{	/* Eval/evaluate.scm 424 */
																		if (NULLP(CDR(BgL_cdrzd2250zd2_1605)))
																			{	/* Eval/evaluate.scm 424 */
																				obj_t BgL_arg1971z00_2034;

																				BgL_arg1971z00_2034 =
																					CAR(BgL_cdrzd2250zd2_1605);
																				{	/* Eval/evaluate.scm 456 */
																					BgL_ev_trapz00_bglt
																						BgL_new1112z00_4281;
																					{	/* Eval/evaluate.scm 457 */
																						BgL_ev_trapz00_bglt
																							BgL_new1110z00_4282;
																						BgL_new1110z00_4282 =
																							((BgL_ev_trapz00_bglt)
																							BOBJECT(GC_MALLOC(sizeof(struct
																										BgL_ev_trapz00_bgl))));
																						{	/* Eval/evaluate.scm 457 */
																							long BgL_arg2299z00_4283;

																							BgL_arg2299z00_4283 =
																								BGL_CLASS_NUM
																								(BGl_ev_trapz00zz__evaluate_typesz00);
																							BGL_OBJECT_CLASS_NUM_SET((
																									(BgL_objectz00_bglt)
																									BgL_new1110z00_4282),
																								BgL_arg2299z00_4283);
																						}
																						BgL_new1112z00_4281 =
																							BgL_new1110z00_4282;
																					}
																					{
																						BgL_ev_exprz00_bglt BgL_auxz00_7052;

																						{	/* Eval/evaluate.scm 380 */
																							obj_t BgL_arg2470z00_4287;

																							BgL_arg2470z00_4287 =
																								BGl_getzd2locationzd2zz__evaluatez00
																								(BgL_arg1971z00_2034,
																								BgL_locz00_74);
																							BgL_auxz00_7052 =
																								((BgL_ev_exprz00_bglt)
																								BGl_uconvzf2locze70z15zz__evaluatez00
																								(BgL_wherez00_73,
																									BgL_globalsz00_71,
																									BgL_localsz00_70,
																									BgL_arg1971z00_2034,
																									BgL_arg2470z00_4287));
																						}
																						((((BgL_ev_hookz00_bglt) COBJECT(
																										((BgL_ev_hookz00_bglt)
																											BgL_new1112z00_4281)))->
																								BgL_ez00) =
																							((BgL_ev_exprz00_bglt)
																								BgL_auxz00_7052), BUNSPEC);
																					}
																					return ((obj_t) BgL_new1112z00_4281);
																				}
																			}
																		else
																			{	/* Eval/evaluate.scm 424 */
																				obj_t BgL_arg1972z00_2035;
																				obj_t BgL_arg1975z00_2036;

																				BgL_arg1972z00_2035 =
																					CAR(((obj_t) BgL_ez00_69));
																				BgL_arg1975z00_2036 =
																					CDR(((obj_t) BgL_ez00_69));
																				{
																					BgL_ev_appz00_bglt BgL_auxz00_7063;

																					{
																						obj_t BgL_argsz00_7065;
																						obj_t BgL_fz00_7064;

																						BgL_fz00_7064 = BgL_arg1972z00_2035;
																						BgL_argsz00_7065 =
																							BgL_arg1975z00_2036;
																						BgL_argsz00_1597 = BgL_argsz00_7065;
																						BgL_fz00_1596 = BgL_fz00_7064;
																						goto BgL_tagzd2176zd2_1598;
																					}
																					return ((obj_t) BgL_auxz00_7063);
																				}
																			}
																	}
																else
																	{	/* Eval/evaluate.scm 424 */
																		obj_t BgL_arg1978z00_2038;
																		obj_t BgL_arg1979z00_2039;

																		BgL_arg1978z00_2038 =
																			CAR(((obj_t) BgL_ez00_69));
																		BgL_arg1979z00_2039 =
																			CDR(((obj_t) BgL_ez00_69));
																		{
																			BgL_ev_appz00_bglt BgL_auxz00_7071;

																			{
																				obj_t BgL_argsz00_7073;
																				obj_t BgL_fz00_7072;

																				BgL_fz00_7072 = BgL_arg1978z00_2038;
																				BgL_argsz00_7073 = BgL_arg1979z00_2039;
																				BgL_argsz00_1597 = BgL_argsz00_7073;
																				BgL_fz00_1596 = BgL_fz00_7072;
																				goto BgL_tagzd2176zd2_1598;
																			}
																			return ((obj_t) BgL_auxz00_7071);
																		}
																	}
															}
														else
															{	/* Eval/evaluate.scm 424 */
																obj_t BgL_cdrzd29422zd2_2040;

																BgL_cdrzd29422zd2_2040 =
																	CDR(((obj_t) BgL_ez00_69));
																if (
																	(CAR(
																			((obj_t) BgL_ez00_69)) ==
																		BGl_symbol3011z00zz__evaluatez00))
																	{	/* Eval/evaluate.scm 424 */
																		if (PAIRP(BgL_cdrzd29422zd2_2040))
																			{	/* Eval/evaluate.scm 424 */
																				if (NULLP(CDR(BgL_cdrzd29422zd2_2040)))
																					{	/* Eval/evaluate.scm 424 */
																						obj_t BgL_arg1985z00_2046;

																						BgL_arg1985z00_2046 =
																							CAR(BgL_cdrzd29422zd2_2040);
																						{	/* Eval/evaluate.scm 459 */
																							BgL_ev_littz00_bglt
																								BgL_new1116z00_4296;
																							{	/* Eval/evaluate.scm 460 */
																								BgL_ev_littz00_bglt
																									BgL_new1113z00_4297;
																								BgL_new1113z00_4297 =
																									((BgL_ev_littz00_bglt)
																									BOBJECT(GC_MALLOC(sizeof
																											(struct
																												BgL_ev_littz00_bgl))));
																								{	/* Eval/evaluate.scm 460 */
																									long BgL_arg2300z00_4298;

																									BgL_arg2300z00_4298 =
																										BGL_CLASS_NUM
																										(BGl_ev_littz00zz__evaluate_typesz00);
																									BGL_OBJECT_CLASS_NUM_SET((
																											(BgL_objectz00_bglt)
																											BgL_new1113z00_4297),
																										BgL_arg2300z00_4298);
																								}
																								BgL_new1116z00_4296 =
																									BgL_new1113z00_4297;
																							}
																							((((BgL_ev_littz00_bglt)
																										COBJECT
																										(BgL_new1116z00_4296))->
																									BgL_valuez00) =
																								((obj_t) BgL_arg1985z00_2046),
																								BUNSPEC);
																							return ((obj_t)
																								BgL_new1116z00_4296);
																						}
																					}
																				else
																					{	/* Eval/evaluate.scm 424 */
																						obj_t BgL_arg1987z00_2047;

																						BgL_arg1987z00_2047 =
																							CAR(((obj_t) BgL_ez00_69));
																						{
																							BgL_ev_appz00_bglt
																								BgL_auxz00_7095;
																							{
																								obj_t BgL_argsz00_7097;
																								obj_t BgL_fz00_7096;

																								BgL_fz00_7096 =
																									BgL_arg1987z00_2047;
																								BgL_argsz00_7097 =
																									BgL_cdrzd29422zd2_2040;
																								BgL_argsz00_1597 =
																									BgL_argsz00_7097;
																								BgL_fz00_1596 = BgL_fz00_7096;
																								goto BgL_tagzd2176zd2_1598;
																							}
																							return ((obj_t) BgL_auxz00_7095);
																						}
																					}
																			}
																		else
																			{	/* Eval/evaluate.scm 424 */
																				obj_t BgL_arg1990z00_2050;

																				BgL_arg1990z00_2050 =
																					CAR(((obj_t) BgL_ez00_69));
																				{
																					BgL_ev_appz00_bglt BgL_auxz00_7101;

																					{
																						obj_t BgL_argsz00_7103;
																						obj_t BgL_fz00_7102;

																						BgL_fz00_7102 = BgL_arg1990z00_2050;
																						BgL_argsz00_7103 =
																							BgL_cdrzd29422zd2_2040;
																						BgL_argsz00_1597 = BgL_argsz00_7103;
																						BgL_fz00_1596 = BgL_fz00_7102;
																						goto BgL_tagzd2176zd2_1598;
																					}
																					return ((obj_t) BgL_auxz00_7101);
																				}
																			}
																	}
																else
																	{	/* Eval/evaluate.scm 424 */
																		if (
																			(CAR(
																					((obj_t) BgL_ez00_69)) ==
																				BGl_symbol3019z00zz__evaluatez00))
																			{	/* Eval/evaluate.scm 424 */
																				if (PAIRP(BgL_cdrzd29422zd2_2040))
																					{	/* Eval/evaluate.scm 424 */
																						obj_t BgL_cdrzd210036zd2_2056;

																						BgL_cdrzd210036zd2_2056 =
																							CDR(BgL_cdrzd29422zd2_2040);
																						if (PAIRP(BgL_cdrzd210036zd2_2056))
																							{	/* Eval/evaluate.scm 424 */
																								obj_t BgL_cdrzd210041zd2_2058;

																								BgL_cdrzd210041zd2_2058 =
																									CDR(BgL_cdrzd210036zd2_2056);
																								if (PAIRP
																									(BgL_cdrzd210041zd2_2058))
																									{	/* Eval/evaluate.scm 424 */
																										if (NULLP(CDR
																												(BgL_cdrzd210041zd2_2058)))
																											{	/* Eval/evaluate.scm 424 */
																												obj_t
																													BgL_arg2000z00_2062;
																												obj_t
																													BgL_arg2002z00_2063;
																												obj_t
																													BgL_arg2003z00_2064;
																												BgL_arg2000z00_2062 =
																													CAR
																													(BgL_cdrzd29422zd2_2040);
																												BgL_arg2002z00_2063 =
																													CAR
																													(BgL_cdrzd210036zd2_2056);
																												BgL_arg2003z00_2064 =
																													CAR
																													(BgL_cdrzd210041zd2_2058);
																												{
																													BgL_ev_ifz00_bglt
																														BgL_auxz00_7123;
																													{
																														obj_t BgL_oz00_7126;
																														obj_t BgL_tz00_7125;
																														obj_t BgL_pz00_7124;

																														BgL_pz00_7124 =
																															BgL_arg2000z00_2062;
																														BgL_tz00_7125 =
																															BgL_arg2002z00_2063;
																														BgL_oz00_7126 =
																															BgL_arg2003z00_2064;
																														BgL_oz00_1538 =
																															BgL_oz00_7126;
																														BgL_tz00_1537 =
																															BgL_tz00_7125;
																														BgL_pz00_1536 =
																															BgL_pz00_7124;
																														goto
																															BgL_tagzd2155zd2_1539;
																													}
																													return
																														((obj_t)
																														BgL_auxz00_7123);
																												}
																											}
																										else
																											{	/* Eval/evaluate.scm 424 */
																												obj_t
																													BgL_arg2004z00_2065;
																												obj_t
																													BgL_arg2005z00_2066;
																												BgL_arg2004z00_2065 =
																													CAR(((obj_t)
																														BgL_ez00_69));
																												BgL_arg2005z00_2066 =
																													CDR(((obj_t)
																														BgL_ez00_69));
																												{
																													BgL_ev_appz00_bglt
																														BgL_auxz00_7132;
																													{
																														obj_t
																															BgL_argsz00_7134;
																														obj_t BgL_fz00_7133;

																														BgL_fz00_7133 =
																															BgL_arg2004z00_2065;
																														BgL_argsz00_7134 =
																															BgL_arg2005z00_2066;
																														BgL_argsz00_1597 =
																															BgL_argsz00_7134;
																														BgL_fz00_1596 =
																															BgL_fz00_7133;
																														goto
																															BgL_tagzd2176zd2_1598;
																													}
																													return
																														((obj_t)
																														BgL_auxz00_7132);
																												}
																											}
																									}
																								else
																									{	/* Eval/evaluate.scm 424 */
																										obj_t
																											BgL_cdrzd210341zd2_2068;
																										BgL_cdrzd210341zd2_2068 =
																											CDR(((obj_t)
																												BgL_ez00_69));
																										{	/* Eval/evaluate.scm 424 */
																											obj_t
																												BgL_cdrzd210347zd2_2069;
																											BgL_cdrzd210347zd2_2069 =
																												CDR(((obj_t)
																													BgL_cdrzd210341zd2_2068));
																											if (NULLP(CDR(((obj_t)
																															BgL_cdrzd210347zd2_2069))))
																												{	/* Eval/evaluate.scm 424 */
																													obj_t
																														BgL_arg2011z00_2072;
																													obj_t
																														BgL_arg2012z00_2073;
																													BgL_arg2011z00_2072 =
																														CAR(((obj_t)
																															BgL_cdrzd210341zd2_2068));
																													BgL_arg2012z00_2073 =
																														CAR(((obj_t)
																															BgL_cdrzd210347zd2_2069));
																													{
																														BgL_ev_ifz00_bglt
																															BgL_auxz00_7148;
																														{
																															obj_t
																																BgL_tz00_7150;
																															obj_t
																																BgL_pz00_7149;
																															BgL_pz00_7149 =
																																BgL_arg2011z00_2072;
																															BgL_tz00_7150 =
																																BgL_arg2012z00_2073;
																															BgL_tz00_1541 =
																																BgL_tz00_7150;
																															BgL_pz00_1540 =
																																BgL_pz00_7149;
																															goto
																																BgL_tagzd2156zd2_1542;
																														}
																														return
																															((obj_t)
																															BgL_auxz00_7148);
																													}
																												}
																											else
																												{	/* Eval/evaluate.scm 424 */
																													obj_t
																														BgL_arg2013z00_2074;
																													BgL_arg2013z00_2074 =
																														CAR(((obj_t)
																															BgL_ez00_69));
																													{
																														BgL_ev_appz00_bglt
																															BgL_auxz00_7154;
																														{
																															obj_t
																																BgL_argsz00_7156;
																															obj_t
																																BgL_fz00_7155;
																															BgL_fz00_7155 =
																																BgL_arg2013z00_2074;
																															BgL_argsz00_7156 =
																																BgL_cdrzd210341zd2_2068;
																															BgL_argsz00_1597 =
																																BgL_argsz00_7156;
																															BgL_fz00_1596 =
																																BgL_fz00_7155;
																															goto
																																BgL_tagzd2176zd2_1598;
																														}
																														return
																															((obj_t)
																															BgL_auxz00_7154);
																													}
																												}
																										}
																									}
																							}
																						else
																							{	/* Eval/evaluate.scm 424 */
																								obj_t BgL_arg2018z00_2077;
																								obj_t BgL_arg2019z00_2078;

																								BgL_arg2018z00_2077 =
																									CAR(((obj_t) BgL_ez00_69));
																								BgL_arg2019z00_2078 =
																									CDR(((obj_t) BgL_ez00_69));
																								{
																									BgL_ev_appz00_bglt
																										BgL_auxz00_7162;
																									{
																										obj_t BgL_argsz00_7164;
																										obj_t BgL_fz00_7163;

																										BgL_fz00_7163 =
																											BgL_arg2018z00_2077;
																										BgL_argsz00_7164 =
																											BgL_arg2019z00_2078;
																										BgL_argsz00_1597 =
																											BgL_argsz00_7164;
																										BgL_fz00_1596 =
																											BgL_fz00_7163;
																										goto BgL_tagzd2176zd2_1598;
																									}
																									return
																										((obj_t) BgL_auxz00_7162);
																								}
																							}
																					}
																				else
																					{	/* Eval/evaluate.scm 424 */
																						obj_t BgL_arg2020z00_2079;
																						obj_t BgL_arg2021z00_2080;

																						BgL_arg2020z00_2079 =
																							CAR(((obj_t) BgL_ez00_69));
																						BgL_arg2021z00_2080 =
																							CDR(((obj_t) BgL_ez00_69));
																						{
																							BgL_ev_appz00_bglt
																								BgL_auxz00_7170;
																							{
																								obj_t BgL_argsz00_7172;
																								obj_t BgL_fz00_7171;

																								BgL_fz00_7171 =
																									BgL_arg2020z00_2079;
																								BgL_argsz00_7172 =
																									BgL_arg2021z00_2080;
																								BgL_argsz00_1597 =
																									BgL_argsz00_7172;
																								BgL_fz00_1596 = BgL_fz00_7171;
																								goto BgL_tagzd2176zd2_1598;
																							}
																							return ((obj_t) BgL_auxz00_7170);
																						}
																					}
																			}
																		else
																			{	/* Eval/evaluate.scm 424 */
																				if (
																					(CAR(
																							((obj_t) BgL_ez00_69)) ==
																						BGl_symbol3048z00zz__evaluatez00))
																					{	/* Eval/evaluate.scm 424 */
																						obj_t BgL_arg2025z00_2083;

																						BgL_arg2025z00_2083 =
																							CDR(((obj_t) BgL_ez00_69));
																						{	/* Eval/evaluate.scm 472 */
																							BgL_ev_orz00_bglt
																								BgL_new1124z00_4329;
																							{	/* Eval/evaluate.scm 473 */
																								BgL_ev_orz00_bglt
																									BgL_new1123z00_4330;
																								BgL_new1123z00_4330 =
																									((BgL_ev_orz00_bglt)
																									BOBJECT(GC_MALLOC(sizeof
																											(struct
																												BgL_ev_orz00_bgl))));
																								{	/* Eval/evaluate.scm 473 */
																									long BgL_arg2311z00_4331;

																									BgL_arg2311z00_4331 =
																										BGL_CLASS_NUM
																										(BGl_ev_orz00zz__evaluate_typesz00);
																									BGL_OBJECT_CLASS_NUM_SET((
																											(BgL_objectz00_bglt)
																											BgL_new1123z00_4330),
																										BgL_arg2311z00_4331);
																								}
																								BgL_new1124z00_4329 =
																									BgL_new1123z00_4330;
																							}
																							((((BgL_ev_listz00_bglt) COBJECT(
																											((BgL_ev_listz00_bglt)
																												BgL_new1124z00_4329)))->
																									BgL_argsz00) =
																								((obj_t)
																									BGl_loopze70ze7zz__evaluatez00
																									(BgL_wherez00_73,
																										BgL_globalsz00_71,
																										BgL_localsz00_70,
																										BgL_locz00_74,
																										BgL_arg2025z00_2083)),
																								BUNSPEC);
																							return ((obj_t)
																								BgL_new1124z00_4329);
																						}
																					}
																				else
																					{	/* Eval/evaluate.scm 424 */
																						if (
																							(CAR(
																									((obj_t) BgL_ez00_69)) ==
																								BGl_symbol3050z00zz__evaluatez00))
																							{	/* Eval/evaluate.scm 424 */
																								obj_t BgL_arg2028z00_2086;

																								BgL_arg2028z00_2086 =
																									CDR(((obj_t) BgL_ez00_69));
																								{	/* Eval/evaluate.scm 475 */
																									BgL_ev_andz00_bglt
																										BgL_new1126z00_4337;
																									{	/* Eval/evaluate.scm 476 */
																										BgL_ev_andz00_bglt
																											BgL_new1125z00_4338;
																										BgL_new1125z00_4338 =
																											((BgL_ev_andz00_bglt)
																											BOBJECT(GC_MALLOC(sizeof
																													(struct
																														BgL_ev_andz00_bgl))));
																										{	/* Eval/evaluate.scm 476 */
																											long BgL_arg2313z00_4339;

																											BgL_arg2313z00_4339 =
																												BGL_CLASS_NUM
																												(BGl_ev_andz00zz__evaluate_typesz00);
																											BGL_OBJECT_CLASS_NUM_SET((
																													(BgL_objectz00_bglt)
																													BgL_new1125z00_4338),
																												BgL_arg2313z00_4339);
																										}
																										BgL_new1126z00_4337 =
																											BgL_new1125z00_4338;
																									}
																									((((BgL_ev_listz00_bglt)
																												COBJECT((
																														(BgL_ev_listz00_bglt)
																														BgL_new1126z00_4337)))->
																											BgL_argsz00) =
																										((obj_t)
																											BGl_loopze70ze7zz__evaluatez00
																											(BgL_wherez00_73,
																												BgL_globalsz00_71,
																												BgL_localsz00_70,
																												BgL_locz00_74,
																												BgL_arg2028z00_2086)),
																										BUNSPEC);
																									return ((obj_t)
																										BgL_new1126z00_4337);
																								}
																							}
																						else
																							{	/* Eval/evaluate.scm 424 */
																								if (
																									(CAR(
																											((obj_t) BgL_ez00_69)) ==
																										BGl_symbol3035z00zz__evaluatez00))
																									{	/* Eval/evaluate.scm 424 */
																										obj_t BgL_arg2031z00_2089;

																										BgL_arg2031z00_2089 =
																											CDR(
																											((obj_t) BgL_ez00_69));
																										BGL_TAIL return
																											BGl_convzd2beginzd2zz__evaluatez00
																											(BgL_arg2031z00_2089,
																											BgL_localsz00_70,
																											BgL_globalsz00_71,
																											BgL_tailzf3zf3_72,
																											BgL_wherez00_73,
																											BgL_locz00_74,
																											BgL_topzf3zf3_75);
																									}
																								else
																									{	/* Eval/evaluate.scm 424 */
																										obj_t
																											BgL_cdrzd211246zd2_2090;
																										BgL_cdrzd211246zd2_2090 =
																											CDR(((obj_t)
																												BgL_ez00_69));
																										if ((CAR(((obj_t)
																														BgL_ez00_69)) ==
																												BGl_symbol3021z00zz__evaluatez00))
																											{	/* Eval/evaluate.scm 424 */
																												if (PAIRP
																													(BgL_cdrzd211246zd2_2090))
																													{	/* Eval/evaluate.scm 424 */
																														obj_t
																															BgL_arg2035z00_2094;
																														obj_t
																															BgL_arg2037z00_2095;
																														BgL_arg2035z00_2094
																															=
																															CAR
																															(BgL_cdrzd211246zd2_2090);
																														BgL_arg2037z00_2095
																															=
																															CDR
																															(BgL_cdrzd211246zd2_2090);
																														{
																															BgL_ev_letz00_bglt
																																BgL_auxz00_7219;
																															{
																																obj_t
																																	BgL_bodyz00_7221;
																																obj_t
																																	BgL_bindsz00_7220;
																																BgL_bindsz00_7220
																																	=
																																	BgL_arg2035z00_2094;
																																BgL_bodyz00_7221
																																	=
																																	BgL_arg2037z00_2095;
																																BgL_bodyz00_1550
																																	=
																																	BgL_bodyz00_7221;
																																BgL_bindsz00_1549
																																	=
																																	BgL_bindsz00_7220;
																																goto
																																	BgL_tagzd2160zd2_1551;
																															}
																															return
																																((obj_t)
																																BgL_auxz00_7219);
																														}
																													}
																												else
																													{	/* Eval/evaluate.scm 424 */
																														obj_t
																															BgL_arg2038z00_2096;
																														BgL_arg2038z00_2096
																															=
																															CAR(((obj_t)
																																BgL_ez00_69));
																														{
																															BgL_ev_appz00_bglt
																																BgL_auxz00_7225;
																															{
																																obj_t
																																	BgL_argsz00_7227;
																																obj_t
																																	BgL_fz00_7226;
																																BgL_fz00_7226 =
																																	BgL_arg2038z00_2096;
																																BgL_argsz00_7227
																																	=
																																	BgL_cdrzd211246zd2_2090;
																																BgL_argsz00_1597
																																	=
																																	BgL_argsz00_7227;
																																BgL_fz00_1596 =
																																	BgL_fz00_7226;
																																goto
																																	BgL_tagzd2176zd2_1598;
																															}
																															return
																																((obj_t)
																																BgL_auxz00_7225);
																														}
																													}
																											}
																										else
																											{	/* Eval/evaluate.scm 424 */
																												if (
																													(CAR(
																															((obj_t)
																																BgL_ez00_69)) ==
																														BGl_symbol3052z00zz__evaluatez00))
																													{	/* Eval/evaluate.scm 424 */
																														if (PAIRP
																															(BgL_cdrzd211246zd2_2090))
																															{	/* Eval/evaluate.scm 424 */
																																obj_t
																																	BgL_arg2044z00_2102;
																																obj_t
																																	BgL_arg2045z00_2103;
																																BgL_arg2044z00_2102
																																	=
																																	CAR
																																	(BgL_cdrzd211246zd2_2090);
																																BgL_arg2045z00_2103
																																	=
																																	CDR
																																	(BgL_cdrzd211246zd2_2090);
																																{
																																	BgL_ev_letza2za2_bglt
																																		BgL_auxz00_7237;
																																	{
																																		obj_t
																																			BgL_bodyz00_7239;
																																		obj_t
																																			BgL_bindsz00_7238;
																																		BgL_bindsz00_7238
																																			=
																																			BgL_arg2044z00_2102;
																																		BgL_bodyz00_7239
																																			=
																																			BgL_arg2045z00_2103;
																																		BgL_bodyz00_1553
																																			=
																																			BgL_bodyz00_7239;
																																		BgL_bindsz00_1552
																																			=
																																			BgL_bindsz00_7238;
																																		goto
																																			BgL_tagzd2161zd2_1554;
																																	}
																																	return
																																		((obj_t)
																																		BgL_auxz00_7237);
																																}
																															}
																														else
																															{	/* Eval/evaluate.scm 424 */
																																obj_t
																																	BgL_arg2046z00_2104;
																																obj_t
																																	BgL_arg2047z00_2105;
																																BgL_arg2046z00_2104
																																	=
																																	CAR(((obj_t)
																																		BgL_ez00_69));
																																BgL_arg2047z00_2105
																																	=
																																	CDR(((obj_t)
																																		BgL_ez00_69));
																																{
																																	BgL_ev_appz00_bglt
																																		BgL_auxz00_7245;
																																	{
																																		obj_t
																																			BgL_argsz00_7247;
																																		obj_t
																																			BgL_fz00_7246;
																																		BgL_fz00_7246
																																			=
																																			BgL_arg2046z00_2104;
																																		BgL_argsz00_7247
																																			=
																																			BgL_arg2047z00_2105;
																																		BgL_argsz00_1597
																																			=
																																			BgL_argsz00_7247;
																																		BgL_fz00_1596
																																			=
																																			BgL_fz00_7246;
																																		goto
																																			BgL_tagzd2176zd2_1598;
																																	}
																																	return
																																		((obj_t)
																																		BgL_auxz00_7245);
																																}
																															}
																													}
																												else
																													{	/* Eval/evaluate.scm 424 */
																														obj_t
																															BgL_cdrzd211644zd2_2106;
																														BgL_cdrzd211644zd2_2106
																															=
																															CDR(((obj_t)
																																BgL_ez00_69));
																														if ((CAR(((obj_t)
																																		BgL_ez00_69))
																																==
																																BGl_symbol3054z00zz__evaluatez00))
																															{	/* Eval/evaluate.scm 424 */
																																if (PAIRP
																																	(BgL_cdrzd211644zd2_2106))
																																	{	/* Eval/evaluate.scm 424 */
																																		obj_t
																																			BgL_arg2051z00_2110;
																																		obj_t
																																			BgL_arg2052z00_2111;
																																		BgL_arg2051z00_2110
																																			=
																																			CAR
																																			(BgL_cdrzd211644zd2_2106);
																																		BgL_arg2052z00_2111
																																			=
																																			CDR
																																			(BgL_cdrzd211644zd2_2106);
																																		{
																																			BgL_ev_letrecz00_bglt
																																				BgL_auxz00_7259;
																																			{
																																				obj_t
																																					BgL_bodyz00_7261;
																																				obj_t
																																					BgL_bindsz00_7260;
																																				BgL_bindsz00_7260
																																					=
																																					BgL_arg2051z00_2110;
																																				BgL_bodyz00_7261
																																					=
																																					BgL_arg2052z00_2111;
																																				BgL_bodyz00_1556
																																					=
																																					BgL_bodyz00_7261;
																																				BgL_bindsz00_1555
																																					=
																																					BgL_bindsz00_7260;
																																				goto
																																					BgL_tagzd2162zd2_1557;
																																			}
																																			return
																																				((obj_t)
																																				BgL_auxz00_7259);
																																		}
																																	}
																																else
																																	{	/* Eval/evaluate.scm 424 */
																																		obj_t
																																			BgL_arg2053z00_2112;
																																		BgL_arg2053z00_2112
																																			=
																																			CAR((
																																				(obj_t)
																																				BgL_ez00_69));
																																		{
																																			BgL_ev_appz00_bglt
																																				BgL_auxz00_7265;
																																			{
																																				obj_t
																																					BgL_argsz00_7267;
																																				obj_t
																																					BgL_fz00_7266;
																																				BgL_fz00_7266
																																					=
																																					BgL_arg2053z00_2112;
																																				BgL_argsz00_7267
																																					=
																																					BgL_cdrzd211644zd2_2106;
																																				BgL_argsz00_1597
																																					=
																																					BgL_argsz00_7267;
																																				BgL_fz00_1596
																																					=
																																					BgL_fz00_7266;
																																				goto
																																					BgL_tagzd2176zd2_1598;
																																			}
																																			return
																																				((obj_t)
																																				BgL_auxz00_7265);
																																		}
																																	}
																															}
																														else
																															{	/* Eval/evaluate.scm 424 */
																																if (
																																	(CAR(
																																			((obj_t)
																																				BgL_ez00_69))
																																		==
																																		BGl_symbol3056z00zz__evaluatez00))
																																	{	/* Eval/evaluate.scm 424 */
																																		if (PAIRP
																																			(BgL_cdrzd211644zd2_2106))
																																			{	/* Eval/evaluate.scm 424 */
																																				obj_t
																																					BgL_carzd211820zd2_2118;
																																				obj_t
																																					BgL_cdrzd211821zd2_2119;
																																				BgL_carzd211820zd2_2118
																																					=
																																					CAR
																																					(BgL_cdrzd211644zd2_2106);
																																				BgL_cdrzd211821zd2_2119
																																					=
																																					CDR
																																					(BgL_cdrzd211644zd2_2106);
																																				if (PAIRP(BgL_carzd211820zd2_2118))
																																					{	/* Eval/evaluate.scm 424 */
																																						obj_t
																																							BgL_cdrzd211825zd2_2121;
																																						BgL_cdrzd211825zd2_2121
																																							=
																																							CDR
																																							(BgL_carzd211820zd2_2118);
																																						if (
																																							(CAR
																																								(BgL_carzd211820zd2_2118)
																																								==
																																								BGl_symbol3042z00zz__evaluatez00))
																																							{	/* Eval/evaluate.scm 424 */
																																								if (PAIRP(BgL_cdrzd211825zd2_2121))
																																									{	/* Eval/evaluate.scm 424 */
																																										obj_t
																																											BgL_carzd211828zd2_2125;
																																										obj_t
																																											BgL_cdrzd211829zd2_2126;
																																										BgL_carzd211828zd2_2125
																																											=
																																											CAR
																																											(BgL_cdrzd211825zd2_2121);
																																										BgL_cdrzd211829zd2_2126
																																											=
																																											CDR
																																											(BgL_cdrzd211825zd2_2121);
																																										if (SYMBOLP(BgL_carzd211828zd2_2125))
																																											{	/* Eval/evaluate.scm 424 */
																																												if (PAIRP(BgL_cdrzd211829zd2_2126))
																																													{	/* Eval/evaluate.scm 424 */
																																														obj_t
																																															BgL_carzd211833zd2_2129;
																																														BgL_carzd211833zd2_2129
																																															=
																																															CAR
																																															(BgL_cdrzd211829zd2_2126);
																																														if (SYMBOLP(BgL_carzd211833zd2_2129))
																																															{	/* Eval/evaluate.scm 424 */
																																																if (NULLP(CDR(BgL_cdrzd211829zd2_2126)))
																																																	{	/* Eval/evaluate.scm 424 */
																																																		if (PAIRP(BgL_cdrzd211821zd2_2119))
																																																			{	/* Eval/evaluate.scm 424 */
																																																				if (NULLP(CDR(BgL_cdrzd211821zd2_2119)))
																																																					{	/* Eval/evaluate.scm 424 */
																																																						obj_t
																																																							BgL_arg2070z00_2136;
																																																						BgL_arg2070z00_2136
																																																							=
																																																							CAR
																																																							(BgL_cdrzd211821zd2_2119);
																																																						{	/* Eval/evaluate.scm 531 */
																																																							BgL_ev_setglobalz00_bglt
																																																								BgL_new1141z00_4375;
																																																							{	/* Eval/evaluate.scm 535 */
																																																								BgL_ev_setglobalz00_bglt
																																																									BgL_new1140z00_4376;
																																																								BgL_new1140z00_4376
																																																									=
																																																									(
																																																									(BgL_ev_setglobalz00_bglt)
																																																									BOBJECT
																																																									(GC_MALLOC
																																																										(sizeof
																																																											(struct
																																																												BgL_ev_setglobalz00_bgl))));
																																																								{	/* Eval/evaluate.scm 535 */
																																																									long
																																																										BgL_arg2398z00_4377;
																																																									BgL_arg2398z00_4377
																																																										=
																																																										BGL_CLASS_NUM
																																																										(BGl_ev_setglobalz00zz__evaluate_typesz00);
																																																									BGL_OBJECT_CLASS_NUM_SET
																																																										(
																																																										((BgL_objectz00_bglt) BgL_new1140z00_4376), BgL_arg2398z00_4377);
																																																								}
																																																								BgL_new1141z00_4375
																																																									=
																																																									BgL_new1140z00_4376;
																																																							}
																																																							{
																																																								BgL_ev_exprz00_bglt
																																																									BgL_auxz00_7307;
																																																								{	/* Eval/evaluate.scm 380 */
																																																									obj_t
																																																										BgL_arg2470z00_4381;
																																																									BgL_arg2470z00_4381
																																																										=
																																																										BGl_getzd2locationzd2zz__evaluatez00
																																																										(BgL_arg2070z00_2136,
																																																										BgL_locz00_74);
																																																									BgL_auxz00_7307
																																																										=
																																																										(
																																																										(BgL_ev_exprz00_bglt)
																																																										BGl_uconvzf2locze70z15zz__evaluatez00
																																																										(BgL_wherez00_73,
																																																											BgL_globalsz00_71,
																																																											BgL_localsz00_70,
																																																											BgL_arg2070z00_2136,
																																																											BgL_arg2470z00_4381));
																																																								}
																																																								((((BgL_ev_hookz00_bglt) COBJECT(((BgL_ev_hookz00_bglt) BgL_new1141z00_4375)))->BgL_ez00) = ((BgL_ev_exprz00_bglt) BgL_auxz00_7307), BUNSPEC);
																																																							}
																																																							((((BgL_ev_setglobalz00_bglt) COBJECT(BgL_new1141z00_4375))->BgL_locz00) = ((obj_t) BgL_locz00_74), BUNSPEC);
																																																							((((BgL_ev_setglobalz00_bglt) COBJECT(BgL_new1141z00_4375))->BgL_namez00) = ((obj_t) BgL_carzd211828zd2_2125), BUNSPEC);
																																																							((((BgL_ev_setglobalz00_bglt) COBJECT(BgL_new1141z00_4375))->BgL_modz00) = ((obj_t) BGl_evalzd2findzd2modulez00zz__evmodulez00(BgL_carzd211833zd2_2129)), BUNSPEC);
																																																							return
																																																								(
																																																								(obj_t)
																																																								BgL_new1141z00_4375);
																																																						}
																																																					}
																																																				else
																																																					{	/* Eval/evaluate.scm 424 */
																																																						return
																																																							BGl_evcompilezd2errorzd2zz__evcompilez00
																																																							(BgL_locz00_74,
																																																							BGl_string2959z00zz__evaluatez00,
																																																							BGl_string3034z00zz__evaluatez00,
																																																							BgL_ez00_69);
																																																					}
																																																			}
																																																		else
																																																			{	/* Eval/evaluate.scm 424 */
																																																				return
																																																					BGl_evcompilezd2errorzd2zz__evcompilez00
																																																					(BgL_locz00_74,
																																																					BGl_string2959z00zz__evaluatez00,
																																																					BGl_string3034z00zz__evaluatez00,
																																																					BgL_ez00_69);
																																																			}
																																																	}
																																																else
																																																	{	/* Eval/evaluate.scm 424 */
																																																		obj_t
																																																			BgL_cdrzd211949zd2_2138;
																																																		BgL_cdrzd211949zd2_2138
																																																			=
																																																			CDR
																																																			(
																																																			((obj_t) BgL_ez00_69));
																																																		{	/* Eval/evaluate.scm 424 */
																																																			obj_t
																																																				BgL_cdrzd211953zd2_2139;
																																																			BgL_cdrzd211953zd2_2139
																																																				=
																																																				CDR
																																																				(
																																																				((obj_t) BgL_cdrzd211949zd2_2138));
																																																			if (PAIRP(BgL_cdrzd211953zd2_2139))
																																																				{	/* Eval/evaluate.scm 424 */
																																																					if (NULLP(CDR(BgL_cdrzd211953zd2_2139)))
																																																						{	/* Eval/evaluate.scm 424 */
																																																							obj_t
																																																								BgL_arg2075z00_2143;
																																																							obj_t
																																																								BgL_arg2076z00_2144;
																																																							BgL_arg2075z00_2143
																																																								=
																																																								CAR
																																																								(
																																																								((obj_t) BgL_cdrzd211949zd2_2138));
																																																							BgL_arg2076z00_2144
																																																								=
																																																								CAR
																																																								(BgL_cdrzd211953zd2_2139);
																																																							{
																																																								BgL_ev_hookz00_bglt
																																																									BgL_auxz00_7332;
																																																								{
																																																									obj_t
																																																										BgL_ez00_7334;
																																																									obj_t
																																																										BgL_vz00_7333;
																																																									BgL_vz00_7333
																																																										=
																																																										BgL_arg2075z00_2143;
																																																									BgL_ez00_7334
																																																										=
																																																										BgL_arg2076z00_2144;
																																																									BgL_ez00_1566
																																																										=
																																																										BgL_ez00_7334;
																																																									BgL_vz00_1565
																																																										=
																																																										BgL_vz00_7333;
																																																									goto
																																																										BgL_tagzd2165zd2_1567;
																																																								}
																																																								return
																																																									(
																																																									(obj_t)
																																																									BgL_auxz00_7332);
																																																							}
																																																						}
																																																					else
																																																						{	/* Eval/evaluate.scm 424 */
																																																							return
																																																								BGl_evcompilezd2errorzd2zz__evcompilez00
																																																								(BgL_locz00_74,
																																																								BGl_string2959z00zz__evaluatez00,
																																																								BGl_string3034z00zz__evaluatez00,
																																																								BgL_ez00_69);
																																																						}
																																																				}
																																																			else
																																																				{	/* Eval/evaluate.scm 424 */
																																																					return
																																																						BGl_evcompilezd2errorzd2zz__evcompilez00
																																																						(BgL_locz00_74,
																																																						BGl_string2959z00zz__evaluatez00,
																																																						BGl_string3034z00zz__evaluatez00,
																																																						BgL_ez00_69);
																																																				}
																																																		}
																																																	}
																																															}
																																														else
																																															{	/* Eval/evaluate.scm 424 */
																																																obj_t
																																																	BgL_cdrzd212010zd2_2147;
																																																BgL_cdrzd212010zd2_2147
																																																	=
																																																	CDR
																																																	(
																																																	((obj_t) BgL_ez00_69));
																																																{	/* Eval/evaluate.scm 424 */
																																																	obj_t
																																																		BgL_cdrzd212014zd2_2148;
																																																	BgL_cdrzd212014zd2_2148
																																																		=
																																																		CDR
																																																		(
																																																		((obj_t) BgL_cdrzd212010zd2_2147));
																																																	if (PAIRP(BgL_cdrzd212014zd2_2148))
																																																		{	/* Eval/evaluate.scm 424 */
																																																			if (NULLP(CDR(BgL_cdrzd212014zd2_2148)))
																																																				{	/* Eval/evaluate.scm 424 */
																																																					obj_t
																																																						BgL_arg2082z00_2152;
																																																					obj_t
																																																						BgL_arg2083z00_2153;
																																																					BgL_arg2082z00_2152
																																																						=
																																																						CAR
																																																						(
																																																						((obj_t) BgL_cdrzd212010zd2_2147));
																																																					BgL_arg2083z00_2153
																																																						=
																																																						CAR
																																																						(BgL_cdrzd212014zd2_2148);
																																																					{
																																																						BgL_ev_hookz00_bglt
																																																							BgL_auxz00_7350;
																																																						{
																																																							obj_t
																																																								BgL_ez00_7352;
																																																							obj_t
																																																								BgL_vz00_7351;
																																																							BgL_vz00_7351
																																																								=
																																																								BgL_arg2082z00_2152;
																																																							BgL_ez00_7352
																																																								=
																																																								BgL_arg2083z00_2153;
																																																							BgL_ez00_1566
																																																								=
																																																								BgL_ez00_7352;
																																																							BgL_vz00_1565
																																																								=
																																																								BgL_vz00_7351;
																																																							goto
																																																								BgL_tagzd2165zd2_1567;
																																																						}
																																																						return
																																																							(
																																																							(obj_t)
																																																							BgL_auxz00_7350);
																																																					}
																																																				}
																																																			else
																																																				{	/* Eval/evaluate.scm 424 */
																																																					return
																																																						BGl_evcompilezd2errorzd2zz__evcompilez00
																																																						(BgL_locz00_74,
																																																						BGl_string2959z00zz__evaluatez00,
																																																						BGl_string3034z00zz__evaluatez00,
																																																						BgL_ez00_69);
																																																				}
																																																		}
																																																	else
																																																		{	/* Eval/evaluate.scm 424 */
																																																			return
																																																				BGl_evcompilezd2errorzd2zz__evcompilez00
																																																				(BgL_locz00_74,
																																																				BGl_string2959z00zz__evaluatez00,
																																																				BGl_string3034z00zz__evaluatez00,
																																																				BgL_ez00_69);
																																																		}
																																																}
																																															}
																																													}
																																												else
																																													{	/* Eval/evaluate.scm 424 */
																																														obj_t
																																															BgL_cdrzd212071zd2_2155;
																																														BgL_cdrzd212071zd2_2155
																																															=
																																															CDR
																																															(
																																															((obj_t) BgL_ez00_69));
																																														{	/* Eval/evaluate.scm 424 */
																																															obj_t
																																																BgL_cdrzd212075zd2_2156;
																																															BgL_cdrzd212075zd2_2156
																																																=
																																																CDR
																																																(
																																																((obj_t) BgL_cdrzd212071zd2_2155));
																																															if (PAIRP(BgL_cdrzd212075zd2_2156))
																																																{	/* Eval/evaluate.scm 424 */
																																																	if (NULLP(CDR(BgL_cdrzd212075zd2_2156)))
																																																		{	/* Eval/evaluate.scm 424 */
																																																			obj_t
																																																				BgL_arg2088z00_2160;
																																																			obj_t
																																																				BgL_arg2089z00_2161;
																																																			BgL_arg2088z00_2160
																																																				=
																																																				CAR
																																																				(
																																																				((obj_t) BgL_cdrzd212071zd2_2155));
																																																			BgL_arg2089z00_2161
																																																				=
																																																				CAR
																																																				(BgL_cdrzd212075zd2_2156);
																																																			{
																																																				BgL_ev_hookz00_bglt
																																																					BgL_auxz00_7368;
																																																				{
																																																					obj_t
																																																						BgL_ez00_7370;
																																																					obj_t
																																																						BgL_vz00_7369;
																																																					BgL_vz00_7369
																																																						=
																																																						BgL_arg2088z00_2160;
																																																					BgL_ez00_7370
																																																						=
																																																						BgL_arg2089z00_2161;
																																																					BgL_ez00_1566
																																																						=
																																																						BgL_ez00_7370;
																																																					BgL_vz00_1565
																																																						=
																																																						BgL_vz00_7369;
																																																					goto
																																																						BgL_tagzd2165zd2_1567;
																																																				}
																																																				return
																																																					(
																																																					(obj_t)
																																																					BgL_auxz00_7368);
																																																			}
																																																		}
																																																	else
																																																		{	/* Eval/evaluate.scm 424 */
																																																			return
																																																				BGl_evcompilezd2errorzd2zz__evcompilez00
																																																				(BgL_locz00_74,
																																																				BGl_string2959z00zz__evaluatez00,
																																																				BGl_string3034z00zz__evaluatez00,
																																																				BgL_ez00_69);
																																																		}
																																																}
																																															else
																																																{	/* Eval/evaluate.scm 424 */
																																																	return
																																																		BGl_evcompilezd2errorzd2zz__evcompilez00
																																																		(BgL_locz00_74,
																																																		BGl_string2959z00zz__evaluatez00,
																																																		BGl_string3034z00zz__evaluatez00,
																																																		BgL_ez00_69);
																																																}
																																														}
																																													}
																																											}
																																										else
																																											{	/* Eval/evaluate.scm 424 */
																																												obj_t
																																													BgL_cdrzd212132zd2_2163;
																																												BgL_cdrzd212132zd2_2163
																																													=
																																													CDR
																																													(
																																													((obj_t) BgL_ez00_69));
																																												{	/* Eval/evaluate.scm 424 */
																																													obj_t
																																														BgL_cdrzd212136zd2_2164;
																																													BgL_cdrzd212136zd2_2164
																																														=
																																														CDR
																																														(
																																														((obj_t) BgL_cdrzd212132zd2_2163));
																																													if (PAIRP(BgL_cdrzd212136zd2_2164))
																																														{	/* Eval/evaluate.scm 424 */
																																															if (NULLP(CDR(BgL_cdrzd212136zd2_2164)))
																																																{	/* Eval/evaluate.scm 424 */
																																																	obj_t
																																																		BgL_arg2094z00_2168;
																																																	obj_t
																																																		BgL_arg2095z00_2169;
																																																	BgL_arg2094z00_2168
																																																		=
																																																		CAR
																																																		(
																																																		((obj_t) BgL_cdrzd212132zd2_2163));
																																																	BgL_arg2095z00_2169
																																																		=
																																																		CAR
																																																		(BgL_cdrzd212136zd2_2164);
																																																	{
																																																		BgL_ev_hookz00_bglt
																																																			BgL_auxz00_7386;
																																																		{
																																																			obj_t
																																																				BgL_ez00_7388;
																																																			obj_t
																																																				BgL_vz00_7387;
																																																			BgL_vz00_7387
																																																				=
																																																				BgL_arg2094z00_2168;
																																																			BgL_ez00_7388
																																																				=
																																																				BgL_arg2095z00_2169;
																																																			BgL_ez00_1566
																																																				=
																																																				BgL_ez00_7388;
																																																			BgL_vz00_1565
																																																				=
																																																				BgL_vz00_7387;
																																																			goto
																																																				BgL_tagzd2165zd2_1567;
																																																		}
																																																		return
																																																			(
																																																			(obj_t)
																																																			BgL_auxz00_7386);
																																																	}
																																																}
																																															else
																																																{	/* Eval/evaluate.scm 424 */
																																																	return
																																																		BGl_evcompilezd2errorzd2zz__evcompilez00
																																																		(BgL_locz00_74,
																																																		BGl_string2959z00zz__evaluatez00,
																																																		BGl_string3034z00zz__evaluatez00,
																																																		BgL_ez00_69);
																																																}
																																														}
																																													else
																																														{	/* Eval/evaluate.scm 424 */
																																															return
																																																BGl_evcompilezd2errorzd2zz__evcompilez00
																																																(BgL_locz00_74,
																																																BGl_string2959z00zz__evaluatez00,
																																																BGl_string3034z00zz__evaluatez00,
																																																BgL_ez00_69);
																																														}
																																												}
																																											}
																																									}
																																								else
																																									{	/* Eval/evaluate.scm 424 */
																																										obj_t
																																											BgL_cdrzd212193zd2_2171;
																																										BgL_cdrzd212193zd2_2171
																																											=
																																											CDR
																																											(
																																											((obj_t) BgL_ez00_69));
																																										{	/* Eval/evaluate.scm 424 */
																																											obj_t
																																												BgL_cdrzd212197zd2_2172;
																																											BgL_cdrzd212197zd2_2172
																																												=
																																												CDR
																																												(
																																												((obj_t) BgL_cdrzd212193zd2_2171));
																																											if (PAIRP(BgL_cdrzd212197zd2_2172))
																																												{	/* Eval/evaluate.scm 424 */
																																													if (NULLP(CDR(BgL_cdrzd212197zd2_2172)))
																																														{	/* Eval/evaluate.scm 424 */
																																															obj_t
																																																BgL_arg2100z00_2176;
																																															obj_t
																																																BgL_arg2101z00_2177;
																																															BgL_arg2100z00_2176
																																																=
																																																CAR
																																																(
																																																((obj_t) BgL_cdrzd212193zd2_2171));
																																															BgL_arg2101z00_2177
																																																=
																																																CAR
																																																(BgL_cdrzd212197zd2_2172);
																																															{
																																																BgL_ev_hookz00_bglt
																																																	BgL_auxz00_7404;
																																																{
																																																	obj_t
																																																		BgL_ez00_7406;
																																																	obj_t
																																																		BgL_vz00_7405;
																																																	BgL_vz00_7405
																																																		=
																																																		BgL_arg2100z00_2176;
																																																	BgL_ez00_7406
																																																		=
																																																		BgL_arg2101z00_2177;
																																																	BgL_ez00_1566
																																																		=
																																																		BgL_ez00_7406;
																																																	BgL_vz00_1565
																																																		=
																																																		BgL_vz00_7405;
																																																	goto
																																																		BgL_tagzd2165zd2_1567;
																																																}
																																																return
																																																	(
																																																	(obj_t)
																																																	BgL_auxz00_7404);
																																															}
																																														}
																																													else
																																														{	/* Eval/evaluate.scm 424 */
																																															return
																																																BGl_evcompilezd2errorzd2zz__evcompilez00
																																																(BgL_locz00_74,
																																																BGl_string2959z00zz__evaluatez00,
																																																BGl_string3034z00zz__evaluatez00,
																																																BgL_ez00_69);
																																														}
																																												}
																																											else
																																												{	/* Eval/evaluate.scm 424 */
																																													return
																																														BGl_evcompilezd2errorzd2zz__evcompilez00
																																														(BgL_locz00_74,
																																														BGl_string2959z00zz__evaluatez00,
																																														BGl_string3034z00zz__evaluatez00,
																																														BgL_ez00_69);
																																												}
																																										}
																																									}
																																							}
																																						else
																																							{	/* Eval/evaluate.scm 424 */
																																								obj_t
																																									BgL_cdrzd212241zd2_2179;
																																								BgL_cdrzd212241zd2_2179
																																									=
																																									CDR
																																									(
																																									((obj_t) BgL_ez00_69));
																																								{	/* Eval/evaluate.scm 424 */
																																									obj_t
																																										BgL_carzd212244zd2_2180;
																																									obj_t
																																										BgL_cdrzd212245zd2_2181;
																																									BgL_carzd212244zd2_2180
																																										=
																																										CAR
																																										(
																																										((obj_t) BgL_cdrzd212241zd2_2179));
																																									BgL_cdrzd212245zd2_2181
																																										=
																																										CDR
																																										(
																																										((obj_t) BgL_cdrzd212241zd2_2179));
																																									if ((CAR(((obj_t) BgL_carzd212244zd2_2180)) == BGl_symbol3044z00zz__evaluatez00))
																																										{	/* Eval/evaluate.scm 424 */
																																											if (PAIRP(BgL_cdrzd212245zd2_2181))
																																												{	/* Eval/evaluate.scm 424 */
																																													if (NULLP(CDR(BgL_cdrzd212245zd2_2181)))
																																														{	/* Eval/evaluate.scm 424 */
																																															obj_t
																																																BgL_arg2108z00_2187;
																																															obj_t
																																																BgL_arg2109z00_2188;
																																															BgL_arg2108z00_2187
																																																=
																																																CDR
																																																(
																																																((obj_t) BgL_carzd212244zd2_2180));
																																															BgL_arg2109z00_2188
																																																=
																																																CAR
																																																(BgL_cdrzd212245zd2_2181);
																																															{
																																																obj_t
																																																	BgL_e2z00_7429;
																																																obj_t
																																																	BgL_lz00_7428;
																																																BgL_lz00_7428
																																																	=
																																																	BgL_arg2108z00_2187;
																																																BgL_e2z00_7429
																																																	=
																																																	BgL_arg2109z00_2188;
																																																BgL_e2z00_1563
																																																	=
																																																	BgL_e2z00_7429;
																																																BgL_lz00_1562
																																																	=
																																																	BgL_lz00_7428;
																																																goto
																																																	BgL_tagzd2164zd2_1564;
																																															}
																																														}
																																													else
																																														{	/* Eval/evaluate.scm 424 */
																																															return
																																																BGl_evcompilezd2errorzd2zz__evcompilez00
																																																(BgL_locz00_74,
																																																BGl_string2959z00zz__evaluatez00,
																																																BGl_string3034z00zz__evaluatez00,
																																																BgL_ez00_69);
																																														}
																																												}
																																											else
																																												{	/* Eval/evaluate.scm 424 */
																																													return
																																														BGl_evcompilezd2errorzd2zz__evcompilez00
																																														(BgL_locz00_74,
																																														BGl_string2959z00zz__evaluatez00,
																																														BGl_string3034z00zz__evaluatez00,
																																														BgL_ez00_69);
																																												}
																																										}
																																									else
																																										{	/* Eval/evaluate.scm 424 */
																																											obj_t
																																												BgL_cdrzd212321zd2_2191;
																																											BgL_cdrzd212321zd2_2191
																																												=
																																												CDR
																																												(
																																												((obj_t) BgL_cdrzd212241zd2_2179));
																																											if (PAIRP(BgL_cdrzd212321zd2_2191))
																																												{	/* Eval/evaluate.scm 424 */
																																													if (NULLP(CDR(BgL_cdrzd212321zd2_2191)))
																																														{	/* Eval/evaluate.scm 424 */
																																															obj_t
																																																BgL_arg2114z00_2195;
																																															obj_t
																																																BgL_arg2115z00_2196;
																																															BgL_arg2114z00_2195
																																																=
																																																CAR
																																																(
																																																((obj_t) BgL_cdrzd212241zd2_2179));
																																															BgL_arg2115z00_2196
																																																=
																																																CAR
																																																(BgL_cdrzd212321zd2_2191);
																																															{
																																																BgL_ev_hookz00_bglt
																																																	BgL_auxz00_7442;
																																																{
																																																	obj_t
																																																		BgL_ez00_7444;
																																																	obj_t
																																																		BgL_vz00_7443;
																																																	BgL_vz00_7443
																																																		=
																																																		BgL_arg2114z00_2195;
																																																	BgL_ez00_7444
																																																		=
																																																		BgL_arg2115z00_2196;
																																																	BgL_ez00_1566
																																																		=
																																																		BgL_ez00_7444;
																																																	BgL_vz00_1565
																																																		=
																																																		BgL_vz00_7443;
																																																	goto
																																																		BgL_tagzd2165zd2_1567;
																																																}
																																																return
																																																	(
																																																	(obj_t)
																																																	BgL_auxz00_7442);
																																															}
																																														}
																																													else
																																														{	/* Eval/evaluate.scm 424 */
																																															return
																																																BGl_evcompilezd2errorzd2zz__evcompilez00
																																																(BgL_locz00_74,
																																																BGl_string2959z00zz__evaluatez00,
																																																BGl_string3034z00zz__evaluatez00,
																																																BgL_ez00_69);
																																														}
																																												}
																																											else
																																												{	/* Eval/evaluate.scm 424 */
																																													return
																																														BGl_evcompilezd2errorzd2zz__evcompilez00
																																														(BgL_locz00_74,
																																														BGl_string2959z00zz__evaluatez00,
																																														BGl_string3034z00zz__evaluatez00,
																																														BgL_ez00_69);
																																												}
																																										}
																																								}
																																							}
																																					}
																																				else
																																					{	/* Eval/evaluate.scm 424 */
																																						obj_t
																																							BgL_cdrzd212378zd2_2200;
																																						BgL_cdrzd212378zd2_2200
																																							=
																																							CDR
																																							(((obj_t) BgL_ez00_69));
																																						{	/* Eval/evaluate.scm 424 */
																																							obj_t
																																								BgL_cdrzd212382zd2_2201;
																																							BgL_cdrzd212382zd2_2201
																																								=
																																								CDR
																																								(
																																								((obj_t) BgL_cdrzd212378zd2_2200));
																																							if (PAIRP(BgL_cdrzd212382zd2_2201))
																																								{	/* Eval/evaluate.scm 424 */
																																									if (NULLP(CDR(BgL_cdrzd212382zd2_2201)))
																																										{	/* Eval/evaluate.scm 424 */
																																											obj_t
																																												BgL_arg2122z00_2205;
																																											obj_t
																																												BgL_arg2123z00_2206;
																																											BgL_arg2122z00_2205
																																												=
																																												CAR
																																												(
																																												((obj_t) BgL_cdrzd212378zd2_2200));
																																											BgL_arg2123z00_2206
																																												=
																																												CAR
																																												(BgL_cdrzd212382zd2_2201);
																																											{
																																												BgL_ev_hookz00_bglt
																																													BgL_auxz00_7460;
																																												{
																																													obj_t
																																														BgL_ez00_7462;
																																													obj_t
																																														BgL_vz00_7461;
																																													BgL_vz00_7461
																																														=
																																														BgL_arg2122z00_2205;
																																													BgL_ez00_7462
																																														=
																																														BgL_arg2123z00_2206;
																																													BgL_ez00_1566
																																														=
																																														BgL_ez00_7462;
																																													BgL_vz00_1565
																																														=
																																														BgL_vz00_7461;
																																													goto
																																														BgL_tagzd2165zd2_1567;
																																												}
																																												return
																																													(
																																													(obj_t)
																																													BgL_auxz00_7460);
																																											}
																																										}
																																									else
																																										{	/* Eval/evaluate.scm 424 */
																																											return
																																												BGl_evcompilezd2errorzd2zz__evcompilez00
																																												(BgL_locz00_74,
																																												BGl_string2959z00zz__evaluatez00,
																																												BGl_string3034z00zz__evaluatez00,
																																												BgL_ez00_69);
																																										}
																																								}
																																							else
																																								{	/* Eval/evaluate.scm 424 */
																																									return
																																										BGl_evcompilezd2errorzd2zz__evcompilez00
																																										(BgL_locz00_74,
																																										BGl_string2959z00zz__evaluatez00,
																																										BGl_string3034z00zz__evaluatez00,
																																										BgL_ez00_69);
																																								}
																																						}
																																					}
																																			}
																																		else
																																			{	/* Eval/evaluate.scm 424 */
																																				return
																																					BGl_evcompilezd2errorzd2zz__evcompilez00
																																					(BgL_locz00_74,
																																					BGl_string2959z00zz__evaluatez00,
																																					BGl_string3034z00zz__evaluatez00,
																																					BgL_ez00_69);
																																			}
																																	}
																																else
																																	{	/* Eval/evaluate.scm 424 */
																																		obj_t
																																			BgL_cdrzd212503zd2_2208;
																																		BgL_cdrzd212503zd2_2208
																																			=
																																			CDR((
																																				(obj_t)
																																				BgL_ez00_69));
																																		if ((CAR((
																																						(obj_t)
																																						BgL_ez00_69))
																																				==
																																				BGl_symbol3058z00zz__evaluatez00))
																																			{	/* Eval/evaluate.scm 424 */
																																				if (PAIRP(BgL_cdrzd212503zd2_2208))
																																					{	/* Eval/evaluate.scm 424 */
																																						obj_t
																																							BgL_cdrzd212508zd2_2212;
																																						BgL_cdrzd212508zd2_2212
																																							=
																																							CDR
																																							(BgL_cdrzd212503zd2_2208);
																																						if (PAIRP(BgL_cdrzd212508zd2_2212))
																																							{	/* Eval/evaluate.scm 424 */
																																								obj_t
																																									BgL_carzd212512zd2_2214;
																																								BgL_carzd212512zd2_2214
																																									=
																																									CAR
																																									(BgL_cdrzd212508zd2_2212);
																																								if (PAIRP(BgL_carzd212512zd2_2214))
																																									{	/* Eval/evaluate.scm 424 */
																																										obj_t
																																											BgL_cdrzd212517zd2_2216;
																																										BgL_cdrzd212517zd2_2216
																																											=
																																											CDR
																																											(BgL_carzd212512zd2_2214);
																																										if ((CAR(BgL_carzd212512zd2_2214) == BGl_symbol3023z00zz__evaluatez00))
																																											{	/* Eval/evaluate.scm 424 */
																																												if (PAIRP(BgL_cdrzd212517zd2_2216))
																																													{	/* Eval/evaluate.scm 424 */
																																														obj_t
																																															BgL_cdrzd212521zd2_2220;
																																														BgL_cdrzd212521zd2_2220
																																															=
																																															CDR
																																															(BgL_cdrzd212517zd2_2216);
																																														if (PAIRP(BgL_cdrzd212521zd2_2220))
																																															{	/* Eval/evaluate.scm 424 */
																																																if (NULLP(CDR(BgL_cdrzd212521zd2_2220)))
																																																	{	/* Eval/evaluate.scm 424 */
																																																		if (NULLP(CDR(BgL_cdrzd212508zd2_2212)))
																																																			{	/* Eval/evaluate.scm 424 */
																																																				obj_t
																																																					BgL_arg2138z00_2226;
																																																				obj_t
																																																					BgL_arg2139z00_2227;
																																																				obj_t
																																																					BgL_arg2141z00_2228;
																																																				BgL_arg2138z00_2226
																																																					=
																																																					CAR
																																																					(BgL_cdrzd212503zd2_2208);
																																																				BgL_arg2139z00_2227
																																																					=
																																																					CAR
																																																					(BgL_cdrzd212517zd2_2216);
																																																				BgL_arg2141z00_2228
																																																					=
																																																					CAR
																																																					(BgL_cdrzd212521zd2_2220);
																																																				{
																																																					BgL_ev_defglobalz00_bglt
																																																						BgL_auxz00_7499;
																																																					{
																																																						obj_t
																																																							BgL_bodyz00_7502;
																																																						obj_t
																																																							BgL_formalsz00_7501;
																																																						obj_t
																																																							BgL_gvz00_7500;
																																																						BgL_gvz00_7500
																																																							=
																																																							BgL_arg2138z00_2226;
																																																						BgL_formalsz00_7501
																																																							=
																																																							BgL_arg2139z00_2227;
																																																						BgL_bodyz00_7502
																																																							=
																																																							BgL_arg2141z00_2228;
																																																						BgL_bodyz00_1571
																																																							=
																																																							BgL_bodyz00_7502;
																																																						BgL_formalsz00_1570
																																																							=
																																																							BgL_formalsz00_7501;
																																																						BgL_gvz00_1569
																																																							=
																																																							BgL_gvz00_7500;
																																																						goto
																																																							BgL_tagzd2167zd2_1572;
																																																					}
																																																					return
																																																						(
																																																						(obj_t)
																																																						BgL_auxz00_7499);
																																																				}
																																																			}
																																																		else
																																																			{	/* Eval/evaluate.scm 424 */
																																																				obj_t
																																																					BgL_arg2142z00_2229;
																																																				BgL_arg2142z00_2229
																																																					=
																																																					CAR
																																																					(
																																																					((obj_t) BgL_ez00_69));
																																																				{
																																																					BgL_ev_appz00_bglt
																																																						BgL_auxz00_7506;
																																																					{
																																																						obj_t
																																																							BgL_argsz00_7508;
																																																						obj_t
																																																							BgL_fz00_7507;
																																																						BgL_fz00_7507
																																																							=
																																																							BgL_arg2142z00_2229;
																																																						BgL_argsz00_7508
																																																							=
																																																							BgL_cdrzd212503zd2_2208;
																																																						BgL_argsz00_1597
																																																							=
																																																							BgL_argsz00_7508;
																																																						BgL_fz00_1596
																																																							=
																																																							BgL_fz00_7507;
																																																						goto
																																																							BgL_tagzd2176zd2_1598;
																																																					}
																																																					return
																																																						(
																																																						(obj_t)
																																																						BgL_auxz00_7506);
																																																				}
																																																			}
																																																	}
																																																else
																																																	{	/* Eval/evaluate.scm 424 */
																																																		obj_t
																																																			BgL_cdrzd212623zd2_2233;
																																																		BgL_cdrzd212623zd2_2233
																																																			=
																																																			CDR
																																																			(
																																																			((obj_t) BgL_cdrzd212503zd2_2208));
																																																		if (NULLP(CDR(((obj_t) BgL_cdrzd212623zd2_2233))))
																																																			{	/* Eval/evaluate.scm 424 */
																																																				obj_t
																																																					BgL_arg2147z00_2236;
																																																				obj_t
																																																					BgL_arg2148z00_2237;
																																																				BgL_arg2147z00_2236
																																																					=
																																																					CAR
																																																					(
																																																					((obj_t) BgL_cdrzd212503zd2_2208));
																																																				BgL_arg2148z00_2237
																																																					=
																																																					CAR
																																																					(
																																																					((obj_t) BgL_cdrzd212623zd2_2233));
																																																				{
																																																					BgL_ev_defglobalz00_bglt
																																																						BgL_auxz00_7520;
																																																					{
																																																						obj_t
																																																							BgL_gez00_7522;
																																																						obj_t
																																																							BgL_gvz00_7521;
																																																						BgL_gvz00_7521
																																																							=
																																																							BgL_arg2147z00_2236;
																																																						BgL_gez00_7522
																																																							=
																																																							BgL_arg2148z00_2237;
																																																						BgL_gez00_1574
																																																							=
																																																							BgL_gez00_7522;
																																																						BgL_gvz00_1573
																																																							=
																																																							BgL_gvz00_7521;
																																																						goto
																																																							BgL_tagzd2168zd2_1575;
																																																					}
																																																					return
																																																						(
																																																						(obj_t)
																																																						BgL_auxz00_7520);
																																																				}
																																																			}
																																																		else
																																																			{	/* Eval/evaluate.scm 424 */
																																																				obj_t
																																																					BgL_arg2149z00_2238;
																																																				obj_t
																																																					BgL_arg2150z00_2239;
																																																				BgL_arg2149z00_2238
																																																					=
																																																					CAR
																																																					(
																																																					((obj_t) BgL_ez00_69));
																																																				BgL_arg2150z00_2239
																																																					=
																																																					CDR
																																																					(
																																																					((obj_t) BgL_ez00_69));
																																																				{
																																																					BgL_ev_appz00_bglt
																																																						BgL_auxz00_7528;
																																																					{
																																																						obj_t
																																																							BgL_argsz00_7530;
																																																						obj_t
																																																							BgL_fz00_7529;
																																																						BgL_fz00_7529
																																																							=
																																																							BgL_arg2149z00_2238;
																																																						BgL_argsz00_7530
																																																							=
																																																							BgL_arg2150z00_2239;
																																																						BgL_argsz00_1597
																																																							=
																																																							BgL_argsz00_7530;
																																																						BgL_fz00_1596
																																																							=
																																																							BgL_fz00_7529;
																																																						goto
																																																							BgL_tagzd2176zd2_1598;
																																																					}
																																																					return
																																																						(
																																																						(obj_t)
																																																						BgL_auxz00_7528);
																																																				}
																																																			}
																																																	}
																																															}
																																														else
																																															{	/* Eval/evaluate.scm 424 */
																																																obj_t
																																																	BgL_cdrzd212712zd2_2243;
																																																BgL_cdrzd212712zd2_2243
																																																	=
																																																	CDR
																																																	(
																																																	((obj_t) BgL_cdrzd212503zd2_2208));
																																																if (NULLP(CDR(((obj_t) BgL_cdrzd212712zd2_2243))))
																																																	{	/* Eval/evaluate.scm 424 */
																																																		obj_t
																																																			BgL_arg2155z00_2246;
																																																		obj_t
																																																			BgL_arg2156z00_2247;
																																																		BgL_arg2155z00_2246
																																																			=
																																																			CAR
																																																			(
																																																			((obj_t) BgL_cdrzd212503zd2_2208));
																																																		BgL_arg2156z00_2247
																																																			=
																																																			CAR
																																																			(
																																																			((obj_t) BgL_cdrzd212712zd2_2243));
																																																		{
																																																			BgL_ev_defglobalz00_bglt
																																																				BgL_auxz00_7542;
																																																			{
																																																				obj_t
																																																					BgL_gez00_7544;
																																																				obj_t
																																																					BgL_gvz00_7543;
																																																				BgL_gvz00_7543
																																																					=
																																																					BgL_arg2155z00_2246;
																																																				BgL_gez00_7544
																																																					=
																																																					BgL_arg2156z00_2247;
																																																				BgL_gez00_1574
																																																					=
																																																					BgL_gez00_7544;
																																																				BgL_gvz00_1573
																																																					=
																																																					BgL_gvz00_7543;
																																																				goto
																																																					BgL_tagzd2168zd2_1575;
																																																			}
																																																			return
																																																				(
																																																				(obj_t)
																																																				BgL_auxz00_7542);
																																																		}
																																																	}
																																																else
																																																	{	/* Eval/evaluate.scm 424 */
																																																		obj_t
																																																			BgL_arg2157z00_2248;
																																																		obj_t
																																																			BgL_arg2158z00_2249;
																																																		BgL_arg2157z00_2248
																																																			=
																																																			CAR
																																																			(
																																																			((obj_t) BgL_ez00_69));
																																																		BgL_arg2158z00_2249
																																																			=
																																																			CDR
																																																			(
																																																			((obj_t) BgL_ez00_69));
																																																		{
																																																			BgL_ev_appz00_bglt
																																																				BgL_auxz00_7550;
																																																			{
																																																				obj_t
																																																					BgL_argsz00_7552;
																																																				obj_t
																																																					BgL_fz00_7551;
																																																				BgL_fz00_7551
																																																					=
																																																					BgL_arg2157z00_2248;
																																																				BgL_argsz00_7552
																																																					=
																																																					BgL_arg2158z00_2249;
																																																				BgL_argsz00_1597
																																																					=
																																																					BgL_argsz00_7552;
																																																				BgL_fz00_1596
																																																					=
																																																					BgL_fz00_7551;
																																																				goto
																																																					BgL_tagzd2176zd2_1598;
																																																			}
																																																			return
																																																				(
																																																				(obj_t)
																																																				BgL_auxz00_7550);
																																																		}
																																																	}
																																															}
																																													}
																																												else
																																													{	/* Eval/evaluate.scm 424 */
																																														obj_t
																																															BgL_cdrzd212801zd2_2252;
																																														BgL_cdrzd212801zd2_2252
																																															=
																																															CDR
																																															(
																																															((obj_t) BgL_cdrzd212503zd2_2208));
																																														if (NULLP(CDR(((obj_t) BgL_cdrzd212801zd2_2252))))
																																															{	/* Eval/evaluate.scm 424 */
																																																obj_t
																																																	BgL_arg2162z00_2255;
																																																obj_t
																																																	BgL_arg2163z00_2256;
																																																BgL_arg2162z00_2255
																																																	=
																																																	CAR
																																																	(
																																																	((obj_t) BgL_cdrzd212503zd2_2208));
																																																BgL_arg2163z00_2256
																																																	=
																																																	CAR
																																																	(
																																																	((obj_t) BgL_cdrzd212801zd2_2252));
																																																{
																																																	BgL_ev_defglobalz00_bglt
																																																		BgL_auxz00_7564;
																																																	{
																																																		obj_t
																																																			BgL_gez00_7566;
																																																		obj_t
																																																			BgL_gvz00_7565;
																																																		BgL_gvz00_7565
																																																			=
																																																			BgL_arg2162z00_2255;
																																																		BgL_gez00_7566
																																																			=
																																																			BgL_arg2163z00_2256;
																																																		BgL_gez00_1574
																																																			=
																																																			BgL_gez00_7566;
																																																		BgL_gvz00_1573
																																																			=
																																																			BgL_gvz00_7565;
																																																		goto
																																																			BgL_tagzd2168zd2_1575;
																																																	}
																																																	return
																																																		(
																																																		(obj_t)
																																																		BgL_auxz00_7564);
																																																}
																																															}
																																														else
																																															{	/* Eval/evaluate.scm 424 */
																																																obj_t
																																																	BgL_arg2164z00_2257;
																																																obj_t
																																																	BgL_arg2165z00_2258;
																																																BgL_arg2164z00_2257
																																																	=
																																																	CAR
																																																	(
																																																	((obj_t) BgL_ez00_69));
																																																BgL_arg2165z00_2258
																																																	=
																																																	CDR
																																																	(
																																																	((obj_t) BgL_ez00_69));
																																																{
																																																	BgL_ev_appz00_bglt
																																																		BgL_auxz00_7572;
																																																	{
																																																		obj_t
																																																			BgL_argsz00_7574;
																																																		obj_t
																																																			BgL_fz00_7573;
																																																		BgL_fz00_7573
																																																			=
																																																			BgL_arg2164z00_2257;
																																																		BgL_argsz00_7574
																																																			=
																																																			BgL_arg2165z00_2258;
																																																		BgL_argsz00_1597
																																																			=
																																																			BgL_argsz00_7574;
																																																		BgL_fz00_1596
																																																			=
																																																			BgL_fz00_7573;
																																																		goto
																																																			BgL_tagzd2176zd2_1598;
																																																	}
																																																	return
																																																		(
																																																		(obj_t)
																																																		BgL_auxz00_7572);
																																																}
																																															}
																																													}
																																											}
																																										else
																																											{	/* Eval/evaluate.scm 424 */
																																												obj_t
																																													BgL_cdrzd212890zd2_2261;
																																												BgL_cdrzd212890zd2_2261
																																													=
																																													CDR
																																													(
																																													((obj_t) BgL_cdrzd212503zd2_2208));
																																												if (NULLP(CDR(((obj_t) BgL_cdrzd212890zd2_2261))))
																																													{	/* Eval/evaluate.scm 424 */
																																														obj_t
																																															BgL_arg2169z00_2264;
																																														obj_t
																																															BgL_arg2170z00_2265;
																																														BgL_arg2169z00_2264
																																															=
																																															CAR
																																															(
																																															((obj_t) BgL_cdrzd212503zd2_2208));
																																														BgL_arg2170z00_2265
																																															=
																																															CAR
																																															(
																																															((obj_t) BgL_cdrzd212890zd2_2261));
																																														{
																																															BgL_ev_defglobalz00_bglt
																																																BgL_auxz00_7586;
																																															{
																																																obj_t
																																																	BgL_gez00_7588;
																																																obj_t
																																																	BgL_gvz00_7587;
																																																BgL_gvz00_7587
																																																	=
																																																	BgL_arg2169z00_2264;
																																																BgL_gez00_7588
																																																	=
																																																	BgL_arg2170z00_2265;
																																																BgL_gez00_1574
																																																	=
																																																	BgL_gez00_7588;
																																																BgL_gvz00_1573
																																																	=
																																																	BgL_gvz00_7587;
																																																goto
																																																	BgL_tagzd2168zd2_1575;
																																															}
																																															return
																																																(
																																																(obj_t)
																																																BgL_auxz00_7586);
																																														}
																																													}
																																												else
																																													{	/* Eval/evaluate.scm 424 */
																																														obj_t
																																															BgL_arg2171z00_2266;
																																														obj_t
																																															BgL_arg2172z00_2267;
																																														BgL_arg2171z00_2266
																																															=
																																															CAR
																																															(
																																															((obj_t) BgL_ez00_69));
																																														BgL_arg2172z00_2267
																																															=
																																															CDR
																																															(
																																															((obj_t) BgL_ez00_69));
																																														{
																																															BgL_ev_appz00_bglt
																																																BgL_auxz00_7594;
																																															{
																																																obj_t
																																																	BgL_argsz00_7596;
																																																obj_t
																																																	BgL_fz00_7595;
																																																BgL_fz00_7595
																																																	=
																																																	BgL_arg2171z00_2266;
																																																BgL_argsz00_7596
																																																	=
																																																	BgL_arg2172z00_2267;
																																																BgL_argsz00_1597
																																																	=
																																																	BgL_argsz00_7596;
																																																BgL_fz00_1596
																																																	=
																																																	BgL_fz00_7595;
																																																goto
																																																	BgL_tagzd2176zd2_1598;
																																															}
																																															return
																																																(
																																																(obj_t)
																																																BgL_auxz00_7594);
																																														}
																																													}
																																											}
																																									}
																																								else
																																									{	/* Eval/evaluate.scm 424 */
																																										obj_t
																																											BgL_cdrzd212979zd2_2271;
																																										BgL_cdrzd212979zd2_2271
																																											=
																																											CDR
																																											(
																																											((obj_t) BgL_cdrzd212503zd2_2208));
																																										if (NULLP(CDR(((obj_t) BgL_cdrzd212979zd2_2271))))
																																											{	/* Eval/evaluate.scm 424 */
																																												obj_t
																																													BgL_arg2177z00_2274;
																																												obj_t
																																													BgL_arg2178z00_2275;
																																												BgL_arg2177z00_2274
																																													=
																																													CAR
																																													(
																																													((obj_t) BgL_cdrzd212503zd2_2208));
																																												BgL_arg2178z00_2275
																																													=
																																													CAR
																																													(
																																													((obj_t) BgL_cdrzd212979zd2_2271));
																																												{
																																													BgL_ev_defglobalz00_bglt
																																														BgL_auxz00_7608;
																																													{
																																														obj_t
																																															BgL_gez00_7610;
																																														obj_t
																																															BgL_gvz00_7609;
																																														BgL_gvz00_7609
																																															=
																																															BgL_arg2177z00_2274;
																																														BgL_gez00_7610
																																															=
																																															BgL_arg2178z00_2275;
																																														BgL_gez00_1574
																																															=
																																															BgL_gez00_7610;
																																														BgL_gvz00_1573
																																															=
																																															BgL_gvz00_7609;
																																														goto
																																															BgL_tagzd2168zd2_1575;
																																													}
																																													return
																																														(
																																														(obj_t)
																																														BgL_auxz00_7608);
																																												}
																																											}
																																										else
																																											{	/* Eval/evaluate.scm 424 */
																																												obj_t
																																													BgL_arg2179z00_2276;
																																												obj_t
																																													BgL_arg2180z00_2277;
																																												BgL_arg2179z00_2276
																																													=
																																													CAR
																																													(
																																													((obj_t) BgL_ez00_69));
																																												BgL_arg2180z00_2277
																																													=
																																													CDR
																																													(
																																													((obj_t) BgL_ez00_69));
																																												{
																																													BgL_ev_appz00_bglt
																																														BgL_auxz00_7616;
																																													{
																																														obj_t
																																															BgL_argsz00_7618;
																																														obj_t
																																															BgL_fz00_7617;
																																														BgL_fz00_7617
																																															=
																																															BgL_arg2179z00_2276;
																																														BgL_argsz00_7618
																																															=
																																															BgL_arg2180z00_2277;
																																														BgL_argsz00_1597
																																															=
																																															BgL_argsz00_7618;
																																														BgL_fz00_1596
																																															=
																																															BgL_fz00_7617;
																																														goto
																																															BgL_tagzd2176zd2_1598;
																																													}
																																													return
																																														(
																																														(obj_t)
																																														BgL_auxz00_7616);
																																												}
																																											}
																																									}
																																							}
																																						else
																																							{	/* Eval/evaluate.scm 424 */
																																								obj_t
																																									BgL_arg2182z00_2279;
																																								BgL_arg2182z00_2279
																																									=
																																									CAR
																																									(
																																									((obj_t) BgL_ez00_69));
																																								{
																																									BgL_ev_appz00_bglt
																																										BgL_auxz00_7622;
																																									{
																																										obj_t
																																											BgL_argsz00_7624;
																																										obj_t
																																											BgL_fz00_7623;
																																										BgL_fz00_7623
																																											=
																																											BgL_arg2182z00_2279;
																																										BgL_argsz00_7624
																																											=
																																											BgL_cdrzd212503zd2_2208;
																																										BgL_argsz00_1597
																																											=
																																											BgL_argsz00_7624;
																																										BgL_fz00_1596
																																											=
																																											BgL_fz00_7623;
																																										goto
																																											BgL_tagzd2176zd2_1598;
																																									}
																																									return
																																										(
																																										(obj_t)
																																										BgL_auxz00_7622);
																																								}
																																							}
																																					}
																																				else
																																					{	/* Eval/evaluate.scm 424 */
																																						obj_t
																																							BgL_arg2185z00_2281;
																																						BgL_arg2185z00_2281
																																							=
																																							CAR
																																							(((obj_t) BgL_ez00_69));
																																						{
																																							BgL_ev_appz00_bglt
																																								BgL_auxz00_7628;
																																							{
																																								obj_t
																																									BgL_argsz00_7630;
																																								obj_t
																																									BgL_fz00_7629;
																																								BgL_fz00_7629
																																									=
																																									BgL_arg2185z00_2281;
																																								BgL_argsz00_7630
																																									=
																																									BgL_cdrzd212503zd2_2208;
																																								BgL_argsz00_1597
																																									=
																																									BgL_argsz00_7630;
																																								BgL_fz00_1596
																																									=
																																									BgL_fz00_7629;
																																								goto
																																									BgL_tagzd2176zd2_1598;
																																							}
																																							return
																																								(
																																								(obj_t)
																																								BgL_auxz00_7628);
																																						}
																																					}
																																			}
																																		else
																																			{	/* Eval/evaluate.scm 424 */
																																				if (
																																					(CAR(
																																							((obj_t) BgL_ez00_69)) == BGl_symbol3060z00zz__evaluatez00))
																																					{	/* Eval/evaluate.scm 424 */
																																						if (PAIRP(BgL_cdrzd212503zd2_2208))
																																							{	/* Eval/evaluate.scm 424 */
																																								obj_t
																																									BgL_carzd213227zd2_2287;
																																								BgL_carzd213227zd2_2287
																																									=
																																									CAR
																																									(BgL_cdrzd212503zd2_2208);
																																								if (PAIRP(BgL_carzd213227zd2_2287))
																																									{	/* Eval/evaluate.scm 424 */
																																										if (NULLP(CDR(BgL_carzd213227zd2_2287)))
																																											{	/* Eval/evaluate.scm 424 */
																																												obj_t
																																													BgL_arg2193z00_2291;
																																												obj_t
																																													BgL_arg2194z00_2292;
																																												BgL_arg2193z00_2291
																																													=
																																													CAR
																																													(BgL_carzd213227zd2_2287);
																																												BgL_arg2194z00_2292
																																													=
																																													CDR
																																													(BgL_cdrzd212503zd2_2208);
																																												{
																																													BgL_ev_bindzd2exitzd2_bglt
																																														BgL_auxz00_7646;
																																													{
																																														obj_t
																																															BgL_bodyz00_7648;
																																														obj_t
																																															BgL_vz00_7647;
																																														BgL_vz00_7647
																																															=
																																															BgL_arg2193z00_2291;
																																														BgL_bodyz00_7648
																																															=
																																															BgL_arg2194z00_2292;
																																														BgL_bodyz00_1577
																																															=
																																															BgL_bodyz00_7648;
																																														BgL_vz00_1576
																																															=
																																															BgL_vz00_7647;
																																														goto
																																															BgL_tagzd2169zd2_1578;
																																													}
																																													return
																																														(
																																														(obj_t)
																																														BgL_auxz00_7646);
																																												}
																																											}
																																										else
																																											{	/* Eval/evaluate.scm 424 */
																																												obj_t
																																													BgL_arg2195z00_2293;
																																												obj_t
																																													BgL_arg2196z00_2294;
																																												BgL_arg2195z00_2293
																																													=
																																													CAR
																																													(
																																													((obj_t) BgL_ez00_69));
																																												BgL_arg2196z00_2294
																																													=
																																													CDR
																																													(
																																													((obj_t) BgL_ez00_69));
																																												{
																																													BgL_ev_appz00_bglt
																																														BgL_auxz00_7654;
																																													{
																																														obj_t
																																															BgL_argsz00_7656;
																																														obj_t
																																															BgL_fz00_7655;
																																														BgL_fz00_7655
																																															=
																																															BgL_arg2195z00_2293;
																																														BgL_argsz00_7656
																																															=
																																															BgL_arg2196z00_2294;
																																														BgL_argsz00_1597
																																															=
																																															BgL_argsz00_7656;
																																														BgL_fz00_1596
																																															=
																																															BgL_fz00_7655;
																																														goto
																																															BgL_tagzd2176zd2_1598;
																																													}
																																													return
																																														(
																																														(obj_t)
																																														BgL_auxz00_7654);
																																												}
																																											}
																																									}
																																								else
																																									{	/* Eval/evaluate.scm 424 */
																																										obj_t
																																											BgL_arg2198z00_2296;
																																										obj_t
																																											BgL_arg2199z00_2297;
																																										BgL_arg2198z00_2296
																																											=
																																											CAR
																																											(
																																											((obj_t) BgL_ez00_69));
																																										BgL_arg2199z00_2297
																																											=
																																											CDR
																																											(
																																											((obj_t) BgL_ez00_69));
																																										{
																																											BgL_ev_appz00_bglt
																																												BgL_auxz00_7662;
																																											{
																																												obj_t
																																													BgL_argsz00_7664;
																																												obj_t
																																													BgL_fz00_7663;
																																												BgL_fz00_7663
																																													=
																																													BgL_arg2198z00_2296;
																																												BgL_argsz00_7664
																																													=
																																													BgL_arg2199z00_2297;
																																												BgL_argsz00_1597
																																													=
																																													BgL_argsz00_7664;
																																												BgL_fz00_1596
																																													=
																																													BgL_fz00_7663;
																																												goto
																																													BgL_tagzd2176zd2_1598;
																																											}
																																											return
																																												(
																																												(obj_t)
																																												BgL_auxz00_7662);
																																										}
																																									}
																																							}
																																						else
																																							{	/* Eval/evaluate.scm 424 */
																																								obj_t
																																									BgL_arg2200z00_2298;
																																								obj_t
																																									BgL_arg2201z00_2299;
																																								BgL_arg2200z00_2298
																																									=
																																									CAR
																																									(
																																									((obj_t) BgL_ez00_69));
																																								BgL_arg2201z00_2299
																																									=
																																									CDR
																																									(
																																									((obj_t) BgL_ez00_69));
																																								{
																																									BgL_ev_appz00_bglt
																																										BgL_auxz00_7670;
																																									{
																																										obj_t
																																											BgL_argsz00_7672;
																																										obj_t
																																											BgL_fz00_7671;
																																										BgL_fz00_7671
																																											=
																																											BgL_arg2200z00_2298;
																																										BgL_argsz00_7672
																																											=
																																											BgL_arg2201z00_2299;
																																										BgL_argsz00_1597
																																											=
																																											BgL_argsz00_7672;
																																										BgL_fz00_1596
																																											=
																																											BgL_fz00_7671;
																																										goto
																																											BgL_tagzd2176zd2_1598;
																																									}
																																									return
																																										(
																																										(obj_t)
																																										BgL_auxz00_7670);
																																								}
																																							}
																																					}
																																				else
																																					{	/* Eval/evaluate.scm 424 */
																																						obj_t
																																							BgL_cdrzd213398zd2_2300;
																																						BgL_cdrzd213398zd2_2300
																																							=
																																							CDR
																																							(((obj_t) BgL_ez00_69));
																																						if (
																																							(CAR
																																								(((obj_t) BgL_ez00_69)) == BGl_symbol3062z00zz__evaluatez00))
																																							{	/* Eval/evaluate.scm 424 */
																																								if (PAIRP(BgL_cdrzd213398zd2_2300))
																																									{	/* Eval/evaluate.scm 424 */
																																										obj_t
																																											BgL_arg2205z00_2304;
																																										obj_t
																																											BgL_arg2206z00_2305;
																																										BgL_arg2205z00_2304
																																											=
																																											CAR
																																											(BgL_cdrzd213398zd2_2300);
																																										BgL_arg2206z00_2305
																																											=
																																											CDR
																																											(BgL_cdrzd213398zd2_2300);
																																										{	/* Eval/evaluate.scm 579 */
																																											BgL_ev_unwindzd2protectzd2_bglt
																																												BgL_new1156z00_4493;
																																											{	/* Eval/evaluate.scm 580 */
																																												BgL_ev_unwindzd2protectzd2_bglt
																																													BgL_new1155z00_4494;
																																												BgL_new1155z00_4494
																																													=
																																													(
																																													(BgL_ev_unwindzd2protectzd2_bglt)
																																													BOBJECT
																																													(GC_MALLOC
																																														(sizeof
																																															(struct
																																																BgL_ev_unwindzd2protectzd2_bgl))));
																																												{	/* Eval/evaluate.scm 580 */
																																													long
																																														BgL_arg2446z00_4495;
																																													BgL_arg2446z00_4495
																																														=
																																														BGL_CLASS_NUM
																																														(BGl_ev_unwindzd2protectzd2zz__evaluate_typesz00);
																																													BGL_OBJECT_CLASS_NUM_SET
																																														(
																																														((BgL_objectz00_bglt) BgL_new1155z00_4494), BgL_arg2446z00_4495);
																																												}
																																												BgL_new1156z00_4493
																																													=
																																													BgL_new1155z00_4494;
																																											}
																																											{
																																												BgL_ev_exprz00_bglt
																																													BgL_auxz00_7688;
																																												{	/* Eval/evaluate.scm 380 */
																																													obj_t
																																														BgL_arg2470z00_4499;
																																													BgL_arg2470z00_4499
																																														=
																																														BGl_getzd2locationzd2zz__evaluatez00
																																														(BgL_arg2205z00_2304,
																																														BgL_locz00_74);
																																													BgL_auxz00_7688
																																														=
																																														(
																																														(BgL_ev_exprz00_bglt)
																																														BGl_uconvzf2locze70z15zz__evaluatez00
																																														(BgL_wherez00_73,
																																															BgL_globalsz00_71,
																																															BgL_localsz00_70,
																																															BgL_arg2205z00_2304,
																																															BgL_arg2470z00_4499));
																																												}
																																												((((BgL_ev_unwindzd2protectzd2_bglt) COBJECT(BgL_new1156z00_4493))->BgL_ez00) = ((BgL_ev_exprz00_bglt) BgL_auxz00_7688), BUNSPEC);
																																											}
																																											((((BgL_ev_unwindzd2protectzd2_bglt) COBJECT(BgL_new1156z00_4493))->BgL_bodyz00) = ((BgL_ev_exprz00_bglt) ((BgL_ev_exprz00_bglt) BGl_convzd2beginzd2zz__evaluatez00(BgL_arg2206z00_2305, BgL_localsz00_70, BgL_globalsz00_71, BFALSE, BgL_wherez00_73, BgL_locz00_74, ((bool_t) 0)))), BUNSPEC);
																																											return
																																												(
																																												(obj_t)
																																												BgL_new1156z00_4493);
																																										}
																																									}
																																								else
																																									{	/* Eval/evaluate.scm 424 */
																																										obj_t
																																											BgL_arg2207z00_2306;
																																										BgL_arg2207z00_2306
																																											=
																																											CAR
																																											(
																																											((obj_t) BgL_ez00_69));
																																										{
																																											BgL_ev_appz00_bglt
																																												BgL_auxz00_7699;
																																											{
																																												obj_t
																																													BgL_argsz00_7701;
																																												obj_t
																																													BgL_fz00_7700;
																																												BgL_fz00_7700
																																													=
																																													BgL_arg2207z00_2306;
																																												BgL_argsz00_7701
																																													=
																																													BgL_cdrzd213398zd2_2300;
																																												BgL_argsz00_1597
																																													=
																																													BgL_argsz00_7701;
																																												BgL_fz00_1596
																																													=
																																													BgL_fz00_7700;
																																												goto
																																													BgL_tagzd2176zd2_1598;
																																											}
																																											return
																																												(
																																												(obj_t)
																																												BgL_auxz00_7699);
																																										}
																																									}
																																							}
																																						else
																																							{	/* Eval/evaluate.scm 424 */
																																								if ((CAR(((obj_t) BgL_ez00_69)) == BGl_symbol3064z00zz__evaluatez00))
																																									{	/* Eval/evaluate.scm 424 */
																																										if (PAIRP(BgL_cdrzd213398zd2_2300))
																																											{	/* Eval/evaluate.scm 424 */
																																												obj_t
																																													BgL_arg2212z00_2312;
																																												obj_t
																																													BgL_arg2213z00_2313;
																																												BgL_arg2212z00_2312
																																													=
																																													CAR
																																													(BgL_cdrzd213398zd2_2300);
																																												BgL_arg2213z00_2313
																																													=
																																													CDR
																																													(BgL_cdrzd213398zd2_2300);
																																												{	/* Eval/evaluate.scm 583 */
																																													BgL_ev_withzd2handlerzd2_bglt
																																														BgL_new1158z00_4506;
																																													{	/* Eval/evaluate.scm 584 */
																																														BgL_ev_withzd2handlerzd2_bglt
																																															BgL_new1157z00_4507;
																																														BgL_new1157z00_4507
																																															=
																																															(
																																															(BgL_ev_withzd2handlerzd2_bglt)
																																															BOBJECT
																																															(GC_MALLOC
																																																(sizeof
																																																	(struct
																																																		BgL_ev_withzd2handlerzd2_bgl))));
																																														{	/* Eval/evaluate.scm 584 */
																																															long
																																																BgL_arg2451z00_4508;
																																															BgL_arg2451z00_4508
																																																=
																																																BGL_CLASS_NUM
																																																(BGl_ev_withzd2handlerzd2zz__evaluate_typesz00);
																																															BGL_OBJECT_CLASS_NUM_SET
																																																(
																																																((BgL_objectz00_bglt) BgL_new1157z00_4507), BgL_arg2451z00_4508);
																																														}
																																														BgL_new1158z00_4506
																																															=
																																															BgL_new1157z00_4507;
																																													}
																																													{
																																														BgL_ev_exprz00_bglt
																																															BgL_auxz00_7715;
																																														{	/* Eval/evaluate.scm 380 */
																																															obj_t
																																																BgL_arg2470z00_4512;
																																															BgL_arg2470z00_4512
																																																=
																																																BGl_getzd2locationzd2zz__evaluatez00
																																																(BgL_arg2212z00_2312,
																																																BgL_locz00_74);
																																															BgL_auxz00_7715
																																																=
																																																(
																																																(BgL_ev_exprz00_bglt)
																																																BGl_uconvzf2locze70z15zz__evaluatez00
																																																(BgL_wherez00_73,
																																																	BgL_globalsz00_71,
																																																	BgL_localsz00_70,
																																																	BgL_arg2212z00_2312,
																																																	BgL_arg2470z00_4512));
																																														}
																																														((((BgL_ev_withzd2handlerzd2_bglt) COBJECT(BgL_new1158z00_4506))->BgL_handlerz00) = ((BgL_ev_exprz00_bglt) BgL_auxz00_7715), BUNSPEC);
																																													}
																																													((((BgL_ev_withzd2handlerzd2_bglt) COBJECT(BgL_new1158z00_4506))->BgL_bodyz00) = ((BgL_ev_exprz00_bglt) ((BgL_ev_exprz00_bglt) BGl_convzd2beginzd2zz__evaluatez00(BgL_arg2213z00_2313, BgL_localsz00_70, BgL_globalsz00_71, BFALSE, BgL_wherez00_73, BgL_locz00_74, ((bool_t) 0)))), BUNSPEC);
																																													return
																																														(
																																														(obj_t)
																																														BgL_new1158z00_4506);
																																												}
																																											}
																																										else
																																											{	/* Eval/evaluate.scm 424 */
																																												obj_t
																																													BgL_arg2214z00_2314;
																																												obj_t
																																													BgL_arg2216z00_2315;
																																												BgL_arg2214z00_2314
																																													=
																																													CAR
																																													(
																																													((obj_t) BgL_ez00_69));
																																												BgL_arg2216z00_2315
																																													=
																																													CDR
																																													(
																																													((obj_t) BgL_ez00_69));
																																												{
																																													BgL_ev_appz00_bglt
																																														BgL_auxz00_7728;
																																													{
																																														obj_t
																																															BgL_argsz00_7730;
																																														obj_t
																																															BgL_fz00_7729;
																																														BgL_fz00_7729
																																															=
																																															BgL_arg2214z00_2314;
																																														BgL_argsz00_7730
																																															=
																																															BgL_arg2216z00_2315;
																																														BgL_argsz00_1597
																																															=
																																															BgL_argsz00_7730;
																																														BgL_fz00_1596
																																															=
																																															BgL_fz00_7729;
																																														goto
																																															BgL_tagzd2176zd2_1598;
																																													}
																																													return
																																														(
																																														(obj_t)
																																														BgL_auxz00_7728);
																																												}
																																											}
																																									}
																																								else
																																									{	/* Eval/evaluate.scm 424 */
																																										obj_t
																																											BgL_cdrzd213505zd2_2316;
																																										BgL_cdrzd213505zd2_2316
																																											=
																																											CDR
																																											(
																																											((obj_t) BgL_ez00_69));
																																										if ((CAR(((obj_t) BgL_ez00_69)) == BGl_symbol3066z00zz__evaluatez00))
																																											{	/* Eval/evaluate.scm 424 */
																																												if (PAIRP(BgL_cdrzd213505zd2_2316))
																																													{	/* Eval/evaluate.scm 424 */
																																														obj_t
																																															BgL_cdrzd213510zd2_2320;
																																														BgL_cdrzd213510zd2_2320
																																															=
																																															CDR
																																															(BgL_cdrzd213505zd2_2316);
																																														if (PAIRP(BgL_cdrzd213510zd2_2320))
																																															{	/* Eval/evaluate.scm 424 */
																																																obj_t
																																																	BgL_cdrzd213515zd2_2322;
																																																BgL_cdrzd213515zd2_2322
																																																	=
																																																	CDR
																																																	(BgL_cdrzd213510zd2_2320);
																																																if ((CAR(BgL_cdrzd213510zd2_2320) == BGl_keyword3068z00zz__evaluatez00))
																																																	{	/* Eval/evaluate.scm 424 */
																																																		if (PAIRP(BgL_cdrzd213515zd2_2322))
																																																			{	/* Eval/evaluate.scm 424 */
																																																				obj_t
																																																					BgL_arg2224z00_2326;
																																																				obj_t
																																																					BgL_arg2225z00_2327;
																																																				obj_t
																																																					BgL_arg2226z00_2328;
																																																				BgL_arg2224z00_2326
																																																					=
																																																					CAR
																																																					(BgL_cdrzd213505zd2_2316);
																																																				BgL_arg2225z00_2327
																																																					=
																																																					CAR
																																																					(BgL_cdrzd213515zd2_2322);
																																																				BgL_arg2226z00_2328
																																																					=
																																																					CDR
																																																					(BgL_cdrzd213515zd2_2322);
																																																				{	/* Eval/evaluate.scm 587 */
																																																					BgL_ev_synchroniza7eza7_bglt
																																																						BgL_new1160z00_4523;
																																																					{	/* Eval/evaluate.scm 588 */
																																																						BgL_ev_synchroniza7eza7_bglt
																																																							BgL_new1159z00_4524;
																																																						BgL_new1159z00_4524
																																																							=
																																																							(
																																																							(BgL_ev_synchroniza7eza7_bglt)
																																																							BOBJECT
																																																							(GC_MALLOC
																																																								(sizeof
																																																									(struct
																																																										BgL_ev_synchroniza7eza7_bgl))));
																																																						{	/* Eval/evaluate.scm 588 */
																																																							long
																																																								BgL_arg2453z00_4525;
																																																							BgL_arg2453z00_4525
																																																								=
																																																								BGL_CLASS_NUM
																																																								(BGl_ev_synchroniza7eza7zz__evaluate_typesz00);
																																																							BGL_OBJECT_CLASS_NUM_SET
																																																								(
																																																								((BgL_objectz00_bglt) BgL_new1159z00_4524), BgL_arg2453z00_4525);
																																																						}
																																																						BgL_new1160z00_4523
																																																							=
																																																							BgL_new1159z00_4524;
																																																					}
																																																					((((BgL_ev_synchroniza7eza7_bglt) COBJECT(BgL_new1160z00_4523))->BgL_locz00) = ((obj_t) BgL_locz00_74), BUNSPEC);
																																																					{
																																																						BgL_ev_exprz00_bglt
																																																							BgL_auxz00_7757;
																																																						{	/* Eval/evaluate.scm 380 */
																																																							obj_t
																																																								BgL_arg2470z00_4529;
																																																							BgL_arg2470z00_4529
																																																								=
																																																								BGl_getzd2locationzd2zz__evaluatez00
																																																								(BgL_arg2224z00_2326,
																																																								BgL_locz00_74);
																																																							BgL_auxz00_7757
																																																								=
																																																								(
																																																								(BgL_ev_exprz00_bglt)
																																																								BGl_uconvzf2locze70z15zz__evaluatez00
																																																								(BgL_wherez00_73,
																																																									BgL_globalsz00_71,
																																																									BgL_localsz00_70,
																																																									BgL_arg2224z00_2326,
																																																									BgL_arg2470z00_4529));
																																																						}
																																																						((((BgL_ev_synchroniza7eza7_bglt) COBJECT(BgL_new1160z00_4523))->BgL_mutexz00) = ((BgL_ev_exprz00_bglt) BgL_auxz00_7757), BUNSPEC);
																																																					}
																																																					{
																																																						BgL_ev_exprz00_bglt
																																																							BgL_auxz00_7762;
																																																						{	/* Eval/evaluate.scm 380 */
																																																							obj_t
																																																								BgL_arg2470z00_4530;
																																																							BgL_arg2470z00_4530
																																																								=
																																																								BGl_getzd2locationzd2zz__evaluatez00
																																																								(BgL_arg2225z00_2327,
																																																								BgL_locz00_74);
																																																							BgL_auxz00_7762
																																																								=
																																																								(
																																																								(BgL_ev_exprz00_bglt)
																																																								BGl_uconvzf2locze70z15zz__evaluatez00
																																																								(BgL_wherez00_73,
																																																									BgL_globalsz00_71,
																																																									BgL_localsz00_70,
																																																									BgL_arg2225z00_2327,
																																																									BgL_arg2470z00_4530));
																																																						}
																																																						((((BgL_ev_synchroniza7eza7_bglt) COBJECT(BgL_new1160z00_4523))->BgL_prelockz00) = ((BgL_ev_exprz00_bglt) BgL_auxz00_7762), BUNSPEC);
																																																					}
																																																					((((BgL_ev_synchroniza7eza7_bglt) COBJECT(BgL_new1160z00_4523))->BgL_bodyz00) = ((BgL_ev_exprz00_bglt) ((BgL_ev_exprz00_bglt) BGl_convzd2beginzd2zz__evaluatez00(BgL_arg2226z00_2328, BgL_localsz00_70, BgL_globalsz00_71, BFALSE, BgL_wherez00_73, BgL_locz00_74, ((bool_t) 0)))), BUNSPEC);
																																																					return
																																																						(
																																																						(obj_t)
																																																						BgL_new1160z00_4523);
																																																				}
																																																			}
																																																		else
																																																			{	/* Eval/evaluate.scm 424 */
																																																				obj_t
																																																					BgL_arg2227z00_2330;
																																																				obj_t
																																																					BgL_arg2228z00_2331;
																																																				BgL_arg2227z00_2330
																																																					=
																																																					CAR
																																																					(
																																																					((obj_t) BgL_cdrzd213505zd2_2316));
																																																				BgL_arg2228z00_2331
																																																					=
																																																					CDR
																																																					(
																																																					((obj_t) BgL_cdrzd213505zd2_2316));
																																																				{
																																																					BgL_ev_synchroniza7eza7_bglt
																																																						BgL_auxz00_7775;
																																																					{
																																																						obj_t
																																																							BgL_bodyz00_7777;
																																																						obj_t
																																																							BgL_mz00_7776;
																																																						BgL_mz00_7776
																																																							=
																																																							BgL_arg2227z00_2330;
																																																						BgL_bodyz00_7777
																																																							=
																																																							BgL_arg2228z00_2331;
																																																						BgL_bodyz00_1590
																																																							=
																																																							BgL_bodyz00_7777;
																																																						BgL_mz00_1589
																																																							=
																																																							BgL_mz00_7776;
																																																						goto
																																																							BgL_tagzd2173zd2_1591;
																																																					}
																																																					return
																																																						(
																																																						(obj_t)
																																																						BgL_auxz00_7775);
																																																				}
																																																			}
																																																	}
																																																else
																																																	{	/* Eval/evaluate.scm 424 */
																																																		obj_t
																																																			BgL_arg2229z00_2333;
																																																		obj_t
																																																			BgL_arg2230z00_2334;
																																																		BgL_arg2229z00_2333
																																																			=
																																																			CAR
																																																			(
																																																			((obj_t) BgL_cdrzd213505zd2_2316));
																																																		BgL_arg2230z00_2334
																																																			=
																																																			CDR
																																																			(
																																																			((obj_t) BgL_cdrzd213505zd2_2316));
																																																		{
																																																			BgL_ev_synchroniza7eza7_bglt
																																																				BgL_auxz00_7783;
																																																			{
																																																				obj_t
																																																					BgL_bodyz00_7785;
																																																				obj_t
																																																					BgL_mz00_7784;
																																																				BgL_mz00_7784
																																																					=
																																																					BgL_arg2229z00_2333;
																																																				BgL_bodyz00_7785
																																																					=
																																																					BgL_arg2230z00_2334;
																																																				BgL_bodyz00_1590
																																																					=
																																																					BgL_bodyz00_7785;
																																																				BgL_mz00_1589
																																																					=
																																																					BgL_mz00_7784;
																																																				goto
																																																					BgL_tagzd2173zd2_1591;
																																																			}
																																																			return
																																																				(
																																																				(obj_t)
																																																				BgL_auxz00_7783);
																																																		}
																																																	}
																																															}
																																														else
																																															{	/* Eval/evaluate.scm 424 */
																																																obj_t
																																																	BgL_arg2232z00_2337;
																																																obj_t
																																																	BgL_arg2233z00_2338;
																																																BgL_arg2232z00_2337
																																																	=
																																																	CAR
																																																	(
																																																	((obj_t) BgL_cdrzd213505zd2_2316));
																																																BgL_arg2233z00_2338
																																																	=
																																																	CDR
																																																	(
																																																	((obj_t) BgL_cdrzd213505zd2_2316));
																																																{
																																																	BgL_ev_synchroniza7eza7_bglt
																																																		BgL_auxz00_7791;
																																																	{
																																																		obj_t
																																																			BgL_bodyz00_7793;
																																																		obj_t
																																																			BgL_mz00_7792;
																																																		BgL_mz00_7792
																																																			=
																																																			BgL_arg2232z00_2337;
																																																		BgL_bodyz00_7793
																																																			=
																																																			BgL_arg2233z00_2338;
																																																		BgL_bodyz00_1590
																																																			=
																																																			BgL_bodyz00_7793;
																																																		BgL_mz00_1589
																																																			=
																																																			BgL_mz00_7792;
																																																		goto
																																																			BgL_tagzd2173zd2_1591;
																																																	}
																																																	return
																																																		(
																																																		(obj_t)
																																																		BgL_auxz00_7791);
																																																}
																																															}
																																													}
																																												else
																																													{	/* Eval/evaluate.scm 424 */
																																														obj_t
																																															BgL_arg2234z00_2339;
																																														BgL_arg2234z00_2339
																																															=
																																															CAR
																																															(
																																															((obj_t) BgL_ez00_69));
																																														{
																																															BgL_ev_appz00_bglt
																																																BgL_auxz00_7797;
																																															{
																																																obj_t
																																																	BgL_argsz00_7799;
																																																obj_t
																																																	BgL_fz00_7798;
																																																BgL_fz00_7798
																																																	=
																																																	BgL_arg2234z00_2339;
																																																BgL_argsz00_7799
																																																	=
																																																	BgL_cdrzd213505zd2_2316;
																																																BgL_argsz00_1597
																																																	=
																																																	BgL_argsz00_7799;
																																																BgL_fz00_1596
																																																	=
																																																	BgL_fz00_7798;
																																																goto
																																																	BgL_tagzd2176zd2_1598;
																																															}
																																															return
																																																(
																																																(obj_t)
																																																BgL_auxz00_7797);
																																														}
																																													}
																																											}
																																										else
																																											{	/* Eval/evaluate.scm 424 */
																																												if ((CAR(((obj_t) BgL_ez00_69)) == BGl_symbol3023z00zz__evaluatez00))
																																													{	/* Eval/evaluate.scm 424 */
																																														if (PAIRP(BgL_cdrzd213505zd2_2316))
																																															{	/* Eval/evaluate.scm 424 */
																																																obj_t
																																																	BgL_cdrzd213617zd2_2345;
																																																BgL_cdrzd213617zd2_2345
																																																	=
																																																	CDR
																																																	(BgL_cdrzd213505zd2_2316);
																																																if (PAIRP(BgL_cdrzd213617zd2_2345))
																																																	{	/* Eval/evaluate.scm 424 */
																																																		if (NULLP(CDR(BgL_cdrzd213617zd2_2345)))
																																																			{	/* Eval/evaluate.scm 424 */
																																																				obj_t
																																																					BgL_arg2243z00_2349;
																																																				obj_t
																																																					BgL_arg2245z00_2350;
																																																				BgL_arg2243z00_2349
																																																					=
																																																					CAR
																																																					(BgL_cdrzd213505zd2_2316);
																																																				BgL_arg2245z00_2350
																																																					=
																																																					CAR
																																																					(BgL_cdrzd213617zd2_2345);
																																																				{	/* Eval/evaluate.scm 599 */
																																																					obj_t
																																																						BgL_arg2455z00_4548;
																																																					{	/* Eval/evaluate.scm 599 */
																																																						obj_t
																																																							BgL_arg2456z00_4549;
																																																						{	/* Eval/evaluate.scm 599 */
																																																							obj_t
																																																								BgL_arg2457z00_4550;
																																																							obj_t
																																																								BgL_arg2458z00_4551;
																																																							{	/* Eval/evaluate.scm 599 */
																																																								obj_t
																																																									BgL_symbolz00_4552;
																																																								BgL_symbolz00_4552
																																																									=
																																																									BGl_symbol3070z00zz__evaluatez00;
																																																								{	/* Eval/evaluate.scm 599 */
																																																									obj_t
																																																										BgL_arg2654z00_4553;
																																																									BgL_arg2654z00_4553
																																																										=
																																																										SYMBOL_TO_STRING
																																																										(BgL_symbolz00_4552);
																																																									BgL_arg2457z00_4550
																																																										=
																																																										BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																																																										(BgL_arg2654z00_4553);
																																																								}
																																																							}
																																																							{	/* Eval/evaluate.scm 599 */
																																																								obj_t
																																																									BgL_arg2654z00_4555;
																																																								BgL_arg2654z00_4555
																																																									=
																																																									SYMBOL_TO_STRING
																																																									(
																																																									((obj_t) BgL_wherez00_73));
																																																								BgL_arg2458z00_4551
																																																									=
																																																									BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																																																									(BgL_arg2654z00_4555);
																																																							}
																																																							BgL_arg2456z00_4549
																																																								=
																																																								string_append
																																																								(BgL_arg2457z00_4550,
																																																								BgL_arg2458z00_4551);
																																																						}
																																																						BgL_arg2455z00_4548
																																																							=
																																																							bstring_to_symbol
																																																							(BgL_arg2456z00_4549);
																																																					}
																																																					return
																																																						(
																																																						(obj_t)
																																																						BGl_convzd2lambdaze70z35zz__evaluatez00
																																																						(BgL_globalsz00_71,
																																																							BgL_localsz00_70,
																																																							BgL_ez00_69,
																																																							BgL_locz00_74,
																																																							BgL_arg2243z00_2349,
																																																							BgL_arg2245z00_2350,
																																																							BgL_arg2455z00_4548,
																																																							BFALSE));
																																																				}
																																																			}
																																																		else
																																																			{	/* Eval/evaluate.scm 424 */
																																																				obj_t
																																																					BgL_arg2246z00_2351;
																																																				obj_t
																																																					BgL_arg2247z00_2352;
																																																				BgL_arg2246z00_2351
																																																					=
																																																					CAR
																																																					(
																																																					((obj_t) BgL_ez00_69));
																																																				BgL_arg2247z00_2352
																																																					=
																																																					CDR
																																																					(
																																																					((obj_t) BgL_ez00_69));
																																																				{
																																																					BgL_ev_appz00_bglt
																																																						BgL_auxz00_7828;
																																																					{
																																																						obj_t
																																																							BgL_argsz00_7830;
																																																						obj_t
																																																							BgL_fz00_7829;
																																																						BgL_fz00_7829
																																																							=
																																																							BgL_arg2246z00_2351;
																																																						BgL_argsz00_7830
																																																							=
																																																							BgL_arg2247z00_2352;
																																																						BgL_argsz00_1597
																																																							=
																																																							BgL_argsz00_7830;
																																																						BgL_fz00_1596
																																																							=
																																																							BgL_fz00_7829;
																																																						goto
																																																							BgL_tagzd2176zd2_1598;
																																																					}
																																																					return
																																																						(
																																																						(obj_t)
																																																						BgL_auxz00_7828);
																																																				}
																																																			}
																																																	}
																																																else
																																																	{	/* Eval/evaluate.scm 424 */
																																																		obj_t
																																																			BgL_arg2249z00_2354;
																																																		obj_t
																																																			BgL_arg2250z00_2355;
																																																		BgL_arg2249z00_2354
																																																			=
																																																			CAR
																																																			(
																																																			((obj_t) BgL_ez00_69));
																																																		BgL_arg2250z00_2355
																																																			=
																																																			CDR
																																																			(
																																																			((obj_t) BgL_ez00_69));
																																																		{
																																																			BgL_ev_appz00_bglt
																																																				BgL_auxz00_7836;
																																																			{
																																																				obj_t
																																																					BgL_argsz00_7838;
																																																				obj_t
																																																					BgL_fz00_7837;
																																																				BgL_fz00_7837
																																																					=
																																																					BgL_arg2249z00_2354;
																																																				BgL_argsz00_7838
																																																					=
																																																					BgL_arg2250z00_2355;
																																																				BgL_argsz00_1597
																																																					=
																																																					BgL_argsz00_7838;
																																																				BgL_fz00_1596
																																																					=
																																																					BgL_fz00_7837;
																																																				goto
																																																					BgL_tagzd2176zd2_1598;
																																																			}
																																																			return
																																																				(
																																																				(obj_t)
																																																				BgL_auxz00_7836);
																																																		}
																																																	}
																																															}
																																														else
																																															{	/* Eval/evaluate.scm 424 */
																																																obj_t
																																																	BgL_arg2251z00_2356;
																																																obj_t
																																																	BgL_arg2252z00_2357;
																																																BgL_arg2251z00_2356
																																																	=
																																																	CAR
																																																	(
																																																	((obj_t) BgL_ez00_69));
																																																BgL_arg2252z00_2357
																																																	=
																																																	CDR
																																																	(
																																																	((obj_t) BgL_ez00_69));
																																																{
																																																	BgL_ev_appz00_bglt
																																																		BgL_auxz00_7844;
																																																	{
																																																		obj_t
																																																			BgL_argsz00_7846;
																																																		obj_t
																																																			BgL_fz00_7845;
																																																		BgL_fz00_7845
																																																			=
																																																			BgL_arg2251z00_2356;
																																																		BgL_argsz00_7846
																																																			=
																																																			BgL_arg2252z00_2357;
																																																		BgL_argsz00_1597
																																																			=
																																																			BgL_argsz00_7846;
																																																		BgL_fz00_1596
																																																			=
																																																			BgL_fz00_7845;
																																																		goto
																																																			BgL_tagzd2176zd2_1598;
																																																	}
																																																	return
																																																		(
																																																		(obj_t)
																																																		BgL_auxz00_7844);
																																																}
																																															}
																																													}
																																												else
																																													{	/* Eval/evaluate.scm 424 */
																																														if ((CAR(((obj_t) BgL_ez00_69)) == BGl_symbol3072z00zz__evaluatez00))
																																															{	/* Eval/evaluate.scm 424 */
																																																return
																																																	BGl_errorz00zz__errorz00
																																																	(BGl_string3074z00zz__evaluatez00,
																																																	BGl_string3075z00zz__evaluatez00,
																																																	BgL_ez00_69);
																																															}
																																														else
																																															{	/* Eval/evaluate.scm 424 */
																																																obj_t
																																																	BgL_arg2255z00_2360;
																																																obj_t
																																																	BgL_arg2256z00_2361;
																																																BgL_arg2255z00_2360
																																																	=
																																																	CAR
																																																	(
																																																	((obj_t) BgL_ez00_69));
																																																BgL_arg2256z00_2361
																																																	=
																																																	CDR
																																																	(
																																																	((obj_t) BgL_ez00_69));
																																																{
																																																	BgL_ev_appz00_bglt
																																																		BgL_auxz00_7857;
																																																	{
																																																		obj_t
																																																			BgL_argsz00_7859;
																																																		obj_t
																																																			BgL_fz00_7858;
																																																		BgL_fz00_7858
																																																			=
																																																			BgL_arg2255z00_2360;
																																																		BgL_argsz00_7859
																																																			=
																																																			BgL_arg2256z00_2361;
																																																		BgL_argsz00_1597
																																																			=
																																																			BgL_argsz00_7859;
																																																		BgL_fz00_1596
																																																			=
																																																			BgL_fz00_7858;
																																																		goto
																																																			BgL_tagzd2176zd2_1598;
																																																	}
																																																	return
																																																		(
																																																		(obj_t)
																																																		BgL_auxz00_7857);
																																																}
																																															}
																																													}
																																											}
																																									}
																																							}
																																					}
																																			}
																																	}
																															}
																													}
																											}
																									}
																							}
																					}
																			}
																	}
															}
													}
											}
									}
							}
					}
				else
					{	/* Eval/evaluate.scm 424 */
						BgL_xz00_1520 = BgL_ez00_69;
						if (SYMBOLP(BgL_xz00_1520))
							{	/* Eval/evaluate.scm 427 */
								obj_t BgL__ortest_1103z00_2383;

								BgL__ortest_1103z00_2383 =
									BGl_convzd2varzd2zz__evaluatez00(BgL_xz00_1520,
									BgL_localsz00_70);
								if (CBOOL(BgL__ortest_1103z00_2383))
									{	/* Eval/evaluate.scm 427 */
										return BgL__ortest_1103z00_2383;
									}
								else
									{	/* Eval/evaluate.scm 195 */
										BgL_ev_globalz00_bglt BgL_new1078z00_3582;

										{	/* Eval/evaluate.scm 196 */
											BgL_ev_globalz00_bglt BgL_new1077z00_3583;

											BgL_new1077z00_3583 =
												((BgL_ev_globalz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
															BgL_ev_globalz00_bgl))));
											{	/* Eval/evaluate.scm 196 */
												long BgL_arg1395z00_3584;

												BgL_arg1395z00_3584 =
													BGL_CLASS_NUM(BGl_ev_globalz00zz__evaluate_typesz00);
												BGL_OBJECT_CLASS_NUM_SET(
													((BgL_objectz00_bglt) BgL_new1077z00_3583),
													BgL_arg1395z00_3584);
											}
											BgL_new1078z00_3582 = BgL_new1077z00_3583;
										}
										((((BgL_ev_globalz00_bglt) COBJECT(BgL_new1078z00_3582))->
												BgL_locz00) = ((obj_t) BgL_locz00_74), BUNSPEC);
										((((BgL_ev_globalz00_bglt) COBJECT(BgL_new1078z00_3582))->
												BgL_namez00) = ((obj_t) BgL_xz00_1520), BUNSPEC);
										{
											obj_t BgL_auxz00_7872;

											if (BGl_evmodulezf3zf3zz__evmodulez00(BgL_globalsz00_71))
												{	/* Eval/evaluate.scm 198 */
													BgL_auxz00_7872 = BgL_globalsz00_71;
												}
											else
												{	/* Eval/evaluate.scm 198 */
													BgL_auxz00_7872 = BGL_MODULE();
												}
											((((BgL_ev_globalz00_bglt) COBJECT(BgL_new1078z00_3582))->
													BgL_modz00) = ((obj_t) BgL_auxz00_7872), BUNSPEC);
										}
										return ((obj_t) BgL_new1078z00_3582);
									}
							}
						else
							{	/* Eval/evaluate.scm 428 */
								BgL_ev_littz00_bglt BgL_new1105z00_2384;

								{	/* Eval/evaluate.scm 429 */
									BgL_ev_littz00_bglt BgL_new1104z00_2385;

									BgL_new1104z00_2385 =
										((BgL_ev_littz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
													BgL_ev_littz00_bgl))));
									{	/* Eval/evaluate.scm 429 */
										long BgL_arg2278z00_2386;

										BgL_arg2278z00_2386 =
											BGL_CLASS_NUM(BGl_ev_littz00zz__evaluate_typesz00);
										BGL_OBJECT_CLASS_NUM_SET(
											((BgL_objectz00_bglt) BgL_new1104z00_2385),
											BgL_arg2278z00_2386);
									}
									BgL_new1105z00_2384 = BgL_new1104z00_2385;
								}
								((((BgL_ev_littz00_bglt) COBJECT(BgL_new1105z00_2384))->
										BgL_valuez00) = ((obj_t) BgL_xz00_1520), BUNSPEC);
								return ((obj_t) BgL_new1105z00_2384);
							}
					}
			}
		}

	}



/* loop~0 */
	obj_t BGl_loopze70ze7zz__evaluatez00(obj_t BgL_wherez00_4887,
		obj_t BgL_globalsz00_4886, obj_t BgL_localsz00_4885, obj_t BgL_locz00_4884,
		obj_t BgL_esz00_2720)
	{
		{	/* Eval/evaluate.scm 386 */
			if (NULLP(BgL_esz00_2720))
				{	/* Eval/evaluate.scm 387 */
					return BNIL;
				}
			else
				{	/* Eval/evaluate.scm 389 */
					obj_t BgL_ez00_2723;

					BgL_ez00_2723 = CAR(((obj_t) BgL_esz00_2720));
					{	/* Eval/evaluate.scm 390 */
						obj_t BgL_arg2477z00_2724;
						obj_t BgL_arg2478z00_2725;

						{	/* Eval/evaluate.scm 390 */
							obj_t BgL_arg2479z00_2726;

							{	/* Eval/evaluate.scm 150 */
								obj_t BgL__ortest_1070z00_3561;

								BgL__ortest_1070z00_3561 =
									BGl_getzd2sourcezd2locationz00zz__readerz00(BgL_ez00_2723);
								if (CBOOL(BgL__ortest_1070z00_3561))
									{	/* Eval/evaluate.scm 150 */
										BgL_arg2479z00_2726 = BgL__ortest_1070z00_3561;
									}
								else
									{	/* Eval/evaluate.scm 151 */
										obj_t BgL__ortest_1071z00_3562;

										BgL__ortest_1071z00_3562 =
											BGl_getzd2sourcezd2locationz00zz__readerz00
											(BgL_esz00_2720);
										if (CBOOL(BgL__ortest_1071z00_3562))
											{	/* Eval/evaluate.scm 151 */
												BgL_arg2479z00_2726 = BgL__ortest_1071z00_3562;
											}
										else
											{	/* Eval/evaluate.scm 151 */
												BgL_arg2479z00_2726 = BgL_locz00_4884;
											}
									}
							}
							BgL_arg2477z00_2724 =
								BGl_convz00zz__evaluatez00(BgL_ez00_2723, BgL_localsz00_4885,
								BgL_globalsz00_4886, BFALSE, BgL_wherez00_4887,
								BgL_arg2479z00_2726, ((bool_t) 0));
						}
						{	/* Eval/evaluate.scm 391 */
							obj_t BgL_arg2480z00_2727;

							BgL_arg2480z00_2727 = CDR(((obj_t) BgL_esz00_2720));
							BgL_arg2478z00_2725 =
								BGl_loopze70ze7zz__evaluatez00(BgL_wherez00_4887,
								BgL_globalsz00_4886, BgL_localsz00_4885, BgL_locz00_4884,
								BgL_arg2480z00_2727);
						}
						return MAKE_YOUNG_PAIR(BgL_arg2477z00_2724, BgL_arg2478z00_2725);
					}
				}
		}

	}



/* conv-vals~0 */
	obj_t BGl_convzd2valsze70z35zz__evaluatez00(obj_t BgL_wherez00_4889,
		obj_t BgL_globalsz00_4888, obj_t BgL_lz00_2532, obj_t BgL_varsz00_2533,
		obj_t BgL_localsz00_2534, obj_t BgL_locz00_2535)
	{
		{	/* Eval/evaluate.scm 502 */
			if (NULLP(BgL_lz00_2532))
				{	/* Eval/evaluate.scm 498 */
					return BNIL;
				}
			else
				{	/* Eval/evaluate.scm 500 */
					obj_t BgL_locz00_3714;

					{	/* Eval/evaluate.scm 500 */
						obj_t BgL_arg2365z00_3715;

						BgL_arg2365z00_3715 = CAR(((obj_t) BgL_lz00_2532));
						{	/* Eval/evaluate.scm 144 */
							obj_t BgL__ortest_1069z00_3724;

							BgL__ortest_1069z00_3724 =
								BGl_getzd2sourcezd2locationz00zz__readerz00
								(BgL_arg2365z00_3715);
							if (CBOOL(BgL__ortest_1069z00_3724))
								{	/* Eval/evaluate.scm 144 */
									BgL_locz00_3714 = BgL__ortest_1069z00_3724;
								}
							else
								{	/* Eval/evaluate.scm 144 */
									BgL_locz00_3714 = BgL_locz00_2535;
								}
						}
					}
					{	/* Eval/evaluate.scm 501 */
						obj_t BgL_arg2356z00_3716;
						obj_t BgL_arg2358z00_3717;

						{	/* Eval/evaluate.scm 501 */
							obj_t BgL_arg2359z00_3718;

							{	/* Eval/evaluate.scm 501 */
								obj_t BgL_pairz00_3730;

								{	/* Eval/evaluate.scm 501 */
									obj_t BgL_pairz00_3729;

									BgL_pairz00_3729 = CAR(((obj_t) BgL_lz00_2532));
									BgL_pairz00_3730 = CDR(BgL_pairz00_3729);
								}
								BgL_arg2359z00_3718 = CAR(BgL_pairz00_3730);
							}
							BgL_arg2356z00_3716 =
								BGl_convz00zz__evaluatez00(BgL_arg2359z00_3718,
								BgL_localsz00_2534, BgL_globalsz00_4888, BFALSE,
								BgL_wherez00_4889, BgL_locz00_3714, ((bool_t) 0));
						}
						{	/* Eval/evaluate.scm 502 */
							obj_t BgL_arg2360z00_3719;
							obj_t BgL_arg2362z00_3720;
							obj_t BgL_arg2363z00_3721;

							BgL_arg2360z00_3719 = CDR(((obj_t) BgL_lz00_2532));
							BgL_arg2362z00_3720 = CDR(((obj_t) BgL_varsz00_2533));
							{	/* Eval/evaluate.scm 502 */
								obj_t BgL_arg2364z00_3722;

								BgL_arg2364z00_3722 = CAR(((obj_t) BgL_varsz00_2533));
								BgL_arg2363z00_3721 =
									MAKE_YOUNG_PAIR(BgL_arg2364z00_3722, BgL_localsz00_2534);
							}
							BgL_arg2358z00_3717 =
								BGl_convzd2valsze70z35zz__evaluatez00(BgL_wherez00_4889,
								BgL_globalsz00_4888, BgL_arg2360z00_3719, BgL_arg2362z00_3720,
								BgL_arg2363z00_3721, BgL_locz00_3714);
						}
						return MAKE_YOUNG_PAIR(BgL_arg2356z00_3716, BgL_arg2358z00_3717);
					}
				}
		}

	}



/* conv-lambda~0 */
	BgL_ev_absz00_bglt BGl_convzd2lambdaze70z35zz__evaluatez00(obj_t
		BgL_globalsz00_4893, obj_t BgL_localsz00_4892, obj_t BgL_ez00_4891,
		obj_t BgL_locz00_4890, obj_t BgL_formalsz00_2729, obj_t BgL_bodyz00_2730,
		obj_t BgL_wherez00_2731, obj_t BgL_typez00_2732)
	{
		{	/* Eval/evaluate.scm 404 */
			{
				obj_t BgL_lz00_2763;

				{	/* Eval/evaluate.scm 406 */
					obj_t BgL_argsz00_2735;

					BgL_lz00_2763 =
						BGl_dssslzd2formalszd2ze3schemezd2typedzd2formalsze3zz__dssslz00
						(BgL_formalsz00_2729, BGl_errorzd2envzd2zz__errorz00, ((bool_t) 1));
					{
						obj_t BgL_rz00_2767;
						obj_t BgL_flatz00_2768;
						long BgL_arityz00_2769;

						BgL_rz00_2767 = BgL_lz00_2763;
						BgL_flatz00_2768 = BNIL;
						BgL_arityz00_2769 = 0L;
					BgL_zc3z04anonymousza32498ze3z87_2770:
						if (NULLP(BgL_rz00_2767))
							{	/* Eval/evaluate.scm 399 */
								obj_t BgL_val0_1206z00_2772;

								BgL_val0_1206z00_2772 = bgl_reverse_bang(BgL_flatz00_2768);
								{	/* Eval/evaluate.scm 399 */
									int BgL_tmpz00_7923;

									BgL_tmpz00_7923 = (int) (2L);
									BGL_MVALUES_NUMBER_SET(BgL_tmpz00_7923);
								}
								{	/* Eval/evaluate.scm 399 */
									obj_t BgL_auxz00_7928;
									int BgL_tmpz00_7926;

									BgL_auxz00_7928 = BINT(BgL_arityz00_2769);
									BgL_tmpz00_7926 = (int) (1L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_7926, BgL_auxz00_7928);
								}
								BgL_argsz00_2735 = BgL_val0_1206z00_2772;
							}
						else
							{	/* Eval/evaluate.scm 398 */
								if (PAIRP(BgL_rz00_2767))
									{	/* Eval/evaluate.scm 403 */
										obj_t BgL_arg2501z00_2775;
										obj_t BgL_arg2502z00_2776;
										long BgL_arg2504z00_2777;

										BgL_arg2501z00_2775 = CDR(BgL_rz00_2767);
										BgL_arg2502z00_2776 =
											MAKE_YOUNG_PAIR(BGl_untypezd2identzd2zz__evaluatez00(CAR
												(BgL_rz00_2767)), BgL_flatz00_2768);
										BgL_arg2504z00_2777 = (BgL_arityz00_2769 + 1L);
										{
											long BgL_arityz00_7940;
											obj_t BgL_flatz00_7939;
											obj_t BgL_rz00_7938;

											BgL_rz00_7938 = BgL_arg2501z00_2775;
											BgL_flatz00_7939 = BgL_arg2502z00_2776;
											BgL_arityz00_7940 = BgL_arg2504z00_2777;
											BgL_arityz00_2769 = BgL_arityz00_7940;
											BgL_flatz00_2768 = BgL_flatz00_7939;
											BgL_rz00_2767 = BgL_rz00_7938;
											goto BgL_zc3z04anonymousza32498ze3z87_2770;
										}
									}
								else
									{	/* Eval/evaluate.scm 401 */
										obj_t BgL_val0_1208z00_2780;
										long BgL_val1_1209z00_2781;

										{	/* Eval/evaluate.scm 401 */
											obj_t BgL_arg2508z00_2782;

											BgL_arg2508z00_2782 =
												MAKE_YOUNG_PAIR(BGl_untypezd2identzd2zz__evaluatez00
												(BgL_rz00_2767), BgL_flatz00_2768);
											BgL_val0_1208z00_2780 =
												bgl_reverse_bang(BgL_arg2508z00_2782);
										}
										BgL_val1_1209z00_2781 = ((-1L) - BgL_arityz00_2769);
										{	/* Eval/evaluate.scm 401 */
											int BgL_tmpz00_7945;

											BgL_tmpz00_7945 = (int) (2L);
											BGL_MVALUES_NUMBER_SET(BgL_tmpz00_7945);
										}
										{	/* Eval/evaluate.scm 401 */
											obj_t BgL_auxz00_7950;
											int BgL_tmpz00_7948;

											BgL_auxz00_7950 = BINT(BgL_val1_1209z00_2781);
											BgL_tmpz00_7948 = (int) (1L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_7948, BgL_auxz00_7950);
										}
										BgL_argsz00_2735 = BgL_val0_1208z00_2780;
					}}}
					{	/* Eval/evaluate.scm 407 */
						obj_t BgL_arityz00_2736;

						{	/* Eval/evaluate.scm 408 */
							obj_t BgL_tmpz00_3568;

							{	/* Eval/evaluate.scm 408 */
								int BgL_tmpz00_7954;

								BgL_tmpz00_7954 = (int) (1L);
								BgL_tmpz00_3568 = BGL_MVALUES_VAL(BgL_tmpz00_7954);
							}
							{	/* Eval/evaluate.scm 408 */
								int BgL_tmpz00_7957;

								BgL_tmpz00_7957 = (int) (1L);
								BGL_MVALUES_VAL_SET(BgL_tmpz00_7957, BUNSPEC);
							}
							BgL_arityz00_2736 = BgL_tmpz00_3568;
						}
						{	/* Eval/evaluate.scm 408 */
							obj_t BgL_varsz00_2737;
							obj_t BgL_bodyz00_2738;
							obj_t BgL_nlocz00_2739;

							if (NULLP(BgL_argsz00_2735))
								{	/* Eval/evaluate.scm 408 */
									BgL_varsz00_2737 = BNIL;
								}
							else
								{	/* Eval/evaluate.scm 408 */
									obj_t BgL_head1212z00_2746;

									BgL_head1212z00_2746 = MAKE_YOUNG_PAIR(BNIL, BNIL);
									{
										obj_t BgL_l1210z00_2748;
										obj_t BgL_tail1213z00_2749;

										BgL_l1210z00_2748 = BgL_argsz00_2735;
										BgL_tail1213z00_2749 = BgL_head1212z00_2746;
									BgL_zc3z04anonymousza32486ze3z87_2750:
										if (NULLP(BgL_l1210z00_2748))
											{	/* Eval/evaluate.scm 408 */
												BgL_varsz00_2737 = CDR(BgL_head1212z00_2746);
											}
										else
											{	/* Eval/evaluate.scm 408 */
												obj_t BgL_newtail1214z00_2752;

												{	/* Eval/evaluate.scm 408 */
													BgL_ev_varz00_bglt BgL_arg2489z00_2754;

													{	/* Eval/evaluate.scm 408 */
														obj_t BgL_vz00_2755;

														BgL_vz00_2755 = CAR(((obj_t) BgL_l1210z00_2748));
														{	/* Eval/evaluate.scm 409 */
															BgL_ev_varz00_bglt BgL_new1100z00_2756;

															{	/* Eval/evaluate.scm 411 */
																BgL_ev_varz00_bglt BgL_new1099z00_2757;

																BgL_new1099z00_2757 =
																	((BgL_ev_varz00_bglt)
																	BOBJECT(GC_MALLOC(sizeof(struct
																				BgL_ev_varz00_bgl))));
																{	/* Eval/evaluate.scm 411 */
																	long BgL_arg2490z00_2758;

																	BgL_arg2490z00_2758 =
																		BGL_CLASS_NUM
																		(BGl_ev_varz00zz__evaluate_typesz00);
																	BGL_OBJECT_CLASS_NUM_SET(((BgL_objectz00_bglt)
																			BgL_new1099z00_2757),
																		BgL_arg2490z00_2758);
																}
																BgL_new1100z00_2756 = BgL_new1099z00_2757;
															}
															((((BgL_ev_varz00_bglt)
																		COBJECT(BgL_new1100z00_2756))->
																	BgL_namez00) =
																((obj_t) CAR(((obj_t) BgL_vz00_2755))),
																BUNSPEC);
															((((BgL_ev_varz00_bglt)
																		COBJECT(BgL_new1100z00_2756))->BgL_effz00) =
																((obj_t) BFALSE), BUNSPEC);
															((((BgL_ev_varz00_bglt)
																		COBJECT(BgL_new1100z00_2756))->
																	BgL_typez00) =
																((obj_t) CDR(((obj_t) BgL_vz00_2755))),
																BUNSPEC);
															BgL_arg2489z00_2754 = BgL_new1100z00_2756;
													}}
													BgL_newtail1214z00_2752 =
														MAKE_YOUNG_PAIR(
														((obj_t) BgL_arg2489z00_2754), BNIL);
												}
												SET_CDR(BgL_tail1213z00_2749, BgL_newtail1214z00_2752);
												{	/* Eval/evaluate.scm 408 */
													obj_t BgL_arg2488z00_2753;

													BgL_arg2488z00_2753 =
														CDR(((obj_t) BgL_l1210z00_2748));
													{
														obj_t BgL_tail1213z00_7985;
														obj_t BgL_l1210z00_7984;

														BgL_l1210z00_7984 = BgL_arg2488z00_2753;
														BgL_tail1213z00_7985 = BgL_newtail1214z00_2752;
														BgL_tail1213z00_2749 = BgL_tail1213z00_7985;
														BgL_l1210z00_2748 = BgL_l1210z00_7984;
														goto BgL_zc3z04anonymousza32486ze3z87_2750;
													}
												}
											}
									}
								}
							BgL_bodyz00_2738 =
								BGl_makezd2dssslzd2functionzd2preludezd2zz__dssslz00
								(BgL_ez00_4891, BgL_formalsz00_2729,
								BGl_typezd2checkszd2zz__evaluatez00(BgL_argsz00_2735,
									BgL_argsz00_2735,
									BGl_typezd2resultzd2zz__evaluatez00(BgL_typez00_2732,
										BgL_bodyz00_2730, BgL_locz00_4890), BgL_locz00_4890,
									BgL_wherez00_2731), BGl_errorzd2envzd2zz__errorz00);
							{	/* Eval/evaluate.scm 144 */
								obj_t BgL__ortest_1069z00_3578;

								BgL__ortest_1069z00_3578 =
									BGl_getzd2sourcezd2locationz00zz__readerz00(BgL_bodyz00_2730);
								if (CBOOL(BgL__ortest_1069z00_3578))
									{	/* Eval/evaluate.scm 144 */
										BgL_nlocz00_2739 = BgL__ortest_1069z00_3578;
									}
								else
									{	/* Eval/evaluate.scm 144 */
										BgL_nlocz00_2739 = BgL_locz00_4890;
									}
							}
							{	/* Eval/evaluate.scm 417 */
								BgL_ev_absz00_bglt BgL_new1102z00_2740;

								{	/* Eval/evaluate.scm 418 */
									BgL_ev_absz00_bglt BgL_new1101z00_2742;

									BgL_new1101z00_2742 =
										((BgL_ev_absz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
													BgL_ev_absz00_bgl))));
									{	/* Eval/evaluate.scm 418 */
										long BgL_arg2484z00_2743;

										BgL_arg2484z00_2743 =
											BGL_CLASS_NUM(BGl_ev_absz00zz__evaluate_typesz00);
										BGL_OBJECT_CLASS_NUM_SET(
											((BgL_objectz00_bglt) BgL_new1101z00_2742),
											BgL_arg2484z00_2743);
									}
									BgL_new1102z00_2740 = BgL_new1101z00_2742;
								}
								((((BgL_ev_absz00_bglt) COBJECT(BgL_new1102z00_2740))->
										BgL_locz00) = ((obj_t) BgL_locz00_4890), BUNSPEC);
								((((BgL_ev_absz00_bglt) COBJECT(BgL_new1102z00_2740))->
										BgL_wherez00) = ((obj_t) BgL_wherez00_2731), BUNSPEC);
								((((BgL_ev_absz00_bglt) COBJECT(BgL_new1102z00_2740))->
										BgL_arityz00) = ((obj_t) BgL_arityz00_2736), BUNSPEC);
								((((BgL_ev_absz00_bglt) COBJECT(BgL_new1102z00_2740))->
										BgL_varsz00) = ((obj_t) BgL_varsz00_2737), BUNSPEC);
								{
									BgL_ev_exprz00_bglt BgL_auxz00_8000;

									{	/* Eval/evaluate.scm 422 */
										obj_t BgL_arg2483z00_2741;

										BgL_arg2483z00_2741 =
											BGl_appendzd221011zd2zz__evaluatez00(BgL_varsz00_2737,
											BgL_localsz00_4892);
										BgL_auxz00_8000 =
											((BgL_ev_exprz00_bglt)
											BGl_convz00zz__evaluatez00(BgL_bodyz00_2738,
												BgL_arg2483z00_2741, BgL_globalsz00_4893, BTRUE,
												BgL_wherez00_2731, BgL_nlocz00_2739, ((bool_t) 0)));
									}
									((((BgL_ev_absz00_bglt) COBJECT(BgL_new1102z00_2740))->
											BgL_bodyz00) =
										((BgL_ev_exprz00_bglt) BgL_auxz00_8000), BUNSPEC);
								}
								((((BgL_ev_absz00_bglt) COBJECT(BgL_new1102z00_2740))->
										BgL_siza7eza7) = ((int) (int) (0L)), BUNSPEC);
								((((BgL_ev_absz00_bglt) COBJECT(BgL_new1102z00_2740))->
										BgL_bindz00) = ((obj_t) BNIL), BUNSPEC);
								((((BgL_ev_absz00_bglt) COBJECT(BgL_new1102z00_2740))->
										BgL_freez00) = ((obj_t) BNIL), BUNSPEC);
								((((BgL_ev_absz00_bglt) COBJECT(BgL_new1102z00_2740))->
										BgL_innerz00) = ((obj_t) BNIL), BUNSPEC);
								((((BgL_ev_absz00_bglt) COBJECT(BgL_new1102z00_2740))->
										BgL_boxesz00) = ((obj_t) BNIL), BUNSPEC);
								return BgL_new1102z00_2740;
							}
						}
					}
				}
			}
		}

	}



/* uconv/loc~0 */
	obj_t BGl_uconvzf2locze70z15zz__evaluatez00(obj_t BgL_wherez00_4900,
		obj_t BgL_globalsz00_4899, obj_t BgL_localsz00_4898, obj_t BgL_ez00_2707,
		obj_t BgL_locz00_2708)
	{
		{	/* Eval/evaluate.scm 377 */
			return
				BGl_convz00zz__evaluatez00(BgL_ez00_2707, BgL_localsz00_4898,
				BgL_globalsz00_4899, BFALSE, BgL_wherez00_4900, BgL_locz00_2708,
				((bool_t) 0));
		}

	}



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

	}



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

	}



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

	}



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

	}

#ifdef __cplusplus
}
#endif
