/*===========================================================================*/
/*   (Eval/evaluate_comp.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_comp.scm -indent -fno-arithmetic-overflow -o objs/obj_u/Eval/evaluate_comp.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_COMP_TYPE_DEFINITIONS
#define BGL___EVALUATE_COMP_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_labelsz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_varsz00;
		obj_t BgL_valsz00;
		obj_t BgL_envz00;
		obj_t BgL_stkz00;
		struct BgL_ev_exprz00_bgl *BgL_bodyz00;
		obj_t BgL_boxesz00;
	}                   *BgL_ev_labelsz00_bglt;

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

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

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


#endif													// BGL___EVALUATE_COMP_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	static obj_t BGl_zc3z04anonymousza31935ze3ze70z60zz__evaluate_compz00(long,
		obj_t, long, obj_t, BgL_ev_appz00_bglt, obj_t, obj_t);
	static obj_t BGl_z62compzd2ev_defglobal1432zb0zz__evaluate_compz00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza32010ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t
		BGl_iszd2constantzd2funzf3zf3zz__evaluate_compz00(BgL_ev_exprz00_bglt, long,
		obj_t, obj_t);
	static obj_t BGl_makezd2statezd2zz__evaluate_compz00(void);
	static obj_t BGl_z62zc3z04anonymousza33733ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza32842ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62compzd2ev_unwindzd2prote1452z62zz__evaluate_compz00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza32834ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza33555ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31935ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza32826ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza32486ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	extern obj_t BGl_ev_defglobalz00zz__evaluate_typesz00;
	static obj_t BGl_z62compzd2ev_setglobal1430zb0zz__evaluate_compz00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_pushzd2nargszd2onzd2spzd2zz__evaluate_compz00(obj_t, obj_t,
		obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_compilez00zz__evaluate_compz00(BgL_ev_exprz00_bglt);
	static obj_t BGl_zc3z04anonymousza32010ze3ze70z60zz__evaluate_compz00(long,
		obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_requirezd2initializa7ationz75zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_z62zc3z04anonymousza32851ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza33572ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza33491ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza32819ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31839ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_symbol4601z00zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_symbol4603z00zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_symbol4605z00zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_symbol4607z00zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_symbol4609z00zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_zc3z04exitza33336ze3ze70z60zz__evaluate_compz00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza32860ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza33743ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza33484ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31864ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza33638ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza33379ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_symbol4611z00zz__evaluate_compz00 = BUNSPEC;
	extern obj_t BGl_za2classesza2z00zz__objectz00;
	static obj_t BGl_symbol4613z00zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_compzd2oldzd2callz00zz__evaluate_compz00(BgL_ev_appz00_bglt,
		obj_t);
	static obj_t BGl_symbol4615z00zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_symbol4617z00zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_symbol4619z00zz__evaluate_compz00 = BUNSPEC;
	extern obj_t BGl_registerzd2genericz12zc0zz__objectz00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza33833ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza33582ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza32845ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza33647ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_zc3z04anonymousza32137ze3ze70z60zz__evaluate_compz00(long,
		obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza33469ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	extern obj_t BGl_ev_letrecz00zz__evaluate_typesz00;
	extern obj_t BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(obj_t);
	static obj_t BGl_zc3z04anonymousza31864ze3ze70z60zz__evaluate_compz00(long,
		obj_t, long, obj_t, BgL_ev_appz00_bglt, obj_t, obj_t);
	static obj_t BGl_zc3z04anonymousza32486ze3ze70z60zz__evaluate_compz00(long,
		obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_symbol4702z00zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_symbol4621z00zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_symbol4623z00zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_symbol4625z00zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_z62zc3z04anonymousza33010ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza32111ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_symbol4627z00zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_symbol4629z00zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_toplevelzd2initzd2zz__evaluate_compz00(void);
	extern obj_t unwind_stack_until(obj_t, obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza33664ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza32854ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza32838ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	extern obj_t BGl_ev_letz00zz__evaluate_typesz00;
	static obj_t BGl_symbol4631z00zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_symbol4713z00zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_symbol4633z00zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_symbol4715z00zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_symbol4635z00zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_symbol4717z00zz__evaluate_compz00 = BUNSPEC;
	extern obj_t BGl_formatz00zz__r4_output_6_10_3z00(obj_t, obj_t);
	static obj_t BGl_subzd2stkzd2zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_symbol4637z00zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_symbol4719z00zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_symbol4639z00zz__evaluate_compz00 = BUNSPEC;
	extern bool_t BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t);
	static obj_t BGl_z62zc3z04anonymousza31980ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza33916ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza33673ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza32863ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	extern obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31956ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_genericzd2initzd2zz__evaluate_compz00(void);
	extern obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t);
	extern obj_t BGl_ev_prog2z00zz__evaluate_typesz00;
	static obj_t BGl_symbol4641z00zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_symbol4643z00zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_z62zc3z04anonymousza32210ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_symbol4645z00zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_z62zc3z04anonymousza32040ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza33004ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza32113ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_symbol4647z00zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_z62zc3z04anonymousza32024ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_symbol4649z00zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_symbol4569z00zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_z62compzd2ev_prog21442zb0zz__evaluate_compz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_Eze70ze7zz__evaluate_compz00(obj_t, obj_t);
	extern obj_t BGl_evtypezd2errorzd2zz__everrorz00(obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza33844ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza32872ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_objectzd2initzd2zz__evaluate_compz00(void);
	static obj_t BGl_zc3z04anonymousza32057ze3ze70z60zz__evaluate_compz00(long,
		obj_t, obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza32848ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	extern obj_t BGl_2za2za2zz__r4_numbers_6_5z00(obj_t, obj_t);
	extern obj_t BGl_2zb2zb2zz__r4_numbers_6_5z00(obj_t, obj_t);
	extern obj_t BGl_ev_bindzd2exitzd2zz__evaluate_typesz00;
	extern obj_t BGl_2zd2zd2zz__r4_numbers_6_5z00(obj_t, obj_t);
	static obj_t BGl_zc3z04anonymousza31839ze3ze70z60zz__evaluate_compz00(long,
		obj_t, long, obj_t, BgL_ev_appz00_bglt, obj_t, obj_t);
	extern obj_t BGl_2zf2zf2zz__r4_numbers_6_5z00(obj_t, obj_t);
	static obj_t BGl_symbol4651z00zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_symbol4571z00zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_symbol4653z00zz__evaluate_compz00 = BUNSPEC;
	extern obj_t bgl_bignum_mul(obj_t, obj_t);
	static obj_t BGl_symbol4573z00zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_symbol4655z00zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_symbol4657z00zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_symbol4659z00zz__evaluate_compz00 = BUNSPEC;
	extern bool_t BGl_2zc3zc3zz__r4_numbers_6_5z00(obj_t, obj_t);
	static obj_t BGl_symbol4579z00zz__evaluate_compz00 = BUNSPEC;
	extern bool_t BGl_2zd3zd3zz__r4_numbers_6_5z00(obj_t, obj_t);
	extern bool_t BGl_2ze3ze3zz__r4_numbers_6_5z00(obj_t, obj_t);
	extern obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	extern obj_t BGl_za2inheritancesza2z00zz__objectz00;
	static obj_t BGl_z62zc3z04anonymousza33861ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza32881ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31982ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_zc3z04anonymousza32092ze3ze70z60zz__evaluate_compz00(long,
		obj_t, obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza33594ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza32857ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	extern obj_t bgl_reverse_bang(obj_t);
	static long BGl_za2za2siza7ezd2stackza2za2z75zz__evaluate_compz00 = 0L;
	static obj_t BGl_symbol4661z00zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_symbol4663z00zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_z62zc3z04anonymousza32212ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza33014ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_symbol4587z00zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_symbol4589z00zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_z62zc3z04anonymousza32890ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_zc3z04anonymousza32075ze3ze70z60zz__evaluate_compz00(long,
		obj_t, obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza32866ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	extern obj_t BGl_ev_unwindzd2protectzd2zz__evaluate_typesz00;
	static obj_t BGl_symbol4591z00zz__evaluate_compz00 = BUNSPEC;
	extern obj_t bgl_bignum_add(obj_t, obj_t);
	static obj_t BGl_symbol4594z00zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_symbol4597z00zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_symbol4599z00zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_z62zc3z04anonymousza32980ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza32972ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza33782ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza33936ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza33685ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31984ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza32875ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	extern bool_t BGl_isazf3zf3zz__objectz00(obj_t, obj_t);
	extern obj_t bstring_to_symbol(obj_t);
	extern obj_t make_vector(long, obj_t);
	static obj_t BGl_z62zc3z04anonymousza33210ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	extern obj_t BGl_ev_letza2za2zz__evaluate_typesz00;
	static obj_t BGl_z62zc3z04anonymousza32214ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62compzd2ev_or1438zb0zz__evaluate_compz00(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_ev_labelsz00zz__evaluate_typesz00;
	static obj_t BGl_z62zc3z04anonymousza32036ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	extern obj_t BGl_evmodulezd2namezd2zz__evmodulez00(obj_t);
	static obj_t BGl_z62zc3z04anonymousza32109ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_bindzd2framezd2zz__evaluate_compz00(obj_t, obj_t, long, long,
		obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza33872ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_zc3z04anonymousza32281ze3ze70z60zz__evaluate_compz00(long,
		obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza32884ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_appendzd221011zd2zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza33759ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_zc3z04anonymousza31956ze3ze70z60zz__evaluate_compz00(long,
		obj_t, long, obj_t, BgL_ev_appz00_bglt, obj_t, obj_t);
	static obj_t BGl_methodzd2initzd2zz__evaluate_compz00(void);
	static obj_t BGl_recze70ze7zz__evaluate_compz00(obj_t, obj_t, long);
	static bool_t BGl_recze71ze7zz__evaluate_compz00(obj_t);
	static obj_t BGl_z62zc3z04anonymousza32320ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_symbol4694z00zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_z62compzd2ev_var1424zb0zz__evaluate_compz00(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_ev_absz00zz__evaluate_typesz00;
	extern obj_t BGl_ev_trapz00zz__evaluate_typesz00;
	static obj_t BGl_z62zc3z04anonymousza32893ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza33695ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza32869ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31889ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	extern obj_t BGl_everrorz00zz__everrorz00(obj_t, obj_t, obj_t, obj_t);
	extern obj_t BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t, obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza33050ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza33131ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static bool_t BGl_makezd2boxeszd2zz__evaluate_compz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza32038ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_zc3z04anonymousza32542ze3ze70z60zz__evaluate_compz00(long,
		obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_indexz00zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza32983ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza33793ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza33769ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza32878ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza32789ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_mainze710ze7zz__evaluate_compz00(long, obj_t, obj_t);
	static obj_t BGl_mainze711ze7zz__evaluate_compz00(long, obj_t, obj_t);
	static obj_t BGl_mainze712ze7zz__evaluate_compz00(long, obj_t, obj_t);
	static obj_t BGl_mainze713ze7zz__evaluate_compz00(long, obj_t, obj_t);
	static obj_t BGl_mainze714ze7zz__evaluate_compz00(long, obj_t, obj_t);
	static obj_t BGl_mainze715ze7zz__evaluate_compz00(long, obj_t, obj_t);
	static obj_t BGl_mainze716ze7zz__evaluate_compz00(long, obj_t, obj_t, obj_t);
	static obj_t BGl_mainze717ze7zz__evaluate_compz00(long, obj_t, obj_t, obj_t);
	extern obj_t bgl_bignum_sub(obj_t, obj_t);
	static obj_t BGl_mainze718ze7zz__evaluate_compz00(long, obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza33213ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_mainze719ze7zz__evaluate_compz00(long, obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza33116ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62compzd2ev_let1444zb0zz__evaluate_compz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza33027ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza33019ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_zc3z04anonymousza32040ze3ze70z60zz__evaluate_compz00(long,
		obj_t, obj_t, obj_t, obj_t, obj_t);
	static obj_t
		BGl_globalzd2funzd2valuez00zz__evaluate_compz00(BgL_ev_exprz00_bglt);
	static obj_t BGl_reset_profilez00zz__evaluate_compz00(void);
	static bool_t BGl_freezd2restorezd2zz__evaluate_compz00(obj_t, obj_t, long);
	static obj_t BGl_freezd2collectzd2zz__evaluate_compz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza33980ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	extern obj_t BGl_ev_setglobalz00zz__evaluate_typesz00;
	static obj_t BGl_z62zc3z04anonymousza32992ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_zc3z04anonymousza32418ze3ze70z60zz__evaluate_compz00(long,
		obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31996ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza32887ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62compzd2ev_goto1460zb0zz__evaluate_compz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_mainze720ze7zz__evaluate_compz00(long, obj_t, obj_t, obj_t);
	static obj_t BGl_mainze721ze7zz__evaluate_compz00(long, obj_t, obj_t, obj_t);
	static obj_t BGl_mainze722ze7zz__evaluate_compz00(long, obj_t, obj_t, obj_t);
	static obj_t BGl_mainze723ze7zz__evaluate_compz00(long, obj_t, obj_t, obj_t);
	extern obj_t bgl_long_to_bignum(long);
	static obj_t BGl_mainze724ze7zz__evaluate_compz00(long, obj_t, obj_t, obj_t,
		obj_t);
	extern obj_t BGl_ev_ifz00zz__evaluate_typesz00;
	static obj_t BGl_mainze725ze7zz__evaluate_compz00(long, obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_mainze726ze7zz__evaluate_compz00(long, obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_mainze727ze7zz__evaluate_compz00(long, obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_mainze728ze7zz__evaluate_compz00(long, obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza32161ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_mainze729ze7zz__evaluate_compz00(long, obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza33036ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza32137ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza32896ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62run4500z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_mainze730ze7zz__evaluate_compz00(long, obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62run4502z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_mainze731ze7zz__evaluate_compz00(long, obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_mainze732ze7zz__evaluate_compz00(long, obj_t, obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62run4504z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_mainze733ze7zz__evaluate_compz00(long, obj_t, obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_mainze734ze7zz__evaluate_compz00(long, obj_t, obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62run4506z62zz__evaluate_compz00(obj_t, obj_t);
	extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
	static obj_t BGl_mainze735ze7zz__evaluate_compz00(long, obj_t, obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_mainze736ze7zz__evaluate_compz00(long, obj_t, obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62run4508z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_mainze737ze7zz__evaluate_compz00(long, obj_t, obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_mainze738ze7zz__evaluate_compz00(long, obj_t, obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_mainze739ze7zz__evaluate_compz00(long, obj_t, obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza32057ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_zc3z04anonymousza32113ze3ze70z60zz__evaluate_compz00(long,
		obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl__indexz00zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_zc3z04anonymousza32248ze3ze70z60zz__evaluate_compz00(long,
		obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza32986ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62compzd2ev_global1428zb0zz__evaluate_compz00(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00(obj_t, long, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza32897ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62exitz62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_z62run4510z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_mainze740ze7zz__evaluate_compz00(long, obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_z62run4512z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_mainze741ze7zz__evaluate_compz00(long, obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_inlinezd2callzd2zz__evaluate_compz00(obj_t,
		BgL_ev_exprz00_bglt, obj_t, obj_t);
	static obj_t BGl_mainze742ze7zz__evaluate_compz00(long, obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_z62run4514z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_mainze743ze7zz__evaluate_compz00(long, obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_z62run4516z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza33321ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62run4518z62zz__evaluate_compz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_findzd2statezd2zz__evaluate_compz00(void);
	static obj_t BGl_z62zc3z04anonymousza33038ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza33886ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza33959ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_zc3z04anonymousza31984ze3ze70z60zz__evaluate_compz00(long,
		obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_compzd2withzd2pushz00zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_z62run4520z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_z62compzd2ev_synchroniza7e1456z17zz__evaluate_compz00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62run4522z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_z62run4524z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_catchzd2trampolinezd2zz__evaluate_compz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza33330ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62run4526z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_z62run4528z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_z62compilez62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza32075ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_zc3z04anonymousza32024ze3ze70z60zz__evaluate_compz00(long,
		obj_t, obj_t, obj_t, obj_t);
	extern obj_t BGl_ev_gotoz00zz__evaluate_typesz00;
	static obj_t BGl_z62zc3lexintza1zz__evaluate_compz00(obj_t, obj_t, obj_t);
	extern bool_t bigloo_string_lt(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza32996ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza32899ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62compzd2ev_labels1458zb0zz__evaluate_compz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_zc3z04exitza33322ze3ze70z60zz__evaluate_compz00(obj_t, obj_t,
		obj_t, long, obj_t);
	static obj_t BGl_z62run4530z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_z62run4532z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_z62run4534z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza33331ze3ze5zz__evaluate_compz00(obj_t);
	static obj_t BGl_z62run4536z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_z62run4538z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_za2za2prof_resultsza2za2z00zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_z62zc3z04anonymousza32092ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_mainze70ze7zz__evaluate_compz00(long, obj_t,
		BgL_ev_absz00_bglt, obj_t, obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_mainze71ze7zz__evaluate_compz00(long, obj_t,
		BgL_ev_absz00_bglt, obj_t, obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_mainze72ze7zz__evaluate_compz00(long, obj_t,
		BgL_ev_absz00_bglt, obj_t, obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_z62findzd2statezb0zz__evaluate_compz00(obj_t);
	static obj_t BGl_mainze73ze7zz__evaluate_compz00(long, obj_t,
		BgL_ev_absz00_bglt, obj_t, obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_mainze74ze7zz__evaluate_compz00(long, obj_t);
	static obj_t BGl_mainze75ze7zz__evaluate_compz00(long, obj_t);
	static obj_t BGl_mainze76ze7zz__evaluate_compz00(long, obj_t);
	static obj_t BGl_mainze77ze7zz__evaluate_compz00(long, obj_t);
	static obj_t BGl_ozd2ze3sze70zd6zz__evaluate_compz00(obj_t);
	static obj_t BGl_mainze78ze7zz__evaluate_compz00(long, obj_t, obj_t);
	static obj_t BGl_z62runz62zz__evaluate_compz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_modulezd2initializa7ationz75zz__evaluate_compz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evaluate_usez00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evaluate_uncompz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evaluate_typesz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evmodulez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__everrorz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evcompilez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evenvz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__expandz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__prognz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__ppz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r5_control_features_6_4z00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_booleans_6_1z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_characters_6_6z00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonum_dtoaz00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(long, char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__srfi4z00(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_mainze79ze7zz__evaluate_compz00(long, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza32989ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62run4540z62zz__evaluate_compz00(obj_t, obj_t);
	extern obj_t BGl_sortz00zz__r4_vectors_6_8z00(obj_t, obj_t);
	static obj_t BGl_z62run4542z62zz__evaluate_compz00(obj_t, obj_t);
	extern obj_t BGl_ev_globalz00zz__evaluate_typesz00;
	static obj_t BGl_z62run4544z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza33340ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62run4546z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_z62run4548z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_zc3z04anonymousza32365ze3ze70z60zz__evaluate_compz00(long,
		obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
	extern bool_t BGl_numberzf3zf3zz__r4_numbers_6_5z00(obj_t);
	static obj_t BGl_z62run4550z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_z62compzd2ev_app1462zb0zz__evaluate_compz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62run4552z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_z62run4554z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza33503ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza33090ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62run4556z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza32361ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	extern int bgl_debug(void);
	extern obj_t BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(long,
		long);
	static double BGl_evalzd2floatzd2arithz00zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_z62run4558z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_zc3z04anonymousza32320ze3ze70z60zz__evaluate_compz00(long,
		obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza32418ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza32248ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	extern obj_t BGl_ev_littz00zz__evaluate_typesz00;
	extern obj_t BGl_ev_orz00zz__evaluate_typesz00;
	static obj_t BGl_zc3z04anonymousza32186ze3ze70z60zz__evaluate_compz00(long,
		obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza33898ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza32999ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_pushzd2boxeszd2argszd2onzd2spz00zz__evaluate_compz00(obj_t,
		obj_t, obj_t, long, obj_t);
	extern obj_t BGl_ev_varz00zz__evaluate_typesz00;
	static obj_t BGl_loczd2typezd2errorz00zz__evaluate_compz00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62run4560z62zz__evaluate_compz00(obj_t, obj_t);
	extern obj_t create_struct(obj_t, int);
	static obj_t BGl_z62run4480z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_z62run4562z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_z62run4482z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_z62run4564z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza33512ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza33180ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62run4484z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza33172ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza33334ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_get_profilez00zz__evaluate_compz00(void);
	static obj_t BGl_z62zc3z04anonymousza32281ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62run4486z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza33237ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62run4488z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_z62main4501z62zz__evaluate_compz00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62main4503z62zz__evaluate_compz00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_cnstzd2initzd2zz__evaluate_compz00(void);
	static obj_t BGl_z62main4505z62zz__evaluate_compz00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62main4507z62zz__evaluate_compz00(obj_t, obj_t, obj_t,
		obj_t);
	extern obj_t BGl_evarityzd2errorzd2zz__everrorz00(obj_t, obj_t, int, int);
	static obj_t BGl_z62main4509z62zz__evaluate_compz00(obj_t, obj_t, obj_t,
		obj_t);
	extern long bgl_list_length(obj_t);
	static obj_t BGl_z62comp1418z62zz__evaluate_compz00(obj_t, obj_t, obj_t);
	static obj_t BGl_importedzd2moduleszd2initz00zz__evaluate_compz00(void);
	static obj_t BGl_z62run4490z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_z62run4492z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_gczd2rootszd2initz00zz__evaluate_compz00(void);
	static obj_t BGl_z62zc3z04anonymousza33262ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62run4494z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza33173ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	extern obj_t BGl_evwarningz00zz__everrorz00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza32363ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62run4496z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_z62run4498z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_z62main4511z62zz__evaluate_compz00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62main4513z62zz__evaluate_compz00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62main4515z62zz__evaluate_compz00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62main4517z62zz__evaluate_compz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62main4519z62zz__evaluate_compz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62compzd2ev_setlocal1426zb0zz__evaluate_compz00(obj_t,
		obj_t, obj_t);
	extern obj_t BGl_ev_withzd2handlerzd2zz__evaluate_typesz00;
	static bool_t BGl_needzd2shiftzd2zz__evaluate_compz00(obj_t, obj_t);
	extern obj_t BGl_evmodulezd2findzd2globalz00zz__evmodulez00(obj_t, obj_t);
	extern obj_t BGl_ev_andz00zz__evaluate_typesz00;
	static obj_t BGl_z62zc3z04anonymousza33603ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza32542ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_zc3z04anonymousza32214ze3ze70z60zz__evaluate_compz00(long,
		obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza32186ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62main4521z62zz__evaluate_compz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62compzd2ev_and1440zb0zz__evaluate_compz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62main4523z62zz__evaluate_compz00(obj_t, obj_t, obj_t);
	static obj_t BGl_zc3z04anonymousza31915ze3ze70z60zz__evaluate_compz00(obj_t,
		long, obj_t, BgL_ev_appz00_bglt, obj_t, obj_t);
	static obj_t BGl_z62main4525z62zz__evaluate_compz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62main4527z62zz__evaluate_compz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62main4529z62zz__evaluate_compz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62compzd2ev_bindzd2exit1450z62zz__evaluate_compz00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza32365ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62main4531z62zz__evaluate_compz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62main4533z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_z62main4535z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_z62main4537z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_z62main4539z62zz__evaluate_compz00(obj_t, obj_t);
	extern bool_t BGl_evmodulezf3zf3zz__evmodulez00(obj_t);
	static obj_t BGl_compzd2call0zd2zz__evaluate_compz00(obj_t,
		BgL_ev_exprz00_bglt, obj_t, obj_t, obj_t, obj_t, long);
	static obj_t BGl_compzd2call1zd2zz__evaluate_compz00(obj_t,
		BgL_ev_exprz00_bglt, obj_t, obj_t, obj_t, obj_t, long, obj_t);
	static obj_t BGl_compzd2call2zd2zz__evaluate_compz00(obj_t,
		BgL_ev_exprz00_bglt, obj_t, obj_t, obj_t, obj_t, long, obj_t, obj_t);
	static obj_t BGl_z62mainz62zz__evaluate_compz00(obj_t, obj_t, obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_compzd2call3zd2zz__evaluate_compz00(obj_t,
		BgL_ev_exprz00_bglt, obj_t, obj_t, obj_t, obj_t, long, obj_t, obj_t, obj_t);
	static obj_t BGl_compzd2call4zd2zz__evaluate_compz00(obj_t,
		BgL_ev_exprz00_bglt, obj_t, obj_t, obj_t, obj_t, long, obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza32811ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza33451ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62main4541z62zz__evaluate_compz00(obj_t, obj_t);
	extern obj_t BGl_ev_exprz00zz__evaluate_typesz00;
	static obj_t BGl_z62main4543z62zz__evaluate_compz00(obj_t, obj_t);
	extern obj_t BGl_ev_appz00zz__evaluate_typesz00;
	static obj_t BGl_z62main4545z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_z62main4547z62zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_z62main4549z62zz__evaluate_compz00(obj_t);
	static obj_t BGl_z62compzd2ev_abs1464zb0zz__evaluate_compz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62compzd2ev_letrec1448zb0zz__evaluate_compz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_lnamez00zz__evaluate_compz00(obj_t);
	static obj_t BGl_z62zc3z04anonymousza33711ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza32901ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza33290ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62compzd2ev_withzd2handler1454z62zz__evaluate_compz00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza33371ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62main4551z62zz__evaluate_compz00(obj_t);
	static obj_t BGl_z62main4553z62zz__evaluate_compz00(obj_t);
	static obj_t BGl_z62main4555z62zz__evaluate_compz00(obj_t);
	static obj_t BGl_z62main4557z62zz__evaluate_compz00(obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_z62main4559z62zz__evaluate_compz00(obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t);
	extern obj_t BGl_bigloozd2typezd2errorz00zz__errorz00(obj_t, obj_t, obj_t);
	extern obj_t BGl_genericzd2addzd2methodz12z12zz__objectz00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62main4479z62zz__evaluate_compz00(obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_zc3z04anonymousza31996ze3ze70z60zz__evaluate_compz00(long,
		obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_zc3z04anonymousza31889ze3ze70z60zz__evaluate_compz00(obj_t,
		long, obj_t, BgL_ev_appz00_bglt, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza33534ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza33445ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62compz62zz__evaluate_compz00(obj_t, obj_t, obj_t);
	extern obj_t BGl_ev_synchroniza7eza7zz__evaluate_typesz00;
	static obj_t BGl_z62compzd2ev_if1436zb0zz__evaluate_compz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62main4561z62zz__evaluate_compz00(obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_z62compzd2ev_trap1422zb0zz__evaluate_compz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62main4481z62zz__evaluate_compz00(obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_z62main4563z62zz__evaluate_compz00(obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_z62main4483z62zz__evaluate_compz00(obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_z62main4485z62zz__evaluate_compz00(obj_t, obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62main4487z62zz__evaluate_compz00(obj_t, obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62main4489z62zz__evaluate_compz00(obj_t, obj_t, obj_t,
		obj_t, obj_t);
	extern bool_t BGl_2zc3zd3z10zz__r4_numbers_6_5z00(obj_t, obj_t);
	extern obj_t BGl_uncompilez00zz__evaluate_uncompz00(BgL_ev_exprz00_bglt);
	static obj_t BGl_z62zc3z04anonymousza33810ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza33721ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza32830ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_compilezd2floatzd2arithz00zz__evaluate_compz00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza32822ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza32903ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza33462ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31915ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza33365ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza33527ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62compzd2ev_letza21446z12zz__evaluate_compz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_subrzd2callzd2withzd2pushzd2zz__evaluate_compz00(obj_t,
		obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_z62main4491z62zz__evaluate_compz00(obj_t, obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62main4493z62zz__evaluate_compz00(obj_t, obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62main4495z62zz__evaluate_compz00(obj_t, obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62main4497z62zz__evaluate_compz00(obj_t, obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62main4499z62zz__evaluate_compz00(obj_t, obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_compz00zz__evaluate_compz00(BgL_ev_exprz00_bglt, obj_t);
	static obj_t BGl_z62zc3z04anonymousza32815ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza32807ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_zc3z04anonymousza32161ze3ze70z60zz__evaluate_compz00(long,
		obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza33099ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62compzd2ev_litt1434zb0zz__evaluate_compz00(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_evmodulezd2bindzd2globalz12z12zz__evmodulez00(obj_t, obj_t,
		obj_t, obj_t);
	extern bool_t BGl_2ze3zd3z30zz__r4_numbers_6_5z00(obj_t, obj_t);
	extern obj_t BGl_usez00zz__evaluate_usez00(BgL_ev_exprz00_bglt, obj_t);
	static obj_t BGl_z62zc3z04anonymousza33820ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	extern obj_t BGl_ev_setlocalz00zz__evaluate_typesz00;
	static obj_t BGl_zc3z04anonymousza33330ze3ze70z60zz__evaluate_compz00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza33545ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_arithzd2expressionzd2zz__evaluate_compz00(BgL_ev_appz00_bglt,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza33627ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza33619ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t BGl_za2za2azd2labelza2za2zd2zz__evaluate_compz00 = BUNSPEC;
	static obj_t BGl_z62zc3z04anonymousza33198ze3ze5zz__evaluate_compz00(obj_t,
		obj_t);
	static obj_t *__cnst;


	extern obj_t BGl_ze3flzd2envz31zz__r4_numbers_6_5_flonumz00;
	   
		 
		DEFINE_STATIC_BGL_PROCEDURE(BGl_zc3lexintzd2envz11zz__evaluate_compz00,
		BgL_bgl_za762za7c3lexintza7a1za74723z00,
		BGl_z62zc3lexintza1zz__evaluate_compz00, 0L, BUNSPEC, 2);
	extern obj_t BGl_zd2zd2envz00zz__r4_numbers_6_5z00;
	extern obj_t BGl_zd3zd2envz01zz__r4_numbers_6_5z00;
	extern obj_t BGl_f64vectorzd2refzd2envz00zz__srfi4z00;
	extern obj_t BGl_ze3zd3fxzd2envze2zz__r4_numbers_6_5_fixnumz00;
	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_compilezd2envzd2zz__evaluate_compz00,
		BgL_bgl_za762compileza762za7za7_4724z00,
		BGl_z62compilez62zz__evaluate_compz00, 0L, BUNSPEC, 1);
	extern obj_t BGl_zc3fxzd2envz11zz__r4_numbers_6_5_fixnumz00;
	extern obj_t BGl_zc3zd3flzd2envzc2zz__r4_numbers_6_5_flonumz00;
	extern obj_t BGl_ze3zd2envz31zz__r4_numbers_6_5z00;
	extern obj_t BGl_zf2flzd2envz20zz__r4_numbers_6_5_flonumz00;
	extern obj_t BGl_za2flzd2envz70zz__r4_numbers_6_5_flonumz00;
	extern obj_t BGl_zf2zd2envz20zz__r4_numbers_6_5z00;
	extern obj_t BGl_conszd2envzd2zz__r4_pairs_and_lists_6_3z00;
	extern obj_t BGl_zd2fxzd2envz00zz__r4_numbers_6_5_fixnumz00;
	extern obj_t BGl_zd3fxzd2envz01zz__r4_numbers_6_5_fixnumz00;
	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_findzd2statezd2envz00zz__evaluate_compz00,
		BgL_bgl_za762findza7d2stateza74725za7,
		BGl_z62findzd2statezb0zz__evaluate_compz00, 0L, BUNSPEC, 0);
	extern obj_t BGl_eqzf3zd2envz21zz__r4_equivalence_6_2z00;
	extern obj_t BGl_cdrzd2envzd2zz__r4_pairs_and_lists_6_3z00;
	extern obj_t BGl_zb2flzd2envz60zz__r4_numbers_6_5_flonumz00;
	   
		 
		BGL_DEFINE_STRING(BGl_string4600z00zz__evaluate_compz00,
		BgL_bgl_string4600za700za7za7_4726za7, "number", 6);
	      BGL_DEFINE_STRING(BGl_string4602z00zz__evaluate_compz00,
		BgL_bgl_string4602za700za7za7_4727za7, "-", 1);
	      BGL_DEFINE_STRING(BGl_string4604z00zz__evaluate_compz00,
		BgL_bgl_string4604za700za7za7_4728za7, "*", 1);
	      BGL_DEFINE_STRING(BGl_string4606z00zz__evaluate_compz00,
		BgL_bgl_string4606za700za7za7_4729za7, "/", 1);
	      BGL_DEFINE_STRING(BGl_string4608z00zz__evaluate_compz00,
		BgL_bgl_string4608za700za7za7_4730za7, "<", 1);
	      BGL_DEFINE_STRING(BGl_string4610z00zz__evaluate_compz00,
		BgL_bgl_string4610za700za7za7_4731za7, ">", 1);
	      BGL_DEFINE_STRING(BGl_string4612z00zz__evaluate_compz00,
		BgL_bgl_string4612za700za7za7_4732za7, "<=", 2);
	      BGL_DEFINE_STRING(BGl_string4614z00zz__evaluate_compz00,
		BgL_bgl_string4614za700za7za7_4733za7, ">=", 2);
	      BGL_DEFINE_STRING(BGl_string4616z00zz__evaluate_compz00,
		BgL_bgl_string4616za700za7za7_4734za7, "=", 1);
	      BGL_DEFINE_STRING(BGl_string4618z00zz__evaluate_compz00,
		BgL_bgl_string4618za700za7za7_4735za7, "+fx", 3);
	      BGL_DEFINE_STRING(BGl_string4700z00zz__evaluate_compz00,
		BgL_bgl_string4700za700za7za7_4736za7,
		"\nRedefinition of compiled variable -- ", 38);
	      BGL_DEFINE_STRING(BGl_string4701z00zz__evaluate_compz00,
		BgL_bgl_string4701za700za7za7_4737za7, "Unbound variable", 16);
	      BGL_DEFINE_STRING(BGl_string4620z00zz__evaluate_compz00,
		BgL_bgl_string4620za700za7za7_4738za7, "fixnum", 6);
	      BGL_DEFINE_STRING(BGl_string4703z00zz__evaluate_compz00,
		BgL_bgl_string4703za700za7za7_4739za7, "@", 1);
	      BGL_DEFINE_STRING(BGl_string4622z00zz__evaluate_compz00,
		BgL_bgl_string4622za700za7za7_4740za7, "-fx", 3);
	      BGL_DEFINE_STRING(BGl_string4704z00zz__evaluate_compz00,
		BgL_bgl_string4704za700za7za7_4741za7, "Uninitialized variable", 22);
	      BGL_DEFINE_STRING(BGl_string4624z00zz__evaluate_compz00,
		BgL_bgl_string4624za700za7za7_4742za7, "*fx", 3);
	      BGL_DEFINE_STRING(BGl_string4626z00zz__evaluate_compz00,
		BgL_bgl_string4626za700za7za7_4743za7, "/fx", 3);
	      BGL_DEFINE_STRING(BGl_string4628z00zz__evaluate_compz00,
		BgL_bgl_string4628za700za7za7_4744za7, "<fx", 3);
	extern obj_t BGl_ze3fxzd2envz31zz__r4_numbers_6_5_fixnumz00;
	   
		 
		DEFINE_STATIC_BGL_PROCEDURE(BGl_proc4705z00zz__evaluate_compz00,
		BgL_bgl_za762za7c3za704anonymo4745za7,
		BGl_z62zc3z04anonymousza32980ze3ze5zz__evaluate_compz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string4630z00zz__evaluate_compz00,
		BgL_bgl_string4630za700za7za7_4746za7, ">fx", 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc4706z00zz__evaluate_compz00,
		BgL_bgl_za762za7c3za704anonymo4747za7,
		BGl_z62zc3z04anonymousza32983ze3ze5zz__evaluate_compz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc4707z00zz__evaluate_compz00,
		BgL_bgl_za762za7c3za704anonymo4748za7,
		BGl_z62zc3z04anonymousza32986ze3ze5zz__evaluate_compz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string4632z00zz__evaluate_compz00,
		BgL_bgl_string4632za700za7za7_4749za7, "<=fx", 4);
	      BGL_DEFINE_STRING(BGl_string4714z00zz__evaluate_compz00,
		BgL_bgl_string4714za700za7za7_4750za7, "get_sp", 6);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc4708z00zz__evaluate_compz00,
		BgL_bgl_za762za7c3za704anonymo4751za7,
		BGl_z62zc3z04anonymousza32989ze3ze5zz__evaluate_compz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc4709z00zz__evaluate_compz00,
		BgL_bgl_za762za7c3za704anonymo4752za7,
		BGl_z62zc3z04anonymousza32992ze3ze5zz__evaluate_compz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string4634z00zz__evaluate_compz00,
		BgL_bgl_string4634za700za7za7_4753za7, ">=fx", 4);
	      BGL_DEFINE_STRING(BGl_string4716z00zz__evaluate_compz00,
		BgL_bgl_string4716za700za7za7_4754za7, "reset_profile", 13);
	      BGL_DEFINE_STRING(BGl_string4636z00zz__evaluate_compz00,
		BgL_bgl_string4636za700za7za7_4755za7, "=fx", 3);
	      BGL_DEFINE_STRING(BGl_string4718z00zz__evaluate_compz00,
		BgL_bgl_string4718za700za7za7_4756za7, "get_profile", 11);
	      BGL_DEFINE_STRING(BGl_string4638z00zz__evaluate_compz00,
		BgL_bgl_string4638za700za7za7_4757za7, "+fl", 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc4710z00zz__evaluate_compz00,
		BgL_bgl_za762za7c3za704anonymo4758za7,
		BGl_z62zc3z04anonymousza32996ze3ze5zz__evaluate_compz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc4711z00zz__evaluate_compz00,
		BgL_bgl_za762za7c3za704anonymo4759za7,
		BGl_z62zc3z04anonymousza32999ze3ze5zz__evaluate_compz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc4712z00zz__evaluate_compz00,
		BgL_bgl_za762za7c3za704anonymo4760za7,
		BGl_z62zc3z04anonymousza33004ze3ze5zz__evaluate_compz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string4720z00zz__evaluate_compz00,
		BgL_bgl_string4720za700za7za7_4761za7, "reset_stack", 11);
	      BGL_DEFINE_STRING(BGl_string4721z00zz__evaluate_compz00,
		BgL_bgl_string4721za700za7za7_4762za7, "internal error: unknown command",
		31);
	      BGL_DEFINE_STRING(BGl_string4640z00zz__evaluate_compz00,
		BgL_bgl_string4640za700za7za7_4763za7, "flonum", 6);
	      BGL_DEFINE_STRING(BGl_string4722z00zz__evaluate_compz00,
		BgL_bgl_string4722za700za7za7_4764za7, "__evaluate_comp", 15);
	      BGL_DEFINE_STRING(BGl_string4642z00zz__evaluate_compz00,
		BgL_bgl_string4642za700za7za7_4765za7, "-fl", 3);
	      BGL_DEFINE_STRING(BGl_string4644z00zz__evaluate_compz00,
		BgL_bgl_string4644za700za7za7_4766za7, "*fl", 3);
	      BGL_DEFINE_STRING(BGl_string4646z00zz__evaluate_compz00,
		BgL_bgl_string4646za700za7za7_4767za7, "/fl", 3);
	      BGL_DEFINE_STRING(BGl_string4648z00zz__evaluate_compz00,
		BgL_bgl_string4648za700za7za7_4768za7, "<fl", 3);
	extern obj_t BGl_ze3zd3flzd2envze2zz__r4_numbers_6_5_flonumz00;
	   
		 
		BGL_DEFINE_STRING(BGl_string4650z00zz__evaluate_compz00,
		BgL_bgl_string4650za700za7za7_4769za7, ">fl", 3);
	      BGL_DEFINE_STRING(BGl_string4570z00zz__evaluate_compz00,
		BgL_bgl_string4570za700za7za7_4770za7, "all", 3);
	      BGL_DEFINE_STRING(BGl_string4652z00zz__evaluate_compz00,
		BgL_bgl_string4652za700za7za7_4771za7, "<=fl", 4);
	      BGL_DEFINE_STRING(BGl_string4572z00zz__evaluate_compz00,
		BgL_bgl_string4572za700za7za7_4772za7, "label-tag", 9);
	extern obj_t BGl_fixnumzd2ze3flonumzd2envze3zz__r4_numbers_6_5z00;
	   
		 
		BGL_DEFINE_STRING(BGl_string4654z00zz__evaluate_compz00,
		BgL_bgl_string4654za700za7za7_4773za7, ">=fl", 4);
	      BGL_DEFINE_STRING(BGl_string4574z00zz__evaluate_compz00,
		BgL_bgl_string4574za700za7za7_4774za7, "bounce", 6);
	      BGL_DEFINE_STRING(BGl_string4656z00zz__evaluate_compz00,
		BgL_bgl_string4656za700za7za7_4775za7, "=fl", 3);
	      BGL_DEFINE_STRING(BGl_string4575z00zz__evaluate_compz00,
		BgL_bgl_string4575za700za7za7_4776za7, "non non non", 11);
	      BGL_DEFINE_STRING(BGl_string4576z00zz__evaluate_compz00,
		BgL_bgl_string4576za700za7za7_4777za7, " in ", 4);
	      BGL_DEFINE_STRING(BGl_string4658z00zz__evaluate_compz00,
		BgL_bgl_string4658za700za7za7_4778za7, "car", 3);
	      BGL_DEFINE_STRING(BGl_string4577z00zz__evaluate_compz00,
		BgL_bgl_string4577za700za7za7_4779za7, "eval", 4);
	      BGL_DEFINE_STRING(BGl_string4578z00zz__evaluate_compz00,
		BgL_bgl_string4578za700za7za7_4780za7, "internal error: not found", 25);
	extern obj_t BGl_zc3flzd2envz11zz__r4_numbers_6_5_flonumz00;
	   
		 
		BGL_DEFINE_STRING(BGl_string4660z00zz__evaluate_compz00,
		BgL_bgl_string4660za700za7za7_4781za7, "pair", 4);
	      BGL_DEFINE_STRING(BGl_string4580z00zz__evaluate_compz00,
		BgL_bgl_string4580za700za7za7_4782za7, "at", 2);
	      BGL_DEFINE_STRING(BGl_string4662z00zz__evaluate_compz00,
		BgL_bgl_string4662za700za7za7_4783za7, "cdr", 3);
	      BGL_DEFINE_STRING(BGl_string4581z00zz__evaluate_compz00,
		BgL_bgl_string4581za700za7za7_4784za7, "", 0);
	      BGL_DEFINE_STRING(BGl_string4582z00zz__evaluate_compz00,
		BgL_bgl_string4582za700za7za7_4785za7,
		"/tmp/bigloo/runtime/Eval/evaluate_comp.scm", 42);
	      BGL_DEFINE_STRING(BGl_string4664z00zz__evaluate_compz00,
		BgL_bgl_string4664za700za7za7_4786za7, "cadr", 4);
	      BGL_DEFINE_STRING(BGl_string4583z00zz__evaluate_compz00,
		BgL_bgl_string4583za700za7za7_4787za7, "&compile", 8);
	      BGL_DEFINE_STRING(BGl_string4584z00zz__evaluate_compz00,
		BgL_bgl_string4584za700za7za7_4788za7, "ev_expr", 7);
	      BGL_DEFINE_STRING(BGl_string4666z00zz__evaluate_compz00,
		BgL_bgl_string4666za700za7za7_4789za7, "comp1418", 8);
	      BGL_DEFINE_STRING(BGl_string4585z00zz__evaluate_compz00,
		BgL_bgl_string4585za700za7za7_4790za7, "expecting ~a, got ~a", 20);
	      BGL_DEFINE_STRING(BGl_string4667z00zz__evaluate_compz00,
		BgL_bgl_string4667za700za7za7_4791za7, "internal error: not defined for",
		31);
	      BGL_DEFINE_STRING(BGl_string4586z00zz__evaluate_compz00,
		BgL_bgl_string4586za700za7za7_4792za7, "wrong number of argument", 24);
	      BGL_DEFINE_STRING(BGl_string4668z00zz__evaluate_compz00,
		BgL_bgl_string4668za700za7za7_4793za7, "&comp", 5);
	extern obj_t BGl_zc3zd3zd2envzc2zz__r4_numbers_6_5z00;
	   
		 
		BGL_DEFINE_STRING(BGl_string4588z00zz__evaluate_compz00,
		BgL_bgl_string4588za700za7za7_4794za7, "mcell", 5);
	extern obj_t BGl_za2zd2envz70zz__r4_numbers_6_5z00;
	   
		 
		BGL_DEFINE_STRING(BGl_string4670z00zz__evaluate_compz00,
		BgL_bgl_string4670za700za7za7_4795za7, "comp", 4);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc4665z00zz__evaluate_compz00,
		BgL_bgl_za762comp1418za762za7za74796z00,
		BGl_z62comp1418z62zz__evaluate_compz00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string4590z00zz__evaluate_compz00,
		BgL_bgl_string4590za700za7za7_4797za7, "internal", 8);
	      BGL_DEFINE_STRING(BGl_string4592z00zz__evaluate_compz00,
		BgL_bgl_string4592za700za7za7_4798za7, "impossible", 10);
	      BGL_DEFINE_STRING(BGl_string4593z00zz__evaluate_compz00,
		BgL_bgl_string4593za700za7za7_4799za7, "procedure", 9);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc4669z00zz__evaluate_compz00,
		BgL_bgl_za762compza7d2ev_tra4800z00,
		BGl_z62compzd2ev_trap1422zb0zz__evaluate_compz00, 0L, BUNSPEC, 2);
	extern obj_t BGl_zc3zd3fxzd2envzc2zz__r4_numbers_6_5_fixnumz00;
	   
		 
		BGL_DEFINE_STRING(BGl_string4595z00zz__evaluate_compz00,
		BgL_bgl_string4595za700za7za7_4801za7, "user", 4);
	      BGL_DEFINE_STRING(BGl_string4596z00zz__evaluate_compz00,
		BgL_bgl_string4596za700za7za7_4802za7, "invalid byte code", 17);
	      BGL_DEFINE_STRING(BGl_string4598z00zz__evaluate_compz00,
		BgL_bgl_string4598za700za7za7_4803za7, "+", 1);
	extern obj_t BGl_zf2fxzd2envz20zz__r4_numbers_6_5_fixnumz00;
	   
		 
		DEFINE_STATIC_BGL_PROCEDURE(BGl_proc4671z00zz__evaluate_compz00,
		BgL_bgl_za762compza7d2ev_var4804z00,
		BGl_z62compzd2ev_var1424zb0zz__evaluate_compz00, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc4672z00zz__evaluate_compz00,
		BgL_bgl_za762compza7d2ev_set4805z00,
		BGl_z62compzd2ev_setlocal1426zb0zz__evaluate_compz00, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc4673z00zz__evaluate_compz00,
		BgL_bgl_za762compza7d2ev_glo4806z00,
		BGl_z62compzd2ev_global1428zb0zz__evaluate_compz00, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc4674z00zz__evaluate_compz00,
		BgL_bgl_za762compza7d2ev_set4807z00,
		BGl_z62compzd2ev_setglobal1430zb0zz__evaluate_compz00, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc4675z00zz__evaluate_compz00,
		BgL_bgl_za762compza7d2ev_def4808z00,
		BGl_z62compzd2ev_defglobal1432zb0zz__evaluate_compz00, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc4676z00zz__evaluate_compz00,
		BgL_bgl_za762compza7d2ev_lit4809z00,
		BGl_z62compzd2ev_litt1434zb0zz__evaluate_compz00, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc4677z00zz__evaluate_compz00,
		BgL_bgl_za762compza7d2ev_if14810z00,
		BGl_z62compzd2ev_if1436zb0zz__evaluate_compz00, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc4678z00zz__evaluate_compz00,
		BgL_bgl_za762compza7d2ev_or14811z00,
		BGl_z62compzd2ev_or1438zb0zz__evaluate_compz00, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc4679z00zz__evaluate_compz00,
		BgL_bgl_za762compza7d2ev_and4812z00,
		BGl_z62compzd2ev_and1440zb0zz__evaluate_compz00, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc4680z00zz__evaluate_compz00,
		BgL_bgl_za762compza7d2ev_pro4813z00,
		BGl_z62compzd2ev_prog21442zb0zz__evaluate_compz00, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc4681z00zz__evaluate_compz00,
		BgL_bgl_za762compza7d2ev_let4814z00,
		BGl_z62compzd2ev_let1444zb0zz__evaluate_compz00, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc4682z00zz__evaluate_compz00,
		BgL_bgl_za762compza7d2ev_let4815z00,
		BGl_z62compzd2ev_letza21446z12zz__evaluate_compz00, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc4683z00zz__evaluate_compz00,
		BgL_bgl_za762compza7d2ev_let4816z00,
		BGl_z62compzd2ev_letrec1448zb0zz__evaluate_compz00, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc4684z00zz__evaluate_compz00,
		BgL_bgl_za762compza7d2ev_bin4817z00,
		BGl_z62compzd2ev_bindzd2exit1450z62zz__evaluate_compz00, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc4685z00zz__evaluate_compz00,
		BgL_bgl_za762compza7d2ev_unw4818z00,
		BGl_z62compzd2ev_unwindzd2prote1452z62zz__evaluate_compz00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string4692z00zz__evaluate_compz00,
		BgL_bgl_string4692za700za7za7_4819za7, "internal error", 14);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc4686z00zz__evaluate_compz00,
		BgL_bgl_za762compza7d2ev_wit4820z00,
		BGl_z62compzd2ev_withzd2handler1454z62zz__evaluate_compz00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string4693z00zz__evaluate_compz00,
		BgL_bgl_string4693za700za7za7_4821za7, "must be dead code", 17);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc4687z00zz__evaluate_compz00,
		BgL_bgl_za762compza7d2ev_syn4822z00,
		BGl_z62compzd2ev_synchroniza7e1456z17zz__evaluate_compz00, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc4688z00zz__evaluate_compz00,
		BgL_bgl_za762compza7d2ev_lab4823z00,
		BGl_z62compzd2ev_labels1458zb0zz__evaluate_compz00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string4695z00zz__evaluate_compz00,
		BgL_bgl_string4695za700za7za7_4824za7, "notyet", 6);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc4689z00zz__evaluate_compz00,
		BgL_bgl_za762compza7d2ev_got4825z00,
		BGl_z62compzd2ev_goto1460zb0zz__evaluate_compz00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string4696z00zz__evaluate_compz00,
		BgL_bgl_string4696za700za7za7_4826za7, "synchronize", 11);
	      BGL_DEFINE_STRING(BGl_string4697z00zz__evaluate_compz00,
		BgL_bgl_string4697za700za7za7_4827za7, "mutex", 5);
	      BGL_DEFINE_STRING(BGl_string4698z00zz__evaluate_compz00,
		BgL_bgl_string4698za700za7za7_4828za7, "set!", 4);
	      BGL_DEFINE_STRING(BGl_string4699z00zz__evaluate_compz00,
		BgL_bgl_string4699za700za7za7_4829za7, "read-only variable", 18);
	extern obj_t BGl_za2fxzd2envz70zz__r4_numbers_6_5_fixnumz00;
	   
		 
		DEFINE_STATIC_BGL_GENERIC(BGl_compzd2envzd2zz__evaluate_compz00,
		BgL_bgl_za762compza762za7za7__ev4830z00, BGl_z62compz62zz__evaluate_compz00,
		0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc4690z00zz__evaluate_compz00,
		BgL_bgl_za762compza7d2ev_app4831z00,
		BGl_z62compzd2ev_app1462zb0zz__evaluate_compz00, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc4691z00zz__evaluate_compz00,
		BgL_bgl_za762compza7d2ev_abs4832z00,
		BGl_z62compzd2ev_abs1464zb0zz__evaluate_compz00, 0L, BUNSPEC, 2);
	extern obj_t BGl_zb2zd2envz60zz__r4_numbers_6_5z00;
	extern obj_t BGl_zd2flzd2envz00zz__r4_numbers_6_5_flonumz00;
	extern obj_t BGl_zd3flzd2envz01zz__r4_numbers_6_5_flonumz00;
	extern obj_t BGl_zc3zd2envz11zz__r4_numbers_6_5z00;
	extern obj_t BGl_zb2fxzd2envz60zz__r4_numbers_6_5_fixnumz00;
	extern obj_t BGl_carzd2envzd2zz__r4_pairs_and_lists_6_3z00;
	extern obj_t BGl_cadrzd2envzd2zz__r4_pairs_and_lists_6_3z00;
	extern obj_t BGl_ze3zd3zd2envze2zz__r4_numbers_6_5z00;

/* contant bindings */
	static void bgl_constant_bindings()
	{
		BGL_BIND_PROCEDURE(BGl_proc4691z00zz__evaluate_compz00,
			BgL_bgl_za762compza7d2ev_abs4832z00);
		BGL_BIND_PROCEDURE(BGl_proc4690z00zz__evaluate_compz00,
			BgL_bgl_za762compza7d2ev_app4831z00);
		BGL_BIND_PROCEDURE(BGl_compzd2envzd2zz__evaluate_compz00,
			BgL_bgl_za762compza762za7za7__ev4830z00);
		BGL_BIND_STRING(BGl_string4699z00zz__evaluate_compz00,
			BgL_bgl_string4699za700za7za7_4829za7);
		BGL_BIND_STRING(BGl_string4698z00zz__evaluate_compz00,
			BgL_bgl_string4698za700za7za7_4828za7);
		BGL_BIND_STRING(BGl_string4697z00zz__evaluate_compz00,
			BgL_bgl_string4697za700za7za7_4827za7);
		BGL_BIND_STRING(BGl_string4696z00zz__evaluate_compz00,
			BgL_bgl_string4696za700za7za7_4826za7);
		BGL_BIND_PROCEDURE(BGl_proc4689z00zz__evaluate_compz00,
			BgL_bgl_za762compza7d2ev_got4825z00);
		BGL_BIND_STRING(BGl_string4695z00zz__evaluate_compz00,
			BgL_bgl_string4695za700za7za7_4824za7);
		BGL_BIND_PROCEDURE(BGl_proc4688z00zz__evaluate_compz00,
			BgL_bgl_za762compza7d2ev_lab4823z00);
		BGL_BIND_PROCEDURE(BGl_proc4687z00zz__evaluate_compz00,
			BgL_bgl_za762compza7d2ev_syn4822z00);
		BGL_BIND_STRING(BGl_string4693z00zz__evaluate_compz00,
			BgL_bgl_string4693za700za7za7_4821za7);
		BGL_BIND_PROCEDURE(BGl_proc4686z00zz__evaluate_compz00,
			BgL_bgl_za762compza7d2ev_wit4820z00);
		BGL_BIND_STRING(BGl_string4692z00zz__evaluate_compz00,
			BgL_bgl_string4692za700za7za7_4819za7);
		BGL_BIND_PROCEDURE(BGl_proc4685z00zz__evaluate_compz00,
			BgL_bgl_za762compza7d2ev_unw4818z00);
		BGL_BIND_PROCEDURE(BGl_proc4684z00zz__evaluate_compz00,
			BgL_bgl_za762compza7d2ev_bin4817z00);
		BGL_BIND_PROCEDURE(BGl_proc4683z00zz__evaluate_compz00,
			BgL_bgl_za762compza7d2ev_let4816z00);
		BGL_BIND_PROCEDURE(BGl_proc4682z00zz__evaluate_compz00,
			BgL_bgl_za762compza7d2ev_let4815z00);
		BGL_BIND_PROCEDURE(BGl_proc4681z00zz__evaluate_compz00,
			BgL_bgl_za762compza7d2ev_let4814z00);
		BGL_BIND_PROCEDURE(BGl_proc4680z00zz__evaluate_compz00,
			BgL_bgl_za762compza7d2ev_pro4813z00);
		BGL_BIND_PROCEDURE(BGl_proc4679z00zz__evaluate_compz00,
			BgL_bgl_za762compza7d2ev_and4812z00);
		BGL_BIND_PROCEDURE(BGl_proc4678z00zz__evaluate_compz00,
			BgL_bgl_za762compza7d2ev_or14811z00);
		BGL_BIND_PROCEDURE(BGl_proc4677z00zz__evaluate_compz00,
			BgL_bgl_za762compza7d2ev_if14810z00);
		BGL_BIND_PROCEDURE(BGl_proc4676z00zz__evaluate_compz00,
			BgL_bgl_za762compza7d2ev_lit4809z00);
		BGL_BIND_PROCEDURE(BGl_proc4675z00zz__evaluate_compz00,
			BgL_bgl_za762compza7d2ev_def4808z00);
		BGL_BIND_PROCEDURE(BGl_proc4674z00zz__evaluate_compz00,
			BgL_bgl_za762compza7d2ev_set4807z00);
		BGL_BIND_PROCEDURE(BGl_proc4673z00zz__evaluate_compz00,
			BgL_bgl_za762compza7d2ev_glo4806z00);
		BGL_BIND_PROCEDURE(BGl_proc4672z00zz__evaluate_compz00,
			BgL_bgl_za762compza7d2ev_set4805z00);
		BGL_BIND_PROCEDURE(BGl_proc4671z00zz__evaluate_compz00,
			BgL_bgl_za762compza7d2ev_var4804z00);
		BGL_BIND_STRING(BGl_string4598z00zz__evaluate_compz00,
			BgL_bgl_string4598za700za7za7_4803za7);
		BGL_BIND_STRING(BGl_string4596z00zz__evaluate_compz00,
			BgL_bgl_string4596za700za7za7_4802za7);
		BGL_BIND_STRING(BGl_string4595z00zz__evaluate_compz00,
			BgL_bgl_string4595za700za7za7_4801za7);
		BGL_BIND_PROCEDURE(BGl_proc4669z00zz__evaluate_compz00,
			BgL_bgl_za762compza7d2ev_tra4800z00);
		BGL_BIND_STRING(BGl_string4593z00zz__evaluate_compz00,
			BgL_bgl_string4593za700za7za7_4799za7);
		BGL_BIND_STRING(BGl_string4592z00zz__evaluate_compz00,
			BgL_bgl_string4592za700za7za7_4798za7);
		BGL_BIND_STRING(BGl_string4590z00zz__evaluate_compz00,
			BgL_bgl_string4590za700za7za7_4797za7);
		BGL_BIND_PROCEDURE(BGl_proc4665z00zz__evaluate_compz00,
			BgL_bgl_za762comp1418za762za7za74796z00);
		BGL_BIND_STRING(BGl_string4670z00zz__evaluate_compz00,
			BgL_bgl_string4670za700za7za7_4795za7);
		BGL_BIND_STRING(BGl_string4588z00zz__evaluate_compz00,
			BgL_bgl_string4588za700za7za7_4794za7);
		BGL_BIND_STRING(BGl_string4668z00zz__evaluate_compz00,
			BgL_bgl_string4668za700za7za7_4793za7);
		BGL_BIND_STRING(BGl_string4586z00zz__evaluate_compz00,
			BgL_bgl_string4586za700za7za7_4792za7);
		BGL_BIND_STRING(BGl_string4667z00zz__evaluate_compz00,
			BgL_bgl_string4667za700za7za7_4791za7);
		BGL_BIND_STRING(BGl_string4585z00zz__evaluate_compz00,
			BgL_bgl_string4585za700za7za7_4790za7);
		BGL_BIND_STRING(BGl_string4666z00zz__evaluate_compz00,
			BgL_bgl_string4666za700za7za7_4789za7);
		BGL_BIND_STRING(BGl_string4584z00zz__evaluate_compz00,
			BgL_bgl_string4584za700za7za7_4788za7);
		BGL_BIND_STRING(BGl_string4583z00zz__evaluate_compz00,
			BgL_bgl_string4583za700za7za7_4787za7);
		BGL_BIND_STRING(BGl_string4664z00zz__evaluate_compz00,
			BgL_bgl_string4664za700za7za7_4786za7);
		BGL_BIND_STRING(BGl_string4582z00zz__evaluate_compz00,
			BgL_bgl_string4582za700za7za7_4785za7);
		BGL_BIND_STRING(BGl_string4581z00zz__evaluate_compz00,
			BgL_bgl_string4581za700za7za7_4784za7);
		BGL_BIND_STRING(BGl_string4662z00zz__evaluate_compz00,
			BgL_bgl_string4662za700za7za7_4783za7);
		BGL_BIND_STRING(BGl_string4580z00zz__evaluate_compz00,
			BgL_bgl_string4580za700za7za7_4782za7);
		BGL_BIND_STRING(BGl_string4660z00zz__evaluate_compz00,
			BgL_bgl_string4660za700za7za7_4781za7);
		BGL_BIND_STRING(BGl_string4578z00zz__evaluate_compz00,
			BgL_bgl_string4578za700za7za7_4780za7);
		BGL_BIND_STRING(BGl_string4577z00zz__evaluate_compz00,
			BgL_bgl_string4577za700za7za7_4779za7);
		BGL_BIND_STRING(BGl_string4658z00zz__evaluate_compz00,
			BgL_bgl_string4658za700za7za7_4778za7);
		BGL_BIND_STRING(BGl_string4576z00zz__evaluate_compz00,
			BgL_bgl_string4576za700za7za7_4777za7);
		BGL_BIND_STRING(BGl_string4575z00zz__evaluate_compz00,
			BgL_bgl_string4575za700za7za7_4776za7);
		BGL_BIND_STRING(BGl_string4656z00zz__evaluate_compz00,
			BgL_bgl_string4656za700za7za7_4775za7);
		BGL_BIND_STRING(BGl_string4574z00zz__evaluate_compz00,
			BgL_bgl_string4574za700za7za7_4774za7);
		BGL_BIND_STRING(BGl_string4654z00zz__evaluate_compz00,
			BgL_bgl_string4654za700za7za7_4773za7);
		BGL_BIND_STRING(BGl_string4572z00zz__evaluate_compz00,
			BgL_bgl_string4572za700za7za7_4772za7);
		BGL_BIND_STRING(BGl_string4652z00zz__evaluate_compz00,
			BgL_bgl_string4652za700za7za7_4771za7);
		BGL_BIND_STRING(BGl_string4570z00zz__evaluate_compz00,
			BgL_bgl_string4570za700za7za7_4770za7);
		BGL_BIND_STRING(BGl_string4650z00zz__evaluate_compz00,
			BgL_bgl_string4650za700za7za7_4769za7);
		BGL_BIND_STRING(BGl_string4648z00zz__evaluate_compz00,
			BgL_bgl_string4648za700za7za7_4768za7);
		BGL_BIND_STRING(BGl_string4646z00zz__evaluate_compz00,
			BgL_bgl_string4646za700za7za7_4767za7);
		BGL_BIND_STRING(BGl_string4644z00zz__evaluate_compz00,
			BgL_bgl_string4644za700za7za7_4766za7);
		BGL_BIND_STRING(BGl_string4642z00zz__evaluate_compz00,
			BgL_bgl_string4642za700za7za7_4765za7);
		BGL_BIND_STRING(BGl_string4722z00zz__evaluate_compz00,
			BgL_bgl_string4722za700za7za7_4764za7);
		BGL_BIND_STRING(BGl_string4640z00zz__evaluate_compz00,
			BgL_bgl_string4640za700za7za7_4763za7);
		BGL_BIND_STRING(BGl_string4721z00zz__evaluate_compz00,
			BgL_bgl_string4721za700za7za7_4762za7);
		BGL_BIND_STRING(BGl_string4720z00zz__evaluate_compz00,
			BgL_bgl_string4720za700za7za7_4761za7);
		BGL_BIND_PROCEDURE(BGl_proc4712z00zz__evaluate_compz00,
			BgL_bgl_za762za7c3za704anonymo4760za7);
		BGL_BIND_PROCEDURE(BGl_proc4711z00zz__evaluate_compz00,
			BgL_bgl_za762za7c3za704anonymo4759za7);
		BGL_BIND_PROCEDURE(BGl_proc4710z00zz__evaluate_compz00,
			BgL_bgl_za762za7c3za704anonymo4758za7);
		BGL_BIND_STRING(BGl_string4638z00zz__evaluate_compz00,
			BgL_bgl_string4638za700za7za7_4757za7);
		BGL_BIND_STRING(BGl_string4718z00zz__evaluate_compz00,
			BgL_bgl_string4718za700za7za7_4756za7);
		BGL_BIND_STRING(BGl_string4636z00zz__evaluate_compz00,
			BgL_bgl_string4636za700za7za7_4755za7);
		BGL_BIND_STRING(BGl_string4716z00zz__evaluate_compz00,
			BgL_bgl_string4716za700za7za7_4754za7);
		BGL_BIND_STRING(BGl_string4634z00zz__evaluate_compz00,
			BgL_bgl_string4634za700za7za7_4753za7);
		BGL_BIND_PROCEDURE(BGl_proc4709z00zz__evaluate_compz00,
			BgL_bgl_za762za7c3za704anonymo4752za7);
		BGL_BIND_PROCEDURE(BGl_proc4708z00zz__evaluate_compz00,
			BgL_bgl_za762za7c3za704anonymo4751za7);
		BGL_BIND_STRING(BGl_string4714z00zz__evaluate_compz00,
			BgL_bgl_string4714za700za7za7_4750za7);
		BGL_BIND_STRING(BGl_string4632z00zz__evaluate_compz00,
			BgL_bgl_string4632za700za7za7_4749za7);
		BGL_BIND_PROCEDURE(BGl_proc4707z00zz__evaluate_compz00,
			BgL_bgl_za762za7c3za704anonymo4748za7);
		BGL_BIND_PROCEDURE(BGl_proc4706z00zz__evaluate_compz00,
			BgL_bgl_za762za7c3za704anonymo4747za7);
		BGL_BIND_STRING(BGl_string4630z00zz__evaluate_compz00,
			BgL_bgl_string4630za700za7za7_4746za7);
		BGL_BIND_PROCEDURE(BGl_proc4705z00zz__evaluate_compz00,
			BgL_bgl_za762za7c3za704anonymo4745za7);
		BGL_BIND_STRING(BGl_string4628z00zz__evaluate_compz00,
			BgL_bgl_string4628za700za7za7_4744za7);
		BGL_BIND_STRING(BGl_string4626z00zz__evaluate_compz00,
			BgL_bgl_string4626za700za7za7_4743za7);
		BGL_BIND_STRING(BGl_string4624z00zz__evaluate_compz00,
			BgL_bgl_string4624za700za7za7_4742za7);
		BGL_BIND_STRING(BGl_string4704z00zz__evaluate_compz00,
			BgL_bgl_string4704za700za7za7_4741za7);
		BGL_BIND_STRING(BGl_string4622z00zz__evaluate_compz00,
			BgL_bgl_string4622za700za7za7_4740za7);
		BGL_BIND_STRING(BGl_string4703z00zz__evaluate_compz00,
			BgL_bgl_string4703za700za7za7_4739za7);
		BGL_BIND_STRING(BGl_string4620z00zz__evaluate_compz00,
			BgL_bgl_string4620za700za7za7_4738za7);
		BGL_BIND_STRING(BGl_string4701z00zz__evaluate_compz00,
			BgL_bgl_string4701za700za7za7_4737za7);
		BGL_BIND_STRING(BGl_string4700z00zz__evaluate_compz00,
			BgL_bgl_string4700za700za7za7_4736za7);
		BGL_BIND_STRING(BGl_string4618z00zz__evaluate_compz00,
			BgL_bgl_string4618za700za7za7_4735za7);
		BGL_BIND_STRING(BGl_string4616z00zz__evaluate_compz00,
			BgL_bgl_string4616za700za7za7_4734za7);
		BGL_BIND_STRING(BGl_string4614z00zz__evaluate_compz00,
			BgL_bgl_string4614za700za7za7_4733za7);
		BGL_BIND_STRING(BGl_string4612z00zz__evaluate_compz00,
			BgL_bgl_string4612za700za7za7_4732za7);
		BGL_BIND_STRING(BGl_string4610z00zz__evaluate_compz00,
			BgL_bgl_string4610za700za7za7_4731za7);
		BGL_BIND_STRING(BGl_string4608z00zz__evaluate_compz00,
			BgL_bgl_string4608za700za7za7_4730za7);
		BGL_BIND_STRING(BGl_string4606z00zz__evaluate_compz00,
			BgL_bgl_string4606za700za7za7_4729za7);
		BGL_BIND_STRING(BGl_string4604z00zz__evaluate_compz00,
			BgL_bgl_string4604za700za7za7_4728za7);
		BGL_BIND_STRING(BGl_string4602z00zz__evaluate_compz00,
			BgL_bgl_string4602za700za7za7_4727za7);
		BGL_BIND_STRING(BGl_string4600z00zz__evaluate_compz00,
			BgL_bgl_string4600za700za7za7_4726za7);
		BGL_BIND_PROCEDURE(BGl_findzd2statezd2envz00zz__evaluate_compz00,
			BgL_bgl_za762findza7d2stateza74725za7);
		BGL_BIND_PROCEDURE(BGl_compilezd2envzd2zz__evaluate_compz00,
			BgL_bgl_za762compileza762za7za7_4724z00);
		BGL_BIND_PROCEDURE(BGl_zc3lexintzd2envz11zz__evaluate_compz00,
			BgL_bgl_za762za7c3lexintza7a1za74723z00);
	}

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

		ADD_ROOT((void *) (&BGl_requirezd2initializa7ationz75zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4601z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4603z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4605z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4607z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4609z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4611z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4613z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4615z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4617z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4619z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4702z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4621z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4623z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4625z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4627z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4629z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4631z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4713z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4633z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4715z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4635z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4717z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4637z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4719z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4639z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4641z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4643z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4645z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4647z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4649z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4569z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4651z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4571z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4653z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4573z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4655z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4657z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4659z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4579z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4661z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4663z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4587z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4589z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4591z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4594z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4597z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4599z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_symbol4694z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_za2za2prof_resultsza2za2z00zz__evaluate_compz00));
		ADD_ROOT((void *) (&BGl_za2za2azd2labelza2za2zd2zz__evaluate_compz00));
#undef ADD_ROOT
		if (roots_max > 0)
			GC_add_roots(roots_min, ((void **) roots_max) + 1);
#endif
		return BUNSPEC;
	}



/* module-initialization */
	BGL_EXPORTED_DEF obj_t
		BGl_modulezd2initializa7ationz75zz__evaluate_compz00(long
		BgL_checksumz00_17155, char *BgL_fromz00_17156)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__evaluate_compz00))
				{
					BGl_requirezd2initializa7ationz75zz__evaluate_compz00 =
						BBOOL(((bool_t) 0));
					bgl_constant_bindings();
					BGl_gczd2rootszd2initz00zz__evaluate_compz00();
					BGl_cnstzd2initzd2zz__evaluate_compz00();
					BGl_importedzd2moduleszd2initz00zz__evaluate_compz00();
					BGl_genericzd2initzd2zz__evaluate_compz00();
					BGl_methodzd2initzd2zz__evaluate_compz00();
					return BGl_toplevelzd2initzd2zz__evaluate_compz00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zz__evaluate_compz00(void)
	{
		{	/* Eval/evaluate_comp.scm 15 */
			BGl_symbol4569z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4570z00zz__evaluate_compz00);
			BGl_symbol4571z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4572z00zz__evaluate_compz00);
			BGl_symbol4573z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4574z00zz__evaluate_compz00);
			BGl_symbol4579z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4580z00zz__evaluate_compz00);
			BGl_symbol4587z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4588z00zz__evaluate_compz00);
			BGl_symbol4589z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4590z00zz__evaluate_compz00);
			BGl_symbol4591z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4592z00zz__evaluate_compz00);
			BGl_symbol4594z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4595z00zz__evaluate_compz00);
			BGl_symbol4597z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4598z00zz__evaluate_compz00);
			BGl_symbol4599z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4600z00zz__evaluate_compz00);
			BGl_symbol4601z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4602z00zz__evaluate_compz00);
			BGl_symbol4603z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4604z00zz__evaluate_compz00);
			BGl_symbol4605z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4606z00zz__evaluate_compz00);
			BGl_symbol4607z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4608z00zz__evaluate_compz00);
			BGl_symbol4609z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4610z00zz__evaluate_compz00);
			BGl_symbol4611z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4612z00zz__evaluate_compz00);
			BGl_symbol4613z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4614z00zz__evaluate_compz00);
			BGl_symbol4615z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4616z00zz__evaluate_compz00);
			BGl_symbol4617z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4618z00zz__evaluate_compz00);
			BGl_symbol4619z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4620z00zz__evaluate_compz00);
			BGl_symbol4621z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4622z00zz__evaluate_compz00);
			BGl_symbol4623z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4624z00zz__evaluate_compz00);
			BGl_symbol4625z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4626z00zz__evaluate_compz00);
			BGl_symbol4627z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4628z00zz__evaluate_compz00);
			BGl_symbol4629z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4630z00zz__evaluate_compz00);
			BGl_symbol4631z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4632z00zz__evaluate_compz00);
			BGl_symbol4633z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4634z00zz__evaluate_compz00);
			BGl_symbol4635z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4636z00zz__evaluate_compz00);
			BGl_symbol4637z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4638z00zz__evaluate_compz00);
			BGl_symbol4639z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4640z00zz__evaluate_compz00);
			BGl_symbol4641z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4642z00zz__evaluate_compz00);
			BGl_symbol4643z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4644z00zz__evaluate_compz00);
			BGl_symbol4645z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4646z00zz__evaluate_compz00);
			BGl_symbol4647z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4648z00zz__evaluate_compz00);
			BGl_symbol4649z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4650z00zz__evaluate_compz00);
			BGl_symbol4651z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4652z00zz__evaluate_compz00);
			BGl_symbol4653z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4654z00zz__evaluate_compz00);
			BGl_symbol4655z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4656z00zz__evaluate_compz00);
			BGl_symbol4657z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4658z00zz__evaluate_compz00);
			BGl_symbol4659z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4660z00zz__evaluate_compz00);
			BGl_symbol4661z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4662z00zz__evaluate_compz00);
			BGl_symbol4663z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4664z00zz__evaluate_compz00);
			BGl_symbol4694z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4695z00zz__evaluate_compz00);
			BGl_symbol4702z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4703z00zz__evaluate_compz00);
			BGl_symbol4713z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4714z00zz__evaluate_compz00);
			BGl_symbol4715z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4716z00zz__evaluate_compz00);
			BGl_symbol4717z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4718z00zz__evaluate_compz00);
			return (BGl_symbol4719z00zz__evaluate_compz00 =
				bstring_to_symbol(BGl_string4720z00zz__evaluate_compz00), BUNSPEC);
		}

	}



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

	}



/* toplevel-init */
	obj_t BGl_toplevelzd2initzd2zz__evaluate_compz00(void)
	{
		{	/* Eval/evaluate_comp.scm 15 */
			{	/* Eval/evaluate_comp.scm 114 */
				BGL_LONGLONG_T BgL_arg1532z00_1412;

				BgL_arg1532z00_1412 = LONG_TO_LLONG(0L);
				{	/* Eval/evaluate_comp.scm 114 */
					obj_t BgL_list1533z00_1413;

					{	/* Eval/evaluate_comp.scm 114 */
						obj_t BgL_arg1534z00_1414;

						BgL_arg1534z00_1414 =
							MAKE_YOUNG_PAIR(make_bllong(BgL_arg1532z00_1412), BNIL);
						BgL_list1533z00_1413 =
							MAKE_YOUNG_PAIR(BGl_symbol4569z00zz__evaluate_compz00,
							BgL_arg1534z00_1414);
					}
					BGl_za2za2prof_resultsza2za2z00zz__evaluate_compz00 =
						BgL_list1533z00_1413;
			}}
			BGl_za2za2siza7ezd2stackza2za2z75zz__evaluate_compz00 = 8192L;
			BGl_za2za2azd2labelza2za2zd2zz__evaluate_compz00 =
				create_struct(BGl_symbol4571z00zz__evaluate_compz00, (int) (0L));
			BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00 =
				create_struct(BGl_symbol4573z00zz__evaluate_compz00, (int) (0L));
			return BUNSPEC;
		}

	}



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

					BgL_headz00_1416 = MAKE_YOUNG_PAIR(BNIL, BgL_l2z00_2);
					{
						obj_t BgL_prevz00_6450;
						obj_t BgL_tailz00_6451;

						BgL_prevz00_6450 = BgL_headz00_1416;
						BgL_tailz00_6451 = BgL_l1z00_1;
					BgL_loopz00_6449:
						if (PAIRP(BgL_tailz00_6451))
							{
								obj_t BgL_newzd2prevzd2_6457;

								BgL_newzd2prevzd2_6457 =
									MAKE_YOUNG_PAIR(CAR(BgL_tailz00_6451), BgL_l2z00_2);
								SET_CDR(BgL_prevz00_6450, BgL_newzd2prevzd2_6457);
								{
									obj_t BgL_tailz00_17233;
									obj_t BgL_prevz00_17232;

									BgL_prevz00_17232 = BgL_newzd2prevzd2_6457;
									BgL_tailz00_17233 = CDR(BgL_tailz00_6451);
									BgL_tailz00_6451 = BgL_tailz00_17233;
									BgL_prevz00_6450 = BgL_prevz00_17232;
									goto BgL_loopz00_6449;
								}
							}
						else
							{
								BNIL;
							}
					}
					return CDR(BgL_headz00_1416);
				}
		}

	}



/* reset_profile */
	obj_t BGl_reset_profilez00zz__evaluate_compz00(void)
	{
		{	/* Eval/evaluate_comp.scm 132 */
			{	/* Eval/evaluate_comp.scm 133 */
				BGL_LONGLONG_T BgL_arg1559z00_1444;

				BgL_arg1559z00_1444 = LONG_TO_LLONG(0L);
				{	/* Eval/evaluate_comp.scm 133 */
					obj_t BgL_list1560z00_1445;

					{	/* Eval/evaluate_comp.scm 133 */
						obj_t BgL_arg1561z00_1446;

						BgL_arg1561z00_1446 =
							MAKE_YOUNG_PAIR(make_bllong(BgL_arg1559z00_1444), BNIL);
						BgL_list1560z00_1445 =
							MAKE_YOUNG_PAIR(BGl_symbol4569z00zz__evaluate_compz00,
							BgL_arg1561z00_1446);
					}
					return (BGl_za2za2prof_resultsza2za2z00zz__evaluate_compz00 =
						BgL_list1560z00_1445, BUNSPEC);
				}
			}
		}

	}



/* o->s~0 */
	obj_t BGl_ozd2ze3sze70zd6zz__evaluate_compz00(obj_t BgL_vz00_1456)
	{
		{	/* Eval/evaluate_comp.scm 141 */
			if (BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_vz00_1456))
				{	/* Ieee/fixnum.scm 978 */

					return
						BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(
						(long) CINT(BgL_vz00_1456), 10L);
				}
			else
				{	/* Eval/evaluate_comp.scm 138 */
					if (SYMBOLP(BgL_vz00_1456))
						{	/* Eval/evaluate_comp.scm 139 */
							obj_t BgL_arg4148z00_6466;

							BgL_arg4148z00_6466 = SYMBOL_TO_STRING(BgL_vz00_1456);
							return
								BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_arg4148z00_6466);
						}
					else
						{	/* Eval/evaluate_comp.scm 139 */
							if (STRINGP(BgL_vz00_1456))
								{	/* Eval/evaluate_comp.scm 140 */
									return BgL_vz00_1456;
								}
							else
								{	/* Eval/evaluate_comp.scm 140 */
									return BGl_string4575z00zz__evaluate_compz00;
								}
						}
				}
		}

	}



/* &<lexint */
	obj_t BGl_z62zc3lexintza1zz__evaluate_compz00(obj_t BgL_envz00_13612,
		obj_t BgL_t1z00_13613, obj_t BgL_t2z00_13614)
	{
		{	/* Eval/evaluate_comp.scm 135 */
			{	/* Eval/evaluate_comp.scm 138 */
				bool_t BgL_tmpz00_17250;

				{	/* Eval/evaluate_comp.scm 142 */
					obj_t BgL_v1z00_15888;
					obj_t BgL_v2z00_15889;

					BgL_v1z00_15888 = CAR(((obj_t) BgL_t1z00_13613));
					BgL_v2z00_15889 = CAR(((obj_t) BgL_t2z00_13614));
					{	/* Eval/evaluate_comp.scm 143 */
						bool_t BgL_test4839z00_17255;

						if (BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_v1z00_15888))
							{	/* Eval/evaluate_comp.scm 143 */
								BgL_test4839z00_17255 =
									BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00
									(BgL_v2z00_15889);
							}
						else
							{	/* Eval/evaluate_comp.scm 143 */
								BgL_test4839z00_17255 = ((bool_t) 0);
							}
						if (BgL_test4839z00_17255)
							{	/* Eval/evaluate_comp.scm 144 */
								bool_t BgL_test4841z00_17259;

								if (INTEGERP(BgL_v1z00_15888))
									{	/* Eval/evaluate_comp.scm 144 */
										BgL_test4841z00_17259 = INTEGERP(BgL_v2z00_15889);
									}
								else
									{	/* Eval/evaluate_comp.scm 144 */
										BgL_test4841z00_17259 = ((bool_t) 0);
									}
								if (BgL_test4841z00_17259)
									{	/* Eval/evaluate_comp.scm 144 */
										BgL_tmpz00_17250 =
											(
											(long) CINT(BgL_v1z00_15888) <
											(long) CINT(BgL_v2z00_15889));
									}
								else
									{	/* Eval/evaluate_comp.scm 144 */
										BgL_tmpz00_17250 =
											BGl_2zc3zc3zz__r4_numbers_6_5z00(BgL_v1z00_15888,
											BgL_v2z00_15889);
									}
							}
						else
							{	/* Eval/evaluate_comp.scm 143 */
								BgL_tmpz00_17250 =
									bigloo_string_lt(BGl_ozd2ze3sze70zd6zz__evaluate_compz00
									(BgL_v1z00_15888),
									BGl_ozd2ze3sze70zd6zz__evaluate_compz00(BgL_v2z00_15889));
							}
					}
				}
				return BBOOL(BgL_tmpz00_17250);
			}
		}

	}



/* get_profile */
	obj_t BGl_get_profilez00zz__evaluate_compz00(void)
	{
		{	/* Eval/evaluate_comp.scm 147 */
			BGl_recze71ze7zz__evaluate_compz00
				(BGl_za2za2prof_resultsza2za2z00zz__evaluate_compz00);
			return BGl_za2za2prof_resultsza2za2z00zz__evaluate_compz00;
		}

	}



/* rec~1 */
	bool_t BGl_recze71ze7zz__evaluate_compz00(obj_t BgL_tz00_1465)
	{
		{	/* Eval/evaluate_comp.scm 148 */
			{	/* Eval/evaluate_comp.scm 149 */
				obj_t BgL_arg1575z00_1467;
				obj_t BgL_arg1577z00_1468;

				BgL_arg1575z00_1467 = CDR(((obj_t) BgL_tz00_1465));
				{	/* Eval/evaluate_comp.scm 149 */
					obj_t BgL_arg1578z00_1469;

					{	/* Eval/evaluate_comp.scm 149 */
						obj_t BgL_pairz00_6477;

						BgL_pairz00_6477 = CDR(((obj_t) BgL_tz00_1465));
						BgL_arg1578z00_1469 = CDR(BgL_pairz00_6477);
					}
					BgL_arg1577z00_1468 =
						BGl_sortz00zz__r4_vectors_6_8z00
						(BGl_zc3lexintzd2envz11zz__evaluate_compz00, BgL_arg1578z00_1469);
				}
				{	/* Eval/evaluate_comp.scm 149 */
					obj_t BgL_tmpz00_17278;

					BgL_tmpz00_17278 = ((obj_t) BgL_arg1575z00_1467);
					SET_CDR(BgL_tmpz00_17278, BgL_arg1577z00_1468);
				}
			}
			{	/* Eval/evaluate_comp.scm 150 */
				obj_t BgL_g1302z00_1470;

				{	/* Eval/evaluate_comp.scm 150 */
					obj_t BgL_pairz00_6482;

					BgL_pairz00_6482 = CDR(((obj_t) BgL_tz00_1465));
					BgL_g1302z00_1470 = CDR(BgL_pairz00_6482);
				}
				{
					obj_t BgL_l1300z00_6494;

					BgL_l1300z00_6494 = BgL_g1302z00_1470;
				BgL_zc3z04anonymousza31579ze3z87_6493:
					if (PAIRP(BgL_l1300z00_6494))
						{	/* Eval/evaluate_comp.scm 150 */
							BGl_recze71ze7zz__evaluate_compz00(CAR(BgL_l1300z00_6494));
							{
								obj_t BgL_l1300z00_17288;

								BgL_l1300z00_17288 = CDR(BgL_l1300z00_6494);
								BgL_l1300z00_6494 = BgL_l1300z00_17288;
								goto BgL_zc3z04anonymousza31579ze3z87_6493;
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 150 */
							return ((bool_t) 1);
						}
				}
			}
		}

	}



/* index */
	obj_t BGl_indexz00zz__evaluate_compz00(obj_t BgL_xz00_6, obj_t BgL_lz00_7)
	{
		{	/* Eval/evaluate_comp.scm 156 */
			{
				obj_t BgL_lz00_6520;
				long BgL_nz00_6521;

				BgL_lz00_6520 = BgL_lz00_7;
				BgL_nz00_6521 = 0L;
			BgL_walkz00_6519:
				if (NULLP(BgL_lz00_6520))
					{	/* Eval/evaluate_comp.scm 158 */
						return BFALSE;
					}
				else
					{	/* Eval/evaluate_comp.scm 158 */
						if ((BgL_xz00_6 == CAR(((obj_t) BgL_lz00_6520))))
							{	/* Eval/evaluate_comp.scm 159 */
								return BINT(BgL_nz00_6521);
							}
						else
							{
								long BgL_nz00_17300;
								obj_t BgL_lz00_17297;

								BgL_lz00_17297 = CDR(((obj_t) BgL_lz00_6520));
								BgL_nz00_17300 = (BgL_nz00_6521 + 1L);
								BgL_nz00_6521 = BgL_nz00_17300;
								BgL_lz00_6520 = BgL_lz00_17297;
								goto BgL_walkz00_6519;
							}
					}
			}
		}

	}



/* _index */
	obj_t BGl__indexz00zz__evaluate_compz00(obj_t BgL_xz00_8, obj_t BgL_lz00_9)
	{
		{	/* Eval/evaluate_comp.scm 163 */
			{	/* Eval/evaluate_comp.scm 164 */
				obj_t BgL__ortest_1079z00_1490;

				BgL__ortest_1079z00_1490 =
					BGl_indexz00zz__evaluate_compz00(BgL_xz00_8, BgL_lz00_9);
				if (CBOOL(BgL__ortest_1079z00_1490))
					{	/* Eval/evaluate_comp.scm 164 */
						return BgL__ortest_1079z00_1490;
					}
				else
					{	/* Eval/evaluate_comp.scm 164 */
						obj_t BgL_arg1592z00_1491;

						{	/* Eval/evaluate_comp.scm 164 */
							obj_t BgL_arg1593z00_1492;

							if (NULLP(BgL_lz00_9))
								{	/* Eval/evaluate_comp.scm 164 */
									BgL_arg1593z00_1492 = BNIL;
								}
							else
								{	/* Eval/evaluate_comp.scm 164 */
									obj_t BgL_head1305z00_1498;

									{	/* Eval/evaluate_comp.scm 164 */
										obj_t BgL_arg1604z00_1510;

										{	/* Eval/evaluate_comp.scm 164 */
											obj_t BgL_arg1605z00_1511;

											BgL_arg1605z00_1511 = CAR(((obj_t) BgL_lz00_9));
											{	/* Eval/evaluate_comp.scm 189 */
												bool_t BgL_test4848z00_17309;

												{	/* Eval/evaluate_comp.scm 189 */
													obj_t BgL_classz00_6538;

													BgL_classz00_6538 =
														BGl_ev_varz00zz__evaluate_typesz00;
													if (BGL_OBJECTP(BgL_arg1605z00_1511))
														{	/* Eval/evaluate_comp.scm 189 */
															BgL_objectz00_bglt BgL_arg4295z00_6540;

															BgL_arg4295z00_6540 =
																(BgL_objectz00_bglt) (BgL_arg1605z00_1511);
															if (BGL_CONDEXPAND_ISA_ARCH64())
																{	/* Eval/evaluate_comp.scm 189 */
																	long BgL_idxz00_6546;

																	BgL_idxz00_6546 =
																		BGL_OBJECT_INHERITANCE_NUM
																		(BgL_arg4295z00_6540);
																	BgL_test4848z00_17309 =
																		(VECTOR_REF
																		(BGl_za2inheritancesza2z00zz__objectz00,
																			(BgL_idxz00_6546 + 2L)) ==
																		BgL_classz00_6538);
																}
															else
																{	/* Eval/evaluate_comp.scm 189 */
																	bool_t BgL_res4329z00_6571;

																	{	/* Eval/evaluate_comp.scm 189 */
																		obj_t BgL_oclassz00_6554;

																		{	/* Eval/evaluate_comp.scm 189 */
																			obj_t BgL_arg4302z00_6562;
																			long BgL_arg4303z00_6563;

																			BgL_arg4302z00_6562 =
																				(BGl_za2classesza2z00zz__objectz00);
																			{	/* Eval/evaluate_comp.scm 189 */
																				long BgL_arg4304z00_6564;

																				BgL_arg4304z00_6564 =
																					BGL_OBJECT_CLASS_NUM
																					(BgL_arg4295z00_6540);
																				BgL_arg4303z00_6563 =
																					(BgL_arg4304z00_6564 - OBJECT_TYPE);
																			}
																			BgL_oclassz00_6554 =
																				VECTOR_REF(BgL_arg4302z00_6562,
																				BgL_arg4303z00_6563);
																		}
																		{	/* Eval/evaluate_comp.scm 189 */
																			bool_t BgL__ortest_1296z00_6555;

																			BgL__ortest_1296z00_6555 =
																				(BgL_classz00_6538 ==
																				BgL_oclassz00_6554);
																			if (BgL__ortest_1296z00_6555)
																				{	/* Eval/evaluate_comp.scm 189 */
																					BgL_res4329z00_6571 =
																						BgL__ortest_1296z00_6555;
																				}
																			else
																				{	/* Eval/evaluate_comp.scm 189 */
																					long BgL_odepthz00_6556;

																					{	/* Eval/evaluate_comp.scm 189 */
																						obj_t BgL_arg4292z00_6557;

																						BgL_arg4292z00_6557 =
																							(BgL_oclassz00_6554);
																						BgL_odepthz00_6556 =
																							BGL_CLASS_DEPTH
																							(BgL_arg4292z00_6557);
																					}
																					if ((2L < BgL_odepthz00_6556))
																						{	/* Eval/evaluate_comp.scm 189 */
																							obj_t BgL_arg4290z00_6559;

																							{	/* Eval/evaluate_comp.scm 189 */
																								obj_t BgL_arg4291z00_6560;

																								BgL_arg4291z00_6560 =
																									(BgL_oclassz00_6554);
																								BgL_arg4290z00_6559 =
																									BGL_CLASS_ANCESTORS_REF
																									(BgL_arg4291z00_6560, 2L);
																							}
																							BgL_res4329z00_6571 =
																								(BgL_arg4290z00_6559 ==
																								BgL_classz00_6538);
																						}
																					else
																						{	/* Eval/evaluate_comp.scm 189 */
																							BgL_res4329z00_6571 =
																								((bool_t) 0);
																						}
																				}
																		}
																	}
																	BgL_test4848z00_17309 = BgL_res4329z00_6571;
																}
														}
													else
														{	/* Eval/evaluate_comp.scm 189 */
															BgL_test4848z00_17309 = ((bool_t) 0);
														}
												}
												if (BgL_test4848z00_17309)
													{	/* Eval/evaluate_comp.scm 189 */
														BgL_arg1604z00_1510 =
															(((BgL_ev_varz00_bglt) COBJECT(
																	((BgL_ev_varz00_bglt) BgL_arg1605z00_1511)))->
															BgL_namez00);
													}
												else
													{	/* Eval/evaluate_comp.scm 189 */
														BgL_arg1604z00_1510 = BgL_arg1605z00_1511;
													}
											}
										}
										BgL_head1305z00_1498 =
											MAKE_YOUNG_PAIR(BgL_arg1604z00_1510, BNIL);
									}
									{	/* Eval/evaluate_comp.scm 164 */
										obj_t BgL_g1308z00_1499;

										BgL_g1308z00_1499 = CDR(((obj_t) BgL_lz00_9));
										{
											obj_t BgL_l1303z00_6626;
											obj_t BgL_tail1306z00_6627;

											BgL_l1303z00_6626 = BgL_g1308z00_1499;
											BgL_tail1306z00_6627 = BgL_head1305z00_1498;
										BgL_zc3z04anonymousza31598ze3z87_6625:
											if (NULLP(BgL_l1303z00_6626))
												{	/* Eval/evaluate_comp.scm 164 */
													BgL_arg1593z00_1492 = BgL_head1305z00_1498;
												}
											else
												{	/* Eval/evaluate_comp.scm 164 */
													obj_t BgL_newtail1307z00_6634;

													{	/* Eval/evaluate_comp.scm 164 */
														obj_t BgL_arg1602z00_6635;

														BgL_arg1602z00_6635 =
															BGl_lnamez00zz__evaluate_compz00(CAR(
																((obj_t) BgL_l1303z00_6626)));
														BgL_newtail1307z00_6634 =
															MAKE_YOUNG_PAIR(BgL_arg1602z00_6635, BNIL);
													}
													SET_CDR(BgL_tail1306z00_6627,
														BgL_newtail1307z00_6634);
													{	/* Eval/evaluate_comp.scm 164 */
														obj_t BgL_arg1600z00_6637;

														BgL_arg1600z00_6637 =
															CDR(((obj_t) BgL_l1303z00_6626));
														{
															obj_t BgL_tail1306z00_17347;
															obj_t BgL_l1303z00_17346;

															BgL_l1303z00_17346 = BgL_arg1600z00_6637;
															BgL_tail1306z00_17347 = BgL_newtail1307z00_6634;
															BgL_tail1306z00_6627 = BgL_tail1306z00_17347;
															BgL_l1303z00_6626 = BgL_l1303z00_17346;
															goto BgL_zc3z04anonymousza31598ze3z87_6625;
														}
													}
												}
										}
									}
								}
							{	/* Eval/evaluate_comp.scm 164 */
								obj_t BgL_list1594z00_1493;

								{	/* Eval/evaluate_comp.scm 164 */
									obj_t BgL_arg1595z00_1494;

									{	/* Eval/evaluate_comp.scm 164 */
										obj_t BgL_arg1596z00_1495;

										BgL_arg1596z00_1495 =
											MAKE_YOUNG_PAIR(BgL_arg1593z00_1492, BNIL);
										BgL_arg1595z00_1494 =
											MAKE_YOUNG_PAIR(BGl_string4576z00zz__evaluate_compz00,
											BgL_arg1596z00_1495);
									}
									BgL_list1594z00_1493 =
										MAKE_YOUNG_PAIR(BgL_xz00_8, BgL_arg1595z00_1494);
								}
								BgL_arg1592z00_1491 = BgL_list1594z00_1493;
							}
						}
						return
							BGl_errorz00zz__errorz00(BGl_string4577z00zz__evaluate_compz00,
							BGl_string4578z00zz__evaluate_compz00, BgL_arg1592z00_1491);
					}
			}
		}

	}



/* lname */
	obj_t BGl_lnamez00zz__evaluate_compz00(obj_t BgL_vz00_16)
	{
		{	/* Eval/evaluate_comp.scm 188 */
			{	/* Eval/evaluate_comp.scm 189 */
				bool_t BgL_test4854z00_17352;

				{	/* Eval/evaluate_comp.scm 189 */
					obj_t BgL_classz00_6644;

					BgL_classz00_6644 = BGl_ev_varz00zz__evaluate_typesz00;
					if (BGL_OBJECTP(BgL_vz00_16))
						{	/* Eval/evaluate_comp.scm 189 */
							BgL_objectz00_bglt BgL_arg4295z00_6646;

							BgL_arg4295z00_6646 = (BgL_objectz00_bglt) (BgL_vz00_16);
							if (BGL_CONDEXPAND_ISA_ARCH64())
								{	/* Eval/evaluate_comp.scm 189 */
									long BgL_idxz00_6652;

									BgL_idxz00_6652 =
										BGL_OBJECT_INHERITANCE_NUM(BgL_arg4295z00_6646);
									BgL_test4854z00_17352 =
										(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
											(BgL_idxz00_6652 + 2L)) == BgL_classz00_6644);
								}
							else
								{	/* Eval/evaluate_comp.scm 189 */
									bool_t BgL_res4332z00_6677;

									{	/* Eval/evaluate_comp.scm 189 */
										obj_t BgL_oclassz00_6660;

										{	/* Eval/evaluate_comp.scm 189 */
											obj_t BgL_arg4302z00_6668;
											long BgL_arg4303z00_6669;

											BgL_arg4302z00_6668 = (BGl_za2classesza2z00zz__objectz00);
											{	/* Eval/evaluate_comp.scm 189 */
												long BgL_arg4304z00_6670;

												BgL_arg4304z00_6670 =
													BGL_OBJECT_CLASS_NUM(BgL_arg4295z00_6646);
												BgL_arg4303z00_6669 =
													(BgL_arg4304z00_6670 - OBJECT_TYPE);
											}
											BgL_oclassz00_6660 =
												VECTOR_REF(BgL_arg4302z00_6668, BgL_arg4303z00_6669);
										}
										{	/* Eval/evaluate_comp.scm 189 */
											bool_t BgL__ortest_1296z00_6661;

											BgL__ortest_1296z00_6661 =
												(BgL_classz00_6644 == BgL_oclassz00_6660);
											if (BgL__ortest_1296z00_6661)
												{	/* Eval/evaluate_comp.scm 189 */
													BgL_res4332z00_6677 = BgL__ortest_1296z00_6661;
												}
											else
												{	/* Eval/evaluate_comp.scm 189 */
													long BgL_odepthz00_6662;

													{	/* Eval/evaluate_comp.scm 189 */
														obj_t BgL_arg4292z00_6663;

														BgL_arg4292z00_6663 = (BgL_oclassz00_6660);
														BgL_odepthz00_6662 =
															BGL_CLASS_DEPTH(BgL_arg4292z00_6663);
													}
													if ((2L < BgL_odepthz00_6662))
														{	/* Eval/evaluate_comp.scm 189 */
															obj_t BgL_arg4290z00_6665;

															{	/* Eval/evaluate_comp.scm 189 */
																obj_t BgL_arg4291z00_6666;

																BgL_arg4291z00_6666 = (BgL_oclassz00_6660);
																BgL_arg4290z00_6665 =
																	BGL_CLASS_ANCESTORS_REF(BgL_arg4291z00_6666,
																	2L);
															}
															BgL_res4332z00_6677 =
																(BgL_arg4290z00_6665 == BgL_classz00_6644);
														}
													else
														{	/* Eval/evaluate_comp.scm 189 */
															BgL_res4332z00_6677 = ((bool_t) 0);
														}
												}
										}
									}
									BgL_test4854z00_17352 = BgL_res4332z00_6677;
								}
						}
					else
						{	/* Eval/evaluate_comp.scm 189 */
							BgL_test4854z00_17352 = ((bool_t) 0);
						}
				}
				if (BgL_test4854z00_17352)
					{	/* Eval/evaluate_comp.scm 189 */
						return
							(((BgL_ev_varz00_bglt) COBJECT(
									((BgL_ev_varz00_bglt) BgL_vz00_16)))->BgL_namez00);
					}
				else
					{	/* Eval/evaluate_comp.scm 189 */
						return BgL_vz00_16;
					}
			}
		}

	}



/* loc-type-error */
	obj_t BGl_loczd2typezd2errorz00zz__evaluate_compz00(obj_t BgL_fz00_17,
		obj_t BgL_mz00_18, obj_t BgL_vz00_19, obj_t BgL_locz00_20)
	{
		{	/* Eval/evaluate_comp.scm 193 */
			if (PAIRP(BgL_locz00_20))
				{	/* Eval/evaluate_comp.scm 194 */
					obj_t BgL_cdrzd2194zd2_1537;

					BgL_cdrzd2194zd2_1537 = CDR(((obj_t) BgL_locz00_20));
					if (
						(CAR(
								((obj_t) BgL_locz00_20)) ==
							BGl_symbol4579z00zz__evaluate_compz00))
						{	/* Eval/evaluate_comp.scm 194 */
							if (PAIRP(BgL_cdrzd2194zd2_1537))
								{	/* Eval/evaluate_comp.scm 194 */
									obj_t BgL_cdrzd2198zd2_1541;

									BgL_cdrzd2198zd2_1541 = CDR(BgL_cdrzd2194zd2_1537);
									if (PAIRP(BgL_cdrzd2198zd2_1541))
										{	/* Eval/evaluate_comp.scm 194 */
											if (NULLP(CDR(BgL_cdrzd2198zd2_1541)))
												{	/* Eval/evaluate_comp.scm 194 */
													return
														BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00
														(BgL_fz00_17, BgL_mz00_18, BgL_vz00_19,
														CAR(BgL_cdrzd2194zd2_1537),
														CAR(BgL_cdrzd2198zd2_1541));
												}
											else
												{	/* Eval/evaluate_comp.scm 194 */
													return
														BGl_bigloozd2typezd2errorz00zz__errorz00
														(BgL_fz00_17, BgL_mz00_18, BgL_vz00_19);
												}
										}
									else
										{	/* Eval/evaluate_comp.scm 194 */
											return
												BGl_bigloozd2typezd2errorz00zz__errorz00(BgL_fz00_17,
												BgL_mz00_18, BgL_vz00_19);
										}
								}
							else
								{	/* Eval/evaluate_comp.scm 194 */
									return
										BGl_bigloozd2typezd2errorz00zz__errorz00(BgL_fz00_17,
										BgL_mz00_18, BgL_vz00_19);
								}
						}
					else
						{	/* Eval/evaluate_comp.scm 194 */
							return
								BGl_bigloozd2typezd2errorz00zz__errorz00(BgL_fz00_17,
								BgL_mz00_18, BgL_vz00_19);
						}
				}
			else
				{	/* Eval/evaluate_comp.scm 194 */
					return
						BGl_bigloozd2typezd2errorz00zz__errorz00(BgL_fz00_17, BgL_mz00_18,
						BgL_vz00_19);
				}
		}

	}



/* make-state */
	obj_t BGl_makezd2statezd2zz__evaluate_compz00(void)
	{
		{	/* Eval/evaluate_comp.scm 206 */
			{	/* Eval/evaluate_comp.scm 207 */
				obj_t BgL_stkz00_1559;

				BgL_stkz00_1559 =
					make_vector(8192L, BGl_string4581z00zz__evaluate_compz00);
				VECTOR_SET(BgL_stkz00_1559, 0L, BINT(2L));
				return BgL_stkz00_1559;
			}
		}

	}



/* find-state */
	BGL_EXPORTED_DEF obj_t BGl_findzd2statezd2zz__evaluate_compz00(void)
	{
		{	/* Eval/evaluate_comp.scm 211 */
			{	/* Eval/evaluate_comp.scm 212 */
				obj_t BgL_sz00_1560;

				{	/* Eval/evaluate_comp.scm 212 */
					obj_t BgL_tmpz00_17404;

					BgL_tmpz00_17404 = BGL_CURRENT_DYNAMIC_ENV();
					BgL_sz00_1560 = BGL_ENV_EVSTATE(BgL_tmpz00_17404);
				}
				if (VECTORP(BgL_sz00_1560))
					{	/* Eval/evaluate_comp.scm 213 */
						return BgL_sz00_1560;
					}
				else
					{	/* Eval/evaluate_comp.scm 214 */
						obj_t BgL_statez00_1562;

						BgL_statez00_1562 = BGl_makezd2statezd2zz__evaluate_compz00();
						{	/* Eval/evaluate_comp.scm 215 */
							obj_t BgL_tmpz00_17410;

							BgL_tmpz00_17410 = BGL_CURRENT_DYNAMIC_ENV();
							BGL_ENV_EVSTATE_SET(BgL_tmpz00_17410, BgL_statez00_1562);
						}
						return BgL_statez00_1562;
					}
			}
		}

	}



/* &find-state */
	obj_t BGl_z62findzd2statezb0zz__evaluate_compz00(obj_t BgL_envz00_13615)
	{
		{	/* Eval/evaluate_comp.scm 211 */
			return BGl_findzd2statezd2zz__evaluate_compz00();
		}

	}



/* compile */
	BGL_EXPORTED_DEF obj_t BGl_compilez00zz__evaluate_compz00(BgL_ev_exprz00_bglt
		BgL_ez00_34)
	{
		{	/* Eval/evaluate_comp.scm 273 */
			return BGl_compz00zz__evaluate_compz00(BgL_ez00_34, BNIL);
		}

	}



/* &compile */
	obj_t BGl_z62compilez62zz__evaluate_compz00(obj_t BgL_envz00_13616,
		obj_t BgL_ez00_13617)
	{
		{	/* Eval/evaluate_comp.scm 273 */
			{	/* Eval/evaluate_comp.scm 274 */
				BgL_ev_exprz00_bglt BgL_auxz00_17415;

				if (BGl_isazf3zf3zz__objectz00(BgL_ez00_13617,
						BGl_ev_exprz00zz__evaluate_typesz00))
					{	/* Eval/evaluate_comp.scm 274 */
						BgL_auxz00_17415 = ((BgL_ev_exprz00_bglt) BgL_ez00_13617);
					}
				else
					{
						obj_t BgL_auxz00_17419;

						BgL_auxz00_17419 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string4582z00zz__evaluate_compz00, BINT(7006L),
							BGl_string4583z00zz__evaluate_compz00,
							BGl_string4584z00zz__evaluate_compz00, BgL_ez00_13617);
						FAILURE(BgL_auxz00_17419, BFALSE, BFALSE);
					}
				return BGl_compilez00zz__evaluate_compz00(BgL_auxz00_17415);
			}
		}

	}



/* global-fun-value */
	obj_t BGl_globalzd2funzd2valuez00zz__evaluate_compz00(BgL_ev_exprz00_bglt
		BgL_ez00_43)
	{
		{	/* Eval/evaluate_comp.scm 332 */
			{	/* Eval/evaluate_comp.scm 333 */
				bool_t BgL_test4866z00_17424;

				{	/* Eval/evaluate_comp.scm 333 */
					obj_t BgL_classz00_6689;

					BgL_classz00_6689 = BGl_ev_globalz00zz__evaluate_typesz00;
					{	/* Eval/evaluate_comp.scm 333 */
						BgL_objectz00_bglt BgL_arg4295z00_6691;

						{	/* Eval/evaluate_comp.scm 333 */
							obj_t BgL_tmpz00_17425;

							BgL_tmpz00_17425 = ((obj_t) BgL_ez00_43);
							BgL_arg4295z00_6691 = (BgL_objectz00_bglt) (BgL_tmpz00_17425);
						}
						if (BGL_CONDEXPAND_ISA_ARCH64())
							{	/* Eval/evaluate_comp.scm 333 */
								long BgL_idxz00_6697;

								BgL_idxz00_6697 =
									BGL_OBJECT_INHERITANCE_NUM(BgL_arg4295z00_6691);
								BgL_test4866z00_17424 =
									(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
										(BgL_idxz00_6697 + 2L)) == BgL_classz00_6689);
							}
						else
							{	/* Eval/evaluate_comp.scm 333 */
								bool_t BgL_res4333z00_6722;

								{	/* Eval/evaluate_comp.scm 333 */
									obj_t BgL_oclassz00_6705;

									{	/* Eval/evaluate_comp.scm 333 */
										obj_t BgL_arg4302z00_6713;
										long BgL_arg4303z00_6714;

										BgL_arg4302z00_6713 = (BGl_za2classesza2z00zz__objectz00);
										{	/* Eval/evaluate_comp.scm 333 */
											long BgL_arg4304z00_6715;

											BgL_arg4304z00_6715 =
												BGL_OBJECT_CLASS_NUM(BgL_arg4295z00_6691);
											BgL_arg4303z00_6714 = (BgL_arg4304z00_6715 - OBJECT_TYPE);
										}
										BgL_oclassz00_6705 =
											VECTOR_REF(BgL_arg4302z00_6713, BgL_arg4303z00_6714);
									}
									{	/* Eval/evaluate_comp.scm 333 */
										bool_t BgL__ortest_1296z00_6706;

										BgL__ortest_1296z00_6706 =
											(BgL_classz00_6689 == BgL_oclassz00_6705);
										if (BgL__ortest_1296z00_6706)
											{	/* Eval/evaluate_comp.scm 333 */
												BgL_res4333z00_6722 = BgL__ortest_1296z00_6706;
											}
										else
											{	/* Eval/evaluate_comp.scm 333 */
												long BgL_odepthz00_6707;

												{	/* Eval/evaluate_comp.scm 333 */
													obj_t BgL_arg4292z00_6708;

													BgL_arg4292z00_6708 = (BgL_oclassz00_6705);
													BgL_odepthz00_6707 =
														BGL_CLASS_DEPTH(BgL_arg4292z00_6708);
												}
												if ((2L < BgL_odepthz00_6707))
													{	/* Eval/evaluate_comp.scm 333 */
														obj_t BgL_arg4290z00_6710;

														{	/* Eval/evaluate_comp.scm 333 */
															obj_t BgL_arg4291z00_6711;

															BgL_arg4291z00_6711 = (BgL_oclassz00_6705);
															BgL_arg4290z00_6710 =
																BGL_CLASS_ANCESTORS_REF(BgL_arg4291z00_6711,
																2L);
														}
														BgL_res4333z00_6722 =
															(BgL_arg4290z00_6710 == BgL_classz00_6689);
													}
												else
													{	/* Eval/evaluate_comp.scm 333 */
														BgL_res4333z00_6722 = ((bool_t) 0);
													}
											}
									}
								}
								BgL_test4866z00_17424 = BgL_res4333z00_6722;
							}
					}
				}
				if (BgL_test4866z00_17424)
					{	/* Eval/evaluate_comp.scm 335 */
						obj_t BgL_gz00_1618;

						{	/* Eval/evaluate_comp.scm 335 */
							obj_t BgL_arg1697z00_1619;
							obj_t BgL_arg1698z00_1620;

							BgL_arg1697z00_1619 =
								(((BgL_ev_globalz00_bglt) COBJECT(
										((BgL_ev_globalz00_bglt) BgL_ez00_43)))->BgL_modz00);
							BgL_arg1698z00_1620 =
								(((BgL_ev_globalz00_bglt) COBJECT(
										((BgL_ev_globalz00_bglt) BgL_ez00_43)))->BgL_namez00);
							BgL_gz00_1618 =
								BGl_evmodulezd2findzd2globalz00zz__evmodulez00
								(BgL_arg1697z00_1619, BgL_arg1698z00_1620);
						}
						if (CBOOL(BgL_gz00_1618))
							{	/* Eval/evaluate_comp.scm 336 */
								return VECTOR_REF(((obj_t) BgL_gz00_1618), 2L);
							}
						else
							{	/* Eval/evaluate_comp.scm 336 */
								return BFALSE;
							}
					}
				else
					{	/* Eval/evaluate_comp.scm 333 */
						return BFALSE;
					}
			}
		}

	}



/* push-boxes-args-on-sp */
	obj_t BGl_pushzd2boxeszd2argszd2onzd2spz00zz__evaluate_compz00(obj_t
		BgL_sz00_82, obj_t BgL_argsz00_83, obj_t BgL_boxesz00_84, long BgL_spz00_85,
		obj_t BgL_locz00_86)
	{
		{	/* Eval/evaluate_comp.scm 623 */
			{
				obj_t BgL_lz00_1640;
				obj_t BgL_bsz00_1641;
				long BgL_spz00_1642;

				BgL_lz00_1640 = BgL_argsz00_83;
				BgL_bsz00_1641 = BgL_boxesz00_84;
				BgL_spz00_1642 = BgL_spz00_85;
			BgL_zc3z04anonymousza31715ze3z87_1643:
				if (NULLP(BgL_lz00_1640))
					{	/* Eval/evaluate_comp.scm 625 */
						if (NULLP(BgL_bsz00_1641))
							{	/* Eval/evaluate_comp.scm 626 */
								return BFALSE;
							}
						else
							{	/* Eval/evaluate_comp.scm 629 */
								obj_t BgL_arg1718z00_1646;

								{	/* Eval/evaluate_comp.scm 629 */
									long BgL_arg1719z00_1647;
									long BgL_arg1720z00_1648;

									BgL_arg1719z00_1647 = bgl_list_length(BgL_boxesz00_84);
									BgL_arg1720z00_1648 = bgl_list_length(BgL_argsz00_83);
									{	/* Eval/evaluate_comp.scm 628 */
										obj_t BgL_list1721z00_1649;

										{	/* Eval/evaluate_comp.scm 628 */
											obj_t BgL_arg1722z00_1650;

											BgL_arg1722z00_1650 =
												MAKE_YOUNG_PAIR(BINT(BgL_arg1720z00_1648), BNIL);
											BgL_list1721z00_1649 =
												MAKE_YOUNG_PAIR(BINT(BgL_arg1719z00_1647),
												BgL_arg1722z00_1650);
										}
										BgL_arg1718z00_1646 =
											BGl_formatz00zz__r4_output_6_10_3z00
											(BGl_string4585z00zz__evaluate_compz00,
											BgL_list1721z00_1649);
								}}
								return
									BGl_everrorz00zz__everrorz00(BgL_locz00_86,
									BGl_string4577z00zz__evaluate_compz00,
									BGl_string4586z00zz__evaluate_compz00, BgL_arg1718z00_1646);
							}
					}
				else
					{	/* Eval/evaluate_comp.scm 625 */
						if (NULLP(BgL_bsz00_1641))
							{	/* Eval/evaluate_comp.scm 633 */
								obj_t BgL_arg1724z00_1652;

								{	/* Eval/evaluate_comp.scm 633 */
									long BgL_arg1725z00_1653;
									long BgL_arg1726z00_1654;

									BgL_arg1725z00_1653 = bgl_list_length(BgL_boxesz00_84);
									BgL_arg1726z00_1654 = bgl_list_length(BgL_argsz00_83);
									{	/* Eval/evaluate_comp.scm 632 */
										obj_t BgL_list1727z00_1655;

										{	/* Eval/evaluate_comp.scm 632 */
											obj_t BgL_arg1728z00_1656;

											BgL_arg1728z00_1656 =
												MAKE_YOUNG_PAIR(BINT(BgL_arg1726z00_1654), BNIL);
											BgL_list1727z00_1655 =
												MAKE_YOUNG_PAIR(BINT(BgL_arg1725z00_1653),
												BgL_arg1728z00_1656);
										}
										BgL_arg1724z00_1652 =
											BGl_formatz00zz__r4_output_6_10_3z00
											(BGl_string4585z00zz__evaluate_compz00,
											BgL_list1727z00_1655);
								}}
								return
									BGl_everrorz00zz__everrorz00(BgL_locz00_86,
									BGl_string4577z00zz__evaluate_compz00,
									BGl_string4586z00zz__evaluate_compz00, BgL_arg1724z00_1652);
							}
						else
							{	/* Eval/evaluate_comp.scm 630 */
								{	/* Eval/evaluate_comp.scm 636 */
									obj_t BgL_arg1729z00_1657;

									{	/* Eval/evaluate_comp.scm 636 */
										obj_t BgL_vz00_1658;

										{	/* Eval/evaluate_comp.scm 636 */
											obj_t BgL_fun1731z00_1660;

											BgL_fun1731z00_1660 = CAR(((obj_t) BgL_lz00_1640));
											BgL_vz00_1658 =
												BGL_PROCEDURE_CALL1(BgL_fun1731z00_1660, BgL_sz00_82);
										}
										if (CBOOL(CAR(((obj_t) BgL_bsz00_1641))))
											{	/* Eval/evaluate_comp.scm 202 */
												obj_t BgL_newz00_6743;

												BgL_newz00_6743 =
													create_struct(BGl_symbol4587z00zz__evaluate_compz00,
													(int) (1L));
												{	/* Eval/evaluate_comp.scm 202 */
													int BgL_tmpz00_17490;

													BgL_tmpz00_17490 = (int) (0L);
													STRUCT_SET(BgL_newz00_6743, BgL_tmpz00_17490,
														BgL_vz00_1658);
												}
												BgL_arg1729z00_1657 = BgL_newz00_6743;
											}
										else
											{	/* Eval/evaluate_comp.scm 637 */
												BgL_arg1729z00_1657 = BgL_vz00_1658;
											}
									}
									VECTOR_SET(
										((obj_t) BgL_sz00_82), BgL_spz00_1642, BgL_arg1729z00_1657);
								}
								{	/* Eval/evaluate_comp.scm 640 */
									obj_t BgL_arg1732z00_1661;
									obj_t BgL_arg1733z00_1662;
									long BgL_arg1734z00_1663;

									BgL_arg1732z00_1661 = CDR(((obj_t) BgL_lz00_1640));
									BgL_arg1733z00_1662 = CDR(((obj_t) BgL_bsz00_1641));
									BgL_arg1734z00_1663 = (BgL_spz00_1642 + 1L);
									{
										long BgL_spz00_17502;
										obj_t BgL_bsz00_17501;
										obj_t BgL_lz00_17500;

										BgL_lz00_17500 = BgL_arg1732z00_1661;
										BgL_bsz00_17501 = BgL_arg1733z00_1662;
										BgL_spz00_17502 = BgL_arg1734z00_1663;
										BgL_spz00_1642 = BgL_spz00_17502;
										BgL_bsz00_1641 = BgL_bsz00_17501;
										BgL_lz00_1640 = BgL_lz00_17500;
										goto BgL_zc3z04anonymousza31715ze3z87_1643;
									}
								}
							}
					}
			}
		}

	}



/* sub-stk */
	obj_t BGl_subzd2stkzd2zz__evaluate_compz00(obj_t BgL_l1z00_88,
		obj_t BgL_l2z00_89)
	{
		{	/* Eval/evaluate_comp.scm 645 */
		BGl_subzd2stkzd2zz__evaluate_compz00:
			if (NULLP(BgL_l1z00_88))
				{	/* Eval/evaluate_comp.scm 646 */
					return BgL_l2z00_89;
				}
			else
				{	/* Eval/evaluate_comp.scm 646 */
					if ((CAR(((obj_t) BgL_l1z00_88)) == CAR(((obj_t) BgL_l2z00_89))))
						{	/* Eval/evaluate_comp.scm 649 */
							obj_t BgL_arg1742z00_1669;
							obj_t BgL_arg1743z00_1670;

							BgL_arg1742z00_1669 = CDR(((obj_t) BgL_l1z00_88));
							BgL_arg1743z00_1670 = CDR(((obj_t) BgL_l2z00_89));
							{
								obj_t BgL_l2z00_17516;
								obj_t BgL_l1z00_17515;

								BgL_l1z00_17515 = BgL_arg1742z00_1669;
								BgL_l2z00_17516 = BgL_arg1743z00_1670;
								BgL_l2z00_89 = BgL_l2z00_17516;
								BgL_l1z00_88 = BgL_l1z00_17515;
								goto BGl_subzd2stkzd2zz__evaluate_compz00;
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 647 */
							return
								BGl_errorz00zz__errorz00(BGl_string4577z00zz__evaluate_compz00,
								BGl_symbol4589z00zz__evaluate_compz00,
								BGl_symbol4591z00zz__evaluate_compz00);
						}
				}
		}

	}



/* catch-trampoline */
	obj_t BGl_catchzd2trampolinezd2zz__evaluate_compz00(obj_t BgL_fz00_93,
		obj_t BgL_sz00_94, obj_t BgL_bpz00_95)
	{
		{	/* Eval/evaluate_comp.scm 669 */
			{	/* Eval/evaluate_comp.scm 670 */
				obj_t BgL_savedzd2bpzd2_1681;

				BgL_savedzd2bpzd2_1681 = VECTOR_REF(((obj_t) BgL_sz00_94), 0L);
				VECTOR_SET(((obj_t) BgL_sz00_94), 0L, BgL_bpz00_95);
				{
					obj_t BgL_fz00_1683;

					BgL_fz00_1683 = BgL_fz00_93;
				BgL_zc3z04anonymousza31755ze3z87_1684:
					{	/* Eval/evaluate_comp.scm 673 */
						obj_t BgL_rz00_1685;

						BgL_rz00_1685 = BGL_PROCEDURE_CALL1(BgL_fz00_1683, BgL_sz00_94);
						{	/* Eval/evaluate_comp.scm 674 */
							bool_t BgL_test4877z00_17526;

							if (PROCEDUREP(BgL_rz00_1685))
								{	/* Eval/evaluate_comp.scm 674 */
									obj_t BgL_arg1759z00_1690;

									BgL_arg1759z00_1690 = PROCEDURE_ATTR(BgL_rz00_1685);
									if (STRUCTP(BgL_arg1759z00_1690))
										{	/* Eval/evaluate_comp.scm 654 */
											BgL_test4877z00_17526 =
												(STRUCT_KEY(BgL_arg1759z00_1690) ==
												BGl_symbol4573z00zz__evaluate_compz00);
										}
									else
										{	/* Eval/evaluate_comp.scm 654 */
											BgL_test4877z00_17526 = ((bool_t) 0);
										}
								}
							else
								{	/* Eval/evaluate_comp.scm 674 */
									BgL_test4877z00_17526 = ((bool_t) 0);
								}
							if (BgL_test4877z00_17526)
								{
									obj_t BgL_fz00_17534;

									BgL_fz00_17534 = BgL_rz00_1685;
									BgL_fz00_1683 = BgL_fz00_17534;
									goto BgL_zc3z04anonymousza31755ze3z87_1684;
								}
							else
								{	/* Eval/evaluate_comp.scm 674 */
									VECTOR_SET(((obj_t) BgL_sz00_94), 0L, BgL_savedzd2bpzd2_1681);
									return BgL_rz00_1685;
								}
						}
					}
				}
			}
		}

	}



/* comp-with-push */
	obj_t BGl_compzd2withzd2pushz00zz__evaluate_compz00(obj_t BgL_eza2za2_117,
		obj_t BgL_stkz00_118)
	{
		{	/* Eval/evaluate_comp.scm 688 */
			if (NULLP(BgL_eza2za2_117))
				{	/* Eval/evaluate_comp.scm 690 */
					return BNIL;
				}
			else
				{	/* Eval/evaluate_comp.scm 692 */
					obj_t BgL_arg1775z00_1708;
					obj_t BgL_arg1776z00_1709;

					{	/* Eval/evaluate_comp.scm 692 */
						obj_t BgL_arg1777z00_1710;

						BgL_arg1777z00_1710 = CAR(((obj_t) BgL_eza2za2_117));
						BgL_arg1775z00_1708 =
							BGl_compz00zz__evaluate_compz00(
							((BgL_ev_exprz00_bglt) BgL_arg1777z00_1710), BgL_stkz00_118);
					}
					{	/* Eval/evaluate_comp.scm 693 */
						obj_t BgL_arg1778z00_1711;
						obj_t BgL_arg1779z00_1712;

						BgL_arg1778z00_1711 = CDR(((obj_t) BgL_eza2za2_117));
						{	/* Eval/evaluate_comp.scm 693 */
							obj_t BgL_arg1781z00_1713;

							BgL_arg1781z00_1713 = MAKE_YOUNG_PAIR(BFALSE, BNIL);
							BgL_arg1779z00_1712 =
								BGl_appendzd221011zd2zz__evaluate_compz00(BgL_stkz00_118,
								BgL_arg1781z00_1713);
						}
						BgL_arg1776z00_1709 =
							BGl_compzd2withzd2pushz00zz__evaluate_compz00(BgL_arg1778z00_1711,
							BgL_arg1779z00_1712);
					}
					return MAKE_YOUNG_PAIR(BgL_arg1775z00_1708, BgL_arg1776z00_1709);
				}
		}

	}



/* rec~0 */
	obj_t BGl_recze70ze7zz__evaluate_compz00(obj_t BgL_stkz00_15825,
		obj_t BgL_lz00_1715, long BgL_iz00_1716)
	{
		{	/* Eval/evaluate_comp.scm 696 */
			if (NULLP(BgL_lz00_1715))
				{	/* Eval/evaluate_comp.scm 697 */
					return BNIL;
				}
			else
				{	/* Eval/evaluate_comp.scm 697 */
					if ((BgL_iz00_1716 == 0L))
						{	/* Eval/evaluate_comp.scm 698 */
							return
								BGl_compzd2withzd2pushz00zz__evaluate_compz00(BgL_lz00_1715,
								BgL_stkz00_15825);
						}
					else
						{	/* Eval/evaluate_comp.scm 699 */
							obj_t BgL_arg1785z00_1720;
							obj_t BgL_arg1786z00_1721;

							{	/* Eval/evaluate_comp.scm 699 */
								obj_t BgL_arg1787z00_1722;

								BgL_arg1787z00_1722 = CAR(((obj_t) BgL_lz00_1715));
								BgL_arg1785z00_1720 =
									BGl_compz00zz__evaluate_compz00(
									((BgL_ev_exprz00_bglt) BgL_arg1787z00_1722),
									BgL_stkz00_15825);
							}
							{	/* Eval/evaluate_comp.scm 700 */
								obj_t BgL_arg1788z00_1723;
								long BgL_arg1789z00_1724;

								BgL_arg1788z00_1723 = CDR(((obj_t) BgL_lz00_1715));
								BgL_arg1789z00_1724 = (BgL_iz00_1716 - 1L);
								BgL_arg1786z00_1721 =
									BGl_recze70ze7zz__evaluate_compz00(BgL_stkz00_15825,
									BgL_arg1788z00_1723, BgL_arg1789z00_1724);
							}
							return MAKE_YOUNG_PAIR(BgL_arg1785z00_1720, BgL_arg1786z00_1721);
						}
				}
		}

	}



/* subr-call-with-push */
	obj_t BGl_subrzd2callzd2withzd2pushzd2zz__evaluate_compz00(obj_t BgL_sz00_122,
		obj_t BgL_fz00_123, obj_t BgL_argsz00_124, obj_t BgL_bpz00_125,
		obj_t BgL_siza7eza7_126)
	{
		{	/* Eval/evaluate_comp.scm 702 */
			{	/* Eval/evaluate_comp.scm 704 */
				obj_t BgL_argsz00_1726;

				if (NULLP(BgL_argsz00_124))
					{	/* Eval/evaluate_comp.scm 704 */
						BgL_argsz00_1726 = BNIL;
					}
				else
					{	/* Eval/evaluate_comp.scm 704 */
						obj_t BgL_head1354z00_1731;

						BgL_head1354z00_1731 = MAKE_YOUNG_PAIR(BNIL, BNIL);
						{
							obj_t BgL_l1352z00_6816;
							obj_t BgL_tail1355z00_6817;

							BgL_l1352z00_6816 = BgL_argsz00_124;
							BgL_tail1355z00_6817 = BgL_head1354z00_1731;
						BgL_zc3z04anonymousza31792ze3z87_6815:
							if (NULLP(BgL_l1352z00_6816))
								{	/* Eval/evaluate_comp.scm 704 */
									BgL_argsz00_1726 = CDR(BgL_head1354z00_1731);
								}
							else
								{	/* Eval/evaluate_comp.scm 704 */
									obj_t BgL_newtail1356z00_6824;

									{	/* Eval/evaluate_comp.scm 704 */
										obj_t BgL_arg1795z00_6825;

										{	/* Eval/evaluate_comp.scm 704 */
											obj_t BgL_az00_6826;

											BgL_az00_6826 = CAR(((obj_t) BgL_l1352z00_6816));
											BgL_arg1795z00_6825 =
												BGL_PROCEDURE_CALL1(BgL_az00_6826, BgL_sz00_122);
										}
										BgL_newtail1356z00_6824 =
											MAKE_YOUNG_PAIR(BgL_arg1795z00_6825, BNIL);
									}
									SET_CDR(BgL_tail1355z00_6817, BgL_newtail1356z00_6824);
									{	/* Eval/evaluate_comp.scm 704 */
										obj_t BgL_arg1794z00_6827;

										BgL_arg1794z00_6827 = CDR(((obj_t) BgL_l1352z00_6816));
										{
											obj_t BgL_tail1355z00_17580;
											obj_t BgL_l1352z00_17579;

											BgL_l1352z00_17579 = BgL_arg1794z00_6827;
											BgL_tail1355z00_17580 = BgL_newtail1356z00_6824;
											BgL_tail1355z00_6817 = BgL_tail1355z00_17580;
											BgL_l1352z00_6816 = BgL_l1352z00_17579;
											goto BgL_zc3z04anonymousza31792ze3z87_6815;
										}
									}
								}
						}
					}
				{	/* Eval/evaluate_comp.scm 705 */
					long BgL_arg1790z00_1727;

					BgL_arg1790z00_1727 =
						((long) CINT(BgL_bpz00_125) + (long) CINT(BgL_siza7eza7_126));
					VECTOR_SET(((obj_t) BgL_sz00_122), 0L, BINT(BgL_arg1790z00_1727));
				}
				{	/* Eval/evaluate_comp.scm 706 */
					obj_t BgL_za2za2resza2za2z00_1728;

					BgL_za2za2resza2za2z00_1728 = apply(BgL_fz00_123, BgL_argsz00_1726);
					VECTOR_SET(((obj_t) BgL_sz00_122), 0L, BgL_bpz00_125);
					return BgL_za2za2resza2za2z00_1728;
				}
			}
		}

	}



/* push-nargs-on-sp */
	obj_t BGl_pushzd2nargszd2onzd2spzd2zz__evaluate_compz00(obj_t
		BgL_arityz00_130, obj_t BgL_sz00_131, obj_t BgL_argsz00_132,
		obj_t BgL_spz00_133)
	{
		{	/* Eval/evaluate_comp.scm 715 */
			{	/* Eval/evaluate_comp.scm 716 */
				long BgL_g1157z00_1752;

				BgL_g1157z00_1752 = ((-1L) - (long) CINT(BgL_arityz00_130));
				{
					obj_t BgL_lz00_1754;
					obj_t BgL_spz00_1755;
					long BgL_nz00_1756;

					BgL_lz00_1754 = BgL_argsz00_132;
					BgL_spz00_1755 = BgL_spz00_133;
					BgL_nz00_1756 = BgL_g1157z00_1752;
				BgL_zc3z04anonymousza31802ze3z87_1757:
					if ((BgL_nz00_1756 == 0L))
						{
							obj_t BgL_lz00_6905;
							obj_t BgL_rz00_6906;

							BgL_lz00_6905 = BgL_lz00_1754;
							BgL_rz00_6906 = BNIL;
						BgL_rec2z00_6904:
							if (NULLP(BgL_lz00_6905))
								{	/* Eval/evaluate_comp.scm 720 */
									obj_t BgL_arg1807z00_6914;

									BgL_arg1807z00_6914 = bgl_reverse_bang(BgL_rz00_6906);
									{	/* Eval/evaluate_comp.scm 720 */
										long BgL_kz00_6920;

										BgL_kz00_6920 = (long) CINT(BgL_spz00_1755);
										return
											VECTOR_SET(
											((obj_t) BgL_sz00_131), BgL_kz00_6920,
											BgL_arg1807z00_6914);
									}
								}
							else
								{	/* Eval/evaluate_comp.scm 721 */
									obj_t BgL_arg1808z00_6915;
									obj_t BgL_arg1809z00_6916;

									BgL_arg1808z00_6915 = CDR(((obj_t) BgL_lz00_6905));
									{	/* Eval/evaluate_comp.scm 721 */
										obj_t BgL_arg1811z00_6917;

										{	/* Eval/evaluate_comp.scm 721 */
											obj_t BgL_fun1812z00_6918;

											BgL_fun1812z00_6918 = CAR(((obj_t) BgL_lz00_6905));
											BgL_arg1811z00_6917 =
												BGL_PROCEDURE_CALL1(BgL_fun1812z00_6918, BgL_sz00_131);
										}
										BgL_arg1809z00_6916 =
											MAKE_YOUNG_PAIR(BgL_arg1811z00_6917, BgL_rz00_6906);
									}
									{
										obj_t BgL_rz00_17611;
										obj_t BgL_lz00_17610;

										BgL_lz00_17610 = BgL_arg1808z00_6915;
										BgL_rz00_17611 = BgL_arg1809z00_6916;
										BgL_rz00_6906 = BgL_rz00_17611;
										BgL_lz00_6905 = BgL_lz00_17610;
										goto BgL_rec2z00_6904;
									}
								}
						}
					else
						{	/* Eval/evaluate_comp.scm 717 */
							{	/* Eval/evaluate_comp.scm 722 */
								obj_t BgL_arg1813z00_1771;

								{	/* Eval/evaluate_comp.scm 722 */
									obj_t BgL_fun1814z00_1772;

									BgL_fun1814z00_1772 = CAR(((obj_t) BgL_lz00_1754));
									BgL_arg1813z00_1771 =
										BGL_PROCEDURE_CALL1(BgL_fun1814z00_1772, BgL_sz00_131);
								}
								{	/* Eval/evaluate_comp.scm 722 */
									long BgL_kz00_6925;

									BgL_kz00_6925 = (long) CINT(BgL_spz00_1755);
									VECTOR_SET(
										((obj_t) BgL_sz00_131), BgL_kz00_6925, BgL_arg1813z00_1771);
							}}
							{	/* Eval/evaluate_comp.scm 723 */
								obj_t BgL_arg1815z00_1773;
								long BgL_arg1816z00_1774;
								long BgL_arg1817z00_1775;

								BgL_arg1815z00_1773 = CDR(((obj_t) BgL_lz00_1754));
								BgL_arg1816z00_1774 = ((long) CINT(BgL_spz00_1755) + 1L);
								BgL_arg1817z00_1775 = (BgL_nz00_1756 - 1L);
								{
									long BgL_nz00_17629;
									obj_t BgL_spz00_17627;
									obj_t BgL_lz00_17626;

									BgL_lz00_17626 = BgL_arg1815z00_1773;
									BgL_spz00_17627 = BINT(BgL_arg1816z00_1774);
									BgL_nz00_17629 = BgL_arg1817z00_1775;
									BgL_nz00_1756 = BgL_nz00_17629;
									BgL_spz00_1755 = BgL_spz00_17627;
									BgL_lz00_1754 = BgL_lz00_17626;
									goto BgL_zc3z04anonymousza31802ze3z87_1757;
								}
							}
						}
				}
			}
		}

	}



/* need-shift */
	bool_t BGl_needzd2shiftzd2zz__evaluate_compz00(obj_t BgL_argsz00_134,
		obj_t BgL_stkz00_135)
	{
		{	/* Eval/evaluate_comp.scm 766 */
			{
				obj_t BgL_lz00_1778;
				obj_t BgL_stkz00_1779;

				BgL_lz00_1778 = BgL_argsz00_134;
				BgL_stkz00_1779 = BgL_stkz00_135;
			BgL_zc3z04anonymousza31818ze3z87_1780:
				{	/* Eval/evaluate_comp.scm 770 */
					bool_t BgL_test4887z00_17630;

					if (NULLP(BgL_lz00_1778))
						{	/* Eval/evaluate_comp.scm 770 */
							BgL_test4887z00_17630 = ((bool_t) 1);
						}
					else
						{	/* Eval/evaluate_comp.scm 770 */
							BgL_test4887z00_17630 = NULLP(BgL_stkz00_1779);
						}
					if (BgL_test4887z00_17630)
						{	/* Eval/evaluate_comp.scm 770 */
							return ((bool_t) 0);
						}
					else
						{	/* Eval/evaluate_comp.scm 772 */
							bool_t BgL_test4889z00_17634;

							{	/* Eval/evaluate_comp.scm 772 */
								obj_t BgL_g1359z00_1797;

								BgL_g1359z00_1797 = CDR(((obj_t) BgL_lz00_1778));
								{
									obj_t BgL_l1357z00_1799;

									{	/* Eval/evaluate_comp.scm 772 */
										obj_t BgL_tmpz00_17637;

										BgL_l1357z00_1799 = BgL_g1359z00_1797;
									BgL_zc3z04anonymousza31831ze3z87_1800:
										if (NULLP(BgL_l1357z00_1799))
											{	/* Eval/evaluate_comp.scm 772 */
												BgL_tmpz00_17637 = BFALSE;
											}
										else
											{	/* Eval/evaluate_comp.scm 772 */
												obj_t BgL__ortest_1360z00_1802;

												{	/* Eval/evaluate_comp.scm 772 */
													obj_t BgL_ez00_1804;

													BgL_ez00_1804 = CAR(((obj_t) BgL_l1357z00_1799));
													{	/* Eval/evaluate_comp.scm 772 */
														obj_t BgL_arg1833z00_1805;
														obj_t BgL_arg1834z00_1806;

														BgL_arg1833z00_1805 =
															CAR(((obj_t) BgL_stkz00_1779));
														BgL_arg1834z00_1806 =
															BGl_usez00zz__evaluate_usez00(
															((BgL_ev_exprz00_bglt) BgL_ez00_1804), BNIL);
														BgL__ortest_1360z00_1802 =
															BGl_memqz00zz__r4_pairs_and_lists_6_3z00
															(BgL_arg1833z00_1805, BgL_arg1834z00_1806);
													}
												}
												if (CBOOL(BgL__ortest_1360z00_1802))
													{	/* Eval/evaluate_comp.scm 772 */
														BgL_tmpz00_17637 = BgL__ortest_1360z00_1802;
													}
												else
													{	/* Eval/evaluate_comp.scm 772 */
														obj_t BgL_arg1832z00_1803;

														BgL_arg1832z00_1803 =
															CDR(((obj_t) BgL_l1357z00_1799));
														{
															obj_t BgL_l1357z00_17651;

															BgL_l1357z00_17651 = BgL_arg1832z00_1803;
															BgL_l1357z00_1799 = BgL_l1357z00_17651;
															goto BgL_zc3z04anonymousza31831ze3z87_1800;
														}
													}
											}
										BgL_test4889z00_17634 = CBOOL(BgL_tmpz00_17637);
									}
								}
							}
							if (BgL_test4889z00_17634)
								{	/* Eval/evaluate_comp.scm 772 */
									return ((bool_t) 1);
								}
							else
								{	/* Eval/evaluate_comp.scm 774 */
									obj_t BgL_arg1829z00_1795;
									obj_t BgL_arg1830z00_1796;

									BgL_arg1829z00_1795 = CDR(((obj_t) BgL_lz00_1778));
									BgL_arg1830z00_1796 = CDR(((obj_t) BgL_stkz00_1779));
									{
										obj_t BgL_stkz00_17658;
										obj_t BgL_lz00_17657;

										BgL_lz00_17657 = BgL_arg1829z00_1795;
										BgL_stkz00_17658 = BgL_arg1830z00_1796;
										BgL_stkz00_1779 = BgL_stkz00_17658;
										BgL_lz00_1778 = BgL_lz00_17657;
										goto BgL_zc3z04anonymousza31818ze3z87_1780;
									}
								}
						}
				}
			}
		}

	}



/* comp-old-call */
	obj_t BGl_compzd2oldzd2callz00zz__evaluate_compz00(BgL_ev_appz00_bglt
		BgL_ez00_136, obj_t BgL_stkz00_137)
	{
		{	/* Eval/evaluate_comp.scm 776 */
			{	/* Eval/evaluate_comp.scm 778 */
				long BgL_siza7eza7_1811;
				long BgL_nbargsz00_1812;
				obj_t BgL_fz00_1813;
				obj_t BgL_symbzd2funzd2_1814;

				BgL_siza7eza7_1811 = bgl_list_length(BgL_stkz00_137);
				BgL_nbargsz00_1812 =
					bgl_list_length(
					(((BgL_ev_appz00_bglt) COBJECT(BgL_ez00_136))->BgL_argsz00));
				BgL_fz00_1813 =
					BGl_compz00zz__evaluate_compz00(
					(((BgL_ev_appz00_bglt) COBJECT(BgL_ez00_136))->BgL_funz00),
					BgL_stkz00_137);
				BgL_symbzd2funzd2_1814 =
					BGl_uncompilez00zz__evaluate_uncompz00((((BgL_ev_appz00_bglt)
							COBJECT(BgL_ez00_136))->BgL_funz00));
				if (CBOOL((((BgL_ev_appz00_bglt) COBJECT(BgL_ez00_136))->
							BgL_tailzf3zf3)))
					{	/* Eval/evaluate_comp.scm 780 */
						if (BGl_needzd2shiftzd2zz__evaluate_compz00(
								(((BgL_ev_appz00_bglt) COBJECT(BgL_ez00_136))->BgL_argsz00),
								BgL_stkz00_137))
							{	/* Eval/evaluate_comp.scm 787 */
								bool_t BgL_test4894z00_17672;

								{	/* Eval/evaluate_comp.scm 787 */
									int BgL_a1362z00_1891;

									BgL_a1362z00_1891 = bgl_debug();
									BgL_test4894z00_17672 = ((long) (BgL_a1362z00_1891) > 0L);
								}
								if (BgL_test4894z00_17672)
									{	/* Eval/evaluate_comp.scm 787 */
										obj_t BgL_argsz00_1820;

										BgL_argsz00_1820 =
											BGl_compzd2withzd2pushz00zz__evaluate_compz00(
											(((BgL_ev_appz00_bglt) COBJECT(BgL_ez00_136))->
												BgL_argsz00), BgL_stkz00_137);
										{	/* Eval/evaluate_comp.scm 787 */
											obj_t BgL_zc3z04anonymousza31839ze3z87_13618;

											BgL_zc3z04anonymousza31839ze3z87_13618 =
												MAKE_FX_PROCEDURE
												(BGl_z62zc3z04anonymousza31839ze3ze5zz__evaluate_compz00,
												(int) (1L), (int) (6L));
											PROCEDURE_SET(BgL_zc3z04anonymousza31839ze3z87_13618,
												(int) (0L), BgL_fz00_1813);
											PROCEDURE_SET(BgL_zc3z04anonymousza31839ze3z87_13618,
												(int) (1L), ((obj_t) BgL_ez00_136));
											PROCEDURE_SET(BgL_zc3z04anonymousza31839ze3z87_13618,
												(int) (2L), BgL_symbzd2funzd2_1814);
											PROCEDURE_SET(BgL_zc3z04anonymousza31839ze3z87_13618,
												(int) (3L), BINT(BgL_nbargsz00_1812));
											PROCEDURE_SET(BgL_zc3z04anonymousza31839ze3z87_13618,
												(int) (4L), BgL_argsz00_1820);
											PROCEDURE_SET(BgL_zc3z04anonymousza31839ze3z87_13618,
												(int) (5L), BINT(BgL_siza7eza7_1811));
											return BgL_zc3z04anonymousza31839ze3z87_13618;
										}
									}
								else
									{	/* Eval/evaluate_comp.scm 787 */
										obj_t BgL_argsz00_1857;

										BgL_argsz00_1857 =
											BGl_compzd2withzd2pushz00zz__evaluate_compz00(
											(((BgL_ev_appz00_bglt) COBJECT(BgL_ez00_136))->
												BgL_argsz00), BgL_stkz00_137);
										{	/* Eval/evaluate_comp.scm 787 */
											obj_t BgL_zc3z04anonymousza31864ze3z87_13619;

											BgL_zc3z04anonymousza31864ze3z87_13619 =
												MAKE_FX_PROCEDURE
												(BGl_z62zc3z04anonymousza31864ze3ze5zz__evaluate_compz00,
												(int) (1L), (int) (6L));
											PROCEDURE_SET(BgL_zc3z04anonymousza31864ze3z87_13619,
												(int) (0L), BgL_fz00_1813);
											PROCEDURE_SET(BgL_zc3z04anonymousza31864ze3z87_13619,
												(int) (1L), ((obj_t) BgL_ez00_136));
											PROCEDURE_SET(BgL_zc3z04anonymousza31864ze3z87_13619,
												(int) (2L), BgL_symbzd2funzd2_1814);
											PROCEDURE_SET(BgL_zc3z04anonymousza31864ze3z87_13619,
												(int) (3L), BINT(BgL_nbargsz00_1812));
											PROCEDURE_SET(BgL_zc3z04anonymousza31864ze3z87_13619,
												(int) (4L), BgL_argsz00_1857);
											PROCEDURE_SET(BgL_zc3z04anonymousza31864ze3z87_13619,
												(int) (5L), BINT(BgL_siza7eza7_1811));
											return BgL_zc3z04anonymousza31864ze3z87_13619;
										}
									}
							}
						else
							{	/* Eval/evaluate_comp.scm 795 */
								bool_t BgL_test4895z00_17716;

								{	/* Eval/evaluate_comp.scm 795 */
									int BgL_a1363z00_1959;

									BgL_a1363z00_1959 = bgl_debug();
									BgL_test4895z00_17716 = ((long) (BgL_a1363z00_1959) > 0L);
								}
								if (BgL_test4895z00_17716)
									{	/* Eval/evaluate_comp.scm 795 */
										obj_t BgL_argsz00_1894;

										BgL_argsz00_1894 =
											BGl_recze70ze7zz__evaluate_compz00(BgL_stkz00_137,
											(((BgL_ev_appz00_bglt) COBJECT(BgL_ez00_136))->
												BgL_argsz00), BgL_siza7eza7_1811);
										{	/* Eval/evaluate_comp.scm 795 */
											obj_t BgL_zc3z04anonymousza31889ze3z87_13620;

											BgL_zc3z04anonymousza31889ze3z87_13620 =
												MAKE_FX_PROCEDURE
												(BGl_z62zc3z04anonymousza31889ze3ze5zz__evaluate_compz00,
												(int) (1L), (int) (5L));
											PROCEDURE_SET(BgL_zc3z04anonymousza31889ze3z87_13620,
												(int) (0L), BgL_fz00_1813);
											PROCEDURE_SET(BgL_zc3z04anonymousza31889ze3z87_13620,
												(int) (1L), ((obj_t) BgL_ez00_136));
											PROCEDURE_SET(BgL_zc3z04anonymousza31889ze3z87_13620,
												(int) (2L), BgL_symbzd2funzd2_1814);
											PROCEDURE_SET(BgL_zc3z04anonymousza31889ze3z87_13620,
												(int) (3L), BINT(BgL_nbargsz00_1812));
											PROCEDURE_SET(BgL_zc3z04anonymousza31889ze3z87_13620,
												(int) (4L), BgL_argsz00_1894);
											return BgL_zc3z04anonymousza31889ze3z87_13620;
										}
									}
								else
									{	/* Eval/evaluate_comp.scm 795 */
										obj_t BgL_argsz00_1928;

										BgL_argsz00_1928 =
											BGl_recze70ze7zz__evaluate_compz00(BgL_stkz00_137,
											(((BgL_ev_appz00_bglt) COBJECT(BgL_ez00_136))->
												BgL_argsz00), BgL_siza7eza7_1811);
										{	/* Eval/evaluate_comp.scm 795 */
											obj_t BgL_zc3z04anonymousza31915ze3z87_13621;

											BgL_zc3z04anonymousza31915ze3z87_13621 =
												MAKE_FX_PROCEDURE
												(BGl_z62zc3z04anonymousza31915ze3ze5zz__evaluate_compz00,
												(int) (1L), (int) (5L));
											PROCEDURE_SET(BgL_zc3z04anonymousza31915ze3z87_13621,
												(int) (0L), BgL_fz00_1813);
											PROCEDURE_SET(BgL_zc3z04anonymousza31915ze3z87_13621,
												(int) (1L), ((obj_t) BgL_ez00_136));
											PROCEDURE_SET(BgL_zc3z04anonymousza31915ze3z87_13621,
												(int) (2L), BgL_symbzd2funzd2_1814);
											PROCEDURE_SET(BgL_zc3z04anonymousza31915ze3z87_13621,
												(int) (3L), BINT(BgL_nbargsz00_1812));
											PROCEDURE_SET(BgL_zc3z04anonymousza31915ze3z87_13621,
												(int) (4L), BgL_argsz00_1928);
											return BgL_zc3z04anonymousza31915ze3z87_13621;
										}
									}
							}
					}
				else
					{	/* Eval/evaluate_comp.scm 781 */
						bool_t BgL_test4896z00_17754;

						{	/* Eval/evaluate_comp.scm 781 */
							int BgL_a1361z00_2028;

							BgL_a1361z00_2028 = bgl_debug();
							BgL_test4896z00_17754 = ((long) (BgL_a1361z00_2028) > 0L);
						}
						if (BgL_test4896z00_17754)
							{	/* Eval/evaluate_comp.scm 781 */
								obj_t BgL_argsz00_1963;

								BgL_argsz00_1963 =
									BGl_compzd2withzd2pushz00zz__evaluate_compz00(
									(((BgL_ev_appz00_bglt) COBJECT(BgL_ez00_136))->BgL_argsz00),
									BgL_stkz00_137);
								{	/* Eval/evaluate_comp.scm 781 */
									obj_t BgL_zc3z04anonymousza31935ze3z87_13622;

									BgL_zc3z04anonymousza31935ze3z87_13622 =
										MAKE_FX_PROCEDURE
										(BGl_z62zc3z04anonymousza31935ze3ze5zz__evaluate_compz00,
										(int) (1L), (int) (6L));
									PROCEDURE_SET(BgL_zc3z04anonymousza31935ze3z87_13622,
										(int) (0L), BgL_fz00_1813);
									PROCEDURE_SET(BgL_zc3z04anonymousza31935ze3z87_13622,
										(int) (1L), ((obj_t) BgL_ez00_136));
									PROCEDURE_SET(BgL_zc3z04anonymousza31935ze3z87_13622,
										(int) (2L), BgL_symbzd2funzd2_1814);
									PROCEDURE_SET(BgL_zc3z04anonymousza31935ze3z87_13622,
										(int) (3L), BINT(BgL_nbargsz00_1812));
									PROCEDURE_SET(BgL_zc3z04anonymousza31935ze3z87_13622,
										(int) (4L), BgL_argsz00_1963);
									PROCEDURE_SET(BgL_zc3z04anonymousza31935ze3z87_13622,
										(int) (5L), BINT(BgL_siza7eza7_1811));
									return BgL_zc3z04anonymousza31935ze3z87_13622;
								}
							}
						else
							{	/* Eval/evaluate_comp.scm 781 */
								obj_t BgL_argsz00_1997;

								BgL_argsz00_1997 =
									BGl_compzd2withzd2pushz00zz__evaluate_compz00(
									(((BgL_ev_appz00_bglt) COBJECT(BgL_ez00_136))->BgL_argsz00),
									BgL_stkz00_137);
								{	/* Eval/evaluate_comp.scm 781 */
									obj_t BgL_zc3z04anonymousza31956ze3z87_13623;

									BgL_zc3z04anonymousza31956ze3z87_13623 =
										MAKE_FX_PROCEDURE
										(BGl_z62zc3z04anonymousza31956ze3ze5zz__evaluate_compz00,
										(int) (1L), (int) (6L));
									PROCEDURE_SET(BgL_zc3z04anonymousza31956ze3z87_13623,
										(int) (0L), BgL_fz00_1813);
									PROCEDURE_SET(BgL_zc3z04anonymousza31956ze3z87_13623,
										(int) (1L), ((obj_t) BgL_ez00_136));
									PROCEDURE_SET(BgL_zc3z04anonymousza31956ze3z87_13623,
										(int) (2L), BgL_symbzd2funzd2_1814);
									PROCEDURE_SET(BgL_zc3z04anonymousza31956ze3z87_13623,
										(int) (3L), BINT(BgL_nbargsz00_1812));
									PROCEDURE_SET(BgL_zc3z04anonymousza31956ze3z87_13623,
										(int) (4L), BgL_argsz00_1997);
									PROCEDURE_SET(BgL_zc3z04anonymousza31956ze3z87_13623,
										(int) (5L), BINT(BgL_siza7eza7_1811));
									return BgL_zc3z04anonymousza31956ze3z87_13623;
								}
							}
					}
			}
		}

	}



/* &<@anonymous:1839> */
	obj_t BGl_z62zc3z04anonymousza31839ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13624, obj_t BgL_sz00_13631)
	{
		{	/* Eval/evaluate_comp.scm 787 */
			{	/* Eval/evaluate_comp.scm 787 */
				obj_t BgL_fz00_13625;
				BgL_ev_appz00_bglt BgL_i1165z00_13626;
				obj_t BgL_symbzd2funzd2_13627;
				long BgL_nbargsz00_13628;
				obj_t BgL_argsz00_13629;
				long BgL_siza7eza7_13630;

				BgL_fz00_13625 = PROCEDURE_REF(BgL_envz00_13624, (int) (0L));
				BgL_i1165z00_13626 =
					((BgL_ev_appz00_bglt) PROCEDURE_REF(BgL_envz00_13624, (int) (1L)));
				BgL_symbzd2funzd2_13627 = PROCEDURE_REF(BgL_envz00_13624, (int) (2L));
				BgL_nbargsz00_13628 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_13624, (int) (3L)));
				BgL_argsz00_13629 =
					((obj_t) PROCEDURE_REF(BgL_envz00_13624, (int) (4L)));
				BgL_siza7eza7_13630 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_13624, (int) (5L)));
				return
					BGl_zc3z04anonymousza31839ze3ze70z60zz__evaluate_compz00
					(BgL_siza7eza7_13630, BgL_argsz00_13629, BgL_nbargsz00_13628,
					BgL_symbzd2funzd2_13627, BgL_i1165z00_13626, BgL_fz00_13625,
					BgL_sz00_13631);
			}
		}

	}



/* <@anonymous:1839>~0 */
	obj_t BGl_zc3z04anonymousza31839ze3ze70z60zz__evaluate_compz00(long
		BgL_siza7eza7_15824, obj_t BgL_argsz00_15823, long BgL_nbargsz00_15822,
		obj_t BgL_symbzd2funzd2_15821, BgL_ev_appz00_bglt BgL_i1165z00_15820,
		obj_t BgL_fz00_15819, obj_t BgL_sz00_1821)
	{
		{	/* Eval/evaluate_comp.scm 787 */
			{	/* Eval/evaluate_comp.scm 787 */
				obj_t BgL_bpz00_1823;

				BgL_bpz00_1823 = VECTOR_REF(((obj_t) BgL_sz00_1821), 0L);
				{	/* Eval/evaluate_comp.scm 787 */
					obj_t BgL_fz00_1824;

					BgL_fz00_1824 = BGL_PROCEDURE_CALL1(BgL_fz00_15819, BgL_sz00_1821);
					if (PROCEDUREP(BgL_fz00_1824))
						{	/* Eval/evaluate_comp.scm 787 */
							BFALSE;
						}
					else
						{	/* Eval/evaluate_comp.scm 787 */
							BGl_evtypezd2errorzd2zz__everrorz00(
								(((BgL_ev_appz00_bglt) COBJECT(BgL_i1165z00_15820))->
									BgL_locz00), BGl_string4577z00zz__evaluate_compz00,
								BGl_string4593z00zz__evaluate_compz00, BgL_fz00_1824);
						}
					{	/* Eval/evaluate_comp.scm 787 */
						obj_t BgL_ufz00_1827;

						{	/* Eval/evaluate_comp.scm 787 */
							obj_t BgL_tmpz00_17825;

							BgL_tmpz00_17825 = ((obj_t) BgL_fz00_1824);
							BgL_ufz00_1827 = PROCEDURE_ATTR(BgL_tmpz00_17825);
						}
						{	/* Eval/evaluate_comp.scm 787 */
							bool_t BgL_test4898z00_17828;

							if (STRUCTP(BgL_ufz00_1827))
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test4898z00_17828 =
										(STRUCT_KEY(BgL_ufz00_1827) ==
										BGl_symbol4594z00zz__evaluate_compz00);
								}
							else
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test4898z00_17828 = ((bool_t) 0);
								}
							if (BgL_test4898z00_17828)
								{	/* Eval/evaluate_comp.scm 787 */
									obj_t BgL_arityz00_1829;
									obj_t BgL_runz00_1830;
									obj_t BgL_sfz00_1831;

									BgL_arityz00_1829 = STRUCT_REF(BgL_ufz00_1827, (int) (0L));
									BgL_runz00_1830 = STRUCT_REF(BgL_ufz00_1827, (int) (1L));
									BgL_sfz00_1831 = STRUCT_REF(BgL_ufz00_1827, (int) (2L));
									{	/* Eval/evaluate_comp.scm 787 */
										long BgL_spz00_1832;

										BgL_spz00_1832 =
											((long) CINT(BgL_bpz00_1823) + BgL_siza7eza7_15824);
										if (((long) CINT(BgL_arityz00_1829) == BgL_nbargsz00_15822))
											{	/* Eval/evaluate_comp.scm 787 */
												{
													obj_t BgL_lz00_6950;
													long BgL_spz00_6951;

													BgL_lz00_6950 = BgL_argsz00_15823;
													BgL_spz00_6951 = BgL_spz00_1832;
												BgL_recz00_6949:
													if (NULLP(BgL_lz00_6950))
														{	/* Eval/evaluate_comp.scm 711 */
															((bool_t) 0);
														}
													else
														{	/* Eval/evaluate_comp.scm 711 */
															{	/* Eval/evaluate_comp.scm 712 */
																obj_t BgL_arg1798z00_6958;

																{	/* Eval/evaluate_comp.scm 712 */
																	obj_t BgL_fun1799z00_6959;

																	BgL_fun1799z00_6959 =
																		CAR(((obj_t) BgL_lz00_6950));
																	BgL_arg1798z00_6958 =
																		BGL_PROCEDURE_CALL1(BgL_fun1799z00_6959,
																		BgL_sz00_1821);
																}
																VECTOR_SET(
																	((obj_t) BgL_sz00_1821), BgL_spz00_6951,
																	BgL_arg1798z00_6958);
															}
															{	/* Eval/evaluate_comp.scm 713 */
																obj_t BgL_arg1800z00_6960;
																long BgL_arg1801z00_6961;

																BgL_arg1800z00_6960 =
																	CDR(((obj_t) BgL_lz00_6950));
																BgL_arg1801z00_6961 = (BgL_spz00_6951 + 1L);
																{
																	long BgL_spz00_17858;
																	obj_t BgL_lz00_17857;

																	BgL_lz00_17857 = BgL_arg1800z00_6960;
																	BgL_spz00_17858 = BgL_arg1801z00_6961;
																	BgL_spz00_6951 = BgL_spz00_17858;
																	BgL_lz00_6950 = BgL_lz00_17857;
																	goto BgL_recz00_6949;
																}
															}
														}
												}
												{	/* Eval/evaluate_comp.scm 791 */
													long BgL_arg1845z00_1834;

													BgL_arg1845z00_1834 =
														(BgL_spz00_1832 + BgL_nbargsz00_15822);
													BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00
														(BgL_sz00_1821, (long) CINT(BgL_bpz00_1823),
														BgL_sz00_1821, BINT(BgL_spz00_1832),
														BINT(BgL_arg1845z00_1834));
											}}
										else
											{	/* Eval/evaluate_comp.scm 787 */
												bool_t BgL_test4902z00_17864;

												if (((long) CINT(BgL_arityz00_1829) >= 0L))
													{	/* Eval/evaluate_comp.scm 787 */
														BgL_test4902z00_17864 = ((bool_t) 1);
													}
												else
													{	/* Eval/evaluate_comp.scm 787 */
														BgL_test4902z00_17864 =
															(
															(long) CINT(BgL_arityz00_1829) <
															((-1L) - BgL_nbargsz00_15822));
													}
												if (BgL_test4902z00_17864)
													{	/* Eval/evaluate_comp.scm 787 */
														BGl_evarityzd2errorzd2zz__everrorz00(
															(((BgL_ev_appz00_bglt)
																	COBJECT(BgL_i1165z00_15820))->BgL_locz00),
															STRUCT_REF(BgL_ufz00_1827, (int) (3L)),
															(int) (BgL_nbargsz00_15822),
															CINT(BgL_arityz00_1829));
													}
												else
													{	/* Eval/evaluate_comp.scm 787 */
														BGl_pushzd2nargszd2onzd2spzd2zz__evaluate_compz00
															(BgL_arityz00_1829, BgL_sz00_1821,
															BgL_argsz00_15823, BINT(BgL_spz00_1832));
														{	/* Eval/evaluate_comp.scm 793 */
															long BgL_arg1852z00_1840;

															BgL_arg1852z00_1840 =
																(BgL_spz00_1832 +
																(0L - (long) CINT(BgL_arityz00_1829)));
															BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00
																(BgL_sz00_1821, (long) CINT(BgL_bpz00_1823),
																BgL_sz00_1821, BINT(BgL_spz00_1832),
																BINT(BgL_arg1852z00_1840));
											}}}
										{	/* Eval/evaluate_comp.scm 787 */
											obj_t BgL_z12denvz12_1844;

											BgL_z12denvz12_1844 = BGL_CURRENT_DYNAMIC_ENV();
											{	/* Eval/evaluate_comp.scm 787 */
												obj_t BgL_tmpz00_17887;

												BgL_tmpz00_17887 =
													(((BgL_ev_appz00_bglt) COBJECT(BgL_i1165z00_15820))->
													BgL_locz00);
												BGL_ENV_SET_TRACE_LOCATION(BgL_z12denvz12_1844,
													BgL_tmpz00_17887);
											}
											if (
												(((long) CINT(BgL_bpz00_1823) +
														(long) CINT(BgL_sfz00_1831)) <
													VECTOR_LENGTH(((obj_t) BgL_sz00_1821))))
												{	/* Eval/evaluate_comp.scm 787 */
													return BgL_runz00_1830;
												}
											else
												{	/* Eval/evaluate_comp.scm 787 */
													obj_t BgL_nsz00_1847;

													BgL_nsz00_1847 =
														BGl_makezd2statezd2zz__evaluate_compz00();
													{	/* Eval/evaluate_comp.scm 787 */
														long BgL_arg1858z00_1849;

														BgL_arg1858z00_1849 =
															(
															(long) CINT(BgL_bpz00_1823) +
															BgL_nbargsz00_15822);
														BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00
															(BgL_nsz00_1847, 2L, BgL_sz00_1821,
															BgL_bpz00_1823, BINT(BgL_arg1858z00_1849));
													}
													VECTOR_SET(BgL_nsz00_1847, 1L, BgL_sz00_1821);
													BGL_ENV_EVSTATE_SET(BgL_z12denvz12_1844,
														BgL_nsz00_1847);
													{	/* Eval/evaluate_comp.scm 787 */
														obj_t BgL_ez00_1850;

														BgL_ez00_1850 = BGL_EXITD_TOP_AS_OBJ();
														{	/* Eval/evaluate_comp.scm 787 */
															obj_t BgL_arg4321z00_6987;

															{	/* Eval/evaluate_comp.scm 787 */
																obj_t BgL_arg4322z00_6988;

																BgL_arg4322z00_6988 =
																	BGL_EXITD_PROTECT(BgL_ez00_1850);
																BgL_arg4321z00_6987 =
																	MAKE_YOUNG_PAIR(BgL_sz00_1821,
																	BgL_arg4322z00_6988);
															}
															BGL_EXITD_PROTECT_SET(BgL_ez00_1850,
																BgL_arg4321z00_6987);
															BUNSPEC;
														}
														{	/* Eval/evaluate_comp.scm 787 */
															obj_t BgL_____rz00_1851;

															{	/* Eval/evaluate_comp.scm 670 */
																obj_t BgL_savedzd2bpzd2_6989;

																BgL_savedzd2bpzd2_6989 =
																	VECTOR_REF(BgL_nsz00_1847, 0L);
																VECTOR_SET(BgL_nsz00_1847, 0L, BINT(2L));
																{
																	obj_t BgL_fz00_6993;

																	BgL_fz00_6993 = BgL_runz00_1830;
																BgL_recz00_6992:
																	{	/* Eval/evaluate_comp.scm 673 */
																		obj_t BgL_rz00_6994;

																		BgL_rz00_6994 =
																			BGL_PROCEDURE_CALL1(BgL_fz00_6993,
																			BgL_nsz00_1847);
																		{	/* Eval/evaluate_comp.scm 674 */
																			bool_t BgL_test4905z00_17915;

																			if (PROCEDUREP(BgL_rz00_6994))
																				{	/* Eval/evaluate_comp.scm 674 */
																					obj_t BgL_arg1759z00_6997;

																					BgL_arg1759z00_6997 =
																						PROCEDURE_ATTR(BgL_rz00_6994);
																					if (STRUCTP(BgL_arg1759z00_6997))
																						{	/* Eval/evaluate_comp.scm 654 */
																							BgL_test4905z00_17915 =
																								(STRUCT_KEY(BgL_arg1759z00_6997)
																								==
																								BGl_symbol4573z00zz__evaluate_compz00);
																						}
																					else
																						{	/* Eval/evaluate_comp.scm 654 */
																							BgL_test4905z00_17915 =
																								((bool_t) 0);
																						}
																				}
																			else
																				{	/* Eval/evaluate_comp.scm 674 */
																					BgL_test4905z00_17915 = ((bool_t) 0);
																				}
																			if (BgL_test4905z00_17915)
																				{
																					obj_t BgL_fz00_17923;

																					BgL_fz00_17923 = BgL_rz00_6994;
																					BgL_fz00_6993 = BgL_fz00_17923;
																					goto BgL_recz00_6992;
																				}
																			else
																				{	/* Eval/evaluate_comp.scm 674 */
																					VECTOR_SET(BgL_nsz00_1847, 0L,
																						BgL_savedzd2bpzd2_6989);
																					BgL_____rz00_1851 = BgL_rz00_6994;
																				}
																		}
																	}
																}
															}
															{	/* Eval/evaluate_comp.scm 787 */
																bool_t BgL_test4908z00_17925;

																{	/* Eval/evaluate_comp.scm 787 */
																	obj_t BgL_arg4320z00_7005;

																	BgL_arg4320z00_7005 =
																		BGL_EXITD_PROTECT(BgL_ez00_1850);
																	BgL_test4908z00_17925 =
																		PAIRP(BgL_arg4320z00_7005);
																}
																if (BgL_test4908z00_17925)
																	{	/* Eval/evaluate_comp.scm 787 */
																		obj_t BgL_arg4318z00_7006;

																		{	/* Eval/evaluate_comp.scm 787 */
																			obj_t BgL_arg4319z00_7007;

																			BgL_arg4319z00_7007 =
																				BGL_EXITD_PROTECT(BgL_ez00_1850);
																			BgL_arg4318z00_7006 =
																				CDR(((obj_t) BgL_arg4319z00_7007));
																		}
																		BGL_EXITD_PROTECT_SET(BgL_ez00_1850,
																			BgL_arg4318z00_7006);
																		BUNSPEC;
																	}
																else
																	{	/* Eval/evaluate_comp.scm 787 */
																		BFALSE;
																	}
															}
															BGL_ENV_EVSTATE_SET(BgL_z12denvz12_1844,
																BgL_sz00_1821);
															return BgL_____rz00_1851;
														}
													}
												}
										}
									}
								}
							else
								{	/* Eval/evaluate_comp.scm 787 */
									if (PROCEDURE_CORRECT_ARITYP(BgL_fz00_1824,
											(int) (BgL_nbargsz00_15822)))
										{	/* Eval/evaluate_comp.scm 787 */
											{	/* Eval/evaluate_comp.scm 787 */
												obj_t BgL_auxz00_17938;
												obj_t BgL_tmpz00_17936;

												BgL_auxz00_17938 =
													(((BgL_ev_appz00_bglt) COBJECT(BgL_i1165z00_15820))->
													BgL_locz00);
												BgL_tmpz00_17936 = BGL_CURRENT_DYNAMIC_ENV();
												BGL_ENV_SET_TRACE_LOCATION(BgL_tmpz00_17936,
													BgL_auxz00_17938);
											}
											return
												BGl_subrzd2callzd2withzd2pushzd2zz__evaluate_compz00
												(BgL_sz00_1821, BgL_fz00_1824, BgL_argsz00_15823,
												BgL_bpz00_1823, BINT(BgL_siza7eza7_15824));
										}
									else
										{	/* Eval/evaluate_comp.scm 787 */
											return
												BGl_evarityzd2errorzd2zz__everrorz00(
												(((BgL_ev_appz00_bglt) COBJECT(BgL_i1165z00_15820))->
													BgL_locz00), BgL_symbzd2funzd2_15821,
												(int) (BgL_nbargsz00_15822),
												PROCEDURE_ARITY(BgL_fz00_1824));
		}}}}}}}

	}



/* &<@anonymous:1864> */
	obj_t BGl_z62zc3z04anonymousza31864ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13632, obj_t BgL_sz00_13639)
	{
		{	/* Eval/evaluate_comp.scm 787 */
			{	/* Eval/evaluate_comp.scm 787 */
				obj_t BgL_fz00_13633;
				BgL_ev_appz00_bglt BgL_i1165z00_13634;
				obj_t BgL_symbzd2funzd2_13635;
				long BgL_nbargsz00_13636;
				obj_t BgL_argsz00_13637;
				long BgL_siza7eza7_13638;

				BgL_fz00_13633 = PROCEDURE_REF(BgL_envz00_13632, (int) (0L));
				BgL_i1165z00_13634 =
					((BgL_ev_appz00_bglt) PROCEDURE_REF(BgL_envz00_13632, (int) (1L)));
				BgL_symbzd2funzd2_13635 = PROCEDURE_REF(BgL_envz00_13632, (int) (2L));
				BgL_nbargsz00_13636 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_13632, (int) (3L)));
				BgL_argsz00_13637 =
					((obj_t) PROCEDURE_REF(BgL_envz00_13632, (int) (4L)));
				BgL_siza7eza7_13638 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_13632, (int) (5L)));
				return
					BGl_zc3z04anonymousza31864ze3ze70z60zz__evaluate_compz00
					(BgL_siza7eza7_13638, BgL_argsz00_13637, BgL_nbargsz00_13636,
					BgL_symbzd2funzd2_13635, BgL_i1165z00_13634, BgL_fz00_13633,
					BgL_sz00_13639);
			}
		}

	}



/* <@anonymous:1864>~0 */
	obj_t BGl_zc3z04anonymousza31864ze3ze70z60zz__evaluate_compz00(long
		BgL_siza7eza7_15818, obj_t BgL_argsz00_15817, long BgL_nbargsz00_15816,
		obj_t BgL_symbzd2funzd2_15815, BgL_ev_appz00_bglt BgL_i1165z00_15814,
		obj_t BgL_fz00_15813, obj_t BgL_sz00_1858)
	{
		{	/* Eval/evaluate_comp.scm 787 */
			{	/* Eval/evaluate_comp.scm 787 */
				obj_t BgL_bpz00_1860;

				BgL_bpz00_1860 = VECTOR_REF(((obj_t) BgL_sz00_1858), 0L);
				{	/* Eval/evaluate_comp.scm 787 */
					obj_t BgL_fz00_1861;

					BgL_fz00_1861 = BGL_PROCEDURE_CALL1(BgL_fz00_15813, BgL_sz00_1858);
					if (PROCEDUREP(BgL_fz00_1861))
						{	/* Eval/evaluate_comp.scm 787 */
							BFALSE;
						}
					else
						{	/* Eval/evaluate_comp.scm 787 */
							BGl_evtypezd2errorzd2zz__everrorz00(
								(((BgL_ev_appz00_bglt) COBJECT(BgL_i1165z00_15814))->
									BgL_locz00), BGl_string4577z00zz__evaluate_compz00,
								BGl_string4593z00zz__evaluate_compz00, BgL_fz00_1861);
						}
					{	/* Eval/evaluate_comp.scm 787 */
						obj_t BgL_ufz00_1864;

						{	/* Eval/evaluate_comp.scm 787 */
							obj_t BgL_tmpz00_17974;

							BgL_tmpz00_17974 = ((obj_t) BgL_fz00_1861);
							BgL_ufz00_1864 = PROCEDURE_ATTR(BgL_tmpz00_17974);
						}
						{	/* Eval/evaluate_comp.scm 787 */
							bool_t BgL_test4911z00_17977;

							if (STRUCTP(BgL_ufz00_1864))
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test4911z00_17977 =
										(STRUCT_KEY(BgL_ufz00_1864) ==
										BGl_symbol4594z00zz__evaluate_compz00);
								}
							else
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test4911z00_17977 = ((bool_t) 0);
								}
							if (BgL_test4911z00_17977)
								{	/* Eval/evaluate_comp.scm 787 */
									obj_t BgL_arityz00_1866;
									obj_t BgL_runz00_1867;
									obj_t BgL_sfz00_1868;

									BgL_arityz00_1866 = STRUCT_REF(BgL_ufz00_1864, (int) (0L));
									BgL_runz00_1867 = STRUCT_REF(BgL_ufz00_1864, (int) (1L));
									BgL_sfz00_1868 = STRUCT_REF(BgL_ufz00_1864, (int) (2L));
									{	/* Eval/evaluate_comp.scm 787 */
										long BgL_spz00_1869;

										BgL_spz00_1869 =
											((long) CINT(BgL_bpz00_1860) + BgL_siza7eza7_15818);
										if (((long) CINT(BgL_arityz00_1866) == BgL_nbargsz00_15816))
											{	/* Eval/evaluate_comp.scm 787 */
												{
													obj_t BgL_lz00_7023;
													long BgL_spz00_7024;

													BgL_lz00_7023 = BgL_argsz00_15817;
													BgL_spz00_7024 = BgL_spz00_1869;
												BgL_recz00_7022:
													if (NULLP(BgL_lz00_7023))
														{	/* Eval/evaluate_comp.scm 711 */
															((bool_t) 0);
														}
													else
														{	/* Eval/evaluate_comp.scm 711 */
															{	/* Eval/evaluate_comp.scm 712 */
																obj_t BgL_arg1798z00_7031;

																{	/* Eval/evaluate_comp.scm 712 */
																	obj_t BgL_fun1799z00_7032;

																	BgL_fun1799z00_7032 =
																		CAR(((obj_t) BgL_lz00_7023));
																	BgL_arg1798z00_7031 =
																		BGL_PROCEDURE_CALL1(BgL_fun1799z00_7032,
																		BgL_sz00_1858);
																}
																VECTOR_SET(
																	((obj_t) BgL_sz00_1858), BgL_spz00_7024,
																	BgL_arg1798z00_7031);
															}
															{	/* Eval/evaluate_comp.scm 713 */
																obj_t BgL_arg1800z00_7033;
																long BgL_arg1801z00_7034;

																BgL_arg1800z00_7033 =
																	CDR(((obj_t) BgL_lz00_7023));
																BgL_arg1801z00_7034 = (BgL_spz00_7024 + 1L);
																{
																	long BgL_spz00_18007;
																	obj_t BgL_lz00_18006;

																	BgL_lz00_18006 = BgL_arg1800z00_7033;
																	BgL_spz00_18007 = BgL_arg1801z00_7034;
																	BgL_spz00_7024 = BgL_spz00_18007;
																	BgL_lz00_7023 = BgL_lz00_18006;
																	goto BgL_recz00_7022;
																}
															}
														}
												}
												{	/* Eval/evaluate_comp.scm 791 */
													long BgL_arg1869z00_1871;

													BgL_arg1869z00_1871 =
														(BgL_spz00_1869 + BgL_nbargsz00_15816);
													BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00
														(BgL_sz00_1858, (long) CINT(BgL_bpz00_1860),
														BgL_sz00_1858, BINT(BgL_spz00_1869),
														BINT(BgL_arg1869z00_1871));
											}}
										else
											{	/* Eval/evaluate_comp.scm 787 */
												bool_t BgL_test4915z00_18013;

												if (((long) CINT(BgL_arityz00_1866) >= 0L))
													{	/* Eval/evaluate_comp.scm 787 */
														BgL_test4915z00_18013 = ((bool_t) 1);
													}
												else
													{	/* Eval/evaluate_comp.scm 787 */
														BgL_test4915z00_18013 =
															(
															(long) CINT(BgL_arityz00_1866) <
															((-1L) - BgL_nbargsz00_15816));
													}
												if (BgL_test4915z00_18013)
													{	/* Eval/evaluate_comp.scm 787 */
														BGl_evarityzd2errorzd2zz__everrorz00(
															(((BgL_ev_appz00_bglt)
																	COBJECT(BgL_i1165z00_15814))->BgL_locz00),
															STRUCT_REF(BgL_ufz00_1864, (int) (3L)),
															(int) (BgL_nbargsz00_15816),
															CINT(BgL_arityz00_1866));
													}
												else
													{	/* Eval/evaluate_comp.scm 787 */
														BGl_pushzd2nargszd2onzd2spzd2zz__evaluate_compz00
															(BgL_arityz00_1866, BgL_sz00_1858,
															BgL_argsz00_15817, BINT(BgL_spz00_1869));
														{	/* Eval/evaluate_comp.scm 793 */
															long BgL_arg1879z00_1877;

															BgL_arg1879z00_1877 =
																(BgL_spz00_1869 +
																(0L - (long) CINT(BgL_arityz00_1866)));
															BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00
																(BgL_sz00_1858, (long) CINT(BgL_bpz00_1860),
																BgL_sz00_1858, BINT(BgL_spz00_1869),
																BINT(BgL_arg1879z00_1877));
											}}}
										{	/* Eval/evaluate_comp.scm 787 */
											obj_t BgL_z12denvz12_1881;

											BgL_z12denvz12_1881 = BGL_CURRENT_DYNAMIC_ENV();
											if (
												(((long) CINT(BgL_bpz00_1860) +
														(long) CINT(BgL_sfz00_1868)) <
													VECTOR_LENGTH(((obj_t) BgL_sz00_1858))))
												{	/* Eval/evaluate_comp.scm 787 */
													return BgL_runz00_1867;
												}
											else
												{	/* Eval/evaluate_comp.scm 787 */
													obj_t BgL_nsz00_1883;

													BgL_nsz00_1883 =
														BGl_makezd2statezd2zz__evaluate_compz00();
													{	/* Eval/evaluate_comp.scm 787 */
														long BgL_arg1884z00_1885;

														BgL_arg1884z00_1885 =
															(
															(long) CINT(BgL_bpz00_1860) +
															BgL_nbargsz00_15816);
														BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00
															(BgL_nsz00_1883, 2L, BgL_sz00_1858,
															BgL_bpz00_1860, BINT(BgL_arg1884z00_1885));
													}
													VECTOR_SET(BgL_nsz00_1883, 1L, BgL_sz00_1858);
													BGL_ENV_EVSTATE_SET(BgL_z12denvz12_1881,
														BgL_nsz00_1883);
													{	/* Eval/evaluate_comp.scm 787 */
														obj_t BgL_ez00_1886;

														BgL_ez00_1886 = BGL_EXITD_TOP_AS_OBJ();
														{	/* Eval/evaluate_comp.scm 787 */
															obj_t BgL_arg4321z00_7060;

															{	/* Eval/evaluate_comp.scm 787 */
																obj_t BgL_arg4322z00_7061;

																BgL_arg4322z00_7061 =
																	BGL_EXITD_PROTECT(BgL_ez00_1886);
																BgL_arg4321z00_7060 =
																	MAKE_YOUNG_PAIR(BgL_sz00_1858,
																	BgL_arg4322z00_7061);
															}
															BGL_EXITD_PROTECT_SET(BgL_ez00_1886,
																BgL_arg4321z00_7060);
															BUNSPEC;
														}
														{	/* Eval/evaluate_comp.scm 787 */
															obj_t BgL_____rz00_1887;

															{	/* Eval/evaluate_comp.scm 670 */
																obj_t BgL_savedzd2bpzd2_7062;

																BgL_savedzd2bpzd2_7062 =
																	VECTOR_REF(BgL_nsz00_1883, 0L);
																VECTOR_SET(BgL_nsz00_1883, 0L, BINT(2L));
																{
																	obj_t BgL_fz00_7066;

																	BgL_fz00_7066 = BgL_runz00_1867;
																BgL_recz00_7065:
																	{	/* Eval/evaluate_comp.scm 673 */
																		obj_t BgL_rz00_7067;

																		BgL_rz00_7067 =
																			BGL_PROCEDURE_CALL1(BgL_fz00_7066,
																			BgL_nsz00_1883);
																		{	/* Eval/evaluate_comp.scm 674 */
																			bool_t BgL_test4918z00_18061;

																			if (PROCEDUREP(BgL_rz00_7067))
																				{	/* Eval/evaluate_comp.scm 674 */
																					obj_t BgL_arg1759z00_7070;

																					BgL_arg1759z00_7070 =
																						PROCEDURE_ATTR(BgL_rz00_7067);
																					if (STRUCTP(BgL_arg1759z00_7070))
																						{	/* Eval/evaluate_comp.scm 654 */
																							BgL_test4918z00_18061 =
																								(STRUCT_KEY(BgL_arg1759z00_7070)
																								==
																								BGl_symbol4573z00zz__evaluate_compz00);
																						}
																					else
																						{	/* Eval/evaluate_comp.scm 654 */
																							BgL_test4918z00_18061 =
																								((bool_t) 0);
																						}
																				}
																			else
																				{	/* Eval/evaluate_comp.scm 674 */
																					BgL_test4918z00_18061 = ((bool_t) 0);
																				}
																			if (BgL_test4918z00_18061)
																				{
																					obj_t BgL_fz00_18069;

																					BgL_fz00_18069 = BgL_rz00_7067;
																					BgL_fz00_7066 = BgL_fz00_18069;
																					goto BgL_recz00_7065;
																				}
																			else
																				{	/* Eval/evaluate_comp.scm 674 */
																					VECTOR_SET(BgL_nsz00_1883, 0L,
																						BgL_savedzd2bpzd2_7062);
																					BgL_____rz00_1887 = BgL_rz00_7067;
																				}
																		}
																	}
																}
															}
															{	/* Eval/evaluate_comp.scm 787 */
																bool_t BgL_test4921z00_18071;

																{	/* Eval/evaluate_comp.scm 787 */
																	obj_t BgL_arg4320z00_7078;

																	BgL_arg4320z00_7078 =
																		BGL_EXITD_PROTECT(BgL_ez00_1886);
																	BgL_test4921z00_18071 =
																		PAIRP(BgL_arg4320z00_7078);
																}
																if (BgL_test4921z00_18071)
																	{	/* Eval/evaluate_comp.scm 787 */
																		obj_t BgL_arg4318z00_7079;

																		{	/* Eval/evaluate_comp.scm 787 */
																			obj_t BgL_arg4319z00_7080;

																			BgL_arg4319z00_7080 =
																				BGL_EXITD_PROTECT(BgL_ez00_1886);
																			BgL_arg4318z00_7079 =
																				CDR(((obj_t) BgL_arg4319z00_7080));
																		}
																		BGL_EXITD_PROTECT_SET(BgL_ez00_1886,
																			BgL_arg4318z00_7079);
																		BUNSPEC;
																	}
																else
																	{	/* Eval/evaluate_comp.scm 787 */
																		BFALSE;
																	}
															}
															BGL_ENV_EVSTATE_SET(BgL_z12denvz12_1881,
																BgL_sz00_1858);
															return BgL_____rz00_1887;
														}
													}
												}
										}
									}
								}
							else
								{	/* Eval/evaluate_comp.scm 787 */
									if (PROCEDURE_CORRECT_ARITYP(BgL_fz00_1861,
											(int) (BgL_nbargsz00_15816)))
										{	/* Eval/evaluate_comp.scm 787 */
											return
												BGl_subrzd2callzd2withzd2pushzd2zz__evaluate_compz00
												(BgL_sz00_1858, BgL_fz00_1861, BgL_argsz00_15817,
												BgL_bpz00_1860, BINT(BgL_siza7eza7_15818));
										}
									else
										{	/* Eval/evaluate_comp.scm 787 */
											return
												BGl_evarityzd2errorzd2zz__everrorz00(
												(((BgL_ev_appz00_bglt) COBJECT(BgL_i1165z00_15814))->
													BgL_locz00), BgL_symbzd2funzd2_15815,
												(int) (BgL_nbargsz00_15816),
												PROCEDURE_ARITY(BgL_fz00_1861));
		}}}}}}}

	}



/* &<@anonymous:1889> */
	obj_t BGl_z62zc3z04anonymousza31889ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13640, obj_t BgL_sz00_13646)
	{
		{	/* Eval/evaluate_comp.scm 795 */
			{	/* Eval/evaluate_comp.scm 795 */
				obj_t BgL_fz00_13641;
				BgL_ev_appz00_bglt BgL_i1165z00_13642;
				obj_t BgL_symbzd2funzd2_13643;
				long BgL_nbargsz00_13644;
				obj_t BgL_argsz00_13645;

				BgL_fz00_13641 = PROCEDURE_REF(BgL_envz00_13640, (int) (0L));
				BgL_i1165z00_13642 =
					((BgL_ev_appz00_bglt) PROCEDURE_REF(BgL_envz00_13640, (int) (1L)));
				BgL_symbzd2funzd2_13643 = PROCEDURE_REF(BgL_envz00_13640, (int) (2L));
				BgL_nbargsz00_13644 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_13640, (int) (3L)));
				BgL_argsz00_13645 =
					((obj_t) PROCEDURE_REF(BgL_envz00_13640, (int) (4L)));
				return
					BGl_zc3z04anonymousza31889ze3ze70z60zz__evaluate_compz00
					(BgL_argsz00_13645, BgL_nbargsz00_13644, BgL_symbzd2funzd2_13643,
					BgL_i1165z00_13642, BgL_fz00_13641, BgL_sz00_13646);
			}
		}

	}



/* <@anonymous:1889>~0 */
	obj_t BGl_zc3z04anonymousza31889ze3ze70z60zz__evaluate_compz00(obj_t
		BgL_argsz00_15812, long BgL_nbargsz00_15811, obj_t BgL_symbzd2funzd2_15810,
		BgL_ev_appz00_bglt BgL_i1165z00_15809, obj_t BgL_fz00_15808,
		obj_t BgL_sz00_1895)
	{
		{	/* Eval/evaluate_comp.scm 795 */
			{	/* Eval/evaluate_comp.scm 795 */
				obj_t BgL_bpz00_1897;

				BgL_bpz00_1897 = VECTOR_REF(((obj_t) BgL_sz00_1895), 0L);
				{	/* Eval/evaluate_comp.scm 795 */
					obj_t BgL_fz00_1898;

					BgL_fz00_1898 = BGL_PROCEDURE_CALL1(BgL_fz00_15808, BgL_sz00_1895);
					if (PROCEDUREP(BgL_fz00_1898))
						{	/* Eval/evaluate_comp.scm 795 */
							BFALSE;
						}
					else
						{	/* Eval/evaluate_comp.scm 795 */
							BGl_evtypezd2errorzd2zz__everrorz00(
								(((BgL_ev_appz00_bglt) COBJECT(BgL_i1165z00_15809))->
									BgL_locz00), BGl_string4577z00zz__evaluate_compz00,
								BGl_string4593z00zz__evaluate_compz00, BgL_fz00_1898);
						}
					{	/* Eval/evaluate_comp.scm 795 */
						obj_t BgL_ufz00_1901;

						{	/* Eval/evaluate_comp.scm 795 */
							obj_t BgL_tmpz00_18112;

							BgL_tmpz00_18112 = ((obj_t) BgL_fz00_1898);
							BgL_ufz00_1901 = PROCEDURE_ATTR(BgL_tmpz00_18112);
						}
						{	/* Eval/evaluate_comp.scm 795 */
							bool_t BgL_test4924z00_18115;

							if (STRUCTP(BgL_ufz00_1901))
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test4924z00_18115 =
										(STRUCT_KEY(BgL_ufz00_1901) ==
										BGl_symbol4594z00zz__evaluate_compz00);
								}
							else
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test4924z00_18115 = ((bool_t) 0);
								}
							if (BgL_test4924z00_18115)
								{	/* Eval/evaluate_comp.scm 795 */
									obj_t BgL_arityz00_1903;
									obj_t BgL_runz00_1904;
									obj_t BgL_sfz00_1905;

									BgL_arityz00_1903 = STRUCT_REF(BgL_ufz00_1901, (int) (0L));
									BgL_runz00_1904 = STRUCT_REF(BgL_ufz00_1901, (int) (1L));
									BgL_sfz00_1905 = STRUCT_REF(BgL_ufz00_1901, (int) (2L));
									if (((long) CINT(BgL_arityz00_1903) == BgL_nbargsz00_15811))
										{
											obj_t BgL_lz00_7097;
											obj_t BgL_spz00_7098;

											{	/* Eval/evaluate_comp.scm 710 */
												bool_t BgL_tmpz00_18129;

												BgL_lz00_7097 = BgL_argsz00_15812;
												BgL_spz00_7098 = BgL_bpz00_1897;
											BgL_recz00_7096:
												if (NULLP(BgL_lz00_7097))
													{	/* Eval/evaluate_comp.scm 711 */
														BgL_tmpz00_18129 = ((bool_t) 0);
													}
												else
													{	/* Eval/evaluate_comp.scm 711 */
														{	/* Eval/evaluate_comp.scm 712 */
															obj_t BgL_arg1798z00_7105;

															{	/* Eval/evaluate_comp.scm 712 */
																obj_t BgL_fun1799z00_7106;

																BgL_fun1799z00_7106 =
																	CAR(((obj_t) BgL_lz00_7097));
																BgL_arg1798z00_7105 =
																	BGL_PROCEDURE_CALL1(BgL_fun1799z00_7106,
																	BgL_sz00_1895);
															}
															{	/* Eval/evaluate_comp.scm 712 */
																long BgL_kz00_7111;

																BgL_kz00_7111 = (long) CINT(BgL_spz00_7098);
																VECTOR_SET(
																	((obj_t) BgL_sz00_1895), BgL_kz00_7111,
																	BgL_arg1798z00_7105);
														}}
														{	/* Eval/evaluate_comp.scm 713 */
															obj_t BgL_arg1800z00_7107;
															long BgL_arg1801z00_7108;

															BgL_arg1800z00_7107 =
																CDR(((obj_t) BgL_lz00_7097));
															BgL_arg1801z00_7108 =
																((long) CINT(BgL_spz00_7098) + 1L);
															{
																obj_t BgL_spz00_18146;
																obj_t BgL_lz00_18145;

																BgL_lz00_18145 = BgL_arg1800z00_7107;
																BgL_spz00_18146 = BINT(BgL_arg1801z00_7108);
																BgL_spz00_7098 = BgL_spz00_18146;
																BgL_lz00_7097 = BgL_lz00_18145;
																goto BgL_recz00_7096;
															}
														}
													}
												BBOOL(BgL_tmpz00_18129);
											}
										}
									else
										{	/* Eval/evaluate_comp.scm 795 */
											bool_t BgL_test4928z00_18149;

											if (((long) CINT(BgL_arityz00_1903) >= 0L))
												{	/* Eval/evaluate_comp.scm 795 */
													BgL_test4928z00_18149 = ((bool_t) 1);
												}
											else
												{	/* Eval/evaluate_comp.scm 795 */
													BgL_test4928z00_18149 =
														(
														(long) CINT(BgL_arityz00_1903) <
														((-1L) - BgL_nbargsz00_15811));
												}
											if (BgL_test4928z00_18149)
												{	/* Eval/evaluate_comp.scm 795 */
													BGl_evarityzd2errorzd2zz__everrorz00(
														(((BgL_ev_appz00_bglt)
																COBJECT(BgL_i1165z00_15809))->BgL_locz00),
														STRUCT_REF(BgL_ufz00_1901, (int) (3L)),
														(int) (BgL_nbargsz00_15811),
														CINT(BgL_arityz00_1903));
												}
											else
												{	/* Eval/evaluate_comp.scm 795 */
													BGl_pushzd2nargszd2onzd2spzd2zz__evaluate_compz00
														(BgL_arityz00_1903, BgL_sz00_1895,
														BgL_argsz00_15812, BgL_bpz00_1897);
												}
										}
									{	/* Eval/evaluate_comp.scm 795 */
										obj_t BgL_z12denvz12_1915;

										BgL_z12denvz12_1915 = BGL_CURRENT_DYNAMIC_ENV();
										{	/* Eval/evaluate_comp.scm 795 */
											obj_t BgL_tmpz00_18164;

											BgL_tmpz00_18164 =
												(((BgL_ev_appz00_bglt) COBJECT(BgL_i1165z00_15809))->
												BgL_locz00);
											BGL_ENV_SET_TRACE_LOCATION(BgL_z12denvz12_1915,
												BgL_tmpz00_18164);
										}
										if (
											(((long) CINT(BgL_bpz00_1897) +
													(long) CINT(BgL_sfz00_1905)) <
												VECTOR_LENGTH(((obj_t) BgL_sz00_1895))))
											{	/* Eval/evaluate_comp.scm 795 */
												return BgL_runz00_1904;
											}
										else
											{	/* Eval/evaluate_comp.scm 795 */
												obj_t BgL_nsz00_1918;

												BgL_nsz00_1918 =
													BGl_makezd2statezd2zz__evaluate_compz00();
												{	/* Eval/evaluate_comp.scm 795 */
													long BgL_arg1905z00_1920;

													BgL_arg1905z00_1920 =
														((long) CINT(BgL_bpz00_1897) + BgL_nbargsz00_15811);
													BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00
														(BgL_nsz00_1918, 2L, BgL_sz00_1895, BgL_bpz00_1897,
														BINT(BgL_arg1905z00_1920));
												}
												VECTOR_SET(BgL_nsz00_1918, 1L, BgL_sz00_1895);
												BGL_ENV_EVSTATE_SET(BgL_z12denvz12_1915,
													BgL_nsz00_1918);
												{	/* Eval/evaluate_comp.scm 795 */
													obj_t BgL_ez00_1921;

													BgL_ez00_1921 = BGL_EXITD_TOP_AS_OBJ();
													{	/* Eval/evaluate_comp.scm 795 */
														obj_t BgL_arg4321z00_7129;

														{	/* Eval/evaluate_comp.scm 795 */
															obj_t BgL_arg4322z00_7130;

															BgL_arg4322z00_7130 =
																BGL_EXITD_PROTECT(BgL_ez00_1921);
															BgL_arg4321z00_7129 =
																MAKE_YOUNG_PAIR(BgL_sz00_1895,
																BgL_arg4322z00_7130);
														}
														BGL_EXITD_PROTECT_SET(BgL_ez00_1921,
															BgL_arg4321z00_7129);
														BUNSPEC;
													}
													{	/* Eval/evaluate_comp.scm 795 */
														obj_t BgL_____rz00_1922;

														{	/* Eval/evaluate_comp.scm 670 */
															obj_t BgL_savedzd2bpzd2_7131;

															BgL_savedzd2bpzd2_7131 =
																VECTOR_REF(BgL_nsz00_1918, 0L);
															VECTOR_SET(BgL_nsz00_1918, 0L, BINT(2L));
															{
																obj_t BgL_fz00_7135;

																BgL_fz00_7135 = BgL_runz00_1904;
															BgL_recz00_7134:
																{	/* Eval/evaluate_comp.scm 673 */
																	obj_t BgL_rz00_7136;

																	BgL_rz00_7136 =
																		BGL_PROCEDURE_CALL1(BgL_fz00_7135,
																		BgL_nsz00_1918);
																	{	/* Eval/evaluate_comp.scm 674 */
																		bool_t BgL_test4931z00_18192;

																		if (PROCEDUREP(BgL_rz00_7136))
																			{	/* Eval/evaluate_comp.scm 674 */
																				obj_t BgL_arg1759z00_7139;

																				BgL_arg1759z00_7139 =
																					PROCEDURE_ATTR(BgL_rz00_7136);
																				if (STRUCTP(BgL_arg1759z00_7139))
																					{	/* Eval/evaluate_comp.scm 654 */
																						BgL_test4931z00_18192 =
																							(STRUCT_KEY(BgL_arg1759z00_7139)
																							==
																							BGl_symbol4573z00zz__evaluate_compz00);
																					}
																				else
																					{	/* Eval/evaluate_comp.scm 654 */
																						BgL_test4931z00_18192 =
																							((bool_t) 0);
																					}
																			}
																		else
																			{	/* Eval/evaluate_comp.scm 674 */
																				BgL_test4931z00_18192 = ((bool_t) 0);
																			}
																		if (BgL_test4931z00_18192)
																			{
																				obj_t BgL_fz00_18200;

																				BgL_fz00_18200 = BgL_rz00_7136;
																				BgL_fz00_7135 = BgL_fz00_18200;
																				goto BgL_recz00_7134;
																			}
																		else
																			{	/* Eval/evaluate_comp.scm 674 */
																				VECTOR_SET(BgL_nsz00_1918, 0L,
																					BgL_savedzd2bpzd2_7131);
																				BgL_____rz00_1922 = BgL_rz00_7136;
																			}
																	}
																}
															}
														}
														{	/* Eval/evaluate_comp.scm 795 */
															bool_t BgL_test4934z00_18202;

															{	/* Eval/evaluate_comp.scm 795 */
																obj_t BgL_arg4320z00_7147;

																BgL_arg4320z00_7147 =
																	BGL_EXITD_PROTECT(BgL_ez00_1921);
																BgL_test4934z00_18202 =
																	PAIRP(BgL_arg4320z00_7147);
															}
															if (BgL_test4934z00_18202)
																{	/* Eval/evaluate_comp.scm 795 */
																	obj_t BgL_arg4318z00_7148;

																	{	/* Eval/evaluate_comp.scm 795 */
																		obj_t BgL_arg4319z00_7149;

																		BgL_arg4319z00_7149 =
																			BGL_EXITD_PROTECT(BgL_ez00_1921);
																		BgL_arg4318z00_7148 =
																			CDR(((obj_t) BgL_arg4319z00_7149));
																	}
																	BGL_EXITD_PROTECT_SET(BgL_ez00_1921,
																		BgL_arg4318z00_7148);
																	BUNSPEC;
																}
															else
																{	/* Eval/evaluate_comp.scm 795 */
																	BFALSE;
																}
														}
														BGL_ENV_EVSTATE_SET(BgL_z12denvz12_1915,
															BgL_sz00_1895);
														return BgL_____rz00_1922;
													}
												}
											}
									}
								}
							else
								{	/* Eval/evaluate_comp.scm 795 */
									if (PROCEDURE_CORRECT_ARITYP(BgL_fz00_1898,
											(int) (BgL_nbargsz00_15811)))
										{	/* Eval/evaluate_comp.scm 795 */
											{	/* Eval/evaluate_comp.scm 795 */
												obj_t BgL_auxz00_18215;
												obj_t BgL_tmpz00_18213;

												BgL_auxz00_18215 =
													(((BgL_ev_appz00_bglt) COBJECT(BgL_i1165z00_15809))->
													BgL_locz00);
												BgL_tmpz00_18213 = BGL_CURRENT_DYNAMIC_ENV();
												BGL_ENV_SET_TRACE_LOCATION(BgL_tmpz00_18213,
													BgL_auxz00_18215);
											}
											return
												BGl_subrzd2callzd2withzd2pushzd2zz__evaluate_compz00
												(BgL_sz00_1895, BgL_fz00_1898, BgL_argsz00_15812,
												BgL_bpz00_1897, BINT(BgL_nbargsz00_15811));
										}
									else
										{	/* Eval/evaluate_comp.scm 795 */
											return
												BGl_evarityzd2errorzd2zz__everrorz00(
												(((BgL_ev_appz00_bglt) COBJECT(BgL_i1165z00_15809))->
													BgL_locz00), BgL_symbzd2funzd2_15810,
												(int) (BgL_nbargsz00_15811),
												PROCEDURE_ARITY(BgL_fz00_1898));
		}}}}}}}

	}



/* &<@anonymous:1915> */
	obj_t BGl_z62zc3z04anonymousza31915ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13647, obj_t BgL_sz00_13653)
	{
		{	/* Eval/evaluate_comp.scm 795 */
			{	/* Eval/evaluate_comp.scm 795 */
				obj_t BgL_fz00_13648;
				BgL_ev_appz00_bglt BgL_i1165z00_13649;
				obj_t BgL_symbzd2funzd2_13650;
				long BgL_nbargsz00_13651;
				obj_t BgL_argsz00_13652;

				BgL_fz00_13648 = PROCEDURE_REF(BgL_envz00_13647, (int) (0L));
				BgL_i1165z00_13649 =
					((BgL_ev_appz00_bglt) PROCEDURE_REF(BgL_envz00_13647, (int) (1L)));
				BgL_symbzd2funzd2_13650 = PROCEDURE_REF(BgL_envz00_13647, (int) (2L));
				BgL_nbargsz00_13651 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_13647, (int) (3L)));
				BgL_argsz00_13652 =
					((obj_t) PROCEDURE_REF(BgL_envz00_13647, (int) (4L)));
				return
					BGl_zc3z04anonymousza31915ze3ze70z60zz__evaluate_compz00
					(BgL_argsz00_13652, BgL_nbargsz00_13651, BgL_symbzd2funzd2_13650,
					BgL_i1165z00_13649, BgL_fz00_13648, BgL_sz00_13653);
			}
		}

	}



/* <@anonymous:1915>~0 */
	obj_t BGl_zc3z04anonymousza31915ze3ze70z60zz__evaluate_compz00(obj_t
		BgL_argsz00_15807, long BgL_nbargsz00_15806, obj_t BgL_symbzd2funzd2_15805,
		BgL_ev_appz00_bglt BgL_i1165z00_15804, obj_t BgL_fz00_15803,
		obj_t BgL_sz00_1929)
	{
		{	/* Eval/evaluate_comp.scm 795 */
			{	/* Eval/evaluate_comp.scm 795 */
				obj_t BgL_bpz00_1931;

				BgL_bpz00_1931 = VECTOR_REF(((obj_t) BgL_sz00_1929), 0L);
				{	/* Eval/evaluate_comp.scm 795 */
					obj_t BgL_fz00_1932;

					BgL_fz00_1932 = BGL_PROCEDURE_CALL1(BgL_fz00_15803, BgL_sz00_1929);
					if (PROCEDUREP(BgL_fz00_1932))
						{	/* Eval/evaluate_comp.scm 795 */
							BFALSE;
						}
					else
						{	/* Eval/evaluate_comp.scm 795 */
							BGl_evtypezd2errorzd2zz__everrorz00(
								(((BgL_ev_appz00_bglt) COBJECT(BgL_i1165z00_15804))->
									BgL_locz00), BGl_string4577z00zz__evaluate_compz00,
								BGl_string4593z00zz__evaluate_compz00, BgL_fz00_1932);
						}
					{	/* Eval/evaluate_comp.scm 795 */
						obj_t BgL_ufz00_1935;

						{	/* Eval/evaluate_comp.scm 795 */
							obj_t BgL_tmpz00_18248;

							BgL_tmpz00_18248 = ((obj_t) BgL_fz00_1932);
							BgL_ufz00_1935 = PROCEDURE_ATTR(BgL_tmpz00_18248);
						}
						{	/* Eval/evaluate_comp.scm 795 */
							bool_t BgL_test4937z00_18251;

							if (STRUCTP(BgL_ufz00_1935))
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test4937z00_18251 =
										(STRUCT_KEY(BgL_ufz00_1935) ==
										BGl_symbol4594z00zz__evaluate_compz00);
								}
							else
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test4937z00_18251 = ((bool_t) 0);
								}
							if (BgL_test4937z00_18251)
								{	/* Eval/evaluate_comp.scm 795 */
									obj_t BgL_arityz00_1937;
									obj_t BgL_runz00_1938;
									obj_t BgL_sfz00_1939;

									BgL_arityz00_1937 = STRUCT_REF(BgL_ufz00_1935, (int) (0L));
									BgL_runz00_1938 = STRUCT_REF(BgL_ufz00_1935, (int) (1L));
									BgL_sfz00_1939 = STRUCT_REF(BgL_ufz00_1935, (int) (2L));
									if (((long) CINT(BgL_arityz00_1937) == BgL_nbargsz00_15806))
										{
											obj_t BgL_lz00_7165;
											obj_t BgL_spz00_7166;

											{	/* Eval/evaluate_comp.scm 710 */
												bool_t BgL_tmpz00_18265;

												BgL_lz00_7165 = BgL_argsz00_15807;
												BgL_spz00_7166 = BgL_bpz00_1931;
											BgL_recz00_7164:
												if (NULLP(BgL_lz00_7165))
													{	/* Eval/evaluate_comp.scm 711 */
														BgL_tmpz00_18265 = ((bool_t) 0);
													}
												else
													{	/* Eval/evaluate_comp.scm 711 */
														{	/* Eval/evaluate_comp.scm 712 */
															obj_t BgL_arg1798z00_7173;

															{	/* Eval/evaluate_comp.scm 712 */
																obj_t BgL_fun1799z00_7174;

																BgL_fun1799z00_7174 =
																	CAR(((obj_t) BgL_lz00_7165));
																BgL_arg1798z00_7173 =
																	BGL_PROCEDURE_CALL1(BgL_fun1799z00_7174,
																	BgL_sz00_1929);
															}
															{	/* Eval/evaluate_comp.scm 712 */
																long BgL_kz00_7179;

																BgL_kz00_7179 = (long) CINT(BgL_spz00_7166);
																VECTOR_SET(
																	((obj_t) BgL_sz00_1929), BgL_kz00_7179,
																	BgL_arg1798z00_7173);
														}}
														{	/* Eval/evaluate_comp.scm 713 */
															obj_t BgL_arg1800z00_7175;
															long BgL_arg1801z00_7176;

															BgL_arg1800z00_7175 =
																CDR(((obj_t) BgL_lz00_7165));
															BgL_arg1801z00_7176 =
																((long) CINT(BgL_spz00_7166) + 1L);
															{
																obj_t BgL_spz00_18282;
																obj_t BgL_lz00_18281;

																BgL_lz00_18281 = BgL_arg1800z00_7175;
																BgL_spz00_18282 = BINT(BgL_arg1801z00_7176);
																BgL_spz00_7166 = BgL_spz00_18282;
																BgL_lz00_7165 = BgL_lz00_18281;
																goto BgL_recz00_7164;
															}
														}
													}
												BBOOL(BgL_tmpz00_18265);
											}
										}
									else
										{	/* Eval/evaluate_comp.scm 795 */
											bool_t BgL_test4941z00_18285;

											if (((long) CINT(BgL_arityz00_1937) >= 0L))
												{	/* Eval/evaluate_comp.scm 795 */
													BgL_test4941z00_18285 = ((bool_t) 1);
												}
											else
												{	/* Eval/evaluate_comp.scm 795 */
													BgL_test4941z00_18285 =
														(
														(long) CINT(BgL_arityz00_1937) <
														((-1L) - BgL_nbargsz00_15806));
												}
											if (BgL_test4941z00_18285)
												{	/* Eval/evaluate_comp.scm 795 */
													BGl_evarityzd2errorzd2zz__everrorz00(
														(((BgL_ev_appz00_bglt)
																COBJECT(BgL_i1165z00_15804))->BgL_locz00),
														STRUCT_REF(BgL_ufz00_1935, (int) (3L)),
														(int) (BgL_nbargsz00_15806),
														CINT(BgL_arityz00_1937));
												}
											else
												{	/* Eval/evaluate_comp.scm 795 */
													BGl_pushzd2nargszd2onzd2spzd2zz__evaluate_compz00
														(BgL_arityz00_1937, BgL_sz00_1929,
														BgL_argsz00_15807, BgL_bpz00_1931);
												}
										}
									{	/* Eval/evaluate_comp.scm 795 */
										obj_t BgL_z12denvz12_1949;

										BgL_z12denvz12_1949 = BGL_CURRENT_DYNAMIC_ENV();
										if (
											(((long) CINT(BgL_bpz00_1931) +
													(long) CINT(BgL_sfz00_1939)) <
												VECTOR_LENGTH(((obj_t) BgL_sz00_1929))))
											{	/* Eval/evaluate_comp.scm 795 */
												return BgL_runz00_1938;
											}
										else
											{	/* Eval/evaluate_comp.scm 795 */
												obj_t BgL_nsz00_1951;

												BgL_nsz00_1951 =
													BGl_makezd2statezd2zz__evaluate_compz00();
												{	/* Eval/evaluate_comp.scm 795 */
													long BgL_arg1927z00_1953;

													BgL_arg1927z00_1953 =
														((long) CINT(BgL_bpz00_1931) + BgL_nbargsz00_15806);
													BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00
														(BgL_nsz00_1951, 2L, BgL_sz00_1929, BgL_bpz00_1931,
														BINT(BgL_arg1927z00_1953));
												}
												VECTOR_SET(BgL_nsz00_1951, 1L, BgL_sz00_1929);
												BGL_ENV_EVSTATE_SET(BgL_z12denvz12_1949,
													BgL_nsz00_1951);
												{	/* Eval/evaluate_comp.scm 795 */
													obj_t BgL_ez00_1954;

													BgL_ez00_1954 = BGL_EXITD_TOP_AS_OBJ();
													{	/* Eval/evaluate_comp.scm 795 */
														obj_t BgL_arg4321z00_7197;

														{	/* Eval/evaluate_comp.scm 795 */
															obj_t BgL_arg4322z00_7198;

															BgL_arg4322z00_7198 =
																BGL_EXITD_PROTECT(BgL_ez00_1954);
															BgL_arg4321z00_7197 =
																MAKE_YOUNG_PAIR(BgL_sz00_1929,
																BgL_arg4322z00_7198);
														}
														BGL_EXITD_PROTECT_SET(BgL_ez00_1954,
															BgL_arg4321z00_7197);
														BUNSPEC;
													}
													{	/* Eval/evaluate_comp.scm 795 */
														obj_t BgL_____rz00_1955;

														{	/* Eval/evaluate_comp.scm 670 */
															obj_t BgL_savedzd2bpzd2_7199;

															BgL_savedzd2bpzd2_7199 =
																VECTOR_REF(BgL_nsz00_1951, 0L);
															VECTOR_SET(BgL_nsz00_1951, 0L, BINT(2L));
															{
																obj_t BgL_fz00_7203;

																BgL_fz00_7203 = BgL_runz00_1938;
															BgL_recz00_7202:
																{	/* Eval/evaluate_comp.scm 673 */
																	obj_t BgL_rz00_7204;

																	BgL_rz00_7204 =
																		BGL_PROCEDURE_CALL1(BgL_fz00_7203,
																		BgL_nsz00_1951);
																	{	/* Eval/evaluate_comp.scm 674 */
																		bool_t BgL_test4944z00_18325;

																		if (PROCEDUREP(BgL_rz00_7204))
																			{	/* Eval/evaluate_comp.scm 674 */
																				obj_t BgL_arg1759z00_7207;

																				BgL_arg1759z00_7207 =
																					PROCEDURE_ATTR(BgL_rz00_7204);
																				if (STRUCTP(BgL_arg1759z00_7207))
																					{	/* Eval/evaluate_comp.scm 654 */
																						BgL_test4944z00_18325 =
																							(STRUCT_KEY(BgL_arg1759z00_7207)
																							==
																							BGl_symbol4573z00zz__evaluate_compz00);
																					}
																				else
																					{	/* Eval/evaluate_comp.scm 654 */
																						BgL_test4944z00_18325 =
																							((bool_t) 0);
																					}
																			}
																		else
																			{	/* Eval/evaluate_comp.scm 674 */
																				BgL_test4944z00_18325 = ((bool_t) 0);
																			}
																		if (BgL_test4944z00_18325)
																			{
																				obj_t BgL_fz00_18333;

																				BgL_fz00_18333 = BgL_rz00_7204;
																				BgL_fz00_7203 = BgL_fz00_18333;
																				goto BgL_recz00_7202;
																			}
																		else
																			{	/* Eval/evaluate_comp.scm 674 */
																				VECTOR_SET(BgL_nsz00_1951, 0L,
																					BgL_savedzd2bpzd2_7199);
																				BgL_____rz00_1955 = BgL_rz00_7204;
																			}
																	}
																}
															}
														}
														{	/* Eval/evaluate_comp.scm 795 */
															bool_t BgL_test4947z00_18335;

															{	/* Eval/evaluate_comp.scm 795 */
																obj_t BgL_arg4320z00_7215;

																BgL_arg4320z00_7215 =
																	BGL_EXITD_PROTECT(BgL_ez00_1954);
																BgL_test4947z00_18335 =
																	PAIRP(BgL_arg4320z00_7215);
															}
															if (BgL_test4947z00_18335)
																{	/* Eval/evaluate_comp.scm 795 */
																	obj_t BgL_arg4318z00_7216;

																	{	/* Eval/evaluate_comp.scm 795 */
																		obj_t BgL_arg4319z00_7217;

																		BgL_arg4319z00_7217 =
																			BGL_EXITD_PROTECT(BgL_ez00_1954);
																		BgL_arg4318z00_7216 =
																			CDR(((obj_t) BgL_arg4319z00_7217));
																	}
																	BGL_EXITD_PROTECT_SET(BgL_ez00_1954,
																		BgL_arg4318z00_7216);
																	BUNSPEC;
																}
															else
																{	/* Eval/evaluate_comp.scm 795 */
																	BFALSE;
																}
														}
														BGL_ENV_EVSTATE_SET(BgL_z12denvz12_1949,
															BgL_sz00_1929);
														return BgL_____rz00_1955;
													}
												}
											}
									}
								}
							else
								{	/* Eval/evaluate_comp.scm 795 */
									if (PROCEDURE_CORRECT_ARITYP(BgL_fz00_1932,
											(int) (BgL_nbargsz00_15806)))
										{	/* Eval/evaluate_comp.scm 795 */
											return
												BGl_subrzd2callzd2withzd2pushzd2zz__evaluate_compz00
												(BgL_sz00_1929, BgL_fz00_1932, BgL_argsz00_15807,
												BgL_bpz00_1931, BINT(BgL_nbargsz00_15806));
										}
									else
										{	/* Eval/evaluate_comp.scm 795 */
											return
												BGl_evarityzd2errorzd2zz__everrorz00(
												(((BgL_ev_appz00_bglt) COBJECT(BgL_i1165z00_15804))->
													BgL_locz00), BgL_symbzd2funzd2_15805,
												(int) (BgL_nbargsz00_15806),
												PROCEDURE_ARITY(BgL_fz00_1932));
		}}}}}}}

	}



/* &<@anonymous:1935> */
	obj_t BGl_z62zc3z04anonymousza31935ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13654, obj_t BgL_sz00_13661)
	{
		{	/* Eval/evaluate_comp.scm 781 */
			{	/* Eval/evaluate_comp.scm 781 */
				obj_t BgL_fz00_13655;
				BgL_ev_appz00_bglt BgL_i1165z00_13656;
				obj_t BgL_symbzd2funzd2_13657;
				long BgL_nbargsz00_13658;
				obj_t BgL_argsz00_13659;
				long BgL_siza7eza7_13660;

				BgL_fz00_13655 = PROCEDURE_REF(BgL_envz00_13654, (int) (0L));
				BgL_i1165z00_13656 =
					((BgL_ev_appz00_bglt) PROCEDURE_REF(BgL_envz00_13654, (int) (1L)));
				BgL_symbzd2funzd2_13657 = PROCEDURE_REF(BgL_envz00_13654, (int) (2L));
				BgL_nbargsz00_13658 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_13654, (int) (3L)));
				BgL_argsz00_13659 =
					((obj_t) PROCEDURE_REF(BgL_envz00_13654, (int) (4L)));
				BgL_siza7eza7_13660 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_13654, (int) (5L)));
				return
					BGl_zc3z04anonymousza31935ze3ze70z60zz__evaluate_compz00
					(BgL_siza7eza7_13660, BgL_argsz00_13659, BgL_nbargsz00_13658,
					BgL_symbzd2funzd2_13657, BgL_i1165z00_13656, BgL_fz00_13655,
					BgL_sz00_13661);
			}
		}

	}



/* <@anonymous:1935>~0 */
	obj_t BGl_zc3z04anonymousza31935ze3ze70z60zz__evaluate_compz00(long
		BgL_siza7eza7_15802, obj_t BgL_argsz00_15801, long BgL_nbargsz00_15800,
		obj_t BgL_symbzd2funzd2_15799, BgL_ev_appz00_bglt BgL_i1165z00_15798,
		obj_t BgL_fz00_15797, obj_t BgL_sz00_1964)
	{
		{	/* Eval/evaluate_comp.scm 781 */
			{	/* Eval/evaluate_comp.scm 781 */
				obj_t BgL_bpz00_1966;

				BgL_bpz00_1966 = VECTOR_REF(((obj_t) BgL_sz00_1964), 0L);
				{	/* Eval/evaluate_comp.scm 781 */
					obj_t BgL_fz00_1967;

					BgL_fz00_1967 = BGL_PROCEDURE_CALL1(BgL_fz00_15797, BgL_sz00_1964);
					if (PROCEDUREP(BgL_fz00_1967))
						{	/* Eval/evaluate_comp.scm 781 */
							BFALSE;
						}
					else
						{	/* Eval/evaluate_comp.scm 781 */
							BGl_evtypezd2errorzd2zz__everrorz00(
								(((BgL_ev_appz00_bglt) COBJECT(BgL_i1165z00_15798))->
									BgL_locz00), BGl_string4577z00zz__evaluate_compz00,
								BGl_string4593z00zz__evaluate_compz00, BgL_fz00_1967);
						}
					{	/* Eval/evaluate_comp.scm 781 */
						obj_t BgL_ufz00_1970;

						{	/* Eval/evaluate_comp.scm 781 */
							obj_t BgL_tmpz00_18379;

							BgL_tmpz00_18379 = ((obj_t) BgL_fz00_1967);
							BgL_ufz00_1970 = PROCEDURE_ATTR(BgL_tmpz00_18379);
						}
						{	/* Eval/evaluate_comp.scm 781 */
							bool_t BgL_test4950z00_18382;

							if (STRUCTP(BgL_ufz00_1970))
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test4950z00_18382 =
										(STRUCT_KEY(BgL_ufz00_1970) ==
										BGl_symbol4594z00zz__evaluate_compz00);
								}
							else
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test4950z00_18382 = ((bool_t) 0);
								}
							if (BgL_test4950z00_18382)
								{	/* Eval/evaluate_comp.scm 781 */
									obj_t BgL_arityz00_1972;
									obj_t BgL_runz00_1973;
									obj_t BgL_sfz00_1974;

									BgL_arityz00_1972 = STRUCT_REF(BgL_ufz00_1970, (int) (0L));
									BgL_runz00_1973 = STRUCT_REF(BgL_ufz00_1970, (int) (1L));
									BgL_sfz00_1974 = STRUCT_REF(BgL_ufz00_1970, (int) (2L));
									{	/* Eval/evaluate_comp.scm 781 */
										long BgL_spz00_1975;

										BgL_spz00_1975 =
											((long) CINT(BgL_bpz00_1966) + BgL_siza7eza7_15802);
										if (((long) CINT(BgL_arityz00_1972) == BgL_nbargsz00_15800))
											{
												obj_t BgL_lz00_7234;
												long BgL_spz00_7235;

												{	/* Eval/evaluate_comp.scm 710 */
													bool_t BgL_tmpz00_18398;

													BgL_lz00_7234 = BgL_argsz00_15801;
													BgL_spz00_7235 = BgL_spz00_1975;
												BgL_recz00_7233:
													if (NULLP(BgL_lz00_7234))
														{	/* Eval/evaluate_comp.scm 711 */
															BgL_tmpz00_18398 = ((bool_t) 0);
														}
													else
														{	/* Eval/evaluate_comp.scm 711 */
															{	/* Eval/evaluate_comp.scm 712 */
																obj_t BgL_arg1798z00_7242;

																{	/* Eval/evaluate_comp.scm 712 */
																	obj_t BgL_fun1799z00_7243;

																	BgL_fun1799z00_7243 =
																		CAR(((obj_t) BgL_lz00_7234));
																	BgL_arg1798z00_7242 =
																		BGL_PROCEDURE_CALL1(BgL_fun1799z00_7243,
																		BgL_sz00_1964);
																}
																VECTOR_SET(
																	((obj_t) BgL_sz00_1964), BgL_spz00_7235,
																	BgL_arg1798z00_7242);
															}
															{	/* Eval/evaluate_comp.scm 713 */
																obj_t BgL_arg1800z00_7244;
																long BgL_arg1801z00_7245;

																BgL_arg1800z00_7244 =
																	CDR(((obj_t) BgL_lz00_7234));
																BgL_arg1801z00_7245 = (BgL_spz00_7235 + 1L);
																{
																	long BgL_spz00_18413;
																	obj_t BgL_lz00_18412;

																	BgL_lz00_18412 = BgL_arg1800z00_7244;
																	BgL_spz00_18413 = BgL_arg1801z00_7245;
																	BgL_spz00_7235 = BgL_spz00_18413;
																	BgL_lz00_7234 = BgL_lz00_18412;
																	goto BgL_recz00_7233;
																}
															}
														}
													BBOOL(BgL_tmpz00_18398);
												}
											}
										else
											{	/* Eval/evaluate_comp.scm 781 */
												bool_t BgL_test4954z00_18415;

												if (((long) CINT(BgL_arityz00_1972) >= 0L))
													{	/* Eval/evaluate_comp.scm 781 */
														BgL_test4954z00_18415 = ((bool_t) 1);
													}
												else
													{	/* Eval/evaluate_comp.scm 781 */
														BgL_test4954z00_18415 =
															(
															(long) CINT(BgL_arityz00_1972) <
															((-1L) - BgL_nbargsz00_15800));
													}
												if (BgL_test4954z00_18415)
													{	/* Eval/evaluate_comp.scm 781 */
														BGl_evarityzd2errorzd2zz__everrorz00(
															(((BgL_ev_appz00_bglt)
																	COBJECT(BgL_i1165z00_15798))->BgL_locz00),
															STRUCT_REF(BgL_ufz00_1970, (int) (3L)),
															(int) (BgL_nbargsz00_15800),
															CINT(BgL_arityz00_1972));
													}
												else
													{	/* Eval/evaluate_comp.scm 781 */
														BGl_pushzd2nargszd2onzd2spzd2zz__evaluate_compz00
															(BgL_arityz00_1972, BgL_sz00_1964,
															BgL_argsz00_15801, BINT(BgL_spz00_1975));
													}
											}
										{	/* Eval/evaluate_comp.scm 781 */
											obj_t BgL_z12denvz12_1984;

											BgL_z12denvz12_1984 = BGL_CURRENT_DYNAMIC_ENV();
											{	/* Eval/evaluate_comp.scm 781 */
												obj_t BgL_tmpz00_18431;

												BgL_tmpz00_18431 =
													(((BgL_ev_appz00_bglt) COBJECT(BgL_i1165z00_15798))->
													BgL_locz00);
												BGL_ENV_SET_TRACE_LOCATION(BgL_z12denvz12_1984,
													BgL_tmpz00_18431);
											}
											if (
												((BgL_spz00_1975 +
														(long) CINT(BgL_sfz00_1974)) <
													VECTOR_LENGTH(((obj_t) BgL_sz00_1964))))
												{	/* Eval/evaluate_comp.scm 781 */
													return
														BGl_catchzd2trampolinezd2zz__evaluate_compz00
														(BgL_runz00_1973, BgL_sz00_1964,
														BINT(BgL_spz00_1975));
												}
											else
												{	/* Eval/evaluate_comp.scm 781 */
													obj_t BgL_nsz00_1987;

													BgL_nsz00_1987 =
														BGl_makezd2statezd2zz__evaluate_compz00();
													{	/* Eval/evaluate_comp.scm 781 */
														long BgL_arg1948z00_1989;

														BgL_arg1948z00_1989 =
															(BgL_spz00_1975 + BgL_nbargsz00_15800);
														BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00
															(BgL_nsz00_1987, 2L, BgL_sz00_1964,
															BINT(BgL_spz00_1975), BINT(BgL_arg1948z00_1989));
													}
													VECTOR_SET(BgL_nsz00_1987, 1L, BgL_sz00_1964);
													BGL_ENV_EVSTATE_SET(BgL_z12denvz12_1984,
														BgL_nsz00_1987);
													{	/* Eval/evaluate_comp.scm 781 */
														obj_t BgL_ez00_1990;

														BgL_ez00_1990 = BGL_EXITD_TOP_AS_OBJ();
														{	/* Eval/evaluate_comp.scm 781 */
															obj_t BgL_arg4321z00_7266;

															{	/* Eval/evaluate_comp.scm 781 */
																obj_t BgL_arg4322z00_7267;

																BgL_arg4322z00_7267 =
																	BGL_EXITD_PROTECT(BgL_ez00_1990);
																BgL_arg4321z00_7266 =
																	MAKE_YOUNG_PAIR(BgL_sz00_1964,
																	BgL_arg4322z00_7267);
															}
															BGL_EXITD_PROTECT_SET(BgL_ez00_1990,
																BgL_arg4321z00_7266);
															BUNSPEC;
														}
														{	/* Eval/evaluate_comp.scm 781 */
															obj_t BgL_____rz00_1991;

															{	/* Eval/evaluate_comp.scm 670 */
																obj_t BgL_savedzd2bpzd2_7268;

																BgL_savedzd2bpzd2_7268 =
																	VECTOR_REF(BgL_nsz00_1987, 0L);
																VECTOR_SET(BgL_nsz00_1987, 0L, BINT(2L));
																{
																	obj_t BgL_fz00_7272;

																	BgL_fz00_7272 = BgL_runz00_1973;
																BgL_recz00_7271:
																	{	/* Eval/evaluate_comp.scm 673 */
																		obj_t BgL_rz00_7273;

																		BgL_rz00_7273 =
																			BGL_PROCEDURE_CALL1(BgL_fz00_7272,
																			BgL_nsz00_1987);
																		{	/* Eval/evaluate_comp.scm 674 */
																			bool_t BgL_test4957z00_18460;

																			if (PROCEDUREP(BgL_rz00_7273))
																				{	/* Eval/evaluate_comp.scm 674 */
																					obj_t BgL_arg1759z00_7276;

																					BgL_arg1759z00_7276 =
																						PROCEDURE_ATTR(BgL_rz00_7273);
																					if (STRUCTP(BgL_arg1759z00_7276))
																						{	/* Eval/evaluate_comp.scm 654 */
																							BgL_test4957z00_18460 =
																								(STRUCT_KEY(BgL_arg1759z00_7276)
																								==
																								BGl_symbol4573z00zz__evaluate_compz00);
																						}
																					else
																						{	/* Eval/evaluate_comp.scm 654 */
																							BgL_test4957z00_18460 =
																								((bool_t) 0);
																						}
																				}
																			else
																				{	/* Eval/evaluate_comp.scm 674 */
																					BgL_test4957z00_18460 = ((bool_t) 0);
																				}
																			if (BgL_test4957z00_18460)
																				{
																					obj_t BgL_fz00_18468;

																					BgL_fz00_18468 = BgL_rz00_7273;
																					BgL_fz00_7272 = BgL_fz00_18468;
																					goto BgL_recz00_7271;
																				}
																			else
																				{	/* Eval/evaluate_comp.scm 674 */
																					VECTOR_SET(BgL_nsz00_1987, 0L,
																						BgL_savedzd2bpzd2_7268);
																					BgL_____rz00_1991 = BgL_rz00_7273;
																				}
																		}
																	}
																}
															}
															{	/* Eval/evaluate_comp.scm 781 */
																bool_t BgL_test4960z00_18470;

																{	/* Eval/evaluate_comp.scm 781 */
																	obj_t BgL_arg4320z00_7284;

																	BgL_arg4320z00_7284 =
																		BGL_EXITD_PROTECT(BgL_ez00_1990);
																	BgL_test4960z00_18470 =
																		PAIRP(BgL_arg4320z00_7284);
																}
																if (BgL_test4960z00_18470)
																	{	/* Eval/evaluate_comp.scm 781 */
																		obj_t BgL_arg4318z00_7285;

																		{	/* Eval/evaluate_comp.scm 781 */
																			obj_t BgL_arg4319z00_7286;

																			BgL_arg4319z00_7286 =
																				BGL_EXITD_PROTECT(BgL_ez00_1990);
																			BgL_arg4318z00_7285 =
																				CDR(((obj_t) BgL_arg4319z00_7286));
																		}
																		BGL_EXITD_PROTECT_SET(BgL_ez00_1990,
																			BgL_arg4318z00_7285);
																		BUNSPEC;
																	}
																else
																	{	/* Eval/evaluate_comp.scm 781 */
																		BFALSE;
																	}
															}
															BGL_ENV_EVSTATE_SET(BgL_z12denvz12_1984,
																BgL_sz00_1964);
															return BgL_____rz00_1991;
														}
													}
												}
										}
									}
								}
							else
								{	/* Eval/evaluate_comp.scm 781 */
									if (PROCEDURE_CORRECT_ARITYP(BgL_fz00_1967,
											(int) (BgL_nbargsz00_15800)))
										{	/* Eval/evaluate_comp.scm 781 */
											{	/* Eval/evaluate_comp.scm 781 */
												obj_t BgL_auxz00_18483;
												obj_t BgL_tmpz00_18481;

												BgL_auxz00_18483 =
													(((BgL_ev_appz00_bglt) COBJECT(BgL_i1165z00_15798))->
													BgL_locz00);
												BgL_tmpz00_18481 = BGL_CURRENT_DYNAMIC_ENV();
												BGL_ENV_SET_TRACE_LOCATION(BgL_tmpz00_18481,
													BgL_auxz00_18483);
											}
											return
												BGl_subrzd2callzd2withzd2pushzd2zz__evaluate_compz00
												(BgL_sz00_1964, BgL_fz00_1967, BgL_argsz00_15801,
												BgL_bpz00_1966, BINT(BgL_siza7eza7_15802));
										}
									else
										{	/* Eval/evaluate_comp.scm 781 */
											return
												BGl_evarityzd2errorzd2zz__everrorz00(
												(((BgL_ev_appz00_bglt) COBJECT(BgL_i1165z00_15798))->
													BgL_locz00), BgL_symbzd2funzd2_15799,
												(int) (BgL_nbargsz00_15800),
												PROCEDURE_ARITY(BgL_fz00_1967));
		}}}}}}}

	}



/* &<@anonymous:1956> */
	obj_t BGl_z62zc3z04anonymousza31956ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13662, obj_t BgL_sz00_13669)
	{
		{	/* Eval/evaluate_comp.scm 781 */
			{	/* Eval/evaluate_comp.scm 781 */
				obj_t BgL_fz00_13663;
				BgL_ev_appz00_bglt BgL_i1165z00_13664;
				obj_t BgL_symbzd2funzd2_13665;
				long BgL_nbargsz00_13666;
				obj_t BgL_argsz00_13667;
				long BgL_siza7eza7_13668;

				BgL_fz00_13663 = PROCEDURE_REF(BgL_envz00_13662, (int) (0L));
				BgL_i1165z00_13664 =
					((BgL_ev_appz00_bglt) PROCEDURE_REF(BgL_envz00_13662, (int) (1L)));
				BgL_symbzd2funzd2_13665 = PROCEDURE_REF(BgL_envz00_13662, (int) (2L));
				BgL_nbargsz00_13666 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_13662, (int) (3L)));
				BgL_argsz00_13667 =
					((obj_t) PROCEDURE_REF(BgL_envz00_13662, (int) (4L)));
				BgL_siza7eza7_13668 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_13662, (int) (5L)));
				return
					BGl_zc3z04anonymousza31956ze3ze70z60zz__evaluate_compz00
					(BgL_siza7eza7_13668, BgL_argsz00_13667, BgL_nbargsz00_13666,
					BgL_symbzd2funzd2_13665, BgL_i1165z00_13664, BgL_fz00_13663,
					BgL_sz00_13669);
			}
		}

	}



/* <@anonymous:1956>~0 */
	obj_t BGl_zc3z04anonymousza31956ze3ze70z60zz__evaluate_compz00(long
		BgL_siza7eza7_15796, obj_t BgL_argsz00_15795, long BgL_nbargsz00_15794,
		obj_t BgL_symbzd2funzd2_15793, BgL_ev_appz00_bglt BgL_i1165z00_15792,
		obj_t BgL_fz00_15791, obj_t BgL_sz00_1998)
	{
		{	/* Eval/evaluate_comp.scm 781 */
			{	/* Eval/evaluate_comp.scm 781 */
				obj_t BgL_bpz00_2000;

				BgL_bpz00_2000 = VECTOR_REF(((obj_t) BgL_sz00_1998), 0L);
				{	/* Eval/evaluate_comp.scm 781 */
					obj_t BgL_fz00_2001;

					BgL_fz00_2001 = BGL_PROCEDURE_CALL1(BgL_fz00_15791, BgL_sz00_1998);
					if (PROCEDUREP(BgL_fz00_2001))
						{	/* Eval/evaluate_comp.scm 781 */
							BFALSE;
						}
					else
						{	/* Eval/evaluate_comp.scm 781 */
							BGl_evtypezd2errorzd2zz__everrorz00(
								(((BgL_ev_appz00_bglt) COBJECT(BgL_i1165z00_15792))->
									BgL_locz00), BGl_string4577z00zz__evaluate_compz00,
								BGl_string4593z00zz__evaluate_compz00, BgL_fz00_2001);
						}
					{	/* Eval/evaluate_comp.scm 781 */
						obj_t BgL_ufz00_2004;

						{	/* Eval/evaluate_comp.scm 781 */
							obj_t BgL_tmpz00_18519;

							BgL_tmpz00_18519 = ((obj_t) BgL_fz00_2001);
							BgL_ufz00_2004 = PROCEDURE_ATTR(BgL_tmpz00_18519);
						}
						{	/* Eval/evaluate_comp.scm 781 */
							bool_t BgL_test4963z00_18522;

							if (STRUCTP(BgL_ufz00_2004))
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test4963z00_18522 =
										(STRUCT_KEY(BgL_ufz00_2004) ==
										BGl_symbol4594z00zz__evaluate_compz00);
								}
							else
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test4963z00_18522 = ((bool_t) 0);
								}
							if (BgL_test4963z00_18522)
								{	/* Eval/evaluate_comp.scm 781 */
									obj_t BgL_arityz00_2006;
									obj_t BgL_runz00_2007;
									obj_t BgL_sfz00_2008;

									BgL_arityz00_2006 = STRUCT_REF(BgL_ufz00_2004, (int) (0L));
									BgL_runz00_2007 = STRUCT_REF(BgL_ufz00_2004, (int) (1L));
									BgL_sfz00_2008 = STRUCT_REF(BgL_ufz00_2004, (int) (2L));
									{	/* Eval/evaluate_comp.scm 781 */
										long BgL_spz00_2009;

										BgL_spz00_2009 =
											((long) CINT(BgL_bpz00_2000) + BgL_siza7eza7_15796);
										if (((long) CINT(BgL_arityz00_2006) == BgL_nbargsz00_15794))
											{
												obj_t BgL_lz00_7302;
												long BgL_spz00_7303;

												{	/* Eval/evaluate_comp.scm 710 */
													bool_t BgL_tmpz00_18538;

													BgL_lz00_7302 = BgL_argsz00_15795;
													BgL_spz00_7303 = BgL_spz00_2009;
												BgL_recz00_7301:
													if (NULLP(BgL_lz00_7302))
														{	/* Eval/evaluate_comp.scm 711 */
															BgL_tmpz00_18538 = ((bool_t) 0);
														}
													else
														{	/* Eval/evaluate_comp.scm 711 */
															{	/* Eval/evaluate_comp.scm 712 */
																obj_t BgL_arg1798z00_7310;

																{	/* Eval/evaluate_comp.scm 712 */
																	obj_t BgL_fun1799z00_7311;

																	BgL_fun1799z00_7311 =
																		CAR(((obj_t) BgL_lz00_7302));
																	BgL_arg1798z00_7310 =
																		BGL_PROCEDURE_CALL1(BgL_fun1799z00_7311,
																		BgL_sz00_1998);
																}
																VECTOR_SET(
																	((obj_t) BgL_sz00_1998), BgL_spz00_7303,
																	BgL_arg1798z00_7310);
															}
															{	/* Eval/evaluate_comp.scm 713 */
																obj_t BgL_arg1800z00_7312;
																long BgL_arg1801z00_7313;

																BgL_arg1800z00_7312 =
																	CDR(((obj_t) BgL_lz00_7302));
																BgL_arg1801z00_7313 = (BgL_spz00_7303 + 1L);
																{
																	long BgL_spz00_18553;
																	obj_t BgL_lz00_18552;

																	BgL_lz00_18552 = BgL_arg1800z00_7312;
																	BgL_spz00_18553 = BgL_arg1801z00_7313;
																	BgL_spz00_7303 = BgL_spz00_18553;
																	BgL_lz00_7302 = BgL_lz00_18552;
																	goto BgL_recz00_7301;
																}
															}
														}
													BBOOL(BgL_tmpz00_18538);
												}
											}
										else
											{	/* Eval/evaluate_comp.scm 781 */
												bool_t BgL_test4967z00_18555;

												if (((long) CINT(BgL_arityz00_2006) >= 0L))
													{	/* Eval/evaluate_comp.scm 781 */
														BgL_test4967z00_18555 = ((bool_t) 1);
													}
												else
													{	/* Eval/evaluate_comp.scm 781 */
														BgL_test4967z00_18555 =
															(
															(long) CINT(BgL_arityz00_2006) <
															((-1L) - BgL_nbargsz00_15794));
													}
												if (BgL_test4967z00_18555)
													{	/* Eval/evaluate_comp.scm 781 */
														BGl_evarityzd2errorzd2zz__everrorz00(
															(((BgL_ev_appz00_bglt)
																	COBJECT(BgL_i1165z00_15792))->BgL_locz00),
															STRUCT_REF(BgL_ufz00_2004, (int) (3L)),
															(int) (BgL_nbargsz00_15794),
															CINT(BgL_arityz00_2006));
													}
												else
													{	/* Eval/evaluate_comp.scm 781 */
														BGl_pushzd2nargszd2onzd2spzd2zz__evaluate_compz00
															(BgL_arityz00_2006, BgL_sz00_1998,
															BgL_argsz00_15795, BINT(BgL_spz00_2009));
													}
											}
										{	/* Eval/evaluate_comp.scm 781 */
											obj_t BgL_z12denvz12_2018;

											BgL_z12denvz12_2018 = BGL_CURRENT_DYNAMIC_ENV();
											if (
												((BgL_spz00_2009 +
														(long) CINT(BgL_sfz00_2008)) <
													VECTOR_LENGTH(((obj_t) BgL_sz00_1998))))
												{	/* Eval/evaluate_comp.scm 781 */
													return
														BGl_catchzd2trampolinezd2zz__evaluate_compz00
														(BgL_runz00_2007, BgL_sz00_1998,
														BINT(BgL_spz00_2009));
												}
											else
												{	/* Eval/evaluate_comp.scm 781 */
													obj_t BgL_nsz00_2020;

													BgL_nsz00_2020 =
														BGl_makezd2statezd2zz__evaluate_compz00();
													{	/* Eval/evaluate_comp.scm 781 */
														long BgL_arg1969z00_2022;

														BgL_arg1969z00_2022 =
															(BgL_spz00_2009 + BgL_nbargsz00_15794);
														BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00
															(BgL_nsz00_2020, 2L, BgL_sz00_1998,
															BINT(BgL_spz00_2009), BINT(BgL_arg1969z00_2022));
													}
													VECTOR_SET(BgL_nsz00_2020, 1L, BgL_sz00_1998);
													BGL_ENV_EVSTATE_SET(BgL_z12denvz12_2018,
														BgL_nsz00_2020);
													{	/* Eval/evaluate_comp.scm 781 */
														obj_t BgL_ez00_2023;

														BgL_ez00_2023 = BGL_EXITD_TOP_AS_OBJ();
														{	/* Eval/evaluate_comp.scm 781 */
															obj_t BgL_arg4321z00_7334;

															{	/* Eval/evaluate_comp.scm 781 */
																obj_t BgL_arg4322z00_7335;

																BgL_arg4322z00_7335 =
																	BGL_EXITD_PROTECT(BgL_ez00_2023);
																BgL_arg4321z00_7334 =
																	MAKE_YOUNG_PAIR(BgL_sz00_1998,
																	BgL_arg4322z00_7335);
															}
															BGL_EXITD_PROTECT_SET(BgL_ez00_2023,
																BgL_arg4321z00_7334);
															BUNSPEC;
														}
														{	/* Eval/evaluate_comp.scm 781 */
															obj_t BgL_____rz00_2024;

															{	/* Eval/evaluate_comp.scm 670 */
																obj_t BgL_savedzd2bpzd2_7336;

																BgL_savedzd2bpzd2_7336 =
																	VECTOR_REF(BgL_nsz00_2020, 0L);
																VECTOR_SET(BgL_nsz00_2020, 0L, BINT(2L));
																{
																	obj_t BgL_fz00_7340;

																	BgL_fz00_7340 = BgL_runz00_2007;
																BgL_recz00_7339:
																	{	/* Eval/evaluate_comp.scm 673 */
																		obj_t BgL_rz00_7341;

																		BgL_rz00_7341 =
																			BGL_PROCEDURE_CALL1(BgL_fz00_7340,
																			BgL_nsz00_2020);
																		{	/* Eval/evaluate_comp.scm 674 */
																			bool_t BgL_test4970z00_18597;

																			if (PROCEDUREP(BgL_rz00_7341))
																				{	/* Eval/evaluate_comp.scm 674 */
																					obj_t BgL_arg1759z00_7344;

																					BgL_arg1759z00_7344 =
																						PROCEDURE_ATTR(BgL_rz00_7341);
																					if (STRUCTP(BgL_arg1759z00_7344))
																						{	/* Eval/evaluate_comp.scm 654 */
																							BgL_test4970z00_18597 =
																								(STRUCT_KEY(BgL_arg1759z00_7344)
																								==
																								BGl_symbol4573z00zz__evaluate_compz00);
																						}
																					else
																						{	/* Eval/evaluate_comp.scm 654 */
																							BgL_test4970z00_18597 =
																								((bool_t) 0);
																						}
																				}
																			else
																				{	/* Eval/evaluate_comp.scm 674 */
																					BgL_test4970z00_18597 = ((bool_t) 0);
																				}
																			if (BgL_test4970z00_18597)
																				{
																					obj_t BgL_fz00_18605;

																					BgL_fz00_18605 = BgL_rz00_7341;
																					BgL_fz00_7340 = BgL_fz00_18605;
																					goto BgL_recz00_7339;
																				}
																			else
																				{	/* Eval/evaluate_comp.scm 674 */
																					VECTOR_SET(BgL_nsz00_2020, 0L,
																						BgL_savedzd2bpzd2_7336);
																					BgL_____rz00_2024 = BgL_rz00_7341;
																				}
																		}
																	}
																}
															}
															{	/* Eval/evaluate_comp.scm 781 */
																bool_t BgL_test4973z00_18607;

																{	/* Eval/evaluate_comp.scm 781 */
																	obj_t BgL_arg4320z00_7352;

																	BgL_arg4320z00_7352 =
																		BGL_EXITD_PROTECT(BgL_ez00_2023);
																	BgL_test4973z00_18607 =
																		PAIRP(BgL_arg4320z00_7352);
																}
																if (BgL_test4973z00_18607)
																	{	/* Eval/evaluate_comp.scm 781 */
																		obj_t BgL_arg4318z00_7353;

																		{	/* Eval/evaluate_comp.scm 781 */
																			obj_t BgL_arg4319z00_7354;

																			BgL_arg4319z00_7354 =
																				BGL_EXITD_PROTECT(BgL_ez00_2023);
																			BgL_arg4318z00_7353 =
																				CDR(((obj_t) BgL_arg4319z00_7354));
																		}
																		BGL_EXITD_PROTECT_SET(BgL_ez00_2023,
																			BgL_arg4318z00_7353);
																		BUNSPEC;
																	}
																else
																	{	/* Eval/evaluate_comp.scm 781 */
																		BFALSE;
																	}
															}
															BGL_ENV_EVSTATE_SET(BgL_z12denvz12_2018,
																BgL_sz00_1998);
															return BgL_____rz00_2024;
														}
													}
												}
										}
									}
								}
							else
								{	/* Eval/evaluate_comp.scm 781 */
									if (PROCEDURE_CORRECT_ARITYP(BgL_fz00_2001,
											(int) (BgL_nbargsz00_15794)))
										{	/* Eval/evaluate_comp.scm 781 */
											return
												BGl_subrzd2callzd2withzd2pushzd2zz__evaluate_compz00
												(BgL_sz00_1998, BgL_fz00_2001, BgL_argsz00_15795,
												BgL_bpz00_2000, BINT(BgL_siza7eza7_15796));
										}
									else
										{	/* Eval/evaluate_comp.scm 781 */
											return
												BGl_evarityzd2errorzd2zz__everrorz00(
												(((BgL_ev_appz00_bglt) COBJECT(BgL_i1165z00_15792))->
													BgL_locz00), BgL_symbzd2funzd2_15793,
												(int) (BgL_nbargsz00_15794),
												PROCEDURE_ARITY(BgL_fz00_2001));
		}}}}}}}

	}



/* comp-call0 */
	obj_t BGl_compzd2call0zd2zz__evaluate_compz00(obj_t BgL_locz00_138,
		BgL_ev_exprz00_bglt BgL_vfunz00_139, obj_t BgL_symbzd2funzd2_140,
		obj_t BgL_funz00_141, obj_t BgL_tailzf3zf3_142, obj_t BgL_stkz00_143,
		long BgL_siza7eza7_144)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			{	/* Eval/evaluate_comp.scm 896 */
				obj_t BgL_cfunz00_2032;

				BgL_cfunz00_2032 =
					BGl_iszd2constantzd2funzf3zf3zz__evaluate_compz00(BgL_vfunz00_139, 0L,
					BgL_locz00_138, BgL_symbzd2funzd2_140);
				if (CBOOL(BgL_cfunz00_2032))
					{	/* Eval/evaluate_comp.scm 896 */
						bool_t BgL_test4976z00_18627;

						{	/* Eval/evaluate_comp.scm 896 */
							int BgL_a1364z00_2046;

							BgL_a1364z00_2046 = bgl_debug();
							BgL_test4976z00_18627 = ((long) (BgL_a1364z00_2046) > 0L);
						}
						if (BgL_test4976z00_18627)
							{	/* Eval/evaluate_comp.scm 896 */
								obj_t BgL_zc3z04anonymousza31980ze3z87_13670;

								BgL_zc3z04anonymousza31980ze3z87_13670 =
									MAKE_FX_PROCEDURE
									(BGl_z62zc3z04anonymousza31980ze3ze5zz__evaluate_compz00,
									(int) (1L), (int) (3L));
								PROCEDURE_SET(BgL_zc3z04anonymousza31980ze3z87_13670,
									(int) (0L), BINT(BgL_siza7eza7_144));
								PROCEDURE_SET(BgL_zc3z04anonymousza31980ze3z87_13670,
									(int) (1L), BgL_locz00_138);
								PROCEDURE_SET(BgL_zc3z04anonymousza31980ze3z87_13670,
									(int) (2L), BgL_cfunz00_2032);
								return BgL_zc3z04anonymousza31980ze3z87_13670;
							}
						else
							{	/* Eval/evaluate_comp.scm 896 */
								obj_t BgL_zc3z04anonymousza31982ze3z87_13671;

								BgL_zc3z04anonymousza31982ze3z87_13671 =
									MAKE_FX_PROCEDURE
									(BGl_z62zc3z04anonymousza31982ze3ze5zz__evaluate_compz00,
									(int) (1L), (int) (2L));
								PROCEDURE_SET(BgL_zc3z04anonymousza31982ze3z87_13671,
									(int) (0L), BINT(BgL_siza7eza7_144));
								PROCEDURE_SET(BgL_zc3z04anonymousza31982ze3z87_13671,
									(int) (1L), BgL_cfunz00_2032);
								return BgL_zc3z04anonymousza31982ze3z87_13671;
							}
					}
				else
					{	/* Eval/evaluate_comp.scm 896 */
						if (CBOOL(BgL_tailzf3zf3_142))
							{	/* Eval/evaluate_comp.scm 896 */
								bool_t BgL_test4978z00_18651;

								{	/* Eval/evaluate_comp.scm 896 */
									int BgL_a1365z00_2106;

									BgL_a1365z00_2106 = bgl_debug();
									BgL_test4978z00_18651 = ((long) (BgL_a1365z00_2106) > 0L);
								}
								if (BgL_test4978z00_18651)
									{	/* Eval/evaluate_comp.scm 896 */
										obj_t BgL_zc3z04anonymousza31984ze3z87_13672;

										BgL_zc3z04anonymousza31984ze3z87_13672 =
											MAKE_FX_PROCEDURE
											(BGl_z62zc3z04anonymousza31984ze3ze5zz__evaluate_compz00,
											(int) (1L), (int) (4L));
										PROCEDURE_SET(BgL_zc3z04anonymousza31984ze3z87_13672,
											(int) (0L), BgL_funz00_141);
										PROCEDURE_SET(BgL_zc3z04anonymousza31984ze3z87_13672,
											(int) (1L), BgL_locz00_138);
										PROCEDURE_SET(BgL_zc3z04anonymousza31984ze3z87_13672,
											(int) (2L), BgL_symbzd2funzd2_140);
										PROCEDURE_SET(BgL_zc3z04anonymousza31984ze3z87_13672,
											(int) (3L), BINT(BgL_siza7eza7_144));
										return BgL_zc3z04anonymousza31984ze3z87_13672;
									}
								else
									{	/* Eval/evaluate_comp.scm 896 */
										obj_t BgL_zc3z04anonymousza31996ze3z87_13673;

										BgL_zc3z04anonymousza31996ze3z87_13673 =
											MAKE_FX_PROCEDURE
											(BGl_z62zc3z04anonymousza31996ze3ze5zz__evaluate_compz00,
											(int) (1L), (int) (4L));
										PROCEDURE_SET(BgL_zc3z04anonymousza31996ze3z87_13673,
											(int) (0L), BgL_funz00_141);
										PROCEDURE_SET(BgL_zc3z04anonymousza31996ze3z87_13673,
											(int) (1L), BgL_locz00_138);
										PROCEDURE_SET(BgL_zc3z04anonymousza31996ze3z87_13673,
											(int) (2L), BgL_symbzd2funzd2_140);
										PROCEDURE_SET(BgL_zc3z04anonymousza31996ze3z87_13673,
											(int) (3L), BINT(BgL_siza7eza7_144));
										return BgL_zc3z04anonymousza31996ze3z87_13673;
									}
							}
						else
							{	/* Eval/evaluate_comp.scm 896 */
								bool_t BgL_test4979z00_18679;

								{	/* Eval/evaluate_comp.scm 896 */
									int BgL_a1366z00_2166;

									BgL_a1366z00_2166 = bgl_debug();
									BgL_test4979z00_18679 = ((long) (BgL_a1366z00_2166) > 0L);
								}
								if (BgL_test4979z00_18679)
									{	/* Eval/evaluate_comp.scm 896 */
										obj_t BgL_zc3z04anonymousza32010ze3z87_13674;

										BgL_zc3z04anonymousza32010ze3z87_13674 =
											MAKE_FX_PROCEDURE
											(BGl_z62zc3z04anonymousza32010ze3ze5zz__evaluate_compz00,
											(int) (1L), (int) (4L));
										PROCEDURE_SET(BgL_zc3z04anonymousza32010ze3z87_13674,
											(int) (0L), BgL_funz00_141);
										PROCEDURE_SET(BgL_zc3z04anonymousza32010ze3z87_13674,
											(int) (1L), BgL_locz00_138);
										PROCEDURE_SET(BgL_zc3z04anonymousza32010ze3z87_13674,
											(int) (2L), BgL_symbzd2funzd2_140);
										PROCEDURE_SET(BgL_zc3z04anonymousza32010ze3z87_13674,
											(int) (3L), BINT(BgL_siza7eza7_144));
										return BgL_zc3z04anonymousza32010ze3z87_13674;
									}
								else
									{	/* Eval/evaluate_comp.scm 896 */
										obj_t BgL_zc3z04anonymousza32024ze3z87_13675;

										BgL_zc3z04anonymousza32024ze3z87_13675 =
											MAKE_FX_PROCEDURE
											(BGl_z62zc3z04anonymousza32024ze3ze5zz__evaluate_compz00,
											(int) (1L), (int) (4L));
										PROCEDURE_SET(BgL_zc3z04anonymousza32024ze3z87_13675,
											(int) (0L), BgL_funz00_141);
										PROCEDURE_SET(BgL_zc3z04anonymousza32024ze3z87_13675,
											(int) (1L), BgL_locz00_138);
										PROCEDURE_SET(BgL_zc3z04anonymousza32024ze3z87_13675,
											(int) (2L), BgL_symbzd2funzd2_140);
										PROCEDURE_SET(BgL_zc3z04anonymousza32024ze3z87_13675,
											(int) (3L), BINT(BgL_siza7eza7_144));
										return BgL_zc3z04anonymousza32024ze3z87_13675;
									}
							}
					}
			}
		}

	}



/* &<@anonymous:1980> */
	obj_t BGl_z62zc3z04anonymousza31980ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13676, obj_t BgL_sz00_13680)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			{	/* Eval/evaluate_comp.scm 896 */
				long BgL_siza7eza7_13677;
				obj_t BgL_locz00_13678;
				obj_t BgL_cfunz00_13679;

				BgL_siza7eza7_13677 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_13676, (int) (0L)));
				BgL_locz00_13678 = PROCEDURE_REF(BgL_envz00_13676, (int) (1L));
				BgL_cfunz00_13679 = PROCEDURE_REF(BgL_envz00_13676, (int) (2L));
				{	/* Eval/evaluate_comp.scm 896 */
					obj_t BgL_bpz00_15894;

					BgL_bpz00_15894 = VECTOR_REF(((obj_t) BgL_sz00_13680), 0L);
					{	/* Eval/evaluate_comp.scm 896 */

						{	/* Eval/evaluate_comp.scm 896 */
							long BgL_nbpz00_15895;

							BgL_nbpz00_15895 =
								((long) CINT(BgL_bpz00_15894) + BgL_siza7eza7_13677);
							VECTOR_SET(((obj_t) BgL_sz00_13680), 0L, BINT(BgL_nbpz00_15895));
							{	/* Eval/evaluate_comp.scm 896 */
								obj_t BgL_tmpz00_18721;

								BgL_tmpz00_18721 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_SET_TRACE_LOCATION(BgL_tmpz00_18721, BgL_locz00_13678);
							}
							{	/* Eval/evaluate_comp.scm 896 */
								obj_t BgL_rz00_15896;

								BgL_rz00_15896 = BGL_PROCEDURE_CALL0(BgL_cfunz00_13679);
								VECTOR_SET(((obj_t) BgL_sz00_13680), 0L, BgL_bpz00_15894);
								return BgL_rz00_15896;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:1982> */
	obj_t BGl_z62zc3z04anonymousza31982ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13681, obj_t BgL_sz00_13684)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			{	/* Eval/evaluate_comp.scm 896 */
				long BgL_siza7eza7_13682;
				obj_t BgL_cfunz00_13683;

				BgL_siza7eza7_13682 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_13681, (int) (0L)));
				BgL_cfunz00_13683 = PROCEDURE_REF(BgL_envz00_13681, (int) (1L));
				{	/* Eval/evaluate_comp.scm 896 */
					obj_t BgL_bpz00_15897;

					BgL_bpz00_15897 = VECTOR_REF(((obj_t) BgL_sz00_13684), 0L);
					{	/* Eval/evaluate_comp.scm 896 */

						{	/* Eval/evaluate_comp.scm 896 */
							long BgL_nbpz00_15898;

							BgL_nbpz00_15898 =
								((long) CINT(BgL_bpz00_15897) + BgL_siza7eza7_13682);
							VECTOR_SET(((obj_t) BgL_sz00_13684), 0L, BINT(BgL_nbpz00_15898));
							{	/* Eval/evaluate_comp.scm 896 */
								obj_t BgL_rz00_15899;

								BgL_rz00_15899 = BGL_PROCEDURE_CALL0(BgL_cfunz00_13683);
								VECTOR_SET(((obj_t) BgL_sz00_13684), 0L, BgL_bpz00_15897);
								return BgL_rz00_15899;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:1984> */
	obj_t BGl_z62zc3z04anonymousza31984ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13685, obj_t BgL_sz00_13690)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			return
				BGl_zc3z04anonymousza31984ze3ze70z60zz__evaluate_compz00(
				(long) CINT(PROCEDURE_REF(BgL_envz00_13685,
						(int) (3L))),
				PROCEDURE_REF(BgL_envz00_13685,
					(int) (2L)),
				PROCEDURE_REF(BgL_envz00_13685,
					(int) (1L)),
				PROCEDURE_REF(BgL_envz00_13685, (int) (0L)), BgL_sz00_13690);
		}

	}



/* <@anonymous:1984>~0 */
	obj_t BGl_zc3z04anonymousza31984ze3ze70z60zz__evaluate_compz00(long
		BgL_siza7eza7_15790, obj_t BgL_symbzd2funzd2_15789, obj_t BgL_locz00_15788,
		obj_t BgL_funz00_15787, obj_t BgL_sz00_2049)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			{	/* Eval/evaluate_comp.scm 896 */
				obj_t BgL_bpz00_2051;

				BgL_bpz00_2051 = VECTOR_REF(((obj_t) BgL_sz00_2049), 0L);
				{	/* Eval/evaluate_comp.scm 896 */
					obj_t BgL_fz00_2052;

					BgL_fz00_2052 = BGL_PROCEDURE_CALL1(BgL_funz00_15787, BgL_sz00_2049);
					if (PROCEDUREP(BgL_fz00_2052))
						{	/* Eval/evaluate_comp.scm 896 */
							BFALSE;
						}
					else
						{	/* Eval/evaluate_comp.scm 896 */
							BGl_evtypezd2errorzd2zz__everrorz00(BgL_locz00_15788,
								BGl_string4577z00zz__evaluate_compz00,
								BGl_string4593z00zz__evaluate_compz00, BgL_fz00_2052);
						}
					{	/* Eval/evaluate_comp.scm 896 */
						obj_t BgL_ufz00_2054;

						{	/* Eval/evaluate_comp.scm 896 */
							obj_t BgL_tmpz00_18765;

							BgL_tmpz00_18765 = ((obj_t) BgL_fz00_2052);
							BgL_ufz00_2054 = PROCEDURE_ATTR(BgL_tmpz00_18765);
						}
						{	/* Eval/evaluate_comp.scm 896 */
							bool_t BgL_test4981z00_18768;

							if (STRUCTP(BgL_ufz00_2054))
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test4981z00_18768 =
										(STRUCT_KEY(BgL_ufz00_2054) ==
										BGl_symbol4594z00zz__evaluate_compz00);
								}
							else
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test4981z00_18768 = ((bool_t) 0);
								}
							if (BgL_test4981z00_18768)
								{	/* Eval/evaluate_comp.scm 896 */
									obj_t BgL_arityz00_2056;
									obj_t BgL_runz00_2057;
									obj_t BgL_sfz00_2058;

									BgL_arityz00_2056 = STRUCT_REF(BgL_ufz00_2054, (int) (0L));
									BgL_runz00_2057 = STRUCT_REF(BgL_ufz00_2054, (int) (1L));
									BgL_sfz00_2058 = STRUCT_REF(BgL_ufz00_2054, (int) (2L));
									if (((long) CINT(BgL_arityz00_2056) == 0L))
										{	/* Eval/evaluate_comp.scm 896 */
											BUNSPEC;
										}
									else
										{	/* Eval/evaluate_comp.scm 896 */
											if (INTEGERP(BgL_arityz00_2056))
												{	/* Eval/evaluate_comp.scm 896 */
													switch ((long) CINT(BgL_arityz00_2056))
														{
														case (-1L):

															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg1988z00_2063;
																obj_t BgL_arg1989z00_2064;

																BgL_arg1988z00_2063 =
																	((long) CINT(BgL_bpz00_2051) + 0L);
																BgL_arg1989z00_2064 = BNIL;
																VECTOR_SET(
																	((obj_t) BgL_sz00_2049), BgL_arg1988z00_2063,
																	BgL_arg1989z00_2064);
															} break;
														default:
															BGl_evarityzd2errorzd2zz__everrorz00
																(BgL_locz00_15788, STRUCT_REF(BgL_ufz00_2054,
																	(int) (3L)), (int) (0L),
																CINT(BgL_arityz00_2056));
												}}
											else
												{	/* Eval/evaluate_comp.scm 896 */
													BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_15788,
														STRUCT_REF(BgL_ufz00_2054,
															(int) (3L)), (int) (0L), CINT(BgL_arityz00_2056));
										}}
									{	/* Eval/evaluate_comp.scm 896 */
										obj_t BgL_z12denvz12_2067;

										BgL_z12denvz12_2067 = BGL_CURRENT_DYNAMIC_ENV();
										BGL_ENV_SET_TRACE_LOCATION(BgL_z12denvz12_2067,
											BgL_locz00_15788);
										if ((((long) CINT(BgL_bpz00_2051) +
													(long) CINT(BgL_sfz00_2058)) <
												VECTOR_LENGTH(((obj_t) BgL_sz00_2049))))
											{	/* Eval/evaluate_comp.scm 896 */
												return BgL_runz00_2057;
											}
										else
											{	/* Eval/evaluate_comp.scm 896 */
												obj_t BgL_nsz00_2069;

												BgL_nsz00_2069 =
													BGl_makezd2statezd2zz__evaluate_compz00();
												{	/* Eval/evaluate_comp.scm 896 */
													long BgL_arg1993z00_2071;

													BgL_arg1993z00_2071 =
														((long) CINT(BgL_bpz00_2051) + 0L);
													BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00
														(BgL_nsz00_2069, 2L, BgL_sz00_2049, BgL_bpz00_2051,
														BINT(BgL_arg1993z00_2071));
												}
												VECTOR_SET(BgL_nsz00_2069, 1L, BgL_sz00_2049);
												BGL_ENV_EVSTATE_SET(BgL_z12denvz12_2067,
													BgL_nsz00_2069);
												{	/* Eval/evaluate_comp.scm 896 */
													obj_t BgL_ez00_2072;

													BgL_ez00_2072 = BGL_EXITD_TOP_AS_OBJ();
													{	/* Eval/evaluate_comp.scm 896 */
														obj_t BgL_arg4321z00_7399;

														{	/* Eval/evaluate_comp.scm 896 */
															obj_t BgL_arg4322z00_7400;

															BgL_arg4322z00_7400 =
																BGL_EXITD_PROTECT(BgL_ez00_2072);
															BgL_arg4321z00_7399 =
																MAKE_YOUNG_PAIR(BgL_sz00_2049,
																BgL_arg4322z00_7400);
														}
														BGL_EXITD_PROTECT_SET(BgL_ez00_2072,
															BgL_arg4321z00_7399);
														BUNSPEC;
													}
													{	/* Eval/evaluate_comp.scm 896 */
														obj_t BgL_____rz00_2073;

														{	/* Eval/evaluate_comp.scm 670 */
															obj_t BgL_savedzd2bpzd2_7401;

															BgL_savedzd2bpzd2_7401 =
																VECTOR_REF(BgL_nsz00_2069, 0L);
															VECTOR_SET(BgL_nsz00_2069, 0L, BINT(2L));
															{
																obj_t BgL_fz00_7405;

																BgL_fz00_7405 = BgL_runz00_2057;
															BgL_recz00_7404:
																{	/* Eval/evaluate_comp.scm 673 */
																	obj_t BgL_rz00_7406;

																	BgL_rz00_7406 =
																		BGL_PROCEDURE_CALL1(BgL_fz00_7405,
																		BgL_nsz00_2069);
																	{	/* Eval/evaluate_comp.scm 674 */
																		bool_t BgL_test4986z00_18827;

																		if (PROCEDUREP(BgL_rz00_7406))
																			{	/* Eval/evaluate_comp.scm 674 */
																				obj_t BgL_arg1759z00_7409;

																				BgL_arg1759z00_7409 =
																					PROCEDURE_ATTR(BgL_rz00_7406);
																				if (STRUCTP(BgL_arg1759z00_7409))
																					{	/* Eval/evaluate_comp.scm 654 */
																						BgL_test4986z00_18827 =
																							(STRUCT_KEY(BgL_arg1759z00_7409)
																							==
																							BGl_symbol4573z00zz__evaluate_compz00);
																					}
																				else
																					{	/* Eval/evaluate_comp.scm 654 */
																						BgL_test4986z00_18827 =
																							((bool_t) 0);
																					}
																			}
																		else
																			{	/* Eval/evaluate_comp.scm 674 */
																				BgL_test4986z00_18827 = ((bool_t) 0);
																			}
																		if (BgL_test4986z00_18827)
																			{
																				obj_t BgL_fz00_18835;

																				BgL_fz00_18835 = BgL_rz00_7406;
																				BgL_fz00_7405 = BgL_fz00_18835;
																				goto BgL_recz00_7404;
																			}
																		else
																			{	/* Eval/evaluate_comp.scm 674 */
																				VECTOR_SET(BgL_nsz00_2069, 0L,
																					BgL_savedzd2bpzd2_7401);
																				BgL_____rz00_2073 = BgL_rz00_7406;
																			}
																	}
																}
															}
														}
														{	/* Eval/evaluate_comp.scm 896 */
															bool_t BgL_test4989z00_18837;

															{	/* Eval/evaluate_comp.scm 896 */
																obj_t BgL_arg4320z00_7417;

																BgL_arg4320z00_7417 =
																	BGL_EXITD_PROTECT(BgL_ez00_2072);
																BgL_test4989z00_18837 =
																	PAIRP(BgL_arg4320z00_7417);
															}
															if (BgL_test4989z00_18837)
																{	/* Eval/evaluate_comp.scm 896 */
																	obj_t BgL_arg4318z00_7418;

																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_arg4319z00_7419;

																		BgL_arg4319z00_7419 =
																			BGL_EXITD_PROTECT(BgL_ez00_2072);
																		BgL_arg4318z00_7418 =
																			CDR(((obj_t) BgL_arg4319z00_7419));
																	}
																	BGL_EXITD_PROTECT_SET(BgL_ez00_2072,
																		BgL_arg4318z00_7418);
																	BUNSPEC;
																}
															else
																{	/* Eval/evaluate_comp.scm 896 */
																	BFALSE;
																}
														}
														BGL_ENV_EVSTATE_SET(BgL_z12denvz12_2067,
															BgL_sz00_2049);
														return BgL_____rz00_2073;
													}
												}
											}
									}
								}
							else
								{	/* Eval/evaluate_comp.scm 896 */
									if (PROCEDURE_CORRECT_ARITYP(BgL_fz00_2052, (int) (0L)))
										{	/* Eval/evaluate_comp.scm 896 */
											long BgL_nbpz00_2074;

											BgL_nbpz00_2074 =
												((long) CINT(BgL_bpz00_2051) + BgL_siza7eza7_15790);
											VECTOR_SET(
												((obj_t) BgL_sz00_2049), 0L, BINT(BgL_nbpz00_2074));
											{	/* Eval/evaluate_comp.scm 896 */
												obj_t BgL_tmpz00_18853;

												BgL_tmpz00_18853 = BGL_CURRENT_DYNAMIC_ENV();
												BGL_ENV_SET_TRACE_LOCATION(BgL_tmpz00_18853,
													BgL_locz00_15788);
											}
											{	/* Eval/evaluate_comp.scm 896 */
												obj_t BgL_rz00_2076;

												BgL_rz00_2076 = BGL_PROCEDURE_CALL0(BgL_fz00_2052);
												VECTOR_SET(((obj_t) BgL_sz00_2049), 0L, BgL_bpz00_2051);
												return BgL_rz00_2076;
											}
										}
									else
										{	/* Eval/evaluate_comp.scm 896 */
											return
												BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_15788,
												BgL_symbzd2funzd2_15789, (int) (0L),
												PROCEDURE_ARITY(BgL_fz00_2052));
		}}}}}}}

	}



/* &<@anonymous:1996> */
	obj_t BGl_z62zc3z04anonymousza31996ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13691, obj_t BgL_sz00_13696)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			return
				BGl_zc3z04anonymousza31996ze3ze70z60zz__evaluate_compz00(
				(long) CINT(PROCEDURE_REF(BgL_envz00_13691,
						(int) (3L))),
				PROCEDURE_REF(BgL_envz00_13691,
					(int) (2L)),
				PROCEDURE_REF(BgL_envz00_13691,
					(int) (1L)),
				PROCEDURE_REF(BgL_envz00_13691, (int) (0L)), BgL_sz00_13696);
		}

	}



/* <@anonymous:1996>~0 */
	obj_t BGl_zc3z04anonymousza31996ze3ze70z60zz__evaluate_compz00(long
		BgL_siza7eza7_15786, obj_t BgL_symbzd2funzd2_15785, obj_t BgL_locz00_15784,
		obj_t BgL_funz00_15783, obj_t BgL_sz00_2078)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			{	/* Eval/evaluate_comp.scm 896 */
				obj_t BgL_bpz00_2080;

				BgL_bpz00_2080 = VECTOR_REF(((obj_t) BgL_sz00_2078), 0L);
				{	/* Eval/evaluate_comp.scm 896 */
					obj_t BgL_fz00_2081;

					BgL_fz00_2081 = BGL_PROCEDURE_CALL1(BgL_funz00_15783, BgL_sz00_2078);
					if (PROCEDUREP(BgL_fz00_2081))
						{	/* Eval/evaluate_comp.scm 896 */
							BFALSE;
						}
					else
						{	/* Eval/evaluate_comp.scm 896 */
							BGl_evtypezd2errorzd2zz__everrorz00(BgL_locz00_15784,
								BGl_string4577z00zz__evaluate_compz00,
								BGl_string4593z00zz__evaluate_compz00, BgL_fz00_2081);
						}
					{	/* Eval/evaluate_comp.scm 896 */
						obj_t BgL_ufz00_2083;

						{	/* Eval/evaluate_comp.scm 896 */
							obj_t BgL_tmpz00_18883;

							BgL_tmpz00_18883 = ((obj_t) BgL_fz00_2081);
							BgL_ufz00_2083 = PROCEDURE_ATTR(BgL_tmpz00_18883);
						}
						{	/* Eval/evaluate_comp.scm 896 */
							bool_t BgL_test4992z00_18886;

							if (STRUCTP(BgL_ufz00_2083))
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test4992z00_18886 =
										(STRUCT_KEY(BgL_ufz00_2083) ==
										BGl_symbol4594z00zz__evaluate_compz00);
								}
							else
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test4992z00_18886 = ((bool_t) 0);
								}
							if (BgL_test4992z00_18886)
								{	/* Eval/evaluate_comp.scm 896 */
									obj_t BgL_arityz00_2085;
									obj_t BgL_runz00_2086;
									obj_t BgL_sfz00_2087;

									BgL_arityz00_2085 = STRUCT_REF(BgL_ufz00_2083, (int) (0L));
									BgL_runz00_2086 = STRUCT_REF(BgL_ufz00_2083, (int) (1L));
									BgL_sfz00_2087 = STRUCT_REF(BgL_ufz00_2083, (int) (2L));
									if (((long) CINT(BgL_arityz00_2085) == 0L))
										{	/* Eval/evaluate_comp.scm 896 */
											BUNSPEC;
										}
									else
										{	/* Eval/evaluate_comp.scm 896 */
											if (INTEGERP(BgL_arityz00_2085))
												{	/* Eval/evaluate_comp.scm 896 */
													switch ((long) CINT(BgL_arityz00_2085))
														{
														case (-1L):

															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2000z00_2092;
																obj_t BgL_arg2002z00_2093;

																BgL_arg2000z00_2092 =
																	((long) CINT(BgL_bpz00_2080) + 0L);
																BgL_arg2002z00_2093 = BNIL;
																VECTOR_SET(
																	((obj_t) BgL_sz00_2078), BgL_arg2000z00_2092,
																	BgL_arg2002z00_2093);
															} break;
														default:
															BGl_evarityzd2errorzd2zz__everrorz00
																(BgL_locz00_15784, STRUCT_REF(BgL_ufz00_2083,
																	(int) (3L)), (int) (0L),
																CINT(BgL_arityz00_2085));
												}}
											else
												{	/* Eval/evaluate_comp.scm 896 */
													BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_15784,
														STRUCT_REF(BgL_ufz00_2083,
															(int) (3L)), (int) (0L), CINT(BgL_arityz00_2085));
										}}
									{	/* Eval/evaluate_comp.scm 896 */
										obj_t BgL_z12denvz12_2096;

										BgL_z12denvz12_2096 = BGL_CURRENT_DYNAMIC_ENV();
										if (
											(((long) CINT(BgL_bpz00_2080) +
													(long) CINT(BgL_sfz00_2087)) <
												VECTOR_LENGTH(((obj_t) BgL_sz00_2078))))
											{	/* Eval/evaluate_comp.scm 896 */
												return BgL_runz00_2086;
											}
										else
											{	/* Eval/evaluate_comp.scm 896 */
												obj_t BgL_nsz00_2098;

												BgL_nsz00_2098 =
													BGl_makezd2statezd2zz__evaluate_compz00();
												{	/* Eval/evaluate_comp.scm 896 */
													long BgL_arg2007z00_2100;

													BgL_arg2007z00_2100 =
														((long) CINT(BgL_bpz00_2080) + 0L);
													BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00
														(BgL_nsz00_2098, 2L, BgL_sz00_2078, BgL_bpz00_2080,
														BINT(BgL_arg2007z00_2100));
												}
												VECTOR_SET(BgL_nsz00_2098, 1L, BgL_sz00_2078);
												BGL_ENV_EVSTATE_SET(BgL_z12denvz12_2096,
													BgL_nsz00_2098);
												{	/* Eval/evaluate_comp.scm 896 */
													obj_t BgL_ez00_2101;

													BgL_ez00_2101 = BGL_EXITD_TOP_AS_OBJ();
													{	/* Eval/evaluate_comp.scm 896 */
														obj_t BgL_arg4321z00_7456;

														{	/* Eval/evaluate_comp.scm 896 */
															obj_t BgL_arg4322z00_7457;

															BgL_arg4322z00_7457 =
																BGL_EXITD_PROTECT(BgL_ez00_2101);
															BgL_arg4321z00_7456 =
																MAKE_YOUNG_PAIR(BgL_sz00_2078,
																BgL_arg4322z00_7457);
														}
														BGL_EXITD_PROTECT_SET(BgL_ez00_2101,
															BgL_arg4321z00_7456);
														BUNSPEC;
													}
													{	/* Eval/evaluate_comp.scm 896 */
														obj_t BgL_____rz00_2102;

														{	/* Eval/evaluate_comp.scm 670 */
															obj_t BgL_savedzd2bpzd2_7458;

															BgL_savedzd2bpzd2_7458 =
																VECTOR_REF(BgL_nsz00_2098, 0L);
															VECTOR_SET(BgL_nsz00_2098, 0L, BINT(2L));
															{
																obj_t BgL_fz00_7462;

																BgL_fz00_7462 = BgL_runz00_2086;
															BgL_recz00_7461:
																{	/* Eval/evaluate_comp.scm 673 */
																	obj_t BgL_rz00_7463;

																	BgL_rz00_7463 =
																		BGL_PROCEDURE_CALL1(BgL_fz00_7462,
																		BgL_nsz00_2098);
																	{	/* Eval/evaluate_comp.scm 674 */
																		bool_t BgL_test5000z00_18944;

																		if (PROCEDUREP(BgL_rz00_7463))
																			{	/* Eval/evaluate_comp.scm 674 */
																				obj_t BgL_arg1759z00_7466;

																				BgL_arg1759z00_7466 =
																					PROCEDURE_ATTR(BgL_rz00_7463);
																				if (STRUCTP(BgL_arg1759z00_7466))
																					{	/* Eval/evaluate_comp.scm 654 */
																						BgL_test5000z00_18944 =
																							(STRUCT_KEY(BgL_arg1759z00_7466)
																							==
																							BGl_symbol4573z00zz__evaluate_compz00);
																					}
																				else
																					{	/* Eval/evaluate_comp.scm 654 */
																						BgL_test5000z00_18944 =
																							((bool_t) 0);
																					}
																			}
																		else
																			{	/* Eval/evaluate_comp.scm 674 */
																				BgL_test5000z00_18944 = ((bool_t) 0);
																			}
																		if (BgL_test5000z00_18944)
																			{
																				obj_t BgL_fz00_18952;

																				BgL_fz00_18952 = BgL_rz00_7463;
																				BgL_fz00_7462 = BgL_fz00_18952;
																				goto BgL_recz00_7461;
																			}
																		else
																			{	/* Eval/evaluate_comp.scm 674 */
																				VECTOR_SET(BgL_nsz00_2098, 0L,
																					BgL_savedzd2bpzd2_7458);
																				BgL_____rz00_2102 = BgL_rz00_7463;
																			}
																	}
																}
															}
														}
														{	/* Eval/evaluate_comp.scm 896 */
															bool_t BgL_test5003z00_18954;

															{	/* Eval/evaluate_comp.scm 896 */
																obj_t BgL_arg4320z00_7474;

																BgL_arg4320z00_7474 =
																	BGL_EXITD_PROTECT(BgL_ez00_2101);
																BgL_test5003z00_18954 =
																	PAIRP(BgL_arg4320z00_7474);
															}
															if (BgL_test5003z00_18954)
																{	/* Eval/evaluate_comp.scm 896 */
																	obj_t BgL_arg4318z00_7475;

																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_arg4319z00_7476;

																		BgL_arg4319z00_7476 =
																			BGL_EXITD_PROTECT(BgL_ez00_2101);
																		BgL_arg4318z00_7475 =
																			CDR(((obj_t) BgL_arg4319z00_7476));
																	}
																	BGL_EXITD_PROTECT_SET(BgL_ez00_2101,
																		BgL_arg4318z00_7475);
																	BUNSPEC;
																}
															else
																{	/* Eval/evaluate_comp.scm 896 */
																	BFALSE;
																}
														}
														BGL_ENV_EVSTATE_SET(BgL_z12denvz12_2096,
															BgL_sz00_2078);
														return BgL_____rz00_2102;
													}
												}
											}
									}
								}
							else
								{	/* Eval/evaluate_comp.scm 896 */
									if (PROCEDURE_CORRECT_ARITYP(BgL_fz00_2081, (int) (0L)))
										{	/* Eval/evaluate_comp.scm 896 */
											long BgL_nbpz00_2103;

											BgL_nbpz00_2103 =
												((long) CINT(BgL_bpz00_2080) + BgL_siza7eza7_15786);
											VECTOR_SET(
												((obj_t) BgL_sz00_2078), 0L, BINT(BgL_nbpz00_2103));
											{	/* Eval/evaluate_comp.scm 896 */
												obj_t BgL_rz00_2104;

												BgL_rz00_2104 = BGL_PROCEDURE_CALL0(BgL_fz00_2081);
												VECTOR_SET(((obj_t) BgL_sz00_2078), 0L, BgL_bpz00_2080);
												return BgL_rz00_2104;
											}
										}
									else
										{	/* Eval/evaluate_comp.scm 896 */
											return
												BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_15784,
												BgL_symbzd2funzd2_15785, (int) (0L),
												PROCEDURE_ARITY(BgL_fz00_2081));
		}}}}}}}

	}



/* &<@anonymous:2010> */
	obj_t BGl_z62zc3z04anonymousza32010ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13697, obj_t BgL_sz00_13702)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			return
				BGl_zc3z04anonymousza32010ze3ze70z60zz__evaluate_compz00(
				(long) CINT(PROCEDURE_REF(BgL_envz00_13697,
						(int) (3L))),
				PROCEDURE_REF(BgL_envz00_13697,
					(int) (2L)),
				PROCEDURE_REF(BgL_envz00_13697,
					(int) (1L)),
				PROCEDURE_REF(BgL_envz00_13697, (int) (0L)), BgL_sz00_13702);
		}

	}



/* <@anonymous:2010>~0 */
	obj_t BGl_zc3z04anonymousza32010ze3ze70z60zz__evaluate_compz00(long
		BgL_siza7eza7_15782, obj_t BgL_symbzd2funzd2_15781, obj_t BgL_locz00_15780,
		obj_t BgL_funz00_15779, obj_t BgL_sz00_2109)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			{	/* Eval/evaluate_comp.scm 896 */
				obj_t BgL_bpz00_2111;

				BgL_bpz00_2111 = VECTOR_REF(((obj_t) BgL_sz00_2109), 0L);
				{	/* Eval/evaluate_comp.scm 896 */
					obj_t BgL_fz00_2112;

					BgL_fz00_2112 = BGL_PROCEDURE_CALL1(BgL_funz00_15779, BgL_sz00_2109);
					if (PROCEDUREP(BgL_fz00_2112))
						{	/* Eval/evaluate_comp.scm 896 */
							BFALSE;
						}
					else
						{	/* Eval/evaluate_comp.scm 896 */
							BGl_evtypezd2errorzd2zz__everrorz00(BgL_locz00_15780,
								BGl_string4577z00zz__evaluate_compz00,
								BGl_string4593z00zz__evaluate_compz00, BgL_fz00_2112);
						}
					{	/* Eval/evaluate_comp.scm 896 */
						obj_t BgL_ufz00_2114;

						{	/* Eval/evaluate_comp.scm 896 */
							obj_t BgL_tmpz00_18997;

							BgL_tmpz00_18997 = ((obj_t) BgL_fz00_2112);
							BgL_ufz00_2114 = PROCEDURE_ATTR(BgL_tmpz00_18997);
						}
						{	/* Eval/evaluate_comp.scm 896 */
							bool_t BgL_test5006z00_19000;

							if (STRUCTP(BgL_ufz00_2114))
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test5006z00_19000 =
										(STRUCT_KEY(BgL_ufz00_2114) ==
										BGl_symbol4594z00zz__evaluate_compz00);
								}
							else
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test5006z00_19000 = ((bool_t) 0);
								}
							if (BgL_test5006z00_19000)
								{	/* Eval/evaluate_comp.scm 896 */
									obj_t BgL_arityz00_2116;
									obj_t BgL_runz00_2117;
									obj_t BgL_sfz00_2118;

									BgL_arityz00_2116 = STRUCT_REF(BgL_ufz00_2114, (int) (0L));
									BgL_runz00_2117 = STRUCT_REF(BgL_ufz00_2114, (int) (1L));
									BgL_sfz00_2118 = STRUCT_REF(BgL_ufz00_2114, (int) (2L));
									{	/* Eval/evaluate_comp.scm 896 */
										long BgL_spz00_2119;

										BgL_spz00_2119 =
											((long) CINT(BgL_bpz00_2111) + BgL_siza7eza7_15782);
										if (((long) CINT(BgL_arityz00_2116) == 0L))
											{	/* Eval/evaluate_comp.scm 896 */
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 896 */
												if (INTEGERP(BgL_arityz00_2116))
													{	/* Eval/evaluate_comp.scm 896 */
														switch ((long) CINT(BgL_arityz00_2116))
															{
															case (-1L):

																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2016z00_2123;
																	obj_t BgL_arg2017z00_2124;

																	BgL_arg2016z00_2123 = (BgL_spz00_2119 + 0L);
																	BgL_arg2017z00_2124 = BNIL;
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2109),
																		BgL_arg2016z00_2123, BgL_arg2017z00_2124);
																} break;
															default:
																BGl_evarityzd2errorzd2zz__everrorz00
																	(BgL_locz00_15780, STRUCT_REF(BgL_ufz00_2114,
																		(int) (3L)), (int) (0L),
																	CINT(BgL_arityz00_2116));
													}}
												else
													{	/* Eval/evaluate_comp.scm 896 */
														BGl_evarityzd2errorzd2zz__everrorz00
															(BgL_locz00_15780, STRUCT_REF(BgL_ufz00_2114,
																(int) (3L)), (int) (0L),
															CINT(BgL_arityz00_2116));
											}}
										{	/* Eval/evaluate_comp.scm 896 */
											obj_t BgL_z12denvz12_2127;

											BgL_z12denvz12_2127 = BGL_CURRENT_DYNAMIC_ENV();
											BGL_ENV_SET_TRACE_LOCATION(BgL_z12denvz12_2127,
												BgL_locz00_15780);
											if (((BgL_spz00_2119 + (long) CINT(BgL_sfz00_2118)) <
													VECTOR_LENGTH(((obj_t) BgL_sz00_2109))))
												{	/* Eval/evaluate_comp.scm 896 */
													return
														BGl_catchzd2trampolinezd2zz__evaluate_compz00
														(BgL_runz00_2117, BgL_sz00_2109,
														BINT(BgL_spz00_2119));
												}
											else
												{	/* Eval/evaluate_comp.scm 896 */
													obj_t BgL_nsz00_2129;

													BgL_nsz00_2129 =
														BGl_makezd2statezd2zz__evaluate_compz00();
													{	/* Eval/evaluate_comp.scm 896 */
														long BgL_arg2021z00_2131;

														BgL_arg2021z00_2131 = (BgL_spz00_2119 + 0L);
														BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00
															(BgL_nsz00_2129, 2L, BgL_sz00_2109,
															BINT(BgL_spz00_2119), BINT(BgL_arg2021z00_2131));
													}
													VECTOR_SET(BgL_nsz00_2129, 1L, BgL_sz00_2109);
													BGL_ENV_EVSTATE_SET(BgL_z12denvz12_2127,
														BgL_nsz00_2129);
													{	/* Eval/evaluate_comp.scm 896 */
														obj_t BgL_ez00_2132;

														BgL_ez00_2132 = BGL_EXITD_TOP_AS_OBJ();
														{	/* Eval/evaluate_comp.scm 896 */
															obj_t BgL_arg4321z00_7514;

															{	/* Eval/evaluate_comp.scm 896 */
																obj_t BgL_arg4322z00_7515;

																BgL_arg4322z00_7515 =
																	BGL_EXITD_PROTECT(BgL_ez00_2132);
																BgL_arg4321z00_7514 =
																	MAKE_YOUNG_PAIR(BgL_sz00_2109,
																	BgL_arg4322z00_7515);
															}
															BGL_EXITD_PROTECT_SET(BgL_ez00_2132,
																BgL_arg4321z00_7514);
															BUNSPEC;
														}
														{	/* Eval/evaluate_comp.scm 896 */
															obj_t BgL_____rz00_2133;

															{	/* Eval/evaluate_comp.scm 670 */
																obj_t BgL_savedzd2bpzd2_7516;

																BgL_savedzd2bpzd2_7516 =
																	VECTOR_REF(BgL_nsz00_2129, 0L);
																VECTOR_SET(BgL_nsz00_2129, 0L, BINT(2L));
																{
																	obj_t BgL_fz00_7520;

																	BgL_fz00_7520 = BgL_runz00_2117;
																BgL_recz00_7519:
																	{	/* Eval/evaluate_comp.scm 673 */
																		obj_t BgL_rz00_7521;

																		BgL_rz00_7521 =
																			BGL_PROCEDURE_CALL1(BgL_fz00_7520,
																			BgL_nsz00_2129);
																		{	/* Eval/evaluate_comp.scm 674 */
																			bool_t BgL_test5011z00_19061;

																			if (PROCEDUREP(BgL_rz00_7521))
																				{	/* Eval/evaluate_comp.scm 674 */
																					obj_t BgL_arg1759z00_7524;

																					BgL_arg1759z00_7524 =
																						PROCEDURE_ATTR(BgL_rz00_7521);
																					if (STRUCTP(BgL_arg1759z00_7524))
																						{	/* Eval/evaluate_comp.scm 654 */
																							BgL_test5011z00_19061 =
																								(STRUCT_KEY(BgL_arg1759z00_7524)
																								==
																								BGl_symbol4573z00zz__evaluate_compz00);
																						}
																					else
																						{	/* Eval/evaluate_comp.scm 654 */
																							BgL_test5011z00_19061 =
																								((bool_t) 0);
																						}
																				}
																			else
																				{	/* Eval/evaluate_comp.scm 674 */
																					BgL_test5011z00_19061 = ((bool_t) 0);
																				}
																			if (BgL_test5011z00_19061)
																				{
																					obj_t BgL_fz00_19069;

																					BgL_fz00_19069 = BgL_rz00_7521;
																					BgL_fz00_7520 = BgL_fz00_19069;
																					goto BgL_recz00_7519;
																				}
																			else
																				{	/* Eval/evaluate_comp.scm 674 */
																					VECTOR_SET(BgL_nsz00_2129, 0L,
																						BgL_savedzd2bpzd2_7516);
																					BgL_____rz00_2133 = BgL_rz00_7521;
																				}
																		}
																	}
																}
															}
															{	/* Eval/evaluate_comp.scm 896 */
																bool_t BgL_test5014z00_19071;

																{	/* Eval/evaluate_comp.scm 896 */
																	obj_t BgL_arg4320z00_7532;

																	BgL_arg4320z00_7532 =
																		BGL_EXITD_PROTECT(BgL_ez00_2132);
																	BgL_test5014z00_19071 =
																		PAIRP(BgL_arg4320z00_7532);
																}
																if (BgL_test5014z00_19071)
																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_arg4318z00_7533;

																		{	/* Eval/evaluate_comp.scm 896 */
																			obj_t BgL_arg4319z00_7534;

																			BgL_arg4319z00_7534 =
																				BGL_EXITD_PROTECT(BgL_ez00_2132);
																			BgL_arg4318z00_7533 =
																				CDR(((obj_t) BgL_arg4319z00_7534));
																		}
																		BGL_EXITD_PROTECT_SET(BgL_ez00_2132,
																			BgL_arg4318z00_7533);
																		BUNSPEC;
																	}
																else
																	{	/* Eval/evaluate_comp.scm 896 */
																		BFALSE;
																	}
															}
															BGL_ENV_EVSTATE_SET(BgL_z12denvz12_2127,
																BgL_sz00_2109);
															return BgL_____rz00_2133;
														}
													}
												}
										}
									}
								}
							else
								{	/* Eval/evaluate_comp.scm 896 */
									if (PROCEDURE_CORRECT_ARITYP(BgL_fz00_2112, (int) (0L)))
										{	/* Eval/evaluate_comp.scm 896 */
											long BgL_nbpz00_2134;

											BgL_nbpz00_2134 =
												((long) CINT(BgL_bpz00_2111) + BgL_siza7eza7_15782);
											VECTOR_SET(
												((obj_t) BgL_sz00_2109), 0L, BINT(BgL_nbpz00_2134));
											{	/* Eval/evaluate_comp.scm 896 */
												obj_t BgL_tmpz00_19087;

												BgL_tmpz00_19087 = BGL_CURRENT_DYNAMIC_ENV();
												BGL_ENV_SET_TRACE_LOCATION(BgL_tmpz00_19087,
													BgL_locz00_15780);
											}
											{	/* Eval/evaluate_comp.scm 896 */
												obj_t BgL_rz00_2136;

												BgL_rz00_2136 = BGL_PROCEDURE_CALL0(BgL_fz00_2112);
												VECTOR_SET(((obj_t) BgL_sz00_2109), 0L, BgL_bpz00_2111);
												return BgL_rz00_2136;
											}
										}
									else
										{	/* Eval/evaluate_comp.scm 896 */
											return
												BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_15780,
												BgL_symbzd2funzd2_15781, (int) (0L),
												PROCEDURE_ARITY(BgL_fz00_2112));
		}}}}}}}

	}



/* &<@anonymous:2024> */
	obj_t BGl_z62zc3z04anonymousza32024ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13703, obj_t BgL_sz00_13708)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			return
				BGl_zc3z04anonymousza32024ze3ze70z60zz__evaluate_compz00(
				(long) CINT(PROCEDURE_REF(BgL_envz00_13703,
						(int) (3L))),
				PROCEDURE_REF(BgL_envz00_13703,
					(int) (2L)),
				PROCEDURE_REF(BgL_envz00_13703,
					(int) (1L)),
				PROCEDURE_REF(BgL_envz00_13703, (int) (0L)), BgL_sz00_13708);
		}

	}



/* <@anonymous:2024>~0 */
	obj_t BGl_zc3z04anonymousza32024ze3ze70z60zz__evaluate_compz00(long
		BgL_siza7eza7_15778, obj_t BgL_symbzd2funzd2_15777, obj_t BgL_locz00_15776,
		obj_t BgL_funz00_15775, obj_t BgL_sz00_2138)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			{	/* Eval/evaluate_comp.scm 896 */
				obj_t BgL_bpz00_2140;

				BgL_bpz00_2140 = VECTOR_REF(((obj_t) BgL_sz00_2138), 0L);
				{	/* Eval/evaluate_comp.scm 896 */
					obj_t BgL_fz00_2141;

					BgL_fz00_2141 = BGL_PROCEDURE_CALL1(BgL_funz00_15775, BgL_sz00_2138);
					if (PROCEDUREP(BgL_fz00_2141))
						{	/* Eval/evaluate_comp.scm 896 */
							BFALSE;
						}
					else
						{	/* Eval/evaluate_comp.scm 896 */
							BGl_evtypezd2errorzd2zz__everrorz00(BgL_locz00_15776,
								BGl_string4577z00zz__evaluate_compz00,
								BGl_string4593z00zz__evaluate_compz00, BgL_fz00_2141);
						}
					{	/* Eval/evaluate_comp.scm 896 */
						obj_t BgL_ufz00_2143;

						{	/* Eval/evaluate_comp.scm 896 */
							obj_t BgL_tmpz00_19117;

							BgL_tmpz00_19117 = ((obj_t) BgL_fz00_2141);
							BgL_ufz00_2143 = PROCEDURE_ATTR(BgL_tmpz00_19117);
						}
						{	/* Eval/evaluate_comp.scm 896 */
							bool_t BgL_test5017z00_19120;

							if (STRUCTP(BgL_ufz00_2143))
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test5017z00_19120 =
										(STRUCT_KEY(BgL_ufz00_2143) ==
										BGl_symbol4594z00zz__evaluate_compz00);
								}
							else
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test5017z00_19120 = ((bool_t) 0);
								}
							if (BgL_test5017z00_19120)
								{	/* Eval/evaluate_comp.scm 896 */
									obj_t BgL_arityz00_2145;
									obj_t BgL_runz00_2146;
									obj_t BgL_sfz00_2147;

									BgL_arityz00_2145 = STRUCT_REF(BgL_ufz00_2143, (int) (0L));
									BgL_runz00_2146 = STRUCT_REF(BgL_ufz00_2143, (int) (1L));
									BgL_sfz00_2147 = STRUCT_REF(BgL_ufz00_2143, (int) (2L));
									{	/* Eval/evaluate_comp.scm 896 */
										long BgL_spz00_2148;

										BgL_spz00_2148 =
											((long) CINT(BgL_bpz00_2140) + BgL_siza7eza7_15778);
										if (((long) CINT(BgL_arityz00_2145) == 0L))
											{	/* Eval/evaluate_comp.scm 896 */
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 896 */
												if (INTEGERP(BgL_arityz00_2145))
													{	/* Eval/evaluate_comp.scm 896 */
														switch ((long) CINT(BgL_arityz00_2145))
															{
															case (-1L):

																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2028z00_2152;
																	obj_t BgL_arg2029z00_2153;

																	BgL_arg2028z00_2152 = (BgL_spz00_2148 + 0L);
																	BgL_arg2029z00_2153 = BNIL;
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2138),
																		BgL_arg2028z00_2152, BgL_arg2029z00_2153);
																} break;
															default:
																BGl_evarityzd2errorzd2zz__everrorz00
																	(BgL_locz00_15776, STRUCT_REF(BgL_ufz00_2143,
																		(int) (3L)), (int) (0L),
																	CINT(BgL_arityz00_2145));
													}}
												else
													{	/* Eval/evaluate_comp.scm 896 */
														BGl_evarityzd2errorzd2zz__everrorz00
															(BgL_locz00_15776, STRUCT_REF(BgL_ufz00_2143,
																(int) (3L)), (int) (0L),
															CINT(BgL_arityz00_2145));
											}}
										{	/* Eval/evaluate_comp.scm 896 */
											obj_t BgL_z12denvz12_2156;

											BgL_z12denvz12_2156 = BGL_CURRENT_DYNAMIC_ENV();
											if (
												((BgL_spz00_2148 +
														(long) CINT(BgL_sfz00_2147)) <
													VECTOR_LENGTH(((obj_t) BgL_sz00_2138))))
												{	/* Eval/evaluate_comp.scm 896 */
													return
														BGl_catchzd2trampolinezd2zz__evaluate_compz00
														(BgL_runz00_2146, BgL_sz00_2138,
														BINT(BgL_spz00_2148));
												}
											else
												{	/* Eval/evaluate_comp.scm 896 */
													obj_t BgL_nsz00_2158;

													BgL_nsz00_2158 =
														BGl_makezd2statezd2zz__evaluate_compz00();
													{	/* Eval/evaluate_comp.scm 896 */
														long BgL_arg2033z00_2160;

														BgL_arg2033z00_2160 = (BgL_spz00_2148 + 0L);
														BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00
															(BgL_nsz00_2158, 2L, BgL_sz00_2138,
															BINT(BgL_spz00_2148), BINT(BgL_arg2033z00_2160));
													}
													VECTOR_SET(BgL_nsz00_2158, 1L, BgL_sz00_2138);
													BGL_ENV_EVSTATE_SET(BgL_z12denvz12_2156,
														BgL_nsz00_2158);
													{	/* Eval/evaluate_comp.scm 896 */
														obj_t BgL_ez00_2161;

														BgL_ez00_2161 = BGL_EXITD_TOP_AS_OBJ();
														{	/* Eval/evaluate_comp.scm 896 */
															obj_t BgL_arg4321z00_7571;

															{	/* Eval/evaluate_comp.scm 896 */
																obj_t BgL_arg4322z00_7572;

																BgL_arg4322z00_7572 =
																	BGL_EXITD_PROTECT(BgL_ez00_2161);
																BgL_arg4321z00_7571 =
																	MAKE_YOUNG_PAIR(BgL_sz00_2138,
																	BgL_arg4322z00_7572);
															}
															BGL_EXITD_PROTECT_SET(BgL_ez00_2161,
																BgL_arg4321z00_7571);
															BUNSPEC;
														}
														{	/* Eval/evaluate_comp.scm 896 */
															obj_t BgL_____rz00_2162;

															{	/* Eval/evaluate_comp.scm 670 */
																obj_t BgL_savedzd2bpzd2_7573;

																BgL_savedzd2bpzd2_7573 =
																	VECTOR_REF(BgL_nsz00_2158, 0L);
																VECTOR_SET(BgL_nsz00_2158, 0L, BINT(2L));
																{
																	obj_t BgL_fz00_7577;

																	BgL_fz00_7577 = BgL_runz00_2146;
																BgL_recz00_7576:
																	{	/* Eval/evaluate_comp.scm 673 */
																		obj_t BgL_rz00_7578;

																		BgL_rz00_7578 =
																			BGL_PROCEDURE_CALL1(BgL_fz00_7577,
																			BgL_nsz00_2158);
																		{	/* Eval/evaluate_comp.scm 674 */
																			bool_t BgL_test5022z00_19180;

																			if (PROCEDUREP(BgL_rz00_7578))
																				{	/* Eval/evaluate_comp.scm 674 */
																					obj_t BgL_arg1759z00_7581;

																					BgL_arg1759z00_7581 =
																						PROCEDURE_ATTR(BgL_rz00_7578);
																					if (STRUCTP(BgL_arg1759z00_7581))
																						{	/* Eval/evaluate_comp.scm 654 */
																							BgL_test5022z00_19180 =
																								(STRUCT_KEY(BgL_arg1759z00_7581)
																								==
																								BGl_symbol4573z00zz__evaluate_compz00);
																						}
																					else
																						{	/* Eval/evaluate_comp.scm 654 */
																							BgL_test5022z00_19180 =
																								((bool_t) 0);
																						}
																				}
																			else
																				{	/* Eval/evaluate_comp.scm 674 */
																					BgL_test5022z00_19180 = ((bool_t) 0);
																				}
																			if (BgL_test5022z00_19180)
																				{
																					obj_t BgL_fz00_19188;

																					BgL_fz00_19188 = BgL_rz00_7578;
																					BgL_fz00_7577 = BgL_fz00_19188;
																					goto BgL_recz00_7576;
																				}
																			else
																				{	/* Eval/evaluate_comp.scm 674 */
																					VECTOR_SET(BgL_nsz00_2158, 0L,
																						BgL_savedzd2bpzd2_7573);
																					BgL_____rz00_2162 = BgL_rz00_7578;
																				}
																		}
																	}
																}
															}
															{	/* Eval/evaluate_comp.scm 896 */
																bool_t BgL_test5025z00_19190;

																{	/* Eval/evaluate_comp.scm 896 */
																	obj_t BgL_arg4320z00_7589;

																	BgL_arg4320z00_7589 =
																		BGL_EXITD_PROTECT(BgL_ez00_2161);
																	BgL_test5025z00_19190 =
																		PAIRP(BgL_arg4320z00_7589);
																}
																if (BgL_test5025z00_19190)
																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_arg4318z00_7590;

																		{	/* Eval/evaluate_comp.scm 896 */
																			obj_t BgL_arg4319z00_7591;

																			BgL_arg4319z00_7591 =
																				BGL_EXITD_PROTECT(BgL_ez00_2161);
																			BgL_arg4318z00_7590 =
																				CDR(((obj_t) BgL_arg4319z00_7591));
																		}
																		BGL_EXITD_PROTECT_SET(BgL_ez00_2161,
																			BgL_arg4318z00_7590);
																		BUNSPEC;
																	}
																else
																	{	/* Eval/evaluate_comp.scm 896 */
																		BFALSE;
																	}
															}
															BGL_ENV_EVSTATE_SET(BgL_z12denvz12_2156,
																BgL_sz00_2138);
															return BgL_____rz00_2162;
														}
													}
												}
										}
									}
								}
							else
								{	/* Eval/evaluate_comp.scm 896 */
									if (PROCEDURE_CORRECT_ARITYP(BgL_fz00_2141, (int) (0L)))
										{	/* Eval/evaluate_comp.scm 896 */
											long BgL_nbpz00_2163;

											BgL_nbpz00_2163 =
												((long) CINT(BgL_bpz00_2140) + BgL_siza7eza7_15778);
											VECTOR_SET(
												((obj_t) BgL_sz00_2138), 0L, BINT(BgL_nbpz00_2163));
											{	/* Eval/evaluate_comp.scm 896 */
												obj_t BgL_rz00_2164;

												BgL_rz00_2164 = BGL_PROCEDURE_CALL0(BgL_fz00_2141);
												VECTOR_SET(((obj_t) BgL_sz00_2138), 0L, BgL_bpz00_2140);
												return BgL_rz00_2164;
											}
										}
									else
										{	/* Eval/evaluate_comp.scm 896 */
											return
												BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_15776,
												BgL_symbzd2funzd2_15777, (int) (0L),
												PROCEDURE_ARITY(BgL_fz00_2141));
		}}}}}}}

	}



/* comp-call1 */
	obj_t BGl_compzd2call1zd2zz__evaluate_compz00(obj_t BgL_locz00_145,
		BgL_ev_exprz00_bglt BgL_vfunz00_146, obj_t BgL_symbzd2funzd2_147,
		obj_t BgL_funz00_148, obj_t BgL_tailzf3zf3_149, obj_t BgL_stkz00_150,
		long BgL_siza7eza7_151, obj_t BgL_a1z00_152)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			{	/* Eval/evaluate_comp.scm 896 */
				obj_t BgL_cfunz00_2167;

				BgL_cfunz00_2167 =
					BGl_iszd2constantzd2funzf3zf3zz__evaluate_compz00(BgL_vfunz00_146, 1L,
					BgL_locz00_145, BgL_symbzd2funzd2_147);
				if (CBOOL(BgL_cfunz00_2167))
					{	/* Eval/evaluate_comp.scm 896 */
						bool_t BgL_test5028z00_19217;

						{	/* Eval/evaluate_comp.scm 896 */
							int BgL_a1367z00_2183;

							BgL_a1367z00_2183 = bgl_debug();
							BgL_test5028z00_19217 = ((long) (BgL_a1367z00_2183) > 0L);
						}
						if (BgL_test5028z00_19217)
							{	/* Eval/evaluate_comp.scm 896 */
								obj_t BgL_zc3z04anonymousza32036ze3z87_13709;

								BgL_zc3z04anonymousza32036ze3z87_13709 =
									MAKE_FX_PROCEDURE
									(BGl_z62zc3z04anonymousza32036ze3ze5zz__evaluate_compz00,
									(int) (1L), (int) (4L));
								PROCEDURE_SET(BgL_zc3z04anonymousza32036ze3z87_13709,
									(int) (0L), BgL_a1z00_152);
								PROCEDURE_SET(BgL_zc3z04anonymousza32036ze3z87_13709,
									(int) (1L), BINT(BgL_siza7eza7_151));
								PROCEDURE_SET(BgL_zc3z04anonymousza32036ze3z87_13709,
									(int) (2L), BgL_locz00_145);
								PROCEDURE_SET(BgL_zc3z04anonymousza32036ze3z87_13709,
									(int) (3L), BgL_cfunz00_2167);
								return BgL_zc3z04anonymousza32036ze3z87_13709;
							}
						else
							{	/* Eval/evaluate_comp.scm 896 */
								obj_t BgL_zc3z04anonymousza32038ze3z87_13710;

								BgL_zc3z04anonymousza32038ze3z87_13710 =
									MAKE_FX_PROCEDURE
									(BGl_z62zc3z04anonymousza32038ze3ze5zz__evaluate_compz00,
									(int) (1L), (int) (3L));
								PROCEDURE_SET(BgL_zc3z04anonymousza32038ze3z87_13710,
									(int) (0L), BgL_a1z00_152);
								PROCEDURE_SET(BgL_zc3z04anonymousza32038ze3z87_13710,
									(int) (1L), BINT(BgL_siza7eza7_151));
								PROCEDURE_SET(BgL_zc3z04anonymousza32038ze3z87_13710,
									(int) (2L), BgL_cfunz00_2167);
								return BgL_zc3z04anonymousza32038ze3z87_13710;
							}
					}
				else
					{	/* Eval/evaluate_comp.scm 896 */
						if (CBOOL(BgL_tailzf3zf3_149))
							{	/* Eval/evaluate_comp.scm 896 */
								bool_t BgL_test5030z00_19245;

								{	/* Eval/evaluate_comp.scm 896 */
									int BgL_a1368z00_2255;

									BgL_a1368z00_2255 = bgl_debug();
									BgL_test5030z00_19245 = ((long) (BgL_a1368z00_2255) > 0L);
								}
								if (BgL_test5030z00_19245)
									{	/* Eval/evaluate_comp.scm 896 */
										obj_t BgL_zc3z04anonymousza32040ze3z87_13711;

										BgL_zc3z04anonymousza32040ze3z87_13711 =
											MAKE_FX_PROCEDURE
											(BGl_z62zc3z04anonymousza32040ze3ze5zz__evaluate_compz00,
											(int) (1L), (int) (5L));
										PROCEDURE_SET(BgL_zc3z04anonymousza32040ze3z87_13711,
											(int) (0L), BgL_funz00_148);
										PROCEDURE_SET(BgL_zc3z04anonymousza32040ze3z87_13711,
											(int) (1L), BgL_a1z00_152);
										PROCEDURE_SET(BgL_zc3z04anonymousza32040ze3z87_13711,
											(int) (2L), BgL_locz00_145);
										PROCEDURE_SET(BgL_zc3z04anonymousza32040ze3z87_13711,
											(int) (3L), BgL_symbzd2funzd2_147);
										PROCEDURE_SET(BgL_zc3z04anonymousza32040ze3z87_13711,
											(int) (4L), BINT(BgL_siza7eza7_151));
										return BgL_zc3z04anonymousza32040ze3z87_13711;
									}
								else
									{	/* Eval/evaluate_comp.scm 896 */
										obj_t BgL_zc3z04anonymousza32057ze3z87_13712;

										BgL_zc3z04anonymousza32057ze3z87_13712 =
											MAKE_FX_PROCEDURE
											(BGl_z62zc3z04anonymousza32057ze3ze5zz__evaluate_compz00,
											(int) (1L), (int) (5L));
										PROCEDURE_SET(BgL_zc3z04anonymousza32057ze3z87_13712,
											(int) (0L), BgL_funz00_148);
										PROCEDURE_SET(BgL_zc3z04anonymousza32057ze3z87_13712,
											(int) (1L), BgL_a1z00_152);
										PROCEDURE_SET(BgL_zc3z04anonymousza32057ze3z87_13712,
											(int) (2L), BgL_locz00_145);
										PROCEDURE_SET(BgL_zc3z04anonymousza32057ze3z87_13712,
											(int) (3L), BgL_symbzd2funzd2_147);
										PROCEDURE_SET(BgL_zc3z04anonymousza32057ze3z87_13712,
											(int) (4L), BINT(BgL_siza7eza7_151));
										return BgL_zc3z04anonymousza32057ze3z87_13712;
									}
							}
						else
							{	/* Eval/evaluate_comp.scm 896 */
								bool_t BgL_test5031z00_19277;

								{	/* Eval/evaluate_comp.scm 896 */
									int BgL_a1369z00_2327;

									BgL_a1369z00_2327 = bgl_debug();
									BgL_test5031z00_19277 = ((long) (BgL_a1369z00_2327) > 0L);
								}
								if (BgL_test5031z00_19277)
									{	/* Eval/evaluate_comp.scm 896 */
										obj_t BgL_zc3z04anonymousza32075ze3z87_13713;

										BgL_zc3z04anonymousza32075ze3z87_13713 =
											MAKE_FX_PROCEDURE
											(BGl_z62zc3z04anonymousza32075ze3ze5zz__evaluate_compz00,
											(int) (1L), (int) (5L));
										PROCEDURE_SET(BgL_zc3z04anonymousza32075ze3z87_13713,
											(int) (0L), BgL_funz00_148);
										PROCEDURE_SET(BgL_zc3z04anonymousza32075ze3z87_13713,
											(int) (1L), BgL_a1z00_152);
										PROCEDURE_SET(BgL_zc3z04anonymousza32075ze3z87_13713,
											(int) (2L), BgL_locz00_145);
										PROCEDURE_SET(BgL_zc3z04anonymousza32075ze3z87_13713,
											(int) (3L), BgL_symbzd2funzd2_147);
										PROCEDURE_SET(BgL_zc3z04anonymousza32075ze3z87_13713,
											(int) (4L), BINT(BgL_siza7eza7_151));
										return BgL_zc3z04anonymousza32075ze3z87_13713;
									}
								else
									{	/* Eval/evaluate_comp.scm 896 */
										obj_t BgL_zc3z04anonymousza32092ze3z87_13714;

										BgL_zc3z04anonymousza32092ze3z87_13714 =
											MAKE_FX_PROCEDURE
											(BGl_z62zc3z04anonymousza32092ze3ze5zz__evaluate_compz00,
											(int) (1L), (int) (5L));
										PROCEDURE_SET(BgL_zc3z04anonymousza32092ze3z87_13714,
											(int) (0L), BgL_funz00_148);
										PROCEDURE_SET(BgL_zc3z04anonymousza32092ze3z87_13714,
											(int) (1L), BgL_a1z00_152);
										PROCEDURE_SET(BgL_zc3z04anonymousza32092ze3z87_13714,
											(int) (2L), BgL_locz00_145);
										PROCEDURE_SET(BgL_zc3z04anonymousza32092ze3z87_13714,
											(int) (3L), BgL_symbzd2funzd2_147);
										PROCEDURE_SET(BgL_zc3z04anonymousza32092ze3z87_13714,
											(int) (4L), BINT(BgL_siza7eza7_151));
										return BgL_zc3z04anonymousza32092ze3z87_13714;
									}
							}
					}
			}
		}

	}



/* &<@anonymous:2036> */
	obj_t BGl_z62zc3z04anonymousza32036ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13715, obj_t BgL_sz00_13720)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			{	/* Eval/evaluate_comp.scm 896 */
				obj_t BgL_a1z00_13716;
				long BgL_siza7eza7_13717;
				obj_t BgL_locz00_13718;
				obj_t BgL_cfunz00_13719;

				BgL_a1z00_13716 = PROCEDURE_REF(BgL_envz00_13715, (int) (0L));
				BgL_siza7eza7_13717 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_13715, (int) (1L)));
				BgL_locz00_13718 = PROCEDURE_REF(BgL_envz00_13715, (int) (2L));
				BgL_cfunz00_13719 = PROCEDURE_REF(BgL_envz00_13715, (int) (3L));
				{	/* Eval/evaluate_comp.scm 896 */
					obj_t BgL_bpz00_15900;

					BgL_bpz00_15900 = VECTOR_REF(((obj_t) BgL_sz00_13720), 0L);
					{	/* Eval/evaluate_comp.scm 896 */
						obj_t BgL_a1z00_15901;

						BgL_a1z00_15901 =
							BGL_PROCEDURE_CALL1(BgL_a1z00_13716, BgL_sz00_13720);
						{	/* Eval/evaluate_comp.scm 896 */
							long BgL_nbpz00_15902;

							BgL_nbpz00_15902 =
								((long) CINT(BgL_bpz00_15900) + BgL_siza7eza7_13717);
							VECTOR_SET(((obj_t) BgL_sz00_13720), 0L, BINT(BgL_nbpz00_15902));
							{	/* Eval/evaluate_comp.scm 896 */
								obj_t BgL_tmpz00_19329;

								BgL_tmpz00_19329 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_SET_TRACE_LOCATION(BgL_tmpz00_19329, BgL_locz00_13718);
							}
							{	/* Eval/evaluate_comp.scm 896 */
								obj_t BgL_rz00_15903;

								BgL_rz00_15903 =
									BGL_PROCEDURE_CALL1(BgL_cfunz00_13719, BgL_a1z00_15901);
								VECTOR_SET(((obj_t) BgL_sz00_13720), 0L, BgL_bpz00_15900);
								return BgL_rz00_15903;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:2038> */
	obj_t BGl_z62zc3z04anonymousza32038ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13721, obj_t BgL_sz00_13725)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			{	/* Eval/evaluate_comp.scm 896 */
				obj_t BgL_a1z00_13722;
				long BgL_siza7eza7_13723;
				obj_t BgL_cfunz00_13724;

				BgL_a1z00_13722 = PROCEDURE_REF(BgL_envz00_13721, (int) (0L));
				BgL_siza7eza7_13723 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_13721, (int) (1L)));
				BgL_cfunz00_13724 = PROCEDURE_REF(BgL_envz00_13721, (int) (2L));
				{	/* Eval/evaluate_comp.scm 896 */
					obj_t BgL_bpz00_15904;

					BgL_bpz00_15904 = VECTOR_REF(((obj_t) BgL_sz00_13725), 0L);
					{	/* Eval/evaluate_comp.scm 896 */
						obj_t BgL_a1z00_15905;

						BgL_a1z00_15905 =
							BGL_PROCEDURE_CALL1(BgL_a1z00_13722, BgL_sz00_13725);
						{	/* Eval/evaluate_comp.scm 896 */
							long BgL_nbpz00_15906;

							BgL_nbpz00_15906 =
								((long) CINT(BgL_bpz00_15904) + BgL_siza7eza7_13723);
							VECTOR_SET(((obj_t) BgL_sz00_13725), 0L, BINT(BgL_nbpz00_15906));
							{	/* Eval/evaluate_comp.scm 896 */
								obj_t BgL_rz00_15907;

								BgL_rz00_15907 =
									BGL_PROCEDURE_CALL1(BgL_cfunz00_13724, BgL_a1z00_15905);
								VECTOR_SET(((obj_t) BgL_sz00_13725), 0L, BgL_bpz00_15904);
								return BgL_rz00_15907;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:2040> */
	obj_t BGl_z62zc3z04anonymousza32040ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13726, obj_t BgL_sz00_13732)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			return
				BGl_zc3z04anonymousza32040ze3ze70z60zz__evaluate_compz00(
				(long) CINT(PROCEDURE_REF(BgL_envz00_13726,
						(int) (4L))),
				PROCEDURE_REF(BgL_envz00_13726,
					(int) (3L)),
				PROCEDURE_REF(BgL_envz00_13726,
					(int) (2L)),
				PROCEDURE_REF(BgL_envz00_13726,
					(int) (1L)),
				PROCEDURE_REF(BgL_envz00_13726, (int) (0L)), BgL_sz00_13732);
		}

	}



/* <@anonymous:2040>~0 */
	obj_t BGl_zc3z04anonymousza32040ze3ze70z60zz__evaluate_compz00(long
		BgL_siza7eza7_15774, obj_t BgL_symbzd2funzd2_15773, obj_t BgL_locz00_15772,
		obj_t BgL_a1z00_15771, obj_t BgL_funz00_15770, obj_t BgL_sz00_2186)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			{	/* Eval/evaluate_comp.scm 896 */
				obj_t BgL_bpz00_2188;

				BgL_bpz00_2188 = VECTOR_REF(((obj_t) BgL_sz00_2186), 0L);
				{	/* Eval/evaluate_comp.scm 896 */
					obj_t BgL_fz00_2189;
					obj_t BgL_a1z00_2190;

					BgL_fz00_2189 = BGL_PROCEDURE_CALL1(BgL_funz00_15770, BgL_sz00_2186);
					BgL_a1z00_2190 = BGL_PROCEDURE_CALL1(BgL_a1z00_15771, BgL_sz00_2186);
					if (PROCEDUREP(BgL_fz00_2189))
						{	/* Eval/evaluate_comp.scm 896 */
							BFALSE;
						}
					else
						{	/* Eval/evaluate_comp.scm 896 */
							BGl_evtypezd2errorzd2zz__everrorz00(BgL_locz00_15772,
								BGl_string4577z00zz__evaluate_compz00,
								BGl_string4593z00zz__evaluate_compz00, BgL_fz00_2189);
						}
					{	/* Eval/evaluate_comp.scm 896 */
						obj_t BgL_ufz00_2192;

						{	/* Eval/evaluate_comp.scm 896 */
							obj_t BgL_tmpz00_19387;

							BgL_tmpz00_19387 = ((obj_t) BgL_fz00_2189);
							BgL_ufz00_2192 = PROCEDURE_ATTR(BgL_tmpz00_19387);
						}
						{	/* Eval/evaluate_comp.scm 896 */
							bool_t BgL_test5033z00_19390;

							if (STRUCTP(BgL_ufz00_2192))
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test5033z00_19390 =
										(STRUCT_KEY(BgL_ufz00_2192) ==
										BGl_symbol4594z00zz__evaluate_compz00);
								}
							else
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test5033z00_19390 = ((bool_t) 0);
								}
							if (BgL_test5033z00_19390)
								{	/* Eval/evaluate_comp.scm 896 */
									obj_t BgL_arityz00_2194;
									obj_t BgL_runz00_2195;
									obj_t BgL_sfz00_2196;

									BgL_arityz00_2194 = STRUCT_REF(BgL_ufz00_2192, (int) (0L));
									BgL_runz00_2195 = STRUCT_REF(BgL_ufz00_2192, (int) (1L));
									BgL_sfz00_2196 = STRUCT_REF(BgL_ufz00_2192, (int) (2L));
									if (((long) CINT(BgL_arityz00_2194) == 1L))
										{	/* Eval/evaluate_comp.scm 896 */
											long BgL_arg2044z00_2199;

											BgL_arg2044z00_2199 = ((long) CINT(BgL_bpz00_2188) + 0L);
											VECTOR_SET(
												((obj_t) BgL_sz00_2186), BgL_arg2044z00_2199,
												BgL_a1z00_2190);
										}
									else
										{	/* Eval/evaluate_comp.scm 896 */
											if (INTEGERP(BgL_arityz00_2194))
												{	/* Eval/evaluate_comp.scm 896 */
													switch ((long) CINT(BgL_arityz00_2194))
														{
														case (-1L):

															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2045z00_2202;
																obj_t BgL_arg2046z00_2203;

																BgL_arg2045z00_2202 =
																	((long) CINT(BgL_bpz00_2188) + 0L);
																{	/* Eval/evaluate_comp.scm 896 */
																	obj_t BgL_list2047z00_2204;

																	BgL_list2047z00_2204 =
																		MAKE_YOUNG_PAIR(BgL_a1z00_2190, BNIL);
																	BgL_arg2046z00_2203 = BgL_list2047z00_2204;
																}
																VECTOR_SET(
																	((obj_t) BgL_sz00_2186), BgL_arg2045z00_2202,
																	BgL_arg2046z00_2203);
															} break;
														case (-2L):

															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2048z00_2205;

																BgL_arg2048z00_2205 =
																	((long) CINT(BgL_bpz00_2188) + 0L);
																VECTOR_SET(
																	((obj_t) BgL_sz00_2186), BgL_arg2048z00_2205,
																	BgL_a1z00_2190);
															}
															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2049z00_2206;
																obj_t BgL_arg2050z00_2207;

																BgL_arg2049z00_2206 =
																	((long) CINT(BgL_bpz00_2188) + 1L);
																BgL_arg2050z00_2207 = BNIL;
																VECTOR_SET(
																	((obj_t) BgL_sz00_2186), BgL_arg2049z00_2206,
																	BgL_arg2050z00_2207);
															} break;
														default:
															BGl_evarityzd2errorzd2zz__everrorz00
																(BgL_locz00_15772, STRUCT_REF(BgL_ufz00_2192,
																	(int) (3L)), (int) (1L),
																CINT(BgL_arityz00_2194));
												}}
											else
												{	/* Eval/evaluate_comp.scm 896 */
													BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_15772,
														STRUCT_REF(BgL_ufz00_2192,
															(int) (3L)), (int) (1L), CINT(BgL_arityz00_2194));
										}}
									{	/* Eval/evaluate_comp.scm 896 */
										obj_t BgL_z12denvz12_2210;

										BgL_z12denvz12_2210 = BGL_CURRENT_DYNAMIC_ENV();
										BGL_ENV_SET_TRACE_LOCATION(BgL_z12denvz12_2210,
											BgL_locz00_15772);
										if ((((long) CINT(BgL_bpz00_2188) +
													(long) CINT(BgL_sfz00_2196)) <
												VECTOR_LENGTH(((obj_t) BgL_sz00_2186))))
											{	/* Eval/evaluate_comp.scm 896 */
												return BgL_runz00_2195;
											}
										else
											{	/* Eval/evaluate_comp.scm 896 */
												obj_t BgL_nsz00_2212;

												BgL_nsz00_2212 =
													BGl_makezd2statezd2zz__evaluate_compz00();
												{	/* Eval/evaluate_comp.scm 896 */
													long BgL_arg2054z00_2214;

													BgL_arg2054z00_2214 =
														((long) CINT(BgL_bpz00_2188) + 1L);
													BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00
														(BgL_nsz00_2212, 2L, BgL_sz00_2186, BgL_bpz00_2188,
														BINT(BgL_arg2054z00_2214));
												}
												VECTOR_SET(BgL_nsz00_2212, 1L, BgL_sz00_2186);
												BGL_ENV_EVSTATE_SET(BgL_z12denvz12_2210,
													BgL_nsz00_2212);
												{	/* Eval/evaluate_comp.scm 896 */
													obj_t BgL_ez00_2215;

													BgL_ez00_2215 = BGL_EXITD_TOP_AS_OBJ();
													{	/* Eval/evaluate_comp.scm 896 */
														obj_t BgL_arg4321z00_7650;

														{	/* Eval/evaluate_comp.scm 896 */
															obj_t BgL_arg4322z00_7651;

															BgL_arg4322z00_7651 =
																BGL_EXITD_PROTECT(BgL_ez00_2215);
															BgL_arg4321z00_7650 =
																MAKE_YOUNG_PAIR(BgL_sz00_2186,
																BgL_arg4322z00_7651);
														}
														BGL_EXITD_PROTECT_SET(BgL_ez00_2215,
															BgL_arg4321z00_7650);
														BUNSPEC;
													}
													{	/* Eval/evaluate_comp.scm 896 */
														obj_t BgL_____rz00_2216;

														{	/* Eval/evaluate_comp.scm 670 */
															obj_t BgL_savedzd2bpzd2_7652;

															BgL_savedzd2bpzd2_7652 =
																VECTOR_REF(BgL_nsz00_2212, 0L);
															VECTOR_SET(BgL_nsz00_2212, 0L, BINT(2L));
															{
																obj_t BgL_fz00_7656;

																BgL_fz00_7656 = BgL_runz00_2195;
															BgL_recz00_7655:
																{	/* Eval/evaluate_comp.scm 673 */
																	obj_t BgL_rz00_7657;

																	BgL_rz00_7657 =
																		BGL_PROCEDURE_CALL1(BgL_fz00_7656,
																		BgL_nsz00_2212);
																	{	/* Eval/evaluate_comp.scm 674 */
																		bool_t BgL_test5038z00_19462;

																		if (PROCEDUREP(BgL_rz00_7657))
																			{	/* Eval/evaluate_comp.scm 674 */
																				obj_t BgL_arg1759z00_7660;

																				BgL_arg1759z00_7660 =
																					PROCEDURE_ATTR(BgL_rz00_7657);
																				if (STRUCTP(BgL_arg1759z00_7660))
																					{	/* Eval/evaluate_comp.scm 654 */
																						BgL_test5038z00_19462 =
																							(STRUCT_KEY(BgL_arg1759z00_7660)
																							==
																							BGl_symbol4573z00zz__evaluate_compz00);
																					}
																				else
																					{	/* Eval/evaluate_comp.scm 654 */
																						BgL_test5038z00_19462 =
																							((bool_t) 0);
																					}
																			}
																		else
																			{	/* Eval/evaluate_comp.scm 674 */
																				BgL_test5038z00_19462 = ((bool_t) 0);
																			}
																		if (BgL_test5038z00_19462)
																			{
																				obj_t BgL_fz00_19470;

																				BgL_fz00_19470 = BgL_rz00_7657;
																				BgL_fz00_7656 = BgL_fz00_19470;
																				goto BgL_recz00_7655;
																			}
																		else
																			{	/* Eval/evaluate_comp.scm 674 */
																				VECTOR_SET(BgL_nsz00_2212, 0L,
																					BgL_savedzd2bpzd2_7652);
																				BgL_____rz00_2216 = BgL_rz00_7657;
																			}
																	}
																}
															}
														}
														{	/* Eval/evaluate_comp.scm 896 */
															bool_t BgL_test5041z00_19472;

															{	/* Eval/evaluate_comp.scm 896 */
																obj_t BgL_arg4320z00_7668;

																BgL_arg4320z00_7668 =
																	BGL_EXITD_PROTECT(BgL_ez00_2215);
																BgL_test5041z00_19472 =
																	PAIRP(BgL_arg4320z00_7668);
															}
															if (BgL_test5041z00_19472)
																{	/* Eval/evaluate_comp.scm 896 */
																	obj_t BgL_arg4318z00_7669;

																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_arg4319z00_7670;

																		BgL_arg4319z00_7670 =
																			BGL_EXITD_PROTECT(BgL_ez00_2215);
																		BgL_arg4318z00_7669 =
																			CDR(((obj_t) BgL_arg4319z00_7670));
																	}
																	BGL_EXITD_PROTECT_SET(BgL_ez00_2215,
																		BgL_arg4318z00_7669);
																	BUNSPEC;
																}
															else
																{	/* Eval/evaluate_comp.scm 896 */
																	BFALSE;
																}
														}
														BGL_ENV_EVSTATE_SET(BgL_z12denvz12_2210,
															BgL_sz00_2186);
														return BgL_____rz00_2216;
													}
												}
											}
									}
								}
							else
								{	/* Eval/evaluate_comp.scm 896 */
									if (PROCEDURE_CORRECT_ARITYP(BgL_fz00_2189, (int) (1L)))
										{	/* Eval/evaluate_comp.scm 896 */
											long BgL_nbpz00_2217;

											BgL_nbpz00_2217 =
												((long) CINT(BgL_bpz00_2188) + BgL_siza7eza7_15774);
											VECTOR_SET(
												((obj_t) BgL_sz00_2186), 0L, BINT(BgL_nbpz00_2217));
											{	/* Eval/evaluate_comp.scm 896 */
												obj_t BgL_tmpz00_19488;

												BgL_tmpz00_19488 = BGL_CURRENT_DYNAMIC_ENV();
												BGL_ENV_SET_TRACE_LOCATION(BgL_tmpz00_19488,
													BgL_locz00_15772);
											}
											{	/* Eval/evaluate_comp.scm 896 */
												obj_t BgL_rz00_2219;

												BgL_rz00_2219 =
													BGL_PROCEDURE_CALL1(BgL_fz00_2189, BgL_a1z00_2190);
												VECTOR_SET(((obj_t) BgL_sz00_2186), 0L, BgL_bpz00_2188);
												return BgL_rz00_2219;
											}
										}
									else
										{	/* Eval/evaluate_comp.scm 896 */
											return
												BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_15772,
												BgL_symbzd2funzd2_15773, (int) (1L),
												PROCEDURE_ARITY(BgL_fz00_2189));
		}}}}}}}

	}



/* &<@anonymous:2057> */
	obj_t BGl_z62zc3z04anonymousza32057ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13733, obj_t BgL_sz00_13739)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			return
				BGl_zc3z04anonymousza32057ze3ze70z60zz__evaluate_compz00(
				(long) CINT(PROCEDURE_REF(BgL_envz00_13733,
						(int) (4L))),
				PROCEDURE_REF(BgL_envz00_13733,
					(int) (3L)),
				PROCEDURE_REF(BgL_envz00_13733,
					(int) (2L)),
				PROCEDURE_REF(BgL_envz00_13733,
					(int) (1L)),
				PROCEDURE_REF(BgL_envz00_13733, (int) (0L)), BgL_sz00_13739);
		}

	}



/* <@anonymous:2057>~0 */
	obj_t BGl_zc3z04anonymousza32057ze3ze70z60zz__evaluate_compz00(long
		BgL_siza7eza7_15769, obj_t BgL_symbzd2funzd2_15768, obj_t BgL_locz00_15767,
		obj_t BgL_a1z00_15766, obj_t BgL_funz00_15765, obj_t BgL_sz00_2221)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			{	/* Eval/evaluate_comp.scm 896 */
				obj_t BgL_bpz00_2223;

				BgL_bpz00_2223 = VECTOR_REF(((obj_t) BgL_sz00_2221), 0L);
				{	/* Eval/evaluate_comp.scm 896 */
					obj_t BgL_fz00_2224;
					obj_t BgL_a1z00_2225;

					BgL_fz00_2224 = BGL_PROCEDURE_CALL1(BgL_funz00_15765, BgL_sz00_2221);
					BgL_a1z00_2225 = BGL_PROCEDURE_CALL1(BgL_a1z00_15766, BgL_sz00_2221);
					if (PROCEDUREP(BgL_fz00_2224))
						{	/* Eval/evaluate_comp.scm 896 */
							BFALSE;
						}
					else
						{	/* Eval/evaluate_comp.scm 896 */
							BGl_evtypezd2errorzd2zz__everrorz00(BgL_locz00_15767,
								BGl_string4577z00zz__evaluate_compz00,
								BGl_string4593z00zz__evaluate_compz00, BgL_fz00_2224);
						}
					{	/* Eval/evaluate_comp.scm 896 */
						obj_t BgL_ufz00_2227;

						{	/* Eval/evaluate_comp.scm 896 */
							obj_t BgL_tmpz00_19525;

							BgL_tmpz00_19525 = ((obj_t) BgL_fz00_2224);
							BgL_ufz00_2227 = PROCEDURE_ATTR(BgL_tmpz00_19525);
						}
						{	/* Eval/evaluate_comp.scm 896 */
							bool_t BgL_test5044z00_19528;

							if (STRUCTP(BgL_ufz00_2227))
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test5044z00_19528 =
										(STRUCT_KEY(BgL_ufz00_2227) ==
										BGl_symbol4594z00zz__evaluate_compz00);
								}
							else
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test5044z00_19528 = ((bool_t) 0);
								}
							if (BgL_test5044z00_19528)
								{	/* Eval/evaluate_comp.scm 896 */
									obj_t BgL_arityz00_2229;
									obj_t BgL_runz00_2230;
									obj_t BgL_sfz00_2231;

									BgL_arityz00_2229 = STRUCT_REF(BgL_ufz00_2227, (int) (0L));
									BgL_runz00_2230 = STRUCT_REF(BgL_ufz00_2227, (int) (1L));
									BgL_sfz00_2231 = STRUCT_REF(BgL_ufz00_2227, (int) (2L));
									if (((long) CINT(BgL_arityz00_2229) == 1L))
										{	/* Eval/evaluate_comp.scm 896 */
											long BgL_arg2061z00_2234;

											BgL_arg2061z00_2234 = ((long) CINT(BgL_bpz00_2223) + 0L);
											VECTOR_SET(
												((obj_t) BgL_sz00_2221), BgL_arg2061z00_2234,
												BgL_a1z00_2225);
										}
									else
										{	/* Eval/evaluate_comp.scm 896 */
											if (INTEGERP(BgL_arityz00_2229))
												{	/* Eval/evaluate_comp.scm 896 */
													switch ((long) CINT(BgL_arityz00_2229))
														{
														case (-1L):

															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2062z00_2237;
																obj_t BgL_arg2063z00_2238;

																BgL_arg2062z00_2237 =
																	((long) CINT(BgL_bpz00_2223) + 0L);
																{	/* Eval/evaluate_comp.scm 896 */
																	obj_t BgL_list2064z00_2239;

																	BgL_list2064z00_2239 =
																		MAKE_YOUNG_PAIR(BgL_a1z00_2225, BNIL);
																	BgL_arg2063z00_2238 = BgL_list2064z00_2239;
																}
																VECTOR_SET(
																	((obj_t) BgL_sz00_2221), BgL_arg2062z00_2237,
																	BgL_arg2063z00_2238);
															} break;
														case (-2L):

															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2065z00_2240;

																BgL_arg2065z00_2240 =
																	((long) CINT(BgL_bpz00_2223) + 0L);
																VECTOR_SET(
																	((obj_t) BgL_sz00_2221), BgL_arg2065z00_2240,
																	BgL_a1z00_2225);
															}
															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2067z00_2241;
																obj_t BgL_arg2068z00_2242;

																BgL_arg2067z00_2241 =
																	((long) CINT(BgL_bpz00_2223) + 1L);
																BgL_arg2068z00_2242 = BNIL;
																VECTOR_SET(
																	((obj_t) BgL_sz00_2221), BgL_arg2067z00_2241,
																	BgL_arg2068z00_2242);
															} break;
														default:
															BGl_evarityzd2errorzd2zz__everrorz00
																(BgL_locz00_15767, STRUCT_REF(BgL_ufz00_2227,
																	(int) (3L)), (int) (1L),
																CINT(BgL_arityz00_2229));
												}}
											else
												{	/* Eval/evaluate_comp.scm 896 */
													BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_15767,
														STRUCT_REF(BgL_ufz00_2227,
															(int) (3L)), (int) (1L), CINT(BgL_arityz00_2229));
										}}
									{	/* Eval/evaluate_comp.scm 896 */
										obj_t BgL_z12denvz12_2245;

										BgL_z12denvz12_2245 = BGL_CURRENT_DYNAMIC_ENV();
										if (
											(((long) CINT(BgL_bpz00_2223) +
													(long) CINT(BgL_sfz00_2231)) <
												VECTOR_LENGTH(((obj_t) BgL_sz00_2221))))
											{	/* Eval/evaluate_comp.scm 896 */
												return BgL_runz00_2230;
											}
										else
											{	/* Eval/evaluate_comp.scm 896 */
												obj_t BgL_nsz00_2247;

												BgL_nsz00_2247 =
													BGl_makezd2statezd2zz__evaluate_compz00();
												{	/* Eval/evaluate_comp.scm 896 */
													long BgL_arg2072z00_2249;

													BgL_arg2072z00_2249 =
														((long) CINT(BgL_bpz00_2223) + 1L);
													BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00
														(BgL_nsz00_2247, 2L, BgL_sz00_2221, BgL_bpz00_2223,
														BINT(BgL_arg2072z00_2249));
												}
												VECTOR_SET(BgL_nsz00_2247, 1L, BgL_sz00_2221);
												BGL_ENV_EVSTATE_SET(BgL_z12denvz12_2245,
													BgL_nsz00_2247);
												{	/* Eval/evaluate_comp.scm 896 */
													obj_t BgL_ez00_2250;

													BgL_ez00_2250 = BGL_EXITD_TOP_AS_OBJ();
													{	/* Eval/evaluate_comp.scm 896 */
														obj_t BgL_arg4321z00_7717;

														{	/* Eval/evaluate_comp.scm 896 */
															obj_t BgL_arg4322z00_7718;

															BgL_arg4322z00_7718 =
																BGL_EXITD_PROTECT(BgL_ez00_2250);
															BgL_arg4321z00_7717 =
																MAKE_YOUNG_PAIR(BgL_sz00_2221,
																BgL_arg4322z00_7718);
														}
														BGL_EXITD_PROTECT_SET(BgL_ez00_2250,
															BgL_arg4321z00_7717);
														BUNSPEC;
													}
													{	/* Eval/evaluate_comp.scm 896 */
														obj_t BgL_____rz00_2251;

														{	/* Eval/evaluate_comp.scm 670 */
															obj_t BgL_savedzd2bpzd2_7719;

															BgL_savedzd2bpzd2_7719 =
																VECTOR_REF(BgL_nsz00_2247, 0L);
															VECTOR_SET(BgL_nsz00_2247, 0L, BINT(2L));
															{
																obj_t BgL_fz00_7723;

																BgL_fz00_7723 = BgL_runz00_2230;
															BgL_recz00_7722:
																{	/* Eval/evaluate_comp.scm 673 */
																	obj_t BgL_rz00_7724;

																	BgL_rz00_7724 =
																		BGL_PROCEDURE_CALL1(BgL_fz00_7723,
																		BgL_nsz00_2247);
																	{	/* Eval/evaluate_comp.scm 674 */
																		bool_t BgL_test5049z00_19599;

																		if (PROCEDUREP(BgL_rz00_7724))
																			{	/* Eval/evaluate_comp.scm 674 */
																				obj_t BgL_arg1759z00_7727;

																				BgL_arg1759z00_7727 =
																					PROCEDURE_ATTR(BgL_rz00_7724);
																				if (STRUCTP(BgL_arg1759z00_7727))
																					{	/* Eval/evaluate_comp.scm 654 */
																						BgL_test5049z00_19599 =
																							(STRUCT_KEY(BgL_arg1759z00_7727)
																							==
																							BGl_symbol4573z00zz__evaluate_compz00);
																					}
																				else
																					{	/* Eval/evaluate_comp.scm 654 */
																						BgL_test5049z00_19599 =
																							((bool_t) 0);
																					}
																			}
																		else
																			{	/* Eval/evaluate_comp.scm 674 */
																				BgL_test5049z00_19599 = ((bool_t) 0);
																			}
																		if (BgL_test5049z00_19599)
																			{
																				obj_t BgL_fz00_19607;

																				BgL_fz00_19607 = BgL_rz00_7724;
																				BgL_fz00_7723 = BgL_fz00_19607;
																				goto BgL_recz00_7722;
																			}
																		else
																			{	/* Eval/evaluate_comp.scm 674 */
																				VECTOR_SET(BgL_nsz00_2247, 0L,
																					BgL_savedzd2bpzd2_7719);
																				BgL_____rz00_2251 = BgL_rz00_7724;
																			}
																	}
																}
															}
														}
														{	/* Eval/evaluate_comp.scm 896 */
															bool_t BgL_test5052z00_19609;

															{	/* Eval/evaluate_comp.scm 896 */
																obj_t BgL_arg4320z00_7735;

																BgL_arg4320z00_7735 =
																	BGL_EXITD_PROTECT(BgL_ez00_2250);
																BgL_test5052z00_19609 =
																	PAIRP(BgL_arg4320z00_7735);
															}
															if (BgL_test5052z00_19609)
																{	/* Eval/evaluate_comp.scm 896 */
																	obj_t BgL_arg4318z00_7736;

																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_arg4319z00_7737;

																		BgL_arg4319z00_7737 =
																			BGL_EXITD_PROTECT(BgL_ez00_2250);
																		BgL_arg4318z00_7736 =
																			CDR(((obj_t) BgL_arg4319z00_7737));
																	}
																	BGL_EXITD_PROTECT_SET(BgL_ez00_2250,
																		BgL_arg4318z00_7736);
																	BUNSPEC;
																}
															else
																{	/* Eval/evaluate_comp.scm 896 */
																	BFALSE;
																}
														}
														BGL_ENV_EVSTATE_SET(BgL_z12denvz12_2245,
															BgL_sz00_2221);
														return BgL_____rz00_2251;
													}
												}
											}
									}
								}
							else
								{	/* Eval/evaluate_comp.scm 896 */
									if (PROCEDURE_CORRECT_ARITYP(BgL_fz00_2224, (int) (1L)))
										{	/* Eval/evaluate_comp.scm 896 */
											long BgL_nbpz00_2252;

											BgL_nbpz00_2252 =
												((long) CINT(BgL_bpz00_2223) + BgL_siza7eza7_15769);
											VECTOR_SET(
												((obj_t) BgL_sz00_2221), 0L, BINT(BgL_nbpz00_2252));
											{	/* Eval/evaluate_comp.scm 896 */
												obj_t BgL_rz00_2253;

												BgL_rz00_2253 =
													BGL_PROCEDURE_CALL1(BgL_fz00_2224, BgL_a1z00_2225);
												VECTOR_SET(((obj_t) BgL_sz00_2221), 0L, BgL_bpz00_2223);
												return BgL_rz00_2253;
											}
										}
									else
										{	/* Eval/evaluate_comp.scm 896 */
											return
												BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_15767,
												BgL_symbzd2funzd2_15768, (int) (1L),
												PROCEDURE_ARITY(BgL_fz00_2224));
		}}}}}}}

	}



/* &<@anonymous:2075> */
	obj_t BGl_z62zc3z04anonymousza32075ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13740, obj_t BgL_sz00_13746)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			return
				BGl_zc3z04anonymousza32075ze3ze70z60zz__evaluate_compz00(
				(long) CINT(PROCEDURE_REF(BgL_envz00_13740,
						(int) (4L))),
				PROCEDURE_REF(BgL_envz00_13740,
					(int) (3L)),
				PROCEDURE_REF(BgL_envz00_13740,
					(int) (2L)),
				PROCEDURE_REF(BgL_envz00_13740,
					(int) (1L)),
				PROCEDURE_REF(BgL_envz00_13740, (int) (0L)), BgL_sz00_13746);
		}

	}



/* <@anonymous:2075>~0 */
	obj_t BGl_zc3z04anonymousza32075ze3ze70z60zz__evaluate_compz00(long
		BgL_siza7eza7_15764, obj_t BgL_symbzd2funzd2_15763, obj_t BgL_locz00_15762,
		obj_t BgL_a1z00_15761, obj_t BgL_funz00_15760, obj_t BgL_sz00_2258)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			{	/* Eval/evaluate_comp.scm 896 */
				obj_t BgL_bpz00_2260;

				BgL_bpz00_2260 = VECTOR_REF(((obj_t) BgL_sz00_2258), 0L);
				{	/* Eval/evaluate_comp.scm 896 */
					obj_t BgL_fz00_2261;
					obj_t BgL_a1z00_2262;

					BgL_fz00_2261 = BGL_PROCEDURE_CALL1(BgL_funz00_15760, BgL_sz00_2258);
					BgL_a1z00_2262 = BGL_PROCEDURE_CALL1(BgL_a1z00_15761, BgL_sz00_2258);
					if (PROCEDUREP(BgL_fz00_2261))
						{	/* Eval/evaluate_comp.scm 896 */
							BFALSE;
						}
					else
						{	/* Eval/evaluate_comp.scm 896 */
							BGl_evtypezd2errorzd2zz__everrorz00(BgL_locz00_15762,
								BGl_string4577z00zz__evaluate_compz00,
								BGl_string4593z00zz__evaluate_compz00, BgL_fz00_2261);
						}
					{	/* Eval/evaluate_comp.scm 896 */
						obj_t BgL_ufz00_2264;

						{	/* Eval/evaluate_comp.scm 896 */
							obj_t BgL_tmpz00_19659;

							BgL_tmpz00_19659 = ((obj_t) BgL_fz00_2261);
							BgL_ufz00_2264 = PROCEDURE_ATTR(BgL_tmpz00_19659);
						}
						{	/* Eval/evaluate_comp.scm 896 */
							bool_t BgL_test5055z00_19662;

							if (STRUCTP(BgL_ufz00_2264))
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test5055z00_19662 =
										(STRUCT_KEY(BgL_ufz00_2264) ==
										BGl_symbol4594z00zz__evaluate_compz00);
								}
							else
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test5055z00_19662 = ((bool_t) 0);
								}
							if (BgL_test5055z00_19662)
								{	/* Eval/evaluate_comp.scm 896 */
									obj_t BgL_arityz00_2266;
									obj_t BgL_runz00_2267;
									obj_t BgL_sfz00_2268;

									BgL_arityz00_2266 = STRUCT_REF(BgL_ufz00_2264, (int) (0L));
									BgL_runz00_2267 = STRUCT_REF(BgL_ufz00_2264, (int) (1L));
									BgL_sfz00_2268 = STRUCT_REF(BgL_ufz00_2264, (int) (2L));
									{	/* Eval/evaluate_comp.scm 896 */
										long BgL_spz00_2269;

										BgL_spz00_2269 =
											((long) CINT(BgL_bpz00_2260) + BgL_siza7eza7_15764);
										if (((long) CINT(BgL_arityz00_2266) == 1L))
											{	/* Eval/evaluate_comp.scm 896 */
												long BgL_arg2079z00_2271;

												BgL_arg2079z00_2271 = (BgL_spz00_2269 + 0L);
												VECTOR_SET(
													((obj_t) BgL_sz00_2258), BgL_arg2079z00_2271,
													BgL_a1z00_2262);
											}
										else
											{	/* Eval/evaluate_comp.scm 896 */
												if (INTEGERP(BgL_arityz00_2266))
													{	/* Eval/evaluate_comp.scm 896 */
														switch ((long) CINT(BgL_arityz00_2266))
															{
															case (-1L):

																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2080z00_2274;
																	obj_t BgL_arg2081z00_2275;

																	BgL_arg2080z00_2274 = (BgL_spz00_2269 + 0L);
																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_list2082z00_2276;

																		BgL_list2082z00_2276 =
																			MAKE_YOUNG_PAIR(BgL_a1z00_2262, BNIL);
																		BgL_arg2081z00_2275 = BgL_list2082z00_2276;
																	}
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2258),
																		BgL_arg2080z00_2274, BgL_arg2081z00_2275);
																} break;
															case (-2L):

																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2083z00_2277;

																	BgL_arg2083z00_2277 = (BgL_spz00_2269 + 0L);
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2258),
																		BgL_arg2083z00_2277, BgL_a1z00_2262);
																}
																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2084z00_2278;
																	obj_t BgL_arg2085z00_2279;

																	BgL_arg2084z00_2278 = (BgL_spz00_2269 + 1L);
																	BgL_arg2085z00_2279 = BNIL;
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2258),
																		BgL_arg2084z00_2278, BgL_arg2085z00_2279);
																} break;
															default:
																BGl_evarityzd2errorzd2zz__everrorz00
																	(BgL_locz00_15762, STRUCT_REF(BgL_ufz00_2264,
																		(int) (3L)), (int) (1L),
																	CINT(BgL_arityz00_2266));
													}}
												else
													{	/* Eval/evaluate_comp.scm 896 */
														BGl_evarityzd2errorzd2zz__everrorz00
															(BgL_locz00_15762, STRUCT_REF(BgL_ufz00_2264,
																(int) (3L)), (int) (1L),
															CINT(BgL_arityz00_2266));
											}}
										{	/* Eval/evaluate_comp.scm 896 */
											obj_t BgL_z12denvz12_2282;

											BgL_z12denvz12_2282 = BGL_CURRENT_DYNAMIC_ENV();
											BGL_ENV_SET_TRACE_LOCATION(BgL_z12denvz12_2282,
												BgL_locz00_15762);
											if (((BgL_spz00_2269 + (long) CINT(BgL_sfz00_2268)) <
													VECTOR_LENGTH(((obj_t) BgL_sz00_2258))))
												{	/* Eval/evaluate_comp.scm 896 */
													return
														BGl_catchzd2trampolinezd2zz__evaluate_compz00
														(BgL_runz00_2267, BgL_sz00_2258,
														BINT(BgL_spz00_2269));
												}
											else
												{	/* Eval/evaluate_comp.scm 896 */
													obj_t BgL_nsz00_2284;

													BgL_nsz00_2284 =
														BGl_makezd2statezd2zz__evaluate_compz00();
													{	/* Eval/evaluate_comp.scm 896 */
														long BgL_arg2089z00_2286;

														BgL_arg2089z00_2286 = (BgL_spz00_2269 + 1L);
														BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00
															(BgL_nsz00_2284, 2L, BgL_sz00_2258,
															BINT(BgL_spz00_2269), BINT(BgL_arg2089z00_2286));
													}
													VECTOR_SET(BgL_nsz00_2284, 1L, BgL_sz00_2258);
													BGL_ENV_EVSTATE_SET(BgL_z12denvz12_2282,
														BgL_nsz00_2284);
													{	/* Eval/evaluate_comp.scm 896 */
														obj_t BgL_ez00_2287;

														BgL_ez00_2287 = BGL_EXITD_TOP_AS_OBJ();
														{	/* Eval/evaluate_comp.scm 896 */
															obj_t BgL_arg4321z00_7785;

															{	/* Eval/evaluate_comp.scm 896 */
																obj_t BgL_arg4322z00_7786;

																BgL_arg4322z00_7786 =
																	BGL_EXITD_PROTECT(BgL_ez00_2287);
																BgL_arg4321z00_7785 =
																	MAKE_YOUNG_PAIR(BgL_sz00_2258,
																	BgL_arg4322z00_7786);
															}
															BGL_EXITD_PROTECT_SET(BgL_ez00_2287,
																BgL_arg4321z00_7785);
															BUNSPEC;
														}
														{	/* Eval/evaluate_comp.scm 896 */
															obj_t BgL_____rz00_2288;

															{	/* Eval/evaluate_comp.scm 670 */
																obj_t BgL_savedzd2bpzd2_7787;

																BgL_savedzd2bpzd2_7787 =
																	VECTOR_REF(BgL_nsz00_2284, 0L);
																VECTOR_SET(BgL_nsz00_2284, 0L, BINT(2L));
																{
																	obj_t BgL_fz00_7791;

																	BgL_fz00_7791 = BgL_runz00_2267;
																BgL_recz00_7790:
																	{	/* Eval/evaluate_comp.scm 673 */
																		obj_t BgL_rz00_7792;

																		BgL_rz00_7792 =
																			BGL_PROCEDURE_CALL1(BgL_fz00_7791,
																			BgL_nsz00_2284);
																		{	/* Eval/evaluate_comp.scm 674 */
																			bool_t BgL_test5060z00_19733;

																			if (PROCEDUREP(BgL_rz00_7792))
																				{	/* Eval/evaluate_comp.scm 674 */
																					obj_t BgL_arg1759z00_7795;

																					BgL_arg1759z00_7795 =
																						PROCEDURE_ATTR(BgL_rz00_7792);
																					if (STRUCTP(BgL_arg1759z00_7795))
																						{	/* Eval/evaluate_comp.scm 654 */
																							BgL_test5060z00_19733 =
																								(STRUCT_KEY(BgL_arg1759z00_7795)
																								==
																								BGl_symbol4573z00zz__evaluate_compz00);
																						}
																					else
																						{	/* Eval/evaluate_comp.scm 654 */
																							BgL_test5060z00_19733 =
																								((bool_t) 0);
																						}
																				}
																			else
																				{	/* Eval/evaluate_comp.scm 674 */
																					BgL_test5060z00_19733 = ((bool_t) 0);
																				}
																			if (BgL_test5060z00_19733)
																				{
																					obj_t BgL_fz00_19741;

																					BgL_fz00_19741 = BgL_rz00_7792;
																					BgL_fz00_7791 = BgL_fz00_19741;
																					goto BgL_recz00_7790;
																				}
																			else
																				{	/* Eval/evaluate_comp.scm 674 */
																					VECTOR_SET(BgL_nsz00_2284, 0L,
																						BgL_savedzd2bpzd2_7787);
																					BgL_____rz00_2288 = BgL_rz00_7792;
																				}
																		}
																	}
																}
															}
															{	/* Eval/evaluate_comp.scm 896 */
																bool_t BgL_test5063z00_19743;

																{	/* Eval/evaluate_comp.scm 896 */
																	obj_t BgL_arg4320z00_7803;

																	BgL_arg4320z00_7803 =
																		BGL_EXITD_PROTECT(BgL_ez00_2287);
																	BgL_test5063z00_19743 =
																		PAIRP(BgL_arg4320z00_7803);
																}
																if (BgL_test5063z00_19743)
																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_arg4318z00_7804;

																		{	/* Eval/evaluate_comp.scm 896 */
																			obj_t BgL_arg4319z00_7805;

																			BgL_arg4319z00_7805 =
																				BGL_EXITD_PROTECT(BgL_ez00_2287);
																			BgL_arg4318z00_7804 =
																				CDR(((obj_t) BgL_arg4319z00_7805));
																		}
																		BGL_EXITD_PROTECT_SET(BgL_ez00_2287,
																			BgL_arg4318z00_7804);
																		BUNSPEC;
																	}
																else
																	{	/* Eval/evaluate_comp.scm 896 */
																		BFALSE;
																	}
															}
															BGL_ENV_EVSTATE_SET(BgL_z12denvz12_2282,
																BgL_sz00_2258);
															return BgL_____rz00_2288;
														}
													}
												}
										}
									}
								}
							else
								{	/* Eval/evaluate_comp.scm 896 */
									if (PROCEDURE_CORRECT_ARITYP(BgL_fz00_2261, (int) (1L)))
										{	/* Eval/evaluate_comp.scm 896 */
											long BgL_nbpz00_2289;

											BgL_nbpz00_2289 =
												((long) CINT(BgL_bpz00_2260) + BgL_siza7eza7_15764);
											VECTOR_SET(
												((obj_t) BgL_sz00_2258), 0L, BINT(BgL_nbpz00_2289));
											{	/* Eval/evaluate_comp.scm 896 */
												obj_t BgL_tmpz00_19759;

												BgL_tmpz00_19759 = BGL_CURRENT_DYNAMIC_ENV();
												BGL_ENV_SET_TRACE_LOCATION(BgL_tmpz00_19759,
													BgL_locz00_15762);
											}
											{	/* Eval/evaluate_comp.scm 896 */
												obj_t BgL_rz00_2291;

												BgL_rz00_2291 =
													BGL_PROCEDURE_CALL1(BgL_fz00_2261, BgL_a1z00_2262);
												VECTOR_SET(((obj_t) BgL_sz00_2258), 0L, BgL_bpz00_2260);
												return BgL_rz00_2291;
											}
										}
									else
										{	/* Eval/evaluate_comp.scm 896 */
											return
												BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_15762,
												BgL_symbzd2funzd2_15763, (int) (1L),
												PROCEDURE_ARITY(BgL_fz00_2261));
		}}}}}}}

	}



/* &<@anonymous:2092> */
	obj_t BGl_z62zc3z04anonymousza32092ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13747, obj_t BgL_sz00_13753)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			return
				BGl_zc3z04anonymousza32092ze3ze70z60zz__evaluate_compz00(
				(long) CINT(PROCEDURE_REF(BgL_envz00_13747,
						(int) (4L))),
				PROCEDURE_REF(BgL_envz00_13747,
					(int) (3L)),
				PROCEDURE_REF(BgL_envz00_13747,
					(int) (2L)),
				PROCEDURE_REF(BgL_envz00_13747,
					(int) (1L)),
				PROCEDURE_REF(BgL_envz00_13747, (int) (0L)), BgL_sz00_13753);
		}

	}



/* <@anonymous:2092>~0 */
	obj_t BGl_zc3z04anonymousza32092ze3ze70z60zz__evaluate_compz00(long
		BgL_siza7eza7_15759, obj_t BgL_symbzd2funzd2_15758, obj_t BgL_locz00_15757,
		obj_t BgL_a1z00_15756, obj_t BgL_funz00_15755, obj_t BgL_sz00_2293)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			{	/* Eval/evaluate_comp.scm 896 */
				obj_t BgL_bpz00_2295;

				BgL_bpz00_2295 = VECTOR_REF(((obj_t) BgL_sz00_2293), 0L);
				{	/* Eval/evaluate_comp.scm 896 */
					obj_t BgL_fz00_2296;
					obj_t BgL_a1z00_2297;

					BgL_fz00_2296 = BGL_PROCEDURE_CALL1(BgL_funz00_15755, BgL_sz00_2293);
					BgL_a1z00_2297 = BGL_PROCEDURE_CALL1(BgL_a1z00_15756, BgL_sz00_2293);
					if (PROCEDUREP(BgL_fz00_2296))
						{	/* Eval/evaluate_comp.scm 896 */
							BFALSE;
						}
					else
						{	/* Eval/evaluate_comp.scm 896 */
							BGl_evtypezd2errorzd2zz__everrorz00(BgL_locz00_15757,
								BGl_string4577z00zz__evaluate_compz00,
								BGl_string4593z00zz__evaluate_compz00, BgL_fz00_2296);
						}
					{	/* Eval/evaluate_comp.scm 896 */
						obj_t BgL_ufz00_2299;

						{	/* Eval/evaluate_comp.scm 896 */
							obj_t BgL_tmpz00_19796;

							BgL_tmpz00_19796 = ((obj_t) BgL_fz00_2296);
							BgL_ufz00_2299 = PROCEDURE_ATTR(BgL_tmpz00_19796);
						}
						{	/* Eval/evaluate_comp.scm 896 */
							bool_t BgL_test5066z00_19799;

							if (STRUCTP(BgL_ufz00_2299))
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test5066z00_19799 =
										(STRUCT_KEY(BgL_ufz00_2299) ==
										BGl_symbol4594z00zz__evaluate_compz00);
								}
							else
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test5066z00_19799 = ((bool_t) 0);
								}
							if (BgL_test5066z00_19799)
								{	/* Eval/evaluate_comp.scm 896 */
									obj_t BgL_arityz00_2301;
									obj_t BgL_runz00_2302;
									obj_t BgL_sfz00_2303;

									BgL_arityz00_2301 = STRUCT_REF(BgL_ufz00_2299, (int) (0L));
									BgL_runz00_2302 = STRUCT_REF(BgL_ufz00_2299, (int) (1L));
									BgL_sfz00_2303 = STRUCT_REF(BgL_ufz00_2299, (int) (2L));
									{	/* Eval/evaluate_comp.scm 896 */
										long BgL_spz00_2304;

										BgL_spz00_2304 =
											((long) CINT(BgL_bpz00_2295) + BgL_siza7eza7_15759);
										if (((long) CINT(BgL_arityz00_2301) == 1L))
											{	/* Eval/evaluate_comp.scm 896 */
												long BgL_arg2096z00_2306;

												BgL_arg2096z00_2306 = (BgL_spz00_2304 + 0L);
												VECTOR_SET(
													((obj_t) BgL_sz00_2293), BgL_arg2096z00_2306,
													BgL_a1z00_2297);
											}
										else
											{	/* Eval/evaluate_comp.scm 896 */
												if (INTEGERP(BgL_arityz00_2301))
													{	/* Eval/evaluate_comp.scm 896 */
														switch ((long) CINT(BgL_arityz00_2301))
															{
															case (-1L):

																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2097z00_2309;
																	obj_t BgL_arg2098z00_2310;

																	BgL_arg2097z00_2309 = (BgL_spz00_2304 + 0L);
																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_list2099z00_2311;

																		BgL_list2099z00_2311 =
																			MAKE_YOUNG_PAIR(BgL_a1z00_2297, BNIL);
																		BgL_arg2098z00_2310 = BgL_list2099z00_2311;
																	}
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2293),
																		BgL_arg2097z00_2309, BgL_arg2098z00_2310);
																} break;
															case (-2L):

																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2100z00_2312;

																	BgL_arg2100z00_2312 = (BgL_spz00_2304 + 0L);
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2293),
																		BgL_arg2100z00_2312, BgL_a1z00_2297);
																}
																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2101z00_2313;
																	obj_t BgL_arg2102z00_2314;

																	BgL_arg2101z00_2313 = (BgL_spz00_2304 + 1L);
																	BgL_arg2102z00_2314 = BNIL;
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2293),
																		BgL_arg2101z00_2313, BgL_arg2102z00_2314);
																} break;
															default:
																BGl_evarityzd2errorzd2zz__everrorz00
																	(BgL_locz00_15757, STRUCT_REF(BgL_ufz00_2299,
																		(int) (3L)), (int) (1L),
																	CINT(BgL_arityz00_2301));
													}}
												else
													{	/* Eval/evaluate_comp.scm 896 */
														BGl_evarityzd2errorzd2zz__everrorz00
															(BgL_locz00_15757, STRUCT_REF(BgL_ufz00_2299,
																(int) (3L)), (int) (1L),
															CINT(BgL_arityz00_2301));
											}}
										{	/* Eval/evaluate_comp.scm 896 */
											obj_t BgL_z12denvz12_2317;

											BgL_z12denvz12_2317 = BGL_CURRENT_DYNAMIC_ENV();
											if (
												((BgL_spz00_2304 +
														(long) CINT(BgL_sfz00_2303)) <
													VECTOR_LENGTH(((obj_t) BgL_sz00_2293))))
												{	/* Eval/evaluate_comp.scm 896 */
													return
														BGl_catchzd2trampolinezd2zz__evaluate_compz00
														(BgL_runz00_2302, BgL_sz00_2293,
														BINT(BgL_spz00_2304));
												}
											else
												{	/* Eval/evaluate_comp.scm 896 */
													obj_t BgL_nsz00_2319;

													BgL_nsz00_2319 =
														BGl_makezd2statezd2zz__evaluate_compz00();
													{	/* Eval/evaluate_comp.scm 896 */
														long BgL_arg2106z00_2321;

														BgL_arg2106z00_2321 = (BgL_spz00_2304 + 1L);
														BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00
															(BgL_nsz00_2319, 2L, BgL_sz00_2293,
															BINT(BgL_spz00_2304), BINT(BgL_arg2106z00_2321));
													}
													VECTOR_SET(BgL_nsz00_2319, 1L, BgL_sz00_2293);
													BGL_ENV_EVSTATE_SET(BgL_z12denvz12_2317,
														BgL_nsz00_2319);
													{	/* Eval/evaluate_comp.scm 896 */
														obj_t BgL_ez00_2322;

														BgL_ez00_2322 = BGL_EXITD_TOP_AS_OBJ();
														{	/* Eval/evaluate_comp.scm 896 */
															obj_t BgL_arg4321z00_7852;

															{	/* Eval/evaluate_comp.scm 896 */
																obj_t BgL_arg4322z00_7853;

																BgL_arg4322z00_7853 =
																	BGL_EXITD_PROTECT(BgL_ez00_2322);
																BgL_arg4321z00_7852 =
																	MAKE_YOUNG_PAIR(BgL_sz00_2293,
																	BgL_arg4322z00_7853);
															}
															BGL_EXITD_PROTECT_SET(BgL_ez00_2322,
																BgL_arg4321z00_7852);
															BUNSPEC;
														}
														{	/* Eval/evaluate_comp.scm 896 */
															obj_t BgL_____rz00_2323;

															{	/* Eval/evaluate_comp.scm 670 */
																obj_t BgL_savedzd2bpzd2_7854;

																BgL_savedzd2bpzd2_7854 =
																	VECTOR_REF(BgL_nsz00_2319, 0L);
																VECTOR_SET(BgL_nsz00_2319, 0L, BINT(2L));
																{
																	obj_t BgL_fz00_7858;

																	BgL_fz00_7858 = BgL_runz00_2302;
																BgL_recz00_7857:
																	{	/* Eval/evaluate_comp.scm 673 */
																		obj_t BgL_rz00_7859;

																		BgL_rz00_7859 =
																			BGL_PROCEDURE_CALL1(BgL_fz00_7858,
																			BgL_nsz00_2319);
																		{	/* Eval/evaluate_comp.scm 674 */
																			bool_t BgL_test5071z00_19869;

																			if (PROCEDUREP(BgL_rz00_7859))
																				{	/* Eval/evaluate_comp.scm 674 */
																					obj_t BgL_arg1759z00_7862;

																					BgL_arg1759z00_7862 =
																						PROCEDURE_ATTR(BgL_rz00_7859);
																					if (STRUCTP(BgL_arg1759z00_7862))
																						{	/* Eval/evaluate_comp.scm 654 */
																							BgL_test5071z00_19869 =
																								(STRUCT_KEY(BgL_arg1759z00_7862)
																								==
																								BGl_symbol4573z00zz__evaluate_compz00);
																						}
																					else
																						{	/* Eval/evaluate_comp.scm 654 */
																							BgL_test5071z00_19869 =
																								((bool_t) 0);
																						}
																				}
																			else
																				{	/* Eval/evaluate_comp.scm 674 */
																					BgL_test5071z00_19869 = ((bool_t) 0);
																				}
																			if (BgL_test5071z00_19869)
																				{
																					obj_t BgL_fz00_19877;

																					BgL_fz00_19877 = BgL_rz00_7859;
																					BgL_fz00_7858 = BgL_fz00_19877;
																					goto BgL_recz00_7857;
																				}
																			else
																				{	/* Eval/evaluate_comp.scm 674 */
																					VECTOR_SET(BgL_nsz00_2319, 0L,
																						BgL_savedzd2bpzd2_7854);
																					BgL_____rz00_2323 = BgL_rz00_7859;
																				}
																		}
																	}
																}
															}
															{	/* Eval/evaluate_comp.scm 896 */
																bool_t BgL_test5074z00_19879;

																{	/* Eval/evaluate_comp.scm 896 */
																	obj_t BgL_arg4320z00_7870;

																	BgL_arg4320z00_7870 =
																		BGL_EXITD_PROTECT(BgL_ez00_2322);
																	BgL_test5074z00_19879 =
																		PAIRP(BgL_arg4320z00_7870);
																}
																if (BgL_test5074z00_19879)
																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_arg4318z00_7871;

																		{	/* Eval/evaluate_comp.scm 896 */
																			obj_t BgL_arg4319z00_7872;

																			BgL_arg4319z00_7872 =
																				BGL_EXITD_PROTECT(BgL_ez00_2322);
																			BgL_arg4318z00_7871 =
																				CDR(((obj_t) BgL_arg4319z00_7872));
																		}
																		BGL_EXITD_PROTECT_SET(BgL_ez00_2322,
																			BgL_arg4318z00_7871);
																		BUNSPEC;
																	}
																else
																	{	/* Eval/evaluate_comp.scm 896 */
																		BFALSE;
																	}
															}
															BGL_ENV_EVSTATE_SET(BgL_z12denvz12_2317,
																BgL_sz00_2293);
															return BgL_____rz00_2323;
														}
													}
												}
										}
									}
								}
							else
								{	/* Eval/evaluate_comp.scm 896 */
									if (PROCEDURE_CORRECT_ARITYP(BgL_fz00_2296, (int) (1L)))
										{	/* Eval/evaluate_comp.scm 896 */
											long BgL_nbpz00_2324;

											BgL_nbpz00_2324 =
												((long) CINT(BgL_bpz00_2295) + BgL_siza7eza7_15759);
											VECTOR_SET(
												((obj_t) BgL_sz00_2293), 0L, BINT(BgL_nbpz00_2324));
											{	/* Eval/evaluate_comp.scm 896 */
												obj_t BgL_rz00_2325;

												BgL_rz00_2325 =
													BGL_PROCEDURE_CALL1(BgL_fz00_2296, BgL_a1z00_2297);
												VECTOR_SET(((obj_t) BgL_sz00_2293), 0L, BgL_bpz00_2295);
												return BgL_rz00_2325;
											}
										}
									else
										{	/* Eval/evaluate_comp.scm 896 */
											return
												BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_15757,
												BgL_symbzd2funzd2_15758, (int) (1L),
												PROCEDURE_ARITY(BgL_fz00_2296));
		}}}}}}}

	}



/* comp-call2 */
	obj_t BGl_compzd2call2zd2zz__evaluate_compz00(obj_t BgL_locz00_153,
		BgL_ev_exprz00_bglt BgL_vfunz00_154, obj_t BgL_symbzd2funzd2_155,
		obj_t BgL_funz00_156, obj_t BgL_tailzf3zf3_157, obj_t BgL_stkz00_158,
		long BgL_siza7eza7_159, obj_t BgL_a1z00_160, obj_t BgL_a2z00_161)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			{	/* Eval/evaluate_comp.scm 896 */
				obj_t BgL_cfunz00_2328;

				BgL_cfunz00_2328 =
					BGl_iszd2constantzd2funzf3zf3zz__evaluate_compz00(BgL_vfunz00_154, 2L,
					BgL_locz00_153, BgL_symbzd2funzd2_155);
				if (CBOOL(BgL_cfunz00_2328))
					{	/* Eval/evaluate_comp.scm 896 */
						bool_t BgL_test5077z00_19907;

						{	/* Eval/evaluate_comp.scm 896 */
							int BgL_a1370z00_2346;

							BgL_a1370z00_2346 = bgl_debug();
							BgL_test5077z00_19907 = ((long) (BgL_a1370z00_2346) > 0L);
						}
						if (BgL_test5077z00_19907)
							{	/* Eval/evaluate_comp.scm 896 */
								obj_t BgL_zc3z04anonymousza32109ze3z87_13754;

								BgL_zc3z04anonymousza32109ze3z87_13754 =
									MAKE_FX_PROCEDURE
									(BGl_z62zc3z04anonymousza32109ze3ze5zz__evaluate_compz00,
									(int) (1L), (int) (5L));
								PROCEDURE_SET(BgL_zc3z04anonymousza32109ze3z87_13754,
									(int) (0L), BgL_a1z00_160);
								PROCEDURE_SET(BgL_zc3z04anonymousza32109ze3z87_13754,
									(int) (1L), BgL_a2z00_161);
								PROCEDURE_SET(BgL_zc3z04anonymousza32109ze3z87_13754,
									(int) (2L), BINT(BgL_siza7eza7_159));
								PROCEDURE_SET(BgL_zc3z04anonymousza32109ze3z87_13754,
									(int) (3L), BgL_locz00_153);
								PROCEDURE_SET(BgL_zc3z04anonymousza32109ze3z87_13754,
									(int) (4L), BgL_cfunz00_2328);
								return BgL_zc3z04anonymousza32109ze3z87_13754;
							}
						else
							{	/* Eval/evaluate_comp.scm 896 */
								obj_t BgL_zc3z04anonymousza32111ze3z87_13755;

								BgL_zc3z04anonymousza32111ze3z87_13755 =
									MAKE_FX_PROCEDURE
									(BGl_z62zc3z04anonymousza32111ze3ze5zz__evaluate_compz00,
									(int) (1L), (int) (4L));
								PROCEDURE_SET(BgL_zc3z04anonymousza32111ze3z87_13755,
									(int) (0L), BgL_a1z00_160);
								PROCEDURE_SET(BgL_zc3z04anonymousza32111ze3z87_13755,
									(int) (1L), BgL_a2z00_161);
								PROCEDURE_SET(BgL_zc3z04anonymousza32111ze3z87_13755,
									(int) (2L), BINT(BgL_siza7eza7_159));
								PROCEDURE_SET(BgL_zc3z04anonymousza32111ze3z87_13755,
									(int) (3L), BgL_cfunz00_2328);
								return BgL_zc3z04anonymousza32111ze3z87_13755;
							}
					}
				else
					{	/* Eval/evaluate_comp.scm 896 */
						if (CBOOL(BgL_tailzf3zf3_157))
							{	/* Eval/evaluate_comp.scm 896 */
								bool_t BgL_test5079z00_19939;

								{	/* Eval/evaluate_comp.scm 896 */
									int BgL_a1371z00_2434;

									BgL_a1371z00_2434 = bgl_debug();
									BgL_test5079z00_19939 = ((long) (BgL_a1371z00_2434) > 0L);
								}
								if (BgL_test5079z00_19939)
									{	/* Eval/evaluate_comp.scm 896 */
										obj_t BgL_zc3z04anonymousza32113ze3z87_13756;

										BgL_zc3z04anonymousza32113ze3z87_13756 =
											MAKE_FX_PROCEDURE
											(BGl_z62zc3z04anonymousza32113ze3ze5zz__evaluate_compz00,
											(int) (1L), (int) (6L));
										PROCEDURE_SET(BgL_zc3z04anonymousza32113ze3z87_13756,
											(int) (0L), BgL_funz00_156);
										PROCEDURE_SET(BgL_zc3z04anonymousza32113ze3z87_13756,
											(int) (1L), BgL_a1z00_160);
										PROCEDURE_SET(BgL_zc3z04anonymousza32113ze3z87_13756,
											(int) (2L), BgL_a2z00_161);
										PROCEDURE_SET(BgL_zc3z04anonymousza32113ze3z87_13756,
											(int) (3L), BgL_locz00_153);
										PROCEDURE_SET(BgL_zc3z04anonymousza32113ze3z87_13756,
											(int) (4L), BgL_symbzd2funzd2_155);
										PROCEDURE_SET(BgL_zc3z04anonymousza32113ze3z87_13756,
											(int) (5L), BINT(BgL_siza7eza7_159));
										return BgL_zc3z04anonymousza32113ze3z87_13756;
									}
								else
									{	/* Eval/evaluate_comp.scm 896 */
										obj_t BgL_zc3z04anonymousza32137ze3z87_13757;

										BgL_zc3z04anonymousza32137ze3z87_13757 =
											MAKE_FX_PROCEDURE
											(BGl_z62zc3z04anonymousza32137ze3ze5zz__evaluate_compz00,
											(int) (1L), (int) (6L));
										PROCEDURE_SET(BgL_zc3z04anonymousza32137ze3z87_13757,
											(int) (0L), BgL_funz00_156);
										PROCEDURE_SET(BgL_zc3z04anonymousza32137ze3z87_13757,
											(int) (1L), BgL_a1z00_160);
										PROCEDURE_SET(BgL_zc3z04anonymousza32137ze3z87_13757,
											(int) (2L), BgL_a2z00_161);
										PROCEDURE_SET(BgL_zc3z04anonymousza32137ze3z87_13757,
											(int) (3L), BgL_locz00_153);
										PROCEDURE_SET(BgL_zc3z04anonymousza32137ze3z87_13757,
											(int) (4L), BgL_symbzd2funzd2_155);
										PROCEDURE_SET(BgL_zc3z04anonymousza32137ze3z87_13757,
											(int) (5L), BINT(BgL_siza7eza7_159));
										return BgL_zc3z04anonymousza32137ze3z87_13757;
									}
							}
						else
							{	/* Eval/evaluate_comp.scm 896 */
								bool_t BgL_test5080z00_19975;

								{	/* Eval/evaluate_comp.scm 896 */
									int BgL_a1372z00_2522;

									BgL_a1372z00_2522 = bgl_debug();
									BgL_test5080z00_19975 = ((long) (BgL_a1372z00_2522) > 0L);
								}
								if (BgL_test5080z00_19975)
									{	/* Eval/evaluate_comp.scm 896 */
										obj_t BgL_zc3z04anonymousza32161ze3z87_13758;

										BgL_zc3z04anonymousza32161ze3z87_13758 =
											MAKE_FX_PROCEDURE
											(BGl_z62zc3z04anonymousza32161ze3ze5zz__evaluate_compz00,
											(int) (1L), (int) (6L));
										PROCEDURE_SET(BgL_zc3z04anonymousza32161ze3z87_13758,
											(int) (0L), BgL_funz00_156);
										PROCEDURE_SET(BgL_zc3z04anonymousza32161ze3z87_13758,
											(int) (1L), BgL_a1z00_160);
										PROCEDURE_SET(BgL_zc3z04anonymousza32161ze3z87_13758,
											(int) (2L), BgL_a2z00_161);
										PROCEDURE_SET(BgL_zc3z04anonymousza32161ze3z87_13758,
											(int) (3L), BgL_locz00_153);
										PROCEDURE_SET(BgL_zc3z04anonymousza32161ze3z87_13758,
											(int) (4L), BgL_symbzd2funzd2_155);
										PROCEDURE_SET(BgL_zc3z04anonymousza32161ze3z87_13758,
											(int) (5L), BINT(BgL_siza7eza7_159));
										return BgL_zc3z04anonymousza32161ze3z87_13758;
									}
								else
									{	/* Eval/evaluate_comp.scm 896 */
										obj_t BgL_zc3z04anonymousza32186ze3z87_13759;

										BgL_zc3z04anonymousza32186ze3z87_13759 =
											MAKE_FX_PROCEDURE
											(BGl_z62zc3z04anonymousza32186ze3ze5zz__evaluate_compz00,
											(int) (1L), (int) (6L));
										PROCEDURE_SET(BgL_zc3z04anonymousza32186ze3z87_13759,
											(int) (0L), BgL_funz00_156);
										PROCEDURE_SET(BgL_zc3z04anonymousza32186ze3z87_13759,
											(int) (1L), BgL_a1z00_160);
										PROCEDURE_SET(BgL_zc3z04anonymousza32186ze3z87_13759,
											(int) (2L), BgL_a2z00_161);
										PROCEDURE_SET(BgL_zc3z04anonymousza32186ze3z87_13759,
											(int) (3L), BgL_locz00_153);
										PROCEDURE_SET(BgL_zc3z04anonymousza32186ze3z87_13759,
											(int) (4L), BgL_symbzd2funzd2_155);
										PROCEDURE_SET(BgL_zc3z04anonymousza32186ze3z87_13759,
											(int) (5L), BINT(BgL_siza7eza7_159));
										return BgL_zc3z04anonymousza32186ze3z87_13759;
									}
							}
					}
			}
		}

	}



/* &<@anonymous:2109> */
	obj_t BGl_z62zc3z04anonymousza32109ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13760, obj_t BgL_sz00_13766)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			{	/* Eval/evaluate_comp.scm 896 */
				obj_t BgL_a1z00_13761;
				obj_t BgL_a2z00_13762;
				long BgL_siza7eza7_13763;
				obj_t BgL_locz00_13764;
				obj_t BgL_cfunz00_13765;

				BgL_a1z00_13761 = PROCEDURE_REF(BgL_envz00_13760, (int) (0L));
				BgL_a2z00_13762 = PROCEDURE_REF(BgL_envz00_13760, (int) (1L));
				BgL_siza7eza7_13763 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_13760, (int) (2L)));
				BgL_locz00_13764 = PROCEDURE_REF(BgL_envz00_13760, (int) (3L));
				BgL_cfunz00_13765 = PROCEDURE_REF(BgL_envz00_13760, (int) (4L));
				{	/* Eval/evaluate_comp.scm 896 */
					obj_t BgL_bpz00_15908;

					BgL_bpz00_15908 = VECTOR_REF(((obj_t) BgL_sz00_13766), 0L);
					{	/* Eval/evaluate_comp.scm 896 */
						obj_t BgL_a1z00_15909;
						obj_t BgL_a2z00_15910;

						BgL_a1z00_15909 =
							BGL_PROCEDURE_CALL1(BgL_a1z00_13761, BgL_sz00_13766);
						BgL_a2z00_15910 =
							BGL_PROCEDURE_CALL1(BgL_a2z00_13762, BgL_sz00_13766);
						{	/* Eval/evaluate_comp.scm 896 */
							long BgL_nbpz00_15911;

							BgL_nbpz00_15911 =
								((long) CINT(BgL_bpz00_15908) + BgL_siza7eza7_13763);
							VECTOR_SET(((obj_t) BgL_sz00_13766), 0L, BINT(BgL_nbpz00_15911));
							{	/* Eval/evaluate_comp.scm 896 */
								obj_t BgL_tmpz00_20037;

								BgL_tmpz00_20037 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_SET_TRACE_LOCATION(BgL_tmpz00_20037, BgL_locz00_13764);
							}
							{	/* Eval/evaluate_comp.scm 896 */
								obj_t BgL_rz00_15912;

								BgL_rz00_15912 =
									BGL_PROCEDURE_CALL2(BgL_cfunz00_13765, BgL_a1z00_15909,
									BgL_a2z00_15910);
								VECTOR_SET(((obj_t) BgL_sz00_13766), 0L, BgL_bpz00_15908);
								return BgL_rz00_15912;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:2111> */
	obj_t BGl_z62zc3z04anonymousza32111ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13767, obj_t BgL_sz00_13772)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			{	/* Eval/evaluate_comp.scm 896 */
				obj_t BgL_a1z00_13768;
				obj_t BgL_a2z00_13769;
				long BgL_siza7eza7_13770;
				obj_t BgL_cfunz00_13771;

				BgL_a1z00_13768 = PROCEDURE_REF(BgL_envz00_13767, (int) (0L));
				BgL_a2z00_13769 = PROCEDURE_REF(BgL_envz00_13767, (int) (1L));
				BgL_siza7eza7_13770 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_13767, (int) (2L)));
				BgL_cfunz00_13771 = PROCEDURE_REF(BgL_envz00_13767, (int) (3L));
				{	/* Eval/evaluate_comp.scm 896 */
					obj_t BgL_bpz00_15913;

					BgL_bpz00_15913 = VECTOR_REF(((obj_t) BgL_sz00_13772), 0L);
					{	/* Eval/evaluate_comp.scm 896 */
						obj_t BgL_a1z00_15914;
						obj_t BgL_a2z00_15915;

						BgL_a1z00_15914 =
							BGL_PROCEDURE_CALL1(BgL_a1z00_13768, BgL_sz00_13772);
						BgL_a2z00_15915 =
							BGL_PROCEDURE_CALL1(BgL_a2z00_13769, BgL_sz00_13772);
						{	/* Eval/evaluate_comp.scm 896 */
							long BgL_nbpz00_15916;

							BgL_nbpz00_15916 =
								((long) CINT(BgL_bpz00_15913) + BgL_siza7eza7_13770);
							VECTOR_SET(((obj_t) BgL_sz00_13772), 0L, BINT(BgL_nbpz00_15916));
							{	/* Eval/evaluate_comp.scm 896 */
								obj_t BgL_rz00_15917;

								BgL_rz00_15917 =
									BGL_PROCEDURE_CALL2(BgL_cfunz00_13771, BgL_a1z00_15914,
									BgL_a2z00_15915);
								VECTOR_SET(((obj_t) BgL_sz00_13772), 0L, BgL_bpz00_15913);
								return BgL_rz00_15917;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:2113> */
	obj_t BGl_z62zc3z04anonymousza32113ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13773, obj_t BgL_sz00_13780)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			return
				BGl_zc3z04anonymousza32113ze3ze70z60zz__evaluate_compz00(
				(long) CINT(PROCEDURE_REF(BgL_envz00_13773,
						(int) (5L))),
				PROCEDURE_REF(BgL_envz00_13773,
					(int) (4L)),
				PROCEDURE_REF(BgL_envz00_13773,
					(int) (3L)),
				PROCEDURE_REF(BgL_envz00_13773,
					(int) (2L)),
				PROCEDURE_REF(BgL_envz00_13773,
					(int) (1L)),
				PROCEDURE_REF(BgL_envz00_13773, (int) (0L)), BgL_sz00_13780);
		}

	}



/* <@anonymous:2113>~0 */
	obj_t BGl_zc3z04anonymousza32113ze3ze70z60zz__evaluate_compz00(long
		BgL_siza7eza7_15754, obj_t BgL_symbzd2funzd2_15753, obj_t BgL_locz00_15752,
		obj_t BgL_a2z00_15751, obj_t BgL_a1z00_15750, obj_t BgL_funz00_15749,
		obj_t BgL_sz00_2349)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			{	/* Eval/evaluate_comp.scm 896 */
				obj_t BgL_bpz00_2351;

				BgL_bpz00_2351 = VECTOR_REF(((obj_t) BgL_sz00_2349), 0L);
				{	/* Eval/evaluate_comp.scm 896 */
					obj_t BgL_fz00_2352;
					obj_t BgL_a1z00_2353;
					obj_t BgL_a2z00_2354;

					BgL_fz00_2352 = BGL_PROCEDURE_CALL1(BgL_funz00_15749, BgL_sz00_2349);
					BgL_a1z00_2353 = BGL_PROCEDURE_CALL1(BgL_a1z00_15750, BgL_sz00_2349);
					BgL_a2z00_2354 = BGL_PROCEDURE_CALL1(BgL_a2z00_15751, BgL_sz00_2349);
					if (PROCEDUREP(BgL_fz00_2352))
						{	/* Eval/evaluate_comp.scm 896 */
							BFALSE;
						}
					else
						{	/* Eval/evaluate_comp.scm 896 */
							BGl_evtypezd2errorzd2zz__everrorz00(BgL_locz00_15752,
								BGl_string4577z00zz__evaluate_compz00,
								BGl_string4593z00zz__evaluate_compz00, BgL_fz00_2352);
						}
					{	/* Eval/evaluate_comp.scm 896 */
						obj_t BgL_ufz00_2356;

						{	/* Eval/evaluate_comp.scm 896 */
							obj_t BgL_tmpz00_20109;

							BgL_tmpz00_20109 = ((obj_t) BgL_fz00_2352);
							BgL_ufz00_2356 = PROCEDURE_ATTR(BgL_tmpz00_20109);
						}
						{	/* Eval/evaluate_comp.scm 896 */
							bool_t BgL_test5082z00_20112;

							if (STRUCTP(BgL_ufz00_2356))
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test5082z00_20112 =
										(STRUCT_KEY(BgL_ufz00_2356) ==
										BGl_symbol4594z00zz__evaluate_compz00);
								}
							else
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test5082z00_20112 = ((bool_t) 0);
								}
							if (BgL_test5082z00_20112)
								{	/* Eval/evaluate_comp.scm 896 */
									obj_t BgL_arityz00_2358;
									obj_t BgL_runz00_2359;
									obj_t BgL_sfz00_2360;

									BgL_arityz00_2358 = STRUCT_REF(BgL_ufz00_2356, (int) (0L));
									BgL_runz00_2359 = STRUCT_REF(BgL_ufz00_2356, (int) (1L));
									BgL_sfz00_2360 = STRUCT_REF(BgL_ufz00_2356, (int) (2L));
									if (((long) CINT(BgL_arityz00_2358) == 2L))
										{	/* Eval/evaluate_comp.scm 896 */
											{	/* Eval/evaluate_comp.scm 896 */
												long BgL_arg2117z00_2363;

												BgL_arg2117z00_2363 =
													((long) CINT(BgL_bpz00_2351) + 0L);
												VECTOR_SET(
													((obj_t) BgL_sz00_2349), BgL_arg2117z00_2363,
													BgL_a1z00_2353);
											}
											{	/* Eval/evaluate_comp.scm 896 */
												long BgL_arg2118z00_2364;

												BgL_arg2118z00_2364 =
													((long) CINT(BgL_bpz00_2351) + 1L);
												VECTOR_SET(
													((obj_t) BgL_sz00_2349), BgL_arg2118z00_2364,
													BgL_a2z00_2354);
										}}
									else
										{	/* Eval/evaluate_comp.scm 896 */
											if (INTEGERP(BgL_arityz00_2358))
												{	/* Eval/evaluate_comp.scm 896 */
													switch ((long) CINT(BgL_arityz00_2358))
														{
														case (-1L):

															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2119z00_2367;
																obj_t BgL_arg2120z00_2368;

																BgL_arg2119z00_2367 =
																	((long) CINT(BgL_bpz00_2351) + 0L);
																{	/* Eval/evaluate_comp.scm 896 */
																	obj_t BgL_list2121z00_2369;

																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_arg2122z00_2370;

																		BgL_arg2122z00_2370 =
																			MAKE_YOUNG_PAIR(BgL_a2z00_2354, BNIL);
																		BgL_list2121z00_2369 =
																			MAKE_YOUNG_PAIR(BgL_a1z00_2353,
																			BgL_arg2122z00_2370);
																	}
																	BgL_arg2120z00_2368 = BgL_list2121z00_2369;
																}
																VECTOR_SET(
																	((obj_t) BgL_sz00_2349), BgL_arg2119z00_2367,
																	BgL_arg2120z00_2368);
															} break;
														case (-2L):

															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2123z00_2371;

																BgL_arg2123z00_2371 =
																	((long) CINT(BgL_bpz00_2351) + 0L);
																VECTOR_SET(
																	((obj_t) BgL_sz00_2349), BgL_arg2123z00_2371,
																	BgL_a1z00_2353);
															}
															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2124z00_2372;
																obj_t BgL_arg2125z00_2373;

																BgL_arg2124z00_2372 =
																	((long) CINT(BgL_bpz00_2351) + 1L);
																{	/* Eval/evaluate_comp.scm 896 */
																	obj_t BgL_list2126z00_2374;

																	BgL_list2126z00_2374 =
																		MAKE_YOUNG_PAIR(BgL_a2z00_2354, BNIL);
																	BgL_arg2125z00_2373 = BgL_list2126z00_2374;
																}
																VECTOR_SET(
																	((obj_t) BgL_sz00_2349), BgL_arg2124z00_2372,
																	BgL_arg2125z00_2373);
															} break;
														case (-3L):

															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2127z00_2375;

																BgL_arg2127z00_2375 =
																	((long) CINT(BgL_bpz00_2351) + 0L);
																VECTOR_SET(
																	((obj_t) BgL_sz00_2349), BgL_arg2127z00_2375,
																	BgL_a1z00_2353);
															}
															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2128z00_2376;

																BgL_arg2128z00_2376 =
																	((long) CINT(BgL_bpz00_2351) + 1L);
																VECTOR_SET(
																	((obj_t) BgL_sz00_2349), BgL_arg2128z00_2376,
																	BgL_a2z00_2354);
															}
															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2129z00_2377;
																obj_t BgL_arg2130z00_2378;

																BgL_arg2129z00_2377 =
																	((long) CINT(BgL_bpz00_2351) + 2L);
																BgL_arg2130z00_2378 = BNIL;
																VECTOR_SET(
																	((obj_t) BgL_sz00_2349), BgL_arg2129z00_2377,
																	BgL_arg2130z00_2378);
															} break;
														default:
															BGl_evarityzd2errorzd2zz__everrorz00
																(BgL_locz00_15752, STRUCT_REF(BgL_ufz00_2356,
																	(int) (3L)), (int) (2L),
																CINT(BgL_arityz00_2358));
												}}
											else
												{	/* Eval/evaluate_comp.scm 896 */
													BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_15752,
														STRUCT_REF(BgL_ufz00_2356,
															(int) (3L)), (int) (2L), CINT(BgL_arityz00_2358));
										}}
									{	/* Eval/evaluate_comp.scm 896 */
										obj_t BgL_z12denvz12_2381;

										BgL_z12denvz12_2381 = BGL_CURRENT_DYNAMIC_ENV();
										BGL_ENV_SET_TRACE_LOCATION(BgL_z12denvz12_2381,
											BgL_locz00_15752);
										if ((((long) CINT(BgL_bpz00_2351) +
													(long) CINT(BgL_sfz00_2360)) <
												VECTOR_LENGTH(((obj_t) BgL_sz00_2349))))
											{	/* Eval/evaluate_comp.scm 896 */
												return BgL_runz00_2359;
											}
										else
											{	/* Eval/evaluate_comp.scm 896 */
												obj_t BgL_nsz00_2383;

												BgL_nsz00_2383 =
													BGl_makezd2statezd2zz__evaluate_compz00();
												{	/* Eval/evaluate_comp.scm 896 */
													long BgL_arg2134z00_2385;

													BgL_arg2134z00_2385 =
														((long) CINT(BgL_bpz00_2351) + 2L);
													BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00
														(BgL_nsz00_2383, 2L, BgL_sz00_2349, BgL_bpz00_2351,
														BINT(BgL_arg2134z00_2385));
												}
												VECTOR_SET(BgL_nsz00_2383, 1L, BgL_sz00_2349);
												BGL_ENV_EVSTATE_SET(BgL_z12denvz12_2381,
													BgL_nsz00_2383);
												{	/* Eval/evaluate_comp.scm 896 */
													obj_t BgL_ez00_2386;

													BgL_ez00_2386 = BGL_EXITD_TOP_AS_OBJ();
													{	/* Eval/evaluate_comp.scm 896 */
														obj_t BgL_arg4321z00_7944;

														{	/* Eval/evaluate_comp.scm 896 */
															obj_t BgL_arg4322z00_7945;

															BgL_arg4322z00_7945 =
																BGL_EXITD_PROTECT(BgL_ez00_2386);
															BgL_arg4321z00_7944 =
																MAKE_YOUNG_PAIR(BgL_sz00_2349,
																BgL_arg4322z00_7945);
														}
														BGL_EXITD_PROTECT_SET(BgL_ez00_2386,
															BgL_arg4321z00_7944);
														BUNSPEC;
													}
													{	/* Eval/evaluate_comp.scm 896 */
														obj_t BgL_____rz00_2387;

														{	/* Eval/evaluate_comp.scm 670 */
															obj_t BgL_savedzd2bpzd2_7946;

															BgL_savedzd2bpzd2_7946 =
																VECTOR_REF(BgL_nsz00_2383, 0L);
															VECTOR_SET(BgL_nsz00_2383, 0L, BINT(2L));
															{
																obj_t BgL_fz00_7950;

																BgL_fz00_7950 = BgL_runz00_2359;
															BgL_recz00_7949:
																{	/* Eval/evaluate_comp.scm 673 */
																	obj_t BgL_rz00_7951;

																	BgL_rz00_7951 =
																		BGL_PROCEDURE_CALL1(BgL_fz00_7950,
																		BgL_nsz00_2383);
																	{	/* Eval/evaluate_comp.scm 674 */
																		bool_t BgL_test5087z00_20202;

																		if (PROCEDUREP(BgL_rz00_7951))
																			{	/* Eval/evaluate_comp.scm 674 */
																				obj_t BgL_arg1759z00_7954;

																				BgL_arg1759z00_7954 =
																					PROCEDURE_ATTR(BgL_rz00_7951);
																				if (STRUCTP(BgL_arg1759z00_7954))
																					{	/* Eval/evaluate_comp.scm 654 */
																						BgL_test5087z00_20202 =
																							(STRUCT_KEY(BgL_arg1759z00_7954)
																							==
																							BGl_symbol4573z00zz__evaluate_compz00);
																					}
																				else
																					{	/* Eval/evaluate_comp.scm 654 */
																						BgL_test5087z00_20202 =
																							((bool_t) 0);
																					}
																			}
																		else
																			{	/* Eval/evaluate_comp.scm 674 */
																				BgL_test5087z00_20202 = ((bool_t) 0);
																			}
																		if (BgL_test5087z00_20202)
																			{
																				obj_t BgL_fz00_20210;

																				BgL_fz00_20210 = BgL_rz00_7951;
																				BgL_fz00_7950 = BgL_fz00_20210;
																				goto BgL_recz00_7949;
																			}
																		else
																			{	/* Eval/evaluate_comp.scm 674 */
																				VECTOR_SET(BgL_nsz00_2383, 0L,
																					BgL_savedzd2bpzd2_7946);
																				BgL_____rz00_2387 = BgL_rz00_7951;
																			}
																	}
																}
															}
														}
														{	/* Eval/evaluate_comp.scm 896 */
															bool_t BgL_test5090z00_20212;

															{	/* Eval/evaluate_comp.scm 896 */
																obj_t BgL_arg4320z00_7962;

																BgL_arg4320z00_7962 =
																	BGL_EXITD_PROTECT(BgL_ez00_2386);
																BgL_test5090z00_20212 =
																	PAIRP(BgL_arg4320z00_7962);
															}
															if (BgL_test5090z00_20212)
																{	/* Eval/evaluate_comp.scm 896 */
																	obj_t BgL_arg4318z00_7963;

																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_arg4319z00_7964;

																		BgL_arg4319z00_7964 =
																			BGL_EXITD_PROTECT(BgL_ez00_2386);
																		BgL_arg4318z00_7963 =
																			CDR(((obj_t) BgL_arg4319z00_7964));
																	}
																	BGL_EXITD_PROTECT_SET(BgL_ez00_2386,
																		BgL_arg4318z00_7963);
																	BUNSPEC;
																}
															else
																{	/* Eval/evaluate_comp.scm 896 */
																	BFALSE;
																}
														}
														BGL_ENV_EVSTATE_SET(BgL_z12denvz12_2381,
															BgL_sz00_2349);
														return BgL_____rz00_2387;
													}
												}
											}
									}
								}
							else
								{	/* Eval/evaluate_comp.scm 896 */
									if (PROCEDURE_CORRECT_ARITYP(BgL_fz00_2352, (int) (2L)))
										{	/* Eval/evaluate_comp.scm 896 */
											long BgL_nbpz00_2388;

											BgL_nbpz00_2388 =
												((long) CINT(BgL_bpz00_2351) + BgL_siza7eza7_15754);
											VECTOR_SET(
												((obj_t) BgL_sz00_2349), 0L, BINT(BgL_nbpz00_2388));
											{	/* Eval/evaluate_comp.scm 896 */
												obj_t BgL_tmpz00_20228;

												BgL_tmpz00_20228 = BGL_CURRENT_DYNAMIC_ENV();
												BGL_ENV_SET_TRACE_LOCATION(BgL_tmpz00_20228,
													BgL_locz00_15752);
											}
											{	/* Eval/evaluate_comp.scm 896 */
												obj_t BgL_rz00_2390;

												BgL_rz00_2390 =
													BGL_PROCEDURE_CALL2(BgL_fz00_2352, BgL_a1z00_2353,
													BgL_a2z00_2354);
												VECTOR_SET(((obj_t) BgL_sz00_2349), 0L, BgL_bpz00_2351);
												return BgL_rz00_2390;
											}
										}
									else
										{	/* Eval/evaluate_comp.scm 896 */
											return
												BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_15752,
												BgL_symbzd2funzd2_15753, (int) (2L),
												PROCEDURE_ARITY(BgL_fz00_2352));
		}}}}}}}

	}



/* &<@anonymous:2137> */
	obj_t BGl_z62zc3z04anonymousza32137ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13781, obj_t BgL_sz00_13788)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			return
				BGl_zc3z04anonymousza32137ze3ze70z60zz__evaluate_compz00(
				(long) CINT(PROCEDURE_REF(BgL_envz00_13781,
						(int) (5L))),
				PROCEDURE_REF(BgL_envz00_13781,
					(int) (4L)),
				PROCEDURE_REF(BgL_envz00_13781,
					(int) (3L)),
				PROCEDURE_REF(BgL_envz00_13781,
					(int) (2L)),
				PROCEDURE_REF(BgL_envz00_13781,
					(int) (1L)),
				PROCEDURE_REF(BgL_envz00_13781, (int) (0L)), BgL_sz00_13788);
		}

	}



/* <@anonymous:2137>~0 */
	obj_t BGl_zc3z04anonymousza32137ze3ze70z60zz__evaluate_compz00(long
		BgL_siza7eza7_15748, obj_t BgL_symbzd2funzd2_15747, obj_t BgL_locz00_15746,
		obj_t BgL_a2z00_15745, obj_t BgL_a1z00_15744, obj_t BgL_funz00_15743,
		obj_t BgL_sz00_2392)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			{	/* Eval/evaluate_comp.scm 896 */
				obj_t BgL_bpz00_2394;

				BgL_bpz00_2394 = VECTOR_REF(((obj_t) BgL_sz00_2392), 0L);
				{	/* Eval/evaluate_comp.scm 896 */
					obj_t BgL_fz00_2395;
					obj_t BgL_a1z00_2396;
					obj_t BgL_a2z00_2397;

					BgL_fz00_2395 = BGL_PROCEDURE_CALL1(BgL_funz00_15743, BgL_sz00_2392);
					BgL_a1z00_2396 = BGL_PROCEDURE_CALL1(BgL_a1z00_15744, BgL_sz00_2392);
					BgL_a2z00_2397 = BGL_PROCEDURE_CALL1(BgL_a2z00_15745, BgL_sz00_2392);
					if (PROCEDUREP(BgL_fz00_2395))
						{	/* Eval/evaluate_comp.scm 896 */
							BFALSE;
						}
					else
						{	/* Eval/evaluate_comp.scm 896 */
							BGl_evtypezd2errorzd2zz__everrorz00(BgL_locz00_15746,
								BGl_string4577z00zz__evaluate_compz00,
								BGl_string4593z00zz__evaluate_compz00, BgL_fz00_2395);
						}
					{	/* Eval/evaluate_comp.scm 896 */
						obj_t BgL_ufz00_2399;

						{	/* Eval/evaluate_comp.scm 896 */
							obj_t BgL_tmpz00_20272;

							BgL_tmpz00_20272 = ((obj_t) BgL_fz00_2395);
							BgL_ufz00_2399 = PROCEDURE_ATTR(BgL_tmpz00_20272);
						}
						{	/* Eval/evaluate_comp.scm 896 */
							bool_t BgL_test5093z00_20275;

							if (STRUCTP(BgL_ufz00_2399))
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test5093z00_20275 =
										(STRUCT_KEY(BgL_ufz00_2399) ==
										BGl_symbol4594z00zz__evaluate_compz00);
								}
							else
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test5093z00_20275 = ((bool_t) 0);
								}
							if (BgL_test5093z00_20275)
								{	/* Eval/evaluate_comp.scm 896 */
									obj_t BgL_arityz00_2401;
									obj_t BgL_runz00_2402;
									obj_t BgL_sfz00_2403;

									BgL_arityz00_2401 = STRUCT_REF(BgL_ufz00_2399, (int) (0L));
									BgL_runz00_2402 = STRUCT_REF(BgL_ufz00_2399, (int) (1L));
									BgL_sfz00_2403 = STRUCT_REF(BgL_ufz00_2399, (int) (2L));
									if (((long) CINT(BgL_arityz00_2401) == 2L))
										{	/* Eval/evaluate_comp.scm 896 */
											{	/* Eval/evaluate_comp.scm 896 */
												long BgL_arg2141z00_2406;

												BgL_arg2141z00_2406 =
													((long) CINT(BgL_bpz00_2394) + 0L);
												VECTOR_SET(
													((obj_t) BgL_sz00_2392), BgL_arg2141z00_2406,
													BgL_a1z00_2396);
											}
											{	/* Eval/evaluate_comp.scm 896 */
												long BgL_arg2142z00_2407;

												BgL_arg2142z00_2407 =
													((long) CINT(BgL_bpz00_2394) + 1L);
												VECTOR_SET(
													((obj_t) BgL_sz00_2392), BgL_arg2142z00_2407,
													BgL_a2z00_2397);
										}}
									else
										{	/* Eval/evaluate_comp.scm 896 */
											if (INTEGERP(BgL_arityz00_2401))
												{	/* Eval/evaluate_comp.scm 896 */
													switch ((long) CINT(BgL_arityz00_2401))
														{
														case (-1L):

															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2143z00_2410;
																obj_t BgL_arg2144z00_2411;

																BgL_arg2143z00_2410 =
																	((long) CINT(BgL_bpz00_2394) + 0L);
																{	/* Eval/evaluate_comp.scm 896 */
																	obj_t BgL_list2145z00_2412;

																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_arg2146z00_2413;

																		BgL_arg2146z00_2413 =
																			MAKE_YOUNG_PAIR(BgL_a2z00_2397, BNIL);
																		BgL_list2145z00_2412 =
																			MAKE_YOUNG_PAIR(BgL_a1z00_2396,
																			BgL_arg2146z00_2413);
																	}
																	BgL_arg2144z00_2411 = BgL_list2145z00_2412;
																}
																VECTOR_SET(
																	((obj_t) BgL_sz00_2392), BgL_arg2143z00_2410,
																	BgL_arg2144z00_2411);
															} break;
														case (-2L):

															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2147z00_2414;

																BgL_arg2147z00_2414 =
																	((long) CINT(BgL_bpz00_2394) + 0L);
																VECTOR_SET(
																	((obj_t) BgL_sz00_2392), BgL_arg2147z00_2414,
																	BgL_a1z00_2396);
															}
															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2148z00_2415;
																obj_t BgL_arg2149z00_2416;

																BgL_arg2148z00_2415 =
																	((long) CINT(BgL_bpz00_2394) + 1L);
																{	/* Eval/evaluate_comp.scm 896 */
																	obj_t BgL_list2150z00_2417;

																	BgL_list2150z00_2417 =
																		MAKE_YOUNG_PAIR(BgL_a2z00_2397, BNIL);
																	BgL_arg2149z00_2416 = BgL_list2150z00_2417;
																}
																VECTOR_SET(
																	((obj_t) BgL_sz00_2392), BgL_arg2148z00_2415,
																	BgL_arg2149z00_2416);
															} break;
														case (-3L):

															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2151z00_2418;

																BgL_arg2151z00_2418 =
																	((long) CINT(BgL_bpz00_2394) + 0L);
																VECTOR_SET(
																	((obj_t) BgL_sz00_2392), BgL_arg2151z00_2418,
																	BgL_a1z00_2396);
															}
															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2152z00_2419;

																BgL_arg2152z00_2419 =
																	((long) CINT(BgL_bpz00_2394) + 1L);
																VECTOR_SET(
																	((obj_t) BgL_sz00_2392), BgL_arg2152z00_2419,
																	BgL_a2z00_2397);
															}
															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2153z00_2420;
																obj_t BgL_arg2154z00_2421;

																BgL_arg2153z00_2420 =
																	((long) CINT(BgL_bpz00_2394) + 2L);
																BgL_arg2154z00_2421 = BNIL;
																VECTOR_SET(
																	((obj_t) BgL_sz00_2392), BgL_arg2153z00_2420,
																	BgL_arg2154z00_2421);
															} break;
														default:
															BGl_evarityzd2errorzd2zz__everrorz00
																(BgL_locz00_15746, STRUCT_REF(BgL_ufz00_2399,
																	(int) (3L)), (int) (2L),
																CINT(BgL_arityz00_2401));
												}}
											else
												{	/* Eval/evaluate_comp.scm 896 */
													BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_15746,
														STRUCT_REF(BgL_ufz00_2399,
															(int) (3L)), (int) (2L), CINT(BgL_arityz00_2401));
										}}
									{	/* Eval/evaluate_comp.scm 896 */
										obj_t BgL_z12denvz12_2424;

										BgL_z12denvz12_2424 = BGL_CURRENT_DYNAMIC_ENV();
										if (
											(((long) CINT(BgL_bpz00_2394) +
													(long) CINT(BgL_sfz00_2403)) <
												VECTOR_LENGTH(((obj_t) BgL_sz00_2392))))
											{	/* Eval/evaluate_comp.scm 896 */
												return BgL_runz00_2402;
											}
										else
											{	/* Eval/evaluate_comp.scm 896 */
												obj_t BgL_nsz00_2426;

												BgL_nsz00_2426 =
													BGl_makezd2statezd2zz__evaluate_compz00();
												{	/* Eval/evaluate_comp.scm 896 */
													long BgL_arg2158z00_2428;

													BgL_arg2158z00_2428 =
														((long) CINT(BgL_bpz00_2394) + 2L);
													BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00
														(BgL_nsz00_2426, 2L, BgL_sz00_2392, BgL_bpz00_2394,
														BINT(BgL_arg2158z00_2428));
												}
												VECTOR_SET(BgL_nsz00_2426, 1L, BgL_sz00_2392);
												BGL_ENV_EVSTATE_SET(BgL_z12denvz12_2424,
													BgL_nsz00_2426);
												{	/* Eval/evaluate_comp.scm 896 */
													obj_t BgL_ez00_2429;

													BgL_ez00_2429 = BGL_EXITD_TOP_AS_OBJ();
													{	/* Eval/evaluate_comp.scm 896 */
														obj_t BgL_arg4321z00_8024;

														{	/* Eval/evaluate_comp.scm 896 */
															obj_t BgL_arg4322z00_8025;

															BgL_arg4322z00_8025 =
																BGL_EXITD_PROTECT(BgL_ez00_2429);
															BgL_arg4321z00_8024 =
																MAKE_YOUNG_PAIR(BgL_sz00_2392,
																BgL_arg4322z00_8025);
														}
														BGL_EXITD_PROTECT_SET(BgL_ez00_2429,
															BgL_arg4321z00_8024);
														BUNSPEC;
													}
													{	/* Eval/evaluate_comp.scm 896 */
														obj_t BgL_____rz00_2430;

														{	/* Eval/evaluate_comp.scm 670 */
															obj_t BgL_savedzd2bpzd2_8026;

															BgL_savedzd2bpzd2_8026 =
																VECTOR_REF(BgL_nsz00_2426, 0L);
															VECTOR_SET(BgL_nsz00_2426, 0L, BINT(2L));
															{
																obj_t BgL_fz00_8030;

																BgL_fz00_8030 = BgL_runz00_2402;
															BgL_recz00_8029:
																{	/* Eval/evaluate_comp.scm 673 */
																	obj_t BgL_rz00_8031;

																	BgL_rz00_8031 =
																		BGL_PROCEDURE_CALL1(BgL_fz00_8030,
																		BgL_nsz00_2426);
																	{	/* Eval/evaluate_comp.scm 674 */
																		bool_t BgL_test5098z00_20364;

																		if (PROCEDUREP(BgL_rz00_8031))
																			{	/* Eval/evaluate_comp.scm 674 */
																				obj_t BgL_arg1759z00_8034;

																				BgL_arg1759z00_8034 =
																					PROCEDURE_ATTR(BgL_rz00_8031);
																				if (STRUCTP(BgL_arg1759z00_8034))
																					{	/* Eval/evaluate_comp.scm 654 */
																						BgL_test5098z00_20364 =
																							(STRUCT_KEY(BgL_arg1759z00_8034)
																							==
																							BGl_symbol4573z00zz__evaluate_compz00);
																					}
																				else
																					{	/* Eval/evaluate_comp.scm 654 */
																						BgL_test5098z00_20364 =
																							((bool_t) 0);
																					}
																			}
																		else
																			{	/* Eval/evaluate_comp.scm 674 */
																				BgL_test5098z00_20364 = ((bool_t) 0);
																			}
																		if (BgL_test5098z00_20364)
																			{
																				obj_t BgL_fz00_20372;

																				BgL_fz00_20372 = BgL_rz00_8031;
																				BgL_fz00_8030 = BgL_fz00_20372;
																				goto BgL_recz00_8029;
																			}
																		else
																			{	/* Eval/evaluate_comp.scm 674 */
																				VECTOR_SET(BgL_nsz00_2426, 0L,
																					BgL_savedzd2bpzd2_8026);
																				BgL_____rz00_2430 = BgL_rz00_8031;
																			}
																	}
																}
															}
														}
														{	/* Eval/evaluate_comp.scm 896 */
															bool_t BgL_test5101z00_20374;

															{	/* Eval/evaluate_comp.scm 896 */
																obj_t BgL_arg4320z00_8042;

																BgL_arg4320z00_8042 =
																	BGL_EXITD_PROTECT(BgL_ez00_2429);
																BgL_test5101z00_20374 =
																	PAIRP(BgL_arg4320z00_8042);
															}
															if (BgL_test5101z00_20374)
																{	/* Eval/evaluate_comp.scm 896 */
																	obj_t BgL_arg4318z00_8043;

																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_arg4319z00_8044;

																		BgL_arg4319z00_8044 =
																			BGL_EXITD_PROTECT(BgL_ez00_2429);
																		BgL_arg4318z00_8043 =
																			CDR(((obj_t) BgL_arg4319z00_8044));
																	}
																	BGL_EXITD_PROTECT_SET(BgL_ez00_2429,
																		BgL_arg4318z00_8043);
																	BUNSPEC;
																}
															else
																{	/* Eval/evaluate_comp.scm 896 */
																	BFALSE;
																}
														}
														BGL_ENV_EVSTATE_SET(BgL_z12denvz12_2424,
															BgL_sz00_2392);
														return BgL_____rz00_2430;
													}
												}
											}
									}
								}
							else
								{	/* Eval/evaluate_comp.scm 896 */
									if (PROCEDURE_CORRECT_ARITYP(BgL_fz00_2395, (int) (2L)))
										{	/* Eval/evaluate_comp.scm 896 */
											long BgL_nbpz00_2431;

											BgL_nbpz00_2431 =
												((long) CINT(BgL_bpz00_2394) + BgL_siza7eza7_15748);
											VECTOR_SET(
												((obj_t) BgL_sz00_2392), 0L, BINT(BgL_nbpz00_2431));
											{	/* Eval/evaluate_comp.scm 896 */
												obj_t BgL_rz00_2432;

												BgL_rz00_2432 =
													BGL_PROCEDURE_CALL2(BgL_fz00_2395, BgL_a1z00_2396,
													BgL_a2z00_2397);
												VECTOR_SET(((obj_t) BgL_sz00_2392), 0L, BgL_bpz00_2394);
												return BgL_rz00_2432;
											}
										}
									else
										{	/* Eval/evaluate_comp.scm 896 */
											return
												BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_15746,
												BgL_symbzd2funzd2_15747, (int) (2L),
												PROCEDURE_ARITY(BgL_fz00_2395));
		}}}}}}}

	}



/* &<@anonymous:2161> */
	obj_t BGl_z62zc3z04anonymousza32161ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13789, obj_t BgL_sz00_13796)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			return
				BGl_zc3z04anonymousza32161ze3ze70z60zz__evaluate_compz00(
				(long) CINT(PROCEDURE_REF(BgL_envz00_13789,
						(int) (5L))),
				PROCEDURE_REF(BgL_envz00_13789,
					(int) (4L)),
				PROCEDURE_REF(BgL_envz00_13789,
					(int) (3L)),
				PROCEDURE_REF(BgL_envz00_13789,
					(int) (2L)),
				PROCEDURE_REF(BgL_envz00_13789,
					(int) (1L)),
				PROCEDURE_REF(BgL_envz00_13789, (int) (0L)), BgL_sz00_13796);
		}

	}



/* <@anonymous:2161>~0 */
	obj_t BGl_zc3z04anonymousza32161ze3ze70z60zz__evaluate_compz00(long
		BgL_siza7eza7_15742, obj_t BgL_symbzd2funzd2_15741, obj_t BgL_locz00_15740,
		obj_t BgL_a2z00_15739, obj_t BgL_a1z00_15738, obj_t BgL_funz00_15737,
		obj_t BgL_sz00_2437)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			{	/* Eval/evaluate_comp.scm 896 */
				obj_t BgL_bpz00_2439;

				BgL_bpz00_2439 = VECTOR_REF(((obj_t) BgL_sz00_2437), 0L);
				{	/* Eval/evaluate_comp.scm 896 */
					obj_t BgL_fz00_2440;
					obj_t BgL_a1z00_2441;
					obj_t BgL_a2z00_2442;

					BgL_fz00_2440 = BGL_PROCEDURE_CALL1(BgL_funz00_15737, BgL_sz00_2437);
					BgL_a1z00_2441 = BGL_PROCEDURE_CALL1(BgL_a1z00_15738, BgL_sz00_2437);
					BgL_a2z00_2442 = BGL_PROCEDURE_CALL1(BgL_a2z00_15739, BgL_sz00_2437);
					if (PROCEDUREP(BgL_fz00_2440))
						{	/* Eval/evaluate_comp.scm 896 */
							BFALSE;
						}
					else
						{	/* Eval/evaluate_comp.scm 896 */
							BGl_evtypezd2errorzd2zz__everrorz00(BgL_locz00_15740,
								BGl_string4577z00zz__evaluate_compz00,
								BGl_string4593z00zz__evaluate_compz00, BgL_fz00_2440);
						}
					{	/* Eval/evaluate_comp.scm 896 */
						obj_t BgL_ufz00_2444;

						{	/* Eval/evaluate_comp.scm 896 */
							obj_t BgL_tmpz00_20431;

							BgL_tmpz00_20431 = ((obj_t) BgL_fz00_2440);
							BgL_ufz00_2444 = PROCEDURE_ATTR(BgL_tmpz00_20431);
						}
						{	/* Eval/evaluate_comp.scm 896 */
							bool_t BgL_test5104z00_20434;

							if (STRUCTP(BgL_ufz00_2444))
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test5104z00_20434 =
										(STRUCT_KEY(BgL_ufz00_2444) ==
										BGl_symbol4594z00zz__evaluate_compz00);
								}
							else
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test5104z00_20434 = ((bool_t) 0);
								}
							if (BgL_test5104z00_20434)
								{	/* Eval/evaluate_comp.scm 896 */
									obj_t BgL_arityz00_2446;
									obj_t BgL_runz00_2447;
									obj_t BgL_sfz00_2448;

									BgL_arityz00_2446 = STRUCT_REF(BgL_ufz00_2444, (int) (0L));
									BgL_runz00_2447 = STRUCT_REF(BgL_ufz00_2444, (int) (1L));
									BgL_sfz00_2448 = STRUCT_REF(BgL_ufz00_2444, (int) (2L));
									{	/* Eval/evaluate_comp.scm 896 */
										long BgL_spz00_2449;

										BgL_spz00_2449 =
											((long) CINT(BgL_bpz00_2439) + BgL_siza7eza7_15742);
										if (((long) CINT(BgL_arityz00_2446) == 2L))
											{	/* Eval/evaluate_comp.scm 896 */
												{	/* Eval/evaluate_comp.scm 896 */
													long BgL_arg2165z00_2451;

													BgL_arg2165z00_2451 = (BgL_spz00_2449 + 0L);
													VECTOR_SET(
														((obj_t) BgL_sz00_2437), BgL_arg2165z00_2451,
														BgL_a1z00_2441);
												}
												{	/* Eval/evaluate_comp.scm 896 */
													long BgL_arg2166z00_2452;

													BgL_arg2166z00_2452 = (BgL_spz00_2449 + 1L);
													VECTOR_SET(
														((obj_t) BgL_sz00_2437), BgL_arg2166z00_2452,
														BgL_a2z00_2442);
											}}
										else
											{	/* Eval/evaluate_comp.scm 896 */
												if (INTEGERP(BgL_arityz00_2446))
													{	/* Eval/evaluate_comp.scm 896 */
														switch ((long) CINT(BgL_arityz00_2446))
															{
															case (-1L):

																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2167z00_2455;
																	obj_t BgL_arg2168z00_2456;

																	BgL_arg2167z00_2455 = (BgL_spz00_2449 + 0L);
																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_list2169z00_2457;

																		{	/* Eval/evaluate_comp.scm 896 */
																			obj_t BgL_arg2170z00_2458;

																			BgL_arg2170z00_2458 =
																				MAKE_YOUNG_PAIR(BgL_a2z00_2442, BNIL);
																			BgL_list2169z00_2457 =
																				MAKE_YOUNG_PAIR(BgL_a1z00_2441,
																				BgL_arg2170z00_2458);
																		}
																		BgL_arg2168z00_2456 = BgL_list2169z00_2457;
																	}
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2437),
																		BgL_arg2167z00_2455, BgL_arg2168z00_2456);
																} break;
															case (-2L):

																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2171z00_2459;

																	BgL_arg2171z00_2459 = (BgL_spz00_2449 + 0L);
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2437),
																		BgL_arg2171z00_2459, BgL_a1z00_2441);
																}
																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2172z00_2460;
																	obj_t BgL_arg2173z00_2461;

																	BgL_arg2172z00_2460 = (BgL_spz00_2449 + 1L);
																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_list2174z00_2462;

																		BgL_list2174z00_2462 =
																			MAKE_YOUNG_PAIR(BgL_a2z00_2442, BNIL);
																		BgL_arg2173z00_2461 = BgL_list2174z00_2462;
																	}
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2437),
																		BgL_arg2172z00_2460, BgL_arg2173z00_2461);
																} break;
															case (-3L):

																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2175z00_2463;

																	BgL_arg2175z00_2463 = (BgL_spz00_2449 + 0L);
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2437),
																		BgL_arg2175z00_2463, BgL_a1z00_2441);
																}
																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2176z00_2464;

																	BgL_arg2176z00_2464 = (BgL_spz00_2449 + 1L);
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2437),
																		BgL_arg2176z00_2464, BgL_a2z00_2442);
																}
																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2177z00_2465;
																	obj_t BgL_arg2178z00_2466;

																	BgL_arg2177z00_2465 = (BgL_spz00_2449 + 2L);
																	BgL_arg2178z00_2466 = BNIL;
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2437),
																		BgL_arg2177z00_2465, BgL_arg2178z00_2466);
																} break;
															default:
																BGl_evarityzd2errorzd2zz__everrorz00
																	(BgL_locz00_15740, STRUCT_REF(BgL_ufz00_2444,
																		(int) (3L)), (int) (2L),
																	CINT(BgL_arityz00_2446));
													}}
												else
													{	/* Eval/evaluate_comp.scm 896 */
														BGl_evarityzd2errorzd2zz__everrorz00
															(BgL_locz00_15740, STRUCT_REF(BgL_ufz00_2444,
																(int) (3L)), (int) (2L),
															CINT(BgL_arityz00_2446));
											}}
										{	/* Eval/evaluate_comp.scm 896 */
											obj_t BgL_z12denvz12_2469;

											BgL_z12denvz12_2469 = BGL_CURRENT_DYNAMIC_ENV();
											BGL_ENV_SET_TRACE_LOCATION(BgL_z12denvz12_2469,
												BgL_locz00_15740);
											if (((BgL_spz00_2449 + (long) CINT(BgL_sfz00_2448)) <
													VECTOR_LENGTH(((obj_t) BgL_sz00_2437))))
												{	/* Eval/evaluate_comp.scm 896 */
													return
														BGl_catchzd2trampolinezd2zz__evaluate_compz00
														(BgL_runz00_2447, BgL_sz00_2437,
														BINT(BgL_spz00_2449));
												}
											else
												{	/* Eval/evaluate_comp.scm 896 */
													obj_t BgL_nsz00_2471;

													BgL_nsz00_2471 =
														BGl_makezd2statezd2zz__evaluate_compz00();
													{	/* Eval/evaluate_comp.scm 896 */
														long BgL_arg2182z00_2473;

														BgL_arg2182z00_2473 = (BgL_spz00_2449 + 2L);
														BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00
															(BgL_nsz00_2471, 2L, BgL_sz00_2437,
															BINT(BgL_spz00_2449), BINT(BgL_arg2182z00_2473));
													}
													VECTOR_SET(BgL_nsz00_2471, 1L, BgL_sz00_2437);
													BGL_ENV_EVSTATE_SET(BgL_z12denvz12_2469,
														BgL_nsz00_2471);
													{	/* Eval/evaluate_comp.scm 896 */
														obj_t BgL_ez00_2474;

														BgL_ez00_2474 = BGL_EXITD_TOP_AS_OBJ();
														{	/* Eval/evaluate_comp.scm 896 */
															obj_t BgL_arg4321z00_8105;

															{	/* Eval/evaluate_comp.scm 896 */
																obj_t BgL_arg4322z00_8106;

																BgL_arg4322z00_8106 =
																	BGL_EXITD_PROTECT(BgL_ez00_2474);
																BgL_arg4321z00_8105 =
																	MAKE_YOUNG_PAIR(BgL_sz00_2437,
																	BgL_arg4322z00_8106);
															}
															BGL_EXITD_PROTECT_SET(BgL_ez00_2474,
																BgL_arg4321z00_8105);
															BUNSPEC;
														}
														{	/* Eval/evaluate_comp.scm 896 */
															obj_t BgL_____rz00_2475;

															{	/* Eval/evaluate_comp.scm 670 */
																obj_t BgL_savedzd2bpzd2_8107;

																BgL_savedzd2bpzd2_8107 =
																	VECTOR_REF(BgL_nsz00_2471, 0L);
																VECTOR_SET(BgL_nsz00_2471, 0L, BINT(2L));
																{
																	obj_t BgL_fz00_8111;

																	BgL_fz00_8111 = BgL_runz00_2447;
																BgL_recz00_8110:
																	{	/* Eval/evaluate_comp.scm 673 */
																		obj_t BgL_rz00_8112;

																		BgL_rz00_8112 =
																			BGL_PROCEDURE_CALL1(BgL_fz00_8111,
																			BgL_nsz00_2471);
																		{	/* Eval/evaluate_comp.scm 674 */
																			bool_t BgL_test5109z00_20519;

																			if (PROCEDUREP(BgL_rz00_8112))
																				{	/* Eval/evaluate_comp.scm 674 */
																					obj_t BgL_arg1759z00_8115;

																					BgL_arg1759z00_8115 =
																						PROCEDURE_ATTR(BgL_rz00_8112);
																					if (STRUCTP(BgL_arg1759z00_8115))
																						{	/* Eval/evaluate_comp.scm 654 */
																							BgL_test5109z00_20519 =
																								(STRUCT_KEY(BgL_arg1759z00_8115)
																								==
																								BGl_symbol4573z00zz__evaluate_compz00);
																						}
																					else
																						{	/* Eval/evaluate_comp.scm 654 */
																							BgL_test5109z00_20519 =
																								((bool_t) 0);
																						}
																				}
																			else
																				{	/* Eval/evaluate_comp.scm 674 */
																					BgL_test5109z00_20519 = ((bool_t) 0);
																				}
																			if (BgL_test5109z00_20519)
																				{
																					obj_t BgL_fz00_20527;

																					BgL_fz00_20527 = BgL_rz00_8112;
																					BgL_fz00_8111 = BgL_fz00_20527;
																					goto BgL_recz00_8110;
																				}
																			else
																				{	/* Eval/evaluate_comp.scm 674 */
																					VECTOR_SET(BgL_nsz00_2471, 0L,
																						BgL_savedzd2bpzd2_8107);
																					BgL_____rz00_2475 = BgL_rz00_8112;
																				}
																		}
																	}
																}
															}
															{	/* Eval/evaluate_comp.scm 896 */
																bool_t BgL_test5112z00_20529;

																{	/* Eval/evaluate_comp.scm 896 */
																	obj_t BgL_arg4320z00_8123;

																	BgL_arg4320z00_8123 =
																		BGL_EXITD_PROTECT(BgL_ez00_2474);
																	BgL_test5112z00_20529 =
																		PAIRP(BgL_arg4320z00_8123);
																}
																if (BgL_test5112z00_20529)
																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_arg4318z00_8124;

																		{	/* Eval/evaluate_comp.scm 896 */
																			obj_t BgL_arg4319z00_8125;

																			BgL_arg4319z00_8125 =
																				BGL_EXITD_PROTECT(BgL_ez00_2474);
																			BgL_arg4318z00_8124 =
																				CDR(((obj_t) BgL_arg4319z00_8125));
																		}
																		BGL_EXITD_PROTECT_SET(BgL_ez00_2474,
																			BgL_arg4318z00_8124);
																		BUNSPEC;
																	}
																else
																	{	/* Eval/evaluate_comp.scm 896 */
																		BFALSE;
																	}
															}
															BGL_ENV_EVSTATE_SET(BgL_z12denvz12_2469,
																BgL_sz00_2437);
															return BgL_____rz00_2475;
														}
													}
												}
										}
									}
								}
							else
								{	/* Eval/evaluate_comp.scm 896 */
									if (PROCEDURE_CORRECT_ARITYP(BgL_fz00_2440, (int) (2L)))
										{	/* Eval/evaluate_comp.scm 896 */
											long BgL_nbpz00_2476;

											BgL_nbpz00_2476 =
												((long) CINT(BgL_bpz00_2439) + BgL_siza7eza7_15742);
											VECTOR_SET(
												((obj_t) BgL_sz00_2437), 0L, BINT(BgL_nbpz00_2476));
											{	/* Eval/evaluate_comp.scm 896 */
												obj_t BgL_tmpz00_20545;

												BgL_tmpz00_20545 = BGL_CURRENT_DYNAMIC_ENV();
												BGL_ENV_SET_TRACE_LOCATION(BgL_tmpz00_20545,
													BgL_locz00_15740);
											}
											{	/* Eval/evaluate_comp.scm 896 */
												obj_t BgL_rz00_2478;

												BgL_rz00_2478 =
													BGL_PROCEDURE_CALL2(BgL_fz00_2440, BgL_a1z00_2441,
													BgL_a2z00_2442);
												VECTOR_SET(((obj_t) BgL_sz00_2437), 0L, BgL_bpz00_2439);
												return BgL_rz00_2478;
											}
										}
									else
										{	/* Eval/evaluate_comp.scm 896 */
											return
												BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_15740,
												BgL_symbzd2funzd2_15741, (int) (2L),
												PROCEDURE_ARITY(BgL_fz00_2440));
		}}}}}}}

	}



/* &<@anonymous:2186> */
	obj_t BGl_z62zc3z04anonymousza32186ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13797, obj_t BgL_sz00_13804)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			return
				BGl_zc3z04anonymousza32186ze3ze70z60zz__evaluate_compz00(
				(long) CINT(PROCEDURE_REF(BgL_envz00_13797,
						(int) (5L))),
				PROCEDURE_REF(BgL_envz00_13797,
					(int) (4L)),
				PROCEDURE_REF(BgL_envz00_13797,
					(int) (3L)),
				PROCEDURE_REF(BgL_envz00_13797,
					(int) (2L)),
				PROCEDURE_REF(BgL_envz00_13797,
					(int) (1L)),
				PROCEDURE_REF(BgL_envz00_13797, (int) (0L)), BgL_sz00_13804);
		}

	}



/* <@anonymous:2186>~0 */
	obj_t BGl_zc3z04anonymousza32186ze3ze70z60zz__evaluate_compz00(long
		BgL_siza7eza7_15736, obj_t BgL_symbzd2funzd2_15735, obj_t BgL_locz00_15734,
		obj_t BgL_a2z00_15733, obj_t BgL_a1z00_15732, obj_t BgL_funz00_15731,
		obj_t BgL_sz00_2480)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			{	/* Eval/evaluate_comp.scm 896 */
				obj_t BgL_bpz00_2482;

				BgL_bpz00_2482 = VECTOR_REF(((obj_t) BgL_sz00_2480), 0L);
				{	/* Eval/evaluate_comp.scm 896 */
					obj_t BgL_fz00_2483;
					obj_t BgL_a1z00_2484;
					obj_t BgL_a2z00_2485;

					BgL_fz00_2483 = BGL_PROCEDURE_CALL1(BgL_funz00_15731, BgL_sz00_2480);
					BgL_a1z00_2484 = BGL_PROCEDURE_CALL1(BgL_a1z00_15732, BgL_sz00_2480);
					BgL_a2z00_2485 = BGL_PROCEDURE_CALL1(BgL_a2z00_15733, BgL_sz00_2480);
					if (PROCEDUREP(BgL_fz00_2483))
						{	/* Eval/evaluate_comp.scm 896 */
							BFALSE;
						}
					else
						{	/* Eval/evaluate_comp.scm 896 */
							BGl_evtypezd2errorzd2zz__everrorz00(BgL_locz00_15734,
								BGl_string4577z00zz__evaluate_compz00,
								BGl_string4593z00zz__evaluate_compz00, BgL_fz00_2483);
						}
					{	/* Eval/evaluate_comp.scm 896 */
						obj_t BgL_ufz00_2487;

						{	/* Eval/evaluate_comp.scm 896 */
							obj_t BgL_tmpz00_20589;

							BgL_tmpz00_20589 = ((obj_t) BgL_fz00_2483);
							BgL_ufz00_2487 = PROCEDURE_ATTR(BgL_tmpz00_20589);
						}
						{	/* Eval/evaluate_comp.scm 896 */
							bool_t BgL_test5115z00_20592;

							if (STRUCTP(BgL_ufz00_2487))
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test5115z00_20592 =
										(STRUCT_KEY(BgL_ufz00_2487) ==
										BGl_symbol4594z00zz__evaluate_compz00);
								}
							else
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test5115z00_20592 = ((bool_t) 0);
								}
							if (BgL_test5115z00_20592)
								{	/* Eval/evaluate_comp.scm 896 */
									obj_t BgL_arityz00_2489;
									obj_t BgL_runz00_2490;
									obj_t BgL_sfz00_2491;

									BgL_arityz00_2489 = STRUCT_REF(BgL_ufz00_2487, (int) (0L));
									BgL_runz00_2490 = STRUCT_REF(BgL_ufz00_2487, (int) (1L));
									BgL_sfz00_2491 = STRUCT_REF(BgL_ufz00_2487, (int) (2L));
									{	/* Eval/evaluate_comp.scm 896 */
										long BgL_spz00_2492;

										BgL_spz00_2492 =
											((long) CINT(BgL_bpz00_2482) + BgL_siza7eza7_15736);
										if (((long) CINT(BgL_arityz00_2489) == 2L))
											{	/* Eval/evaluate_comp.scm 896 */
												{	/* Eval/evaluate_comp.scm 896 */
													long BgL_arg2190z00_2494;

													BgL_arg2190z00_2494 = (BgL_spz00_2492 + 0L);
													VECTOR_SET(
														((obj_t) BgL_sz00_2480), BgL_arg2190z00_2494,
														BgL_a1z00_2484);
												}
												{	/* Eval/evaluate_comp.scm 896 */
													long BgL_arg2191z00_2495;

													BgL_arg2191z00_2495 = (BgL_spz00_2492 + 1L);
													VECTOR_SET(
														((obj_t) BgL_sz00_2480), BgL_arg2191z00_2495,
														BgL_a2z00_2485);
											}}
										else
											{	/* Eval/evaluate_comp.scm 896 */
												if (INTEGERP(BgL_arityz00_2489))
													{	/* Eval/evaluate_comp.scm 896 */
														switch ((long) CINT(BgL_arityz00_2489))
															{
															case (-1L):

																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2192z00_2498;
																	obj_t BgL_arg2193z00_2499;

																	BgL_arg2192z00_2498 = (BgL_spz00_2492 + 0L);
																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_list2194z00_2500;

																		{	/* Eval/evaluate_comp.scm 896 */
																			obj_t BgL_arg2195z00_2501;

																			BgL_arg2195z00_2501 =
																				MAKE_YOUNG_PAIR(BgL_a2z00_2485, BNIL);
																			BgL_list2194z00_2500 =
																				MAKE_YOUNG_PAIR(BgL_a1z00_2484,
																				BgL_arg2195z00_2501);
																		}
																		BgL_arg2193z00_2499 = BgL_list2194z00_2500;
																	}
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2480),
																		BgL_arg2192z00_2498, BgL_arg2193z00_2499);
																} break;
															case (-2L):

																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2196z00_2502;

																	BgL_arg2196z00_2502 = (BgL_spz00_2492 + 0L);
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2480),
																		BgL_arg2196z00_2502, BgL_a1z00_2484);
																}
																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2197z00_2503;
																	obj_t BgL_arg2198z00_2504;

																	BgL_arg2197z00_2503 = (BgL_spz00_2492 + 1L);
																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_list2199z00_2505;

																		BgL_list2199z00_2505 =
																			MAKE_YOUNG_PAIR(BgL_a2z00_2485, BNIL);
																		BgL_arg2198z00_2504 = BgL_list2199z00_2505;
																	}
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2480),
																		BgL_arg2197z00_2503, BgL_arg2198z00_2504);
																} break;
															case (-3L):

																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2200z00_2506;

																	BgL_arg2200z00_2506 = (BgL_spz00_2492 + 0L);
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2480),
																		BgL_arg2200z00_2506, BgL_a1z00_2484);
																}
																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2201z00_2507;

																	BgL_arg2201z00_2507 = (BgL_spz00_2492 + 1L);
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2480),
																		BgL_arg2201z00_2507, BgL_a2z00_2485);
																}
																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2202z00_2508;
																	obj_t BgL_arg2203z00_2509;

																	BgL_arg2202z00_2508 = (BgL_spz00_2492 + 2L);
																	BgL_arg2203z00_2509 = BNIL;
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2480),
																		BgL_arg2202z00_2508, BgL_arg2203z00_2509);
																} break;
															default:
																BGl_evarityzd2errorzd2zz__everrorz00
																	(BgL_locz00_15734, STRUCT_REF(BgL_ufz00_2487,
																		(int) (3L)), (int) (2L),
																	CINT(BgL_arityz00_2489));
													}}
												else
													{	/* Eval/evaluate_comp.scm 896 */
														BGl_evarityzd2errorzd2zz__everrorz00
															(BgL_locz00_15734, STRUCT_REF(BgL_ufz00_2487,
																(int) (3L)), (int) (2L),
															CINT(BgL_arityz00_2489));
											}}
										{	/* Eval/evaluate_comp.scm 896 */
											obj_t BgL_z12denvz12_2512;

											BgL_z12denvz12_2512 = BGL_CURRENT_DYNAMIC_ENV();
											if (
												((BgL_spz00_2492 +
														(long) CINT(BgL_sfz00_2491)) <
													VECTOR_LENGTH(((obj_t) BgL_sz00_2480))))
												{	/* Eval/evaluate_comp.scm 896 */
													return
														BGl_catchzd2trampolinezd2zz__evaluate_compz00
														(BgL_runz00_2490, BgL_sz00_2480,
														BINT(BgL_spz00_2492));
												}
											else
												{	/* Eval/evaluate_comp.scm 896 */
													obj_t BgL_nsz00_2514;

													BgL_nsz00_2514 =
														BGl_makezd2statezd2zz__evaluate_compz00();
													{	/* Eval/evaluate_comp.scm 896 */
														long BgL_arg2207z00_2516;

														BgL_arg2207z00_2516 = (BgL_spz00_2492 + 2L);
														BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00
															(BgL_nsz00_2514, 2L, BgL_sz00_2480,
															BINT(BgL_spz00_2492), BINT(BgL_arg2207z00_2516));
													}
													VECTOR_SET(BgL_nsz00_2514, 1L, BgL_sz00_2480);
													BGL_ENV_EVSTATE_SET(BgL_z12denvz12_2512,
														BgL_nsz00_2514);
													{	/* Eval/evaluate_comp.scm 896 */
														obj_t BgL_ez00_2517;

														BgL_ez00_2517 = BGL_EXITD_TOP_AS_OBJ();
														{	/* Eval/evaluate_comp.scm 896 */
															obj_t BgL_arg4321z00_8185;

															{	/* Eval/evaluate_comp.scm 896 */
																obj_t BgL_arg4322z00_8186;

																BgL_arg4322z00_8186 =
																	BGL_EXITD_PROTECT(BgL_ez00_2517);
																BgL_arg4321z00_8185 =
																	MAKE_YOUNG_PAIR(BgL_sz00_2480,
																	BgL_arg4322z00_8186);
															}
															BGL_EXITD_PROTECT_SET(BgL_ez00_2517,
																BgL_arg4321z00_8185);
															BUNSPEC;
														}
														{	/* Eval/evaluate_comp.scm 896 */
															obj_t BgL_____rz00_2518;

															{	/* Eval/evaluate_comp.scm 670 */
																obj_t BgL_savedzd2bpzd2_8187;

																BgL_savedzd2bpzd2_8187 =
																	VECTOR_REF(BgL_nsz00_2514, 0L);
																VECTOR_SET(BgL_nsz00_2514, 0L, BINT(2L));
																{
																	obj_t BgL_fz00_8191;

																	BgL_fz00_8191 = BgL_runz00_2490;
																BgL_recz00_8190:
																	{	/* Eval/evaluate_comp.scm 673 */
																		obj_t BgL_rz00_8192;

																		BgL_rz00_8192 =
																			BGL_PROCEDURE_CALL1(BgL_fz00_8191,
																			BgL_nsz00_2514);
																		{	/* Eval/evaluate_comp.scm 674 */
																			bool_t BgL_test5120z00_20676;

																			if (PROCEDUREP(BgL_rz00_8192))
																				{	/* Eval/evaluate_comp.scm 674 */
																					obj_t BgL_arg1759z00_8195;

																					BgL_arg1759z00_8195 =
																						PROCEDURE_ATTR(BgL_rz00_8192);
																					if (STRUCTP(BgL_arg1759z00_8195))
																						{	/* Eval/evaluate_comp.scm 654 */
																							BgL_test5120z00_20676 =
																								(STRUCT_KEY(BgL_arg1759z00_8195)
																								==
																								BGl_symbol4573z00zz__evaluate_compz00);
																						}
																					else
																						{	/* Eval/evaluate_comp.scm 654 */
																							BgL_test5120z00_20676 =
																								((bool_t) 0);
																						}
																				}
																			else
																				{	/* Eval/evaluate_comp.scm 674 */
																					BgL_test5120z00_20676 = ((bool_t) 0);
																				}
																			if (BgL_test5120z00_20676)
																				{
																					obj_t BgL_fz00_20684;

																					BgL_fz00_20684 = BgL_rz00_8192;
																					BgL_fz00_8191 = BgL_fz00_20684;
																					goto BgL_recz00_8190;
																				}
																			else
																				{	/* Eval/evaluate_comp.scm 674 */
																					VECTOR_SET(BgL_nsz00_2514, 0L,
																						BgL_savedzd2bpzd2_8187);
																					BgL_____rz00_2518 = BgL_rz00_8192;
																				}
																		}
																	}
																}
															}
															{	/* Eval/evaluate_comp.scm 896 */
																bool_t BgL_test5123z00_20686;

																{	/* Eval/evaluate_comp.scm 896 */
																	obj_t BgL_arg4320z00_8203;

																	BgL_arg4320z00_8203 =
																		BGL_EXITD_PROTECT(BgL_ez00_2517);
																	BgL_test5123z00_20686 =
																		PAIRP(BgL_arg4320z00_8203);
																}
																if (BgL_test5123z00_20686)
																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_arg4318z00_8204;

																		{	/* Eval/evaluate_comp.scm 896 */
																			obj_t BgL_arg4319z00_8205;

																			BgL_arg4319z00_8205 =
																				BGL_EXITD_PROTECT(BgL_ez00_2517);
																			BgL_arg4318z00_8204 =
																				CDR(((obj_t) BgL_arg4319z00_8205));
																		}
																		BGL_EXITD_PROTECT_SET(BgL_ez00_2517,
																			BgL_arg4318z00_8204);
																		BUNSPEC;
																	}
																else
																	{	/* Eval/evaluate_comp.scm 896 */
																		BFALSE;
																	}
															}
															BGL_ENV_EVSTATE_SET(BgL_z12denvz12_2512,
																BgL_sz00_2480);
															return BgL_____rz00_2518;
														}
													}
												}
										}
									}
								}
							else
								{	/* Eval/evaluate_comp.scm 896 */
									if (PROCEDURE_CORRECT_ARITYP(BgL_fz00_2483, (int) (2L)))
										{	/* Eval/evaluate_comp.scm 896 */
											long BgL_nbpz00_2519;

											BgL_nbpz00_2519 =
												((long) CINT(BgL_bpz00_2482) + BgL_siza7eza7_15736);
											VECTOR_SET(
												((obj_t) BgL_sz00_2480), 0L, BINT(BgL_nbpz00_2519));
											{	/* Eval/evaluate_comp.scm 896 */
												obj_t BgL_rz00_2520;

												BgL_rz00_2520 =
													BGL_PROCEDURE_CALL2(BgL_fz00_2483, BgL_a1z00_2484,
													BgL_a2z00_2485);
												VECTOR_SET(((obj_t) BgL_sz00_2480), 0L, BgL_bpz00_2482);
												return BgL_rz00_2520;
											}
										}
									else
										{	/* Eval/evaluate_comp.scm 896 */
											return
												BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_15734,
												BgL_symbzd2funzd2_15735, (int) (2L),
												PROCEDURE_ARITY(BgL_fz00_2483));
		}}}}}}}

	}



/* comp-call3 */
	obj_t BGl_compzd2call3zd2zz__evaluate_compz00(obj_t BgL_locz00_162,
		BgL_ev_exprz00_bglt BgL_vfunz00_163, obj_t BgL_symbzd2funzd2_164,
		obj_t BgL_funz00_165, obj_t BgL_tailzf3zf3_166, obj_t BgL_stkz00_167,
		long BgL_siza7eza7_168, obj_t BgL_a1z00_169, obj_t BgL_a2z00_170,
		obj_t BgL_a3z00_171)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			{	/* Eval/evaluate_comp.scm 896 */
				obj_t BgL_cfunz00_2523;

				BgL_cfunz00_2523 =
					BGl_iszd2constantzd2funzf3zf3zz__evaluate_compz00(BgL_vfunz00_163, 3L,
					BgL_locz00_162, BgL_symbzd2funzd2_164);
				if (CBOOL(BgL_cfunz00_2523))
					{	/* Eval/evaluate_comp.scm 896 */
						bool_t BgL_test5126z00_20715;

						{	/* Eval/evaluate_comp.scm 896 */
							int BgL_a1373z00_2543;

							BgL_a1373z00_2543 = bgl_debug();
							BgL_test5126z00_20715 = ((long) (BgL_a1373z00_2543) > 0L);
						}
						if (BgL_test5126z00_20715)
							{	/* Eval/evaluate_comp.scm 896 */
								obj_t BgL_zc3z04anonymousza32210ze3z87_13805;

								BgL_zc3z04anonymousza32210ze3z87_13805 =
									MAKE_FX_PROCEDURE
									(BGl_z62zc3z04anonymousza32210ze3ze5zz__evaluate_compz00,
									(int) (1L), (int) (6L));
								PROCEDURE_SET(BgL_zc3z04anonymousza32210ze3z87_13805,
									(int) (0L), BgL_a1z00_169);
								PROCEDURE_SET(BgL_zc3z04anonymousza32210ze3z87_13805,
									(int) (1L), BgL_a2z00_170);
								PROCEDURE_SET(BgL_zc3z04anonymousza32210ze3z87_13805,
									(int) (2L), BgL_a3z00_171);
								PROCEDURE_SET(BgL_zc3z04anonymousza32210ze3z87_13805,
									(int) (3L), BINT(BgL_siza7eza7_168));
								PROCEDURE_SET(BgL_zc3z04anonymousza32210ze3z87_13805,
									(int) (4L), BgL_locz00_162);
								PROCEDURE_SET(BgL_zc3z04anonymousza32210ze3z87_13805,
									(int) (5L), BgL_cfunz00_2523);
								return BgL_zc3z04anonymousza32210ze3z87_13805;
							}
						else
							{	/* Eval/evaluate_comp.scm 896 */
								obj_t BgL_zc3z04anonymousza32212ze3z87_13806;

								BgL_zc3z04anonymousza32212ze3z87_13806 =
									MAKE_FX_PROCEDURE
									(BGl_z62zc3z04anonymousza32212ze3ze5zz__evaluate_compz00,
									(int) (1L), (int) (5L));
								PROCEDURE_SET(BgL_zc3z04anonymousza32212ze3z87_13806,
									(int) (0L), BgL_a1z00_169);
								PROCEDURE_SET(BgL_zc3z04anonymousza32212ze3z87_13806,
									(int) (1L), BgL_a2z00_170);
								PROCEDURE_SET(BgL_zc3z04anonymousza32212ze3z87_13806,
									(int) (2L), BgL_a3z00_171);
								PROCEDURE_SET(BgL_zc3z04anonymousza32212ze3z87_13806,
									(int) (3L), BINT(BgL_siza7eza7_168));
								PROCEDURE_SET(BgL_zc3z04anonymousza32212ze3z87_13806,
									(int) (4L), BgL_cfunz00_2523);
								return BgL_zc3z04anonymousza32212ze3z87_13806;
							}
					}
				else
					{	/* Eval/evaluate_comp.scm 896 */
						if (CBOOL(BgL_tailzf3zf3_166))
							{	/* Eval/evaluate_comp.scm 896 */
								bool_t BgL_test5128z00_20751;

								{	/* Eval/evaluate_comp.scm 896 */
									int BgL_a1374z00_2651;

									BgL_a1374z00_2651 = bgl_debug();
									BgL_test5128z00_20751 = ((long) (BgL_a1374z00_2651) > 0L);
								}
								if (BgL_test5128z00_20751)
									{	/* Eval/evaluate_comp.scm 896 */
										obj_t BgL_zc3z04anonymousza32214ze3z87_13807;

										BgL_zc3z04anonymousza32214ze3z87_13807 =
											MAKE_FX_PROCEDURE
											(BGl_z62zc3z04anonymousza32214ze3ze5zz__evaluate_compz00,
											(int) (1L), (int) (7L));
										PROCEDURE_SET(BgL_zc3z04anonymousza32214ze3z87_13807,
											(int) (0L), BgL_funz00_165);
										PROCEDURE_SET(BgL_zc3z04anonymousza32214ze3z87_13807,
											(int) (1L), BgL_a1z00_169);
										PROCEDURE_SET(BgL_zc3z04anonymousza32214ze3z87_13807,
											(int) (2L), BgL_a2z00_170);
										PROCEDURE_SET(BgL_zc3z04anonymousza32214ze3z87_13807,
											(int) (3L), BgL_a3z00_171);
										PROCEDURE_SET(BgL_zc3z04anonymousza32214ze3z87_13807,
											(int) (4L), BgL_locz00_162);
										PROCEDURE_SET(BgL_zc3z04anonymousza32214ze3z87_13807,
											(int) (5L), BgL_symbzd2funzd2_164);
										PROCEDURE_SET(BgL_zc3z04anonymousza32214ze3z87_13807,
											(int) (6L), BINT(BgL_siza7eza7_168));
										return BgL_zc3z04anonymousza32214ze3z87_13807;
									}
								else
									{	/* Eval/evaluate_comp.scm 896 */
										obj_t BgL_zc3z04anonymousza32248ze3z87_13808;

										BgL_zc3z04anonymousza32248ze3z87_13808 =
											MAKE_FX_PROCEDURE
											(BGl_z62zc3z04anonymousza32248ze3ze5zz__evaluate_compz00,
											(int) (1L), (int) (7L));
										PROCEDURE_SET(BgL_zc3z04anonymousza32248ze3z87_13808,
											(int) (0L), BgL_funz00_165);
										PROCEDURE_SET(BgL_zc3z04anonymousza32248ze3z87_13808,
											(int) (1L), BgL_a1z00_169);
										PROCEDURE_SET(BgL_zc3z04anonymousza32248ze3z87_13808,
											(int) (2L), BgL_a2z00_170);
										PROCEDURE_SET(BgL_zc3z04anonymousza32248ze3z87_13808,
											(int) (3L), BgL_a3z00_171);
										PROCEDURE_SET(BgL_zc3z04anonymousza32248ze3z87_13808,
											(int) (4L), BgL_locz00_162);
										PROCEDURE_SET(BgL_zc3z04anonymousza32248ze3z87_13808,
											(int) (5L), BgL_symbzd2funzd2_164);
										PROCEDURE_SET(BgL_zc3z04anonymousza32248ze3z87_13808,
											(int) (6L), BINT(BgL_siza7eza7_168));
										return BgL_zc3z04anonymousza32248ze3z87_13808;
									}
							}
						else
							{	/* Eval/evaluate_comp.scm 896 */
								bool_t BgL_test5129z00_20791;

								{	/* Eval/evaluate_comp.scm 896 */
									int BgL_a1375z00_2759;

									BgL_a1375z00_2759 = bgl_debug();
									BgL_test5129z00_20791 = ((long) (BgL_a1375z00_2759) > 0L);
								}
								if (BgL_test5129z00_20791)
									{	/* Eval/evaluate_comp.scm 896 */
										obj_t BgL_zc3z04anonymousza32281ze3z87_13809;

										BgL_zc3z04anonymousza32281ze3z87_13809 =
											MAKE_FX_PROCEDURE
											(BGl_z62zc3z04anonymousza32281ze3ze5zz__evaluate_compz00,
											(int) (1L), (int) (7L));
										PROCEDURE_SET(BgL_zc3z04anonymousza32281ze3z87_13809,
											(int) (0L), BgL_funz00_165);
										PROCEDURE_SET(BgL_zc3z04anonymousza32281ze3z87_13809,
											(int) (1L), BgL_a1z00_169);
										PROCEDURE_SET(BgL_zc3z04anonymousza32281ze3z87_13809,
											(int) (2L), BgL_a2z00_170);
										PROCEDURE_SET(BgL_zc3z04anonymousza32281ze3z87_13809,
											(int) (3L), BgL_a3z00_171);
										PROCEDURE_SET(BgL_zc3z04anonymousza32281ze3z87_13809,
											(int) (4L), BgL_locz00_162);
										PROCEDURE_SET(BgL_zc3z04anonymousza32281ze3z87_13809,
											(int) (5L), BgL_symbzd2funzd2_164);
										PROCEDURE_SET(BgL_zc3z04anonymousza32281ze3z87_13809,
											(int) (6L), BINT(BgL_siza7eza7_168));
										return BgL_zc3z04anonymousza32281ze3z87_13809;
									}
								else
									{	/* Eval/evaluate_comp.scm 896 */
										obj_t BgL_zc3z04anonymousza32320ze3z87_13810;

										BgL_zc3z04anonymousza32320ze3z87_13810 =
											MAKE_FX_PROCEDURE
											(BGl_z62zc3z04anonymousza32320ze3ze5zz__evaluate_compz00,
											(int) (1L), (int) (7L));
										PROCEDURE_SET(BgL_zc3z04anonymousza32320ze3z87_13810,
											(int) (0L), BgL_funz00_165);
										PROCEDURE_SET(BgL_zc3z04anonymousza32320ze3z87_13810,
											(int) (1L), BgL_a1z00_169);
										PROCEDURE_SET(BgL_zc3z04anonymousza32320ze3z87_13810,
											(int) (2L), BgL_a2z00_170);
										PROCEDURE_SET(BgL_zc3z04anonymousza32320ze3z87_13810,
											(int) (3L), BgL_a3z00_171);
										PROCEDURE_SET(BgL_zc3z04anonymousza32320ze3z87_13810,
											(int) (4L), BgL_locz00_162);
										PROCEDURE_SET(BgL_zc3z04anonymousza32320ze3z87_13810,
											(int) (5L), BgL_symbzd2funzd2_164);
										PROCEDURE_SET(BgL_zc3z04anonymousza32320ze3z87_13810,
											(int) (6L), BINT(BgL_siza7eza7_168));
										return BgL_zc3z04anonymousza32320ze3z87_13810;
									}
							}
					}
			}
		}

	}



/* &<@anonymous:2210> */
	obj_t BGl_z62zc3z04anonymousza32210ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13811, obj_t BgL_sz00_13818)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			{	/* Eval/evaluate_comp.scm 896 */
				obj_t BgL_a1z00_13812;
				obj_t BgL_a2z00_13813;
				obj_t BgL_a3z00_13814;
				long BgL_siza7eza7_13815;
				obj_t BgL_locz00_13816;
				obj_t BgL_cfunz00_13817;

				BgL_a1z00_13812 = PROCEDURE_REF(BgL_envz00_13811, (int) (0L));
				BgL_a2z00_13813 = PROCEDURE_REF(BgL_envz00_13811, (int) (1L));
				BgL_a3z00_13814 = PROCEDURE_REF(BgL_envz00_13811, (int) (2L));
				BgL_siza7eza7_13815 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_13811, (int) (3L)));
				BgL_locz00_13816 = PROCEDURE_REF(BgL_envz00_13811, (int) (4L));
				BgL_cfunz00_13817 = PROCEDURE_REF(BgL_envz00_13811, (int) (5L));
				{	/* Eval/evaluate_comp.scm 896 */
					obj_t BgL_bpz00_15918;

					BgL_bpz00_15918 = VECTOR_REF(((obj_t) BgL_sz00_13818), 0L);
					{	/* Eval/evaluate_comp.scm 896 */
						obj_t BgL_a1z00_15919;
						obj_t BgL_a2z00_15920;
						obj_t BgL_a3z00_15921;

						BgL_a1z00_15919 =
							BGL_PROCEDURE_CALL1(BgL_a1z00_13812, BgL_sz00_13818);
						BgL_a2z00_15920 =
							BGL_PROCEDURE_CALL1(BgL_a2z00_13813, BgL_sz00_13818);
						BgL_a3z00_15921 =
							BGL_PROCEDURE_CALL1(BgL_a3z00_13814, BgL_sz00_13818);
						{	/* Eval/evaluate_comp.scm 896 */
							long BgL_nbpz00_15922;

							BgL_nbpz00_15922 =
								((long) CINT(BgL_bpz00_15918) + BgL_siza7eza7_13815);
							VECTOR_SET(((obj_t) BgL_sz00_13818), 0L, BINT(BgL_nbpz00_15922));
							{	/* Eval/evaluate_comp.scm 896 */
								obj_t BgL_tmpz00_20863;

								BgL_tmpz00_20863 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_SET_TRACE_LOCATION(BgL_tmpz00_20863, BgL_locz00_13816);
							}
							{	/* Eval/evaluate_comp.scm 896 */
								obj_t BgL_rz00_15923;

								BgL_rz00_15923 =
									BGL_PROCEDURE_CALL3(BgL_cfunz00_13817, BgL_a1z00_15919,
									BgL_a2z00_15920, BgL_a3z00_15921);
								VECTOR_SET(((obj_t) BgL_sz00_13818), 0L, BgL_bpz00_15918);
								return BgL_rz00_15923;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:2212> */
	obj_t BGl_z62zc3z04anonymousza32212ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13819, obj_t BgL_sz00_13825)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			{	/* Eval/evaluate_comp.scm 896 */
				obj_t BgL_a1z00_13820;
				obj_t BgL_a2z00_13821;
				obj_t BgL_a3z00_13822;
				long BgL_siza7eza7_13823;
				obj_t BgL_cfunz00_13824;

				BgL_a1z00_13820 = PROCEDURE_REF(BgL_envz00_13819, (int) (0L));
				BgL_a2z00_13821 = PROCEDURE_REF(BgL_envz00_13819, (int) (1L));
				BgL_a3z00_13822 = PROCEDURE_REF(BgL_envz00_13819, (int) (2L));
				BgL_siza7eza7_13823 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_13819, (int) (3L)));
				BgL_cfunz00_13824 = PROCEDURE_REF(BgL_envz00_13819, (int) (4L));
				{	/* Eval/evaluate_comp.scm 896 */
					obj_t BgL_bpz00_15924;

					BgL_bpz00_15924 = VECTOR_REF(((obj_t) BgL_sz00_13825), 0L);
					{	/* Eval/evaluate_comp.scm 896 */
						obj_t BgL_a1z00_15925;
						obj_t BgL_a2z00_15926;
						obj_t BgL_a3z00_15927;

						BgL_a1z00_15925 =
							BGL_PROCEDURE_CALL1(BgL_a1z00_13820, BgL_sz00_13825);
						BgL_a2z00_15926 =
							BGL_PROCEDURE_CALL1(BgL_a2z00_13821, BgL_sz00_13825);
						BgL_a3z00_15927 =
							BGL_PROCEDURE_CALL1(BgL_a3z00_13822, BgL_sz00_13825);
						{	/* Eval/evaluate_comp.scm 896 */
							long BgL_nbpz00_15928;

							BgL_nbpz00_15928 =
								((long) CINT(BgL_bpz00_15924) + BgL_siza7eza7_13823);
							VECTOR_SET(((obj_t) BgL_sz00_13825), 0L, BINT(BgL_nbpz00_15928));
							{	/* Eval/evaluate_comp.scm 896 */
								obj_t BgL_rz00_15929;

								BgL_rz00_15929 =
									BGL_PROCEDURE_CALL3(BgL_cfunz00_13824, BgL_a1z00_15925,
									BgL_a2z00_15926, BgL_a3z00_15927);
								VECTOR_SET(((obj_t) BgL_sz00_13825), 0L, BgL_bpz00_15924);
								return BgL_rz00_15929;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:2214> */
	obj_t BGl_z62zc3z04anonymousza32214ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13826, obj_t BgL_sz00_13834)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			return
				BGl_zc3z04anonymousza32214ze3ze70z60zz__evaluate_compz00(
				(long) CINT(PROCEDURE_REF(BgL_envz00_13826,
						(int) (6L))),
				PROCEDURE_REF(BgL_envz00_13826,
					(int) (5L)),
				PROCEDURE_REF(BgL_envz00_13826,
					(int) (4L)),
				PROCEDURE_REF(BgL_envz00_13826,
					(int) (3L)),
				PROCEDURE_REF(BgL_envz00_13826,
					(int) (2L)),
				PROCEDURE_REF(BgL_envz00_13826,
					(int) (1L)),
				PROCEDURE_REF(BgL_envz00_13826, (int) (0L)), BgL_sz00_13834);
		}

	}



/* <@anonymous:2214>~0 */
	obj_t BGl_zc3z04anonymousza32214ze3ze70z60zz__evaluate_compz00(long
		BgL_siza7eza7_15730, obj_t BgL_symbzd2funzd2_15729, obj_t BgL_locz00_15728,
		obj_t BgL_a3z00_15727, obj_t BgL_a2z00_15726, obj_t BgL_a1z00_15725,
		obj_t BgL_funz00_15724, obj_t BgL_sz00_2546)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			{	/* Eval/evaluate_comp.scm 896 */
				obj_t BgL_bpz00_2548;

				BgL_bpz00_2548 = VECTOR_REF(((obj_t) BgL_sz00_2546), 0L);
				{	/* Eval/evaluate_comp.scm 896 */
					obj_t BgL_fz00_2549;
					obj_t BgL_a1z00_2550;
					obj_t BgL_a2z00_2551;
					obj_t BgL_a3z00_2552;

					BgL_fz00_2549 = BGL_PROCEDURE_CALL1(BgL_funz00_15724, BgL_sz00_2546);
					BgL_a1z00_2550 = BGL_PROCEDURE_CALL1(BgL_a1z00_15725, BgL_sz00_2546);
					BgL_a2z00_2551 = BGL_PROCEDURE_CALL1(BgL_a2z00_15726, BgL_sz00_2546);
					BgL_a3z00_2552 = BGL_PROCEDURE_CALL1(BgL_a3z00_15727, BgL_sz00_2546);
					if (PROCEDUREP(BgL_fz00_2549))
						{	/* Eval/evaluate_comp.scm 896 */
							BFALSE;
						}
					else
						{	/* Eval/evaluate_comp.scm 896 */
							BGl_evtypezd2errorzd2zz__everrorz00(BgL_locz00_15728,
								BGl_string4577z00zz__evaluate_compz00,
								BGl_string4593z00zz__evaluate_compz00, BgL_fz00_2549);
						}
					{	/* Eval/evaluate_comp.scm 896 */
						obj_t BgL_ufz00_2554;

						{	/* Eval/evaluate_comp.scm 896 */
							obj_t BgL_tmpz00_20949;

							BgL_tmpz00_20949 = ((obj_t) BgL_fz00_2549);
							BgL_ufz00_2554 = PROCEDURE_ATTR(BgL_tmpz00_20949);
						}
						{	/* Eval/evaluate_comp.scm 896 */
							bool_t BgL_test5131z00_20952;

							if (STRUCTP(BgL_ufz00_2554))
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test5131z00_20952 =
										(STRUCT_KEY(BgL_ufz00_2554) ==
										BGl_symbol4594z00zz__evaluate_compz00);
								}
							else
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test5131z00_20952 = ((bool_t) 0);
								}
							if (BgL_test5131z00_20952)
								{	/* Eval/evaluate_comp.scm 896 */
									obj_t BgL_arityz00_2556;
									obj_t BgL_runz00_2557;
									obj_t BgL_sfz00_2558;

									BgL_arityz00_2556 = STRUCT_REF(BgL_ufz00_2554, (int) (0L));
									BgL_runz00_2557 = STRUCT_REF(BgL_ufz00_2554, (int) (1L));
									BgL_sfz00_2558 = STRUCT_REF(BgL_ufz00_2554, (int) (2L));
									if (((long) CINT(BgL_arityz00_2556) == 3L))
										{	/* Eval/evaluate_comp.scm 896 */
											{	/* Eval/evaluate_comp.scm 896 */
												long BgL_arg2218z00_2561;

												BgL_arg2218z00_2561 =
													((long) CINT(BgL_bpz00_2548) + 0L);
												VECTOR_SET(
													((obj_t) BgL_sz00_2546), BgL_arg2218z00_2561,
													BgL_a1z00_2550);
											}
											{	/* Eval/evaluate_comp.scm 896 */
												long BgL_arg2219z00_2562;

												BgL_arg2219z00_2562 =
													((long) CINT(BgL_bpz00_2548) + 1L);
												VECTOR_SET(
													((obj_t) BgL_sz00_2546), BgL_arg2219z00_2562,
													BgL_a2z00_2551);
											}
											{	/* Eval/evaluate_comp.scm 896 */
												long BgL_arg2220z00_2563;

												BgL_arg2220z00_2563 =
													((long) CINT(BgL_bpz00_2548) + 2L);
												VECTOR_SET(
													((obj_t) BgL_sz00_2546), BgL_arg2220z00_2563,
													BgL_a3z00_2552);
										}}
									else
										{	/* Eval/evaluate_comp.scm 896 */
											if (INTEGERP(BgL_arityz00_2556))
												{	/* Eval/evaluate_comp.scm 896 */
													switch ((long) CINT(BgL_arityz00_2556))
														{
														case (-1L):

															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2221z00_2566;
																obj_t BgL_arg2222z00_2567;

																BgL_arg2221z00_2566 =
																	((long) CINT(BgL_bpz00_2548) + 0L);
																{	/* Eval/evaluate_comp.scm 896 */
																	obj_t BgL_list2223z00_2568;

																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_arg2224z00_2569;

																		{	/* Eval/evaluate_comp.scm 896 */
																			obj_t BgL_arg2225z00_2570;

																			BgL_arg2225z00_2570 =
																				MAKE_YOUNG_PAIR(BgL_a3z00_2552, BNIL);
																			BgL_arg2224z00_2569 =
																				MAKE_YOUNG_PAIR(BgL_a2z00_2551,
																				BgL_arg2225z00_2570);
																		}
																		BgL_list2223z00_2568 =
																			MAKE_YOUNG_PAIR(BgL_a1z00_2550,
																			BgL_arg2224z00_2569);
																	}
																	BgL_arg2222z00_2567 = BgL_list2223z00_2568;
																}
																VECTOR_SET(
																	((obj_t) BgL_sz00_2546), BgL_arg2221z00_2566,
																	BgL_arg2222z00_2567);
															} break;
														case (-2L):

															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2226z00_2571;

																BgL_arg2226z00_2571 =
																	((long) CINT(BgL_bpz00_2548) + 0L);
																VECTOR_SET(
																	((obj_t) BgL_sz00_2546), BgL_arg2226z00_2571,
																	BgL_a1z00_2550);
															}
															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2227z00_2572;
																obj_t BgL_arg2228z00_2573;

																BgL_arg2227z00_2572 =
																	((long) CINT(BgL_bpz00_2548) + 1L);
																{	/* Eval/evaluate_comp.scm 896 */
																	obj_t BgL_list2229z00_2574;

																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_arg2230z00_2575;

																		BgL_arg2230z00_2575 =
																			MAKE_YOUNG_PAIR(BgL_a3z00_2552, BNIL);
																		BgL_list2229z00_2574 =
																			MAKE_YOUNG_PAIR(BgL_a2z00_2551,
																			BgL_arg2230z00_2575);
																	}
																	BgL_arg2228z00_2573 = BgL_list2229z00_2574;
																}
																VECTOR_SET(
																	((obj_t) BgL_sz00_2546), BgL_arg2227z00_2572,
																	BgL_arg2228z00_2573);
															} break;
														case (-3L):

															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2231z00_2576;

																BgL_arg2231z00_2576 =
																	((long) CINT(BgL_bpz00_2548) + 0L);
																VECTOR_SET(
																	((obj_t) BgL_sz00_2546), BgL_arg2231z00_2576,
																	BgL_a1z00_2550);
															}
															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2232z00_2577;

																BgL_arg2232z00_2577 =
																	((long) CINT(BgL_bpz00_2548) + 1L);
																VECTOR_SET(
																	((obj_t) BgL_sz00_2546), BgL_arg2232z00_2577,
																	BgL_a2z00_2551);
															}
															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2233z00_2578;
																obj_t BgL_arg2234z00_2579;

																BgL_arg2233z00_2578 =
																	((long) CINT(BgL_bpz00_2548) + 2L);
																{	/* Eval/evaluate_comp.scm 896 */
																	obj_t BgL_list2235z00_2580;

																	BgL_list2235z00_2580 =
																		MAKE_YOUNG_PAIR(BgL_a3z00_2552, BNIL);
																	BgL_arg2234z00_2579 = BgL_list2235z00_2580;
																}
																VECTOR_SET(
																	((obj_t) BgL_sz00_2546), BgL_arg2233z00_2578,
																	BgL_arg2234z00_2579);
															} break;
														case (-4L):

															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2237z00_2581;

																BgL_arg2237z00_2581 =
																	((long) CINT(BgL_bpz00_2548) + 0L);
																VECTOR_SET(
																	((obj_t) BgL_sz00_2546), BgL_arg2237z00_2581,
																	BgL_a1z00_2550);
															}
															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2238z00_2582;

																BgL_arg2238z00_2582 =
																	((long) CINT(BgL_bpz00_2548) + 1L);
																VECTOR_SET(
																	((obj_t) BgL_sz00_2546), BgL_arg2238z00_2582,
																	BgL_a2z00_2551);
															}
															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2239z00_2583;

																BgL_arg2239z00_2583 =
																	((long) CINT(BgL_bpz00_2548) + 2L);
																VECTOR_SET(
																	((obj_t) BgL_sz00_2546), BgL_arg2239z00_2583,
																	BgL_a3z00_2552);
															}
															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2240z00_2584;
																obj_t BgL_arg2241z00_2585;

																BgL_arg2240z00_2584 =
																	((long) CINT(BgL_bpz00_2548) + 3L);
																BgL_arg2241z00_2585 = BNIL;
																VECTOR_SET(
																	((obj_t) BgL_sz00_2546), BgL_arg2240z00_2584,
																	BgL_arg2241z00_2585);
															} break;
														default:
															BGl_evarityzd2errorzd2zz__everrorz00
																(BgL_locz00_15728, STRUCT_REF(BgL_ufz00_2554,
																	(int) (3L)), (int) (3L),
																CINT(BgL_arityz00_2556));
												}}
											else
												{	/* Eval/evaluate_comp.scm 896 */
													BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_15728,
														STRUCT_REF(BgL_ufz00_2554,
															(int) (3L)), (int) (3L), CINT(BgL_arityz00_2556));
										}}
									{	/* Eval/evaluate_comp.scm 896 */
										obj_t BgL_z12denvz12_2588;

										BgL_z12denvz12_2588 = BGL_CURRENT_DYNAMIC_ENV();
										BGL_ENV_SET_TRACE_LOCATION(BgL_z12denvz12_2588,
											BgL_locz00_15728);
										if ((((long) CINT(BgL_bpz00_2548) +
													(long) CINT(BgL_sfz00_2558)) <
												VECTOR_LENGTH(((obj_t) BgL_sz00_2546))))
											{	/* Eval/evaluate_comp.scm 896 */
												return BgL_runz00_2557;
											}
										else
											{	/* Eval/evaluate_comp.scm 896 */
												obj_t BgL_nsz00_2590;

												BgL_nsz00_2590 =
													BGl_makezd2statezd2zz__evaluate_compz00();
												{	/* Eval/evaluate_comp.scm 896 */
													long BgL_arg2245z00_2592;

													BgL_arg2245z00_2592 =
														((long) CINT(BgL_bpz00_2548) + 3L);
													BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00
														(BgL_nsz00_2590, 2L, BgL_sz00_2546, BgL_bpz00_2548,
														BINT(BgL_arg2245z00_2592));
												}
												VECTOR_SET(BgL_nsz00_2590, 1L, BgL_sz00_2546);
												BGL_ENV_EVSTATE_SET(BgL_z12denvz12_2588,
													BgL_nsz00_2590);
												{	/* Eval/evaluate_comp.scm 896 */
													obj_t BgL_ez00_2593;

													BgL_ez00_2593 = BGL_EXITD_TOP_AS_OBJ();
													{	/* Eval/evaluate_comp.scm 896 */
														obj_t BgL_arg4321z00_8293;

														{	/* Eval/evaluate_comp.scm 896 */
															obj_t BgL_arg4322z00_8294;

															BgL_arg4322z00_8294 =
																BGL_EXITD_PROTECT(BgL_ez00_2593);
															BgL_arg4321z00_8293 =
																MAKE_YOUNG_PAIR(BgL_sz00_2546,
																BgL_arg4322z00_8294);
														}
														BGL_EXITD_PROTECT_SET(BgL_ez00_2593,
															BgL_arg4321z00_8293);
														BUNSPEC;
													}
													{	/* Eval/evaluate_comp.scm 896 */
														obj_t BgL_____rz00_2594;

														{	/* Eval/evaluate_comp.scm 670 */
															obj_t BgL_savedzd2bpzd2_8295;

															BgL_savedzd2bpzd2_8295 =
																VECTOR_REF(BgL_nsz00_2590, 0L);
															VECTOR_SET(BgL_nsz00_2590, 0L, BINT(2L));
															{
																obj_t BgL_fz00_8299;

																BgL_fz00_8299 = BgL_runz00_2557;
															BgL_recz00_8298:
																{	/* Eval/evaluate_comp.scm 673 */
																	obj_t BgL_rz00_8300;

																	BgL_rz00_8300 =
																		BGL_PROCEDURE_CALL1(BgL_fz00_8299,
																		BgL_nsz00_2590);
																	{	/* Eval/evaluate_comp.scm 674 */
																		bool_t BgL_test5136z00_21065;

																		if (PROCEDUREP(BgL_rz00_8300))
																			{	/* Eval/evaluate_comp.scm 674 */
																				obj_t BgL_arg1759z00_8303;

																				BgL_arg1759z00_8303 =
																					PROCEDURE_ATTR(BgL_rz00_8300);
																				if (STRUCTP(BgL_arg1759z00_8303))
																					{	/* Eval/evaluate_comp.scm 654 */
																						BgL_test5136z00_21065 =
																							(STRUCT_KEY(BgL_arg1759z00_8303)
																							==
																							BGl_symbol4573z00zz__evaluate_compz00);
																					}
																				else
																					{	/* Eval/evaluate_comp.scm 654 */
																						BgL_test5136z00_21065 =
																							((bool_t) 0);
																					}
																			}
																		else
																			{	/* Eval/evaluate_comp.scm 674 */
																				BgL_test5136z00_21065 = ((bool_t) 0);
																			}
																		if (BgL_test5136z00_21065)
																			{
																				obj_t BgL_fz00_21073;

																				BgL_fz00_21073 = BgL_rz00_8300;
																				BgL_fz00_8299 = BgL_fz00_21073;
																				goto BgL_recz00_8298;
																			}
																		else
																			{	/* Eval/evaluate_comp.scm 674 */
																				VECTOR_SET(BgL_nsz00_2590, 0L,
																					BgL_savedzd2bpzd2_8295);
																				BgL_____rz00_2594 = BgL_rz00_8300;
																			}
																	}
																}
															}
														}
														{	/* Eval/evaluate_comp.scm 896 */
															bool_t BgL_test5139z00_21075;

															{	/* Eval/evaluate_comp.scm 896 */
																obj_t BgL_arg4320z00_8311;

																BgL_arg4320z00_8311 =
																	BGL_EXITD_PROTECT(BgL_ez00_2593);
																BgL_test5139z00_21075 =
																	PAIRP(BgL_arg4320z00_8311);
															}
															if (BgL_test5139z00_21075)
																{	/* Eval/evaluate_comp.scm 896 */
																	obj_t BgL_arg4318z00_8312;

																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_arg4319z00_8313;

																		BgL_arg4319z00_8313 =
																			BGL_EXITD_PROTECT(BgL_ez00_2593);
																		BgL_arg4318z00_8312 =
																			CDR(((obj_t) BgL_arg4319z00_8313));
																	}
																	BGL_EXITD_PROTECT_SET(BgL_ez00_2593,
																		BgL_arg4318z00_8312);
																	BUNSPEC;
																}
															else
																{	/* Eval/evaluate_comp.scm 896 */
																	BFALSE;
																}
														}
														BGL_ENV_EVSTATE_SET(BgL_z12denvz12_2588,
															BgL_sz00_2546);
														return BgL_____rz00_2594;
													}
												}
											}
									}
								}
							else
								{	/* Eval/evaluate_comp.scm 896 */
									if (PROCEDURE_CORRECT_ARITYP(BgL_fz00_2549, (int) (3L)))
										{	/* Eval/evaluate_comp.scm 896 */
											long BgL_nbpz00_2595;

											BgL_nbpz00_2595 =
												((long) CINT(BgL_bpz00_2548) + BgL_siza7eza7_15730);
											VECTOR_SET(
												((obj_t) BgL_sz00_2546), 0L, BINT(BgL_nbpz00_2595));
											{	/* Eval/evaluate_comp.scm 896 */
												obj_t BgL_tmpz00_21091;

												BgL_tmpz00_21091 = BGL_CURRENT_DYNAMIC_ENV();
												BGL_ENV_SET_TRACE_LOCATION(BgL_tmpz00_21091,
													BgL_locz00_15728);
											}
											{	/* Eval/evaluate_comp.scm 896 */
												obj_t BgL_rz00_2597;

												BgL_rz00_2597 =
													BGL_PROCEDURE_CALL3(BgL_fz00_2549, BgL_a1z00_2550,
													BgL_a2z00_2551, BgL_a3z00_2552);
												VECTOR_SET(((obj_t) BgL_sz00_2546), 0L, BgL_bpz00_2548);
												return BgL_rz00_2597;
											}
										}
									else
										{	/* Eval/evaluate_comp.scm 896 */
											return
												BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_15728,
												BgL_symbzd2funzd2_15729, (int) (3L),
												PROCEDURE_ARITY(BgL_fz00_2549));
		}}}}}}}

	}



/* &<@anonymous:2248> */
	obj_t BGl_z62zc3z04anonymousza32248ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13835, obj_t BgL_sz00_13843)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			return
				BGl_zc3z04anonymousza32248ze3ze70z60zz__evaluate_compz00(
				(long) CINT(PROCEDURE_REF(BgL_envz00_13835,
						(int) (6L))),
				PROCEDURE_REF(BgL_envz00_13835,
					(int) (5L)),
				PROCEDURE_REF(BgL_envz00_13835,
					(int) (4L)),
				PROCEDURE_REF(BgL_envz00_13835,
					(int) (3L)),
				PROCEDURE_REF(BgL_envz00_13835,
					(int) (2L)),
				PROCEDURE_REF(BgL_envz00_13835,
					(int) (1L)),
				PROCEDURE_REF(BgL_envz00_13835, (int) (0L)), BgL_sz00_13843);
		}

	}



/* <@anonymous:2248>~0 */
	obj_t BGl_zc3z04anonymousza32248ze3ze70z60zz__evaluate_compz00(long
		BgL_siza7eza7_15723, obj_t BgL_symbzd2funzd2_15722, obj_t BgL_locz00_15721,
		obj_t BgL_a3z00_15720, obj_t BgL_a2z00_15719, obj_t BgL_a1z00_15718,
		obj_t BgL_funz00_15717, obj_t BgL_sz00_2599)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			{	/* Eval/evaluate_comp.scm 896 */
				obj_t BgL_bpz00_2601;

				BgL_bpz00_2601 = VECTOR_REF(((obj_t) BgL_sz00_2599), 0L);
				{	/* Eval/evaluate_comp.scm 896 */
					obj_t BgL_fz00_2602;
					obj_t BgL_a1z00_2603;
					obj_t BgL_a2z00_2604;
					obj_t BgL_a3z00_2605;

					BgL_fz00_2602 = BGL_PROCEDURE_CALL1(BgL_funz00_15717, BgL_sz00_2599);
					BgL_a1z00_2603 = BGL_PROCEDURE_CALL1(BgL_a1z00_15718, BgL_sz00_2599);
					BgL_a2z00_2604 = BGL_PROCEDURE_CALL1(BgL_a2z00_15719, BgL_sz00_2599);
					BgL_a3z00_2605 = BGL_PROCEDURE_CALL1(BgL_a3z00_15720, BgL_sz00_2599);
					if (PROCEDUREP(BgL_fz00_2602))
						{	/* Eval/evaluate_comp.scm 896 */
							BFALSE;
						}
					else
						{	/* Eval/evaluate_comp.scm 896 */
							BGl_evtypezd2errorzd2zz__everrorz00(BgL_locz00_15721,
								BGl_string4577z00zz__evaluate_compz00,
								BGl_string4593z00zz__evaluate_compz00, BgL_fz00_2602);
						}
					{	/* Eval/evaluate_comp.scm 896 */
						obj_t BgL_ufz00_2607;

						{	/* Eval/evaluate_comp.scm 896 */
							obj_t BgL_tmpz00_21142;

							BgL_tmpz00_21142 = ((obj_t) BgL_fz00_2602);
							BgL_ufz00_2607 = PROCEDURE_ATTR(BgL_tmpz00_21142);
						}
						{	/* Eval/evaluate_comp.scm 896 */
							bool_t BgL_test5142z00_21145;

							if (STRUCTP(BgL_ufz00_2607))
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test5142z00_21145 =
										(STRUCT_KEY(BgL_ufz00_2607) ==
										BGl_symbol4594z00zz__evaluate_compz00);
								}
							else
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test5142z00_21145 = ((bool_t) 0);
								}
							if (BgL_test5142z00_21145)
								{	/* Eval/evaluate_comp.scm 896 */
									obj_t BgL_arityz00_2609;
									obj_t BgL_runz00_2610;
									obj_t BgL_sfz00_2611;

									BgL_arityz00_2609 = STRUCT_REF(BgL_ufz00_2607, (int) (0L));
									BgL_runz00_2610 = STRUCT_REF(BgL_ufz00_2607, (int) (1L));
									BgL_sfz00_2611 = STRUCT_REF(BgL_ufz00_2607, (int) (2L));
									if (((long) CINT(BgL_arityz00_2609) == 3L))
										{	/* Eval/evaluate_comp.scm 896 */
											{	/* Eval/evaluate_comp.scm 896 */
												long BgL_arg2252z00_2614;

												BgL_arg2252z00_2614 =
													((long) CINT(BgL_bpz00_2601) + 0L);
												VECTOR_SET(
													((obj_t) BgL_sz00_2599), BgL_arg2252z00_2614,
													BgL_a1z00_2603);
											}
											{	/* Eval/evaluate_comp.scm 896 */
												long BgL_arg2253z00_2615;

												BgL_arg2253z00_2615 =
													((long) CINT(BgL_bpz00_2601) + 1L);
												VECTOR_SET(
													((obj_t) BgL_sz00_2599), BgL_arg2253z00_2615,
													BgL_a2z00_2604);
											}
											{	/* Eval/evaluate_comp.scm 896 */
												long BgL_arg2254z00_2616;

												BgL_arg2254z00_2616 =
													((long) CINT(BgL_bpz00_2601) + 2L);
												VECTOR_SET(
													((obj_t) BgL_sz00_2599), BgL_arg2254z00_2616,
													BgL_a3z00_2605);
										}}
									else
										{	/* Eval/evaluate_comp.scm 896 */
											if (INTEGERP(BgL_arityz00_2609))
												{	/* Eval/evaluate_comp.scm 896 */
													switch ((long) CINT(BgL_arityz00_2609))
														{
														case (-1L):

															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2255z00_2619;
																obj_t BgL_arg2256z00_2620;

																BgL_arg2255z00_2619 =
																	((long) CINT(BgL_bpz00_2601) + 0L);
																{	/* Eval/evaluate_comp.scm 896 */
																	obj_t BgL_list2257z00_2621;

																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_arg2258z00_2622;

																		{	/* Eval/evaluate_comp.scm 896 */
																			obj_t BgL_arg2259z00_2623;

																			BgL_arg2259z00_2623 =
																				MAKE_YOUNG_PAIR(BgL_a3z00_2605, BNIL);
																			BgL_arg2258z00_2622 =
																				MAKE_YOUNG_PAIR(BgL_a2z00_2604,
																				BgL_arg2259z00_2623);
																		}
																		BgL_list2257z00_2621 =
																			MAKE_YOUNG_PAIR(BgL_a1z00_2603,
																			BgL_arg2258z00_2622);
																	}
																	BgL_arg2256z00_2620 = BgL_list2257z00_2621;
																}
																VECTOR_SET(
																	((obj_t) BgL_sz00_2599), BgL_arg2255z00_2619,
																	BgL_arg2256z00_2620);
															} break;
														case (-2L):

															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2260z00_2624;

																BgL_arg2260z00_2624 =
																	((long) CINT(BgL_bpz00_2601) + 0L);
																VECTOR_SET(
																	((obj_t) BgL_sz00_2599), BgL_arg2260z00_2624,
																	BgL_a1z00_2603);
															}
															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2261z00_2625;
																obj_t BgL_arg2262z00_2626;

																BgL_arg2261z00_2625 =
																	((long) CINT(BgL_bpz00_2601) + 1L);
																{	/* Eval/evaluate_comp.scm 896 */
																	obj_t BgL_list2263z00_2627;

																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_arg2264z00_2628;

																		BgL_arg2264z00_2628 =
																			MAKE_YOUNG_PAIR(BgL_a3z00_2605, BNIL);
																		BgL_list2263z00_2627 =
																			MAKE_YOUNG_PAIR(BgL_a2z00_2604,
																			BgL_arg2264z00_2628);
																	}
																	BgL_arg2262z00_2626 = BgL_list2263z00_2627;
																}
																VECTOR_SET(
																	((obj_t) BgL_sz00_2599), BgL_arg2261z00_2625,
																	BgL_arg2262z00_2626);
															} break;
														case (-3L):

															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2265z00_2629;

																BgL_arg2265z00_2629 =
																	((long) CINT(BgL_bpz00_2601) + 0L);
																VECTOR_SET(
																	((obj_t) BgL_sz00_2599), BgL_arg2265z00_2629,
																	BgL_a1z00_2603);
															}
															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2266z00_2630;

																BgL_arg2266z00_2630 =
																	((long) CINT(BgL_bpz00_2601) + 1L);
																VECTOR_SET(
																	((obj_t) BgL_sz00_2599), BgL_arg2266z00_2630,
																	BgL_a2z00_2604);
															}
															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2267z00_2631;
																obj_t BgL_arg2268z00_2632;

																BgL_arg2267z00_2631 =
																	((long) CINT(BgL_bpz00_2601) + 2L);
																{	/* Eval/evaluate_comp.scm 896 */
																	obj_t BgL_list2269z00_2633;

																	BgL_list2269z00_2633 =
																		MAKE_YOUNG_PAIR(BgL_a3z00_2605, BNIL);
																	BgL_arg2268z00_2632 = BgL_list2269z00_2633;
																}
																VECTOR_SET(
																	((obj_t) BgL_sz00_2599), BgL_arg2267z00_2631,
																	BgL_arg2268z00_2632);
															} break;
														case (-4L):

															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2270z00_2634;

																BgL_arg2270z00_2634 =
																	((long) CINT(BgL_bpz00_2601) + 0L);
																VECTOR_SET(
																	((obj_t) BgL_sz00_2599), BgL_arg2270z00_2634,
																	BgL_a1z00_2603);
															}
															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2271z00_2635;

																BgL_arg2271z00_2635 =
																	((long) CINT(BgL_bpz00_2601) + 1L);
																VECTOR_SET(
																	((obj_t) BgL_sz00_2599), BgL_arg2271z00_2635,
																	BgL_a2z00_2604);
															}
															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2272z00_2636;

																BgL_arg2272z00_2636 =
																	((long) CINT(BgL_bpz00_2601) + 2L);
																VECTOR_SET(
																	((obj_t) BgL_sz00_2599), BgL_arg2272z00_2636,
																	BgL_a3z00_2605);
															}
															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2273z00_2637;
																obj_t BgL_arg2274z00_2638;

																BgL_arg2273z00_2637 =
																	((long) CINT(BgL_bpz00_2601) + 3L);
																BgL_arg2274z00_2638 = BNIL;
																VECTOR_SET(
																	((obj_t) BgL_sz00_2599), BgL_arg2273z00_2637,
																	BgL_arg2274z00_2638);
															} break;
														default:
															BGl_evarityzd2errorzd2zz__everrorz00
																(BgL_locz00_15721, STRUCT_REF(BgL_ufz00_2607,
																	(int) (3L)), (int) (3L),
																CINT(BgL_arityz00_2609));
												}}
											else
												{	/* Eval/evaluate_comp.scm 896 */
													BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_15721,
														STRUCT_REF(BgL_ufz00_2607,
															(int) (3L)), (int) (3L), CINT(BgL_arityz00_2609));
										}}
									{	/* Eval/evaluate_comp.scm 896 */
										obj_t BgL_z12denvz12_2641;

										BgL_z12denvz12_2641 = BGL_CURRENT_DYNAMIC_ENV();
										if (
											(((long) CINT(BgL_bpz00_2601) +
													(long) CINT(BgL_sfz00_2611)) <
												VECTOR_LENGTH(((obj_t) BgL_sz00_2599))))
											{	/* Eval/evaluate_comp.scm 896 */
												return BgL_runz00_2610;
											}
										else
											{	/* Eval/evaluate_comp.scm 896 */
												obj_t BgL_nsz00_2643;

												BgL_nsz00_2643 =
													BGl_makezd2statezd2zz__evaluate_compz00();
												{	/* Eval/evaluate_comp.scm 896 */
													long BgL_arg2278z00_2645;

													BgL_arg2278z00_2645 =
														((long) CINT(BgL_bpz00_2601) + 3L);
													BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00
														(BgL_nsz00_2643, 2L, BgL_sz00_2599, BgL_bpz00_2601,
														BINT(BgL_arg2278z00_2645));
												}
												VECTOR_SET(BgL_nsz00_2643, 1L, BgL_sz00_2599);
												BGL_ENV_EVSTATE_SET(BgL_z12denvz12_2641,
													BgL_nsz00_2643);
												{	/* Eval/evaluate_comp.scm 896 */
													obj_t BgL_ez00_2646;

													BgL_ez00_2646 = BGL_EXITD_TOP_AS_OBJ();
													{	/* Eval/evaluate_comp.scm 896 */
														obj_t BgL_arg4321z00_8389;

														{	/* Eval/evaluate_comp.scm 896 */
															obj_t BgL_arg4322z00_8390;

															BgL_arg4322z00_8390 =
																BGL_EXITD_PROTECT(BgL_ez00_2646);
															BgL_arg4321z00_8389 =
																MAKE_YOUNG_PAIR(BgL_sz00_2599,
																BgL_arg4322z00_8390);
														}
														BGL_EXITD_PROTECT_SET(BgL_ez00_2646,
															BgL_arg4321z00_8389);
														BUNSPEC;
													}
													{	/* Eval/evaluate_comp.scm 896 */
														obj_t BgL_____rz00_2647;

														{	/* Eval/evaluate_comp.scm 670 */
															obj_t BgL_savedzd2bpzd2_8391;

															BgL_savedzd2bpzd2_8391 =
																VECTOR_REF(BgL_nsz00_2643, 0L);
															VECTOR_SET(BgL_nsz00_2643, 0L, BINT(2L));
															{
																obj_t BgL_fz00_8395;

																BgL_fz00_8395 = BgL_runz00_2610;
															BgL_recz00_8394:
																{	/* Eval/evaluate_comp.scm 673 */
																	obj_t BgL_rz00_8396;

																	BgL_rz00_8396 =
																		BGL_PROCEDURE_CALL1(BgL_fz00_8395,
																		BgL_nsz00_2643);
																	{	/* Eval/evaluate_comp.scm 674 */
																		bool_t BgL_test5147z00_21257;

																		if (PROCEDUREP(BgL_rz00_8396))
																			{	/* Eval/evaluate_comp.scm 674 */
																				obj_t BgL_arg1759z00_8399;

																				BgL_arg1759z00_8399 =
																					PROCEDURE_ATTR(BgL_rz00_8396);
																				if (STRUCTP(BgL_arg1759z00_8399))
																					{	/* Eval/evaluate_comp.scm 654 */
																						BgL_test5147z00_21257 =
																							(STRUCT_KEY(BgL_arg1759z00_8399)
																							==
																							BGl_symbol4573z00zz__evaluate_compz00);
																					}
																				else
																					{	/* Eval/evaluate_comp.scm 654 */
																						BgL_test5147z00_21257 =
																							((bool_t) 0);
																					}
																			}
																		else
																			{	/* Eval/evaluate_comp.scm 674 */
																				BgL_test5147z00_21257 = ((bool_t) 0);
																			}
																		if (BgL_test5147z00_21257)
																			{
																				obj_t BgL_fz00_21265;

																				BgL_fz00_21265 = BgL_rz00_8396;
																				BgL_fz00_8395 = BgL_fz00_21265;
																				goto BgL_recz00_8394;
																			}
																		else
																			{	/* Eval/evaluate_comp.scm 674 */
																				VECTOR_SET(BgL_nsz00_2643, 0L,
																					BgL_savedzd2bpzd2_8391);
																				BgL_____rz00_2647 = BgL_rz00_8396;
																			}
																	}
																}
															}
														}
														{	/* Eval/evaluate_comp.scm 896 */
															bool_t BgL_test5150z00_21267;

															{	/* Eval/evaluate_comp.scm 896 */
																obj_t BgL_arg4320z00_8407;

																BgL_arg4320z00_8407 =
																	BGL_EXITD_PROTECT(BgL_ez00_2646);
																BgL_test5150z00_21267 =
																	PAIRP(BgL_arg4320z00_8407);
															}
															if (BgL_test5150z00_21267)
																{	/* Eval/evaluate_comp.scm 896 */
																	obj_t BgL_arg4318z00_8408;

																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_arg4319z00_8409;

																		BgL_arg4319z00_8409 =
																			BGL_EXITD_PROTECT(BgL_ez00_2646);
																		BgL_arg4318z00_8408 =
																			CDR(((obj_t) BgL_arg4319z00_8409));
																	}
																	BGL_EXITD_PROTECT_SET(BgL_ez00_2646,
																		BgL_arg4318z00_8408);
																	BUNSPEC;
																}
															else
																{	/* Eval/evaluate_comp.scm 896 */
																	BFALSE;
																}
														}
														BGL_ENV_EVSTATE_SET(BgL_z12denvz12_2641,
															BgL_sz00_2599);
														return BgL_____rz00_2647;
													}
												}
											}
									}
								}
							else
								{	/* Eval/evaluate_comp.scm 896 */
									if (PROCEDURE_CORRECT_ARITYP(BgL_fz00_2602, (int) (3L)))
										{	/* Eval/evaluate_comp.scm 896 */
											long BgL_nbpz00_2648;

											BgL_nbpz00_2648 =
												((long) CINT(BgL_bpz00_2601) + BgL_siza7eza7_15723);
											VECTOR_SET(
												((obj_t) BgL_sz00_2599), 0L, BINT(BgL_nbpz00_2648));
											{	/* Eval/evaluate_comp.scm 896 */
												obj_t BgL_rz00_2649;

												BgL_rz00_2649 =
													BGL_PROCEDURE_CALL3(BgL_fz00_2602, BgL_a1z00_2603,
													BgL_a2z00_2604, BgL_a3z00_2605);
												VECTOR_SET(((obj_t) BgL_sz00_2599), 0L, BgL_bpz00_2601);
												return BgL_rz00_2649;
											}
										}
									else
										{	/* Eval/evaluate_comp.scm 896 */
											return
												BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_15721,
												BgL_symbzd2funzd2_15722, (int) (3L),
												PROCEDURE_ARITY(BgL_fz00_2602));
		}}}}}}}

	}



/* &<@anonymous:2281> */
	obj_t BGl_z62zc3z04anonymousza32281ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13844, obj_t BgL_sz00_13852)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			return
				BGl_zc3z04anonymousza32281ze3ze70z60zz__evaluate_compz00(
				(long) CINT(PROCEDURE_REF(BgL_envz00_13844,
						(int) (6L))),
				PROCEDURE_REF(BgL_envz00_13844,
					(int) (5L)),
				PROCEDURE_REF(BgL_envz00_13844,
					(int) (4L)),
				PROCEDURE_REF(BgL_envz00_13844,
					(int) (3L)),
				PROCEDURE_REF(BgL_envz00_13844,
					(int) (2L)),
				PROCEDURE_REF(BgL_envz00_13844,
					(int) (1L)),
				PROCEDURE_REF(BgL_envz00_13844, (int) (0L)), BgL_sz00_13852);
		}

	}



/* <@anonymous:2281>~0 */
	obj_t BGl_zc3z04anonymousza32281ze3ze70z60zz__evaluate_compz00(long
		BgL_siza7eza7_15716, obj_t BgL_symbzd2funzd2_15715, obj_t BgL_locz00_15714,
		obj_t BgL_a3z00_15713, obj_t BgL_a2z00_15712, obj_t BgL_a1z00_15711,
		obj_t BgL_funz00_15710, obj_t BgL_sz00_2654)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			{	/* Eval/evaluate_comp.scm 896 */
				obj_t BgL_bpz00_2656;

				BgL_bpz00_2656 = VECTOR_REF(((obj_t) BgL_sz00_2654), 0L);
				{	/* Eval/evaluate_comp.scm 896 */
					obj_t BgL_fz00_2657;
					obj_t BgL_a1z00_2658;
					obj_t BgL_a2z00_2659;
					obj_t BgL_a3z00_2660;

					BgL_fz00_2657 = BGL_PROCEDURE_CALL1(BgL_funz00_15710, BgL_sz00_2654);
					BgL_a1z00_2658 = BGL_PROCEDURE_CALL1(BgL_a1z00_15711, BgL_sz00_2654);
					BgL_a2z00_2659 = BGL_PROCEDURE_CALL1(BgL_a2z00_15712, BgL_sz00_2654);
					BgL_a3z00_2660 = BGL_PROCEDURE_CALL1(BgL_a3z00_15713, BgL_sz00_2654);
					if (PROCEDUREP(BgL_fz00_2657))
						{	/* Eval/evaluate_comp.scm 896 */
							BFALSE;
						}
					else
						{	/* Eval/evaluate_comp.scm 896 */
							BGl_evtypezd2errorzd2zz__everrorz00(BgL_locz00_15714,
								BGl_string4577z00zz__evaluate_compz00,
								BGl_string4593z00zz__evaluate_compz00, BgL_fz00_2657);
						}
					{	/* Eval/evaluate_comp.scm 896 */
						obj_t BgL_ufz00_2662;

						{	/* Eval/evaluate_comp.scm 896 */
							obj_t BgL_tmpz00_21331;

							BgL_tmpz00_21331 = ((obj_t) BgL_fz00_2657);
							BgL_ufz00_2662 = PROCEDURE_ATTR(BgL_tmpz00_21331);
						}
						{	/* Eval/evaluate_comp.scm 896 */
							bool_t BgL_test5153z00_21334;

							if (STRUCTP(BgL_ufz00_2662))
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test5153z00_21334 =
										(STRUCT_KEY(BgL_ufz00_2662) ==
										BGl_symbol4594z00zz__evaluate_compz00);
								}
							else
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test5153z00_21334 = ((bool_t) 0);
								}
							if (BgL_test5153z00_21334)
								{	/* Eval/evaluate_comp.scm 896 */
									obj_t BgL_arityz00_2664;
									obj_t BgL_runz00_2665;
									obj_t BgL_sfz00_2666;

									BgL_arityz00_2664 = STRUCT_REF(BgL_ufz00_2662, (int) (0L));
									BgL_runz00_2665 = STRUCT_REF(BgL_ufz00_2662, (int) (1L));
									BgL_sfz00_2666 = STRUCT_REF(BgL_ufz00_2662, (int) (2L));
									{	/* Eval/evaluate_comp.scm 896 */
										long BgL_spz00_2667;

										BgL_spz00_2667 =
											((long) CINT(BgL_bpz00_2656) + BgL_siza7eza7_15716);
										if (((long) CINT(BgL_arityz00_2664) == 3L))
											{	/* Eval/evaluate_comp.scm 896 */
												{	/* Eval/evaluate_comp.scm 896 */
													long BgL_arg2285z00_2669;

													BgL_arg2285z00_2669 = (BgL_spz00_2667 + 0L);
													VECTOR_SET(
														((obj_t) BgL_sz00_2654), BgL_arg2285z00_2669,
														BgL_a1z00_2658);
												}
												{	/* Eval/evaluate_comp.scm 896 */
													long BgL_arg2286z00_2670;

													BgL_arg2286z00_2670 = (BgL_spz00_2667 + 1L);
													VECTOR_SET(
														((obj_t) BgL_sz00_2654), BgL_arg2286z00_2670,
														BgL_a2z00_2659);
												}
												{	/* Eval/evaluate_comp.scm 896 */
													long BgL_arg2287z00_2671;

													BgL_arg2287z00_2671 = (BgL_spz00_2667 + 2L);
													VECTOR_SET(
														((obj_t) BgL_sz00_2654), BgL_arg2287z00_2671,
														BgL_a3z00_2660);
											}}
										else
											{	/* Eval/evaluate_comp.scm 896 */
												if (INTEGERP(BgL_arityz00_2664))
													{	/* Eval/evaluate_comp.scm 896 */
														switch ((long) CINT(BgL_arityz00_2664))
															{
															case (-1L):

																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2288z00_2674;
																	obj_t BgL_arg2289z00_2675;

																	BgL_arg2288z00_2674 = (BgL_spz00_2667 + 0L);
																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_list2290z00_2676;

																		{	/* Eval/evaluate_comp.scm 896 */
																			obj_t BgL_arg2292z00_2677;

																			{	/* Eval/evaluate_comp.scm 896 */
																				obj_t BgL_arg2294z00_2678;

																				BgL_arg2294z00_2678 =
																					MAKE_YOUNG_PAIR(BgL_a3z00_2660, BNIL);
																				BgL_arg2292z00_2677 =
																					MAKE_YOUNG_PAIR(BgL_a2z00_2659,
																					BgL_arg2294z00_2678);
																			}
																			BgL_list2290z00_2676 =
																				MAKE_YOUNG_PAIR(BgL_a1z00_2658,
																				BgL_arg2292z00_2677);
																		}
																		BgL_arg2289z00_2675 = BgL_list2290z00_2676;
																	}
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2654),
																		BgL_arg2288z00_2674, BgL_arg2289z00_2675);
																} break;
															case (-2L):

																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2295z00_2679;

																	BgL_arg2295z00_2679 = (BgL_spz00_2667 + 0L);
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2654),
																		BgL_arg2295z00_2679, BgL_a1z00_2658);
																}
																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2296z00_2680;
																	obj_t BgL_arg2297z00_2681;

																	BgL_arg2296z00_2680 = (BgL_spz00_2667 + 1L);
																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_list2298z00_2682;

																		{	/* Eval/evaluate_comp.scm 896 */
																			obj_t BgL_arg2299z00_2683;

																			BgL_arg2299z00_2683 =
																				MAKE_YOUNG_PAIR(BgL_a3z00_2660, BNIL);
																			BgL_list2298z00_2682 =
																				MAKE_YOUNG_PAIR(BgL_a2z00_2659,
																				BgL_arg2299z00_2683);
																		}
																		BgL_arg2297z00_2681 = BgL_list2298z00_2682;
																	}
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2654),
																		BgL_arg2296z00_2680, BgL_arg2297z00_2681);
																} break;
															case (-3L):

																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2300z00_2684;

																	BgL_arg2300z00_2684 = (BgL_spz00_2667 + 0L);
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2654),
																		BgL_arg2300z00_2684, BgL_a1z00_2658);
																}
																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2301z00_2685;

																	BgL_arg2301z00_2685 = (BgL_spz00_2667 + 1L);
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2654),
																		BgL_arg2301z00_2685, BgL_a2z00_2659);
																}
																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2302z00_2686;
																	obj_t BgL_arg2303z00_2687;

																	BgL_arg2302z00_2686 = (BgL_spz00_2667 + 2L);
																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_list2304z00_2688;

																		BgL_list2304z00_2688 =
																			MAKE_YOUNG_PAIR(BgL_a3z00_2660, BNIL);
																		BgL_arg2303z00_2687 = BgL_list2304z00_2688;
																	}
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2654),
																		BgL_arg2302z00_2686, BgL_arg2303z00_2687);
																} break;
															case (-4L):

																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2306z00_2689;

																	BgL_arg2306z00_2689 = (BgL_spz00_2667 + 0L);
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2654),
																		BgL_arg2306z00_2689, BgL_a1z00_2658);
																}
																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2307z00_2690;

																	BgL_arg2307z00_2690 = (BgL_spz00_2667 + 1L);
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2654),
																		BgL_arg2307z00_2690, BgL_a2z00_2659);
																}
																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2309z00_2691;

																	BgL_arg2309z00_2691 = (BgL_spz00_2667 + 2L);
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2654),
																		BgL_arg2309z00_2691, BgL_a3z00_2660);
																}
																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2310z00_2692;
																	obj_t BgL_arg2311z00_2693;

																	BgL_arg2310z00_2692 = (BgL_spz00_2667 + 3L);
																	BgL_arg2311z00_2693 = BNIL;
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2654),
																		BgL_arg2310z00_2692, BgL_arg2311z00_2693);
																} break;
															default:
																BGl_evarityzd2errorzd2zz__everrorz00
																	(BgL_locz00_15714, STRUCT_REF(BgL_ufz00_2662,
																		(int) (3L)), (int) (3L),
																	CINT(BgL_arityz00_2664));
													}}
												else
													{	/* Eval/evaluate_comp.scm 896 */
														BGl_evarityzd2errorzd2zz__everrorz00
															(BgL_locz00_15714, STRUCT_REF(BgL_ufz00_2662,
																(int) (3L)), (int) (3L),
															CINT(BgL_arityz00_2664));
											}}
										{	/* Eval/evaluate_comp.scm 896 */
											obj_t BgL_z12denvz12_2696;

											BgL_z12denvz12_2696 = BGL_CURRENT_DYNAMIC_ENV();
											BGL_ENV_SET_TRACE_LOCATION(BgL_z12denvz12_2696,
												BgL_locz00_15714);
											if (((BgL_spz00_2667 + (long) CINT(BgL_sfz00_2666)) <
													VECTOR_LENGTH(((obj_t) BgL_sz00_2654))))
												{	/* Eval/evaluate_comp.scm 896 */
													return
														BGl_catchzd2trampolinezd2zz__evaluate_compz00
														(BgL_runz00_2665, BgL_sz00_2654,
														BINT(BgL_spz00_2667));
												}
											else
												{	/* Eval/evaluate_comp.scm 896 */
													obj_t BgL_nsz00_2698;

													BgL_nsz00_2698 =
														BGl_makezd2statezd2zz__evaluate_compz00();
													{	/* Eval/evaluate_comp.scm 896 */
														long BgL_arg2316z00_2700;

														BgL_arg2316z00_2700 = (BgL_spz00_2667 + 3L);
														BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00
															(BgL_nsz00_2698, 2L, BgL_sz00_2654,
															BINT(BgL_spz00_2667), BINT(BgL_arg2316z00_2700));
													}
													VECTOR_SET(BgL_nsz00_2698, 1L, BgL_sz00_2654);
													BGL_ENV_EVSTATE_SET(BgL_z12denvz12_2696,
														BgL_nsz00_2698);
													{	/* Eval/evaluate_comp.scm 896 */
														obj_t BgL_ez00_2701;

														BgL_ez00_2701 = BGL_EXITD_TOP_AS_OBJ();
														{	/* Eval/evaluate_comp.scm 896 */
															obj_t BgL_arg4321z00_8486;

															{	/* Eval/evaluate_comp.scm 896 */
																obj_t BgL_arg4322z00_8487;

																BgL_arg4322z00_8487 =
																	BGL_EXITD_PROTECT(BgL_ez00_2701);
																BgL_arg4321z00_8486 =
																	MAKE_YOUNG_PAIR(BgL_sz00_2654,
																	BgL_arg4322z00_8487);
															}
															BGL_EXITD_PROTECT_SET(BgL_ez00_2701,
																BgL_arg4321z00_8486);
															BUNSPEC;
														}
														{	/* Eval/evaluate_comp.scm 896 */
															obj_t BgL_____rz00_2702;

															{	/* Eval/evaluate_comp.scm 670 */
																obj_t BgL_savedzd2bpzd2_8488;

																BgL_savedzd2bpzd2_8488 =
																	VECTOR_REF(BgL_nsz00_2698, 0L);
																VECTOR_SET(BgL_nsz00_2698, 0L, BINT(2L));
																{
																	obj_t BgL_fz00_8492;

																	BgL_fz00_8492 = BgL_runz00_2665;
																BgL_recz00_8491:
																	{	/* Eval/evaluate_comp.scm 673 */
																		obj_t BgL_rz00_8493;

																		BgL_rz00_8493 =
																			BGL_PROCEDURE_CALL1(BgL_fz00_8492,
																			BgL_nsz00_2698);
																		{	/* Eval/evaluate_comp.scm 674 */
																			bool_t BgL_test5158z00_21437;

																			if (PROCEDUREP(BgL_rz00_8493))
																				{	/* Eval/evaluate_comp.scm 674 */
																					obj_t BgL_arg1759z00_8496;

																					BgL_arg1759z00_8496 =
																						PROCEDURE_ATTR(BgL_rz00_8493);
																					if (STRUCTP(BgL_arg1759z00_8496))
																						{	/* Eval/evaluate_comp.scm 654 */
																							BgL_test5158z00_21437 =
																								(STRUCT_KEY(BgL_arg1759z00_8496)
																								==
																								BGl_symbol4573z00zz__evaluate_compz00);
																						}
																					else
																						{	/* Eval/evaluate_comp.scm 654 */
																							BgL_test5158z00_21437 =
																								((bool_t) 0);
																						}
																				}
																			else
																				{	/* Eval/evaluate_comp.scm 674 */
																					BgL_test5158z00_21437 = ((bool_t) 0);
																				}
																			if (BgL_test5158z00_21437)
																				{
																					obj_t BgL_fz00_21445;

																					BgL_fz00_21445 = BgL_rz00_8493;
																					BgL_fz00_8492 = BgL_fz00_21445;
																					goto BgL_recz00_8491;
																				}
																			else
																				{	/* Eval/evaluate_comp.scm 674 */
																					VECTOR_SET(BgL_nsz00_2698, 0L,
																						BgL_savedzd2bpzd2_8488);
																					BgL_____rz00_2702 = BgL_rz00_8493;
																				}
																		}
																	}
																}
															}
															{	/* Eval/evaluate_comp.scm 896 */
																bool_t BgL_test5161z00_21447;

																{	/* Eval/evaluate_comp.scm 896 */
																	obj_t BgL_arg4320z00_8504;

																	BgL_arg4320z00_8504 =
																		BGL_EXITD_PROTECT(BgL_ez00_2701);
																	BgL_test5161z00_21447 =
																		PAIRP(BgL_arg4320z00_8504);
																}
																if (BgL_test5161z00_21447)
																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_arg4318z00_8505;

																		{	/* Eval/evaluate_comp.scm 896 */
																			obj_t BgL_arg4319z00_8506;

																			BgL_arg4319z00_8506 =
																				BGL_EXITD_PROTECT(BgL_ez00_2701);
																			BgL_arg4318z00_8505 =
																				CDR(((obj_t) BgL_arg4319z00_8506));
																		}
																		BGL_EXITD_PROTECT_SET(BgL_ez00_2701,
																			BgL_arg4318z00_8505);
																		BUNSPEC;
																	}
																else
																	{	/* Eval/evaluate_comp.scm 896 */
																		BFALSE;
																	}
															}
															BGL_ENV_EVSTATE_SET(BgL_z12denvz12_2696,
																BgL_sz00_2654);
															return BgL_____rz00_2702;
														}
													}
												}
										}
									}
								}
							else
								{	/* Eval/evaluate_comp.scm 896 */
									if (PROCEDURE_CORRECT_ARITYP(BgL_fz00_2657, (int) (3L)))
										{	/* Eval/evaluate_comp.scm 896 */
											long BgL_nbpz00_2703;

											BgL_nbpz00_2703 =
												((long) CINT(BgL_bpz00_2656) + BgL_siza7eza7_15716);
											VECTOR_SET(
												((obj_t) BgL_sz00_2654), 0L, BINT(BgL_nbpz00_2703));
											{	/* Eval/evaluate_comp.scm 896 */
												obj_t BgL_tmpz00_21463;

												BgL_tmpz00_21463 = BGL_CURRENT_DYNAMIC_ENV();
												BGL_ENV_SET_TRACE_LOCATION(BgL_tmpz00_21463,
													BgL_locz00_15714);
											}
											{	/* Eval/evaluate_comp.scm 896 */
												obj_t BgL_rz00_2705;

												BgL_rz00_2705 =
													BGL_PROCEDURE_CALL3(BgL_fz00_2657, BgL_a1z00_2658,
													BgL_a2z00_2659, BgL_a3z00_2660);
												VECTOR_SET(((obj_t) BgL_sz00_2654), 0L, BgL_bpz00_2656);
												return BgL_rz00_2705;
											}
										}
									else
										{	/* Eval/evaluate_comp.scm 896 */
											return
												BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_15714,
												BgL_symbzd2funzd2_15715, (int) (3L),
												PROCEDURE_ARITY(BgL_fz00_2657));
		}}}}}}}

	}



/* &<@anonymous:2320> */
	obj_t BGl_z62zc3z04anonymousza32320ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13853, obj_t BgL_sz00_13861)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			return
				BGl_zc3z04anonymousza32320ze3ze70z60zz__evaluate_compz00(
				(long) CINT(PROCEDURE_REF(BgL_envz00_13853,
						(int) (6L))),
				PROCEDURE_REF(BgL_envz00_13853,
					(int) (5L)),
				PROCEDURE_REF(BgL_envz00_13853,
					(int) (4L)),
				PROCEDURE_REF(BgL_envz00_13853,
					(int) (3L)),
				PROCEDURE_REF(BgL_envz00_13853,
					(int) (2L)),
				PROCEDURE_REF(BgL_envz00_13853,
					(int) (1L)),
				PROCEDURE_REF(BgL_envz00_13853, (int) (0L)), BgL_sz00_13861);
		}

	}



/* <@anonymous:2320>~0 */
	obj_t BGl_zc3z04anonymousza32320ze3ze70z60zz__evaluate_compz00(long
		BgL_siza7eza7_15709, obj_t BgL_symbzd2funzd2_15708, obj_t BgL_locz00_15707,
		obj_t BgL_a3z00_15706, obj_t BgL_a2z00_15705, obj_t BgL_a1z00_15704,
		obj_t BgL_funz00_15703, obj_t BgL_sz00_2707)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			{	/* Eval/evaluate_comp.scm 896 */
				obj_t BgL_bpz00_2709;

				BgL_bpz00_2709 = VECTOR_REF(((obj_t) BgL_sz00_2707), 0L);
				{	/* Eval/evaluate_comp.scm 896 */
					obj_t BgL_fz00_2710;
					obj_t BgL_a1z00_2711;
					obj_t BgL_a2z00_2712;
					obj_t BgL_a3z00_2713;

					BgL_fz00_2710 = BGL_PROCEDURE_CALL1(BgL_funz00_15703, BgL_sz00_2707);
					BgL_a1z00_2711 = BGL_PROCEDURE_CALL1(BgL_a1z00_15704, BgL_sz00_2707);
					BgL_a2z00_2712 = BGL_PROCEDURE_CALL1(BgL_a2z00_15705, BgL_sz00_2707);
					BgL_a3z00_2713 = BGL_PROCEDURE_CALL1(BgL_a3z00_15706, BgL_sz00_2707);
					if (PROCEDUREP(BgL_fz00_2710))
						{	/* Eval/evaluate_comp.scm 896 */
							BFALSE;
						}
					else
						{	/* Eval/evaluate_comp.scm 896 */
							BGl_evtypezd2errorzd2zz__everrorz00(BgL_locz00_15707,
								BGl_string4577z00zz__evaluate_compz00,
								BGl_string4593z00zz__evaluate_compz00, BgL_fz00_2710);
						}
					{	/* Eval/evaluate_comp.scm 896 */
						obj_t BgL_ufz00_2715;

						{	/* Eval/evaluate_comp.scm 896 */
							obj_t BgL_tmpz00_21514;

							BgL_tmpz00_21514 = ((obj_t) BgL_fz00_2710);
							BgL_ufz00_2715 = PROCEDURE_ATTR(BgL_tmpz00_21514);
						}
						{	/* Eval/evaluate_comp.scm 896 */
							bool_t BgL_test5164z00_21517;

							if (STRUCTP(BgL_ufz00_2715))
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test5164z00_21517 =
										(STRUCT_KEY(BgL_ufz00_2715) ==
										BGl_symbol4594z00zz__evaluate_compz00);
								}
							else
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test5164z00_21517 = ((bool_t) 0);
								}
							if (BgL_test5164z00_21517)
								{	/* Eval/evaluate_comp.scm 896 */
									obj_t BgL_arityz00_2717;
									obj_t BgL_runz00_2718;
									obj_t BgL_sfz00_2719;

									BgL_arityz00_2717 = STRUCT_REF(BgL_ufz00_2715, (int) (0L));
									BgL_runz00_2718 = STRUCT_REF(BgL_ufz00_2715, (int) (1L));
									BgL_sfz00_2719 = STRUCT_REF(BgL_ufz00_2715, (int) (2L));
									{	/* Eval/evaluate_comp.scm 896 */
										long BgL_spz00_2720;

										BgL_spz00_2720 =
											((long) CINT(BgL_bpz00_2709) + BgL_siza7eza7_15709);
										if (((long) CINT(BgL_arityz00_2717) == 3L))
											{	/* Eval/evaluate_comp.scm 896 */
												{	/* Eval/evaluate_comp.scm 896 */
													long BgL_arg2324z00_2722;

													BgL_arg2324z00_2722 = (BgL_spz00_2720 + 0L);
													VECTOR_SET(
														((obj_t) BgL_sz00_2707), BgL_arg2324z00_2722,
														BgL_a1z00_2711);
												}
												{	/* Eval/evaluate_comp.scm 896 */
													long BgL_arg2325z00_2723;

													BgL_arg2325z00_2723 = (BgL_spz00_2720 + 1L);
													VECTOR_SET(
														((obj_t) BgL_sz00_2707), BgL_arg2325z00_2723,
														BgL_a2z00_2712);
												}
												{	/* Eval/evaluate_comp.scm 896 */
													long BgL_arg2326z00_2724;

													BgL_arg2326z00_2724 = (BgL_spz00_2720 + 2L);
													VECTOR_SET(
														((obj_t) BgL_sz00_2707), BgL_arg2326z00_2724,
														BgL_a3z00_2713);
											}}
										else
											{	/* Eval/evaluate_comp.scm 896 */
												if (INTEGERP(BgL_arityz00_2717))
													{	/* Eval/evaluate_comp.scm 896 */
														switch ((long) CINT(BgL_arityz00_2717))
															{
															case (-1L):

																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2328z00_2727;
																	obj_t BgL_arg2329z00_2728;

																	BgL_arg2328z00_2727 = (BgL_spz00_2720 + 0L);
																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_list2330z00_2729;

																		{	/* Eval/evaluate_comp.scm 896 */
																			obj_t BgL_arg2331z00_2730;

																			{	/* Eval/evaluate_comp.scm 896 */
																				obj_t BgL_arg2332z00_2731;

																				BgL_arg2332z00_2731 =
																					MAKE_YOUNG_PAIR(BgL_a3z00_2713, BNIL);
																				BgL_arg2331z00_2730 =
																					MAKE_YOUNG_PAIR(BgL_a2z00_2712,
																					BgL_arg2332z00_2731);
																			}
																			BgL_list2330z00_2729 =
																				MAKE_YOUNG_PAIR(BgL_a1z00_2711,
																				BgL_arg2331z00_2730);
																		}
																		BgL_arg2329z00_2728 = BgL_list2330z00_2729;
																	}
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2707),
																		BgL_arg2328z00_2727, BgL_arg2329z00_2728);
																} break;
															case (-2L):

																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2333z00_2732;

																	BgL_arg2333z00_2732 = (BgL_spz00_2720 + 0L);
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2707),
																		BgL_arg2333z00_2732, BgL_a1z00_2711);
																}
																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2335z00_2733;
																	obj_t BgL_arg2337z00_2734;

																	BgL_arg2335z00_2733 = (BgL_spz00_2720 + 1L);
																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_list2338z00_2735;

																		{	/* Eval/evaluate_comp.scm 896 */
																			obj_t BgL_arg2339z00_2736;

																			BgL_arg2339z00_2736 =
																				MAKE_YOUNG_PAIR(BgL_a3z00_2713, BNIL);
																			BgL_list2338z00_2735 =
																				MAKE_YOUNG_PAIR(BgL_a2z00_2712,
																				BgL_arg2339z00_2736);
																		}
																		BgL_arg2337z00_2734 = BgL_list2338z00_2735;
																	}
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2707),
																		BgL_arg2335z00_2733, BgL_arg2337z00_2734);
																} break;
															case (-3L):

																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2340z00_2737;

																	BgL_arg2340z00_2737 = (BgL_spz00_2720 + 0L);
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2707),
																		BgL_arg2340z00_2737, BgL_a1z00_2711);
																}
																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2343z00_2738;

																	BgL_arg2343z00_2738 = (BgL_spz00_2720 + 1L);
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2707),
																		BgL_arg2343z00_2738, BgL_a2z00_2712);
																}
																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2345z00_2739;
																	obj_t BgL_arg2346z00_2740;

																	BgL_arg2345z00_2739 = (BgL_spz00_2720 + 2L);
																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_list2347z00_2741;

																		BgL_list2347z00_2741 =
																			MAKE_YOUNG_PAIR(BgL_a3z00_2713, BNIL);
																		BgL_arg2346z00_2740 = BgL_list2347z00_2741;
																	}
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2707),
																		BgL_arg2345z00_2739, BgL_arg2346z00_2740);
																} break;
															case (-4L):

																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2349z00_2742;

																	BgL_arg2349z00_2742 = (BgL_spz00_2720 + 0L);
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2707),
																		BgL_arg2349z00_2742, BgL_a1z00_2711);
																}
																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2350z00_2743;

																	BgL_arg2350z00_2743 = (BgL_spz00_2720 + 1L);
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2707),
																		BgL_arg2350z00_2743, BgL_a2z00_2712);
																}
																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2351z00_2744;

																	BgL_arg2351z00_2744 = (BgL_spz00_2720 + 2L);
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2707),
																		BgL_arg2351z00_2744, BgL_a3z00_2713);
																}
																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2353z00_2745;
																	obj_t BgL_arg2354z00_2746;

																	BgL_arg2353z00_2745 = (BgL_spz00_2720 + 3L);
																	BgL_arg2354z00_2746 = BNIL;
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2707),
																		BgL_arg2353z00_2745, BgL_arg2354z00_2746);
																} break;
															default:
																BGl_evarityzd2errorzd2zz__everrorz00
																	(BgL_locz00_15707, STRUCT_REF(BgL_ufz00_2715,
																		(int) (3L)), (int) (3L),
																	CINT(BgL_arityz00_2717));
													}}
												else
													{	/* Eval/evaluate_comp.scm 896 */
														BGl_evarityzd2errorzd2zz__everrorz00
															(BgL_locz00_15707, STRUCT_REF(BgL_ufz00_2715,
																(int) (3L)), (int) (3L),
															CINT(BgL_arityz00_2717));
											}}
										{	/* Eval/evaluate_comp.scm 896 */
											obj_t BgL_z12denvz12_2749;

											BgL_z12denvz12_2749 = BGL_CURRENT_DYNAMIC_ENV();
											if (
												((BgL_spz00_2720 +
														(long) CINT(BgL_sfz00_2719)) <
													VECTOR_LENGTH(((obj_t) BgL_sz00_2707))))
												{	/* Eval/evaluate_comp.scm 896 */
													return
														BGl_catchzd2trampolinezd2zz__evaluate_compz00
														(BgL_runz00_2718, BgL_sz00_2707,
														BINT(BgL_spz00_2720));
												}
											else
												{	/* Eval/evaluate_comp.scm 896 */
													obj_t BgL_nsz00_2751;

													BgL_nsz00_2751 =
														BGl_makezd2statezd2zz__evaluate_compz00();
													{	/* Eval/evaluate_comp.scm 896 */
														long BgL_arg2358z00_2753;

														BgL_arg2358z00_2753 = (BgL_spz00_2720 + 3L);
														BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00
															(BgL_nsz00_2751, 2L, BgL_sz00_2707,
															BINT(BgL_spz00_2720), BINT(BgL_arg2358z00_2753));
													}
													VECTOR_SET(BgL_nsz00_2751, 1L, BgL_sz00_2707);
													BGL_ENV_EVSTATE_SET(BgL_z12denvz12_2749,
														BgL_nsz00_2751);
													{	/* Eval/evaluate_comp.scm 896 */
														obj_t BgL_ez00_2754;

														BgL_ez00_2754 = BGL_EXITD_TOP_AS_OBJ();
														{	/* Eval/evaluate_comp.scm 896 */
															obj_t BgL_arg4321z00_8582;

															{	/* Eval/evaluate_comp.scm 896 */
																obj_t BgL_arg4322z00_8583;

																BgL_arg4322z00_8583 =
																	BGL_EXITD_PROTECT(BgL_ez00_2754);
																BgL_arg4321z00_8582 =
																	MAKE_YOUNG_PAIR(BgL_sz00_2707,
																	BgL_arg4322z00_8583);
															}
															BGL_EXITD_PROTECT_SET(BgL_ez00_2754,
																BgL_arg4321z00_8582);
															BUNSPEC;
														}
														{	/* Eval/evaluate_comp.scm 896 */
															obj_t BgL_____rz00_2755;

															{	/* Eval/evaluate_comp.scm 670 */
																obj_t BgL_savedzd2bpzd2_8584;

																BgL_savedzd2bpzd2_8584 =
																	VECTOR_REF(BgL_nsz00_2751, 0L);
																VECTOR_SET(BgL_nsz00_2751, 0L, BINT(2L));
																{
																	obj_t BgL_fz00_8588;

																	BgL_fz00_8588 = BgL_runz00_2718;
																BgL_recz00_8587:
																	{	/* Eval/evaluate_comp.scm 673 */
																		obj_t BgL_rz00_8589;

																		BgL_rz00_8589 =
																			BGL_PROCEDURE_CALL1(BgL_fz00_8588,
																			BgL_nsz00_2751);
																		{	/* Eval/evaluate_comp.scm 674 */
																			bool_t BgL_test5169z00_21619;

																			if (PROCEDUREP(BgL_rz00_8589))
																				{	/* Eval/evaluate_comp.scm 674 */
																					obj_t BgL_arg1759z00_8592;

																					BgL_arg1759z00_8592 =
																						PROCEDURE_ATTR(BgL_rz00_8589);
																					if (STRUCTP(BgL_arg1759z00_8592))
																						{	/* Eval/evaluate_comp.scm 654 */
																							BgL_test5169z00_21619 =
																								(STRUCT_KEY(BgL_arg1759z00_8592)
																								==
																								BGl_symbol4573z00zz__evaluate_compz00);
																						}
																					else
																						{	/* Eval/evaluate_comp.scm 654 */
																							BgL_test5169z00_21619 =
																								((bool_t) 0);
																						}
																				}
																			else
																				{	/* Eval/evaluate_comp.scm 674 */
																					BgL_test5169z00_21619 = ((bool_t) 0);
																				}
																			if (BgL_test5169z00_21619)
																				{
																					obj_t BgL_fz00_21627;

																					BgL_fz00_21627 = BgL_rz00_8589;
																					BgL_fz00_8588 = BgL_fz00_21627;
																					goto BgL_recz00_8587;
																				}
																			else
																				{	/* Eval/evaluate_comp.scm 674 */
																					VECTOR_SET(BgL_nsz00_2751, 0L,
																						BgL_savedzd2bpzd2_8584);
																					BgL_____rz00_2755 = BgL_rz00_8589;
																				}
																		}
																	}
																}
															}
															{	/* Eval/evaluate_comp.scm 896 */
																bool_t BgL_test5172z00_21629;

																{	/* Eval/evaluate_comp.scm 896 */
																	obj_t BgL_arg4320z00_8600;

																	BgL_arg4320z00_8600 =
																		BGL_EXITD_PROTECT(BgL_ez00_2754);
																	BgL_test5172z00_21629 =
																		PAIRP(BgL_arg4320z00_8600);
																}
																if (BgL_test5172z00_21629)
																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_arg4318z00_8601;

																		{	/* Eval/evaluate_comp.scm 896 */
																			obj_t BgL_arg4319z00_8602;

																			BgL_arg4319z00_8602 =
																				BGL_EXITD_PROTECT(BgL_ez00_2754);
																			BgL_arg4318z00_8601 =
																				CDR(((obj_t) BgL_arg4319z00_8602));
																		}
																		BGL_EXITD_PROTECT_SET(BgL_ez00_2754,
																			BgL_arg4318z00_8601);
																		BUNSPEC;
																	}
																else
																	{	/* Eval/evaluate_comp.scm 896 */
																		BFALSE;
																	}
															}
															BGL_ENV_EVSTATE_SET(BgL_z12denvz12_2749,
																BgL_sz00_2707);
															return BgL_____rz00_2755;
														}
													}
												}
										}
									}
								}
							else
								{	/* Eval/evaluate_comp.scm 896 */
									if (PROCEDURE_CORRECT_ARITYP(BgL_fz00_2710, (int) (3L)))
										{	/* Eval/evaluate_comp.scm 896 */
											long BgL_nbpz00_2756;

											BgL_nbpz00_2756 =
												((long) CINT(BgL_bpz00_2709) + BgL_siza7eza7_15709);
											VECTOR_SET(
												((obj_t) BgL_sz00_2707), 0L, BINT(BgL_nbpz00_2756));
											{	/* Eval/evaluate_comp.scm 896 */
												obj_t BgL_rz00_2757;

												BgL_rz00_2757 =
													BGL_PROCEDURE_CALL3(BgL_fz00_2710, BgL_a1z00_2711,
													BgL_a2z00_2712, BgL_a3z00_2713);
												VECTOR_SET(((obj_t) BgL_sz00_2707), 0L, BgL_bpz00_2709);
												return BgL_rz00_2757;
											}
										}
									else
										{	/* Eval/evaluate_comp.scm 896 */
											return
												BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_15707,
												BgL_symbzd2funzd2_15708, (int) (3L),
												PROCEDURE_ARITY(BgL_fz00_2710));
		}}}}}}}

	}



/* comp-call4 */
	obj_t BGl_compzd2call4zd2zz__evaluate_compz00(obj_t BgL_locz00_172,
		BgL_ev_exprz00_bglt BgL_vfunz00_173, obj_t BgL_symbzd2funzd2_174,
		obj_t BgL_funz00_175, obj_t BgL_tailzf3zf3_176, obj_t BgL_stkz00_177,
		long BgL_siza7eza7_178, obj_t BgL_a1z00_179, obj_t BgL_a2z00_180,
		obj_t BgL_a3z00_181, obj_t BgL_a4z00_182)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			{	/* Eval/evaluate_comp.scm 896 */
				obj_t BgL_cfunz00_2760;

				BgL_cfunz00_2760 =
					BGl_iszd2constantzd2funzf3zf3zz__evaluate_compz00(BgL_vfunz00_173, 4L,
					BgL_locz00_172, BgL_symbzd2funzd2_174);
				if (CBOOL(BgL_cfunz00_2760))
					{	/* Eval/evaluate_comp.scm 896 */
						bool_t BgL_test5175z00_21659;

						{	/* Eval/evaluate_comp.scm 896 */
							int BgL_a1376z00_2782;

							BgL_a1376z00_2782 = bgl_debug();
							BgL_test5175z00_21659 = ((long) (BgL_a1376z00_2782) > 0L);
						}
						if (BgL_test5175z00_21659)
							{	/* Eval/evaluate_comp.scm 896 */
								obj_t BgL_zc3z04anonymousza32361ze3z87_13862;

								BgL_zc3z04anonymousza32361ze3z87_13862 =
									MAKE_FX_PROCEDURE
									(BGl_z62zc3z04anonymousza32361ze3ze5zz__evaluate_compz00,
									(int) (1L), (int) (7L));
								PROCEDURE_SET(BgL_zc3z04anonymousza32361ze3z87_13862,
									(int) (0L), BgL_a1z00_179);
								PROCEDURE_SET(BgL_zc3z04anonymousza32361ze3z87_13862,
									(int) (1L), BgL_a2z00_180);
								PROCEDURE_SET(BgL_zc3z04anonymousza32361ze3z87_13862,
									(int) (2L), BgL_a3z00_181);
								PROCEDURE_SET(BgL_zc3z04anonymousza32361ze3z87_13862,
									(int) (3L), BgL_a4z00_182);
								PROCEDURE_SET(BgL_zc3z04anonymousza32361ze3z87_13862,
									(int) (4L), BINT(BgL_siza7eza7_178));
								PROCEDURE_SET(BgL_zc3z04anonymousza32361ze3z87_13862,
									(int) (5L), BgL_locz00_172);
								PROCEDURE_SET(BgL_zc3z04anonymousza32361ze3z87_13862,
									(int) (6L), BgL_cfunz00_2760);
								return BgL_zc3z04anonymousza32361ze3z87_13862;
							}
						else
							{	/* Eval/evaluate_comp.scm 896 */
								obj_t BgL_zc3z04anonymousza32363ze3z87_13863;

								BgL_zc3z04anonymousza32363ze3z87_13863 =
									MAKE_FX_PROCEDURE
									(BGl_z62zc3z04anonymousza32363ze3ze5zz__evaluate_compz00,
									(int) (1L), (int) (6L));
								PROCEDURE_SET(BgL_zc3z04anonymousza32363ze3z87_13863,
									(int) (0L), BgL_a1z00_179);
								PROCEDURE_SET(BgL_zc3z04anonymousza32363ze3z87_13863,
									(int) (1L), BgL_a2z00_180);
								PROCEDURE_SET(BgL_zc3z04anonymousza32363ze3z87_13863,
									(int) (2L), BgL_a3z00_181);
								PROCEDURE_SET(BgL_zc3z04anonymousza32363ze3z87_13863,
									(int) (3L), BgL_a4z00_182);
								PROCEDURE_SET(BgL_zc3z04anonymousza32363ze3z87_13863,
									(int) (4L), BINT(BgL_siza7eza7_178));
								PROCEDURE_SET(BgL_zc3z04anonymousza32363ze3z87_13863,
									(int) (5L), BgL_cfunz00_2760);
								return BgL_zc3z04anonymousza32363ze3z87_13863;
							}
					}
				else
					{	/* Eval/evaluate_comp.scm 896 */
						if (CBOOL(BgL_tailzf3zf3_176))
							{	/* Eval/evaluate_comp.scm 896 */
								bool_t BgL_test5177z00_21699;

								{	/* Eval/evaluate_comp.scm 896 */
									int BgL_a1377z00_2914;

									BgL_a1377z00_2914 = bgl_debug();
									BgL_test5177z00_21699 = ((long) (BgL_a1377z00_2914) > 0L);
								}
								if (BgL_test5177z00_21699)
									{	/* Eval/evaluate_comp.scm 896 */
										obj_t BgL_zc3z04anonymousza32365ze3z87_13864;

										BgL_zc3z04anonymousza32365ze3z87_13864 =
											MAKE_FX_PROCEDURE
											(BGl_z62zc3z04anonymousza32365ze3ze5zz__evaluate_compz00,
											(int) (1L), (int) (8L));
										PROCEDURE_SET(BgL_zc3z04anonymousza32365ze3z87_13864,
											(int) (0L), BgL_funz00_175);
										PROCEDURE_SET(BgL_zc3z04anonymousza32365ze3z87_13864,
											(int) (1L), BgL_a1z00_179);
										PROCEDURE_SET(BgL_zc3z04anonymousza32365ze3z87_13864,
											(int) (2L), BgL_a2z00_180);
										PROCEDURE_SET(BgL_zc3z04anonymousza32365ze3z87_13864,
											(int) (3L), BgL_a3z00_181);
										PROCEDURE_SET(BgL_zc3z04anonymousza32365ze3z87_13864,
											(int) (4L), BgL_a4z00_182);
										PROCEDURE_SET(BgL_zc3z04anonymousza32365ze3z87_13864,
											(int) (5L), BgL_locz00_172);
										PROCEDURE_SET(BgL_zc3z04anonymousza32365ze3z87_13864,
											(int) (6L), BgL_symbzd2funzd2_174);
										PROCEDURE_SET(BgL_zc3z04anonymousza32365ze3z87_13864,
											(int) (7L), BINT(BgL_siza7eza7_178));
										return BgL_zc3z04anonymousza32365ze3z87_13864;
									}
								else
									{	/* Eval/evaluate_comp.scm 896 */
										obj_t BgL_zc3z04anonymousza32418ze3z87_13865;

										BgL_zc3z04anonymousza32418ze3z87_13865 =
											MAKE_FX_PROCEDURE
											(BGl_z62zc3z04anonymousza32418ze3ze5zz__evaluate_compz00,
											(int) (1L), (int) (8L));
										PROCEDURE_SET(BgL_zc3z04anonymousza32418ze3z87_13865,
											(int) (0L), BgL_funz00_175);
										PROCEDURE_SET(BgL_zc3z04anonymousza32418ze3z87_13865,
											(int) (1L), BgL_a1z00_179);
										PROCEDURE_SET(BgL_zc3z04anonymousza32418ze3z87_13865,
											(int) (2L), BgL_a2z00_180);
										PROCEDURE_SET(BgL_zc3z04anonymousza32418ze3z87_13865,
											(int) (3L), BgL_a3z00_181);
										PROCEDURE_SET(BgL_zc3z04anonymousza32418ze3z87_13865,
											(int) (4L), BgL_a4z00_182);
										PROCEDURE_SET(BgL_zc3z04anonymousza32418ze3z87_13865,
											(int) (5L), BgL_locz00_172);
										PROCEDURE_SET(BgL_zc3z04anonymousza32418ze3z87_13865,
											(int) (6L), BgL_symbzd2funzd2_174);
										PROCEDURE_SET(BgL_zc3z04anonymousza32418ze3z87_13865,
											(int) (7L), BINT(BgL_siza7eza7_178));
										return BgL_zc3z04anonymousza32418ze3z87_13865;
									}
							}
						else
							{	/* Eval/evaluate_comp.scm 896 */
								bool_t BgL_test5178z00_21743;

								{	/* Eval/evaluate_comp.scm 896 */
									int BgL_a1378z00_3046;

									BgL_a1378z00_3046 = bgl_debug();
									BgL_test5178z00_21743 = ((long) (BgL_a1378z00_3046) > 0L);
								}
								if (BgL_test5178z00_21743)
									{	/* Eval/evaluate_comp.scm 896 */
										obj_t BgL_zc3z04anonymousza32486ze3z87_13866;

										BgL_zc3z04anonymousza32486ze3z87_13866 =
											MAKE_FX_PROCEDURE
											(BGl_z62zc3z04anonymousza32486ze3ze5zz__evaluate_compz00,
											(int) (1L), (int) (8L));
										PROCEDURE_SET(BgL_zc3z04anonymousza32486ze3z87_13866,
											(int) (0L), BgL_funz00_175);
										PROCEDURE_SET(BgL_zc3z04anonymousza32486ze3z87_13866,
											(int) (1L), BgL_a1z00_179);
										PROCEDURE_SET(BgL_zc3z04anonymousza32486ze3z87_13866,
											(int) (2L), BgL_a2z00_180);
										PROCEDURE_SET(BgL_zc3z04anonymousza32486ze3z87_13866,
											(int) (3L), BgL_a3z00_181);
										PROCEDURE_SET(BgL_zc3z04anonymousza32486ze3z87_13866,
											(int) (4L), BgL_a4z00_182);
										PROCEDURE_SET(BgL_zc3z04anonymousza32486ze3z87_13866,
											(int) (5L), BgL_locz00_172);
										PROCEDURE_SET(BgL_zc3z04anonymousza32486ze3z87_13866,
											(int) (6L), BgL_symbzd2funzd2_174);
										PROCEDURE_SET(BgL_zc3z04anonymousza32486ze3z87_13866,
											(int) (7L), BINT(BgL_siza7eza7_178));
										return BgL_zc3z04anonymousza32486ze3z87_13866;
									}
								else
									{	/* Eval/evaluate_comp.scm 896 */
										obj_t BgL_zc3z04anonymousza32542ze3z87_13867;

										BgL_zc3z04anonymousza32542ze3z87_13867 =
											MAKE_FX_PROCEDURE
											(BGl_z62zc3z04anonymousza32542ze3ze5zz__evaluate_compz00,
											(int) (1L), (int) (8L));
										PROCEDURE_SET(BgL_zc3z04anonymousza32542ze3z87_13867,
											(int) (0L), BgL_funz00_175);
										PROCEDURE_SET(BgL_zc3z04anonymousza32542ze3z87_13867,
											(int) (1L), BgL_a1z00_179);
										PROCEDURE_SET(BgL_zc3z04anonymousza32542ze3z87_13867,
											(int) (2L), BgL_a2z00_180);
										PROCEDURE_SET(BgL_zc3z04anonymousza32542ze3z87_13867,
											(int) (3L), BgL_a3z00_181);
										PROCEDURE_SET(BgL_zc3z04anonymousza32542ze3z87_13867,
											(int) (4L), BgL_a4z00_182);
										PROCEDURE_SET(BgL_zc3z04anonymousza32542ze3z87_13867,
											(int) (5L), BgL_locz00_172);
										PROCEDURE_SET(BgL_zc3z04anonymousza32542ze3z87_13867,
											(int) (6L), BgL_symbzd2funzd2_174);
										PROCEDURE_SET(BgL_zc3z04anonymousza32542ze3z87_13867,
											(int) (7L), BINT(BgL_siza7eza7_178));
										return BgL_zc3z04anonymousza32542ze3z87_13867;
									}
							}
					}
			}
		}

	}



/* &<@anonymous:2361> */
	obj_t BGl_z62zc3z04anonymousza32361ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13868, obj_t BgL_sz00_13876)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			{	/* Eval/evaluate_comp.scm 896 */
				obj_t BgL_a1z00_13869;
				obj_t BgL_a2z00_13870;
				obj_t BgL_a3z00_13871;
				obj_t BgL_a4z00_13872;
				long BgL_siza7eza7_13873;
				obj_t BgL_locz00_13874;
				obj_t BgL_cfunz00_13875;

				BgL_a1z00_13869 = PROCEDURE_REF(BgL_envz00_13868, (int) (0L));
				BgL_a2z00_13870 = PROCEDURE_REF(BgL_envz00_13868, (int) (1L));
				BgL_a3z00_13871 = PROCEDURE_REF(BgL_envz00_13868, (int) (2L));
				BgL_a4z00_13872 = PROCEDURE_REF(BgL_envz00_13868, (int) (3L));
				BgL_siza7eza7_13873 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_13868, (int) (4L)));
				BgL_locz00_13874 = PROCEDURE_REF(BgL_envz00_13868, (int) (5L));
				BgL_cfunz00_13875 = PROCEDURE_REF(BgL_envz00_13868, (int) (6L));
				{	/* Eval/evaluate_comp.scm 896 */
					obj_t BgL_bpz00_15930;

					BgL_bpz00_15930 = VECTOR_REF(((obj_t) BgL_sz00_13876), 0L);
					{	/* Eval/evaluate_comp.scm 896 */
						obj_t BgL_a1z00_15931;
						obj_t BgL_a2z00_15932;
						obj_t BgL_a3z00_15933;
						obj_t BgL_a4z00_15934;

						BgL_a1z00_15931 =
							BGL_PROCEDURE_CALL1(BgL_a1z00_13869, BgL_sz00_13876);
						BgL_a2z00_15932 =
							BGL_PROCEDURE_CALL1(BgL_a2z00_13870, BgL_sz00_13876);
						BgL_a3z00_15933 =
							BGL_PROCEDURE_CALL1(BgL_a3z00_13871, BgL_sz00_13876);
						BgL_a4z00_15934 =
							BGL_PROCEDURE_CALL1(BgL_a4z00_13872, BgL_sz00_13876);
						{	/* Eval/evaluate_comp.scm 896 */
							long BgL_nbpz00_15935;

							BgL_nbpz00_15935 =
								((long) CINT(BgL_bpz00_15930) + BgL_siza7eza7_13873);
							VECTOR_SET(((obj_t) BgL_sz00_13876), 0L, BINT(BgL_nbpz00_15935));
							{	/* Eval/evaluate_comp.scm 896 */
								obj_t BgL_tmpz00_21825;

								BgL_tmpz00_21825 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_SET_TRACE_LOCATION(BgL_tmpz00_21825, BgL_locz00_13874);
							}
							{	/* Eval/evaluate_comp.scm 896 */
								obj_t BgL_rz00_15936;

								BgL_rz00_15936 =
									BGL_PROCEDURE_CALL4(BgL_cfunz00_13875, BgL_a1z00_15931,
									BgL_a2z00_15932, BgL_a3z00_15933, BgL_a4z00_15934);
								VECTOR_SET(((obj_t) BgL_sz00_13876), 0L, BgL_bpz00_15930);
								return BgL_rz00_15936;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:2363> */
	obj_t BGl_z62zc3z04anonymousza32363ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13877, obj_t BgL_sz00_13884)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			{	/* Eval/evaluate_comp.scm 896 */
				obj_t BgL_a1z00_13878;
				obj_t BgL_a2z00_13879;
				obj_t BgL_a3z00_13880;
				obj_t BgL_a4z00_13881;
				long BgL_siza7eza7_13882;
				obj_t BgL_cfunz00_13883;

				BgL_a1z00_13878 = PROCEDURE_REF(BgL_envz00_13877, (int) (0L));
				BgL_a2z00_13879 = PROCEDURE_REF(BgL_envz00_13877, (int) (1L));
				BgL_a3z00_13880 = PROCEDURE_REF(BgL_envz00_13877, (int) (2L));
				BgL_a4z00_13881 = PROCEDURE_REF(BgL_envz00_13877, (int) (3L));
				BgL_siza7eza7_13882 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_13877, (int) (4L)));
				BgL_cfunz00_13883 = PROCEDURE_REF(BgL_envz00_13877, (int) (5L));
				{	/* Eval/evaluate_comp.scm 896 */
					obj_t BgL_bpz00_15937;

					BgL_bpz00_15937 = VECTOR_REF(((obj_t) BgL_sz00_13884), 0L);
					{	/* Eval/evaluate_comp.scm 896 */
						obj_t BgL_a1z00_15938;
						obj_t BgL_a2z00_15939;
						obj_t BgL_a3z00_15940;
						obj_t BgL_a4z00_15941;

						BgL_a1z00_15938 =
							BGL_PROCEDURE_CALL1(BgL_a1z00_13878, BgL_sz00_13884);
						BgL_a2z00_15939 =
							BGL_PROCEDURE_CALL1(BgL_a2z00_13879, BgL_sz00_13884);
						BgL_a3z00_15940 =
							BGL_PROCEDURE_CALL1(BgL_a3z00_13880, BgL_sz00_13884);
						BgL_a4z00_15941 =
							BGL_PROCEDURE_CALL1(BgL_a4z00_13881, BgL_sz00_13884);
						{	/* Eval/evaluate_comp.scm 896 */
							long BgL_nbpz00_15942;

							BgL_nbpz00_15942 =
								((long) CINT(BgL_bpz00_15937) + BgL_siza7eza7_13882);
							VECTOR_SET(((obj_t) BgL_sz00_13884), 0L, BINT(BgL_nbpz00_15942));
							{	/* Eval/evaluate_comp.scm 896 */
								obj_t BgL_rz00_15943;

								BgL_rz00_15943 =
									BGL_PROCEDURE_CALL4(BgL_cfunz00_13883, BgL_a1z00_15938,
									BgL_a2z00_15939, BgL_a3z00_15940, BgL_a4z00_15941);
								VECTOR_SET(((obj_t) BgL_sz00_13884), 0L, BgL_bpz00_15937);
								return BgL_rz00_15943;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:2365> */
	obj_t BGl_z62zc3z04anonymousza32365ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13885, obj_t BgL_sz00_13894)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			return
				BGl_zc3z04anonymousza32365ze3ze70z60zz__evaluate_compz00(
				(long) CINT(PROCEDURE_REF(BgL_envz00_13885,
						(int) (7L))),
				PROCEDURE_REF(BgL_envz00_13885,
					(int) (6L)),
				PROCEDURE_REF(BgL_envz00_13885,
					(int) (5L)),
				PROCEDURE_REF(BgL_envz00_13885,
					(int) (4L)),
				PROCEDURE_REF(BgL_envz00_13885,
					(int) (3L)),
				PROCEDURE_REF(BgL_envz00_13885,
					(int) (2L)),
				PROCEDURE_REF(BgL_envz00_13885,
					(int) (1L)),
				PROCEDURE_REF(BgL_envz00_13885, (int) (0L)), BgL_sz00_13894);
		}

	}



/* <@anonymous:2365>~0 */
	obj_t BGl_zc3z04anonymousza32365ze3ze70z60zz__evaluate_compz00(long
		BgL_siza7eza7_15702, obj_t BgL_symbzd2funzd2_15701, obj_t BgL_locz00_15700,
		obj_t BgL_a4z00_15699, obj_t BgL_a3z00_15698, obj_t BgL_a2z00_15697,
		obj_t BgL_a1z00_15696, obj_t BgL_funz00_15695, obj_t BgL_sz00_2785)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			{	/* Eval/evaluate_comp.scm 896 */
				obj_t BgL_bpz00_2787;

				BgL_bpz00_2787 = VECTOR_REF(((obj_t) BgL_sz00_2785), 0L);
				{	/* Eval/evaluate_comp.scm 896 */
					obj_t BgL_fz00_2788;
					obj_t BgL_a1z00_2789;
					obj_t BgL_a2z00_2790;
					obj_t BgL_a3z00_2791;
					obj_t BgL_a4z00_2792;

					BgL_fz00_2788 = BGL_PROCEDURE_CALL1(BgL_funz00_15695, BgL_sz00_2785);
					BgL_a1z00_2789 = BGL_PROCEDURE_CALL1(BgL_a1z00_15696, BgL_sz00_2785);
					BgL_a2z00_2790 = BGL_PROCEDURE_CALL1(BgL_a2z00_15697, BgL_sz00_2785);
					BgL_a3z00_2791 = BGL_PROCEDURE_CALL1(BgL_a3z00_15698, BgL_sz00_2785);
					BgL_a4z00_2792 = BGL_PROCEDURE_CALL1(BgL_a4z00_15699, BgL_sz00_2785);
					if (PROCEDUREP(BgL_fz00_2788))
						{	/* Eval/evaluate_comp.scm 896 */
							BFALSE;
						}
					else
						{	/* Eval/evaluate_comp.scm 896 */
							BGl_evtypezd2errorzd2zz__everrorz00(BgL_locz00_15700,
								BGl_string4577z00zz__evaluate_compz00,
								BGl_string4593z00zz__evaluate_compz00, BgL_fz00_2788);
						}
					{	/* Eval/evaluate_comp.scm 896 */
						obj_t BgL_ufz00_2794;

						{	/* Eval/evaluate_comp.scm 896 */
							obj_t BgL_tmpz00_21925;

							BgL_tmpz00_21925 = ((obj_t) BgL_fz00_2788);
							BgL_ufz00_2794 = PROCEDURE_ATTR(BgL_tmpz00_21925);
						}
						{	/* Eval/evaluate_comp.scm 896 */
							bool_t BgL_test5180z00_21928;

							if (STRUCTP(BgL_ufz00_2794))
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test5180z00_21928 =
										(STRUCT_KEY(BgL_ufz00_2794) ==
										BGl_symbol4594z00zz__evaluate_compz00);
								}
							else
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test5180z00_21928 = ((bool_t) 0);
								}
							if (BgL_test5180z00_21928)
								{	/* Eval/evaluate_comp.scm 896 */
									obj_t BgL_arityz00_2796;
									obj_t BgL_runz00_2797;
									obj_t BgL_sfz00_2798;

									BgL_arityz00_2796 = STRUCT_REF(BgL_ufz00_2794, (int) (0L));
									BgL_runz00_2797 = STRUCT_REF(BgL_ufz00_2794, (int) (1L));
									BgL_sfz00_2798 = STRUCT_REF(BgL_ufz00_2794, (int) (2L));
									if (((long) CINT(BgL_arityz00_2796) == 4L))
										{	/* Eval/evaluate_comp.scm 896 */
											{	/* Eval/evaluate_comp.scm 896 */
												long BgL_arg2369z00_2801;

												BgL_arg2369z00_2801 =
													((long) CINT(BgL_bpz00_2787) + 0L);
												VECTOR_SET(
													((obj_t) BgL_sz00_2785), BgL_arg2369z00_2801,
													BgL_a1z00_2789);
											}
											{	/* Eval/evaluate_comp.scm 896 */
												long BgL_arg2370z00_2802;

												BgL_arg2370z00_2802 =
													((long) CINT(BgL_bpz00_2787) + 1L);
												VECTOR_SET(
													((obj_t) BgL_sz00_2785), BgL_arg2370z00_2802,
													BgL_a2z00_2790);
											}
											{	/* Eval/evaluate_comp.scm 896 */
												long BgL_arg2372z00_2803;

												BgL_arg2372z00_2803 =
													((long) CINT(BgL_bpz00_2787) + 2L);
												VECTOR_SET(
													((obj_t) BgL_sz00_2785), BgL_arg2372z00_2803,
													BgL_a3z00_2791);
											}
											{	/* Eval/evaluate_comp.scm 896 */
												long BgL_arg2373z00_2804;

												BgL_arg2373z00_2804 =
													((long) CINT(BgL_bpz00_2787) + 3L);
												VECTOR_SET(
													((obj_t) BgL_sz00_2785), BgL_arg2373z00_2804,
													BgL_a4z00_2792);
										}}
									else
										{	/* Eval/evaluate_comp.scm 896 */
											if (INTEGERP(BgL_arityz00_2796))
												{	/* Eval/evaluate_comp.scm 896 */
													switch ((long) CINT(BgL_arityz00_2796))
														{
														case (-1L):

															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2375z00_2807;
																obj_t BgL_arg2376z00_2808;

																BgL_arg2375z00_2807 =
																	((long) CINT(BgL_bpz00_2787) + 0L);
																{	/* Eval/evaluate_comp.scm 896 */
																	obj_t BgL_list2377z00_2809;

																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_arg2378z00_2810;

																		{	/* Eval/evaluate_comp.scm 896 */
																			obj_t BgL_arg2379z00_2811;

																			{	/* Eval/evaluate_comp.scm 896 */
																				obj_t BgL_arg2380z00_2812;

																				BgL_arg2380z00_2812 =
																					MAKE_YOUNG_PAIR(BgL_a4z00_2792, BNIL);
																				BgL_arg2379z00_2811 =
																					MAKE_YOUNG_PAIR(BgL_a3z00_2791,
																					BgL_arg2380z00_2812);
																			}
																			BgL_arg2378z00_2810 =
																				MAKE_YOUNG_PAIR(BgL_a2z00_2790,
																				BgL_arg2379z00_2811);
																		}
																		BgL_list2377z00_2809 =
																			MAKE_YOUNG_PAIR(BgL_a1z00_2789,
																			BgL_arg2378z00_2810);
																	}
																	BgL_arg2376z00_2808 = BgL_list2377z00_2809;
																}
																VECTOR_SET(
																	((obj_t) BgL_sz00_2785), BgL_arg2375z00_2807,
																	BgL_arg2376z00_2808);
															} break;
														case (-2L):

															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2381z00_2813;

																BgL_arg2381z00_2813 =
																	((long) CINT(BgL_bpz00_2787) + 0L);
																VECTOR_SET(
																	((obj_t) BgL_sz00_2785), BgL_arg2381z00_2813,
																	BgL_a1z00_2789);
															}
															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2382z00_2814;
																obj_t BgL_arg2384z00_2815;

																BgL_arg2382z00_2814 =
																	((long) CINT(BgL_bpz00_2787) + 1L);
																{	/* Eval/evaluate_comp.scm 896 */
																	obj_t BgL_list2385z00_2816;

																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_arg2387z00_2817;

																		{	/* Eval/evaluate_comp.scm 896 */
																			obj_t BgL_arg2388z00_2818;

																			BgL_arg2388z00_2818 =
																				MAKE_YOUNG_PAIR(BgL_a4z00_2792, BNIL);
																			BgL_arg2387z00_2817 =
																				MAKE_YOUNG_PAIR(BgL_a3z00_2791,
																				BgL_arg2388z00_2818);
																		}
																		BgL_list2385z00_2816 =
																			MAKE_YOUNG_PAIR(BgL_a2z00_2790,
																			BgL_arg2387z00_2817);
																	}
																	BgL_arg2384z00_2815 = BgL_list2385z00_2816;
																}
																VECTOR_SET(
																	((obj_t) BgL_sz00_2785), BgL_arg2382z00_2814,
																	BgL_arg2384z00_2815);
															} break;
														case (-3L):

															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2389z00_2819;

																BgL_arg2389z00_2819 =
																	((long) CINT(BgL_bpz00_2787) + 0L);
																VECTOR_SET(
																	((obj_t) BgL_sz00_2785), BgL_arg2389z00_2819,
																	BgL_a1z00_2789);
															}
															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2390z00_2820;

																BgL_arg2390z00_2820 =
																	((long) CINT(BgL_bpz00_2787) + 1L);
																VECTOR_SET(
																	((obj_t) BgL_sz00_2785), BgL_arg2390z00_2820,
																	BgL_a2z00_2790);
															}
															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2391z00_2821;
																obj_t BgL_arg2393z00_2822;

																BgL_arg2391z00_2821 =
																	((long) CINT(BgL_bpz00_2787) + 2L);
																{	/* Eval/evaluate_comp.scm 896 */
																	obj_t BgL_list2394z00_2823;

																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_arg2395z00_2824;

																		BgL_arg2395z00_2824 =
																			MAKE_YOUNG_PAIR(BgL_a4z00_2792, BNIL);
																		BgL_list2394z00_2823 =
																			MAKE_YOUNG_PAIR(BgL_a3z00_2791,
																			BgL_arg2395z00_2824);
																	}
																	BgL_arg2393z00_2822 = BgL_list2394z00_2823;
																}
																VECTOR_SET(
																	((obj_t) BgL_sz00_2785), BgL_arg2391z00_2821,
																	BgL_arg2393z00_2822);
															} break;
														case (-4L):

															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2396z00_2825;

																BgL_arg2396z00_2825 =
																	((long) CINT(BgL_bpz00_2787) + 0L);
																VECTOR_SET(
																	((obj_t) BgL_sz00_2785), BgL_arg2396z00_2825,
																	BgL_a1z00_2789);
															}
															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2397z00_2826;

																BgL_arg2397z00_2826 =
																	((long) CINT(BgL_bpz00_2787) + 1L);
																VECTOR_SET(
																	((obj_t) BgL_sz00_2785), BgL_arg2397z00_2826,
																	BgL_a2z00_2790);
															}
															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2398z00_2827;

																BgL_arg2398z00_2827 =
																	((long) CINT(BgL_bpz00_2787) + 2L);
																VECTOR_SET(
																	((obj_t) BgL_sz00_2785), BgL_arg2398z00_2827,
																	BgL_a3z00_2791);
															}
															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2399z00_2828;
																obj_t BgL_arg2400z00_2829;

																BgL_arg2399z00_2828 =
																	((long) CINT(BgL_bpz00_2787) + 3L);
																{	/* Eval/evaluate_comp.scm 896 */
																	obj_t BgL_list2401z00_2830;

																	BgL_list2401z00_2830 =
																		MAKE_YOUNG_PAIR(BgL_a4z00_2792, BNIL);
																	BgL_arg2400z00_2829 = BgL_list2401z00_2830;
																}
																VECTOR_SET(
																	((obj_t) BgL_sz00_2785), BgL_arg2399z00_2828,
																	BgL_arg2400z00_2829);
															} break;
														case (-5L):

															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2402z00_2831;

																BgL_arg2402z00_2831 =
																	((long) CINT(BgL_bpz00_2787) + 0L);
																VECTOR_SET(
																	((obj_t) BgL_sz00_2785), BgL_arg2402z00_2831,
																	BgL_a1z00_2789);
															}
															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2404z00_2832;

																BgL_arg2404z00_2832 =
																	((long) CINT(BgL_bpz00_2787) + 1L);
																VECTOR_SET(
																	((obj_t) BgL_sz00_2785), BgL_arg2404z00_2832,
																	BgL_a2z00_2790);
															}
															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2405z00_2833;

																BgL_arg2405z00_2833 =
																	((long) CINT(BgL_bpz00_2787) + 2L);
																VECTOR_SET(
																	((obj_t) BgL_sz00_2785), BgL_arg2405z00_2833,
																	BgL_a3z00_2791);
															}
															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2406z00_2834;

																BgL_arg2406z00_2834 =
																	((long) CINT(BgL_bpz00_2787) + 3L);
																VECTOR_SET(
																	((obj_t) BgL_sz00_2785), BgL_arg2406z00_2834,
																	BgL_a4z00_2792);
															}
															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2407z00_2835;
																obj_t BgL_arg2409z00_2836;

																BgL_arg2407z00_2835 =
																	((long) CINT(BgL_bpz00_2787) + 4L);
																BgL_arg2409z00_2836 = BNIL;
																VECTOR_SET(
																	((obj_t) BgL_sz00_2785), BgL_arg2407z00_2835,
																	BgL_arg2409z00_2836);
															} break;
														default:
															BGl_evarityzd2errorzd2zz__everrorz00
																(BgL_locz00_15700, STRUCT_REF(BgL_ufz00_2794,
																	(int) (3L)), (int) (4L),
																CINT(BgL_arityz00_2796));
												}}
											else
												{	/* Eval/evaluate_comp.scm 896 */
													BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_15700,
														STRUCT_REF(BgL_ufz00_2794,
															(int) (3L)), (int) (4L), CINT(BgL_arityz00_2796));
										}}
									{	/* Eval/evaluate_comp.scm 896 */
										obj_t BgL_z12denvz12_2839;

										BgL_z12denvz12_2839 = BGL_CURRENT_DYNAMIC_ENV();
										BGL_ENV_SET_TRACE_LOCATION(BgL_z12denvz12_2839,
											BgL_locz00_15700);
										if ((((long) CINT(BgL_bpz00_2787) +
													(long) CINT(BgL_sfz00_2798)) <
												VECTOR_LENGTH(((obj_t) BgL_sz00_2785))))
											{	/* Eval/evaluate_comp.scm 896 */
												return BgL_runz00_2797;
											}
										else
											{	/* Eval/evaluate_comp.scm 896 */
												obj_t BgL_nsz00_2841;

												BgL_nsz00_2841 =
													BGl_makezd2statezd2zz__evaluate_compz00();
												{	/* Eval/evaluate_comp.scm 896 */
													long BgL_arg2414z00_2843;

													BgL_arg2414z00_2843 =
														((long) CINT(BgL_bpz00_2787) + 4L);
													BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00
														(BgL_nsz00_2841, 2L, BgL_sz00_2785, BgL_bpz00_2787,
														BINT(BgL_arg2414z00_2843));
												}
												VECTOR_SET(BgL_nsz00_2841, 1L, BgL_sz00_2785);
												BGL_ENV_EVSTATE_SET(BgL_z12denvz12_2839,
													BgL_nsz00_2841);
												{	/* Eval/evaluate_comp.scm 896 */
													obj_t BgL_ez00_2844;

													BgL_ez00_2844 = BGL_EXITD_TOP_AS_OBJ();
													{	/* Eval/evaluate_comp.scm 896 */
														obj_t BgL_arg4321z00_8709;

														{	/* Eval/evaluate_comp.scm 896 */
															obj_t BgL_arg4322z00_8710;

															BgL_arg4322z00_8710 =
																BGL_EXITD_PROTECT(BgL_ez00_2844);
															BgL_arg4321z00_8709 =
																MAKE_YOUNG_PAIR(BgL_sz00_2785,
																BgL_arg4322z00_8710);
														}
														BGL_EXITD_PROTECT_SET(BgL_ez00_2844,
															BgL_arg4321z00_8709);
														BUNSPEC;
													}
													{	/* Eval/evaluate_comp.scm 896 */
														obj_t BgL_____rz00_2845;

														{	/* Eval/evaluate_comp.scm 670 */
															obj_t BgL_savedzd2bpzd2_8711;

															BgL_savedzd2bpzd2_8711 =
																VECTOR_REF(BgL_nsz00_2841, 0L);
															VECTOR_SET(BgL_nsz00_2841, 0L, BINT(2L));
															{
																obj_t BgL_fz00_8715;

																BgL_fz00_8715 = BgL_runz00_2797;
															BgL_recz00_8714:
																{	/* Eval/evaluate_comp.scm 673 */
																	obj_t BgL_rz00_8716;

																	BgL_rz00_8716 =
																		BGL_PROCEDURE_CALL1(BgL_fz00_8715,
																		BgL_nsz00_2841);
																	{	/* Eval/evaluate_comp.scm 674 */
																		bool_t BgL_test5185z00_22069;

																		if (PROCEDUREP(BgL_rz00_8716))
																			{	/* Eval/evaluate_comp.scm 674 */
																				obj_t BgL_arg1759z00_8719;

																				BgL_arg1759z00_8719 =
																					PROCEDURE_ATTR(BgL_rz00_8716);
																				if (STRUCTP(BgL_arg1759z00_8719))
																					{	/* Eval/evaluate_comp.scm 654 */
																						BgL_test5185z00_22069 =
																							(STRUCT_KEY(BgL_arg1759z00_8719)
																							==
																							BGl_symbol4573z00zz__evaluate_compz00);
																					}
																				else
																					{	/* Eval/evaluate_comp.scm 654 */
																						BgL_test5185z00_22069 =
																							((bool_t) 0);
																					}
																			}
																		else
																			{	/* Eval/evaluate_comp.scm 674 */
																				BgL_test5185z00_22069 = ((bool_t) 0);
																			}
																		if (BgL_test5185z00_22069)
																			{
																				obj_t BgL_fz00_22077;

																				BgL_fz00_22077 = BgL_rz00_8716;
																				BgL_fz00_8715 = BgL_fz00_22077;
																				goto BgL_recz00_8714;
																			}
																		else
																			{	/* Eval/evaluate_comp.scm 674 */
																				VECTOR_SET(BgL_nsz00_2841, 0L,
																					BgL_savedzd2bpzd2_8711);
																				BgL_____rz00_2845 = BgL_rz00_8716;
																			}
																	}
																}
															}
														}
														{	/* Eval/evaluate_comp.scm 896 */
															bool_t BgL_test5188z00_22079;

															{	/* Eval/evaluate_comp.scm 896 */
																obj_t BgL_arg4320z00_8727;

																BgL_arg4320z00_8727 =
																	BGL_EXITD_PROTECT(BgL_ez00_2844);
																BgL_test5188z00_22079 =
																	PAIRP(BgL_arg4320z00_8727);
															}
															if (BgL_test5188z00_22079)
																{	/* Eval/evaluate_comp.scm 896 */
																	obj_t BgL_arg4318z00_8728;

																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_arg4319z00_8729;

																		BgL_arg4319z00_8729 =
																			BGL_EXITD_PROTECT(BgL_ez00_2844);
																		BgL_arg4318z00_8728 =
																			CDR(((obj_t) BgL_arg4319z00_8729));
																	}
																	BGL_EXITD_PROTECT_SET(BgL_ez00_2844,
																		BgL_arg4318z00_8728);
																	BUNSPEC;
																}
															else
																{	/* Eval/evaluate_comp.scm 896 */
																	BFALSE;
																}
														}
														BGL_ENV_EVSTATE_SET(BgL_z12denvz12_2839,
															BgL_sz00_2785);
														return BgL_____rz00_2845;
													}
												}
											}
									}
								}
							else
								{	/* Eval/evaluate_comp.scm 896 */
									if (PROCEDURE_CORRECT_ARITYP(BgL_fz00_2788, (int) (4L)))
										{	/* Eval/evaluate_comp.scm 896 */
											long BgL_nbpz00_2846;

											BgL_nbpz00_2846 =
												((long) CINT(BgL_bpz00_2787) + BgL_siza7eza7_15702);
											VECTOR_SET(
												((obj_t) BgL_sz00_2785), 0L, BINT(BgL_nbpz00_2846));
											{	/* Eval/evaluate_comp.scm 896 */
												obj_t BgL_tmpz00_22095;

												BgL_tmpz00_22095 = BGL_CURRENT_DYNAMIC_ENV();
												BGL_ENV_SET_TRACE_LOCATION(BgL_tmpz00_22095,
													BgL_locz00_15700);
											}
											{	/* Eval/evaluate_comp.scm 896 */
												obj_t BgL_rz00_2848;

												BgL_rz00_2848 =
													BGL_PROCEDURE_CALL4(BgL_fz00_2788, BgL_a1z00_2789,
													BgL_a2z00_2790, BgL_a3z00_2791, BgL_a4z00_2792);
												VECTOR_SET(((obj_t) BgL_sz00_2785), 0L, BgL_bpz00_2787);
												return BgL_rz00_2848;
											}
										}
									else
										{	/* Eval/evaluate_comp.scm 896 */
											return
												BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_15700,
												BgL_symbzd2funzd2_15701, (int) (4L),
												PROCEDURE_ARITY(BgL_fz00_2788));
		}}}}}}}

	}



/* &<@anonymous:2418> */
	obj_t BGl_z62zc3z04anonymousza32418ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13895, obj_t BgL_sz00_13904)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			return
				BGl_zc3z04anonymousza32418ze3ze70z60zz__evaluate_compz00(
				(long) CINT(PROCEDURE_REF(BgL_envz00_13895,
						(int) (7L))),
				PROCEDURE_REF(BgL_envz00_13895,
					(int) (6L)),
				PROCEDURE_REF(BgL_envz00_13895,
					(int) (5L)),
				PROCEDURE_REF(BgL_envz00_13895,
					(int) (4L)),
				PROCEDURE_REF(BgL_envz00_13895,
					(int) (3L)),
				PROCEDURE_REF(BgL_envz00_13895,
					(int) (2L)),
				PROCEDURE_REF(BgL_envz00_13895,
					(int) (1L)),
				PROCEDURE_REF(BgL_envz00_13895, (int) (0L)), BgL_sz00_13904);
		}

	}



/* <@anonymous:2418>~0 */
	obj_t BGl_zc3z04anonymousza32418ze3ze70z60zz__evaluate_compz00(long
		BgL_siza7eza7_15694, obj_t BgL_symbzd2funzd2_15693, obj_t BgL_locz00_15692,
		obj_t BgL_a4z00_15691, obj_t BgL_a3z00_15690, obj_t BgL_a2z00_15689,
		obj_t BgL_a1z00_15688, obj_t BgL_funz00_15687, obj_t BgL_sz00_2850)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			{	/* Eval/evaluate_comp.scm 896 */
				obj_t BgL_bpz00_2852;

				BgL_bpz00_2852 = VECTOR_REF(((obj_t) BgL_sz00_2850), 0L);
				{	/* Eval/evaluate_comp.scm 896 */
					obj_t BgL_fz00_2853;
					obj_t BgL_a1z00_2854;
					obj_t BgL_a2z00_2855;
					obj_t BgL_a3z00_2856;
					obj_t BgL_a4z00_2857;

					BgL_fz00_2853 = BGL_PROCEDURE_CALL1(BgL_funz00_15687, BgL_sz00_2850);
					BgL_a1z00_2854 = BGL_PROCEDURE_CALL1(BgL_a1z00_15688, BgL_sz00_2850);
					BgL_a2z00_2855 = BGL_PROCEDURE_CALL1(BgL_a2z00_15689, BgL_sz00_2850);
					BgL_a3z00_2856 = BGL_PROCEDURE_CALL1(BgL_a3z00_15690, BgL_sz00_2850);
					BgL_a4z00_2857 = BGL_PROCEDURE_CALL1(BgL_a4z00_15691, BgL_sz00_2850);
					if (PROCEDUREP(BgL_fz00_2853))
						{	/* Eval/evaluate_comp.scm 896 */
							BFALSE;
						}
					else
						{	/* Eval/evaluate_comp.scm 896 */
							BGl_evtypezd2errorzd2zz__everrorz00(BgL_locz00_15692,
								BGl_string4577z00zz__evaluate_compz00,
								BGl_string4593z00zz__evaluate_compz00, BgL_fz00_2853);
						}
					{	/* Eval/evaluate_comp.scm 896 */
						obj_t BgL_ufz00_2859;

						{	/* Eval/evaluate_comp.scm 896 */
							obj_t BgL_tmpz00_22153;

							BgL_tmpz00_22153 = ((obj_t) BgL_fz00_2853);
							BgL_ufz00_2859 = PROCEDURE_ATTR(BgL_tmpz00_22153);
						}
						{	/* Eval/evaluate_comp.scm 896 */
							bool_t BgL_test5191z00_22156;

							if (STRUCTP(BgL_ufz00_2859))
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test5191z00_22156 =
										(STRUCT_KEY(BgL_ufz00_2859) ==
										BGl_symbol4594z00zz__evaluate_compz00);
								}
							else
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test5191z00_22156 = ((bool_t) 0);
								}
							if (BgL_test5191z00_22156)
								{	/* Eval/evaluate_comp.scm 896 */
									obj_t BgL_arityz00_2861;
									obj_t BgL_runz00_2862;
									obj_t BgL_sfz00_2863;

									BgL_arityz00_2861 = STRUCT_REF(BgL_ufz00_2859, (int) (0L));
									BgL_runz00_2862 = STRUCT_REF(BgL_ufz00_2859, (int) (1L));
									BgL_sfz00_2863 = STRUCT_REF(BgL_ufz00_2859, (int) (2L));
									if (((long) CINT(BgL_arityz00_2861) == 4L))
										{	/* Eval/evaluate_comp.scm 896 */
											{	/* Eval/evaluate_comp.scm 896 */
												long BgL_arg2424z00_2866;

												BgL_arg2424z00_2866 =
													((long) CINT(BgL_bpz00_2852) + 0L);
												VECTOR_SET(
													((obj_t) BgL_sz00_2850), BgL_arg2424z00_2866,
													BgL_a1z00_2854);
											}
											{	/* Eval/evaluate_comp.scm 896 */
												long BgL_arg2427z00_2867;

												BgL_arg2427z00_2867 =
													((long) CINT(BgL_bpz00_2852) + 1L);
												VECTOR_SET(
													((obj_t) BgL_sz00_2850), BgL_arg2427z00_2867,
													BgL_a2z00_2855);
											}
											{	/* Eval/evaluate_comp.scm 896 */
												long BgL_arg2429z00_2868;

												BgL_arg2429z00_2868 =
													((long) CINT(BgL_bpz00_2852) + 2L);
												VECTOR_SET(
													((obj_t) BgL_sz00_2850), BgL_arg2429z00_2868,
													BgL_a3z00_2856);
											}
											{	/* Eval/evaluate_comp.scm 896 */
												long BgL_arg2430z00_2869;

												BgL_arg2430z00_2869 =
													((long) CINT(BgL_bpz00_2852) + 3L);
												VECTOR_SET(
													((obj_t) BgL_sz00_2850), BgL_arg2430z00_2869,
													BgL_a4z00_2857);
										}}
									else
										{	/* Eval/evaluate_comp.scm 896 */
											if (INTEGERP(BgL_arityz00_2861))
												{	/* Eval/evaluate_comp.scm 896 */
													switch ((long) CINT(BgL_arityz00_2861))
														{
														case (-1L):

															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2433z00_2872;
																obj_t BgL_arg2436z00_2873;

																BgL_arg2433z00_2872 =
																	((long) CINT(BgL_bpz00_2852) + 0L);
																{	/* Eval/evaluate_comp.scm 896 */
																	obj_t BgL_list2437z00_2874;

																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_arg2440z00_2875;

																		{	/* Eval/evaluate_comp.scm 896 */
																			obj_t BgL_arg2441z00_2876;

																			{	/* Eval/evaluate_comp.scm 896 */
																				obj_t BgL_arg2442z00_2877;

																				BgL_arg2442z00_2877 =
																					MAKE_YOUNG_PAIR(BgL_a4z00_2857, BNIL);
																				BgL_arg2441z00_2876 =
																					MAKE_YOUNG_PAIR(BgL_a3z00_2856,
																					BgL_arg2442z00_2877);
																			}
																			BgL_arg2440z00_2875 =
																				MAKE_YOUNG_PAIR(BgL_a2z00_2855,
																				BgL_arg2441z00_2876);
																		}
																		BgL_list2437z00_2874 =
																			MAKE_YOUNG_PAIR(BgL_a1z00_2854,
																			BgL_arg2440z00_2875);
																	}
																	BgL_arg2436z00_2873 = BgL_list2437z00_2874;
																}
																VECTOR_SET(
																	((obj_t) BgL_sz00_2850), BgL_arg2433z00_2872,
																	BgL_arg2436z00_2873);
															} break;
														case (-2L):

															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2445z00_2878;

																BgL_arg2445z00_2878 =
																	((long) CINT(BgL_bpz00_2852) + 0L);
																VECTOR_SET(
																	((obj_t) BgL_sz00_2850), BgL_arg2445z00_2878,
																	BgL_a1z00_2854);
															}
															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2446z00_2879;
																obj_t BgL_arg2451z00_2880;

																BgL_arg2446z00_2879 =
																	((long) CINT(BgL_bpz00_2852) + 1L);
																{	/* Eval/evaluate_comp.scm 896 */
																	obj_t BgL_list2452z00_2881;

																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_arg2453z00_2882;

																		{	/* Eval/evaluate_comp.scm 896 */
																			obj_t BgL_arg2454z00_2883;

																			BgL_arg2454z00_2883 =
																				MAKE_YOUNG_PAIR(BgL_a4z00_2857, BNIL);
																			BgL_arg2453z00_2882 =
																				MAKE_YOUNG_PAIR(BgL_a3z00_2856,
																				BgL_arg2454z00_2883);
																		}
																		BgL_list2452z00_2881 =
																			MAKE_YOUNG_PAIR(BgL_a2z00_2855,
																			BgL_arg2453z00_2882);
																	}
																	BgL_arg2451z00_2880 = BgL_list2452z00_2881;
																}
																VECTOR_SET(
																	((obj_t) BgL_sz00_2850), BgL_arg2446z00_2879,
																	BgL_arg2451z00_2880);
															} break;
														case (-3L):

															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2455z00_2884;

																BgL_arg2455z00_2884 =
																	((long) CINT(BgL_bpz00_2852) + 0L);
																VECTOR_SET(
																	((obj_t) BgL_sz00_2850), BgL_arg2455z00_2884,
																	BgL_a1z00_2854);
															}
															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2456z00_2885;

																BgL_arg2456z00_2885 =
																	((long) CINT(BgL_bpz00_2852) + 1L);
																VECTOR_SET(
																	((obj_t) BgL_sz00_2850), BgL_arg2456z00_2885,
																	BgL_a2z00_2855);
															}
															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2457z00_2886;
																obj_t BgL_arg2458z00_2887;

																BgL_arg2457z00_2886 =
																	((long) CINT(BgL_bpz00_2852) + 2L);
																{	/* Eval/evaluate_comp.scm 896 */
																	obj_t BgL_list2459z00_2888;

																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_arg2460z00_2889;

																		BgL_arg2460z00_2889 =
																			MAKE_YOUNG_PAIR(BgL_a4z00_2857, BNIL);
																		BgL_list2459z00_2888 =
																			MAKE_YOUNG_PAIR(BgL_a3z00_2856,
																			BgL_arg2460z00_2889);
																	}
																	BgL_arg2458z00_2887 = BgL_list2459z00_2888;
																}
																VECTOR_SET(
																	((obj_t) BgL_sz00_2850), BgL_arg2457z00_2886,
																	BgL_arg2458z00_2887);
															} break;
														case (-4L):

															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2461z00_2890;

																BgL_arg2461z00_2890 =
																	((long) CINT(BgL_bpz00_2852) + 0L);
																VECTOR_SET(
																	((obj_t) BgL_sz00_2850), BgL_arg2461z00_2890,
																	BgL_a1z00_2854);
															}
															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2462z00_2891;

																BgL_arg2462z00_2891 =
																	((long) CINT(BgL_bpz00_2852) + 1L);
																VECTOR_SET(
																	((obj_t) BgL_sz00_2850), BgL_arg2462z00_2891,
																	BgL_a2z00_2855);
															}
															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2463z00_2892;

																BgL_arg2463z00_2892 =
																	((long) CINT(BgL_bpz00_2852) + 2L);
																VECTOR_SET(
																	((obj_t) BgL_sz00_2850), BgL_arg2463z00_2892,
																	BgL_a3z00_2856);
															}
															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2465z00_2893;
																obj_t BgL_arg2470z00_2894;

																BgL_arg2465z00_2893 =
																	((long) CINT(BgL_bpz00_2852) + 3L);
																{	/* Eval/evaluate_comp.scm 896 */
																	obj_t BgL_list2471z00_2895;

																	BgL_list2471z00_2895 =
																		MAKE_YOUNG_PAIR(BgL_a4z00_2857, BNIL);
																	BgL_arg2470z00_2894 = BgL_list2471z00_2895;
																}
																VECTOR_SET(
																	((obj_t) BgL_sz00_2850), BgL_arg2465z00_2893,
																	BgL_arg2470z00_2894);
															} break;
														case (-5L):

															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2472z00_2896;

																BgL_arg2472z00_2896 =
																	((long) CINT(BgL_bpz00_2852) + 0L);
																VECTOR_SET(
																	((obj_t) BgL_sz00_2850), BgL_arg2472z00_2896,
																	BgL_a1z00_2854);
															}
															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2473z00_2897;

																BgL_arg2473z00_2897 =
																	((long) CINT(BgL_bpz00_2852) + 1L);
																VECTOR_SET(
																	((obj_t) BgL_sz00_2850), BgL_arg2473z00_2897,
																	BgL_a2z00_2855);
															}
															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2474z00_2898;

																BgL_arg2474z00_2898 =
																	((long) CINT(BgL_bpz00_2852) + 2L);
																VECTOR_SET(
																	((obj_t) BgL_sz00_2850), BgL_arg2474z00_2898,
																	BgL_a3z00_2856);
															}
															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2475z00_2899;

																BgL_arg2475z00_2899 =
																	((long) CINT(BgL_bpz00_2852) + 3L);
																VECTOR_SET(
																	((obj_t) BgL_sz00_2850), BgL_arg2475z00_2899,
																	BgL_a4z00_2857);
															}
															{	/* Eval/evaluate_comp.scm 896 */
																long BgL_arg2477z00_2900;
																obj_t BgL_arg2478z00_2901;

																BgL_arg2477z00_2900 =
																	((long) CINT(BgL_bpz00_2852) + 4L);
																BgL_arg2478z00_2901 = BNIL;
																VECTOR_SET(
																	((obj_t) BgL_sz00_2850), BgL_arg2477z00_2900,
																	BgL_arg2478z00_2901);
															} break;
														default:
															BGl_evarityzd2errorzd2zz__everrorz00
																(BgL_locz00_15692, STRUCT_REF(BgL_ufz00_2859,
																	(int) (3L)), (int) (4L),
																CINT(BgL_arityz00_2861));
												}}
											else
												{	/* Eval/evaluate_comp.scm 896 */
													BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_15692,
														STRUCT_REF(BgL_ufz00_2859,
															(int) (3L)), (int) (4L), CINT(BgL_arityz00_2861));
										}}
									{	/* Eval/evaluate_comp.scm 896 */
										obj_t BgL_z12denvz12_2904;

										BgL_z12denvz12_2904 = BGL_CURRENT_DYNAMIC_ENV();
										if (
											(((long) CINT(BgL_bpz00_2852) +
													(long) CINT(BgL_sfz00_2863)) <
												VECTOR_LENGTH(((obj_t) BgL_sz00_2850))))
											{	/* Eval/evaluate_comp.scm 896 */
												return BgL_runz00_2862;
											}
										else
											{	/* Eval/evaluate_comp.scm 896 */
												obj_t BgL_nsz00_2906;

												BgL_nsz00_2906 =
													BGl_makezd2statezd2zz__evaluate_compz00();
												{	/* Eval/evaluate_comp.scm 896 */
													long BgL_arg2483z00_2908;

													BgL_arg2483z00_2908 =
														((long) CINT(BgL_bpz00_2852) + 4L);
													BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00
														(BgL_nsz00_2906, 2L, BgL_sz00_2850, BgL_bpz00_2852,
														BINT(BgL_arg2483z00_2908));
												}
												VECTOR_SET(BgL_nsz00_2906, 1L, BgL_sz00_2850);
												BGL_ENV_EVSTATE_SET(BgL_z12denvz12_2904,
													BgL_nsz00_2906);
												{	/* Eval/evaluate_comp.scm 896 */
													obj_t BgL_ez00_2909;

													BgL_ez00_2909 = BGL_EXITD_TOP_AS_OBJ();
													{	/* Eval/evaluate_comp.scm 896 */
														obj_t BgL_arg4321z00_8824;

														{	/* Eval/evaluate_comp.scm 896 */
															obj_t BgL_arg4322z00_8825;

															BgL_arg4322z00_8825 =
																BGL_EXITD_PROTECT(BgL_ez00_2909);
															BgL_arg4321z00_8824 =
																MAKE_YOUNG_PAIR(BgL_sz00_2850,
																BgL_arg4322z00_8825);
														}
														BGL_EXITD_PROTECT_SET(BgL_ez00_2909,
															BgL_arg4321z00_8824);
														BUNSPEC;
													}
													{	/* Eval/evaluate_comp.scm 896 */
														obj_t BgL_____rz00_2910;

														{	/* Eval/evaluate_comp.scm 670 */
															obj_t BgL_savedzd2bpzd2_8826;

															BgL_savedzd2bpzd2_8826 =
																VECTOR_REF(BgL_nsz00_2906, 0L);
															VECTOR_SET(BgL_nsz00_2906, 0L, BINT(2L));
															{
																obj_t BgL_fz00_8830;

																BgL_fz00_8830 = BgL_runz00_2862;
															BgL_recz00_8829:
																{	/* Eval/evaluate_comp.scm 673 */
																	obj_t BgL_rz00_8831;

																	BgL_rz00_8831 =
																		BGL_PROCEDURE_CALL1(BgL_fz00_8830,
																		BgL_nsz00_2906);
																	{	/* Eval/evaluate_comp.scm 674 */
																		bool_t BgL_test5196z00_22296;

																		if (PROCEDUREP(BgL_rz00_8831))
																			{	/* Eval/evaluate_comp.scm 674 */
																				obj_t BgL_arg1759z00_8834;

																				BgL_arg1759z00_8834 =
																					PROCEDURE_ATTR(BgL_rz00_8831);
																				if (STRUCTP(BgL_arg1759z00_8834))
																					{	/* Eval/evaluate_comp.scm 654 */
																						BgL_test5196z00_22296 =
																							(STRUCT_KEY(BgL_arg1759z00_8834)
																							==
																							BGl_symbol4573z00zz__evaluate_compz00);
																					}
																				else
																					{	/* Eval/evaluate_comp.scm 654 */
																						BgL_test5196z00_22296 =
																							((bool_t) 0);
																					}
																			}
																		else
																			{	/* Eval/evaluate_comp.scm 674 */
																				BgL_test5196z00_22296 = ((bool_t) 0);
																			}
																		if (BgL_test5196z00_22296)
																			{
																				obj_t BgL_fz00_22304;

																				BgL_fz00_22304 = BgL_rz00_8831;
																				BgL_fz00_8830 = BgL_fz00_22304;
																				goto BgL_recz00_8829;
																			}
																		else
																			{	/* Eval/evaluate_comp.scm 674 */
																				VECTOR_SET(BgL_nsz00_2906, 0L,
																					BgL_savedzd2bpzd2_8826);
																				BgL_____rz00_2910 = BgL_rz00_8831;
																			}
																	}
																}
															}
														}
														{	/* Eval/evaluate_comp.scm 896 */
															bool_t BgL_test5199z00_22306;

															{	/* Eval/evaluate_comp.scm 896 */
																obj_t BgL_arg4320z00_8842;

																BgL_arg4320z00_8842 =
																	BGL_EXITD_PROTECT(BgL_ez00_2909);
																BgL_test5199z00_22306 =
																	PAIRP(BgL_arg4320z00_8842);
															}
															if (BgL_test5199z00_22306)
																{	/* Eval/evaluate_comp.scm 896 */
																	obj_t BgL_arg4318z00_8843;

																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_arg4319z00_8844;

																		BgL_arg4319z00_8844 =
																			BGL_EXITD_PROTECT(BgL_ez00_2909);
																		BgL_arg4318z00_8843 =
																			CDR(((obj_t) BgL_arg4319z00_8844));
																	}
																	BGL_EXITD_PROTECT_SET(BgL_ez00_2909,
																		BgL_arg4318z00_8843);
																	BUNSPEC;
																}
															else
																{	/* Eval/evaluate_comp.scm 896 */
																	BFALSE;
																}
														}
														BGL_ENV_EVSTATE_SET(BgL_z12denvz12_2904,
															BgL_sz00_2850);
														return BgL_____rz00_2910;
													}
												}
											}
									}
								}
							else
								{	/* Eval/evaluate_comp.scm 896 */
									if (PROCEDURE_CORRECT_ARITYP(BgL_fz00_2853, (int) (4L)))
										{	/* Eval/evaluate_comp.scm 896 */
											long BgL_nbpz00_2911;

											BgL_nbpz00_2911 =
												((long) CINT(BgL_bpz00_2852) + BgL_siza7eza7_15694);
											VECTOR_SET(
												((obj_t) BgL_sz00_2850), 0L, BINT(BgL_nbpz00_2911));
											{	/* Eval/evaluate_comp.scm 896 */
												obj_t BgL_rz00_2912;

												BgL_rz00_2912 =
													BGL_PROCEDURE_CALL4(BgL_fz00_2853, BgL_a1z00_2854,
													BgL_a2z00_2855, BgL_a3z00_2856, BgL_a4z00_2857);
												VECTOR_SET(((obj_t) BgL_sz00_2850), 0L, BgL_bpz00_2852);
												return BgL_rz00_2912;
											}
										}
									else
										{	/* Eval/evaluate_comp.scm 896 */
											return
												BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_15692,
												BgL_symbzd2funzd2_15693, (int) (4L),
												PROCEDURE_ARITY(BgL_fz00_2853));
		}}}}}}}

	}



/* &<@anonymous:2486> */
	obj_t BGl_z62zc3z04anonymousza32486ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13905, obj_t BgL_sz00_13914)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			return
				BGl_zc3z04anonymousza32486ze3ze70z60zz__evaluate_compz00(
				(long) CINT(PROCEDURE_REF(BgL_envz00_13905,
						(int) (7L))),
				PROCEDURE_REF(BgL_envz00_13905,
					(int) (6L)),
				PROCEDURE_REF(BgL_envz00_13905,
					(int) (5L)),
				PROCEDURE_REF(BgL_envz00_13905,
					(int) (4L)),
				PROCEDURE_REF(BgL_envz00_13905,
					(int) (3L)),
				PROCEDURE_REF(BgL_envz00_13905,
					(int) (2L)),
				PROCEDURE_REF(BgL_envz00_13905,
					(int) (1L)),
				PROCEDURE_REF(BgL_envz00_13905, (int) (0L)), BgL_sz00_13914);
		}

	}



/* <@anonymous:2486>~0 */
	obj_t BGl_zc3z04anonymousza32486ze3ze70z60zz__evaluate_compz00(long
		BgL_siza7eza7_15686, obj_t BgL_symbzd2funzd2_15685, obj_t BgL_locz00_15684,
		obj_t BgL_a4z00_15683, obj_t BgL_a3z00_15682, obj_t BgL_a2z00_15681,
		obj_t BgL_a1z00_15680, obj_t BgL_funz00_15679, obj_t BgL_sz00_2917)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			{	/* Eval/evaluate_comp.scm 896 */
				obj_t BgL_bpz00_2919;

				BgL_bpz00_2919 = VECTOR_REF(((obj_t) BgL_sz00_2917), 0L);
				{	/* Eval/evaluate_comp.scm 896 */
					obj_t BgL_fz00_2920;
					obj_t BgL_a1z00_2921;
					obj_t BgL_a2z00_2922;
					obj_t BgL_a3z00_2923;
					obj_t BgL_a4z00_2924;

					BgL_fz00_2920 = BGL_PROCEDURE_CALL1(BgL_funz00_15679, BgL_sz00_2917);
					BgL_a1z00_2921 = BGL_PROCEDURE_CALL1(BgL_a1z00_15680, BgL_sz00_2917);
					BgL_a2z00_2922 = BGL_PROCEDURE_CALL1(BgL_a2z00_15681, BgL_sz00_2917);
					BgL_a3z00_2923 = BGL_PROCEDURE_CALL1(BgL_a3z00_15682, BgL_sz00_2917);
					BgL_a4z00_2924 = BGL_PROCEDURE_CALL1(BgL_a4z00_15683, BgL_sz00_2917);
					if (PROCEDUREP(BgL_fz00_2920))
						{	/* Eval/evaluate_comp.scm 896 */
							BFALSE;
						}
					else
						{	/* Eval/evaluate_comp.scm 896 */
							BGl_evtypezd2errorzd2zz__everrorz00(BgL_locz00_15684,
								BGl_string4577z00zz__evaluate_compz00,
								BGl_string4593z00zz__evaluate_compz00, BgL_fz00_2920);
						}
					{	/* Eval/evaluate_comp.scm 896 */
						obj_t BgL_ufz00_2926;

						{	/* Eval/evaluate_comp.scm 896 */
							obj_t BgL_tmpz00_22377;

							BgL_tmpz00_22377 = ((obj_t) BgL_fz00_2920);
							BgL_ufz00_2926 = PROCEDURE_ATTR(BgL_tmpz00_22377);
						}
						{	/* Eval/evaluate_comp.scm 896 */
							bool_t BgL_test5202z00_22380;

							if (STRUCTP(BgL_ufz00_2926))
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test5202z00_22380 =
										(STRUCT_KEY(BgL_ufz00_2926) ==
										BGl_symbol4594z00zz__evaluate_compz00);
								}
							else
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test5202z00_22380 = ((bool_t) 0);
								}
							if (BgL_test5202z00_22380)
								{	/* Eval/evaluate_comp.scm 896 */
									obj_t BgL_arityz00_2928;
									obj_t BgL_runz00_2929;
									obj_t BgL_sfz00_2930;

									BgL_arityz00_2928 = STRUCT_REF(BgL_ufz00_2926, (int) (0L));
									BgL_runz00_2929 = STRUCT_REF(BgL_ufz00_2926, (int) (1L));
									BgL_sfz00_2930 = STRUCT_REF(BgL_ufz00_2926, (int) (2L));
									{	/* Eval/evaluate_comp.scm 896 */
										long BgL_spz00_2931;

										BgL_spz00_2931 =
											((long) CINT(BgL_bpz00_2919) + BgL_siza7eza7_15686);
										if (((long) CINT(BgL_arityz00_2928) == 4L))
											{	/* Eval/evaluate_comp.scm 896 */
												{	/* Eval/evaluate_comp.scm 896 */
													long BgL_arg2490z00_2933;

													BgL_arg2490z00_2933 = (BgL_spz00_2931 + 0L);
													VECTOR_SET(
														((obj_t) BgL_sz00_2917), BgL_arg2490z00_2933,
														BgL_a1z00_2921);
												}
												{	/* Eval/evaluate_comp.scm 896 */
													long BgL_arg2492z00_2934;

													BgL_arg2492z00_2934 = (BgL_spz00_2931 + 1L);
													VECTOR_SET(
														((obj_t) BgL_sz00_2917), BgL_arg2492z00_2934,
														BgL_a2z00_2922);
												}
												{	/* Eval/evaluate_comp.scm 896 */
													long BgL_arg2493z00_2935;

													BgL_arg2493z00_2935 = (BgL_spz00_2931 + 2L);
													VECTOR_SET(
														((obj_t) BgL_sz00_2917), BgL_arg2493z00_2935,
														BgL_a3z00_2923);
												}
												{	/* Eval/evaluate_comp.scm 896 */
													long BgL_arg2496z00_2936;

													BgL_arg2496z00_2936 = (BgL_spz00_2931 + 3L);
													VECTOR_SET(
														((obj_t) BgL_sz00_2917), BgL_arg2496z00_2936,
														BgL_a4z00_2924);
											}}
										else
											{	/* Eval/evaluate_comp.scm 896 */
												if (INTEGERP(BgL_arityz00_2928))
													{	/* Eval/evaluate_comp.scm 896 */
														switch ((long) CINT(BgL_arityz00_2928))
															{
															case (-1L):

																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2497z00_2939;
																	obj_t BgL_arg2499z00_2940;

																	BgL_arg2497z00_2939 = (BgL_spz00_2931 + 0L);
																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_list2500z00_2941;

																		{	/* Eval/evaluate_comp.scm 896 */
																			obj_t BgL_arg2501z00_2942;

																			{	/* Eval/evaluate_comp.scm 896 */
																				obj_t BgL_arg2502z00_2943;

																				{	/* Eval/evaluate_comp.scm 896 */
																					obj_t BgL_arg2504z00_2944;

																					BgL_arg2504z00_2944 =
																						MAKE_YOUNG_PAIR(BgL_a4z00_2924,
																						BNIL);
																					BgL_arg2502z00_2943 =
																						MAKE_YOUNG_PAIR(BgL_a3z00_2923,
																						BgL_arg2504z00_2944);
																				}
																				BgL_arg2501z00_2942 =
																					MAKE_YOUNG_PAIR(BgL_a2z00_2922,
																					BgL_arg2502z00_2943);
																			}
																			BgL_list2500z00_2941 =
																				MAKE_YOUNG_PAIR(BgL_a1z00_2921,
																				BgL_arg2501z00_2942);
																		}
																		BgL_arg2499z00_2940 = BgL_list2500z00_2941;
																	}
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2917),
																		BgL_arg2497z00_2939, BgL_arg2499z00_2940);
																} break;
															case (-2L):

																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2506z00_2945;

																	BgL_arg2506z00_2945 = (BgL_spz00_2931 + 0L);
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2917),
																		BgL_arg2506z00_2945, BgL_a1z00_2921);
																}
																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2507z00_2946;
																	obj_t BgL_arg2508z00_2947;

																	BgL_arg2507z00_2946 = (BgL_spz00_2931 + 1L);
																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_list2509z00_2948;

																		{	/* Eval/evaluate_comp.scm 896 */
																			obj_t BgL_arg2510z00_2949;

																			{	/* Eval/evaluate_comp.scm 896 */
																				obj_t BgL_arg2511z00_2950;

																				BgL_arg2511z00_2950 =
																					MAKE_YOUNG_PAIR(BgL_a4z00_2924, BNIL);
																				BgL_arg2510z00_2949 =
																					MAKE_YOUNG_PAIR(BgL_a3z00_2923,
																					BgL_arg2511z00_2950);
																			}
																			BgL_list2509z00_2948 =
																				MAKE_YOUNG_PAIR(BgL_a2z00_2922,
																				BgL_arg2510z00_2949);
																		}
																		BgL_arg2508z00_2947 = BgL_list2509z00_2948;
																	}
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2917),
																		BgL_arg2507z00_2946, BgL_arg2508z00_2947);
																} break;
															case (-3L):

																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2512z00_2951;

																	BgL_arg2512z00_2951 = (BgL_spz00_2931 + 0L);
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2917),
																		BgL_arg2512z00_2951, BgL_a1z00_2921);
																}
																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2514z00_2952;

																	BgL_arg2514z00_2952 = (BgL_spz00_2931 + 1L);
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2917),
																		BgL_arg2514z00_2952, BgL_a2z00_2922);
																}
																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2515z00_2953;
																	obj_t BgL_arg2516z00_2954;

																	BgL_arg2515z00_2953 = (BgL_spz00_2931 + 2L);
																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_list2517z00_2955;

																		{	/* Eval/evaluate_comp.scm 896 */
																			obj_t BgL_arg2518z00_2956;

																			BgL_arg2518z00_2956 =
																				MAKE_YOUNG_PAIR(BgL_a4z00_2924, BNIL);
																			BgL_list2517z00_2955 =
																				MAKE_YOUNG_PAIR(BgL_a3z00_2923,
																				BgL_arg2518z00_2956);
																		}
																		BgL_arg2516z00_2954 = BgL_list2517z00_2955;
																	}
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2917),
																		BgL_arg2515z00_2953, BgL_arg2516z00_2954);
																} break;
															case (-4L):

																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2519z00_2957;

																	BgL_arg2519z00_2957 = (BgL_spz00_2931 + 0L);
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2917),
																		BgL_arg2519z00_2957, BgL_a1z00_2921);
																}
																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2520z00_2958;

																	BgL_arg2520z00_2958 = (BgL_spz00_2931 + 1L);
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2917),
																		BgL_arg2520z00_2958, BgL_a2z00_2922);
																}
																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2521z00_2959;

																	BgL_arg2521z00_2959 = (BgL_spz00_2931 + 2L);
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2917),
																		BgL_arg2521z00_2959, BgL_a3z00_2923);
																}
																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2524z00_2960;
																	obj_t BgL_arg2525z00_2961;

																	BgL_arg2524z00_2960 = (BgL_spz00_2931 + 3L);
																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_list2526z00_2962;

																		BgL_list2526z00_2962 =
																			MAKE_YOUNG_PAIR(BgL_a4z00_2924, BNIL);
																		BgL_arg2525z00_2961 = BgL_list2526z00_2962;
																	}
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2917),
																		BgL_arg2524z00_2960, BgL_arg2525z00_2961);
																} break;
															case (-5L):

																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2527z00_2963;

																	BgL_arg2527z00_2963 = (BgL_spz00_2931 + 0L);
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2917),
																		BgL_arg2527z00_2963, BgL_a1z00_2921);
																}
																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2528z00_2964;

																	BgL_arg2528z00_2964 = (BgL_spz00_2931 + 1L);
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2917),
																		BgL_arg2528z00_2964, BgL_a2z00_2922);
																}
																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2530z00_2965;

																	BgL_arg2530z00_2965 = (BgL_spz00_2931 + 2L);
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2917),
																		BgL_arg2530z00_2965, BgL_a3z00_2923);
																}
																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2531z00_2966;

																	BgL_arg2531z00_2966 = (BgL_spz00_2931 + 3L);
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2917),
																		BgL_arg2531z00_2966, BgL_a4z00_2924);
																}
																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2532z00_2967;
																	obj_t BgL_arg2533z00_2968;

																	BgL_arg2532z00_2967 = (BgL_spz00_2931 + 4L);
																	BgL_arg2533z00_2968 = BNIL;
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2917),
																		BgL_arg2532z00_2967, BgL_arg2533z00_2968);
																} break;
															default:
																BGl_evarityzd2errorzd2zz__everrorz00
																	(BgL_locz00_15684, STRUCT_REF(BgL_ufz00_2926,
																		(int) (3L)), (int) (4L),
																	CINT(BgL_arityz00_2928));
													}}
												else
													{	/* Eval/evaluate_comp.scm 896 */
														BGl_evarityzd2errorzd2zz__everrorz00
															(BgL_locz00_15684, STRUCT_REF(BgL_ufz00_2926,
																(int) (3L)), (int) (4L),
															CINT(BgL_arityz00_2928));
											}}
										{	/* Eval/evaluate_comp.scm 896 */
											obj_t BgL_z12denvz12_2971;

											BgL_z12denvz12_2971 = BGL_CURRENT_DYNAMIC_ENV();
											BGL_ENV_SET_TRACE_LOCATION(BgL_z12denvz12_2971,
												BgL_locz00_15684);
											if (((BgL_spz00_2931 + (long) CINT(BgL_sfz00_2930)) <
													VECTOR_LENGTH(((obj_t) BgL_sz00_2917))))
												{	/* Eval/evaluate_comp.scm 896 */
													return
														BGl_catchzd2trampolinezd2zz__evaluate_compz00
														(BgL_runz00_2929, BgL_sz00_2917,
														BINT(BgL_spz00_2931));
												}
											else
												{	/* Eval/evaluate_comp.scm 896 */
													obj_t BgL_nsz00_2973;

													BgL_nsz00_2973 =
														BGl_makezd2statezd2zz__evaluate_compz00();
													{	/* Eval/evaluate_comp.scm 896 */
														long BgL_arg2539z00_2975;

														BgL_arg2539z00_2975 = (BgL_spz00_2931 + 4L);
														BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00
															(BgL_nsz00_2973, 2L, BgL_sz00_2917,
															BINT(BgL_spz00_2931), BINT(BgL_arg2539z00_2975));
													}
													VECTOR_SET(BgL_nsz00_2973, 1L, BgL_sz00_2917);
													BGL_ENV_EVSTATE_SET(BgL_z12denvz12_2971,
														BgL_nsz00_2973);
													{	/* Eval/evaluate_comp.scm 896 */
														obj_t BgL_ez00_2976;

														BgL_ez00_2976 = BGL_EXITD_TOP_AS_OBJ();
														{	/* Eval/evaluate_comp.scm 896 */
															obj_t BgL_arg4321z00_8940;

															{	/* Eval/evaluate_comp.scm 896 */
																obj_t BgL_arg4322z00_8941;

																BgL_arg4322z00_8941 =
																	BGL_EXITD_PROTECT(BgL_ez00_2976);
																BgL_arg4321z00_8940 =
																	MAKE_YOUNG_PAIR(BgL_sz00_2917,
																	BgL_arg4322z00_8941);
															}
															BGL_EXITD_PROTECT_SET(BgL_ez00_2976,
																BgL_arg4321z00_8940);
															BUNSPEC;
														}
														{	/* Eval/evaluate_comp.scm 896 */
															obj_t BgL_____rz00_2977;

															{	/* Eval/evaluate_comp.scm 670 */
																obj_t BgL_savedzd2bpzd2_8942;

																BgL_savedzd2bpzd2_8942 =
																	VECTOR_REF(BgL_nsz00_2973, 0L);
																VECTOR_SET(BgL_nsz00_2973, 0L, BINT(2L));
																{
																	obj_t BgL_fz00_8946;

																	BgL_fz00_8946 = BgL_runz00_2929;
																BgL_recz00_8945:
																	{	/* Eval/evaluate_comp.scm 673 */
																		obj_t BgL_rz00_8947;

																		BgL_rz00_8947 =
																			BGL_PROCEDURE_CALL1(BgL_fz00_8946,
																			BgL_nsz00_2973);
																		{	/* Eval/evaluate_comp.scm 674 */
																			bool_t BgL_test5207z00_22505;

																			if (PROCEDUREP(BgL_rz00_8947))
																				{	/* Eval/evaluate_comp.scm 674 */
																					obj_t BgL_arg1759z00_8950;

																					BgL_arg1759z00_8950 =
																						PROCEDURE_ATTR(BgL_rz00_8947);
																					if (STRUCTP(BgL_arg1759z00_8950))
																						{	/* Eval/evaluate_comp.scm 654 */
																							BgL_test5207z00_22505 =
																								(STRUCT_KEY(BgL_arg1759z00_8950)
																								==
																								BGl_symbol4573z00zz__evaluate_compz00);
																						}
																					else
																						{	/* Eval/evaluate_comp.scm 654 */
																							BgL_test5207z00_22505 =
																								((bool_t) 0);
																						}
																				}
																			else
																				{	/* Eval/evaluate_comp.scm 674 */
																					BgL_test5207z00_22505 = ((bool_t) 0);
																				}
																			if (BgL_test5207z00_22505)
																				{
																					obj_t BgL_fz00_22513;

																					BgL_fz00_22513 = BgL_rz00_8947;
																					BgL_fz00_8946 = BgL_fz00_22513;
																					goto BgL_recz00_8945;
																				}
																			else
																				{	/* Eval/evaluate_comp.scm 674 */
																					VECTOR_SET(BgL_nsz00_2973, 0L,
																						BgL_savedzd2bpzd2_8942);
																					BgL_____rz00_2977 = BgL_rz00_8947;
																				}
																		}
																	}
																}
															}
															{	/* Eval/evaluate_comp.scm 896 */
																bool_t BgL_test5210z00_22515;

																{	/* Eval/evaluate_comp.scm 896 */
																	obj_t BgL_arg4320z00_8958;

																	BgL_arg4320z00_8958 =
																		BGL_EXITD_PROTECT(BgL_ez00_2976);
																	BgL_test5210z00_22515 =
																		PAIRP(BgL_arg4320z00_8958);
																}
																if (BgL_test5210z00_22515)
																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_arg4318z00_8959;

																		{	/* Eval/evaluate_comp.scm 896 */
																			obj_t BgL_arg4319z00_8960;

																			BgL_arg4319z00_8960 =
																				BGL_EXITD_PROTECT(BgL_ez00_2976);
																			BgL_arg4318z00_8959 =
																				CDR(((obj_t) BgL_arg4319z00_8960));
																		}
																		BGL_EXITD_PROTECT_SET(BgL_ez00_2976,
																			BgL_arg4318z00_8959);
																		BUNSPEC;
																	}
																else
																	{	/* Eval/evaluate_comp.scm 896 */
																		BFALSE;
																	}
															}
															BGL_ENV_EVSTATE_SET(BgL_z12denvz12_2971,
																BgL_sz00_2917);
															return BgL_____rz00_2977;
														}
													}
												}
										}
									}
								}
							else
								{	/* Eval/evaluate_comp.scm 896 */
									if (PROCEDURE_CORRECT_ARITYP(BgL_fz00_2920, (int) (4L)))
										{	/* Eval/evaluate_comp.scm 896 */
											long BgL_nbpz00_2978;

											BgL_nbpz00_2978 =
												((long) CINT(BgL_bpz00_2919) + BgL_siza7eza7_15686);
											VECTOR_SET(
												((obj_t) BgL_sz00_2917), 0L, BINT(BgL_nbpz00_2978));
											{	/* Eval/evaluate_comp.scm 896 */
												obj_t BgL_tmpz00_22531;

												BgL_tmpz00_22531 = BGL_CURRENT_DYNAMIC_ENV();
												BGL_ENV_SET_TRACE_LOCATION(BgL_tmpz00_22531,
													BgL_locz00_15684);
											}
											{	/* Eval/evaluate_comp.scm 896 */
												obj_t BgL_rz00_2980;

												BgL_rz00_2980 =
													BGL_PROCEDURE_CALL4(BgL_fz00_2920, BgL_a1z00_2921,
													BgL_a2z00_2922, BgL_a3z00_2923, BgL_a4z00_2924);
												VECTOR_SET(((obj_t) BgL_sz00_2917), 0L, BgL_bpz00_2919);
												return BgL_rz00_2980;
											}
										}
									else
										{	/* Eval/evaluate_comp.scm 896 */
											return
												BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_15684,
												BgL_symbzd2funzd2_15685, (int) (4L),
												PROCEDURE_ARITY(BgL_fz00_2920));
		}}}}}}}

	}



/* &<@anonymous:2542> */
	obj_t BGl_z62zc3z04anonymousza32542ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13915, obj_t BgL_sz00_13924)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			return
				BGl_zc3z04anonymousza32542ze3ze70z60zz__evaluate_compz00(
				(long) CINT(PROCEDURE_REF(BgL_envz00_13915,
						(int) (7L))),
				PROCEDURE_REF(BgL_envz00_13915,
					(int) (6L)),
				PROCEDURE_REF(BgL_envz00_13915,
					(int) (5L)),
				PROCEDURE_REF(BgL_envz00_13915,
					(int) (4L)),
				PROCEDURE_REF(BgL_envz00_13915,
					(int) (3L)),
				PROCEDURE_REF(BgL_envz00_13915,
					(int) (2L)),
				PROCEDURE_REF(BgL_envz00_13915,
					(int) (1L)),
				PROCEDURE_REF(BgL_envz00_13915, (int) (0L)), BgL_sz00_13924);
		}

	}



/* <@anonymous:2542>~0 */
	obj_t BGl_zc3z04anonymousza32542ze3ze70z60zz__evaluate_compz00(long
		BgL_siza7eza7_15678, obj_t BgL_symbzd2funzd2_15677, obj_t BgL_locz00_15676,
		obj_t BgL_a4z00_15675, obj_t BgL_a3z00_15674, obj_t BgL_a2z00_15673,
		obj_t BgL_a1z00_15672, obj_t BgL_funz00_15671, obj_t BgL_sz00_2982)
	{
		{	/* Eval/evaluate_comp.scm 896 */
			{	/* Eval/evaluate_comp.scm 896 */
				obj_t BgL_bpz00_2984;

				BgL_bpz00_2984 = VECTOR_REF(((obj_t) BgL_sz00_2982), 0L);
				{	/* Eval/evaluate_comp.scm 896 */
					obj_t BgL_fz00_2985;
					obj_t BgL_a1z00_2986;
					obj_t BgL_a2z00_2987;
					obj_t BgL_a3z00_2988;
					obj_t BgL_a4z00_2989;

					BgL_fz00_2985 = BGL_PROCEDURE_CALL1(BgL_funz00_15671, BgL_sz00_2982);
					BgL_a1z00_2986 = BGL_PROCEDURE_CALL1(BgL_a1z00_15672, BgL_sz00_2982);
					BgL_a2z00_2987 = BGL_PROCEDURE_CALL1(BgL_a2z00_15673, BgL_sz00_2982);
					BgL_a3z00_2988 = BGL_PROCEDURE_CALL1(BgL_a3z00_15674, BgL_sz00_2982);
					BgL_a4z00_2989 = BGL_PROCEDURE_CALL1(BgL_a4z00_15675, BgL_sz00_2982);
					if (PROCEDUREP(BgL_fz00_2985))
						{	/* Eval/evaluate_comp.scm 896 */
							BFALSE;
						}
					else
						{	/* Eval/evaluate_comp.scm 896 */
							BGl_evtypezd2errorzd2zz__everrorz00(BgL_locz00_15676,
								BGl_string4577z00zz__evaluate_compz00,
								BGl_string4593z00zz__evaluate_compz00, BgL_fz00_2985);
						}
					{	/* Eval/evaluate_comp.scm 896 */
						obj_t BgL_ufz00_2991;

						{	/* Eval/evaluate_comp.scm 896 */
							obj_t BgL_tmpz00_22589;

							BgL_tmpz00_22589 = ((obj_t) BgL_fz00_2985);
							BgL_ufz00_2991 = PROCEDURE_ATTR(BgL_tmpz00_22589);
						}
						{	/* Eval/evaluate_comp.scm 896 */
							bool_t BgL_test5213z00_22592;

							if (STRUCTP(BgL_ufz00_2991))
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test5213z00_22592 =
										(STRUCT_KEY(BgL_ufz00_2991) ==
										BGl_symbol4594z00zz__evaluate_compz00);
								}
							else
								{	/* Eval/evaluate_comp.scm 683 */
									BgL_test5213z00_22592 = ((bool_t) 0);
								}
							if (BgL_test5213z00_22592)
								{	/* Eval/evaluate_comp.scm 896 */
									obj_t BgL_arityz00_2993;
									obj_t BgL_runz00_2994;
									obj_t BgL_sfz00_2995;

									BgL_arityz00_2993 = STRUCT_REF(BgL_ufz00_2991, (int) (0L));
									BgL_runz00_2994 = STRUCT_REF(BgL_ufz00_2991, (int) (1L));
									BgL_sfz00_2995 = STRUCT_REF(BgL_ufz00_2991, (int) (2L));
									{	/* Eval/evaluate_comp.scm 896 */
										long BgL_spz00_2996;

										BgL_spz00_2996 =
											((long) CINT(BgL_bpz00_2984) + BgL_siza7eza7_15678);
										if (((long) CINT(BgL_arityz00_2993) == 4L))
											{	/* Eval/evaluate_comp.scm 896 */
												{	/* Eval/evaluate_comp.scm 896 */
													long BgL_arg2547z00_2998;

													BgL_arg2547z00_2998 = (BgL_spz00_2996 + 0L);
													VECTOR_SET(
														((obj_t) BgL_sz00_2982), BgL_arg2547z00_2998,
														BgL_a1z00_2986);
												}
												{	/* Eval/evaluate_comp.scm 896 */
													long BgL_arg2548z00_2999;

													BgL_arg2548z00_2999 = (BgL_spz00_2996 + 1L);
													VECTOR_SET(
														((obj_t) BgL_sz00_2982), BgL_arg2548z00_2999,
														BgL_a2z00_2987);
												}
												{	/* Eval/evaluate_comp.scm 896 */
													long BgL_arg2549z00_3000;

													BgL_arg2549z00_3000 = (BgL_spz00_2996 + 2L);
													VECTOR_SET(
														((obj_t) BgL_sz00_2982), BgL_arg2549z00_3000,
														BgL_a3z00_2988);
												}
												{	/* Eval/evaluate_comp.scm 896 */
													long BgL_arg2550z00_3001;

													BgL_arg2550z00_3001 = (BgL_spz00_2996 + 3L);
													VECTOR_SET(
														((obj_t) BgL_sz00_2982), BgL_arg2550z00_3001,
														BgL_a4z00_2989);
											}}
										else
											{	/* Eval/evaluate_comp.scm 896 */
												if (INTEGERP(BgL_arityz00_2993))
													{	/* Eval/evaluate_comp.scm 896 */
														switch ((long) CINT(BgL_arityz00_2993))
															{
															case (-1L):

																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2552z00_3004;
																	obj_t BgL_arg2555z00_3005;

																	BgL_arg2552z00_3004 = (BgL_spz00_2996 + 0L);
																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_list2556z00_3006;

																		{	/* Eval/evaluate_comp.scm 896 */
																			obj_t BgL_arg2557z00_3007;

																			{	/* Eval/evaluate_comp.scm 896 */
																				obj_t BgL_arg2558z00_3008;

																				{	/* Eval/evaluate_comp.scm 896 */
																					obj_t BgL_arg2560z00_3009;

																					BgL_arg2560z00_3009 =
																						MAKE_YOUNG_PAIR(BgL_a4z00_2989,
																						BNIL);
																					BgL_arg2558z00_3008 =
																						MAKE_YOUNG_PAIR(BgL_a3z00_2988,
																						BgL_arg2560z00_3009);
																				}
																				BgL_arg2557z00_3007 =
																					MAKE_YOUNG_PAIR(BgL_a2z00_2987,
																					BgL_arg2558z00_3008);
																			}
																			BgL_list2556z00_3006 =
																				MAKE_YOUNG_PAIR(BgL_a1z00_2986,
																				BgL_arg2557z00_3007);
																		}
																		BgL_arg2555z00_3005 = BgL_list2556z00_3006;
																	}
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2982),
																		BgL_arg2552z00_3004, BgL_arg2555z00_3005);
																} break;
															case (-2L):

																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2561z00_3010;

																	BgL_arg2561z00_3010 = (BgL_spz00_2996 + 0L);
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2982),
																		BgL_arg2561z00_3010, BgL_a1z00_2986);
																}
																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2562z00_3011;
																	obj_t BgL_arg2563z00_3012;

																	BgL_arg2562z00_3011 = (BgL_spz00_2996 + 1L);
																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_list2564z00_3013;

																		{	/* Eval/evaluate_comp.scm 896 */
																			obj_t BgL_arg2565z00_3014;

																			{	/* Eval/evaluate_comp.scm 896 */
																				obj_t BgL_arg2566z00_3015;

																				BgL_arg2566z00_3015 =
																					MAKE_YOUNG_PAIR(BgL_a4z00_2989, BNIL);
																				BgL_arg2565z00_3014 =
																					MAKE_YOUNG_PAIR(BgL_a3z00_2988,
																					BgL_arg2566z00_3015);
																			}
																			BgL_list2564z00_3013 =
																				MAKE_YOUNG_PAIR(BgL_a2z00_2987,
																				BgL_arg2565z00_3014);
																		}
																		BgL_arg2563z00_3012 = BgL_list2564z00_3013;
																	}
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2982),
																		BgL_arg2562z00_3011, BgL_arg2563z00_3012);
																} break;
															case (-3L):

																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2567z00_3016;

																	BgL_arg2567z00_3016 = (BgL_spz00_2996 + 0L);
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2982),
																		BgL_arg2567z00_3016, BgL_a1z00_2986);
																}
																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2568z00_3017;

																	BgL_arg2568z00_3017 = (BgL_spz00_2996 + 1L);
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2982),
																		BgL_arg2568z00_3017, BgL_a2z00_2987);
																}
																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2569z00_3018;
																	obj_t BgL_arg2570z00_3019;

																	BgL_arg2569z00_3018 = (BgL_spz00_2996 + 2L);
																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_list2571z00_3020;

																		{	/* Eval/evaluate_comp.scm 896 */
																			obj_t BgL_arg2572z00_3021;

																			BgL_arg2572z00_3021 =
																				MAKE_YOUNG_PAIR(BgL_a4z00_2989, BNIL);
																			BgL_list2571z00_3020 =
																				MAKE_YOUNG_PAIR(BgL_a3z00_2988,
																				BgL_arg2572z00_3021);
																		}
																		BgL_arg2570z00_3019 = BgL_list2571z00_3020;
																	}
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2982),
																		BgL_arg2569z00_3018, BgL_arg2570z00_3019);
																} break;
															case (-4L):

																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2574z00_3022;

																	BgL_arg2574z00_3022 = (BgL_spz00_2996 + 0L);
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2982),
																		BgL_arg2574z00_3022, BgL_a1z00_2986);
																}
																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2575z00_3023;

																	BgL_arg2575z00_3023 = (BgL_spz00_2996 + 1L);
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2982),
																		BgL_arg2575z00_3023, BgL_a2z00_2987);
																}
																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2576z00_3024;

																	BgL_arg2576z00_3024 = (BgL_spz00_2996 + 2L);
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2982),
																		BgL_arg2576z00_3024, BgL_a3z00_2988);
																}
																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2577z00_3025;
																	obj_t BgL_arg2578z00_3026;

																	BgL_arg2577z00_3025 = (BgL_spz00_2996 + 3L);
																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_list2579z00_3027;

																		BgL_list2579z00_3027 =
																			MAKE_YOUNG_PAIR(BgL_a4z00_2989, BNIL);
																		BgL_arg2578z00_3026 = BgL_list2579z00_3027;
																	}
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2982),
																		BgL_arg2577z00_3025, BgL_arg2578z00_3026);
																} break;
															case (-5L):

																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2580z00_3028;

																	BgL_arg2580z00_3028 = (BgL_spz00_2996 + 0L);
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2982),
																		BgL_arg2580z00_3028, BgL_a1z00_2986);
																}
																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2581z00_3029;

																	BgL_arg2581z00_3029 = (BgL_spz00_2996 + 1L);
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2982),
																		BgL_arg2581z00_3029, BgL_a2z00_2987);
																}
																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2582z00_3030;

																	BgL_arg2582z00_3030 = (BgL_spz00_2996 + 2L);
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2982),
																		BgL_arg2582z00_3030, BgL_a3z00_2988);
																}
																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2584z00_3031;

																	BgL_arg2584z00_3031 = (BgL_spz00_2996 + 3L);
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2982),
																		BgL_arg2584z00_3031, BgL_a4z00_2989);
																}
																{	/* Eval/evaluate_comp.scm 896 */
																	long BgL_arg2585z00_3032;
																	obj_t BgL_arg2586z00_3033;

																	BgL_arg2585z00_3032 = (BgL_spz00_2996 + 4L);
																	BgL_arg2586z00_3033 = BNIL;
																	VECTOR_SET(
																		((obj_t) BgL_sz00_2982),
																		BgL_arg2585z00_3032, BgL_arg2586z00_3033);
																} break;
															default:
																BGl_evarityzd2errorzd2zz__everrorz00
																	(BgL_locz00_15676, STRUCT_REF(BgL_ufz00_2991,
																		(int) (3L)), (int) (4L),
																	CINT(BgL_arityz00_2993));
													}}
												else
													{	/* Eval/evaluate_comp.scm 896 */
														BGl_evarityzd2errorzd2zz__everrorz00
															(BgL_locz00_15676, STRUCT_REF(BgL_ufz00_2991,
																(int) (3L)), (int) (4L),
															CINT(BgL_arityz00_2993));
											}}
										{	/* Eval/evaluate_comp.scm 896 */
											obj_t BgL_z12denvz12_3036;

											BgL_z12denvz12_3036 = BGL_CURRENT_DYNAMIC_ENV();
											if (
												((BgL_spz00_2996 +
														(long) CINT(BgL_sfz00_2995)) <
													VECTOR_LENGTH(((obj_t) BgL_sz00_2982))))
												{	/* Eval/evaluate_comp.scm 896 */
													return
														BGl_catchzd2trampolinezd2zz__evaluate_compz00
														(BgL_runz00_2994, BgL_sz00_2982,
														BINT(BgL_spz00_2996));
												}
											else
												{	/* Eval/evaluate_comp.scm 896 */
													obj_t BgL_nsz00_3038;

													BgL_nsz00_3038 =
														BGl_makezd2statezd2zz__evaluate_compz00();
													{	/* Eval/evaluate_comp.scm 896 */
														long BgL_arg2590z00_3040;

														BgL_arg2590z00_3040 = (BgL_spz00_2996 + 4L);
														BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00
															(BgL_nsz00_3038, 2L, BgL_sz00_2982,
															BINT(BgL_spz00_2996), BINT(BgL_arg2590z00_3040));
													}
													VECTOR_SET(BgL_nsz00_3038, 1L, BgL_sz00_2982);
													BGL_ENV_EVSTATE_SET(BgL_z12denvz12_3036,
														BgL_nsz00_3038);
													{	/* Eval/evaluate_comp.scm 896 */
														obj_t BgL_ez00_3041;

														BgL_ez00_3041 = BGL_EXITD_TOP_AS_OBJ();
														{	/* Eval/evaluate_comp.scm 896 */
															obj_t BgL_arg4321z00_9055;

															{	/* Eval/evaluate_comp.scm 896 */
																obj_t BgL_arg4322z00_9056;

																BgL_arg4322z00_9056 =
																	BGL_EXITD_PROTECT(BgL_ez00_3041);
																BgL_arg4321z00_9055 =
																	MAKE_YOUNG_PAIR(BgL_sz00_2982,
																	BgL_arg4322z00_9056);
															}
															BGL_EXITD_PROTECT_SET(BgL_ez00_3041,
																BgL_arg4321z00_9055);
															BUNSPEC;
														}
														{	/* Eval/evaluate_comp.scm 896 */
															obj_t BgL_____rz00_3042;

															{	/* Eval/evaluate_comp.scm 670 */
																obj_t BgL_savedzd2bpzd2_9057;

																BgL_savedzd2bpzd2_9057 =
																	VECTOR_REF(BgL_nsz00_3038, 0L);
																VECTOR_SET(BgL_nsz00_3038, 0L, BINT(2L));
																{
																	obj_t BgL_fz00_9061;

																	BgL_fz00_9061 = BgL_runz00_2994;
																BgL_recz00_9060:
																	{	/* Eval/evaluate_comp.scm 673 */
																		obj_t BgL_rz00_9062;

																		BgL_rz00_9062 =
																			BGL_PROCEDURE_CALL1(BgL_fz00_9061,
																			BgL_nsz00_3038);
																		{	/* Eval/evaluate_comp.scm 674 */
																			bool_t BgL_test5218z00_22716;

																			if (PROCEDUREP(BgL_rz00_9062))
																				{	/* Eval/evaluate_comp.scm 674 */
																					obj_t BgL_arg1759z00_9065;

																					BgL_arg1759z00_9065 =
																						PROCEDURE_ATTR(BgL_rz00_9062);
																					if (STRUCTP(BgL_arg1759z00_9065))
																						{	/* Eval/evaluate_comp.scm 654 */
																							BgL_test5218z00_22716 =
																								(STRUCT_KEY(BgL_arg1759z00_9065)
																								==
																								BGl_symbol4573z00zz__evaluate_compz00);
																						}
																					else
																						{	/* Eval/evaluate_comp.scm 654 */
																							BgL_test5218z00_22716 =
																								((bool_t) 0);
																						}
																				}
																			else
																				{	/* Eval/evaluate_comp.scm 674 */
																					BgL_test5218z00_22716 = ((bool_t) 0);
																				}
																			if (BgL_test5218z00_22716)
																				{
																					obj_t BgL_fz00_22724;

																					BgL_fz00_22724 = BgL_rz00_9062;
																					BgL_fz00_9061 = BgL_fz00_22724;
																					goto BgL_recz00_9060;
																				}
																			else
																				{	/* Eval/evaluate_comp.scm 674 */
																					VECTOR_SET(BgL_nsz00_3038, 0L,
																						BgL_savedzd2bpzd2_9057);
																					BgL_____rz00_3042 = BgL_rz00_9062;
																				}
																		}
																	}
																}
															}
															{	/* Eval/evaluate_comp.scm 896 */
																bool_t BgL_test5221z00_22726;

																{	/* Eval/evaluate_comp.scm 896 */
																	obj_t BgL_arg4320z00_9073;

																	BgL_arg4320z00_9073 =
																		BGL_EXITD_PROTECT(BgL_ez00_3041);
																	BgL_test5221z00_22726 =
																		PAIRP(BgL_arg4320z00_9073);
																}
																if (BgL_test5221z00_22726)
																	{	/* Eval/evaluate_comp.scm 896 */
																		obj_t BgL_arg4318z00_9074;

																		{	/* Eval/evaluate_comp.scm 896 */
																			obj_t BgL_arg4319z00_9075;

																			BgL_arg4319z00_9075 =
																				BGL_EXITD_PROTECT(BgL_ez00_3041);
																			BgL_arg4318z00_9074 =
																				CDR(((obj_t) BgL_arg4319z00_9075));
																		}
																		BGL_EXITD_PROTECT_SET(BgL_ez00_3041,
																			BgL_arg4318z00_9074);
																		BUNSPEC;
																	}
																else
																	{	/* Eval/evaluate_comp.scm 896 */
																		BFALSE;
																	}
															}
															BGL_ENV_EVSTATE_SET(BgL_z12denvz12_3036,
																BgL_sz00_2982);
															return BgL_____rz00_3042;
														}
													}
												}
										}
									}
								}
							else
								{	/* Eval/evaluate_comp.scm 896 */
									if (PROCEDURE_CORRECT_ARITYP(BgL_fz00_2985, (int) (4L)))
										{	/* Eval/evaluate_comp.scm 896 */
											long BgL_nbpz00_3043;

											BgL_nbpz00_3043 =
												((long) CINT(BgL_bpz00_2984) + BgL_siza7eza7_15678);
											VECTOR_SET(
												((obj_t) BgL_sz00_2982), 0L, BINT(BgL_nbpz00_3043));
											{	/* Eval/evaluate_comp.scm 896 */
												obj_t BgL_rz00_3044;

												BgL_rz00_3044 =
													BGL_PROCEDURE_CALL4(BgL_fz00_2985, BgL_a1z00_2986,
													BgL_a2z00_2987, BgL_a3z00_2988, BgL_a4z00_2989);
												VECTOR_SET(((obj_t) BgL_sz00_2982), 0L, BgL_bpz00_2984);
												return BgL_rz00_3044;
											}
										}
									else
										{	/* Eval/evaluate_comp.scm 896 */
											return
												BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_15676,
												BgL_symbzd2funzd2_15677, (int) (4L),
												PROCEDURE_ARITY(BgL_fz00_2985));
		}}}}}}}

	}



/* is-constant-fun? */
	obj_t BGl_iszd2constantzd2funzf3zf3zz__evaluate_compz00(BgL_ev_exprz00_bglt
		BgL_funz00_183, long BgL_nbargsz00_184, obj_t BgL_locz00_185,
		obj_t BgL_symbzd2funzd2_186)
	{
		{	/* Eval/evaluate_comp.scm 899 */
			{	/* Eval/evaluate_comp.scm 901 */
				bool_t BgL_test5223z00_22754;

				{	/* Eval/evaluate_comp.scm 901 */
					obj_t BgL_classz00_9081;

					BgL_classz00_9081 = BGl_ev_globalz00zz__evaluate_typesz00;
					{	/* Eval/evaluate_comp.scm 901 */
						BgL_objectz00_bglt BgL_arg4295z00_9083;

						{	/* Eval/evaluate_comp.scm 901 */
							obj_t BgL_tmpz00_22755;

							BgL_tmpz00_22755 =
								((obj_t) ((BgL_objectz00_bglt) BgL_funz00_183));
							BgL_arg4295z00_9083 = (BgL_objectz00_bglt) (BgL_tmpz00_22755);
						}
						if (BGL_CONDEXPAND_ISA_ARCH64())
							{	/* Eval/evaluate_comp.scm 901 */
								long BgL_idxz00_9089;

								BgL_idxz00_9089 =
									BGL_OBJECT_INHERITANCE_NUM(BgL_arg4295z00_9083);
								BgL_test5223z00_22754 =
									(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
										(BgL_idxz00_9089 + 2L)) == BgL_classz00_9081);
							}
						else
							{	/* Eval/evaluate_comp.scm 901 */
								bool_t BgL_res4425z00_9114;

								{	/* Eval/evaluate_comp.scm 901 */
									obj_t BgL_oclassz00_9097;

									{	/* Eval/evaluate_comp.scm 901 */
										obj_t BgL_arg4302z00_9105;
										long BgL_arg4303z00_9106;

										BgL_arg4302z00_9105 = (BGl_za2classesza2z00zz__objectz00);
										{	/* Eval/evaluate_comp.scm 901 */
											long BgL_arg4304z00_9107;

											BgL_arg4304z00_9107 =
												BGL_OBJECT_CLASS_NUM(BgL_arg4295z00_9083);
											BgL_arg4303z00_9106 = (BgL_arg4304z00_9107 - OBJECT_TYPE);
										}
										BgL_oclassz00_9097 =
											VECTOR_REF(BgL_arg4302z00_9105, BgL_arg4303z00_9106);
									}
									{	/* Eval/evaluate_comp.scm 901 */
										bool_t BgL__ortest_1296z00_9098;

										BgL__ortest_1296z00_9098 =
											(BgL_classz00_9081 == BgL_oclassz00_9097);
										if (BgL__ortest_1296z00_9098)
											{	/* Eval/evaluate_comp.scm 901 */
												BgL_res4425z00_9114 = BgL__ortest_1296z00_9098;
											}
										else
											{	/* Eval/evaluate_comp.scm 901 */
												long BgL_odepthz00_9099;

												{	/* Eval/evaluate_comp.scm 901 */
													obj_t BgL_arg4292z00_9100;

													BgL_arg4292z00_9100 = (BgL_oclassz00_9097);
													BgL_odepthz00_9099 =
														BGL_CLASS_DEPTH(BgL_arg4292z00_9100);
												}
												if ((2L < BgL_odepthz00_9099))
													{	/* Eval/evaluate_comp.scm 901 */
														obj_t BgL_arg4290z00_9102;

														{	/* Eval/evaluate_comp.scm 901 */
															obj_t BgL_arg4291z00_9103;

															BgL_arg4291z00_9103 = (BgL_oclassz00_9097);
															BgL_arg4290z00_9102 =
																BGL_CLASS_ANCESTORS_REF(BgL_arg4291z00_9103,
																2L);
														}
														BgL_res4425z00_9114 =
															(BgL_arg4290z00_9102 == BgL_classz00_9081);
													}
												else
													{	/* Eval/evaluate_comp.scm 901 */
														BgL_res4425z00_9114 = ((bool_t) 0);
													}
											}
									}
								}
								BgL_test5223z00_22754 = BgL_res4425z00_9114;
							}
					}
				}
				if (BgL_test5223z00_22754)
					{	/* Eval/evaluate_comp.scm 903 */
						obj_t BgL_gz00_3049;

						{	/* Eval/evaluate_comp.scm 903 */
							obj_t BgL_arg2598z00_3057;
							obj_t BgL_arg2599z00_3058;

							BgL_arg2598z00_3057 =
								(((BgL_ev_globalz00_bglt) COBJECT(
										((BgL_ev_globalz00_bglt) BgL_funz00_183)))->BgL_modz00);
							BgL_arg2599z00_3058 =
								(((BgL_ev_globalz00_bglt) COBJECT(
										((BgL_ev_globalz00_bglt) BgL_funz00_183)))->BgL_namez00);
							BgL_gz00_3049 =
								BGl_evmodulezd2findzd2globalz00zz__evmodulez00
								(BgL_arg2598z00_3057, BgL_arg2599z00_3058);
						}
						if (CBOOL(BgL_gz00_3049))
							{	/* Eval/evaluate_comp.scm 905 */
								bool_t BgL_test5228z00_22785;

								{	/* Eval/evaluate_comp.scm 905 */
									int BgL_arg2597z00_3056;

									{	/* Eval/evaluate_comp.scm 905 */
										int BgL_res4426z00_9117;

										BgL_res4426z00_9117 =
											CINT(VECTOR_REF(((obj_t) BgL_gz00_3049), 0L));
										BgL_arg2597z00_3056 = BgL_res4426z00_9117;
									}
									BgL_test5228z00_22785 = ((long) (BgL_arg2597z00_3056) == 0L);
								}
								if (BgL_test5228z00_22785)
									{	/* Eval/evaluate_comp.scm 906 */
										obj_t BgL_valz00_3052;

										BgL_valz00_3052 = VECTOR_REF(((obj_t) BgL_gz00_3049), 2L);
										{	/* Eval/evaluate_comp.scm 907 */
											bool_t BgL_test5229z00_22793;

											if (PROCEDUREP(BgL_valz00_3052))
												{	/* Eval/evaluate_comp.scm 907 */
													BgL_test5229z00_22793 =
														PROCEDURE_CORRECT_ARITYP(BgL_valz00_3052,
														(int) (BgL_nbargsz00_184));
												}
											else
												{	/* Eval/evaluate_comp.scm 907 */
													BgL_test5229z00_22793 = ((bool_t) 0);
												}
											if (BgL_test5229z00_22793)
												{	/* Eval/evaluate_comp.scm 907 */
													return BgL_valz00_3052;
												}
											else
												{	/* Eval/evaluate_comp.scm 907 */
													return BFALSE;
												}
										}
									}
								else
									{	/* Eval/evaluate_comp.scm 905 */
										return BFALSE;
									}
							}
						else
							{	/* Eval/evaluate_comp.scm 904 */
								return BFALSE;
							}
					}
				else
					{	/* Eval/evaluate_comp.scm 910 */
						bool_t BgL_test5231z00_22798;

						{	/* Eval/evaluate_comp.scm 910 */
							bool_t BgL_test5232z00_22799;

							{	/* Eval/evaluate_comp.scm 910 */
								obj_t BgL_classz00_9121;

								BgL_classz00_9121 = BGl_ev_littz00zz__evaluate_typesz00;
								{	/* Eval/evaluate_comp.scm 910 */
									BgL_objectz00_bglt BgL_arg4295z00_9123;

									{	/* Eval/evaluate_comp.scm 910 */
										obj_t BgL_tmpz00_22800;

										BgL_tmpz00_22800 =
											((obj_t) ((BgL_objectz00_bglt) BgL_funz00_183));
										BgL_arg4295z00_9123 =
											(BgL_objectz00_bglt) (BgL_tmpz00_22800);
									}
									if (BGL_CONDEXPAND_ISA_ARCH64())
										{	/* Eval/evaluate_comp.scm 910 */
											long BgL_idxz00_9129;

											BgL_idxz00_9129 =
												BGL_OBJECT_INHERITANCE_NUM(BgL_arg4295z00_9123);
											BgL_test5232z00_22799 =
												(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
													(BgL_idxz00_9129 + 2L)) == BgL_classz00_9121);
										}
									else
										{	/* Eval/evaluate_comp.scm 910 */
											bool_t BgL_res4427z00_9154;

											{	/* Eval/evaluate_comp.scm 910 */
												obj_t BgL_oclassz00_9137;

												{	/* Eval/evaluate_comp.scm 910 */
													obj_t BgL_arg4302z00_9145;
													long BgL_arg4303z00_9146;

													BgL_arg4302z00_9145 =
														(BGl_za2classesza2z00zz__objectz00);
													{	/* Eval/evaluate_comp.scm 910 */
														long BgL_arg4304z00_9147;

														BgL_arg4304z00_9147 =
															BGL_OBJECT_CLASS_NUM(BgL_arg4295z00_9123);
														BgL_arg4303z00_9146 =
															(BgL_arg4304z00_9147 - OBJECT_TYPE);
													}
													BgL_oclassz00_9137 =
														VECTOR_REF(BgL_arg4302z00_9145,
														BgL_arg4303z00_9146);
												}
												{	/* Eval/evaluate_comp.scm 910 */
													bool_t BgL__ortest_1296z00_9138;

													BgL__ortest_1296z00_9138 =
														(BgL_classz00_9121 == BgL_oclassz00_9137);
													if (BgL__ortest_1296z00_9138)
														{	/* Eval/evaluate_comp.scm 910 */
															BgL_res4427z00_9154 = BgL__ortest_1296z00_9138;
														}
													else
														{	/* Eval/evaluate_comp.scm 910 */
															long BgL_odepthz00_9139;

															{	/* Eval/evaluate_comp.scm 910 */
																obj_t BgL_arg4292z00_9140;

																BgL_arg4292z00_9140 = (BgL_oclassz00_9137);
																BgL_odepthz00_9139 =
																	BGL_CLASS_DEPTH(BgL_arg4292z00_9140);
															}
															if ((2L < BgL_odepthz00_9139))
																{	/* Eval/evaluate_comp.scm 910 */
																	obj_t BgL_arg4290z00_9142;

																	{	/* Eval/evaluate_comp.scm 910 */
																		obj_t BgL_arg4291z00_9143;

																		BgL_arg4291z00_9143 = (BgL_oclassz00_9137);
																		BgL_arg4290z00_9142 =
																			BGL_CLASS_ANCESTORS_REF
																			(BgL_arg4291z00_9143, 2L);
																	}
																	BgL_res4427z00_9154 =
																		(BgL_arg4290z00_9142 == BgL_classz00_9121);
																}
															else
																{	/* Eval/evaluate_comp.scm 910 */
																	BgL_res4427z00_9154 = ((bool_t) 0);
																}
														}
												}
											}
											BgL_test5232z00_22799 = BgL_res4427z00_9154;
										}
								}
							}
							if (BgL_test5232z00_22799)
								{	/* Eval/evaluate_comp.scm 911 */
									obj_t BgL_tmpz00_22823;

									BgL_tmpz00_22823 =
										(((BgL_ev_littz00_bglt) COBJECT(
												((BgL_ev_littz00_bglt) BgL_funz00_183)))->BgL_valuez00);
									BgL_test5231z00_22798 = PROCEDUREP(BgL_tmpz00_22823);
								}
							else
								{	/* Eval/evaluate_comp.scm 910 */
									BgL_test5231z00_22798 = ((bool_t) 0);
								}
						}
						if (BgL_test5231z00_22798)
							{	/* Eval/evaluate_comp.scm 913 */
								bool_t BgL_test5236z00_22827;

								{	/* Eval/evaluate_comp.scm 913 */
									obj_t BgL_arg2607z00_3068;

									BgL_arg2607z00_3068 =
										(((BgL_ev_littz00_bglt) COBJECT(
												((BgL_ev_littz00_bglt) BgL_funz00_183)))->BgL_valuez00);
									BgL_test5236z00_22827 =
										PROCEDURE_CORRECT_ARITYP(BgL_arg2607z00_3068,
										(int) (BgL_nbargsz00_184));
								}
								if (BgL_test5236z00_22827)
									{	/* Eval/evaluate_comp.scm 913 */
										return
											(((BgL_ev_littz00_bglt) COBJECT(
													((BgL_ev_littz00_bglt) BgL_funz00_183)))->
											BgL_valuez00);
									}
								else
									{	/* Eval/evaluate_comp.scm 915 */
										int BgL_arg2605z00_3066;

										{	/* Eval/evaluate_comp.scm 915 */
											obj_t BgL_arg2606z00_3067;

											BgL_arg2606z00_3067 =
												(((BgL_ev_littz00_bglt) COBJECT(
														((BgL_ev_littz00_bglt) BgL_funz00_183)))->
												BgL_valuez00);
											BgL_arg2605z00_3066 =
												PROCEDURE_ARITY(BgL_arg2606z00_3067);
										}
										return
											BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_185,
											BgL_symbzd2funzd2_186, (int) (BgL_nbargsz00_184),
											BgL_arg2605z00_3066);
							}}
						else
							{	/* Eval/evaluate_comp.scm 910 */
								return BFALSE;
							}
					}
			}
		}

	}



/* compile-float-arith */
	obj_t BGl_compilezd2floatzd2arithz00zz__evaluate_compz00(obj_t
		BgL_exprz00_187, obj_t BgL_stkz00_188)
	{
		{	/* Eval/evaluate_comp.scm 918 */
			{	/* Eval/evaluate_comp.scm 925 */
				bool_t BgL_test5237z00_22839;

				{	/* Eval/evaluate_comp.scm 925 */
					obj_t BgL_classz00_9166;

					BgL_classz00_9166 = BGl_ev_littz00zz__evaluate_typesz00;
					if (BGL_OBJECTP(BgL_exprz00_187))
						{	/* Eval/evaluate_comp.scm 925 */
							BgL_objectz00_bglt BgL_arg4295z00_9168;

							BgL_arg4295z00_9168 = (BgL_objectz00_bglt) (BgL_exprz00_187);
							if (BGL_CONDEXPAND_ISA_ARCH64())
								{	/* Eval/evaluate_comp.scm 925 */
									long BgL_idxz00_9174;

									BgL_idxz00_9174 =
										BGL_OBJECT_INHERITANCE_NUM(BgL_arg4295z00_9168);
									BgL_test5237z00_22839 =
										(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
											(BgL_idxz00_9174 + 2L)) == BgL_classz00_9166);
								}
							else
								{	/* Eval/evaluate_comp.scm 925 */
									bool_t BgL_res4428z00_9199;

									{	/* Eval/evaluate_comp.scm 925 */
										obj_t BgL_oclassz00_9182;

										{	/* Eval/evaluate_comp.scm 925 */
											obj_t BgL_arg4302z00_9190;
											long BgL_arg4303z00_9191;

											BgL_arg4302z00_9190 = (BGl_za2classesza2z00zz__objectz00);
											{	/* Eval/evaluate_comp.scm 925 */
												long BgL_arg4304z00_9192;

												BgL_arg4304z00_9192 =
													BGL_OBJECT_CLASS_NUM(BgL_arg4295z00_9168);
												BgL_arg4303z00_9191 =
													(BgL_arg4304z00_9192 - OBJECT_TYPE);
											}
											BgL_oclassz00_9182 =
												VECTOR_REF(BgL_arg4302z00_9190, BgL_arg4303z00_9191);
										}
										{	/* Eval/evaluate_comp.scm 925 */
											bool_t BgL__ortest_1296z00_9183;

											BgL__ortest_1296z00_9183 =
												(BgL_classz00_9166 == BgL_oclassz00_9182);
											if (BgL__ortest_1296z00_9183)
												{	/* Eval/evaluate_comp.scm 925 */
													BgL_res4428z00_9199 = BgL__ortest_1296z00_9183;
												}
											else
												{	/* Eval/evaluate_comp.scm 925 */
													long BgL_odepthz00_9184;

													{	/* Eval/evaluate_comp.scm 925 */
														obj_t BgL_arg4292z00_9185;

														BgL_arg4292z00_9185 = (BgL_oclassz00_9182);
														BgL_odepthz00_9184 =
															BGL_CLASS_DEPTH(BgL_arg4292z00_9185);
													}
													if ((2L < BgL_odepthz00_9184))
														{	/* Eval/evaluate_comp.scm 925 */
															obj_t BgL_arg4290z00_9187;

															{	/* Eval/evaluate_comp.scm 925 */
																obj_t BgL_arg4291z00_9188;

																BgL_arg4291z00_9188 = (BgL_oclassz00_9182);
																BgL_arg4290z00_9187 =
																	BGL_CLASS_ANCESTORS_REF(BgL_arg4291z00_9188,
																	2L);
															}
															BgL_res4428z00_9199 =
																(BgL_arg4290z00_9187 == BgL_classz00_9166);
														}
													else
														{	/* Eval/evaluate_comp.scm 925 */
															BgL_res4428z00_9199 = ((bool_t) 0);
														}
												}
										}
									}
									BgL_test5237z00_22839 = BgL_res4428z00_9199;
								}
						}
					else
						{	/* Eval/evaluate_comp.scm 925 */
							BgL_test5237z00_22839 = ((bool_t) 0);
						}
				}
				if (BgL_test5237z00_22839)
					{	/* Eval/evaluate_comp.scm 925 */
						if (INTEGERP(
								(((BgL_ev_littz00_bglt) COBJECT(
											((BgL_ev_littz00_bglt) BgL_exprz00_187)))->BgL_valuez00)))
							{	/* Eval/evaluate_comp.scm 927 */
								obj_t BgL_v1379z00_3078;

								BgL_v1379z00_3078 = create_vector(2L);
								VECTOR_SET(BgL_v1379z00_3078, 0L, BINT(1L));
								{	/* Eval/evaluate_comp.scm 927 */
									double BgL_arg2612z00_3079;

									BgL_arg2612z00_3079 =
										(double) (
										(long) CINT(
											(((BgL_ev_littz00_bglt) COBJECT(
														((BgL_ev_littz00_bglt) BgL_exprz00_187)))->
												BgL_valuez00)));
									VECTOR_SET(BgL_v1379z00_3078, 1L,
										DOUBLE_TO_REAL(BgL_arg2612z00_3079));
								}
								return BgL_v1379z00_3078;
							}
						else
							{	/* Eval/evaluate_comp.scm 928 */
								bool_t BgL_test5243z00_22875;

								{	/* Eval/evaluate_comp.scm 928 */
									obj_t BgL_tmpz00_22876;

									BgL_tmpz00_22876 =
										(((BgL_ev_littz00_bglt) COBJECT(
												((BgL_ev_littz00_bglt) BgL_exprz00_187)))->
										BgL_valuez00);
									BgL_test5243z00_22875 = REALP(BgL_tmpz00_22876);
								}
								if (BgL_test5243z00_22875)
									{	/* Eval/evaluate_comp.scm 928 */
										obj_t BgL_v1380z00_3083;

										BgL_v1380z00_3083 = create_vector(2L);
										VECTOR_SET(BgL_v1380z00_3083, 0L, BINT(1L));
										{	/* Eval/evaluate_comp.scm 928 */
											obj_t BgL_arg2617z00_3084;

											BgL_arg2617z00_3084 =
												(((BgL_ev_littz00_bglt) COBJECT(
														((BgL_ev_littz00_bglt) BgL_exprz00_187)))->
												BgL_valuez00);
											VECTOR_SET(BgL_v1380z00_3083, 1L, BgL_arg2617z00_3084);
										}
										return BgL_v1380z00_3083;
									}
								else
									{	/* Eval/evaluate_comp.scm 929 */
										obj_t BgL_v1381z00_3085;

										BgL_v1381z00_3085 = create_vector(2L);
										VECTOR_SET(BgL_v1381z00_3085, 0L, BINT(0L));
										{	/* Eval/evaluate_comp.scm 929 */
											obj_t BgL_arg2618z00_3086;

											BgL_arg2618z00_3086 =
												BGl_compz00zz__evaluate_compz00(
												((BgL_ev_exprz00_bglt) BgL_exprz00_187),
												BgL_stkz00_188);
											VECTOR_SET(BgL_v1381z00_3085, 1L, BgL_arg2618z00_3086);
										}
										return BgL_v1381z00_3085;
									}
							}
					}
				else
					{	/* Eval/evaluate_comp.scm 930 */
						bool_t BgL_test5244z00_22892;

						{	/* Eval/evaluate_comp.scm 930 */
							obj_t BgL_classz00_9207;

							BgL_classz00_9207 = BGl_ev_varz00zz__evaluate_typesz00;
							if (BGL_OBJECTP(BgL_exprz00_187))
								{	/* Eval/evaluate_comp.scm 930 */
									BgL_objectz00_bglt BgL_arg4295z00_9209;

									BgL_arg4295z00_9209 = (BgL_objectz00_bglt) (BgL_exprz00_187);
									if (BGL_CONDEXPAND_ISA_ARCH64())
										{	/* Eval/evaluate_comp.scm 930 */
											long BgL_idxz00_9215;

											BgL_idxz00_9215 =
												BGL_OBJECT_INHERITANCE_NUM(BgL_arg4295z00_9209);
											BgL_test5244z00_22892 =
												(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
													(BgL_idxz00_9215 + 2L)) == BgL_classz00_9207);
										}
									else
										{	/* Eval/evaluate_comp.scm 930 */
											bool_t BgL_res4429z00_9240;

											{	/* Eval/evaluate_comp.scm 930 */
												obj_t BgL_oclassz00_9223;

												{	/* Eval/evaluate_comp.scm 930 */
													obj_t BgL_arg4302z00_9231;
													long BgL_arg4303z00_9232;

													BgL_arg4302z00_9231 =
														(BGl_za2classesza2z00zz__objectz00);
													{	/* Eval/evaluate_comp.scm 930 */
														long BgL_arg4304z00_9233;

														BgL_arg4304z00_9233 =
															BGL_OBJECT_CLASS_NUM(BgL_arg4295z00_9209);
														BgL_arg4303z00_9232 =
															(BgL_arg4304z00_9233 - OBJECT_TYPE);
													}
													BgL_oclassz00_9223 =
														VECTOR_REF(BgL_arg4302z00_9231,
														BgL_arg4303z00_9232);
												}
												{	/* Eval/evaluate_comp.scm 930 */
													bool_t BgL__ortest_1296z00_9224;

													BgL__ortest_1296z00_9224 =
														(BgL_classz00_9207 == BgL_oclassz00_9223);
													if (BgL__ortest_1296z00_9224)
														{	/* Eval/evaluate_comp.scm 930 */
															BgL_res4429z00_9240 = BgL__ortest_1296z00_9224;
														}
													else
														{	/* Eval/evaluate_comp.scm 930 */
															long BgL_odepthz00_9225;

															{	/* Eval/evaluate_comp.scm 930 */
																obj_t BgL_arg4292z00_9226;

																BgL_arg4292z00_9226 = (BgL_oclassz00_9223);
																BgL_odepthz00_9225 =
																	BGL_CLASS_DEPTH(BgL_arg4292z00_9226);
															}
															if ((2L < BgL_odepthz00_9225))
																{	/* Eval/evaluate_comp.scm 930 */
																	obj_t BgL_arg4290z00_9228;

																	{	/* Eval/evaluate_comp.scm 930 */
																		obj_t BgL_arg4291z00_9229;

																		BgL_arg4291z00_9229 = (BgL_oclassz00_9223);
																		BgL_arg4290z00_9228 =
																			BGL_CLASS_ANCESTORS_REF
																			(BgL_arg4291z00_9229, 2L);
																	}
																	BgL_res4429z00_9240 =
																		(BgL_arg4290z00_9228 == BgL_classz00_9207);
																}
															else
																{	/* Eval/evaluate_comp.scm 930 */
																	BgL_res4429z00_9240 = ((bool_t) 0);
																}
														}
												}
											}
											BgL_test5244z00_22892 = BgL_res4429z00_9240;
										}
								}
							else
								{	/* Eval/evaluate_comp.scm 930 */
									BgL_test5244z00_22892 = ((bool_t) 0);
								}
						}
						if (BgL_test5244z00_22892)
							{	/* Eval/evaluate_comp.scm 930 */
								if (CBOOL(
										(((BgL_ev_varz00_bglt) COBJECT(
													((BgL_ev_varz00_bglt) BgL_exprz00_187)))->
											BgL_effz00)))
									{	/* Eval/evaluate_comp.scm 933 */
										obj_t BgL_v1382z00_3092;

										BgL_v1382z00_3092 = create_vector(2L);
										VECTOR_SET(BgL_v1382z00_3092, 0L, BINT(3L));
										VECTOR_SET(BgL_v1382z00_3092, 1L,
											BGl__indexz00zz__evaluate_compz00(BgL_exprz00_187,
												BgL_stkz00_188));
										return BgL_v1382z00_3092;
									}
								else
									{	/* Eval/evaluate_comp.scm 934 */
										obj_t BgL_v1383z00_3094;

										BgL_v1383z00_3094 = create_vector(2L);
										VECTOR_SET(BgL_v1383z00_3094, 0L, BINT(2L));
										VECTOR_SET(BgL_v1383z00_3094, 1L,
											BGl__indexz00zz__evaluate_compz00(BgL_exprz00_187,
												BgL_stkz00_188));
										return BgL_v1383z00_3094;
									}
							}
						else
							{	/* Eval/evaluate_comp.scm 935 */
								bool_t BgL_test5250z00_22929;

								{	/* Eval/evaluate_comp.scm 935 */
									obj_t BgL_classz00_9245;

									BgL_classz00_9245 = BGl_ev_globalz00zz__evaluate_typesz00;
									if (BGL_OBJECTP(BgL_exprz00_187))
										{	/* Eval/evaluate_comp.scm 935 */
											BgL_objectz00_bglt BgL_arg4295z00_9247;

											BgL_arg4295z00_9247 =
												(BgL_objectz00_bglt) (BgL_exprz00_187);
											if (BGL_CONDEXPAND_ISA_ARCH64())
												{	/* Eval/evaluate_comp.scm 935 */
													long BgL_idxz00_9253;

													BgL_idxz00_9253 =
														BGL_OBJECT_INHERITANCE_NUM(BgL_arg4295z00_9247);
													BgL_test5250z00_22929 =
														(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
															(BgL_idxz00_9253 + 2L)) == BgL_classz00_9245);
												}
											else
												{	/* Eval/evaluate_comp.scm 935 */
													bool_t BgL_res4430z00_9278;

													{	/* Eval/evaluate_comp.scm 935 */
														obj_t BgL_oclassz00_9261;

														{	/* Eval/evaluate_comp.scm 935 */
															obj_t BgL_arg4302z00_9269;
															long BgL_arg4303z00_9270;

															BgL_arg4302z00_9269 =
																(BGl_za2classesza2z00zz__objectz00);
															{	/* Eval/evaluate_comp.scm 935 */
																long BgL_arg4304z00_9271;

																BgL_arg4304z00_9271 =
																	BGL_OBJECT_CLASS_NUM(BgL_arg4295z00_9247);
																BgL_arg4303z00_9270 =
																	(BgL_arg4304z00_9271 - OBJECT_TYPE);
															}
															BgL_oclassz00_9261 =
																VECTOR_REF(BgL_arg4302z00_9269,
																BgL_arg4303z00_9270);
														}
														{	/* Eval/evaluate_comp.scm 935 */
															bool_t BgL__ortest_1296z00_9262;

															BgL__ortest_1296z00_9262 =
																(BgL_classz00_9245 == BgL_oclassz00_9261);
															if (BgL__ortest_1296z00_9262)
																{	/* Eval/evaluate_comp.scm 935 */
																	BgL_res4430z00_9278 =
																		BgL__ortest_1296z00_9262;
																}
															else
																{	/* Eval/evaluate_comp.scm 935 */
																	long BgL_odepthz00_9263;

																	{	/* Eval/evaluate_comp.scm 935 */
																		obj_t BgL_arg4292z00_9264;

																		BgL_arg4292z00_9264 = (BgL_oclassz00_9261);
																		BgL_odepthz00_9263 =
																			BGL_CLASS_DEPTH(BgL_arg4292z00_9264);
																	}
																	if ((2L < BgL_odepthz00_9263))
																		{	/* Eval/evaluate_comp.scm 935 */
																			obj_t BgL_arg4290z00_9266;

																			{	/* Eval/evaluate_comp.scm 935 */
																				obj_t BgL_arg4291z00_9267;

																				BgL_arg4291z00_9267 =
																					(BgL_oclassz00_9261);
																				BgL_arg4290z00_9266 =
																					BGL_CLASS_ANCESTORS_REF
																					(BgL_arg4291z00_9267, 2L);
																			}
																			BgL_res4430z00_9278 =
																				(BgL_arg4290z00_9266 ==
																				BgL_classz00_9245);
																		}
																	else
																		{	/* Eval/evaluate_comp.scm 935 */
																			BgL_res4430z00_9278 = ((bool_t) 0);
																		}
																}
														}
													}
													BgL_test5250z00_22929 = BgL_res4430z00_9278;
												}
										}
									else
										{	/* Eval/evaluate_comp.scm 935 */
											BgL_test5250z00_22929 = ((bool_t) 0);
										}
								}
								if (BgL_test5250z00_22929)
									{	/* Eval/evaluate_comp.scm 937 */
										obj_t BgL_gz00_3098;

										{	/* Eval/evaluate_comp.scm 937 */
											obj_t BgL_arg2632z00_3106;
											obj_t BgL_arg2634z00_3107;

											BgL_arg2632z00_3106 =
												(((BgL_ev_globalz00_bglt) COBJECT(
														((BgL_ev_globalz00_bglt) BgL_exprz00_187)))->
												BgL_modz00);
											BgL_arg2634z00_3107 =
												(((BgL_ev_globalz00_bglt)
													COBJECT(((BgL_ev_globalz00_bglt) BgL_exprz00_187)))->
												BgL_namez00);
											BgL_gz00_3098 =
												BGl_evmodulezd2findzd2globalz00zz__evmodulez00
												(BgL_arg2632z00_3106, BgL_arg2634z00_3107);
										}
										if (CBOOL(BgL_gz00_3098))
											{	/* Eval/evaluate_comp.scm 939 */
												bool_t BgL_test5256z00_22959;

												{	/* Eval/evaluate_comp.scm 939 */
													int BgL_arg2630z00_3103;

													{	/* Eval/evaluate_comp.scm 939 */
														int BgL_res4431z00_9281;

														BgL_res4431z00_9281 =
															CINT(VECTOR_REF(((obj_t) BgL_gz00_3098), 0L));
														BgL_arg2630z00_3103 = BgL_res4431z00_9281;
													}
													BgL_test5256z00_22959 =
														(BINT(BgL_arg2630z00_3103) == BINT(1L));
												}
												if (BgL_test5256z00_22959)
													{	/* Eval/evaluate_comp.scm 940 */
														obj_t BgL_v1384z00_3101;

														BgL_v1384z00_3101 = create_vector(2L);
														VECTOR_SET(BgL_v1384z00_3101, 0L, BINT(4L));
														VECTOR_SET(BgL_v1384z00_3101, 1L, BgL_gz00_3098);
														return BgL_v1384z00_3101;
													}
												else
													{	/* Eval/evaluate_comp.scm 941 */
														obj_t BgL_v1385z00_3102;

														BgL_v1385z00_3102 = create_vector(2L);
														VECTOR_SET(BgL_v1385z00_3102, 0L, BINT(5L));
														VECTOR_SET(BgL_v1385z00_3102, 1L, BgL_gz00_3098);
														return BgL_v1385z00_3102;
													}
											}
										else
											{	/* Eval/evaluate_comp.scm 942 */
												obj_t BgL_v1386z00_3104;

												BgL_v1386z00_3104 = create_vector(2L);
												VECTOR_SET(BgL_v1386z00_3104, 0L, BINT(0L));
												{	/* Eval/evaluate_comp.scm 942 */
													obj_t BgL_arg2631z00_3105;

													BgL_arg2631z00_3105 =
														BGl_compz00zz__evaluate_compz00(
														((BgL_ev_exprz00_bglt) BgL_exprz00_187),
														BgL_stkz00_188);
													VECTOR_SET(BgL_v1386z00_3104, 1L,
														BgL_arg2631z00_3105);
												}
												return BgL_v1386z00_3104;
											}
									}
								else
									{	/* Eval/evaluate_comp.scm 943 */
										bool_t BgL_test5257z00_22980;

										{	/* Eval/evaluate_comp.scm 943 */
											obj_t BgL_classz00_9288;

											BgL_classz00_9288 = BGl_ev_appz00zz__evaluate_typesz00;
											if (BGL_OBJECTP(BgL_exprz00_187))
												{	/* Eval/evaluate_comp.scm 943 */
													BgL_objectz00_bglt BgL_arg4295z00_9290;

													BgL_arg4295z00_9290 =
														(BgL_objectz00_bglt) (BgL_exprz00_187);
													if (BGL_CONDEXPAND_ISA_ARCH64())
														{	/* Eval/evaluate_comp.scm 943 */
															long BgL_idxz00_9296;

															BgL_idxz00_9296 =
																BGL_OBJECT_INHERITANCE_NUM(BgL_arg4295z00_9290);
															BgL_test5257z00_22980 =
																(VECTOR_REF
																(BGl_za2inheritancesza2z00zz__objectz00,
																	(BgL_idxz00_9296 + 2L)) == BgL_classz00_9288);
														}
													else
														{	/* Eval/evaluate_comp.scm 943 */
															bool_t BgL_res4432z00_9321;

															{	/* Eval/evaluate_comp.scm 943 */
																obj_t BgL_oclassz00_9304;

																{	/* Eval/evaluate_comp.scm 943 */
																	obj_t BgL_arg4302z00_9312;
																	long BgL_arg4303z00_9313;

																	BgL_arg4302z00_9312 =
																		(BGl_za2classesza2z00zz__objectz00);
																	{	/* Eval/evaluate_comp.scm 943 */
																		long BgL_arg4304z00_9314;

																		BgL_arg4304z00_9314 =
																			BGL_OBJECT_CLASS_NUM(BgL_arg4295z00_9290);
																		BgL_arg4303z00_9313 =
																			(BgL_arg4304z00_9314 - OBJECT_TYPE);
																	}
																	BgL_oclassz00_9304 =
																		VECTOR_REF(BgL_arg4302z00_9312,
																		BgL_arg4303z00_9313);
																}
																{	/* Eval/evaluate_comp.scm 943 */
																	bool_t BgL__ortest_1296z00_9305;

																	BgL__ortest_1296z00_9305 =
																		(BgL_classz00_9288 == BgL_oclassz00_9304);
																	if (BgL__ortest_1296z00_9305)
																		{	/* Eval/evaluate_comp.scm 943 */
																			BgL_res4432z00_9321 =
																				BgL__ortest_1296z00_9305;
																		}
																	else
																		{	/* Eval/evaluate_comp.scm 943 */
																			long BgL_odepthz00_9306;

																			{	/* Eval/evaluate_comp.scm 943 */
																				obj_t BgL_arg4292z00_9307;

																				BgL_arg4292z00_9307 =
																					(BgL_oclassz00_9304);
																				BgL_odepthz00_9306 =
																					BGL_CLASS_DEPTH(BgL_arg4292z00_9307);
																			}
																			if ((2L < BgL_odepthz00_9306))
																				{	/* Eval/evaluate_comp.scm 943 */
																					obj_t BgL_arg4290z00_9309;

																					{	/* Eval/evaluate_comp.scm 943 */
																						obj_t BgL_arg4291z00_9310;

																						BgL_arg4291z00_9310 =
																							(BgL_oclassz00_9304);
																						BgL_arg4290z00_9309 =
																							BGL_CLASS_ANCESTORS_REF
																							(BgL_arg4291z00_9310, 2L);
																					}
																					BgL_res4432z00_9321 =
																						(BgL_arg4290z00_9309 ==
																						BgL_classz00_9288);
																				}
																			else
																				{	/* Eval/evaluate_comp.scm 943 */
																					BgL_res4432z00_9321 = ((bool_t) 0);
																				}
																		}
																}
															}
															BgL_test5257z00_22980 = BgL_res4432z00_9321;
														}
												}
											else
												{	/* Eval/evaluate_comp.scm 943 */
													BgL_test5257z00_22980 = ((bool_t) 0);
												}
										}
										if (BgL_test5257z00_22980)
											{	/* Eval/evaluate_comp.scm 945 */
												obj_t BgL_fvalz00_3110;

												{	/* Eval/evaluate_comp.scm 945 */
													BgL_ev_exprz00_bglt BgL_arg2725z00_3164;

													BgL_arg2725z00_3164 =
														(((BgL_ev_appz00_bglt) COBJECT(
																((BgL_ev_appz00_bglt) BgL_exprz00_187)))->
														BgL_funz00);
													BgL_fvalz00_3110 =
														BGl_globalzd2funzd2valuez00zz__evaluate_compz00
														(BgL_arg2725z00_3164);
												}
												if (
													(BgL_fvalz00_3110 ==
														BGl_zb2flzd2envz60zz__r4_numbers_6_5_flonumz00))
													{	/* Eval/evaluate_comp.scm 947 */
														{	/* Eval/evaluate_comp.scm 948 */
															obj_t BgL_arg2636z00_3111;
															BgL_ev_exprz00_bglt BgL_arg2638z00_3112;
															obj_t BgL_arg2640z00_3113;

															BgL_arg2636z00_3111 =
																(((BgL_ev_appz00_bglt) COBJECT(
																		((BgL_ev_appz00_bglt) BgL_exprz00_187)))->
																BgL_locz00);
															BgL_arg2638z00_3112 =
																(((BgL_ev_appz00_bglt)
																	COBJECT(((BgL_ev_appz00_bglt)
																			BgL_exprz00_187)))->BgL_funz00);
															BgL_arg2640z00_3113 =
																(((BgL_ev_appz00_bglt)
																	COBJECT(((BgL_ev_appz00_bglt)
																			BgL_exprz00_187)))->BgL_argsz00);
															{	/* Eval/evaluate_comp.scm 921 */
																bool_t BgL_test5263z00_23014;

																if (PAIRP(BgL_arg2640z00_3113))
																	{	/* Eval/evaluate_comp.scm 921 */
																		bool_t BgL_test5265z00_23017;

																		{	/* Eval/evaluate_comp.scm 921 */
																			obj_t BgL_tmpz00_23018;

																			BgL_tmpz00_23018 =
																				CDR(BgL_arg2640z00_3113);
																			BgL_test5265z00_23017 =
																				PAIRP(BgL_tmpz00_23018);
																		}
																		if (BgL_test5265z00_23017)
																			{	/* Eval/evaluate_comp.scm 921 */
																				BgL_test5263z00_23014 =
																					NULLP(CDR(CDR(BgL_arg2640z00_3113)));
																			}
																		else
																			{	/* Eval/evaluate_comp.scm 921 */
																				BgL_test5263z00_23014 = ((bool_t) 0);
																			}
																	}
																else
																	{	/* Eval/evaluate_comp.scm 921 */
																		BgL_test5263z00_23014 = ((bool_t) 0);
																	}
																if (BgL_test5263z00_23014)
																	{	/* Eval/evaluate_comp.scm 921 */
																		BFALSE;
																	}
																else
																	{	/* Eval/evaluate_comp.scm 922 */
																		long BgL_arg2735z00_9327;

																		BgL_arg2735z00_9327 =
																			bgl_list_length(BgL_arg2640z00_3113);
																		BGl_evarityzd2errorzd2zz__everrorz00
																			(BgL_arg2636z00_3111,
																			((obj_t) BgL_arg2638z00_3112), (int) (2L),
																			(int) (BgL_arg2735z00_9327));
														}}}
														{	/* Eval/evaluate_comp.scm 949 */
															obj_t BgL_v1387z00_3114;

															BgL_v1387z00_3114 = create_vector(3L);
															VECTOR_SET(BgL_v1387z00_3114, 0L, BINT(6L));
															{	/* Eval/evaluate_comp.scm 949 */
																obj_t BgL_arg2641z00_3115;

																{	/* Eval/evaluate_comp.scm 949 */
																	obj_t BgL_arg2642z00_3116;

																	{	/* Eval/evaluate_comp.scm 949 */
																		obj_t BgL_pairz00_9334;

																		BgL_pairz00_9334 =
																			(((BgL_ev_appz00_bglt) COBJECT(
																					((BgL_ev_appz00_bglt)
																						BgL_exprz00_187)))->BgL_argsz00);
																		BgL_arg2642z00_3116 = CAR(BgL_pairz00_9334);
																	}
																	BgL_arg2641z00_3115 =
																		BGl_compilezd2floatzd2arithz00zz__evaluate_compz00
																		(BgL_arg2642z00_3116, BgL_stkz00_188);
																}
																VECTOR_SET(BgL_v1387z00_3114, 1L,
																	BgL_arg2641z00_3115);
															}
															{	/* Eval/evaluate_comp.scm 949 */
																obj_t BgL_arg2645z00_3118;

																{	/* Eval/evaluate_comp.scm 949 */
																	obj_t BgL_arg2647z00_3119;

																	{	/* Eval/evaluate_comp.scm 949 */
																		obj_t BgL_pairz00_9336;

																		BgL_pairz00_9336 =
																			(((BgL_ev_appz00_bglt) COBJECT(
																					((BgL_ev_appz00_bglt)
																						BgL_exprz00_187)))->BgL_argsz00);
																		BgL_arg2647z00_3119 =
																			CAR(CDR(BgL_pairz00_9336));
																	}
																	BgL_arg2645z00_3118 =
																		BGl_compilezd2floatzd2arithz00zz__evaluate_compz00
																		(BgL_arg2647z00_3119, BgL_stkz00_188);
																}
																VECTOR_SET(BgL_v1387z00_3114, 2L,
																	BgL_arg2645z00_3118);
															}
															return BgL_v1387z00_3114;
														}
													}
												else
													{	/* Eval/evaluate_comp.scm 947 */
														if (
															(BgL_fvalz00_3110 ==
																BGl_zd2flzd2envz00zz__r4_numbers_6_5_flonumz00))
															{	/* Eval/evaluate_comp.scm 950 */
																{	/* Eval/evaluate_comp.scm 951 */
																	obj_t BgL_arg2650z00_3121;
																	BgL_ev_exprz00_bglt BgL_arg2651z00_3122;
																	obj_t BgL_arg2654z00_3123;

																	BgL_arg2650z00_3121 =
																		(((BgL_ev_appz00_bglt) COBJECT(
																				((BgL_ev_appz00_bglt)
																					BgL_exprz00_187)))->BgL_locz00);
																	BgL_arg2651z00_3122 =
																		(((BgL_ev_appz00_bglt)
																			COBJECT(((BgL_ev_appz00_bglt)
																					BgL_exprz00_187)))->BgL_funz00);
																	BgL_arg2654z00_3123 =
																		(((BgL_ev_appz00_bglt)
																			COBJECT(((BgL_ev_appz00_bglt)
																					BgL_exprz00_187)))->BgL_argsz00);
																	{	/* Eval/evaluate_comp.scm 921 */
																		bool_t BgL_test5267z00_23051;

																		if (PAIRP(BgL_arg2654z00_3123))
																			{	/* Eval/evaluate_comp.scm 921 */
																				bool_t BgL_test5269z00_23054;

																				{	/* Eval/evaluate_comp.scm 921 */
																					obj_t BgL_tmpz00_23055;

																					BgL_tmpz00_23055 =
																						CDR(BgL_arg2654z00_3123);
																					BgL_test5269z00_23054 =
																						PAIRP(BgL_tmpz00_23055);
																				}
																				if (BgL_test5269z00_23054)
																					{	/* Eval/evaluate_comp.scm 921 */
																						BgL_test5267z00_23051 =
																							NULLP(CDR(CDR
																								(BgL_arg2654z00_3123)));
																					}
																				else
																					{	/* Eval/evaluate_comp.scm 921 */
																						BgL_test5267z00_23051 =
																							((bool_t) 0);
																					}
																			}
																		else
																			{	/* Eval/evaluate_comp.scm 921 */
																				BgL_test5267z00_23051 = ((bool_t) 0);
																			}
																		if (BgL_test5267z00_23051)
																			{	/* Eval/evaluate_comp.scm 921 */
																				BFALSE;
																			}
																		else
																			{	/* Eval/evaluate_comp.scm 922 */
																				long BgL_arg2735z00_9346;

																				BgL_arg2735z00_9346 =
																					bgl_list_length(BgL_arg2654z00_3123);
																				BGl_evarityzd2errorzd2zz__everrorz00
																					(BgL_arg2650z00_3121,
																					((obj_t) BgL_arg2651z00_3122),
																					(int) (2L),
																					(int) (BgL_arg2735z00_9346));
																}}}
																{	/* Eval/evaluate_comp.scm 952 */
																	obj_t BgL_v1388z00_3124;

																	BgL_v1388z00_3124 = create_vector(3L);
																	VECTOR_SET(BgL_v1388z00_3124, 0L, BINT(7L));
																	{	/* Eval/evaluate_comp.scm 952 */
																		obj_t BgL_arg2659z00_3125;

																		{	/* Eval/evaluate_comp.scm 952 */
																			obj_t BgL_arg2663z00_3126;

																			{	/* Eval/evaluate_comp.scm 952 */
																				obj_t BgL_pairz00_9353;

																				BgL_pairz00_9353 =
																					(((BgL_ev_appz00_bglt) COBJECT(
																							((BgL_ev_appz00_bglt)
																								BgL_exprz00_187)))->
																					BgL_argsz00);
																				BgL_arg2663z00_3126 =
																					CAR(BgL_pairz00_9353);
																			}
																			BgL_arg2659z00_3125 =
																				BGl_compilezd2floatzd2arithz00zz__evaluate_compz00
																				(BgL_arg2663z00_3126, BgL_stkz00_188);
																		}
																		VECTOR_SET(BgL_v1388z00_3124, 1L,
																			BgL_arg2659z00_3125);
																	}
																	{	/* Eval/evaluate_comp.scm 952 */
																		obj_t BgL_arg2669z00_3128;

																		{	/* Eval/evaluate_comp.scm 952 */
																			obj_t BgL_arg2671z00_3129;

																			{	/* Eval/evaluate_comp.scm 952 */
																				obj_t BgL_pairz00_9355;

																				BgL_pairz00_9355 =
																					(((BgL_ev_appz00_bglt) COBJECT(
																							((BgL_ev_appz00_bglt)
																								BgL_exprz00_187)))->
																					BgL_argsz00);
																				BgL_arg2671z00_3129 =
																					CAR(CDR(BgL_pairz00_9355));
																			}
																			BgL_arg2669z00_3128 =
																				BGl_compilezd2floatzd2arithz00zz__evaluate_compz00
																				(BgL_arg2671z00_3129, BgL_stkz00_188);
																		}
																		VECTOR_SET(BgL_v1388z00_3124, 2L,
																			BgL_arg2669z00_3128);
																	}
																	return BgL_v1388z00_3124;
																}
															}
														else
															{	/* Eval/evaluate_comp.scm 950 */
																if (
																	(BgL_fvalz00_3110 ==
																		BGl_za2flzd2envz70zz__r4_numbers_6_5_flonumz00))
																	{	/* Eval/evaluate_comp.scm 953 */
																		{	/* Eval/evaluate_comp.scm 954 */
																			obj_t BgL_arg2673z00_3131;
																			BgL_ev_exprz00_bglt BgL_arg2674z00_3132;
																			obj_t BgL_arg2675z00_3133;

																			BgL_arg2673z00_3131 =
																				(((BgL_ev_appz00_bglt) COBJECT(
																						((BgL_ev_appz00_bglt)
																							BgL_exprz00_187)))->BgL_locz00);
																			BgL_arg2674z00_3132 =
																				(((BgL_ev_appz00_bglt)
																					COBJECT(((BgL_ev_appz00_bglt)
																							BgL_exprz00_187)))->BgL_funz00);
																			BgL_arg2675z00_3133 =
																				(((BgL_ev_appz00_bglt)
																					COBJECT(((BgL_ev_appz00_bglt)
																							BgL_exprz00_187)))->BgL_argsz00);
																			{	/* Eval/evaluate_comp.scm 921 */
																				bool_t BgL_test5271z00_23088;

																				if (PAIRP(BgL_arg2675z00_3133))
																					{	/* Eval/evaluate_comp.scm 921 */
																						bool_t BgL_test5273z00_23091;

																						{	/* Eval/evaluate_comp.scm 921 */
																							obj_t BgL_tmpz00_23092;

																							BgL_tmpz00_23092 =
																								CDR(BgL_arg2675z00_3133);
																							BgL_test5273z00_23091 =
																								PAIRP(BgL_tmpz00_23092);
																						}
																						if (BgL_test5273z00_23091)
																							{	/* Eval/evaluate_comp.scm 921 */
																								BgL_test5271z00_23088 =
																									NULLP(CDR(CDR
																										(BgL_arg2675z00_3133)));
																							}
																						else
																							{	/* Eval/evaluate_comp.scm 921 */
																								BgL_test5271z00_23088 =
																									((bool_t) 0);
																							}
																					}
																				else
																					{	/* Eval/evaluate_comp.scm 921 */
																						BgL_test5271z00_23088 =
																							((bool_t) 0);
																					}
																				if (BgL_test5271z00_23088)
																					{	/* Eval/evaluate_comp.scm 921 */
																						BFALSE;
																					}
																				else
																					{	/* Eval/evaluate_comp.scm 922 */
																						long BgL_arg2735z00_9365;

																						BgL_arg2735z00_9365 =
																							bgl_list_length
																							(BgL_arg2675z00_3133);
																						BGl_evarityzd2errorzd2zz__everrorz00
																							(BgL_arg2673z00_3131,
																							((obj_t) BgL_arg2674z00_3132),
																							(int) (2L),
																							(int) (BgL_arg2735z00_9365));
																		}}}
																		{	/* Eval/evaluate_comp.scm 955 */
																			obj_t BgL_v1389z00_3134;

																			BgL_v1389z00_3134 = create_vector(3L);
																			VECTOR_SET(BgL_v1389z00_3134, 0L,
																				BINT(8L));
																			{	/* Eval/evaluate_comp.scm 955 */
																				obj_t BgL_arg2676z00_3135;

																				{	/* Eval/evaluate_comp.scm 955 */
																					obj_t BgL_arg2677z00_3136;

																					{	/* Eval/evaluate_comp.scm 955 */
																						obj_t BgL_pairz00_9372;

																						BgL_pairz00_9372 =
																							(((BgL_ev_appz00_bglt) COBJECT(
																									((BgL_ev_appz00_bglt)
																										BgL_exprz00_187)))->
																							BgL_argsz00);
																						BgL_arg2677z00_3136 =
																							CAR(BgL_pairz00_9372);
																					}
																					BgL_arg2676z00_3135 =
																						BGl_compilezd2floatzd2arithz00zz__evaluate_compz00
																						(BgL_arg2677z00_3136,
																						BgL_stkz00_188);
																				}
																				VECTOR_SET(BgL_v1389z00_3134, 1L,
																					BgL_arg2676z00_3135);
																			}
																			{	/* Eval/evaluate_comp.scm 955 */
																				obj_t BgL_arg2680z00_3138;

																				{	/* Eval/evaluate_comp.scm 955 */
																					obj_t BgL_arg2681z00_3139;

																					{	/* Eval/evaluate_comp.scm 955 */
																						obj_t BgL_pairz00_9374;

																						BgL_pairz00_9374 =
																							(((BgL_ev_appz00_bglt) COBJECT(
																									((BgL_ev_appz00_bglt)
																										BgL_exprz00_187)))->
																							BgL_argsz00);
																						BgL_arg2681z00_3139 =
																							CAR(CDR(BgL_pairz00_9374));
																					}
																					BgL_arg2680z00_3138 =
																						BGl_compilezd2floatzd2arithz00zz__evaluate_compz00
																						(BgL_arg2681z00_3139,
																						BgL_stkz00_188);
																				}
																				VECTOR_SET(BgL_v1389z00_3134, 2L,
																					BgL_arg2680z00_3138);
																			}
																			return BgL_v1389z00_3134;
																		}
																	}
																else
																	{	/* Eval/evaluate_comp.scm 953 */
																		if (
																			(BgL_fvalz00_3110 ==
																				BGl_zf2flzd2envz20zz__r4_numbers_6_5_flonumz00))
																			{	/* Eval/evaluate_comp.scm 956 */
																				{	/* Eval/evaluate_comp.scm 957 */
																					obj_t BgL_arg2683z00_3141;
																					BgL_ev_exprz00_bglt
																						BgL_arg2684z00_3142;
																					obj_t BgL_arg2686z00_3143;

																					BgL_arg2683z00_3141 =
																						(((BgL_ev_appz00_bglt) COBJECT(
																								((BgL_ev_appz00_bglt)
																									BgL_exprz00_187)))->
																						BgL_locz00);
																					BgL_arg2684z00_3142 =
																						(((BgL_ev_appz00_bglt)
																							COBJECT(((BgL_ev_appz00_bglt)
																									BgL_exprz00_187)))->
																						BgL_funz00);
																					BgL_arg2686z00_3143 =
																						(((BgL_ev_appz00_bglt)
																							COBJECT(((BgL_ev_appz00_bglt)
																									BgL_exprz00_187)))->
																						BgL_argsz00);
																					{	/* Eval/evaluate_comp.scm 921 */
																						bool_t BgL_test5275z00_23125;

																						if (PAIRP(BgL_arg2686z00_3143))
																							{	/* Eval/evaluate_comp.scm 921 */
																								bool_t BgL_test5277z00_23128;

																								{	/* Eval/evaluate_comp.scm 921 */
																									obj_t BgL_tmpz00_23129;

																									BgL_tmpz00_23129 =
																										CDR(BgL_arg2686z00_3143);
																									BgL_test5277z00_23128 =
																										PAIRP(BgL_tmpz00_23129);
																								}
																								if (BgL_test5277z00_23128)
																									{	/* Eval/evaluate_comp.scm 921 */
																										BgL_test5275z00_23125 =
																											NULLP(CDR(CDR
																												(BgL_arg2686z00_3143)));
																									}
																								else
																									{	/* Eval/evaluate_comp.scm 921 */
																										BgL_test5275z00_23125 =
																											((bool_t) 0);
																									}
																							}
																						else
																							{	/* Eval/evaluate_comp.scm 921 */
																								BgL_test5275z00_23125 =
																									((bool_t) 0);
																							}
																						if (BgL_test5275z00_23125)
																							{	/* Eval/evaluate_comp.scm 921 */
																								BFALSE;
																							}
																						else
																							{	/* Eval/evaluate_comp.scm 922 */
																								long BgL_arg2735z00_9384;

																								BgL_arg2735z00_9384 =
																									bgl_list_length
																									(BgL_arg2686z00_3143);
																								BGl_evarityzd2errorzd2zz__everrorz00
																									(BgL_arg2683z00_3141,
																									((obj_t) BgL_arg2684z00_3142),
																									(int) (2L),
																									(int) (BgL_arg2735z00_9384));
																				}}}
																				{	/* Eval/evaluate_comp.scm 958 */
																					obj_t BgL_v1390z00_3144;

																					BgL_v1390z00_3144 = create_vector(3L);
																					VECTOR_SET(BgL_v1390z00_3144, 0L,
																						BINT(9L));
																					{	/* Eval/evaluate_comp.scm 958 */
																						obj_t BgL_arg2687z00_3145;

																						{	/* Eval/evaluate_comp.scm 958 */
																							obj_t BgL_arg2689z00_3146;

																							{	/* Eval/evaluate_comp.scm 958 */
																								obj_t BgL_pairz00_9391;

																								BgL_pairz00_9391 =
																									(((BgL_ev_appz00_bglt)
																										COBJECT((
																												(BgL_ev_appz00_bglt)
																												BgL_exprz00_187)))->
																									BgL_argsz00);
																								BgL_arg2689z00_3146 =
																									CAR(BgL_pairz00_9391);
																							}
																							BgL_arg2687z00_3145 =
																								BGl_compilezd2floatzd2arithz00zz__evaluate_compz00
																								(BgL_arg2689z00_3146,
																								BgL_stkz00_188);
																						}
																						VECTOR_SET(BgL_v1390z00_3144, 1L,
																							BgL_arg2687z00_3145);
																					}
																					{	/* Eval/evaluate_comp.scm 958 */
																						obj_t BgL_arg2693z00_3148;

																						{	/* Eval/evaluate_comp.scm 958 */
																							obj_t BgL_arg2694z00_3149;

																							{	/* Eval/evaluate_comp.scm 958 */
																								obj_t BgL_pairz00_9393;

																								BgL_pairz00_9393 =
																									(((BgL_ev_appz00_bglt)
																										COBJECT((
																												(BgL_ev_appz00_bglt)
																												BgL_exprz00_187)))->
																									BgL_argsz00);
																								BgL_arg2694z00_3149 =
																									CAR(CDR(BgL_pairz00_9393));
																							}
																							BgL_arg2693z00_3148 =
																								BGl_compilezd2floatzd2arithz00zz__evaluate_compz00
																								(BgL_arg2694z00_3149,
																								BgL_stkz00_188);
																						}
																						VECTOR_SET(BgL_v1390z00_3144, 2L,
																							BgL_arg2693z00_3148);
																					}
																					return BgL_v1390z00_3144;
																				}
																			}
																		else
																			{	/* Eval/evaluate_comp.scm 956 */
																				if (
																					(BgL_fvalz00_3110 ==
																						BGl_fixnumzd2ze3flonumzd2envze3zz__r4_numbers_6_5z00))
																					{	/* Eval/evaluate_comp.scm 960 */
																						obj_t BgL_v1391z00_3151;

																						BgL_v1391z00_3151 =
																							create_vector(2L);
																						VECTOR_SET(BgL_v1391z00_3151, 0L,
																							BINT(10L));
																						{	/* Eval/evaluate_comp.scm 960 */
																							obj_t BgL_arg2698z00_3152;

																							{	/* Eval/evaluate_comp.scm 960 */
																								obj_t BgL_arg2701z00_3153;

																								{	/* Eval/evaluate_comp.scm 960 */
																									obj_t BgL_pairz00_9399;

																									BgL_pairz00_9399 =
																										(((BgL_ev_appz00_bglt)
																											COBJECT((
																													(BgL_ev_appz00_bglt)
																													BgL_exprz00_187)))->
																										BgL_argsz00);
																									BgL_arg2701z00_3153 =
																										CAR(BgL_pairz00_9399);
																								}
																								BgL_arg2698z00_3152 =
																									BGl_compz00zz__evaluate_compz00
																									(((BgL_ev_exprz00_bglt)
																										BgL_arg2701z00_3153),
																									BgL_stkz00_188);
																							}
																							VECTOR_SET(BgL_v1391z00_3151, 1L,
																								BgL_arg2698z00_3152);
																						}
																						return BgL_v1391z00_3151;
																					}
																				else
																					{	/* Eval/evaluate_comp.scm 959 */
																						if (
																							(BgL_fvalz00_3110 ==
																								BGl_f64vectorzd2refzd2envz00zz__srfi4z00))
																							{	/* Eval/evaluate_comp.scm 962 */
																								obj_t BgL_v1392z00_3155;

																								BgL_v1392z00_3155 =
																									create_vector(3L);
																								VECTOR_SET(BgL_v1392z00_3155,
																									0L, BINT(11L));
																								{	/* Eval/evaluate_comp.scm 962 */
																									obj_t BgL_arg2713z00_3156;

																									{	/* Eval/evaluate_comp.scm 962 */
																										obj_t BgL_arg2716z00_3157;

																										{	/* Eval/evaluate_comp.scm 962 */
																											obj_t BgL_pairz00_9402;

																											BgL_pairz00_9402 =
																												(((BgL_ev_appz00_bglt)
																													COBJECT((
																															(BgL_ev_appz00_bglt)
																															BgL_exprz00_187)))->
																												BgL_argsz00);
																											BgL_arg2716z00_3157 =
																												CAR(BgL_pairz00_9402);
																										}
																										BgL_arg2713z00_3156 =
																											BGl_compz00zz__evaluate_compz00
																											(((BgL_ev_exprz00_bglt)
																												BgL_arg2716z00_3157),
																											BgL_stkz00_188);
																									}
																									VECTOR_SET(BgL_v1392z00_3155,
																										1L, BgL_arg2713z00_3156);
																								}
																								{	/* Eval/evaluate_comp.scm 962 */
																									obj_t BgL_arg2720z00_3159;

																									{	/* Eval/evaluate_comp.scm 962 */
																										obj_t BgL_arg2722z00_3160;

																										{	/* Eval/evaluate_comp.scm 962 */
																											obj_t BgL_pairz00_9404;

																											BgL_pairz00_9404 =
																												(((BgL_ev_appz00_bglt)
																													COBJECT((
																															(BgL_ev_appz00_bglt)
																															BgL_exprz00_187)))->
																												BgL_argsz00);
																											BgL_arg2722z00_3160 =
																												CAR(CDR
																												(BgL_pairz00_9404));
																										}
																										BgL_arg2720z00_3159 =
																											BGl_compz00zz__evaluate_compz00
																											(((BgL_ev_exprz00_bglt)
																												BgL_arg2722z00_3160),
																											BgL_stkz00_188);
																									}
																									VECTOR_SET(BgL_v1392z00_3155,
																										2L, BgL_arg2720z00_3159);
																								}
																								return BgL_v1392z00_3155;
																							}
																						else
																							{	/* Eval/evaluate_comp.scm 964 */
																								obj_t BgL_v1393z00_3162;

																								BgL_v1393z00_3162 =
																									create_vector(2L);
																								VECTOR_SET(BgL_v1393z00_3162,
																									0L, BINT(0L));
																								{	/* Eval/evaluate_comp.scm 964 */
																									obj_t BgL_arg2724z00_3163;

																									BgL_arg2724z00_3163 =
																										BGl_compz00zz__evaluate_compz00
																										(((BgL_ev_exprz00_bglt)
																											BgL_exprz00_187),
																										BgL_stkz00_188);
																									VECTOR_SET(BgL_v1393z00_3162,
																										1L, BgL_arg2724z00_3163);
																								}
																								return BgL_v1393z00_3162;
																							}
																					}
																			}
																	}
															}
													}
											}
										else
											{	/* Eval/evaluate_comp.scm 965 */
												obj_t BgL_v1394z00_3165;

												BgL_v1394z00_3165 = create_vector(2L);
												VECTOR_SET(BgL_v1394z00_3165, 0L, BINT(0L));
												{	/* Eval/evaluate_comp.scm 965 */
													obj_t BgL_arg2726z00_3166;

													BgL_arg2726z00_3166 =
														BGl_compz00zz__evaluate_compz00(
														((BgL_ev_exprz00_bglt) BgL_exprz00_187),
														BgL_stkz00_188);
													VECTOR_SET(BgL_v1394z00_3165, 1L,
														BgL_arg2726z00_3166);
												}
												return BgL_v1394z00_3165;
											}
									}
							}
					}
			}
		}

	}



/* eval-float-arith */
	double BGl_evalzd2floatzd2arithz00zz__evaluate_compz00(obj_t BgL_bcz00_189,
		obj_t BgL_sz00_190)
	{
		{	/* Eval/evaluate_comp.scm 967 */
			{	/* Eval/evaluate_comp.scm 983 */
				obj_t BgL_tmpz00_23195;

				BgL_tmpz00_23195 =
					BGl_Eze70ze7zz__evaluate_compz00(BgL_sz00_190, BgL_bcz00_189);
				return REAL_TO_DOUBLE(BgL_tmpz00_23195);
			}
		}

	}



/* E~0 */
	obj_t BGl_Eze70ze7zz__evaluate_compz00(obj_t BgL_sz00_15670,
		obj_t BgL_bcz00_3187)
	{
		{	/* Eval/evaluate_comp.scm 982 */
			{	/* Eval/evaluate_comp.scm 969 */
				obj_t BgL_aux1229z00_3190;

				BgL_aux1229z00_3190 = VECTOR_REF(((obj_t) BgL_bcz00_3187), 0L);
				if (INTEGERP(BgL_aux1229z00_3190))
					{	/* Eval/evaluate_comp.scm 969 */
						switch ((long) CINT(BgL_aux1229z00_3190))
							{
							case 0L:

								{	/* Eval/evaluate_comp.scm 970 */
									obj_t BgL_fun2739z00_3191;

									BgL_fun2739z00_3191 =
										VECTOR_REF(((obj_t) BgL_bcz00_3187), 1L);
									return
										BGL_PROCEDURE_CALL1(BgL_fun2739z00_3191, BgL_sz00_15670);
								}
								break;
							case 1L:

								return VECTOR_REF(((obj_t) BgL_bcz00_3187), 1L);
								break;
							case 2L:

								{	/* Eval/evaluate_comp.scm 972 */
									long BgL_arg2740z00_3192;

									{	/* Eval/evaluate_comp.scm 972 */
										obj_t BgL_arg2741z00_3193;
										obj_t BgL_arg2744z00_3194;

										BgL_arg2741z00_3193 =
											VECTOR_REF(((obj_t) BgL_sz00_15670), 0L);
										BgL_arg2744z00_3194 =
											VECTOR_REF(((obj_t) BgL_bcz00_3187), 1L);
										BgL_arg2740z00_3192 =
											(
											(long) CINT(BgL_arg2741z00_3193) +
											(long) CINT(BgL_arg2744z00_3194));
									}
									return
										VECTOR_REF(((obj_t) BgL_sz00_15670), BgL_arg2740z00_3192);
								}
								break;
							case 3L:

								{	/* Eval/evaluate_comp.scm 973 */
									obj_t BgL_arg2749z00_3195;

									{	/* Eval/evaluate_comp.scm 973 */
										long BgL_arg2750z00_3196;

										{	/* Eval/evaluate_comp.scm 973 */
											obj_t BgL_arg2751z00_3197;
											obj_t BgL_arg2752z00_3198;

											BgL_arg2751z00_3197 =
												VECTOR_REF(((obj_t) BgL_sz00_15670), 0L);
											BgL_arg2752z00_3198 =
												VECTOR_REF(((obj_t) BgL_bcz00_3187), 1L);
											BgL_arg2750z00_3196 =
												(
												(long) CINT(BgL_arg2751z00_3197) +
												(long) CINT(BgL_arg2752z00_3198));
										}
										BgL_arg2749z00_3195 =
											VECTOR_REF(((obj_t) BgL_sz00_15670), BgL_arg2750z00_3196);
									}
									return STRUCT_REF(((obj_t) BgL_arg2749z00_3195), (int) (0L));
								} break;
							case 4L:

								{	/* Eval/evaluate_comp.scm 974 */
									obj_t BgL_arg2753z00_3199;

									{	/* Eval/evaluate_comp.scm 974 */
										obj_t BgL_arg2754z00_3200;

										BgL_arg2754z00_3200 =
											VECTOR_REF(((obj_t) BgL_bcz00_3187), 1L);
										BgL_arg2753z00_3199 =
											VECTOR_REF(((obj_t) BgL_arg2754z00_3200), 2L);
									}
									return __EVMEANING_ADDRESS_REF(BgL_arg2753z00_3199);
								}
								break;
							case 5L:

								{	/* Eval/evaluate_comp.scm 975 */
									obj_t BgL_arg2755z00_3201;

									BgL_arg2755z00_3201 =
										VECTOR_REF(((obj_t) BgL_bcz00_3187), 1L);
									return VECTOR_REF(((obj_t) BgL_arg2755z00_3201), 2L);
								}
								break;
							case 6L:

								{	/* Eval/evaluate_comp.scm 976 */
									obj_t BgL_arg2756z00_3202;
									obj_t BgL_arg2760z00_3203;

									{	/* Eval/evaluate_comp.scm 976 */
										obj_t BgL_arg2761z00_3204;

										BgL_arg2761z00_3204 =
											VECTOR_REF(((obj_t) BgL_bcz00_3187), 1L);
										BgL_arg2756z00_3202 =
											BGl_Eze70ze7zz__evaluate_compz00(BgL_sz00_15670,
											BgL_arg2761z00_3204);
									}
									{	/* Eval/evaluate_comp.scm 976 */
										obj_t BgL_arg2762z00_3205;

										BgL_arg2762z00_3205 =
											VECTOR_REF(((obj_t) BgL_bcz00_3187), 2L);
										BgL_arg2760z00_3203 =
											BGl_Eze70ze7zz__evaluate_compz00(BgL_sz00_15670,
											BgL_arg2762z00_3205);
									}
									{	/* Eval/evaluate_comp.scm 976 */
										double BgL_tmpz00_23246;

										BgL_tmpz00_23246 =
											(REAL_TO_DOUBLE(BgL_arg2756z00_3202) +
											REAL_TO_DOUBLE(BgL_arg2760z00_3203));
										return DOUBLE_TO_REAL(BgL_tmpz00_23246);
									}
								}
								break;
							case 7L:

								{	/* Eval/evaluate_comp.scm 977 */
									obj_t BgL_arg2763z00_3206;
									obj_t BgL_arg2764z00_3207;

									{	/* Eval/evaluate_comp.scm 977 */
										obj_t BgL_arg2765z00_3208;

										BgL_arg2765z00_3208 =
											VECTOR_REF(((obj_t) BgL_bcz00_3187), 1L);
										BgL_arg2763z00_3206 =
											BGl_Eze70ze7zz__evaluate_compz00(BgL_sz00_15670,
											BgL_arg2765z00_3208);
									}
									{	/* Eval/evaluate_comp.scm 977 */
										obj_t BgL_arg2766z00_3209;

										BgL_arg2766z00_3209 =
											VECTOR_REF(((obj_t) BgL_bcz00_3187), 2L);
										BgL_arg2764z00_3207 =
											BGl_Eze70ze7zz__evaluate_compz00(BgL_sz00_15670,
											BgL_arg2766z00_3209);
									}
									{	/* Eval/evaluate_comp.scm 977 */
										double BgL_tmpz00_23257;

										BgL_tmpz00_23257 =
											(REAL_TO_DOUBLE(BgL_arg2763z00_3206) -
											REAL_TO_DOUBLE(BgL_arg2764z00_3207));
										return DOUBLE_TO_REAL(BgL_tmpz00_23257);
									}
								}
								break;
							case 8L:

								{	/* Eval/evaluate_comp.scm 978 */
									obj_t BgL_arg2767z00_3210;
									obj_t BgL_arg2768z00_3211;

									{	/* Eval/evaluate_comp.scm 978 */
										obj_t BgL_arg2772z00_3212;

										BgL_arg2772z00_3212 =
											VECTOR_REF(((obj_t) BgL_bcz00_3187), 1L);
										BgL_arg2767z00_3210 =
											BGl_Eze70ze7zz__evaluate_compz00(BgL_sz00_15670,
											BgL_arg2772z00_3212);
									}
									{	/* Eval/evaluate_comp.scm 978 */
										obj_t BgL_arg2773z00_3213;

										BgL_arg2773z00_3213 =
											VECTOR_REF(((obj_t) BgL_bcz00_3187), 2L);
										BgL_arg2768z00_3211 =
											BGl_Eze70ze7zz__evaluate_compz00(BgL_sz00_15670,
											BgL_arg2773z00_3213);
									}
									{	/* Eval/evaluate_comp.scm 978 */
										double BgL_tmpz00_23268;

										BgL_tmpz00_23268 =
											(REAL_TO_DOUBLE(BgL_arg2767z00_3210) *
											REAL_TO_DOUBLE(BgL_arg2768z00_3211));
										return DOUBLE_TO_REAL(BgL_tmpz00_23268);
									}
								}
								break;
							case 9L:

								{	/* Eval/evaluate_comp.scm 979 */
									obj_t BgL_arg2774z00_3214;
									obj_t BgL_arg2775z00_3215;

									{	/* Eval/evaluate_comp.scm 979 */
										obj_t BgL_arg2776z00_3216;

										BgL_arg2776z00_3216 =
											VECTOR_REF(((obj_t) BgL_bcz00_3187), 1L);
										BgL_arg2774z00_3214 =
											BGl_Eze70ze7zz__evaluate_compz00(BgL_sz00_15670,
											BgL_arg2776z00_3216);
									}
									{	/* Eval/evaluate_comp.scm 979 */
										obj_t BgL_arg2777z00_3217;

										BgL_arg2777z00_3217 =
											VECTOR_REF(((obj_t) BgL_bcz00_3187), 2L);
										BgL_arg2775z00_3215 =
											BGl_Eze70ze7zz__evaluate_compz00(BgL_sz00_15670,
											BgL_arg2777z00_3217);
									}
									{	/* Eval/evaluate_comp.scm 979 */
										double BgL_tmpz00_23279;

										BgL_tmpz00_23279 =
											(REAL_TO_DOUBLE(BgL_arg2774z00_3214) /
											REAL_TO_DOUBLE(BgL_arg2775z00_3215));
										return DOUBLE_TO_REAL(BgL_tmpz00_23279);
									}
								}
								break;
							case 10L:

								{	/* Eval/evaluate_comp.scm 980 */
									obj_t BgL_arg2778z00_3218;

									{	/* Eval/evaluate_comp.scm 980 */
										obj_t BgL_fun2779z00_3219;

										BgL_fun2779z00_3219 =
											VECTOR_REF(((obj_t) BgL_bcz00_3187), 1L);
										BgL_arg2778z00_3218 =
											BGL_PROCEDURE_CALL1(BgL_fun2779z00_3219, BgL_sz00_15670);
									}
									{	/* Eval/evaluate_comp.scm 980 */
										double BgL_tmpz00_23290;

										BgL_tmpz00_23290 =
											(double) ((long) CINT(BgL_arg2778z00_3218));
										return DOUBLE_TO_REAL(BgL_tmpz00_23290);
									}
								}
								break;
							case 11L:

								{	/* Eval/evaluate_comp.scm 981 */
									obj_t BgL_arg2783z00_3220;
									obj_t BgL_arg2784z00_3221;

									{	/* Eval/evaluate_comp.scm 981 */
										obj_t BgL_fun2785z00_3222;

										BgL_fun2785z00_3222 =
											VECTOR_REF(((obj_t) BgL_bcz00_3187), 1L);
										BgL_arg2783z00_3220 =
											BGL_PROCEDURE_CALL1(BgL_fun2785z00_3222, BgL_sz00_15670);
									}
									{	/* Eval/evaluate_comp.scm 981 */
										obj_t BgL_fun2786z00_3223;

										BgL_fun2786z00_3223 =
											VECTOR_REF(((obj_t) BgL_bcz00_3187), 2L);
										BgL_arg2784z00_3221 =
											BGL_PROCEDURE_CALL1(BgL_fun2786z00_3223, BgL_sz00_15670);
									}
									{	/* Eval/evaluate_comp.scm 981 */
										double BgL_tmpz00_23306;

										{	/* Eval/evaluate_comp.scm 981 */
											long BgL_tmpz00_23307;

											BgL_tmpz00_23307 = (long) CINT(BgL_arg2784z00_3221);
											BgL_tmpz00_23306 =
												BGL_F64VREF(BgL_arg2783z00_3220, BgL_tmpz00_23307);
										}
										return DOUBLE_TO_REAL(BgL_tmpz00_23306);
									}
								}
								break;
							default:
								{	/* Eval/evaluate_comp.scm 982 */
									obj_t BgL_arg2787z00_9457;

									BgL_arg2787z00_9457 =
										VECTOR_REF(((obj_t) BgL_bcz00_3187), 0L);
									return
										BGl_errorz00zz__errorz00
										(BGl_string4577z00zz__evaluate_compz00,
										BGl_string4596z00zz__evaluate_compz00, BgL_arg2787z00_9457);
								}
							}
					}
				else
					{	/* Eval/evaluate_comp.scm 982 */
						obj_t BgL_arg2787z00_9459;

						BgL_arg2787z00_9459 = VECTOR_REF(((obj_t) BgL_bcz00_3187), 0L);
						return
							BGl_errorz00zz__errorz00(BGl_string4577z00zz__evaluate_compz00,
							BGl_string4596z00zz__evaluate_compz00, BgL_arg2787z00_9459);
					}
			}
		}

	}



/* arith-expression */
	obj_t BGl_arithzd2expressionzd2zz__evaluate_compz00(BgL_ev_appz00_bglt
		BgL_exprz00_191, obj_t BgL_stkz00_192)
	{
		{	/* Eval/evaluate_comp.scm 985 */
			{	/* Eval/evaluate_comp.scm 987 */
				obj_t BgL_fvalz00_3227;

				BgL_fvalz00_3227 =
					BGl_globalzd2funzd2valuez00zz__evaluate_compz00(
					(((BgL_ev_appz00_bglt) COBJECT(BgL_exprz00_191))->BgL_funz00));
				{	/* Eval/evaluate_comp.scm 988 */
					bool_t BgL_test5281z00_23321;

					if (
						(BgL_fvalz00_3227 ==
							BGl_zb2flzd2envz60zz__r4_numbers_6_5_flonumz00))
						{	/* Eval/evaluate_comp.scm 988 */
							BgL_test5281z00_23321 = ((bool_t) 1);
						}
					else
						{	/* Eval/evaluate_comp.scm 988 */
							if (
								(BgL_fvalz00_3227 ==
									BGl_zd2flzd2envz00zz__r4_numbers_6_5_flonumz00))
								{	/* Eval/evaluate_comp.scm 988 */
									BgL_test5281z00_23321 = ((bool_t) 1);
								}
							else
								{	/* Eval/evaluate_comp.scm 988 */
									if (
										(BgL_fvalz00_3227 ==
											BGl_za2flzd2envz70zz__r4_numbers_6_5_flonumz00))
										{	/* Eval/evaluate_comp.scm 988 */
											BgL_test5281z00_23321 = ((bool_t) 1);
										}
									else
										{	/* Eval/evaluate_comp.scm 988 */
											BgL_test5281z00_23321 =
												(BgL_fvalz00_3227 ==
												BGl_zf2flzd2envz20zz__r4_numbers_6_5_flonumz00);
										}
								}
						}
					if (BgL_test5281z00_23321)
						{	/* Eval/evaluate_comp.scm 989 */
							obj_t BgL_bcz00_3229;

							BgL_bcz00_3229 =
								BGl_compilezd2floatzd2arithz00zz__evaluate_compz00(
								((obj_t) BgL_exprz00_191), BgL_stkz00_192);
							{	/* Eval/evaluate_comp.scm 990 */
								obj_t BgL_zc3z04anonymousza32789ze3z87_13942;

								BgL_zc3z04anonymousza32789ze3z87_13942 =
									MAKE_FX_PROCEDURE
									(BGl_z62zc3z04anonymousza32789ze3ze5zz__evaluate_compz00,
									(int) (1L), (int) (1L));
								PROCEDURE_SET(BgL_zc3z04anonymousza32789ze3z87_13942,
									(int) (0L), BgL_bcz00_3229);
								return BgL_zc3z04anonymousza32789ze3z87_13942;
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 988 */
							return BFALSE;
						}
				}
			}
		}

	}



/* &<@anonymous:2789> */
	obj_t BGl_z62zc3z04anonymousza32789ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13943, obj_t BgL_sz00_13945)
	{
		{	/* Eval/evaluate_comp.scm 990 */
			{	/* Eval/evaluate_comp.scm 990 */
				obj_t BgL_bcz00_13944;

				BgL_bcz00_13944 = ((obj_t) PROCEDURE_REF(BgL_envz00_13943, (int) (0L)));
				{	/* Eval/evaluate_comp.scm 990 */
					double BgL_tmpz00_23339;

					{	/* Eval/evaluate_comp.scm 990 */
						obj_t BgL_bpz00_15944;

						BgL_bpz00_15944 = VECTOR_REF(((obj_t) BgL_sz00_13945), 0L);
						BgL_tmpz00_23339 =
							BGl_evalzd2floatzd2arithz00zz__evaluate_compz00(BgL_bcz00_13944,
							BgL_sz00_13945);
					}
					return DOUBLE_TO_REAL(BgL_tmpz00_23339);
				}
			}
		}

	}



/* inline-call */
	obj_t BGl_inlinezd2callzd2zz__evaluate_compz00(obj_t BgL_locz00_193,
		BgL_ev_exprz00_bglt BgL_funz00_194, obj_t BgL_argsz00_195,
		obj_t BgL_stkz00_196)
	{
		{	/* Eval/evaluate_comp.scm 1019 */
			{	/* Eval/evaluate_comp.scm 1020 */
				obj_t BgL_valz00_3234;

				BgL_valz00_3234 =
					BGl_globalzd2funzd2valuez00zz__evaluate_compz00(BgL_funz00_194);
				if (CBOOL(BgL_valz00_3234))
					{	/* Eval/evaluate_comp.scm 1022 */
						long BgL_nz00_3235;

						BgL_nz00_3235 = bgl_list_length(BgL_argsz00_195);
						{	/* Eval/evaluate_comp.scm 1023 */
							obj_t BgL__ortest_1235z00_3236;

							if ((BgL_nz00_3235 == 1L))
								{	/* Eval/evaluate_comp.scm 1024 */
									obj_t BgL_a1z00_3506;

									BgL_a1z00_3506 = CAR(((obj_t) BgL_argsz00_195));
									if (
										(BgL_valz00_3234 ==
											BGl_carzd2envzd2zz__r4_pairs_and_lists_6_3z00))
										{	/* Eval/evaluate_comp.scm 1025 */
											obj_t BgL_a1z00_3507;

											BgL_a1z00_3507 =
												BGl_compz00zz__evaluate_compz00(
												((BgL_ev_exprz00_bglt) BgL_a1z00_3506), BgL_stkz00_196);
											{	/* Eval/evaluate_comp.scm 1025 */
												obj_t BgL_zc3z04anonymousza32899ze3z87_13975;

												BgL_zc3z04anonymousza32899ze3z87_13975 =
													MAKE_FX_PROCEDURE
													(BGl_z62zc3z04anonymousza32899ze3ze5zz__evaluate_compz00,
													(int) (1L), (int) (2L));
												PROCEDURE_SET(BgL_zc3z04anonymousza32899ze3z87_13975,
													(int) (0L), BgL_a1z00_3507);
												PROCEDURE_SET(BgL_zc3z04anonymousza32899ze3z87_13975,
													(int) (1L), BgL_locz00_193);
												BgL__ortest_1235z00_3236 =
													BgL_zc3z04anonymousza32899ze3z87_13975;
										}}
									else
										{	/* Eval/evaluate_comp.scm 1025 */
											if (
												(BgL_valz00_3234 ==
													BGl_cdrzd2envzd2zz__r4_pairs_and_lists_6_3z00))
												{	/* Eval/evaluate_comp.scm 1025 */
													obj_t BgL_a1z00_3513;

													BgL_a1z00_3513 =
														BGl_compz00zz__evaluate_compz00(
														((BgL_ev_exprz00_bglt) BgL_a1z00_3506),
														BgL_stkz00_196);
													{	/* Eval/evaluate_comp.scm 1025 */
														obj_t BgL_zc3z04anonymousza32901ze3z87_13976;

														BgL_zc3z04anonymousza32901ze3z87_13976 =
															MAKE_FX_PROCEDURE
															(BGl_z62zc3z04anonymousza32901ze3ze5zz__evaluate_compz00,
															(int) (1L), (int) (2L));
														PROCEDURE_SET
															(BgL_zc3z04anonymousza32901ze3z87_13976,
															(int) (0L), BgL_a1z00_3513);
														PROCEDURE_SET
															(BgL_zc3z04anonymousza32901ze3z87_13976,
															(int) (1L), BgL_locz00_193);
														BgL__ortest_1235z00_3236 =
															BgL_zc3z04anonymousza32901ze3z87_13976;
												}}
											else
												{	/* Eval/evaluate_comp.scm 1025 */
													if (
														(BgL_valz00_3234 ==
															BGl_cadrzd2envzd2zz__r4_pairs_and_lists_6_3z00))
														{	/* Eval/evaluate_comp.scm 1025 */
															obj_t BgL_a1z00_3519;

															BgL_a1z00_3519 =
																BGl_compz00zz__evaluate_compz00(
																((BgL_ev_exprz00_bglt) BgL_a1z00_3506),
																BgL_stkz00_196);
															{	/* Eval/evaluate_comp.scm 1025 */
																obj_t BgL_zc3z04anonymousza32903ze3z87_13977;

																BgL_zc3z04anonymousza32903ze3z87_13977 =
																	MAKE_FX_PROCEDURE
																	(BGl_z62zc3z04anonymousza32903ze3ze5zz__evaluate_compz00,
																	(int) (1L), (int) (2L));
																PROCEDURE_SET
																	(BgL_zc3z04anonymousza32903ze3z87_13977,
																	(int) (0L), BgL_a1z00_3519);
																PROCEDURE_SET
																	(BgL_zc3z04anonymousza32903ze3z87_13977,
																	(int) (1L), BgL_locz00_193);
																BgL__ortest_1235z00_3236 =
																	BgL_zc3z04anonymousza32903ze3z87_13977;
														}}
													else
														{	/* Eval/evaluate_comp.scm 1025 */
															BgL__ortest_1235z00_3236 = BFALSE;
														}
												}
										}
								}
							else
								{	/* Eval/evaluate_comp.scm 1023 */
									BgL__ortest_1235z00_3236 = BFALSE;
								}
							if (CBOOL(BgL__ortest_1235z00_3236))
								{	/* Eval/evaluate_comp.scm 1023 */
									return BgL__ortest_1235z00_3236;
								}
							else
								{	/* Eval/evaluate_comp.scm 1023 */
									if ((BgL_nz00_3235 == 2L))
										{	/* Eval/evaluate_comp.scm 1027 */
											obj_t BgL_a1z00_3238;
											obj_t BgL_a2z00_3239;

											BgL_a1z00_3238 = CAR(((obj_t) BgL_argsz00_195));
											{	/* Eval/evaluate_comp.scm 1027 */
												obj_t BgL_pairz00_9484;

												BgL_pairz00_9484 = CDR(((obj_t) BgL_argsz00_195));
												BgL_a2z00_3239 = CAR(BgL_pairz00_9484);
											}
											if (
												(BgL_valz00_3234 ==
													BGl_zb2zd2envz60zz__r4_numbers_6_5z00))
												{	/* Eval/evaluate_comp.scm 1028 */
													obj_t BgL_a1z00_3240;
													obj_t BgL_a2z00_3241;

													BgL_a1z00_3240 =
														BGl_compz00zz__evaluate_compz00(
														((BgL_ev_exprz00_bglt) BgL_a1z00_3238),
														BgL_stkz00_196);
													BgL_a2z00_3241 =
														BGl_compz00zz__evaluate_compz00((
															(BgL_ev_exprz00_bglt) BgL_a2z00_3239),
														BgL_stkz00_196);
													{	/* Eval/evaluate_comp.scm 1028 */
														obj_t BgL_zc3z04anonymousza32807ze3z87_13946;

														BgL_zc3z04anonymousza32807ze3z87_13946 =
															MAKE_FX_PROCEDURE
															(BGl_z62zc3z04anonymousza32807ze3ze5zz__evaluate_compz00,
															(int) (1L), (int) (3L));
														PROCEDURE_SET
															(BgL_zc3z04anonymousza32807ze3z87_13946,
															(int) (0L), BgL_a1z00_3240);
														PROCEDURE_SET
															(BgL_zc3z04anonymousza32807ze3z87_13946,
															(int) (1L), BgL_a2z00_3241);
														PROCEDURE_SET
															(BgL_zc3z04anonymousza32807ze3z87_13946,
															(int) (2L), BgL_locz00_193);
														return BgL_zc3z04anonymousza32807ze3z87_13946;
													}
												}
											else
												{	/* Eval/evaluate_comp.scm 1028 */
													if (
														(BgL_valz00_3234 ==
															BGl_zd2zd2envz00zz__r4_numbers_6_5z00))
														{	/* Eval/evaluate_comp.scm 1028 */
															obj_t BgL_a1z00_3250;
															obj_t BgL_a2z00_3251;

															BgL_a1z00_3250 =
																BGl_compz00zz__evaluate_compz00(
																((BgL_ev_exprz00_bglt) BgL_a1z00_3238),
																BgL_stkz00_196);
															BgL_a2z00_3251 =
																BGl_compz00zz__evaluate_compz00((
																	(BgL_ev_exprz00_bglt) BgL_a2z00_3239),
																BgL_stkz00_196);
															{	/* Eval/evaluate_comp.scm 1028 */
																obj_t BgL_zc3z04anonymousza32811ze3z87_13947;

																BgL_zc3z04anonymousza32811ze3z87_13947 =
																	MAKE_FX_PROCEDURE
																	(BGl_z62zc3z04anonymousza32811ze3ze5zz__evaluate_compz00,
																	(int) (1L), (int) (3L));
																PROCEDURE_SET
																	(BgL_zc3z04anonymousza32811ze3z87_13947,
																	(int) (0L), BgL_a1z00_3250);
																PROCEDURE_SET
																	(BgL_zc3z04anonymousza32811ze3z87_13947,
																	(int) (1L), BgL_a2z00_3251);
																PROCEDURE_SET
																	(BgL_zc3z04anonymousza32811ze3z87_13947,
																	(int) (2L), BgL_locz00_193);
																return BgL_zc3z04anonymousza32811ze3z87_13947;
															}
														}
													else
														{	/* Eval/evaluate_comp.scm 1028 */
															if (
																(BgL_valz00_3234 ==
																	BGl_za2zd2envz70zz__r4_numbers_6_5z00))
																{	/* Eval/evaluate_comp.scm 1028 */
																	obj_t BgL_a1z00_3260;
																	obj_t BgL_a2z00_3261;

																	BgL_a1z00_3260 =
																		BGl_compz00zz__evaluate_compz00(
																		((BgL_ev_exprz00_bglt) BgL_a1z00_3238),
																		BgL_stkz00_196);
																	BgL_a2z00_3261 =
																		BGl_compz00zz__evaluate_compz00((
																			(BgL_ev_exprz00_bglt) BgL_a2z00_3239),
																		BgL_stkz00_196);
																	{	/* Eval/evaluate_comp.scm 1028 */
																		obj_t
																			BgL_zc3z04anonymousza32815ze3z87_13948;
																		BgL_zc3z04anonymousza32815ze3z87_13948 =
																			MAKE_FX_PROCEDURE
																			(BGl_z62zc3z04anonymousza32815ze3ze5zz__evaluate_compz00,
																			(int) (1L), (int) (3L));
																		PROCEDURE_SET
																			(BgL_zc3z04anonymousza32815ze3z87_13948,
																			(int) (0L), BgL_a1z00_3260);
																		PROCEDURE_SET
																			(BgL_zc3z04anonymousza32815ze3z87_13948,
																			(int) (1L), BgL_a2z00_3261);
																		PROCEDURE_SET
																			(BgL_zc3z04anonymousza32815ze3z87_13948,
																			(int) (2L), BgL_locz00_193);
																		return
																			BgL_zc3z04anonymousza32815ze3z87_13948;
																	}
																}
															else
																{	/* Eval/evaluate_comp.scm 1028 */
																	if (
																		(BgL_valz00_3234 ==
																			BGl_zf2zd2envz20zz__r4_numbers_6_5z00))
																		{	/* Eval/evaluate_comp.scm 1028 */
																			obj_t BgL_a1z00_3270;
																			obj_t BgL_a2z00_3271;

																			BgL_a1z00_3270 =
																				BGl_compz00zz__evaluate_compz00(
																				((BgL_ev_exprz00_bglt) BgL_a1z00_3238),
																				BgL_stkz00_196);
																			BgL_a2z00_3271 =
																				BGl_compz00zz__evaluate_compz00((
																					(BgL_ev_exprz00_bglt) BgL_a2z00_3239),
																				BgL_stkz00_196);
																			{	/* Eval/evaluate_comp.scm 1028 */
																				obj_t
																					BgL_zc3z04anonymousza32819ze3z87_13949;
																				BgL_zc3z04anonymousza32819ze3z87_13949 =
																					MAKE_FX_PROCEDURE
																					(BGl_z62zc3z04anonymousza32819ze3ze5zz__evaluate_compz00,
																					(int) (1L), (int) (3L));
																				PROCEDURE_SET
																					(BgL_zc3z04anonymousza32819ze3z87_13949,
																					(int) (0L), BgL_a1z00_3270);
																				PROCEDURE_SET
																					(BgL_zc3z04anonymousza32819ze3z87_13949,
																					(int) (1L), BgL_a2z00_3271);
																				PROCEDURE_SET
																					(BgL_zc3z04anonymousza32819ze3z87_13949,
																					(int) (2L), BgL_locz00_193);
																				return
																					BgL_zc3z04anonymousza32819ze3z87_13949;
																			}
																		}
																	else
																		{	/* Eval/evaluate_comp.scm 1028 */
																			if (
																				(BgL_valz00_3234 ==
																					BGl_zc3zd2envz11zz__r4_numbers_6_5z00))
																				{	/* Eval/evaluate_comp.scm 1028 */
																					obj_t BgL_a1z00_3279;
																					obj_t BgL_a2z00_3280;

																					BgL_a1z00_3279 =
																						BGl_compz00zz__evaluate_compz00(
																						((BgL_ev_exprz00_bglt)
																							BgL_a1z00_3238), BgL_stkz00_196);
																					BgL_a2z00_3280 =
																						BGl_compz00zz__evaluate_compz00((
																							(BgL_ev_exprz00_bglt)
																							BgL_a2z00_3239), BgL_stkz00_196);
																					{	/* Eval/evaluate_comp.scm 1028 */
																						obj_t
																							BgL_zc3z04anonymousza32822ze3z87_13950;
																						BgL_zc3z04anonymousza32822ze3z87_13950
																							=
																							MAKE_FX_PROCEDURE
																							(BGl_z62zc3z04anonymousza32822ze3ze5zz__evaluate_compz00,
																							(int) (1L), (int) (3L));
																						PROCEDURE_SET
																							(BgL_zc3z04anonymousza32822ze3z87_13950,
																							(int) (0L), BgL_a1z00_3279);
																						PROCEDURE_SET
																							(BgL_zc3z04anonymousza32822ze3z87_13950,
																							(int) (1L), BgL_a2z00_3280);
																						PROCEDURE_SET
																							(BgL_zc3z04anonymousza32822ze3z87_13950,
																							(int) (2L), BgL_locz00_193);
																						return
																							BgL_zc3z04anonymousza32822ze3z87_13950;
																					}
																				}
																			else
																				{	/* Eval/evaluate_comp.scm 1028 */
																					if (
																						(BgL_valz00_3234 ==
																							BGl_ze3zd2envz31zz__r4_numbers_6_5z00))
																						{	/* Eval/evaluate_comp.scm 1028 */
																							obj_t BgL_a1z00_3289;
																							obj_t BgL_a2z00_3290;

																							BgL_a1z00_3289 =
																								BGl_compz00zz__evaluate_compz00(
																								((BgL_ev_exprz00_bglt)
																									BgL_a1z00_3238),
																								BgL_stkz00_196);
																							BgL_a2z00_3290 =
																								BGl_compz00zz__evaluate_compz00(
																								((BgL_ev_exprz00_bglt)
																									BgL_a2z00_3239),
																								BgL_stkz00_196);
																							{	/* Eval/evaluate_comp.scm 1028 */
																								obj_t
																									BgL_zc3z04anonymousza32826ze3z87_13951;
																								BgL_zc3z04anonymousza32826ze3z87_13951
																									=
																									MAKE_FX_PROCEDURE
																									(BGl_z62zc3z04anonymousza32826ze3ze5zz__evaluate_compz00,
																									(int) (1L), (int) (3L));
																								PROCEDURE_SET
																									(BgL_zc3z04anonymousza32826ze3z87_13951,
																									(int) (0L), BgL_a1z00_3289);
																								PROCEDURE_SET
																									(BgL_zc3z04anonymousza32826ze3z87_13951,
																									(int) (1L), BgL_a2z00_3290);
																								PROCEDURE_SET
																									(BgL_zc3z04anonymousza32826ze3z87_13951,
																									(int) (2L), BgL_locz00_193);
																								return
																									BgL_zc3z04anonymousza32826ze3z87_13951;
																							}
																						}
																					else
																						{	/* Eval/evaluate_comp.scm 1028 */
																							if (
																								(BgL_valz00_3234 ==
																									BGl_zc3zd3zd2envzc2zz__r4_numbers_6_5z00))
																								{	/* Eval/evaluate_comp.scm 1028 */
																									obj_t BgL_a1z00_3299;
																									obj_t BgL_a2z00_3300;

																									BgL_a1z00_3299 =
																										BGl_compz00zz__evaluate_compz00
																										(((BgL_ev_exprz00_bglt)
																											BgL_a1z00_3238),
																										BgL_stkz00_196);
																									BgL_a2z00_3300 =
																										BGl_compz00zz__evaluate_compz00
																										(((BgL_ev_exprz00_bglt)
																											BgL_a2z00_3239),
																										BgL_stkz00_196);
																									{	/* Eval/evaluate_comp.scm 1028 */
																										obj_t
																											BgL_zc3z04anonymousza32830ze3z87_13952;
																										BgL_zc3z04anonymousza32830ze3z87_13952
																											=
																											MAKE_FX_PROCEDURE
																											(BGl_z62zc3z04anonymousza32830ze3ze5zz__evaluate_compz00,
																											(int) (1L), (int) (3L));
																										PROCEDURE_SET
																											(BgL_zc3z04anonymousza32830ze3z87_13952,
																											(int) (0L),
																											BgL_a1z00_3299);
																										PROCEDURE_SET
																											(BgL_zc3z04anonymousza32830ze3z87_13952,
																											(int) (1L),
																											BgL_a2z00_3300);
																										PROCEDURE_SET
																											(BgL_zc3z04anonymousza32830ze3z87_13952,
																											(int) (2L),
																											BgL_locz00_193);
																										return
																											BgL_zc3z04anonymousza32830ze3z87_13952;
																									}
																								}
																							else
																								{	/* Eval/evaluate_comp.scm 1028 */
																									if (
																										(BgL_valz00_3234 ==
																											BGl_ze3zd3zd2envze2zz__r4_numbers_6_5z00))
																										{	/* Eval/evaluate_comp.scm 1028 */
																											obj_t BgL_a1z00_3309;
																											obj_t BgL_a2z00_3310;

																											BgL_a1z00_3309 =
																												BGl_compz00zz__evaluate_compz00
																												(((BgL_ev_exprz00_bglt)
																													BgL_a1z00_3238),
																												BgL_stkz00_196);
																											BgL_a2z00_3310 =
																												BGl_compz00zz__evaluate_compz00
																												(((BgL_ev_exprz00_bglt)
																													BgL_a2z00_3239),
																												BgL_stkz00_196);
																											{	/* Eval/evaluate_comp.scm 1028 */
																												obj_t
																													BgL_zc3z04anonymousza32834ze3z87_13953;
																												BgL_zc3z04anonymousza32834ze3z87_13953
																													=
																													MAKE_FX_PROCEDURE
																													(BGl_z62zc3z04anonymousza32834ze3ze5zz__evaluate_compz00,
																													(int) (1L),
																													(int) (3L));
																												PROCEDURE_SET
																													(BgL_zc3z04anonymousza32834ze3z87_13953,
																													(int) (0L),
																													BgL_a1z00_3309);
																												PROCEDURE_SET
																													(BgL_zc3z04anonymousza32834ze3z87_13953,
																													(int) (1L),
																													BgL_a2z00_3310);
																												PROCEDURE_SET
																													(BgL_zc3z04anonymousza32834ze3z87_13953,
																													(int) (2L),
																													BgL_locz00_193);
																												return
																													BgL_zc3z04anonymousza32834ze3z87_13953;
																											}
																										}
																									else
																										{	/* Eval/evaluate_comp.scm 1028 */
																											if (
																												(BgL_valz00_3234 ==
																													BGl_zd3zd2envz01zz__r4_numbers_6_5z00))
																												{	/* Eval/evaluate_comp.scm 1028 */
																													obj_t BgL_a1z00_3319;
																													obj_t BgL_a2z00_3320;

																													BgL_a1z00_3319 =
																														BGl_compz00zz__evaluate_compz00
																														(((BgL_ev_exprz00_bglt) BgL_a1z00_3238), BgL_stkz00_196);
																													BgL_a2z00_3320 =
																														BGl_compz00zz__evaluate_compz00
																														(((BgL_ev_exprz00_bglt) BgL_a2z00_3239), BgL_stkz00_196);
																													{	/* Eval/evaluate_comp.scm 1028 */
																														obj_t
																															BgL_zc3z04anonymousza32838ze3z87_13954;
																														BgL_zc3z04anonymousza32838ze3z87_13954
																															=
																															MAKE_FX_PROCEDURE
																															(BGl_z62zc3z04anonymousza32838ze3ze5zz__evaluate_compz00,
																															(int) (1L),
																															(int) (3L));
																														PROCEDURE_SET
																															(BgL_zc3z04anonymousza32838ze3z87_13954,
																															(int) (0L),
																															BgL_a1z00_3319);
																														PROCEDURE_SET
																															(BgL_zc3z04anonymousza32838ze3z87_13954,
																															(int) (1L),
																															BgL_a2z00_3320);
																														PROCEDURE_SET
																															(BgL_zc3z04anonymousza32838ze3z87_13954,
																															(int) (2L),
																															BgL_locz00_193);
																														return
																															BgL_zc3z04anonymousza32838ze3z87_13954;
																													}
																												}
																											else
																												{	/* Eval/evaluate_comp.scm 1028 */
																													if (
																														(BgL_valz00_3234 ==
																															BGl_zb2fxzd2envz60zz__r4_numbers_6_5_fixnumz00))
																														{	/* Eval/evaluate_comp.scm 1028 */
																															obj_t
																																BgL_a1z00_3329;
																															obj_t
																																BgL_a2z00_3330;
																															BgL_a1z00_3329 =
																																BGl_compz00zz__evaluate_compz00
																																(((BgL_ev_exprz00_bglt) BgL_a1z00_3238), BgL_stkz00_196);
																															BgL_a2z00_3330 =
																																BGl_compz00zz__evaluate_compz00
																																(((BgL_ev_exprz00_bglt) BgL_a2z00_3239), BgL_stkz00_196);
																															{	/* Eval/evaluate_comp.scm 1028 */
																																obj_t
																																	BgL_zc3z04anonymousza32842ze3z87_13955;
																																BgL_zc3z04anonymousza32842ze3z87_13955
																																	=
																																	MAKE_FX_PROCEDURE
																																	(BGl_z62zc3z04anonymousza32842ze3ze5zz__evaluate_compz00,
																																	(int) (1L),
																																	(int) (3L));
																																PROCEDURE_SET
																																	(BgL_zc3z04anonymousza32842ze3z87_13955,
																																	(int) (0L),
																																	BgL_a1z00_3329);
																																PROCEDURE_SET
																																	(BgL_zc3z04anonymousza32842ze3z87_13955,
																																	(int) (1L),
																																	BgL_a2z00_3330);
																																PROCEDURE_SET
																																	(BgL_zc3z04anonymousza32842ze3z87_13955,
																																	(int) (2L),
																																	BgL_locz00_193);
																																return
																																	BgL_zc3z04anonymousza32842ze3z87_13955;
																															}
																														}
																													else
																														{	/* Eval/evaluate_comp.scm 1028 */
																															if (
																																(BgL_valz00_3234
																																	==
																																	BGl_zd2fxzd2envz00zz__r4_numbers_6_5_fixnumz00))
																																{	/* Eval/evaluate_comp.scm 1028 */
																																	obj_t
																																		BgL_a1z00_3338;
																																	obj_t
																																		BgL_a2z00_3339;
																																	BgL_a1z00_3338
																																		=
																																		BGl_compz00zz__evaluate_compz00
																																		(((BgL_ev_exprz00_bglt) BgL_a1z00_3238), BgL_stkz00_196);
																																	BgL_a2z00_3339
																																		=
																																		BGl_compz00zz__evaluate_compz00
																																		(((BgL_ev_exprz00_bglt) BgL_a2z00_3239), BgL_stkz00_196);
																																	{	/* Eval/evaluate_comp.scm 1028 */
																																		obj_t
																																			BgL_zc3z04anonymousza32845ze3z87_13956;
																																		BgL_zc3z04anonymousza32845ze3z87_13956
																																			=
																																			MAKE_FX_PROCEDURE
																																			(BGl_z62zc3z04anonymousza32845ze3ze5zz__evaluate_compz00,
																																			(int)
																																			(1L),
																																			(int)
																																			(3L));
																																		PROCEDURE_SET
																																			(BgL_zc3z04anonymousza32845ze3z87_13956,
																																			(int)
																																			(0L),
																																			BgL_a1z00_3338);
																																		PROCEDURE_SET
																																			(BgL_zc3z04anonymousza32845ze3z87_13956,
																																			(int)
																																			(1L),
																																			BgL_a2z00_3339);
																																		PROCEDURE_SET
																																			(BgL_zc3z04anonymousza32845ze3z87_13956,
																																			(int)
																																			(2L),
																																			BgL_locz00_193);
																																		return
																																			BgL_zc3z04anonymousza32845ze3z87_13956;
																																	}
																																}
																															else
																																{	/* Eval/evaluate_comp.scm 1028 */
																																	if (
																																		(BgL_valz00_3234
																																			==
																																			BGl_za2fxzd2envz70zz__r4_numbers_6_5_fixnumz00))
																																		{	/* Eval/evaluate_comp.scm 1028 */
																																			obj_t
																																				BgL_a1z00_3347;
																																			obj_t
																																				BgL_a2z00_3348;
																																			BgL_a1z00_3347
																																				=
																																				BGl_compz00zz__evaluate_compz00
																																				(((BgL_ev_exprz00_bglt) BgL_a1z00_3238), BgL_stkz00_196);
																																			BgL_a2z00_3348
																																				=
																																				BGl_compz00zz__evaluate_compz00
																																				(((BgL_ev_exprz00_bglt) BgL_a2z00_3239), BgL_stkz00_196);
																																			{	/* Eval/evaluate_comp.scm 1028 */
																																				obj_t
																																					BgL_zc3z04anonymousza32848ze3z87_13957;
																																				BgL_zc3z04anonymousza32848ze3z87_13957
																																					=
																																					MAKE_FX_PROCEDURE
																																					(BGl_z62zc3z04anonymousza32848ze3ze5zz__evaluate_compz00,
																																					(int)
																																					(1L),
																																					(int)
																																					(3L));
																																				PROCEDURE_SET
																																					(BgL_zc3z04anonymousza32848ze3z87_13957,
																																					(int)
																																					(0L),
																																					BgL_a1z00_3347);
																																				PROCEDURE_SET
																																					(BgL_zc3z04anonymousza32848ze3z87_13957,
																																					(int)
																																					(1L),
																																					BgL_a2z00_3348);
																																				PROCEDURE_SET
																																					(BgL_zc3z04anonymousza32848ze3z87_13957,
																																					(int)
																																					(2L),
																																					BgL_locz00_193);
																																				return
																																					BgL_zc3z04anonymousza32848ze3z87_13957;
																																			}
																																		}
																																	else
																																		{	/* Eval/evaluate_comp.scm 1028 */
																																			if (
																																				(BgL_valz00_3234
																																					==
																																					BGl_zf2fxzd2envz20zz__r4_numbers_6_5_fixnumz00))
																																				{	/* Eval/evaluate_comp.scm 1028 */
																																					obj_t
																																						BgL_a1z00_3356;
																																					obj_t
																																						BgL_a2z00_3357;
																																					BgL_a1z00_3356
																																						=
																																						BGl_compz00zz__evaluate_compz00
																																						(((BgL_ev_exprz00_bglt) BgL_a1z00_3238), BgL_stkz00_196);
																																					BgL_a2z00_3357
																																						=
																																						BGl_compz00zz__evaluate_compz00
																																						(((BgL_ev_exprz00_bglt) BgL_a2z00_3239), BgL_stkz00_196);
																																					{	/* Eval/evaluate_comp.scm 1028 */
																																						obj_t
																																							BgL_zc3z04anonymousza32851ze3z87_13958;
																																						BgL_zc3z04anonymousza32851ze3z87_13958
																																							=
																																							MAKE_FX_PROCEDURE
																																							(BGl_z62zc3z04anonymousza32851ze3ze5zz__evaluate_compz00,
																																							(int)
																																							(1L),
																																							(int)
																																							(3L));
																																						PROCEDURE_SET
																																							(BgL_zc3z04anonymousza32851ze3z87_13958,
																																							(int)
																																							(0L),
																																							BgL_a1z00_3356);
																																						PROCEDURE_SET
																																							(BgL_zc3z04anonymousza32851ze3z87_13958,
																																							(int)
																																							(1L),
																																							BgL_a2z00_3357);
																																						PROCEDURE_SET
																																							(BgL_zc3z04anonymousza32851ze3z87_13958,
																																							(int)
																																							(2L),
																																							BgL_locz00_193);
																																						return
																																							BgL_zc3z04anonymousza32851ze3z87_13958;
																																					}
																																				}
																																			else
																																				{	/* Eval/evaluate_comp.scm 1028 */
																																					if (
																																						(BgL_valz00_3234
																																							==
																																							BGl_zc3fxzd2envz11zz__r4_numbers_6_5_fixnumz00))
																																						{	/* Eval/evaluate_comp.scm 1028 */
																																							obj_t
																																								BgL_a1z00_3365;
																																							obj_t
																																								BgL_a2z00_3366;
																																							BgL_a1z00_3365
																																								=
																																								BGl_compz00zz__evaluate_compz00
																																								(
																																								((BgL_ev_exprz00_bglt) BgL_a1z00_3238), BgL_stkz00_196);
																																							BgL_a2z00_3366
																																								=
																																								BGl_compz00zz__evaluate_compz00
																																								(
																																								((BgL_ev_exprz00_bglt) BgL_a2z00_3239), BgL_stkz00_196);
																																							{	/* Eval/evaluate_comp.scm 1028 */
																																								obj_t
																																									BgL_zc3z04anonymousza32854ze3z87_13959;
																																								BgL_zc3z04anonymousza32854ze3z87_13959
																																									=
																																									MAKE_FX_PROCEDURE
																																									(BGl_z62zc3z04anonymousza32854ze3ze5zz__evaluate_compz00,
																																									(int)
																																									(1L),
																																									(int)
																																									(3L));
																																								PROCEDURE_SET
																																									(BgL_zc3z04anonymousza32854ze3z87_13959,
																																									(int)
																																									(0L),
																																									BgL_a1z00_3365);
																																								PROCEDURE_SET
																																									(BgL_zc3z04anonymousza32854ze3z87_13959,
																																									(int)
																																									(1L),
																																									BgL_a2z00_3366);
																																								PROCEDURE_SET
																																									(BgL_zc3z04anonymousza32854ze3z87_13959,
																																									(int)
																																									(2L),
																																									BgL_locz00_193);
																																								return
																																									BgL_zc3z04anonymousza32854ze3z87_13959;
																																							}
																																						}
																																					else
																																						{	/* Eval/evaluate_comp.scm 1028 */
																																							if ((BgL_valz00_3234 == BGl_ze3fxzd2envz31zz__r4_numbers_6_5_fixnumz00))
																																								{	/* Eval/evaluate_comp.scm 1028 */
																																									obj_t
																																										BgL_a1z00_3374;
																																									obj_t
																																										BgL_a2z00_3375;
																																									BgL_a1z00_3374
																																										=
																																										BGl_compz00zz__evaluate_compz00
																																										(
																																										((BgL_ev_exprz00_bglt) BgL_a1z00_3238), BgL_stkz00_196);
																																									BgL_a2z00_3375
																																										=
																																										BGl_compz00zz__evaluate_compz00
																																										(
																																										((BgL_ev_exprz00_bglt) BgL_a2z00_3239), BgL_stkz00_196);
																																									{	/* Eval/evaluate_comp.scm 1028 */
																																										obj_t
																																											BgL_zc3z04anonymousza32857ze3z87_13960;
																																										BgL_zc3z04anonymousza32857ze3z87_13960
																																											=
																																											MAKE_FX_PROCEDURE
																																											(BGl_z62zc3z04anonymousza32857ze3ze5zz__evaluate_compz00,
																																											(int)
																																											(1L),
																																											(int)
																																											(3L));
																																										PROCEDURE_SET
																																											(BgL_zc3z04anonymousza32857ze3z87_13960,
																																											(int)
																																											(0L),
																																											BgL_a1z00_3374);
																																										PROCEDURE_SET
																																											(BgL_zc3z04anonymousza32857ze3z87_13960,
																																											(int)
																																											(1L),
																																											BgL_a2z00_3375);
																																										PROCEDURE_SET
																																											(BgL_zc3z04anonymousza32857ze3z87_13960,
																																											(int)
																																											(2L),
																																											BgL_locz00_193);
																																										return
																																											BgL_zc3z04anonymousza32857ze3z87_13960;
																																									}
																																								}
																																							else
																																								{	/* Eval/evaluate_comp.scm 1028 */
																																									if ((BgL_valz00_3234 == BGl_zc3zd3fxzd2envzc2zz__r4_numbers_6_5_fixnumz00))
																																										{	/* Eval/evaluate_comp.scm 1028 */
																																											obj_t
																																												BgL_a1z00_3383;
																																											obj_t
																																												BgL_a2z00_3384;
																																											BgL_a1z00_3383
																																												=
																																												BGl_compz00zz__evaluate_compz00
																																												(
																																												((BgL_ev_exprz00_bglt) BgL_a1z00_3238), BgL_stkz00_196);
																																											BgL_a2z00_3384
																																												=
																																												BGl_compz00zz__evaluate_compz00
																																												(
																																												((BgL_ev_exprz00_bglt) BgL_a2z00_3239), BgL_stkz00_196);
																																											{	/* Eval/evaluate_comp.scm 1028 */
																																												obj_t
																																													BgL_zc3z04anonymousza32860ze3z87_13961;
																																												BgL_zc3z04anonymousza32860ze3z87_13961
																																													=
																																													MAKE_FX_PROCEDURE
																																													(BGl_z62zc3z04anonymousza32860ze3ze5zz__evaluate_compz00,
																																													(int)
																																													(1L),
																																													(int)
																																													(3L));
																																												PROCEDURE_SET
																																													(BgL_zc3z04anonymousza32860ze3z87_13961,
																																													(int)
																																													(0L),
																																													BgL_a1z00_3383);
																																												PROCEDURE_SET
																																													(BgL_zc3z04anonymousza32860ze3z87_13961,
																																													(int)
																																													(1L),
																																													BgL_a2z00_3384);
																																												PROCEDURE_SET
																																													(BgL_zc3z04anonymousza32860ze3z87_13961,
																																													(int)
																																													(2L),
																																													BgL_locz00_193);
																																												return
																																													BgL_zc3z04anonymousza32860ze3z87_13961;
																																											}
																																										}
																																									else
																																										{	/* Eval/evaluate_comp.scm 1028 */
																																											if ((BgL_valz00_3234 == BGl_ze3zd3fxzd2envze2zz__r4_numbers_6_5_fixnumz00))
																																												{	/* Eval/evaluate_comp.scm 1028 */
																																													obj_t
																																														BgL_a1z00_3392;
																																													obj_t
																																														BgL_a2z00_3393;
																																													BgL_a1z00_3392
																																														=
																																														BGl_compz00zz__evaluate_compz00
																																														(
																																														((BgL_ev_exprz00_bglt) BgL_a1z00_3238), BgL_stkz00_196);
																																													BgL_a2z00_3393
																																														=
																																														BGl_compz00zz__evaluate_compz00
																																														(
																																														((BgL_ev_exprz00_bglt) BgL_a2z00_3239), BgL_stkz00_196);
																																													{	/* Eval/evaluate_comp.scm 1028 */
																																														obj_t
																																															BgL_zc3z04anonymousza32863ze3z87_13962;
																																														BgL_zc3z04anonymousza32863ze3z87_13962
																																															=
																																															MAKE_FX_PROCEDURE
																																															(BGl_z62zc3z04anonymousza32863ze3ze5zz__evaluate_compz00,
																																															(int)
																																															(1L),
																																															(int)
																																															(3L));
																																														PROCEDURE_SET
																																															(BgL_zc3z04anonymousza32863ze3z87_13962,
																																															(int)
																																															(0L),
																																															BgL_a1z00_3392);
																																														PROCEDURE_SET
																																															(BgL_zc3z04anonymousza32863ze3z87_13962,
																																															(int)
																																															(1L),
																																															BgL_a2z00_3393);
																																														PROCEDURE_SET
																																															(BgL_zc3z04anonymousza32863ze3z87_13962,
																																															(int)
																																															(2L),
																																															BgL_locz00_193);
																																														return
																																															BgL_zc3z04anonymousza32863ze3z87_13962;
																																													}
																																												}
																																											else
																																												{	/* Eval/evaluate_comp.scm 1028 */
																																													if ((BgL_valz00_3234 == BGl_zd3fxzd2envz01zz__r4_numbers_6_5_fixnumz00))
																																														{	/* Eval/evaluate_comp.scm 1028 */
																																															obj_t
																																																BgL_a1z00_3401;
																																															obj_t
																																																BgL_a2z00_3402;
																																															BgL_a1z00_3401
																																																=
																																																BGl_compz00zz__evaluate_compz00
																																																(
																																																((BgL_ev_exprz00_bglt) BgL_a1z00_3238), BgL_stkz00_196);
																																															BgL_a2z00_3402
																																																=
																																																BGl_compz00zz__evaluate_compz00
																																																(
																																																((BgL_ev_exprz00_bglt) BgL_a2z00_3239), BgL_stkz00_196);
																																															{	/* Eval/evaluate_comp.scm 1028 */
																																																obj_t
																																																	BgL_zc3z04anonymousza32866ze3z87_13963;
																																																BgL_zc3z04anonymousza32866ze3z87_13963
																																																	=
																																																	MAKE_FX_PROCEDURE
																																																	(BGl_z62zc3z04anonymousza32866ze3ze5zz__evaluate_compz00,
																																																	(int)
																																																	(1L),
																																																	(int)
																																																	(3L));
																																																PROCEDURE_SET
																																																	(BgL_zc3z04anonymousza32866ze3z87_13963,
																																																	(int)
																																																	(0L),
																																																	BgL_a1z00_3401);
																																																PROCEDURE_SET
																																																	(BgL_zc3z04anonymousza32866ze3z87_13963,
																																																	(int)
																																																	(1L),
																																																	BgL_a2z00_3402);
																																																PROCEDURE_SET
																																																	(BgL_zc3z04anonymousza32866ze3z87_13963,
																																																	(int)
																																																	(2L),
																																																	BgL_locz00_193);
																																																return
																																																	BgL_zc3z04anonymousza32866ze3z87_13963;
																																															}
																																														}
																																													else
																																														{	/* Eval/evaluate_comp.scm 1028 */
																																															if ((BgL_valz00_3234 == BGl_zb2flzd2envz60zz__r4_numbers_6_5_flonumz00))
																																																{	/* Eval/evaluate_comp.scm 1028 */
																																																	obj_t
																																																		BgL_a1z00_3410;
																																																	obj_t
																																																		BgL_a2z00_3411;
																																																	BgL_a1z00_3410
																																																		=
																																																		BGl_compz00zz__evaluate_compz00
																																																		(
																																																		((BgL_ev_exprz00_bglt) BgL_a1z00_3238), BgL_stkz00_196);
																																																	BgL_a2z00_3411
																																																		=
																																																		BGl_compz00zz__evaluate_compz00
																																																		(
																																																		((BgL_ev_exprz00_bglt) BgL_a2z00_3239), BgL_stkz00_196);
																																																	{	/* Eval/evaluate_comp.scm 1028 */
																																																		obj_t
																																																			BgL_zc3z04anonymousza32869ze3z87_13964;
																																																		BgL_zc3z04anonymousza32869ze3z87_13964
																																																			=
																																																			MAKE_FX_PROCEDURE
																																																			(BGl_z62zc3z04anonymousza32869ze3ze5zz__evaluate_compz00,
																																																			(int)
																																																			(1L),
																																																			(int)
																																																			(3L));
																																																		PROCEDURE_SET
																																																			(BgL_zc3z04anonymousza32869ze3z87_13964,
																																																			(int)
																																																			(0L),
																																																			BgL_a1z00_3410);
																																																		PROCEDURE_SET
																																																			(BgL_zc3z04anonymousza32869ze3z87_13964,
																																																			(int)
																																																			(1L),
																																																			BgL_a2z00_3411);
																																																		PROCEDURE_SET
																																																			(BgL_zc3z04anonymousza32869ze3z87_13964,
																																																			(int)
																																																			(2L),
																																																			BgL_locz00_193);
																																																		return
																																																			BgL_zc3z04anonymousza32869ze3z87_13964;
																																																	}
																																																}
																																															else
																																																{	/* Eval/evaluate_comp.scm 1028 */
																																																	if ((BgL_valz00_3234 == BGl_zd2flzd2envz00zz__r4_numbers_6_5_flonumz00))
																																																		{	/* Eval/evaluate_comp.scm 1028 */
																																																			obj_t
																																																				BgL_a1z00_3419;
																																																			obj_t
																																																				BgL_a2z00_3420;
																																																			BgL_a1z00_3419
																																																				=
																																																				BGl_compz00zz__evaluate_compz00
																																																				(
																																																				((BgL_ev_exprz00_bglt) BgL_a1z00_3238), BgL_stkz00_196);
																																																			BgL_a2z00_3420
																																																				=
																																																				BGl_compz00zz__evaluate_compz00
																																																				(
																																																				((BgL_ev_exprz00_bglt) BgL_a2z00_3239), BgL_stkz00_196);
																																																			{	/* Eval/evaluate_comp.scm 1028 */
																																																				obj_t
																																																					BgL_zc3z04anonymousza32872ze3z87_13965;
																																																				BgL_zc3z04anonymousza32872ze3z87_13965
																																																					=
																																																					MAKE_FX_PROCEDURE
																																																					(BGl_z62zc3z04anonymousza32872ze3ze5zz__evaluate_compz00,
																																																					(int)
																																																					(1L),
																																																					(int)
																																																					(3L));
																																																				PROCEDURE_SET
																																																					(BgL_zc3z04anonymousza32872ze3z87_13965,
																																																					(int)
																																																					(0L),
																																																					BgL_a1z00_3419);
																																																				PROCEDURE_SET
																																																					(BgL_zc3z04anonymousza32872ze3z87_13965,
																																																					(int)
																																																					(1L),
																																																					BgL_a2z00_3420);
																																																				PROCEDURE_SET
																																																					(BgL_zc3z04anonymousza32872ze3z87_13965,
																																																					(int)
																																																					(2L),
																																																					BgL_locz00_193);
																																																				return
																																																					BgL_zc3z04anonymousza32872ze3z87_13965;
																																																			}
																																																		}
																																																	else
																																																		{	/* Eval/evaluate_comp.scm 1028 */
																																																			if ((BgL_valz00_3234 == BGl_za2flzd2envz70zz__r4_numbers_6_5_flonumz00))
																																																				{	/* Eval/evaluate_comp.scm 1028 */
																																																					obj_t
																																																						BgL_a1z00_3428;
																																																					obj_t
																																																						BgL_a2z00_3429;
																																																					BgL_a1z00_3428
																																																						=
																																																						BGl_compz00zz__evaluate_compz00
																																																						(
																																																						((BgL_ev_exprz00_bglt) BgL_a1z00_3238), BgL_stkz00_196);
																																																					BgL_a2z00_3429
																																																						=
																																																						BGl_compz00zz__evaluate_compz00
																																																						(
																																																						((BgL_ev_exprz00_bglt) BgL_a2z00_3239), BgL_stkz00_196);
																																																					{	/* Eval/evaluate_comp.scm 1028 */
																																																						obj_t
																																																							BgL_zc3z04anonymousza32875ze3z87_13966;
																																																						BgL_zc3z04anonymousza32875ze3z87_13966
																																																							=
																																																							MAKE_FX_PROCEDURE
																																																							(BGl_z62zc3z04anonymousza32875ze3ze5zz__evaluate_compz00,
																																																							(int)
																																																							(1L),
																																																							(int)
																																																							(3L));
																																																						PROCEDURE_SET
																																																							(BgL_zc3z04anonymousza32875ze3z87_13966,
																																																							(int)
																																																							(0L),
																																																							BgL_a1z00_3428);
																																																						PROCEDURE_SET
																																																							(BgL_zc3z04anonymousza32875ze3z87_13966,
																																																							(int)
																																																							(1L),
																																																							BgL_a2z00_3429);
																																																						PROCEDURE_SET
																																																							(BgL_zc3z04anonymousza32875ze3z87_13966,
																																																							(int)
																																																							(2L),
																																																							BgL_locz00_193);
																																																						return
																																																							BgL_zc3z04anonymousza32875ze3z87_13966;
																																																					}
																																																				}
																																																			else
																																																				{	/* Eval/evaluate_comp.scm 1028 */
																																																					if ((BgL_valz00_3234 == BGl_zf2flzd2envz20zz__r4_numbers_6_5_flonumz00))
																																																						{	/* Eval/evaluate_comp.scm 1028 */
																																																							obj_t
																																																								BgL_a1z00_3437;
																																																							obj_t
																																																								BgL_a2z00_3438;
																																																							BgL_a1z00_3437
																																																								=
																																																								BGl_compz00zz__evaluate_compz00
																																																								(
																																																								((BgL_ev_exprz00_bglt) BgL_a1z00_3238), BgL_stkz00_196);
																																																							BgL_a2z00_3438
																																																								=
																																																								BGl_compz00zz__evaluate_compz00
																																																								(
																																																								((BgL_ev_exprz00_bglt) BgL_a2z00_3239), BgL_stkz00_196);
																																																							{	/* Eval/evaluate_comp.scm 1028 */
																																																								obj_t
																																																									BgL_zc3z04anonymousza32878ze3z87_13967;
																																																								BgL_zc3z04anonymousza32878ze3z87_13967
																																																									=
																																																									MAKE_FX_PROCEDURE
																																																									(BGl_z62zc3z04anonymousza32878ze3ze5zz__evaluate_compz00,
																																																									(int)
																																																									(1L),
																																																									(int)
																																																									(3L));
																																																								PROCEDURE_SET
																																																									(BgL_zc3z04anonymousza32878ze3z87_13967,
																																																									(int)
																																																									(0L),
																																																									BgL_a1z00_3437);
																																																								PROCEDURE_SET
																																																									(BgL_zc3z04anonymousza32878ze3z87_13967,
																																																									(int)
																																																									(1L),
																																																									BgL_a2z00_3438);
																																																								PROCEDURE_SET
																																																									(BgL_zc3z04anonymousza32878ze3z87_13967,
																																																									(int)
																																																									(2L),
																																																									BgL_locz00_193);
																																																								return
																																																									BgL_zc3z04anonymousza32878ze3z87_13967;
																																																							}
																																																						}
																																																					else
																																																						{	/* Eval/evaluate_comp.scm 1028 */
																																																							if ((BgL_valz00_3234 == BGl_zc3flzd2envz11zz__r4_numbers_6_5_flonumz00))
																																																								{	/* Eval/evaluate_comp.scm 1028 */
																																																									obj_t
																																																										BgL_a1z00_3446;
																																																									obj_t
																																																										BgL_a2z00_3447;
																																																									BgL_a1z00_3446
																																																										=
																																																										BGl_compz00zz__evaluate_compz00
																																																										(
																																																										((BgL_ev_exprz00_bglt) BgL_a1z00_3238), BgL_stkz00_196);
																																																									BgL_a2z00_3447
																																																										=
																																																										BGl_compz00zz__evaluate_compz00
																																																										(
																																																										((BgL_ev_exprz00_bglt) BgL_a2z00_3239), BgL_stkz00_196);
																																																									{	/* Eval/evaluate_comp.scm 1028 */
																																																										obj_t
																																																											BgL_zc3z04anonymousza32881ze3z87_13968;
																																																										BgL_zc3z04anonymousza32881ze3z87_13968
																																																											=
																																																											MAKE_FX_PROCEDURE
																																																											(BGl_z62zc3z04anonymousza32881ze3ze5zz__evaluate_compz00,
																																																											(int)
																																																											(1L),
																																																											(int)
																																																											(3L));
																																																										PROCEDURE_SET
																																																											(BgL_zc3z04anonymousza32881ze3z87_13968,
																																																											(int)
																																																											(0L),
																																																											BgL_a1z00_3446);
																																																										PROCEDURE_SET
																																																											(BgL_zc3z04anonymousza32881ze3z87_13968,
																																																											(int)
																																																											(1L),
																																																											BgL_a2z00_3447);
																																																										PROCEDURE_SET
																																																											(BgL_zc3z04anonymousza32881ze3z87_13968,
																																																											(int)
																																																											(2L),
																																																											BgL_locz00_193);
																																																										return
																																																											BgL_zc3z04anonymousza32881ze3z87_13968;
																																																									}
																																																								}
																																																							else
																																																								{	/* Eval/evaluate_comp.scm 1028 */
																																																									if ((BgL_valz00_3234 == BGl_ze3flzd2envz31zz__r4_numbers_6_5_flonumz00))
																																																										{	/* Eval/evaluate_comp.scm 1028 */
																																																											obj_t
																																																												BgL_a1z00_3455;
																																																											obj_t
																																																												BgL_a2z00_3456;
																																																											BgL_a1z00_3455
																																																												=
																																																												BGl_compz00zz__evaluate_compz00
																																																												(
																																																												((BgL_ev_exprz00_bglt) BgL_a1z00_3238), BgL_stkz00_196);
																																																											BgL_a2z00_3456
																																																												=
																																																												BGl_compz00zz__evaluate_compz00
																																																												(
																																																												((BgL_ev_exprz00_bglt) BgL_a2z00_3239), BgL_stkz00_196);
																																																											{	/* Eval/evaluate_comp.scm 1028 */
																																																												obj_t
																																																													BgL_zc3z04anonymousza32884ze3z87_13969;
																																																												BgL_zc3z04anonymousza32884ze3z87_13969
																																																													=
																																																													MAKE_FX_PROCEDURE
																																																													(BGl_z62zc3z04anonymousza32884ze3ze5zz__evaluate_compz00,
																																																													(int)
																																																													(1L),
																																																													(int)
																																																													(3L));
																																																												PROCEDURE_SET
																																																													(BgL_zc3z04anonymousza32884ze3z87_13969,
																																																													(int)
																																																													(0L),
																																																													BgL_a1z00_3455);
																																																												PROCEDURE_SET
																																																													(BgL_zc3z04anonymousza32884ze3z87_13969,
																																																													(int)
																																																													(1L),
																																																													BgL_a2z00_3456);
																																																												PROCEDURE_SET
																																																													(BgL_zc3z04anonymousza32884ze3z87_13969,
																																																													(int)
																																																													(2L),
																																																													BgL_locz00_193);
																																																												return
																																																													BgL_zc3z04anonymousza32884ze3z87_13969;
																																																											}
																																																										}
																																																									else
																																																										{	/* Eval/evaluate_comp.scm 1028 */
																																																											if ((BgL_valz00_3234 == BGl_zc3zd3flzd2envzc2zz__r4_numbers_6_5_flonumz00))
																																																												{	/* Eval/evaluate_comp.scm 1028 */
																																																													obj_t
																																																														BgL_a1z00_3464;
																																																													obj_t
																																																														BgL_a2z00_3465;
																																																													BgL_a1z00_3464
																																																														=
																																																														BGl_compz00zz__evaluate_compz00
																																																														(
																																																														((BgL_ev_exprz00_bglt) BgL_a1z00_3238), BgL_stkz00_196);
																																																													BgL_a2z00_3465
																																																														=
																																																														BGl_compz00zz__evaluate_compz00
																																																														(
																																																														((BgL_ev_exprz00_bglt) BgL_a2z00_3239), BgL_stkz00_196);
																																																													{	/* Eval/evaluate_comp.scm 1028 */
																																																														obj_t
																																																															BgL_zc3z04anonymousza32887ze3z87_13970;
																																																														BgL_zc3z04anonymousza32887ze3z87_13970
																																																															=
																																																															MAKE_FX_PROCEDURE
																																																															(BGl_z62zc3z04anonymousza32887ze3ze5zz__evaluate_compz00,
																																																															(int)
																																																															(1L),
																																																															(int)
																																																															(3L));
																																																														PROCEDURE_SET
																																																															(BgL_zc3z04anonymousza32887ze3z87_13970,
																																																															(int)
																																																															(0L),
																																																															BgL_a1z00_3464);
																																																														PROCEDURE_SET
																																																															(BgL_zc3z04anonymousza32887ze3z87_13970,
																																																															(int)
																																																															(1L),
																																																															BgL_a2z00_3465);
																																																														PROCEDURE_SET
																																																															(BgL_zc3z04anonymousza32887ze3z87_13970,
																																																															(int)
																																																															(2L),
																																																															BgL_locz00_193);
																																																														return
																																																															BgL_zc3z04anonymousza32887ze3z87_13970;
																																																													}
																																																												}
																																																											else
																																																												{	/* Eval/evaluate_comp.scm 1028 */
																																																													if ((BgL_valz00_3234 == BGl_ze3zd3flzd2envze2zz__r4_numbers_6_5_flonumz00))
																																																														{	/* Eval/evaluate_comp.scm 1028 */
																																																															obj_t
																																																																BgL_a1z00_3473;
																																																															obj_t
																																																																BgL_a2z00_3474;
																																																															BgL_a1z00_3473
																																																																=
																																																																BGl_compz00zz__evaluate_compz00
																																																																(
																																																																((BgL_ev_exprz00_bglt) BgL_a1z00_3238), BgL_stkz00_196);
																																																															BgL_a2z00_3474
																																																																=
																																																																BGl_compz00zz__evaluate_compz00
																																																																(
																																																																((BgL_ev_exprz00_bglt) BgL_a2z00_3239), BgL_stkz00_196);
																																																															{	/* Eval/evaluate_comp.scm 1028 */
																																																																obj_t
																																																																	BgL_zc3z04anonymousza32890ze3z87_13971;
																																																																BgL_zc3z04anonymousza32890ze3z87_13971
																																																																	=
																																																																	MAKE_FX_PROCEDURE
																																																																	(BGl_z62zc3z04anonymousza32890ze3ze5zz__evaluate_compz00,
																																																																	(int)
																																																																	(1L),
																																																																	(int)
																																																																	(3L));
																																																																PROCEDURE_SET
																																																																	(BgL_zc3z04anonymousza32890ze3z87_13971,
																																																																	(int)
																																																																	(0L),
																																																																	BgL_a1z00_3473);
																																																																PROCEDURE_SET
																																																																	(BgL_zc3z04anonymousza32890ze3z87_13971,
																																																																	(int)
																																																																	(1L),
																																																																	BgL_a2z00_3474);
																																																																PROCEDURE_SET
																																																																	(BgL_zc3z04anonymousza32890ze3z87_13971,
																																																																	(int)
																																																																	(2L),
																																																																	BgL_locz00_193);
																																																																return
																																																																	BgL_zc3z04anonymousza32890ze3z87_13971;
																																																															}
																																																														}
																																																													else
																																																														{	/* Eval/evaluate_comp.scm 1028 */
																																																															if ((BgL_valz00_3234 == BGl_zd3flzd2envz01zz__r4_numbers_6_5_flonumz00))
																																																																{	/* Eval/evaluate_comp.scm 1028 */
																																																																	obj_t
																																																																		BgL_a1z00_3482;
																																																																	obj_t
																																																																		BgL_a2z00_3483;
																																																																	BgL_a1z00_3482
																																																																		=
																																																																		BGl_compz00zz__evaluate_compz00
																																																																		(
																																																																		((BgL_ev_exprz00_bglt) BgL_a1z00_3238), BgL_stkz00_196);
																																																																	BgL_a2z00_3483
																																																																		=
																																																																		BGl_compz00zz__evaluate_compz00
																																																																		(
																																																																		((BgL_ev_exprz00_bglt) BgL_a2z00_3239), BgL_stkz00_196);
																																																																	{	/* Eval/evaluate_comp.scm 1028 */
																																																																		obj_t
																																																																			BgL_zc3z04anonymousza32893ze3z87_13972;
																																																																		BgL_zc3z04anonymousza32893ze3z87_13972
																																																																			=
																																																																			MAKE_FX_PROCEDURE
																																																																			(BGl_z62zc3z04anonymousza32893ze3ze5zz__evaluate_compz00,
																																																																			(int)
																																																																			(1L),
																																																																			(int)
																																																																			(3L));
																																																																		PROCEDURE_SET
																																																																			(BgL_zc3z04anonymousza32893ze3z87_13972,
																																																																			(int)
																																																																			(0L),
																																																																			BgL_a1z00_3482);
																																																																		PROCEDURE_SET
																																																																			(BgL_zc3z04anonymousza32893ze3z87_13972,
																																																																			(int)
																																																																			(1L),
																																																																			BgL_a2z00_3483);
																																																																		PROCEDURE_SET
																																																																			(BgL_zc3z04anonymousza32893ze3z87_13972,
																																																																			(int)
																																																																			(2L),
																																																																			BgL_locz00_193);
																																																																		return
																																																																			BgL_zc3z04anonymousza32893ze3z87_13972;
																																																																	}
																																																																}
																																																															else
																																																																{	/* Eval/evaluate_comp.scm 1028 */
																																																																	if ((BgL_valz00_3234 == BGl_eqzf3zd2envz21zz__r4_equivalence_6_2z00))
																																																																		{	/* Eval/evaluate_comp.scm 1028 */
																																																																			obj_t
																																																																				BgL_a1z00_3491;
																																																																			obj_t
																																																																				BgL_a2z00_3492;
																																																																			BgL_a1z00_3491
																																																																				=
																																																																				BGl_compz00zz__evaluate_compz00
																																																																				(
																																																																				((BgL_ev_exprz00_bglt) BgL_a1z00_3238), BgL_stkz00_196);
																																																																			BgL_a2z00_3492
																																																																				=
																																																																				BGl_compz00zz__evaluate_compz00
																																																																				(
																																																																				((BgL_ev_exprz00_bglt) BgL_a2z00_3239), BgL_stkz00_196);
																																																																			{	/* Eval/evaluate_comp.scm 1028 */
																																																																				obj_t
																																																																					BgL_zc3z04anonymousza32896ze3z87_13973;
																																																																				BgL_zc3z04anonymousza32896ze3z87_13973
																																																																					=
																																																																					MAKE_FX_PROCEDURE
																																																																					(BGl_z62zc3z04anonymousza32896ze3ze5zz__evaluate_compz00,
																																																																					(int)
																																																																					(1L),
																																																																					(int)
																																																																					(2L));
																																																																				PROCEDURE_SET
																																																																					(BgL_zc3z04anonymousza32896ze3z87_13973,
																																																																					(int)
																																																																					(0L),
																																																																					BgL_a1z00_3491);
																																																																				PROCEDURE_SET
																																																																					(BgL_zc3z04anonymousza32896ze3z87_13973,
																																																																					(int)
																																																																					(1L),
																																																																					BgL_a2z00_3492);
																																																																				return
																																																																					BgL_zc3z04anonymousza32896ze3z87_13973;
																																																																			}
																																																																		}
																																																																	else
																																																																		{	/* Eval/evaluate_comp.scm 1028 */
																																																																			if ((BgL_valz00_3234 == BGl_conszd2envzd2zz__r4_pairs_and_lists_6_3z00))
																																																																				{	/* Eval/evaluate_comp.scm 1028 */
																																																																					obj_t
																																																																						BgL_a1z00_3498;
																																																																					obj_t
																																																																						BgL_a2z00_3499;
																																																																					BgL_a1z00_3498
																																																																						=
																																																																						BGl_compz00zz__evaluate_compz00
																																																																						(
																																																																						((BgL_ev_exprz00_bglt) BgL_a1z00_3238), BgL_stkz00_196);
																																																																					BgL_a2z00_3499
																																																																						=
																																																																						BGl_compz00zz__evaluate_compz00
																																																																						(
																																																																						((BgL_ev_exprz00_bglt) BgL_a2z00_3239), BgL_stkz00_196);
																																																																					{	/* Eval/evaluate_comp.scm 1028 */
																																																																						obj_t
																																																																							BgL_zc3z04anonymousza32897ze3z87_13974;
																																																																						BgL_zc3z04anonymousza32897ze3z87_13974
																																																																							=
																																																																							MAKE_FX_PROCEDURE
																																																																							(BGl_z62zc3z04anonymousza32897ze3ze5zz__evaluate_compz00,
																																																																							(int)
																																																																							(1L),
																																																																							(int)
																																																																							(2L));
																																																																						PROCEDURE_SET
																																																																							(BgL_zc3z04anonymousza32897ze3z87_13974,
																																																																							(int)
																																																																							(0L),
																																																																							BgL_a1z00_3498);
																																																																						PROCEDURE_SET
																																																																							(BgL_zc3z04anonymousza32897ze3z87_13974,
																																																																							(int)
																																																																							(1L),
																																																																							BgL_a2z00_3499);
																																																																						return
																																																																							BgL_zc3z04anonymousza32897ze3z87_13974;
																																																																					}
																																																																				}
																																																																			else
																																																																				{	/* Eval/evaluate_comp.scm 1028 */
																																																																					return
																																																																						BFALSE;
																																																																				}
																																																																		}
																																																																}
																																																														}
																																																												}
																																																										}
																																																								}
																																																						}
																																																				}
																																																		}
																																																}
																																														}
																																												}
																																										}
																																								}
																																						}
																																				}
																																		}
																																}
																														}
																												}
																										}
																								}
																						}
																				}
																		}
																}
														}
												}
										}
									else
										{	/* Eval/evaluate_comp.scm 1026 */
											return BFALSE;
										}
								}
						}
					}
				else
					{	/* Eval/evaluate_comp.scm 1021 */
						return BFALSE;
					}
			}
		}

	}



/* &<@anonymous:2807> */
	obj_t BGl_z62zc3z04anonymousza32807ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13978, obj_t BgL_sz00_13982)
	{
		{	/* Eval/evaluate_comp.scm 1028 */
			{	/* Eval/evaluate_comp.scm 1028 */
				obj_t BgL_a1z00_13979;
				obj_t BgL_a2z00_13980;
				obj_t BgL_locz00_13981;

				BgL_a1z00_13979 = PROCEDURE_REF(BgL_envz00_13978, (int) (0L));
				BgL_a2z00_13980 = PROCEDURE_REF(BgL_envz00_13978, (int) (1L));
				BgL_locz00_13981 = PROCEDURE_REF(BgL_envz00_13978, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1028 */
					obj_t BgL_bpz00_15945;

					BgL_bpz00_15945 = VECTOR_REF(((obj_t) BgL_sz00_13982), 0L);
					{	/* Eval/evaluate_comp.scm 1028 */
						obj_t BgL_a1z00_15946;
						obj_t BgL_a2z00_15947;

						BgL_a1z00_15946 =
							BGL_PROCEDURE_CALL1(BgL_a1z00_13979, BgL_sz00_13982);
						BgL_a2z00_15947 =
							BGL_PROCEDURE_CALL1(BgL_a2z00_13980, BgL_sz00_13982);
						if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_a1z00_15946))
							{	/* Eval/evaluate_comp.scm 1028 */
								BFALSE;
							}
						else
							{	/* Eval/evaluate_comp.scm 1028 */
								BGl_loczd2typezd2errorz00zz__evaluate_compz00
									(BGl_symbol4597z00zz__evaluate_compz00,
									BGl_symbol4599z00zz__evaluate_compz00, BgL_a1z00_15946,
									BgL_locz00_13981);
							}
						if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_a2z00_15947))
							{	/* Eval/evaluate_comp.scm 1028 */
								BFALSE;
							}
						else
							{	/* Eval/evaluate_comp.scm 1028 */
								BGl_loczd2typezd2errorz00zz__evaluate_compz00
									(BGl_symbol4597z00zz__evaluate_compz00,
									BGl_symbol4599z00zz__evaluate_compz00, BgL_a2z00_15947,
									BgL_locz00_13981);
							}
						{	/* Eval/evaluate_comp.scm 1028 */
							bool_t BgL_test5323z00_23847;

							if (INTEGERP(BgL_a1z00_15946))
								{	/* Eval/evaluate_comp.scm 1028 */
									BgL_test5323z00_23847 = INTEGERP(BgL_a2z00_15947);
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BgL_test5323z00_23847 = ((bool_t) 0);
								}
							if (BgL_test5323z00_23847)
								{	/* Eval/evaluate_comp.scm 1028 */
									obj_t BgL_tmpz00_15948;

									BgL_tmpz00_15948 = BINT(0L);
									if (BGL_ADDFX_OV(BgL_a1z00_15946, BgL_a2z00_15947,
											BgL_tmpz00_15948))
										{	/* Eval/evaluate_comp.scm 1028 */
											return
												bgl_bignum_add(bgl_long_to_bignum(
													(long) CINT(BgL_a1z00_15946)),
												bgl_long_to_bignum((long) CINT(BgL_a2z00_15947)));
										}
									else
										{	/* Eval/evaluate_comp.scm 1028 */
											return BgL_tmpz00_15948;
										}
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									return
										BGl_2zb2zb2zz__r4_numbers_6_5z00(BgL_a1z00_15946,
										BgL_a2z00_15947);
								}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:2811> */
	obj_t BGl_z62zc3z04anonymousza32811ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13983, obj_t BgL_sz00_13987)
	{
		{	/* Eval/evaluate_comp.scm 1028 */
			{	/* Eval/evaluate_comp.scm 1028 */
				obj_t BgL_a1z00_13984;
				obj_t BgL_a2z00_13985;
				obj_t BgL_locz00_13986;

				BgL_a1z00_13984 = PROCEDURE_REF(BgL_envz00_13983, (int) (0L));
				BgL_a2z00_13985 = PROCEDURE_REF(BgL_envz00_13983, (int) (1L));
				BgL_locz00_13986 = PROCEDURE_REF(BgL_envz00_13983, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1028 */
					obj_t BgL_bpz00_15949;

					BgL_bpz00_15949 = VECTOR_REF(((obj_t) BgL_sz00_13987), 0L);
					{	/* Eval/evaluate_comp.scm 1028 */
						obj_t BgL_a1z00_15950;
						obj_t BgL_a2z00_15951;

						BgL_a1z00_15950 =
							BGL_PROCEDURE_CALL1(BgL_a1z00_13984, BgL_sz00_13987);
						BgL_a2z00_15951 =
							BGL_PROCEDURE_CALL1(BgL_a2z00_13985, BgL_sz00_13987);
						if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_a1z00_15950))
							{	/* Eval/evaluate_comp.scm 1028 */
								BFALSE;
							}
						else
							{	/* Eval/evaluate_comp.scm 1028 */
								BGl_loczd2typezd2errorz00zz__evaluate_compz00
									(BGl_symbol4601z00zz__evaluate_compz00,
									BGl_symbol4599z00zz__evaluate_compz00, BgL_a1z00_15950,
									BgL_locz00_13986);
							}
						if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_a2z00_15951))
							{	/* Eval/evaluate_comp.scm 1028 */
								BFALSE;
							}
						else
							{	/* Eval/evaluate_comp.scm 1028 */
								BGl_loczd2typezd2errorz00zz__evaluate_compz00
									(BGl_symbol4601z00zz__evaluate_compz00,
									BGl_symbol4599z00zz__evaluate_compz00, BgL_a2z00_15951,
									BgL_locz00_13986);
							}
						{	/* Eval/evaluate_comp.scm 1028 */
							bool_t BgL_test5328z00_23882;

							if (INTEGERP(BgL_a1z00_15950))
								{	/* Eval/evaluate_comp.scm 1028 */
									BgL_test5328z00_23882 = INTEGERP(BgL_a2z00_15951);
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BgL_test5328z00_23882 = ((bool_t) 0);
								}
							if (BgL_test5328z00_23882)
								{	/* Eval/evaluate_comp.scm 1028 */
									obj_t BgL_tmpz00_15952;

									BgL_tmpz00_15952 = BINT(0L);
									if (BGL_SUBFX_OV(BgL_a1z00_15950, BgL_a2z00_15951,
											BgL_tmpz00_15952))
										{	/* Eval/evaluate_comp.scm 1028 */
											return
												bgl_bignum_sub(bgl_long_to_bignum(
													(long) CINT(BgL_a1z00_15950)),
												bgl_long_to_bignum((long) CINT(BgL_a2z00_15951)));
										}
									else
										{	/* Eval/evaluate_comp.scm 1028 */
											return BgL_tmpz00_15952;
										}
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									return
										BGl_2zd2zd2zz__r4_numbers_6_5z00(BgL_a1z00_15950,
										BgL_a2z00_15951);
								}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:2815> */
	obj_t BGl_z62zc3z04anonymousza32815ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13988, obj_t BgL_sz00_13992)
	{
		{	/* Eval/evaluate_comp.scm 1028 */
			{	/* Eval/evaluate_comp.scm 1028 */
				obj_t BgL_a1z00_13989;
				obj_t BgL_a2z00_13990;
				obj_t BgL_locz00_13991;

				BgL_a1z00_13989 = PROCEDURE_REF(BgL_envz00_13988, (int) (0L));
				BgL_a2z00_13990 = PROCEDURE_REF(BgL_envz00_13988, (int) (1L));
				BgL_locz00_13991 = PROCEDURE_REF(BgL_envz00_13988, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1028 */
					obj_t BgL_bpz00_15953;

					BgL_bpz00_15953 = VECTOR_REF(((obj_t) BgL_sz00_13992), 0L);
					{	/* Eval/evaluate_comp.scm 1028 */
						obj_t BgL_a1z00_15954;
						obj_t BgL_a2z00_15955;

						BgL_a1z00_15954 =
							BGL_PROCEDURE_CALL1(BgL_a1z00_13989, BgL_sz00_13992);
						BgL_a2z00_15955 =
							BGL_PROCEDURE_CALL1(BgL_a2z00_13990, BgL_sz00_13992);
						if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_a1z00_15954))
							{	/* Eval/evaluate_comp.scm 1028 */
								BFALSE;
							}
						else
							{	/* Eval/evaluate_comp.scm 1028 */
								BGl_loczd2typezd2errorz00zz__evaluate_compz00
									(BGl_symbol4603z00zz__evaluate_compz00,
									BGl_symbol4599z00zz__evaluate_compz00, BgL_a1z00_15954,
									BgL_locz00_13991);
							}
						if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_a2z00_15955))
							{	/* Eval/evaluate_comp.scm 1028 */
								BFALSE;
							}
						else
							{	/* Eval/evaluate_comp.scm 1028 */
								BGl_loczd2typezd2errorz00zz__evaluate_compz00
									(BGl_symbol4603z00zz__evaluate_compz00,
									BGl_symbol4599z00zz__evaluate_compz00, BgL_a2z00_15955,
									BgL_locz00_13991);
							}
						{	/* Eval/evaluate_comp.scm 1028 */
							bool_t BgL_test5333z00_23917;

							if (INTEGERP(BgL_a1z00_15954))
								{	/* Eval/evaluate_comp.scm 1028 */
									BgL_test5333z00_23917 = INTEGERP(BgL_a2z00_15955);
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BgL_test5333z00_23917 = ((bool_t) 0);
								}
							if (BgL_test5333z00_23917)
								{	/* Eval/evaluate_comp.scm 1028 */
									obj_t BgL_tmpz00_15956;

									BgL_tmpz00_15956 = BINT(0L);
									if (BGL_MULFX_OV(BgL_a1z00_15954, BgL_a2z00_15955,
											BgL_tmpz00_15956))
										{	/* Eval/evaluate_comp.scm 1028 */
											return
												bgl_bignum_mul(bgl_long_to_bignum(
													(long) CINT(BgL_a1z00_15954)),
												bgl_long_to_bignum((long) CINT(BgL_a2z00_15955)));
										}
									else
										{	/* Eval/evaluate_comp.scm 1028 */
											return BgL_tmpz00_15956;
										}
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									return
										BGl_2za2za2zz__r4_numbers_6_5z00(BgL_a1z00_15954,
										BgL_a2z00_15955);
								}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:2819> */
	obj_t BGl_z62zc3z04anonymousza32819ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13993, obj_t BgL_sz00_13997)
	{
		{	/* Eval/evaluate_comp.scm 1028 */
			{	/* Eval/evaluate_comp.scm 1028 */
				obj_t BgL_a1z00_13994;
				obj_t BgL_a2z00_13995;
				obj_t BgL_locz00_13996;

				BgL_a1z00_13994 = PROCEDURE_REF(BgL_envz00_13993, (int) (0L));
				BgL_a2z00_13995 = PROCEDURE_REF(BgL_envz00_13993, (int) (1L));
				BgL_locz00_13996 = PROCEDURE_REF(BgL_envz00_13993, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1028 */
					obj_t BgL_bpz00_15957;

					BgL_bpz00_15957 = VECTOR_REF(((obj_t) BgL_sz00_13997), 0L);
					{	/* Eval/evaluate_comp.scm 1028 */
						obj_t BgL_a1z00_15958;
						obj_t BgL_a2z00_15959;

						BgL_a1z00_15958 =
							BGL_PROCEDURE_CALL1(BgL_a1z00_13994, BgL_sz00_13997);
						BgL_a2z00_15959 =
							BGL_PROCEDURE_CALL1(BgL_a2z00_13995, BgL_sz00_13997);
						if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_a1z00_15958))
							{	/* Eval/evaluate_comp.scm 1028 */
								BFALSE;
							}
						else
							{	/* Eval/evaluate_comp.scm 1028 */
								BGl_loczd2typezd2errorz00zz__evaluate_compz00
									(BGl_symbol4605z00zz__evaluate_compz00,
									BGl_symbol4599z00zz__evaluate_compz00, BgL_a1z00_15958,
									BgL_locz00_13996);
							}
						if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_a2z00_15959))
							{	/* Eval/evaluate_comp.scm 1028 */
								BFALSE;
							}
						else
							{	/* Eval/evaluate_comp.scm 1028 */
								BGl_loczd2typezd2errorz00zz__evaluate_compz00
									(BGl_symbol4605z00zz__evaluate_compz00,
									BGl_symbol4599z00zz__evaluate_compz00, BgL_a2z00_15959,
									BgL_locz00_13996);
							}
						return
							BGl_2zf2zf2zz__r4_numbers_6_5z00(BgL_a1z00_15958,
							BgL_a2z00_15959);
					}
				}
			}
		}

	}



/* &<@anonymous:2822> */
	obj_t BGl_z62zc3z04anonymousza32822ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_13998, obj_t BgL_sz00_14002)
	{
		{	/* Eval/evaluate_comp.scm 1028 */
			{	/* Eval/evaluate_comp.scm 1028 */
				obj_t BgL_a1z00_13999;
				obj_t BgL_a2z00_14000;
				obj_t BgL_locz00_14001;

				BgL_a1z00_13999 = PROCEDURE_REF(BgL_envz00_13998, (int) (0L));
				BgL_a2z00_14000 = PROCEDURE_REF(BgL_envz00_13998, (int) (1L));
				BgL_locz00_14001 = PROCEDURE_REF(BgL_envz00_13998, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1028 */
					bool_t BgL_tmpz00_23959;

					{	/* Eval/evaluate_comp.scm 1028 */
						obj_t BgL_bpz00_15960;

						BgL_bpz00_15960 = VECTOR_REF(((obj_t) BgL_sz00_14002), 0L);
						{	/* Eval/evaluate_comp.scm 1028 */
							obj_t BgL_a1z00_15961;
							obj_t BgL_a2z00_15962;

							BgL_a1z00_15961 =
								BGL_PROCEDURE_CALL1(BgL_a1z00_13999, BgL_sz00_14002);
							BgL_a2z00_15962 =
								BGL_PROCEDURE_CALL1(BgL_a2z00_14000, BgL_sz00_14002);
							if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_a1z00_15961))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4607z00zz__evaluate_compz00,
										BGl_symbol4599z00zz__evaluate_compz00, BgL_a1z00_15961,
										BgL_locz00_14001);
								}
							if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_a2z00_15962))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4607z00zz__evaluate_compz00,
										BGl_symbol4599z00zz__evaluate_compz00, BgL_a2z00_15962,
										BgL_locz00_14001);
								}
							{	/* Eval/evaluate_comp.scm 1028 */
								bool_t BgL_test5340z00_23976;

								if (INTEGERP(BgL_a1z00_15961))
									{	/* Eval/evaluate_comp.scm 1028 */
										BgL_test5340z00_23976 = INTEGERP(BgL_a2z00_15962);
									}
								else
									{	/* Eval/evaluate_comp.scm 1028 */
										BgL_test5340z00_23976 = ((bool_t) 0);
									}
								if (BgL_test5340z00_23976)
									{	/* Eval/evaluate_comp.scm 1028 */
										BgL_tmpz00_23959 =
											(
											(long) CINT(BgL_a1z00_15961) <
											(long) CINT(BgL_a2z00_15962));
									}
								else
									{	/* Eval/evaluate_comp.scm 1028 */
										BgL_tmpz00_23959 =
											BGl_2zc3zc3zz__r4_numbers_6_5z00(BgL_a1z00_15961,
											BgL_a2z00_15962);
									}
							}
						}
					}
					return BBOOL(BgL_tmpz00_23959);
				}
			}
		}

	}



/* &<@anonymous:2826> */
	obj_t BGl_z62zc3z04anonymousza32826ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14003, obj_t BgL_sz00_14007)
	{
		{	/* Eval/evaluate_comp.scm 1028 */
			{	/* Eval/evaluate_comp.scm 1028 */
				obj_t BgL_a1z00_14004;
				obj_t BgL_a2z00_14005;
				obj_t BgL_locz00_14006;

				BgL_a1z00_14004 = PROCEDURE_REF(BgL_envz00_14003, (int) (0L));
				BgL_a2z00_14005 = PROCEDURE_REF(BgL_envz00_14003, (int) (1L));
				BgL_locz00_14006 = PROCEDURE_REF(BgL_envz00_14003, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1028 */
					bool_t BgL_tmpz00_23991;

					{	/* Eval/evaluate_comp.scm 1028 */
						obj_t BgL_bpz00_15963;

						BgL_bpz00_15963 = VECTOR_REF(((obj_t) BgL_sz00_14007), 0L);
						{	/* Eval/evaluate_comp.scm 1028 */
							obj_t BgL_a1z00_15964;
							obj_t BgL_a2z00_15965;

							BgL_a1z00_15964 =
								BGL_PROCEDURE_CALL1(BgL_a1z00_14004, BgL_sz00_14007);
							BgL_a2z00_15965 =
								BGL_PROCEDURE_CALL1(BgL_a2z00_14005, BgL_sz00_14007);
							if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_a1z00_15964))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4609z00zz__evaluate_compz00,
										BGl_symbol4599z00zz__evaluate_compz00, BgL_a1z00_15964,
										BgL_locz00_14006);
								}
							if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_a2z00_15965))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4609z00zz__evaluate_compz00,
										BGl_symbol4599z00zz__evaluate_compz00, BgL_a2z00_15965,
										BgL_locz00_14006);
								}
							{	/* Eval/evaluate_comp.scm 1028 */
								bool_t BgL_test5344z00_24008;

								if (INTEGERP(BgL_a1z00_15964))
									{	/* Eval/evaluate_comp.scm 1028 */
										BgL_test5344z00_24008 = INTEGERP(BgL_a2z00_15965);
									}
								else
									{	/* Eval/evaluate_comp.scm 1028 */
										BgL_test5344z00_24008 = ((bool_t) 0);
									}
								if (BgL_test5344z00_24008)
									{	/* Eval/evaluate_comp.scm 1028 */
										BgL_tmpz00_23991 =
											(
											(long) CINT(BgL_a1z00_15964) >
											(long) CINT(BgL_a2z00_15965));
									}
								else
									{	/* Eval/evaluate_comp.scm 1028 */
										BgL_tmpz00_23991 =
											BGl_2ze3ze3zz__r4_numbers_6_5z00(BgL_a1z00_15964,
											BgL_a2z00_15965);
									}
							}
						}
					}
					return BBOOL(BgL_tmpz00_23991);
				}
			}
		}

	}



/* &<@anonymous:2830> */
	obj_t BGl_z62zc3z04anonymousza32830ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14008, obj_t BgL_sz00_14012)
	{
		{	/* Eval/evaluate_comp.scm 1028 */
			{	/* Eval/evaluate_comp.scm 1028 */
				obj_t BgL_a1z00_14009;
				obj_t BgL_a2z00_14010;
				obj_t BgL_locz00_14011;

				BgL_a1z00_14009 = PROCEDURE_REF(BgL_envz00_14008, (int) (0L));
				BgL_a2z00_14010 = PROCEDURE_REF(BgL_envz00_14008, (int) (1L));
				BgL_locz00_14011 = PROCEDURE_REF(BgL_envz00_14008, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1028 */
					bool_t BgL_tmpz00_24023;

					{	/* Eval/evaluate_comp.scm 1028 */
						obj_t BgL_bpz00_15966;

						BgL_bpz00_15966 = VECTOR_REF(((obj_t) BgL_sz00_14012), 0L);
						{	/* Eval/evaluate_comp.scm 1028 */
							obj_t BgL_a1z00_15967;
							obj_t BgL_a2z00_15968;

							BgL_a1z00_15967 =
								BGL_PROCEDURE_CALL1(BgL_a1z00_14009, BgL_sz00_14012);
							BgL_a2z00_15968 =
								BGL_PROCEDURE_CALL1(BgL_a2z00_14010, BgL_sz00_14012);
							if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_a1z00_15967))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4611z00zz__evaluate_compz00,
										BGl_symbol4599z00zz__evaluate_compz00, BgL_a1z00_15967,
										BgL_locz00_14011);
								}
							if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_a2z00_15968))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4611z00zz__evaluate_compz00,
										BGl_symbol4599z00zz__evaluate_compz00, BgL_a2z00_15968,
										BgL_locz00_14011);
								}
							{	/* Eval/evaluate_comp.scm 1028 */
								bool_t BgL_test5348z00_24040;

								if (INTEGERP(BgL_a1z00_15967))
									{	/* Eval/evaluate_comp.scm 1028 */
										BgL_test5348z00_24040 = INTEGERP(BgL_a2z00_15968);
									}
								else
									{	/* Eval/evaluate_comp.scm 1028 */
										BgL_test5348z00_24040 = ((bool_t) 0);
									}
								if (BgL_test5348z00_24040)
									{	/* Eval/evaluate_comp.scm 1028 */
										BgL_tmpz00_24023 =
											(
											(long) CINT(BgL_a1z00_15967) <=
											(long) CINT(BgL_a2z00_15968));
									}
								else
									{	/* Eval/evaluate_comp.scm 1028 */
										BgL_tmpz00_24023 =
											BGl_2zc3zd3z10zz__r4_numbers_6_5z00(BgL_a1z00_15967,
											BgL_a2z00_15968);
									}
							}
						}
					}
					return BBOOL(BgL_tmpz00_24023);
				}
			}
		}

	}



/* &<@anonymous:2834> */
	obj_t BGl_z62zc3z04anonymousza32834ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14013, obj_t BgL_sz00_14017)
	{
		{	/* Eval/evaluate_comp.scm 1028 */
			{	/* Eval/evaluate_comp.scm 1028 */
				obj_t BgL_a1z00_14014;
				obj_t BgL_a2z00_14015;
				obj_t BgL_locz00_14016;

				BgL_a1z00_14014 = PROCEDURE_REF(BgL_envz00_14013, (int) (0L));
				BgL_a2z00_14015 = PROCEDURE_REF(BgL_envz00_14013, (int) (1L));
				BgL_locz00_14016 = PROCEDURE_REF(BgL_envz00_14013, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1028 */
					bool_t BgL_tmpz00_24055;

					{	/* Eval/evaluate_comp.scm 1028 */
						obj_t BgL_bpz00_15969;

						BgL_bpz00_15969 = VECTOR_REF(((obj_t) BgL_sz00_14017), 0L);
						{	/* Eval/evaluate_comp.scm 1028 */
							obj_t BgL_a1z00_15970;
							obj_t BgL_a2z00_15971;

							BgL_a1z00_15970 =
								BGL_PROCEDURE_CALL1(BgL_a1z00_14014, BgL_sz00_14017);
							BgL_a2z00_15971 =
								BGL_PROCEDURE_CALL1(BgL_a2z00_14015, BgL_sz00_14017);
							if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_a1z00_15970))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4613z00zz__evaluate_compz00,
										BGl_symbol4599z00zz__evaluate_compz00, BgL_a1z00_15970,
										BgL_locz00_14016);
								}
							if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_a2z00_15971))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4613z00zz__evaluate_compz00,
										BGl_symbol4599z00zz__evaluate_compz00, BgL_a2z00_15971,
										BgL_locz00_14016);
								}
							{	/* Eval/evaluate_comp.scm 1028 */
								bool_t BgL_test5352z00_24072;

								if (INTEGERP(BgL_a1z00_15970))
									{	/* Eval/evaluate_comp.scm 1028 */
										BgL_test5352z00_24072 = INTEGERP(BgL_a2z00_15971);
									}
								else
									{	/* Eval/evaluate_comp.scm 1028 */
										BgL_test5352z00_24072 = ((bool_t) 0);
									}
								if (BgL_test5352z00_24072)
									{	/* Eval/evaluate_comp.scm 1028 */
										BgL_tmpz00_24055 =
											(
											(long) CINT(BgL_a1z00_15970) >=
											(long) CINT(BgL_a2z00_15971));
									}
								else
									{	/* Eval/evaluate_comp.scm 1028 */
										BgL_tmpz00_24055 =
											BGl_2ze3zd3z30zz__r4_numbers_6_5z00(BgL_a1z00_15970,
											BgL_a2z00_15971);
									}
							}
						}
					}
					return BBOOL(BgL_tmpz00_24055);
				}
			}
		}

	}



/* &<@anonymous:2838> */
	obj_t BGl_z62zc3z04anonymousza32838ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14018, obj_t BgL_sz00_14022)
	{
		{	/* Eval/evaluate_comp.scm 1028 */
			{	/* Eval/evaluate_comp.scm 1028 */
				obj_t BgL_a1z00_14019;
				obj_t BgL_a2z00_14020;
				obj_t BgL_locz00_14021;

				BgL_a1z00_14019 = PROCEDURE_REF(BgL_envz00_14018, (int) (0L));
				BgL_a2z00_14020 = PROCEDURE_REF(BgL_envz00_14018, (int) (1L));
				BgL_locz00_14021 = PROCEDURE_REF(BgL_envz00_14018, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1028 */
					bool_t BgL_tmpz00_24087;

					{	/* Eval/evaluate_comp.scm 1028 */
						obj_t BgL_bpz00_15972;

						BgL_bpz00_15972 = VECTOR_REF(((obj_t) BgL_sz00_14022), 0L);
						{	/* Eval/evaluate_comp.scm 1028 */
							obj_t BgL_a1z00_15973;
							obj_t BgL_a2z00_15974;

							BgL_a1z00_15973 =
								BGL_PROCEDURE_CALL1(BgL_a1z00_14019, BgL_sz00_14022);
							BgL_a2z00_15974 =
								BGL_PROCEDURE_CALL1(BgL_a2z00_14020, BgL_sz00_14022);
							if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_a1z00_15973))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4615z00zz__evaluate_compz00,
										BGl_symbol4599z00zz__evaluate_compz00, BgL_a1z00_15973,
										BgL_locz00_14021);
								}
							if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_a2z00_15974))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4615z00zz__evaluate_compz00,
										BGl_symbol4599z00zz__evaluate_compz00, BgL_a2z00_15974,
										BgL_locz00_14021);
								}
							{	/* Eval/evaluate_comp.scm 1028 */
								bool_t BgL_test5356z00_24104;

								if (INTEGERP(BgL_a1z00_15973))
									{	/* Eval/evaluate_comp.scm 1028 */
										BgL_test5356z00_24104 = INTEGERP(BgL_a2z00_15974);
									}
								else
									{	/* Eval/evaluate_comp.scm 1028 */
										BgL_test5356z00_24104 = ((bool_t) 0);
									}
								if (BgL_test5356z00_24104)
									{	/* Eval/evaluate_comp.scm 1028 */
										BgL_tmpz00_24087 =
											(
											(long) CINT(BgL_a1z00_15973) ==
											(long) CINT(BgL_a2z00_15974));
									}
								else
									{	/* Eval/evaluate_comp.scm 1028 */
										BgL_tmpz00_24087 =
											BGl_2zd3zd3zz__r4_numbers_6_5z00(BgL_a1z00_15973,
											BgL_a2z00_15974);
									}
							}
						}
					}
					return BBOOL(BgL_tmpz00_24087);
				}
			}
		}

	}



/* &<@anonymous:2842> */
	obj_t BGl_z62zc3z04anonymousza32842ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14023, obj_t BgL_sz00_14027)
	{
		{	/* Eval/evaluate_comp.scm 1028 */
			{	/* Eval/evaluate_comp.scm 1028 */
				obj_t BgL_a1z00_14024;
				obj_t BgL_a2z00_14025;
				obj_t BgL_locz00_14026;

				BgL_a1z00_14024 = PROCEDURE_REF(BgL_envz00_14023, (int) (0L));
				BgL_a2z00_14025 = PROCEDURE_REF(BgL_envz00_14023, (int) (1L));
				BgL_locz00_14026 = PROCEDURE_REF(BgL_envz00_14023, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1028 */
					long BgL_tmpz00_24119;

					{	/* Eval/evaluate_comp.scm 1028 */
						obj_t BgL_bpz00_15975;

						BgL_bpz00_15975 = VECTOR_REF(((obj_t) BgL_sz00_14027), 0L);
						{	/* Eval/evaluate_comp.scm 1028 */
							obj_t BgL_a1z00_15976;
							obj_t BgL_a2z00_15977;

							BgL_a1z00_15976 =
								BGL_PROCEDURE_CALL1(BgL_a1z00_14024, BgL_sz00_14027);
							BgL_a2z00_15977 =
								BGL_PROCEDURE_CALL1(BgL_a2z00_14025, BgL_sz00_14027);
							if (INTEGERP(BgL_a1z00_15976))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4617z00zz__evaluate_compz00,
										BGl_symbol4619z00zz__evaluate_compz00, BgL_a1z00_15976,
										BgL_locz00_14026);
								}
							if (INTEGERP(BgL_a2z00_15977))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4617z00zz__evaluate_compz00,
										BGl_symbol4619z00zz__evaluate_compz00, BgL_a2z00_15977,
										BgL_locz00_14026);
								}
							BgL_tmpz00_24119 =
								((long) CINT(BgL_a1z00_15976) + (long) CINT(BgL_a2z00_15977));
					}}
					return BINT(BgL_tmpz00_24119);
				}
			}
		}

	}



/* &<@anonymous:2845> */
	obj_t BGl_z62zc3z04anonymousza32845ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14028, obj_t BgL_sz00_14032)
	{
		{	/* Eval/evaluate_comp.scm 1028 */
			{	/* Eval/evaluate_comp.scm 1028 */
				obj_t BgL_a1z00_14029;
				obj_t BgL_a2z00_14030;
				obj_t BgL_locz00_14031;

				BgL_a1z00_14029 = PROCEDURE_REF(BgL_envz00_14028, (int) (0L));
				BgL_a2z00_14030 = PROCEDURE_REF(BgL_envz00_14028, (int) (1L));
				BgL_locz00_14031 = PROCEDURE_REF(BgL_envz00_14028, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1028 */
					long BgL_tmpz00_24146;

					{	/* Eval/evaluate_comp.scm 1028 */
						obj_t BgL_bpz00_15978;

						BgL_bpz00_15978 = VECTOR_REF(((obj_t) BgL_sz00_14032), 0L);
						{	/* Eval/evaluate_comp.scm 1028 */
							obj_t BgL_a1z00_15979;
							obj_t BgL_a2z00_15980;

							BgL_a1z00_15979 =
								BGL_PROCEDURE_CALL1(BgL_a1z00_14029, BgL_sz00_14032);
							BgL_a2z00_15980 =
								BGL_PROCEDURE_CALL1(BgL_a2z00_14030, BgL_sz00_14032);
							if (INTEGERP(BgL_a1z00_15979))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4621z00zz__evaluate_compz00,
										BGl_symbol4619z00zz__evaluate_compz00, BgL_a1z00_15979,
										BgL_locz00_14031);
								}
							if (INTEGERP(BgL_a2z00_15980))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4621z00zz__evaluate_compz00,
										BGl_symbol4619z00zz__evaluate_compz00, BgL_a2z00_15980,
										BgL_locz00_14031);
								}
							BgL_tmpz00_24146 =
								((long) CINT(BgL_a1z00_15979) - (long) CINT(BgL_a2z00_15980));
					}}
					return BINT(BgL_tmpz00_24146);
				}
			}
		}

	}



/* &<@anonymous:2848> */
	obj_t BGl_z62zc3z04anonymousza32848ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14033, obj_t BgL_sz00_14037)
	{
		{	/* Eval/evaluate_comp.scm 1028 */
			{	/* Eval/evaluate_comp.scm 1028 */
				obj_t BgL_a1z00_14034;
				obj_t BgL_a2z00_14035;
				obj_t BgL_locz00_14036;

				BgL_a1z00_14034 = PROCEDURE_REF(BgL_envz00_14033, (int) (0L));
				BgL_a2z00_14035 = PROCEDURE_REF(BgL_envz00_14033, (int) (1L));
				BgL_locz00_14036 = PROCEDURE_REF(BgL_envz00_14033, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1028 */
					long BgL_tmpz00_24173;

					{	/* Eval/evaluate_comp.scm 1028 */
						obj_t BgL_bpz00_15981;

						BgL_bpz00_15981 = VECTOR_REF(((obj_t) BgL_sz00_14037), 0L);
						{	/* Eval/evaluate_comp.scm 1028 */
							obj_t BgL_a1z00_15982;
							obj_t BgL_a2z00_15983;

							BgL_a1z00_15982 =
								BGL_PROCEDURE_CALL1(BgL_a1z00_14034, BgL_sz00_14037);
							BgL_a2z00_15983 =
								BGL_PROCEDURE_CALL1(BgL_a2z00_14035, BgL_sz00_14037);
							if (INTEGERP(BgL_a1z00_15982))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4623z00zz__evaluate_compz00,
										BGl_symbol4619z00zz__evaluate_compz00, BgL_a1z00_15982,
										BgL_locz00_14036);
								}
							if (INTEGERP(BgL_a2z00_15983))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4623z00zz__evaluate_compz00,
										BGl_symbol4619z00zz__evaluate_compz00, BgL_a2z00_15983,
										BgL_locz00_14036);
								}
							BgL_tmpz00_24173 =
								((long) CINT(BgL_a1z00_15982) * (long) CINT(BgL_a2z00_15983));
					}}
					return BINT(BgL_tmpz00_24173);
				}
			}
		}

	}



/* &<@anonymous:2851> */
	obj_t BGl_z62zc3z04anonymousza32851ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14038, obj_t BgL_sz00_14042)
	{
		{	/* Eval/evaluate_comp.scm 1028 */
			{	/* Eval/evaluate_comp.scm 1028 */
				obj_t BgL_a1z00_14039;
				obj_t BgL_a2z00_14040;
				obj_t BgL_locz00_14041;

				BgL_a1z00_14039 = PROCEDURE_REF(BgL_envz00_14038, (int) (0L));
				BgL_a2z00_14040 = PROCEDURE_REF(BgL_envz00_14038, (int) (1L));
				BgL_locz00_14041 = PROCEDURE_REF(BgL_envz00_14038, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1028 */
					long BgL_tmpz00_24200;

					{	/* Eval/evaluate_comp.scm 1028 */
						obj_t BgL_bpz00_15984;

						BgL_bpz00_15984 = VECTOR_REF(((obj_t) BgL_sz00_14042), 0L);
						{	/* Eval/evaluate_comp.scm 1028 */
							obj_t BgL_a1z00_15985;
							obj_t BgL_a2z00_15986;

							BgL_a1z00_15985 =
								BGL_PROCEDURE_CALL1(BgL_a1z00_14039, BgL_sz00_14042);
							BgL_a2z00_15986 =
								BGL_PROCEDURE_CALL1(BgL_a2z00_14040, BgL_sz00_14042);
							if (INTEGERP(BgL_a1z00_15985))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4625z00zz__evaluate_compz00,
										BGl_symbol4619z00zz__evaluate_compz00, BgL_a1z00_15985,
										BgL_locz00_14041);
								}
							if (INTEGERP(BgL_a2z00_15986))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4625z00zz__evaluate_compz00,
										BGl_symbol4619z00zz__evaluate_compz00, BgL_a2z00_15986,
										BgL_locz00_14041);
								}
							BgL_tmpz00_24200 =
								((long) CINT(BgL_a1z00_15985) / (long) CINT(BgL_a2z00_15986));
					}}
					return BINT(BgL_tmpz00_24200);
				}
			}
		}

	}



/* &<@anonymous:2854> */
	obj_t BGl_z62zc3z04anonymousza32854ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14043, obj_t BgL_sz00_14047)
	{
		{	/* Eval/evaluate_comp.scm 1028 */
			{	/* Eval/evaluate_comp.scm 1028 */
				obj_t BgL_a1z00_14044;
				obj_t BgL_a2z00_14045;
				obj_t BgL_locz00_14046;

				BgL_a1z00_14044 = PROCEDURE_REF(BgL_envz00_14043, (int) (0L));
				BgL_a2z00_14045 = PROCEDURE_REF(BgL_envz00_14043, (int) (1L));
				BgL_locz00_14046 = PROCEDURE_REF(BgL_envz00_14043, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1028 */
					bool_t BgL_tmpz00_24227;

					{	/* Eval/evaluate_comp.scm 1028 */
						obj_t BgL_bpz00_15987;

						BgL_bpz00_15987 = VECTOR_REF(((obj_t) BgL_sz00_14047), 0L);
						{	/* Eval/evaluate_comp.scm 1028 */
							obj_t BgL_a1z00_15988;
							obj_t BgL_a2z00_15989;

							BgL_a1z00_15988 =
								BGL_PROCEDURE_CALL1(BgL_a1z00_14044, BgL_sz00_14047);
							BgL_a2z00_15989 =
								BGL_PROCEDURE_CALL1(BgL_a2z00_14045, BgL_sz00_14047);
							if (INTEGERP(BgL_a1z00_15988))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4627z00zz__evaluate_compz00,
										BGl_symbol4619z00zz__evaluate_compz00, BgL_a1z00_15988,
										BgL_locz00_14046);
								}
							if (INTEGERP(BgL_a2z00_15989))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4627z00zz__evaluate_compz00,
										BGl_symbol4619z00zz__evaluate_compz00, BgL_a2z00_15989,
										BgL_locz00_14046);
								}
							BgL_tmpz00_24227 =
								((long) CINT(BgL_a1z00_15988) < (long) CINT(BgL_a2z00_15989));
					}}
					return BBOOL(BgL_tmpz00_24227);
				}
			}
		}

	}



/* &<@anonymous:2857> */
	obj_t BGl_z62zc3z04anonymousza32857ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14048, obj_t BgL_sz00_14052)
	{
		{	/* Eval/evaluate_comp.scm 1028 */
			{	/* Eval/evaluate_comp.scm 1028 */
				obj_t BgL_a1z00_14049;
				obj_t BgL_a2z00_14050;
				obj_t BgL_locz00_14051;

				BgL_a1z00_14049 = PROCEDURE_REF(BgL_envz00_14048, (int) (0L));
				BgL_a2z00_14050 = PROCEDURE_REF(BgL_envz00_14048, (int) (1L));
				BgL_locz00_14051 = PROCEDURE_REF(BgL_envz00_14048, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1028 */
					bool_t BgL_tmpz00_24254;

					{	/* Eval/evaluate_comp.scm 1028 */
						obj_t BgL_bpz00_15990;

						BgL_bpz00_15990 = VECTOR_REF(((obj_t) BgL_sz00_14052), 0L);
						{	/* Eval/evaluate_comp.scm 1028 */
							obj_t BgL_a1z00_15991;
							obj_t BgL_a2z00_15992;

							BgL_a1z00_15991 =
								BGL_PROCEDURE_CALL1(BgL_a1z00_14049, BgL_sz00_14052);
							BgL_a2z00_15992 =
								BGL_PROCEDURE_CALL1(BgL_a2z00_14050, BgL_sz00_14052);
							if (INTEGERP(BgL_a1z00_15991))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4629z00zz__evaluate_compz00,
										BGl_symbol4619z00zz__evaluate_compz00, BgL_a1z00_15991,
										BgL_locz00_14051);
								}
							if (INTEGERP(BgL_a2z00_15992))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4629z00zz__evaluate_compz00,
										BGl_symbol4619z00zz__evaluate_compz00, BgL_a2z00_15992,
										BgL_locz00_14051);
								}
							BgL_tmpz00_24254 =
								((long) CINT(BgL_a1z00_15991) > (long) CINT(BgL_a2z00_15992));
					}}
					return BBOOL(BgL_tmpz00_24254);
				}
			}
		}

	}



/* &<@anonymous:2860> */
	obj_t BGl_z62zc3z04anonymousza32860ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14053, obj_t BgL_sz00_14057)
	{
		{	/* Eval/evaluate_comp.scm 1028 */
			{	/* Eval/evaluate_comp.scm 1028 */
				obj_t BgL_a1z00_14054;
				obj_t BgL_a2z00_14055;
				obj_t BgL_locz00_14056;

				BgL_a1z00_14054 = PROCEDURE_REF(BgL_envz00_14053, (int) (0L));
				BgL_a2z00_14055 = PROCEDURE_REF(BgL_envz00_14053, (int) (1L));
				BgL_locz00_14056 = PROCEDURE_REF(BgL_envz00_14053, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1028 */
					bool_t BgL_tmpz00_24281;

					{	/* Eval/evaluate_comp.scm 1028 */
						obj_t BgL_bpz00_15993;

						BgL_bpz00_15993 = VECTOR_REF(((obj_t) BgL_sz00_14057), 0L);
						{	/* Eval/evaluate_comp.scm 1028 */
							obj_t BgL_a1z00_15994;
							obj_t BgL_a2z00_15995;

							BgL_a1z00_15994 =
								BGL_PROCEDURE_CALL1(BgL_a1z00_14054, BgL_sz00_14057);
							BgL_a2z00_15995 =
								BGL_PROCEDURE_CALL1(BgL_a2z00_14055, BgL_sz00_14057);
							if (INTEGERP(BgL_a1z00_15994))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4631z00zz__evaluate_compz00,
										BGl_symbol4619z00zz__evaluate_compz00, BgL_a1z00_15994,
										BgL_locz00_14056);
								}
							if (INTEGERP(BgL_a2z00_15995))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4631z00zz__evaluate_compz00,
										BGl_symbol4619z00zz__evaluate_compz00, BgL_a2z00_15995,
										BgL_locz00_14056);
								}
							BgL_tmpz00_24281 =
								((long) CINT(BgL_a1z00_15994) <= (long) CINT(BgL_a2z00_15995));
					}}
					return BBOOL(BgL_tmpz00_24281);
				}
			}
		}

	}



/* &<@anonymous:2863> */
	obj_t BGl_z62zc3z04anonymousza32863ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14058, obj_t BgL_sz00_14062)
	{
		{	/* Eval/evaluate_comp.scm 1028 */
			{	/* Eval/evaluate_comp.scm 1028 */
				obj_t BgL_a1z00_14059;
				obj_t BgL_a2z00_14060;
				obj_t BgL_locz00_14061;

				BgL_a1z00_14059 = PROCEDURE_REF(BgL_envz00_14058, (int) (0L));
				BgL_a2z00_14060 = PROCEDURE_REF(BgL_envz00_14058, (int) (1L));
				BgL_locz00_14061 = PROCEDURE_REF(BgL_envz00_14058, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1028 */
					bool_t BgL_tmpz00_24308;

					{	/* Eval/evaluate_comp.scm 1028 */
						obj_t BgL_bpz00_15996;

						BgL_bpz00_15996 = VECTOR_REF(((obj_t) BgL_sz00_14062), 0L);
						{	/* Eval/evaluate_comp.scm 1028 */
							obj_t BgL_a1z00_15997;
							obj_t BgL_a2z00_15998;

							BgL_a1z00_15997 =
								BGL_PROCEDURE_CALL1(BgL_a1z00_14059, BgL_sz00_14062);
							BgL_a2z00_15998 =
								BGL_PROCEDURE_CALL1(BgL_a2z00_14060, BgL_sz00_14062);
							if (INTEGERP(BgL_a1z00_15997))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4633z00zz__evaluate_compz00,
										BGl_symbol4619z00zz__evaluate_compz00, BgL_a1z00_15997,
										BgL_locz00_14061);
								}
							if (INTEGERP(BgL_a2z00_15998))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4633z00zz__evaluate_compz00,
										BGl_symbol4619z00zz__evaluate_compz00, BgL_a2z00_15998,
										BgL_locz00_14061);
								}
							BgL_tmpz00_24308 =
								((long) CINT(BgL_a1z00_15997) >= (long) CINT(BgL_a2z00_15998));
					}}
					return BBOOL(BgL_tmpz00_24308);
				}
			}
		}

	}



/* &<@anonymous:2866> */
	obj_t BGl_z62zc3z04anonymousza32866ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14063, obj_t BgL_sz00_14067)
	{
		{	/* Eval/evaluate_comp.scm 1028 */
			{	/* Eval/evaluate_comp.scm 1028 */
				obj_t BgL_a1z00_14064;
				obj_t BgL_a2z00_14065;
				obj_t BgL_locz00_14066;

				BgL_a1z00_14064 = PROCEDURE_REF(BgL_envz00_14063, (int) (0L));
				BgL_a2z00_14065 = PROCEDURE_REF(BgL_envz00_14063, (int) (1L));
				BgL_locz00_14066 = PROCEDURE_REF(BgL_envz00_14063, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1028 */
					bool_t BgL_tmpz00_24335;

					{	/* Eval/evaluate_comp.scm 1028 */
						obj_t BgL_bpz00_15999;

						BgL_bpz00_15999 = VECTOR_REF(((obj_t) BgL_sz00_14067), 0L);
						{	/* Eval/evaluate_comp.scm 1028 */
							obj_t BgL_a1z00_16000;
							obj_t BgL_a2z00_16001;

							BgL_a1z00_16000 =
								BGL_PROCEDURE_CALL1(BgL_a1z00_14064, BgL_sz00_14067);
							BgL_a2z00_16001 =
								BGL_PROCEDURE_CALL1(BgL_a2z00_14065, BgL_sz00_14067);
							if (INTEGERP(BgL_a1z00_16000))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4635z00zz__evaluate_compz00,
										BGl_symbol4619z00zz__evaluate_compz00, BgL_a1z00_16000,
										BgL_locz00_14066);
								}
							if (INTEGERP(BgL_a2z00_16001))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4635z00zz__evaluate_compz00,
										BGl_symbol4619z00zz__evaluate_compz00, BgL_a2z00_16001,
										BgL_locz00_14066);
								}
							BgL_tmpz00_24335 =
								((long) CINT(BgL_a1z00_16000) == (long) CINT(BgL_a2z00_16001));
					}}
					return BBOOL(BgL_tmpz00_24335);
				}
			}
		}

	}



/* &<@anonymous:2869> */
	obj_t BGl_z62zc3z04anonymousza32869ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14068, obj_t BgL_sz00_14072)
	{
		{	/* Eval/evaluate_comp.scm 1028 */
			{	/* Eval/evaluate_comp.scm 1028 */
				obj_t BgL_a1z00_14069;
				obj_t BgL_a2z00_14070;
				obj_t BgL_locz00_14071;

				BgL_a1z00_14069 = PROCEDURE_REF(BgL_envz00_14068, (int) (0L));
				BgL_a2z00_14070 = PROCEDURE_REF(BgL_envz00_14068, (int) (1L));
				BgL_locz00_14071 = PROCEDURE_REF(BgL_envz00_14068, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1028 */
					double BgL_tmpz00_24362;

					{	/* Eval/evaluate_comp.scm 1028 */
						obj_t BgL_bpz00_16002;

						BgL_bpz00_16002 = VECTOR_REF(((obj_t) BgL_sz00_14072), 0L);
						{	/* Eval/evaluate_comp.scm 1028 */
							obj_t BgL_a1z00_16003;
							obj_t BgL_a2z00_16004;

							BgL_a1z00_16003 =
								BGL_PROCEDURE_CALL1(BgL_a1z00_14069, BgL_sz00_14072);
							BgL_a2z00_16004 =
								BGL_PROCEDURE_CALL1(BgL_a2z00_14070, BgL_sz00_14072);
							if (REALP(BgL_a1z00_16003))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4637z00zz__evaluate_compz00,
										BGl_symbol4639z00zz__evaluate_compz00, BgL_a1z00_16003,
										BgL_locz00_14071);
								}
							if (REALP(BgL_a2z00_16004))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4637z00zz__evaluate_compz00,
										BGl_symbol4639z00zz__evaluate_compz00, BgL_a2z00_16004,
										BgL_locz00_14071);
								}
							BgL_tmpz00_24362 =
								(REAL_TO_DOUBLE(BgL_a1z00_16003) +
								REAL_TO_DOUBLE(BgL_a2z00_16004));
						}
					}
					return DOUBLE_TO_REAL(BgL_tmpz00_24362);
				}
			}
		}

	}



/* &<@anonymous:2872> */
	obj_t BGl_z62zc3z04anonymousza32872ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14073, obj_t BgL_sz00_14077)
	{
		{	/* Eval/evaluate_comp.scm 1028 */
			{	/* Eval/evaluate_comp.scm 1028 */
				obj_t BgL_a1z00_14074;
				obj_t BgL_a2z00_14075;
				obj_t BgL_locz00_14076;

				BgL_a1z00_14074 = PROCEDURE_REF(BgL_envz00_14073, (int) (0L));
				BgL_a2z00_14075 = PROCEDURE_REF(BgL_envz00_14073, (int) (1L));
				BgL_locz00_14076 = PROCEDURE_REF(BgL_envz00_14073, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1028 */
					double BgL_tmpz00_24389;

					{	/* Eval/evaluate_comp.scm 1028 */
						obj_t BgL_bpz00_16005;

						BgL_bpz00_16005 = VECTOR_REF(((obj_t) BgL_sz00_14077), 0L);
						{	/* Eval/evaluate_comp.scm 1028 */
							obj_t BgL_a1z00_16006;
							obj_t BgL_a2z00_16007;

							BgL_a1z00_16006 =
								BGL_PROCEDURE_CALL1(BgL_a1z00_14074, BgL_sz00_14077);
							BgL_a2z00_16007 =
								BGL_PROCEDURE_CALL1(BgL_a2z00_14075, BgL_sz00_14077);
							if (REALP(BgL_a1z00_16006))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4641z00zz__evaluate_compz00,
										BGl_symbol4639z00zz__evaluate_compz00, BgL_a1z00_16006,
										BgL_locz00_14076);
								}
							if (REALP(BgL_a2z00_16007))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4641z00zz__evaluate_compz00,
										BGl_symbol4639z00zz__evaluate_compz00, BgL_a2z00_16007,
										BgL_locz00_14076);
								}
							BgL_tmpz00_24389 =
								(REAL_TO_DOUBLE(BgL_a1z00_16006) -
								REAL_TO_DOUBLE(BgL_a2z00_16007));
						}
					}
					return DOUBLE_TO_REAL(BgL_tmpz00_24389);
				}
			}
		}

	}



/* &<@anonymous:2875> */
	obj_t BGl_z62zc3z04anonymousza32875ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14078, obj_t BgL_sz00_14082)
	{
		{	/* Eval/evaluate_comp.scm 1028 */
			{	/* Eval/evaluate_comp.scm 1028 */
				obj_t BgL_a1z00_14079;
				obj_t BgL_a2z00_14080;
				obj_t BgL_locz00_14081;

				BgL_a1z00_14079 = PROCEDURE_REF(BgL_envz00_14078, (int) (0L));
				BgL_a2z00_14080 = PROCEDURE_REF(BgL_envz00_14078, (int) (1L));
				BgL_locz00_14081 = PROCEDURE_REF(BgL_envz00_14078, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1028 */
					double BgL_tmpz00_24416;

					{	/* Eval/evaluate_comp.scm 1028 */
						obj_t BgL_bpz00_16008;

						BgL_bpz00_16008 = VECTOR_REF(((obj_t) BgL_sz00_14082), 0L);
						{	/* Eval/evaluate_comp.scm 1028 */
							obj_t BgL_a1z00_16009;
							obj_t BgL_a2z00_16010;

							BgL_a1z00_16009 =
								BGL_PROCEDURE_CALL1(BgL_a1z00_14079, BgL_sz00_14082);
							BgL_a2z00_16010 =
								BGL_PROCEDURE_CALL1(BgL_a2z00_14080, BgL_sz00_14082);
							if (REALP(BgL_a1z00_16009))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4643z00zz__evaluate_compz00,
										BGl_symbol4639z00zz__evaluate_compz00, BgL_a1z00_16009,
										BgL_locz00_14081);
								}
							if (REALP(BgL_a2z00_16010))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4643z00zz__evaluate_compz00,
										BGl_symbol4639z00zz__evaluate_compz00, BgL_a2z00_16010,
										BgL_locz00_14081);
								}
							BgL_tmpz00_24416 =
								(REAL_TO_DOUBLE(BgL_a1z00_16009) *
								REAL_TO_DOUBLE(BgL_a2z00_16010));
						}
					}
					return DOUBLE_TO_REAL(BgL_tmpz00_24416);
				}
			}
		}

	}



/* &<@anonymous:2878> */
	obj_t BGl_z62zc3z04anonymousza32878ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14083, obj_t BgL_sz00_14087)
	{
		{	/* Eval/evaluate_comp.scm 1028 */
			{	/* Eval/evaluate_comp.scm 1028 */
				obj_t BgL_a1z00_14084;
				obj_t BgL_a2z00_14085;
				obj_t BgL_locz00_14086;

				BgL_a1z00_14084 = PROCEDURE_REF(BgL_envz00_14083, (int) (0L));
				BgL_a2z00_14085 = PROCEDURE_REF(BgL_envz00_14083, (int) (1L));
				BgL_locz00_14086 = PROCEDURE_REF(BgL_envz00_14083, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1028 */
					double BgL_tmpz00_24443;

					{	/* Eval/evaluate_comp.scm 1028 */
						obj_t BgL_bpz00_16011;

						BgL_bpz00_16011 = VECTOR_REF(((obj_t) BgL_sz00_14087), 0L);
						{	/* Eval/evaluate_comp.scm 1028 */
							obj_t BgL_a1z00_16012;
							obj_t BgL_a2z00_16013;

							BgL_a1z00_16012 =
								BGL_PROCEDURE_CALL1(BgL_a1z00_14084, BgL_sz00_14087);
							BgL_a2z00_16013 =
								BGL_PROCEDURE_CALL1(BgL_a2z00_14085, BgL_sz00_14087);
							if (REALP(BgL_a1z00_16012))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4645z00zz__evaluate_compz00,
										BGl_symbol4639z00zz__evaluate_compz00, BgL_a1z00_16012,
										BgL_locz00_14086);
								}
							if (REALP(BgL_a2z00_16013))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4645z00zz__evaluate_compz00,
										BGl_symbol4639z00zz__evaluate_compz00, BgL_a2z00_16013,
										BgL_locz00_14086);
								}
							BgL_tmpz00_24443 =
								(REAL_TO_DOUBLE(BgL_a1z00_16012) /
								REAL_TO_DOUBLE(BgL_a2z00_16013));
						}
					}
					return DOUBLE_TO_REAL(BgL_tmpz00_24443);
				}
			}
		}

	}



/* &<@anonymous:2881> */
	obj_t BGl_z62zc3z04anonymousza32881ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14088, obj_t BgL_sz00_14092)
	{
		{	/* Eval/evaluate_comp.scm 1028 */
			{	/* Eval/evaluate_comp.scm 1028 */
				obj_t BgL_a1z00_14089;
				obj_t BgL_a2z00_14090;
				obj_t BgL_locz00_14091;

				BgL_a1z00_14089 = PROCEDURE_REF(BgL_envz00_14088, (int) (0L));
				BgL_a2z00_14090 = PROCEDURE_REF(BgL_envz00_14088, (int) (1L));
				BgL_locz00_14091 = PROCEDURE_REF(BgL_envz00_14088, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1028 */
					bool_t BgL_tmpz00_24470;

					{	/* Eval/evaluate_comp.scm 1028 */
						obj_t BgL_bpz00_16014;

						BgL_bpz00_16014 = VECTOR_REF(((obj_t) BgL_sz00_14092), 0L);
						{	/* Eval/evaluate_comp.scm 1028 */
							obj_t BgL_a1z00_16015;
							obj_t BgL_a2z00_16016;

							BgL_a1z00_16015 =
								BGL_PROCEDURE_CALL1(BgL_a1z00_14089, BgL_sz00_14092);
							BgL_a2z00_16016 =
								BGL_PROCEDURE_CALL1(BgL_a2z00_14090, BgL_sz00_14092);
							if (REALP(BgL_a1z00_16015))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4647z00zz__evaluate_compz00,
										BGl_symbol4639z00zz__evaluate_compz00, BgL_a1z00_16015,
										BgL_locz00_14091);
								}
							if (REALP(BgL_a2z00_16016))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4647z00zz__evaluate_compz00,
										BGl_symbol4639z00zz__evaluate_compz00, BgL_a2z00_16016,
										BgL_locz00_14091);
								}
							BgL_tmpz00_24470 =
								(REAL_TO_DOUBLE(BgL_a1z00_16015) <
								REAL_TO_DOUBLE(BgL_a2z00_16016));
						}
					}
					return BBOOL(BgL_tmpz00_24470);
				}
			}
		}

	}



/* &<@anonymous:2884> */
	obj_t BGl_z62zc3z04anonymousza32884ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14093, obj_t BgL_sz00_14097)
	{
		{	/* Eval/evaluate_comp.scm 1028 */
			{	/* Eval/evaluate_comp.scm 1028 */
				obj_t BgL_a1z00_14094;
				obj_t BgL_a2z00_14095;
				obj_t BgL_locz00_14096;

				BgL_a1z00_14094 = PROCEDURE_REF(BgL_envz00_14093, (int) (0L));
				BgL_a2z00_14095 = PROCEDURE_REF(BgL_envz00_14093, (int) (1L));
				BgL_locz00_14096 = PROCEDURE_REF(BgL_envz00_14093, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1028 */
					bool_t BgL_tmpz00_24497;

					{	/* Eval/evaluate_comp.scm 1028 */
						obj_t BgL_bpz00_16017;

						BgL_bpz00_16017 = VECTOR_REF(((obj_t) BgL_sz00_14097), 0L);
						{	/* Eval/evaluate_comp.scm 1028 */
							obj_t BgL_a1z00_16018;
							obj_t BgL_a2z00_16019;

							BgL_a1z00_16018 =
								BGL_PROCEDURE_CALL1(BgL_a1z00_14094, BgL_sz00_14097);
							BgL_a2z00_16019 =
								BGL_PROCEDURE_CALL1(BgL_a2z00_14095, BgL_sz00_14097);
							if (REALP(BgL_a1z00_16018))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4649z00zz__evaluate_compz00,
										BGl_symbol4639z00zz__evaluate_compz00, BgL_a1z00_16018,
										BgL_locz00_14096);
								}
							if (REALP(BgL_a2z00_16019))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4649z00zz__evaluate_compz00,
										BGl_symbol4639z00zz__evaluate_compz00, BgL_a2z00_16019,
										BgL_locz00_14096);
								}
							BgL_tmpz00_24497 =
								(REAL_TO_DOUBLE(BgL_a1z00_16018) >
								REAL_TO_DOUBLE(BgL_a2z00_16019));
						}
					}
					return BBOOL(BgL_tmpz00_24497);
				}
			}
		}

	}



/* &<@anonymous:2887> */
	obj_t BGl_z62zc3z04anonymousza32887ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14098, obj_t BgL_sz00_14102)
	{
		{	/* Eval/evaluate_comp.scm 1028 */
			{	/* Eval/evaluate_comp.scm 1028 */
				obj_t BgL_a1z00_14099;
				obj_t BgL_a2z00_14100;
				obj_t BgL_locz00_14101;

				BgL_a1z00_14099 = PROCEDURE_REF(BgL_envz00_14098, (int) (0L));
				BgL_a2z00_14100 = PROCEDURE_REF(BgL_envz00_14098, (int) (1L));
				BgL_locz00_14101 = PROCEDURE_REF(BgL_envz00_14098, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1028 */
					bool_t BgL_tmpz00_24524;

					{	/* Eval/evaluate_comp.scm 1028 */
						obj_t BgL_bpz00_16020;

						BgL_bpz00_16020 = VECTOR_REF(((obj_t) BgL_sz00_14102), 0L);
						{	/* Eval/evaluate_comp.scm 1028 */
							obj_t BgL_a1z00_16021;
							obj_t BgL_a2z00_16022;

							BgL_a1z00_16021 =
								BGL_PROCEDURE_CALL1(BgL_a1z00_14099, BgL_sz00_14102);
							BgL_a2z00_16022 =
								BGL_PROCEDURE_CALL1(BgL_a2z00_14100, BgL_sz00_14102);
							if (REALP(BgL_a1z00_16021))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4651z00zz__evaluate_compz00,
										BGl_symbol4639z00zz__evaluate_compz00, BgL_a1z00_16021,
										BgL_locz00_14101);
								}
							if (REALP(BgL_a2z00_16022))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4651z00zz__evaluate_compz00,
										BGl_symbol4639z00zz__evaluate_compz00, BgL_a2z00_16022,
										BgL_locz00_14101);
								}
							BgL_tmpz00_24524 =
								(REAL_TO_DOUBLE(BgL_a1z00_16021) <=
								REAL_TO_DOUBLE(BgL_a2z00_16022));
						}
					}
					return BBOOL(BgL_tmpz00_24524);
				}
			}
		}

	}



/* &<@anonymous:2890> */
	obj_t BGl_z62zc3z04anonymousza32890ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14103, obj_t BgL_sz00_14107)
	{
		{	/* Eval/evaluate_comp.scm 1028 */
			{	/* Eval/evaluate_comp.scm 1028 */
				obj_t BgL_a1z00_14104;
				obj_t BgL_a2z00_14105;
				obj_t BgL_locz00_14106;

				BgL_a1z00_14104 = PROCEDURE_REF(BgL_envz00_14103, (int) (0L));
				BgL_a2z00_14105 = PROCEDURE_REF(BgL_envz00_14103, (int) (1L));
				BgL_locz00_14106 = PROCEDURE_REF(BgL_envz00_14103, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1028 */
					bool_t BgL_tmpz00_24551;

					{	/* Eval/evaluate_comp.scm 1028 */
						obj_t BgL_bpz00_16023;

						BgL_bpz00_16023 = VECTOR_REF(((obj_t) BgL_sz00_14107), 0L);
						{	/* Eval/evaluate_comp.scm 1028 */
							obj_t BgL_a1z00_16024;
							obj_t BgL_a2z00_16025;

							BgL_a1z00_16024 =
								BGL_PROCEDURE_CALL1(BgL_a1z00_14104, BgL_sz00_14107);
							BgL_a2z00_16025 =
								BGL_PROCEDURE_CALL1(BgL_a2z00_14105, BgL_sz00_14107);
							if (REALP(BgL_a1z00_16024))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4653z00zz__evaluate_compz00,
										BGl_symbol4639z00zz__evaluate_compz00, BgL_a1z00_16024,
										BgL_locz00_14106);
								}
							if (REALP(BgL_a2z00_16025))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4653z00zz__evaluate_compz00,
										BGl_symbol4639z00zz__evaluate_compz00, BgL_a2z00_16025,
										BgL_locz00_14106);
								}
							BgL_tmpz00_24551 =
								(REAL_TO_DOUBLE(BgL_a1z00_16024) >=
								REAL_TO_DOUBLE(BgL_a2z00_16025));
						}
					}
					return BBOOL(BgL_tmpz00_24551);
				}
			}
		}

	}



/* &<@anonymous:2893> */
	obj_t BGl_z62zc3z04anonymousza32893ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14108, obj_t BgL_sz00_14112)
	{
		{	/* Eval/evaluate_comp.scm 1028 */
			{	/* Eval/evaluate_comp.scm 1028 */
				obj_t BgL_a1z00_14109;
				obj_t BgL_a2z00_14110;
				obj_t BgL_locz00_14111;

				BgL_a1z00_14109 = PROCEDURE_REF(BgL_envz00_14108, (int) (0L));
				BgL_a2z00_14110 = PROCEDURE_REF(BgL_envz00_14108, (int) (1L));
				BgL_locz00_14111 = PROCEDURE_REF(BgL_envz00_14108, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1028 */
					bool_t BgL_tmpz00_24578;

					{	/* Eval/evaluate_comp.scm 1028 */
						obj_t BgL_bpz00_16026;

						BgL_bpz00_16026 = VECTOR_REF(((obj_t) BgL_sz00_14112), 0L);
						{	/* Eval/evaluate_comp.scm 1028 */
							obj_t BgL_a1z00_16027;
							obj_t BgL_a2z00_16028;

							BgL_a1z00_16027 =
								BGL_PROCEDURE_CALL1(BgL_a1z00_14109, BgL_sz00_14112);
							BgL_a2z00_16028 =
								BGL_PROCEDURE_CALL1(BgL_a2z00_14110, BgL_sz00_14112);
							if (REALP(BgL_a1z00_16027))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4655z00zz__evaluate_compz00,
										BGl_symbol4639z00zz__evaluate_compz00, BgL_a1z00_16027,
										BgL_locz00_14111);
								}
							if (REALP(BgL_a2z00_16028))
								{	/* Eval/evaluate_comp.scm 1028 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1028 */
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4655z00zz__evaluate_compz00,
										BGl_symbol4639z00zz__evaluate_compz00, BgL_a2z00_16028,
										BgL_locz00_14111);
								}
							BgL_tmpz00_24578 =
								(REAL_TO_DOUBLE(BgL_a1z00_16027) ==
								REAL_TO_DOUBLE(BgL_a2z00_16028));
						}
					}
					return BBOOL(BgL_tmpz00_24578);
				}
			}
		}

	}



/* &<@anonymous:2896> */
	obj_t BGl_z62zc3z04anonymousza32896ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14113, obj_t BgL_sz00_14116)
	{
		{	/* Eval/evaluate_comp.scm 1028 */
			{	/* Eval/evaluate_comp.scm 1028 */
				obj_t BgL_a1z00_14114;
				obj_t BgL_a2z00_14115;

				BgL_a1z00_14114 = PROCEDURE_REF(BgL_envz00_14113, (int) (0L));
				BgL_a2z00_14115 = PROCEDURE_REF(BgL_envz00_14113, (int) (1L));
				{	/* Eval/evaluate_comp.scm 1028 */
					bool_t BgL_tmpz00_24603;

					{	/* Eval/evaluate_comp.scm 1028 */
						obj_t BgL_bpz00_16029;

						BgL_bpz00_16029 = VECTOR_REF(((obj_t) BgL_sz00_14116), 0L);
						{	/* Eval/evaluate_comp.scm 1028 */
							obj_t BgL_a1z00_16030;
							obj_t BgL_a2z00_16031;

							BgL_a1z00_16030 =
								BGL_PROCEDURE_CALL1(BgL_a1z00_14114, BgL_sz00_14116);
							BgL_a2z00_16031 =
								BGL_PROCEDURE_CALL1(BgL_a2z00_14115, BgL_sz00_14116);
							BgL_tmpz00_24603 = (BgL_a1z00_16030 == BgL_a2z00_16031);
					}}
					return BBOOL(BgL_tmpz00_24603);
				}
			}
		}

	}



/* &<@anonymous:2897> */
	obj_t BGl_z62zc3z04anonymousza32897ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14117, obj_t BgL_sz00_14120)
	{
		{	/* Eval/evaluate_comp.scm 1028 */
			{	/* Eval/evaluate_comp.scm 1028 */
				obj_t BgL_a1z00_14118;
				obj_t BgL_a2z00_14119;

				BgL_a1z00_14118 = PROCEDURE_REF(BgL_envz00_14117, (int) (0L));
				BgL_a2z00_14119 = PROCEDURE_REF(BgL_envz00_14117, (int) (1L));
				{	/* Eval/evaluate_comp.scm 1028 */
					obj_t BgL_bpz00_16032;

					BgL_bpz00_16032 = VECTOR_REF(((obj_t) BgL_sz00_14120), 0L);
					{	/* Eval/evaluate_comp.scm 1028 */
						obj_t BgL_a1z00_16033;
						obj_t BgL_a2z00_16034;

						BgL_a1z00_16033 =
							BGL_PROCEDURE_CALL1(BgL_a1z00_14118, BgL_sz00_14120);
						BgL_a2z00_16034 =
							BGL_PROCEDURE_CALL1(BgL_a2z00_14119, BgL_sz00_14120);
						return MAKE_YOUNG_PAIR(BgL_a1z00_16033, BgL_a2z00_16034);
					}
				}
			}
		}

	}



/* &<@anonymous:2899> */
	obj_t BGl_z62zc3z04anonymousza32899ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14121, obj_t BgL_sz00_14124)
	{
		{	/* Eval/evaluate_comp.scm 1025 */
			{	/* Eval/evaluate_comp.scm 1025 */
				obj_t BgL_a1z00_14122;
				obj_t BgL_locz00_14123;

				BgL_a1z00_14122 = PROCEDURE_REF(BgL_envz00_14121, (int) (0L));
				BgL_locz00_14123 = PROCEDURE_REF(BgL_envz00_14121, (int) (1L));
				{	/* Eval/evaluate_comp.scm 1025 */
					obj_t BgL_bpz00_16035;

					BgL_bpz00_16035 = VECTOR_REF(((obj_t) BgL_sz00_14124), 0L);
					{	/* Eval/evaluate_comp.scm 1025 */
						obj_t BgL_a1z00_16036;

						BgL_a1z00_16036 =
							BGL_PROCEDURE_CALL1(BgL_a1z00_14122, BgL_sz00_14124);
						if (PAIRP(BgL_a1z00_16036))
							{	/* Eval/evaluate_comp.scm 1025 */
								BFALSE;
							}
						else
							{	/* Eval/evaluate_comp.scm 1025 */
								BGl_loczd2typezd2errorz00zz__evaluate_compz00
									(BGl_symbol4657z00zz__evaluate_compz00,
									BGl_symbol4659z00zz__evaluate_compz00, BgL_a1z00_16036,
									BgL_locz00_14123);
							}
						return CAR(((obj_t) BgL_a1z00_16036));
					}
				}
			}
		}

	}



/* &<@anonymous:2901> */
	obj_t BGl_z62zc3z04anonymousza32901ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14125, obj_t BgL_sz00_14128)
	{
		{	/* Eval/evaluate_comp.scm 1025 */
			{	/* Eval/evaluate_comp.scm 1025 */
				obj_t BgL_a1z00_14126;
				obj_t BgL_locz00_14127;

				BgL_a1z00_14126 = PROCEDURE_REF(BgL_envz00_14125, (int) (0L));
				BgL_locz00_14127 = PROCEDURE_REF(BgL_envz00_14125, (int) (1L));
				{	/* Eval/evaluate_comp.scm 1025 */
					obj_t BgL_bpz00_16037;

					BgL_bpz00_16037 = VECTOR_REF(((obj_t) BgL_sz00_14128), 0L);
					{	/* Eval/evaluate_comp.scm 1025 */
						obj_t BgL_a1z00_16038;

						BgL_a1z00_16038 =
							BGL_PROCEDURE_CALL1(BgL_a1z00_14126, BgL_sz00_14128);
						if (PAIRP(BgL_a1z00_16038))
							{	/* Eval/evaluate_comp.scm 1025 */
								BFALSE;
							}
						else
							{	/* Eval/evaluate_comp.scm 1025 */
								BGl_loczd2typezd2errorz00zz__evaluate_compz00
									(BGl_symbol4661z00zz__evaluate_compz00,
									BGl_symbol4659z00zz__evaluate_compz00, BgL_a1z00_16038,
									BgL_locz00_14127);
							}
						return CDR(((obj_t) BgL_a1z00_16038));
					}
				}
			}
		}

	}



/* &<@anonymous:2903> */
	obj_t BGl_z62zc3z04anonymousza32903ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14129, obj_t BgL_sz00_14132)
	{
		{	/* Eval/evaluate_comp.scm 1025 */
			{	/* Eval/evaluate_comp.scm 1025 */
				obj_t BgL_a1z00_14130;
				obj_t BgL_locz00_14131;

				BgL_a1z00_14130 = PROCEDURE_REF(BgL_envz00_14129, (int) (0L));
				BgL_locz00_14131 = PROCEDURE_REF(BgL_envz00_14129, (int) (1L));
				{	/* Eval/evaluate_comp.scm 1025 */
					obj_t BgL_bpz00_16039;

					BgL_bpz00_16039 = VECTOR_REF(((obj_t) BgL_sz00_14132), 0L);
					{	/* Eval/evaluate_comp.scm 1025 */
						obj_t BgL_a1z00_16040;

						BgL_a1z00_16040 =
							BGL_PROCEDURE_CALL1(BgL_a1z00_14130, BgL_sz00_14132);
						{	/* Eval/evaluate_comp.scm 1025 */
							bool_t BgL_test5396z00_24671;

							if (PAIRP(BgL_a1z00_16040))
								{	/* Eval/evaluate_comp.scm 1034 */
									obj_t BgL_tmpz00_24674;

									BgL_tmpz00_24674 = CDR(BgL_a1z00_16040);
									BgL_test5396z00_24671 = PAIRP(BgL_tmpz00_24674);
								}
							else
								{	/* Eval/evaluate_comp.scm 1034 */
									BgL_test5396z00_24671 = ((bool_t) 0);
								}
							if (BgL_test5396z00_24671)
								{	/* Eval/evaluate_comp.scm 1025 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1025 */
									obj_t BgL_arg2909z00_16041;

									if (PAIRP(BgL_a1z00_16040))
										{	/* Eval/evaluate_comp.scm 1037 */
											BgL_arg2909z00_16041 = CDR(BgL_a1z00_16040);
										}
									else
										{	/* Eval/evaluate_comp.scm 1037 */
											BgL_arg2909z00_16041 = BgL_a1z00_16040;
										}
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
										(BGl_symbol4663z00zz__evaluate_compz00,
										BGl_symbol4659z00zz__evaluate_compz00, BgL_arg2909z00_16041,
										BgL_locz00_14131);
								}
						}
						{	/* Eval/evaluate_comp.scm 1025 */
							obj_t BgL_pairz00_16042;

							BgL_pairz00_16042 = CDR(((obj_t) BgL_a1z00_16040));
							return CAR(BgL_pairz00_16042);
						}
					}
				}
			}
		}

	}



/* bind-frame */
	obj_t BGl_bindzd2framezd2zz__evaluate_compz00(obj_t BgL_sz00_203,
		obj_t BgL_wherez00_204, long BgL_spz00_205, long BgL_arityz00_206,
		obj_t BgL_valsz00_207, obj_t BgL_locz00_208)
	{
		{	/* Eval/evaluate_comp.scm 1070 */
			if ((BgL_arityz00_206 < 0L))
				{	/* Eval/evaluate_comp.scm 1072 */
					long BgL_g1245z00_3531;

					BgL_g1245z00_3531 = ((-1L) - BgL_arityz00_206);
					{
						long BgL_rz00_3533;
						long BgL_spz00_3534;
						obj_t BgL_lz00_3535;

						BgL_rz00_3533 = BgL_g1245z00_3531;
						BgL_spz00_3534 = BgL_spz00_205;
						BgL_lz00_3535 = BgL_valsz00_207;
					BgL_zc3z04anonymousza32914ze3z87_3536:
						if ((BgL_rz00_3533 == 0L))
							{	/* Eval/evaluate_comp.scm 1074 */
								return
									VECTOR_SET(
									((obj_t) BgL_sz00_203), BgL_spz00_3534, BgL_lz00_3535);
							}
						else
							{	/* Eval/evaluate_comp.scm 1074 */
								if (PAIRP(BgL_lz00_3535))
									{	/* Eval/evaluate_comp.scm 1076 */
										{	/* Eval/evaluate_comp.scm 1079 */
											obj_t BgL_arg2917z00_3539;

											BgL_arg2917z00_3539 = CAR(BgL_lz00_3535);
											VECTOR_SET(
												((obj_t) BgL_sz00_203), BgL_spz00_3534,
												BgL_arg2917z00_3539);
										}
										{
											obj_t BgL_lz00_24700;
											long BgL_spz00_24698;
											long BgL_rz00_24696;

											BgL_rz00_24696 = (BgL_rz00_3533 - 1L);
											BgL_spz00_24698 = (BgL_spz00_3534 + 1L);
											BgL_lz00_24700 = CDR(BgL_lz00_3535);
											BgL_lz00_3535 = BgL_lz00_24700;
											BgL_spz00_3534 = BgL_spz00_24698;
											BgL_rz00_3533 = BgL_rz00_24696;
											goto BgL_zc3z04anonymousza32914ze3z87_3536;
										}
									}
								else
									{	/* Eval/evaluate_comp.scm 1077 */
										long BgL_arg2921z00_3543;

										BgL_arg2921z00_3543 = bgl_list_length(BgL_valsz00_207);
										return
											BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_208,
											BgL_wherez00_204, (int) (BgL_arityz00_206),
											(int) (BgL_arg2921z00_3543));
				}}}}
			else
				{
					long BgL_rz00_3546;
					long BgL_spz00_3547;
					obj_t BgL_lz00_3548;

					BgL_rz00_3546 = BgL_arityz00_206;
					BgL_spz00_3547 = BgL_spz00_205;
					BgL_lz00_3548 = BgL_valsz00_207;
				BgL_zc3z04anonymousza32922ze3z87_3549:
					if ((BgL_rz00_3546 == 0L))
						{	/* Eval/evaluate_comp.scm 1083 */
							if (NULLP(BgL_lz00_3548))
								{	/* Eval/evaluate_comp.scm 1084 */
									return BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 1085 */
									long BgL_arg2925z00_3552;

									BgL_arg2925z00_3552 = bgl_list_length(BgL_valsz00_207);
									return
										BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_208,
										BgL_wherez00_204, (int) (BgL_arityz00_206),
										(int) (BgL_arg2925z00_3552));
						}}
					else
						{	/* Eval/evaluate_comp.scm 1083 */
							if (PAIRP(BgL_lz00_3548))
								{	/* Eval/evaluate_comp.scm 1086 */
									{	/* Eval/evaluate_comp.scm 1089 */
										obj_t BgL_arg2927z00_3554;

										BgL_arg2927z00_3554 = CAR(BgL_lz00_3548);
										VECTOR_SET(
											((obj_t) BgL_sz00_203), BgL_spz00_3547,
											BgL_arg2927z00_3554);
									}
									{
										obj_t BgL_lz00_24723;
										long BgL_spz00_24721;
										long BgL_rz00_24719;

										BgL_rz00_24719 = (BgL_rz00_3546 - 1L);
										BgL_spz00_24721 = (BgL_spz00_3547 + 1L);
										BgL_lz00_24723 = CDR(BgL_lz00_3548);
										BgL_lz00_3548 = BgL_lz00_24723;
										BgL_spz00_3547 = BgL_spz00_24721;
										BgL_rz00_3546 = BgL_rz00_24719;
										goto BgL_zc3z04anonymousza32922ze3z87_3549;
									}
								}
							else
								{	/* Eval/evaluate_comp.scm 1087 */
									long BgL_arg2931z00_3558;

									BgL_arg2931z00_3558 = bgl_list_length(BgL_valsz00_207);
									return
										BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_208,
										BgL_wherez00_204, (int) (BgL_arityz00_206),
										(int) (BgL_arg2931z00_3558));
		}}}}

	}



/* make-boxes */
	bool_t BGl_makezd2boxeszd2zz__evaluate_compz00(obj_t BgL_sz00_211,
		obj_t BgL_ibza2za2_212, obj_t BgL_bpz00_213)
	{
		{	/* Eval/evaluate_comp.scm 1184 */
			{
				long BgL_iz00_3562;

				BgL_iz00_3562 = 0L;
			BgL_zc3z04anonymousza32932ze3z87_3563:
				{	/* Eval/evaluate_comp.scm 1187 */
					long BgL_spz00_3564;

					{	/* Eval/evaluate_comp.scm 1187 */
						obj_t BgL_arg2938z00_3569;

						BgL_arg2938z00_3569 =
							VECTOR_REF(((obj_t) BgL_ibza2za2_212), BgL_iz00_3562);
						BgL_spz00_3564 =
							((long) CINT(BgL_bpz00_213) + (long) CINT(BgL_arg2938z00_3569));
					}
					{	/* Eval/evaluate_comp.scm 1188 */
						obj_t BgL_arg2935z00_3565;

						{	/* Eval/evaluate_comp.scm 1188 */
							obj_t BgL_arg2936z00_3566;

							BgL_arg2936z00_3566 =
								VECTOR_REF(((obj_t) BgL_sz00_211), BgL_spz00_3564);
							{	/* Eval/evaluate_comp.scm 202 */
								obj_t BgL_newz00_9632;

								BgL_newz00_9632 =
									create_struct(BGl_symbol4587z00zz__evaluate_compz00,
									(int) (1L));
								{	/* Eval/evaluate_comp.scm 202 */
									int BgL_tmpz00_24738;

									BgL_tmpz00_24738 = (int) (0L);
									STRUCT_SET(BgL_newz00_9632, BgL_tmpz00_24738,
										BgL_arg2936z00_3566);
								}
								BgL_arg2935z00_3565 = BgL_newz00_9632;
						}}
						VECTOR_SET(
							((obj_t) BgL_sz00_211), BgL_spz00_3564, BgL_arg2935z00_3565);
					}
					{	/* Eval/evaluate_comp.scm 1189 */
						long BgL_niz00_3567;

						BgL_niz00_3567 = (BgL_iz00_3562 + 1L);
						if ((BgL_niz00_3567 < VECTOR_LENGTH(((obj_t) BgL_ibza2za2_212))))
							{
								long BgL_iz00_24748;

								BgL_iz00_24748 = BgL_niz00_3567;
								BgL_iz00_3562 = BgL_iz00_24748;
								goto BgL_zc3z04anonymousza32932ze3z87_3563;
							}
						else
							{	/* Eval/evaluate_comp.scm 1190 */
								return ((bool_t) 0);
							}
					}
				}
			}
		}

	}



/* free-collect */
	obj_t BGl_freezd2collectzd2zz__evaluate_compz00(obj_t BgL_sz00_214,
		obj_t BgL_bpz00_215, obj_t BgL_iza2za2_216)
	{
		{	/* Eval/evaluate_comp.scm 1192 */
			{	/* Eval/evaluate_comp.scm 1193 */
				obj_t BgL_rz00_3572;

				BgL_rz00_3572 =
					make_vector(VECTOR_LENGTH(((obj_t) BgL_iza2za2_216)), BUNSPEC);
				{	/* Eval/evaluate_comp.scm 1193 */

					{
						long BgL_iz00_3574;

						BgL_iz00_3574 = 0L;
					BgL_zc3z04anonymousza32939ze3z87_3575:
						if ((BgL_iz00_3574 >= VECTOR_LENGTH(((obj_t) BgL_iza2za2_216))))
							{	/* Eval/evaluate_comp.scm 1195 */
								return BgL_rz00_3572;
							}
						else
							{	/* Eval/evaluate_comp.scm 1195 */
								{	/* Eval/evaluate_comp.scm 1198 */
									obj_t BgL_arg2941z00_3577;

									{	/* Eval/evaluate_comp.scm 1198 */
										long BgL_arg2944z00_3578;

										{	/* Eval/evaluate_comp.scm 1198 */
											obj_t BgL_arg2945z00_3579;

											BgL_arg2945z00_3579 =
												VECTOR_REF(((obj_t) BgL_iza2za2_216), BgL_iz00_3574);
											BgL_arg2944z00_3578 =
												(
												(long) CINT(BgL_bpz00_215) +
												(long) CINT(BgL_arg2945z00_3579));
										}
										BgL_arg2941z00_3577 =
											VECTOR_REF(((obj_t) BgL_sz00_214), BgL_arg2944z00_3578);
									}
									VECTOR_SET(BgL_rz00_3572, BgL_iz00_3574, BgL_arg2941z00_3577);
								}
								{
									long BgL_iz00_24764;

									BgL_iz00_24764 = (BgL_iz00_3574 + 1L);
									BgL_iz00_3574 = BgL_iz00_24764;
									goto BgL_zc3z04anonymousza32939ze3z87_3575;
								}
							}
					}
				}
			}
		}

	}



/* free-restore */
	bool_t BGl_freezd2restorezd2zz__evaluate_compz00(obj_t BgL_sz00_217,
		obj_t BgL_valza2za2_218, long BgL_spz00_219)
	{
		{	/* Eval/evaluate_comp.scm 1201 */
			{	/* Eval/evaluate_comp.scm 1202 */
				long BgL_stopz00_3583;

				BgL_stopz00_3583 =
					(BgL_spz00_219 + VECTOR_LENGTH(((obj_t) BgL_valza2za2_218)));
				{
					long BgL_iz00_9680;
					long BgL_spz00_9681;

					BgL_iz00_9680 = 0L;
					BgL_spz00_9681 = BgL_spz00_219;
				BgL_recz00_9679:
					if ((BgL_spz00_9681 < BgL_stopz00_3583))
						{	/* Eval/evaluate_comp.scm 1204 */
							{	/* Eval/evaluate_comp.scm 1205 */
								obj_t BgL_arg2961z00_9687;

								BgL_arg2961z00_9687 =
									VECTOR_REF(((obj_t) BgL_valza2za2_218), BgL_iz00_9680);
								VECTOR_SET(
									((obj_t) BgL_sz00_217), BgL_spz00_9681, BgL_arg2961z00_9687);
							}
							{
								long BgL_spz00_24777;
								long BgL_iz00_24775;

								BgL_iz00_24775 = (BgL_iz00_9680 + 1L);
								BgL_spz00_24777 = (BgL_spz00_9681 + 1L);
								BgL_spz00_9681 = BgL_spz00_24777;
								BgL_iz00_9680 = BgL_iz00_24775;
								goto BgL_recz00_9679;
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1204 */
							return ((bool_t) 0);
						}
				}
			}
		}

	}



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

	}



/* generic-init */
	obj_t BGl_genericzd2initzd2zz__evaluate_compz00(void)
	{
		{	/* Eval/evaluate_comp.scm 15 */
			return
				BGl_registerzd2genericz12zc0zz__objectz00
				(BGl_compzd2envzd2zz__evaluate_compz00,
				BGl_proc4665z00zz__evaluate_compz00,
				BGl_ev_exprz00zz__evaluate_typesz00,
				BGl_string4666z00zz__evaluate_compz00);
		}

	}



/* &comp1418 */
	obj_t BGl_z62comp1418z62zz__evaluate_compz00(obj_t BgL_envz00_14218,
		obj_t BgL_ez00_14219, obj_t BgL_stkz00_14220)
	{
		{	/* Eval/evaluate_comp.scm 276 */
			return
				BGl_errorz00zz__errorz00(BGl_string4577z00zz__evaluate_compz00,
				BGl_string4667z00zz__evaluate_compz00,
				((obj_t) ((BgL_ev_exprz00_bglt) BgL_ez00_14219)));
		}

	}



/* comp */
	obj_t BGl_compz00zz__evaluate_compz00(BgL_ev_exprz00_bglt BgL_ez00_35,
		obj_t BgL_stkz00_36)
	{
		{	/* Eval/evaluate_comp.scm 276 */
			{	/* Eval/evaluate_comp.scm 276 */
				obj_t BgL_method1419z00_3599;

				{	/* Eval/evaluate_comp.scm 276 */
					obj_t BgL_res4438z00_9728;

					{	/* Eval/evaluate_comp.scm 276 */
						long BgL_objzd2classzd2numz00_9699;

						BgL_objzd2classzd2numz00_9699 =
							BGL_OBJECT_CLASS_NUM(((BgL_objectz00_bglt) BgL_ez00_35));
						{	/* Eval/evaluate_comp.scm 276 */
							obj_t BgL_arg4299z00_9700;

							BgL_arg4299z00_9700 =
								PROCEDURE_REF(BGl_compzd2envzd2zz__evaluate_compz00,
								(int) (1L));
							{	/* Eval/evaluate_comp.scm 276 */
								int BgL_offsetz00_9703;

								BgL_offsetz00_9703 = (int) (BgL_objzd2classzd2numz00_9699);
								{	/* Eval/evaluate_comp.scm 276 */
									long BgL_offsetz00_9704;

									BgL_offsetz00_9704 =
										((long) (BgL_offsetz00_9703) - OBJECT_TYPE);
									{	/* Eval/evaluate_comp.scm 276 */
										long BgL_modz00_9705;

										BgL_modz00_9705 =
											(BgL_offsetz00_9704 >> (int) ((long) ((int) (4L))));
										{	/* Eval/evaluate_comp.scm 276 */
											long BgL_restz00_9707;

											BgL_restz00_9707 =
												(BgL_offsetz00_9704 &
												(long) (
													(int) (
														((long) (
																(int) (
																	(1L <<
																		(int) ((long) ((int) (4L)))))) - 1L))));
											{	/* Eval/evaluate_comp.scm 276 */

												{	/* Eval/evaluate_comp.scm 276 */
													obj_t BgL_bucketz00_9709;

													BgL_bucketz00_9709 =
														VECTOR_REF(
														((obj_t) BgL_arg4299z00_9700), BgL_modz00_9705);
													BgL_res4438z00_9728 =
														VECTOR_REF(
														((obj_t) BgL_bucketz00_9709), BgL_restz00_9707);
					}}}}}}}}
					BgL_method1419z00_3599 = BgL_res4438z00_9728;
				}
				return
					BGL_PROCEDURE_CALL2(BgL_method1419z00_3599,
					((obj_t) BgL_ez00_35), BgL_stkz00_36);
			}
		}

	}



/* &comp */
	obj_t BGl_z62compz62zz__evaluate_compz00(obj_t BgL_envz00_14221,
		obj_t BgL_ez00_14222, obj_t BgL_stkz00_14223)
	{
		{	/* Eval/evaluate_comp.scm 276 */
			{	/* Eval/evaluate_comp.scm 276 */
				BgL_ev_exprz00_bglt BgL_auxz00_24814;

				{	/* Eval/evaluate_comp.scm 276 */
					bool_t BgL_test5408z00_24815;

					{	/* Eval/evaluate_comp.scm 276 */
						obj_t BgL_classz00_16044;

						BgL_classz00_16044 = BGl_ev_exprz00zz__evaluate_typesz00;
						if (BGL_OBJECTP(BgL_ez00_14222))
							{	/* Eval/evaluate_comp.scm 276 */
								BgL_objectz00_bglt BgL_arg4297z00_16046;
								long BgL_arg4298z00_16047;

								BgL_arg4297z00_16046 = (BgL_objectz00_bglt) (BgL_ez00_14222);
								BgL_arg4298z00_16047 = BGL_CLASS_DEPTH(BgL_classz00_16044);
								if (BGL_CONDEXPAND_ISA_ARCH64())
									{	/* Eval/evaluate_comp.scm 276 */
										long BgL_idxz00_16055;

										BgL_idxz00_16055 =
											BGL_OBJECT_INHERITANCE_NUM(BgL_arg4297z00_16046);
										{	/* Eval/evaluate_comp.scm 276 */
											obj_t BgL_arg4288z00_16056;

											{	/* Eval/evaluate_comp.scm 276 */
												long BgL_arg4289z00_16057;

												BgL_arg4289z00_16057 =
													(BgL_idxz00_16055 + BgL_arg4298z00_16047);
												BgL_arg4288z00_16056 =
													VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
													BgL_arg4289z00_16057);
											}
											BgL_test5408z00_24815 =
												(BgL_arg4288z00_16056 == BgL_classz00_16044);
									}}
								else
									{	/* Eval/evaluate_comp.scm 276 */
										bool_t BgL_res4446z00_16062;

										{	/* Eval/evaluate_comp.scm 276 */
											obj_t BgL_oclassz00_16066;

											{	/* Eval/evaluate_comp.scm 276 */
												obj_t BgL_arg4302z00_16068;
												long BgL_arg4303z00_16069;

												BgL_arg4302z00_16068 =
													(BGl_za2classesza2z00zz__objectz00);
												{	/* Eval/evaluate_comp.scm 276 */
													long BgL_arg4304z00_16070;

													BgL_arg4304z00_16070 =
														BGL_OBJECT_CLASS_NUM(BgL_arg4297z00_16046);
													BgL_arg4303z00_16069 =
														(BgL_arg4304z00_16070 - OBJECT_TYPE);
												}
												BgL_oclassz00_16066 =
													VECTOR_REF(BgL_arg4302z00_16068,
													BgL_arg4303z00_16069);
											}
											{	/* Eval/evaluate_comp.scm 276 */
												bool_t BgL__ortest_1296z00_16076;

												BgL__ortest_1296z00_16076 =
													(BgL_classz00_16044 == BgL_oclassz00_16066);
												if (BgL__ortest_1296z00_16076)
													{	/* Eval/evaluate_comp.scm 276 */
														BgL_res4446z00_16062 = BgL__ortest_1296z00_16076;
													}
												else
													{	/* Eval/evaluate_comp.scm 276 */
														long BgL_odepthz00_16077;

														{	/* Eval/evaluate_comp.scm 276 */
															obj_t BgL_arg4292z00_16078;

															BgL_arg4292z00_16078 = (BgL_oclassz00_16066);
															BgL_odepthz00_16077 =
																BGL_CLASS_DEPTH(BgL_arg4292z00_16078);
														}
														if ((BgL_arg4298z00_16047 < BgL_odepthz00_16077))
															{	/* Eval/evaluate_comp.scm 276 */
																obj_t BgL_arg4290z00_16082;

																{	/* Eval/evaluate_comp.scm 276 */
																	obj_t BgL_arg4291z00_16083;

																	BgL_arg4291z00_16083 = (BgL_oclassz00_16066);
																	BgL_arg4290z00_16082 =
																		BGL_CLASS_ANCESTORS_REF
																		(BgL_arg4291z00_16083,
																		BgL_arg4298z00_16047);
																}
																BgL_res4446z00_16062 =
																	(BgL_arg4290z00_16082 == BgL_classz00_16044);
															}
														else
															{	/* Eval/evaluate_comp.scm 276 */
																BgL_res4446z00_16062 = ((bool_t) 0);
															}
													}
											}
										}
										BgL_test5408z00_24815 = BgL_res4446z00_16062;
									}
							}
						else
							{	/* Eval/evaluate_comp.scm 276 */
								BgL_test5408z00_24815 = ((bool_t) 0);
							}
					}
					if (BgL_test5408z00_24815)
						{	/* Eval/evaluate_comp.scm 276 */
							BgL_auxz00_24814 = ((BgL_ev_exprz00_bglt) BgL_ez00_14222);
						}
					else
						{
							obj_t BgL_auxz00_24840;

							BgL_auxz00_24840 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string4582z00zz__evaluate_compz00, BINT(7022L),
								BGl_string4668z00zz__evaluate_compz00,
								BGl_string4584z00zz__evaluate_compz00, BgL_ez00_14222);
							FAILURE(BgL_auxz00_24840, BFALSE, BFALSE);
						}
				}
				return
					BGl_compz00zz__evaluate_compz00(BgL_auxz00_24814, BgL_stkz00_14223);
			}
		}

	}



/* method-init */
	obj_t BGl_methodzd2initzd2zz__evaluate_compz00(void)
	{
		{	/* Eval/evaluate_comp.scm 15 */
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_compzd2envzd2zz__evaluate_compz00,
				BGl_ev_trapz00zz__evaluate_typesz00,
				BGl_proc4669z00zz__evaluate_compz00,
				BGl_string4670z00zz__evaluate_compz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_compzd2envzd2zz__evaluate_compz00,
				BGl_ev_varz00zz__evaluate_typesz00, BGl_proc4671z00zz__evaluate_compz00,
				BGl_string4670z00zz__evaluate_compz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_compzd2envzd2zz__evaluate_compz00,
				BGl_ev_setlocalz00zz__evaluate_typesz00,
				BGl_proc4672z00zz__evaluate_compz00,
				BGl_string4670z00zz__evaluate_compz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_compzd2envzd2zz__evaluate_compz00,
				BGl_ev_globalz00zz__evaluate_typesz00,
				BGl_proc4673z00zz__evaluate_compz00,
				BGl_string4670z00zz__evaluate_compz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_compzd2envzd2zz__evaluate_compz00,
				BGl_ev_setglobalz00zz__evaluate_typesz00,
				BGl_proc4674z00zz__evaluate_compz00,
				BGl_string4670z00zz__evaluate_compz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_compzd2envzd2zz__evaluate_compz00,
				BGl_ev_defglobalz00zz__evaluate_typesz00,
				BGl_proc4675z00zz__evaluate_compz00,
				BGl_string4670z00zz__evaluate_compz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_compzd2envzd2zz__evaluate_compz00,
				BGl_ev_littz00zz__evaluate_typesz00,
				BGl_proc4676z00zz__evaluate_compz00,
				BGl_string4670z00zz__evaluate_compz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_compzd2envzd2zz__evaluate_compz00,
				BGl_ev_ifz00zz__evaluate_typesz00, BGl_proc4677z00zz__evaluate_compz00,
				BGl_string4670z00zz__evaluate_compz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_compzd2envzd2zz__evaluate_compz00,
				BGl_ev_orz00zz__evaluate_typesz00, BGl_proc4678z00zz__evaluate_compz00,
				BGl_string4670z00zz__evaluate_compz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_compzd2envzd2zz__evaluate_compz00,
				BGl_ev_andz00zz__evaluate_typesz00, BGl_proc4679z00zz__evaluate_compz00,
				BGl_string4670z00zz__evaluate_compz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_compzd2envzd2zz__evaluate_compz00,
				BGl_ev_prog2z00zz__evaluate_typesz00,
				BGl_proc4680z00zz__evaluate_compz00,
				BGl_string4670z00zz__evaluate_compz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_compzd2envzd2zz__evaluate_compz00,
				BGl_ev_letz00zz__evaluate_typesz00, BGl_proc4681z00zz__evaluate_compz00,
				BGl_string4670z00zz__evaluate_compz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_compzd2envzd2zz__evaluate_compz00,
				BGl_ev_letza2za2zz__evaluate_typesz00,
				BGl_proc4682z00zz__evaluate_compz00,
				BGl_string4670z00zz__evaluate_compz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_compzd2envzd2zz__evaluate_compz00,
				BGl_ev_letrecz00zz__evaluate_typesz00,
				BGl_proc4683z00zz__evaluate_compz00,
				BGl_string4670z00zz__evaluate_compz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_compzd2envzd2zz__evaluate_compz00,
				BGl_ev_bindzd2exitzd2zz__evaluate_typesz00,
				BGl_proc4684z00zz__evaluate_compz00,
				BGl_string4670z00zz__evaluate_compz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_compzd2envzd2zz__evaluate_compz00,
				BGl_ev_unwindzd2protectzd2zz__evaluate_typesz00,
				BGl_proc4685z00zz__evaluate_compz00,
				BGl_string4670z00zz__evaluate_compz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_compzd2envzd2zz__evaluate_compz00,
				BGl_ev_withzd2handlerzd2zz__evaluate_typesz00,
				BGl_proc4686z00zz__evaluate_compz00,
				BGl_string4670z00zz__evaluate_compz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_compzd2envzd2zz__evaluate_compz00,
				BGl_ev_synchroniza7eza7zz__evaluate_typesz00,
				BGl_proc4687z00zz__evaluate_compz00,
				BGl_string4670z00zz__evaluate_compz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_compzd2envzd2zz__evaluate_compz00,
				BGl_ev_labelsz00zz__evaluate_typesz00,
				BGl_proc4688z00zz__evaluate_compz00,
				BGl_string4670z00zz__evaluate_compz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_compzd2envzd2zz__evaluate_compz00,
				BGl_ev_gotoz00zz__evaluate_typesz00,
				BGl_proc4689z00zz__evaluate_compz00,
				BGl_string4670z00zz__evaluate_compz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_compzd2envzd2zz__evaluate_compz00,
				BGl_ev_appz00zz__evaluate_typesz00, BGl_proc4690z00zz__evaluate_compz00,
				BGl_string4670z00zz__evaluate_compz00);
			return
				BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_compzd2envzd2zz__evaluate_compz00,
				BGl_ev_absz00zz__evaluate_typesz00, BGl_proc4691z00zz__evaluate_compz00,
				BGl_string4670z00zz__evaluate_compz00);
		}

	}



/* &comp-ev_abs1464 */
	obj_t BGl_z62compzd2ev_abs1464zb0zz__evaluate_compz00(obj_t BgL_envz00_14416,
		obj_t BgL_ez00_14417, obj_t BgL_stkz00_14418)
	{
		{	/* Eval/evaluate_comp.scm 1172 */
			{	/* Eval/evaluate_comp.scm 1174 */
				obj_t BgL_ifreesz00_16085;
				obj_t BgL_iboxesz00_16086;
				long BgL_siza7eza7_16087;
				long BgL_siza7ezd2framez75_16088;
				obj_t BgL_nstkz00_16089;

				{	/* Eval/evaluate_comp.scm 1174 */
					obj_t BgL_arg4004z00_16090;

					{	/* Eval/evaluate_comp.scm 1174 */
						obj_t BgL_l1395z00_16091;

						BgL_l1395z00_16091 =
							(((BgL_ev_absz00_bglt) COBJECT(
									((BgL_ev_absz00_bglt) BgL_ez00_14417)))->BgL_freez00);
						if (NULLP(BgL_l1395z00_16091))
							{	/* Eval/evaluate_comp.scm 1174 */
								BgL_arg4004z00_16090 = BNIL;
							}
						else
							{	/* Eval/evaluate_comp.scm 1174 */
								obj_t BgL_head1397z00_16092;

								BgL_head1397z00_16092 = MAKE_YOUNG_PAIR(BNIL, BNIL);
								{
									obj_t BgL_l1395z00_16094;
									obj_t BgL_tail1398z00_16095;

									BgL_l1395z00_16094 = BgL_l1395z00_16091;
									BgL_tail1398z00_16095 = BgL_head1397z00_16092;
								BgL_zc3z04anonymousza34006ze3z87_16093:
									if (NULLP(BgL_l1395z00_16094))
										{	/* Eval/evaluate_comp.scm 1174 */
											BgL_arg4004z00_16090 = CDR(BgL_head1397z00_16092);
										}
									else
										{	/* Eval/evaluate_comp.scm 1174 */
											obj_t BgL_newtail1399z00_16096;

											{	/* Eval/evaluate_comp.scm 1174 */
												obj_t BgL_arg4009z00_16097;

												{	/* Eval/evaluate_comp.scm 1174 */
													obj_t BgL_vz00_16098;

													BgL_vz00_16098 = CAR(((obj_t) BgL_l1395z00_16094));
													BgL_arg4009z00_16097 =
														BGl__indexz00zz__evaluate_compz00(BgL_vz00_16098,
														BgL_stkz00_14418);
												}
												BgL_newtail1399z00_16096 =
													MAKE_YOUNG_PAIR(BgL_arg4009z00_16097, BNIL);
											}
											SET_CDR(BgL_tail1398z00_16095, BgL_newtail1399z00_16096);
											{	/* Eval/evaluate_comp.scm 1174 */
												obj_t BgL_arg4008z00_16099;

												BgL_arg4008z00_16099 =
													CDR(((obj_t) BgL_l1395z00_16094));
												{
													obj_t BgL_tail1398z00_24883;
													obj_t BgL_l1395z00_24882;

													BgL_l1395z00_24882 = BgL_arg4008z00_16099;
													BgL_tail1398z00_24883 = BgL_newtail1399z00_16096;
													BgL_tail1398z00_16095 = BgL_tail1398z00_24883;
													BgL_l1395z00_16094 = BgL_l1395z00_24882;
													goto BgL_zc3z04anonymousza34006ze3z87_16093;
												}
											}
										}
								}
							}
					}
					BgL_ifreesz00_16085 =
						BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(BgL_arg4004z00_16090);
				}
				{	/* Eval/evaluate_comp.scm 1175 */
					obj_t BgL_arg4010z00_16100;

					{	/* Eval/evaluate_comp.scm 1175 */
						obj_t BgL_l1400z00_16101;

						BgL_l1400z00_16101 =
							(((BgL_ev_absz00_bglt) COBJECT(
									((BgL_ev_absz00_bglt) BgL_ez00_14417)))->BgL_boxesz00);
						if (NULLP(BgL_l1400z00_16101))
							{	/* Eval/evaluate_comp.scm 1175 */
								BgL_arg4010z00_16100 = BNIL;
							}
						else
							{	/* Eval/evaluate_comp.scm 1175 */
								obj_t BgL_head1402z00_16102;

								BgL_head1402z00_16102 = MAKE_YOUNG_PAIR(BNIL, BNIL);
								{
									obj_t BgL_l1400z00_16104;
									obj_t BgL_tail1403z00_16105;

									BgL_l1400z00_16104 = BgL_l1400z00_16101;
									BgL_tail1403z00_16105 = BgL_head1402z00_16102;
								BgL_zc3z04anonymousza34012ze3z87_16103:
									if (NULLP(BgL_l1400z00_16104))
										{	/* Eval/evaluate_comp.scm 1175 */
											BgL_arg4010z00_16100 = CDR(BgL_head1402z00_16102);
										}
									else
										{	/* Eval/evaluate_comp.scm 1175 */
											obj_t BgL_newtail1404z00_16106;

											{	/* Eval/evaluate_comp.scm 1175 */
												obj_t BgL_arg4015z00_16107;

												{	/* Eval/evaluate_comp.scm 1175 */
													obj_t BgL_vz00_16108;

													BgL_vz00_16108 = CAR(((obj_t) BgL_l1400z00_16104));
													BgL_arg4015z00_16107 =
														BGl__indexz00zz__evaluate_compz00(BgL_vz00_16108,
														(((BgL_ev_absz00_bglt) COBJECT(
																	((BgL_ev_absz00_bglt) BgL_ez00_14417)))->
															BgL_varsz00));
												}
												BgL_newtail1404z00_16106 =
													MAKE_YOUNG_PAIR(BgL_arg4015z00_16107, BNIL);
											}
											SET_CDR(BgL_tail1403z00_16105, BgL_newtail1404z00_16106);
											{	/* Eval/evaluate_comp.scm 1175 */
												obj_t BgL_arg4014z00_16109;

												BgL_arg4014z00_16109 =
													CDR(((obj_t) BgL_l1400z00_16104));
												{
													obj_t BgL_tail1403z00_24903;
													obj_t BgL_l1400z00_24902;

													BgL_l1400z00_24902 = BgL_arg4014z00_16109;
													BgL_tail1403z00_24903 = BgL_newtail1404z00_16106;
													BgL_tail1403z00_16105 = BgL_tail1403z00_24903;
													BgL_l1400z00_16104 = BgL_l1400z00_24902;
													goto BgL_zc3z04anonymousza34012ze3z87_16103;
												}
											}
										}
								}
							}
					}
					BgL_iboxesz00_16086 =
						BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(BgL_arg4010z00_16100);
				}
				BgL_siza7eza7_16087 =
					bgl_list_length(
					(((BgL_ev_absz00_bglt) COBJECT(
								((BgL_ev_absz00_bglt) BgL_ez00_14417)))->BgL_varsz00));
				BgL_siza7ezd2framez75_16088 =
					(
					(long) (
						(((BgL_ev_absz00_bglt) COBJECT(
									((BgL_ev_absz00_bglt) BgL_ez00_14417)))->BgL_siza7eza7)) +
					bgl_list_length(
						(((BgL_ev_absz00_bglt) COBJECT(
									((BgL_ev_absz00_bglt) BgL_ez00_14417)))->BgL_freez00)));
				BgL_nstkz00_16089 =
					BGl_appendzd221011zd2zz__evaluate_compz00(
					(((BgL_ev_absz00_bglt) COBJECT(
								((BgL_ev_absz00_bglt) BgL_ez00_14417)))->BgL_varsz00),
					(((BgL_ev_absz00_bglt) COBJECT(
								((BgL_ev_absz00_bglt) BgL_ez00_14417)))->BgL_freez00));
				{	/* Eval/evaluate_comp.scm 1179 */
					obj_t BgL_bodyz00_16110;

					BgL_bodyz00_16110 =
						BGl_compz00zz__evaluate_compz00(
						(((BgL_ev_absz00_bglt) COBJECT(
									((BgL_ev_absz00_bglt) BgL_ez00_14417)))->BgL_bodyz00),
						BgL_nstkz00_16089);
					{

						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_aux1257z00_16116;

							BgL_aux1257z00_16116 =
								(((BgL_ev_absz00_bglt) COBJECT(
										((BgL_ev_absz00_bglt) BgL_ez00_14417)))->BgL_arityz00);
							if (INTEGERP(BgL_aux1257z00_16116))
								{	/* Eval/evaluate_comp.scm 1181 */
									switch ((long) CINT(BgL_aux1257z00_16116))
										{
										case 0L:

											if ((VECTOR_LENGTH(BgL_ifreesz00_16085) == 0L))
												{	/* Eval/evaluate_comp.scm 1181 */
													if ((VECTOR_LENGTH(BgL_iboxesz00_16086) == 0L))
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33445ze3z87_16117;

															BgL_zc3z04anonymousza33445ze3z87_16117 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33445ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (3L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33445ze3z87_16117,
																(int) (0L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33445ze3z87_16117,
																(int) (1L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33445ze3z87_16117,
																(int) (2L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33445ze3z87_16117;
														}
													else
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33451ze3z87_16118;

															BgL_zc3z04anonymousza33451ze3z87_16118 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33451ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (4L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33451ze3z87_16118,
																(int) (0L), BgL_iboxesz00_16086);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33451ze3z87_16118,
																(int) (1L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33451ze3z87_16118,
																(int) (2L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33451ze3z87_16118,
																(int) (3L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33451ze3z87_16118;
														}
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													if ((VECTOR_LENGTH(BgL_iboxesz00_16086) == 0L))
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33462ze3z87_16119;

															BgL_zc3z04anonymousza33462ze3z87_16119 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33462ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (5L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33462ze3z87_16119,
																(int) (0L), BgL_ifreesz00_16085);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33462ze3z87_16119,
																(int) (1L), BINT(BgL_siza7eza7_16087));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33462ze3z87_16119,
																(int) (2L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33462ze3z87_16119,
																(int) (3L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33462ze3z87_16119,
																(int) (4L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33462ze3z87_16119;
														}
													else
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33469ze3z87_16120;

															BgL_zc3z04anonymousza33469ze3z87_16120 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33469ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (6L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33469ze3z87_16120,
																(int) (0L), BgL_ifreesz00_16085);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33469ze3z87_16120,
																(int) (1L), BgL_iboxesz00_16086);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33469ze3z87_16120,
																(int) (2L), BINT(BgL_siza7eza7_16087));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33469ze3z87_16120,
																(int) (3L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33469ze3z87_16120,
																(int) (4L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33469ze3z87_16120,
																(int) (5L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33469ze3z87_16120;
														}
												}
											break;
										case (-1L):

											if ((VECTOR_LENGTH(BgL_ifreesz00_16085) == 0L))
												{	/* Eval/evaluate_comp.scm 1181 */
													if ((VECTOR_LENGTH(BgL_iboxesz00_16086) == 0L))
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33484ze3z87_16121;

															BgL_zc3z04anonymousza33484ze3z87_16121 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33484ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (3L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33484ze3z87_16121,
																(int) (0L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33484ze3z87_16121,
																(int) (1L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33484ze3z87_16121,
																(int) (2L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33484ze3z87_16121;
														}
													else
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33491ze3z87_16122;

															BgL_zc3z04anonymousza33491ze3z87_16122 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33491ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (4L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33491ze3z87_16122,
																(int) (0L), BgL_iboxesz00_16086);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33491ze3z87_16122,
																(int) (1L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33491ze3z87_16122,
																(int) (2L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33491ze3z87_16122,
																(int) (3L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33491ze3z87_16122;
														}
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													if ((VECTOR_LENGTH(BgL_iboxesz00_16086) == 0L))
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33503ze3z87_16123;

															BgL_zc3z04anonymousza33503ze3z87_16123 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33503ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (5L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33503ze3z87_16123,
																(int) (0L), BgL_ifreesz00_16085);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33503ze3z87_16123,
																(int) (1L), BINT(BgL_siza7eza7_16087));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33503ze3z87_16123,
																(int) (2L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33503ze3z87_16123,
																(int) (3L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33503ze3z87_16123,
																(int) (4L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33503ze3z87_16123;
														}
													else
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33512ze3z87_16124;

															BgL_zc3z04anonymousza33512ze3z87_16124 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33512ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (6L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33512ze3z87_16124,
																(int) (0L), BgL_ifreesz00_16085);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33512ze3z87_16124,
																(int) (1L), BgL_iboxesz00_16086);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33512ze3z87_16124,
																(int) (2L), BINT(BgL_siza7eza7_16087));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33512ze3z87_16124,
																(int) (3L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33512ze3z87_16124,
																(int) (4L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33512ze3z87_16124,
																(int) (5L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33512ze3z87_16124;
														}
												}
											break;
										case 1L:

											if ((VECTOR_LENGTH(BgL_ifreesz00_16085) == 0L))
												{	/* Eval/evaluate_comp.scm 1181 */
													if ((VECTOR_LENGTH(BgL_iboxesz00_16086) == 0L))
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33527ze3z87_16125;

															BgL_zc3z04anonymousza33527ze3z87_16125 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33527ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (3L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33527ze3z87_16125,
																(int) (0L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33527ze3z87_16125,
																(int) (1L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33527ze3z87_16125,
																(int) (2L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33527ze3z87_16125;
														}
													else
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33534ze3z87_16126;

															BgL_zc3z04anonymousza33534ze3z87_16126 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33534ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (4L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33534ze3z87_16126,
																(int) (0L), BgL_iboxesz00_16086);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33534ze3z87_16126,
																(int) (1L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33534ze3z87_16126,
																(int) (2L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33534ze3z87_16126,
																(int) (3L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33534ze3z87_16126;
														}
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													if ((VECTOR_LENGTH(BgL_iboxesz00_16086) == 0L))
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33545ze3z87_16127;

															BgL_zc3z04anonymousza33545ze3z87_16127 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33545ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (5L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33545ze3z87_16127,
																(int) (0L), BgL_ifreesz00_16085);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33545ze3z87_16127,
																(int) (1L), BINT(BgL_siza7eza7_16087));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33545ze3z87_16127,
																(int) (2L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33545ze3z87_16127,
																(int) (3L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33545ze3z87_16127,
																(int) (4L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33545ze3z87_16127;
														}
													else
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33555ze3z87_16128;

															BgL_zc3z04anonymousza33555ze3z87_16128 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33555ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (6L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33555ze3z87_16128,
																(int) (0L), BgL_ifreesz00_16085);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33555ze3z87_16128,
																(int) (1L), BgL_iboxesz00_16086);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33555ze3z87_16128,
																(int) (2L), BINT(BgL_siza7eza7_16087));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33555ze3z87_16128,
																(int) (3L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33555ze3z87_16128,
																(int) (4L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33555ze3z87_16128,
																(int) (5L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33555ze3z87_16128;
														}
												}
											break;
										case (-2L):

											if ((VECTOR_LENGTH(BgL_ifreesz00_16085) == 0L))
												{	/* Eval/evaluate_comp.scm 1181 */
													if ((VECTOR_LENGTH(BgL_iboxesz00_16086) == 0L))
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33572ze3z87_16129;

															BgL_zc3z04anonymousza33572ze3z87_16129 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33572ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (3L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33572ze3z87_16129,
																(int) (0L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33572ze3z87_16129,
																(int) (1L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33572ze3z87_16129,
																(int) (2L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33572ze3z87_16129;
														}
													else
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33582ze3z87_16130;

															BgL_zc3z04anonymousza33582ze3z87_16130 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33582ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (4L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33582ze3z87_16130,
																(int) (0L), BgL_iboxesz00_16086);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33582ze3z87_16130,
																(int) (1L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33582ze3z87_16130,
																(int) (2L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33582ze3z87_16130,
																(int) (3L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33582ze3z87_16130;
														}
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													if ((VECTOR_LENGTH(BgL_iboxesz00_16086) == 0L))
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33594ze3z87_16131;

															BgL_zc3z04anonymousza33594ze3z87_16131 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33594ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (5L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33594ze3z87_16131,
																(int) (0L), BgL_ifreesz00_16085);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33594ze3z87_16131,
																(int) (1L), BINT(BgL_siza7eza7_16087));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33594ze3z87_16131,
																(int) (2L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33594ze3z87_16131,
																(int) (3L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33594ze3z87_16131,
																(int) (4L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33594ze3z87_16131;
														}
													else
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33603ze3z87_16132;

															BgL_zc3z04anonymousza33603ze3z87_16132 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33603ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (6L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33603ze3z87_16132,
																(int) (0L), BgL_ifreesz00_16085);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33603ze3z87_16132,
																(int) (1L), BgL_iboxesz00_16086);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33603ze3z87_16132,
																(int) (2L), BINT(BgL_siza7eza7_16087));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33603ze3z87_16132,
																(int) (3L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33603ze3z87_16132,
																(int) (4L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33603ze3z87_16132,
																(int) (5L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33603ze3z87_16132;
														}
												}
											break;
										case 2L:

											if ((VECTOR_LENGTH(BgL_ifreesz00_16085) == 0L))
												{	/* Eval/evaluate_comp.scm 1181 */
													if ((VECTOR_LENGTH(BgL_iboxesz00_16086) == 0L))
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33619ze3z87_16133;

															BgL_zc3z04anonymousza33619ze3z87_16133 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33619ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (3L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33619ze3z87_16133,
																(int) (0L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33619ze3z87_16133,
																(int) (1L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33619ze3z87_16133,
																(int) (2L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33619ze3z87_16133;
														}
													else
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33627ze3z87_16134;

															BgL_zc3z04anonymousza33627ze3z87_16134 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33627ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (4L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33627ze3z87_16134,
																(int) (0L), BgL_iboxesz00_16086);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33627ze3z87_16134,
																(int) (1L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33627ze3z87_16134,
																(int) (2L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33627ze3z87_16134,
																(int) (3L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33627ze3z87_16134;
														}
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													if ((VECTOR_LENGTH(BgL_iboxesz00_16086) == 0L))
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33638ze3z87_16135;

															BgL_zc3z04anonymousza33638ze3z87_16135 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33638ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (5L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33638ze3z87_16135,
																(int) (0L), BgL_ifreesz00_16085);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33638ze3z87_16135,
																(int) (1L), BINT(BgL_siza7eza7_16087));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33638ze3z87_16135,
																(int) (2L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33638ze3z87_16135,
																(int) (3L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33638ze3z87_16135,
																(int) (4L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33638ze3z87_16135;
														}
													else
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33647ze3z87_16136;

															BgL_zc3z04anonymousza33647ze3z87_16136 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33647ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (6L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33647ze3z87_16136,
																(int) (0L), BgL_ifreesz00_16085);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33647ze3z87_16136,
																(int) (1L), BgL_iboxesz00_16086);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33647ze3z87_16136,
																(int) (2L), BINT(BgL_siza7eza7_16087));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33647ze3z87_16136,
																(int) (3L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33647ze3z87_16136,
																(int) (4L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33647ze3z87_16136,
																(int) (5L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33647ze3z87_16136;
														}
												}
											break;
										case (-3L):

											if ((VECTOR_LENGTH(BgL_ifreesz00_16085) == 0L))
												{	/* Eval/evaluate_comp.scm 1181 */
													if ((VECTOR_LENGTH(BgL_iboxesz00_16086) == 0L))
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33664ze3z87_16137;

															BgL_zc3z04anonymousza33664ze3z87_16137 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33664ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (3L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33664ze3z87_16137,
																(int) (0L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33664ze3z87_16137,
																(int) (1L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33664ze3z87_16137,
																(int) (2L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33664ze3z87_16137;
														}
													else
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33673ze3z87_16138;

															BgL_zc3z04anonymousza33673ze3z87_16138 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33673ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (4L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33673ze3z87_16138,
																(int) (0L), BgL_iboxesz00_16086);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33673ze3z87_16138,
																(int) (1L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33673ze3z87_16138,
																(int) (2L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33673ze3z87_16138,
																(int) (3L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33673ze3z87_16138;
														}
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													if ((VECTOR_LENGTH(BgL_iboxesz00_16086) == 0L))
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33685ze3z87_16139;

															BgL_zc3z04anonymousza33685ze3z87_16139 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33685ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (5L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33685ze3z87_16139,
																(int) (0L), BgL_ifreesz00_16085);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33685ze3z87_16139,
																(int) (1L), BINT(BgL_siza7eza7_16087));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33685ze3z87_16139,
																(int) (2L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33685ze3z87_16139,
																(int) (3L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33685ze3z87_16139,
																(int) (4L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33685ze3z87_16139;
														}
													else
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33695ze3z87_16140;

															BgL_zc3z04anonymousza33695ze3z87_16140 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33695ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (6L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33695ze3z87_16140,
																(int) (0L), BgL_ifreesz00_16085);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33695ze3z87_16140,
																(int) (1L), BgL_iboxesz00_16086);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33695ze3z87_16140,
																(int) (2L), BINT(BgL_siza7eza7_16087));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33695ze3z87_16140,
																(int) (3L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33695ze3z87_16140,
																(int) (4L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33695ze3z87_16140,
																(int) (5L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33695ze3z87_16140;
														}
												}
											break;
										case 3L:

											if ((VECTOR_LENGTH(BgL_ifreesz00_16085) == 0L))
												{	/* Eval/evaluate_comp.scm 1181 */
													if ((VECTOR_LENGTH(BgL_iboxesz00_16086) == 0L))
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33711ze3z87_16141;

															BgL_zc3z04anonymousza33711ze3z87_16141 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33711ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (3L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33711ze3z87_16141,
																(int) (0L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33711ze3z87_16141,
																(int) (1L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33711ze3z87_16141,
																(int) (2L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33711ze3z87_16141;
														}
													else
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33721ze3z87_16142;

															BgL_zc3z04anonymousza33721ze3z87_16142 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33721ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (4L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33721ze3z87_16142,
																(int) (0L), BgL_iboxesz00_16086);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33721ze3z87_16142,
																(int) (1L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33721ze3z87_16142,
																(int) (2L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33721ze3z87_16142,
																(int) (3L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33721ze3z87_16142;
														}
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													if ((VECTOR_LENGTH(BgL_iboxesz00_16086) == 0L))
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33733ze3z87_16143;

															BgL_zc3z04anonymousza33733ze3z87_16143 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33733ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (5L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33733ze3z87_16143,
																(int) (0L), BgL_ifreesz00_16085);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33733ze3z87_16143,
																(int) (1L), BINT(BgL_siza7eza7_16087));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33733ze3z87_16143,
																(int) (2L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33733ze3z87_16143,
																(int) (3L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33733ze3z87_16143,
																(int) (4L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33733ze3z87_16143;
														}
													else
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33743ze3z87_16144;

															BgL_zc3z04anonymousza33743ze3z87_16144 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33743ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (6L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33743ze3z87_16144,
																(int) (0L), BgL_ifreesz00_16085);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33743ze3z87_16144,
																(int) (1L), BgL_iboxesz00_16086);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33743ze3z87_16144,
																(int) (2L), BINT(BgL_siza7eza7_16087));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33743ze3z87_16144,
																(int) (3L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33743ze3z87_16144,
																(int) (4L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33743ze3z87_16144,
																(int) (5L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33743ze3z87_16144;
														}
												}
											break;
										case (-4L):

											if ((VECTOR_LENGTH(BgL_ifreesz00_16085) == 0L))
												{	/* Eval/evaluate_comp.scm 1181 */
													if ((VECTOR_LENGTH(BgL_iboxesz00_16086) == 0L))
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33759ze3z87_16145;

															BgL_zc3z04anonymousza33759ze3z87_16145 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33759ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (3L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33759ze3z87_16145,
																(int) (0L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33759ze3z87_16145,
																(int) (1L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33759ze3z87_16145,
																(int) (2L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33759ze3z87_16145;
														}
													else
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33769ze3z87_16146;

															BgL_zc3z04anonymousza33769ze3z87_16146 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33769ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (4L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33769ze3z87_16146,
																(int) (0L), BgL_iboxesz00_16086);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33769ze3z87_16146,
																(int) (1L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33769ze3z87_16146,
																(int) (2L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33769ze3z87_16146,
																(int) (3L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33769ze3z87_16146;
														}
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													if ((VECTOR_LENGTH(BgL_iboxesz00_16086) == 0L))
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33782ze3z87_16147;

															BgL_zc3z04anonymousza33782ze3z87_16147 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33782ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (5L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33782ze3z87_16147,
																(int) (0L), BgL_ifreesz00_16085);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33782ze3z87_16147,
																(int) (1L), BINT(BgL_siza7eza7_16087));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33782ze3z87_16147,
																(int) (2L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33782ze3z87_16147,
																(int) (3L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33782ze3z87_16147,
																(int) (4L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33782ze3z87_16147;
														}
													else
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33793ze3z87_16148;

															BgL_zc3z04anonymousza33793ze3z87_16148 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33793ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (6L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33793ze3z87_16148,
																(int) (0L), BgL_ifreesz00_16085);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33793ze3z87_16148,
																(int) (1L), BgL_iboxesz00_16086);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33793ze3z87_16148,
																(int) (2L), BINT(BgL_siza7eza7_16087));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33793ze3z87_16148,
																(int) (3L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33793ze3z87_16148,
																(int) (4L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33793ze3z87_16148,
																(int) (5L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33793ze3z87_16148;
														}
												}
											break;
										case 4L:

											if ((VECTOR_LENGTH(BgL_ifreesz00_16085) == 0L))
												{	/* Eval/evaluate_comp.scm 1181 */
													if ((VECTOR_LENGTH(BgL_iboxesz00_16086) == 0L))
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33810ze3z87_16149;

															BgL_zc3z04anonymousza33810ze3z87_16149 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33810ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (3L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33810ze3z87_16149,
																(int) (0L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33810ze3z87_16149,
																(int) (1L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33810ze3z87_16149,
																(int) (2L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33810ze3z87_16149;
														}
													else
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33820ze3z87_16150;

															BgL_zc3z04anonymousza33820ze3z87_16150 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33820ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (4L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33820ze3z87_16150,
																(int) (0L), BgL_iboxesz00_16086);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33820ze3z87_16150,
																(int) (1L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33820ze3z87_16150,
																(int) (2L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33820ze3z87_16150,
																(int) (3L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33820ze3z87_16150;
														}
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													if ((VECTOR_LENGTH(BgL_iboxesz00_16086) == 0L))
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33833ze3z87_16151;

															BgL_zc3z04anonymousza33833ze3z87_16151 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33833ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (5L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33833ze3z87_16151,
																(int) (0L), BgL_ifreesz00_16085);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33833ze3z87_16151,
																(int) (1L), BINT(BgL_siza7eza7_16087));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33833ze3z87_16151,
																(int) (2L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33833ze3z87_16151,
																(int) (3L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33833ze3z87_16151,
																(int) (4L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33833ze3z87_16151;
														}
													else
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33844ze3z87_16152;

															BgL_zc3z04anonymousza33844ze3z87_16152 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33844ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (6L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33844ze3z87_16152,
																(int) (0L), BgL_ifreesz00_16085);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33844ze3z87_16152,
																(int) (1L), BgL_iboxesz00_16086);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33844ze3z87_16152,
																(int) (2L), BINT(BgL_siza7eza7_16087));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33844ze3z87_16152,
																(int) (3L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33844ze3z87_16152,
																(int) (4L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33844ze3z87_16152,
																(int) (5L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33844ze3z87_16152;
														}
												}
											break;
										case (-5L):

											if ((VECTOR_LENGTH(BgL_ifreesz00_16085) == 0L))
												{	/* Eval/evaluate_comp.scm 1181 */
													if ((VECTOR_LENGTH(BgL_iboxesz00_16086) == 0L))
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33861ze3z87_16153;

															BgL_zc3z04anonymousza33861ze3z87_16153 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33861ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (3L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33861ze3z87_16153,
																(int) (0L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33861ze3z87_16153,
																(int) (1L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33861ze3z87_16153,
																(int) (2L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33861ze3z87_16153;
														}
													else
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33872ze3z87_16154;

															BgL_zc3z04anonymousza33872ze3z87_16154 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33872ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (4L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33872ze3z87_16154,
																(int) (0L), BgL_iboxesz00_16086);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33872ze3z87_16154,
																(int) (1L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33872ze3z87_16154,
																(int) (2L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33872ze3z87_16154,
																(int) (3L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33872ze3z87_16154;
														}
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													if ((VECTOR_LENGTH(BgL_iboxesz00_16086) == 0L))
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33886ze3z87_16155;

															BgL_zc3z04anonymousza33886ze3z87_16155 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33886ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (5L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33886ze3z87_16155,
																(int) (0L), BgL_ifreesz00_16085);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33886ze3z87_16155,
																(int) (1L), BINT(BgL_siza7eza7_16087));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33886ze3z87_16155,
																(int) (2L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33886ze3z87_16155,
																(int) (3L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33886ze3z87_16155,
																(int) (4L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33886ze3z87_16155;
														}
													else
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33898ze3z87_16156;

															BgL_zc3z04anonymousza33898ze3z87_16156 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33898ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (6L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33898ze3z87_16156,
																(int) (0L), BgL_ifreesz00_16085);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33898ze3z87_16156,
																(int) (1L), BgL_iboxesz00_16086);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33898ze3z87_16156,
																(int) (2L), BINT(BgL_siza7eza7_16087));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33898ze3z87_16156,
																(int) (3L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33898ze3z87_16156,
																(int) (4L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33898ze3z87_16156,
																(int) (5L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33898ze3z87_16156;
														}
												}
											break;
										default:
										BgL_case_else1256z00_16111:
											if ((VECTOR_LENGTH(BgL_ifreesz00_16085) == 0L))
												{	/* Eval/evaluate_comp.scm 1181 */
													if ((VECTOR_LENGTH(BgL_iboxesz00_16086) == 0L))
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33916ze3z87_16112;

															BgL_zc3z04anonymousza33916ze3z87_16112 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33916ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (3L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33916ze3z87_16112,
																(int) (0L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33916ze3z87_16112,
																(int) (1L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33916ze3z87_16112,
																(int) (2L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33916ze3z87_16112;
														}
													else
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33936ze3z87_16113;

															BgL_zc3z04anonymousza33936ze3z87_16113 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33936ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (4L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33936ze3z87_16113,
																(int) (0L), BgL_iboxesz00_16086);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33936ze3z87_16113,
																(int) (1L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33936ze3z87_16113,
																(int) (2L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33936ze3z87_16113,
																(int) (3L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33936ze3z87_16113;
														}
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													if ((VECTOR_LENGTH(BgL_iboxesz00_16086) == 0L))
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33959ze3z87_16114;

															BgL_zc3z04anonymousza33959ze3z87_16114 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33959ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (5L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33959ze3z87_16114,
																(int) (0L), BgL_ifreesz00_16085);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33959ze3z87_16114,
																(int) (1L), BINT(BgL_siza7eza7_16087));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33959ze3z87_16114,
																(int) (2L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33959ze3z87_16114,
																(int) (3L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33959ze3z87_16114,
																(int) (4L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33959ze3z87_16114;
														}
													else
														{	/* Eval/evaluate_comp.scm 1181 */
															obj_t BgL_zc3z04anonymousza33980ze3z87_16115;

															BgL_zc3z04anonymousza33980ze3z87_16115 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza33980ze3ze5zz__evaluate_compz00,
																(int) (1L), (int) (6L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33980ze3z87_16115,
																(int) (0L), BgL_ifreesz00_16085);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33980ze3z87_16115,
																(int) (1L), BgL_iboxesz00_16086);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33980ze3z87_16115,
																(int) (2L), BINT(BgL_siza7eza7_16087));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33980ze3z87_16115,
																(int) (3L),
																((obj_t) ((BgL_ev_absz00_bglt)
																		BgL_ez00_14417)));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33980ze3z87_16115,
																(int) (4L), BgL_bodyz00_16110);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza33980ze3z87_16115,
																(int) (5L), BINT(BgL_siza7ezd2framez75_16088));
															return BgL_zc3z04anonymousza33980ze3z87_16115;
														}
												}
										}
								}
							else
								{	/* Eval/evaluate_comp.scm 1181 */
									goto BgL_case_else1256z00_16111;
								}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3861> */
	obj_t BGl_z62zc3z04anonymousza33861ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14419, obj_t BgL_sz00_14423)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				BgL_ev_absz00_bglt BgL_i1255z00_14420;
				obj_t BgL_bodyz00_14421;
				obj_t BgL_siza7ezd2framez75_14422;

				BgL_i1255z00_14420 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14419, (int) (0L)));
				BgL_bodyz00_14421 = PROCEDURE_REF(BgL_envz00_14419, (int) (1L));
				BgL_siza7ezd2framez75_14422 =
					PROCEDURE_REF(BgL_envz00_14419, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16157;

					BgL_bpz00_16157 = VECTOR_REF(((obj_t) BgL_sz00_14423), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */

						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16158;

							BgL_runz00_16158 =
								MAKE_FX_PROCEDURE(BGl_z62runz62zz__evaluate_compz00,
								(int) (1L), (int) (2L));
							PROCEDURE_SET(BgL_runz00_16158,
								(int) (0L), ((obj_t) BgL_i1255z00_14420));
							PROCEDURE_SET(BgL_runz00_16158, (int) (1L), BgL_bodyz00_14421);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16159;

								BgL_mainz00_16159 =
									MAKE_VA_PROCEDURE(BGl_z62mainz62zz__evaluate_compz00,
									(int) ((-5L)), (int) (4L));
								PROCEDURE_SET(BgL_mainz00_16159,
									(int) (0L), ((obj_t) BgL_i1255z00_14420));
								PROCEDURE_SET(BgL_mainz00_16159, (int) (1L), BgL_bodyz00_14421);
								PROCEDURE_SET(BgL_mainz00_16159, (int) (2L), BgL_runz00_16158);
								PROCEDURE_SET(BgL_mainz00_16159,
									(int) (3L), BgL_siza7ezd2framez75_14422);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16160;

									BgL_objz00_16160 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16158, BgL_objz00_16160);
									BgL_objz00_16160;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3862z00_16161;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3863z00_16162;

										BgL_arg3863z00_16162 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14420))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16163;

											BgL_newz00_16163 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_25743;

												BgL_tmpz00_25743 = (int) (3L);
												STRUCT_SET(BgL_newz00_16163, BgL_tmpz00_25743,
													BgL_arg3863z00_16162);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_25746;

												BgL_tmpz00_25746 = (int) (2L);
												STRUCT_SET(BgL_newz00_16163, BgL_tmpz00_25746,
													BgL_siza7ezd2framez75_14422);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_25749;

												BgL_tmpz00_25749 = (int) (1L);
												STRUCT_SET(BgL_newz00_16163, BgL_tmpz00_25749,
													BgL_runz00_16158);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												obj_t BgL_auxz00_25754;
												int BgL_tmpz00_25752;

												BgL_auxz00_25754 = BINT((-5L));
												BgL_tmpz00_25752 = (int) (0L);
												STRUCT_SET(BgL_newz00_16163, BgL_tmpz00_25752,
													BgL_auxz00_25754);
											}
											BgL_arg3862z00_16161 = BgL_newz00_16163;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16159, BgL_arg3862z00_16161);
									BgL_arg3862z00_16161;
								}
								return BgL_mainz00_16159;
							}
						}
					}
				}
			}
		}

	}



/* &main */
	obj_t BGl_z62mainz62zz__evaluate_compz00(obj_t BgL_envz00_14424,
		obj_t BgL_az00_14429, obj_t BgL_bz00_14430, obj_t BgL_cz00_14431,
		obj_t BgL_dz00_14432, obj_t BgL_lastz00_14433)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_runz00_14427;
				long BgL_siza7ezd2framez75_14428;

				BgL_runz00_14427 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14424, (int) (2L)));
				BgL_siza7ezd2framez75_14428 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_14424, (int) (3L)));
				return
					BGl_mainze743ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_14428,
					BgL_runz00_14427, BgL_az00_14429, BgL_bz00_14430, BgL_cz00_14431,
					BgL_dz00_14432, BgL_lastz00_14433);
			}
		}

	}



/* main~43 */
	obj_t BGl_mainze743ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15669,
		obj_t BgL_runz00_15668, obj_t BgL_az00_5633, obj_t BgL_bz00_5634,
		obj_t BgL_cz00_5635, obj_t BgL_dz00_5636, obj_t BgL_lastz00_5637)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_5639;

				BgL_sz00_5639 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_5640;

					BgL_bpz00_5640 = VECTOR_REF(((obj_t) BgL_sz00_5639), 0L);
					if (
						(((long) CINT(BgL_bpz00_5640) + BgL_siza7ezd2framez75_15669) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_5639))))
						{	/* Eval/evaluate_comp.scm 1181 */
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3866z00_5642;

								BgL_arg3866z00_5642 = ((long) CINT(BgL_bpz00_5640) + 0L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5639), BgL_arg3866z00_5642, BgL_az00_5633);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3867z00_5643;

								BgL_arg3867z00_5643 = ((long) CINT(BgL_bpz00_5640) + 1L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5639), BgL_arg3867z00_5643, BgL_bz00_5634);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3868z00_5644;

								BgL_arg3868z00_5644 = ((long) CINT(BgL_bpz00_5640) + 2L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5639), BgL_arg3868z00_5644, BgL_cz00_5635);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3869z00_5645;

								BgL_arg3869z00_5645 = ((long) CINT(BgL_bpz00_5640) + 3L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5639), BgL_arg3869z00_5645, BgL_dz00_5636);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3870z00_5646;

								BgL_arg3870z00_5646 = ((long) CINT(BgL_bpz00_5640) + 4L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5639), BgL_arg3870z00_5646,
									BgL_lastz00_5637);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_ez00_5647;

								BgL_ez00_5647 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4321z00_12970;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4322z00_12971;

										BgL_arg4322z00_12971 = BGL_EXITD_PROTECT(BgL_ez00_5647);
										BgL_arg4321z00_12970 =
											MAKE_YOUNG_PAIR(BgL_bpz00_5640, BgL_arg4322z00_12971);
									}
									BGL_EXITD_PROTECT_SET(BgL_ez00_5647, BgL_arg4321z00_12970);
									BUNSPEC;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_accz00_5648;

									BgL_accz00_5648 =
										BGl_catchzd2trampolinezd2zz__evaluate_compz00
										(BgL_runz00_15668, BgL_sz00_5639, BgL_bpz00_5640);
									{	/* Eval/evaluate_comp.scm 1181 */
										bool_t BgL_test5452z00_25799;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4320z00_12973;

											BgL_arg4320z00_12973 = BGL_EXITD_PROTECT(BgL_ez00_5647);
											BgL_test5452z00_25799 = PAIRP(BgL_arg4320z00_12973);
										}
										if (BgL_test5452z00_25799)
											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4318z00_12974;

												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4319z00_12975;

													BgL_arg4319z00_12975 =
														BGL_EXITD_PROTECT(BgL_ez00_5647);
													BgL_arg4318z00_12974 =
														CDR(((obj_t) BgL_arg4319z00_12975));
												}
												BGL_EXITD_PROTECT_SET(BgL_ez00_5647,
													BgL_arg4318z00_12974);
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 1181 */
												BFALSE;
											}
									}
									VECTOR_SET(((obj_t) BgL_sz00_5639), 0L, BgL_bpz00_5640);
									return BgL_accz00_5648;
								}
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_5649;

							BgL_nsz00_5649 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_5649, 1L, BgL_sz00_5639);
							VECTOR_SET(BgL_nsz00_5649, 2L, BgL_az00_5633);
							VECTOR_SET(BgL_nsz00_5649, 3L, BgL_bz00_5634);
							VECTOR_SET(BgL_nsz00_5649, 4L, BgL_cz00_5635);
							VECTOR_SET(BgL_nsz00_5649, 5L, BgL_dz00_5636);
							VECTOR_SET(BgL_nsz00_5649, 6L, BgL_lastz00_5637);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_5650;

								BgL_z12denvz12_5650 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5650, BgL_nsz00_5649);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_5651;

									BgL_ez00_5651 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_12984;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_12985;

											BgL_arg4322z00_12985 = BGL_EXITD_PROTECT(BgL_ez00_5651);
											BgL_arg4321z00_12984 =
												MAKE_YOUNG_PAIR(BgL_sz00_5639, BgL_arg4322z00_12985);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_5651, BgL_arg4321z00_12984);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_5652;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_12986;

											BgL_savedzd2bpzd2_12986 = VECTOR_REF(BgL_nsz00_5649, 0L);
											VECTOR_SET(BgL_nsz00_5649, 0L, BINT(2L));
											{
												obj_t BgL_fz00_12990;

												BgL_fz00_12990 = BgL_runz00_15668;
											BgL_recz00_12989:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_12991;

													BgL_rz00_12991 =
														BGL_PROCEDURE_CALL1(BgL_fz00_12990, BgL_nsz00_5649);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5453z00_25828;

														if (PROCEDUREP(BgL_rz00_12991))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_12994;

																BgL_arg1759z00_12994 =
																	PROCEDURE_ATTR(BgL_rz00_12991);
																if (STRUCTP(BgL_arg1759z00_12994))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5453z00_25828 =
																			(STRUCT_KEY(BgL_arg1759z00_12994) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5453z00_25828 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5453z00_25828 = ((bool_t) 0);
															}
														if (BgL_test5453z00_25828)
															{
																obj_t BgL_fz00_25836;

																BgL_fz00_25836 = BgL_rz00_12991;
																BgL_fz00_12990 = BgL_fz00_25836;
																goto BgL_recz00_12989;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_5649, 0L,
																	BgL_savedzd2bpzd2_12986);
																BgL_____rz00_5652 = BgL_rz00_12991;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5456z00_25838;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_13002;

												BgL_arg4320z00_13002 = BGL_EXITD_PROTECT(BgL_ez00_5651);
												BgL_test5456z00_25838 = PAIRP(BgL_arg4320z00_13002);
											}
											if (BgL_test5456z00_25838)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_13003;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_13004;

														BgL_arg4319z00_13004 =
															BGL_EXITD_PROTECT(BgL_ez00_5651);
														BgL_arg4318z00_13003 =
															CDR(((obj_t) BgL_arg4319z00_13004));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_5651,
														BgL_arg4318z00_13003);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5650, BgL_sz00_5639);
										return BgL_____rz00_5652;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run */
	obj_t BGl_z62runz62zz__evaluate_compz00(obj_t BgL_envz00_14434,
		obj_t BgL_sz00_14437)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				BgL_ev_absz00_bglt BgL_i1255z00_14435;
				obj_t BgL_bodyz00_14436;

				BgL_i1255z00_14435 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14434, (int) (0L)));
				BgL_bodyz00_14436 = PROCEDURE_REF(BgL_envz00_14434, (int) (1L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16164;

					BgL_bpz00_16164 = VECTOR_REF(((obj_t) BgL_sz00_14437), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_z12denvz12_16165;
						obj_t BgL_wherez00_16166;
						obj_t BgL_locz00_16167;

						BgL_z12denvz12_16165 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16166 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14435))->
							BgL_wherez00);
						BgL_locz00_16167 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14435))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1181 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16165, BgL_wherez00_16166,
								BgL_locz00_16167);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_za2za2resza2za2z00_16168;

								BgL_za2za2resza2za2z00_16168 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_14436, BgL_sz00_14437);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16165);
								return BgL_za2za2resza2za2z00_16168;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3872> */
	obj_t BGl_z62zc3z04anonymousza33872ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14438, obj_t BgL_sz00_14443)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_iboxesz00_14439;
				BgL_ev_absz00_bglt BgL_i1255z00_14440;
				obj_t BgL_bodyz00_14441;
				obj_t BgL_siza7ezd2framez75_14442;

				BgL_iboxesz00_14439 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14438, (int) (0L)));
				BgL_i1255z00_14440 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14438, (int) (1L)));
				BgL_bodyz00_14441 = PROCEDURE_REF(BgL_envz00_14438, (int) (2L));
				BgL_siza7ezd2framez75_14442 =
					PROCEDURE_REF(BgL_envz00_14438, (int) (3L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16169;

					BgL_bpz00_16169 = VECTOR_REF(((obj_t) BgL_sz00_14443), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */

						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16170;

							BgL_runz00_16170 =
								MAKE_FX_PROCEDURE(BGl_z62run4480z62zz__evaluate_compz00,
								(int) (1L), (int) (3L));
							PROCEDURE_SET(BgL_runz00_16170, (int) (0L), BgL_iboxesz00_14439);
							PROCEDURE_SET(BgL_runz00_16170,
								(int) (1L), ((obj_t) BgL_i1255z00_14440));
							PROCEDURE_SET(BgL_runz00_16170, (int) (2L), BgL_bodyz00_14441);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16171;

								BgL_mainz00_16171 =
									MAKE_VA_PROCEDURE(BGl_z62main4479z62zz__evaluate_compz00,
									(int) ((-5L)), (int) (5L));
								PROCEDURE_SET(BgL_mainz00_16171,
									(int) (0L), BgL_iboxesz00_14439);
								PROCEDURE_SET(BgL_mainz00_16171,
									(int) (1L), ((obj_t) BgL_i1255z00_14440));
								PROCEDURE_SET(BgL_mainz00_16171, (int) (2L), BgL_bodyz00_14441);
								PROCEDURE_SET(BgL_mainz00_16171, (int) (3L), BgL_runz00_16170);
								PROCEDURE_SET(BgL_mainz00_16171,
									(int) (4L), BgL_siza7ezd2framez75_14442);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16172;

									BgL_objz00_16172 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16170, BgL_objz00_16172);
									BgL_objz00_16172;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3873z00_16173;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3874z00_16174;

										BgL_arg3874z00_16174 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14440))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16175;

											BgL_newz00_16175 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_25902;

												BgL_tmpz00_25902 = (int) (3L);
												STRUCT_SET(BgL_newz00_16175, BgL_tmpz00_25902,
													BgL_arg3874z00_16174);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_25905;

												BgL_tmpz00_25905 = (int) (2L);
												STRUCT_SET(BgL_newz00_16175, BgL_tmpz00_25905,
													BgL_siza7ezd2framez75_14442);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_25908;

												BgL_tmpz00_25908 = (int) (1L);
												STRUCT_SET(BgL_newz00_16175, BgL_tmpz00_25908,
													BgL_runz00_16170);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												obj_t BgL_auxz00_25913;
												int BgL_tmpz00_25911;

												BgL_auxz00_25913 = BINT((-5L));
												BgL_tmpz00_25911 = (int) (0L);
												STRUCT_SET(BgL_newz00_16175, BgL_tmpz00_25911,
													BgL_auxz00_25913);
											}
											BgL_arg3873z00_16173 = BgL_newz00_16175;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16171, BgL_arg3873z00_16173);
									BgL_arg3873z00_16173;
								}
								return BgL_mainz00_16171;
							}
						}
					}
				}
			}
		}

	}



/* &main4479 */
	obj_t BGl_z62main4479z62zz__evaluate_compz00(obj_t BgL_envz00_14444,
		obj_t BgL_az00_14450, obj_t BgL_bz00_14451, obj_t BgL_cz00_14452,
		obj_t BgL_dz00_14453, obj_t BgL_lastz00_14454)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_runz00_14448;
				long BgL_siza7ezd2framez75_14449;

				BgL_runz00_14448 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14444, (int) (3L)));
				BgL_siza7ezd2framez75_14449 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_14444, (int) (4L)));
				return
					BGl_mainze742ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_14449,
					BgL_runz00_14448, BgL_az00_14450, BgL_bz00_14451, BgL_cz00_14452,
					BgL_dz00_14453, BgL_lastz00_14454);
			}
		}

	}



/* main~42 */
	obj_t BGl_mainze742ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15667,
		obj_t BgL_runz00_15666, obj_t BgL_az00_5669, obj_t BgL_bz00_5670,
		obj_t BgL_cz00_5671, obj_t BgL_dz00_5672, obj_t BgL_lastz00_5673)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_5675;

				BgL_sz00_5675 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_5676;

					BgL_bpz00_5676 = VECTOR_REF(((obj_t) BgL_sz00_5675), 0L);
					if (
						(((long) CINT(BgL_bpz00_5676) + BgL_siza7ezd2framez75_15667) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_5675))))
						{	/* Eval/evaluate_comp.scm 1181 */
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3877z00_5678;

								BgL_arg3877z00_5678 = ((long) CINT(BgL_bpz00_5676) + 0L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5675), BgL_arg3877z00_5678, BgL_az00_5669);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3878z00_5679;

								BgL_arg3878z00_5679 = ((long) CINT(BgL_bpz00_5676) + 1L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5675), BgL_arg3878z00_5679, BgL_bz00_5670);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3879z00_5680;

								BgL_arg3879z00_5680 = ((long) CINT(BgL_bpz00_5676) + 2L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5675), BgL_arg3879z00_5680, BgL_cz00_5671);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3880z00_5681;

								BgL_arg3880z00_5681 = ((long) CINT(BgL_bpz00_5676) + 3L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5675), BgL_arg3880z00_5681, BgL_dz00_5672);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3881z00_5682;

								BgL_arg3881z00_5682 = ((long) CINT(BgL_bpz00_5676) + 4L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5675), BgL_arg3881z00_5682,
									BgL_lastz00_5673);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_ez00_5683;

								BgL_ez00_5683 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4321z00_13037;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4322z00_13038;

										BgL_arg4322z00_13038 = BGL_EXITD_PROTECT(BgL_ez00_5683);
										BgL_arg4321z00_13037 =
											MAKE_YOUNG_PAIR(BgL_bpz00_5676, BgL_arg4322z00_13038);
									}
									BGL_EXITD_PROTECT_SET(BgL_ez00_5683, BgL_arg4321z00_13037);
									BUNSPEC;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_accz00_5684;

									BgL_accz00_5684 =
										BGl_catchzd2trampolinezd2zz__evaluate_compz00
										(BgL_runz00_15666, BgL_sz00_5675, BgL_bpz00_5676);
									{	/* Eval/evaluate_comp.scm 1181 */
										bool_t BgL_test5458z00_25958;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4320z00_13040;

											BgL_arg4320z00_13040 = BGL_EXITD_PROTECT(BgL_ez00_5683);
											BgL_test5458z00_25958 = PAIRP(BgL_arg4320z00_13040);
										}
										if (BgL_test5458z00_25958)
											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4318z00_13041;

												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4319z00_13042;

													BgL_arg4319z00_13042 =
														BGL_EXITD_PROTECT(BgL_ez00_5683);
													BgL_arg4318z00_13041 =
														CDR(((obj_t) BgL_arg4319z00_13042));
												}
												BGL_EXITD_PROTECT_SET(BgL_ez00_5683,
													BgL_arg4318z00_13041);
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 1181 */
												BFALSE;
											}
									}
									VECTOR_SET(((obj_t) BgL_sz00_5675), 0L, BgL_bpz00_5676);
									return BgL_accz00_5684;
								}
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_5685;

							BgL_nsz00_5685 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_5685, 1L, BgL_sz00_5675);
							VECTOR_SET(BgL_nsz00_5685, 2L, BgL_az00_5669);
							VECTOR_SET(BgL_nsz00_5685, 3L, BgL_bz00_5670);
							VECTOR_SET(BgL_nsz00_5685, 4L, BgL_cz00_5671);
							VECTOR_SET(BgL_nsz00_5685, 5L, BgL_dz00_5672);
							VECTOR_SET(BgL_nsz00_5685, 6L, BgL_lastz00_5673);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_5686;

								BgL_z12denvz12_5686 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5686, BgL_nsz00_5685);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_5687;

									BgL_ez00_5687 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_13051;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_13052;

											BgL_arg4322z00_13052 = BGL_EXITD_PROTECT(BgL_ez00_5687);
											BgL_arg4321z00_13051 =
												MAKE_YOUNG_PAIR(BgL_sz00_5675, BgL_arg4322z00_13052);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_5687, BgL_arg4321z00_13051);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_5688;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_13053;

											BgL_savedzd2bpzd2_13053 = VECTOR_REF(BgL_nsz00_5685, 0L);
											VECTOR_SET(BgL_nsz00_5685, 0L, BINT(2L));
											{
												obj_t BgL_fz00_13057;

												BgL_fz00_13057 = BgL_runz00_15666;
											BgL_recz00_13056:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_13058;

													BgL_rz00_13058 =
														BGL_PROCEDURE_CALL1(BgL_fz00_13057, BgL_nsz00_5685);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5459z00_25987;

														if (PROCEDUREP(BgL_rz00_13058))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_13061;

																BgL_arg1759z00_13061 =
																	PROCEDURE_ATTR(BgL_rz00_13058);
																if (STRUCTP(BgL_arg1759z00_13061))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5459z00_25987 =
																			(STRUCT_KEY(BgL_arg1759z00_13061) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5459z00_25987 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5459z00_25987 = ((bool_t) 0);
															}
														if (BgL_test5459z00_25987)
															{
																obj_t BgL_fz00_25995;

																BgL_fz00_25995 = BgL_rz00_13058;
																BgL_fz00_13057 = BgL_fz00_25995;
																goto BgL_recz00_13056;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_5685, 0L,
																	BgL_savedzd2bpzd2_13053);
																BgL_____rz00_5688 = BgL_rz00_13058;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5462z00_25997;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_13069;

												BgL_arg4320z00_13069 = BGL_EXITD_PROTECT(BgL_ez00_5687);
												BgL_test5462z00_25997 = PAIRP(BgL_arg4320z00_13069);
											}
											if (BgL_test5462z00_25997)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_13070;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_13071;

														BgL_arg4319z00_13071 =
															BGL_EXITD_PROTECT(BgL_ez00_5687);
														BgL_arg4318z00_13070 =
															CDR(((obj_t) BgL_arg4319z00_13071));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_5687,
														BgL_arg4318z00_13070);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5686, BgL_sz00_5675);
										return BgL_____rz00_5688;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4480 */
	obj_t BGl_z62run4480z62zz__evaluate_compz00(obj_t BgL_envz00_14455,
		obj_t BgL_sz00_14459)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_iboxesz00_14456;
				BgL_ev_absz00_bglt BgL_i1255z00_14457;
				obj_t BgL_bodyz00_14458;

				BgL_iboxesz00_14456 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14455, (int) (0L)));
				BgL_i1255z00_14457 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14455, (int) (1L)));
				BgL_bodyz00_14458 = PROCEDURE_REF(BgL_envz00_14455, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16176;

					BgL_bpz00_16176 = VECTOR_REF(((obj_t) BgL_sz00_14459), 0L);
					BGl_makezd2boxeszd2zz__evaluate_compz00(BgL_sz00_14459,
						BgL_iboxesz00_14456, BgL_bpz00_16176);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_z12denvz12_16177;
						obj_t BgL_wherez00_16178;
						obj_t BgL_locz00_16179;

						BgL_z12denvz12_16177 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16178 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14457))->
							BgL_wherez00);
						BgL_locz00_16179 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14457))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1181 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16177, BgL_wherez00_16178,
								BgL_locz00_16179);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_za2za2resza2za2z00_16180;

								BgL_za2za2resza2za2z00_16180 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_14458, BgL_sz00_14459);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16177);
								return BgL_za2za2resza2za2z00_16180;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3886> */
	obj_t BGl_z62zc3z04anonymousza33886ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14460, obj_t BgL_sz00_14466)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_ifreesz00_14461;
				obj_t BgL_siza7eza7_14462;
				BgL_ev_absz00_bglt BgL_i1255z00_14463;
				obj_t BgL_bodyz00_14464;
				obj_t BgL_siza7ezd2framez75_14465;

				BgL_ifreesz00_14461 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14460, (int) (0L)));
				BgL_siza7eza7_14462 = PROCEDURE_REF(BgL_envz00_14460, (int) (1L));
				BgL_i1255z00_14463 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14460, (int) (2L)));
				BgL_bodyz00_14464 = PROCEDURE_REF(BgL_envz00_14460, (int) (3L));
				BgL_siza7ezd2framez75_14465 =
					PROCEDURE_REF(BgL_envz00_14460, (int) (4L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16181;

					BgL_bpz00_16181 = VECTOR_REF(((obj_t) BgL_sz00_14466), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_valza2za2_16182;

						BgL_valza2za2_16182 =
							BGl_freezd2collectzd2zz__evaluate_compz00(BgL_sz00_14466,
							BgL_bpz00_16181, BgL_ifreesz00_14461);
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16183;

							BgL_runz00_16183 =
								MAKE_FX_PROCEDURE(BGl_z62run4482z62zz__evaluate_compz00,
								(int) (1L), (int) (4L));
							PROCEDURE_SET(BgL_runz00_16183, (int) (0L), BgL_siza7eza7_14462);
							PROCEDURE_SET(BgL_runz00_16183, (int) (1L), BgL_valza2za2_16182);
							PROCEDURE_SET(BgL_runz00_16183,
								(int) (2L), ((obj_t) BgL_i1255z00_14463));
							PROCEDURE_SET(BgL_runz00_16183, (int) (3L), BgL_bodyz00_14464);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16184;

								BgL_mainz00_16184 =
									MAKE_VA_PROCEDURE(BGl_z62main4481z62zz__evaluate_compz00,
									(int) ((-5L)), (int) (6L));
								PROCEDURE_SET(BgL_mainz00_16184,
									(int) (0L), BgL_siza7eza7_14462);
								PROCEDURE_SET(BgL_mainz00_16184,
									(int) (1L), BgL_valza2za2_16182);
								PROCEDURE_SET(BgL_mainz00_16184,
									(int) (2L), ((obj_t) BgL_i1255z00_14463));
								PROCEDURE_SET(BgL_mainz00_16184, (int) (3L), BgL_bodyz00_14464);
								PROCEDURE_SET(BgL_mainz00_16184, (int) (4L), BgL_runz00_16183);
								PROCEDURE_SET(BgL_mainz00_16184,
									(int) (5L), BgL_siza7ezd2framez75_14465);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16185;

									BgL_objz00_16185 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16183, BgL_objz00_16185);
									BgL_objz00_16185;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3887z00_16186;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3888z00_16187;

										BgL_arg3888z00_16187 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14463))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16188;

											BgL_newz00_16188 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_26072;

												BgL_tmpz00_26072 = (int) (3L);
												STRUCT_SET(BgL_newz00_16188, BgL_tmpz00_26072,
													BgL_arg3888z00_16187);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_26075;

												BgL_tmpz00_26075 = (int) (2L);
												STRUCT_SET(BgL_newz00_16188, BgL_tmpz00_26075,
													BgL_siza7ezd2framez75_14465);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_26078;

												BgL_tmpz00_26078 = (int) (1L);
												STRUCT_SET(BgL_newz00_16188, BgL_tmpz00_26078,
													BgL_runz00_16183);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												obj_t BgL_auxz00_26083;
												int BgL_tmpz00_26081;

												BgL_auxz00_26083 = BINT((-5L));
												BgL_tmpz00_26081 = (int) (0L);
												STRUCT_SET(BgL_newz00_16188, BgL_tmpz00_26081,
													BgL_auxz00_26083);
											}
											BgL_arg3887z00_16186 = BgL_newz00_16188;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16184, BgL_arg3887z00_16186);
									BgL_arg3887z00_16186;
								}
								return BgL_mainz00_16184;
							}
						}
					}
				}
			}
		}

	}



/* &main4481 */
	obj_t BGl_z62main4481z62zz__evaluate_compz00(obj_t BgL_envz00_14467,
		obj_t BgL_az00_14474, obj_t BgL_bz00_14475, obj_t BgL_cz00_14476,
		obj_t BgL_dz00_14477, obj_t BgL_lastz00_14478)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_runz00_14472;
				long BgL_siza7ezd2framez75_14473;

				BgL_runz00_14472 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14467, (int) (4L)));
				BgL_siza7ezd2framez75_14473 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_14467, (int) (5L)));
				return
					BGl_mainze741ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_14473,
					BgL_runz00_14472, BgL_az00_14474, BgL_bz00_14475, BgL_cz00_14476,
					BgL_dz00_14477, BgL_lastz00_14478);
			}
		}

	}



/* main~41 */
	obj_t BGl_mainze741ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15665,
		obj_t BgL_runz00_15664, obj_t BgL_az00_5709, obj_t BgL_bz00_5710,
		obj_t BgL_cz00_5711, obj_t BgL_dz00_5712, obj_t BgL_lastz00_5713)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_5715;

				BgL_sz00_5715 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_5716;

					BgL_bpz00_5716 = VECTOR_REF(((obj_t) BgL_sz00_5715), 0L);
					if (
						(((long) CINT(BgL_bpz00_5716) + BgL_siza7ezd2framez75_15665) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_5715))))
						{	/* Eval/evaluate_comp.scm 1181 */
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3891z00_5718;

								BgL_arg3891z00_5718 = ((long) CINT(BgL_bpz00_5716) + 0L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5715), BgL_arg3891z00_5718, BgL_az00_5709);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3892z00_5719;

								BgL_arg3892z00_5719 = ((long) CINT(BgL_bpz00_5716) + 1L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5715), BgL_arg3892z00_5719, BgL_bz00_5710);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3893z00_5720;

								BgL_arg3893z00_5720 = ((long) CINT(BgL_bpz00_5716) + 2L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5715), BgL_arg3893z00_5720, BgL_cz00_5711);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3894z00_5721;

								BgL_arg3894z00_5721 = ((long) CINT(BgL_bpz00_5716) + 3L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5715), BgL_arg3894z00_5721, BgL_dz00_5712);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3895z00_5722;

								BgL_arg3895z00_5722 = ((long) CINT(BgL_bpz00_5716) + 4L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5715), BgL_arg3895z00_5722,
									BgL_lastz00_5713);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_ez00_5723;

								BgL_ez00_5723 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4321z00_13108;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4322z00_13109;

										BgL_arg4322z00_13109 = BGL_EXITD_PROTECT(BgL_ez00_5723);
										BgL_arg4321z00_13108 =
											MAKE_YOUNG_PAIR(BgL_bpz00_5716, BgL_arg4322z00_13109);
									}
									BGL_EXITD_PROTECT_SET(BgL_ez00_5723, BgL_arg4321z00_13108);
									BUNSPEC;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_accz00_5724;

									BgL_accz00_5724 =
										BGl_catchzd2trampolinezd2zz__evaluate_compz00
										(BgL_runz00_15664, BgL_sz00_5715, BgL_bpz00_5716);
									{	/* Eval/evaluate_comp.scm 1181 */
										bool_t BgL_test5464z00_26128;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4320z00_13111;

											BgL_arg4320z00_13111 = BGL_EXITD_PROTECT(BgL_ez00_5723);
											BgL_test5464z00_26128 = PAIRP(BgL_arg4320z00_13111);
										}
										if (BgL_test5464z00_26128)
											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4318z00_13112;

												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4319z00_13113;

													BgL_arg4319z00_13113 =
														BGL_EXITD_PROTECT(BgL_ez00_5723);
													BgL_arg4318z00_13112 =
														CDR(((obj_t) BgL_arg4319z00_13113));
												}
												BGL_EXITD_PROTECT_SET(BgL_ez00_5723,
													BgL_arg4318z00_13112);
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 1181 */
												BFALSE;
											}
									}
									VECTOR_SET(((obj_t) BgL_sz00_5715), 0L, BgL_bpz00_5716);
									return BgL_accz00_5724;
								}
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_5725;

							BgL_nsz00_5725 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_5725, 1L, BgL_sz00_5715);
							VECTOR_SET(BgL_nsz00_5725, 2L, BgL_az00_5709);
							VECTOR_SET(BgL_nsz00_5725, 3L, BgL_bz00_5710);
							VECTOR_SET(BgL_nsz00_5725, 4L, BgL_cz00_5711);
							VECTOR_SET(BgL_nsz00_5725, 5L, BgL_dz00_5712);
							VECTOR_SET(BgL_nsz00_5725, 6L, BgL_lastz00_5713);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_5726;

								BgL_z12denvz12_5726 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5726, BgL_nsz00_5725);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_5727;

									BgL_ez00_5727 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_13122;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_13123;

											BgL_arg4322z00_13123 = BGL_EXITD_PROTECT(BgL_ez00_5727);
											BgL_arg4321z00_13122 =
												MAKE_YOUNG_PAIR(BgL_sz00_5715, BgL_arg4322z00_13123);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_5727, BgL_arg4321z00_13122);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_5728;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_13124;

											BgL_savedzd2bpzd2_13124 = VECTOR_REF(BgL_nsz00_5725, 0L);
											VECTOR_SET(BgL_nsz00_5725, 0L, BINT(2L));
											{
												obj_t BgL_fz00_13128;

												BgL_fz00_13128 = BgL_runz00_15664;
											BgL_recz00_13127:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_13129;

													BgL_rz00_13129 =
														BGL_PROCEDURE_CALL1(BgL_fz00_13128, BgL_nsz00_5725);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5465z00_26157;

														if (PROCEDUREP(BgL_rz00_13129))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_13132;

																BgL_arg1759z00_13132 =
																	PROCEDURE_ATTR(BgL_rz00_13129);
																if (STRUCTP(BgL_arg1759z00_13132))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5465z00_26157 =
																			(STRUCT_KEY(BgL_arg1759z00_13132) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5465z00_26157 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5465z00_26157 = ((bool_t) 0);
															}
														if (BgL_test5465z00_26157)
															{
																obj_t BgL_fz00_26165;

																BgL_fz00_26165 = BgL_rz00_13129;
																BgL_fz00_13128 = BgL_fz00_26165;
																goto BgL_recz00_13127;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_5725, 0L,
																	BgL_savedzd2bpzd2_13124);
																BgL_____rz00_5728 = BgL_rz00_13129;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5468z00_26167;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_13140;

												BgL_arg4320z00_13140 = BGL_EXITD_PROTECT(BgL_ez00_5727);
												BgL_test5468z00_26167 = PAIRP(BgL_arg4320z00_13140);
											}
											if (BgL_test5468z00_26167)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_13141;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_13142;

														BgL_arg4319z00_13142 =
															BGL_EXITD_PROTECT(BgL_ez00_5727);
														BgL_arg4318z00_13141 =
															CDR(((obj_t) BgL_arg4319z00_13142));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_5727,
														BgL_arg4318z00_13141);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5726, BgL_sz00_5715);
										return BgL_____rz00_5728;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4482 */
	obj_t BGl_z62run4482z62zz__evaluate_compz00(obj_t BgL_envz00_14479,
		obj_t BgL_sz00_14484)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				long BgL_siza7eza7_14480;
				obj_t BgL_valza2za2_14481;
				BgL_ev_absz00_bglt BgL_i1255z00_14482;
				obj_t BgL_bodyz00_14483;

				BgL_siza7eza7_14480 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_14479, (int) (0L)));
				BgL_valza2za2_14481 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14479, (int) (1L)));
				BgL_i1255z00_14482 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14479, (int) (2L)));
				BgL_bodyz00_14483 = PROCEDURE_REF(BgL_envz00_14479, (int) (3L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16189;

					BgL_bpz00_16189 = VECTOR_REF(((obj_t) BgL_sz00_14484), 0L);
					BGl_freezd2restorezd2zz__evaluate_compz00(BgL_sz00_14484,
						BgL_valza2za2_14481,
						((long) CINT(BgL_bpz00_16189) + BgL_siza7eza7_14480));
					{	/* Eval/evaluate_comp.scm 1102 */
						obj_t BgL_z12denvz12_16190;
						obj_t BgL_wherez00_16191;
						obj_t BgL_locz00_16192;

						BgL_z12denvz12_16190 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16191 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14482))->
							BgL_wherez00);
						BgL_locz00_16192 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14482))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1102 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16190, BgL_wherez00_16191,
								BgL_locz00_16192);
							{	/* Eval/evaluate_comp.scm 1102 */
								obj_t BgL_za2za2resza2za2z00_16193;

								BgL_za2za2resza2za2z00_16193 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_14483, BgL_sz00_14484);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16190);
								return BgL_za2za2resza2za2z00_16193;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3898> */
	obj_t BGl_z62zc3z04anonymousza33898ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14485, obj_t BgL_sz00_14492)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_ifreesz00_14486;
				obj_t BgL_iboxesz00_14487;
				obj_t BgL_siza7eza7_14488;
				BgL_ev_absz00_bglt BgL_i1255z00_14489;
				obj_t BgL_bodyz00_14490;
				obj_t BgL_siza7ezd2framez75_14491;

				BgL_ifreesz00_14486 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14485, (int) (0L)));
				BgL_iboxesz00_14487 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14485, (int) (1L)));
				BgL_siza7eza7_14488 = PROCEDURE_REF(BgL_envz00_14485, (int) (2L));
				BgL_i1255z00_14489 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14485, (int) (3L)));
				BgL_bodyz00_14490 = PROCEDURE_REF(BgL_envz00_14485, (int) (4L));
				BgL_siza7ezd2framez75_14491 =
					PROCEDURE_REF(BgL_envz00_14485, (int) (5L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16194;

					BgL_bpz00_16194 = VECTOR_REF(((obj_t) BgL_sz00_14492), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_valza2za2_16195;

						BgL_valza2za2_16195 =
							BGl_freezd2collectzd2zz__evaluate_compz00(BgL_sz00_14492,
							BgL_bpz00_16194, BgL_ifreesz00_14486);
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16196;

							BgL_runz00_16196 =
								MAKE_FX_PROCEDURE(BGl_z62run4484z62zz__evaluate_compz00,
								(int) (1L), (int) (5L));
							PROCEDURE_SET(BgL_runz00_16196, (int) (0L), BgL_iboxesz00_14487);
							PROCEDURE_SET(BgL_runz00_16196, (int) (1L), BgL_siza7eza7_14488);
							PROCEDURE_SET(BgL_runz00_16196, (int) (2L), BgL_valza2za2_16195);
							PROCEDURE_SET(BgL_runz00_16196,
								(int) (3L), ((obj_t) BgL_i1255z00_14489));
							PROCEDURE_SET(BgL_runz00_16196, (int) (4L), BgL_bodyz00_14490);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16197;

								BgL_mainz00_16197 =
									MAKE_VA_PROCEDURE(BGl_z62main4483z62zz__evaluate_compz00,
									(int) ((-5L)), (int) (7L));
								PROCEDURE_SET(BgL_mainz00_16197,
									(int) (0L), BgL_iboxesz00_14487);
								PROCEDURE_SET(BgL_mainz00_16197,
									(int) (1L), BgL_siza7eza7_14488);
								PROCEDURE_SET(BgL_mainz00_16197,
									(int) (2L), BgL_valza2za2_16195);
								PROCEDURE_SET(BgL_mainz00_16197,
									(int) (3L), ((obj_t) BgL_i1255z00_14489));
								PROCEDURE_SET(BgL_mainz00_16197, (int) (4L), BgL_bodyz00_14490);
								PROCEDURE_SET(BgL_mainz00_16197, (int) (5L), BgL_runz00_16196);
								PROCEDURE_SET(BgL_mainz00_16197,
									(int) (6L), BgL_siza7ezd2framez75_14491);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16198;

									BgL_objz00_16198 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16196, BgL_objz00_16198);
									BgL_objz00_16198;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3899z00_16199;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3900z00_16200;

										BgL_arg3900z00_16200 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14489))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16201;

											BgL_newz00_16201 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_26254;

												BgL_tmpz00_26254 = (int) (3L);
												STRUCT_SET(BgL_newz00_16201, BgL_tmpz00_26254,
													BgL_arg3900z00_16200);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_26257;

												BgL_tmpz00_26257 = (int) (2L);
												STRUCT_SET(BgL_newz00_16201, BgL_tmpz00_26257,
													BgL_siza7ezd2framez75_14491);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_26260;

												BgL_tmpz00_26260 = (int) (1L);
												STRUCT_SET(BgL_newz00_16201, BgL_tmpz00_26260,
													BgL_runz00_16196);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												obj_t BgL_auxz00_26265;
												int BgL_tmpz00_26263;

												BgL_auxz00_26265 = BINT((-5L));
												BgL_tmpz00_26263 = (int) (0L);
												STRUCT_SET(BgL_newz00_16201, BgL_tmpz00_26263,
													BgL_auxz00_26265);
											}
											BgL_arg3899z00_16199 = BgL_newz00_16201;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16197, BgL_arg3899z00_16199);
									BgL_arg3899z00_16199;
								}
								return BgL_mainz00_16197;
							}
						}
					}
				}
			}
		}

	}



/* &main4483 */
	obj_t BGl_z62main4483z62zz__evaluate_compz00(obj_t BgL_envz00_14493,
		obj_t BgL_az00_14501, obj_t BgL_bz00_14502, obj_t BgL_cz00_14503,
		obj_t BgL_dz00_14504, obj_t BgL_lastz00_14505)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_runz00_14499;
				long BgL_siza7ezd2framez75_14500;

				BgL_runz00_14499 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14493, (int) (5L)));
				BgL_siza7ezd2framez75_14500 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_14493, (int) (6L)));
				return
					BGl_mainze740ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_14500,
					BgL_runz00_14499, BgL_az00_14501, BgL_bz00_14502, BgL_cz00_14503,
					BgL_dz00_14504, BgL_lastz00_14505);
			}
		}

	}



/* main~40 */
	obj_t BGl_mainze740ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15663,
		obj_t BgL_runz00_15662, obj_t BgL_az00_5747, obj_t BgL_bz00_5748,
		obj_t BgL_cz00_5749, obj_t BgL_dz00_5750, obj_t BgL_lastz00_5751)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_5753;

				BgL_sz00_5753 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_5754;

					BgL_bpz00_5754 = VECTOR_REF(((obj_t) BgL_sz00_5753), 0L);
					if (
						(((long) CINT(BgL_bpz00_5754) + BgL_siza7ezd2framez75_15663) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_5753))))
						{	/* Eval/evaluate_comp.scm 1181 */
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3903z00_5756;

								BgL_arg3903z00_5756 = ((long) CINT(BgL_bpz00_5754) + 0L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5753), BgL_arg3903z00_5756, BgL_az00_5747);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3904z00_5757;

								BgL_arg3904z00_5757 = ((long) CINT(BgL_bpz00_5754) + 1L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5753), BgL_arg3904z00_5757, BgL_bz00_5748);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3905z00_5758;

								BgL_arg3905z00_5758 = ((long) CINT(BgL_bpz00_5754) + 2L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5753), BgL_arg3905z00_5758, BgL_cz00_5749);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3906z00_5759;

								BgL_arg3906z00_5759 = ((long) CINT(BgL_bpz00_5754) + 3L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5753), BgL_arg3906z00_5759, BgL_dz00_5750);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3907z00_5760;

								BgL_arg3907z00_5760 = ((long) CINT(BgL_bpz00_5754) + 4L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5753), BgL_arg3907z00_5760,
									BgL_lastz00_5751);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_ez00_5761;

								BgL_ez00_5761 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4321z00_13177;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4322z00_13178;

										BgL_arg4322z00_13178 = BGL_EXITD_PROTECT(BgL_ez00_5761);
										BgL_arg4321z00_13177 =
											MAKE_YOUNG_PAIR(BgL_bpz00_5754, BgL_arg4322z00_13178);
									}
									BGL_EXITD_PROTECT_SET(BgL_ez00_5761, BgL_arg4321z00_13177);
									BUNSPEC;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_accz00_5762;

									BgL_accz00_5762 =
										BGl_catchzd2trampolinezd2zz__evaluate_compz00
										(BgL_runz00_15662, BgL_sz00_5753, BgL_bpz00_5754);
									{	/* Eval/evaluate_comp.scm 1181 */
										bool_t BgL_test5470z00_26310;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4320z00_13180;

											BgL_arg4320z00_13180 = BGL_EXITD_PROTECT(BgL_ez00_5761);
											BgL_test5470z00_26310 = PAIRP(BgL_arg4320z00_13180);
										}
										if (BgL_test5470z00_26310)
											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4318z00_13181;

												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4319z00_13182;

													BgL_arg4319z00_13182 =
														BGL_EXITD_PROTECT(BgL_ez00_5761);
													BgL_arg4318z00_13181 =
														CDR(((obj_t) BgL_arg4319z00_13182));
												}
												BGL_EXITD_PROTECT_SET(BgL_ez00_5761,
													BgL_arg4318z00_13181);
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 1181 */
												BFALSE;
											}
									}
									VECTOR_SET(((obj_t) BgL_sz00_5753), 0L, BgL_bpz00_5754);
									return BgL_accz00_5762;
								}
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_5763;

							BgL_nsz00_5763 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_5763, 1L, BgL_sz00_5753);
							VECTOR_SET(BgL_nsz00_5763, 2L, BgL_az00_5747);
							VECTOR_SET(BgL_nsz00_5763, 3L, BgL_bz00_5748);
							VECTOR_SET(BgL_nsz00_5763, 4L, BgL_cz00_5749);
							VECTOR_SET(BgL_nsz00_5763, 5L, BgL_dz00_5750);
							VECTOR_SET(BgL_nsz00_5763, 6L, BgL_lastz00_5751);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_5764;

								BgL_z12denvz12_5764 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5764, BgL_nsz00_5763);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_5765;

									BgL_ez00_5765 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_13191;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_13192;

											BgL_arg4322z00_13192 = BGL_EXITD_PROTECT(BgL_ez00_5765);
											BgL_arg4321z00_13191 =
												MAKE_YOUNG_PAIR(BgL_sz00_5753, BgL_arg4322z00_13192);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_5765, BgL_arg4321z00_13191);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_5766;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_13193;

											BgL_savedzd2bpzd2_13193 = VECTOR_REF(BgL_nsz00_5763, 0L);
											VECTOR_SET(BgL_nsz00_5763, 0L, BINT(2L));
											{
												obj_t BgL_fz00_13197;

												BgL_fz00_13197 = BgL_runz00_15662;
											BgL_recz00_13196:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_13198;

													BgL_rz00_13198 =
														BGL_PROCEDURE_CALL1(BgL_fz00_13197, BgL_nsz00_5763);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5471z00_26339;

														if (PROCEDUREP(BgL_rz00_13198))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_13201;

																BgL_arg1759z00_13201 =
																	PROCEDURE_ATTR(BgL_rz00_13198);
																if (STRUCTP(BgL_arg1759z00_13201))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5471z00_26339 =
																			(STRUCT_KEY(BgL_arg1759z00_13201) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5471z00_26339 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5471z00_26339 = ((bool_t) 0);
															}
														if (BgL_test5471z00_26339)
															{
																obj_t BgL_fz00_26347;

																BgL_fz00_26347 = BgL_rz00_13198;
																BgL_fz00_13197 = BgL_fz00_26347;
																goto BgL_recz00_13196;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_5763, 0L,
																	BgL_savedzd2bpzd2_13193);
																BgL_____rz00_5766 = BgL_rz00_13198;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5474z00_26349;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_13209;

												BgL_arg4320z00_13209 = BGL_EXITD_PROTECT(BgL_ez00_5765);
												BgL_test5474z00_26349 = PAIRP(BgL_arg4320z00_13209);
											}
											if (BgL_test5474z00_26349)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_13210;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_13211;

														BgL_arg4319z00_13211 =
															BGL_EXITD_PROTECT(BgL_ez00_5765);
														BgL_arg4318z00_13210 =
															CDR(((obj_t) BgL_arg4319z00_13211));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_5765,
														BgL_arg4318z00_13210);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5764, BgL_sz00_5753);
										return BgL_____rz00_5766;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4484 */
	obj_t BGl_z62run4484z62zz__evaluate_compz00(obj_t BgL_envz00_14506,
		obj_t BgL_sz00_14512)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_iboxesz00_14507;
				long BgL_siza7eza7_14508;
				obj_t BgL_valza2za2_14509;
				BgL_ev_absz00_bglt BgL_i1255z00_14510;
				obj_t BgL_bodyz00_14511;

				BgL_iboxesz00_14507 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14506, (int) (0L)));
				BgL_siza7eza7_14508 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_14506, (int) (1L)));
				BgL_valza2za2_14509 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14506, (int) (2L)));
				BgL_i1255z00_14510 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14506, (int) (3L)));
				BgL_bodyz00_14511 = PROCEDURE_REF(BgL_envz00_14506, (int) (4L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16202;

					BgL_bpz00_16202 = VECTOR_REF(((obj_t) BgL_sz00_14512), 0L);
					BGl_makezd2boxeszd2zz__evaluate_compz00(BgL_sz00_14512,
						BgL_iboxesz00_14507, BgL_bpz00_16202);
					BGl_freezd2restorezd2zz__evaluate_compz00(BgL_sz00_14512,
						BgL_valza2za2_14509,
						((long) CINT(BgL_bpz00_16202) + BgL_siza7eza7_14508));
					{	/* Eval/evaluate_comp.scm 1102 */
						obj_t BgL_z12denvz12_16203;
						obj_t BgL_wherez00_16204;
						obj_t BgL_locz00_16205;

						BgL_z12denvz12_16203 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16204 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14510))->
							BgL_wherez00);
						BgL_locz00_16205 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14510))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1102 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16203, BgL_wherez00_16204,
								BgL_locz00_16205);
							{	/* Eval/evaluate_comp.scm 1102 */
								obj_t BgL_za2za2resza2za2z00_16206;

								BgL_za2za2resza2za2z00_16206 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_14511, BgL_sz00_14512);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16203);
								return BgL_za2za2resza2za2z00_16206;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3810> */
	obj_t BGl_z62zc3z04anonymousza33810ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14513, obj_t BgL_sz00_14517)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				BgL_ev_absz00_bglt BgL_i1255z00_14514;
				obj_t BgL_bodyz00_14515;
				obj_t BgL_siza7ezd2framez75_14516;

				BgL_i1255z00_14514 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14513, (int) (0L)));
				BgL_bodyz00_14515 = PROCEDURE_REF(BgL_envz00_14513, (int) (1L));
				BgL_siza7ezd2framez75_14516 =
					PROCEDURE_REF(BgL_envz00_14513, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16207;

					BgL_bpz00_16207 = VECTOR_REF(((obj_t) BgL_sz00_14517), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */

						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16208;

							BgL_runz00_16208 =
								MAKE_FX_PROCEDURE(BGl_z62run4486z62zz__evaluate_compz00,
								(int) (1L), (int) (2L));
							PROCEDURE_SET(BgL_runz00_16208,
								(int) (0L), ((obj_t) BgL_i1255z00_14514));
							PROCEDURE_SET(BgL_runz00_16208, (int) (1L), BgL_bodyz00_14515);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16209;

								BgL_mainz00_16209 =
									MAKE_FX_PROCEDURE(BGl_z62main4485z62zz__evaluate_compz00,
									(int) (4L), (int) (4L));
								PROCEDURE_SET(BgL_mainz00_16209,
									(int) (0L), ((obj_t) BgL_i1255z00_14514));
								PROCEDURE_SET(BgL_mainz00_16209, (int) (1L), BgL_bodyz00_14515);
								PROCEDURE_SET(BgL_mainz00_16209, (int) (2L), BgL_runz00_16208);
								PROCEDURE_SET(BgL_mainz00_16209,
									(int) (3L), BgL_siza7ezd2framez75_14516);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16210;

									BgL_objz00_16210 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16208, BgL_objz00_16210);
									BgL_objz00_16210;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3811z00_16211;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3812z00_16212;

										BgL_arg3812z00_16212 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14514))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16213;

											BgL_newz00_16213 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_26419;

												BgL_tmpz00_26419 = (int) (3L);
												STRUCT_SET(BgL_newz00_16213, BgL_tmpz00_26419,
													BgL_arg3812z00_16212);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_26422;

												BgL_tmpz00_26422 = (int) (2L);
												STRUCT_SET(BgL_newz00_16213, BgL_tmpz00_26422,
													BgL_siza7ezd2framez75_14516);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_26425;

												BgL_tmpz00_26425 = (int) (1L);
												STRUCT_SET(BgL_newz00_16213, BgL_tmpz00_26425,
													BgL_runz00_16208);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												obj_t BgL_auxz00_26430;
												int BgL_tmpz00_26428;

												BgL_auxz00_26430 = BINT(4L);
												BgL_tmpz00_26428 = (int) (0L);
												STRUCT_SET(BgL_newz00_16213, BgL_tmpz00_26428,
													BgL_auxz00_26430);
											}
											BgL_arg3811z00_16211 = BgL_newz00_16213;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16209, BgL_arg3811z00_16211);
									BgL_arg3811z00_16211;
								}
								return BgL_mainz00_16209;
							}
						}
					}
				}
			}
		}

	}



/* &main4485 */
	obj_t BGl_z62main4485z62zz__evaluate_compz00(obj_t BgL_envz00_14518,
		obj_t BgL_az00_14523, obj_t BgL_bz00_14524, obj_t BgL_cz00_14525,
		obj_t BgL_dz00_14526)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_runz00_14521;
				long BgL_siza7ezd2framez75_14522;

				BgL_runz00_14521 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14518, (int) (2L)));
				BgL_siza7ezd2framez75_14522 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_14518, (int) (3L)));
				return
					BGl_mainze739ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_14522,
					BgL_runz00_14521, BgL_az00_14523, BgL_bz00_14524, BgL_cz00_14525,
					BgL_dz00_14526);
			}
		}

	}



/* main~39 */
	obj_t BGl_mainze739ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15661,
		obj_t BgL_runz00_15660, obj_t BgL_az00_5484, obj_t BgL_bz00_5485,
		obj_t BgL_cz00_5486, obj_t BgL_dz00_5487)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_5489;

				BgL_sz00_5489 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_5490;

					BgL_bpz00_5490 = VECTOR_REF(((obj_t) BgL_sz00_5489), 0L);
					if (
						(((long) CINT(BgL_bpz00_5490) + BgL_siza7ezd2framez75_15661) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_5489))))
						{	/* Eval/evaluate_comp.scm 1181 */
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3815z00_5492;

								BgL_arg3815z00_5492 = ((long) CINT(BgL_bpz00_5490) + 0L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5489), BgL_arg3815z00_5492, BgL_az00_5484);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3816z00_5493;

								BgL_arg3816z00_5493 = ((long) CINT(BgL_bpz00_5490) + 1L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5489), BgL_arg3816z00_5493, BgL_bz00_5485);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3817z00_5494;

								BgL_arg3817z00_5494 = ((long) CINT(BgL_bpz00_5490) + 2L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5489), BgL_arg3817z00_5494, BgL_cz00_5486);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3818z00_5495;

								BgL_arg3818z00_5495 = ((long) CINT(BgL_bpz00_5490) + 3L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5489), BgL_arg3818z00_5495, BgL_dz00_5487);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_ez00_5496;

								BgL_ez00_5496 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4321z00_12705;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4322z00_12706;

										BgL_arg4322z00_12706 = BGL_EXITD_PROTECT(BgL_ez00_5496);
										BgL_arg4321z00_12705 =
											MAKE_YOUNG_PAIR(BgL_bpz00_5490, BgL_arg4322z00_12706);
									}
									BGL_EXITD_PROTECT_SET(BgL_ez00_5496, BgL_arg4321z00_12705);
									BUNSPEC;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_accz00_5497;

									BgL_accz00_5497 =
										BGl_catchzd2trampolinezd2zz__evaluate_compz00
										(BgL_runz00_15660, BgL_sz00_5489, BgL_bpz00_5490);
									{	/* Eval/evaluate_comp.scm 1181 */
										bool_t BgL_test5476z00_26471;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4320z00_12708;

											BgL_arg4320z00_12708 = BGL_EXITD_PROTECT(BgL_ez00_5496);
											BgL_test5476z00_26471 = PAIRP(BgL_arg4320z00_12708);
										}
										if (BgL_test5476z00_26471)
											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4318z00_12709;

												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4319z00_12710;

													BgL_arg4319z00_12710 =
														BGL_EXITD_PROTECT(BgL_ez00_5496);
													BgL_arg4318z00_12709 =
														CDR(((obj_t) BgL_arg4319z00_12710));
												}
												BGL_EXITD_PROTECT_SET(BgL_ez00_5496,
													BgL_arg4318z00_12709);
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 1181 */
												BFALSE;
											}
									}
									VECTOR_SET(((obj_t) BgL_sz00_5489), 0L, BgL_bpz00_5490);
									return BgL_accz00_5497;
								}
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_5498;

							BgL_nsz00_5498 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_5498, 1L, BgL_sz00_5489);
							VECTOR_SET(BgL_nsz00_5498, 2L, BgL_az00_5484);
							VECTOR_SET(BgL_nsz00_5498, 3L, BgL_bz00_5485);
							VECTOR_SET(BgL_nsz00_5498, 4L, BgL_cz00_5486);
							VECTOR_SET(BgL_nsz00_5498, 5L, BgL_dz00_5487);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_5499;

								BgL_z12denvz12_5499 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5499, BgL_nsz00_5498);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_5500;

									BgL_ez00_5500 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_12718;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_12719;

											BgL_arg4322z00_12719 = BGL_EXITD_PROTECT(BgL_ez00_5500);
											BgL_arg4321z00_12718 =
												MAKE_YOUNG_PAIR(BgL_sz00_5489, BgL_arg4322z00_12719);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_5500, BgL_arg4321z00_12718);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_5501;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_12720;

											BgL_savedzd2bpzd2_12720 = VECTOR_REF(BgL_nsz00_5498, 0L);
											VECTOR_SET(BgL_nsz00_5498, 0L, BINT(2L));
											{
												obj_t BgL_fz00_12724;

												BgL_fz00_12724 = BgL_runz00_15660;
											BgL_recz00_12723:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_12725;

													BgL_rz00_12725 =
														BGL_PROCEDURE_CALL1(BgL_fz00_12724, BgL_nsz00_5498);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5477z00_26499;

														if (PROCEDUREP(BgL_rz00_12725))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_12728;

																BgL_arg1759z00_12728 =
																	PROCEDURE_ATTR(BgL_rz00_12725);
																if (STRUCTP(BgL_arg1759z00_12728))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5477z00_26499 =
																			(STRUCT_KEY(BgL_arg1759z00_12728) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5477z00_26499 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5477z00_26499 = ((bool_t) 0);
															}
														if (BgL_test5477z00_26499)
															{
																obj_t BgL_fz00_26507;

																BgL_fz00_26507 = BgL_rz00_12725;
																BgL_fz00_12724 = BgL_fz00_26507;
																goto BgL_recz00_12723;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_5498, 0L,
																	BgL_savedzd2bpzd2_12720);
																BgL_____rz00_5501 = BgL_rz00_12725;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5480z00_26509;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_12736;

												BgL_arg4320z00_12736 = BGL_EXITD_PROTECT(BgL_ez00_5500);
												BgL_test5480z00_26509 = PAIRP(BgL_arg4320z00_12736);
											}
											if (BgL_test5480z00_26509)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_12737;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_12738;

														BgL_arg4319z00_12738 =
															BGL_EXITD_PROTECT(BgL_ez00_5500);
														BgL_arg4318z00_12737 =
															CDR(((obj_t) BgL_arg4319z00_12738));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_5500,
														BgL_arg4318z00_12737);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5499, BgL_sz00_5489);
										return BgL_____rz00_5501;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4486 */
	obj_t BGl_z62run4486z62zz__evaluate_compz00(obj_t BgL_envz00_14527,
		obj_t BgL_sz00_14530)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				BgL_ev_absz00_bglt BgL_i1255z00_14528;
				obj_t BgL_bodyz00_14529;

				BgL_i1255z00_14528 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14527, (int) (0L)));
				BgL_bodyz00_14529 = PROCEDURE_REF(BgL_envz00_14527, (int) (1L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16214;

					BgL_bpz00_16214 = VECTOR_REF(((obj_t) BgL_sz00_14530), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_z12denvz12_16215;
						obj_t BgL_wherez00_16216;
						obj_t BgL_locz00_16217;

						BgL_z12denvz12_16215 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16216 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14528))->
							BgL_wherez00);
						BgL_locz00_16217 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14528))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1181 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16215, BgL_wherez00_16216,
								BgL_locz00_16217);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_za2za2resza2za2z00_16218;

								BgL_za2za2resza2za2z00_16218 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_14529, BgL_sz00_14530);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16215);
								return BgL_za2za2resza2za2z00_16218;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3820> */
	obj_t BGl_z62zc3z04anonymousza33820ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14531, obj_t BgL_sz00_14536)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_iboxesz00_14532;
				BgL_ev_absz00_bglt BgL_i1255z00_14533;
				obj_t BgL_bodyz00_14534;
				obj_t BgL_siza7ezd2framez75_14535;

				BgL_iboxesz00_14532 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14531, (int) (0L)));
				BgL_i1255z00_14533 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14531, (int) (1L)));
				BgL_bodyz00_14534 = PROCEDURE_REF(BgL_envz00_14531, (int) (2L));
				BgL_siza7ezd2framez75_14535 =
					PROCEDURE_REF(BgL_envz00_14531, (int) (3L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16219;

					BgL_bpz00_16219 = VECTOR_REF(((obj_t) BgL_sz00_14536), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */

						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16220;

							BgL_runz00_16220 =
								MAKE_FX_PROCEDURE(BGl_z62run4488z62zz__evaluate_compz00,
								(int) (1L), (int) (3L));
							PROCEDURE_SET(BgL_runz00_16220, (int) (0L), BgL_iboxesz00_14532);
							PROCEDURE_SET(BgL_runz00_16220,
								(int) (1L), ((obj_t) BgL_i1255z00_14533));
							PROCEDURE_SET(BgL_runz00_16220, (int) (2L), BgL_bodyz00_14534);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16221;

								BgL_mainz00_16221 =
									MAKE_FX_PROCEDURE(BGl_z62main4487z62zz__evaluate_compz00,
									(int) (4L), (int) (5L));
								PROCEDURE_SET(BgL_mainz00_16221,
									(int) (0L), BgL_iboxesz00_14532);
								PROCEDURE_SET(BgL_mainz00_16221,
									(int) (1L), ((obj_t) BgL_i1255z00_14533));
								PROCEDURE_SET(BgL_mainz00_16221, (int) (2L), BgL_bodyz00_14534);
								PROCEDURE_SET(BgL_mainz00_16221, (int) (3L), BgL_runz00_16220);
								PROCEDURE_SET(BgL_mainz00_16221,
									(int) (4L), BgL_siza7ezd2framez75_14535);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16222;

									BgL_objz00_16222 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16220, BgL_objz00_16222);
									BgL_objz00_16222;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3821z00_16223;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3822z00_16224;

										BgL_arg3822z00_16224 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14533))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16225;

											BgL_newz00_16225 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_26573;

												BgL_tmpz00_26573 = (int) (3L);
												STRUCT_SET(BgL_newz00_16225, BgL_tmpz00_26573,
													BgL_arg3822z00_16224);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_26576;

												BgL_tmpz00_26576 = (int) (2L);
												STRUCT_SET(BgL_newz00_16225, BgL_tmpz00_26576,
													BgL_siza7ezd2framez75_14535);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_26579;

												BgL_tmpz00_26579 = (int) (1L);
												STRUCT_SET(BgL_newz00_16225, BgL_tmpz00_26579,
													BgL_runz00_16220);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												obj_t BgL_auxz00_26584;
												int BgL_tmpz00_26582;

												BgL_auxz00_26584 = BINT(4L);
												BgL_tmpz00_26582 = (int) (0L);
												STRUCT_SET(BgL_newz00_16225, BgL_tmpz00_26582,
													BgL_auxz00_26584);
											}
											BgL_arg3821z00_16223 = BgL_newz00_16225;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16221, BgL_arg3821z00_16223);
									BgL_arg3821z00_16223;
								}
								return BgL_mainz00_16221;
							}
						}
					}
				}
			}
		}

	}



/* &main4487 */
	obj_t BGl_z62main4487z62zz__evaluate_compz00(obj_t BgL_envz00_14537,
		obj_t BgL_az00_14543, obj_t BgL_bz00_14544, obj_t BgL_cz00_14545,
		obj_t BgL_dz00_14546)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_runz00_14541;
				long BgL_siza7ezd2framez75_14542;

				BgL_runz00_14541 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14537, (int) (3L)));
				BgL_siza7ezd2framez75_14542 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_14537, (int) (4L)));
				return
					BGl_mainze738ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_14542,
					BgL_runz00_14541, BgL_az00_14543, BgL_bz00_14544, BgL_cz00_14545,
					BgL_dz00_14546);
			}
		}

	}



/* main~38 */
	obj_t BGl_mainze738ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15659,
		obj_t BgL_runz00_15658, obj_t BgL_az00_5518, obj_t BgL_bz00_5519,
		obj_t BgL_cz00_5520, obj_t BgL_dz00_5521)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_5523;

				BgL_sz00_5523 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_5524;

					BgL_bpz00_5524 = VECTOR_REF(((obj_t) BgL_sz00_5523), 0L);
					if (
						(((long) CINT(BgL_bpz00_5524) + BgL_siza7ezd2framez75_15659) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_5523))))
						{	/* Eval/evaluate_comp.scm 1181 */
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3825z00_5526;

								BgL_arg3825z00_5526 = ((long) CINT(BgL_bpz00_5524) + 0L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5523), BgL_arg3825z00_5526, BgL_az00_5518);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3826z00_5527;

								BgL_arg3826z00_5527 = ((long) CINT(BgL_bpz00_5524) + 1L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5523), BgL_arg3826z00_5527, BgL_bz00_5519);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3827z00_5528;

								BgL_arg3827z00_5528 = ((long) CINT(BgL_bpz00_5524) + 2L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5523), BgL_arg3827z00_5528, BgL_cz00_5520);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3828z00_5529;

								BgL_arg3828z00_5529 = ((long) CINT(BgL_bpz00_5524) + 3L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5523), BgL_arg3828z00_5529, BgL_dz00_5521);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_ez00_5530;

								BgL_ez00_5530 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4321z00_12768;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4322z00_12769;

										BgL_arg4322z00_12769 = BGL_EXITD_PROTECT(BgL_ez00_5530);
										BgL_arg4321z00_12768 =
											MAKE_YOUNG_PAIR(BgL_bpz00_5524, BgL_arg4322z00_12769);
									}
									BGL_EXITD_PROTECT_SET(BgL_ez00_5530, BgL_arg4321z00_12768);
									BUNSPEC;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_accz00_5531;

									BgL_accz00_5531 =
										BGl_catchzd2trampolinezd2zz__evaluate_compz00
										(BgL_runz00_15658, BgL_sz00_5523, BgL_bpz00_5524);
									{	/* Eval/evaluate_comp.scm 1181 */
										bool_t BgL_test5482z00_26625;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4320z00_12771;

											BgL_arg4320z00_12771 = BGL_EXITD_PROTECT(BgL_ez00_5530);
											BgL_test5482z00_26625 = PAIRP(BgL_arg4320z00_12771);
										}
										if (BgL_test5482z00_26625)
											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4318z00_12772;

												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4319z00_12773;

													BgL_arg4319z00_12773 =
														BGL_EXITD_PROTECT(BgL_ez00_5530);
													BgL_arg4318z00_12772 =
														CDR(((obj_t) BgL_arg4319z00_12773));
												}
												BGL_EXITD_PROTECT_SET(BgL_ez00_5530,
													BgL_arg4318z00_12772);
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 1181 */
												BFALSE;
											}
									}
									VECTOR_SET(((obj_t) BgL_sz00_5523), 0L, BgL_bpz00_5524);
									return BgL_accz00_5531;
								}
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_5532;

							BgL_nsz00_5532 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_5532, 1L, BgL_sz00_5523);
							VECTOR_SET(BgL_nsz00_5532, 2L, BgL_az00_5518);
							VECTOR_SET(BgL_nsz00_5532, 3L, BgL_bz00_5519);
							VECTOR_SET(BgL_nsz00_5532, 4L, BgL_cz00_5520);
							VECTOR_SET(BgL_nsz00_5532, 5L, BgL_dz00_5521);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_5533;

								BgL_z12denvz12_5533 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5533, BgL_nsz00_5532);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_5534;

									BgL_ez00_5534 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_12781;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_12782;

											BgL_arg4322z00_12782 = BGL_EXITD_PROTECT(BgL_ez00_5534);
											BgL_arg4321z00_12781 =
												MAKE_YOUNG_PAIR(BgL_sz00_5523, BgL_arg4322z00_12782);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_5534, BgL_arg4321z00_12781);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_5535;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_12783;

											BgL_savedzd2bpzd2_12783 = VECTOR_REF(BgL_nsz00_5532, 0L);
											VECTOR_SET(BgL_nsz00_5532, 0L, BINT(2L));
											{
												obj_t BgL_fz00_12787;

												BgL_fz00_12787 = BgL_runz00_15658;
											BgL_recz00_12786:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_12788;

													BgL_rz00_12788 =
														BGL_PROCEDURE_CALL1(BgL_fz00_12787, BgL_nsz00_5532);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5483z00_26653;

														if (PROCEDUREP(BgL_rz00_12788))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_12791;

																BgL_arg1759z00_12791 =
																	PROCEDURE_ATTR(BgL_rz00_12788);
																if (STRUCTP(BgL_arg1759z00_12791))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5483z00_26653 =
																			(STRUCT_KEY(BgL_arg1759z00_12791) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5483z00_26653 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5483z00_26653 = ((bool_t) 0);
															}
														if (BgL_test5483z00_26653)
															{
																obj_t BgL_fz00_26661;

																BgL_fz00_26661 = BgL_rz00_12788;
																BgL_fz00_12787 = BgL_fz00_26661;
																goto BgL_recz00_12786;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_5532, 0L,
																	BgL_savedzd2bpzd2_12783);
																BgL_____rz00_5535 = BgL_rz00_12788;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5486z00_26663;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_12799;

												BgL_arg4320z00_12799 = BGL_EXITD_PROTECT(BgL_ez00_5534);
												BgL_test5486z00_26663 = PAIRP(BgL_arg4320z00_12799);
											}
											if (BgL_test5486z00_26663)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_12800;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_12801;

														BgL_arg4319z00_12801 =
															BGL_EXITD_PROTECT(BgL_ez00_5534);
														BgL_arg4318z00_12800 =
															CDR(((obj_t) BgL_arg4319z00_12801));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_5534,
														BgL_arg4318z00_12800);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5533, BgL_sz00_5523);
										return BgL_____rz00_5535;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4488 */
	obj_t BGl_z62run4488z62zz__evaluate_compz00(obj_t BgL_envz00_14547,
		obj_t BgL_sz00_14551)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_iboxesz00_14548;
				BgL_ev_absz00_bglt BgL_i1255z00_14549;
				obj_t BgL_bodyz00_14550;

				BgL_iboxesz00_14548 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14547, (int) (0L)));
				BgL_i1255z00_14549 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14547, (int) (1L)));
				BgL_bodyz00_14550 = PROCEDURE_REF(BgL_envz00_14547, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16226;

					BgL_bpz00_16226 = VECTOR_REF(((obj_t) BgL_sz00_14551), 0L);
					BGl_makezd2boxeszd2zz__evaluate_compz00(BgL_sz00_14551,
						BgL_iboxesz00_14548, BgL_bpz00_16226);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_z12denvz12_16227;
						obj_t BgL_wherez00_16228;
						obj_t BgL_locz00_16229;

						BgL_z12denvz12_16227 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16228 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14549))->
							BgL_wherez00);
						BgL_locz00_16229 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14549))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1181 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16227, BgL_wherez00_16228,
								BgL_locz00_16229);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_za2za2resza2za2z00_16230;

								BgL_za2za2resza2za2z00_16230 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_14550, BgL_sz00_14551);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16227);
								return BgL_za2za2resza2za2z00_16230;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3833> */
	obj_t BGl_z62zc3z04anonymousza33833ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14552, obj_t BgL_sz00_14558)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_ifreesz00_14553;
				obj_t BgL_siza7eza7_14554;
				BgL_ev_absz00_bglt BgL_i1255z00_14555;
				obj_t BgL_bodyz00_14556;
				obj_t BgL_siza7ezd2framez75_14557;

				BgL_ifreesz00_14553 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14552, (int) (0L)));
				BgL_siza7eza7_14554 = PROCEDURE_REF(BgL_envz00_14552, (int) (1L));
				BgL_i1255z00_14555 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14552, (int) (2L)));
				BgL_bodyz00_14556 = PROCEDURE_REF(BgL_envz00_14552, (int) (3L));
				BgL_siza7ezd2framez75_14557 =
					PROCEDURE_REF(BgL_envz00_14552, (int) (4L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16231;

					BgL_bpz00_16231 = VECTOR_REF(((obj_t) BgL_sz00_14558), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_valza2za2_16232;

						BgL_valza2za2_16232 =
							BGl_freezd2collectzd2zz__evaluate_compz00(BgL_sz00_14558,
							BgL_bpz00_16231, BgL_ifreesz00_14553);
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16233;

							BgL_runz00_16233 =
								MAKE_FX_PROCEDURE(BGl_z62run4490z62zz__evaluate_compz00,
								(int) (1L), (int) (4L));
							PROCEDURE_SET(BgL_runz00_16233, (int) (0L), BgL_siza7eza7_14554);
							PROCEDURE_SET(BgL_runz00_16233, (int) (1L), BgL_valza2za2_16232);
							PROCEDURE_SET(BgL_runz00_16233,
								(int) (2L), ((obj_t) BgL_i1255z00_14555));
							PROCEDURE_SET(BgL_runz00_16233, (int) (3L), BgL_bodyz00_14556);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16234;

								BgL_mainz00_16234 =
									MAKE_FX_PROCEDURE(BGl_z62main4489z62zz__evaluate_compz00,
									(int) (4L), (int) (6L));
								PROCEDURE_SET(BgL_mainz00_16234,
									(int) (0L), BgL_siza7eza7_14554);
								PROCEDURE_SET(BgL_mainz00_16234,
									(int) (1L), BgL_valza2za2_16232);
								PROCEDURE_SET(BgL_mainz00_16234,
									(int) (2L), ((obj_t) BgL_i1255z00_14555));
								PROCEDURE_SET(BgL_mainz00_16234, (int) (3L), BgL_bodyz00_14556);
								PROCEDURE_SET(BgL_mainz00_16234, (int) (4L), BgL_runz00_16233);
								PROCEDURE_SET(BgL_mainz00_16234,
									(int) (5L), BgL_siza7ezd2framez75_14557);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16235;

									BgL_objz00_16235 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16233, BgL_objz00_16235);
									BgL_objz00_16235;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3834z00_16236;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3835z00_16237;

										BgL_arg3835z00_16237 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14555))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16238;

											BgL_newz00_16238 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_26738;

												BgL_tmpz00_26738 = (int) (3L);
												STRUCT_SET(BgL_newz00_16238, BgL_tmpz00_26738,
													BgL_arg3835z00_16237);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_26741;

												BgL_tmpz00_26741 = (int) (2L);
												STRUCT_SET(BgL_newz00_16238, BgL_tmpz00_26741,
													BgL_siza7ezd2framez75_14557);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_26744;

												BgL_tmpz00_26744 = (int) (1L);
												STRUCT_SET(BgL_newz00_16238, BgL_tmpz00_26744,
													BgL_runz00_16233);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												obj_t BgL_auxz00_26749;
												int BgL_tmpz00_26747;

												BgL_auxz00_26749 = BINT(4L);
												BgL_tmpz00_26747 = (int) (0L);
												STRUCT_SET(BgL_newz00_16238, BgL_tmpz00_26747,
													BgL_auxz00_26749);
											}
											BgL_arg3834z00_16236 = BgL_newz00_16238;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16234, BgL_arg3834z00_16236);
									BgL_arg3834z00_16236;
								}
								return BgL_mainz00_16234;
							}
						}
					}
				}
			}
		}

	}



/* &main4489 */
	obj_t BGl_z62main4489z62zz__evaluate_compz00(obj_t BgL_envz00_14559,
		obj_t BgL_az00_14566, obj_t BgL_bz00_14567, obj_t BgL_cz00_14568,
		obj_t BgL_dz00_14569)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_runz00_14564;
				long BgL_siza7ezd2framez75_14565;

				BgL_runz00_14564 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14559, (int) (4L)));
				BgL_siza7ezd2framez75_14565 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_14559, (int) (5L)));
				return
					BGl_mainze737ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_14565,
					BgL_runz00_14564, BgL_az00_14566, BgL_bz00_14567, BgL_cz00_14568,
					BgL_dz00_14569);
			}
		}

	}



/* main~37 */
	obj_t BGl_mainze737ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15657,
		obj_t BgL_runz00_15656, obj_t BgL_az00_5556, obj_t BgL_bz00_5557,
		obj_t BgL_cz00_5558, obj_t BgL_dz00_5559)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_5561;

				BgL_sz00_5561 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_5562;

					BgL_bpz00_5562 = VECTOR_REF(((obj_t) BgL_sz00_5561), 0L);
					if (
						(((long) CINT(BgL_bpz00_5562) + BgL_siza7ezd2framez75_15657) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_5561))))
						{	/* Eval/evaluate_comp.scm 1181 */
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3838z00_5564;

								BgL_arg3838z00_5564 = ((long) CINT(BgL_bpz00_5562) + 0L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5561), BgL_arg3838z00_5564, BgL_az00_5556);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3839z00_5565;

								BgL_arg3839z00_5565 = ((long) CINT(BgL_bpz00_5562) + 1L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5561), BgL_arg3839z00_5565, BgL_bz00_5557);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3840z00_5566;

								BgL_arg3840z00_5566 = ((long) CINT(BgL_bpz00_5562) + 2L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5561), BgL_arg3840z00_5566, BgL_cz00_5558);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3841z00_5567;

								BgL_arg3841z00_5567 = ((long) CINT(BgL_bpz00_5562) + 3L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5561), BgL_arg3841z00_5567, BgL_dz00_5559);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_ez00_5568;

								BgL_ez00_5568 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4321z00_12835;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4322z00_12836;

										BgL_arg4322z00_12836 = BGL_EXITD_PROTECT(BgL_ez00_5568);
										BgL_arg4321z00_12835 =
											MAKE_YOUNG_PAIR(BgL_bpz00_5562, BgL_arg4322z00_12836);
									}
									BGL_EXITD_PROTECT_SET(BgL_ez00_5568, BgL_arg4321z00_12835);
									BUNSPEC;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_accz00_5569;

									BgL_accz00_5569 =
										BGl_catchzd2trampolinezd2zz__evaluate_compz00
										(BgL_runz00_15656, BgL_sz00_5561, BgL_bpz00_5562);
									{	/* Eval/evaluate_comp.scm 1181 */
										bool_t BgL_test5488z00_26790;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4320z00_12838;

											BgL_arg4320z00_12838 = BGL_EXITD_PROTECT(BgL_ez00_5568);
											BgL_test5488z00_26790 = PAIRP(BgL_arg4320z00_12838);
										}
										if (BgL_test5488z00_26790)
											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4318z00_12839;

												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4319z00_12840;

													BgL_arg4319z00_12840 =
														BGL_EXITD_PROTECT(BgL_ez00_5568);
													BgL_arg4318z00_12839 =
														CDR(((obj_t) BgL_arg4319z00_12840));
												}
												BGL_EXITD_PROTECT_SET(BgL_ez00_5568,
													BgL_arg4318z00_12839);
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 1181 */
												BFALSE;
											}
									}
									VECTOR_SET(((obj_t) BgL_sz00_5561), 0L, BgL_bpz00_5562);
									return BgL_accz00_5569;
								}
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_5570;

							BgL_nsz00_5570 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_5570, 1L, BgL_sz00_5561);
							VECTOR_SET(BgL_nsz00_5570, 2L, BgL_az00_5556);
							VECTOR_SET(BgL_nsz00_5570, 3L, BgL_bz00_5557);
							VECTOR_SET(BgL_nsz00_5570, 4L, BgL_cz00_5558);
							VECTOR_SET(BgL_nsz00_5570, 5L, BgL_dz00_5559);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_5571;

								BgL_z12denvz12_5571 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5571, BgL_nsz00_5570);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_5572;

									BgL_ez00_5572 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_12848;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_12849;

											BgL_arg4322z00_12849 = BGL_EXITD_PROTECT(BgL_ez00_5572);
											BgL_arg4321z00_12848 =
												MAKE_YOUNG_PAIR(BgL_sz00_5561, BgL_arg4322z00_12849);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_5572, BgL_arg4321z00_12848);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_5573;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_12850;

											BgL_savedzd2bpzd2_12850 = VECTOR_REF(BgL_nsz00_5570, 0L);
											VECTOR_SET(BgL_nsz00_5570, 0L, BINT(2L));
											{
												obj_t BgL_fz00_12854;

												BgL_fz00_12854 = BgL_runz00_15656;
											BgL_recz00_12853:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_12855;

													BgL_rz00_12855 =
														BGL_PROCEDURE_CALL1(BgL_fz00_12854, BgL_nsz00_5570);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5489z00_26818;

														if (PROCEDUREP(BgL_rz00_12855))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_12858;

																BgL_arg1759z00_12858 =
																	PROCEDURE_ATTR(BgL_rz00_12855);
																if (STRUCTP(BgL_arg1759z00_12858))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5489z00_26818 =
																			(STRUCT_KEY(BgL_arg1759z00_12858) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5489z00_26818 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5489z00_26818 = ((bool_t) 0);
															}
														if (BgL_test5489z00_26818)
															{
																obj_t BgL_fz00_26826;

																BgL_fz00_26826 = BgL_rz00_12855;
																BgL_fz00_12854 = BgL_fz00_26826;
																goto BgL_recz00_12853;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_5570, 0L,
																	BgL_savedzd2bpzd2_12850);
																BgL_____rz00_5573 = BgL_rz00_12855;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5492z00_26828;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_12866;

												BgL_arg4320z00_12866 = BGL_EXITD_PROTECT(BgL_ez00_5572);
												BgL_test5492z00_26828 = PAIRP(BgL_arg4320z00_12866);
											}
											if (BgL_test5492z00_26828)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_12867;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_12868;

														BgL_arg4319z00_12868 =
															BGL_EXITD_PROTECT(BgL_ez00_5572);
														BgL_arg4318z00_12867 =
															CDR(((obj_t) BgL_arg4319z00_12868));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_5572,
														BgL_arg4318z00_12867);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5571, BgL_sz00_5561);
										return BgL_____rz00_5573;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4490 */
	obj_t BGl_z62run4490z62zz__evaluate_compz00(obj_t BgL_envz00_14570,
		obj_t BgL_sz00_14575)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				long BgL_siza7eza7_14571;
				obj_t BgL_valza2za2_14572;
				BgL_ev_absz00_bglt BgL_i1255z00_14573;
				obj_t BgL_bodyz00_14574;

				BgL_siza7eza7_14571 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_14570, (int) (0L)));
				BgL_valza2za2_14572 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14570, (int) (1L)));
				BgL_i1255z00_14573 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14570, (int) (2L)));
				BgL_bodyz00_14574 = PROCEDURE_REF(BgL_envz00_14570, (int) (3L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16239;

					BgL_bpz00_16239 = VECTOR_REF(((obj_t) BgL_sz00_14575), 0L);
					BGl_freezd2restorezd2zz__evaluate_compz00(BgL_sz00_14575,
						BgL_valza2za2_14572,
						((long) CINT(BgL_bpz00_16239) + BgL_siza7eza7_14571));
					{	/* Eval/evaluate_comp.scm 1102 */
						obj_t BgL_z12denvz12_16240;
						obj_t BgL_wherez00_16241;
						obj_t BgL_locz00_16242;

						BgL_z12denvz12_16240 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16241 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14573))->
							BgL_wherez00);
						BgL_locz00_16242 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14573))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1102 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16240, BgL_wherez00_16241,
								BgL_locz00_16242);
							{	/* Eval/evaluate_comp.scm 1102 */
								obj_t BgL_za2za2resza2za2z00_16243;

								BgL_za2za2resza2za2z00_16243 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_14574, BgL_sz00_14575);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16240);
								return BgL_za2za2resza2za2z00_16243;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3844> */
	obj_t BGl_z62zc3z04anonymousza33844ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14576, obj_t BgL_sz00_14583)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_ifreesz00_14577;
				obj_t BgL_iboxesz00_14578;
				obj_t BgL_siza7eza7_14579;
				BgL_ev_absz00_bglt BgL_i1255z00_14580;
				obj_t BgL_bodyz00_14581;
				obj_t BgL_siza7ezd2framez75_14582;

				BgL_ifreesz00_14577 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14576, (int) (0L)));
				BgL_iboxesz00_14578 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14576, (int) (1L)));
				BgL_siza7eza7_14579 = PROCEDURE_REF(BgL_envz00_14576, (int) (2L));
				BgL_i1255z00_14580 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14576, (int) (3L)));
				BgL_bodyz00_14581 = PROCEDURE_REF(BgL_envz00_14576, (int) (4L));
				BgL_siza7ezd2framez75_14582 =
					PROCEDURE_REF(BgL_envz00_14576, (int) (5L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16244;

					BgL_bpz00_16244 = VECTOR_REF(((obj_t) BgL_sz00_14583), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_valza2za2_16245;

						BgL_valza2za2_16245 =
							BGl_freezd2collectzd2zz__evaluate_compz00(BgL_sz00_14583,
							BgL_bpz00_16244, BgL_ifreesz00_14577);
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16246;

							BgL_runz00_16246 =
								MAKE_FX_PROCEDURE(BGl_z62run4492z62zz__evaluate_compz00,
								(int) (1L), (int) (5L));
							PROCEDURE_SET(BgL_runz00_16246, (int) (0L), BgL_iboxesz00_14578);
							PROCEDURE_SET(BgL_runz00_16246, (int) (1L), BgL_siza7eza7_14579);
							PROCEDURE_SET(BgL_runz00_16246, (int) (2L), BgL_valza2za2_16245);
							PROCEDURE_SET(BgL_runz00_16246,
								(int) (3L), ((obj_t) BgL_i1255z00_14580));
							PROCEDURE_SET(BgL_runz00_16246, (int) (4L), BgL_bodyz00_14581);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16247;

								BgL_mainz00_16247 =
									MAKE_FX_PROCEDURE(BGl_z62main4491z62zz__evaluate_compz00,
									(int) (4L), (int) (7L));
								PROCEDURE_SET(BgL_mainz00_16247,
									(int) (0L), BgL_iboxesz00_14578);
								PROCEDURE_SET(BgL_mainz00_16247,
									(int) (1L), BgL_siza7eza7_14579);
								PROCEDURE_SET(BgL_mainz00_16247,
									(int) (2L), BgL_valza2za2_16245);
								PROCEDURE_SET(BgL_mainz00_16247,
									(int) (3L), ((obj_t) BgL_i1255z00_14580));
								PROCEDURE_SET(BgL_mainz00_16247, (int) (4L), BgL_bodyz00_14581);
								PROCEDURE_SET(BgL_mainz00_16247, (int) (5L), BgL_runz00_16246);
								PROCEDURE_SET(BgL_mainz00_16247,
									(int) (6L), BgL_siza7ezd2framez75_14582);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16248;

									BgL_objz00_16248 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16246, BgL_objz00_16248);
									BgL_objz00_16248;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3845z00_16249;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3846z00_16250;

										BgL_arg3846z00_16250 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14580))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16251;

											BgL_newz00_16251 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_26915;

												BgL_tmpz00_26915 = (int) (3L);
												STRUCT_SET(BgL_newz00_16251, BgL_tmpz00_26915,
													BgL_arg3846z00_16250);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_26918;

												BgL_tmpz00_26918 = (int) (2L);
												STRUCT_SET(BgL_newz00_16251, BgL_tmpz00_26918,
													BgL_siza7ezd2framez75_14582);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_26921;

												BgL_tmpz00_26921 = (int) (1L);
												STRUCT_SET(BgL_newz00_16251, BgL_tmpz00_26921,
													BgL_runz00_16246);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												obj_t BgL_auxz00_26926;
												int BgL_tmpz00_26924;

												BgL_auxz00_26926 = BINT(4L);
												BgL_tmpz00_26924 = (int) (0L);
												STRUCT_SET(BgL_newz00_16251, BgL_tmpz00_26924,
													BgL_auxz00_26926);
											}
											BgL_arg3845z00_16249 = BgL_newz00_16251;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16247, BgL_arg3845z00_16249);
									BgL_arg3845z00_16249;
								}
								return BgL_mainz00_16247;
							}
						}
					}
				}
			}
		}

	}



/* &main4491 */
	obj_t BGl_z62main4491z62zz__evaluate_compz00(obj_t BgL_envz00_14584,
		obj_t BgL_az00_14592, obj_t BgL_bz00_14593, obj_t BgL_cz00_14594,
		obj_t BgL_dz00_14595)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_runz00_14590;
				long BgL_siza7ezd2framez75_14591;

				BgL_runz00_14590 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14584, (int) (5L)));
				BgL_siza7ezd2framez75_14591 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_14584, (int) (6L)));
				return
					BGl_mainze736ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_14591,
					BgL_runz00_14590, BgL_az00_14592, BgL_bz00_14593, BgL_cz00_14594,
					BgL_dz00_14595);
			}
		}

	}



/* main~36 */
	obj_t BGl_mainze736ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15655,
		obj_t BgL_runz00_15654, obj_t BgL_az00_5592, obj_t BgL_bz00_5593,
		obj_t BgL_cz00_5594, obj_t BgL_dz00_5595)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_5597;

				BgL_sz00_5597 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_5598;

					BgL_bpz00_5598 = VECTOR_REF(((obj_t) BgL_sz00_5597), 0L);
					if (
						(((long) CINT(BgL_bpz00_5598) + BgL_siza7ezd2framez75_15655) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_5597))))
						{	/* Eval/evaluate_comp.scm 1181 */
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3849z00_5600;

								BgL_arg3849z00_5600 = ((long) CINT(BgL_bpz00_5598) + 0L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5597), BgL_arg3849z00_5600, BgL_az00_5592);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3850z00_5601;

								BgL_arg3850z00_5601 = ((long) CINT(BgL_bpz00_5598) + 1L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5597), BgL_arg3850z00_5601, BgL_bz00_5593);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3851z00_5602;

								BgL_arg3851z00_5602 = ((long) CINT(BgL_bpz00_5598) + 2L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5597), BgL_arg3851z00_5602, BgL_cz00_5594);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3852z00_5603;

								BgL_arg3852z00_5603 = ((long) CINT(BgL_bpz00_5598) + 3L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5597), BgL_arg3852z00_5603, BgL_dz00_5595);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_ez00_5604;

								BgL_ez00_5604 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4321z00_12900;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4322z00_12901;

										BgL_arg4322z00_12901 = BGL_EXITD_PROTECT(BgL_ez00_5604);
										BgL_arg4321z00_12900 =
											MAKE_YOUNG_PAIR(BgL_bpz00_5598, BgL_arg4322z00_12901);
									}
									BGL_EXITD_PROTECT_SET(BgL_ez00_5604, BgL_arg4321z00_12900);
									BUNSPEC;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_accz00_5605;

									BgL_accz00_5605 =
										BGl_catchzd2trampolinezd2zz__evaluate_compz00
										(BgL_runz00_15654, BgL_sz00_5597, BgL_bpz00_5598);
									{	/* Eval/evaluate_comp.scm 1181 */
										bool_t BgL_test5494z00_26967;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4320z00_12903;

											BgL_arg4320z00_12903 = BGL_EXITD_PROTECT(BgL_ez00_5604);
											BgL_test5494z00_26967 = PAIRP(BgL_arg4320z00_12903);
										}
										if (BgL_test5494z00_26967)
											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4318z00_12904;

												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4319z00_12905;

													BgL_arg4319z00_12905 =
														BGL_EXITD_PROTECT(BgL_ez00_5604);
													BgL_arg4318z00_12904 =
														CDR(((obj_t) BgL_arg4319z00_12905));
												}
												BGL_EXITD_PROTECT_SET(BgL_ez00_5604,
													BgL_arg4318z00_12904);
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 1181 */
												BFALSE;
											}
									}
									VECTOR_SET(((obj_t) BgL_sz00_5597), 0L, BgL_bpz00_5598);
									return BgL_accz00_5605;
								}
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_5606;

							BgL_nsz00_5606 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_5606, 1L, BgL_sz00_5597);
							VECTOR_SET(BgL_nsz00_5606, 2L, BgL_az00_5592);
							VECTOR_SET(BgL_nsz00_5606, 3L, BgL_bz00_5593);
							VECTOR_SET(BgL_nsz00_5606, 4L, BgL_cz00_5594);
							VECTOR_SET(BgL_nsz00_5606, 5L, BgL_dz00_5595);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_5607;

								BgL_z12denvz12_5607 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5607, BgL_nsz00_5606);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_5608;

									BgL_ez00_5608 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_12913;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_12914;

											BgL_arg4322z00_12914 = BGL_EXITD_PROTECT(BgL_ez00_5608);
											BgL_arg4321z00_12913 =
												MAKE_YOUNG_PAIR(BgL_sz00_5597, BgL_arg4322z00_12914);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_5608, BgL_arg4321z00_12913);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_5609;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_12915;

											BgL_savedzd2bpzd2_12915 = VECTOR_REF(BgL_nsz00_5606, 0L);
											VECTOR_SET(BgL_nsz00_5606, 0L, BINT(2L));
											{
												obj_t BgL_fz00_12919;

												BgL_fz00_12919 = BgL_runz00_15654;
											BgL_recz00_12918:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_12920;

													BgL_rz00_12920 =
														BGL_PROCEDURE_CALL1(BgL_fz00_12919, BgL_nsz00_5606);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5495z00_26995;

														if (PROCEDUREP(BgL_rz00_12920))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_12923;

																BgL_arg1759z00_12923 =
																	PROCEDURE_ATTR(BgL_rz00_12920);
																if (STRUCTP(BgL_arg1759z00_12923))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5495z00_26995 =
																			(STRUCT_KEY(BgL_arg1759z00_12923) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5495z00_26995 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5495z00_26995 = ((bool_t) 0);
															}
														if (BgL_test5495z00_26995)
															{
																obj_t BgL_fz00_27003;

																BgL_fz00_27003 = BgL_rz00_12920;
																BgL_fz00_12919 = BgL_fz00_27003;
																goto BgL_recz00_12918;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_5606, 0L,
																	BgL_savedzd2bpzd2_12915);
																BgL_____rz00_5609 = BgL_rz00_12920;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5498z00_27005;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_12931;

												BgL_arg4320z00_12931 = BGL_EXITD_PROTECT(BgL_ez00_5608);
												BgL_test5498z00_27005 = PAIRP(BgL_arg4320z00_12931);
											}
											if (BgL_test5498z00_27005)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_12932;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_12933;

														BgL_arg4319z00_12933 =
															BGL_EXITD_PROTECT(BgL_ez00_5608);
														BgL_arg4318z00_12932 =
															CDR(((obj_t) BgL_arg4319z00_12933));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_5608,
														BgL_arg4318z00_12932);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5607, BgL_sz00_5597);
										return BgL_____rz00_5609;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4492 */
	obj_t BGl_z62run4492z62zz__evaluate_compz00(obj_t BgL_envz00_14596,
		obj_t BgL_sz00_14602)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_iboxesz00_14597;
				long BgL_siza7eza7_14598;
				obj_t BgL_valza2za2_14599;
				BgL_ev_absz00_bglt BgL_i1255z00_14600;
				obj_t BgL_bodyz00_14601;

				BgL_iboxesz00_14597 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14596, (int) (0L)));
				BgL_siza7eza7_14598 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_14596, (int) (1L)));
				BgL_valza2za2_14599 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14596, (int) (2L)));
				BgL_i1255z00_14600 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14596, (int) (3L)));
				BgL_bodyz00_14601 = PROCEDURE_REF(BgL_envz00_14596, (int) (4L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16252;

					BgL_bpz00_16252 = VECTOR_REF(((obj_t) BgL_sz00_14602), 0L);
					BGl_makezd2boxeszd2zz__evaluate_compz00(BgL_sz00_14602,
						BgL_iboxesz00_14597, BgL_bpz00_16252);
					BGl_freezd2restorezd2zz__evaluate_compz00(BgL_sz00_14602,
						BgL_valza2za2_14599,
						((long) CINT(BgL_bpz00_16252) + BgL_siza7eza7_14598));
					{	/* Eval/evaluate_comp.scm 1102 */
						obj_t BgL_z12denvz12_16253;
						obj_t BgL_wherez00_16254;
						obj_t BgL_locz00_16255;

						BgL_z12denvz12_16253 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16254 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14600))->
							BgL_wherez00);
						BgL_locz00_16255 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14600))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1102 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16253, BgL_wherez00_16254,
								BgL_locz00_16255);
							{	/* Eval/evaluate_comp.scm 1102 */
								obj_t BgL_za2za2resza2za2z00_16256;

								BgL_za2za2resza2za2z00_16256 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_14601, BgL_sz00_14602);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16253);
								return BgL_za2za2resza2za2z00_16256;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3759> */
	obj_t BGl_z62zc3z04anonymousza33759ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14603, obj_t BgL_sz00_14607)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				BgL_ev_absz00_bglt BgL_i1255z00_14604;
				obj_t BgL_bodyz00_14605;
				obj_t BgL_siza7ezd2framez75_14606;

				BgL_i1255z00_14604 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14603, (int) (0L)));
				BgL_bodyz00_14605 = PROCEDURE_REF(BgL_envz00_14603, (int) (1L));
				BgL_siza7ezd2framez75_14606 =
					PROCEDURE_REF(BgL_envz00_14603, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16257;

					BgL_bpz00_16257 = VECTOR_REF(((obj_t) BgL_sz00_14607), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */

						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16258;

							BgL_runz00_16258 =
								MAKE_FX_PROCEDURE(BGl_z62run4494z62zz__evaluate_compz00,
								(int) (1L), (int) (2L));
							PROCEDURE_SET(BgL_runz00_16258,
								(int) (0L), ((obj_t) BgL_i1255z00_14604));
							PROCEDURE_SET(BgL_runz00_16258, (int) (1L), BgL_bodyz00_14605);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16259;

								BgL_mainz00_16259 =
									MAKE_VA_PROCEDURE(BGl_z62main4493z62zz__evaluate_compz00,
									(int) ((-4L)), (int) (4L));
								PROCEDURE_SET(BgL_mainz00_16259,
									(int) (0L), ((obj_t) BgL_i1255z00_14604));
								PROCEDURE_SET(BgL_mainz00_16259, (int) (1L), BgL_bodyz00_14605);
								PROCEDURE_SET(BgL_mainz00_16259, (int) (2L), BgL_runz00_16258);
								PROCEDURE_SET(BgL_mainz00_16259,
									(int) (3L), BgL_siza7ezd2framez75_14606);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16260;

									BgL_objz00_16260 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16258, BgL_objz00_16260);
									BgL_objz00_16260;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3760z00_16261;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3761z00_16262;

										BgL_arg3761z00_16262 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14604))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16263;

											BgL_newz00_16263 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_27075;

												BgL_tmpz00_27075 = (int) (3L);
												STRUCT_SET(BgL_newz00_16263, BgL_tmpz00_27075,
													BgL_arg3761z00_16262);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_27078;

												BgL_tmpz00_27078 = (int) (2L);
												STRUCT_SET(BgL_newz00_16263, BgL_tmpz00_27078,
													BgL_siza7ezd2framez75_14606);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_27081;

												BgL_tmpz00_27081 = (int) (1L);
												STRUCT_SET(BgL_newz00_16263, BgL_tmpz00_27081,
													BgL_runz00_16258);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												obj_t BgL_auxz00_27086;
												int BgL_tmpz00_27084;

												BgL_auxz00_27086 = BINT((-4L));
												BgL_tmpz00_27084 = (int) (0L);
												STRUCT_SET(BgL_newz00_16263, BgL_tmpz00_27084,
													BgL_auxz00_27086);
											}
											BgL_arg3760z00_16261 = BgL_newz00_16263;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16259, BgL_arg3760z00_16261);
									BgL_arg3760z00_16261;
								}
								return BgL_mainz00_16259;
							}
						}
					}
				}
			}
		}

	}



/* &main4493 */
	obj_t BGl_z62main4493z62zz__evaluate_compz00(obj_t BgL_envz00_14608,
		obj_t BgL_bz00_14613, obj_t BgL_cz00_14614, obj_t BgL_dz00_14615,
		obj_t BgL_lastz00_14616)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_runz00_14611;
				long BgL_siza7ezd2framez75_14612;

				BgL_runz00_14611 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14608, (int) (2L)));
				BgL_siza7ezd2framez75_14612 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_14608, (int) (3L)));
				return
					BGl_mainze735ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_14612,
					BgL_runz00_14611, BgL_bz00_14613, BgL_cz00_14614, BgL_dz00_14615,
					BgL_lastz00_14616);
			}
		}

	}



/* main~35 */
	obj_t BGl_mainze735ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15653,
		obj_t BgL_runz00_15652, obj_t BgL_bz00_5335, obj_t BgL_cz00_5336,
		obj_t BgL_dz00_5337, obj_t BgL_lastz00_5338)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_5340;

				BgL_sz00_5340 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_5341;

					BgL_bpz00_5341 = VECTOR_REF(((obj_t) BgL_sz00_5340), 0L);
					if (
						(((long) CINT(BgL_bpz00_5341) + BgL_siza7ezd2framez75_15653) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_5340))))
						{	/* Eval/evaluate_comp.scm 1181 */
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3764z00_5343;

								BgL_arg3764z00_5343 = ((long) CINT(BgL_bpz00_5341) + 0L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5340), BgL_arg3764z00_5343, BgL_bz00_5335);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3765z00_5344;

								BgL_arg3765z00_5344 = ((long) CINT(BgL_bpz00_5341) + 1L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5340), BgL_arg3765z00_5344, BgL_cz00_5336);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3766z00_5345;

								BgL_arg3766z00_5345 = ((long) CINT(BgL_bpz00_5341) + 2L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5340), BgL_arg3766z00_5345, BgL_dz00_5337);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3767z00_5346;

								BgL_arg3767z00_5346 = ((long) CINT(BgL_bpz00_5341) + 3L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5340), BgL_arg3767z00_5346,
									BgL_lastz00_5338);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_ez00_5347;

								BgL_ez00_5347 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4321z00_12443;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4322z00_12444;

										BgL_arg4322z00_12444 = BGL_EXITD_PROTECT(BgL_ez00_5347);
										BgL_arg4321z00_12443 =
											MAKE_YOUNG_PAIR(BgL_bpz00_5341, BgL_arg4322z00_12444);
									}
									BGL_EXITD_PROTECT_SET(BgL_ez00_5347, BgL_arg4321z00_12443);
									BUNSPEC;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_accz00_5348;

									BgL_accz00_5348 =
										BGl_catchzd2trampolinezd2zz__evaluate_compz00
										(BgL_runz00_15652, BgL_sz00_5340, BgL_bpz00_5341);
									{	/* Eval/evaluate_comp.scm 1181 */
										bool_t BgL_test5500z00_27127;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4320z00_12446;

											BgL_arg4320z00_12446 = BGL_EXITD_PROTECT(BgL_ez00_5347);
											BgL_test5500z00_27127 = PAIRP(BgL_arg4320z00_12446);
										}
										if (BgL_test5500z00_27127)
											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4318z00_12447;

												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4319z00_12448;

													BgL_arg4319z00_12448 =
														BGL_EXITD_PROTECT(BgL_ez00_5347);
													BgL_arg4318z00_12447 =
														CDR(((obj_t) BgL_arg4319z00_12448));
												}
												BGL_EXITD_PROTECT_SET(BgL_ez00_5347,
													BgL_arg4318z00_12447);
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 1181 */
												BFALSE;
											}
									}
									VECTOR_SET(((obj_t) BgL_sz00_5340), 0L, BgL_bpz00_5341);
									return BgL_accz00_5348;
								}
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_5349;

							BgL_nsz00_5349 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_5349, 1L, BgL_sz00_5340);
							VECTOR_SET(BgL_nsz00_5349, 2L, BgL_bz00_5335);
							VECTOR_SET(BgL_nsz00_5349, 3L, BgL_cz00_5336);
							VECTOR_SET(BgL_nsz00_5349, 4L, BgL_dz00_5337);
							VECTOR_SET(BgL_nsz00_5349, 5L, BgL_lastz00_5338);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_5350;

								BgL_z12denvz12_5350 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5350, BgL_nsz00_5349);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_5351;

									BgL_ez00_5351 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_12456;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_12457;

											BgL_arg4322z00_12457 = BGL_EXITD_PROTECT(BgL_ez00_5351);
											BgL_arg4321z00_12456 =
												MAKE_YOUNG_PAIR(BgL_sz00_5340, BgL_arg4322z00_12457);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_5351, BgL_arg4321z00_12456);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_5352;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_12458;

											BgL_savedzd2bpzd2_12458 = VECTOR_REF(BgL_nsz00_5349, 0L);
											VECTOR_SET(BgL_nsz00_5349, 0L, BINT(2L));
											{
												obj_t BgL_fz00_12462;

												BgL_fz00_12462 = BgL_runz00_15652;
											BgL_recz00_12461:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_12463;

													BgL_rz00_12463 =
														BGL_PROCEDURE_CALL1(BgL_fz00_12462, BgL_nsz00_5349);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5501z00_27155;

														if (PROCEDUREP(BgL_rz00_12463))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_12466;

																BgL_arg1759z00_12466 =
																	PROCEDURE_ATTR(BgL_rz00_12463);
																if (STRUCTP(BgL_arg1759z00_12466))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5501z00_27155 =
																			(STRUCT_KEY(BgL_arg1759z00_12466) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5501z00_27155 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5501z00_27155 = ((bool_t) 0);
															}
														if (BgL_test5501z00_27155)
															{
																obj_t BgL_fz00_27163;

																BgL_fz00_27163 = BgL_rz00_12463;
																BgL_fz00_12462 = BgL_fz00_27163;
																goto BgL_recz00_12461;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_5349, 0L,
																	BgL_savedzd2bpzd2_12458);
																BgL_____rz00_5352 = BgL_rz00_12463;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5504z00_27165;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_12474;

												BgL_arg4320z00_12474 = BGL_EXITD_PROTECT(BgL_ez00_5351);
												BgL_test5504z00_27165 = PAIRP(BgL_arg4320z00_12474);
											}
											if (BgL_test5504z00_27165)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_12475;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_12476;

														BgL_arg4319z00_12476 =
															BGL_EXITD_PROTECT(BgL_ez00_5351);
														BgL_arg4318z00_12475 =
															CDR(((obj_t) BgL_arg4319z00_12476));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_5351,
														BgL_arg4318z00_12475);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5350, BgL_sz00_5340);
										return BgL_____rz00_5352;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4494 */
	obj_t BGl_z62run4494z62zz__evaluate_compz00(obj_t BgL_envz00_14617,
		obj_t BgL_sz00_14620)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				BgL_ev_absz00_bglt BgL_i1255z00_14618;
				obj_t BgL_bodyz00_14619;

				BgL_i1255z00_14618 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14617, (int) (0L)));
				BgL_bodyz00_14619 = PROCEDURE_REF(BgL_envz00_14617, (int) (1L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16264;

					BgL_bpz00_16264 = VECTOR_REF(((obj_t) BgL_sz00_14620), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_z12denvz12_16265;
						obj_t BgL_wherez00_16266;
						obj_t BgL_locz00_16267;

						BgL_z12denvz12_16265 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16266 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14618))->
							BgL_wherez00);
						BgL_locz00_16267 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14618))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1181 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16265, BgL_wherez00_16266,
								BgL_locz00_16267);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_za2za2resza2za2z00_16268;

								BgL_za2za2resza2za2z00_16268 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_14619, BgL_sz00_14620);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16265);
								return BgL_za2za2resza2za2z00_16268;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3769> */
	obj_t BGl_z62zc3z04anonymousza33769ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14621, obj_t BgL_sz00_14626)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_iboxesz00_14622;
				BgL_ev_absz00_bglt BgL_i1255z00_14623;
				obj_t BgL_bodyz00_14624;
				obj_t BgL_siza7ezd2framez75_14625;

				BgL_iboxesz00_14622 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14621, (int) (0L)));
				BgL_i1255z00_14623 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14621, (int) (1L)));
				BgL_bodyz00_14624 = PROCEDURE_REF(BgL_envz00_14621, (int) (2L));
				BgL_siza7ezd2framez75_14625 =
					PROCEDURE_REF(BgL_envz00_14621, (int) (3L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16269;

					BgL_bpz00_16269 = VECTOR_REF(((obj_t) BgL_sz00_14626), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */

						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16270;

							BgL_runz00_16270 =
								MAKE_FX_PROCEDURE(BGl_z62run4496z62zz__evaluate_compz00,
								(int) (1L), (int) (3L));
							PROCEDURE_SET(BgL_runz00_16270, (int) (0L), BgL_iboxesz00_14622);
							PROCEDURE_SET(BgL_runz00_16270,
								(int) (1L), ((obj_t) BgL_i1255z00_14623));
							PROCEDURE_SET(BgL_runz00_16270, (int) (2L), BgL_bodyz00_14624);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16271;

								BgL_mainz00_16271 =
									MAKE_VA_PROCEDURE(BGl_z62main4495z62zz__evaluate_compz00,
									(int) ((-4L)), (int) (5L));
								PROCEDURE_SET(BgL_mainz00_16271,
									(int) (0L), BgL_iboxesz00_14622);
								PROCEDURE_SET(BgL_mainz00_16271,
									(int) (1L), ((obj_t) BgL_i1255z00_14623));
								PROCEDURE_SET(BgL_mainz00_16271, (int) (2L), BgL_bodyz00_14624);
								PROCEDURE_SET(BgL_mainz00_16271, (int) (3L), BgL_runz00_16270);
								PROCEDURE_SET(BgL_mainz00_16271,
									(int) (4L), BgL_siza7ezd2framez75_14625);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16272;

									BgL_objz00_16272 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16270, BgL_objz00_16272);
									BgL_objz00_16272;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3770z00_16273;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3771z00_16274;

										BgL_arg3771z00_16274 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14623))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16275;

											BgL_newz00_16275 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_27229;

												BgL_tmpz00_27229 = (int) (3L);
												STRUCT_SET(BgL_newz00_16275, BgL_tmpz00_27229,
													BgL_arg3771z00_16274);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_27232;

												BgL_tmpz00_27232 = (int) (2L);
												STRUCT_SET(BgL_newz00_16275, BgL_tmpz00_27232,
													BgL_siza7ezd2framez75_14625);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_27235;

												BgL_tmpz00_27235 = (int) (1L);
												STRUCT_SET(BgL_newz00_16275, BgL_tmpz00_27235,
													BgL_runz00_16270);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												obj_t BgL_auxz00_27240;
												int BgL_tmpz00_27238;

												BgL_auxz00_27240 = BINT((-4L));
												BgL_tmpz00_27238 = (int) (0L);
												STRUCT_SET(BgL_newz00_16275, BgL_tmpz00_27238,
													BgL_auxz00_27240);
											}
											BgL_arg3770z00_16273 = BgL_newz00_16275;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16271, BgL_arg3770z00_16273);
									BgL_arg3770z00_16273;
								}
								return BgL_mainz00_16271;
							}
						}
					}
				}
			}
		}

	}



/* &main4495 */
	obj_t BGl_z62main4495z62zz__evaluate_compz00(obj_t BgL_envz00_14627,
		obj_t BgL_bz00_14633, obj_t BgL_cz00_14634, obj_t BgL_dz00_14635,
		obj_t BgL_lastz00_14636)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_runz00_14631;
				long BgL_siza7ezd2framez75_14632;

				BgL_runz00_14631 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14627, (int) (3L)));
				BgL_siza7ezd2framez75_14632 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_14627, (int) (4L)));
				return
					BGl_mainze734ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_14632,
					BgL_runz00_14631, BgL_bz00_14633, BgL_cz00_14634, BgL_dz00_14635,
					BgL_lastz00_14636);
			}
		}

	}



/* main~34 */
	obj_t BGl_mainze734ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15651,
		obj_t BgL_runz00_15650, obj_t BgL_bz00_5369, obj_t BgL_cz00_5370,
		obj_t BgL_dz00_5371, obj_t BgL_lastz00_5372)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_5374;

				BgL_sz00_5374 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_5375;

					BgL_bpz00_5375 = VECTOR_REF(((obj_t) BgL_sz00_5374), 0L);
					if (
						(((long) CINT(BgL_bpz00_5375) + BgL_siza7ezd2framez75_15651) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_5374))))
						{	/* Eval/evaluate_comp.scm 1181 */
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3774z00_5377;

								BgL_arg3774z00_5377 = ((long) CINT(BgL_bpz00_5375) + 0L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5374), BgL_arg3774z00_5377, BgL_bz00_5369);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3775z00_5378;

								BgL_arg3775z00_5378 = ((long) CINT(BgL_bpz00_5375) + 1L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5374), BgL_arg3775z00_5378, BgL_cz00_5370);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3776z00_5379;

								BgL_arg3776z00_5379 = ((long) CINT(BgL_bpz00_5375) + 2L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5374), BgL_arg3776z00_5379, BgL_dz00_5371);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3777z00_5380;

								BgL_arg3777z00_5380 = ((long) CINT(BgL_bpz00_5375) + 3L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5374), BgL_arg3777z00_5380,
									BgL_lastz00_5372);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_ez00_5381;

								BgL_ez00_5381 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4321z00_12506;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4322z00_12507;

										BgL_arg4322z00_12507 = BGL_EXITD_PROTECT(BgL_ez00_5381);
										BgL_arg4321z00_12506 =
											MAKE_YOUNG_PAIR(BgL_bpz00_5375, BgL_arg4322z00_12507);
									}
									BGL_EXITD_PROTECT_SET(BgL_ez00_5381, BgL_arg4321z00_12506);
									BUNSPEC;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_accz00_5382;

									BgL_accz00_5382 =
										BGl_catchzd2trampolinezd2zz__evaluate_compz00
										(BgL_runz00_15650, BgL_sz00_5374, BgL_bpz00_5375);
									{	/* Eval/evaluate_comp.scm 1181 */
										bool_t BgL_test5506z00_27281;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4320z00_12509;

											BgL_arg4320z00_12509 = BGL_EXITD_PROTECT(BgL_ez00_5381);
											BgL_test5506z00_27281 = PAIRP(BgL_arg4320z00_12509);
										}
										if (BgL_test5506z00_27281)
											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4318z00_12510;

												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4319z00_12511;

													BgL_arg4319z00_12511 =
														BGL_EXITD_PROTECT(BgL_ez00_5381);
													BgL_arg4318z00_12510 =
														CDR(((obj_t) BgL_arg4319z00_12511));
												}
												BGL_EXITD_PROTECT_SET(BgL_ez00_5381,
													BgL_arg4318z00_12510);
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 1181 */
												BFALSE;
											}
									}
									VECTOR_SET(((obj_t) BgL_sz00_5374), 0L, BgL_bpz00_5375);
									return BgL_accz00_5382;
								}
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_5383;

							BgL_nsz00_5383 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_5383, 1L, BgL_sz00_5374);
							VECTOR_SET(BgL_nsz00_5383, 2L, BgL_bz00_5369);
							VECTOR_SET(BgL_nsz00_5383, 3L, BgL_cz00_5370);
							VECTOR_SET(BgL_nsz00_5383, 4L, BgL_dz00_5371);
							VECTOR_SET(BgL_nsz00_5383, 5L, BgL_lastz00_5372);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_5384;

								BgL_z12denvz12_5384 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5384, BgL_nsz00_5383);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_5385;

									BgL_ez00_5385 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_12519;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_12520;

											BgL_arg4322z00_12520 = BGL_EXITD_PROTECT(BgL_ez00_5385);
											BgL_arg4321z00_12519 =
												MAKE_YOUNG_PAIR(BgL_sz00_5374, BgL_arg4322z00_12520);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_5385, BgL_arg4321z00_12519);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_5386;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_12521;

											BgL_savedzd2bpzd2_12521 = VECTOR_REF(BgL_nsz00_5383, 0L);
											VECTOR_SET(BgL_nsz00_5383, 0L, BINT(2L));
											{
												obj_t BgL_fz00_12525;

												BgL_fz00_12525 = BgL_runz00_15650;
											BgL_recz00_12524:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_12526;

													BgL_rz00_12526 =
														BGL_PROCEDURE_CALL1(BgL_fz00_12525, BgL_nsz00_5383);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5507z00_27309;

														if (PROCEDUREP(BgL_rz00_12526))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_12529;

																BgL_arg1759z00_12529 =
																	PROCEDURE_ATTR(BgL_rz00_12526);
																if (STRUCTP(BgL_arg1759z00_12529))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5507z00_27309 =
																			(STRUCT_KEY(BgL_arg1759z00_12529) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5507z00_27309 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5507z00_27309 = ((bool_t) 0);
															}
														if (BgL_test5507z00_27309)
															{
																obj_t BgL_fz00_27317;

																BgL_fz00_27317 = BgL_rz00_12526;
																BgL_fz00_12525 = BgL_fz00_27317;
																goto BgL_recz00_12524;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_5383, 0L,
																	BgL_savedzd2bpzd2_12521);
																BgL_____rz00_5386 = BgL_rz00_12526;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5510z00_27319;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_12537;

												BgL_arg4320z00_12537 = BGL_EXITD_PROTECT(BgL_ez00_5385);
												BgL_test5510z00_27319 = PAIRP(BgL_arg4320z00_12537);
											}
											if (BgL_test5510z00_27319)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_12538;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_12539;

														BgL_arg4319z00_12539 =
															BGL_EXITD_PROTECT(BgL_ez00_5385);
														BgL_arg4318z00_12538 =
															CDR(((obj_t) BgL_arg4319z00_12539));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_5385,
														BgL_arg4318z00_12538);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5384, BgL_sz00_5374);
										return BgL_____rz00_5386;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4496 */
	obj_t BGl_z62run4496z62zz__evaluate_compz00(obj_t BgL_envz00_14637,
		obj_t BgL_sz00_14641)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_iboxesz00_14638;
				BgL_ev_absz00_bglt BgL_i1255z00_14639;
				obj_t BgL_bodyz00_14640;

				BgL_iboxesz00_14638 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14637, (int) (0L)));
				BgL_i1255z00_14639 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14637, (int) (1L)));
				BgL_bodyz00_14640 = PROCEDURE_REF(BgL_envz00_14637, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16276;

					BgL_bpz00_16276 = VECTOR_REF(((obj_t) BgL_sz00_14641), 0L);
					BGl_makezd2boxeszd2zz__evaluate_compz00(BgL_sz00_14641,
						BgL_iboxesz00_14638, BgL_bpz00_16276);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_z12denvz12_16277;
						obj_t BgL_wherez00_16278;
						obj_t BgL_locz00_16279;

						BgL_z12denvz12_16277 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16278 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14639))->
							BgL_wherez00);
						BgL_locz00_16279 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14639))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1181 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16277, BgL_wherez00_16278,
								BgL_locz00_16279);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_za2za2resza2za2z00_16280;

								BgL_za2za2resza2za2z00_16280 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_14640, BgL_sz00_14641);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16277);
								return BgL_za2za2resza2za2z00_16280;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3782> */
	obj_t BGl_z62zc3z04anonymousza33782ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14642, obj_t BgL_sz00_14648)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_ifreesz00_14643;
				obj_t BgL_siza7eza7_14644;
				BgL_ev_absz00_bglt BgL_i1255z00_14645;
				obj_t BgL_bodyz00_14646;
				obj_t BgL_siza7ezd2framez75_14647;

				BgL_ifreesz00_14643 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14642, (int) (0L)));
				BgL_siza7eza7_14644 = PROCEDURE_REF(BgL_envz00_14642, (int) (1L));
				BgL_i1255z00_14645 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14642, (int) (2L)));
				BgL_bodyz00_14646 = PROCEDURE_REF(BgL_envz00_14642, (int) (3L));
				BgL_siza7ezd2framez75_14647 =
					PROCEDURE_REF(BgL_envz00_14642, (int) (4L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16281;

					BgL_bpz00_16281 = VECTOR_REF(((obj_t) BgL_sz00_14648), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_valza2za2_16282;

						BgL_valza2za2_16282 =
							BGl_freezd2collectzd2zz__evaluate_compz00(BgL_sz00_14648,
							BgL_bpz00_16281, BgL_ifreesz00_14643);
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16283;

							BgL_runz00_16283 =
								MAKE_FX_PROCEDURE(BGl_z62run4498z62zz__evaluate_compz00,
								(int) (1L), (int) (4L));
							PROCEDURE_SET(BgL_runz00_16283, (int) (0L), BgL_siza7eza7_14644);
							PROCEDURE_SET(BgL_runz00_16283, (int) (1L), BgL_valza2za2_16282);
							PROCEDURE_SET(BgL_runz00_16283,
								(int) (2L), ((obj_t) BgL_i1255z00_14645));
							PROCEDURE_SET(BgL_runz00_16283, (int) (3L), BgL_bodyz00_14646);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16284;

								BgL_mainz00_16284 =
									MAKE_VA_PROCEDURE(BGl_z62main4497z62zz__evaluate_compz00,
									(int) ((-4L)), (int) (6L));
								PROCEDURE_SET(BgL_mainz00_16284,
									(int) (0L), BgL_siza7eza7_14644);
								PROCEDURE_SET(BgL_mainz00_16284,
									(int) (1L), BgL_valza2za2_16282);
								PROCEDURE_SET(BgL_mainz00_16284,
									(int) (2L), ((obj_t) BgL_i1255z00_14645));
								PROCEDURE_SET(BgL_mainz00_16284, (int) (3L), BgL_bodyz00_14646);
								PROCEDURE_SET(BgL_mainz00_16284, (int) (4L), BgL_runz00_16283);
								PROCEDURE_SET(BgL_mainz00_16284,
									(int) (5L), BgL_siza7ezd2framez75_14647);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16285;

									BgL_objz00_16285 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16283, BgL_objz00_16285);
									BgL_objz00_16285;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3783z00_16286;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3784z00_16287;

										BgL_arg3784z00_16287 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14645))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16288;

											BgL_newz00_16288 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_27394;

												BgL_tmpz00_27394 = (int) (3L);
												STRUCT_SET(BgL_newz00_16288, BgL_tmpz00_27394,
													BgL_arg3784z00_16287);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_27397;

												BgL_tmpz00_27397 = (int) (2L);
												STRUCT_SET(BgL_newz00_16288, BgL_tmpz00_27397,
													BgL_siza7ezd2framez75_14647);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_27400;

												BgL_tmpz00_27400 = (int) (1L);
												STRUCT_SET(BgL_newz00_16288, BgL_tmpz00_27400,
													BgL_runz00_16283);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												obj_t BgL_auxz00_27405;
												int BgL_tmpz00_27403;

												BgL_auxz00_27405 = BINT((-4L));
												BgL_tmpz00_27403 = (int) (0L);
												STRUCT_SET(BgL_newz00_16288, BgL_tmpz00_27403,
													BgL_auxz00_27405);
											}
											BgL_arg3783z00_16286 = BgL_newz00_16288;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16284, BgL_arg3783z00_16286);
									BgL_arg3783z00_16286;
								}
								return BgL_mainz00_16284;
							}
						}
					}
				}
			}
		}

	}



/* &main4497 */
	obj_t BGl_z62main4497z62zz__evaluate_compz00(obj_t BgL_envz00_14649,
		obj_t BgL_bz00_14656, obj_t BgL_cz00_14657, obj_t BgL_dz00_14658,
		obj_t BgL_lastz00_14659)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_runz00_14654;
				long BgL_siza7ezd2framez75_14655;

				BgL_runz00_14654 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14649, (int) (4L)));
				BgL_siza7ezd2framez75_14655 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_14649, (int) (5L)));
				return
					BGl_mainze733ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_14655,
					BgL_runz00_14654, BgL_bz00_14656, BgL_cz00_14657, BgL_dz00_14658,
					BgL_lastz00_14659);
			}
		}

	}



/* main~33 */
	obj_t BGl_mainze733ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15649,
		obj_t BgL_runz00_15648, obj_t BgL_bz00_5407, obj_t BgL_cz00_5408,
		obj_t BgL_dz00_5409, obj_t BgL_lastz00_5410)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_5412;

				BgL_sz00_5412 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_5413;

					BgL_bpz00_5413 = VECTOR_REF(((obj_t) BgL_sz00_5412), 0L);
					if (
						(((long) CINT(BgL_bpz00_5413) + BgL_siza7ezd2framez75_15649) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_5412))))
						{	/* Eval/evaluate_comp.scm 1181 */
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3787z00_5415;

								BgL_arg3787z00_5415 = ((long) CINT(BgL_bpz00_5413) + 0L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5412), BgL_arg3787z00_5415, BgL_bz00_5407);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3788z00_5416;

								BgL_arg3788z00_5416 = ((long) CINT(BgL_bpz00_5413) + 1L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5412), BgL_arg3788z00_5416, BgL_cz00_5408);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3789z00_5417;

								BgL_arg3789z00_5417 = ((long) CINT(BgL_bpz00_5413) + 2L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5412), BgL_arg3789z00_5417, BgL_dz00_5409);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3790z00_5418;

								BgL_arg3790z00_5418 = ((long) CINT(BgL_bpz00_5413) + 3L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5412), BgL_arg3790z00_5418,
									BgL_lastz00_5410);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_ez00_5419;

								BgL_ez00_5419 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4321z00_12573;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4322z00_12574;

										BgL_arg4322z00_12574 = BGL_EXITD_PROTECT(BgL_ez00_5419);
										BgL_arg4321z00_12573 =
											MAKE_YOUNG_PAIR(BgL_bpz00_5413, BgL_arg4322z00_12574);
									}
									BGL_EXITD_PROTECT_SET(BgL_ez00_5419, BgL_arg4321z00_12573);
									BUNSPEC;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_accz00_5420;

									BgL_accz00_5420 =
										BGl_catchzd2trampolinezd2zz__evaluate_compz00
										(BgL_runz00_15648, BgL_sz00_5412, BgL_bpz00_5413);
									{	/* Eval/evaluate_comp.scm 1181 */
										bool_t BgL_test5512z00_27446;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4320z00_12576;

											BgL_arg4320z00_12576 = BGL_EXITD_PROTECT(BgL_ez00_5419);
											BgL_test5512z00_27446 = PAIRP(BgL_arg4320z00_12576);
										}
										if (BgL_test5512z00_27446)
											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4318z00_12577;

												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4319z00_12578;

													BgL_arg4319z00_12578 =
														BGL_EXITD_PROTECT(BgL_ez00_5419);
													BgL_arg4318z00_12577 =
														CDR(((obj_t) BgL_arg4319z00_12578));
												}
												BGL_EXITD_PROTECT_SET(BgL_ez00_5419,
													BgL_arg4318z00_12577);
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 1181 */
												BFALSE;
											}
									}
									VECTOR_SET(((obj_t) BgL_sz00_5412), 0L, BgL_bpz00_5413);
									return BgL_accz00_5420;
								}
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_5421;

							BgL_nsz00_5421 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_5421, 1L, BgL_sz00_5412);
							VECTOR_SET(BgL_nsz00_5421, 2L, BgL_bz00_5407);
							VECTOR_SET(BgL_nsz00_5421, 3L, BgL_cz00_5408);
							VECTOR_SET(BgL_nsz00_5421, 4L, BgL_dz00_5409);
							VECTOR_SET(BgL_nsz00_5421, 5L, BgL_lastz00_5410);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_5422;

								BgL_z12denvz12_5422 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5422, BgL_nsz00_5421);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_5423;

									BgL_ez00_5423 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_12586;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_12587;

											BgL_arg4322z00_12587 = BGL_EXITD_PROTECT(BgL_ez00_5423);
											BgL_arg4321z00_12586 =
												MAKE_YOUNG_PAIR(BgL_sz00_5412, BgL_arg4322z00_12587);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_5423, BgL_arg4321z00_12586);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_5424;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_12588;

											BgL_savedzd2bpzd2_12588 = VECTOR_REF(BgL_nsz00_5421, 0L);
											VECTOR_SET(BgL_nsz00_5421, 0L, BINT(2L));
											{
												obj_t BgL_fz00_12592;

												BgL_fz00_12592 = BgL_runz00_15648;
											BgL_recz00_12591:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_12593;

													BgL_rz00_12593 =
														BGL_PROCEDURE_CALL1(BgL_fz00_12592, BgL_nsz00_5421);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5513z00_27474;

														if (PROCEDUREP(BgL_rz00_12593))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_12596;

																BgL_arg1759z00_12596 =
																	PROCEDURE_ATTR(BgL_rz00_12593);
																if (STRUCTP(BgL_arg1759z00_12596))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5513z00_27474 =
																			(STRUCT_KEY(BgL_arg1759z00_12596) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5513z00_27474 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5513z00_27474 = ((bool_t) 0);
															}
														if (BgL_test5513z00_27474)
															{
																obj_t BgL_fz00_27482;

																BgL_fz00_27482 = BgL_rz00_12593;
																BgL_fz00_12592 = BgL_fz00_27482;
																goto BgL_recz00_12591;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_5421, 0L,
																	BgL_savedzd2bpzd2_12588);
																BgL_____rz00_5424 = BgL_rz00_12593;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5516z00_27484;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_12604;

												BgL_arg4320z00_12604 = BGL_EXITD_PROTECT(BgL_ez00_5423);
												BgL_test5516z00_27484 = PAIRP(BgL_arg4320z00_12604);
											}
											if (BgL_test5516z00_27484)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_12605;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_12606;

														BgL_arg4319z00_12606 =
															BGL_EXITD_PROTECT(BgL_ez00_5423);
														BgL_arg4318z00_12605 =
															CDR(((obj_t) BgL_arg4319z00_12606));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_5423,
														BgL_arg4318z00_12605);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5422, BgL_sz00_5412);
										return BgL_____rz00_5424;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4498 */
	obj_t BGl_z62run4498z62zz__evaluate_compz00(obj_t BgL_envz00_14660,
		obj_t BgL_sz00_14665)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				long BgL_siza7eza7_14661;
				obj_t BgL_valza2za2_14662;
				BgL_ev_absz00_bglt BgL_i1255z00_14663;
				obj_t BgL_bodyz00_14664;

				BgL_siza7eza7_14661 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_14660, (int) (0L)));
				BgL_valza2za2_14662 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14660, (int) (1L)));
				BgL_i1255z00_14663 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14660, (int) (2L)));
				BgL_bodyz00_14664 = PROCEDURE_REF(BgL_envz00_14660, (int) (3L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16289;

					BgL_bpz00_16289 = VECTOR_REF(((obj_t) BgL_sz00_14665), 0L);
					BGl_freezd2restorezd2zz__evaluate_compz00(BgL_sz00_14665,
						BgL_valza2za2_14662,
						((long) CINT(BgL_bpz00_16289) + BgL_siza7eza7_14661));
					{	/* Eval/evaluate_comp.scm 1102 */
						obj_t BgL_z12denvz12_16290;
						obj_t BgL_wherez00_16291;
						obj_t BgL_locz00_16292;

						BgL_z12denvz12_16290 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16291 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14663))->
							BgL_wherez00);
						BgL_locz00_16292 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14663))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1102 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16290, BgL_wherez00_16291,
								BgL_locz00_16292);
							{	/* Eval/evaluate_comp.scm 1102 */
								obj_t BgL_za2za2resza2za2z00_16293;

								BgL_za2za2resza2za2z00_16293 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_14664, BgL_sz00_14665);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16290);
								return BgL_za2za2resza2za2z00_16293;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3793> */
	obj_t BGl_z62zc3z04anonymousza33793ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14666, obj_t BgL_sz00_14673)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_ifreesz00_14667;
				obj_t BgL_iboxesz00_14668;
				obj_t BgL_siza7eza7_14669;
				BgL_ev_absz00_bglt BgL_i1255z00_14670;
				obj_t BgL_bodyz00_14671;
				obj_t BgL_siza7ezd2framez75_14672;

				BgL_ifreesz00_14667 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14666, (int) (0L)));
				BgL_iboxesz00_14668 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14666, (int) (1L)));
				BgL_siza7eza7_14669 = PROCEDURE_REF(BgL_envz00_14666, (int) (2L));
				BgL_i1255z00_14670 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14666, (int) (3L)));
				BgL_bodyz00_14671 = PROCEDURE_REF(BgL_envz00_14666, (int) (4L));
				BgL_siza7ezd2framez75_14672 =
					PROCEDURE_REF(BgL_envz00_14666, (int) (5L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16294;

					BgL_bpz00_16294 = VECTOR_REF(((obj_t) BgL_sz00_14673), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_valza2za2_16295;

						BgL_valza2za2_16295 =
							BGl_freezd2collectzd2zz__evaluate_compz00(BgL_sz00_14673,
							BgL_bpz00_16294, BgL_ifreesz00_14667);
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16296;

							BgL_runz00_16296 =
								MAKE_FX_PROCEDURE(BGl_z62run4500z62zz__evaluate_compz00,
								(int) (1L), (int) (5L));
							PROCEDURE_SET(BgL_runz00_16296, (int) (0L), BgL_iboxesz00_14668);
							PROCEDURE_SET(BgL_runz00_16296, (int) (1L), BgL_siza7eza7_14669);
							PROCEDURE_SET(BgL_runz00_16296, (int) (2L), BgL_valza2za2_16295);
							PROCEDURE_SET(BgL_runz00_16296,
								(int) (3L), ((obj_t) BgL_i1255z00_14670));
							PROCEDURE_SET(BgL_runz00_16296, (int) (4L), BgL_bodyz00_14671);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16297;

								BgL_mainz00_16297 =
									MAKE_VA_PROCEDURE(BGl_z62main4499z62zz__evaluate_compz00,
									(int) ((-4L)), (int) (7L));
								PROCEDURE_SET(BgL_mainz00_16297,
									(int) (0L), BgL_iboxesz00_14668);
								PROCEDURE_SET(BgL_mainz00_16297,
									(int) (1L), BgL_siza7eza7_14669);
								PROCEDURE_SET(BgL_mainz00_16297,
									(int) (2L), BgL_valza2za2_16295);
								PROCEDURE_SET(BgL_mainz00_16297,
									(int) (3L), ((obj_t) BgL_i1255z00_14670));
								PROCEDURE_SET(BgL_mainz00_16297, (int) (4L), BgL_bodyz00_14671);
								PROCEDURE_SET(BgL_mainz00_16297, (int) (5L), BgL_runz00_16296);
								PROCEDURE_SET(BgL_mainz00_16297,
									(int) (6L), BgL_siza7ezd2framez75_14672);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16298;

									BgL_objz00_16298 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16296, BgL_objz00_16298);
									BgL_objz00_16298;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3794z00_16299;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3795z00_16300;

										BgL_arg3795z00_16300 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14670))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16301;

											BgL_newz00_16301 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_27571;

												BgL_tmpz00_27571 = (int) (3L);
												STRUCT_SET(BgL_newz00_16301, BgL_tmpz00_27571,
													BgL_arg3795z00_16300);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_27574;

												BgL_tmpz00_27574 = (int) (2L);
												STRUCT_SET(BgL_newz00_16301, BgL_tmpz00_27574,
													BgL_siza7ezd2framez75_14672);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_27577;

												BgL_tmpz00_27577 = (int) (1L);
												STRUCT_SET(BgL_newz00_16301, BgL_tmpz00_27577,
													BgL_runz00_16296);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												obj_t BgL_auxz00_27582;
												int BgL_tmpz00_27580;

												BgL_auxz00_27582 = BINT((-4L));
												BgL_tmpz00_27580 = (int) (0L);
												STRUCT_SET(BgL_newz00_16301, BgL_tmpz00_27580,
													BgL_auxz00_27582);
											}
											BgL_arg3794z00_16299 = BgL_newz00_16301;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16297, BgL_arg3794z00_16299);
									BgL_arg3794z00_16299;
								}
								return BgL_mainz00_16297;
							}
						}
					}
				}
			}
		}

	}



/* &main4499 */
	obj_t BGl_z62main4499z62zz__evaluate_compz00(obj_t BgL_envz00_14674,
		obj_t BgL_bz00_14682, obj_t BgL_cz00_14683, obj_t BgL_dz00_14684,
		obj_t BgL_lastz00_14685)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_runz00_14680;
				long BgL_siza7ezd2framez75_14681;

				BgL_runz00_14680 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14674, (int) (5L)));
				BgL_siza7ezd2framez75_14681 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_14674, (int) (6L)));
				return
					BGl_mainze732ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_14681,
					BgL_runz00_14680, BgL_bz00_14682, BgL_cz00_14683, BgL_dz00_14684,
					BgL_lastz00_14685);
			}
		}

	}



/* main~32 */
	obj_t BGl_mainze732ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15647,
		obj_t BgL_runz00_15646, obj_t BgL_bz00_5443, obj_t BgL_cz00_5444,
		obj_t BgL_dz00_5445, obj_t BgL_lastz00_5446)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_5448;

				BgL_sz00_5448 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_5449;

					BgL_bpz00_5449 = VECTOR_REF(((obj_t) BgL_sz00_5448), 0L);
					if (
						(((long) CINT(BgL_bpz00_5449) + BgL_siza7ezd2framez75_15647) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_5448))))
						{	/* Eval/evaluate_comp.scm 1181 */
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3798z00_5451;

								BgL_arg3798z00_5451 = ((long) CINT(BgL_bpz00_5449) + 0L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5448), BgL_arg3798z00_5451, BgL_bz00_5443);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3799z00_5452;

								BgL_arg3799z00_5452 = ((long) CINT(BgL_bpz00_5449) + 1L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5448), BgL_arg3799z00_5452, BgL_cz00_5444);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3800z00_5453;

								BgL_arg3800z00_5453 = ((long) CINT(BgL_bpz00_5449) + 2L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5448), BgL_arg3800z00_5453, BgL_dz00_5445);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3801z00_5454;

								BgL_arg3801z00_5454 = ((long) CINT(BgL_bpz00_5449) + 3L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5448), BgL_arg3801z00_5454,
									BgL_lastz00_5446);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_ez00_5455;

								BgL_ez00_5455 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4321z00_12638;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4322z00_12639;

										BgL_arg4322z00_12639 = BGL_EXITD_PROTECT(BgL_ez00_5455);
										BgL_arg4321z00_12638 =
											MAKE_YOUNG_PAIR(BgL_bpz00_5449, BgL_arg4322z00_12639);
									}
									BGL_EXITD_PROTECT_SET(BgL_ez00_5455, BgL_arg4321z00_12638);
									BUNSPEC;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_accz00_5456;

									BgL_accz00_5456 =
										BGl_catchzd2trampolinezd2zz__evaluate_compz00
										(BgL_runz00_15646, BgL_sz00_5448, BgL_bpz00_5449);
									{	/* Eval/evaluate_comp.scm 1181 */
										bool_t BgL_test5518z00_27623;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4320z00_12641;

											BgL_arg4320z00_12641 = BGL_EXITD_PROTECT(BgL_ez00_5455);
											BgL_test5518z00_27623 = PAIRP(BgL_arg4320z00_12641);
										}
										if (BgL_test5518z00_27623)
											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4318z00_12642;

												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4319z00_12643;

													BgL_arg4319z00_12643 =
														BGL_EXITD_PROTECT(BgL_ez00_5455);
													BgL_arg4318z00_12642 =
														CDR(((obj_t) BgL_arg4319z00_12643));
												}
												BGL_EXITD_PROTECT_SET(BgL_ez00_5455,
													BgL_arg4318z00_12642);
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 1181 */
												BFALSE;
											}
									}
									VECTOR_SET(((obj_t) BgL_sz00_5448), 0L, BgL_bpz00_5449);
									return BgL_accz00_5456;
								}
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_5457;

							BgL_nsz00_5457 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_5457, 1L, BgL_sz00_5448);
							VECTOR_SET(BgL_nsz00_5457, 2L, BgL_bz00_5443);
							VECTOR_SET(BgL_nsz00_5457, 3L, BgL_cz00_5444);
							VECTOR_SET(BgL_nsz00_5457, 4L, BgL_dz00_5445);
							VECTOR_SET(BgL_nsz00_5457, 5L, BgL_lastz00_5446);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_5458;

								BgL_z12denvz12_5458 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5458, BgL_nsz00_5457);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_5459;

									BgL_ez00_5459 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_12651;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_12652;

											BgL_arg4322z00_12652 = BGL_EXITD_PROTECT(BgL_ez00_5459);
											BgL_arg4321z00_12651 =
												MAKE_YOUNG_PAIR(BgL_sz00_5448, BgL_arg4322z00_12652);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_5459, BgL_arg4321z00_12651);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_5460;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_12653;

											BgL_savedzd2bpzd2_12653 = VECTOR_REF(BgL_nsz00_5457, 0L);
											VECTOR_SET(BgL_nsz00_5457, 0L, BINT(2L));
											{
												obj_t BgL_fz00_12657;

												BgL_fz00_12657 = BgL_runz00_15646;
											BgL_recz00_12656:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_12658;

													BgL_rz00_12658 =
														BGL_PROCEDURE_CALL1(BgL_fz00_12657, BgL_nsz00_5457);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5519z00_27651;

														if (PROCEDUREP(BgL_rz00_12658))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_12661;

																BgL_arg1759z00_12661 =
																	PROCEDURE_ATTR(BgL_rz00_12658);
																if (STRUCTP(BgL_arg1759z00_12661))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5519z00_27651 =
																			(STRUCT_KEY(BgL_arg1759z00_12661) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5519z00_27651 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5519z00_27651 = ((bool_t) 0);
															}
														if (BgL_test5519z00_27651)
															{
																obj_t BgL_fz00_27659;

																BgL_fz00_27659 = BgL_rz00_12658;
																BgL_fz00_12657 = BgL_fz00_27659;
																goto BgL_recz00_12656;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_5457, 0L,
																	BgL_savedzd2bpzd2_12653);
																BgL_____rz00_5460 = BgL_rz00_12658;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5522z00_27661;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_12669;

												BgL_arg4320z00_12669 = BGL_EXITD_PROTECT(BgL_ez00_5459);
												BgL_test5522z00_27661 = PAIRP(BgL_arg4320z00_12669);
											}
											if (BgL_test5522z00_27661)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_12670;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_12671;

														BgL_arg4319z00_12671 =
															BGL_EXITD_PROTECT(BgL_ez00_5459);
														BgL_arg4318z00_12670 =
															CDR(((obj_t) BgL_arg4319z00_12671));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_5459,
														BgL_arg4318z00_12670);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5458, BgL_sz00_5448);
										return BgL_____rz00_5460;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4500 */
	obj_t BGl_z62run4500z62zz__evaluate_compz00(obj_t BgL_envz00_14686,
		obj_t BgL_sz00_14692)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_iboxesz00_14687;
				long BgL_siza7eza7_14688;
				obj_t BgL_valza2za2_14689;
				BgL_ev_absz00_bglt BgL_i1255z00_14690;
				obj_t BgL_bodyz00_14691;

				BgL_iboxesz00_14687 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14686, (int) (0L)));
				BgL_siza7eza7_14688 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_14686, (int) (1L)));
				BgL_valza2za2_14689 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14686, (int) (2L)));
				BgL_i1255z00_14690 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14686, (int) (3L)));
				BgL_bodyz00_14691 = PROCEDURE_REF(BgL_envz00_14686, (int) (4L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16302;

					BgL_bpz00_16302 = VECTOR_REF(((obj_t) BgL_sz00_14692), 0L);
					BGl_makezd2boxeszd2zz__evaluate_compz00(BgL_sz00_14692,
						BgL_iboxesz00_14687, BgL_bpz00_16302);
					BGl_freezd2restorezd2zz__evaluate_compz00(BgL_sz00_14692,
						BgL_valza2za2_14689,
						((long) CINT(BgL_bpz00_16302) + BgL_siza7eza7_14688));
					{	/* Eval/evaluate_comp.scm 1102 */
						obj_t BgL_z12denvz12_16303;
						obj_t BgL_wherez00_16304;
						obj_t BgL_locz00_16305;

						BgL_z12denvz12_16303 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16304 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14690))->
							BgL_wherez00);
						BgL_locz00_16305 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14690))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1102 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16303, BgL_wherez00_16304,
								BgL_locz00_16305);
							{	/* Eval/evaluate_comp.scm 1102 */
								obj_t BgL_za2za2resza2za2z00_16306;

								BgL_za2za2resza2za2z00_16306 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_14691, BgL_sz00_14692);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16303);
								return BgL_za2za2resza2za2z00_16306;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3711> */
	obj_t BGl_z62zc3z04anonymousza33711ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14693, obj_t BgL_sz00_14697)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				BgL_ev_absz00_bglt BgL_i1255z00_14694;
				obj_t BgL_bodyz00_14695;
				obj_t BgL_siza7ezd2framez75_14696;

				BgL_i1255z00_14694 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14693, (int) (0L)));
				BgL_bodyz00_14695 = PROCEDURE_REF(BgL_envz00_14693, (int) (1L));
				BgL_siza7ezd2framez75_14696 =
					PROCEDURE_REF(BgL_envz00_14693, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16307;

					BgL_bpz00_16307 = VECTOR_REF(((obj_t) BgL_sz00_14697), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */

						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16308;

							BgL_runz00_16308 =
								MAKE_FX_PROCEDURE(BGl_z62run4502z62zz__evaluate_compz00,
								(int) (1L), (int) (2L));
							PROCEDURE_SET(BgL_runz00_16308,
								(int) (0L), ((obj_t) BgL_i1255z00_14694));
							PROCEDURE_SET(BgL_runz00_16308, (int) (1L), BgL_bodyz00_14695);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16309;

								BgL_mainz00_16309 =
									MAKE_FX_PROCEDURE(BGl_z62main4501z62zz__evaluate_compz00,
									(int) (3L), (int) (4L));
								PROCEDURE_SET(BgL_mainz00_16309,
									(int) (0L), ((obj_t) BgL_i1255z00_14694));
								PROCEDURE_SET(BgL_mainz00_16309, (int) (1L), BgL_bodyz00_14695);
								PROCEDURE_SET(BgL_mainz00_16309, (int) (2L), BgL_runz00_16308);
								PROCEDURE_SET(BgL_mainz00_16309,
									(int) (3L), BgL_siza7ezd2framez75_14696);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16310;

									BgL_objz00_16310 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16308, BgL_objz00_16310);
									BgL_objz00_16310;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3712z00_16311;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3714z00_16312;

										BgL_arg3714z00_16312 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14694))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16313;

											BgL_newz00_16313 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_27731;

												BgL_tmpz00_27731 = (int) (3L);
												STRUCT_SET(BgL_newz00_16313, BgL_tmpz00_27731,
													BgL_arg3714z00_16312);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_27734;

												BgL_tmpz00_27734 = (int) (2L);
												STRUCT_SET(BgL_newz00_16313, BgL_tmpz00_27734,
													BgL_siza7ezd2framez75_14696);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_27737;

												BgL_tmpz00_27737 = (int) (1L);
												STRUCT_SET(BgL_newz00_16313, BgL_tmpz00_27737,
													BgL_runz00_16308);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												obj_t BgL_auxz00_27742;
												int BgL_tmpz00_27740;

												BgL_auxz00_27742 = BINT(3L);
												BgL_tmpz00_27740 = (int) (0L);
												STRUCT_SET(BgL_newz00_16313, BgL_tmpz00_27740,
													BgL_auxz00_27742);
											}
											BgL_arg3712z00_16311 = BgL_newz00_16313;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16309, BgL_arg3712z00_16311);
									BgL_arg3712z00_16311;
								}
								return BgL_mainz00_16309;
							}
						}
					}
				}
			}
		}

	}



/* &main4501 */
	obj_t BGl_z62main4501z62zz__evaluate_compz00(obj_t BgL_envz00_14698,
		obj_t BgL_bz00_14703, obj_t BgL_cz00_14704, obj_t BgL_dz00_14705)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_runz00_14701;
				long BgL_siza7ezd2framez75_14702;

				BgL_runz00_14701 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14698, (int) (2L)));
				BgL_siza7ezd2framez75_14702 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_14698, (int) (3L)));
				return
					BGl_mainze731ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_14702,
					BgL_runz00_14701, BgL_bz00_14703, BgL_cz00_14704, BgL_dz00_14705);
			}
		}

	}



/* main~31 */
	obj_t BGl_mainze731ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15645,
		obj_t BgL_runz00_15644, obj_t BgL_bz00_5194, obj_t BgL_cz00_5195,
		obj_t BgL_dz00_5196)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_5198;

				BgL_sz00_5198 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_5199;

					BgL_bpz00_5199 = VECTOR_REF(((obj_t) BgL_sz00_5198), 0L);
					if (
						(((long) CINT(BgL_bpz00_5199) + BgL_siza7ezd2framez75_15645) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_5198))))
						{	/* Eval/evaluate_comp.scm 1181 */
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3717z00_5201;

								BgL_arg3717z00_5201 = ((long) CINT(BgL_bpz00_5199) + 0L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5198), BgL_arg3717z00_5201, BgL_bz00_5194);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3718z00_5202;

								BgL_arg3718z00_5202 = ((long) CINT(BgL_bpz00_5199) + 1L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5198), BgL_arg3718z00_5202, BgL_cz00_5195);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3719z00_5203;

								BgL_arg3719z00_5203 = ((long) CINT(BgL_bpz00_5199) + 2L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5198), BgL_arg3719z00_5203, BgL_dz00_5196);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_ez00_5204;

								BgL_ez00_5204 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4321z00_12194;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4322z00_12195;

										BgL_arg4322z00_12195 = BGL_EXITD_PROTECT(BgL_ez00_5204);
										BgL_arg4321z00_12194 =
											MAKE_YOUNG_PAIR(BgL_bpz00_5199, BgL_arg4322z00_12195);
									}
									BGL_EXITD_PROTECT_SET(BgL_ez00_5204, BgL_arg4321z00_12194);
									BUNSPEC;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_accz00_5205;

									BgL_accz00_5205 =
										BGl_catchzd2trampolinezd2zz__evaluate_compz00
										(BgL_runz00_15644, BgL_sz00_5198, BgL_bpz00_5199);
									{	/* Eval/evaluate_comp.scm 1181 */
										bool_t BgL_test5524z00_27779;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4320z00_12197;

											BgL_arg4320z00_12197 = BGL_EXITD_PROTECT(BgL_ez00_5204);
											BgL_test5524z00_27779 = PAIRP(BgL_arg4320z00_12197);
										}
										if (BgL_test5524z00_27779)
											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4318z00_12198;

												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4319z00_12199;

													BgL_arg4319z00_12199 =
														BGL_EXITD_PROTECT(BgL_ez00_5204);
													BgL_arg4318z00_12198 =
														CDR(((obj_t) BgL_arg4319z00_12199));
												}
												BGL_EXITD_PROTECT_SET(BgL_ez00_5204,
													BgL_arg4318z00_12198);
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 1181 */
												BFALSE;
											}
									}
									VECTOR_SET(((obj_t) BgL_sz00_5198), 0L, BgL_bpz00_5199);
									return BgL_accz00_5205;
								}
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_5206;

							BgL_nsz00_5206 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_5206, 1L, BgL_sz00_5198);
							VECTOR_SET(BgL_nsz00_5206, 2L, BgL_bz00_5194);
							VECTOR_SET(BgL_nsz00_5206, 3L, BgL_cz00_5195);
							VECTOR_SET(BgL_nsz00_5206, 4L, BgL_dz00_5196);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_5207;

								BgL_z12denvz12_5207 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5207, BgL_nsz00_5206);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_5208;

									BgL_ez00_5208 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_12206;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_12207;

											BgL_arg4322z00_12207 = BGL_EXITD_PROTECT(BgL_ez00_5208);
											BgL_arg4321z00_12206 =
												MAKE_YOUNG_PAIR(BgL_sz00_5198, BgL_arg4322z00_12207);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_5208, BgL_arg4321z00_12206);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_5209;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_12208;

											BgL_savedzd2bpzd2_12208 = VECTOR_REF(BgL_nsz00_5206, 0L);
											VECTOR_SET(BgL_nsz00_5206, 0L, BINT(2L));
											{
												obj_t BgL_fz00_12212;

												BgL_fz00_12212 = BgL_runz00_15644;
											BgL_recz00_12211:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_12213;

													BgL_rz00_12213 =
														BGL_PROCEDURE_CALL1(BgL_fz00_12212, BgL_nsz00_5206);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5525z00_27806;

														if (PROCEDUREP(BgL_rz00_12213))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_12216;

																BgL_arg1759z00_12216 =
																	PROCEDURE_ATTR(BgL_rz00_12213);
																if (STRUCTP(BgL_arg1759z00_12216))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5525z00_27806 =
																			(STRUCT_KEY(BgL_arg1759z00_12216) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5525z00_27806 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5525z00_27806 = ((bool_t) 0);
															}
														if (BgL_test5525z00_27806)
															{
																obj_t BgL_fz00_27814;

																BgL_fz00_27814 = BgL_rz00_12213;
																BgL_fz00_12212 = BgL_fz00_27814;
																goto BgL_recz00_12211;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_5206, 0L,
																	BgL_savedzd2bpzd2_12208);
																BgL_____rz00_5209 = BgL_rz00_12213;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5528z00_27816;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_12224;

												BgL_arg4320z00_12224 = BGL_EXITD_PROTECT(BgL_ez00_5208);
												BgL_test5528z00_27816 = PAIRP(BgL_arg4320z00_12224);
											}
											if (BgL_test5528z00_27816)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_12225;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_12226;

														BgL_arg4319z00_12226 =
															BGL_EXITD_PROTECT(BgL_ez00_5208);
														BgL_arg4318z00_12225 =
															CDR(((obj_t) BgL_arg4319z00_12226));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_5208,
														BgL_arg4318z00_12225);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5207, BgL_sz00_5198);
										return BgL_____rz00_5209;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4502 */
	obj_t BGl_z62run4502z62zz__evaluate_compz00(obj_t BgL_envz00_14706,
		obj_t BgL_sz00_14709)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				BgL_ev_absz00_bglt BgL_i1255z00_14707;
				obj_t BgL_bodyz00_14708;

				BgL_i1255z00_14707 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14706, (int) (0L)));
				BgL_bodyz00_14708 = PROCEDURE_REF(BgL_envz00_14706, (int) (1L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16314;

					BgL_bpz00_16314 = VECTOR_REF(((obj_t) BgL_sz00_14709), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_z12denvz12_16315;
						obj_t BgL_wherez00_16316;
						obj_t BgL_locz00_16317;

						BgL_z12denvz12_16315 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16316 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14707))->
							BgL_wherez00);
						BgL_locz00_16317 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14707))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1181 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16315, BgL_wherez00_16316,
								BgL_locz00_16317);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_za2za2resza2za2z00_16318;

								BgL_za2za2resza2za2z00_16318 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_14708, BgL_sz00_14709);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16315);
								return BgL_za2za2resza2za2z00_16318;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3721> */
	obj_t BGl_z62zc3z04anonymousza33721ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14710, obj_t BgL_sz00_14715)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_iboxesz00_14711;
				BgL_ev_absz00_bglt BgL_i1255z00_14712;
				obj_t BgL_bodyz00_14713;
				obj_t BgL_siza7ezd2framez75_14714;

				BgL_iboxesz00_14711 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14710, (int) (0L)));
				BgL_i1255z00_14712 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14710, (int) (1L)));
				BgL_bodyz00_14713 = PROCEDURE_REF(BgL_envz00_14710, (int) (2L));
				BgL_siza7ezd2framez75_14714 =
					PROCEDURE_REF(BgL_envz00_14710, (int) (3L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16319;

					BgL_bpz00_16319 = VECTOR_REF(((obj_t) BgL_sz00_14715), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */

						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16320;

							BgL_runz00_16320 =
								MAKE_FX_PROCEDURE(BGl_z62run4504z62zz__evaluate_compz00,
								(int) (1L), (int) (3L));
							PROCEDURE_SET(BgL_runz00_16320, (int) (0L), BgL_iboxesz00_14711);
							PROCEDURE_SET(BgL_runz00_16320,
								(int) (1L), ((obj_t) BgL_i1255z00_14712));
							PROCEDURE_SET(BgL_runz00_16320, (int) (2L), BgL_bodyz00_14713);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16321;

								BgL_mainz00_16321 =
									MAKE_FX_PROCEDURE(BGl_z62main4503z62zz__evaluate_compz00,
									(int) (3L), (int) (5L));
								PROCEDURE_SET(BgL_mainz00_16321,
									(int) (0L), BgL_iboxesz00_14711);
								PROCEDURE_SET(BgL_mainz00_16321,
									(int) (1L), ((obj_t) BgL_i1255z00_14712));
								PROCEDURE_SET(BgL_mainz00_16321, (int) (2L), BgL_bodyz00_14713);
								PROCEDURE_SET(BgL_mainz00_16321, (int) (3L), BgL_runz00_16320);
								PROCEDURE_SET(BgL_mainz00_16321,
									(int) (4L), BgL_siza7ezd2framez75_14714);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16322;

									BgL_objz00_16322 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16320, BgL_objz00_16322);
									BgL_objz00_16322;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3722z00_16323;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3723z00_16324;

										BgL_arg3723z00_16324 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14712))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16325;

											BgL_newz00_16325 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_27880;

												BgL_tmpz00_27880 = (int) (3L);
												STRUCT_SET(BgL_newz00_16325, BgL_tmpz00_27880,
													BgL_arg3723z00_16324);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_27883;

												BgL_tmpz00_27883 = (int) (2L);
												STRUCT_SET(BgL_newz00_16325, BgL_tmpz00_27883,
													BgL_siza7ezd2framez75_14714);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_27886;

												BgL_tmpz00_27886 = (int) (1L);
												STRUCT_SET(BgL_newz00_16325, BgL_tmpz00_27886,
													BgL_runz00_16320);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												obj_t BgL_auxz00_27891;
												int BgL_tmpz00_27889;

												BgL_auxz00_27891 = BINT(3L);
												BgL_tmpz00_27889 = (int) (0L);
												STRUCT_SET(BgL_newz00_16325, BgL_tmpz00_27889,
													BgL_auxz00_27891);
											}
											BgL_arg3722z00_16323 = BgL_newz00_16325;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16321, BgL_arg3722z00_16323);
									BgL_arg3722z00_16323;
								}
								return BgL_mainz00_16321;
							}
						}
					}
				}
			}
		}

	}



/* &main4503 */
	obj_t BGl_z62main4503z62zz__evaluate_compz00(obj_t BgL_envz00_14716,
		obj_t BgL_bz00_14722, obj_t BgL_cz00_14723, obj_t BgL_dz00_14724)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_runz00_14720;
				long BgL_siza7ezd2framez75_14721;

				BgL_runz00_14720 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14716, (int) (3L)));
				BgL_siza7ezd2framez75_14721 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_14716, (int) (4L)));
				return
					BGl_mainze730ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_14721,
					BgL_runz00_14720, BgL_bz00_14722, BgL_cz00_14723, BgL_dz00_14724);
			}
		}

	}



/* main~30 */
	obj_t BGl_mainze730ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15643,
		obj_t BgL_runz00_15642, obj_t BgL_bz00_5226, obj_t BgL_cz00_5227,
		obj_t BgL_dz00_5228)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_5230;

				BgL_sz00_5230 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_5231;

					BgL_bpz00_5231 = VECTOR_REF(((obj_t) BgL_sz00_5230), 0L);
					if (
						(((long) CINT(BgL_bpz00_5231) + BgL_siza7ezd2framez75_15643) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_5230))))
						{	/* Eval/evaluate_comp.scm 1181 */
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3726z00_5233;

								BgL_arg3726z00_5233 = ((long) CINT(BgL_bpz00_5231) + 0L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5230), BgL_arg3726z00_5233, BgL_bz00_5226);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3727z00_5234;

								BgL_arg3727z00_5234 = ((long) CINT(BgL_bpz00_5231) + 1L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5230), BgL_arg3727z00_5234, BgL_cz00_5227);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3728z00_5235;

								BgL_arg3728z00_5235 = ((long) CINT(BgL_bpz00_5231) + 2L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5230), BgL_arg3728z00_5235, BgL_dz00_5228);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_ez00_5236;

								BgL_ez00_5236 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4321z00_12253;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4322z00_12254;

										BgL_arg4322z00_12254 = BGL_EXITD_PROTECT(BgL_ez00_5236);
										BgL_arg4321z00_12253 =
											MAKE_YOUNG_PAIR(BgL_bpz00_5231, BgL_arg4322z00_12254);
									}
									BGL_EXITD_PROTECT_SET(BgL_ez00_5236, BgL_arg4321z00_12253);
									BUNSPEC;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_accz00_5237;

									BgL_accz00_5237 =
										BGl_catchzd2trampolinezd2zz__evaluate_compz00
										(BgL_runz00_15642, BgL_sz00_5230, BgL_bpz00_5231);
									{	/* Eval/evaluate_comp.scm 1181 */
										bool_t BgL_test5530z00_27928;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4320z00_12256;

											BgL_arg4320z00_12256 = BGL_EXITD_PROTECT(BgL_ez00_5236);
											BgL_test5530z00_27928 = PAIRP(BgL_arg4320z00_12256);
										}
										if (BgL_test5530z00_27928)
											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4318z00_12257;

												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4319z00_12258;

													BgL_arg4319z00_12258 =
														BGL_EXITD_PROTECT(BgL_ez00_5236);
													BgL_arg4318z00_12257 =
														CDR(((obj_t) BgL_arg4319z00_12258));
												}
												BGL_EXITD_PROTECT_SET(BgL_ez00_5236,
													BgL_arg4318z00_12257);
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 1181 */
												BFALSE;
											}
									}
									VECTOR_SET(((obj_t) BgL_sz00_5230), 0L, BgL_bpz00_5231);
									return BgL_accz00_5237;
								}
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_5238;

							BgL_nsz00_5238 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_5238, 1L, BgL_sz00_5230);
							VECTOR_SET(BgL_nsz00_5238, 2L, BgL_bz00_5226);
							VECTOR_SET(BgL_nsz00_5238, 3L, BgL_cz00_5227);
							VECTOR_SET(BgL_nsz00_5238, 4L, BgL_dz00_5228);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_5239;

								BgL_z12denvz12_5239 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5239, BgL_nsz00_5238);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_5240;

									BgL_ez00_5240 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_12265;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_12266;

											BgL_arg4322z00_12266 = BGL_EXITD_PROTECT(BgL_ez00_5240);
											BgL_arg4321z00_12265 =
												MAKE_YOUNG_PAIR(BgL_sz00_5230, BgL_arg4322z00_12266);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_5240, BgL_arg4321z00_12265);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_5241;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_12267;

											BgL_savedzd2bpzd2_12267 = VECTOR_REF(BgL_nsz00_5238, 0L);
											VECTOR_SET(BgL_nsz00_5238, 0L, BINT(2L));
											{
												obj_t BgL_fz00_12271;

												BgL_fz00_12271 = BgL_runz00_15642;
											BgL_recz00_12270:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_12272;

													BgL_rz00_12272 =
														BGL_PROCEDURE_CALL1(BgL_fz00_12271, BgL_nsz00_5238);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5531z00_27955;

														if (PROCEDUREP(BgL_rz00_12272))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_12275;

																BgL_arg1759z00_12275 =
																	PROCEDURE_ATTR(BgL_rz00_12272);
																if (STRUCTP(BgL_arg1759z00_12275))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5531z00_27955 =
																			(STRUCT_KEY(BgL_arg1759z00_12275) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5531z00_27955 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5531z00_27955 = ((bool_t) 0);
															}
														if (BgL_test5531z00_27955)
															{
																obj_t BgL_fz00_27963;

																BgL_fz00_27963 = BgL_rz00_12272;
																BgL_fz00_12271 = BgL_fz00_27963;
																goto BgL_recz00_12270;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_5238, 0L,
																	BgL_savedzd2bpzd2_12267);
																BgL_____rz00_5241 = BgL_rz00_12272;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5534z00_27965;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_12283;

												BgL_arg4320z00_12283 = BGL_EXITD_PROTECT(BgL_ez00_5240);
												BgL_test5534z00_27965 = PAIRP(BgL_arg4320z00_12283);
											}
											if (BgL_test5534z00_27965)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_12284;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_12285;

														BgL_arg4319z00_12285 =
															BGL_EXITD_PROTECT(BgL_ez00_5240);
														BgL_arg4318z00_12284 =
															CDR(((obj_t) BgL_arg4319z00_12285));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_5240,
														BgL_arg4318z00_12284);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5239, BgL_sz00_5230);
										return BgL_____rz00_5241;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4504 */
	obj_t BGl_z62run4504z62zz__evaluate_compz00(obj_t BgL_envz00_14725,
		obj_t BgL_sz00_14729)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_iboxesz00_14726;
				BgL_ev_absz00_bglt BgL_i1255z00_14727;
				obj_t BgL_bodyz00_14728;

				BgL_iboxesz00_14726 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14725, (int) (0L)));
				BgL_i1255z00_14727 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14725, (int) (1L)));
				BgL_bodyz00_14728 = PROCEDURE_REF(BgL_envz00_14725, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16326;

					BgL_bpz00_16326 = VECTOR_REF(((obj_t) BgL_sz00_14729), 0L);
					BGl_makezd2boxeszd2zz__evaluate_compz00(BgL_sz00_14729,
						BgL_iboxesz00_14726, BgL_bpz00_16326);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_z12denvz12_16327;
						obj_t BgL_wherez00_16328;
						obj_t BgL_locz00_16329;

						BgL_z12denvz12_16327 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16328 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14727))->
							BgL_wherez00);
						BgL_locz00_16329 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14727))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1181 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16327, BgL_wherez00_16328,
								BgL_locz00_16329);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_za2za2resza2za2z00_16330;

								BgL_za2za2resza2za2z00_16330 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_14728, BgL_sz00_14729);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16327);
								return BgL_za2za2resza2za2z00_16330;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3733> */
	obj_t BGl_z62zc3z04anonymousza33733ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14730, obj_t BgL_sz00_14736)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_ifreesz00_14731;
				obj_t BgL_siza7eza7_14732;
				BgL_ev_absz00_bglt BgL_i1255z00_14733;
				obj_t BgL_bodyz00_14734;
				obj_t BgL_siza7ezd2framez75_14735;

				BgL_ifreesz00_14731 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14730, (int) (0L)));
				BgL_siza7eza7_14732 = PROCEDURE_REF(BgL_envz00_14730, (int) (1L));
				BgL_i1255z00_14733 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14730, (int) (2L)));
				BgL_bodyz00_14734 = PROCEDURE_REF(BgL_envz00_14730, (int) (3L));
				BgL_siza7ezd2framez75_14735 =
					PROCEDURE_REF(BgL_envz00_14730, (int) (4L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16331;

					BgL_bpz00_16331 = VECTOR_REF(((obj_t) BgL_sz00_14736), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_valza2za2_16332;

						BgL_valza2za2_16332 =
							BGl_freezd2collectzd2zz__evaluate_compz00(BgL_sz00_14736,
							BgL_bpz00_16331, BgL_ifreesz00_14731);
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16333;

							BgL_runz00_16333 =
								MAKE_FX_PROCEDURE(BGl_z62run4506z62zz__evaluate_compz00,
								(int) (1L), (int) (4L));
							PROCEDURE_SET(BgL_runz00_16333, (int) (0L), BgL_siza7eza7_14732);
							PROCEDURE_SET(BgL_runz00_16333, (int) (1L), BgL_valza2za2_16332);
							PROCEDURE_SET(BgL_runz00_16333,
								(int) (2L), ((obj_t) BgL_i1255z00_14733));
							PROCEDURE_SET(BgL_runz00_16333, (int) (3L), BgL_bodyz00_14734);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16334;

								BgL_mainz00_16334 =
									MAKE_FX_PROCEDURE(BGl_z62main4505z62zz__evaluate_compz00,
									(int) (3L), (int) (6L));
								PROCEDURE_SET(BgL_mainz00_16334,
									(int) (0L), BgL_siza7eza7_14732);
								PROCEDURE_SET(BgL_mainz00_16334,
									(int) (1L), BgL_valza2za2_16332);
								PROCEDURE_SET(BgL_mainz00_16334,
									(int) (2L), ((obj_t) BgL_i1255z00_14733));
								PROCEDURE_SET(BgL_mainz00_16334, (int) (3L), BgL_bodyz00_14734);
								PROCEDURE_SET(BgL_mainz00_16334, (int) (4L), BgL_runz00_16333);
								PROCEDURE_SET(BgL_mainz00_16334,
									(int) (5L), BgL_siza7ezd2framez75_14735);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16335;

									BgL_objz00_16335 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16333, BgL_objz00_16335);
									BgL_objz00_16335;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3734z00_16336;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3735z00_16337;

										BgL_arg3735z00_16337 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14733))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16338;

											BgL_newz00_16338 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_28040;

												BgL_tmpz00_28040 = (int) (3L);
												STRUCT_SET(BgL_newz00_16338, BgL_tmpz00_28040,
													BgL_arg3735z00_16337);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_28043;

												BgL_tmpz00_28043 = (int) (2L);
												STRUCT_SET(BgL_newz00_16338, BgL_tmpz00_28043,
													BgL_siza7ezd2framez75_14735);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_28046;

												BgL_tmpz00_28046 = (int) (1L);
												STRUCT_SET(BgL_newz00_16338, BgL_tmpz00_28046,
													BgL_runz00_16333);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												obj_t BgL_auxz00_28051;
												int BgL_tmpz00_28049;

												BgL_auxz00_28051 = BINT(3L);
												BgL_tmpz00_28049 = (int) (0L);
												STRUCT_SET(BgL_newz00_16338, BgL_tmpz00_28049,
													BgL_auxz00_28051);
											}
											BgL_arg3734z00_16336 = BgL_newz00_16338;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16334, BgL_arg3734z00_16336);
									BgL_arg3734z00_16336;
								}
								return BgL_mainz00_16334;
							}
						}
					}
				}
			}
		}

	}



/* &main4505 */
	obj_t BGl_z62main4505z62zz__evaluate_compz00(obj_t BgL_envz00_14737,
		obj_t BgL_bz00_14744, obj_t BgL_cz00_14745, obj_t BgL_dz00_14746)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_runz00_14742;
				long BgL_siza7ezd2framez75_14743;

				BgL_runz00_14742 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14737, (int) (4L)));
				BgL_siza7ezd2framez75_14743 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_14737, (int) (5L)));
				return
					BGl_mainze729ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_14743,
					BgL_runz00_14742, BgL_bz00_14744, BgL_cz00_14745, BgL_dz00_14746);
			}
		}

	}



/* main~29 */
	obj_t BGl_mainze729ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15641,
		obj_t BgL_runz00_15640, obj_t BgL_bz00_5262, obj_t BgL_cz00_5263,
		obj_t BgL_dz00_5264)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_5266;

				BgL_sz00_5266 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_5267;

					BgL_bpz00_5267 = VECTOR_REF(((obj_t) BgL_sz00_5266), 0L);
					if (
						(((long) CINT(BgL_bpz00_5267) + BgL_siza7ezd2framez75_15641) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_5266))))
						{	/* Eval/evaluate_comp.scm 1181 */
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3738z00_5269;

								BgL_arg3738z00_5269 = ((long) CINT(BgL_bpz00_5267) + 0L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5266), BgL_arg3738z00_5269, BgL_bz00_5262);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3739z00_5270;

								BgL_arg3739z00_5270 = ((long) CINT(BgL_bpz00_5267) + 1L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5266), BgL_arg3739z00_5270, BgL_cz00_5263);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3740z00_5271;

								BgL_arg3740z00_5271 = ((long) CINT(BgL_bpz00_5267) + 2L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5266), BgL_arg3740z00_5271, BgL_dz00_5264);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_ez00_5272;

								BgL_ez00_5272 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4321z00_12316;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4322z00_12317;

										BgL_arg4322z00_12317 = BGL_EXITD_PROTECT(BgL_ez00_5272);
										BgL_arg4321z00_12316 =
											MAKE_YOUNG_PAIR(BgL_bpz00_5267, BgL_arg4322z00_12317);
									}
									BGL_EXITD_PROTECT_SET(BgL_ez00_5272, BgL_arg4321z00_12316);
									BUNSPEC;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_accz00_5273;

									BgL_accz00_5273 =
										BGl_catchzd2trampolinezd2zz__evaluate_compz00
										(BgL_runz00_15640, BgL_sz00_5266, BgL_bpz00_5267);
									{	/* Eval/evaluate_comp.scm 1181 */
										bool_t BgL_test5536z00_28088;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4320z00_12319;

											BgL_arg4320z00_12319 = BGL_EXITD_PROTECT(BgL_ez00_5272);
											BgL_test5536z00_28088 = PAIRP(BgL_arg4320z00_12319);
										}
										if (BgL_test5536z00_28088)
											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4318z00_12320;

												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4319z00_12321;

													BgL_arg4319z00_12321 =
														BGL_EXITD_PROTECT(BgL_ez00_5272);
													BgL_arg4318z00_12320 =
														CDR(((obj_t) BgL_arg4319z00_12321));
												}
												BGL_EXITD_PROTECT_SET(BgL_ez00_5272,
													BgL_arg4318z00_12320);
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 1181 */
												BFALSE;
											}
									}
									VECTOR_SET(((obj_t) BgL_sz00_5266), 0L, BgL_bpz00_5267);
									return BgL_accz00_5273;
								}
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_5274;

							BgL_nsz00_5274 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_5274, 1L, BgL_sz00_5266);
							VECTOR_SET(BgL_nsz00_5274, 2L, BgL_bz00_5262);
							VECTOR_SET(BgL_nsz00_5274, 3L, BgL_cz00_5263);
							VECTOR_SET(BgL_nsz00_5274, 4L, BgL_dz00_5264);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_5275;

								BgL_z12denvz12_5275 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5275, BgL_nsz00_5274);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_5276;

									BgL_ez00_5276 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_12328;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_12329;

											BgL_arg4322z00_12329 = BGL_EXITD_PROTECT(BgL_ez00_5276);
											BgL_arg4321z00_12328 =
												MAKE_YOUNG_PAIR(BgL_sz00_5266, BgL_arg4322z00_12329);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_5276, BgL_arg4321z00_12328);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_5277;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_12330;

											BgL_savedzd2bpzd2_12330 = VECTOR_REF(BgL_nsz00_5274, 0L);
											VECTOR_SET(BgL_nsz00_5274, 0L, BINT(2L));
											{
												obj_t BgL_fz00_12334;

												BgL_fz00_12334 = BgL_runz00_15640;
											BgL_recz00_12333:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_12335;

													BgL_rz00_12335 =
														BGL_PROCEDURE_CALL1(BgL_fz00_12334, BgL_nsz00_5274);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5537z00_28115;

														if (PROCEDUREP(BgL_rz00_12335))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_12338;

																BgL_arg1759z00_12338 =
																	PROCEDURE_ATTR(BgL_rz00_12335);
																if (STRUCTP(BgL_arg1759z00_12338))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5537z00_28115 =
																			(STRUCT_KEY(BgL_arg1759z00_12338) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5537z00_28115 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5537z00_28115 = ((bool_t) 0);
															}
														if (BgL_test5537z00_28115)
															{
																obj_t BgL_fz00_28123;

																BgL_fz00_28123 = BgL_rz00_12335;
																BgL_fz00_12334 = BgL_fz00_28123;
																goto BgL_recz00_12333;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_5274, 0L,
																	BgL_savedzd2bpzd2_12330);
																BgL_____rz00_5277 = BgL_rz00_12335;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5540z00_28125;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_12346;

												BgL_arg4320z00_12346 = BGL_EXITD_PROTECT(BgL_ez00_5276);
												BgL_test5540z00_28125 = PAIRP(BgL_arg4320z00_12346);
											}
											if (BgL_test5540z00_28125)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_12347;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_12348;

														BgL_arg4319z00_12348 =
															BGL_EXITD_PROTECT(BgL_ez00_5276);
														BgL_arg4318z00_12347 =
															CDR(((obj_t) BgL_arg4319z00_12348));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_5276,
														BgL_arg4318z00_12347);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5275, BgL_sz00_5266);
										return BgL_____rz00_5277;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4506 */
	obj_t BGl_z62run4506z62zz__evaluate_compz00(obj_t BgL_envz00_14747,
		obj_t BgL_sz00_14752)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				long BgL_siza7eza7_14748;
				obj_t BgL_valza2za2_14749;
				BgL_ev_absz00_bglt BgL_i1255z00_14750;
				obj_t BgL_bodyz00_14751;

				BgL_siza7eza7_14748 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_14747, (int) (0L)));
				BgL_valza2za2_14749 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14747, (int) (1L)));
				BgL_i1255z00_14750 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14747, (int) (2L)));
				BgL_bodyz00_14751 = PROCEDURE_REF(BgL_envz00_14747, (int) (3L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16339;

					BgL_bpz00_16339 = VECTOR_REF(((obj_t) BgL_sz00_14752), 0L);
					BGl_freezd2restorezd2zz__evaluate_compz00(BgL_sz00_14752,
						BgL_valza2za2_14749,
						((long) CINT(BgL_bpz00_16339) + BgL_siza7eza7_14748));
					{	/* Eval/evaluate_comp.scm 1102 */
						obj_t BgL_z12denvz12_16340;
						obj_t BgL_wherez00_16341;
						obj_t BgL_locz00_16342;

						BgL_z12denvz12_16340 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16341 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14750))->
							BgL_wherez00);
						BgL_locz00_16342 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14750))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1102 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16340, BgL_wherez00_16341,
								BgL_locz00_16342);
							{	/* Eval/evaluate_comp.scm 1102 */
								obj_t BgL_za2za2resza2za2z00_16343;

								BgL_za2za2resza2za2z00_16343 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_14751, BgL_sz00_14752);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16340);
								return BgL_za2za2resza2za2z00_16343;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3743> */
	obj_t BGl_z62zc3z04anonymousza33743ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14753, obj_t BgL_sz00_14760)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_ifreesz00_14754;
				obj_t BgL_iboxesz00_14755;
				obj_t BgL_siza7eza7_14756;
				BgL_ev_absz00_bglt BgL_i1255z00_14757;
				obj_t BgL_bodyz00_14758;
				obj_t BgL_siza7ezd2framez75_14759;

				BgL_ifreesz00_14754 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14753, (int) (0L)));
				BgL_iboxesz00_14755 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14753, (int) (1L)));
				BgL_siza7eza7_14756 = PROCEDURE_REF(BgL_envz00_14753, (int) (2L));
				BgL_i1255z00_14757 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14753, (int) (3L)));
				BgL_bodyz00_14758 = PROCEDURE_REF(BgL_envz00_14753, (int) (4L));
				BgL_siza7ezd2framez75_14759 =
					PROCEDURE_REF(BgL_envz00_14753, (int) (5L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16344;

					BgL_bpz00_16344 = VECTOR_REF(((obj_t) BgL_sz00_14760), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_valza2za2_16345;

						BgL_valza2za2_16345 =
							BGl_freezd2collectzd2zz__evaluate_compz00(BgL_sz00_14760,
							BgL_bpz00_16344, BgL_ifreesz00_14754);
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16346;

							BgL_runz00_16346 =
								MAKE_FX_PROCEDURE(BGl_z62run4508z62zz__evaluate_compz00,
								(int) (1L), (int) (5L));
							PROCEDURE_SET(BgL_runz00_16346, (int) (0L), BgL_iboxesz00_14755);
							PROCEDURE_SET(BgL_runz00_16346, (int) (1L), BgL_siza7eza7_14756);
							PROCEDURE_SET(BgL_runz00_16346, (int) (2L), BgL_valza2za2_16345);
							PROCEDURE_SET(BgL_runz00_16346,
								(int) (3L), ((obj_t) BgL_i1255z00_14757));
							PROCEDURE_SET(BgL_runz00_16346, (int) (4L), BgL_bodyz00_14758);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16347;

								BgL_mainz00_16347 =
									MAKE_FX_PROCEDURE(BGl_z62main4507z62zz__evaluate_compz00,
									(int) (3L), (int) (7L));
								PROCEDURE_SET(BgL_mainz00_16347,
									(int) (0L), BgL_iboxesz00_14755);
								PROCEDURE_SET(BgL_mainz00_16347,
									(int) (1L), BgL_siza7eza7_14756);
								PROCEDURE_SET(BgL_mainz00_16347,
									(int) (2L), BgL_valza2za2_16345);
								PROCEDURE_SET(BgL_mainz00_16347,
									(int) (3L), ((obj_t) BgL_i1255z00_14757));
								PROCEDURE_SET(BgL_mainz00_16347, (int) (4L), BgL_bodyz00_14758);
								PROCEDURE_SET(BgL_mainz00_16347, (int) (5L), BgL_runz00_16346);
								PROCEDURE_SET(BgL_mainz00_16347,
									(int) (6L), BgL_siza7ezd2framez75_14759);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16348;

									BgL_objz00_16348 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16346, BgL_objz00_16348);
									BgL_objz00_16348;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3744z00_16349;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3745z00_16350;

										BgL_arg3745z00_16350 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14757))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16351;

											BgL_newz00_16351 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_28212;

												BgL_tmpz00_28212 = (int) (3L);
												STRUCT_SET(BgL_newz00_16351, BgL_tmpz00_28212,
													BgL_arg3745z00_16350);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_28215;

												BgL_tmpz00_28215 = (int) (2L);
												STRUCT_SET(BgL_newz00_16351, BgL_tmpz00_28215,
													BgL_siza7ezd2framez75_14759);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_28218;

												BgL_tmpz00_28218 = (int) (1L);
												STRUCT_SET(BgL_newz00_16351, BgL_tmpz00_28218,
													BgL_runz00_16346);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												obj_t BgL_auxz00_28223;
												int BgL_tmpz00_28221;

												BgL_auxz00_28223 = BINT(3L);
												BgL_tmpz00_28221 = (int) (0L);
												STRUCT_SET(BgL_newz00_16351, BgL_tmpz00_28221,
													BgL_auxz00_28223);
											}
											BgL_arg3744z00_16349 = BgL_newz00_16351;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16347, BgL_arg3744z00_16349);
									BgL_arg3744z00_16349;
								}
								return BgL_mainz00_16347;
							}
						}
					}
				}
			}
		}

	}



/* &main4507 */
	obj_t BGl_z62main4507z62zz__evaluate_compz00(obj_t BgL_envz00_14761,
		obj_t BgL_bz00_14769, obj_t BgL_cz00_14770, obj_t BgL_dz00_14771)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_runz00_14767;
				long BgL_siza7ezd2framez75_14768;

				BgL_runz00_14767 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14761, (int) (5L)));
				BgL_siza7ezd2framez75_14768 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_14761, (int) (6L)));
				return
					BGl_mainze728ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_14768,
					BgL_runz00_14767, BgL_bz00_14769, BgL_cz00_14770, BgL_dz00_14771);
			}
		}

	}



/* main~28 */
	obj_t BGl_mainze728ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15639,
		obj_t BgL_runz00_15638, obj_t BgL_bz00_5296, obj_t BgL_cz00_5297,
		obj_t BgL_dz00_5298)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_5300;

				BgL_sz00_5300 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_5301;

					BgL_bpz00_5301 = VECTOR_REF(((obj_t) BgL_sz00_5300), 0L);
					if (
						(((long) CINT(BgL_bpz00_5301) + BgL_siza7ezd2framez75_15639) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_5300))))
						{	/* Eval/evaluate_comp.scm 1181 */
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3748z00_5303;

								BgL_arg3748z00_5303 = ((long) CINT(BgL_bpz00_5301) + 0L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5300), BgL_arg3748z00_5303, BgL_bz00_5296);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3749z00_5304;

								BgL_arg3749z00_5304 = ((long) CINT(BgL_bpz00_5301) + 1L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5300), BgL_arg3749z00_5304, BgL_cz00_5297);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3750z00_5305;

								BgL_arg3750z00_5305 = ((long) CINT(BgL_bpz00_5301) + 2L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5300), BgL_arg3750z00_5305, BgL_dz00_5298);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_ez00_5306;

								BgL_ez00_5306 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4321z00_12377;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4322z00_12378;

										BgL_arg4322z00_12378 = BGL_EXITD_PROTECT(BgL_ez00_5306);
										BgL_arg4321z00_12377 =
											MAKE_YOUNG_PAIR(BgL_bpz00_5301, BgL_arg4322z00_12378);
									}
									BGL_EXITD_PROTECT_SET(BgL_ez00_5306, BgL_arg4321z00_12377);
									BUNSPEC;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_accz00_5307;

									BgL_accz00_5307 =
										BGl_catchzd2trampolinezd2zz__evaluate_compz00
										(BgL_runz00_15638, BgL_sz00_5300, BgL_bpz00_5301);
									{	/* Eval/evaluate_comp.scm 1181 */
										bool_t BgL_test5542z00_28260;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4320z00_12380;

											BgL_arg4320z00_12380 = BGL_EXITD_PROTECT(BgL_ez00_5306);
											BgL_test5542z00_28260 = PAIRP(BgL_arg4320z00_12380);
										}
										if (BgL_test5542z00_28260)
											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4318z00_12381;

												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4319z00_12382;

													BgL_arg4319z00_12382 =
														BGL_EXITD_PROTECT(BgL_ez00_5306);
													BgL_arg4318z00_12381 =
														CDR(((obj_t) BgL_arg4319z00_12382));
												}
												BGL_EXITD_PROTECT_SET(BgL_ez00_5306,
													BgL_arg4318z00_12381);
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 1181 */
												BFALSE;
											}
									}
									VECTOR_SET(((obj_t) BgL_sz00_5300), 0L, BgL_bpz00_5301);
									return BgL_accz00_5307;
								}
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_5308;

							BgL_nsz00_5308 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_5308, 1L, BgL_sz00_5300);
							VECTOR_SET(BgL_nsz00_5308, 2L, BgL_bz00_5296);
							VECTOR_SET(BgL_nsz00_5308, 3L, BgL_cz00_5297);
							VECTOR_SET(BgL_nsz00_5308, 4L, BgL_dz00_5298);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_5309;

								BgL_z12denvz12_5309 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5309, BgL_nsz00_5308);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_5310;

									BgL_ez00_5310 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_12389;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_12390;

											BgL_arg4322z00_12390 = BGL_EXITD_PROTECT(BgL_ez00_5310);
											BgL_arg4321z00_12389 =
												MAKE_YOUNG_PAIR(BgL_sz00_5300, BgL_arg4322z00_12390);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_5310, BgL_arg4321z00_12389);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_5311;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_12391;

											BgL_savedzd2bpzd2_12391 = VECTOR_REF(BgL_nsz00_5308, 0L);
											VECTOR_SET(BgL_nsz00_5308, 0L, BINT(2L));
											{
												obj_t BgL_fz00_12395;

												BgL_fz00_12395 = BgL_runz00_15638;
											BgL_recz00_12394:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_12396;

													BgL_rz00_12396 =
														BGL_PROCEDURE_CALL1(BgL_fz00_12395, BgL_nsz00_5308);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5543z00_28287;

														if (PROCEDUREP(BgL_rz00_12396))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_12399;

																BgL_arg1759z00_12399 =
																	PROCEDURE_ATTR(BgL_rz00_12396);
																if (STRUCTP(BgL_arg1759z00_12399))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5543z00_28287 =
																			(STRUCT_KEY(BgL_arg1759z00_12399) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5543z00_28287 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5543z00_28287 = ((bool_t) 0);
															}
														if (BgL_test5543z00_28287)
															{
																obj_t BgL_fz00_28295;

																BgL_fz00_28295 = BgL_rz00_12396;
																BgL_fz00_12395 = BgL_fz00_28295;
																goto BgL_recz00_12394;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_5308, 0L,
																	BgL_savedzd2bpzd2_12391);
																BgL_____rz00_5311 = BgL_rz00_12396;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5546z00_28297;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_12407;

												BgL_arg4320z00_12407 = BGL_EXITD_PROTECT(BgL_ez00_5310);
												BgL_test5546z00_28297 = PAIRP(BgL_arg4320z00_12407);
											}
											if (BgL_test5546z00_28297)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_12408;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_12409;

														BgL_arg4319z00_12409 =
															BGL_EXITD_PROTECT(BgL_ez00_5310);
														BgL_arg4318z00_12408 =
															CDR(((obj_t) BgL_arg4319z00_12409));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_5310,
														BgL_arg4318z00_12408);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5309, BgL_sz00_5300);
										return BgL_____rz00_5311;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4508 */
	obj_t BGl_z62run4508z62zz__evaluate_compz00(obj_t BgL_envz00_14772,
		obj_t BgL_sz00_14778)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_iboxesz00_14773;
				long BgL_siza7eza7_14774;
				obj_t BgL_valza2za2_14775;
				BgL_ev_absz00_bglt BgL_i1255z00_14776;
				obj_t BgL_bodyz00_14777;

				BgL_iboxesz00_14773 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14772, (int) (0L)));
				BgL_siza7eza7_14774 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_14772, (int) (1L)));
				BgL_valza2za2_14775 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14772, (int) (2L)));
				BgL_i1255z00_14776 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14772, (int) (3L)));
				BgL_bodyz00_14777 = PROCEDURE_REF(BgL_envz00_14772, (int) (4L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16352;

					BgL_bpz00_16352 = VECTOR_REF(((obj_t) BgL_sz00_14778), 0L);
					BGl_makezd2boxeszd2zz__evaluate_compz00(BgL_sz00_14778,
						BgL_iboxesz00_14773, BgL_bpz00_16352);
					BGl_freezd2restorezd2zz__evaluate_compz00(BgL_sz00_14778,
						BgL_valza2za2_14775,
						((long) CINT(BgL_bpz00_16352) + BgL_siza7eza7_14774));
					{	/* Eval/evaluate_comp.scm 1102 */
						obj_t BgL_z12denvz12_16353;
						obj_t BgL_wherez00_16354;
						obj_t BgL_locz00_16355;

						BgL_z12denvz12_16353 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16354 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14776))->
							BgL_wherez00);
						BgL_locz00_16355 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14776))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1102 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16353, BgL_wherez00_16354,
								BgL_locz00_16355);
							{	/* Eval/evaluate_comp.scm 1102 */
								obj_t BgL_za2za2resza2za2z00_16356;

								BgL_za2za2resza2za2z00_16356 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_14777, BgL_sz00_14778);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16353);
								return BgL_za2za2resza2za2z00_16356;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3664> */
	obj_t BGl_z62zc3z04anonymousza33664ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14779, obj_t BgL_sz00_14783)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				BgL_ev_absz00_bglt BgL_i1255z00_14780;
				obj_t BgL_bodyz00_14781;
				obj_t BgL_siza7ezd2framez75_14782;

				BgL_i1255z00_14780 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14779, (int) (0L)));
				BgL_bodyz00_14781 = PROCEDURE_REF(BgL_envz00_14779, (int) (1L));
				BgL_siza7ezd2framez75_14782 =
					PROCEDURE_REF(BgL_envz00_14779, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16357;

					BgL_bpz00_16357 = VECTOR_REF(((obj_t) BgL_sz00_14783), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */

						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16358;

							BgL_runz00_16358 =
								MAKE_FX_PROCEDURE(BGl_z62run4510z62zz__evaluate_compz00,
								(int) (1L), (int) (2L));
							PROCEDURE_SET(BgL_runz00_16358,
								(int) (0L), ((obj_t) BgL_i1255z00_14780));
							PROCEDURE_SET(BgL_runz00_16358, (int) (1L), BgL_bodyz00_14781);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16359;

								BgL_mainz00_16359 =
									MAKE_VA_PROCEDURE(BGl_z62main4509z62zz__evaluate_compz00,
									(int) ((-3L)), (int) (4L));
								PROCEDURE_SET(BgL_mainz00_16359,
									(int) (0L), ((obj_t) BgL_i1255z00_14780));
								PROCEDURE_SET(BgL_mainz00_16359, (int) (1L), BgL_bodyz00_14781);
								PROCEDURE_SET(BgL_mainz00_16359, (int) (2L), BgL_runz00_16358);
								PROCEDURE_SET(BgL_mainz00_16359,
									(int) (3L), BgL_siza7ezd2framez75_14782);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16360;

									BgL_objz00_16360 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16358, BgL_objz00_16360);
									BgL_objz00_16360;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3665z00_16361;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3666z00_16362;

										BgL_arg3666z00_16362 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14780))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16363;

											BgL_newz00_16363 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_28367;

												BgL_tmpz00_28367 = (int) (3L);
												STRUCT_SET(BgL_newz00_16363, BgL_tmpz00_28367,
													BgL_arg3666z00_16362);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_28370;

												BgL_tmpz00_28370 = (int) (2L);
												STRUCT_SET(BgL_newz00_16363, BgL_tmpz00_28370,
													BgL_siza7ezd2framez75_14782);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_28373;

												BgL_tmpz00_28373 = (int) (1L);
												STRUCT_SET(BgL_newz00_16363, BgL_tmpz00_28373,
													BgL_runz00_16358);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												obj_t BgL_auxz00_28378;
												int BgL_tmpz00_28376;

												BgL_auxz00_28378 = BINT((-3L));
												BgL_tmpz00_28376 = (int) (0L);
												STRUCT_SET(BgL_newz00_16363, BgL_tmpz00_28376,
													BgL_auxz00_28378);
											}
											BgL_arg3665z00_16361 = BgL_newz00_16363;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16359, BgL_arg3665z00_16361);
									BgL_arg3665z00_16361;
								}
								return BgL_mainz00_16359;
							}
						}
					}
				}
			}
		}

	}



/* &main4509 */
	obj_t BGl_z62main4509z62zz__evaluate_compz00(obj_t BgL_envz00_14784,
		obj_t BgL_cz00_14789, obj_t BgL_dz00_14790, obj_t BgL_lastz00_14791)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_runz00_14787;
				long BgL_siza7ezd2framez75_14788;

				BgL_runz00_14787 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14784, (int) (2L)));
				BgL_siza7ezd2framez75_14788 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_14784, (int) (3L)));
				return
					BGl_mainze727ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_14788,
					BgL_runz00_14787, BgL_cz00_14789, BgL_dz00_14790, BgL_lastz00_14791);
			}
		}

	}



/* main~27 */
	obj_t BGl_mainze727ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15637,
		obj_t BgL_runz00_15636, obj_t BgL_cz00_5053, obj_t BgL_dz00_5054,
		obj_t BgL_lastz00_5055)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_5057;

				BgL_sz00_5057 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_5058;

					BgL_bpz00_5058 = VECTOR_REF(((obj_t) BgL_sz00_5057), 0L);
					if (
						(((long) CINT(BgL_bpz00_5058) + BgL_siza7ezd2framez75_15637) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_5057))))
						{	/* Eval/evaluate_comp.scm 1181 */
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3669z00_5060;

								BgL_arg3669z00_5060 = ((long) CINT(BgL_bpz00_5058) + 0L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5057), BgL_arg3669z00_5060, BgL_cz00_5053);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3670z00_5061;

								BgL_arg3670z00_5061 = ((long) CINT(BgL_bpz00_5058) + 1L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5057), BgL_arg3670z00_5061, BgL_dz00_5054);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3671z00_5062;

								BgL_arg3671z00_5062 = ((long) CINT(BgL_bpz00_5058) + 2L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5057), BgL_arg3671z00_5062,
									BgL_lastz00_5055);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_ez00_5063;

								BgL_ez00_5063 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4321z00_11948;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4322z00_11949;

										BgL_arg4322z00_11949 = BGL_EXITD_PROTECT(BgL_ez00_5063);
										BgL_arg4321z00_11948 =
											MAKE_YOUNG_PAIR(BgL_bpz00_5058, BgL_arg4322z00_11949);
									}
									BGL_EXITD_PROTECT_SET(BgL_ez00_5063, BgL_arg4321z00_11948);
									BUNSPEC;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_accz00_5064;

									BgL_accz00_5064 =
										BGl_catchzd2trampolinezd2zz__evaluate_compz00
										(BgL_runz00_15636, BgL_sz00_5057, BgL_bpz00_5058);
									{	/* Eval/evaluate_comp.scm 1181 */
										bool_t BgL_test5548z00_28415;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4320z00_11951;

											BgL_arg4320z00_11951 = BGL_EXITD_PROTECT(BgL_ez00_5063);
											BgL_test5548z00_28415 = PAIRP(BgL_arg4320z00_11951);
										}
										if (BgL_test5548z00_28415)
											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4318z00_11952;

												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4319z00_11953;

													BgL_arg4319z00_11953 =
														BGL_EXITD_PROTECT(BgL_ez00_5063);
													BgL_arg4318z00_11952 =
														CDR(((obj_t) BgL_arg4319z00_11953));
												}
												BGL_EXITD_PROTECT_SET(BgL_ez00_5063,
													BgL_arg4318z00_11952);
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 1181 */
												BFALSE;
											}
									}
									VECTOR_SET(((obj_t) BgL_sz00_5057), 0L, BgL_bpz00_5058);
									return BgL_accz00_5064;
								}
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_5065;

							BgL_nsz00_5065 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_5065, 1L, BgL_sz00_5057);
							VECTOR_SET(BgL_nsz00_5065, 2L, BgL_cz00_5053);
							VECTOR_SET(BgL_nsz00_5065, 3L, BgL_dz00_5054);
							VECTOR_SET(BgL_nsz00_5065, 4L, BgL_lastz00_5055);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_5066;

								BgL_z12denvz12_5066 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5066, BgL_nsz00_5065);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_5067;

									BgL_ez00_5067 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_11960;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_11961;

											BgL_arg4322z00_11961 = BGL_EXITD_PROTECT(BgL_ez00_5067);
											BgL_arg4321z00_11960 =
												MAKE_YOUNG_PAIR(BgL_sz00_5057, BgL_arg4322z00_11961);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_5067, BgL_arg4321z00_11960);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_5068;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_11962;

											BgL_savedzd2bpzd2_11962 = VECTOR_REF(BgL_nsz00_5065, 0L);
											VECTOR_SET(BgL_nsz00_5065, 0L, BINT(2L));
											{
												obj_t BgL_fz00_11966;

												BgL_fz00_11966 = BgL_runz00_15636;
											BgL_recz00_11965:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_11967;

													BgL_rz00_11967 =
														BGL_PROCEDURE_CALL1(BgL_fz00_11966, BgL_nsz00_5065);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5549z00_28442;

														if (PROCEDUREP(BgL_rz00_11967))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_11970;

																BgL_arg1759z00_11970 =
																	PROCEDURE_ATTR(BgL_rz00_11967);
																if (STRUCTP(BgL_arg1759z00_11970))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5549z00_28442 =
																			(STRUCT_KEY(BgL_arg1759z00_11970) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5549z00_28442 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5549z00_28442 = ((bool_t) 0);
															}
														if (BgL_test5549z00_28442)
															{
																obj_t BgL_fz00_28450;

																BgL_fz00_28450 = BgL_rz00_11967;
																BgL_fz00_11966 = BgL_fz00_28450;
																goto BgL_recz00_11965;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_5065, 0L,
																	BgL_savedzd2bpzd2_11962);
																BgL_____rz00_5068 = BgL_rz00_11967;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5552z00_28452;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_11978;

												BgL_arg4320z00_11978 = BGL_EXITD_PROTECT(BgL_ez00_5067);
												BgL_test5552z00_28452 = PAIRP(BgL_arg4320z00_11978);
											}
											if (BgL_test5552z00_28452)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_11979;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_11980;

														BgL_arg4319z00_11980 =
															BGL_EXITD_PROTECT(BgL_ez00_5067);
														BgL_arg4318z00_11979 =
															CDR(((obj_t) BgL_arg4319z00_11980));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_5067,
														BgL_arg4318z00_11979);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5066, BgL_sz00_5057);
										return BgL_____rz00_5068;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4510 */
	obj_t BGl_z62run4510z62zz__evaluate_compz00(obj_t BgL_envz00_14792,
		obj_t BgL_sz00_14795)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				BgL_ev_absz00_bglt BgL_i1255z00_14793;
				obj_t BgL_bodyz00_14794;

				BgL_i1255z00_14793 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14792, (int) (0L)));
				BgL_bodyz00_14794 = PROCEDURE_REF(BgL_envz00_14792, (int) (1L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16364;

					BgL_bpz00_16364 = VECTOR_REF(((obj_t) BgL_sz00_14795), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_z12denvz12_16365;
						obj_t BgL_wherez00_16366;
						obj_t BgL_locz00_16367;

						BgL_z12denvz12_16365 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16366 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14793))->
							BgL_wherez00);
						BgL_locz00_16367 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14793))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1181 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16365, BgL_wherez00_16366,
								BgL_locz00_16367);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_za2za2resza2za2z00_16368;

								BgL_za2za2resza2za2z00_16368 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_14794, BgL_sz00_14795);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16365);
								return BgL_za2za2resza2za2z00_16368;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3673> */
	obj_t BGl_z62zc3z04anonymousza33673ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14796, obj_t BgL_sz00_14801)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_iboxesz00_14797;
				BgL_ev_absz00_bglt BgL_i1255z00_14798;
				obj_t BgL_bodyz00_14799;
				obj_t BgL_siza7ezd2framez75_14800;

				BgL_iboxesz00_14797 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14796, (int) (0L)));
				BgL_i1255z00_14798 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14796, (int) (1L)));
				BgL_bodyz00_14799 = PROCEDURE_REF(BgL_envz00_14796, (int) (2L));
				BgL_siza7ezd2framez75_14800 =
					PROCEDURE_REF(BgL_envz00_14796, (int) (3L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16369;

					BgL_bpz00_16369 = VECTOR_REF(((obj_t) BgL_sz00_14801), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */

						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16370;

							BgL_runz00_16370 =
								MAKE_FX_PROCEDURE(BGl_z62run4512z62zz__evaluate_compz00,
								(int) (1L), (int) (3L));
							PROCEDURE_SET(BgL_runz00_16370, (int) (0L), BgL_iboxesz00_14797);
							PROCEDURE_SET(BgL_runz00_16370,
								(int) (1L), ((obj_t) BgL_i1255z00_14798));
							PROCEDURE_SET(BgL_runz00_16370, (int) (2L), BgL_bodyz00_14799);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16371;

								BgL_mainz00_16371 =
									MAKE_VA_PROCEDURE(BGl_z62main4511z62zz__evaluate_compz00,
									(int) ((-3L)), (int) (5L));
								PROCEDURE_SET(BgL_mainz00_16371,
									(int) (0L), BgL_iboxesz00_14797);
								PROCEDURE_SET(BgL_mainz00_16371,
									(int) (1L), ((obj_t) BgL_i1255z00_14798));
								PROCEDURE_SET(BgL_mainz00_16371, (int) (2L), BgL_bodyz00_14799);
								PROCEDURE_SET(BgL_mainz00_16371, (int) (3L), BgL_runz00_16370);
								PROCEDURE_SET(BgL_mainz00_16371,
									(int) (4L), BgL_siza7ezd2framez75_14800);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16372;

									BgL_objz00_16372 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16370, BgL_objz00_16372);
									BgL_objz00_16372;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3674z00_16373;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3675z00_16374;

										BgL_arg3675z00_16374 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14798))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16375;

											BgL_newz00_16375 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_28516;

												BgL_tmpz00_28516 = (int) (3L);
												STRUCT_SET(BgL_newz00_16375, BgL_tmpz00_28516,
													BgL_arg3675z00_16374);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_28519;

												BgL_tmpz00_28519 = (int) (2L);
												STRUCT_SET(BgL_newz00_16375, BgL_tmpz00_28519,
													BgL_siza7ezd2framez75_14800);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_28522;

												BgL_tmpz00_28522 = (int) (1L);
												STRUCT_SET(BgL_newz00_16375, BgL_tmpz00_28522,
													BgL_runz00_16370);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												obj_t BgL_auxz00_28527;
												int BgL_tmpz00_28525;

												BgL_auxz00_28527 = BINT((-3L));
												BgL_tmpz00_28525 = (int) (0L);
												STRUCT_SET(BgL_newz00_16375, BgL_tmpz00_28525,
													BgL_auxz00_28527);
											}
											BgL_arg3674z00_16373 = BgL_newz00_16375;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16371, BgL_arg3674z00_16373);
									BgL_arg3674z00_16373;
								}
								return BgL_mainz00_16371;
							}
						}
					}
				}
			}
		}

	}



/* &main4511 */
	obj_t BGl_z62main4511z62zz__evaluate_compz00(obj_t BgL_envz00_14802,
		obj_t BgL_cz00_14808, obj_t BgL_dz00_14809, obj_t BgL_lastz00_14810)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_runz00_14806;
				long BgL_siza7ezd2framez75_14807;

				BgL_runz00_14806 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14802, (int) (3L)));
				BgL_siza7ezd2framez75_14807 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_14802, (int) (4L)));
				return
					BGl_mainze726ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_14807,
					BgL_runz00_14806, BgL_cz00_14808, BgL_dz00_14809, BgL_lastz00_14810);
			}
		}

	}



/* main~26 */
	obj_t BGl_mainze726ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15635,
		obj_t BgL_runz00_15634, obj_t BgL_cz00_5085, obj_t BgL_dz00_5086,
		obj_t BgL_lastz00_5087)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_5089;

				BgL_sz00_5089 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_5090;

					BgL_bpz00_5090 = VECTOR_REF(((obj_t) BgL_sz00_5089), 0L);
					if (
						(((long) CINT(BgL_bpz00_5090) + BgL_siza7ezd2framez75_15635) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_5089))))
						{	/* Eval/evaluate_comp.scm 1181 */
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3678z00_5092;

								BgL_arg3678z00_5092 = ((long) CINT(BgL_bpz00_5090) + 0L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5089), BgL_arg3678z00_5092, BgL_cz00_5085);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3679z00_5093;

								BgL_arg3679z00_5093 = ((long) CINT(BgL_bpz00_5090) + 1L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5089), BgL_arg3679z00_5093, BgL_dz00_5086);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3680z00_5094;

								BgL_arg3680z00_5094 = ((long) CINT(BgL_bpz00_5090) + 2L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5089), BgL_arg3680z00_5094,
									BgL_lastz00_5087);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_ez00_5095;

								BgL_ez00_5095 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4321z00_12007;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4322z00_12008;

										BgL_arg4322z00_12008 = BGL_EXITD_PROTECT(BgL_ez00_5095);
										BgL_arg4321z00_12007 =
											MAKE_YOUNG_PAIR(BgL_bpz00_5090, BgL_arg4322z00_12008);
									}
									BGL_EXITD_PROTECT_SET(BgL_ez00_5095, BgL_arg4321z00_12007);
									BUNSPEC;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_accz00_5096;

									BgL_accz00_5096 =
										BGl_catchzd2trampolinezd2zz__evaluate_compz00
										(BgL_runz00_15634, BgL_sz00_5089, BgL_bpz00_5090);
									{	/* Eval/evaluate_comp.scm 1181 */
										bool_t BgL_test5554z00_28564;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4320z00_12010;

											BgL_arg4320z00_12010 = BGL_EXITD_PROTECT(BgL_ez00_5095);
											BgL_test5554z00_28564 = PAIRP(BgL_arg4320z00_12010);
										}
										if (BgL_test5554z00_28564)
											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4318z00_12011;

												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4319z00_12012;

													BgL_arg4319z00_12012 =
														BGL_EXITD_PROTECT(BgL_ez00_5095);
													BgL_arg4318z00_12011 =
														CDR(((obj_t) BgL_arg4319z00_12012));
												}
												BGL_EXITD_PROTECT_SET(BgL_ez00_5095,
													BgL_arg4318z00_12011);
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 1181 */
												BFALSE;
											}
									}
									VECTOR_SET(((obj_t) BgL_sz00_5089), 0L, BgL_bpz00_5090);
									return BgL_accz00_5096;
								}
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_5097;

							BgL_nsz00_5097 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_5097, 1L, BgL_sz00_5089);
							VECTOR_SET(BgL_nsz00_5097, 2L, BgL_cz00_5085);
							VECTOR_SET(BgL_nsz00_5097, 3L, BgL_dz00_5086);
							VECTOR_SET(BgL_nsz00_5097, 4L, BgL_lastz00_5087);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_5098;

								BgL_z12denvz12_5098 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5098, BgL_nsz00_5097);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_5099;

									BgL_ez00_5099 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_12019;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_12020;

											BgL_arg4322z00_12020 = BGL_EXITD_PROTECT(BgL_ez00_5099);
											BgL_arg4321z00_12019 =
												MAKE_YOUNG_PAIR(BgL_sz00_5089, BgL_arg4322z00_12020);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_5099, BgL_arg4321z00_12019);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_5100;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_12021;

											BgL_savedzd2bpzd2_12021 = VECTOR_REF(BgL_nsz00_5097, 0L);
											VECTOR_SET(BgL_nsz00_5097, 0L, BINT(2L));
											{
												obj_t BgL_fz00_12025;

												BgL_fz00_12025 = BgL_runz00_15634;
											BgL_recz00_12024:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_12026;

													BgL_rz00_12026 =
														BGL_PROCEDURE_CALL1(BgL_fz00_12025, BgL_nsz00_5097);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5555z00_28591;

														if (PROCEDUREP(BgL_rz00_12026))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_12029;

																BgL_arg1759z00_12029 =
																	PROCEDURE_ATTR(BgL_rz00_12026);
																if (STRUCTP(BgL_arg1759z00_12029))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5555z00_28591 =
																			(STRUCT_KEY(BgL_arg1759z00_12029) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5555z00_28591 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5555z00_28591 = ((bool_t) 0);
															}
														if (BgL_test5555z00_28591)
															{
																obj_t BgL_fz00_28599;

																BgL_fz00_28599 = BgL_rz00_12026;
																BgL_fz00_12025 = BgL_fz00_28599;
																goto BgL_recz00_12024;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_5097, 0L,
																	BgL_savedzd2bpzd2_12021);
																BgL_____rz00_5100 = BgL_rz00_12026;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5558z00_28601;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_12037;

												BgL_arg4320z00_12037 = BGL_EXITD_PROTECT(BgL_ez00_5099);
												BgL_test5558z00_28601 = PAIRP(BgL_arg4320z00_12037);
											}
											if (BgL_test5558z00_28601)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_12038;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_12039;

														BgL_arg4319z00_12039 =
															BGL_EXITD_PROTECT(BgL_ez00_5099);
														BgL_arg4318z00_12038 =
															CDR(((obj_t) BgL_arg4319z00_12039));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_5099,
														BgL_arg4318z00_12038);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5098, BgL_sz00_5089);
										return BgL_____rz00_5100;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4512 */
	obj_t BGl_z62run4512z62zz__evaluate_compz00(obj_t BgL_envz00_14811,
		obj_t BgL_sz00_14815)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_iboxesz00_14812;
				BgL_ev_absz00_bglt BgL_i1255z00_14813;
				obj_t BgL_bodyz00_14814;

				BgL_iboxesz00_14812 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14811, (int) (0L)));
				BgL_i1255z00_14813 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14811, (int) (1L)));
				BgL_bodyz00_14814 = PROCEDURE_REF(BgL_envz00_14811, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16376;

					BgL_bpz00_16376 = VECTOR_REF(((obj_t) BgL_sz00_14815), 0L);
					BGl_makezd2boxeszd2zz__evaluate_compz00(BgL_sz00_14815,
						BgL_iboxesz00_14812, BgL_bpz00_16376);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_z12denvz12_16377;
						obj_t BgL_wherez00_16378;
						obj_t BgL_locz00_16379;

						BgL_z12denvz12_16377 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16378 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14813))->
							BgL_wherez00);
						BgL_locz00_16379 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14813))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1181 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16377, BgL_wherez00_16378,
								BgL_locz00_16379);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_za2za2resza2za2z00_16380;

								BgL_za2za2resza2za2z00_16380 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_14814, BgL_sz00_14815);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16377);
								return BgL_za2za2resza2za2z00_16380;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3685> */
	obj_t BGl_z62zc3z04anonymousza33685ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14816, obj_t BgL_sz00_14822)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_ifreesz00_14817;
				obj_t BgL_siza7eza7_14818;
				BgL_ev_absz00_bglt BgL_i1255z00_14819;
				obj_t BgL_bodyz00_14820;
				obj_t BgL_siza7ezd2framez75_14821;

				BgL_ifreesz00_14817 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14816, (int) (0L)));
				BgL_siza7eza7_14818 = PROCEDURE_REF(BgL_envz00_14816, (int) (1L));
				BgL_i1255z00_14819 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14816, (int) (2L)));
				BgL_bodyz00_14820 = PROCEDURE_REF(BgL_envz00_14816, (int) (3L));
				BgL_siza7ezd2framez75_14821 =
					PROCEDURE_REF(BgL_envz00_14816, (int) (4L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16381;

					BgL_bpz00_16381 = VECTOR_REF(((obj_t) BgL_sz00_14822), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_valza2za2_16382;

						BgL_valza2za2_16382 =
							BGl_freezd2collectzd2zz__evaluate_compz00(BgL_sz00_14822,
							BgL_bpz00_16381, BgL_ifreesz00_14817);
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16383;

							BgL_runz00_16383 =
								MAKE_FX_PROCEDURE(BGl_z62run4514z62zz__evaluate_compz00,
								(int) (1L), (int) (4L));
							PROCEDURE_SET(BgL_runz00_16383, (int) (0L), BgL_siza7eza7_14818);
							PROCEDURE_SET(BgL_runz00_16383, (int) (1L), BgL_valza2za2_16382);
							PROCEDURE_SET(BgL_runz00_16383,
								(int) (2L), ((obj_t) BgL_i1255z00_14819));
							PROCEDURE_SET(BgL_runz00_16383, (int) (3L), BgL_bodyz00_14820);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16384;

								BgL_mainz00_16384 =
									MAKE_VA_PROCEDURE(BGl_z62main4513z62zz__evaluate_compz00,
									(int) ((-3L)), (int) (6L));
								PROCEDURE_SET(BgL_mainz00_16384,
									(int) (0L), BgL_siza7eza7_14818);
								PROCEDURE_SET(BgL_mainz00_16384,
									(int) (1L), BgL_valza2za2_16382);
								PROCEDURE_SET(BgL_mainz00_16384,
									(int) (2L), ((obj_t) BgL_i1255z00_14819));
								PROCEDURE_SET(BgL_mainz00_16384, (int) (3L), BgL_bodyz00_14820);
								PROCEDURE_SET(BgL_mainz00_16384, (int) (4L), BgL_runz00_16383);
								PROCEDURE_SET(BgL_mainz00_16384,
									(int) (5L), BgL_siza7ezd2framez75_14821);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16385;

									BgL_objz00_16385 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16383, BgL_objz00_16385);
									BgL_objz00_16385;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3686z00_16386;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3687z00_16387;

										BgL_arg3687z00_16387 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14819))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16388;

											BgL_newz00_16388 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_28676;

												BgL_tmpz00_28676 = (int) (3L);
												STRUCT_SET(BgL_newz00_16388, BgL_tmpz00_28676,
													BgL_arg3687z00_16387);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_28679;

												BgL_tmpz00_28679 = (int) (2L);
												STRUCT_SET(BgL_newz00_16388, BgL_tmpz00_28679,
													BgL_siza7ezd2framez75_14821);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_28682;

												BgL_tmpz00_28682 = (int) (1L);
												STRUCT_SET(BgL_newz00_16388, BgL_tmpz00_28682,
													BgL_runz00_16383);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												obj_t BgL_auxz00_28687;
												int BgL_tmpz00_28685;

												BgL_auxz00_28687 = BINT((-3L));
												BgL_tmpz00_28685 = (int) (0L);
												STRUCT_SET(BgL_newz00_16388, BgL_tmpz00_28685,
													BgL_auxz00_28687);
											}
											BgL_arg3686z00_16386 = BgL_newz00_16388;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16384, BgL_arg3686z00_16386);
									BgL_arg3686z00_16386;
								}
								return BgL_mainz00_16384;
							}
						}
					}
				}
			}
		}

	}



/* &main4513 */
	obj_t BGl_z62main4513z62zz__evaluate_compz00(obj_t BgL_envz00_14823,
		obj_t BgL_cz00_14830, obj_t BgL_dz00_14831, obj_t BgL_lastz00_14832)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_runz00_14828;
				long BgL_siza7ezd2framez75_14829;

				BgL_runz00_14828 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14823, (int) (4L)));
				BgL_siza7ezd2framez75_14829 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_14823, (int) (5L)));
				return
					BGl_mainze725ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_14829,
					BgL_runz00_14828, BgL_cz00_14830, BgL_dz00_14831, BgL_lastz00_14832);
			}
		}

	}



/* main~25 */
	obj_t BGl_mainze725ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15633,
		obj_t BgL_runz00_15632, obj_t BgL_cz00_5121, obj_t BgL_dz00_5122,
		obj_t BgL_lastz00_5123)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_5125;

				BgL_sz00_5125 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_5126;

					BgL_bpz00_5126 = VECTOR_REF(((obj_t) BgL_sz00_5125), 0L);
					if (
						(((long) CINT(BgL_bpz00_5126) + BgL_siza7ezd2framez75_15633) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_5125))))
						{	/* Eval/evaluate_comp.scm 1181 */
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3690z00_5128;

								BgL_arg3690z00_5128 = ((long) CINT(BgL_bpz00_5126) + 0L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5125), BgL_arg3690z00_5128, BgL_cz00_5121);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3691z00_5129;

								BgL_arg3691z00_5129 = ((long) CINT(BgL_bpz00_5126) + 1L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5125), BgL_arg3691z00_5129, BgL_dz00_5122);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3692z00_5130;

								BgL_arg3692z00_5130 = ((long) CINT(BgL_bpz00_5126) + 2L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5125), BgL_arg3692z00_5130,
									BgL_lastz00_5123);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_ez00_5131;

								BgL_ez00_5131 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4321z00_12070;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4322z00_12071;

										BgL_arg4322z00_12071 = BGL_EXITD_PROTECT(BgL_ez00_5131);
										BgL_arg4321z00_12070 =
											MAKE_YOUNG_PAIR(BgL_bpz00_5126, BgL_arg4322z00_12071);
									}
									BGL_EXITD_PROTECT_SET(BgL_ez00_5131, BgL_arg4321z00_12070);
									BUNSPEC;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_accz00_5132;

									BgL_accz00_5132 =
										BGl_catchzd2trampolinezd2zz__evaluate_compz00
										(BgL_runz00_15632, BgL_sz00_5125, BgL_bpz00_5126);
									{	/* Eval/evaluate_comp.scm 1181 */
										bool_t BgL_test5560z00_28724;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4320z00_12073;

											BgL_arg4320z00_12073 = BGL_EXITD_PROTECT(BgL_ez00_5131);
											BgL_test5560z00_28724 = PAIRP(BgL_arg4320z00_12073);
										}
										if (BgL_test5560z00_28724)
											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4318z00_12074;

												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4319z00_12075;

													BgL_arg4319z00_12075 =
														BGL_EXITD_PROTECT(BgL_ez00_5131);
													BgL_arg4318z00_12074 =
														CDR(((obj_t) BgL_arg4319z00_12075));
												}
												BGL_EXITD_PROTECT_SET(BgL_ez00_5131,
													BgL_arg4318z00_12074);
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 1181 */
												BFALSE;
											}
									}
									VECTOR_SET(((obj_t) BgL_sz00_5125), 0L, BgL_bpz00_5126);
									return BgL_accz00_5132;
								}
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_5133;

							BgL_nsz00_5133 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_5133, 1L, BgL_sz00_5125);
							VECTOR_SET(BgL_nsz00_5133, 2L, BgL_cz00_5121);
							VECTOR_SET(BgL_nsz00_5133, 3L, BgL_dz00_5122);
							VECTOR_SET(BgL_nsz00_5133, 4L, BgL_lastz00_5123);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_5134;

								BgL_z12denvz12_5134 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5134, BgL_nsz00_5133);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_5135;

									BgL_ez00_5135 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_12082;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_12083;

											BgL_arg4322z00_12083 = BGL_EXITD_PROTECT(BgL_ez00_5135);
											BgL_arg4321z00_12082 =
												MAKE_YOUNG_PAIR(BgL_sz00_5125, BgL_arg4322z00_12083);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_5135, BgL_arg4321z00_12082);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_5136;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_12084;

											BgL_savedzd2bpzd2_12084 = VECTOR_REF(BgL_nsz00_5133, 0L);
											VECTOR_SET(BgL_nsz00_5133, 0L, BINT(2L));
											{
												obj_t BgL_fz00_12088;

												BgL_fz00_12088 = BgL_runz00_15632;
											BgL_recz00_12087:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_12089;

													BgL_rz00_12089 =
														BGL_PROCEDURE_CALL1(BgL_fz00_12088, BgL_nsz00_5133);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5561z00_28751;

														if (PROCEDUREP(BgL_rz00_12089))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_12092;

																BgL_arg1759z00_12092 =
																	PROCEDURE_ATTR(BgL_rz00_12089);
																if (STRUCTP(BgL_arg1759z00_12092))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5561z00_28751 =
																			(STRUCT_KEY(BgL_arg1759z00_12092) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5561z00_28751 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5561z00_28751 = ((bool_t) 0);
															}
														if (BgL_test5561z00_28751)
															{
																obj_t BgL_fz00_28759;

																BgL_fz00_28759 = BgL_rz00_12089;
																BgL_fz00_12088 = BgL_fz00_28759;
																goto BgL_recz00_12087;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_5133, 0L,
																	BgL_savedzd2bpzd2_12084);
																BgL_____rz00_5136 = BgL_rz00_12089;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5564z00_28761;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_12100;

												BgL_arg4320z00_12100 = BGL_EXITD_PROTECT(BgL_ez00_5135);
												BgL_test5564z00_28761 = PAIRP(BgL_arg4320z00_12100);
											}
											if (BgL_test5564z00_28761)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_12101;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_12102;

														BgL_arg4319z00_12102 =
															BGL_EXITD_PROTECT(BgL_ez00_5135);
														BgL_arg4318z00_12101 =
															CDR(((obj_t) BgL_arg4319z00_12102));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_5135,
														BgL_arg4318z00_12101);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5134, BgL_sz00_5125);
										return BgL_____rz00_5136;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4514 */
	obj_t BGl_z62run4514z62zz__evaluate_compz00(obj_t BgL_envz00_14833,
		obj_t BgL_sz00_14838)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				long BgL_siza7eza7_14834;
				obj_t BgL_valza2za2_14835;
				BgL_ev_absz00_bglt BgL_i1255z00_14836;
				obj_t BgL_bodyz00_14837;

				BgL_siza7eza7_14834 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_14833, (int) (0L)));
				BgL_valza2za2_14835 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14833, (int) (1L)));
				BgL_i1255z00_14836 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14833, (int) (2L)));
				BgL_bodyz00_14837 = PROCEDURE_REF(BgL_envz00_14833, (int) (3L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16389;

					BgL_bpz00_16389 = VECTOR_REF(((obj_t) BgL_sz00_14838), 0L);
					BGl_freezd2restorezd2zz__evaluate_compz00(BgL_sz00_14838,
						BgL_valza2za2_14835,
						((long) CINT(BgL_bpz00_16389) + BgL_siza7eza7_14834));
					{	/* Eval/evaluate_comp.scm 1102 */
						obj_t BgL_z12denvz12_16390;
						obj_t BgL_wherez00_16391;
						obj_t BgL_locz00_16392;

						BgL_z12denvz12_16390 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16391 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14836))->
							BgL_wherez00);
						BgL_locz00_16392 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14836))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1102 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16390, BgL_wherez00_16391,
								BgL_locz00_16392);
							{	/* Eval/evaluate_comp.scm 1102 */
								obj_t BgL_za2za2resza2za2z00_16393;

								BgL_za2za2resza2za2z00_16393 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_14837, BgL_sz00_14838);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16390);
								return BgL_za2za2resza2za2z00_16393;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3695> */
	obj_t BGl_z62zc3z04anonymousza33695ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14839, obj_t BgL_sz00_14846)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_ifreesz00_14840;
				obj_t BgL_iboxesz00_14841;
				obj_t BgL_siza7eza7_14842;
				BgL_ev_absz00_bglt BgL_i1255z00_14843;
				obj_t BgL_bodyz00_14844;
				obj_t BgL_siza7ezd2framez75_14845;

				BgL_ifreesz00_14840 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14839, (int) (0L)));
				BgL_iboxesz00_14841 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14839, (int) (1L)));
				BgL_siza7eza7_14842 = PROCEDURE_REF(BgL_envz00_14839, (int) (2L));
				BgL_i1255z00_14843 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14839, (int) (3L)));
				BgL_bodyz00_14844 = PROCEDURE_REF(BgL_envz00_14839, (int) (4L));
				BgL_siza7ezd2framez75_14845 =
					PROCEDURE_REF(BgL_envz00_14839, (int) (5L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16394;

					BgL_bpz00_16394 = VECTOR_REF(((obj_t) BgL_sz00_14846), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_valza2za2_16395;

						BgL_valza2za2_16395 =
							BGl_freezd2collectzd2zz__evaluate_compz00(BgL_sz00_14846,
							BgL_bpz00_16394, BgL_ifreesz00_14840);
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16396;

							BgL_runz00_16396 =
								MAKE_FX_PROCEDURE(BGl_z62run4516z62zz__evaluate_compz00,
								(int) (1L), (int) (5L));
							PROCEDURE_SET(BgL_runz00_16396, (int) (0L), BgL_iboxesz00_14841);
							PROCEDURE_SET(BgL_runz00_16396, (int) (1L), BgL_siza7eza7_14842);
							PROCEDURE_SET(BgL_runz00_16396, (int) (2L), BgL_valza2za2_16395);
							PROCEDURE_SET(BgL_runz00_16396,
								(int) (3L), ((obj_t) BgL_i1255z00_14843));
							PROCEDURE_SET(BgL_runz00_16396, (int) (4L), BgL_bodyz00_14844);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16397;

								BgL_mainz00_16397 =
									MAKE_VA_PROCEDURE(BGl_z62main4515z62zz__evaluate_compz00,
									(int) ((-3L)), (int) (7L));
								PROCEDURE_SET(BgL_mainz00_16397,
									(int) (0L), BgL_iboxesz00_14841);
								PROCEDURE_SET(BgL_mainz00_16397,
									(int) (1L), BgL_siza7eza7_14842);
								PROCEDURE_SET(BgL_mainz00_16397,
									(int) (2L), BgL_valza2za2_16395);
								PROCEDURE_SET(BgL_mainz00_16397,
									(int) (3L), ((obj_t) BgL_i1255z00_14843));
								PROCEDURE_SET(BgL_mainz00_16397, (int) (4L), BgL_bodyz00_14844);
								PROCEDURE_SET(BgL_mainz00_16397, (int) (5L), BgL_runz00_16396);
								PROCEDURE_SET(BgL_mainz00_16397,
									(int) (6L), BgL_siza7ezd2framez75_14845);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16398;

									BgL_objz00_16398 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16396, BgL_objz00_16398);
									BgL_objz00_16398;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3696z00_16399;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3697z00_16400;

										BgL_arg3697z00_16400 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14843))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16401;

											BgL_newz00_16401 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_28848;

												BgL_tmpz00_28848 = (int) (3L);
												STRUCT_SET(BgL_newz00_16401, BgL_tmpz00_28848,
													BgL_arg3697z00_16400);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_28851;

												BgL_tmpz00_28851 = (int) (2L);
												STRUCT_SET(BgL_newz00_16401, BgL_tmpz00_28851,
													BgL_siza7ezd2framez75_14845);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_28854;

												BgL_tmpz00_28854 = (int) (1L);
												STRUCT_SET(BgL_newz00_16401, BgL_tmpz00_28854,
													BgL_runz00_16396);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												obj_t BgL_auxz00_28859;
												int BgL_tmpz00_28857;

												BgL_auxz00_28859 = BINT((-3L));
												BgL_tmpz00_28857 = (int) (0L);
												STRUCT_SET(BgL_newz00_16401, BgL_tmpz00_28857,
													BgL_auxz00_28859);
											}
											BgL_arg3696z00_16399 = BgL_newz00_16401;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16397, BgL_arg3696z00_16399);
									BgL_arg3696z00_16399;
								}
								return BgL_mainz00_16397;
							}
						}
					}
				}
			}
		}

	}



/* &main4515 */
	obj_t BGl_z62main4515z62zz__evaluate_compz00(obj_t BgL_envz00_14847,
		obj_t BgL_cz00_14855, obj_t BgL_dz00_14856, obj_t BgL_lastz00_14857)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_runz00_14853;
				long BgL_siza7ezd2framez75_14854;

				BgL_runz00_14853 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14847, (int) (5L)));
				BgL_siza7ezd2framez75_14854 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_14847, (int) (6L)));
				return
					BGl_mainze724ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_14854,
					BgL_runz00_14853, BgL_cz00_14855, BgL_dz00_14856, BgL_lastz00_14857);
			}
		}

	}



/* main~24 */
	obj_t BGl_mainze724ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15631,
		obj_t BgL_runz00_15630, obj_t BgL_cz00_5155, obj_t BgL_dz00_5156,
		obj_t BgL_lastz00_5157)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_5159;

				BgL_sz00_5159 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_5160;

					BgL_bpz00_5160 = VECTOR_REF(((obj_t) BgL_sz00_5159), 0L);
					if (
						(((long) CINT(BgL_bpz00_5160) + BgL_siza7ezd2framez75_15631) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_5159))))
						{	/* Eval/evaluate_comp.scm 1181 */
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3700z00_5162;

								BgL_arg3700z00_5162 = ((long) CINT(BgL_bpz00_5160) + 0L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5159), BgL_arg3700z00_5162, BgL_cz00_5155);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3701z00_5163;

								BgL_arg3701z00_5163 = ((long) CINT(BgL_bpz00_5160) + 1L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5159), BgL_arg3701z00_5163, BgL_dz00_5156);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3702z00_5164;

								BgL_arg3702z00_5164 = ((long) CINT(BgL_bpz00_5160) + 2L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5159), BgL_arg3702z00_5164,
									BgL_lastz00_5157);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_ez00_5165;

								BgL_ez00_5165 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4321z00_12131;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4322z00_12132;

										BgL_arg4322z00_12132 = BGL_EXITD_PROTECT(BgL_ez00_5165);
										BgL_arg4321z00_12131 =
											MAKE_YOUNG_PAIR(BgL_bpz00_5160, BgL_arg4322z00_12132);
									}
									BGL_EXITD_PROTECT_SET(BgL_ez00_5165, BgL_arg4321z00_12131);
									BUNSPEC;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_accz00_5166;

									BgL_accz00_5166 =
										BGl_catchzd2trampolinezd2zz__evaluate_compz00
										(BgL_runz00_15630, BgL_sz00_5159, BgL_bpz00_5160);
									{	/* Eval/evaluate_comp.scm 1181 */
										bool_t BgL_test5566z00_28896;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4320z00_12134;

											BgL_arg4320z00_12134 = BGL_EXITD_PROTECT(BgL_ez00_5165);
											BgL_test5566z00_28896 = PAIRP(BgL_arg4320z00_12134);
										}
										if (BgL_test5566z00_28896)
											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4318z00_12135;

												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4319z00_12136;

													BgL_arg4319z00_12136 =
														BGL_EXITD_PROTECT(BgL_ez00_5165);
													BgL_arg4318z00_12135 =
														CDR(((obj_t) BgL_arg4319z00_12136));
												}
												BGL_EXITD_PROTECT_SET(BgL_ez00_5165,
													BgL_arg4318z00_12135);
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 1181 */
												BFALSE;
											}
									}
									VECTOR_SET(((obj_t) BgL_sz00_5159), 0L, BgL_bpz00_5160);
									return BgL_accz00_5166;
								}
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_5167;

							BgL_nsz00_5167 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_5167, 1L, BgL_sz00_5159);
							VECTOR_SET(BgL_nsz00_5167, 2L, BgL_cz00_5155);
							VECTOR_SET(BgL_nsz00_5167, 3L, BgL_dz00_5156);
							VECTOR_SET(BgL_nsz00_5167, 4L, BgL_lastz00_5157);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_5168;

								BgL_z12denvz12_5168 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5168, BgL_nsz00_5167);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_5169;

									BgL_ez00_5169 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_12143;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_12144;

											BgL_arg4322z00_12144 = BGL_EXITD_PROTECT(BgL_ez00_5169);
											BgL_arg4321z00_12143 =
												MAKE_YOUNG_PAIR(BgL_sz00_5159, BgL_arg4322z00_12144);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_5169, BgL_arg4321z00_12143);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_5170;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_12145;

											BgL_savedzd2bpzd2_12145 = VECTOR_REF(BgL_nsz00_5167, 0L);
											VECTOR_SET(BgL_nsz00_5167, 0L, BINT(2L));
											{
												obj_t BgL_fz00_12149;

												BgL_fz00_12149 = BgL_runz00_15630;
											BgL_recz00_12148:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_12150;

													BgL_rz00_12150 =
														BGL_PROCEDURE_CALL1(BgL_fz00_12149, BgL_nsz00_5167);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5567z00_28923;

														if (PROCEDUREP(BgL_rz00_12150))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_12153;

																BgL_arg1759z00_12153 =
																	PROCEDURE_ATTR(BgL_rz00_12150);
																if (STRUCTP(BgL_arg1759z00_12153))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5567z00_28923 =
																			(STRUCT_KEY(BgL_arg1759z00_12153) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5567z00_28923 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5567z00_28923 = ((bool_t) 0);
															}
														if (BgL_test5567z00_28923)
															{
																obj_t BgL_fz00_28931;

																BgL_fz00_28931 = BgL_rz00_12150;
																BgL_fz00_12149 = BgL_fz00_28931;
																goto BgL_recz00_12148;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_5167, 0L,
																	BgL_savedzd2bpzd2_12145);
																BgL_____rz00_5170 = BgL_rz00_12150;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5570z00_28933;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_12161;

												BgL_arg4320z00_12161 = BGL_EXITD_PROTECT(BgL_ez00_5169);
												BgL_test5570z00_28933 = PAIRP(BgL_arg4320z00_12161);
											}
											if (BgL_test5570z00_28933)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_12162;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_12163;

														BgL_arg4319z00_12163 =
															BGL_EXITD_PROTECT(BgL_ez00_5169);
														BgL_arg4318z00_12162 =
															CDR(((obj_t) BgL_arg4319z00_12163));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_5169,
														BgL_arg4318z00_12162);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5168, BgL_sz00_5159);
										return BgL_____rz00_5170;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4516 */
	obj_t BGl_z62run4516z62zz__evaluate_compz00(obj_t BgL_envz00_14858,
		obj_t BgL_sz00_14864)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_iboxesz00_14859;
				long BgL_siza7eza7_14860;
				obj_t BgL_valza2za2_14861;
				BgL_ev_absz00_bglt BgL_i1255z00_14862;
				obj_t BgL_bodyz00_14863;

				BgL_iboxesz00_14859 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14858, (int) (0L)));
				BgL_siza7eza7_14860 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_14858, (int) (1L)));
				BgL_valza2za2_14861 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14858, (int) (2L)));
				BgL_i1255z00_14862 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14858, (int) (3L)));
				BgL_bodyz00_14863 = PROCEDURE_REF(BgL_envz00_14858, (int) (4L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16402;

					BgL_bpz00_16402 = VECTOR_REF(((obj_t) BgL_sz00_14864), 0L);
					BGl_makezd2boxeszd2zz__evaluate_compz00(BgL_sz00_14864,
						BgL_iboxesz00_14859, BgL_bpz00_16402);
					BGl_freezd2restorezd2zz__evaluate_compz00(BgL_sz00_14864,
						BgL_valza2za2_14861,
						((long) CINT(BgL_bpz00_16402) + BgL_siza7eza7_14860));
					{	/* Eval/evaluate_comp.scm 1102 */
						obj_t BgL_z12denvz12_16403;
						obj_t BgL_wherez00_16404;
						obj_t BgL_locz00_16405;

						BgL_z12denvz12_16403 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16404 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14862))->
							BgL_wherez00);
						BgL_locz00_16405 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14862))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1102 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16403, BgL_wherez00_16404,
								BgL_locz00_16405);
							{	/* Eval/evaluate_comp.scm 1102 */
								obj_t BgL_za2za2resza2za2z00_16406;

								BgL_za2za2resza2za2z00_16406 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_14863, BgL_sz00_14864);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16403);
								return BgL_za2za2resza2za2z00_16406;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3619> */
	obj_t BGl_z62zc3z04anonymousza33619ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14865, obj_t BgL_sz00_14869)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				BgL_ev_absz00_bglt BgL_i1255z00_14866;
				obj_t BgL_bodyz00_14867;
				obj_t BgL_siza7ezd2framez75_14868;

				BgL_i1255z00_14866 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14865, (int) (0L)));
				BgL_bodyz00_14867 = PROCEDURE_REF(BgL_envz00_14865, (int) (1L));
				BgL_siza7ezd2framez75_14868 =
					PROCEDURE_REF(BgL_envz00_14865, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16407;

					BgL_bpz00_16407 = VECTOR_REF(((obj_t) BgL_sz00_14869), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */

						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16408;

							BgL_runz00_16408 =
								MAKE_FX_PROCEDURE(BGl_z62run4518z62zz__evaluate_compz00,
								(int) (1L), (int) (2L));
							PROCEDURE_SET(BgL_runz00_16408,
								(int) (0L), ((obj_t) BgL_i1255z00_14866));
							PROCEDURE_SET(BgL_runz00_16408, (int) (1L), BgL_bodyz00_14867);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16409;

								BgL_mainz00_16409 =
									MAKE_FX_PROCEDURE(BGl_z62main4517z62zz__evaluate_compz00,
									(int) (2L), (int) (4L));
								PROCEDURE_SET(BgL_mainz00_16409,
									(int) (0L), ((obj_t) BgL_i1255z00_14866));
								PROCEDURE_SET(BgL_mainz00_16409, (int) (1L), BgL_bodyz00_14867);
								PROCEDURE_SET(BgL_mainz00_16409, (int) (2L), BgL_runz00_16408);
								PROCEDURE_SET(BgL_mainz00_16409,
									(int) (3L), BgL_siza7ezd2framez75_14868);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16410;

									BgL_objz00_16410 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16408, BgL_objz00_16410);
									BgL_objz00_16410;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3620z00_16411;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3621z00_16412;

										BgL_arg3621z00_16412 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14866))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16413;

											BgL_newz00_16413 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_29003;

												BgL_tmpz00_29003 = (int) (3L);
												STRUCT_SET(BgL_newz00_16413, BgL_tmpz00_29003,
													BgL_arg3621z00_16412);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_29006;

												BgL_tmpz00_29006 = (int) (2L);
												STRUCT_SET(BgL_newz00_16413, BgL_tmpz00_29006,
													BgL_siza7ezd2framez75_14868);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_29009;

												BgL_tmpz00_29009 = (int) (1L);
												STRUCT_SET(BgL_newz00_16413, BgL_tmpz00_29009,
													BgL_runz00_16408);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												obj_t BgL_auxz00_29014;
												int BgL_tmpz00_29012;

												BgL_auxz00_29014 = BINT(2L);
												BgL_tmpz00_29012 = (int) (0L);
												STRUCT_SET(BgL_newz00_16413, BgL_tmpz00_29012,
													BgL_auxz00_29014);
											}
											BgL_arg3620z00_16411 = BgL_newz00_16413;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16409, BgL_arg3620z00_16411);
									BgL_arg3620z00_16411;
								}
								return BgL_mainz00_16409;
							}
						}
					}
				}
			}
		}

	}



/* &main4517 */
	obj_t BGl_z62main4517z62zz__evaluate_compz00(obj_t BgL_envz00_14870,
		obj_t BgL_cz00_14875, obj_t BgL_dz00_14876)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_runz00_14873;
				long BgL_siza7ezd2framez75_14874;

				BgL_runz00_14873 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14870, (int) (2L)));
				BgL_siza7ezd2framez75_14874 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_14870, (int) (3L)));
				return
					BGl_mainze723ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_14874,
					BgL_runz00_14873, BgL_cz00_14875, BgL_dz00_14876);
			}
		}

	}



/* main~23 */
	obj_t BGl_mainze723ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15629,
		obj_t BgL_runz00_15628, obj_t BgL_cz00_4920, obj_t BgL_dz00_4921)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_4923;

				BgL_sz00_4923 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_4924;

					BgL_bpz00_4924 = VECTOR_REF(((obj_t) BgL_sz00_4923), 0L);
					if (
						(((long) CINT(BgL_bpz00_4924) + BgL_siza7ezd2framez75_15629) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_4923))))
						{	/* Eval/evaluate_comp.scm 1181 */
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3624z00_4926;

								BgL_arg3624z00_4926 = ((long) CINT(BgL_bpz00_4924) + 0L);
								VECTOR_SET(
									((obj_t) BgL_sz00_4923), BgL_arg3624z00_4926, BgL_cz00_4920);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3625z00_4927;

								BgL_arg3625z00_4927 = ((long) CINT(BgL_bpz00_4924) + 1L);
								VECTOR_SET(
									((obj_t) BgL_sz00_4923), BgL_arg3625z00_4927, BgL_dz00_4921);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_ez00_4928;

								BgL_ez00_4928 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4321z00_11715;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4322z00_11716;

										BgL_arg4322z00_11716 = BGL_EXITD_PROTECT(BgL_ez00_4928);
										BgL_arg4321z00_11715 =
											MAKE_YOUNG_PAIR(BgL_bpz00_4924, BgL_arg4322z00_11716);
									}
									BGL_EXITD_PROTECT_SET(BgL_ez00_4928, BgL_arg4321z00_11715);
									BUNSPEC;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_accz00_4929;

									BgL_accz00_4929 =
										BGl_catchzd2trampolinezd2zz__evaluate_compz00
										(BgL_runz00_15628, BgL_sz00_4923, BgL_bpz00_4924);
									{	/* Eval/evaluate_comp.scm 1181 */
										bool_t BgL_test5572z00_29047;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4320z00_11718;

											BgL_arg4320z00_11718 = BGL_EXITD_PROTECT(BgL_ez00_4928);
											BgL_test5572z00_29047 = PAIRP(BgL_arg4320z00_11718);
										}
										if (BgL_test5572z00_29047)
											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4318z00_11719;

												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4319z00_11720;

													BgL_arg4319z00_11720 =
														BGL_EXITD_PROTECT(BgL_ez00_4928);
													BgL_arg4318z00_11719 =
														CDR(((obj_t) BgL_arg4319z00_11720));
												}
												BGL_EXITD_PROTECT_SET(BgL_ez00_4928,
													BgL_arg4318z00_11719);
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 1181 */
												BFALSE;
											}
									}
									VECTOR_SET(((obj_t) BgL_sz00_4923), 0L, BgL_bpz00_4924);
									return BgL_accz00_4929;
								}
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_4930;

							BgL_nsz00_4930 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_4930, 1L, BgL_sz00_4923);
							VECTOR_SET(BgL_nsz00_4930, 2L, BgL_cz00_4920);
							VECTOR_SET(BgL_nsz00_4930, 3L, BgL_dz00_4921);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_4931;

								BgL_z12denvz12_4931 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_4931, BgL_nsz00_4930);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_4932;

									BgL_ez00_4932 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_11726;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_11727;

											BgL_arg4322z00_11727 = BGL_EXITD_PROTECT(BgL_ez00_4932);
											BgL_arg4321z00_11726 =
												MAKE_YOUNG_PAIR(BgL_sz00_4923, BgL_arg4322z00_11727);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_4932, BgL_arg4321z00_11726);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_4933;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_11728;

											BgL_savedzd2bpzd2_11728 = VECTOR_REF(BgL_nsz00_4930, 0L);
											VECTOR_SET(BgL_nsz00_4930, 0L, BINT(2L));
											{
												obj_t BgL_fz00_11732;

												BgL_fz00_11732 = BgL_runz00_15628;
											BgL_recz00_11731:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_11733;

													BgL_rz00_11733 =
														BGL_PROCEDURE_CALL1(BgL_fz00_11732, BgL_nsz00_4930);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5573z00_29073;

														if (PROCEDUREP(BgL_rz00_11733))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_11736;

																BgL_arg1759z00_11736 =
																	PROCEDURE_ATTR(BgL_rz00_11733);
																if (STRUCTP(BgL_arg1759z00_11736))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5573z00_29073 =
																			(STRUCT_KEY(BgL_arg1759z00_11736) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5573z00_29073 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5573z00_29073 = ((bool_t) 0);
															}
														if (BgL_test5573z00_29073)
															{
																obj_t BgL_fz00_29081;

																BgL_fz00_29081 = BgL_rz00_11733;
																BgL_fz00_11732 = BgL_fz00_29081;
																goto BgL_recz00_11731;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_4930, 0L,
																	BgL_savedzd2bpzd2_11728);
																BgL_____rz00_4933 = BgL_rz00_11733;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5576z00_29083;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_11744;

												BgL_arg4320z00_11744 = BGL_EXITD_PROTECT(BgL_ez00_4932);
												BgL_test5576z00_29083 = PAIRP(BgL_arg4320z00_11744);
											}
											if (BgL_test5576z00_29083)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_11745;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_11746;

														BgL_arg4319z00_11746 =
															BGL_EXITD_PROTECT(BgL_ez00_4932);
														BgL_arg4318z00_11745 =
															CDR(((obj_t) BgL_arg4319z00_11746));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_4932,
														BgL_arg4318z00_11745);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_4931, BgL_sz00_4923);
										return BgL_____rz00_4933;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4518 */
	obj_t BGl_z62run4518z62zz__evaluate_compz00(obj_t BgL_envz00_14877,
		obj_t BgL_sz00_14880)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				BgL_ev_absz00_bglt BgL_i1255z00_14878;
				obj_t BgL_bodyz00_14879;

				BgL_i1255z00_14878 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14877, (int) (0L)));
				BgL_bodyz00_14879 = PROCEDURE_REF(BgL_envz00_14877, (int) (1L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16414;

					BgL_bpz00_16414 = VECTOR_REF(((obj_t) BgL_sz00_14880), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_z12denvz12_16415;
						obj_t BgL_wherez00_16416;
						obj_t BgL_locz00_16417;

						BgL_z12denvz12_16415 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16416 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14878))->
							BgL_wherez00);
						BgL_locz00_16417 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14878))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1181 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16415, BgL_wherez00_16416,
								BgL_locz00_16417);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_za2za2resza2za2z00_16418;

								BgL_za2za2resza2za2z00_16418 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_14879, BgL_sz00_14880);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16415);
								return BgL_za2za2resza2za2z00_16418;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3627> */
	obj_t BGl_z62zc3z04anonymousza33627ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14881, obj_t BgL_sz00_14886)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_iboxesz00_14882;
				BgL_ev_absz00_bglt BgL_i1255z00_14883;
				obj_t BgL_bodyz00_14884;
				obj_t BgL_siza7ezd2framez75_14885;

				BgL_iboxesz00_14882 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14881, (int) (0L)));
				BgL_i1255z00_14883 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14881, (int) (1L)));
				BgL_bodyz00_14884 = PROCEDURE_REF(BgL_envz00_14881, (int) (2L));
				BgL_siza7ezd2framez75_14885 =
					PROCEDURE_REF(BgL_envz00_14881, (int) (3L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16419;

					BgL_bpz00_16419 = VECTOR_REF(((obj_t) BgL_sz00_14886), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */

						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16420;

							BgL_runz00_16420 =
								MAKE_FX_PROCEDURE(BGl_z62run4520z62zz__evaluate_compz00,
								(int) (1L), (int) (3L));
							PROCEDURE_SET(BgL_runz00_16420, (int) (0L), BgL_iboxesz00_14882);
							PROCEDURE_SET(BgL_runz00_16420,
								(int) (1L), ((obj_t) BgL_i1255z00_14883));
							PROCEDURE_SET(BgL_runz00_16420, (int) (2L), BgL_bodyz00_14884);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16421;

								BgL_mainz00_16421 =
									MAKE_FX_PROCEDURE(BGl_z62main4519z62zz__evaluate_compz00,
									(int) (2L), (int) (5L));
								PROCEDURE_SET(BgL_mainz00_16421,
									(int) (0L), BgL_iboxesz00_14882);
								PROCEDURE_SET(BgL_mainz00_16421,
									(int) (1L), ((obj_t) BgL_i1255z00_14883));
								PROCEDURE_SET(BgL_mainz00_16421, (int) (2L), BgL_bodyz00_14884);
								PROCEDURE_SET(BgL_mainz00_16421, (int) (3L), BgL_runz00_16420);
								PROCEDURE_SET(BgL_mainz00_16421,
									(int) (4L), BgL_siza7ezd2framez75_14885);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16422;

									BgL_objz00_16422 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16420, BgL_objz00_16422);
									BgL_objz00_16422;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3628z00_16423;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3629z00_16424;

										BgL_arg3629z00_16424 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14883))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16425;

											BgL_newz00_16425 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_29147;

												BgL_tmpz00_29147 = (int) (3L);
												STRUCT_SET(BgL_newz00_16425, BgL_tmpz00_29147,
													BgL_arg3629z00_16424);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_29150;

												BgL_tmpz00_29150 = (int) (2L);
												STRUCT_SET(BgL_newz00_16425, BgL_tmpz00_29150,
													BgL_siza7ezd2framez75_14885);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_29153;

												BgL_tmpz00_29153 = (int) (1L);
												STRUCT_SET(BgL_newz00_16425, BgL_tmpz00_29153,
													BgL_runz00_16420);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												obj_t BgL_auxz00_29158;
												int BgL_tmpz00_29156;

												BgL_auxz00_29158 = BINT(2L);
												BgL_tmpz00_29156 = (int) (0L);
												STRUCT_SET(BgL_newz00_16425, BgL_tmpz00_29156,
													BgL_auxz00_29158);
											}
											BgL_arg3628z00_16423 = BgL_newz00_16425;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16421, BgL_arg3628z00_16423);
									BgL_arg3628z00_16423;
								}
								return BgL_mainz00_16421;
							}
						}
					}
				}
			}
		}

	}



/* &main4519 */
	obj_t BGl_z62main4519z62zz__evaluate_compz00(obj_t BgL_envz00_14887,
		obj_t BgL_cz00_14893, obj_t BgL_dz00_14894)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_runz00_14891;
				long BgL_siza7ezd2framez75_14892;

				BgL_runz00_14891 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14887, (int) (3L)));
				BgL_siza7ezd2framez75_14892 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_14887, (int) (4L)));
				return
					BGl_mainze722ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_14892,
					BgL_runz00_14891, BgL_cz00_14893, BgL_dz00_14894);
			}
		}

	}



/* main~22 */
	obj_t BGl_mainze722ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15627,
		obj_t BgL_runz00_15626, obj_t BgL_cz00_4950, obj_t BgL_dz00_4951)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_4953;

				BgL_sz00_4953 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_4954;

					BgL_bpz00_4954 = VECTOR_REF(((obj_t) BgL_sz00_4953), 0L);
					if (
						(((long) CINT(BgL_bpz00_4954) + BgL_siza7ezd2framez75_15627) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_4953))))
						{	/* Eval/evaluate_comp.scm 1181 */
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3632z00_4956;

								BgL_arg3632z00_4956 = ((long) CINT(BgL_bpz00_4954) + 0L);
								VECTOR_SET(
									((obj_t) BgL_sz00_4953), BgL_arg3632z00_4956, BgL_cz00_4950);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3633z00_4957;

								BgL_arg3633z00_4957 = ((long) CINT(BgL_bpz00_4954) + 1L);
								VECTOR_SET(
									((obj_t) BgL_sz00_4953), BgL_arg3633z00_4957, BgL_dz00_4951);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_ez00_4958;

								BgL_ez00_4958 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4321z00_11770;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4322z00_11771;

										BgL_arg4322z00_11771 = BGL_EXITD_PROTECT(BgL_ez00_4958);
										BgL_arg4321z00_11770 =
											MAKE_YOUNG_PAIR(BgL_bpz00_4954, BgL_arg4322z00_11771);
									}
									BGL_EXITD_PROTECT_SET(BgL_ez00_4958, BgL_arg4321z00_11770);
									BUNSPEC;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_accz00_4959;

									BgL_accz00_4959 =
										BGl_catchzd2trampolinezd2zz__evaluate_compz00
										(BgL_runz00_15626, BgL_sz00_4953, BgL_bpz00_4954);
									{	/* Eval/evaluate_comp.scm 1181 */
										bool_t BgL_test5578z00_29191;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4320z00_11773;

											BgL_arg4320z00_11773 = BGL_EXITD_PROTECT(BgL_ez00_4958);
											BgL_test5578z00_29191 = PAIRP(BgL_arg4320z00_11773);
										}
										if (BgL_test5578z00_29191)
											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4318z00_11774;

												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4319z00_11775;

													BgL_arg4319z00_11775 =
														BGL_EXITD_PROTECT(BgL_ez00_4958);
													BgL_arg4318z00_11774 =
														CDR(((obj_t) BgL_arg4319z00_11775));
												}
												BGL_EXITD_PROTECT_SET(BgL_ez00_4958,
													BgL_arg4318z00_11774);
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 1181 */
												BFALSE;
											}
									}
									VECTOR_SET(((obj_t) BgL_sz00_4953), 0L, BgL_bpz00_4954);
									return BgL_accz00_4959;
								}
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_4960;

							BgL_nsz00_4960 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_4960, 1L, BgL_sz00_4953);
							VECTOR_SET(BgL_nsz00_4960, 2L, BgL_cz00_4950);
							VECTOR_SET(BgL_nsz00_4960, 3L, BgL_dz00_4951);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_4961;

								BgL_z12denvz12_4961 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_4961, BgL_nsz00_4960);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_4962;

									BgL_ez00_4962 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_11781;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_11782;

											BgL_arg4322z00_11782 = BGL_EXITD_PROTECT(BgL_ez00_4962);
											BgL_arg4321z00_11781 =
												MAKE_YOUNG_PAIR(BgL_sz00_4953, BgL_arg4322z00_11782);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_4962, BgL_arg4321z00_11781);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_4963;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_11783;

											BgL_savedzd2bpzd2_11783 = VECTOR_REF(BgL_nsz00_4960, 0L);
											VECTOR_SET(BgL_nsz00_4960, 0L, BINT(2L));
											{
												obj_t BgL_fz00_11787;

												BgL_fz00_11787 = BgL_runz00_15626;
											BgL_recz00_11786:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_11788;

													BgL_rz00_11788 =
														BGL_PROCEDURE_CALL1(BgL_fz00_11787, BgL_nsz00_4960);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5579z00_29217;

														if (PROCEDUREP(BgL_rz00_11788))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_11791;

																BgL_arg1759z00_11791 =
																	PROCEDURE_ATTR(BgL_rz00_11788);
																if (STRUCTP(BgL_arg1759z00_11791))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5579z00_29217 =
																			(STRUCT_KEY(BgL_arg1759z00_11791) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5579z00_29217 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5579z00_29217 = ((bool_t) 0);
															}
														if (BgL_test5579z00_29217)
															{
																obj_t BgL_fz00_29225;

																BgL_fz00_29225 = BgL_rz00_11788;
																BgL_fz00_11787 = BgL_fz00_29225;
																goto BgL_recz00_11786;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_4960, 0L,
																	BgL_savedzd2bpzd2_11783);
																BgL_____rz00_4963 = BgL_rz00_11788;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5582z00_29227;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_11799;

												BgL_arg4320z00_11799 = BGL_EXITD_PROTECT(BgL_ez00_4962);
												BgL_test5582z00_29227 = PAIRP(BgL_arg4320z00_11799);
											}
											if (BgL_test5582z00_29227)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_11800;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_11801;

														BgL_arg4319z00_11801 =
															BGL_EXITD_PROTECT(BgL_ez00_4962);
														BgL_arg4318z00_11800 =
															CDR(((obj_t) BgL_arg4319z00_11801));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_4962,
														BgL_arg4318z00_11800);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_4961, BgL_sz00_4953);
										return BgL_____rz00_4963;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4520 */
	obj_t BGl_z62run4520z62zz__evaluate_compz00(obj_t BgL_envz00_14895,
		obj_t BgL_sz00_14899)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_iboxesz00_14896;
				BgL_ev_absz00_bglt BgL_i1255z00_14897;
				obj_t BgL_bodyz00_14898;

				BgL_iboxesz00_14896 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14895, (int) (0L)));
				BgL_i1255z00_14897 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14895, (int) (1L)));
				BgL_bodyz00_14898 = PROCEDURE_REF(BgL_envz00_14895, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16426;

					BgL_bpz00_16426 = VECTOR_REF(((obj_t) BgL_sz00_14899), 0L);
					BGl_makezd2boxeszd2zz__evaluate_compz00(BgL_sz00_14899,
						BgL_iboxesz00_14896, BgL_bpz00_16426);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_z12denvz12_16427;
						obj_t BgL_wherez00_16428;
						obj_t BgL_locz00_16429;

						BgL_z12denvz12_16427 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16428 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14897))->
							BgL_wherez00);
						BgL_locz00_16429 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14897))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1181 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16427, BgL_wherez00_16428,
								BgL_locz00_16429);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_za2za2resza2za2z00_16430;

								BgL_za2za2resza2za2z00_16430 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_14898, BgL_sz00_14899);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16427);
								return BgL_za2za2resza2za2z00_16430;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3638> */
	obj_t BGl_z62zc3z04anonymousza33638ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14900, obj_t BgL_sz00_14906)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_ifreesz00_14901;
				obj_t BgL_siza7eza7_14902;
				BgL_ev_absz00_bglt BgL_i1255z00_14903;
				obj_t BgL_bodyz00_14904;
				obj_t BgL_siza7ezd2framez75_14905;

				BgL_ifreesz00_14901 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14900, (int) (0L)));
				BgL_siza7eza7_14902 = PROCEDURE_REF(BgL_envz00_14900, (int) (1L));
				BgL_i1255z00_14903 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14900, (int) (2L)));
				BgL_bodyz00_14904 = PROCEDURE_REF(BgL_envz00_14900, (int) (3L));
				BgL_siza7ezd2framez75_14905 =
					PROCEDURE_REF(BgL_envz00_14900, (int) (4L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16431;

					BgL_bpz00_16431 = VECTOR_REF(((obj_t) BgL_sz00_14906), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_valza2za2_16432;

						BgL_valza2za2_16432 =
							BGl_freezd2collectzd2zz__evaluate_compz00(BgL_sz00_14906,
							BgL_bpz00_16431, BgL_ifreesz00_14901);
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16433;

							BgL_runz00_16433 =
								MAKE_FX_PROCEDURE(BGl_z62run4522z62zz__evaluate_compz00,
								(int) (1L), (int) (4L));
							PROCEDURE_SET(BgL_runz00_16433, (int) (0L), BgL_siza7eza7_14902);
							PROCEDURE_SET(BgL_runz00_16433, (int) (1L), BgL_valza2za2_16432);
							PROCEDURE_SET(BgL_runz00_16433,
								(int) (2L), ((obj_t) BgL_i1255z00_14903));
							PROCEDURE_SET(BgL_runz00_16433, (int) (3L), BgL_bodyz00_14904);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16434;

								BgL_mainz00_16434 =
									MAKE_FX_PROCEDURE(BGl_z62main4521z62zz__evaluate_compz00,
									(int) (2L), (int) (6L));
								PROCEDURE_SET(BgL_mainz00_16434,
									(int) (0L), BgL_siza7eza7_14902);
								PROCEDURE_SET(BgL_mainz00_16434,
									(int) (1L), BgL_valza2za2_16432);
								PROCEDURE_SET(BgL_mainz00_16434,
									(int) (2L), ((obj_t) BgL_i1255z00_14903));
								PROCEDURE_SET(BgL_mainz00_16434, (int) (3L), BgL_bodyz00_14904);
								PROCEDURE_SET(BgL_mainz00_16434, (int) (4L), BgL_runz00_16433);
								PROCEDURE_SET(BgL_mainz00_16434,
									(int) (5L), BgL_siza7ezd2framez75_14905);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16435;

									BgL_objz00_16435 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16433, BgL_objz00_16435);
									BgL_objz00_16435;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3639z00_16436;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3640z00_16437;

										BgL_arg3640z00_16437 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14903))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16438;

											BgL_newz00_16438 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_29302;

												BgL_tmpz00_29302 = (int) (3L);
												STRUCT_SET(BgL_newz00_16438, BgL_tmpz00_29302,
													BgL_arg3640z00_16437);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_29305;

												BgL_tmpz00_29305 = (int) (2L);
												STRUCT_SET(BgL_newz00_16438, BgL_tmpz00_29305,
													BgL_siza7ezd2framez75_14905);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_29308;

												BgL_tmpz00_29308 = (int) (1L);
												STRUCT_SET(BgL_newz00_16438, BgL_tmpz00_29308,
													BgL_runz00_16433);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												obj_t BgL_auxz00_29313;
												int BgL_tmpz00_29311;

												BgL_auxz00_29313 = BINT(2L);
												BgL_tmpz00_29311 = (int) (0L);
												STRUCT_SET(BgL_newz00_16438, BgL_tmpz00_29311,
													BgL_auxz00_29313);
											}
											BgL_arg3639z00_16436 = BgL_newz00_16438;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16434, BgL_arg3639z00_16436);
									BgL_arg3639z00_16436;
								}
								return BgL_mainz00_16434;
							}
						}
					}
				}
			}
		}

	}



/* &main4521 */
	obj_t BGl_z62main4521z62zz__evaluate_compz00(obj_t BgL_envz00_14907,
		obj_t BgL_cz00_14914, obj_t BgL_dz00_14915)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_runz00_14912;
				long BgL_siza7ezd2framez75_14913;

				BgL_runz00_14912 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14907, (int) (4L)));
				BgL_siza7ezd2framez75_14913 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_14907, (int) (5L)));
				return
					BGl_mainze721ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_14913,
					BgL_runz00_14912, BgL_cz00_14914, BgL_dz00_14915);
			}
		}

	}



/* main~21 */
	obj_t BGl_mainze721ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15625,
		obj_t BgL_runz00_15624, obj_t BgL_cz00_4984, obj_t BgL_dz00_4985)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_4987;

				BgL_sz00_4987 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_4988;

					BgL_bpz00_4988 = VECTOR_REF(((obj_t) BgL_sz00_4987), 0L);
					if (
						(((long) CINT(BgL_bpz00_4988) + BgL_siza7ezd2framez75_15625) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_4987))))
						{	/* Eval/evaluate_comp.scm 1181 */
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3643z00_4990;

								BgL_arg3643z00_4990 = ((long) CINT(BgL_bpz00_4988) + 0L);
								VECTOR_SET(
									((obj_t) BgL_sz00_4987), BgL_arg3643z00_4990, BgL_cz00_4984);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3644z00_4991;

								BgL_arg3644z00_4991 = ((long) CINT(BgL_bpz00_4988) + 1L);
								VECTOR_SET(
									((obj_t) BgL_sz00_4987), BgL_arg3644z00_4991, BgL_dz00_4985);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_ez00_4992;

								BgL_ez00_4992 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4321z00_11829;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4322z00_11830;

										BgL_arg4322z00_11830 = BGL_EXITD_PROTECT(BgL_ez00_4992);
										BgL_arg4321z00_11829 =
											MAKE_YOUNG_PAIR(BgL_bpz00_4988, BgL_arg4322z00_11830);
									}
									BGL_EXITD_PROTECT_SET(BgL_ez00_4992, BgL_arg4321z00_11829);
									BUNSPEC;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_accz00_4993;

									BgL_accz00_4993 =
										BGl_catchzd2trampolinezd2zz__evaluate_compz00
										(BgL_runz00_15624, BgL_sz00_4987, BgL_bpz00_4988);
									{	/* Eval/evaluate_comp.scm 1181 */
										bool_t BgL_test5584z00_29346;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4320z00_11832;

											BgL_arg4320z00_11832 = BGL_EXITD_PROTECT(BgL_ez00_4992);
											BgL_test5584z00_29346 = PAIRP(BgL_arg4320z00_11832);
										}
										if (BgL_test5584z00_29346)
											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4318z00_11833;

												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4319z00_11834;

													BgL_arg4319z00_11834 =
														BGL_EXITD_PROTECT(BgL_ez00_4992);
													BgL_arg4318z00_11833 =
														CDR(((obj_t) BgL_arg4319z00_11834));
												}
												BGL_EXITD_PROTECT_SET(BgL_ez00_4992,
													BgL_arg4318z00_11833);
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 1181 */
												BFALSE;
											}
									}
									VECTOR_SET(((obj_t) BgL_sz00_4987), 0L, BgL_bpz00_4988);
									return BgL_accz00_4993;
								}
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_4994;

							BgL_nsz00_4994 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_4994, 1L, BgL_sz00_4987);
							VECTOR_SET(BgL_nsz00_4994, 2L, BgL_cz00_4984);
							VECTOR_SET(BgL_nsz00_4994, 3L, BgL_dz00_4985);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_4995;

								BgL_z12denvz12_4995 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_4995, BgL_nsz00_4994);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_4996;

									BgL_ez00_4996 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_11840;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_11841;

											BgL_arg4322z00_11841 = BGL_EXITD_PROTECT(BgL_ez00_4996);
											BgL_arg4321z00_11840 =
												MAKE_YOUNG_PAIR(BgL_sz00_4987, BgL_arg4322z00_11841);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_4996, BgL_arg4321z00_11840);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_4997;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_11842;

											BgL_savedzd2bpzd2_11842 = VECTOR_REF(BgL_nsz00_4994, 0L);
											VECTOR_SET(BgL_nsz00_4994, 0L, BINT(2L));
											{
												obj_t BgL_fz00_11846;

												BgL_fz00_11846 = BgL_runz00_15624;
											BgL_recz00_11845:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_11847;

													BgL_rz00_11847 =
														BGL_PROCEDURE_CALL1(BgL_fz00_11846, BgL_nsz00_4994);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5585z00_29372;

														if (PROCEDUREP(BgL_rz00_11847))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_11850;

																BgL_arg1759z00_11850 =
																	PROCEDURE_ATTR(BgL_rz00_11847);
																if (STRUCTP(BgL_arg1759z00_11850))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5585z00_29372 =
																			(STRUCT_KEY(BgL_arg1759z00_11850) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5585z00_29372 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5585z00_29372 = ((bool_t) 0);
															}
														if (BgL_test5585z00_29372)
															{
																obj_t BgL_fz00_29380;

																BgL_fz00_29380 = BgL_rz00_11847;
																BgL_fz00_11846 = BgL_fz00_29380;
																goto BgL_recz00_11845;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_4994, 0L,
																	BgL_savedzd2bpzd2_11842);
																BgL_____rz00_4997 = BgL_rz00_11847;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5588z00_29382;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_11858;

												BgL_arg4320z00_11858 = BGL_EXITD_PROTECT(BgL_ez00_4996);
												BgL_test5588z00_29382 = PAIRP(BgL_arg4320z00_11858);
											}
											if (BgL_test5588z00_29382)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_11859;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_11860;

														BgL_arg4319z00_11860 =
															BGL_EXITD_PROTECT(BgL_ez00_4996);
														BgL_arg4318z00_11859 =
															CDR(((obj_t) BgL_arg4319z00_11860));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_4996,
														BgL_arg4318z00_11859);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_4995, BgL_sz00_4987);
										return BgL_____rz00_4997;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4522 */
	obj_t BGl_z62run4522z62zz__evaluate_compz00(obj_t BgL_envz00_14916,
		obj_t BgL_sz00_14921)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				long BgL_siza7eza7_14917;
				obj_t BgL_valza2za2_14918;
				BgL_ev_absz00_bglt BgL_i1255z00_14919;
				obj_t BgL_bodyz00_14920;

				BgL_siza7eza7_14917 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_14916, (int) (0L)));
				BgL_valza2za2_14918 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14916, (int) (1L)));
				BgL_i1255z00_14919 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14916, (int) (2L)));
				BgL_bodyz00_14920 = PROCEDURE_REF(BgL_envz00_14916, (int) (3L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16439;

					BgL_bpz00_16439 = VECTOR_REF(((obj_t) BgL_sz00_14921), 0L);
					BGl_freezd2restorezd2zz__evaluate_compz00(BgL_sz00_14921,
						BgL_valza2za2_14918,
						((long) CINT(BgL_bpz00_16439) + BgL_siza7eza7_14917));
					{	/* Eval/evaluate_comp.scm 1102 */
						obj_t BgL_z12denvz12_16440;
						obj_t BgL_wherez00_16441;
						obj_t BgL_locz00_16442;

						BgL_z12denvz12_16440 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16441 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14919))->
							BgL_wherez00);
						BgL_locz00_16442 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14919))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1102 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16440, BgL_wherez00_16441,
								BgL_locz00_16442);
							{	/* Eval/evaluate_comp.scm 1102 */
								obj_t BgL_za2za2resza2za2z00_16443;

								BgL_za2za2resza2za2z00_16443 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_14920, BgL_sz00_14921);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16440);
								return BgL_za2za2resza2za2z00_16443;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3647> */
	obj_t BGl_z62zc3z04anonymousza33647ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14922, obj_t BgL_sz00_14929)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_ifreesz00_14923;
				obj_t BgL_iboxesz00_14924;
				obj_t BgL_siza7eza7_14925;
				BgL_ev_absz00_bglt BgL_i1255z00_14926;
				obj_t BgL_bodyz00_14927;
				obj_t BgL_siza7ezd2framez75_14928;

				BgL_ifreesz00_14923 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14922, (int) (0L)));
				BgL_iboxesz00_14924 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14922, (int) (1L)));
				BgL_siza7eza7_14925 = PROCEDURE_REF(BgL_envz00_14922, (int) (2L));
				BgL_i1255z00_14926 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14922, (int) (3L)));
				BgL_bodyz00_14927 = PROCEDURE_REF(BgL_envz00_14922, (int) (4L));
				BgL_siza7ezd2framez75_14928 =
					PROCEDURE_REF(BgL_envz00_14922, (int) (5L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16444;

					BgL_bpz00_16444 = VECTOR_REF(((obj_t) BgL_sz00_14929), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_valza2za2_16445;

						BgL_valza2za2_16445 =
							BGl_freezd2collectzd2zz__evaluate_compz00(BgL_sz00_14929,
							BgL_bpz00_16444, BgL_ifreesz00_14923);
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16446;

							BgL_runz00_16446 =
								MAKE_FX_PROCEDURE(BGl_z62run4524z62zz__evaluate_compz00,
								(int) (1L), (int) (5L));
							PROCEDURE_SET(BgL_runz00_16446, (int) (0L), BgL_iboxesz00_14924);
							PROCEDURE_SET(BgL_runz00_16446, (int) (1L), BgL_siza7eza7_14925);
							PROCEDURE_SET(BgL_runz00_16446, (int) (2L), BgL_valza2za2_16445);
							PROCEDURE_SET(BgL_runz00_16446,
								(int) (3L), ((obj_t) BgL_i1255z00_14926));
							PROCEDURE_SET(BgL_runz00_16446, (int) (4L), BgL_bodyz00_14927);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16447;

								BgL_mainz00_16447 =
									MAKE_FX_PROCEDURE(BGl_z62main4523z62zz__evaluate_compz00,
									(int) (2L), (int) (7L));
								PROCEDURE_SET(BgL_mainz00_16447,
									(int) (0L), BgL_iboxesz00_14924);
								PROCEDURE_SET(BgL_mainz00_16447,
									(int) (1L), BgL_siza7eza7_14925);
								PROCEDURE_SET(BgL_mainz00_16447,
									(int) (2L), BgL_valza2za2_16445);
								PROCEDURE_SET(BgL_mainz00_16447,
									(int) (3L), ((obj_t) BgL_i1255z00_14926));
								PROCEDURE_SET(BgL_mainz00_16447, (int) (4L), BgL_bodyz00_14927);
								PROCEDURE_SET(BgL_mainz00_16447, (int) (5L), BgL_runz00_16446);
								PROCEDURE_SET(BgL_mainz00_16447,
									(int) (6L), BgL_siza7ezd2framez75_14928);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16448;

									BgL_objz00_16448 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16446, BgL_objz00_16448);
									BgL_objz00_16448;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3648z00_16449;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3649z00_16450;

										BgL_arg3649z00_16450 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14926))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16451;

											BgL_newz00_16451 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_29469;

												BgL_tmpz00_29469 = (int) (3L);
												STRUCT_SET(BgL_newz00_16451, BgL_tmpz00_29469,
													BgL_arg3649z00_16450);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_29472;

												BgL_tmpz00_29472 = (int) (2L);
												STRUCT_SET(BgL_newz00_16451, BgL_tmpz00_29472,
													BgL_siza7ezd2framez75_14928);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_29475;

												BgL_tmpz00_29475 = (int) (1L);
												STRUCT_SET(BgL_newz00_16451, BgL_tmpz00_29475,
													BgL_runz00_16446);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												obj_t BgL_auxz00_29480;
												int BgL_tmpz00_29478;

												BgL_auxz00_29480 = BINT(2L);
												BgL_tmpz00_29478 = (int) (0L);
												STRUCT_SET(BgL_newz00_16451, BgL_tmpz00_29478,
													BgL_auxz00_29480);
											}
											BgL_arg3648z00_16449 = BgL_newz00_16451;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16447, BgL_arg3648z00_16449);
									BgL_arg3648z00_16449;
								}
								return BgL_mainz00_16447;
							}
						}
					}
				}
			}
		}

	}



/* &main4523 */
	obj_t BGl_z62main4523z62zz__evaluate_compz00(obj_t BgL_envz00_14930,
		obj_t BgL_cz00_14938, obj_t BgL_dz00_14939)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_runz00_14936;
				long BgL_siza7ezd2framez75_14937;

				BgL_runz00_14936 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14930, (int) (5L)));
				BgL_siza7ezd2framez75_14937 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_14930, (int) (6L)));
				return
					BGl_mainze720ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_14937,
					BgL_runz00_14936, BgL_cz00_14938, BgL_dz00_14939);
			}
		}

	}



/* main~20 */
	obj_t BGl_mainze720ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15623,
		obj_t BgL_runz00_15622, obj_t BgL_cz00_5016, obj_t BgL_dz00_5017)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_5019;

				BgL_sz00_5019 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_5020;

					BgL_bpz00_5020 = VECTOR_REF(((obj_t) BgL_sz00_5019), 0L);
					if (
						(((long) CINT(BgL_bpz00_5020) + BgL_siza7ezd2framez75_15623) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_5019))))
						{	/* Eval/evaluate_comp.scm 1181 */
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3652z00_5022;

								BgL_arg3652z00_5022 = ((long) CINT(BgL_bpz00_5020) + 0L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5019), BgL_arg3652z00_5022, BgL_cz00_5016);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3654z00_5023;

								BgL_arg3654z00_5023 = ((long) CINT(BgL_bpz00_5020) + 1L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5019), BgL_arg3654z00_5023, BgL_dz00_5017);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_ez00_5024;

								BgL_ez00_5024 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4321z00_11886;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4322z00_11887;

										BgL_arg4322z00_11887 = BGL_EXITD_PROTECT(BgL_ez00_5024);
										BgL_arg4321z00_11886 =
											MAKE_YOUNG_PAIR(BgL_bpz00_5020, BgL_arg4322z00_11887);
									}
									BGL_EXITD_PROTECT_SET(BgL_ez00_5024, BgL_arg4321z00_11886);
									BUNSPEC;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_accz00_5025;

									BgL_accz00_5025 =
										BGl_catchzd2trampolinezd2zz__evaluate_compz00
										(BgL_runz00_15622, BgL_sz00_5019, BgL_bpz00_5020);
									{	/* Eval/evaluate_comp.scm 1181 */
										bool_t BgL_test5590z00_29513;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4320z00_11889;

											BgL_arg4320z00_11889 = BGL_EXITD_PROTECT(BgL_ez00_5024);
											BgL_test5590z00_29513 = PAIRP(BgL_arg4320z00_11889);
										}
										if (BgL_test5590z00_29513)
											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4318z00_11890;

												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4319z00_11891;

													BgL_arg4319z00_11891 =
														BGL_EXITD_PROTECT(BgL_ez00_5024);
													BgL_arg4318z00_11890 =
														CDR(((obj_t) BgL_arg4319z00_11891));
												}
												BGL_EXITD_PROTECT_SET(BgL_ez00_5024,
													BgL_arg4318z00_11890);
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 1181 */
												BFALSE;
											}
									}
									VECTOR_SET(((obj_t) BgL_sz00_5019), 0L, BgL_bpz00_5020);
									return BgL_accz00_5025;
								}
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_5026;

							BgL_nsz00_5026 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_5026, 1L, BgL_sz00_5019);
							VECTOR_SET(BgL_nsz00_5026, 2L, BgL_cz00_5016);
							VECTOR_SET(BgL_nsz00_5026, 3L, BgL_dz00_5017);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_5027;

								BgL_z12denvz12_5027 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5027, BgL_nsz00_5026);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_5028;

									BgL_ez00_5028 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_11897;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_11898;

											BgL_arg4322z00_11898 = BGL_EXITD_PROTECT(BgL_ez00_5028);
											BgL_arg4321z00_11897 =
												MAKE_YOUNG_PAIR(BgL_sz00_5019, BgL_arg4322z00_11898);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_5028, BgL_arg4321z00_11897);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_5029;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_11899;

											BgL_savedzd2bpzd2_11899 = VECTOR_REF(BgL_nsz00_5026, 0L);
											VECTOR_SET(BgL_nsz00_5026, 0L, BINT(2L));
											{
												obj_t BgL_fz00_11903;

												BgL_fz00_11903 = BgL_runz00_15622;
											BgL_recz00_11902:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_11904;

													BgL_rz00_11904 =
														BGL_PROCEDURE_CALL1(BgL_fz00_11903, BgL_nsz00_5026);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5591z00_29539;

														if (PROCEDUREP(BgL_rz00_11904))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_11907;

																BgL_arg1759z00_11907 =
																	PROCEDURE_ATTR(BgL_rz00_11904);
																if (STRUCTP(BgL_arg1759z00_11907))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5591z00_29539 =
																			(STRUCT_KEY(BgL_arg1759z00_11907) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5591z00_29539 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5591z00_29539 = ((bool_t) 0);
															}
														if (BgL_test5591z00_29539)
															{
																obj_t BgL_fz00_29547;

																BgL_fz00_29547 = BgL_rz00_11904;
																BgL_fz00_11903 = BgL_fz00_29547;
																goto BgL_recz00_11902;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_5026, 0L,
																	BgL_savedzd2bpzd2_11899);
																BgL_____rz00_5029 = BgL_rz00_11904;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5594z00_29549;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_11915;

												BgL_arg4320z00_11915 = BGL_EXITD_PROTECT(BgL_ez00_5028);
												BgL_test5594z00_29549 = PAIRP(BgL_arg4320z00_11915);
											}
											if (BgL_test5594z00_29549)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_11916;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_11917;

														BgL_arg4319z00_11917 =
															BGL_EXITD_PROTECT(BgL_ez00_5028);
														BgL_arg4318z00_11916 =
															CDR(((obj_t) BgL_arg4319z00_11917));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_5028,
														BgL_arg4318z00_11916);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5027, BgL_sz00_5019);
										return BgL_____rz00_5029;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4524 */
	obj_t BGl_z62run4524z62zz__evaluate_compz00(obj_t BgL_envz00_14940,
		obj_t BgL_sz00_14946)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_iboxesz00_14941;
				long BgL_siza7eza7_14942;
				obj_t BgL_valza2za2_14943;
				BgL_ev_absz00_bglt BgL_i1255z00_14944;
				obj_t BgL_bodyz00_14945;

				BgL_iboxesz00_14941 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14940, (int) (0L)));
				BgL_siza7eza7_14942 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_14940, (int) (1L)));
				BgL_valza2za2_14943 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14940, (int) (2L)));
				BgL_i1255z00_14944 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14940, (int) (3L)));
				BgL_bodyz00_14945 = PROCEDURE_REF(BgL_envz00_14940, (int) (4L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16452;

					BgL_bpz00_16452 = VECTOR_REF(((obj_t) BgL_sz00_14946), 0L);
					BGl_makezd2boxeszd2zz__evaluate_compz00(BgL_sz00_14946,
						BgL_iboxesz00_14941, BgL_bpz00_16452);
					BGl_freezd2restorezd2zz__evaluate_compz00(BgL_sz00_14946,
						BgL_valza2za2_14943,
						((long) CINT(BgL_bpz00_16452) + BgL_siza7eza7_14942));
					{	/* Eval/evaluate_comp.scm 1102 */
						obj_t BgL_z12denvz12_16453;
						obj_t BgL_wherez00_16454;
						obj_t BgL_locz00_16455;

						BgL_z12denvz12_16453 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16454 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14944))->
							BgL_wherez00);
						BgL_locz00_16455 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14944))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1102 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16453, BgL_wherez00_16454,
								BgL_locz00_16455);
							{	/* Eval/evaluate_comp.scm 1102 */
								obj_t BgL_za2za2resza2za2z00_16456;

								BgL_za2za2resza2za2z00_16456 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_14945, BgL_sz00_14946);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16453);
								return BgL_za2za2resza2za2z00_16456;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3572> */
	obj_t BGl_z62zc3z04anonymousza33572ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14947, obj_t BgL_sz00_14951)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				BgL_ev_absz00_bglt BgL_i1255z00_14948;
				obj_t BgL_bodyz00_14949;
				obj_t BgL_siza7ezd2framez75_14950;

				BgL_i1255z00_14948 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14947, (int) (0L)));
				BgL_bodyz00_14949 = PROCEDURE_REF(BgL_envz00_14947, (int) (1L));
				BgL_siza7ezd2framez75_14950 =
					PROCEDURE_REF(BgL_envz00_14947, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16457;

					BgL_bpz00_16457 = VECTOR_REF(((obj_t) BgL_sz00_14951), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */

						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16458;

							BgL_runz00_16458 =
								MAKE_FX_PROCEDURE(BGl_z62run4526z62zz__evaluate_compz00,
								(int) (1L), (int) (2L));
							PROCEDURE_SET(BgL_runz00_16458,
								(int) (0L), ((obj_t) BgL_i1255z00_14948));
							PROCEDURE_SET(BgL_runz00_16458, (int) (1L), BgL_bodyz00_14949);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16459;

								BgL_mainz00_16459 =
									MAKE_VA_PROCEDURE(BGl_z62main4525z62zz__evaluate_compz00,
									(int) ((-2L)), (int) (4L));
								PROCEDURE_SET(BgL_mainz00_16459,
									(int) (0L), ((obj_t) BgL_i1255z00_14948));
								PROCEDURE_SET(BgL_mainz00_16459, (int) (1L), BgL_bodyz00_14949);
								PROCEDURE_SET(BgL_mainz00_16459, (int) (2L), BgL_runz00_16458);
								PROCEDURE_SET(BgL_mainz00_16459,
									(int) (3L), BgL_siza7ezd2framez75_14950);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16460;

									BgL_objz00_16460 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16458, BgL_objz00_16460);
									BgL_objz00_16460;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3573z00_16461;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3575z00_16462;

										BgL_arg3575z00_16462 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14948))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16463;

											BgL_newz00_16463 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_29619;

												BgL_tmpz00_29619 = (int) (3L);
												STRUCT_SET(BgL_newz00_16463, BgL_tmpz00_29619,
													BgL_arg3575z00_16462);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_29622;

												BgL_tmpz00_29622 = (int) (2L);
												STRUCT_SET(BgL_newz00_16463, BgL_tmpz00_29622,
													BgL_siza7ezd2framez75_14950);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_29625;

												BgL_tmpz00_29625 = (int) (1L);
												STRUCT_SET(BgL_newz00_16463, BgL_tmpz00_29625,
													BgL_runz00_16458);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												obj_t BgL_auxz00_29630;
												int BgL_tmpz00_29628;

												BgL_auxz00_29630 = BINT((-2L));
												BgL_tmpz00_29628 = (int) (0L);
												STRUCT_SET(BgL_newz00_16463, BgL_tmpz00_29628,
													BgL_auxz00_29630);
											}
											BgL_arg3573z00_16461 = BgL_newz00_16463;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16459, BgL_arg3573z00_16461);
									BgL_arg3573z00_16461;
								}
								return BgL_mainz00_16459;
							}
						}
					}
				}
			}
		}

	}



/* &main4525 */
	obj_t BGl_z62main4525z62zz__evaluate_compz00(obj_t BgL_envz00_14952,
		obj_t BgL_dz00_14957, obj_t BgL_lastz00_14958)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_runz00_14955;
				long BgL_siza7ezd2framez75_14956;

				BgL_runz00_14955 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14952, (int) (2L)));
				BgL_siza7ezd2framez75_14956 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_14952, (int) (3L)));
				return
					BGl_mainze719ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_14956,
					BgL_runz00_14955, BgL_dz00_14957, BgL_lastz00_14958);
			}
		}

	}



/* main~19 */
	obj_t BGl_mainze719ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15621,
		obj_t BgL_runz00_15620, obj_t BgL_dz00_4787, obj_t BgL_lastz00_4788)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_4790;

				BgL_sz00_4790 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_4791;

					BgL_bpz00_4791 = VECTOR_REF(((obj_t) BgL_sz00_4790), 0L);
					if (
						(((long) CINT(BgL_bpz00_4791) + BgL_siza7ezd2framez75_15621) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_4790))))
						{	/* Eval/evaluate_comp.scm 1181 */
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3578z00_4793;

								BgL_arg3578z00_4793 = ((long) CINT(BgL_bpz00_4791) + 0L);
								VECTOR_SET(
									((obj_t) BgL_sz00_4790), BgL_arg3578z00_4793, BgL_dz00_4787);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3580z00_4794;

								BgL_arg3580z00_4794 = ((long) CINT(BgL_bpz00_4791) + 1L);
								VECTOR_SET(
									((obj_t) BgL_sz00_4790), BgL_arg3580z00_4794,
									BgL_lastz00_4788);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_ez00_4795;

								BgL_ez00_4795 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4321z00_11485;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4322z00_11486;

										BgL_arg4322z00_11486 = BGL_EXITD_PROTECT(BgL_ez00_4795);
										BgL_arg4321z00_11485 =
											MAKE_YOUNG_PAIR(BgL_bpz00_4791, BgL_arg4322z00_11486);
									}
									BGL_EXITD_PROTECT_SET(BgL_ez00_4795, BgL_arg4321z00_11485);
									BUNSPEC;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_accz00_4796;

									BgL_accz00_4796 =
										BGl_catchzd2trampolinezd2zz__evaluate_compz00
										(BgL_runz00_15620, BgL_sz00_4790, BgL_bpz00_4791);
									{	/* Eval/evaluate_comp.scm 1181 */
										bool_t BgL_test5596z00_29663;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4320z00_11488;

											BgL_arg4320z00_11488 = BGL_EXITD_PROTECT(BgL_ez00_4795);
											BgL_test5596z00_29663 = PAIRP(BgL_arg4320z00_11488);
										}
										if (BgL_test5596z00_29663)
											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4318z00_11489;

												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4319z00_11490;

													BgL_arg4319z00_11490 =
														BGL_EXITD_PROTECT(BgL_ez00_4795);
													BgL_arg4318z00_11489 =
														CDR(((obj_t) BgL_arg4319z00_11490));
												}
												BGL_EXITD_PROTECT_SET(BgL_ez00_4795,
													BgL_arg4318z00_11489);
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 1181 */
												BFALSE;
											}
									}
									VECTOR_SET(((obj_t) BgL_sz00_4790), 0L, BgL_bpz00_4791);
									return BgL_accz00_4796;
								}
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_4797;

							BgL_nsz00_4797 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_4797, 1L, BgL_sz00_4790);
							VECTOR_SET(BgL_nsz00_4797, 2L, BgL_dz00_4787);
							VECTOR_SET(BgL_nsz00_4797, 3L, BgL_lastz00_4788);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_4798;

								BgL_z12denvz12_4798 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_4798, BgL_nsz00_4797);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_4799;

									BgL_ez00_4799 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_11496;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_11497;

											BgL_arg4322z00_11497 = BGL_EXITD_PROTECT(BgL_ez00_4799);
											BgL_arg4321z00_11496 =
												MAKE_YOUNG_PAIR(BgL_sz00_4790, BgL_arg4322z00_11497);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_4799, BgL_arg4321z00_11496);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_4800;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_11498;

											BgL_savedzd2bpzd2_11498 = VECTOR_REF(BgL_nsz00_4797, 0L);
											VECTOR_SET(BgL_nsz00_4797, 0L, BINT(2L));
											{
												obj_t BgL_fz00_11502;

												BgL_fz00_11502 = BgL_runz00_15620;
											BgL_recz00_11501:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_11503;

													BgL_rz00_11503 =
														BGL_PROCEDURE_CALL1(BgL_fz00_11502, BgL_nsz00_4797);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5597z00_29689;

														if (PROCEDUREP(BgL_rz00_11503))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_11506;

																BgL_arg1759z00_11506 =
																	PROCEDURE_ATTR(BgL_rz00_11503);
																if (STRUCTP(BgL_arg1759z00_11506))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5597z00_29689 =
																			(STRUCT_KEY(BgL_arg1759z00_11506) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5597z00_29689 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5597z00_29689 = ((bool_t) 0);
															}
														if (BgL_test5597z00_29689)
															{
																obj_t BgL_fz00_29697;

																BgL_fz00_29697 = BgL_rz00_11503;
																BgL_fz00_11502 = BgL_fz00_29697;
																goto BgL_recz00_11501;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_4797, 0L,
																	BgL_savedzd2bpzd2_11498);
																BgL_____rz00_4800 = BgL_rz00_11503;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5600z00_29699;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_11514;

												BgL_arg4320z00_11514 = BGL_EXITD_PROTECT(BgL_ez00_4799);
												BgL_test5600z00_29699 = PAIRP(BgL_arg4320z00_11514);
											}
											if (BgL_test5600z00_29699)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_11515;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_11516;

														BgL_arg4319z00_11516 =
															BGL_EXITD_PROTECT(BgL_ez00_4799);
														BgL_arg4318z00_11515 =
															CDR(((obj_t) BgL_arg4319z00_11516));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_4799,
														BgL_arg4318z00_11515);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_4798, BgL_sz00_4790);
										return BgL_____rz00_4800;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4526 */
	obj_t BGl_z62run4526z62zz__evaluate_compz00(obj_t BgL_envz00_14959,
		obj_t BgL_sz00_14962)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				BgL_ev_absz00_bglt BgL_i1255z00_14960;
				obj_t BgL_bodyz00_14961;

				BgL_i1255z00_14960 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14959, (int) (0L)));
				BgL_bodyz00_14961 = PROCEDURE_REF(BgL_envz00_14959, (int) (1L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16464;

					BgL_bpz00_16464 = VECTOR_REF(((obj_t) BgL_sz00_14962), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_z12denvz12_16465;
						obj_t BgL_wherez00_16466;
						obj_t BgL_locz00_16467;

						BgL_z12denvz12_16465 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16466 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14960))->
							BgL_wherez00);
						BgL_locz00_16467 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14960))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1181 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16465, BgL_wherez00_16466,
								BgL_locz00_16467);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_za2za2resza2za2z00_16468;

								BgL_za2za2resza2za2z00_16468 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_14961, BgL_sz00_14962);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16465);
								return BgL_za2za2resza2za2z00_16468;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3582> */
	obj_t BGl_z62zc3z04anonymousza33582ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14963, obj_t BgL_sz00_14968)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_iboxesz00_14964;
				BgL_ev_absz00_bglt BgL_i1255z00_14965;
				obj_t BgL_bodyz00_14966;
				obj_t BgL_siza7ezd2framez75_14967;

				BgL_iboxesz00_14964 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14963, (int) (0L)));
				BgL_i1255z00_14965 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14963, (int) (1L)));
				BgL_bodyz00_14966 = PROCEDURE_REF(BgL_envz00_14963, (int) (2L));
				BgL_siza7ezd2framez75_14967 =
					PROCEDURE_REF(BgL_envz00_14963, (int) (3L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16469;

					BgL_bpz00_16469 = VECTOR_REF(((obj_t) BgL_sz00_14968), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */

						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16470;

							BgL_runz00_16470 =
								MAKE_FX_PROCEDURE(BGl_z62run4528z62zz__evaluate_compz00,
								(int) (1L), (int) (3L));
							PROCEDURE_SET(BgL_runz00_16470, (int) (0L), BgL_iboxesz00_14964);
							PROCEDURE_SET(BgL_runz00_16470,
								(int) (1L), ((obj_t) BgL_i1255z00_14965));
							PROCEDURE_SET(BgL_runz00_16470, (int) (2L), BgL_bodyz00_14966);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16471;

								BgL_mainz00_16471 =
									MAKE_VA_PROCEDURE(BGl_z62main4527z62zz__evaluate_compz00,
									(int) ((-2L)), (int) (5L));
								PROCEDURE_SET(BgL_mainz00_16471,
									(int) (0L), BgL_iboxesz00_14964);
								PROCEDURE_SET(BgL_mainz00_16471,
									(int) (1L), ((obj_t) BgL_i1255z00_14965));
								PROCEDURE_SET(BgL_mainz00_16471, (int) (2L), BgL_bodyz00_14966);
								PROCEDURE_SET(BgL_mainz00_16471, (int) (3L), BgL_runz00_16470);
								PROCEDURE_SET(BgL_mainz00_16471,
									(int) (4L), BgL_siza7ezd2framez75_14967);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16472;

									BgL_objz00_16472 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16470, BgL_objz00_16472);
									BgL_objz00_16472;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3583z00_16473;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3584z00_16474;

										BgL_arg3584z00_16474 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14965))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16475;

											BgL_newz00_16475 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_29763;

												BgL_tmpz00_29763 = (int) (3L);
												STRUCT_SET(BgL_newz00_16475, BgL_tmpz00_29763,
													BgL_arg3584z00_16474);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_29766;

												BgL_tmpz00_29766 = (int) (2L);
												STRUCT_SET(BgL_newz00_16475, BgL_tmpz00_29766,
													BgL_siza7ezd2framez75_14967);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_29769;

												BgL_tmpz00_29769 = (int) (1L);
												STRUCT_SET(BgL_newz00_16475, BgL_tmpz00_29769,
													BgL_runz00_16470);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												obj_t BgL_auxz00_29774;
												int BgL_tmpz00_29772;

												BgL_auxz00_29774 = BINT((-2L));
												BgL_tmpz00_29772 = (int) (0L);
												STRUCT_SET(BgL_newz00_16475, BgL_tmpz00_29772,
													BgL_auxz00_29774);
											}
											BgL_arg3583z00_16473 = BgL_newz00_16475;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16471, BgL_arg3583z00_16473);
									BgL_arg3583z00_16473;
								}
								return BgL_mainz00_16471;
							}
						}
					}
				}
			}
		}

	}



/* &main4527 */
	obj_t BGl_z62main4527z62zz__evaluate_compz00(obj_t BgL_envz00_14969,
		obj_t BgL_dz00_14975, obj_t BgL_lastz00_14976)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_runz00_14973;
				long BgL_siza7ezd2framez75_14974;

				BgL_runz00_14973 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14969, (int) (3L)));
				BgL_siza7ezd2framez75_14974 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_14969, (int) (4L)));
				return
					BGl_mainze718ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_14974,
					BgL_runz00_14973, BgL_dz00_14975, BgL_lastz00_14976);
			}
		}

	}



/* main~18 */
	obj_t BGl_mainze718ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15619,
		obj_t BgL_runz00_15618, obj_t BgL_dz00_4817, obj_t BgL_lastz00_4818)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_4820;

				BgL_sz00_4820 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_4821;

					BgL_bpz00_4821 = VECTOR_REF(((obj_t) BgL_sz00_4820), 0L);
					if (
						(((long) CINT(BgL_bpz00_4821) + BgL_siza7ezd2framez75_15619) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_4820))))
						{	/* Eval/evaluate_comp.scm 1181 */
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3588z00_4823;

								BgL_arg3588z00_4823 = ((long) CINT(BgL_bpz00_4821) + 0L);
								VECTOR_SET(
									((obj_t) BgL_sz00_4820), BgL_arg3588z00_4823, BgL_dz00_4817);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3589z00_4824;

								BgL_arg3589z00_4824 = ((long) CINT(BgL_bpz00_4821) + 1L);
								VECTOR_SET(
									((obj_t) BgL_sz00_4820), BgL_arg3589z00_4824,
									BgL_lastz00_4818);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_ez00_4825;

								BgL_ez00_4825 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4321z00_11540;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4322z00_11541;

										BgL_arg4322z00_11541 = BGL_EXITD_PROTECT(BgL_ez00_4825);
										BgL_arg4321z00_11540 =
											MAKE_YOUNG_PAIR(BgL_bpz00_4821, BgL_arg4322z00_11541);
									}
									BGL_EXITD_PROTECT_SET(BgL_ez00_4825, BgL_arg4321z00_11540);
									BUNSPEC;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_accz00_4826;

									BgL_accz00_4826 =
										BGl_catchzd2trampolinezd2zz__evaluate_compz00
										(BgL_runz00_15618, BgL_sz00_4820, BgL_bpz00_4821);
									{	/* Eval/evaluate_comp.scm 1181 */
										bool_t BgL_test5602z00_29807;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4320z00_11543;

											BgL_arg4320z00_11543 = BGL_EXITD_PROTECT(BgL_ez00_4825);
											BgL_test5602z00_29807 = PAIRP(BgL_arg4320z00_11543);
										}
										if (BgL_test5602z00_29807)
											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4318z00_11544;

												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4319z00_11545;

													BgL_arg4319z00_11545 =
														BGL_EXITD_PROTECT(BgL_ez00_4825);
													BgL_arg4318z00_11544 =
														CDR(((obj_t) BgL_arg4319z00_11545));
												}
												BGL_EXITD_PROTECT_SET(BgL_ez00_4825,
													BgL_arg4318z00_11544);
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 1181 */
												BFALSE;
											}
									}
									VECTOR_SET(((obj_t) BgL_sz00_4820), 0L, BgL_bpz00_4821);
									return BgL_accz00_4826;
								}
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_4827;

							BgL_nsz00_4827 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_4827, 1L, BgL_sz00_4820);
							VECTOR_SET(BgL_nsz00_4827, 2L, BgL_dz00_4817);
							VECTOR_SET(BgL_nsz00_4827, 3L, BgL_lastz00_4818);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_4828;

								BgL_z12denvz12_4828 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_4828, BgL_nsz00_4827);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_4829;

									BgL_ez00_4829 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_11551;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_11552;

											BgL_arg4322z00_11552 = BGL_EXITD_PROTECT(BgL_ez00_4829);
											BgL_arg4321z00_11551 =
												MAKE_YOUNG_PAIR(BgL_sz00_4820, BgL_arg4322z00_11552);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_4829, BgL_arg4321z00_11551);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_4830;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_11553;

											BgL_savedzd2bpzd2_11553 = VECTOR_REF(BgL_nsz00_4827, 0L);
											VECTOR_SET(BgL_nsz00_4827, 0L, BINT(2L));
											{
												obj_t BgL_fz00_11557;

												BgL_fz00_11557 = BgL_runz00_15618;
											BgL_recz00_11556:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_11558;

													BgL_rz00_11558 =
														BGL_PROCEDURE_CALL1(BgL_fz00_11557, BgL_nsz00_4827);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5603z00_29833;

														if (PROCEDUREP(BgL_rz00_11558))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_11561;

																BgL_arg1759z00_11561 =
																	PROCEDURE_ATTR(BgL_rz00_11558);
																if (STRUCTP(BgL_arg1759z00_11561))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5603z00_29833 =
																			(STRUCT_KEY(BgL_arg1759z00_11561) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5603z00_29833 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5603z00_29833 = ((bool_t) 0);
															}
														if (BgL_test5603z00_29833)
															{
																obj_t BgL_fz00_29841;

																BgL_fz00_29841 = BgL_rz00_11558;
																BgL_fz00_11557 = BgL_fz00_29841;
																goto BgL_recz00_11556;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_4827, 0L,
																	BgL_savedzd2bpzd2_11553);
																BgL_____rz00_4830 = BgL_rz00_11558;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5606z00_29843;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_11569;

												BgL_arg4320z00_11569 = BGL_EXITD_PROTECT(BgL_ez00_4829);
												BgL_test5606z00_29843 = PAIRP(BgL_arg4320z00_11569);
											}
											if (BgL_test5606z00_29843)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_11570;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_11571;

														BgL_arg4319z00_11571 =
															BGL_EXITD_PROTECT(BgL_ez00_4829);
														BgL_arg4318z00_11570 =
															CDR(((obj_t) BgL_arg4319z00_11571));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_4829,
														BgL_arg4318z00_11570);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_4828, BgL_sz00_4820);
										return BgL_____rz00_4830;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4528 */
	obj_t BGl_z62run4528z62zz__evaluate_compz00(obj_t BgL_envz00_14977,
		obj_t BgL_sz00_14981)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_iboxesz00_14978;
				BgL_ev_absz00_bglt BgL_i1255z00_14979;
				obj_t BgL_bodyz00_14980;

				BgL_iboxesz00_14978 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14977, (int) (0L)));
				BgL_i1255z00_14979 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14977, (int) (1L)));
				BgL_bodyz00_14980 = PROCEDURE_REF(BgL_envz00_14977, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16476;

					BgL_bpz00_16476 = VECTOR_REF(((obj_t) BgL_sz00_14981), 0L);
					BGl_makezd2boxeszd2zz__evaluate_compz00(BgL_sz00_14981,
						BgL_iboxesz00_14978, BgL_bpz00_16476);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_z12denvz12_16477;
						obj_t BgL_wherez00_16478;
						obj_t BgL_locz00_16479;

						BgL_z12denvz12_16477 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16478 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14979))->
							BgL_wherez00);
						BgL_locz00_16479 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14979))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1181 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16477, BgL_wherez00_16478,
								BgL_locz00_16479);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_za2za2resza2za2z00_16480;

								BgL_za2za2resza2za2z00_16480 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_14980, BgL_sz00_14981);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16477);
								return BgL_za2za2resza2za2z00_16480;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3594> */
	obj_t BGl_z62zc3z04anonymousza33594ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_14982, obj_t BgL_sz00_14988)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_ifreesz00_14983;
				obj_t BgL_siza7eza7_14984;
				BgL_ev_absz00_bglt BgL_i1255z00_14985;
				obj_t BgL_bodyz00_14986;
				obj_t BgL_siza7ezd2framez75_14987;

				BgL_ifreesz00_14983 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14982, (int) (0L)));
				BgL_siza7eza7_14984 = PROCEDURE_REF(BgL_envz00_14982, (int) (1L));
				BgL_i1255z00_14985 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14982, (int) (2L)));
				BgL_bodyz00_14986 = PROCEDURE_REF(BgL_envz00_14982, (int) (3L));
				BgL_siza7ezd2framez75_14987 =
					PROCEDURE_REF(BgL_envz00_14982, (int) (4L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16481;

					BgL_bpz00_16481 = VECTOR_REF(((obj_t) BgL_sz00_14988), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_valza2za2_16482;

						BgL_valza2za2_16482 =
							BGl_freezd2collectzd2zz__evaluate_compz00(BgL_sz00_14988,
							BgL_bpz00_16481, BgL_ifreesz00_14983);
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16483;

							BgL_runz00_16483 =
								MAKE_FX_PROCEDURE(BGl_z62run4530z62zz__evaluate_compz00,
								(int) (1L), (int) (4L));
							PROCEDURE_SET(BgL_runz00_16483, (int) (0L), BgL_siza7eza7_14984);
							PROCEDURE_SET(BgL_runz00_16483, (int) (1L), BgL_valza2za2_16482);
							PROCEDURE_SET(BgL_runz00_16483,
								(int) (2L), ((obj_t) BgL_i1255z00_14985));
							PROCEDURE_SET(BgL_runz00_16483, (int) (3L), BgL_bodyz00_14986);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16484;

								BgL_mainz00_16484 =
									MAKE_VA_PROCEDURE(BGl_z62main4529z62zz__evaluate_compz00,
									(int) ((-2L)), (int) (6L));
								PROCEDURE_SET(BgL_mainz00_16484,
									(int) (0L), BgL_siza7eza7_14984);
								PROCEDURE_SET(BgL_mainz00_16484,
									(int) (1L), BgL_valza2za2_16482);
								PROCEDURE_SET(BgL_mainz00_16484,
									(int) (2L), ((obj_t) BgL_i1255z00_14985));
								PROCEDURE_SET(BgL_mainz00_16484, (int) (3L), BgL_bodyz00_14986);
								PROCEDURE_SET(BgL_mainz00_16484, (int) (4L), BgL_runz00_16483);
								PROCEDURE_SET(BgL_mainz00_16484,
									(int) (5L), BgL_siza7ezd2framez75_14987);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16485;

									BgL_objz00_16485 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16483, BgL_objz00_16485);
									BgL_objz00_16485;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3595z00_16486;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3596z00_16487;

										BgL_arg3596z00_16487 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_14985))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16488;

											BgL_newz00_16488 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_29918;

												BgL_tmpz00_29918 = (int) (3L);
												STRUCT_SET(BgL_newz00_16488, BgL_tmpz00_29918,
													BgL_arg3596z00_16487);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_29921;

												BgL_tmpz00_29921 = (int) (2L);
												STRUCT_SET(BgL_newz00_16488, BgL_tmpz00_29921,
													BgL_siza7ezd2framez75_14987);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_29924;

												BgL_tmpz00_29924 = (int) (1L);
												STRUCT_SET(BgL_newz00_16488, BgL_tmpz00_29924,
													BgL_runz00_16483);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												obj_t BgL_auxz00_29929;
												int BgL_tmpz00_29927;

												BgL_auxz00_29929 = BINT((-2L));
												BgL_tmpz00_29927 = (int) (0L);
												STRUCT_SET(BgL_newz00_16488, BgL_tmpz00_29927,
													BgL_auxz00_29929);
											}
											BgL_arg3595z00_16486 = BgL_newz00_16488;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16484, BgL_arg3595z00_16486);
									BgL_arg3595z00_16486;
								}
								return BgL_mainz00_16484;
							}
						}
					}
				}
			}
		}

	}



/* &main4529 */
	obj_t BGl_z62main4529z62zz__evaluate_compz00(obj_t BgL_envz00_14989,
		obj_t BgL_dz00_14996, obj_t BgL_lastz00_14997)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_runz00_14994;
				long BgL_siza7ezd2framez75_14995;

				BgL_runz00_14994 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14989, (int) (4L)));
				BgL_siza7ezd2framez75_14995 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_14989, (int) (5L)));
				return
					BGl_mainze717ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_14995,
					BgL_runz00_14994, BgL_dz00_14996, BgL_lastz00_14997);
			}
		}

	}



/* main~17 */
	obj_t BGl_mainze717ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15617,
		obj_t BgL_runz00_15616, obj_t BgL_dz00_4851, obj_t BgL_lastz00_4852)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_4854;

				BgL_sz00_4854 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_4855;

					BgL_bpz00_4855 = VECTOR_REF(((obj_t) BgL_sz00_4854), 0L);
					if (
						(((long) CINT(BgL_bpz00_4855) + BgL_siza7ezd2framez75_15617) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_4854))))
						{	/* Eval/evaluate_comp.scm 1181 */
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3599z00_4857;

								BgL_arg3599z00_4857 = ((long) CINT(BgL_bpz00_4855) + 0L);
								VECTOR_SET(
									((obj_t) BgL_sz00_4854), BgL_arg3599z00_4857, BgL_dz00_4851);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3600z00_4858;

								BgL_arg3600z00_4858 = ((long) CINT(BgL_bpz00_4855) + 1L);
								VECTOR_SET(
									((obj_t) BgL_sz00_4854), BgL_arg3600z00_4858,
									BgL_lastz00_4852);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_ez00_4859;

								BgL_ez00_4859 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4321z00_11599;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4322z00_11600;

										BgL_arg4322z00_11600 = BGL_EXITD_PROTECT(BgL_ez00_4859);
										BgL_arg4321z00_11599 =
											MAKE_YOUNG_PAIR(BgL_bpz00_4855, BgL_arg4322z00_11600);
									}
									BGL_EXITD_PROTECT_SET(BgL_ez00_4859, BgL_arg4321z00_11599);
									BUNSPEC;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_accz00_4860;

									BgL_accz00_4860 =
										BGl_catchzd2trampolinezd2zz__evaluate_compz00
										(BgL_runz00_15616, BgL_sz00_4854, BgL_bpz00_4855);
									{	/* Eval/evaluate_comp.scm 1181 */
										bool_t BgL_test5608z00_29962;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4320z00_11602;

											BgL_arg4320z00_11602 = BGL_EXITD_PROTECT(BgL_ez00_4859);
											BgL_test5608z00_29962 = PAIRP(BgL_arg4320z00_11602);
										}
										if (BgL_test5608z00_29962)
											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4318z00_11603;

												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4319z00_11604;

													BgL_arg4319z00_11604 =
														BGL_EXITD_PROTECT(BgL_ez00_4859);
													BgL_arg4318z00_11603 =
														CDR(((obj_t) BgL_arg4319z00_11604));
												}
												BGL_EXITD_PROTECT_SET(BgL_ez00_4859,
													BgL_arg4318z00_11603);
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 1181 */
												BFALSE;
											}
									}
									VECTOR_SET(((obj_t) BgL_sz00_4854), 0L, BgL_bpz00_4855);
									return BgL_accz00_4860;
								}
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_4861;

							BgL_nsz00_4861 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_4861, 1L, BgL_sz00_4854);
							VECTOR_SET(BgL_nsz00_4861, 2L, BgL_dz00_4851);
							VECTOR_SET(BgL_nsz00_4861, 3L, BgL_lastz00_4852);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_4862;

								BgL_z12denvz12_4862 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_4862, BgL_nsz00_4861);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_4863;

									BgL_ez00_4863 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_11610;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_11611;

											BgL_arg4322z00_11611 = BGL_EXITD_PROTECT(BgL_ez00_4863);
											BgL_arg4321z00_11610 =
												MAKE_YOUNG_PAIR(BgL_sz00_4854, BgL_arg4322z00_11611);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_4863, BgL_arg4321z00_11610);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_4864;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_11612;

											BgL_savedzd2bpzd2_11612 = VECTOR_REF(BgL_nsz00_4861, 0L);
											VECTOR_SET(BgL_nsz00_4861, 0L, BINT(2L));
											{
												obj_t BgL_fz00_11616;

												BgL_fz00_11616 = BgL_runz00_15616;
											BgL_recz00_11615:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_11617;

													BgL_rz00_11617 =
														BGL_PROCEDURE_CALL1(BgL_fz00_11616, BgL_nsz00_4861);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5609z00_29988;

														if (PROCEDUREP(BgL_rz00_11617))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_11620;

																BgL_arg1759z00_11620 =
																	PROCEDURE_ATTR(BgL_rz00_11617);
																if (STRUCTP(BgL_arg1759z00_11620))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5609z00_29988 =
																			(STRUCT_KEY(BgL_arg1759z00_11620) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5609z00_29988 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5609z00_29988 = ((bool_t) 0);
															}
														if (BgL_test5609z00_29988)
															{
																obj_t BgL_fz00_29996;

																BgL_fz00_29996 = BgL_rz00_11617;
																BgL_fz00_11616 = BgL_fz00_29996;
																goto BgL_recz00_11615;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_4861, 0L,
																	BgL_savedzd2bpzd2_11612);
																BgL_____rz00_4864 = BgL_rz00_11617;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5612z00_29998;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_11628;

												BgL_arg4320z00_11628 = BGL_EXITD_PROTECT(BgL_ez00_4863);
												BgL_test5612z00_29998 = PAIRP(BgL_arg4320z00_11628);
											}
											if (BgL_test5612z00_29998)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_11629;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_11630;

														BgL_arg4319z00_11630 =
															BGL_EXITD_PROTECT(BgL_ez00_4863);
														BgL_arg4318z00_11629 =
															CDR(((obj_t) BgL_arg4319z00_11630));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_4863,
														BgL_arg4318z00_11629);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_4862, BgL_sz00_4854);
										return BgL_____rz00_4864;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4530 */
	obj_t BGl_z62run4530z62zz__evaluate_compz00(obj_t BgL_envz00_14998,
		obj_t BgL_sz00_15003)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				long BgL_siza7eza7_14999;
				obj_t BgL_valza2za2_15000;
				BgL_ev_absz00_bglt BgL_i1255z00_15001;
				obj_t BgL_bodyz00_15002;

				BgL_siza7eza7_14999 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_14998, (int) (0L)));
				BgL_valza2za2_15000 =
					((obj_t) PROCEDURE_REF(BgL_envz00_14998, (int) (1L)));
				BgL_i1255z00_15001 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_14998, (int) (2L)));
				BgL_bodyz00_15002 = PROCEDURE_REF(BgL_envz00_14998, (int) (3L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16489;

					BgL_bpz00_16489 = VECTOR_REF(((obj_t) BgL_sz00_15003), 0L);
					BGl_freezd2restorezd2zz__evaluate_compz00(BgL_sz00_15003,
						BgL_valza2za2_15000,
						((long) CINT(BgL_bpz00_16489) + BgL_siza7eza7_14999));
					{	/* Eval/evaluate_comp.scm 1102 */
						obj_t BgL_z12denvz12_16490;
						obj_t BgL_wherez00_16491;
						obj_t BgL_locz00_16492;

						BgL_z12denvz12_16490 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16491 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15001))->
							BgL_wherez00);
						BgL_locz00_16492 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15001))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1102 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16490, BgL_wherez00_16491,
								BgL_locz00_16492);
							{	/* Eval/evaluate_comp.scm 1102 */
								obj_t BgL_za2za2resza2za2z00_16493;

								BgL_za2za2resza2za2z00_16493 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_15002, BgL_sz00_15003);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16490);
								return BgL_za2za2resza2za2z00_16493;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3603> */
	obj_t BGl_z62zc3z04anonymousza33603ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15004, obj_t BgL_sz00_15011)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_ifreesz00_15005;
				obj_t BgL_iboxesz00_15006;
				obj_t BgL_siza7eza7_15007;
				BgL_ev_absz00_bglt BgL_i1255z00_15008;
				obj_t BgL_bodyz00_15009;
				obj_t BgL_siza7ezd2framez75_15010;

				BgL_ifreesz00_15005 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15004, (int) (0L)));
				BgL_iboxesz00_15006 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15004, (int) (1L)));
				BgL_siza7eza7_15007 = PROCEDURE_REF(BgL_envz00_15004, (int) (2L));
				BgL_i1255z00_15008 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_15004, (int) (3L)));
				BgL_bodyz00_15009 = PROCEDURE_REF(BgL_envz00_15004, (int) (4L));
				BgL_siza7ezd2framez75_15010 =
					PROCEDURE_REF(BgL_envz00_15004, (int) (5L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16494;

					BgL_bpz00_16494 = VECTOR_REF(((obj_t) BgL_sz00_15011), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_valza2za2_16495;

						BgL_valza2za2_16495 =
							BGl_freezd2collectzd2zz__evaluate_compz00(BgL_sz00_15011,
							BgL_bpz00_16494, BgL_ifreesz00_15005);
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16496;

							BgL_runz00_16496 =
								MAKE_FX_PROCEDURE(BGl_z62run4532z62zz__evaluate_compz00,
								(int) (1L), (int) (5L));
							PROCEDURE_SET(BgL_runz00_16496, (int) (0L), BgL_iboxesz00_15006);
							PROCEDURE_SET(BgL_runz00_16496, (int) (1L), BgL_siza7eza7_15007);
							PROCEDURE_SET(BgL_runz00_16496, (int) (2L), BgL_valza2za2_16495);
							PROCEDURE_SET(BgL_runz00_16496,
								(int) (3L), ((obj_t) BgL_i1255z00_15008));
							PROCEDURE_SET(BgL_runz00_16496, (int) (4L), BgL_bodyz00_15009);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16497;

								BgL_mainz00_16497 =
									MAKE_VA_PROCEDURE(BGl_z62main4531z62zz__evaluate_compz00,
									(int) ((-2L)), (int) (7L));
								PROCEDURE_SET(BgL_mainz00_16497,
									(int) (0L), BgL_iboxesz00_15006);
								PROCEDURE_SET(BgL_mainz00_16497,
									(int) (1L), BgL_siza7eza7_15007);
								PROCEDURE_SET(BgL_mainz00_16497,
									(int) (2L), BgL_valza2za2_16495);
								PROCEDURE_SET(BgL_mainz00_16497,
									(int) (3L), ((obj_t) BgL_i1255z00_15008));
								PROCEDURE_SET(BgL_mainz00_16497, (int) (4L), BgL_bodyz00_15009);
								PROCEDURE_SET(BgL_mainz00_16497, (int) (5L), BgL_runz00_16496);
								PROCEDURE_SET(BgL_mainz00_16497,
									(int) (6L), BgL_siza7ezd2framez75_15010);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16498;

									BgL_objz00_16498 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16496, BgL_objz00_16498);
									BgL_objz00_16498;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3604z00_16499;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3605z00_16500;

										BgL_arg3605z00_16500 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15008))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16501;

											BgL_newz00_16501 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_30085;

												BgL_tmpz00_30085 = (int) (3L);
												STRUCT_SET(BgL_newz00_16501, BgL_tmpz00_30085,
													BgL_arg3605z00_16500);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_30088;

												BgL_tmpz00_30088 = (int) (2L);
												STRUCT_SET(BgL_newz00_16501, BgL_tmpz00_30088,
													BgL_siza7ezd2framez75_15010);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_30091;

												BgL_tmpz00_30091 = (int) (1L);
												STRUCT_SET(BgL_newz00_16501, BgL_tmpz00_30091,
													BgL_runz00_16496);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												obj_t BgL_auxz00_30096;
												int BgL_tmpz00_30094;

												BgL_auxz00_30096 = BINT((-2L));
												BgL_tmpz00_30094 = (int) (0L);
												STRUCT_SET(BgL_newz00_16501, BgL_tmpz00_30094,
													BgL_auxz00_30096);
											}
											BgL_arg3604z00_16499 = BgL_newz00_16501;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16497, BgL_arg3604z00_16499);
									BgL_arg3604z00_16499;
								}
								return BgL_mainz00_16497;
							}
						}
					}
				}
			}
		}

	}



/* &main4531 */
	obj_t BGl_z62main4531z62zz__evaluate_compz00(obj_t BgL_envz00_15012,
		obj_t BgL_dz00_15020, obj_t BgL_lastz00_15021)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_runz00_15018;
				long BgL_siza7ezd2framez75_15019;

				BgL_runz00_15018 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15012, (int) (5L)));
				BgL_siza7ezd2framez75_15019 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_15012, (int) (6L)));
				return
					BGl_mainze716ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_15019,
					BgL_runz00_15018, BgL_dz00_15020, BgL_lastz00_15021);
			}
		}

	}



/* main~16 */
	obj_t BGl_mainze716ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15615,
		obj_t BgL_runz00_15614, obj_t BgL_dz00_4883, obj_t BgL_lastz00_4884)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_4886;

				BgL_sz00_4886 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_4887;

					BgL_bpz00_4887 = VECTOR_REF(((obj_t) BgL_sz00_4886), 0L);
					if (
						(((long) CINT(BgL_bpz00_4887) + BgL_siza7ezd2framez75_15615) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_4886))))
						{	/* Eval/evaluate_comp.scm 1181 */
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3608z00_4889;

								BgL_arg3608z00_4889 = ((long) CINT(BgL_bpz00_4887) + 0L);
								VECTOR_SET(
									((obj_t) BgL_sz00_4886), BgL_arg3608z00_4889, BgL_dz00_4883);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3609z00_4890;

								BgL_arg3609z00_4890 = ((long) CINT(BgL_bpz00_4887) + 1L);
								VECTOR_SET(
									((obj_t) BgL_sz00_4886), BgL_arg3609z00_4890,
									BgL_lastz00_4884);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_ez00_4891;

								BgL_ez00_4891 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4321z00_11656;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4322z00_11657;

										BgL_arg4322z00_11657 = BGL_EXITD_PROTECT(BgL_ez00_4891);
										BgL_arg4321z00_11656 =
											MAKE_YOUNG_PAIR(BgL_bpz00_4887, BgL_arg4322z00_11657);
									}
									BGL_EXITD_PROTECT_SET(BgL_ez00_4891, BgL_arg4321z00_11656);
									BUNSPEC;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_accz00_4892;

									BgL_accz00_4892 =
										BGl_catchzd2trampolinezd2zz__evaluate_compz00
										(BgL_runz00_15614, BgL_sz00_4886, BgL_bpz00_4887);
									{	/* Eval/evaluate_comp.scm 1181 */
										bool_t BgL_test5614z00_30129;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4320z00_11659;

											BgL_arg4320z00_11659 = BGL_EXITD_PROTECT(BgL_ez00_4891);
											BgL_test5614z00_30129 = PAIRP(BgL_arg4320z00_11659);
										}
										if (BgL_test5614z00_30129)
											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4318z00_11660;

												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4319z00_11661;

													BgL_arg4319z00_11661 =
														BGL_EXITD_PROTECT(BgL_ez00_4891);
													BgL_arg4318z00_11660 =
														CDR(((obj_t) BgL_arg4319z00_11661));
												}
												BGL_EXITD_PROTECT_SET(BgL_ez00_4891,
													BgL_arg4318z00_11660);
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 1181 */
												BFALSE;
											}
									}
									VECTOR_SET(((obj_t) BgL_sz00_4886), 0L, BgL_bpz00_4887);
									return BgL_accz00_4892;
								}
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_4893;

							BgL_nsz00_4893 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_4893, 1L, BgL_sz00_4886);
							VECTOR_SET(BgL_nsz00_4893, 2L, BgL_dz00_4883);
							VECTOR_SET(BgL_nsz00_4893, 3L, BgL_lastz00_4884);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_4894;

								BgL_z12denvz12_4894 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_4894, BgL_nsz00_4893);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_4895;

									BgL_ez00_4895 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_11667;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_11668;

											BgL_arg4322z00_11668 = BGL_EXITD_PROTECT(BgL_ez00_4895);
											BgL_arg4321z00_11667 =
												MAKE_YOUNG_PAIR(BgL_sz00_4886, BgL_arg4322z00_11668);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_4895, BgL_arg4321z00_11667);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_4896;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_11669;

											BgL_savedzd2bpzd2_11669 = VECTOR_REF(BgL_nsz00_4893, 0L);
											VECTOR_SET(BgL_nsz00_4893, 0L, BINT(2L));
											{
												obj_t BgL_fz00_11673;

												BgL_fz00_11673 = BgL_runz00_15614;
											BgL_recz00_11672:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_11674;

													BgL_rz00_11674 =
														BGL_PROCEDURE_CALL1(BgL_fz00_11673, BgL_nsz00_4893);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5615z00_30155;

														if (PROCEDUREP(BgL_rz00_11674))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_11677;

																BgL_arg1759z00_11677 =
																	PROCEDURE_ATTR(BgL_rz00_11674);
																if (STRUCTP(BgL_arg1759z00_11677))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5615z00_30155 =
																			(STRUCT_KEY(BgL_arg1759z00_11677) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5615z00_30155 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5615z00_30155 = ((bool_t) 0);
															}
														if (BgL_test5615z00_30155)
															{
																obj_t BgL_fz00_30163;

																BgL_fz00_30163 = BgL_rz00_11674;
																BgL_fz00_11673 = BgL_fz00_30163;
																goto BgL_recz00_11672;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_4893, 0L,
																	BgL_savedzd2bpzd2_11669);
																BgL_____rz00_4896 = BgL_rz00_11674;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5618z00_30165;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_11685;

												BgL_arg4320z00_11685 = BGL_EXITD_PROTECT(BgL_ez00_4895);
												BgL_test5618z00_30165 = PAIRP(BgL_arg4320z00_11685);
											}
											if (BgL_test5618z00_30165)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_11686;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_11687;

														BgL_arg4319z00_11687 =
															BGL_EXITD_PROTECT(BgL_ez00_4895);
														BgL_arg4318z00_11686 =
															CDR(((obj_t) BgL_arg4319z00_11687));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_4895,
														BgL_arg4318z00_11686);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_4894, BgL_sz00_4886);
										return BgL_____rz00_4896;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4532 */
	obj_t BGl_z62run4532z62zz__evaluate_compz00(obj_t BgL_envz00_15022,
		obj_t BgL_sz00_15028)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_iboxesz00_15023;
				long BgL_siza7eza7_15024;
				obj_t BgL_valza2za2_15025;
				BgL_ev_absz00_bglt BgL_i1255z00_15026;
				obj_t BgL_bodyz00_15027;

				BgL_iboxesz00_15023 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15022, (int) (0L)));
				BgL_siza7eza7_15024 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_15022, (int) (1L)));
				BgL_valza2za2_15025 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15022, (int) (2L)));
				BgL_i1255z00_15026 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_15022, (int) (3L)));
				BgL_bodyz00_15027 = PROCEDURE_REF(BgL_envz00_15022, (int) (4L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16502;

					BgL_bpz00_16502 = VECTOR_REF(((obj_t) BgL_sz00_15028), 0L);
					BGl_makezd2boxeszd2zz__evaluate_compz00(BgL_sz00_15028,
						BgL_iboxesz00_15023, BgL_bpz00_16502);
					BGl_freezd2restorezd2zz__evaluate_compz00(BgL_sz00_15028,
						BgL_valza2za2_15025,
						((long) CINT(BgL_bpz00_16502) + BgL_siza7eza7_15024));
					{	/* Eval/evaluate_comp.scm 1102 */
						obj_t BgL_z12denvz12_16503;
						obj_t BgL_wherez00_16504;
						obj_t BgL_locz00_16505;

						BgL_z12denvz12_16503 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16504 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15026))->
							BgL_wherez00);
						BgL_locz00_16505 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15026))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1102 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16503, BgL_wherez00_16504,
								BgL_locz00_16505);
							{	/* Eval/evaluate_comp.scm 1102 */
								obj_t BgL_za2za2resza2za2z00_16506;

								BgL_za2za2resza2za2z00_16506 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_15027, BgL_sz00_15028);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16503);
								return BgL_za2za2resza2za2z00_16506;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3527> */
	obj_t BGl_z62zc3z04anonymousza33527ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15029, obj_t BgL_sz00_15033)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				BgL_ev_absz00_bglt BgL_i1255z00_15030;
				obj_t BgL_bodyz00_15031;
				obj_t BgL_siza7ezd2framez75_15032;

				BgL_i1255z00_15030 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_15029, (int) (0L)));
				BgL_bodyz00_15031 = PROCEDURE_REF(BgL_envz00_15029, (int) (1L));
				BgL_siza7ezd2framez75_15032 =
					PROCEDURE_REF(BgL_envz00_15029, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16507;

					BgL_bpz00_16507 = VECTOR_REF(((obj_t) BgL_sz00_15033), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */

						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16508;

							BgL_runz00_16508 =
								MAKE_FX_PROCEDURE(BGl_z62run4534z62zz__evaluate_compz00,
								(int) (1L), (int) (2L));
							PROCEDURE_SET(BgL_runz00_16508,
								(int) (0L), ((obj_t) BgL_i1255z00_15030));
							PROCEDURE_SET(BgL_runz00_16508, (int) (1L), BgL_bodyz00_15031);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16509;

								BgL_mainz00_16509 =
									MAKE_FX_PROCEDURE(BGl_z62main4533z62zz__evaluate_compz00,
									(int) (1L), (int) (4L));
								PROCEDURE_SET(BgL_mainz00_16509,
									(int) (0L), ((obj_t) BgL_i1255z00_15030));
								PROCEDURE_SET(BgL_mainz00_16509, (int) (1L), BgL_bodyz00_15031);
								PROCEDURE_SET(BgL_mainz00_16509, (int) (2L), BgL_runz00_16508);
								PROCEDURE_SET(BgL_mainz00_16509,
									(int) (3L), BgL_siza7ezd2framez75_15032);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16510;

									BgL_objz00_16510 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16508, BgL_objz00_16510);
									BgL_objz00_16510;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3528z00_16511;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3529z00_16512;

										BgL_arg3529z00_16512 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15030))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16513;

											BgL_newz00_16513 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_30235;

												BgL_tmpz00_30235 = (int) (3L);
												STRUCT_SET(BgL_newz00_16513, BgL_tmpz00_30235,
													BgL_arg3529z00_16512);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_30238;

												BgL_tmpz00_30238 = (int) (2L);
												STRUCT_SET(BgL_newz00_16513, BgL_tmpz00_30238,
													BgL_siza7ezd2framez75_15032);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_30241;

												BgL_tmpz00_30241 = (int) (1L);
												STRUCT_SET(BgL_newz00_16513, BgL_tmpz00_30241,
													BgL_runz00_16508);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												obj_t BgL_auxz00_30246;
												int BgL_tmpz00_30244;

												BgL_auxz00_30246 = BINT(1L);
												BgL_tmpz00_30244 = (int) (0L);
												STRUCT_SET(BgL_newz00_16513, BgL_tmpz00_30244,
													BgL_auxz00_30246);
											}
											BgL_arg3528z00_16511 = BgL_newz00_16513;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16509, BgL_arg3528z00_16511);
									BgL_arg3528z00_16511;
								}
								return BgL_mainz00_16509;
							}
						}
					}
				}
			}
		}

	}



/* &main4533 */
	obj_t BGl_z62main4533z62zz__evaluate_compz00(obj_t BgL_envz00_15034,
		obj_t BgL_dz00_15039)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_runz00_15037;
				long BgL_siza7ezd2framez75_15038;

				BgL_runz00_15037 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15034, (int) (2L)));
				BgL_siza7ezd2framez75_15038 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_15034, (int) (3L)));
				return
					BGl_mainze715ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_15038,
					BgL_runz00_15037, BgL_dz00_15039);
			}
		}

	}



/* main~15 */
	obj_t BGl_mainze715ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15613,
		obj_t BgL_runz00_15612, obj_t BgL_dz00_4662)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_4664;

				BgL_sz00_4664 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_4665;

					BgL_bpz00_4665 = VECTOR_REF(((obj_t) BgL_sz00_4664), 0L);
					if (
						(((long) CINT(BgL_bpz00_4665) + BgL_siza7ezd2framez75_15613) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_4664))))
						{	/* Eval/evaluate_comp.scm 1181 */
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3532z00_4667;

								BgL_arg3532z00_4667 = ((long) CINT(BgL_bpz00_4665) + 0L);
								VECTOR_SET(
									((obj_t) BgL_sz00_4664), BgL_arg3532z00_4667, BgL_dz00_4662);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_ez00_4668;

								BgL_ez00_4668 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4321z00_11268;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4322z00_11269;

										BgL_arg4322z00_11269 = BGL_EXITD_PROTECT(BgL_ez00_4668);
										BgL_arg4321z00_11268 =
											MAKE_YOUNG_PAIR(BgL_bpz00_4665, BgL_arg4322z00_11269);
									}
									BGL_EXITD_PROTECT_SET(BgL_ez00_4668, BgL_arg4321z00_11268);
									BUNSPEC;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_accz00_4669;

									BgL_accz00_4669 =
										BGl_catchzd2trampolinezd2zz__evaluate_compz00
										(BgL_runz00_15612, BgL_sz00_4664, BgL_bpz00_4665);
									{	/* Eval/evaluate_comp.scm 1181 */
										bool_t BgL_test5620z00_30275;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4320z00_11271;

											BgL_arg4320z00_11271 = BGL_EXITD_PROTECT(BgL_ez00_4668);
											BgL_test5620z00_30275 = PAIRP(BgL_arg4320z00_11271);
										}
										if (BgL_test5620z00_30275)
											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4318z00_11272;

												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4319z00_11273;

													BgL_arg4319z00_11273 =
														BGL_EXITD_PROTECT(BgL_ez00_4668);
													BgL_arg4318z00_11272 =
														CDR(((obj_t) BgL_arg4319z00_11273));
												}
												BGL_EXITD_PROTECT_SET(BgL_ez00_4668,
													BgL_arg4318z00_11272);
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 1181 */
												BFALSE;
											}
									}
									VECTOR_SET(((obj_t) BgL_sz00_4664), 0L, BgL_bpz00_4665);
									return BgL_accz00_4669;
								}
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_4670;

							BgL_nsz00_4670 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_4670, 1L, BgL_sz00_4664);
							VECTOR_SET(BgL_nsz00_4670, 2L, BgL_dz00_4662);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_4671;

								BgL_z12denvz12_4671 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_4671, BgL_nsz00_4670);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_4672;

									BgL_ez00_4672 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_11278;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_11279;

											BgL_arg4322z00_11279 = BGL_EXITD_PROTECT(BgL_ez00_4672);
											BgL_arg4321z00_11278 =
												MAKE_YOUNG_PAIR(BgL_sz00_4664, BgL_arg4322z00_11279);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_4672, BgL_arg4321z00_11278);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_4673;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_11280;

											BgL_savedzd2bpzd2_11280 = VECTOR_REF(BgL_nsz00_4670, 0L);
											VECTOR_SET(BgL_nsz00_4670, 0L, BINT(2L));
											{
												obj_t BgL_fz00_11284;

												BgL_fz00_11284 = BgL_runz00_15612;
											BgL_recz00_11283:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_11285;

													BgL_rz00_11285 =
														BGL_PROCEDURE_CALL1(BgL_fz00_11284, BgL_nsz00_4670);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5621z00_30300;

														if (PROCEDUREP(BgL_rz00_11285))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_11288;

																BgL_arg1759z00_11288 =
																	PROCEDURE_ATTR(BgL_rz00_11285);
																if (STRUCTP(BgL_arg1759z00_11288))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5621z00_30300 =
																			(STRUCT_KEY(BgL_arg1759z00_11288) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5621z00_30300 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5621z00_30300 = ((bool_t) 0);
															}
														if (BgL_test5621z00_30300)
															{
																obj_t BgL_fz00_30308;

																BgL_fz00_30308 = BgL_rz00_11285;
																BgL_fz00_11284 = BgL_fz00_30308;
																goto BgL_recz00_11283;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_4670, 0L,
																	BgL_savedzd2bpzd2_11280);
																BgL_____rz00_4673 = BgL_rz00_11285;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5624z00_30310;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_11296;

												BgL_arg4320z00_11296 = BGL_EXITD_PROTECT(BgL_ez00_4672);
												BgL_test5624z00_30310 = PAIRP(BgL_arg4320z00_11296);
											}
											if (BgL_test5624z00_30310)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_11297;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_11298;

														BgL_arg4319z00_11298 =
															BGL_EXITD_PROTECT(BgL_ez00_4672);
														BgL_arg4318z00_11297 =
															CDR(((obj_t) BgL_arg4319z00_11298));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_4672,
														BgL_arg4318z00_11297);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_4671, BgL_sz00_4664);
										return BgL_____rz00_4673;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4534 */
	obj_t BGl_z62run4534z62zz__evaluate_compz00(obj_t BgL_envz00_15040,
		obj_t BgL_sz00_15043)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				BgL_ev_absz00_bglt BgL_i1255z00_15041;
				obj_t BgL_bodyz00_15042;

				BgL_i1255z00_15041 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_15040, (int) (0L)));
				BgL_bodyz00_15042 = PROCEDURE_REF(BgL_envz00_15040, (int) (1L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16514;

					BgL_bpz00_16514 = VECTOR_REF(((obj_t) BgL_sz00_15043), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_z12denvz12_16515;
						obj_t BgL_wherez00_16516;
						obj_t BgL_locz00_16517;

						BgL_z12denvz12_16515 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16516 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15041))->
							BgL_wherez00);
						BgL_locz00_16517 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15041))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1181 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16515, BgL_wherez00_16516,
								BgL_locz00_16517);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_za2za2resza2za2z00_16518;

								BgL_za2za2resza2za2z00_16518 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_15042, BgL_sz00_15043);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16515);
								return BgL_za2za2resza2za2z00_16518;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3534> */
	obj_t BGl_z62zc3z04anonymousza33534ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15044, obj_t BgL_sz00_15049)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_iboxesz00_15045;
				BgL_ev_absz00_bglt BgL_i1255z00_15046;
				obj_t BgL_bodyz00_15047;
				obj_t BgL_siza7ezd2framez75_15048;

				BgL_iboxesz00_15045 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15044, (int) (0L)));
				BgL_i1255z00_15046 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_15044, (int) (1L)));
				BgL_bodyz00_15047 = PROCEDURE_REF(BgL_envz00_15044, (int) (2L));
				BgL_siza7ezd2framez75_15048 =
					PROCEDURE_REF(BgL_envz00_15044, (int) (3L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16519;

					BgL_bpz00_16519 = VECTOR_REF(((obj_t) BgL_sz00_15049), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */

						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16520;

							BgL_runz00_16520 =
								MAKE_FX_PROCEDURE(BGl_z62run4536z62zz__evaluate_compz00,
								(int) (1L), (int) (3L));
							PROCEDURE_SET(BgL_runz00_16520, (int) (0L), BgL_iboxesz00_15045);
							PROCEDURE_SET(BgL_runz00_16520,
								(int) (1L), ((obj_t) BgL_i1255z00_15046));
							PROCEDURE_SET(BgL_runz00_16520, (int) (2L), BgL_bodyz00_15047);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16521;

								BgL_mainz00_16521 =
									MAKE_FX_PROCEDURE(BGl_z62main4535z62zz__evaluate_compz00,
									(int) (1L), (int) (5L));
								PROCEDURE_SET(BgL_mainz00_16521,
									(int) (0L), BgL_iboxesz00_15045);
								PROCEDURE_SET(BgL_mainz00_16521,
									(int) (1L), ((obj_t) BgL_i1255z00_15046));
								PROCEDURE_SET(BgL_mainz00_16521, (int) (2L), BgL_bodyz00_15047);
								PROCEDURE_SET(BgL_mainz00_16521, (int) (3L), BgL_runz00_16520);
								PROCEDURE_SET(BgL_mainz00_16521,
									(int) (4L), BgL_siza7ezd2framez75_15048);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16522;

									BgL_objz00_16522 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16520, BgL_objz00_16522);
									BgL_objz00_16522;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3535z00_16523;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3537z00_16524;

										BgL_arg3537z00_16524 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15046))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16525;

											BgL_newz00_16525 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_30374;

												BgL_tmpz00_30374 = (int) (3L);
												STRUCT_SET(BgL_newz00_16525, BgL_tmpz00_30374,
													BgL_arg3537z00_16524);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_30377;

												BgL_tmpz00_30377 = (int) (2L);
												STRUCT_SET(BgL_newz00_16525, BgL_tmpz00_30377,
													BgL_siza7ezd2framez75_15048);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_30380;

												BgL_tmpz00_30380 = (int) (1L);
												STRUCT_SET(BgL_newz00_16525, BgL_tmpz00_30380,
													BgL_runz00_16520);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												obj_t BgL_auxz00_30385;
												int BgL_tmpz00_30383;

												BgL_auxz00_30385 = BINT(1L);
												BgL_tmpz00_30383 = (int) (0L);
												STRUCT_SET(BgL_newz00_16525, BgL_tmpz00_30383,
													BgL_auxz00_30385);
											}
											BgL_arg3535z00_16523 = BgL_newz00_16525;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16521, BgL_arg3535z00_16523);
									BgL_arg3535z00_16523;
								}
								return BgL_mainz00_16521;
							}
						}
					}
				}
			}
		}

	}



/* &main4535 */
	obj_t BGl_z62main4535z62zz__evaluate_compz00(obj_t BgL_envz00_15050,
		obj_t BgL_dz00_15056)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_runz00_15054;
				long BgL_siza7ezd2framez75_15055;

				BgL_runz00_15054 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15050, (int) (3L)));
				BgL_siza7ezd2framez75_15055 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_15050, (int) (4L)));
				return
					BGl_mainze714ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_15055,
					BgL_runz00_15054, BgL_dz00_15056);
			}
		}

	}



/* main~14 */
	obj_t BGl_mainze714ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15611,
		obj_t BgL_runz00_15610, obj_t BgL_dz00_4690)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_4692;

				BgL_sz00_4692 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_4693;

					BgL_bpz00_4693 = VECTOR_REF(((obj_t) BgL_sz00_4692), 0L);
					if (
						(((long) CINT(BgL_bpz00_4693) + BgL_siza7ezd2framez75_15611) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_4692))))
						{	/* Eval/evaluate_comp.scm 1181 */
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3540z00_4695;

								BgL_arg3540z00_4695 = ((long) CINT(BgL_bpz00_4693) + 0L);
								VECTOR_SET(
									((obj_t) BgL_sz00_4692), BgL_arg3540z00_4695, BgL_dz00_4690);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_ez00_4696;

								BgL_ez00_4696 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4321z00_11319;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4322z00_11320;

										BgL_arg4322z00_11320 = BGL_EXITD_PROTECT(BgL_ez00_4696);
										BgL_arg4321z00_11319 =
											MAKE_YOUNG_PAIR(BgL_bpz00_4693, BgL_arg4322z00_11320);
									}
									BGL_EXITD_PROTECT_SET(BgL_ez00_4696, BgL_arg4321z00_11319);
									BUNSPEC;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_accz00_4697;

									BgL_accz00_4697 =
										BGl_catchzd2trampolinezd2zz__evaluate_compz00
										(BgL_runz00_15610, BgL_sz00_4692, BgL_bpz00_4693);
									{	/* Eval/evaluate_comp.scm 1181 */
										bool_t BgL_test5626z00_30414;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4320z00_11322;

											BgL_arg4320z00_11322 = BGL_EXITD_PROTECT(BgL_ez00_4696);
											BgL_test5626z00_30414 = PAIRP(BgL_arg4320z00_11322);
										}
										if (BgL_test5626z00_30414)
											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4318z00_11323;

												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4319z00_11324;

													BgL_arg4319z00_11324 =
														BGL_EXITD_PROTECT(BgL_ez00_4696);
													BgL_arg4318z00_11323 =
														CDR(((obj_t) BgL_arg4319z00_11324));
												}
												BGL_EXITD_PROTECT_SET(BgL_ez00_4696,
													BgL_arg4318z00_11323);
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 1181 */
												BFALSE;
											}
									}
									VECTOR_SET(((obj_t) BgL_sz00_4692), 0L, BgL_bpz00_4693);
									return BgL_accz00_4697;
								}
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_4698;

							BgL_nsz00_4698 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_4698, 1L, BgL_sz00_4692);
							VECTOR_SET(BgL_nsz00_4698, 2L, BgL_dz00_4690);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_4699;

								BgL_z12denvz12_4699 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_4699, BgL_nsz00_4698);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_4700;

									BgL_ez00_4700 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_11329;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_11330;

											BgL_arg4322z00_11330 = BGL_EXITD_PROTECT(BgL_ez00_4700);
											BgL_arg4321z00_11329 =
												MAKE_YOUNG_PAIR(BgL_sz00_4692, BgL_arg4322z00_11330);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_4700, BgL_arg4321z00_11329);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_4701;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_11331;

											BgL_savedzd2bpzd2_11331 = VECTOR_REF(BgL_nsz00_4698, 0L);
											VECTOR_SET(BgL_nsz00_4698, 0L, BINT(2L));
											{
												obj_t BgL_fz00_11335;

												BgL_fz00_11335 = BgL_runz00_15610;
											BgL_recz00_11334:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_11336;

													BgL_rz00_11336 =
														BGL_PROCEDURE_CALL1(BgL_fz00_11335, BgL_nsz00_4698);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5627z00_30439;

														if (PROCEDUREP(BgL_rz00_11336))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_11339;

																BgL_arg1759z00_11339 =
																	PROCEDURE_ATTR(BgL_rz00_11336);
																if (STRUCTP(BgL_arg1759z00_11339))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5627z00_30439 =
																			(STRUCT_KEY(BgL_arg1759z00_11339) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5627z00_30439 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5627z00_30439 = ((bool_t) 0);
															}
														if (BgL_test5627z00_30439)
															{
																obj_t BgL_fz00_30447;

																BgL_fz00_30447 = BgL_rz00_11336;
																BgL_fz00_11335 = BgL_fz00_30447;
																goto BgL_recz00_11334;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_4698, 0L,
																	BgL_savedzd2bpzd2_11331);
																BgL_____rz00_4701 = BgL_rz00_11336;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5630z00_30449;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_11347;

												BgL_arg4320z00_11347 = BGL_EXITD_PROTECT(BgL_ez00_4700);
												BgL_test5630z00_30449 = PAIRP(BgL_arg4320z00_11347);
											}
											if (BgL_test5630z00_30449)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_11348;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_11349;

														BgL_arg4319z00_11349 =
															BGL_EXITD_PROTECT(BgL_ez00_4700);
														BgL_arg4318z00_11348 =
															CDR(((obj_t) BgL_arg4319z00_11349));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_4700,
														BgL_arg4318z00_11348);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_4699, BgL_sz00_4692);
										return BgL_____rz00_4701;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4536 */
	obj_t BGl_z62run4536z62zz__evaluate_compz00(obj_t BgL_envz00_15057,
		obj_t BgL_sz00_15061)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_iboxesz00_15058;
				BgL_ev_absz00_bglt BgL_i1255z00_15059;
				obj_t BgL_bodyz00_15060;

				BgL_iboxesz00_15058 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15057, (int) (0L)));
				BgL_i1255z00_15059 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_15057, (int) (1L)));
				BgL_bodyz00_15060 = PROCEDURE_REF(BgL_envz00_15057, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16526;

					BgL_bpz00_16526 = VECTOR_REF(((obj_t) BgL_sz00_15061), 0L);
					BGl_makezd2boxeszd2zz__evaluate_compz00(BgL_sz00_15061,
						BgL_iboxesz00_15058, BgL_bpz00_16526);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_z12denvz12_16527;
						obj_t BgL_wherez00_16528;
						obj_t BgL_locz00_16529;

						BgL_z12denvz12_16527 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16528 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15059))->
							BgL_wherez00);
						BgL_locz00_16529 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15059))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1181 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16527, BgL_wherez00_16528,
								BgL_locz00_16529);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_za2za2resza2za2z00_16530;

								BgL_za2za2resza2za2z00_16530 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_15060, BgL_sz00_15061);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16527);
								return BgL_za2za2resza2za2z00_16530;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3545> */
	obj_t BGl_z62zc3z04anonymousza33545ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15062, obj_t BgL_sz00_15068)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_ifreesz00_15063;
				obj_t BgL_siza7eza7_15064;
				BgL_ev_absz00_bglt BgL_i1255z00_15065;
				obj_t BgL_bodyz00_15066;
				obj_t BgL_siza7ezd2framez75_15067;

				BgL_ifreesz00_15063 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15062, (int) (0L)));
				BgL_siza7eza7_15064 = PROCEDURE_REF(BgL_envz00_15062, (int) (1L));
				BgL_i1255z00_15065 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_15062, (int) (2L)));
				BgL_bodyz00_15066 = PROCEDURE_REF(BgL_envz00_15062, (int) (3L));
				BgL_siza7ezd2framez75_15067 =
					PROCEDURE_REF(BgL_envz00_15062, (int) (4L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16531;

					BgL_bpz00_16531 = VECTOR_REF(((obj_t) BgL_sz00_15068), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_valza2za2_16532;

						BgL_valza2za2_16532 =
							BGl_freezd2collectzd2zz__evaluate_compz00(BgL_sz00_15068,
							BgL_bpz00_16531, BgL_ifreesz00_15063);
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16533;

							BgL_runz00_16533 =
								MAKE_FX_PROCEDURE(BGl_z62run4538z62zz__evaluate_compz00,
								(int) (1L), (int) (4L));
							PROCEDURE_SET(BgL_runz00_16533, (int) (0L), BgL_siza7eza7_15064);
							PROCEDURE_SET(BgL_runz00_16533, (int) (1L), BgL_valza2za2_16532);
							PROCEDURE_SET(BgL_runz00_16533,
								(int) (2L), ((obj_t) BgL_i1255z00_15065));
							PROCEDURE_SET(BgL_runz00_16533, (int) (3L), BgL_bodyz00_15066);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16534;

								BgL_mainz00_16534 =
									MAKE_FX_PROCEDURE(BGl_z62main4537z62zz__evaluate_compz00,
									(int) (1L), (int) (6L));
								PROCEDURE_SET(BgL_mainz00_16534,
									(int) (0L), BgL_siza7eza7_15064);
								PROCEDURE_SET(BgL_mainz00_16534,
									(int) (1L), BgL_valza2za2_16532);
								PROCEDURE_SET(BgL_mainz00_16534,
									(int) (2L), ((obj_t) BgL_i1255z00_15065));
								PROCEDURE_SET(BgL_mainz00_16534, (int) (3L), BgL_bodyz00_15066);
								PROCEDURE_SET(BgL_mainz00_16534, (int) (4L), BgL_runz00_16533);
								PROCEDURE_SET(BgL_mainz00_16534,
									(int) (5L), BgL_siza7ezd2framez75_15067);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16535;

									BgL_objz00_16535 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16533, BgL_objz00_16535);
									BgL_objz00_16535;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3546z00_16536;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3548z00_16537;

										BgL_arg3548z00_16537 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15065))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16538;

											BgL_newz00_16538 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_30524;

												BgL_tmpz00_30524 = (int) (3L);
												STRUCT_SET(BgL_newz00_16538, BgL_tmpz00_30524,
													BgL_arg3548z00_16537);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_30527;

												BgL_tmpz00_30527 = (int) (2L);
												STRUCT_SET(BgL_newz00_16538, BgL_tmpz00_30527,
													BgL_siza7ezd2framez75_15067);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_30530;

												BgL_tmpz00_30530 = (int) (1L);
												STRUCT_SET(BgL_newz00_16538, BgL_tmpz00_30530,
													BgL_runz00_16533);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												obj_t BgL_auxz00_30535;
												int BgL_tmpz00_30533;

												BgL_auxz00_30535 = BINT(1L);
												BgL_tmpz00_30533 = (int) (0L);
												STRUCT_SET(BgL_newz00_16538, BgL_tmpz00_30533,
													BgL_auxz00_30535);
											}
											BgL_arg3546z00_16536 = BgL_newz00_16538;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16534, BgL_arg3546z00_16536);
									BgL_arg3546z00_16536;
								}
								return BgL_mainz00_16534;
							}
						}
					}
				}
			}
		}

	}



/* &main4537 */
	obj_t BGl_z62main4537z62zz__evaluate_compz00(obj_t BgL_envz00_15069,
		obj_t BgL_dz00_15076)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_runz00_15074;
				long BgL_siza7ezd2framez75_15075;

				BgL_runz00_15074 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15069, (int) (4L)));
				BgL_siza7ezd2framez75_15075 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_15069, (int) (5L)));
				return
					BGl_mainze713ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_15075,
					BgL_runz00_15074, BgL_dz00_15076);
			}
		}

	}



/* main~13 */
	obj_t BGl_mainze713ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15609,
		obj_t BgL_runz00_15608, obj_t BgL_dz00_4722)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_4724;

				BgL_sz00_4724 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_4725;

					BgL_bpz00_4725 = VECTOR_REF(((obj_t) BgL_sz00_4724), 0L);
					if (
						(((long) CINT(BgL_bpz00_4725) + BgL_siza7ezd2framez75_15609) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_4724))))
						{	/* Eval/evaluate_comp.scm 1181 */
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3552z00_4727;

								BgL_arg3552z00_4727 = ((long) CINT(BgL_bpz00_4725) + 0L);
								VECTOR_SET(
									((obj_t) BgL_sz00_4724), BgL_arg3552z00_4727, BgL_dz00_4722);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_ez00_4728;

								BgL_ez00_4728 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4321z00_11374;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4322z00_11375;

										BgL_arg4322z00_11375 = BGL_EXITD_PROTECT(BgL_ez00_4728);
										BgL_arg4321z00_11374 =
											MAKE_YOUNG_PAIR(BgL_bpz00_4725, BgL_arg4322z00_11375);
									}
									BGL_EXITD_PROTECT_SET(BgL_ez00_4728, BgL_arg4321z00_11374);
									BUNSPEC;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_accz00_4729;

									BgL_accz00_4729 =
										BGl_catchzd2trampolinezd2zz__evaluate_compz00
										(BgL_runz00_15608, BgL_sz00_4724, BgL_bpz00_4725);
									{	/* Eval/evaluate_comp.scm 1181 */
										bool_t BgL_test5632z00_30564;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4320z00_11377;

											BgL_arg4320z00_11377 = BGL_EXITD_PROTECT(BgL_ez00_4728);
											BgL_test5632z00_30564 = PAIRP(BgL_arg4320z00_11377);
										}
										if (BgL_test5632z00_30564)
											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4318z00_11378;

												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4319z00_11379;

													BgL_arg4319z00_11379 =
														BGL_EXITD_PROTECT(BgL_ez00_4728);
													BgL_arg4318z00_11378 =
														CDR(((obj_t) BgL_arg4319z00_11379));
												}
												BGL_EXITD_PROTECT_SET(BgL_ez00_4728,
													BgL_arg4318z00_11378);
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 1181 */
												BFALSE;
											}
									}
									VECTOR_SET(((obj_t) BgL_sz00_4724), 0L, BgL_bpz00_4725);
									return BgL_accz00_4729;
								}
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_4730;

							BgL_nsz00_4730 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_4730, 1L, BgL_sz00_4724);
							VECTOR_SET(BgL_nsz00_4730, 2L, BgL_dz00_4722);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_4731;

								BgL_z12denvz12_4731 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_4731, BgL_nsz00_4730);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_4732;

									BgL_ez00_4732 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_11384;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_11385;

											BgL_arg4322z00_11385 = BGL_EXITD_PROTECT(BgL_ez00_4732);
											BgL_arg4321z00_11384 =
												MAKE_YOUNG_PAIR(BgL_sz00_4724, BgL_arg4322z00_11385);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_4732, BgL_arg4321z00_11384);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_4733;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_11386;

											BgL_savedzd2bpzd2_11386 = VECTOR_REF(BgL_nsz00_4730, 0L);
											VECTOR_SET(BgL_nsz00_4730, 0L, BINT(2L));
											{
												obj_t BgL_fz00_11390;

												BgL_fz00_11390 = BgL_runz00_15608;
											BgL_recz00_11389:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_11391;

													BgL_rz00_11391 =
														BGL_PROCEDURE_CALL1(BgL_fz00_11390, BgL_nsz00_4730);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5633z00_30589;

														if (PROCEDUREP(BgL_rz00_11391))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_11394;

																BgL_arg1759z00_11394 =
																	PROCEDURE_ATTR(BgL_rz00_11391);
																if (STRUCTP(BgL_arg1759z00_11394))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5633z00_30589 =
																			(STRUCT_KEY(BgL_arg1759z00_11394) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5633z00_30589 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5633z00_30589 = ((bool_t) 0);
															}
														if (BgL_test5633z00_30589)
															{
																obj_t BgL_fz00_30597;

																BgL_fz00_30597 = BgL_rz00_11391;
																BgL_fz00_11390 = BgL_fz00_30597;
																goto BgL_recz00_11389;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_4730, 0L,
																	BgL_savedzd2bpzd2_11386);
																BgL_____rz00_4733 = BgL_rz00_11391;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5636z00_30599;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_11402;

												BgL_arg4320z00_11402 = BGL_EXITD_PROTECT(BgL_ez00_4732);
												BgL_test5636z00_30599 = PAIRP(BgL_arg4320z00_11402);
											}
											if (BgL_test5636z00_30599)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_11403;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_11404;

														BgL_arg4319z00_11404 =
															BGL_EXITD_PROTECT(BgL_ez00_4732);
														BgL_arg4318z00_11403 =
															CDR(((obj_t) BgL_arg4319z00_11404));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_4732,
														BgL_arg4318z00_11403);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_4731, BgL_sz00_4724);
										return BgL_____rz00_4733;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4538 */
	obj_t BGl_z62run4538z62zz__evaluate_compz00(obj_t BgL_envz00_15077,
		obj_t BgL_sz00_15082)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				long BgL_siza7eza7_15078;
				obj_t BgL_valza2za2_15079;
				BgL_ev_absz00_bglt BgL_i1255z00_15080;
				obj_t BgL_bodyz00_15081;

				BgL_siza7eza7_15078 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_15077, (int) (0L)));
				BgL_valza2za2_15079 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15077, (int) (1L)));
				BgL_i1255z00_15080 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_15077, (int) (2L)));
				BgL_bodyz00_15081 = PROCEDURE_REF(BgL_envz00_15077, (int) (3L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16539;

					BgL_bpz00_16539 = VECTOR_REF(((obj_t) BgL_sz00_15082), 0L);
					BGl_freezd2restorezd2zz__evaluate_compz00(BgL_sz00_15082,
						BgL_valza2za2_15079,
						((long) CINT(BgL_bpz00_16539) + BgL_siza7eza7_15078));
					{	/* Eval/evaluate_comp.scm 1102 */
						obj_t BgL_z12denvz12_16540;
						obj_t BgL_wherez00_16541;
						obj_t BgL_locz00_16542;

						BgL_z12denvz12_16540 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16541 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15080))->
							BgL_wherez00);
						BgL_locz00_16542 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15080))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1102 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16540, BgL_wherez00_16541,
								BgL_locz00_16542);
							{	/* Eval/evaluate_comp.scm 1102 */
								obj_t BgL_za2za2resza2za2z00_16543;

								BgL_za2za2resza2za2z00_16543 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_15081, BgL_sz00_15082);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16540);
								return BgL_za2za2resza2za2z00_16543;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3555> */
	obj_t BGl_z62zc3z04anonymousza33555ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15083, obj_t BgL_sz00_15090)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_ifreesz00_15084;
				obj_t BgL_iboxesz00_15085;
				obj_t BgL_siza7eza7_15086;
				BgL_ev_absz00_bglt BgL_i1255z00_15087;
				obj_t BgL_bodyz00_15088;
				obj_t BgL_siza7ezd2framez75_15089;

				BgL_ifreesz00_15084 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15083, (int) (0L)));
				BgL_iboxesz00_15085 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15083, (int) (1L)));
				BgL_siza7eza7_15086 = PROCEDURE_REF(BgL_envz00_15083, (int) (2L));
				BgL_i1255z00_15087 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_15083, (int) (3L)));
				BgL_bodyz00_15088 = PROCEDURE_REF(BgL_envz00_15083, (int) (4L));
				BgL_siza7ezd2framez75_15089 =
					PROCEDURE_REF(BgL_envz00_15083, (int) (5L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16544;

					BgL_bpz00_16544 = VECTOR_REF(((obj_t) BgL_sz00_15090), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_valza2za2_16545;

						BgL_valza2za2_16545 =
							BGl_freezd2collectzd2zz__evaluate_compz00(BgL_sz00_15090,
							BgL_bpz00_16544, BgL_ifreesz00_15084);
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16546;

							BgL_runz00_16546 =
								MAKE_FX_PROCEDURE(BGl_z62run4540z62zz__evaluate_compz00,
								(int) (1L), (int) (5L));
							PROCEDURE_SET(BgL_runz00_16546, (int) (0L), BgL_iboxesz00_15085);
							PROCEDURE_SET(BgL_runz00_16546, (int) (1L), BgL_siza7eza7_15086);
							PROCEDURE_SET(BgL_runz00_16546, (int) (2L), BgL_valza2za2_16545);
							PROCEDURE_SET(BgL_runz00_16546,
								(int) (3L), ((obj_t) BgL_i1255z00_15087));
							PROCEDURE_SET(BgL_runz00_16546, (int) (4L), BgL_bodyz00_15088);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16547;

								BgL_mainz00_16547 =
									MAKE_FX_PROCEDURE(BGl_z62main4539z62zz__evaluate_compz00,
									(int) (1L), (int) (7L));
								PROCEDURE_SET(BgL_mainz00_16547,
									(int) (0L), BgL_iboxesz00_15085);
								PROCEDURE_SET(BgL_mainz00_16547,
									(int) (1L), BgL_siza7eza7_15086);
								PROCEDURE_SET(BgL_mainz00_16547,
									(int) (2L), BgL_valza2za2_16545);
								PROCEDURE_SET(BgL_mainz00_16547,
									(int) (3L), ((obj_t) BgL_i1255z00_15087));
								PROCEDURE_SET(BgL_mainz00_16547, (int) (4L), BgL_bodyz00_15088);
								PROCEDURE_SET(BgL_mainz00_16547, (int) (5L), BgL_runz00_16546);
								PROCEDURE_SET(BgL_mainz00_16547,
									(int) (6L), BgL_siza7ezd2framez75_15089);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16548;

									BgL_objz00_16548 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16546, BgL_objz00_16548);
									BgL_objz00_16548;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3557z00_16549;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3558z00_16550;

										BgL_arg3558z00_16550 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15087))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16551;

											BgL_newz00_16551 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_30686;

												BgL_tmpz00_30686 = (int) (3L);
												STRUCT_SET(BgL_newz00_16551, BgL_tmpz00_30686,
													BgL_arg3558z00_16550);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_30689;

												BgL_tmpz00_30689 = (int) (2L);
												STRUCT_SET(BgL_newz00_16551, BgL_tmpz00_30689,
													BgL_siza7ezd2framez75_15089);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_30692;

												BgL_tmpz00_30692 = (int) (1L);
												STRUCT_SET(BgL_newz00_16551, BgL_tmpz00_30692,
													BgL_runz00_16546);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												obj_t BgL_auxz00_30697;
												int BgL_tmpz00_30695;

												BgL_auxz00_30697 = BINT(1L);
												BgL_tmpz00_30695 = (int) (0L);
												STRUCT_SET(BgL_newz00_16551, BgL_tmpz00_30695,
													BgL_auxz00_30697);
											}
											BgL_arg3557z00_16549 = BgL_newz00_16551;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16547, BgL_arg3557z00_16549);
									BgL_arg3557z00_16549;
								}
								return BgL_mainz00_16547;
							}
						}
					}
				}
			}
		}

	}



/* &main4539 */
	obj_t BGl_z62main4539z62zz__evaluate_compz00(obj_t BgL_envz00_15091,
		obj_t BgL_dz00_15099)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_runz00_15097;
				long BgL_siza7ezd2framez75_15098;

				BgL_runz00_15097 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15091, (int) (5L)));
				BgL_siza7ezd2framez75_15098 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_15091, (int) (6L)));
				return
					BGl_mainze712ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_15098,
					BgL_runz00_15097, BgL_dz00_15099);
			}
		}

	}



/* main~12 */
	obj_t BGl_mainze712ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15607,
		obj_t BgL_runz00_15606, obj_t BgL_dz00_4752)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_4754;

				BgL_sz00_4754 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_4755;

					BgL_bpz00_4755 = VECTOR_REF(((obj_t) BgL_sz00_4754), 0L);
					if (
						(((long) CINT(BgL_bpz00_4755) + BgL_siza7ezd2framez75_15607) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_4754))))
						{	/* Eval/evaluate_comp.scm 1181 */
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3561z00_4757;

								BgL_arg3561z00_4757 = ((long) CINT(BgL_bpz00_4755) + 0L);
								VECTOR_SET(
									((obj_t) BgL_sz00_4754), BgL_arg3561z00_4757, BgL_dz00_4752);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_ez00_4758;

								BgL_ez00_4758 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4321z00_11427;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4322z00_11428;

										BgL_arg4322z00_11428 = BGL_EXITD_PROTECT(BgL_ez00_4758);
										BgL_arg4321z00_11427 =
											MAKE_YOUNG_PAIR(BgL_bpz00_4755, BgL_arg4322z00_11428);
									}
									BGL_EXITD_PROTECT_SET(BgL_ez00_4758, BgL_arg4321z00_11427);
									BUNSPEC;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_accz00_4759;

									BgL_accz00_4759 =
										BGl_catchzd2trampolinezd2zz__evaluate_compz00
										(BgL_runz00_15606, BgL_sz00_4754, BgL_bpz00_4755);
									{	/* Eval/evaluate_comp.scm 1181 */
										bool_t BgL_test5638z00_30726;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4320z00_11430;

											BgL_arg4320z00_11430 = BGL_EXITD_PROTECT(BgL_ez00_4758);
											BgL_test5638z00_30726 = PAIRP(BgL_arg4320z00_11430);
										}
										if (BgL_test5638z00_30726)
											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4318z00_11431;

												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4319z00_11432;

													BgL_arg4319z00_11432 =
														BGL_EXITD_PROTECT(BgL_ez00_4758);
													BgL_arg4318z00_11431 =
														CDR(((obj_t) BgL_arg4319z00_11432));
												}
												BGL_EXITD_PROTECT_SET(BgL_ez00_4758,
													BgL_arg4318z00_11431);
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 1181 */
												BFALSE;
											}
									}
									VECTOR_SET(((obj_t) BgL_sz00_4754), 0L, BgL_bpz00_4755);
									return BgL_accz00_4759;
								}
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_4760;

							BgL_nsz00_4760 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_4760, 1L, BgL_sz00_4754);
							VECTOR_SET(BgL_nsz00_4760, 2L, BgL_dz00_4752);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_4761;

								BgL_z12denvz12_4761 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_4761, BgL_nsz00_4760);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_4762;

									BgL_ez00_4762 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_11437;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_11438;

											BgL_arg4322z00_11438 = BGL_EXITD_PROTECT(BgL_ez00_4762);
											BgL_arg4321z00_11437 =
												MAKE_YOUNG_PAIR(BgL_sz00_4754, BgL_arg4322z00_11438);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_4762, BgL_arg4321z00_11437);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_4763;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_11439;

											BgL_savedzd2bpzd2_11439 = VECTOR_REF(BgL_nsz00_4760, 0L);
											VECTOR_SET(BgL_nsz00_4760, 0L, BINT(2L));
											{
												obj_t BgL_fz00_11443;

												BgL_fz00_11443 = BgL_runz00_15606;
											BgL_recz00_11442:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_11444;

													BgL_rz00_11444 =
														BGL_PROCEDURE_CALL1(BgL_fz00_11443, BgL_nsz00_4760);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5639z00_30751;

														if (PROCEDUREP(BgL_rz00_11444))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_11447;

																BgL_arg1759z00_11447 =
																	PROCEDURE_ATTR(BgL_rz00_11444);
																if (STRUCTP(BgL_arg1759z00_11447))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5639z00_30751 =
																			(STRUCT_KEY(BgL_arg1759z00_11447) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5639z00_30751 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5639z00_30751 = ((bool_t) 0);
															}
														if (BgL_test5639z00_30751)
															{
																obj_t BgL_fz00_30759;

																BgL_fz00_30759 = BgL_rz00_11444;
																BgL_fz00_11443 = BgL_fz00_30759;
																goto BgL_recz00_11442;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_4760, 0L,
																	BgL_savedzd2bpzd2_11439);
																BgL_____rz00_4763 = BgL_rz00_11444;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5642z00_30761;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_11455;

												BgL_arg4320z00_11455 = BGL_EXITD_PROTECT(BgL_ez00_4762);
												BgL_test5642z00_30761 = PAIRP(BgL_arg4320z00_11455);
											}
											if (BgL_test5642z00_30761)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_11456;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_11457;

														BgL_arg4319z00_11457 =
															BGL_EXITD_PROTECT(BgL_ez00_4762);
														BgL_arg4318z00_11456 =
															CDR(((obj_t) BgL_arg4319z00_11457));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_4762,
														BgL_arg4318z00_11456);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_4761, BgL_sz00_4754);
										return BgL_____rz00_4763;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4540 */
	obj_t BGl_z62run4540z62zz__evaluate_compz00(obj_t BgL_envz00_15100,
		obj_t BgL_sz00_15106)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_iboxesz00_15101;
				long BgL_siza7eza7_15102;
				obj_t BgL_valza2za2_15103;
				BgL_ev_absz00_bglt BgL_i1255z00_15104;
				obj_t BgL_bodyz00_15105;

				BgL_iboxesz00_15101 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15100, (int) (0L)));
				BgL_siza7eza7_15102 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_15100, (int) (1L)));
				BgL_valza2za2_15103 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15100, (int) (2L)));
				BgL_i1255z00_15104 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_15100, (int) (3L)));
				BgL_bodyz00_15105 = PROCEDURE_REF(BgL_envz00_15100, (int) (4L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16552;

					BgL_bpz00_16552 = VECTOR_REF(((obj_t) BgL_sz00_15106), 0L);
					BGl_makezd2boxeszd2zz__evaluate_compz00(BgL_sz00_15106,
						BgL_iboxesz00_15101, BgL_bpz00_16552);
					BGl_freezd2restorezd2zz__evaluate_compz00(BgL_sz00_15106,
						BgL_valza2za2_15103,
						((long) CINT(BgL_bpz00_16552) + BgL_siza7eza7_15102));
					{	/* Eval/evaluate_comp.scm 1102 */
						obj_t BgL_z12denvz12_16553;
						obj_t BgL_wherez00_16554;
						obj_t BgL_locz00_16555;

						BgL_z12denvz12_16553 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16554 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15104))->
							BgL_wherez00);
						BgL_locz00_16555 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15104))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1102 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16553, BgL_wherez00_16554,
								BgL_locz00_16555);
							{	/* Eval/evaluate_comp.scm 1102 */
								obj_t BgL_za2za2resza2za2z00_16556;

								BgL_za2za2resza2za2z00_16556 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_15105, BgL_sz00_15106);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16553);
								return BgL_za2za2resza2za2z00_16556;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3484> */
	obj_t BGl_z62zc3z04anonymousza33484ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15107, obj_t BgL_sz00_15111)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				BgL_ev_absz00_bglt BgL_i1255z00_15108;
				obj_t BgL_bodyz00_15109;
				obj_t BgL_siza7ezd2framez75_15110;

				BgL_i1255z00_15108 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_15107, (int) (0L)));
				BgL_bodyz00_15109 = PROCEDURE_REF(BgL_envz00_15107, (int) (1L));
				BgL_siza7ezd2framez75_15110 =
					PROCEDURE_REF(BgL_envz00_15107, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16557;

					BgL_bpz00_16557 = VECTOR_REF(((obj_t) BgL_sz00_15111), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */

						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16558;

							BgL_runz00_16558 =
								MAKE_FX_PROCEDURE(BGl_z62run4542z62zz__evaluate_compz00,
								(int) (1L), (int) (2L));
							PROCEDURE_SET(BgL_runz00_16558,
								(int) (0L), ((obj_t) BgL_i1255z00_15108));
							PROCEDURE_SET(BgL_runz00_16558, (int) (1L), BgL_bodyz00_15109);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16559;

								BgL_mainz00_16559 =
									MAKE_VA_PROCEDURE(BGl_z62main4541z62zz__evaluate_compz00,
									(int) ((-1L)), (int) (4L));
								PROCEDURE_SET(BgL_mainz00_16559,
									(int) (0L), ((obj_t) BgL_i1255z00_15108));
								PROCEDURE_SET(BgL_mainz00_16559, (int) (1L), BgL_bodyz00_15109);
								PROCEDURE_SET(BgL_mainz00_16559, (int) (2L), BgL_runz00_16558);
								PROCEDURE_SET(BgL_mainz00_16559,
									(int) (3L), BgL_siza7ezd2framez75_15110);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16560;

									BgL_objz00_16560 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16558, BgL_objz00_16560);
									BgL_objz00_16560;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3485z00_16561;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3486z00_16562;

										BgL_arg3486z00_16562 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15108))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16563;

											BgL_newz00_16563 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_30831;

												BgL_tmpz00_30831 = (int) (3L);
												STRUCT_SET(BgL_newz00_16563, BgL_tmpz00_30831,
													BgL_arg3486z00_16562);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_30834;

												BgL_tmpz00_30834 = (int) (2L);
												STRUCT_SET(BgL_newz00_16563, BgL_tmpz00_30834,
													BgL_siza7ezd2framez75_15110);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_30837;

												BgL_tmpz00_30837 = (int) (1L);
												STRUCT_SET(BgL_newz00_16563, BgL_tmpz00_30837,
													BgL_runz00_16558);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												obj_t BgL_auxz00_30842;
												int BgL_tmpz00_30840;

												BgL_auxz00_30842 = BINT((-1L));
												BgL_tmpz00_30840 = (int) (0L);
												STRUCT_SET(BgL_newz00_16563, BgL_tmpz00_30840,
													BgL_auxz00_30842);
											}
											BgL_arg3485z00_16561 = BgL_newz00_16563;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16559, BgL_arg3485z00_16561);
									BgL_arg3485z00_16561;
								}
								return BgL_mainz00_16559;
							}
						}
					}
				}
			}
		}

	}



/* &main4541 */
	obj_t BGl_z62main4541z62zz__evaluate_compz00(obj_t BgL_envz00_15112,
		obj_t BgL_lastz00_15117)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_runz00_15115;
				long BgL_siza7ezd2framez75_15116;

				BgL_runz00_15115 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15112, (int) (2L)));
				BgL_siza7ezd2framez75_15116 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_15112, (int) (3L)));
				return
					BGl_mainze711ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_15116,
					BgL_runz00_15115, BgL_lastz00_15117);
			}
		}

	}



/* main~11 */
	obj_t BGl_mainze711ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15605,
		obj_t BgL_runz00_15604, obj_t BgL_lastz00_4537)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_4539;

				BgL_sz00_4539 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_4540;

					BgL_bpz00_4540 = VECTOR_REF(((obj_t) BgL_sz00_4539), 0L);
					if (
						(((long) CINT(BgL_bpz00_4540) + BgL_siza7ezd2framez75_15605) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_4539))))
						{	/* Eval/evaluate_comp.scm 1181 */
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3489z00_4542;

								BgL_arg3489z00_4542 = ((long) CINT(BgL_bpz00_4540) + 0L);
								VECTOR_SET(
									((obj_t) BgL_sz00_4539), BgL_arg3489z00_4542,
									BgL_lastz00_4537);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_ez00_4543;

								BgL_ez00_4543 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4321z00_11054;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4322z00_11055;

										BgL_arg4322z00_11055 = BGL_EXITD_PROTECT(BgL_ez00_4543);
										BgL_arg4321z00_11054 =
											MAKE_YOUNG_PAIR(BgL_bpz00_4540, BgL_arg4322z00_11055);
									}
									BGL_EXITD_PROTECT_SET(BgL_ez00_4543, BgL_arg4321z00_11054);
									BUNSPEC;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_accz00_4544;

									BgL_accz00_4544 =
										BGl_catchzd2trampolinezd2zz__evaluate_compz00
										(BgL_runz00_15604, BgL_sz00_4539, BgL_bpz00_4540);
									{	/* Eval/evaluate_comp.scm 1181 */
										bool_t BgL_test5644z00_30871;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4320z00_11057;

											BgL_arg4320z00_11057 = BGL_EXITD_PROTECT(BgL_ez00_4543);
											BgL_test5644z00_30871 = PAIRP(BgL_arg4320z00_11057);
										}
										if (BgL_test5644z00_30871)
											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4318z00_11058;

												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4319z00_11059;

													BgL_arg4319z00_11059 =
														BGL_EXITD_PROTECT(BgL_ez00_4543);
													BgL_arg4318z00_11058 =
														CDR(((obj_t) BgL_arg4319z00_11059));
												}
												BGL_EXITD_PROTECT_SET(BgL_ez00_4543,
													BgL_arg4318z00_11058);
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 1181 */
												BFALSE;
											}
									}
									VECTOR_SET(((obj_t) BgL_sz00_4539), 0L, BgL_bpz00_4540);
									return BgL_accz00_4544;
								}
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_4545;

							BgL_nsz00_4545 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_4545, 1L, BgL_sz00_4539);
							VECTOR_SET(BgL_nsz00_4545, 2L, BgL_lastz00_4537);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_4546;

								BgL_z12denvz12_4546 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_4546, BgL_nsz00_4545);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_4547;

									BgL_ez00_4547 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_11064;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_11065;

											BgL_arg4322z00_11065 = BGL_EXITD_PROTECT(BgL_ez00_4547);
											BgL_arg4321z00_11064 =
												MAKE_YOUNG_PAIR(BgL_sz00_4539, BgL_arg4322z00_11065);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_4547, BgL_arg4321z00_11064);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_4548;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_11066;

											BgL_savedzd2bpzd2_11066 = VECTOR_REF(BgL_nsz00_4545, 0L);
											VECTOR_SET(BgL_nsz00_4545, 0L, BINT(2L));
											{
												obj_t BgL_fz00_11070;

												BgL_fz00_11070 = BgL_runz00_15604;
											BgL_recz00_11069:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_11071;

													BgL_rz00_11071 =
														BGL_PROCEDURE_CALL1(BgL_fz00_11070, BgL_nsz00_4545);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5645z00_30896;

														if (PROCEDUREP(BgL_rz00_11071))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_11074;

																BgL_arg1759z00_11074 =
																	PROCEDURE_ATTR(BgL_rz00_11071);
																if (STRUCTP(BgL_arg1759z00_11074))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5645z00_30896 =
																			(STRUCT_KEY(BgL_arg1759z00_11074) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5645z00_30896 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5645z00_30896 = ((bool_t) 0);
															}
														if (BgL_test5645z00_30896)
															{
																obj_t BgL_fz00_30904;

																BgL_fz00_30904 = BgL_rz00_11071;
																BgL_fz00_11070 = BgL_fz00_30904;
																goto BgL_recz00_11069;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_4545, 0L,
																	BgL_savedzd2bpzd2_11066);
																BgL_____rz00_4548 = BgL_rz00_11071;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5648z00_30906;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_11082;

												BgL_arg4320z00_11082 = BGL_EXITD_PROTECT(BgL_ez00_4547);
												BgL_test5648z00_30906 = PAIRP(BgL_arg4320z00_11082);
											}
											if (BgL_test5648z00_30906)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_11083;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_11084;

														BgL_arg4319z00_11084 =
															BGL_EXITD_PROTECT(BgL_ez00_4547);
														BgL_arg4318z00_11083 =
															CDR(((obj_t) BgL_arg4319z00_11084));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_4547,
														BgL_arg4318z00_11083);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_4546, BgL_sz00_4539);
										return BgL_____rz00_4548;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4542 */
	obj_t BGl_z62run4542z62zz__evaluate_compz00(obj_t BgL_envz00_15118,
		obj_t BgL_sz00_15121)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				BgL_ev_absz00_bglt BgL_i1255z00_15119;
				obj_t BgL_bodyz00_15120;

				BgL_i1255z00_15119 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_15118, (int) (0L)));
				BgL_bodyz00_15120 = PROCEDURE_REF(BgL_envz00_15118, (int) (1L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16564;

					BgL_bpz00_16564 = VECTOR_REF(((obj_t) BgL_sz00_15121), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_z12denvz12_16565;
						obj_t BgL_wherez00_16566;
						obj_t BgL_locz00_16567;

						BgL_z12denvz12_16565 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16566 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15119))->
							BgL_wherez00);
						BgL_locz00_16567 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15119))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1181 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16565, BgL_wherez00_16566,
								BgL_locz00_16567);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_za2za2resza2za2z00_16568;

								BgL_za2za2resza2za2z00_16568 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_15120, BgL_sz00_15121);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16565);
								return BgL_za2za2resza2za2z00_16568;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3491> */
	obj_t BGl_z62zc3z04anonymousza33491ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15122, obj_t BgL_sz00_15127)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_iboxesz00_15123;
				BgL_ev_absz00_bglt BgL_i1255z00_15124;
				obj_t BgL_bodyz00_15125;
				obj_t BgL_siza7ezd2framez75_15126;

				BgL_iboxesz00_15123 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15122, (int) (0L)));
				BgL_i1255z00_15124 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_15122, (int) (1L)));
				BgL_bodyz00_15125 = PROCEDURE_REF(BgL_envz00_15122, (int) (2L));
				BgL_siza7ezd2framez75_15126 =
					PROCEDURE_REF(BgL_envz00_15122, (int) (3L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16569;

					BgL_bpz00_16569 = VECTOR_REF(((obj_t) BgL_sz00_15127), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */

						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16570;

							BgL_runz00_16570 =
								MAKE_FX_PROCEDURE(BGl_z62run4544z62zz__evaluate_compz00,
								(int) (1L), (int) (3L));
							PROCEDURE_SET(BgL_runz00_16570, (int) (0L), BgL_iboxesz00_15123);
							PROCEDURE_SET(BgL_runz00_16570,
								(int) (1L), ((obj_t) BgL_i1255z00_15124));
							PROCEDURE_SET(BgL_runz00_16570, (int) (2L), BgL_bodyz00_15125);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16571;

								BgL_mainz00_16571 =
									MAKE_VA_PROCEDURE(BGl_z62main4543z62zz__evaluate_compz00,
									(int) ((-1L)), (int) (5L));
								PROCEDURE_SET(BgL_mainz00_16571,
									(int) (0L), BgL_iboxesz00_15123);
								PROCEDURE_SET(BgL_mainz00_16571,
									(int) (1L), ((obj_t) BgL_i1255z00_15124));
								PROCEDURE_SET(BgL_mainz00_16571, (int) (2L), BgL_bodyz00_15125);
								PROCEDURE_SET(BgL_mainz00_16571, (int) (3L), BgL_runz00_16570);
								PROCEDURE_SET(BgL_mainz00_16571,
									(int) (4L), BgL_siza7ezd2framez75_15126);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16572;

									BgL_objz00_16572 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16570, BgL_objz00_16572);
									BgL_objz00_16572;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3492z00_16573;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3493z00_16574;

										BgL_arg3493z00_16574 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15124))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16575;

											BgL_newz00_16575 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_30970;

												BgL_tmpz00_30970 = (int) (3L);
												STRUCT_SET(BgL_newz00_16575, BgL_tmpz00_30970,
													BgL_arg3493z00_16574);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_30973;

												BgL_tmpz00_30973 = (int) (2L);
												STRUCT_SET(BgL_newz00_16575, BgL_tmpz00_30973,
													BgL_siza7ezd2framez75_15126);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_30976;

												BgL_tmpz00_30976 = (int) (1L);
												STRUCT_SET(BgL_newz00_16575, BgL_tmpz00_30976,
													BgL_runz00_16570);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												obj_t BgL_auxz00_30981;
												int BgL_tmpz00_30979;

												BgL_auxz00_30981 = BINT((-1L));
												BgL_tmpz00_30979 = (int) (0L);
												STRUCT_SET(BgL_newz00_16575, BgL_tmpz00_30979,
													BgL_auxz00_30981);
											}
											BgL_arg3492z00_16573 = BgL_newz00_16575;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16571, BgL_arg3492z00_16573);
									BgL_arg3492z00_16573;
								}
								return BgL_mainz00_16571;
							}
						}
					}
				}
			}
		}

	}



/* &main4543 */
	obj_t BGl_z62main4543z62zz__evaluate_compz00(obj_t BgL_envz00_15128,
		obj_t BgL_lastz00_15134)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_runz00_15132;
				long BgL_siza7ezd2framez75_15133;

				BgL_runz00_15132 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15128, (int) (3L)));
				BgL_siza7ezd2framez75_15133 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_15128, (int) (4L)));
				return
					BGl_mainze710ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_15133,
					BgL_runz00_15132, BgL_lastz00_15134);
			}
		}

	}



/* main~10 */
	obj_t BGl_mainze710ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15603,
		obj_t BgL_runz00_15602, obj_t BgL_lastz00_4565)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_4567;

				BgL_sz00_4567 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_4568;

					BgL_bpz00_4568 = VECTOR_REF(((obj_t) BgL_sz00_4567), 0L);
					if (
						(((long) CINT(BgL_bpz00_4568) + BgL_siza7ezd2framez75_15603) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_4567))))
						{	/* Eval/evaluate_comp.scm 1181 */
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3497z00_4570;

								BgL_arg3497z00_4570 = ((long) CINT(BgL_bpz00_4568) + 0L);
								VECTOR_SET(
									((obj_t) BgL_sz00_4567), BgL_arg3497z00_4570,
									BgL_lastz00_4565);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_ez00_4571;

								BgL_ez00_4571 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4321z00_11105;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4322z00_11106;

										BgL_arg4322z00_11106 = BGL_EXITD_PROTECT(BgL_ez00_4571);
										BgL_arg4321z00_11105 =
											MAKE_YOUNG_PAIR(BgL_bpz00_4568, BgL_arg4322z00_11106);
									}
									BGL_EXITD_PROTECT_SET(BgL_ez00_4571, BgL_arg4321z00_11105);
									BUNSPEC;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_accz00_4572;

									BgL_accz00_4572 =
										BGl_catchzd2trampolinezd2zz__evaluate_compz00
										(BgL_runz00_15602, BgL_sz00_4567, BgL_bpz00_4568);
									{	/* Eval/evaluate_comp.scm 1181 */
										bool_t BgL_test5650z00_31010;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4320z00_11108;

											BgL_arg4320z00_11108 = BGL_EXITD_PROTECT(BgL_ez00_4571);
											BgL_test5650z00_31010 = PAIRP(BgL_arg4320z00_11108);
										}
										if (BgL_test5650z00_31010)
											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4318z00_11109;

												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4319z00_11110;

													BgL_arg4319z00_11110 =
														BGL_EXITD_PROTECT(BgL_ez00_4571);
													BgL_arg4318z00_11109 =
														CDR(((obj_t) BgL_arg4319z00_11110));
												}
												BGL_EXITD_PROTECT_SET(BgL_ez00_4571,
													BgL_arg4318z00_11109);
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 1181 */
												BFALSE;
											}
									}
									VECTOR_SET(((obj_t) BgL_sz00_4567), 0L, BgL_bpz00_4568);
									return BgL_accz00_4572;
								}
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_4573;

							BgL_nsz00_4573 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_4573, 1L, BgL_sz00_4567);
							VECTOR_SET(BgL_nsz00_4573, 2L, BgL_lastz00_4565);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_4574;

								BgL_z12denvz12_4574 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_4574, BgL_nsz00_4573);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_4575;

									BgL_ez00_4575 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_11115;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_11116;

											BgL_arg4322z00_11116 = BGL_EXITD_PROTECT(BgL_ez00_4575);
											BgL_arg4321z00_11115 =
												MAKE_YOUNG_PAIR(BgL_sz00_4567, BgL_arg4322z00_11116);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_4575, BgL_arg4321z00_11115);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_4576;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_11117;

											BgL_savedzd2bpzd2_11117 = VECTOR_REF(BgL_nsz00_4573, 0L);
											VECTOR_SET(BgL_nsz00_4573, 0L, BINT(2L));
											{
												obj_t BgL_fz00_11121;

												BgL_fz00_11121 = BgL_runz00_15602;
											BgL_recz00_11120:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_11122;

													BgL_rz00_11122 =
														BGL_PROCEDURE_CALL1(BgL_fz00_11121, BgL_nsz00_4573);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5651z00_31035;

														if (PROCEDUREP(BgL_rz00_11122))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_11125;

																BgL_arg1759z00_11125 =
																	PROCEDURE_ATTR(BgL_rz00_11122);
																if (STRUCTP(BgL_arg1759z00_11125))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5651z00_31035 =
																			(STRUCT_KEY(BgL_arg1759z00_11125) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5651z00_31035 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5651z00_31035 = ((bool_t) 0);
															}
														if (BgL_test5651z00_31035)
															{
																obj_t BgL_fz00_31043;

																BgL_fz00_31043 = BgL_rz00_11122;
																BgL_fz00_11121 = BgL_fz00_31043;
																goto BgL_recz00_11120;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_4573, 0L,
																	BgL_savedzd2bpzd2_11117);
																BgL_____rz00_4576 = BgL_rz00_11122;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5654z00_31045;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_11133;

												BgL_arg4320z00_11133 = BGL_EXITD_PROTECT(BgL_ez00_4575);
												BgL_test5654z00_31045 = PAIRP(BgL_arg4320z00_11133);
											}
											if (BgL_test5654z00_31045)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_11134;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_11135;

														BgL_arg4319z00_11135 =
															BGL_EXITD_PROTECT(BgL_ez00_4575);
														BgL_arg4318z00_11134 =
															CDR(((obj_t) BgL_arg4319z00_11135));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_4575,
														BgL_arg4318z00_11134);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_4574, BgL_sz00_4567);
										return BgL_____rz00_4576;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4544 */
	obj_t BGl_z62run4544z62zz__evaluate_compz00(obj_t BgL_envz00_15135,
		obj_t BgL_sz00_15139)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_iboxesz00_15136;
				BgL_ev_absz00_bglt BgL_i1255z00_15137;
				obj_t BgL_bodyz00_15138;

				BgL_iboxesz00_15136 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15135, (int) (0L)));
				BgL_i1255z00_15137 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_15135, (int) (1L)));
				BgL_bodyz00_15138 = PROCEDURE_REF(BgL_envz00_15135, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16576;

					BgL_bpz00_16576 = VECTOR_REF(((obj_t) BgL_sz00_15139), 0L);
					BGl_makezd2boxeszd2zz__evaluate_compz00(BgL_sz00_15139,
						BgL_iboxesz00_15136, BgL_bpz00_16576);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_z12denvz12_16577;
						obj_t BgL_wherez00_16578;
						obj_t BgL_locz00_16579;

						BgL_z12denvz12_16577 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16578 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15137))->
							BgL_wherez00);
						BgL_locz00_16579 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15137))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1181 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16577, BgL_wherez00_16578,
								BgL_locz00_16579);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_za2za2resza2za2z00_16580;

								BgL_za2za2resza2za2z00_16580 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_15138, BgL_sz00_15139);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16577);
								return BgL_za2za2resza2za2z00_16580;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3503> */
	obj_t BGl_z62zc3z04anonymousza33503ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15140, obj_t BgL_sz00_15146)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_ifreesz00_15141;
				obj_t BgL_siza7eza7_15142;
				BgL_ev_absz00_bglt BgL_i1255z00_15143;
				obj_t BgL_bodyz00_15144;
				obj_t BgL_siza7ezd2framez75_15145;

				BgL_ifreesz00_15141 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15140, (int) (0L)));
				BgL_siza7eza7_15142 = PROCEDURE_REF(BgL_envz00_15140, (int) (1L));
				BgL_i1255z00_15143 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_15140, (int) (2L)));
				BgL_bodyz00_15144 = PROCEDURE_REF(BgL_envz00_15140, (int) (3L));
				BgL_siza7ezd2framez75_15145 =
					PROCEDURE_REF(BgL_envz00_15140, (int) (4L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16581;

					BgL_bpz00_16581 = VECTOR_REF(((obj_t) BgL_sz00_15146), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_valza2za2_16582;

						BgL_valza2za2_16582 =
							BGl_freezd2collectzd2zz__evaluate_compz00(BgL_sz00_15146,
							BgL_bpz00_16581, BgL_ifreesz00_15141);
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16583;

							BgL_runz00_16583 =
								MAKE_FX_PROCEDURE(BGl_z62run4546z62zz__evaluate_compz00,
								(int) (1L), (int) (4L));
							PROCEDURE_SET(BgL_runz00_16583, (int) (0L), BgL_siza7eza7_15142);
							PROCEDURE_SET(BgL_runz00_16583, (int) (1L), BgL_valza2za2_16582);
							PROCEDURE_SET(BgL_runz00_16583,
								(int) (2L), ((obj_t) BgL_i1255z00_15143));
							PROCEDURE_SET(BgL_runz00_16583, (int) (3L), BgL_bodyz00_15144);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16584;

								BgL_mainz00_16584 =
									MAKE_VA_PROCEDURE(BGl_z62main4545z62zz__evaluate_compz00,
									(int) ((-1L)), (int) (6L));
								PROCEDURE_SET(BgL_mainz00_16584,
									(int) (0L), BgL_siza7eza7_15142);
								PROCEDURE_SET(BgL_mainz00_16584,
									(int) (1L), BgL_valza2za2_16582);
								PROCEDURE_SET(BgL_mainz00_16584,
									(int) (2L), ((obj_t) BgL_i1255z00_15143));
								PROCEDURE_SET(BgL_mainz00_16584, (int) (3L), BgL_bodyz00_15144);
								PROCEDURE_SET(BgL_mainz00_16584, (int) (4L), BgL_runz00_16583);
								PROCEDURE_SET(BgL_mainz00_16584,
									(int) (5L), BgL_siza7ezd2framez75_15145);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16585;

									BgL_objz00_16585 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16583, BgL_objz00_16585);
									BgL_objz00_16585;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3504z00_16586;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3505z00_16587;

										BgL_arg3505z00_16587 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15143))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16588;

											BgL_newz00_16588 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_31120;

												BgL_tmpz00_31120 = (int) (3L);
												STRUCT_SET(BgL_newz00_16588, BgL_tmpz00_31120,
													BgL_arg3505z00_16587);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_31123;

												BgL_tmpz00_31123 = (int) (2L);
												STRUCT_SET(BgL_newz00_16588, BgL_tmpz00_31123,
													BgL_siza7ezd2framez75_15145);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_31126;

												BgL_tmpz00_31126 = (int) (1L);
												STRUCT_SET(BgL_newz00_16588, BgL_tmpz00_31126,
													BgL_runz00_16583);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												obj_t BgL_auxz00_31131;
												int BgL_tmpz00_31129;

												BgL_auxz00_31131 = BINT((-1L));
												BgL_tmpz00_31129 = (int) (0L);
												STRUCT_SET(BgL_newz00_16588, BgL_tmpz00_31129,
													BgL_auxz00_31131);
											}
											BgL_arg3504z00_16586 = BgL_newz00_16588;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16584, BgL_arg3504z00_16586);
									BgL_arg3504z00_16586;
								}
								return BgL_mainz00_16584;
							}
						}
					}
				}
			}
		}

	}



/* &main4545 */
	obj_t BGl_z62main4545z62zz__evaluate_compz00(obj_t BgL_envz00_15147,
		obj_t BgL_lastz00_15154)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_runz00_15152;
				long BgL_siza7ezd2framez75_15153;

				BgL_runz00_15152 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15147, (int) (4L)));
				BgL_siza7ezd2framez75_15153 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_15147, (int) (5L)));
				return
					BGl_mainze79ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_15153,
					BgL_runz00_15152, BgL_lastz00_15154);
			}
		}

	}



/* main~9 */
	obj_t BGl_mainze79ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15601,
		obj_t BgL_runz00_15600, obj_t BgL_lastz00_4597)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_4599;

				BgL_sz00_4599 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_4600;

					BgL_bpz00_4600 = VECTOR_REF(((obj_t) BgL_sz00_4599), 0L);
					if (
						(((long) CINT(BgL_bpz00_4600) + BgL_siza7ezd2framez75_15601) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_4599))))
						{	/* Eval/evaluate_comp.scm 1181 */
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3508z00_4602;

								BgL_arg3508z00_4602 = ((long) CINT(BgL_bpz00_4600) + 0L);
								VECTOR_SET(
									((obj_t) BgL_sz00_4599), BgL_arg3508z00_4602,
									BgL_lastz00_4597);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_ez00_4603;

								BgL_ez00_4603 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4321z00_11160;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4322z00_11161;

										BgL_arg4322z00_11161 = BGL_EXITD_PROTECT(BgL_ez00_4603);
										BgL_arg4321z00_11160 =
											MAKE_YOUNG_PAIR(BgL_bpz00_4600, BgL_arg4322z00_11161);
									}
									BGL_EXITD_PROTECT_SET(BgL_ez00_4603, BgL_arg4321z00_11160);
									BUNSPEC;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_accz00_4604;

									BgL_accz00_4604 =
										BGl_catchzd2trampolinezd2zz__evaluate_compz00
										(BgL_runz00_15600, BgL_sz00_4599, BgL_bpz00_4600);
									{	/* Eval/evaluate_comp.scm 1181 */
										bool_t BgL_test5656z00_31160;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4320z00_11163;

											BgL_arg4320z00_11163 = BGL_EXITD_PROTECT(BgL_ez00_4603);
											BgL_test5656z00_31160 = PAIRP(BgL_arg4320z00_11163);
										}
										if (BgL_test5656z00_31160)
											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4318z00_11164;

												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4319z00_11165;

													BgL_arg4319z00_11165 =
														BGL_EXITD_PROTECT(BgL_ez00_4603);
													BgL_arg4318z00_11164 =
														CDR(((obj_t) BgL_arg4319z00_11165));
												}
												BGL_EXITD_PROTECT_SET(BgL_ez00_4603,
													BgL_arg4318z00_11164);
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 1181 */
												BFALSE;
											}
									}
									VECTOR_SET(((obj_t) BgL_sz00_4599), 0L, BgL_bpz00_4600);
									return BgL_accz00_4604;
								}
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_4605;

							BgL_nsz00_4605 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_4605, 1L, BgL_sz00_4599);
							VECTOR_SET(BgL_nsz00_4605, 2L, BgL_lastz00_4597);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_4606;

								BgL_z12denvz12_4606 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_4606, BgL_nsz00_4605);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_4607;

									BgL_ez00_4607 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_11170;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_11171;

											BgL_arg4322z00_11171 = BGL_EXITD_PROTECT(BgL_ez00_4607);
											BgL_arg4321z00_11170 =
												MAKE_YOUNG_PAIR(BgL_sz00_4599, BgL_arg4322z00_11171);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_4607, BgL_arg4321z00_11170);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_4608;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_11172;

											BgL_savedzd2bpzd2_11172 = VECTOR_REF(BgL_nsz00_4605, 0L);
											VECTOR_SET(BgL_nsz00_4605, 0L, BINT(2L));
											{
												obj_t BgL_fz00_11176;

												BgL_fz00_11176 = BgL_runz00_15600;
											BgL_recz00_11175:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_11177;

													BgL_rz00_11177 =
														BGL_PROCEDURE_CALL1(BgL_fz00_11176, BgL_nsz00_4605);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5657z00_31185;

														if (PROCEDUREP(BgL_rz00_11177))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_11180;

																BgL_arg1759z00_11180 =
																	PROCEDURE_ATTR(BgL_rz00_11177);
																if (STRUCTP(BgL_arg1759z00_11180))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5657z00_31185 =
																			(STRUCT_KEY(BgL_arg1759z00_11180) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5657z00_31185 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5657z00_31185 = ((bool_t) 0);
															}
														if (BgL_test5657z00_31185)
															{
																obj_t BgL_fz00_31193;

																BgL_fz00_31193 = BgL_rz00_11177;
																BgL_fz00_11176 = BgL_fz00_31193;
																goto BgL_recz00_11175;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_4605, 0L,
																	BgL_savedzd2bpzd2_11172);
																BgL_____rz00_4608 = BgL_rz00_11177;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5660z00_31195;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_11188;

												BgL_arg4320z00_11188 = BGL_EXITD_PROTECT(BgL_ez00_4607);
												BgL_test5660z00_31195 = PAIRP(BgL_arg4320z00_11188);
											}
											if (BgL_test5660z00_31195)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_11189;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_11190;

														BgL_arg4319z00_11190 =
															BGL_EXITD_PROTECT(BgL_ez00_4607);
														BgL_arg4318z00_11189 =
															CDR(((obj_t) BgL_arg4319z00_11190));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_4607,
														BgL_arg4318z00_11189);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_4606, BgL_sz00_4599);
										return BgL_____rz00_4608;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4546 */
	obj_t BGl_z62run4546z62zz__evaluate_compz00(obj_t BgL_envz00_15155,
		obj_t BgL_sz00_15160)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				long BgL_siza7eza7_15156;
				obj_t BgL_valza2za2_15157;
				BgL_ev_absz00_bglt BgL_i1255z00_15158;
				obj_t BgL_bodyz00_15159;

				BgL_siza7eza7_15156 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_15155, (int) (0L)));
				BgL_valza2za2_15157 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15155, (int) (1L)));
				BgL_i1255z00_15158 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_15155, (int) (2L)));
				BgL_bodyz00_15159 = PROCEDURE_REF(BgL_envz00_15155, (int) (3L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16589;

					BgL_bpz00_16589 = VECTOR_REF(((obj_t) BgL_sz00_15160), 0L);
					BGl_freezd2restorezd2zz__evaluate_compz00(BgL_sz00_15160,
						BgL_valza2za2_15157,
						((long) CINT(BgL_bpz00_16589) + BgL_siza7eza7_15156));
					{	/* Eval/evaluate_comp.scm 1102 */
						obj_t BgL_z12denvz12_16590;
						obj_t BgL_wherez00_16591;
						obj_t BgL_locz00_16592;

						BgL_z12denvz12_16590 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16591 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15158))->
							BgL_wherez00);
						BgL_locz00_16592 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15158))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1102 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16590, BgL_wherez00_16591,
								BgL_locz00_16592);
							{	/* Eval/evaluate_comp.scm 1102 */
								obj_t BgL_za2za2resza2za2z00_16593;

								BgL_za2za2resza2za2z00_16593 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_15159, BgL_sz00_15160);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16590);
								return BgL_za2za2resza2za2z00_16593;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3512> */
	obj_t BGl_z62zc3z04anonymousza33512ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15161, obj_t BgL_sz00_15168)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_ifreesz00_15162;
				obj_t BgL_iboxesz00_15163;
				obj_t BgL_siza7eza7_15164;
				BgL_ev_absz00_bglt BgL_i1255z00_15165;
				obj_t BgL_bodyz00_15166;
				obj_t BgL_siza7ezd2framez75_15167;

				BgL_ifreesz00_15162 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15161, (int) (0L)));
				BgL_iboxesz00_15163 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15161, (int) (1L)));
				BgL_siza7eza7_15164 = PROCEDURE_REF(BgL_envz00_15161, (int) (2L));
				BgL_i1255z00_15165 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_15161, (int) (3L)));
				BgL_bodyz00_15166 = PROCEDURE_REF(BgL_envz00_15161, (int) (4L));
				BgL_siza7ezd2framez75_15167 =
					PROCEDURE_REF(BgL_envz00_15161, (int) (5L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16594;

					BgL_bpz00_16594 = VECTOR_REF(((obj_t) BgL_sz00_15168), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_valza2za2_16595;

						BgL_valza2za2_16595 =
							BGl_freezd2collectzd2zz__evaluate_compz00(BgL_sz00_15168,
							BgL_bpz00_16594, BgL_ifreesz00_15162);
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16596;

							BgL_runz00_16596 =
								MAKE_FX_PROCEDURE(BGl_z62run4548z62zz__evaluate_compz00,
								(int) (1L), (int) (5L));
							PROCEDURE_SET(BgL_runz00_16596, (int) (0L), BgL_iboxesz00_15163);
							PROCEDURE_SET(BgL_runz00_16596, (int) (1L), BgL_siza7eza7_15164);
							PROCEDURE_SET(BgL_runz00_16596, (int) (2L), BgL_valza2za2_16595);
							PROCEDURE_SET(BgL_runz00_16596,
								(int) (3L), ((obj_t) BgL_i1255z00_15165));
							PROCEDURE_SET(BgL_runz00_16596, (int) (4L), BgL_bodyz00_15166);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16597;

								BgL_mainz00_16597 =
									MAKE_VA_PROCEDURE(BGl_z62main4547z62zz__evaluate_compz00,
									(int) ((-1L)), (int) (7L));
								PROCEDURE_SET(BgL_mainz00_16597,
									(int) (0L), BgL_iboxesz00_15163);
								PROCEDURE_SET(BgL_mainz00_16597,
									(int) (1L), BgL_siza7eza7_15164);
								PROCEDURE_SET(BgL_mainz00_16597,
									(int) (2L), BgL_valza2za2_16595);
								PROCEDURE_SET(BgL_mainz00_16597,
									(int) (3L), ((obj_t) BgL_i1255z00_15165));
								PROCEDURE_SET(BgL_mainz00_16597, (int) (4L), BgL_bodyz00_15166);
								PROCEDURE_SET(BgL_mainz00_16597, (int) (5L), BgL_runz00_16596);
								PROCEDURE_SET(BgL_mainz00_16597,
									(int) (6L), BgL_siza7ezd2framez75_15167);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16598;

									BgL_objz00_16598 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16596, BgL_objz00_16598);
									BgL_objz00_16598;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3513z00_16599;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3514z00_16600;

										BgL_arg3514z00_16600 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15165))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16601;

											BgL_newz00_16601 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_31282;

												BgL_tmpz00_31282 = (int) (3L);
												STRUCT_SET(BgL_newz00_16601, BgL_tmpz00_31282,
													BgL_arg3514z00_16600);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_31285;

												BgL_tmpz00_31285 = (int) (2L);
												STRUCT_SET(BgL_newz00_16601, BgL_tmpz00_31285,
													BgL_siza7ezd2framez75_15167);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_31288;

												BgL_tmpz00_31288 = (int) (1L);
												STRUCT_SET(BgL_newz00_16601, BgL_tmpz00_31288,
													BgL_runz00_16596);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												obj_t BgL_auxz00_31293;
												int BgL_tmpz00_31291;

												BgL_auxz00_31293 = BINT((-1L));
												BgL_tmpz00_31291 = (int) (0L);
												STRUCT_SET(BgL_newz00_16601, BgL_tmpz00_31291,
													BgL_auxz00_31293);
											}
											BgL_arg3513z00_16599 = BgL_newz00_16601;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16597, BgL_arg3513z00_16599);
									BgL_arg3513z00_16599;
								}
								return BgL_mainz00_16597;
							}
						}
					}
				}
			}
		}

	}



/* &main4547 */
	obj_t BGl_z62main4547z62zz__evaluate_compz00(obj_t BgL_envz00_15169,
		obj_t BgL_lastz00_15177)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_runz00_15175;
				long BgL_siza7ezd2framez75_15176;

				BgL_runz00_15175 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15169, (int) (5L)));
				BgL_siza7ezd2framez75_15176 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_15169, (int) (6L)));
				return
					BGl_mainze78ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_15176,
					BgL_runz00_15175, BgL_lastz00_15177);
			}
		}

	}



/* main~8 */
	obj_t BGl_mainze78ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15599,
		obj_t BgL_runz00_15598, obj_t BgL_lastz00_4627)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_4629;

				BgL_sz00_4629 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_4630;

					BgL_bpz00_4630 = VECTOR_REF(((obj_t) BgL_sz00_4629), 0L);
					if (
						(((long) CINT(BgL_bpz00_4630) + BgL_siza7ezd2framez75_15599) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_4629))))
						{	/* Eval/evaluate_comp.scm 1181 */
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3517z00_4632;

								BgL_arg3517z00_4632 = ((long) CINT(BgL_bpz00_4630) + 0L);
								VECTOR_SET(
									((obj_t) BgL_sz00_4629), BgL_arg3517z00_4632,
									BgL_lastz00_4627);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_ez00_4633;

								BgL_ez00_4633 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4321z00_11213;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4322z00_11214;

										BgL_arg4322z00_11214 = BGL_EXITD_PROTECT(BgL_ez00_4633);
										BgL_arg4321z00_11213 =
											MAKE_YOUNG_PAIR(BgL_bpz00_4630, BgL_arg4322z00_11214);
									}
									BGL_EXITD_PROTECT_SET(BgL_ez00_4633, BgL_arg4321z00_11213);
									BUNSPEC;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_accz00_4634;

									BgL_accz00_4634 =
										BGl_catchzd2trampolinezd2zz__evaluate_compz00
										(BgL_runz00_15598, BgL_sz00_4629, BgL_bpz00_4630);
									{	/* Eval/evaluate_comp.scm 1181 */
										bool_t BgL_test5662z00_31322;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4320z00_11216;

											BgL_arg4320z00_11216 = BGL_EXITD_PROTECT(BgL_ez00_4633);
											BgL_test5662z00_31322 = PAIRP(BgL_arg4320z00_11216);
										}
										if (BgL_test5662z00_31322)
											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4318z00_11217;

												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4319z00_11218;

													BgL_arg4319z00_11218 =
														BGL_EXITD_PROTECT(BgL_ez00_4633);
													BgL_arg4318z00_11217 =
														CDR(((obj_t) BgL_arg4319z00_11218));
												}
												BGL_EXITD_PROTECT_SET(BgL_ez00_4633,
													BgL_arg4318z00_11217);
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 1181 */
												BFALSE;
											}
									}
									VECTOR_SET(((obj_t) BgL_sz00_4629), 0L, BgL_bpz00_4630);
									return BgL_accz00_4634;
								}
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_4635;

							BgL_nsz00_4635 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_4635, 1L, BgL_sz00_4629);
							VECTOR_SET(BgL_nsz00_4635, 2L, BgL_lastz00_4627);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_4636;

								BgL_z12denvz12_4636 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_4636, BgL_nsz00_4635);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_4637;

									BgL_ez00_4637 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_11223;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_11224;

											BgL_arg4322z00_11224 = BGL_EXITD_PROTECT(BgL_ez00_4637);
											BgL_arg4321z00_11223 =
												MAKE_YOUNG_PAIR(BgL_sz00_4629, BgL_arg4322z00_11224);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_4637, BgL_arg4321z00_11223);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_4638;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_11225;

											BgL_savedzd2bpzd2_11225 = VECTOR_REF(BgL_nsz00_4635, 0L);
											VECTOR_SET(BgL_nsz00_4635, 0L, BINT(2L));
											{
												obj_t BgL_fz00_11229;

												BgL_fz00_11229 = BgL_runz00_15598;
											BgL_recz00_11228:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_11230;

													BgL_rz00_11230 =
														BGL_PROCEDURE_CALL1(BgL_fz00_11229, BgL_nsz00_4635);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5663z00_31347;

														if (PROCEDUREP(BgL_rz00_11230))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_11233;

																BgL_arg1759z00_11233 =
																	PROCEDURE_ATTR(BgL_rz00_11230);
																if (STRUCTP(BgL_arg1759z00_11233))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5663z00_31347 =
																			(STRUCT_KEY(BgL_arg1759z00_11233) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5663z00_31347 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5663z00_31347 = ((bool_t) 0);
															}
														if (BgL_test5663z00_31347)
															{
																obj_t BgL_fz00_31355;

																BgL_fz00_31355 = BgL_rz00_11230;
																BgL_fz00_11229 = BgL_fz00_31355;
																goto BgL_recz00_11228;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_4635, 0L,
																	BgL_savedzd2bpzd2_11225);
																BgL_____rz00_4638 = BgL_rz00_11230;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5666z00_31357;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_11241;

												BgL_arg4320z00_11241 = BGL_EXITD_PROTECT(BgL_ez00_4637);
												BgL_test5666z00_31357 = PAIRP(BgL_arg4320z00_11241);
											}
											if (BgL_test5666z00_31357)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_11242;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_11243;

														BgL_arg4319z00_11243 =
															BGL_EXITD_PROTECT(BgL_ez00_4637);
														BgL_arg4318z00_11242 =
															CDR(((obj_t) BgL_arg4319z00_11243));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_4637,
														BgL_arg4318z00_11242);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_4636, BgL_sz00_4629);
										return BgL_____rz00_4638;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4548 */
	obj_t BGl_z62run4548z62zz__evaluate_compz00(obj_t BgL_envz00_15178,
		obj_t BgL_sz00_15184)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_iboxesz00_15179;
				long BgL_siza7eza7_15180;
				obj_t BgL_valza2za2_15181;
				BgL_ev_absz00_bglt BgL_i1255z00_15182;
				obj_t BgL_bodyz00_15183;

				BgL_iboxesz00_15179 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15178, (int) (0L)));
				BgL_siza7eza7_15180 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_15178, (int) (1L)));
				BgL_valza2za2_15181 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15178, (int) (2L)));
				BgL_i1255z00_15182 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_15178, (int) (3L)));
				BgL_bodyz00_15183 = PROCEDURE_REF(BgL_envz00_15178, (int) (4L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16602;

					BgL_bpz00_16602 = VECTOR_REF(((obj_t) BgL_sz00_15184), 0L);
					BGl_makezd2boxeszd2zz__evaluate_compz00(BgL_sz00_15184,
						BgL_iboxesz00_15179, BgL_bpz00_16602);
					BGl_freezd2restorezd2zz__evaluate_compz00(BgL_sz00_15184,
						BgL_valza2za2_15181,
						((long) CINT(BgL_bpz00_16602) + BgL_siza7eza7_15180));
					{	/* Eval/evaluate_comp.scm 1102 */
						obj_t BgL_z12denvz12_16603;
						obj_t BgL_wherez00_16604;
						obj_t BgL_locz00_16605;

						BgL_z12denvz12_16603 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16604 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15182))->
							BgL_wherez00);
						BgL_locz00_16605 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15182))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1102 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16603, BgL_wherez00_16604,
								BgL_locz00_16605);
							{	/* Eval/evaluate_comp.scm 1102 */
								obj_t BgL_za2za2resza2za2z00_16606;

								BgL_za2za2resza2za2z00_16606 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_15183, BgL_sz00_15184);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16603);
								return BgL_za2za2resza2za2z00_16606;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3445> */
	obj_t BGl_z62zc3z04anonymousza33445ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15185, obj_t BgL_sz00_15189)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				BgL_ev_absz00_bglt BgL_i1255z00_15186;
				obj_t BgL_bodyz00_15187;
				obj_t BgL_siza7ezd2framez75_15188;

				BgL_i1255z00_15186 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_15185, (int) (0L)));
				BgL_bodyz00_15187 = PROCEDURE_REF(BgL_envz00_15185, (int) (1L));
				BgL_siza7ezd2framez75_15188 =
					PROCEDURE_REF(BgL_envz00_15185, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16607;

					BgL_bpz00_16607 = VECTOR_REF(((obj_t) BgL_sz00_15189), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */

						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16608;

							BgL_runz00_16608 =
								MAKE_FX_PROCEDURE(BGl_z62run4550z62zz__evaluate_compz00,
								(int) (1L), (int) (2L));
							PROCEDURE_SET(BgL_runz00_16608,
								(int) (0L), ((obj_t) BgL_i1255z00_15186));
							PROCEDURE_SET(BgL_runz00_16608, (int) (1L), BgL_bodyz00_15187);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16609;

								BgL_mainz00_16609 =
									MAKE_FX_PROCEDURE(BGl_z62main4549z62zz__evaluate_compz00,
									(int) (0L), (int) (4L));
								PROCEDURE_SET(BgL_mainz00_16609,
									(int) (0L), ((obj_t) BgL_i1255z00_15186));
								PROCEDURE_SET(BgL_mainz00_16609, (int) (1L), BgL_bodyz00_15187);
								PROCEDURE_SET(BgL_mainz00_16609, (int) (2L), BgL_runz00_16608);
								PROCEDURE_SET(BgL_mainz00_16609,
									(int) (3L), BgL_siza7ezd2framez75_15188);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16610;

									BgL_objz00_16610 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16608, BgL_objz00_16610);
									BgL_objz00_16610;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3446z00_16611;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3447z00_16612;

										BgL_arg3447z00_16612 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15186))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16613;

											BgL_newz00_16613 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_31427;

												BgL_tmpz00_31427 = (int) (3L);
												STRUCT_SET(BgL_newz00_16613, BgL_tmpz00_31427,
													BgL_arg3447z00_16612);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_31430;

												BgL_tmpz00_31430 = (int) (2L);
												STRUCT_SET(BgL_newz00_16613, BgL_tmpz00_31430,
													BgL_siza7ezd2framez75_15188);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_31433;

												BgL_tmpz00_31433 = (int) (1L);
												STRUCT_SET(BgL_newz00_16613, BgL_tmpz00_31433,
													BgL_runz00_16608);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												obj_t BgL_auxz00_31438;
												int BgL_tmpz00_31436;

												BgL_auxz00_31438 = BINT(0L);
												BgL_tmpz00_31436 = (int) (0L);
												STRUCT_SET(BgL_newz00_16613, BgL_tmpz00_31436,
													BgL_auxz00_31438);
											}
											BgL_arg3446z00_16611 = BgL_newz00_16613;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16609, BgL_arg3446z00_16611);
									BgL_arg3446z00_16611;
								}
								return BgL_mainz00_16609;
							}
						}
					}
				}
			}
		}

	}



/* &main4549 */
	obj_t BGl_z62main4549z62zz__evaluate_compz00(obj_t BgL_envz00_15190)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_runz00_15193;
				long BgL_siza7ezd2framez75_15194;

				BgL_runz00_15193 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15190, (int) (2L)));
				BgL_siza7ezd2framez75_15194 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_15190, (int) (3L)));
				return
					BGl_mainze77ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_15194,
					BgL_runz00_15193);
			}
		}

	}



/* main~7 */
	obj_t BGl_mainze77ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15597,
		obj_t BgL_runz00_15596)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_4421;

				BgL_sz00_4421 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_4422;

					BgL_bpz00_4422 = VECTOR_REF(((obj_t) BgL_sz00_4421), 0L);
					if (
						(((long) CINT(BgL_bpz00_4422) + BgL_siza7ezd2framez75_15597) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_4421))))
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_ez00_4424;

							BgL_ez00_4424 = BGL_EXITD_TOP_AS_OBJ();
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_arg4321z00_10853;

								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4322z00_10854;

									BgL_arg4322z00_10854 = BGL_EXITD_PROTECT(BgL_ez00_4424);
									BgL_arg4321z00_10853 =
										MAKE_YOUNG_PAIR(BgL_bpz00_4422, BgL_arg4322z00_10854);
								}
								BGL_EXITD_PROTECT_SET(BgL_ez00_4424, BgL_arg4321z00_10853);
								BUNSPEC;
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_accz00_4425;

								BgL_accz00_4425 =
									BGl_catchzd2trampolinezd2zz__evaluate_compz00
									(BgL_runz00_15596, BgL_sz00_4421, BgL_bpz00_4422);
								{	/* Eval/evaluate_comp.scm 1181 */
									bool_t BgL_test5668z00_31463;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4320z00_10856;

										BgL_arg4320z00_10856 = BGL_EXITD_PROTECT(BgL_ez00_4424);
										BgL_test5668z00_31463 = PAIRP(BgL_arg4320z00_10856);
									}
									if (BgL_test5668z00_31463)
										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4318z00_10857;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4319z00_10858;

												BgL_arg4319z00_10858 = BGL_EXITD_PROTECT(BgL_ez00_4424);
												BgL_arg4318z00_10857 =
													CDR(((obj_t) BgL_arg4319z00_10858));
											}
											BGL_EXITD_PROTECT_SET(BgL_ez00_4424,
												BgL_arg4318z00_10857);
											BUNSPEC;
										}
									else
										{	/* Eval/evaluate_comp.scm 1181 */
											BFALSE;
										}
								}
								VECTOR_SET(((obj_t) BgL_sz00_4421), 0L, BgL_bpz00_4422);
								return BgL_accz00_4425;
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_4426;

							BgL_nsz00_4426 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_4426, 1L, BgL_sz00_4421);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_4427;

								BgL_z12denvz12_4427 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_4427, BgL_nsz00_4426);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_4428;

									BgL_ez00_4428 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_10862;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_10863;

											BgL_arg4322z00_10863 = BGL_EXITD_PROTECT(BgL_ez00_4428);
											BgL_arg4321z00_10862 =
												MAKE_YOUNG_PAIR(BgL_sz00_4421, BgL_arg4322z00_10863);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_4428, BgL_arg4321z00_10862);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_4429;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_10864;

											BgL_savedzd2bpzd2_10864 = VECTOR_REF(BgL_nsz00_4426, 0L);
											VECTOR_SET(BgL_nsz00_4426, 0L, BINT(2L));
											{
												obj_t BgL_fz00_10868;

												BgL_fz00_10868 = BgL_runz00_15596;
											BgL_recz00_10867:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_10869;

													BgL_rz00_10869 =
														BGL_PROCEDURE_CALL1(BgL_fz00_10868, BgL_nsz00_4426);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5669z00_31487;

														if (PROCEDUREP(BgL_rz00_10869))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_10872;

																BgL_arg1759z00_10872 =
																	PROCEDURE_ATTR(BgL_rz00_10869);
																if (STRUCTP(BgL_arg1759z00_10872))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5669z00_31487 =
																			(STRUCT_KEY(BgL_arg1759z00_10872) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5669z00_31487 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5669z00_31487 = ((bool_t) 0);
															}
														if (BgL_test5669z00_31487)
															{
																obj_t BgL_fz00_31495;

																BgL_fz00_31495 = BgL_rz00_10869;
																BgL_fz00_10868 = BgL_fz00_31495;
																goto BgL_recz00_10867;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_4426, 0L,
																	BgL_savedzd2bpzd2_10864);
																BgL_____rz00_4429 = BgL_rz00_10869;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5673z00_31497;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_10880;

												BgL_arg4320z00_10880 = BGL_EXITD_PROTECT(BgL_ez00_4428);
												BgL_test5673z00_31497 = PAIRP(BgL_arg4320z00_10880);
											}
											if (BgL_test5673z00_31497)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_10881;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_10882;

														BgL_arg4319z00_10882 =
															BGL_EXITD_PROTECT(BgL_ez00_4428);
														BgL_arg4318z00_10881 =
															CDR(((obj_t) BgL_arg4319z00_10882));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_4428,
														BgL_arg4318z00_10881);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_4427, BgL_sz00_4421);
										return BgL_____rz00_4429;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4550 */
	obj_t BGl_z62run4550z62zz__evaluate_compz00(obj_t BgL_envz00_15195,
		obj_t BgL_sz00_15198)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				BgL_ev_absz00_bglt BgL_i1255z00_15196;
				obj_t BgL_bodyz00_15197;

				BgL_i1255z00_15196 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_15195, (int) (0L)));
				BgL_bodyz00_15197 = PROCEDURE_REF(BgL_envz00_15195, (int) (1L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16614;

					BgL_bpz00_16614 = VECTOR_REF(((obj_t) BgL_sz00_15198), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_z12denvz12_16615;
						obj_t BgL_wherez00_16616;
						obj_t BgL_locz00_16617;

						BgL_z12denvz12_16615 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16616 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15196))->
							BgL_wherez00);
						BgL_locz00_16617 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15196))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1181 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16615, BgL_wherez00_16616,
								BgL_locz00_16617);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_za2za2resza2za2z00_16618;

								BgL_za2za2resza2za2z00_16618 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_15197, BgL_sz00_15198);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16615);
								return BgL_za2za2resza2za2z00_16618;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3451> */
	obj_t BGl_z62zc3z04anonymousza33451ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15199, obj_t BgL_sz00_15204)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_iboxesz00_15200;
				BgL_ev_absz00_bglt BgL_i1255z00_15201;
				obj_t BgL_bodyz00_15202;
				obj_t BgL_siza7ezd2framez75_15203;

				BgL_iboxesz00_15200 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15199, (int) (0L)));
				BgL_i1255z00_15201 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_15199, (int) (1L)));
				BgL_bodyz00_15202 = PROCEDURE_REF(BgL_envz00_15199, (int) (2L));
				BgL_siza7ezd2framez75_15203 =
					PROCEDURE_REF(BgL_envz00_15199, (int) (3L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16619;

					BgL_bpz00_16619 = VECTOR_REF(((obj_t) BgL_sz00_15204), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */

						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16620;

							BgL_runz00_16620 =
								MAKE_FX_PROCEDURE(BGl_z62run4552z62zz__evaluate_compz00,
								(int) (1L), (int) (3L));
							PROCEDURE_SET(BgL_runz00_16620, (int) (0L), BgL_iboxesz00_15200);
							PROCEDURE_SET(BgL_runz00_16620,
								(int) (1L), ((obj_t) BgL_i1255z00_15201));
							PROCEDURE_SET(BgL_runz00_16620, (int) (2L), BgL_bodyz00_15202);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16621;

								BgL_mainz00_16621 =
									MAKE_FX_PROCEDURE(BGl_z62main4551z62zz__evaluate_compz00,
									(int) (0L), (int) (5L));
								PROCEDURE_SET(BgL_mainz00_16621,
									(int) (0L), BgL_iboxesz00_15200);
								PROCEDURE_SET(BgL_mainz00_16621,
									(int) (1L), ((obj_t) BgL_i1255z00_15201));
								PROCEDURE_SET(BgL_mainz00_16621, (int) (2L), BgL_bodyz00_15202);
								PROCEDURE_SET(BgL_mainz00_16621, (int) (3L), BgL_runz00_16620);
								PROCEDURE_SET(BgL_mainz00_16621,
									(int) (4L), BgL_siza7ezd2framez75_15203);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16622;

									BgL_objz00_16622 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16620, BgL_objz00_16622);
									BgL_objz00_16622;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3453z00_16623;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3454z00_16624;

										BgL_arg3454z00_16624 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15201))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16625;

											BgL_newz00_16625 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_31561;

												BgL_tmpz00_31561 = (int) (3L);
												STRUCT_SET(BgL_newz00_16625, BgL_tmpz00_31561,
													BgL_arg3454z00_16624);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_31564;

												BgL_tmpz00_31564 = (int) (2L);
												STRUCT_SET(BgL_newz00_16625, BgL_tmpz00_31564,
													BgL_siza7ezd2framez75_15203);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_31567;

												BgL_tmpz00_31567 = (int) (1L);
												STRUCT_SET(BgL_newz00_16625, BgL_tmpz00_31567,
													BgL_runz00_16620);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												obj_t BgL_auxz00_31572;
												int BgL_tmpz00_31570;

												BgL_auxz00_31572 = BINT(0L);
												BgL_tmpz00_31570 = (int) (0L);
												STRUCT_SET(BgL_newz00_16625, BgL_tmpz00_31570,
													BgL_auxz00_31572);
											}
											BgL_arg3453z00_16623 = BgL_newz00_16625;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16621, BgL_arg3453z00_16623);
									BgL_arg3453z00_16623;
								}
								return BgL_mainz00_16621;
							}
						}
					}
				}
			}
		}

	}



/* &main4551 */
	obj_t BGl_z62main4551z62zz__evaluate_compz00(obj_t BgL_envz00_15205)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_runz00_15209;
				long BgL_siza7ezd2framez75_15210;

				BgL_runz00_15209 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15205, (int) (3L)));
				BgL_siza7ezd2framez75_15210 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_15205, (int) (4L)));
				return
					BGl_mainze76ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_15210,
					BgL_runz00_15209);
			}
		}

	}



/* main~6 */
	obj_t BGl_mainze76ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15595,
		obj_t BgL_runz00_15594)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_4447;

				BgL_sz00_4447 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_4448;

					BgL_bpz00_4448 = VECTOR_REF(((obj_t) BgL_sz00_4447), 0L);
					if (
						(((long) CINT(BgL_bpz00_4448) + BgL_siza7ezd2framez75_15595) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_4447))))
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_ez00_4450;

							BgL_ez00_4450 = BGL_EXITD_TOP_AS_OBJ();
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_arg4321z00_10900;

								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4322z00_10901;

									BgL_arg4322z00_10901 = BGL_EXITD_PROTECT(BgL_ez00_4450);
									BgL_arg4321z00_10900 =
										MAKE_YOUNG_PAIR(BgL_bpz00_4448, BgL_arg4322z00_10901);
								}
								BGL_EXITD_PROTECT_SET(BgL_ez00_4450, BgL_arg4321z00_10900);
								BUNSPEC;
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_accz00_4451;

								BgL_accz00_4451 =
									BGl_catchzd2trampolinezd2zz__evaluate_compz00
									(BgL_runz00_15594, BgL_sz00_4447, BgL_bpz00_4448);
								{	/* Eval/evaluate_comp.scm 1181 */
									bool_t BgL_test5675z00_31597;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4320z00_10903;

										BgL_arg4320z00_10903 = BGL_EXITD_PROTECT(BgL_ez00_4450);
										BgL_test5675z00_31597 = PAIRP(BgL_arg4320z00_10903);
									}
									if (BgL_test5675z00_31597)
										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4318z00_10904;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4319z00_10905;

												BgL_arg4319z00_10905 = BGL_EXITD_PROTECT(BgL_ez00_4450);
												BgL_arg4318z00_10904 =
													CDR(((obj_t) BgL_arg4319z00_10905));
											}
											BGL_EXITD_PROTECT_SET(BgL_ez00_4450,
												BgL_arg4318z00_10904);
											BUNSPEC;
										}
									else
										{	/* Eval/evaluate_comp.scm 1181 */
											BFALSE;
										}
								}
								VECTOR_SET(((obj_t) BgL_sz00_4447), 0L, BgL_bpz00_4448);
								return BgL_accz00_4451;
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_4452;

							BgL_nsz00_4452 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_4452, 1L, BgL_sz00_4447);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_4453;

								BgL_z12denvz12_4453 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_4453, BgL_nsz00_4452);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_4454;

									BgL_ez00_4454 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_10909;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_10910;

											BgL_arg4322z00_10910 = BGL_EXITD_PROTECT(BgL_ez00_4454);
											BgL_arg4321z00_10909 =
												MAKE_YOUNG_PAIR(BgL_sz00_4447, BgL_arg4322z00_10910);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_4454, BgL_arg4321z00_10909);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_4455;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_10911;

											BgL_savedzd2bpzd2_10911 = VECTOR_REF(BgL_nsz00_4452, 0L);
											VECTOR_SET(BgL_nsz00_4452, 0L, BINT(2L));
											{
												obj_t BgL_fz00_10915;

												BgL_fz00_10915 = BgL_runz00_15594;
											BgL_recz00_10914:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_10916;

													BgL_rz00_10916 =
														BGL_PROCEDURE_CALL1(BgL_fz00_10915, BgL_nsz00_4452);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5676z00_31621;

														if (PROCEDUREP(BgL_rz00_10916))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_10919;

																BgL_arg1759z00_10919 =
																	PROCEDURE_ATTR(BgL_rz00_10916);
																if (STRUCTP(BgL_arg1759z00_10919))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5676z00_31621 =
																			(STRUCT_KEY(BgL_arg1759z00_10919) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5676z00_31621 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5676z00_31621 = ((bool_t) 0);
															}
														if (BgL_test5676z00_31621)
															{
																obj_t BgL_fz00_31629;

																BgL_fz00_31629 = BgL_rz00_10916;
																BgL_fz00_10915 = BgL_fz00_31629;
																goto BgL_recz00_10914;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_4452, 0L,
																	BgL_savedzd2bpzd2_10911);
																BgL_____rz00_4455 = BgL_rz00_10916;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5679z00_31631;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_10927;

												BgL_arg4320z00_10927 = BGL_EXITD_PROTECT(BgL_ez00_4454);
												BgL_test5679z00_31631 = PAIRP(BgL_arg4320z00_10927);
											}
											if (BgL_test5679z00_31631)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_10928;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_10929;

														BgL_arg4319z00_10929 =
															BGL_EXITD_PROTECT(BgL_ez00_4454);
														BgL_arg4318z00_10928 =
															CDR(((obj_t) BgL_arg4319z00_10929));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_4454,
														BgL_arg4318z00_10928);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_4453, BgL_sz00_4447);
										return BgL_____rz00_4455;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4552 */
	obj_t BGl_z62run4552z62zz__evaluate_compz00(obj_t BgL_envz00_15211,
		obj_t BgL_sz00_15215)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_iboxesz00_15212;
				BgL_ev_absz00_bglt BgL_i1255z00_15213;
				obj_t BgL_bodyz00_15214;

				BgL_iboxesz00_15212 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15211, (int) (0L)));
				BgL_i1255z00_15213 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_15211, (int) (1L)));
				BgL_bodyz00_15214 = PROCEDURE_REF(BgL_envz00_15211, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16626;

					BgL_bpz00_16626 = VECTOR_REF(((obj_t) BgL_sz00_15215), 0L);
					BGl_makezd2boxeszd2zz__evaluate_compz00(BgL_sz00_15215,
						BgL_iboxesz00_15212, BgL_bpz00_16626);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_z12denvz12_16627;
						obj_t BgL_wherez00_16628;
						obj_t BgL_locz00_16629;

						BgL_z12denvz12_16627 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16628 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15213))->
							BgL_wherez00);
						BgL_locz00_16629 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15213))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1181 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16627, BgL_wherez00_16628,
								BgL_locz00_16629);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_za2za2resza2za2z00_16630;

								BgL_za2za2resza2za2z00_16630 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_15214, BgL_sz00_15215);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16627);
								return BgL_za2za2resza2za2z00_16630;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3462> */
	obj_t BGl_z62zc3z04anonymousza33462ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15216, obj_t BgL_sz00_15222)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_ifreesz00_15217;
				obj_t BgL_siza7eza7_15218;
				BgL_ev_absz00_bglt BgL_i1255z00_15219;
				obj_t BgL_bodyz00_15220;
				obj_t BgL_siza7ezd2framez75_15221;

				BgL_ifreesz00_15217 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15216, (int) (0L)));
				BgL_siza7eza7_15218 = PROCEDURE_REF(BgL_envz00_15216, (int) (1L));
				BgL_i1255z00_15219 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_15216, (int) (2L)));
				BgL_bodyz00_15220 = PROCEDURE_REF(BgL_envz00_15216, (int) (3L));
				BgL_siza7ezd2framez75_15221 =
					PROCEDURE_REF(BgL_envz00_15216, (int) (4L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16631;

					BgL_bpz00_16631 = VECTOR_REF(((obj_t) BgL_sz00_15222), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_valza2za2_16632;

						BgL_valza2za2_16632 =
							BGl_freezd2collectzd2zz__evaluate_compz00(BgL_sz00_15222,
							BgL_bpz00_16631, BgL_ifreesz00_15217);
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16633;

							BgL_runz00_16633 =
								MAKE_FX_PROCEDURE(BGl_z62run4554z62zz__evaluate_compz00,
								(int) (1L), (int) (4L));
							PROCEDURE_SET(BgL_runz00_16633, (int) (0L), BgL_siza7eza7_15218);
							PROCEDURE_SET(BgL_runz00_16633, (int) (1L), BgL_valza2za2_16632);
							PROCEDURE_SET(BgL_runz00_16633,
								(int) (2L), ((obj_t) BgL_i1255z00_15219));
							PROCEDURE_SET(BgL_runz00_16633, (int) (3L), BgL_bodyz00_15220);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16634;

								BgL_mainz00_16634 =
									MAKE_FX_PROCEDURE(BGl_z62main4553z62zz__evaluate_compz00,
									(int) (0L), (int) (6L));
								PROCEDURE_SET(BgL_mainz00_16634,
									(int) (0L), BgL_siza7eza7_15218);
								PROCEDURE_SET(BgL_mainz00_16634,
									(int) (1L), BgL_valza2za2_16632);
								PROCEDURE_SET(BgL_mainz00_16634,
									(int) (2L), ((obj_t) BgL_i1255z00_15219));
								PROCEDURE_SET(BgL_mainz00_16634, (int) (3L), BgL_bodyz00_15220);
								PROCEDURE_SET(BgL_mainz00_16634, (int) (4L), BgL_runz00_16633);
								PROCEDURE_SET(BgL_mainz00_16634,
									(int) (5L), BgL_siza7ezd2framez75_15221);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16635;

									BgL_objz00_16635 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16633, BgL_objz00_16635);
									BgL_objz00_16635;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3463z00_16636;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3464z00_16637;

										BgL_arg3464z00_16637 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15219))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16638;

											BgL_newz00_16638 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_31706;

												BgL_tmpz00_31706 = (int) (3L);
												STRUCT_SET(BgL_newz00_16638, BgL_tmpz00_31706,
													BgL_arg3464z00_16637);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_31709;

												BgL_tmpz00_31709 = (int) (2L);
												STRUCT_SET(BgL_newz00_16638, BgL_tmpz00_31709,
													BgL_siza7ezd2framez75_15221);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_31712;

												BgL_tmpz00_31712 = (int) (1L);
												STRUCT_SET(BgL_newz00_16638, BgL_tmpz00_31712,
													BgL_runz00_16633);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												obj_t BgL_auxz00_31717;
												int BgL_tmpz00_31715;

												BgL_auxz00_31717 = BINT(0L);
												BgL_tmpz00_31715 = (int) (0L);
												STRUCT_SET(BgL_newz00_16638, BgL_tmpz00_31715,
													BgL_auxz00_31717);
											}
											BgL_arg3463z00_16636 = BgL_newz00_16638;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16634, BgL_arg3463z00_16636);
									BgL_arg3463z00_16636;
								}
								return BgL_mainz00_16634;
							}
						}
					}
				}
			}
		}

	}



/* &main4553 */
	obj_t BGl_z62main4553z62zz__evaluate_compz00(obj_t BgL_envz00_15223)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_runz00_15228;
				long BgL_siza7ezd2framez75_15229;

				BgL_runz00_15228 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15223, (int) (4L)));
				BgL_siza7ezd2framez75_15229 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_15223, (int) (5L)));
				return
					BGl_mainze75ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_15229,
					BgL_runz00_15228);
			}
		}

	}



/* main~5 */
	obj_t BGl_mainze75ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15593,
		obj_t BgL_runz00_15592)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_4477;

				BgL_sz00_4477 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_4478;

					BgL_bpz00_4478 = VECTOR_REF(((obj_t) BgL_sz00_4477), 0L);
					if (
						(((long) CINT(BgL_bpz00_4478) + BgL_siza7ezd2framez75_15593) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_4477))))
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_ez00_4480;

							BgL_ez00_4480 = BGL_EXITD_TOP_AS_OBJ();
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_arg4321z00_10951;

								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4322z00_10952;

									BgL_arg4322z00_10952 = BGL_EXITD_PROTECT(BgL_ez00_4480);
									BgL_arg4321z00_10951 =
										MAKE_YOUNG_PAIR(BgL_bpz00_4478, BgL_arg4322z00_10952);
								}
								BGL_EXITD_PROTECT_SET(BgL_ez00_4480, BgL_arg4321z00_10951);
								BUNSPEC;
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_accz00_4481;

								BgL_accz00_4481 =
									BGl_catchzd2trampolinezd2zz__evaluate_compz00
									(BgL_runz00_15592, BgL_sz00_4477, BgL_bpz00_4478);
								{	/* Eval/evaluate_comp.scm 1181 */
									bool_t BgL_test5681z00_31742;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4320z00_10954;

										BgL_arg4320z00_10954 = BGL_EXITD_PROTECT(BgL_ez00_4480);
										BgL_test5681z00_31742 = PAIRP(BgL_arg4320z00_10954);
									}
									if (BgL_test5681z00_31742)
										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4318z00_10955;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4319z00_10956;

												BgL_arg4319z00_10956 = BGL_EXITD_PROTECT(BgL_ez00_4480);
												BgL_arg4318z00_10955 =
													CDR(((obj_t) BgL_arg4319z00_10956));
											}
											BGL_EXITD_PROTECT_SET(BgL_ez00_4480,
												BgL_arg4318z00_10955);
											BUNSPEC;
										}
									else
										{	/* Eval/evaluate_comp.scm 1181 */
											BFALSE;
										}
								}
								VECTOR_SET(((obj_t) BgL_sz00_4477), 0L, BgL_bpz00_4478);
								return BgL_accz00_4481;
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_4482;

							BgL_nsz00_4482 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_4482, 1L, BgL_sz00_4477);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_4483;

								BgL_z12denvz12_4483 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_4483, BgL_nsz00_4482);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_4484;

									BgL_ez00_4484 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_10960;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_10961;

											BgL_arg4322z00_10961 = BGL_EXITD_PROTECT(BgL_ez00_4484);
											BgL_arg4321z00_10960 =
												MAKE_YOUNG_PAIR(BgL_sz00_4477, BgL_arg4322z00_10961);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_4484, BgL_arg4321z00_10960);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_4485;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_10962;

											BgL_savedzd2bpzd2_10962 = VECTOR_REF(BgL_nsz00_4482, 0L);
											VECTOR_SET(BgL_nsz00_4482, 0L, BINT(2L));
											{
												obj_t BgL_fz00_10966;

												BgL_fz00_10966 = BgL_runz00_15592;
											BgL_recz00_10965:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_10967;

													BgL_rz00_10967 =
														BGL_PROCEDURE_CALL1(BgL_fz00_10966, BgL_nsz00_4482);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5682z00_31766;

														if (PROCEDUREP(BgL_rz00_10967))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_10970;

																BgL_arg1759z00_10970 =
																	PROCEDURE_ATTR(BgL_rz00_10967);
																if (STRUCTP(BgL_arg1759z00_10970))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5682z00_31766 =
																			(STRUCT_KEY(BgL_arg1759z00_10970) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5682z00_31766 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5682z00_31766 = ((bool_t) 0);
															}
														if (BgL_test5682z00_31766)
															{
																obj_t BgL_fz00_31774;

																BgL_fz00_31774 = BgL_rz00_10967;
																BgL_fz00_10966 = BgL_fz00_31774;
																goto BgL_recz00_10965;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_4482, 0L,
																	BgL_savedzd2bpzd2_10962);
																BgL_____rz00_4485 = BgL_rz00_10967;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5685z00_31776;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_10978;

												BgL_arg4320z00_10978 = BGL_EXITD_PROTECT(BgL_ez00_4484);
												BgL_test5685z00_31776 = PAIRP(BgL_arg4320z00_10978);
											}
											if (BgL_test5685z00_31776)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_10979;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_10980;

														BgL_arg4319z00_10980 =
															BGL_EXITD_PROTECT(BgL_ez00_4484);
														BgL_arg4318z00_10979 =
															CDR(((obj_t) BgL_arg4319z00_10980));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_4484,
														BgL_arg4318z00_10979);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_4483, BgL_sz00_4477);
										return BgL_____rz00_4485;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4554 */
	obj_t BGl_z62run4554z62zz__evaluate_compz00(obj_t BgL_envz00_15230,
		obj_t BgL_sz00_15235)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				long BgL_siza7eza7_15231;
				obj_t BgL_valza2za2_15232;
				BgL_ev_absz00_bglt BgL_i1255z00_15233;
				obj_t BgL_bodyz00_15234;

				BgL_siza7eza7_15231 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_15230, (int) (0L)));
				BgL_valza2za2_15232 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15230, (int) (1L)));
				BgL_i1255z00_15233 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_15230, (int) (2L)));
				BgL_bodyz00_15234 = PROCEDURE_REF(BgL_envz00_15230, (int) (3L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16639;

					BgL_bpz00_16639 = VECTOR_REF(((obj_t) BgL_sz00_15235), 0L);
					BGl_freezd2restorezd2zz__evaluate_compz00(BgL_sz00_15235,
						BgL_valza2za2_15232,
						((long) CINT(BgL_bpz00_16639) + BgL_siza7eza7_15231));
					{	/* Eval/evaluate_comp.scm 1102 */
						obj_t BgL_z12denvz12_16640;
						obj_t BgL_wherez00_16641;
						obj_t BgL_locz00_16642;

						BgL_z12denvz12_16640 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16641 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15233))->
							BgL_wherez00);
						BgL_locz00_16642 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15233))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1102 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16640, BgL_wherez00_16641,
								BgL_locz00_16642);
							{	/* Eval/evaluate_comp.scm 1102 */
								obj_t BgL_za2za2resza2za2z00_16643;

								BgL_za2za2resza2za2z00_16643 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_15234, BgL_sz00_15235);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16640);
								return BgL_za2za2resza2za2z00_16643;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3469> */
	obj_t BGl_z62zc3z04anonymousza33469ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15236, obj_t BgL_sz00_15243)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_ifreesz00_15237;
				obj_t BgL_iboxesz00_15238;
				obj_t BgL_siza7eza7_15239;
				BgL_ev_absz00_bglt BgL_i1255z00_15240;
				obj_t BgL_bodyz00_15241;
				obj_t BgL_siza7ezd2framez75_15242;

				BgL_ifreesz00_15237 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15236, (int) (0L)));
				BgL_iboxesz00_15238 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15236, (int) (1L)));
				BgL_siza7eza7_15239 = PROCEDURE_REF(BgL_envz00_15236, (int) (2L));
				BgL_i1255z00_15240 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_15236, (int) (3L)));
				BgL_bodyz00_15241 = PROCEDURE_REF(BgL_envz00_15236, (int) (4L));
				BgL_siza7ezd2framez75_15242 =
					PROCEDURE_REF(BgL_envz00_15236, (int) (5L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16644;

					BgL_bpz00_16644 = VECTOR_REF(((obj_t) BgL_sz00_15243), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_valza2za2_16645;

						BgL_valza2za2_16645 =
							BGl_freezd2collectzd2zz__evaluate_compz00(BgL_sz00_15243,
							BgL_bpz00_16644, BgL_ifreesz00_15237);
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16646;

							BgL_runz00_16646 =
								MAKE_FX_PROCEDURE(BGl_z62run4556z62zz__evaluate_compz00,
								(int) (1L), (int) (5L));
							PROCEDURE_SET(BgL_runz00_16646, (int) (0L), BgL_iboxesz00_15238);
							PROCEDURE_SET(BgL_runz00_16646, (int) (1L), BgL_siza7eza7_15239);
							PROCEDURE_SET(BgL_runz00_16646, (int) (2L), BgL_valza2za2_16645);
							PROCEDURE_SET(BgL_runz00_16646,
								(int) (3L), ((obj_t) BgL_i1255z00_15240));
							PROCEDURE_SET(BgL_runz00_16646, (int) (4L), BgL_bodyz00_15241);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16647;

								BgL_mainz00_16647 =
									MAKE_FX_PROCEDURE(BGl_z62main4555z62zz__evaluate_compz00,
									(int) (0L), (int) (7L));
								PROCEDURE_SET(BgL_mainz00_16647,
									(int) (0L), BgL_iboxesz00_15238);
								PROCEDURE_SET(BgL_mainz00_16647,
									(int) (1L), BgL_siza7eza7_15239);
								PROCEDURE_SET(BgL_mainz00_16647,
									(int) (2L), BgL_valza2za2_16645);
								PROCEDURE_SET(BgL_mainz00_16647,
									(int) (3L), ((obj_t) BgL_i1255z00_15240));
								PROCEDURE_SET(BgL_mainz00_16647, (int) (4L), BgL_bodyz00_15241);
								PROCEDURE_SET(BgL_mainz00_16647, (int) (5L), BgL_runz00_16646);
								PROCEDURE_SET(BgL_mainz00_16647,
									(int) (6L), BgL_siza7ezd2framez75_15242);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16648;

									BgL_objz00_16648 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16646, BgL_objz00_16648);
									BgL_objz00_16648;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3470z00_16649;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3472z00_16650;

										BgL_arg3472z00_16650 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15240))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16651;

											BgL_newz00_16651 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_31863;

												BgL_tmpz00_31863 = (int) (3L);
												STRUCT_SET(BgL_newz00_16651, BgL_tmpz00_31863,
													BgL_arg3472z00_16650);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_31866;

												BgL_tmpz00_31866 = (int) (2L);
												STRUCT_SET(BgL_newz00_16651, BgL_tmpz00_31866,
													BgL_siza7ezd2framez75_15242);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_31869;

												BgL_tmpz00_31869 = (int) (1L);
												STRUCT_SET(BgL_newz00_16651, BgL_tmpz00_31869,
													BgL_runz00_16646);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												obj_t BgL_auxz00_31874;
												int BgL_tmpz00_31872;

												BgL_auxz00_31874 = BINT(0L);
												BgL_tmpz00_31872 = (int) (0L);
												STRUCT_SET(BgL_newz00_16651, BgL_tmpz00_31872,
													BgL_auxz00_31874);
											}
											BgL_arg3470z00_16649 = BgL_newz00_16651;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16647, BgL_arg3470z00_16649);
									BgL_arg3470z00_16649;
								}
								return BgL_mainz00_16647;
							}
						}
					}
				}
			}
		}

	}



/* &main4555 */
	obj_t BGl_z62main4555z62zz__evaluate_compz00(obj_t BgL_envz00_15244)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_runz00_15250;
				long BgL_siza7ezd2framez75_15251;

				BgL_runz00_15250 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15244, (int) (5L)));
				BgL_siza7ezd2framez75_15251 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_15244, (int) (6L)));
				return
					BGl_mainze74ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_15251,
					BgL_runz00_15250);
			}
		}

	}



/* main~4 */
	obj_t BGl_mainze74ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15591,
		obj_t BgL_runz00_15590)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_4505;

				BgL_sz00_4505 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_4506;

					BgL_bpz00_4506 = VECTOR_REF(((obj_t) BgL_sz00_4505), 0L);
					if (
						(((long) CINT(BgL_bpz00_4506) + BgL_siza7ezd2framez75_15591) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_4505))))
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_ez00_4508;

							BgL_ez00_4508 = BGL_EXITD_TOP_AS_OBJ();
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_arg4321z00_11000;

								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4322z00_11001;

									BgL_arg4322z00_11001 = BGL_EXITD_PROTECT(BgL_ez00_4508);
									BgL_arg4321z00_11000 =
										MAKE_YOUNG_PAIR(BgL_bpz00_4506, BgL_arg4322z00_11001);
								}
								BGL_EXITD_PROTECT_SET(BgL_ez00_4508, BgL_arg4321z00_11000);
								BUNSPEC;
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_accz00_4509;

								BgL_accz00_4509 =
									BGl_catchzd2trampolinezd2zz__evaluate_compz00
									(BgL_runz00_15590, BgL_sz00_4505, BgL_bpz00_4506);
								{	/* Eval/evaluate_comp.scm 1181 */
									bool_t BgL_test5687z00_31899;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4320z00_11003;

										BgL_arg4320z00_11003 = BGL_EXITD_PROTECT(BgL_ez00_4508);
										BgL_test5687z00_31899 = PAIRP(BgL_arg4320z00_11003);
									}
									if (BgL_test5687z00_31899)
										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4318z00_11004;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4319z00_11005;

												BgL_arg4319z00_11005 = BGL_EXITD_PROTECT(BgL_ez00_4508);
												BgL_arg4318z00_11004 =
													CDR(((obj_t) BgL_arg4319z00_11005));
											}
											BGL_EXITD_PROTECT_SET(BgL_ez00_4508,
												BgL_arg4318z00_11004);
											BUNSPEC;
										}
									else
										{	/* Eval/evaluate_comp.scm 1181 */
											BFALSE;
										}
								}
								VECTOR_SET(((obj_t) BgL_sz00_4505), 0L, BgL_bpz00_4506);
								return BgL_accz00_4509;
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_4510;

							BgL_nsz00_4510 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_4510, 1L, BgL_sz00_4505);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_4511;

								BgL_z12denvz12_4511 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_4511, BgL_nsz00_4510);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_4512;

									BgL_ez00_4512 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_11009;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_11010;

											BgL_arg4322z00_11010 = BGL_EXITD_PROTECT(BgL_ez00_4512);
											BgL_arg4321z00_11009 =
												MAKE_YOUNG_PAIR(BgL_sz00_4505, BgL_arg4322z00_11010);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_4512, BgL_arg4321z00_11009);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_4513;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_11011;

											BgL_savedzd2bpzd2_11011 = VECTOR_REF(BgL_nsz00_4510, 0L);
											VECTOR_SET(BgL_nsz00_4510, 0L, BINT(2L));
											{
												obj_t BgL_fz00_11015;

												BgL_fz00_11015 = BgL_runz00_15590;
											BgL_recz00_11014:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_11016;

													BgL_rz00_11016 =
														BGL_PROCEDURE_CALL1(BgL_fz00_11015, BgL_nsz00_4510);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5688z00_31923;

														if (PROCEDUREP(BgL_rz00_11016))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_11019;

																BgL_arg1759z00_11019 =
																	PROCEDURE_ATTR(BgL_rz00_11016);
																if (STRUCTP(BgL_arg1759z00_11019))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5688z00_31923 =
																			(STRUCT_KEY(BgL_arg1759z00_11019) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5688z00_31923 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5688z00_31923 = ((bool_t) 0);
															}
														if (BgL_test5688z00_31923)
															{
																obj_t BgL_fz00_31931;

																BgL_fz00_31931 = BgL_rz00_11016;
																BgL_fz00_11015 = BgL_fz00_31931;
																goto BgL_recz00_11014;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_4510, 0L,
																	BgL_savedzd2bpzd2_11011);
																BgL_____rz00_4513 = BgL_rz00_11016;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5691z00_31933;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_11027;

												BgL_arg4320z00_11027 = BGL_EXITD_PROTECT(BgL_ez00_4512);
												BgL_test5691z00_31933 = PAIRP(BgL_arg4320z00_11027);
											}
											if (BgL_test5691z00_31933)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_11028;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_11029;

														BgL_arg4319z00_11029 =
															BGL_EXITD_PROTECT(BgL_ez00_4512);
														BgL_arg4318z00_11028 =
															CDR(((obj_t) BgL_arg4319z00_11029));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_4512,
														BgL_arg4318z00_11028);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_4511, BgL_sz00_4505);
										return BgL_____rz00_4513;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4556 */
	obj_t BGl_z62run4556z62zz__evaluate_compz00(obj_t BgL_envz00_15252,
		obj_t BgL_sz00_15258)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_iboxesz00_15253;
				long BgL_siza7eza7_15254;
				obj_t BgL_valza2za2_15255;
				BgL_ev_absz00_bglt BgL_i1255z00_15256;
				obj_t BgL_bodyz00_15257;

				BgL_iboxesz00_15253 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15252, (int) (0L)));
				BgL_siza7eza7_15254 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_15252, (int) (1L)));
				BgL_valza2za2_15255 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15252, (int) (2L)));
				BgL_i1255z00_15256 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_15252, (int) (3L)));
				BgL_bodyz00_15257 = PROCEDURE_REF(BgL_envz00_15252, (int) (4L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16652;

					BgL_bpz00_16652 = VECTOR_REF(((obj_t) BgL_sz00_15258), 0L);
					BGl_makezd2boxeszd2zz__evaluate_compz00(BgL_sz00_15258,
						BgL_iboxesz00_15253, BgL_bpz00_16652);
					BGl_freezd2restorezd2zz__evaluate_compz00(BgL_sz00_15258,
						BgL_valza2za2_15255,
						((long) CINT(BgL_bpz00_16652) + BgL_siza7eza7_15254));
					{	/* Eval/evaluate_comp.scm 1102 */
						obj_t BgL_z12denvz12_16653;
						obj_t BgL_wherez00_16654;
						obj_t BgL_locz00_16655;

						BgL_z12denvz12_16653 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16654 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15256))->
							BgL_wherez00);
						BgL_locz00_16655 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15256))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1102 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16653, BgL_wherez00_16654,
								BgL_locz00_16655);
							{	/* Eval/evaluate_comp.scm 1102 */
								obj_t BgL_za2za2resza2za2z00_16656;

								BgL_za2za2resza2za2z00_16656 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_15257, BgL_sz00_15258);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16653);
								return BgL_za2za2resza2za2z00_16656;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3916> */
	obj_t BGl_z62zc3z04anonymousza33916ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15259, obj_t BgL_sz00_15263)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				BgL_ev_absz00_bglt BgL_i1255z00_15260;
				obj_t BgL_bodyz00_15261;
				obj_t BgL_siza7ezd2framez75_15262;

				BgL_i1255z00_15260 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_15259, (int) (0L)));
				BgL_bodyz00_15261 = PROCEDURE_REF(BgL_envz00_15259, (int) (1L));
				BgL_siza7ezd2framez75_15262 =
					PROCEDURE_REF(BgL_envz00_15259, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16657;

					BgL_bpz00_16657 = VECTOR_REF(((obj_t) BgL_sz00_15263), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */

						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16658;

							BgL_runz00_16658 =
								MAKE_FX_PROCEDURE(BGl_z62run4558z62zz__evaluate_compz00,
								(int) (1L), (int) (2L));
							PROCEDURE_SET(BgL_runz00_16658,
								(int) (0L), ((obj_t) BgL_i1255z00_15260));
							PROCEDURE_SET(BgL_runz00_16658, (int) (1L), BgL_bodyz00_15261);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16659;

								BgL_mainz00_16659 =
									MAKE_VA_PROCEDURE(BGl_z62main4557z62zz__evaluate_compz00,
									(int) ((-5L)), (int) (4L));
								PROCEDURE_SET(BgL_mainz00_16659, (int) (0L), BgL_bodyz00_15261);
								PROCEDURE_SET(BgL_mainz00_16659,
									(int) (1L), ((obj_t) BgL_i1255z00_15260));
								PROCEDURE_SET(BgL_mainz00_16659, (int) (2L), BgL_runz00_16658);
								PROCEDURE_SET(BgL_mainz00_16659,
									(int) (3L), BgL_siza7ezd2framez75_15262);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16660;

									BgL_objz00_16660 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16658, BgL_objz00_16660);
									BgL_objz00_16660;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3917z00_16661;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3918z00_16662;
										obj_t BgL_arg3919z00_16663;

										BgL_arg3918z00_16662 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15260))->
											BgL_arityz00);
										BgL_arg3919z00_16663 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15260))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16664;

											BgL_newz00_16664 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_32004;

												BgL_tmpz00_32004 = (int) (3L);
												STRUCT_SET(BgL_newz00_16664, BgL_tmpz00_32004,
													BgL_arg3919z00_16663);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_32007;

												BgL_tmpz00_32007 = (int) (2L);
												STRUCT_SET(BgL_newz00_16664, BgL_tmpz00_32007,
													BgL_siza7ezd2framez75_15262);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_32010;

												BgL_tmpz00_32010 = (int) (1L);
												STRUCT_SET(BgL_newz00_16664, BgL_tmpz00_32010,
													BgL_runz00_16658);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_32013;

												BgL_tmpz00_32013 = (int) (0L);
												STRUCT_SET(BgL_newz00_16664, BgL_tmpz00_32013,
													BgL_arg3918z00_16662);
											}
											BgL_arg3917z00_16661 = BgL_newz00_16664;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16659, BgL_arg3917z00_16661);
									BgL_arg3917z00_16661;
								}
								return BgL_mainz00_16659;
							}
						}
					}
				}
			}
		}

	}



/* &main4557 */
	obj_t BGl_z62main4557z62zz__evaluate_compz00(obj_t BgL_envz00_15264,
		obj_t BgL_az00_15269, obj_t BgL_bz00_15270, obj_t BgL_cz00_15271,
		obj_t BgL_dz00_15272, obj_t BgL_restz00_15273)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				BgL_ev_absz00_bglt BgL_i1255z00_15266;
				obj_t BgL_runz00_15267;
				long BgL_siza7ezd2framez75_15268;

				BgL_i1255z00_15266 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_15264, (int) (1L)));
				BgL_runz00_15267 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15264, (int) (2L)));
				BgL_siza7ezd2framez75_15268 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_15264, (int) (3L)));
				return
					BGl_mainze73ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_15268,
					BgL_runz00_15267, BgL_i1255z00_15266, BgL_az00_15269, BgL_bz00_15270,
					BgL_cz00_15271, BgL_dz00_15272, BgL_restz00_15273);
			}
		}

	}



/* main~3 */
	obj_t BGl_mainze73ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15589,
		obj_t BgL_runz00_15588, BgL_ev_absz00_bglt BgL_i1255z00_15587,
		obj_t BgL_az00_5791, obj_t BgL_bz00_5792, obj_t BgL_cz00_5793,
		obj_t BgL_dz00_5794, obj_t BgL_restz00_5795)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_5797;

				BgL_sz00_5797 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_5798;

					BgL_bpz00_5798 = VECTOR_REF(((obj_t) BgL_sz00_5797), 0L);
					if (
						(((long) CINT(BgL_bpz00_5798) + BgL_siza7ezd2framez75_15589) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_5797))))
						{	/* Eval/evaluate_comp.scm 1181 */
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3922z00_5800;

								BgL_arg3922z00_5800 = ((long) CINT(BgL_bpz00_5798) + 0L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5797), BgL_arg3922z00_5800, BgL_az00_5791);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3923z00_5801;

								BgL_arg3923z00_5801 = ((long) CINT(BgL_bpz00_5798) + 1L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5797), BgL_arg3923z00_5801, BgL_bz00_5792);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3924z00_5802;

								BgL_arg3924z00_5802 = ((long) CINT(BgL_bpz00_5798) + 2L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5797), BgL_arg3924z00_5802, BgL_cz00_5793);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3925z00_5803;

								BgL_arg3925z00_5803 = ((long) CINT(BgL_bpz00_5798) + 3L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5797), BgL_arg3925z00_5803, BgL_dz00_5794);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_arg3926z00_5804;
								long BgL_arg3927z00_5805;
								long BgL_arg3928z00_5806;
								obj_t BgL_arg3929z00_5807;

								BgL_arg3926z00_5804 =
									(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15587))->
									BgL_wherez00);
								BgL_arg3927z00_5805 = ((long) CINT(BgL_bpz00_5798) + 4L);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3930z00_5808;

									BgL_arg3930z00_5808 =
										(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15587))->
										BgL_arityz00);
									if (((long) CINT(BgL_arg3930z00_5808) < 0L))
										{	/* Eval/evaluate_comp.scm 1066 */
											BgL_arg3928z00_5806 =
												((long) CINT(BgL_arg3930z00_5808) + 4L);
										}
									else
										{	/* Eval/evaluate_comp.scm 1066 */
											BgL_arg3928z00_5806 =
												((long) CINT(BgL_arg3930z00_5808) - 4L);
								}}
								BgL_arg3929z00_5807 =
									(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15587))->
									BgL_locz00);
								BGl_bindzd2framezd2zz__evaluate_compz00(BgL_sz00_5797,
									BgL_arg3926z00_5804, BgL_arg3927z00_5805, BgL_arg3928z00_5806,
									BgL_restz00_5795, BgL_arg3929z00_5807);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_ez00_5809;

								BgL_ez00_5809 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4321z00_10572;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4322z00_10573;

										BgL_arg4322z00_10573 = BGL_EXITD_PROTECT(BgL_ez00_5809);
										BgL_arg4321z00_10572 =
											MAKE_YOUNG_PAIR(BgL_bpz00_5798, BgL_arg4322z00_10573);
									}
									BGL_EXITD_PROTECT_SET(BgL_ez00_5809, BgL_arg4321z00_10572);
									BUNSPEC;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_accz00_5810;

									BgL_accz00_5810 =
										BGl_catchzd2trampolinezd2zz__evaluate_compz00
										(BgL_runz00_15588, BgL_sz00_5797, BgL_bpz00_5798);
									{	/* Eval/evaluate_comp.scm 1181 */
										bool_t BgL_test5694z00_32070;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4320z00_10575;

											BgL_arg4320z00_10575 = BGL_EXITD_PROTECT(BgL_ez00_5809);
											BgL_test5694z00_32070 = PAIRP(BgL_arg4320z00_10575);
										}
										if (BgL_test5694z00_32070)
											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4318z00_10576;

												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4319z00_10577;

													BgL_arg4319z00_10577 =
														BGL_EXITD_PROTECT(BgL_ez00_5809);
													BgL_arg4318z00_10576 =
														CDR(((obj_t) BgL_arg4319z00_10577));
												}
												BGL_EXITD_PROTECT_SET(BgL_ez00_5809,
													BgL_arg4318z00_10576);
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 1181 */
												BFALSE;
											}
									}
									VECTOR_SET(((obj_t) BgL_sz00_5797), 0L, BgL_bpz00_5798);
									return BgL_accz00_5810;
								}
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_5811;

							BgL_nsz00_5811 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_5811, 1L, BgL_sz00_5797);
							VECTOR_SET(BgL_nsz00_5811, 2L, BgL_az00_5791);
							VECTOR_SET(BgL_nsz00_5811, 3L, BgL_bz00_5792);
							VECTOR_SET(BgL_nsz00_5811, 4L, BgL_cz00_5793);
							VECTOR_SET(BgL_nsz00_5811, 5L, BgL_dz00_5794);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_arg3931z00_5812;
								long BgL_arg3932z00_5813;
								obj_t BgL_arg3933z00_5814;

								BgL_arg3931z00_5812 =
									(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15587))->
									BgL_wherez00);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3934z00_5815;

									BgL_arg3934z00_5815 =
										(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15587))->
										BgL_arityz00);
									if (((long) CINT(BgL_arg3934z00_5815) < 0L))
										{	/* Eval/evaluate_comp.scm 1066 */
											BgL_arg3932z00_5813 =
												((long) CINT(BgL_arg3934z00_5815) + 4L);
										}
									else
										{	/* Eval/evaluate_comp.scm 1066 */
											BgL_arg3932z00_5813 =
												((long) CINT(BgL_arg3934z00_5815) - 4L);
								}}
								BgL_arg3933z00_5814 =
									(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15587))->
									BgL_locz00);
								BGl_bindzd2framezd2zz__evaluate_compz00(BgL_nsz00_5811,
									BgL_arg3931z00_5812, 6L, BgL_arg3932z00_5813,
									BgL_restz00_5795, BgL_arg3933z00_5814);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_5816;

								BgL_z12denvz12_5816 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5816, BgL_nsz00_5811);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_5817;

									BgL_ez00_5817 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_10589;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_10590;

											BgL_arg4322z00_10590 = BGL_EXITD_PROTECT(BgL_ez00_5817);
											BgL_arg4321z00_10589 =
												MAKE_YOUNG_PAIR(BgL_sz00_5797, BgL_arg4322z00_10590);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_5817, BgL_arg4321z00_10589);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_5818;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_10591;

											BgL_savedzd2bpzd2_10591 = VECTOR_REF(BgL_nsz00_5811, 0L);
											VECTOR_SET(BgL_nsz00_5811, 0L, BINT(2L));
											{
												obj_t BgL_fz00_10595;

												BgL_fz00_10595 = BgL_runz00_15588;
											BgL_recz00_10594:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_10596;

													BgL_rz00_10596 =
														BGL_PROCEDURE_CALL1(BgL_fz00_10595, BgL_nsz00_5811);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5696z00_32109;

														if (PROCEDUREP(BgL_rz00_10596))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_10599;

																BgL_arg1759z00_10599 =
																	PROCEDURE_ATTR(BgL_rz00_10596);
																if (STRUCTP(BgL_arg1759z00_10599))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5696z00_32109 =
																			(STRUCT_KEY(BgL_arg1759z00_10599) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5696z00_32109 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5696z00_32109 = ((bool_t) 0);
															}
														if (BgL_test5696z00_32109)
															{
																obj_t BgL_fz00_32117;

																BgL_fz00_32117 = BgL_rz00_10596;
																BgL_fz00_10595 = BgL_fz00_32117;
																goto BgL_recz00_10594;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_5811, 0L,
																	BgL_savedzd2bpzd2_10591);
																BgL_____rz00_5818 = BgL_rz00_10596;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5699z00_32119;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_10607;

												BgL_arg4320z00_10607 = BGL_EXITD_PROTECT(BgL_ez00_5817);
												BgL_test5699z00_32119 = PAIRP(BgL_arg4320z00_10607);
											}
											if (BgL_test5699z00_32119)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_10608;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_10609;

														BgL_arg4319z00_10609 =
															BGL_EXITD_PROTECT(BgL_ez00_5817);
														BgL_arg4318z00_10608 =
															CDR(((obj_t) BgL_arg4319z00_10609));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_5817,
														BgL_arg4318z00_10608);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5816, BgL_sz00_5797);
										return BgL_____rz00_5818;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4558 */
	obj_t BGl_z62run4558z62zz__evaluate_compz00(obj_t BgL_envz00_15274,
		obj_t BgL_sz00_15277)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				BgL_ev_absz00_bglt BgL_i1255z00_15275;
				obj_t BgL_bodyz00_15276;

				BgL_i1255z00_15275 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_15274, (int) (0L)));
				BgL_bodyz00_15276 = PROCEDURE_REF(BgL_envz00_15274, (int) (1L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16665;

					BgL_bpz00_16665 = VECTOR_REF(((obj_t) BgL_sz00_15277), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_z12denvz12_16666;
						obj_t BgL_wherez00_16667;
						obj_t BgL_locz00_16668;

						BgL_z12denvz12_16666 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16667 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15275))->
							BgL_wherez00);
						BgL_locz00_16668 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15275))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1181 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16666, BgL_wherez00_16667,
								BgL_locz00_16668);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_za2za2resza2za2z00_16669;

								BgL_za2za2resza2za2z00_16669 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_15276, BgL_sz00_15277);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16666);
								return BgL_za2za2resza2za2z00_16669;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3936> */
	obj_t BGl_z62zc3z04anonymousza33936ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15278, obj_t BgL_sz00_15283)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_iboxesz00_15279;
				BgL_ev_absz00_bglt BgL_i1255z00_15280;
				obj_t BgL_bodyz00_15281;
				obj_t BgL_siza7ezd2framez75_15282;

				BgL_iboxesz00_15279 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15278, (int) (0L)));
				BgL_i1255z00_15280 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_15278, (int) (1L)));
				BgL_bodyz00_15281 = PROCEDURE_REF(BgL_envz00_15278, (int) (2L));
				BgL_siza7ezd2framez75_15282 =
					PROCEDURE_REF(BgL_envz00_15278, (int) (3L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16670;

					BgL_bpz00_16670 = VECTOR_REF(((obj_t) BgL_sz00_15283), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */

						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16671;

							BgL_runz00_16671 =
								MAKE_FX_PROCEDURE(BGl_z62run4560z62zz__evaluate_compz00,
								(int) (1L), (int) (3L));
							PROCEDURE_SET(BgL_runz00_16671, (int) (0L), BgL_iboxesz00_15279);
							PROCEDURE_SET(BgL_runz00_16671,
								(int) (1L), ((obj_t) BgL_i1255z00_15280));
							PROCEDURE_SET(BgL_runz00_16671, (int) (2L), BgL_bodyz00_15281);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16672;

								BgL_mainz00_16672 =
									MAKE_VA_PROCEDURE(BGl_z62main4559z62zz__evaluate_compz00,
									(int) ((-5L)), (int) (5L));
								PROCEDURE_SET(BgL_mainz00_16672,
									(int) (0L), BgL_iboxesz00_15279);
								PROCEDURE_SET(BgL_mainz00_16672, (int) (1L), BgL_bodyz00_15281);
								PROCEDURE_SET(BgL_mainz00_16672,
									(int) (2L), ((obj_t) BgL_i1255z00_15280));
								PROCEDURE_SET(BgL_mainz00_16672, (int) (3L), BgL_runz00_16671);
								PROCEDURE_SET(BgL_mainz00_16672,
									(int) (4L), BgL_siza7ezd2framez75_15282);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16673;

									BgL_objz00_16673 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16671, BgL_objz00_16673);
									BgL_objz00_16673;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3937z00_16674;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3938z00_16675;
										obj_t BgL_arg3939z00_16676;

										BgL_arg3938z00_16675 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15280))->
											BgL_arityz00);
										BgL_arg3939z00_16676 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15280))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16677;

											BgL_newz00_16677 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_32184;

												BgL_tmpz00_32184 = (int) (3L);
												STRUCT_SET(BgL_newz00_16677, BgL_tmpz00_32184,
													BgL_arg3939z00_16676);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_32187;

												BgL_tmpz00_32187 = (int) (2L);
												STRUCT_SET(BgL_newz00_16677, BgL_tmpz00_32187,
													BgL_siza7ezd2framez75_15282);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_32190;

												BgL_tmpz00_32190 = (int) (1L);
												STRUCT_SET(BgL_newz00_16677, BgL_tmpz00_32190,
													BgL_runz00_16671);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_32193;

												BgL_tmpz00_32193 = (int) (0L);
												STRUCT_SET(BgL_newz00_16677, BgL_tmpz00_32193,
													BgL_arg3938z00_16675);
											}
											BgL_arg3937z00_16674 = BgL_newz00_16677;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16672, BgL_arg3937z00_16674);
									BgL_arg3937z00_16674;
								}
								return BgL_mainz00_16672;
							}
						}
					}
				}
			}
		}

	}



/* &main4559 */
	obj_t BGl_z62main4559z62zz__evaluate_compz00(obj_t BgL_envz00_15284,
		obj_t BgL_az00_15290, obj_t BgL_bz00_15291, obj_t BgL_cz00_15292,
		obj_t BgL_dz00_15293, obj_t BgL_restz00_15294)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				BgL_ev_absz00_bglt BgL_i1255z00_15287;
				obj_t BgL_runz00_15288;
				long BgL_siza7ezd2framez75_15289;

				BgL_i1255z00_15287 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_15284, (int) (2L)));
				BgL_runz00_15288 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15284, (int) (3L)));
				BgL_siza7ezd2framez75_15289 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_15284, (int) (4L)));
				return
					BGl_mainze72ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_15289,
					BgL_runz00_15288, BgL_i1255z00_15287, BgL_az00_15290, BgL_bz00_15291,
					BgL_cz00_15292, BgL_dz00_15293, BgL_restz00_15294);
			}
		}

	}



/* main~2 */
	obj_t BGl_mainze72ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15586,
		obj_t BgL_runz00_15585, BgL_ev_absz00_bglt BgL_i1255z00_15584,
		obj_t BgL_az00_5836, obj_t BgL_bz00_5837, obj_t BgL_cz00_5838,
		obj_t BgL_dz00_5839, obj_t BgL_restz00_5840)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_5842;

				BgL_sz00_5842 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_5843;

					BgL_bpz00_5843 = VECTOR_REF(((obj_t) BgL_sz00_5842), 0L);
					if (
						(((long) CINT(BgL_bpz00_5843) + BgL_siza7ezd2framez75_15586) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_5842))))
						{	/* Eval/evaluate_comp.scm 1181 */
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3942z00_5845;

								BgL_arg3942z00_5845 = ((long) CINT(BgL_bpz00_5843) + 0L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5842), BgL_arg3942z00_5845, BgL_az00_5836);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3943z00_5846;

								BgL_arg3943z00_5846 = ((long) CINT(BgL_bpz00_5843) + 1L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5842), BgL_arg3943z00_5846, BgL_bz00_5837);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3944z00_5847;

								BgL_arg3944z00_5847 = ((long) CINT(BgL_bpz00_5843) + 2L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5842), BgL_arg3944z00_5847, BgL_cz00_5838);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3945z00_5848;

								BgL_arg3945z00_5848 = ((long) CINT(BgL_bpz00_5843) + 3L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5842), BgL_arg3945z00_5848, BgL_dz00_5839);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_arg3946z00_5849;
								long BgL_arg3947z00_5850;
								long BgL_arg3948z00_5851;
								obj_t BgL_arg3949z00_5852;

								BgL_arg3946z00_5849 =
									(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15584))->
									BgL_wherez00);
								BgL_arg3947z00_5850 = ((long) CINT(BgL_bpz00_5843) + 4L);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3950z00_5853;

									BgL_arg3950z00_5853 =
										(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15584))->
										BgL_arityz00);
									if (((long) CINT(BgL_arg3950z00_5853) < 0L))
										{	/* Eval/evaluate_comp.scm 1066 */
											BgL_arg3948z00_5851 =
												((long) CINT(BgL_arg3950z00_5853) + 4L);
										}
									else
										{	/* Eval/evaluate_comp.scm 1066 */
											BgL_arg3948z00_5851 =
												((long) CINT(BgL_arg3950z00_5853) - 4L);
								}}
								BgL_arg3949z00_5852 =
									(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15584))->
									BgL_locz00);
								BGl_bindzd2framezd2zz__evaluate_compz00(BgL_sz00_5842,
									BgL_arg3946z00_5849, BgL_arg3947z00_5850, BgL_arg3948z00_5851,
									BgL_restz00_5840, BgL_arg3949z00_5852);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_ez00_5854;

								BgL_ez00_5854 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4321z00_10644;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4322z00_10645;

										BgL_arg4322z00_10645 = BGL_EXITD_PROTECT(BgL_ez00_5854);
										BgL_arg4321z00_10644 =
											MAKE_YOUNG_PAIR(BgL_bpz00_5843, BgL_arg4322z00_10645);
									}
									BGL_EXITD_PROTECT_SET(BgL_ez00_5854, BgL_arg4321z00_10644);
									BUNSPEC;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_accz00_5855;

									BgL_accz00_5855 =
										BGl_catchzd2trampolinezd2zz__evaluate_compz00
										(BgL_runz00_15585, BgL_sz00_5842, BgL_bpz00_5843);
									{	/* Eval/evaluate_comp.scm 1181 */
										bool_t BgL_test5702z00_32250;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4320z00_10647;

											BgL_arg4320z00_10647 = BGL_EXITD_PROTECT(BgL_ez00_5854);
											BgL_test5702z00_32250 = PAIRP(BgL_arg4320z00_10647);
										}
										if (BgL_test5702z00_32250)
											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4318z00_10648;

												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4319z00_10649;

													BgL_arg4319z00_10649 =
														BGL_EXITD_PROTECT(BgL_ez00_5854);
													BgL_arg4318z00_10648 =
														CDR(((obj_t) BgL_arg4319z00_10649));
												}
												BGL_EXITD_PROTECT_SET(BgL_ez00_5854,
													BgL_arg4318z00_10648);
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 1181 */
												BFALSE;
											}
									}
									VECTOR_SET(((obj_t) BgL_sz00_5842), 0L, BgL_bpz00_5843);
									return BgL_accz00_5855;
								}
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_5856;

							BgL_nsz00_5856 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_5856, 1L, BgL_sz00_5842);
							VECTOR_SET(BgL_nsz00_5856, 2L, BgL_az00_5836);
							VECTOR_SET(BgL_nsz00_5856, 3L, BgL_bz00_5837);
							VECTOR_SET(BgL_nsz00_5856, 4L, BgL_cz00_5838);
							VECTOR_SET(BgL_nsz00_5856, 5L, BgL_dz00_5839);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_arg3951z00_5857;
								long BgL_arg3952z00_5858;
								obj_t BgL_arg3953z00_5859;

								BgL_arg3951z00_5857 =
									(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15584))->
									BgL_wherez00);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3954z00_5860;

									BgL_arg3954z00_5860 =
										(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15584))->
										BgL_arityz00);
									if (((long) CINT(BgL_arg3954z00_5860) < 0L))
										{	/* Eval/evaluate_comp.scm 1066 */
											BgL_arg3952z00_5858 =
												((long) CINT(BgL_arg3954z00_5860) + 4L);
										}
									else
										{	/* Eval/evaluate_comp.scm 1066 */
											BgL_arg3952z00_5858 =
												((long) CINT(BgL_arg3954z00_5860) - 4L);
								}}
								BgL_arg3953z00_5859 =
									(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15584))->
									BgL_locz00);
								BGl_bindzd2framezd2zz__evaluate_compz00(BgL_nsz00_5856,
									BgL_arg3951z00_5857, 6L, BgL_arg3952z00_5858,
									BgL_restz00_5840, BgL_arg3953z00_5859);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_5861;

								BgL_z12denvz12_5861 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5861, BgL_nsz00_5856);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_5862;

									BgL_ez00_5862 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_10661;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_10662;

											BgL_arg4322z00_10662 = BGL_EXITD_PROTECT(BgL_ez00_5862);
											BgL_arg4321z00_10661 =
												MAKE_YOUNG_PAIR(BgL_sz00_5842, BgL_arg4322z00_10662);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_5862, BgL_arg4321z00_10661);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_5863;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_10663;

											BgL_savedzd2bpzd2_10663 = VECTOR_REF(BgL_nsz00_5856, 0L);
											VECTOR_SET(BgL_nsz00_5856, 0L, BINT(2L));
											{
												obj_t BgL_fz00_10667;

												BgL_fz00_10667 = BgL_runz00_15585;
											BgL_recz00_10666:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_10668;

													BgL_rz00_10668 =
														BGL_PROCEDURE_CALL1(BgL_fz00_10667, BgL_nsz00_5856);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5704z00_32289;

														if (PROCEDUREP(BgL_rz00_10668))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_10671;

																BgL_arg1759z00_10671 =
																	PROCEDURE_ATTR(BgL_rz00_10668);
																if (STRUCTP(BgL_arg1759z00_10671))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5704z00_32289 =
																			(STRUCT_KEY(BgL_arg1759z00_10671) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5704z00_32289 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5704z00_32289 = ((bool_t) 0);
															}
														if (BgL_test5704z00_32289)
															{
																obj_t BgL_fz00_32297;

																BgL_fz00_32297 = BgL_rz00_10668;
																BgL_fz00_10667 = BgL_fz00_32297;
																goto BgL_recz00_10666;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_5856, 0L,
																	BgL_savedzd2bpzd2_10663);
																BgL_____rz00_5863 = BgL_rz00_10668;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5707z00_32299;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_10679;

												BgL_arg4320z00_10679 = BGL_EXITD_PROTECT(BgL_ez00_5862);
												BgL_test5707z00_32299 = PAIRP(BgL_arg4320z00_10679);
											}
											if (BgL_test5707z00_32299)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_10680;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_10681;

														BgL_arg4319z00_10681 =
															BGL_EXITD_PROTECT(BgL_ez00_5862);
														BgL_arg4318z00_10680 =
															CDR(((obj_t) BgL_arg4319z00_10681));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_5862,
														BgL_arg4318z00_10680);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5861, BgL_sz00_5842);
										return BgL_____rz00_5863;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4560 */
	obj_t BGl_z62run4560z62zz__evaluate_compz00(obj_t BgL_envz00_15295,
		obj_t BgL_sz00_15299)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_iboxesz00_15296;
				BgL_ev_absz00_bglt BgL_i1255z00_15297;
				obj_t BgL_bodyz00_15298;

				BgL_iboxesz00_15296 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15295, (int) (0L)));
				BgL_i1255z00_15297 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_15295, (int) (1L)));
				BgL_bodyz00_15298 = PROCEDURE_REF(BgL_envz00_15295, (int) (2L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16678;

					BgL_bpz00_16678 = VECTOR_REF(((obj_t) BgL_sz00_15299), 0L);
					BGl_makezd2boxeszd2zz__evaluate_compz00(BgL_sz00_15299,
						BgL_iboxesz00_15296, BgL_bpz00_16678);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_z12denvz12_16679;
						obj_t BgL_wherez00_16680;
						obj_t BgL_locz00_16681;

						BgL_z12denvz12_16679 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16680 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15297))->
							BgL_wherez00);
						BgL_locz00_16681 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15297))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1181 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16679, BgL_wherez00_16680,
								BgL_locz00_16681);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_za2za2resza2za2z00_16682;

								BgL_za2za2resza2za2z00_16682 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_15298, BgL_sz00_15299);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16679);
								return BgL_za2za2resza2za2z00_16682;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3959> */
	obj_t BGl_z62zc3z04anonymousza33959ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15300, obj_t BgL_sz00_15306)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_ifreesz00_15301;
				obj_t BgL_siza7eza7_15302;
				BgL_ev_absz00_bglt BgL_i1255z00_15303;
				obj_t BgL_bodyz00_15304;
				obj_t BgL_siza7ezd2framez75_15305;

				BgL_ifreesz00_15301 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15300, (int) (0L)));
				BgL_siza7eza7_15302 = PROCEDURE_REF(BgL_envz00_15300, (int) (1L));
				BgL_i1255z00_15303 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_15300, (int) (2L)));
				BgL_bodyz00_15304 = PROCEDURE_REF(BgL_envz00_15300, (int) (3L));
				BgL_siza7ezd2framez75_15305 =
					PROCEDURE_REF(BgL_envz00_15300, (int) (4L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16683;

					BgL_bpz00_16683 = VECTOR_REF(((obj_t) BgL_sz00_15306), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_valza2za2_16684;

						BgL_valza2za2_16684 =
							BGl_freezd2collectzd2zz__evaluate_compz00(BgL_sz00_15306,
							BgL_bpz00_16683, BgL_ifreesz00_15301);
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16685;

							BgL_runz00_16685 =
								MAKE_FX_PROCEDURE(BGl_z62run4562z62zz__evaluate_compz00,
								(int) (1L), (int) (4L));
							PROCEDURE_SET(BgL_runz00_16685, (int) (0L), BgL_siza7eza7_15302);
							PROCEDURE_SET(BgL_runz00_16685, (int) (1L), BgL_valza2za2_16684);
							PROCEDURE_SET(BgL_runz00_16685,
								(int) (2L), ((obj_t) BgL_i1255z00_15303));
							PROCEDURE_SET(BgL_runz00_16685, (int) (3L), BgL_bodyz00_15304);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16686;

								BgL_mainz00_16686 =
									MAKE_VA_PROCEDURE(BGl_z62main4561z62zz__evaluate_compz00,
									(int) ((-5L)), (int) (6L));
								PROCEDURE_SET(BgL_mainz00_16686,
									(int) (0L), BgL_siza7eza7_15302);
								PROCEDURE_SET(BgL_mainz00_16686,
									(int) (1L), BgL_valza2za2_16684);
								PROCEDURE_SET(BgL_mainz00_16686, (int) (2L), BgL_bodyz00_15304);
								PROCEDURE_SET(BgL_mainz00_16686,
									(int) (3L), ((obj_t) BgL_i1255z00_15303));
								PROCEDURE_SET(BgL_mainz00_16686, (int) (4L), BgL_runz00_16685);
								PROCEDURE_SET(BgL_mainz00_16686,
									(int) (5L), BgL_siza7ezd2framez75_15305);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16687;

									BgL_objz00_16687 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16685, BgL_objz00_16687);
									BgL_objz00_16687;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3960z00_16688;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3961z00_16689;
										obj_t BgL_arg3962z00_16690;

										BgL_arg3961z00_16689 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15303))->
											BgL_arityz00);
										BgL_arg3962z00_16690 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15303))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16691;

											BgL_newz00_16691 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_32375;

												BgL_tmpz00_32375 = (int) (3L);
												STRUCT_SET(BgL_newz00_16691, BgL_tmpz00_32375,
													BgL_arg3962z00_16690);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_32378;

												BgL_tmpz00_32378 = (int) (2L);
												STRUCT_SET(BgL_newz00_16691, BgL_tmpz00_32378,
													BgL_siza7ezd2framez75_15305);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_32381;

												BgL_tmpz00_32381 = (int) (1L);
												STRUCT_SET(BgL_newz00_16691, BgL_tmpz00_32381,
													BgL_runz00_16685);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_32384;

												BgL_tmpz00_32384 = (int) (0L);
												STRUCT_SET(BgL_newz00_16691, BgL_tmpz00_32384,
													BgL_arg3961z00_16689);
											}
											BgL_arg3960z00_16688 = BgL_newz00_16691;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16686, BgL_arg3960z00_16688);
									BgL_arg3960z00_16688;
								}
								return BgL_mainz00_16686;
							}
						}
					}
				}
			}
		}

	}



/* &main4561 */
	obj_t BGl_z62main4561z62zz__evaluate_compz00(obj_t BgL_envz00_15307,
		obj_t BgL_az00_15314, obj_t BgL_bz00_15315, obj_t BgL_cz00_15316,
		obj_t BgL_dz00_15317, obj_t BgL_restz00_15318)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				BgL_ev_absz00_bglt BgL_i1255z00_15311;
				obj_t BgL_runz00_15312;
				long BgL_siza7ezd2framez75_15313;

				BgL_i1255z00_15311 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_15307, (int) (3L)));
				BgL_runz00_15312 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15307, (int) (4L)));
				BgL_siza7ezd2framez75_15313 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_15307, (int) (5L)));
				return
					BGl_mainze71ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_15313,
					BgL_runz00_15312, BgL_i1255z00_15311, BgL_az00_15314, BgL_bz00_15315,
					BgL_cz00_15316, BgL_dz00_15317, BgL_restz00_15318);
			}
		}

	}



/* main~1 */
	obj_t BGl_mainze71ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15583,
		obj_t BgL_runz00_15582, BgL_ev_absz00_bglt BgL_i1255z00_15581,
		obj_t BgL_az00_5885, obj_t BgL_bz00_5886, obj_t BgL_cz00_5887,
		obj_t BgL_dz00_5888, obj_t BgL_restz00_5889)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_5891;

				BgL_sz00_5891 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_5892;

					BgL_bpz00_5892 = VECTOR_REF(((obj_t) BgL_sz00_5891), 0L);
					if (
						(((long) CINT(BgL_bpz00_5892) + BgL_siza7ezd2framez75_15583) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_5891))))
						{	/* Eval/evaluate_comp.scm 1181 */
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3965z00_5894;

								BgL_arg3965z00_5894 = ((long) CINT(BgL_bpz00_5892) + 0L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5891), BgL_arg3965z00_5894, BgL_az00_5885);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3966z00_5895;

								BgL_arg3966z00_5895 = ((long) CINT(BgL_bpz00_5892) + 1L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5891), BgL_arg3966z00_5895, BgL_bz00_5886);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3967z00_5896;

								BgL_arg3967z00_5896 = ((long) CINT(BgL_bpz00_5892) + 2L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5891), BgL_arg3967z00_5896, BgL_cz00_5887);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3968z00_5897;

								BgL_arg3968z00_5897 = ((long) CINT(BgL_bpz00_5892) + 3L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5891), BgL_arg3968z00_5897, BgL_dz00_5888);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_arg3969z00_5898;
								long BgL_arg3970z00_5899;
								long BgL_arg3971z00_5900;
								obj_t BgL_arg3972z00_5901;

								BgL_arg3969z00_5898 =
									(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15581))->
									BgL_wherez00);
								BgL_arg3970z00_5899 = ((long) CINT(BgL_bpz00_5892) + 4L);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3973z00_5902;

									BgL_arg3973z00_5902 =
										(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15581))->
										BgL_arityz00);
									if (((long) CINT(BgL_arg3973z00_5902) < 0L))
										{	/* Eval/evaluate_comp.scm 1066 */
											BgL_arg3971z00_5900 =
												((long) CINT(BgL_arg3973z00_5902) + 4L);
										}
									else
										{	/* Eval/evaluate_comp.scm 1066 */
											BgL_arg3971z00_5900 =
												((long) CINT(BgL_arg3973z00_5902) - 4L);
								}}
								BgL_arg3972z00_5901 =
									(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15581))->
									BgL_locz00);
								BGl_bindzd2framezd2zz__evaluate_compz00(BgL_sz00_5891,
									BgL_arg3969z00_5898, BgL_arg3970z00_5899, BgL_arg3971z00_5900,
									BgL_restz00_5889, BgL_arg3972z00_5901);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_ez00_5903;

								BgL_ez00_5903 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4321z00_10720;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4322z00_10721;

										BgL_arg4322z00_10721 = BGL_EXITD_PROTECT(BgL_ez00_5903);
										BgL_arg4321z00_10720 =
											MAKE_YOUNG_PAIR(BgL_bpz00_5892, BgL_arg4322z00_10721);
									}
									BGL_EXITD_PROTECT_SET(BgL_ez00_5903, BgL_arg4321z00_10720);
									BUNSPEC;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_accz00_5904;

									BgL_accz00_5904 =
										BGl_catchzd2trampolinezd2zz__evaluate_compz00
										(BgL_runz00_15582, BgL_sz00_5891, BgL_bpz00_5892);
									{	/* Eval/evaluate_comp.scm 1181 */
										bool_t BgL_test5710z00_32441;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4320z00_10723;

											BgL_arg4320z00_10723 = BGL_EXITD_PROTECT(BgL_ez00_5903);
											BgL_test5710z00_32441 = PAIRP(BgL_arg4320z00_10723);
										}
										if (BgL_test5710z00_32441)
											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4318z00_10724;

												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4319z00_10725;

													BgL_arg4319z00_10725 =
														BGL_EXITD_PROTECT(BgL_ez00_5903);
													BgL_arg4318z00_10724 =
														CDR(((obj_t) BgL_arg4319z00_10725));
												}
												BGL_EXITD_PROTECT_SET(BgL_ez00_5903,
													BgL_arg4318z00_10724);
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 1181 */
												BFALSE;
											}
									}
									VECTOR_SET(((obj_t) BgL_sz00_5891), 0L, BgL_bpz00_5892);
									return BgL_accz00_5904;
								}
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_5905;

							BgL_nsz00_5905 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_5905, 1L, BgL_sz00_5891);
							VECTOR_SET(BgL_nsz00_5905, 2L, BgL_az00_5885);
							VECTOR_SET(BgL_nsz00_5905, 3L, BgL_bz00_5886);
							VECTOR_SET(BgL_nsz00_5905, 4L, BgL_cz00_5887);
							VECTOR_SET(BgL_nsz00_5905, 5L, BgL_dz00_5888);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_arg3974z00_5906;
								long BgL_arg3975z00_5907;
								obj_t BgL_arg3976z00_5908;

								BgL_arg3974z00_5906 =
									(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15581))->
									BgL_wherez00);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3977z00_5909;

									BgL_arg3977z00_5909 =
										(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15581))->
										BgL_arityz00);
									if (((long) CINT(BgL_arg3977z00_5909) < 0L))
										{	/* Eval/evaluate_comp.scm 1066 */
											BgL_arg3975z00_5907 =
												((long) CINT(BgL_arg3977z00_5909) + 4L);
										}
									else
										{	/* Eval/evaluate_comp.scm 1066 */
											BgL_arg3975z00_5907 =
												((long) CINT(BgL_arg3977z00_5909) - 4L);
								}}
								BgL_arg3976z00_5908 =
									(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15581))->
									BgL_locz00);
								BGl_bindzd2framezd2zz__evaluate_compz00(BgL_nsz00_5905,
									BgL_arg3974z00_5906, 6L, BgL_arg3975z00_5907,
									BgL_restz00_5889, BgL_arg3976z00_5908);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_5910;

								BgL_z12denvz12_5910 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5910, BgL_nsz00_5905);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_5911;

									BgL_ez00_5911 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_10737;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_10738;

											BgL_arg4322z00_10738 = BGL_EXITD_PROTECT(BgL_ez00_5911);
											BgL_arg4321z00_10737 =
												MAKE_YOUNG_PAIR(BgL_sz00_5891, BgL_arg4322z00_10738);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_5911, BgL_arg4321z00_10737);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_5912;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_10739;

											BgL_savedzd2bpzd2_10739 = VECTOR_REF(BgL_nsz00_5905, 0L);
											VECTOR_SET(BgL_nsz00_5905, 0L, BINT(2L));
											{
												obj_t BgL_fz00_10743;

												BgL_fz00_10743 = BgL_runz00_15582;
											BgL_recz00_10742:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_10744;

													BgL_rz00_10744 =
														BGL_PROCEDURE_CALL1(BgL_fz00_10743, BgL_nsz00_5905);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5712z00_32480;

														if (PROCEDUREP(BgL_rz00_10744))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_10747;

																BgL_arg1759z00_10747 =
																	PROCEDURE_ATTR(BgL_rz00_10744);
																if (STRUCTP(BgL_arg1759z00_10747))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5712z00_32480 =
																			(STRUCT_KEY(BgL_arg1759z00_10747) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5712z00_32480 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5712z00_32480 = ((bool_t) 0);
															}
														if (BgL_test5712z00_32480)
															{
																obj_t BgL_fz00_32488;

																BgL_fz00_32488 = BgL_rz00_10744;
																BgL_fz00_10743 = BgL_fz00_32488;
																goto BgL_recz00_10742;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_5905, 0L,
																	BgL_savedzd2bpzd2_10739);
																BgL_____rz00_5912 = BgL_rz00_10744;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5715z00_32490;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_10755;

												BgL_arg4320z00_10755 = BGL_EXITD_PROTECT(BgL_ez00_5911);
												BgL_test5715z00_32490 = PAIRP(BgL_arg4320z00_10755);
											}
											if (BgL_test5715z00_32490)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_10756;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_10757;

														BgL_arg4319z00_10757 =
															BGL_EXITD_PROTECT(BgL_ez00_5911);
														BgL_arg4318z00_10756 =
															CDR(((obj_t) BgL_arg4319z00_10757));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_5911,
														BgL_arg4318z00_10756);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5910, BgL_sz00_5891);
										return BgL_____rz00_5912;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4562 */
	obj_t BGl_z62run4562z62zz__evaluate_compz00(obj_t BgL_envz00_15319,
		obj_t BgL_sz00_15324)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				long BgL_siza7eza7_15320;
				obj_t BgL_valza2za2_15321;
				BgL_ev_absz00_bglt BgL_i1255z00_15322;
				obj_t BgL_bodyz00_15323;

				BgL_siza7eza7_15320 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_15319, (int) (0L)));
				BgL_valza2za2_15321 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15319, (int) (1L)));
				BgL_i1255z00_15322 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_15319, (int) (2L)));
				BgL_bodyz00_15323 = PROCEDURE_REF(BgL_envz00_15319, (int) (3L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16692;

					BgL_bpz00_16692 = VECTOR_REF(((obj_t) BgL_sz00_15324), 0L);
					BGl_freezd2restorezd2zz__evaluate_compz00(BgL_sz00_15324,
						BgL_valza2za2_15321,
						((long) CINT(BgL_bpz00_16692) + BgL_siza7eza7_15320));
					{	/* Eval/evaluate_comp.scm 1102 */
						obj_t BgL_z12denvz12_16693;
						obj_t BgL_wherez00_16694;
						obj_t BgL_locz00_16695;

						BgL_z12denvz12_16693 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16694 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15322))->
							BgL_wherez00);
						BgL_locz00_16695 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15322))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1102 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16693, BgL_wherez00_16694,
								BgL_locz00_16695);
							{	/* Eval/evaluate_comp.scm 1102 */
								obj_t BgL_za2za2resza2za2z00_16696;

								BgL_za2za2resza2za2z00_16696 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_15323, BgL_sz00_15324);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16693);
								return BgL_za2za2resza2za2z00_16696;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3980> */
	obj_t BGl_z62zc3z04anonymousza33980ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15325, obj_t BgL_sz00_15332)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_ifreesz00_15326;
				obj_t BgL_iboxesz00_15327;
				obj_t BgL_siza7eza7_15328;
				BgL_ev_absz00_bglt BgL_i1255z00_15329;
				obj_t BgL_bodyz00_15330;
				obj_t BgL_siza7ezd2framez75_15331;

				BgL_ifreesz00_15326 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15325, (int) (0L)));
				BgL_iboxesz00_15327 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15325, (int) (1L)));
				BgL_siza7eza7_15328 = PROCEDURE_REF(BgL_envz00_15325, (int) (2L));
				BgL_i1255z00_15329 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_15325, (int) (3L)));
				BgL_bodyz00_15330 = PROCEDURE_REF(BgL_envz00_15325, (int) (4L));
				BgL_siza7ezd2framez75_15331 =
					PROCEDURE_REF(BgL_envz00_15325, (int) (5L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16697;

					BgL_bpz00_16697 = VECTOR_REF(((obj_t) BgL_sz00_15332), 0L);
					{	/* Eval/evaluate_comp.scm 1181 */
						obj_t BgL_valza2za2_16698;

						BgL_valza2za2_16698 =
							BGl_freezd2collectzd2zz__evaluate_compz00(BgL_sz00_15332,
							BgL_bpz00_16697, BgL_ifreesz00_15326);
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_runz00_16699;

							BgL_runz00_16699 =
								MAKE_FX_PROCEDURE(BGl_z62run4564z62zz__evaluate_compz00,
								(int) (1L), (int) (5L));
							PROCEDURE_SET(BgL_runz00_16699, (int) (0L), BgL_iboxesz00_15327);
							PROCEDURE_SET(BgL_runz00_16699, (int) (1L), BgL_siza7eza7_15328);
							PROCEDURE_SET(BgL_runz00_16699, (int) (2L), BgL_valza2za2_16698);
							PROCEDURE_SET(BgL_runz00_16699,
								(int) (3L), ((obj_t) BgL_i1255z00_15329));
							PROCEDURE_SET(BgL_runz00_16699, (int) (4L), BgL_bodyz00_15330);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_mainz00_16700;

								BgL_mainz00_16700 =
									MAKE_VA_PROCEDURE(BGl_z62main4563z62zz__evaluate_compz00,
									(int) ((-5L)), (int) (7L));
								PROCEDURE_SET(BgL_mainz00_16700,
									(int) (0L), BgL_iboxesz00_15327);
								PROCEDURE_SET(BgL_mainz00_16700,
									(int) (1L), BgL_siza7eza7_15328);
								PROCEDURE_SET(BgL_mainz00_16700,
									(int) (2L), BgL_valza2za2_16698);
								PROCEDURE_SET(BgL_mainz00_16700, (int) (3L), BgL_bodyz00_15330);
								PROCEDURE_SET(BgL_mainz00_16700,
									(int) (4L), ((obj_t) BgL_i1255z00_15329));
								PROCEDURE_SET(BgL_mainz00_16700, (int) (5L), BgL_runz00_16699);
								PROCEDURE_SET(BgL_mainz00_16700,
									(int) (6L), BgL_siza7ezd2framez75_15331);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_objz00_16701;

									BgL_objz00_16701 =
										BGl_za2za2azd2bounceza2za2zd2zz__evaluate_compz00;
									PROCEDURE_ATTR_SET(BgL_runz00_16699, BgL_objz00_16701);
									BgL_objz00_16701;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3981z00_16702;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg3982z00_16703;
										obj_t BgL_arg3983z00_16704;

										BgL_arg3982z00_16703 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15329))->
											BgL_arityz00);
										BgL_arg3983z00_16704 =
											(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15329))->
											BgL_wherez00);
										{	/* Eval/evaluate_comp.scm 683 */
											obj_t BgL_newz00_16705;

											BgL_newz00_16705 =
												create_struct(BGl_symbol4594z00zz__evaluate_compz00,
												(int) (4L));
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_32578;

												BgL_tmpz00_32578 = (int) (3L);
												STRUCT_SET(BgL_newz00_16705, BgL_tmpz00_32578,
													BgL_arg3983z00_16704);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_32581;

												BgL_tmpz00_32581 = (int) (2L);
												STRUCT_SET(BgL_newz00_16705, BgL_tmpz00_32581,
													BgL_siza7ezd2framez75_15331);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_32584;

												BgL_tmpz00_32584 = (int) (1L);
												STRUCT_SET(BgL_newz00_16705, BgL_tmpz00_32584,
													BgL_runz00_16699);
											}
											{	/* Eval/evaluate_comp.scm 683 */
												int BgL_tmpz00_32587;

												BgL_tmpz00_32587 = (int) (0L);
												STRUCT_SET(BgL_newz00_16705, BgL_tmpz00_32587,
													BgL_arg3982z00_16703);
											}
											BgL_arg3981z00_16702 = BgL_newz00_16705;
									}}
									PROCEDURE_ATTR_SET(BgL_mainz00_16700, BgL_arg3981z00_16702);
									BgL_arg3981z00_16702;
								}
								return BgL_mainz00_16700;
							}
						}
					}
				}
			}
		}

	}



/* &main4563 */
	obj_t BGl_z62main4563z62zz__evaluate_compz00(obj_t BgL_envz00_15333,
		obj_t BgL_az00_15341, obj_t BgL_bz00_15342, obj_t BgL_cz00_15343,
		obj_t BgL_dz00_15344, obj_t BgL_restz00_15345)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				BgL_ev_absz00_bglt BgL_i1255z00_15338;
				obj_t BgL_runz00_15339;
				long BgL_siza7ezd2framez75_15340;

				BgL_i1255z00_15338 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_15333, (int) (4L)));
				BgL_runz00_15339 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15333, (int) (5L)));
				BgL_siza7ezd2framez75_15340 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_15333, (int) (6L)));
				return
					BGl_mainze70ze7zz__evaluate_compz00(BgL_siza7ezd2framez75_15340,
					BgL_runz00_15339, BgL_i1255z00_15338, BgL_az00_15341, BgL_bz00_15342,
					BgL_cz00_15343, BgL_dz00_15344, BgL_restz00_15345);
			}
		}

	}



/* main~0 */
	obj_t BGl_mainze70ze7zz__evaluate_compz00(long BgL_siza7ezd2framez75_15580,
		obj_t BgL_runz00_15579, BgL_ev_absz00_bglt BgL_i1255z00_15578,
		obj_t BgL_az00_5932, obj_t BgL_bz00_5933, obj_t BgL_cz00_5934,
		obj_t BgL_dz00_5935, obj_t BgL_restz00_5936)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_sz00_5938;

				BgL_sz00_5938 = BGl_findzd2statezd2zz__evaluate_compz00();
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_5939;

					BgL_bpz00_5939 = VECTOR_REF(((obj_t) BgL_sz00_5938), 0L);
					if (
						(((long) CINT(BgL_bpz00_5939) + BgL_siza7ezd2framez75_15580) <
							VECTOR_LENGTH(((obj_t) BgL_sz00_5938))))
						{	/* Eval/evaluate_comp.scm 1181 */
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3986z00_5941;

								BgL_arg3986z00_5941 = ((long) CINT(BgL_bpz00_5939) + 0L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5938), BgL_arg3986z00_5941, BgL_az00_5932);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3987z00_5942;

								BgL_arg3987z00_5942 = ((long) CINT(BgL_bpz00_5939) + 1L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5938), BgL_arg3987z00_5942, BgL_bz00_5933);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3988z00_5943;

								BgL_arg3988z00_5943 = ((long) CINT(BgL_bpz00_5939) + 2L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5938), BgL_arg3988z00_5943, BgL_cz00_5934);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								long BgL_arg3989z00_5944;

								BgL_arg3989z00_5944 = ((long) CINT(BgL_bpz00_5939) + 3L);
								VECTOR_SET(
									((obj_t) BgL_sz00_5938), BgL_arg3989z00_5944, BgL_dz00_5935);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_arg3990z00_5945;
								long BgL_arg3991z00_5946;
								long BgL_arg3992z00_5947;
								obj_t BgL_arg3993z00_5948;

								BgL_arg3990z00_5945 =
									(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15578))->
									BgL_wherez00);
								BgL_arg3991z00_5946 = ((long) CINT(BgL_bpz00_5939) + 4L);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3994z00_5949;

									BgL_arg3994z00_5949 =
										(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15578))->
										BgL_arityz00);
									if (((long) CINT(BgL_arg3994z00_5949) < 0L))
										{	/* Eval/evaluate_comp.scm 1066 */
											BgL_arg3992z00_5947 =
												((long) CINT(BgL_arg3994z00_5949) + 4L);
										}
									else
										{	/* Eval/evaluate_comp.scm 1066 */
											BgL_arg3992z00_5947 =
												((long) CINT(BgL_arg3994z00_5949) - 4L);
								}}
								BgL_arg3993z00_5948 =
									(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15578))->
									BgL_locz00);
								BGl_bindzd2framezd2zz__evaluate_compz00(BgL_sz00_5938,
									BgL_arg3990z00_5945, BgL_arg3991z00_5946, BgL_arg3992z00_5947,
									BgL_restz00_5936, BgL_arg3993z00_5948);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_ez00_5950;

								BgL_ez00_5950 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg4321z00_10794;

									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4322z00_10795;

										BgL_arg4322z00_10795 = BGL_EXITD_PROTECT(BgL_ez00_5950);
										BgL_arg4321z00_10794 =
											MAKE_YOUNG_PAIR(BgL_bpz00_5939, BgL_arg4322z00_10795);
									}
									BGL_EXITD_PROTECT_SET(BgL_ez00_5950, BgL_arg4321z00_10794);
									BUNSPEC;
								}
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_accz00_5951;

									BgL_accz00_5951 =
										BGl_catchzd2trampolinezd2zz__evaluate_compz00
										(BgL_runz00_15579, BgL_sz00_5938, BgL_bpz00_5939);
									{	/* Eval/evaluate_comp.scm 1181 */
										bool_t BgL_test5718z00_32644;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4320z00_10797;

											BgL_arg4320z00_10797 = BGL_EXITD_PROTECT(BgL_ez00_5950);
											BgL_test5718z00_32644 = PAIRP(BgL_arg4320z00_10797);
										}
										if (BgL_test5718z00_32644)
											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4318z00_10798;

												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4319z00_10799;

													BgL_arg4319z00_10799 =
														BGL_EXITD_PROTECT(BgL_ez00_5950);
													BgL_arg4318z00_10798 =
														CDR(((obj_t) BgL_arg4319z00_10799));
												}
												BGL_EXITD_PROTECT_SET(BgL_ez00_5950,
													BgL_arg4318z00_10798);
												BUNSPEC;
											}
										else
											{	/* Eval/evaluate_comp.scm 1181 */
												BFALSE;
											}
									}
									VECTOR_SET(((obj_t) BgL_sz00_5938), 0L, BgL_bpz00_5939);
									return BgL_accz00_5951;
								}
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 1181 */
							obj_t BgL_nsz00_5952;

							BgL_nsz00_5952 = BGl_makezd2statezd2zz__evaluate_compz00();
							VECTOR_SET(BgL_nsz00_5952, 1L, BgL_sz00_5938);
							VECTOR_SET(BgL_nsz00_5952, 2L, BgL_az00_5932);
							VECTOR_SET(BgL_nsz00_5952, 3L, BgL_bz00_5933);
							VECTOR_SET(BgL_nsz00_5952, 4L, BgL_cz00_5934);
							VECTOR_SET(BgL_nsz00_5952, 5L, BgL_dz00_5935);
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_arg3995z00_5953;
								long BgL_arg3996z00_5954;
								obj_t BgL_arg3997z00_5955;

								BgL_arg3995z00_5953 =
									(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15578))->
									BgL_wherez00);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_arg3998z00_5956;

									BgL_arg3998z00_5956 =
										(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15578))->
										BgL_arityz00);
									if (((long) CINT(BgL_arg3998z00_5956) < 0L))
										{	/* Eval/evaluate_comp.scm 1066 */
											BgL_arg3996z00_5954 =
												((long) CINT(BgL_arg3998z00_5956) + 4L);
										}
									else
										{	/* Eval/evaluate_comp.scm 1066 */
											BgL_arg3996z00_5954 =
												((long) CINT(BgL_arg3998z00_5956) - 4L);
								}}
								BgL_arg3997z00_5955 =
									(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15578))->
									BgL_locz00);
								BGl_bindzd2framezd2zz__evaluate_compz00(BgL_nsz00_5952,
									BgL_arg3995z00_5953, 6L, BgL_arg3996z00_5954,
									BgL_restz00_5936, BgL_arg3997z00_5955);
							}
							{	/* Eval/evaluate_comp.scm 1181 */
								obj_t BgL_z12denvz12_5957;

								BgL_z12denvz12_5957 = BGL_CURRENT_DYNAMIC_ENV();
								BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5957, BgL_nsz00_5952);
								{	/* Eval/evaluate_comp.scm 1181 */
									obj_t BgL_ez00_5958;

									BgL_ez00_5958 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_arg4321z00_10811;

										{	/* Eval/evaluate_comp.scm 1181 */
											obj_t BgL_arg4322z00_10812;

											BgL_arg4322z00_10812 = BGL_EXITD_PROTECT(BgL_ez00_5958);
											BgL_arg4321z00_10811 =
												MAKE_YOUNG_PAIR(BgL_sz00_5938, BgL_arg4322z00_10812);
										}
										BGL_EXITD_PROTECT_SET(BgL_ez00_5958, BgL_arg4321z00_10811);
										BUNSPEC;
									}
									{	/* Eval/evaluate_comp.scm 1181 */
										obj_t BgL_____rz00_5959;

										{	/* Eval/evaluate_comp.scm 670 */
											obj_t BgL_savedzd2bpzd2_10813;

											BgL_savedzd2bpzd2_10813 = VECTOR_REF(BgL_nsz00_5952, 0L);
											VECTOR_SET(BgL_nsz00_5952, 0L, BINT(2L));
											{
												obj_t BgL_fz00_10817;

												BgL_fz00_10817 = BgL_runz00_15579;
											BgL_recz00_10816:
												{	/* Eval/evaluate_comp.scm 673 */
													obj_t BgL_rz00_10818;

													BgL_rz00_10818 =
														BGL_PROCEDURE_CALL1(BgL_fz00_10817, BgL_nsz00_5952);
													{	/* Eval/evaluate_comp.scm 674 */
														bool_t BgL_test5720z00_32683;

														if (PROCEDUREP(BgL_rz00_10818))
															{	/* Eval/evaluate_comp.scm 674 */
																obj_t BgL_arg1759z00_10821;

																BgL_arg1759z00_10821 =
																	PROCEDURE_ATTR(BgL_rz00_10818);
																if (STRUCTP(BgL_arg1759z00_10821))
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5720z00_32683 =
																			(STRUCT_KEY(BgL_arg1759z00_10821) ==
																			BGl_symbol4573z00zz__evaluate_compz00);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 654 */
																		BgL_test5720z00_32683 = ((bool_t) 0);
																	}
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																BgL_test5720z00_32683 = ((bool_t) 0);
															}
														if (BgL_test5720z00_32683)
															{
																obj_t BgL_fz00_32691;

																BgL_fz00_32691 = BgL_rz00_10818;
																BgL_fz00_10817 = BgL_fz00_32691;
																goto BgL_recz00_10816;
															}
														else
															{	/* Eval/evaluate_comp.scm 674 */
																VECTOR_SET(BgL_nsz00_5952, 0L,
																	BgL_savedzd2bpzd2_10813);
																BgL_____rz00_5959 = BgL_rz00_10818;
															}
													}
												}
											}
										}
										{	/* Eval/evaluate_comp.scm 1181 */
											bool_t BgL_test5723z00_32693;

											{	/* Eval/evaluate_comp.scm 1181 */
												obj_t BgL_arg4320z00_10829;

												BgL_arg4320z00_10829 = BGL_EXITD_PROTECT(BgL_ez00_5958);
												BgL_test5723z00_32693 = PAIRP(BgL_arg4320z00_10829);
											}
											if (BgL_test5723z00_32693)
												{	/* Eval/evaluate_comp.scm 1181 */
													obj_t BgL_arg4318z00_10830;

													{	/* Eval/evaluate_comp.scm 1181 */
														obj_t BgL_arg4319z00_10831;

														BgL_arg4319z00_10831 =
															BGL_EXITD_PROTECT(BgL_ez00_5958);
														BgL_arg4318z00_10830 =
															CDR(((obj_t) BgL_arg4319z00_10831));
													}
													BGL_EXITD_PROTECT_SET(BgL_ez00_5958,
														BgL_arg4318z00_10830);
													BUNSPEC;
												}
											else
												{	/* Eval/evaluate_comp.scm 1181 */
													BFALSE;
												}
										}
										BGL_ENV_EVSTATE_SET(BgL_z12denvz12_5957, BgL_sz00_5938);
										return BgL_____rz00_5959;
									}
								}
							}
						}
				}
			}
		}

	}



/* &run4564 */
	obj_t BGl_z62run4564z62zz__evaluate_compz00(obj_t BgL_envz00_15346,
		obj_t BgL_sz00_15352)
	{
		{	/* Eval/evaluate_comp.scm 1181 */
			{	/* Eval/evaluate_comp.scm 1181 */
				obj_t BgL_iboxesz00_15347;
				long BgL_siza7eza7_15348;
				obj_t BgL_valza2za2_15349;
				BgL_ev_absz00_bglt BgL_i1255z00_15350;
				obj_t BgL_bodyz00_15351;

				BgL_iboxesz00_15347 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15346, (int) (0L)));
				BgL_siza7eza7_15348 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_15346, (int) (1L)));
				BgL_valza2za2_15349 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15346, (int) (2L)));
				BgL_i1255z00_15350 =
					((BgL_ev_absz00_bglt) PROCEDURE_REF(BgL_envz00_15346, (int) (3L)));
				BgL_bodyz00_15351 = PROCEDURE_REF(BgL_envz00_15346, (int) (4L));
				{	/* Eval/evaluate_comp.scm 1181 */
					obj_t BgL_bpz00_16706;

					BgL_bpz00_16706 = VECTOR_REF(((obj_t) BgL_sz00_15352), 0L);
					BGl_makezd2boxeszd2zz__evaluate_compz00(BgL_sz00_15352,
						BgL_iboxesz00_15347, BgL_bpz00_16706);
					BGl_freezd2restorezd2zz__evaluate_compz00(BgL_sz00_15352,
						BgL_valza2za2_15349,
						((long) CINT(BgL_bpz00_16706) + BgL_siza7eza7_15348));
					{	/* Eval/evaluate_comp.scm 1102 */
						obj_t BgL_z12denvz12_16707;
						obj_t BgL_wherez00_16708;
						obj_t BgL_locz00_16709;

						BgL_z12denvz12_16707 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_wherez00_16708 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15350))->
							BgL_wherez00);
						BgL_locz00_16709 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_i1255z00_15350))->BgL_locz00);
						{	/* Eval/evaluate_comp.scm 1102 */

							BGL_ENV_PUSH_TRACE(BgL_z12denvz12_16707, BgL_wherez00_16708,
								BgL_locz00_16709);
							{	/* Eval/evaluate_comp.scm 1102 */
								obj_t BgL_za2za2resza2za2z00_16710;

								BgL_za2za2resza2za2z00_16710 =
									BGL_PROCEDURE_CALL1(BgL_bodyz00_15351, BgL_sz00_15352);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_16707);
								return BgL_za2za2resza2za2z00_16710;
							}
						}
					}
				}
			}
		}

	}



/* &comp-ev_app1462 */
	obj_t BGl_z62compzd2ev_app1462zb0zz__evaluate_compz00(obj_t BgL_envz00_15353,
		obj_t BgL_ez00_15354, obj_t BgL_stkz00_15355)
	{
		{	/* Eval/evaluate_comp.scm 1051 */
			{	/* Eval/evaluate_comp.scm 1053 */
				obj_t BgL__ortest_1241z00_16712;

				BgL__ortest_1241z00_16712 =
					BGl_arithzd2expressionzd2zz__evaluate_compz00(
					((BgL_ev_appz00_bglt) BgL_ez00_15354), BgL_stkz00_15355);
				if (CBOOL(BgL__ortest_1241z00_16712))
					{	/* Eval/evaluate_comp.scm 1053 */
						return BgL__ortest_1241z00_16712;
					}
				else
					{	/* Eval/evaluate_comp.scm 1054 */
						obj_t BgL__ortest_1242z00_16713;

						BgL__ortest_1242z00_16713 =
							BGl_inlinezd2callzd2zz__evaluate_compz00(
							(((BgL_ev_appz00_bglt) COBJECT(
										((BgL_ev_appz00_bglt) BgL_ez00_15354)))->BgL_locz00),
							(((BgL_ev_appz00_bglt) COBJECT(
										((BgL_ev_appz00_bglt) BgL_ez00_15354)))->BgL_funz00),
							(((BgL_ev_appz00_bglt) COBJECT(
										((BgL_ev_appz00_bglt) BgL_ez00_15354)))->BgL_argsz00),
							BgL_stkz00_15355);
						if (CBOOL(BgL__ortest_1242z00_16713))
							{	/* Eval/evaluate_comp.scm 1054 */
								return BgL__ortest_1242z00_16713;
							}
						else
							{	/* Eval/evaluate_comp.scm 1054 */
								if (
									(bgl_list_length(
											(((BgL_ev_appz00_bglt) COBJECT(
														((BgL_ev_appz00_bglt) BgL_ez00_15354)))->
												BgL_argsz00)) > 4L))
									{	/* Eval/evaluate_comp.scm 1055 */
										return
											BGl_compzd2oldzd2callz00zz__evaluate_compz00(
											((BgL_ev_appz00_bglt) BgL_ez00_15354), BgL_stkz00_15355);
									}
								else
									{	/* Eval/evaluate_comp.scm 1057 */
										obj_t BgL_fz00_16714;
										long BgL_siza7eza7_16715;
										obj_t BgL_symbzd2funzd2_16716;

										BgL_fz00_16714 =
											BGl_compz00zz__evaluate_compz00(
											(((BgL_ev_appz00_bglt) COBJECT(
														((BgL_ev_appz00_bglt) BgL_ez00_15354)))->
												BgL_funz00), BgL_stkz00_15355);
										BgL_siza7eza7_16715 = bgl_list_length(BgL_stkz00_15355);
										BgL_symbzd2funzd2_16716 =
											BGl_uncompilez00zz__evaluate_uncompz00(
											(((BgL_ev_appz00_bglt) COBJECT(
														((BgL_ev_appz00_bglt) BgL_ez00_15354)))->
												BgL_funz00));
										if (NULLP((((BgL_ev_appz00_bglt)
														COBJECT(((BgL_ev_appz00_bglt) BgL_ez00_15354)))->
													BgL_argsz00)))
											{	/* Eval/evaluate_comp.scm 1058 */
												return
													BGl_compzd2call0zd2zz__evaluate_compz00(
													(((BgL_ev_appz00_bglt) COBJECT(
																((BgL_ev_appz00_bglt) BgL_ez00_15354)))->
														BgL_locz00),
													(((BgL_ev_appz00_bglt) COBJECT(((BgL_ev_appz00_bglt)
																	BgL_ez00_15354)))->BgL_funz00),
													BgL_symbzd2funzd2_16716, BgL_fz00_16714,
													(((BgL_ev_appz00_bglt) COBJECT(((BgL_ev_appz00_bglt)
																	BgL_ez00_15354)))->BgL_tailzf3zf3),
													BgL_stkz00_15355, BgL_siza7eza7_16715);
											}
										else
											{	/* Eval/evaluate_comp.scm 1060 */
												obj_t BgL_a1z00_16717;
												obj_t BgL_argsz00_16718;

												{	/* Eval/evaluate_comp.scm 1060 */
													obj_t BgL_arg3426z00_16719;

													BgL_arg3426z00_16719 =
														CAR(
														(((BgL_ev_appz00_bglt) COBJECT(
																	((BgL_ev_appz00_bglt) BgL_ez00_15354)))->
															BgL_argsz00));
													BgL_a1z00_16717 =
														BGl_compz00zz__evaluate_compz00((
															(BgL_ev_exprz00_bglt) BgL_arg3426z00_16719),
														BgL_stkz00_15355);
												}
												BgL_argsz00_16718 =
													CDR(
													(((BgL_ev_appz00_bglt) COBJECT(
																((BgL_ev_appz00_bglt) BgL_ez00_15354)))->
														BgL_argsz00));
												if (NULLP(BgL_argsz00_16718))
													{	/* Eval/evaluate_comp.scm 1060 */
														return
															BGl_compzd2call1zd2zz__evaluate_compz00(
															(((BgL_ev_appz00_bglt) COBJECT(
																		((BgL_ev_appz00_bglt) BgL_ez00_15354)))->
																BgL_locz00),
															(((BgL_ev_appz00_bglt)
																	COBJECT(((BgL_ev_appz00_bglt)
																			BgL_ez00_15354)))->BgL_funz00),
															BgL_symbzd2funzd2_16716, BgL_fz00_16714,
															(((BgL_ev_appz00_bglt)
																	COBJECT(((BgL_ev_appz00_bglt)
																			BgL_ez00_15354)))->BgL_tailzf3zf3),
															BgL_stkz00_15355, BgL_siza7eza7_16715,
															BgL_a1z00_16717);
													}
												else
													{	/* Eval/evaluate_comp.scm 1060 */
														obj_t BgL_a2z00_16720;
														obj_t BgL_argsz00_16721;

														{	/* Eval/evaluate_comp.scm 1060 */
															obj_t BgL_arg3425z00_16722;

															BgL_arg3425z00_16722 =
																CAR(((obj_t) BgL_argsz00_16718));
															BgL_a2z00_16720 =
																BGl_compz00zz__evaluate_compz00(
																((BgL_ev_exprz00_bglt) BgL_arg3425z00_16722),
																BgL_stkz00_15355);
														}
														BgL_argsz00_16721 =
															CDR(((obj_t) BgL_argsz00_16718));
														if (NULLP(BgL_argsz00_16721))
															{	/* Eval/evaluate_comp.scm 1060 */
																return
																	BGl_compzd2call2zd2zz__evaluate_compz00(
																	(((BgL_ev_appz00_bglt) COBJECT(
																				((BgL_ev_appz00_bglt)
																					BgL_ez00_15354)))->BgL_locz00),
																	(((BgL_ev_appz00_bglt)
																			COBJECT(((BgL_ev_appz00_bglt)
																					BgL_ez00_15354)))->BgL_funz00),
																	BgL_symbzd2funzd2_16716, BgL_fz00_16714,
																	(((BgL_ev_appz00_bglt)
																			COBJECT(((BgL_ev_appz00_bglt)
																					BgL_ez00_15354)))->BgL_tailzf3zf3),
																	BgL_stkz00_15355, BgL_siza7eza7_16715,
																	BgL_a1z00_16717, BgL_a2z00_16720);
															}
														else
															{	/* Eval/evaluate_comp.scm 1060 */
																obj_t BgL_a3z00_16723;
																obj_t BgL_argsz00_16724;

																{	/* Eval/evaluate_comp.scm 1060 */
																	obj_t BgL_arg3424z00_16725;

																	BgL_arg3424z00_16725 =
																		CAR(((obj_t) BgL_argsz00_16721));
																	BgL_a3z00_16723 =
																		BGl_compz00zz__evaluate_compz00(
																		((BgL_ev_exprz00_bglt)
																			BgL_arg3424z00_16725), BgL_stkz00_15355);
																}
																BgL_argsz00_16724 =
																	CDR(((obj_t) BgL_argsz00_16721));
																if (NULLP(BgL_argsz00_16724))
																	{	/* Eval/evaluate_comp.scm 1060 */
																		return
																			BGl_compzd2call3zd2zz__evaluate_compz00(
																			(((BgL_ev_appz00_bglt) COBJECT(
																						((BgL_ev_appz00_bglt)
																							BgL_ez00_15354)))->BgL_locz00),
																			(((BgL_ev_appz00_bglt)
																					COBJECT(((BgL_ev_appz00_bglt)
																							BgL_ez00_15354)))->BgL_funz00),
																			BgL_symbzd2funzd2_16716, BgL_fz00_16714,
																			(((BgL_ev_appz00_bglt)
																					COBJECT(((BgL_ev_appz00_bglt)
																							BgL_ez00_15354)))->
																				BgL_tailzf3zf3), BgL_stkz00_15355,
																			BgL_siza7eza7_16715, BgL_a1z00_16717,
																			BgL_a2z00_16720, BgL_a3z00_16723);
																	}
																else
																	{	/* Eval/evaluate_comp.scm 1060 */
																		obj_t BgL_a4z00_16726;
																		obj_t BgL_argsz00_16727;

																		{	/* Eval/evaluate_comp.scm 1060 */
																			obj_t BgL_arg3423z00_16728;

																			BgL_arg3423z00_16728 =
																				CAR(((obj_t) BgL_argsz00_16724));
																			BgL_a4z00_16726 =
																				BGl_compz00zz__evaluate_compz00(
																				((BgL_ev_exprz00_bglt)
																					BgL_arg3423z00_16728),
																				BgL_stkz00_15355);
																		}
																		BgL_argsz00_16727 =
																			CDR(((obj_t) BgL_argsz00_16724));
																		if (NULLP(BgL_argsz00_16727))
																			{	/* Eval/evaluate_comp.scm 1060 */
																				return
																					BGl_compzd2call4zd2zz__evaluate_compz00
																					((((BgL_ev_appz00_bglt)
																							COBJECT(((BgL_ev_appz00_bglt)
																									BgL_ez00_15354)))->
																						BgL_locz00),
																					(((BgL_ev_appz00_bglt)
																							COBJECT(((BgL_ev_appz00_bglt)
																									BgL_ez00_15354)))->
																						BgL_funz00),
																					BgL_symbzd2funzd2_16716,
																					BgL_fz00_16714,
																					(((BgL_ev_appz00_bglt)
																							COBJECT(((BgL_ev_appz00_bglt)
																									BgL_ez00_15354)))->
																						BgL_tailzf3zf3), BgL_stkz00_15355,
																					BgL_siza7eza7_16715, BgL_a1z00_16717,
																					BgL_a2z00_16720, BgL_a3z00_16723,
																					BgL_a4z00_16726);
																			}
																		else
																			{	/* Eval/evaluate_comp.scm 1060 */
																				return
																					BGl_errorz00zz__errorz00
																					(BGl_string4577z00zz__evaluate_compz00,
																					BGl_string4692z00zz__evaluate_compz00,
																					BGl_string4693z00zz__evaluate_compz00);
																			}
																	}
															}
													}
											}
									}
							}
					}
			}
		}

	}



/* &comp-ev_goto1460 */
	obj_t BGl_z62compzd2ev_goto1460zb0zz__evaluate_compz00(obj_t BgL_envz00_15356,
		obj_t BgL_ez00_15357, obj_t BgL_stkz00_15358)
	{
		{	/* Eval/evaluate_comp.scm 604 */
			{	/* Eval/evaluate_comp.scm 607 */
				obj_t BgL_slotz00_16732;
				long BgL_siza7eza7_16733;
				obj_t BgL_lstkz00_16734;

				BgL_slotz00_16732 =
					BGl_assqz00zz__r4_pairs_and_lists_6_3z00(
					((obj_t)
						(((BgL_ev_gotoz00_bglt) COBJECT(
									((BgL_ev_gotoz00_bglt) BgL_ez00_15357)))->BgL_labelz00)),
					(((BgL_ev_labelsz00_bglt) COBJECT(
								(((BgL_ev_gotoz00_bglt) COBJECT(
											((BgL_ev_gotoz00_bglt) BgL_ez00_15357)))->
									BgL_labelsz00)))->BgL_envz00));
				BgL_siza7eza7_16733 = bgl_list_length(BgL_stkz00_15358);
				BgL_lstkz00_16734 =
					(((BgL_ev_labelsz00_bglt) COBJECT(
							(((BgL_ev_gotoz00_bglt) COBJECT(
										((BgL_ev_gotoz00_bglt) BgL_ez00_15357)))->BgL_labelsz00)))->
					BgL_stkz00);
				{	/* Eval/evaluate_comp.scm 609 */
					long BgL_llstkz00_16735;
					obj_t BgL_substkz00_16736;
					obj_t BgL_boxesz00_16737;

					BgL_llstkz00_16735 = bgl_list_length(BgL_lstkz00_16734);
					BgL_substkz00_16736 =
						BGl_subzd2stkzd2zz__evaluate_compz00(BgL_lstkz00_16734,
						BgL_stkz00_15358);
					{	/* Eval/evaluate_comp.scm 609 */
						obj_t BgL_pairz00_16738;

						BgL_pairz00_16738 =
							BGl_assqz00zz__r4_pairs_and_lists_6_3z00(
							((obj_t)
								(((BgL_ev_gotoz00_bglt) COBJECT(
											((BgL_ev_gotoz00_bglt) BgL_ez00_15357)))->BgL_labelz00)),
							(((BgL_ev_labelsz00_bglt) COBJECT(
										(((BgL_ev_gotoz00_bglt) COBJECT(
													((BgL_ev_gotoz00_bglt) BgL_ez00_15357)))->
											BgL_labelsz00)))->BgL_boxesz00));
						BgL_boxesz00_16737 = CDR(BgL_pairz00_16738);
					}
					if (BGl_needzd2shiftzd2zz__evaluate_compz00(
							(((BgL_ev_gotoz00_bglt) COBJECT(
										((BgL_ev_gotoz00_bglt) BgL_ez00_15357)))->BgL_argsz00),
							BgL_substkz00_16736))
						{	/* Eval/evaluate_comp.scm 612 */
							obj_t BgL_argsz00_16739;
							long BgL_nbargsz00_16740;

							BgL_argsz00_16739 =
								BGl_compzd2withzd2pushz00zz__evaluate_compz00(
								(((BgL_ev_gotoz00_bglt) COBJECT(
											((BgL_ev_gotoz00_bglt) BgL_ez00_15357)))->BgL_argsz00),
								BgL_stkz00_15358);
							BgL_nbargsz00_16740 =
								bgl_list_length((((BgL_ev_gotoz00_bglt)
										COBJECT(((BgL_ev_gotoz00_bglt) BgL_ez00_15357)))->
									BgL_argsz00));
							{	/* Eval/evaluate_comp.scm 613 */
								obj_t BgL_zc3z04anonymousza33371ze3z87_16741;

								BgL_zc3z04anonymousza33371ze3z87_16741 =
									MAKE_FX_PROCEDURE
									(BGl_z62zc3z04anonymousza33371ze3ze5zz__evaluate_compz00,
									(int) (1L), (int) (7L));
								PROCEDURE_SET(BgL_zc3z04anonymousza33371ze3z87_16741,
									(int) (0L), BINT(BgL_siza7eza7_16733));
								PROCEDURE_SET(BgL_zc3z04anonymousza33371ze3z87_16741,
									(int) (1L), BINT(BgL_llstkz00_16735));
								PROCEDURE_SET(BgL_zc3z04anonymousza33371ze3z87_16741,
									(int) (2L), ((obj_t) ((BgL_ev_gotoz00_bglt) BgL_ez00_15357)));
								PROCEDURE_SET(BgL_zc3z04anonymousza33371ze3z87_16741,
									(int) (3L), BgL_argsz00_16739);
								PROCEDURE_SET(BgL_zc3z04anonymousza33371ze3z87_16741,
									(int) (4L), BgL_boxesz00_16737);
								PROCEDURE_SET(BgL_zc3z04anonymousza33371ze3z87_16741,
									(int) (5L), BINT(BgL_nbargsz00_16740));
								PROCEDURE_SET(BgL_zc3z04anonymousza33371ze3z87_16741,
									(int) (6L), BgL_slotz00_16732);
								return BgL_zc3z04anonymousza33371ze3z87_16741;
							}
						}
					else
						{	/* Eval/evaluate_comp.scm 618 */
							obj_t BgL_argsz00_16742;

							{	/* Eval/evaluate_comp.scm 618 */
								obj_t BgL_lz00_16743;
								long BgL_nz00_16744;

								BgL_lz00_16743 =
									(((BgL_ev_gotoz00_bglt) COBJECT(
											((BgL_ev_gotoz00_bglt) BgL_ez00_15357)))->BgL_argsz00);
								BgL_nz00_16744 = (BgL_siza7eza7_16733 - BgL_llstkz00_16735);
								BgL_argsz00_16742 =
									BGl_recze70ze7zz__evaluate_compz00(BgL_stkz00_15358,
									BgL_lz00_16743, BgL_nz00_16744);
							}
							{	/* Eval/evaluate_comp.scm 619 */
								obj_t BgL_zc3z04anonymousza33379ze3z87_16745;

								BgL_zc3z04anonymousza33379ze3z87_16745 =
									MAKE_FX_PROCEDURE
									(BGl_z62zc3z04anonymousza33379ze3ze5zz__evaluate_compz00,
									(int) (1L), (int) (5L));
								PROCEDURE_SET(BgL_zc3z04anonymousza33379ze3z87_16745,
									(int) (0L), BINT(BgL_llstkz00_16735));
								PROCEDURE_SET(BgL_zc3z04anonymousza33379ze3z87_16745,
									(int) (1L), ((obj_t) ((BgL_ev_gotoz00_bglt) BgL_ez00_15357)));
								PROCEDURE_SET(BgL_zc3z04anonymousza33379ze3z87_16745,
									(int) (2L), BgL_argsz00_16742);
								PROCEDURE_SET(BgL_zc3z04anonymousza33379ze3z87_16745,
									(int) (3L), BgL_boxesz00_16737);
								PROCEDURE_SET(BgL_zc3z04anonymousza33379ze3z87_16745,
									(int) (4L), BgL_slotz00_16732);
								return BgL_zc3z04anonymousza33379ze3z87_16745;
							}
						}
				}
			}
		}

	}



/* &<@anonymous:3371> */
	obj_t BGl_z62zc3z04anonymousza33371ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15359, obj_t BgL_sz00_15367)
	{
		{	/* Eval/evaluate_comp.scm 613 */
			{	/* Eval/evaluate_comp.scm 613 */
				long BgL_siza7eza7_15360;
				long BgL_llstkz00_15361;
				BgL_ev_gotoz00_bglt BgL_i1153z00_15362;
				obj_t BgL_argsz00_15363;
				obj_t BgL_boxesz00_15364;
				long BgL_nbargsz00_15365;
				obj_t BgL_slotz00_15366;

				BgL_siza7eza7_15360 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_15359, (int) (0L)));
				BgL_llstkz00_15361 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_15359, (int) (1L)));
				BgL_i1153z00_15362 =
					((BgL_ev_gotoz00_bglt) PROCEDURE_REF(BgL_envz00_15359, (int) (2L)));
				BgL_argsz00_15363 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15359, (int) (3L)));
				BgL_boxesz00_15364 = PROCEDURE_REF(BgL_envz00_15359, (int) (4L));
				BgL_nbargsz00_15365 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_15359, (int) (5L)));
				BgL_slotz00_15366 = PROCEDURE_REF(BgL_envz00_15359, (int) (6L));
				{	/* Eval/evaluate_comp.scm 613 */
					obj_t BgL_bpz00_16746;

					BgL_bpz00_16746 = VECTOR_REF(((obj_t) BgL_sz00_15367), 0L);
					{	/* Eval/evaluate_comp.scm 614 */
						long BgL_spz00_16747;
						long BgL_lspz00_16748;

						BgL_spz00_16747 =
							((long) CINT(BgL_bpz00_16746) + BgL_siza7eza7_15360);
						BgL_lspz00_16748 =
							((long) CINT(BgL_bpz00_16746) + BgL_llstkz00_15361);
						BGl_pushzd2boxeszd2argszd2onzd2spz00zz__evaluate_compz00
							(BgL_sz00_15367, BgL_argsz00_15363, BgL_boxesz00_15364,
							BgL_spz00_16747,
							(((BgL_ev_gotoz00_bglt) COBJECT(BgL_i1153z00_15362))->
								BgL_locz00));
						{	/* Eval/evaluate_comp.scm 616 */
							long BgL_arg3375z00_16749;

							BgL_arg3375z00_16749 = (BgL_spz00_16747 + BgL_nbargsz00_15365);
							BGl_vectorzd2copyz12zc0zz__r4_vectors_6_8z00(BgL_sz00_15367,
								BgL_lspz00_16748, BgL_sz00_15367, BINT(BgL_spz00_16747),
								BINT(BgL_arg3375z00_16749));
						}
						return CDR(((obj_t) BgL_slotz00_15366));
					}
				}
			}
		}

	}



/* &<@anonymous:3379> */
	obj_t BGl_z62zc3z04anonymousza33379ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15368, obj_t BgL_sz00_15374)
	{
		{	/* Eval/evaluate_comp.scm 619 */
			{	/* Eval/evaluate_comp.scm 619 */
				long BgL_llstkz00_15369;
				BgL_ev_gotoz00_bglt BgL_i1153z00_15370;
				obj_t BgL_argsz00_15371;
				obj_t BgL_boxesz00_15372;
				obj_t BgL_slotz00_15373;

				BgL_llstkz00_15369 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_15368, (int) (0L)));
				BgL_i1153z00_15370 =
					((BgL_ev_gotoz00_bglt) PROCEDURE_REF(BgL_envz00_15368, (int) (1L)));
				BgL_argsz00_15371 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15368, (int) (2L)));
				BgL_boxesz00_15372 = PROCEDURE_REF(BgL_envz00_15368, (int) (3L));
				BgL_slotz00_15373 = PROCEDURE_REF(BgL_envz00_15368, (int) (4L));
				{	/* Eval/evaluate_comp.scm 619 */
					obj_t BgL_bpz00_16750;

					BgL_bpz00_16750 = VECTOR_REF(((obj_t) BgL_sz00_15374), 0L);
					BGl_pushzd2boxeszd2argszd2onzd2spz00zz__evaluate_compz00
						(BgL_sz00_15374, BgL_argsz00_15371, BgL_boxesz00_15372,
						((long) CINT(BgL_bpz00_16750) + BgL_llstkz00_15369),
						(((BgL_ev_gotoz00_bglt) COBJECT(BgL_i1153z00_15370))->BgL_locz00));
					return CDR(((obj_t) BgL_slotz00_15373));
				}
			}
		}

	}



/* &comp-ev_labels1458 */
	obj_t BGl_z62compzd2ev_labels1458zb0zz__evaluate_compz00(obj_t
		BgL_envz00_15375, obj_t BgL_ez00_15376, obj_t BgL_stkz00_15377)
	{
		{	/* Eval/evaluate_comp.scm 572 */
			((((BgL_ev_labelsz00_bglt) COBJECT(
							((BgL_ev_labelsz00_bglt) BgL_ez00_15376)))->BgL_stkz00) =
				((obj_t) BgL_stkz00_15377), BUNSPEC);
			{	/* Eval/evaluate_comp.scm 579 */
				obj_t BgL_envz00_16752;

				{	/* Eval/evaluate_comp.scm 579 */
					obj_t BgL_l1343z00_16753;

					BgL_l1343z00_16753 =
						(((BgL_ev_labelsz00_bglt) COBJECT(
								((BgL_ev_labelsz00_bglt) BgL_ez00_15376)))->BgL_varsz00);
					if (NULLP(BgL_l1343z00_16753))
						{	/* Eval/evaluate_comp.scm 579 */
							BgL_envz00_16752 = BNIL;
						}
					else
						{	/* Eval/evaluate_comp.scm 579 */
							obj_t BgL_head1345z00_16754;

							BgL_head1345z00_16754 = MAKE_YOUNG_PAIR(BNIL, BNIL);
							{
								obj_t BgL_l1343z00_16756;
								obj_t BgL_tail1346z00_16757;

								BgL_l1343z00_16756 = BgL_l1343z00_16753;
								BgL_tail1346z00_16757 = BgL_head1345z00_16754;
							BgL_zc3z04anonymousza33361ze3z87_16755:
								if (NULLP(BgL_l1343z00_16756))
									{	/* Eval/evaluate_comp.scm 579 */
										BgL_envz00_16752 = CDR(BgL_head1345z00_16754);
									}
								else
									{	/* Eval/evaluate_comp.scm 579 */
										obj_t BgL_newtail1347z00_16758;

										{	/* Eval/evaluate_comp.scm 579 */
											obj_t BgL_arg3364z00_16759;

											{	/* Eval/evaluate_comp.scm 579 */
												obj_t BgL_vz00_16760;

												BgL_vz00_16760 = CAR(((obj_t) BgL_l1343z00_16756));
												BgL_arg3364z00_16759 =
													MAKE_YOUNG_PAIR(BgL_vz00_16760,
													BGl_symbol4694z00zz__evaluate_compz00);
											}
											BgL_newtail1347z00_16758 =
												MAKE_YOUNG_PAIR(BgL_arg3364z00_16759, BNIL);
										}
										SET_CDR(BgL_tail1346z00_16757, BgL_newtail1347z00_16758);
										{	/* Eval/evaluate_comp.scm 579 */
											obj_t BgL_arg3363z00_16761;

											BgL_arg3363z00_16761 = CDR(((obj_t) BgL_l1343z00_16756));
											{
												obj_t BgL_tail1346z00_32976;
												obj_t BgL_l1343z00_32975;

												BgL_l1343z00_32975 = BgL_arg3363z00_16761;
												BgL_tail1346z00_32976 = BgL_newtail1347z00_16758;
												BgL_tail1346z00_16757 = BgL_tail1346z00_32976;
												BgL_l1343z00_16756 = BgL_l1343z00_32975;
												goto BgL_zc3z04anonymousza33361ze3z87_16755;
											}
										}
									}
							}
						}
				}
				((((BgL_ev_labelsz00_bglt) COBJECT(
								((BgL_ev_labelsz00_bglt) BgL_ez00_15376)))->BgL_envz00) =
					((obj_t) BgL_envz00_16752), BUNSPEC);
				{	/* Eval/evaluate_comp.scm 582 */
					obj_t BgL_g1351z00_16762;

					BgL_g1351z00_16762 =
						(((BgL_ev_labelsz00_bglt) COBJECT(
								((BgL_ev_labelsz00_bglt) BgL_ez00_15376)))->BgL_valsz00);
					{
						obj_t BgL_ll1348z00_16764;
						obj_t BgL_ll1349z00_16765;

						BgL_ll1348z00_16764 = BgL_envz00_16752;
						BgL_ll1349z00_16765 = BgL_g1351z00_16762;
					BgL_zc3z04anonymousza33348ze3z87_16763:
						if (NULLP(BgL_ll1348z00_16764))
							{	/* Eval/evaluate_comp.scm 582 */
								((bool_t) 1);
							}
						else
							{	/* Eval/evaluate_comp.scm 582 */
								{	/* Eval/evaluate_comp.scm 584 */
									obj_t BgL_slotz00_16766;
									obj_t BgL_valz00_16767;

									BgL_slotz00_16766 = CAR(((obj_t) BgL_ll1348z00_16764));
									BgL_valz00_16767 = CAR(((obj_t) BgL_ll1349z00_16765));
									{	/* Eval/evaluate_comp.scm 585 */
										obj_t BgL_arg3352z00_16768;

										{	/* Eval/evaluate_comp.scm 585 */
											obj_t BgL_arg3353z00_16769;

											{	/* Eval/evaluate_comp.scm 585 */
												obj_t BgL_arg3354z00_16770;
												obj_t BgL_arg3355z00_16771;

												BgL_arg3354z00_16770 = CDR(((obj_t) BgL_valz00_16767));
												{	/* Eval/evaluate_comp.scm 585 */
													obj_t BgL_arg3357z00_16772;

													BgL_arg3357z00_16772 =
														CAR(((obj_t) BgL_valz00_16767));
													BgL_arg3355z00_16771 =
														BGl_appendzd221011zd2zz__evaluate_compz00
														(BgL_stkz00_15377, BgL_arg3357z00_16772);
												}
												BgL_arg3353z00_16769 =
													BGl_compz00zz__evaluate_compz00(
													((BgL_ev_exprz00_bglt) BgL_arg3354z00_16770),
													BgL_arg3355z00_16771);
											}
											{	/* Eval/evaluate_comp.scm 574 */
												obj_t BgL_objz00_16773;

												BgL_objz00_16773 =
													BGl_za2za2azd2labelza2za2zd2zz__evaluate_compz00;
												{	/* Eval/evaluate_comp.scm 574 */
													obj_t BgL_tmpz00_32994;

													BgL_tmpz00_32994 = ((obj_t) BgL_arg3353z00_16769);
													PROCEDURE_ATTR_SET(BgL_tmpz00_32994,
														BgL_objz00_16773);
												}
												BgL_objz00_16773;
											}
											BgL_arg3352z00_16768 = BgL_arg3353z00_16769;
										}
										{	/* Eval/evaluate_comp.scm 584 */
											obj_t BgL_tmpz00_32997;

											BgL_tmpz00_32997 = ((obj_t) BgL_slotz00_16766);
											SET_CDR(BgL_tmpz00_32997, BgL_arg3352z00_16768);
										}
									}
								}
								{	/* Eval/evaluate_comp.scm 582 */
									obj_t BgL_arg3358z00_16774;
									obj_t BgL_arg3359z00_16775;

									BgL_arg3358z00_16774 = CDR(((obj_t) BgL_ll1348z00_16764));
									BgL_arg3359z00_16775 = CDR(((obj_t) BgL_ll1349z00_16765));
									{
										obj_t BgL_ll1349z00_33005;
										obj_t BgL_ll1348z00_33004;

										BgL_ll1348z00_33004 = BgL_arg3358z00_16774;
										BgL_ll1349z00_33005 = BgL_arg3359z00_16775;
										BgL_ll1349z00_16765 = BgL_ll1349z00_33005;
										BgL_ll1348z00_16764 = BgL_ll1348z00_33004;
										goto BgL_zc3z04anonymousza33348ze3z87_16763;
									}
								}
							}
					}
				}
			}
			{	/* Eval/evaluate_comp.scm 589 */
				obj_t BgL_bodyz00_16776;

				BgL_bodyz00_16776 =
					BGl_compz00zz__evaluate_compz00(
					(((BgL_ev_labelsz00_bglt) COBJECT(
								((BgL_ev_labelsz00_bglt) BgL_ez00_15376)))->BgL_bodyz00),
					BgL_stkz00_15377);
				{	/* Eval/evaluate_comp.scm 590 */
					obj_t BgL_zc3z04anonymousza33365ze3z87_16777;

					BgL_zc3z04anonymousza33365ze3z87_16777 =
						MAKE_FX_PROCEDURE
						(BGl_z62zc3z04anonymousza33365ze3ze5zz__evaluate_compz00,
						(int) (1L), (int) (1L));
					PROCEDURE_SET(BgL_zc3z04anonymousza33365ze3z87_16777, (int) (0L),
						BgL_bodyz00_16776);
					return BgL_zc3z04anonymousza33365ze3z87_16777;
				}
			}
		}

	}



/* &<@anonymous:3365> */
	obj_t BGl_z62zc3z04anonymousza33365ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15378, obj_t BgL_sz00_15380)
	{
		{	/* Eval/evaluate_comp.scm 590 */
			{	/* Eval/evaluate_comp.scm 590 */
				obj_t BgL_bodyz00_15379;

				BgL_bodyz00_15379 = PROCEDURE_REF(BgL_envz00_15378, (int) (0L));
				{	/* Eval/evaluate_comp.scm 590 */
					obj_t BgL_bpz00_16778;

					BgL_bpz00_16778 = VECTOR_REF(((obj_t) BgL_sz00_15380), 0L);
					{
						obj_t BgL_fz00_16780;

						BgL_fz00_16780 = BgL_bodyz00_15379;
					BgL_recz00_16779:
						{	/* Eval/evaluate_comp.scm 597 */
							obj_t BgL_rz00_16781;

							BgL_rz00_16781 =
								BGL_PROCEDURE_CALL1(BgL_fz00_16780, BgL_sz00_15380);
							{	/* Eval/evaluate_comp.scm 599 */
								bool_t BgL_test5736z00_33022;

								if (PROCEDUREP(BgL_rz00_16781))
									{	/* Eval/evaluate_comp.scm 599 */
										obj_t BgL_arg1714z00_16782;

										BgL_arg1714z00_16782 = PROCEDURE_ATTR(BgL_rz00_16781);
										if (STRUCTP(BgL_arg1714z00_16782))
											{	/* Eval/evaluate_comp.scm 569 */
												BgL_test5736z00_33022 =
													(STRUCT_KEY(BgL_arg1714z00_16782) ==
													BGl_symbol4571z00zz__evaluate_compz00);
											}
										else
											{	/* Eval/evaluate_comp.scm 569 */
												BgL_test5736z00_33022 = ((bool_t) 0);
											}
									}
								else
									{	/* Eval/evaluate_comp.scm 599 */
										BgL_test5736z00_33022 = ((bool_t) 0);
									}
								if (BgL_test5736z00_33022)
									{
										obj_t BgL_fz00_33030;

										BgL_fz00_33030 = BgL_rz00_16781;
										BgL_fz00_16780 = BgL_fz00_33030;
										goto BgL_recz00_16779;
									}
								else
									{	/* Eval/evaluate_comp.scm 599 */
										return BgL_rz00_16781;
									}
							}
						}
					}
				}
			}
		}

	}



/* &comp-ev_synchronize1456 */
	obj_t BGl_z62compzd2ev_synchroniza7e1456z17zz__evaluate_compz00(obj_t
		BgL_envz00_15381, obj_t BgL_ez00_15382, obj_t BgL_stkz00_15383)
	{
		{	/* Eval/evaluate_comp.scm 552 */
			{	/* Eval/evaluate_comp.scm 554 */
				obj_t BgL_mutexz00_16784;
				obj_t BgL_prelockz00_16785;
				obj_t BgL_bodyz00_16786;

				BgL_mutexz00_16784 =
					BGl_compz00zz__evaluate_compz00(
					(((BgL_ev_synchroniza7eza7_bglt) COBJECT(
								((BgL_ev_synchroniza7eza7_bglt) BgL_ez00_15382)))->
						BgL_mutexz00), BgL_stkz00_15383);
				BgL_prelockz00_16785 =
					BGl_compz00zz__evaluate_compz00((((BgL_ev_synchroniza7eza7_bglt)
							COBJECT(((BgL_ev_synchroniza7eza7_bglt) BgL_ez00_15382)))->
						BgL_prelockz00), BgL_stkz00_15383);
				BgL_bodyz00_16786 =
					BGl_compz00zz__evaluate_compz00((((BgL_ev_synchroniza7eza7_bglt)
							COBJECT(((BgL_ev_synchroniza7eza7_bglt) BgL_ez00_15382)))->
						BgL_bodyz00), BgL_stkz00_15383);
				{	/* Eval/evaluate_comp.scm 557 */
					obj_t BgL_zc3z04anonymousza33340ze3z87_16787;

					BgL_zc3z04anonymousza33340ze3z87_16787 =
						MAKE_FX_PROCEDURE
						(BGl_z62zc3z04anonymousza33340ze3ze5zz__evaluate_compz00,
						(int) (1L), (int) (4L));
					PROCEDURE_SET(BgL_zc3z04anonymousza33340ze3z87_16787, (int) (0L),
						BgL_mutexz00_16784);
					PROCEDURE_SET(BgL_zc3z04anonymousza33340ze3z87_16787, (int) (1L),
						((obj_t) ((BgL_ev_synchroniza7eza7_bglt) BgL_ez00_15382)));
					PROCEDURE_SET(BgL_zc3z04anonymousza33340ze3z87_16787, (int) (2L),
						BgL_prelockz00_16785);
					PROCEDURE_SET(BgL_zc3z04anonymousza33340ze3z87_16787, (int) (3L),
						BgL_bodyz00_16786);
					return BgL_zc3z04anonymousza33340ze3z87_16787;
				}
			}
		}

	}



/* &<@anonymous:3340> */
	obj_t BGl_z62zc3z04anonymousza33340ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15384, obj_t BgL_sz00_15389)
	{
		{	/* Eval/evaluate_comp.scm 557 */
			{	/* Eval/evaluate_comp.scm 557 */
				obj_t BgL_mutexz00_15385;
				BgL_ev_synchroniza7eza7_bglt BgL_i1150z00_15386;
				obj_t BgL_prelockz00_15387;
				obj_t BgL_bodyz00_15388;

				BgL_mutexz00_15385 = PROCEDURE_REF(BgL_envz00_15384, (int) (0L));
				BgL_i1150z00_15386 =
					((BgL_ev_synchroniza7eza7_bglt)
					PROCEDURE_REF(BgL_envz00_15384, (int) (1L)));
				BgL_prelockz00_15387 = PROCEDURE_REF(BgL_envz00_15384, (int) (2L));
				BgL_bodyz00_15388 = PROCEDURE_REF(BgL_envz00_15384, (int) (3L));
				{	/* Eval/evaluate_comp.scm 557 */
					obj_t BgL_bpz00_16788;

					BgL_bpz00_16788 = VECTOR_REF(((obj_t) BgL_sz00_15389), 0L);
					{	/* Eval/evaluate_comp.scm 558 */
						obj_t BgL_mz00_16789;

						BgL_mz00_16789 =
							BGL_PROCEDURE_CALL1(BgL_mutexz00_15385, BgL_sz00_15389);
						if (BGL_MUTEXP(BgL_mz00_16789))
							{	/* Eval/evaluate_comp.scm 560 */
								obj_t BgL_pz00_16790;

								BgL_pz00_16790 =
									BGL_PROCEDURE_CALL1(BgL_prelockz00_15387, BgL_sz00_15389);
								{	/* Eval/evaluate_comp.scm 562 */
									obj_t BgL_za2za2resza2za2z00_16791;

									if (PAIRP(BgL_pz00_16790))
										{	/* Eval/evaluate_comp.scm 563 */
											obj_t BgL_top5742z00_33077;

											BgL_top5742z00_33077 = BGL_EXITD_TOP_AS_OBJ();
											BGL_MUTEX_LOCK_PRELOCK(BgL_mz00_16789, BgL_pz00_16790);
											BGL_EXITD_PUSH_PROTECT(BgL_top5742z00_33077,
												BgL_mz00_16789);
											BUNSPEC;
											{	/* Eval/evaluate_comp.scm 563 */
												obj_t BgL_tmp5741z00_33076;

												BgL_tmp5741z00_33076 =
													BGL_PROCEDURE_CALL1(BgL_bodyz00_15388,
													BgL_sz00_15389);
												BGL_EXITD_POP_PROTECT(BgL_top5742z00_33077);
												BUNSPEC;
												BGL_MUTEX_UNLOCK(BgL_mz00_16789);
												BgL_za2za2resza2za2z00_16791 = BgL_tmp5741z00_33076;
											}
										}
									else
										{	/* Eval/evaluate_comp.scm 564 */
											obj_t BgL_top5744z00_33088;

											BgL_top5744z00_33088 = BGL_EXITD_TOP_AS_OBJ();
											BGL_MUTEX_LOCK(BgL_mz00_16789);
											BGL_EXITD_PUSH_PROTECT(BgL_top5744z00_33088,
												BgL_mz00_16789);
											BUNSPEC;
											{	/* Eval/evaluate_comp.scm 564 */
												obj_t BgL_tmp5743z00_33087;

												BgL_tmp5743z00_33087 =
													BGL_PROCEDURE_CALL1(BgL_bodyz00_15388,
													BgL_sz00_15389);
												BGL_EXITD_POP_PROTECT(BgL_top5744z00_33088);
												BUNSPEC;
												BGL_MUTEX_UNLOCK(BgL_mz00_16789);
												BgL_za2za2resza2za2z00_16791 = BgL_tmp5743z00_33087;
											}
										}
									VECTOR_SET(((obj_t) BgL_sz00_15389), 0L, BgL_bpz00_16788);
									return BgL_za2za2resza2za2z00_16791;
								}
							}
						else
							{	/* Eval/evaluate_comp.scm 559 */
								return
									BGl_loczd2typezd2errorz00zz__evaluate_compz00
									(BGl_string4696z00zz__evaluate_compz00,
									BGl_string4697z00zz__evaluate_compz00, BgL_mz00_16789,
									(((BgL_ev_synchroniza7eza7_bglt)
											COBJECT(BgL_i1150z00_15386))->BgL_locz00));
							}
					}
				}
			}
		}

	}



/* &comp-ev_with-handler1454 */
	obj_t BGl_z62compzd2ev_withzd2handler1454z62zz__evaluate_compz00(obj_t
		BgL_envz00_15390, obj_t BgL_ez00_15391, obj_t BgL_stkz00_15392)
	{
		{	/* Eval/evaluate_comp.scm 543 */
			{	/* Eval/evaluate_comp.scm 545 */
				obj_t BgL_handlerz00_16793;
				obj_t BgL_bodyz00_16794;

				BgL_handlerz00_16793 =
					BGl_compz00zz__evaluate_compz00(
					(((BgL_ev_withzd2handlerzd2_bglt) COBJECT(
								((BgL_ev_withzd2handlerzd2_bglt) BgL_ez00_15391)))->
						BgL_handlerz00), BgL_stkz00_15392);
				BgL_bodyz00_16794 =
					BGl_compz00zz__evaluate_compz00((((BgL_ev_withzd2handlerzd2_bglt)
							COBJECT(((BgL_ev_withzd2handlerzd2_bglt) BgL_ez00_15391)))->
						BgL_bodyz00), BgL_stkz00_15392);
				{	/* Eval/evaluate_comp.scm 546 */
					obj_t BgL_zc3z04anonymousza33334ze3z87_16795;

					BgL_zc3z04anonymousza33334ze3z87_16795 =
						MAKE_FX_PROCEDURE
						(BGl_z62zc3z04anonymousza33334ze3ze5zz__evaluate_compz00,
						(int) (1L), (int) (2L));
					PROCEDURE_SET(BgL_zc3z04anonymousza33334ze3z87_16795, (int) (0L),
						BgL_handlerz00_16793);
					PROCEDURE_SET(BgL_zc3z04anonymousza33334ze3z87_16795, (int) (1L),
						BgL_bodyz00_16794);
					return BgL_zc3z04anonymousza33334ze3z87_16795;
				}
			}
		}

	}



/* &<@anonymous:3334> */
	obj_t BGl_z62zc3z04anonymousza33334ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15393, obj_t BgL_sz00_15396)
	{
		{	/* Eval/evaluate_comp.scm 546 */
			{	/* Eval/evaluate_comp.scm 546 */
				obj_t BgL_handlerz00_15394;
				obj_t BgL_bodyz00_15395;

				BgL_handlerz00_15394 = PROCEDURE_REF(BgL_envz00_15393, (int) (0L));
				BgL_bodyz00_15395 = PROCEDURE_REF(BgL_envz00_15393, (int) (1L));
				{	/* Eval/evaluate_comp.scm 546 */
					obj_t BgL_bpz00_16796;

					BgL_bpz00_16796 = VECTOR_REF(((obj_t) BgL_sz00_15396), 0L);
					{	/* Eval/evaluate_comp.scm 547 */
						obj_t BgL_hz00_16797;

						BgL_hz00_16797 =
							BGL_PROCEDURE_CALL1(BgL_handlerz00_15394, BgL_sz00_15396);
						{	/* Eval/evaluate_comp.scm 549 */
							obj_t BgL_za2za2resza2za2z00_16798;

							{	/* Eval/evaluate_comp.scm 549 */
								obj_t BgL_env1141z00_16799;

								BgL_env1141z00_16799 = BGL_CURRENT_DYNAMIC_ENV();
								{	/* Eval/evaluate_comp.scm 549 */
									obj_t BgL_cell1136z00_16800;

									BgL_cell1136z00_16800 = MAKE_STACK_CELL(BUNSPEC);
									{	/* Eval/evaluate_comp.scm 549 */
										obj_t BgL_val1140z00_16801;

										BgL_val1140z00_16801 =
											BGl_zc3z04exitza33336ze3ze70z60zz__evaluate_compz00
											(BgL_sz00_15396, BgL_bodyz00_15395, BgL_cell1136z00_16800,
											BgL_env1141z00_16799);
										if ((BgL_val1140z00_16801 == BgL_cell1136z00_16800))
											{	/* Eval/evaluate_comp.scm 549 */
												{	/* Eval/evaluate_comp.scm 549 */
													int BgL_tmpz00_33130;

													BgL_tmpz00_33130 = (int) (0L);
													BGL_SIGSETMASK(BgL_tmpz00_33130);
												}
												{	/* Eval/evaluate_comp.scm 549 */
													obj_t BgL_arg3335z00_16802;

													BgL_arg3335z00_16802 =
														CELL_REF(((obj_t) BgL_val1140z00_16801));
													BgL_za2za2resza2za2z00_16798 =
														BGL_PROCEDURE_CALL1(BgL_hz00_16797,
														BgL_arg3335z00_16802);
											}}
										else
											{	/* Eval/evaluate_comp.scm 549 */
												BgL_za2za2resza2za2z00_16798 = BgL_val1140z00_16801;
											}
									}
								}
							}
							VECTOR_SET(((obj_t) BgL_sz00_15396), 0L, BgL_bpz00_16796);
							return BgL_za2za2resza2za2z00_16798;
						}
					}
				}
			}
		}

	}



/* <@exit:3336>~0 */
	obj_t BGl_zc3z04exitza33336ze3ze70z60zz__evaluate_compz00(obj_t
		BgL_sz00_15577, obj_t BgL_bodyz00_15576, obj_t BgL_cell1136z00_15575,
		obj_t BgL_env1141z00_15574)
	{
		{	/* Eval/evaluate_comp.scm 549 */
			jmp_buf_t jmpbuf;
			void *BgL_an_exit1145z00_4213;

			if (SET_EXIT(BgL_an_exit1145z00_4213))
				{
					return BGL_EXIT_VALUE();
				}
			else
				{
#if (SIGSETJMP_SAVESIGS == 0)
				 // MS: CARE 5 jan 2021: see runtime/Clib/csystem.c
				 // bgl_restore_signal_handlers();
#endif

					BgL_an_exit1145z00_4213 = (void *) jmpbuf;
					PUSH_ENV_EXIT(BgL_env1141z00_15574, BgL_an_exit1145z00_4213, 1L);
					{	/* Eval/evaluate_comp.scm 549 */
						obj_t BgL_escape1137z00_4214;

						BgL_escape1137z00_4214 =
							BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1141z00_15574);
						{	/* Eval/evaluate_comp.scm 549 */
							obj_t BgL_res1148z00_4215;

							{	/* Eval/evaluate_comp.scm 549 */
								obj_t BgL_ohs1133z00_4216;

								BgL_ohs1133z00_4216 =
									BGL_ENV_ERROR_HANDLER_GET(BgL_env1141z00_15574);
								{	/* Eval/evaluate_comp.scm 549 */
									obj_t BgL_hds1134z00_4217;

									BgL_hds1134z00_4217 =
										MAKE_STACK_PAIR(BgL_escape1137z00_4214,
										BgL_cell1136z00_15575);
									BGL_ENV_ERROR_HANDLER_SET(BgL_env1141z00_15574,
										BgL_hds1134z00_4217);
									BUNSPEC;
									{	/* Eval/evaluate_comp.scm 549 */
										obj_t BgL_exitd1142z00_4218;

										BgL_exitd1142z00_4218 =
											BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1141z00_15574);
										{	/* Eval/evaluate_comp.scm 549 */
											obj_t BgL_tmp1144z00_4219;

											{	/* Eval/evaluate_comp.scm 549 */
												obj_t BgL_arg3337z00_4221;

												BgL_arg3337z00_4221 =
													BGL_EXITD_PROTECT(BgL_exitd1142z00_4218);
												BgL_tmp1144z00_4219 =
													MAKE_YOUNG_PAIR(BgL_ohs1133z00_4216,
													BgL_arg3337z00_4221);
											}
											{	/* Eval/evaluate_comp.scm 549 */

												BGL_EXITD_PROTECT_SET(BgL_exitd1142z00_4218,
													BgL_tmp1144z00_4219);
												BUNSPEC;
												{	/* Eval/evaluate_comp.scm 549 */
													obj_t BgL_tmp1143z00_4220;

													BgL_tmp1143z00_4220 =
														BGL_PROCEDURE_CALL1(BgL_bodyz00_15576,
														BgL_sz00_15577);
													{	/* Eval/evaluate_comp.scm 549 */
														bool_t BgL_test5746z00_33156;

														{	/* Eval/evaluate_comp.scm 549 */
															obj_t BgL_arg4320z00_10409;

															BgL_arg4320z00_10409 =
																BGL_EXITD_PROTECT(BgL_exitd1142z00_4218);
															BgL_test5746z00_33156 =
																PAIRP(BgL_arg4320z00_10409);
														}
														if (BgL_test5746z00_33156)
															{	/* Eval/evaluate_comp.scm 549 */
																obj_t BgL_arg4318z00_10410;

																{	/* Eval/evaluate_comp.scm 549 */
																	obj_t BgL_arg4319z00_10411;

																	BgL_arg4319z00_10411 =
																		BGL_EXITD_PROTECT(BgL_exitd1142z00_4218);
																	BgL_arg4318z00_10410 =
																		CDR(((obj_t) BgL_arg4319z00_10411));
																}
																BGL_EXITD_PROTECT_SET(BgL_exitd1142z00_4218,
																	BgL_arg4318z00_10410);
																BUNSPEC;
															}
														else
															{	/* Eval/evaluate_comp.scm 549 */
																BFALSE;
															}
													}
													BGL_ENV_ERROR_HANDLER_SET(BgL_env1141z00_15574,
														BgL_ohs1133z00_4216);
													BUNSPEC;
													BgL_res1148z00_4215 = BgL_tmp1143z00_4220;
												}
											}
										}
									}
								}
							}
							POP_ENV_EXIT(BgL_env1141z00_15574);
							return BgL_res1148z00_4215;
						}
					}
				}
		}

	}



/* &comp-ev_unwind-prote1452 */
	obj_t BGl_z62compzd2ev_unwindzd2prote1452z62zz__evaluate_compz00(obj_t
		BgL_envz00_15397, obj_t BgL_ez00_15398, obj_t BgL_stkz00_15399)
	{
		{	/* Eval/evaluate_comp.scm 534 */
			{	/* Eval/evaluate_comp.scm 536 */
				obj_t BgL_ez00_16804;
				obj_t BgL_bodyz00_16805;

				BgL_ez00_16804 =
					BGl_compz00zz__evaluate_compz00(
					(((BgL_ev_unwindzd2protectzd2_bglt) COBJECT(
								((BgL_ev_unwindzd2protectzd2_bglt) BgL_ez00_15398)))->BgL_ez00),
					BgL_stkz00_15399);
				BgL_bodyz00_16805 =
					BGl_compz00zz__evaluate_compz00((((BgL_ev_unwindzd2protectzd2_bglt)
							COBJECT(((BgL_ev_unwindzd2protectzd2_bglt) BgL_ez00_15398)))->
						BgL_bodyz00), BgL_stkz00_15399);
				{	/* Eval/evaluate_comp.scm 537 */
					obj_t BgL_zc3z04anonymousza33330ze3z87_16806;

					BgL_zc3z04anonymousza33330ze3z87_16806 =
						MAKE_FX_PROCEDURE
						(BGl_z62zc3z04anonymousza33330ze3ze5zz__evaluate_compz00,
						(int) (1L), (int) (2L));
					PROCEDURE_SET(BgL_zc3z04anonymousza33330ze3z87_16806, (int) (0L),
						BgL_bodyz00_16805);
					PROCEDURE_SET(BgL_zc3z04anonymousza33330ze3z87_16806, (int) (1L),
						BgL_ez00_16804);
					return BgL_zc3z04anonymousza33330ze3z87_16806;
				}
			}
		}

	}



/* &<@anonymous:3330> */
	obj_t BGl_z62zc3z04anonymousza33330ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15400, obj_t BgL_sz00_15403)
	{
		{	/* Eval/evaluate_comp.scm 537 */
			return
				BGl_zc3z04anonymousza33330ze3ze70z60zz__evaluate_compz00(PROCEDURE_REF
				(BgL_envz00_15400, (int) (1L)), PROCEDURE_REF(BgL_envz00_15400,
					(int) (0L)), BgL_sz00_15403);
		}

	}



/* <@anonymous:3330>~0 */
	obj_t BGl_zc3z04anonymousza33330ze3ze70z60zz__evaluate_compz00(obj_t
		BgL_ez00_15573, obj_t BgL_bodyz00_15572, obj_t BgL_sz00_4182)
	{
		{	/* Eval/evaluate_comp.scm 537 */
			{	/* Eval/evaluate_comp.scm 537 */
				obj_t BgL_bpz00_4184;

				BgL_bpz00_4184 = VECTOR_REF(((obj_t) BgL_sz00_4182), 0L);
				{	/* Eval/evaluate_comp.scm 539 */
					obj_t BgL_exitd1128z00_4186;

					BgL_exitd1128z00_4186 = BGL_EXITD_TOP_AS_OBJ();
					{	/* Eval/evaluate_comp.scm 540 */
						obj_t BgL_zc3z04anonymousza33331ze3z87_14367;

						BgL_zc3z04anonymousza33331ze3z87_14367 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza33331ze3ze5zz__evaluate_compz00,
							(int) (0L), (int) (3L));
						PROCEDURE_SET(BgL_zc3z04anonymousza33331ze3z87_14367, (int) (0L),
							BgL_sz00_4182);
						PROCEDURE_SET(BgL_zc3z04anonymousza33331ze3z87_14367, (int) (1L),
							BgL_bpz00_4184);
						PROCEDURE_SET(BgL_zc3z04anonymousza33331ze3z87_14367, (int) (2L),
							BgL_bodyz00_15572);
						{	/* Eval/evaluate_comp.scm 539 */
							obj_t BgL_arg4321z00_10399;

							{	/* Eval/evaluate_comp.scm 539 */
								obj_t BgL_arg4322z00_10400;

								BgL_arg4322z00_10400 = BGL_EXITD_PROTECT(BgL_exitd1128z00_4186);
								BgL_arg4321z00_10399 =
									MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza33331ze3z87_14367,
									BgL_arg4322z00_10400);
							}
							BGL_EXITD_PROTECT_SET(BgL_exitd1128z00_4186,
								BgL_arg4321z00_10399);
							BUNSPEC;
						}
						{	/* Eval/evaluate_comp.scm 539 */
							obj_t BgL_tmp1130z00_4188;

							BgL_tmp1130z00_4188 =
								BGL_PROCEDURE_CALL1(BgL_ez00_15573, BgL_sz00_4182);
							{	/* Eval/evaluate_comp.scm 539 */
								bool_t BgL_test5747z00_33202;

								{	/* Eval/evaluate_comp.scm 539 */
									obj_t BgL_arg4320z00_10402;

									BgL_arg4320z00_10402 =
										BGL_EXITD_PROTECT(BgL_exitd1128z00_4186);
									BgL_test5747z00_33202 = PAIRP(BgL_arg4320z00_10402);
								}
								if (BgL_test5747z00_33202)
									{	/* Eval/evaluate_comp.scm 539 */
										obj_t BgL_arg4318z00_10403;

										{	/* Eval/evaluate_comp.scm 539 */
											obj_t BgL_arg4319z00_10404;

											BgL_arg4319z00_10404 =
												BGL_EXITD_PROTECT(BgL_exitd1128z00_4186);
											BgL_arg4318z00_10403 =
												CDR(((obj_t) BgL_arg4319z00_10404));
										}
										BGL_EXITD_PROTECT_SET(BgL_exitd1128z00_4186,
											BgL_arg4318z00_10403);
										BUNSPEC;
									}
								else
									{	/* Eval/evaluate_comp.scm 539 */
										BFALSE;
									}
							}
							VECTOR_SET(((obj_t) BgL_sz00_4182), 0L, BgL_bpz00_4184);
							BGL_PROCEDURE_CALL1(BgL_bodyz00_15572, BgL_sz00_4182);
							return BgL_tmp1130z00_4188;
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3331> */
	obj_t BGl_z62zc3z04anonymousza33331ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15404)
	{
		{	/* Eval/evaluate_comp.scm 539 */
			{	/* Eval/evaluate_comp.scm 540 */
				obj_t BgL_sz00_15405;
				obj_t BgL_savedzd2bpzd2_15406;
				obj_t BgL_bodyz00_15407;

				BgL_sz00_15405 = PROCEDURE_REF(BgL_envz00_15404, (int) (0L));
				BgL_savedzd2bpzd2_15406 = PROCEDURE_REF(BgL_envz00_15404, (int) (1L));
				BgL_bodyz00_15407 = PROCEDURE_REF(BgL_envz00_15404, (int) (2L));
				VECTOR_SET(((obj_t) BgL_sz00_15405), 0L, BgL_savedzd2bpzd2_15406);
				return BGL_PROCEDURE_CALL1(BgL_bodyz00_15407, BgL_sz00_15405);
			}
		}

	}



/* &comp-ev_bind-exit1450 */
	obj_t BGl_z62compzd2ev_bindzd2exit1450z62zz__evaluate_compz00(obj_t
		BgL_envz00_15408, obj_t BgL_ez00_15409, obj_t BgL_stkz00_15410)
	{
		{	/* Eval/evaluate_comp.scm 523 */
			{	/* Eval/evaluate_comp.scm 525 */
				long BgL_siza7eza7_16808;
				obj_t BgL_nstkz00_16809;

				BgL_siza7eza7_16808 = bgl_list_length(BgL_stkz00_15410);
				{	/* Eval/evaluate_comp.scm 525 */
					obj_t BgL_arg3327z00_16810;

					{	/* Eval/evaluate_comp.scm 525 */
						BgL_ev_varz00_bglt BgL_arg3329z00_16811;

						BgL_arg3329z00_16811 =
							(((BgL_ev_bindzd2exitzd2_bglt) COBJECT(
									((BgL_ev_bindzd2exitzd2_bglt) BgL_ez00_15409)))->BgL_varz00);
						BgL_arg3327z00_16810 =
							MAKE_YOUNG_PAIR(((obj_t) BgL_arg3329z00_16811), BNIL);
					}
					BgL_nstkz00_16809 =
						BGl_appendzd221011zd2zz__evaluate_compz00(BgL_stkz00_15410,
						BgL_arg3327z00_16810);
				}
				{	/* Eval/evaluate_comp.scm 526 */
					obj_t BgL_bodyz00_16812;
					obj_t BgL_effzf3zf3_16813;

					BgL_bodyz00_16812 =
						BGl_compz00zz__evaluate_compz00(
						(((BgL_ev_bindzd2exitzd2_bglt) COBJECT(
									((BgL_ev_bindzd2exitzd2_bglt) BgL_ez00_15409)))->BgL_bodyz00),
						BgL_nstkz00_16809);
					BgL_effzf3zf3_16813 =
						(((BgL_ev_varz00_bglt) COBJECT((((BgL_ev_bindzd2exitzd2_bglt)
										COBJECT(((BgL_ev_bindzd2exitzd2_bglt) BgL_ez00_15409)))->
									BgL_varz00)))->BgL_effz00);
					{	/* Eval/evaluate_comp.scm 527 */
						obj_t BgL_zc3z04anonymousza33321ze3z87_16814;

						BgL_zc3z04anonymousza33321ze3z87_16814 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza33321ze3ze5zz__evaluate_compz00,
							(int) (1L), (int) (3L));
						PROCEDURE_SET(BgL_zc3z04anonymousza33321ze3z87_16814, (int) (0L),
							BINT(BgL_siza7eza7_16808));
						PROCEDURE_SET(BgL_zc3z04anonymousza33321ze3z87_16814, (int) (1L),
							BgL_effzf3zf3_16813);
						PROCEDURE_SET(BgL_zc3z04anonymousza33321ze3z87_16814, (int) (2L),
							BgL_bodyz00_16812);
						return BgL_zc3z04anonymousza33321ze3z87_16814;
					}
				}
			}
		}

	}



/* &<@anonymous:3321> */
	obj_t BGl_z62zc3z04anonymousza33321ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15411, obj_t BgL_sz00_15415)
	{
		{	/* Eval/evaluate_comp.scm 527 */
			{	/* Eval/evaluate_comp.scm 527 */
				long BgL_siza7eza7_15412;
				obj_t BgL_effzf3zf3_15413;
				obj_t BgL_bodyz00_15414;

				BgL_siza7eza7_15412 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_15411, (int) (0L)));
				BgL_effzf3zf3_15413 = PROCEDURE_REF(BgL_envz00_15411, (int) (1L));
				BgL_bodyz00_15414 = PROCEDURE_REF(BgL_envz00_15411, (int) (2L));
				{	/* Eval/evaluate_comp.scm 527 */
					obj_t BgL_bpz00_16815;

					BgL_bpz00_16815 = VECTOR_REF(((obj_t) BgL_sz00_15415), 0L);
					{	/* Eval/evaluate_comp.scm 529 */
						obj_t BgL_za2za2resza2za2z00_16816;

						BgL_za2za2resza2za2z00_16816 =
							BGl_zc3z04exitza33322ze3ze70z60zz__evaluate_compz00
							(BgL_bodyz00_15414, BgL_sz00_15415, BgL_effzf3zf3_15413,
							BgL_siza7eza7_15412, BgL_bpz00_16815);
						VECTOR_SET(((obj_t) BgL_sz00_15415), 0L, BgL_bpz00_16815);
						return BgL_za2za2resza2za2z00_16816;
					}
				}
			}
		}

	}



/* <@exit:3322>~0 */
	obj_t BGl_zc3z04exitza33322ze3ze70z60zz__evaluate_compz00(obj_t
		BgL_bodyz00_15571, obj_t BgL_sz00_15570, obj_t BgL_effzf3zf3_15569,
		long BgL_siza7eza7_15568, obj_t BgL_bpz00_15567)
	{
		{	/* Eval/evaluate_comp.scm 529 */
			jmp_buf_t jmpbuf;
			void *BgL_an_exit1121z00_4162;

			if (SET_EXIT(BgL_an_exit1121z00_4162))
				{
					return BGL_EXIT_VALUE();
				}
			else
				{
#if (SIGSETJMP_SAVESIGS == 0)
				 // MS: CARE 5 jan 2021: see runtime/Clib/csystem.c
				 // bgl_restore_signal_handlers();
#endif

					BgL_an_exit1121z00_4162 = (void *) jmpbuf;
					{	/* Eval/evaluate_comp.scm 529 */
						obj_t BgL_env1125z00_4163;

						BgL_env1125z00_4163 = BGL_CURRENT_DYNAMIC_ENV();
						PUSH_ENV_EXIT(BgL_env1125z00_4163, BgL_an_exit1121z00_4162, 1L);
						{	/* Eval/evaluate_comp.scm 529 */
							obj_t BgL_an_exitd1122z00_4164;

							BgL_an_exitd1122z00_4164 =
								BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1125z00_4163);
							{	/* Eval/evaluate_comp.scm 529 */
								obj_t BgL_exitz00_14370;

								BgL_exitz00_14370 =
									MAKE_FX_PROCEDURE(BGl_z62exitz62zz__evaluate_compz00,
									(int) (1L), (int) (1L));
								PROCEDURE_SET(BgL_exitz00_14370,
									(int) (0L), BgL_an_exitd1122z00_4164);
								{	/* Eval/evaluate_comp.scm 529 */
									obj_t BgL_res1124z00_4167;

									{	/* Eval/evaluate_comp.scm 530 */
										long BgL_arg3323z00_4168;
										obj_t BgL_arg3324z00_4169;

										BgL_arg3323z00_4168 =
											((long) CINT(BgL_bpz00_15567) + BgL_siza7eza7_15568);
										if (CBOOL(BgL_effzf3zf3_15569))
											{	/* Eval/evaluate_comp.scm 202 */
												obj_t BgL_newz00_10392;

												BgL_newz00_10392 =
													create_struct(BGl_symbol4587z00zz__evaluate_compz00,
													(int) (1L));
												{	/* Eval/evaluate_comp.scm 202 */
													int BgL_tmpz00_33277;

													BgL_tmpz00_33277 = (int) (0L);
													STRUCT_SET(BgL_newz00_10392, BgL_tmpz00_33277,
														BgL_exitz00_14370);
												}
												BgL_arg3324z00_4169 = BgL_newz00_10392;
											}
										else
											{	/* Eval/evaluate_comp.scm 530 */
												BgL_arg3324z00_4169 = BgL_exitz00_14370;
											}
										VECTOR_SET(
											((obj_t) BgL_sz00_15570), BgL_arg3323z00_4168,
											BgL_arg3324z00_4169);
									}
									BgL_res1124z00_4167 =
										BGL_PROCEDURE_CALL1(BgL_bodyz00_15571, BgL_sz00_15570);
									POP_ENV_EXIT(BgL_env1125z00_4163);
									return BgL_res1124z00_4167;
								}
							}
						}
					}
				}
		}

	}



/* &exit */
	obj_t BGl_z62exitz62zz__evaluate_compz00(obj_t BgL_envz00_15416,
		obj_t BgL_val1123z00_15418)
	{
		{	/* Eval/evaluate_comp.scm 529 */
			return
				unwind_stack_until(PROCEDURE_REF(BgL_envz00_15416,
					(int) (0L)), BFALSE, BgL_val1123z00_15418, BFALSE, BFALSE);
		}

	}



/* &comp-ev_letrec1448 */
	obj_t BGl_z62compzd2ev_letrec1448zb0zz__evaluate_compz00(obj_t
		BgL_envz00_15419, obj_t BgL_ez00_15420, obj_t BgL_stkz00_15421)
	{
		{	/* Eval/evaluate_comp.scm 494 */
			{	/* Eval/evaluate_comp.scm 496 */
				long BgL_siza7eza7_16818;
				obj_t BgL_nstkz00_16819;

				BgL_siza7eza7_16818 = bgl_list_length(BgL_stkz00_15421);
				{	/* Eval/evaluate_comp.scm 496 */
					obj_t BgL_arg3320z00_16820;

					BgL_arg3320z00_16820 =
						(((BgL_ev_binderz00_bglt) COBJECT(
								((BgL_ev_binderz00_bglt)
									((BgL_ev_letrecz00_bglt) BgL_ez00_15420))))->BgL_varsz00);
					BgL_nstkz00_16819 =
						BGl_appendzd221011zd2zz__evaluate_compz00(BgL_stkz00_15421,
						BgL_arg3320z00_16820);
				}
				{	/* Eval/evaluate_comp.scm 497 */
					obj_t BgL_cvalsz00_16821;
					obj_t BgL_bodyz00_16822;

					{	/* Eval/evaluate_comp.scm 497 */
						obj_t BgL_l1329z00_16823;

						BgL_l1329z00_16823 =
							(((BgL_ev_binderz00_bglt) COBJECT(
									((BgL_ev_binderz00_bglt)
										((BgL_ev_letrecz00_bglt) BgL_ez00_15420))))->BgL_valsz00);
						if (NULLP(BgL_l1329z00_16823))
							{	/* Eval/evaluate_comp.scm 497 */
								BgL_cvalsz00_16821 = BNIL;
							}
						else
							{	/* Eval/evaluate_comp.scm 497 */
								obj_t BgL_head1331z00_16824;

								BgL_head1331z00_16824 = MAKE_YOUNG_PAIR(BNIL, BNIL);
								{
									obj_t BgL_l1329z00_16826;
									obj_t BgL_tail1332z00_16827;

									BgL_l1329z00_16826 = BgL_l1329z00_16823;
									BgL_tail1332z00_16827 = BgL_head1331z00_16824;
								BgL_zc3z04anonymousza33313ze3z87_16825:
									if (NULLP(BgL_l1329z00_16826))
										{	/* Eval/evaluate_comp.scm 497 */
											BgL_cvalsz00_16821 = CDR(BgL_head1331z00_16824);
										}
									else
										{	/* Eval/evaluate_comp.scm 497 */
											obj_t BgL_newtail1333z00_16828;

											{	/* Eval/evaluate_comp.scm 497 */
												obj_t BgL_arg3317z00_16829;

												{	/* Eval/evaluate_comp.scm 497 */
													obj_t BgL_vz00_16830;

													BgL_vz00_16830 = CAR(((obj_t) BgL_l1329z00_16826));
													BgL_arg3317z00_16829 =
														BGl_compz00zz__evaluate_compz00(
														((BgL_ev_exprz00_bglt) BgL_vz00_16830),
														BgL_nstkz00_16819);
												}
												BgL_newtail1333z00_16828 =
													MAKE_YOUNG_PAIR(BgL_arg3317z00_16829, BNIL);
											}
											SET_CDR(BgL_tail1332z00_16827, BgL_newtail1333z00_16828);
											{	/* Eval/evaluate_comp.scm 497 */
												obj_t BgL_arg3315z00_16831;

												BgL_arg3315z00_16831 =
													CDR(((obj_t) BgL_l1329z00_16826));
												{
													obj_t BgL_tail1332z00_33313;
													obj_t BgL_l1329z00_33312;

													BgL_l1329z00_33312 = BgL_arg3315z00_16831;
													BgL_tail1332z00_33313 = BgL_newtail1333z00_16828;
													BgL_tail1332z00_16827 = BgL_tail1332z00_33313;
													BgL_l1329z00_16826 = BgL_l1329z00_33312;
													goto BgL_zc3z04anonymousza33313ze3z87_16825;
												}
											}
										}
								}
							}
					}
					{	/* Eval/evaluate_comp.scm 498 */
						BgL_ev_exprz00_bglt BgL_arg3318z00_16832;

						BgL_arg3318z00_16832 =
							(((BgL_ev_binderz00_bglt) COBJECT(
									((BgL_ev_binderz00_bglt)
										((BgL_ev_letrecz00_bglt) BgL_ez00_15420))))->BgL_bodyz00);
						BgL_bodyz00_16822 =
							BGl_compz00zz__evaluate_compz00(BgL_arg3318z00_16832,
							BgL_nstkz00_16819);
					}
					{	/* Eval/evaluate_comp.scm 499 */
						bool_t BgL_test5751z00_33318;

						{
							obj_t BgL_l1334z00_16834;

							BgL_l1334z00_16834 =
								(((BgL_ev_binderz00_bglt) COBJECT(
										((BgL_ev_binderz00_bglt)
											((BgL_ev_letrecz00_bglt) BgL_ez00_15420))))->BgL_valsz00);
						BgL_zc3z04anonymousza33310ze3z87_16833:
							if (NULLP(BgL_l1334z00_16834))
								{	/* Eval/evaluate_comp.scm 499 */
									BgL_test5751z00_33318 = ((bool_t) 1);
								}
							else
								{	/* Eval/evaluate_comp.scm 499 */
									bool_t BgL_test5753z00_33321;

									{	/* Eval/evaluate_comp.scm 499 */
										obj_t BgL_vz00_16835;

										BgL_vz00_16835 = CAR(((obj_t) BgL_l1334z00_16834));
										{	/* Eval/evaluate_comp.scm 499 */
											obj_t BgL_classz00_16836;

											BgL_classz00_16836 = BGl_ev_absz00zz__evaluate_typesz00;
											if (BGL_OBJECTP(BgL_vz00_16835))
												{	/* Eval/evaluate_comp.scm 499 */
													BgL_objectz00_bglt BgL_arg4295z00_16837;

													BgL_arg4295z00_16837 =
														(BgL_objectz00_bglt) (BgL_vz00_16835);
													if (BGL_CONDEXPAND_ISA_ARCH64())
														{	/* Eval/evaluate_comp.scm 499 */
															long BgL_idxz00_16838;

															BgL_idxz00_16838 =
																BGL_OBJECT_INHERITANCE_NUM
																(BgL_arg4295z00_16837);
															BgL_test5753z00_33321 =
																(VECTOR_REF
																(BGl_za2inheritancesza2z00zz__objectz00,
																	(BgL_idxz00_16838 + 2L)) ==
																BgL_classz00_16836);
														}
													else
														{	/* Eval/evaluate_comp.scm 499 */
															bool_t BgL_res4443z00_16841;

															{	/* Eval/evaluate_comp.scm 499 */
																obj_t BgL_oclassz00_16842;

																{	/* Eval/evaluate_comp.scm 499 */
																	obj_t BgL_arg4302z00_16843;
																	long BgL_arg4303z00_16844;

																	BgL_arg4302z00_16843 =
																		(BGl_za2classesza2z00zz__objectz00);
																	{	/* Eval/evaluate_comp.scm 499 */
																		long BgL_arg4304z00_16845;

																		BgL_arg4304z00_16845 =
																			BGL_OBJECT_CLASS_NUM
																			(BgL_arg4295z00_16837);
																		BgL_arg4303z00_16844 =
																			(BgL_arg4304z00_16845 - OBJECT_TYPE);
																	}
																	BgL_oclassz00_16842 =
																		VECTOR_REF(BgL_arg4302z00_16843,
																		BgL_arg4303z00_16844);
																}
																{	/* Eval/evaluate_comp.scm 499 */
																	bool_t BgL__ortest_1296z00_16846;

																	BgL__ortest_1296z00_16846 =
																		(BgL_classz00_16836 == BgL_oclassz00_16842);
																	if (BgL__ortest_1296z00_16846)
																		{	/* Eval/evaluate_comp.scm 499 */
																			BgL_res4443z00_16841 =
																				BgL__ortest_1296z00_16846;
																		}
																	else
																		{	/* Eval/evaluate_comp.scm 499 */
																			long BgL_odepthz00_16847;

																			{	/* Eval/evaluate_comp.scm 499 */
																				obj_t BgL_arg4292z00_16848;

																				BgL_arg4292z00_16848 =
																					(BgL_oclassz00_16842);
																				BgL_odepthz00_16847 =
																					BGL_CLASS_DEPTH(BgL_arg4292z00_16848);
																			}
																			if ((2L < BgL_odepthz00_16847))
																				{	/* Eval/evaluate_comp.scm 499 */
																					obj_t BgL_arg4290z00_16849;

																					{	/* Eval/evaluate_comp.scm 499 */
																						obj_t BgL_arg4291z00_16850;

																						BgL_arg4291z00_16850 =
																							(BgL_oclassz00_16842);
																						BgL_arg4290z00_16849 =
																							BGL_CLASS_ANCESTORS_REF
																							(BgL_arg4291z00_16850, 2L);
																					}
																					BgL_res4443z00_16841 =
																						(BgL_arg4290z00_16849 ==
																						BgL_classz00_16836);
																				}
																			else
																				{	/* Eval/evaluate_comp.scm 499 */
																					BgL_res4443z00_16841 = ((bool_t) 0);
																				}
																		}
																}
															}
															BgL_test5753z00_33321 = BgL_res4443z00_16841;
														}
												}
											else
												{	/* Eval/evaluate_comp.scm 499 */
													BgL_test5753z00_33321 = ((bool_t) 0);
												}
										}
									}
									if (BgL_test5753z00_33321)
										{
											obj_t BgL_l1334z00_33346;

											BgL_l1334z00_33346 = CDR(((obj_t) BgL_l1334z00_16834));
											BgL_l1334z00_16834 = BgL_l1334z00_33346;
											goto BgL_zc3z04anonymousza33310ze3z87_16833;
										}
									else
										{	/* Eval/evaluate_comp.scm 499 */
											BgL_test5751z00_33318 = ((bool_t) 0);
										}
								}
						}
						if (BgL_test5751z00_33318)
							{	/* Eval/evaluate_comp.scm 500 */
								obj_t BgL_zc3z04anonymousza33262ze3z87_16851;

								BgL_zc3z04anonymousza33262ze3z87_16851 =
									MAKE_FX_PROCEDURE
									(BGl_z62zc3z04anonymousza33262ze3ze5zz__evaluate_compz00,
									(int) (1L), (int) (3L));
								PROCEDURE_SET(BgL_zc3z04anonymousza33262ze3z87_16851,
									(int) (0L), BINT(BgL_siza7eza7_16818));
								PROCEDURE_SET(BgL_zc3z04anonymousza33262ze3z87_16851,
									(int) (1L), BgL_cvalsz00_16821);
								PROCEDURE_SET(BgL_zc3z04anonymousza33262ze3z87_16851,
									(int) (2L), BgL_bodyz00_16822);
								return BgL_zc3z04anonymousza33262ze3z87_16851;
							}
						else
							{	/* Eval/evaluate_comp.scm 510 */
								obj_t BgL_zc3z04anonymousza33290ze3z87_16852;

								BgL_zc3z04anonymousza33290ze3z87_16852 =
									MAKE_FX_PROCEDURE
									(BGl_z62zc3z04anonymousza33290ze3ze5zz__evaluate_compz00,
									(int) (1L), (int) (3L));
								PROCEDURE_SET(BgL_zc3z04anonymousza33290ze3z87_16852,
									(int) (0L), BINT(BgL_siza7eza7_16818));
								PROCEDURE_SET(BgL_zc3z04anonymousza33290ze3z87_16852,
									(int) (1L), BgL_cvalsz00_16821);
								PROCEDURE_SET(BgL_zc3z04anonymousza33290ze3z87_16852,
									(int) (2L), BgL_bodyz00_16822);
								return BgL_zc3z04anonymousza33290ze3z87_16852;
							}
					}
				}
			}
		}

	}



/* &<@anonymous:3262> */
	obj_t BGl_z62zc3z04anonymousza33262ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15422, obj_t BgL_sz00_15426)
	{
		{	/* Eval/evaluate_comp.scm 500 */
			{	/* Eval/evaluate_comp.scm 500 */
				long BgL_siza7eza7_15423;
				obj_t BgL_cvalsz00_15424;
				obj_t BgL_bodyz00_15425;

				BgL_siza7eza7_15423 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_15422, (int) (0L)));
				BgL_cvalsz00_15424 = PROCEDURE_REF(BgL_envz00_15422, (int) (1L));
				BgL_bodyz00_15425 = PROCEDURE_REF(BgL_envz00_15422, (int) (2L));
				{	/* Eval/evaluate_comp.scm 500 */
					obj_t BgL_bpz00_16853;

					BgL_bpz00_16853 = VECTOR_REF(((obj_t) BgL_sz00_15426), 0L);
					{	/* Eval/evaluate_comp.scm 501 */
						long BgL_g1115z00_16854;

						BgL_g1115z00_16854 =
							((long) CINT(BgL_bpz00_16853) + BgL_siza7eza7_15423);
						{
							obj_t BgL_lz00_16856;
							long BgL_iz00_16857;

							BgL_lz00_16856 = BgL_cvalsz00_15424;
							BgL_iz00_16857 = BgL_g1115z00_16854;
						BgL_recz00_16855:
							if (NULLP(BgL_lz00_16856))
								{	/* Eval/evaluate_comp.scm 502 */
									((bool_t) 0);
								}
							else
								{	/* Eval/evaluate_comp.scm 502 */
									{	/* Eval/evaluate_comp.scm 503 */
										obj_t BgL_arg3268z00_16858;

										{	/* Eval/evaluate_comp.scm 202 */
											obj_t BgL_newz00_16859;

											BgL_newz00_16859 =
												create_struct(BGl_symbol4587z00zz__evaluate_compz00,
												(int) (1L));
											{	/* Eval/evaluate_comp.scm 202 */
												int BgL_tmpz00_33387;

												BgL_tmpz00_33387 = (int) (0L);
												STRUCT_SET(BgL_newz00_16859, BgL_tmpz00_33387, BUNSPEC);
											}
											BgL_arg3268z00_16858 = BgL_newz00_16859;
										}
										VECTOR_SET(
											((obj_t) BgL_sz00_15426), BgL_iz00_16857,
											BgL_arg3268z00_16858);
									}
									{	/* Eval/evaluate_comp.scm 504 */
										obj_t BgL_arg3269z00_16860;
										long BgL_arg3270z00_16861;

										BgL_arg3269z00_16860 = CDR(((obj_t) BgL_lz00_16856));
										BgL_arg3270z00_16861 = (BgL_iz00_16857 + 1L);
										{
											long BgL_iz00_33396;
											obj_t BgL_lz00_33395;

											BgL_lz00_33395 = BgL_arg3269z00_16860;
											BgL_iz00_33396 = BgL_arg3270z00_16861;
											BgL_iz00_16857 = BgL_iz00_33396;
											BgL_lz00_16856 = BgL_lz00_33395;
											goto BgL_recz00_16855;
										}
									}
								}
						}
					}
					{	/* Eval/evaluate_comp.scm 505 */
						long BgL_g1116z00_16862;

						BgL_g1116z00_16862 =
							((long) CINT(BgL_bpz00_16853) + BgL_siza7eza7_15423);
						{
							obj_t BgL_lz00_16864;
							long BgL_iz00_16865;

							BgL_lz00_16864 = BgL_cvalsz00_15424;
							BgL_iz00_16865 = BgL_g1116z00_16862;
						BgL_recz00_16863:
							if (NULLP(BgL_lz00_16864))
								{	/* Eval/evaluate_comp.scm 506 */
									((bool_t) 0);
								}
							else
								{	/* Eval/evaluate_comp.scm 506 */
									{	/* Eval/evaluate_comp.scm 507 */
										obj_t BgL_arg3273z00_16866;
										obj_t BgL_arg3286z00_16867;

										BgL_arg3273z00_16866 =
											VECTOR_REF(((obj_t) BgL_sz00_15426), BgL_iz00_16865);
										{	/* Eval/evaluate_comp.scm 507 */
											obj_t BgL_fun3287z00_16868;

											BgL_fun3287z00_16868 = CAR(((obj_t) BgL_lz00_16864));
											BgL_arg3286z00_16867 =
												BGL_PROCEDURE_CALL1(BgL_fun3287z00_16868,
												BgL_sz00_15426);
										}
										{	/* Eval/evaluate_comp.scm 202 */
											int BgL_auxz00_33411;
											obj_t BgL_tmpz00_33409;

											BgL_auxz00_33411 = (int) (0L);
											BgL_tmpz00_33409 = ((obj_t) BgL_arg3273z00_16866);
											STRUCT_SET(BgL_tmpz00_33409, BgL_auxz00_33411,
												BgL_arg3286z00_16867);
									}}
									{	/* Eval/evaluate_comp.scm 508 */
										obj_t BgL_arg3288z00_16869;
										long BgL_arg3289z00_16870;

										BgL_arg3288z00_16869 = CDR(((obj_t) BgL_lz00_16864));
										BgL_arg3289z00_16870 = (BgL_iz00_16865 + 1L);
										{
											long BgL_iz00_33418;
											obj_t BgL_lz00_33417;

											BgL_lz00_33417 = BgL_arg3288z00_16869;
											BgL_iz00_33418 = BgL_arg3289z00_16870;
											BgL_iz00_16865 = BgL_iz00_33418;
											BgL_lz00_16864 = BgL_lz00_33417;
											goto BgL_recz00_16863;
										}
									}
								}
						}
					}
					return BGL_PROCEDURE_CALL1(BgL_bodyz00_15425, BgL_sz00_15426);
				}
			}
		}

	}



/* &<@anonymous:3290> */
	obj_t BGl_z62zc3z04anonymousza33290ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15427, obj_t BgL_sz00_15431)
	{
		{	/* Eval/evaluate_comp.scm 510 */
			{	/* Eval/evaluate_comp.scm 510 */
				long BgL_siza7eza7_15428;
				obj_t BgL_cvalsz00_15429;
				obj_t BgL_bodyz00_15430;

				BgL_siza7eza7_15428 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_15427, (int) (0L)));
				BgL_cvalsz00_15429 = PROCEDURE_REF(BgL_envz00_15427, (int) (1L));
				BgL_bodyz00_15430 = PROCEDURE_REF(BgL_envz00_15427, (int) (2L));
				{	/* Eval/evaluate_comp.scm 510 */
					obj_t BgL_bpz00_16871;

					BgL_bpz00_16871 = VECTOR_REF(((obj_t) BgL_sz00_15431), 0L);
					{	/* Eval/evaluate_comp.scm 511 */
						long BgL_g1117z00_16872;

						BgL_g1117z00_16872 =
							((long) CINT(BgL_bpz00_16871) + BgL_siza7eza7_15428);
						{
							obj_t BgL_lz00_16874;
							long BgL_iz00_16875;

							BgL_lz00_16874 = BgL_cvalsz00_15429;
							BgL_iz00_16875 = BgL_g1117z00_16872;
						BgL_recz00_16873:
							if (NULLP(BgL_lz00_16874))
								{	/* Eval/evaluate_comp.scm 512 */
									((bool_t) 0);
								}
							else
								{	/* Eval/evaluate_comp.scm 512 */
									{	/* Eval/evaluate_comp.scm 513 */
										obj_t BgL_arg3294z00_16876;

										{	/* Eval/evaluate_comp.scm 202 */
											obj_t BgL_newz00_16877;

											BgL_newz00_16877 =
												create_struct(BGl_symbol4587z00zz__evaluate_compz00,
												(int) (1L));
											{	/* Eval/evaluate_comp.scm 202 */
												int BgL_tmpz00_33438;

												BgL_tmpz00_33438 = (int) (0L);
												STRUCT_SET(BgL_newz00_16877, BgL_tmpz00_33438, BUNSPEC);
											}
											BgL_arg3294z00_16876 = BgL_newz00_16877;
										}
										VECTOR_SET(
											((obj_t) BgL_sz00_15431), BgL_iz00_16875,
											BgL_arg3294z00_16876);
									}
									{	/* Eval/evaluate_comp.scm 514 */
										obj_t BgL_arg3295z00_16878;
										long BgL_arg3297z00_16879;

										BgL_arg3295z00_16878 = CDR(((obj_t) BgL_lz00_16874));
										BgL_arg3297z00_16879 = (BgL_iz00_16875 + 1L);
										{
											long BgL_iz00_33447;
											obj_t BgL_lz00_33446;

											BgL_lz00_33446 = BgL_arg3295z00_16878;
											BgL_iz00_33447 = BgL_arg3297z00_16879;
											BgL_iz00_16875 = BgL_iz00_33447;
											BgL_lz00_16874 = BgL_lz00_33446;
											goto BgL_recz00_16873;
										}
									}
								}
						}
					}
					{	/* Eval/evaluate_comp.scm 515 */
						obj_t BgL_rvalsz00_16880;

						if (NULLP(BgL_cvalsz00_15429))
							{	/* Eval/evaluate_comp.scm 515 */
								BgL_rvalsz00_16880 = BNIL;
							}
						else
							{	/* Eval/evaluate_comp.scm 515 */
								obj_t BgL_head1340z00_16881;

								BgL_head1340z00_16881 = MAKE_YOUNG_PAIR(BNIL, BNIL);
								{
									obj_t BgL_l1338z00_16883;
									obj_t BgL_tail1341z00_16884;

									BgL_l1338z00_16883 = BgL_cvalsz00_15429;
									BgL_tail1341z00_16884 = BgL_head1340z00_16881;
								BgL_zc3z04anonymousza33305ze3z87_16882:
									if (NULLP(BgL_l1338z00_16883))
										{	/* Eval/evaluate_comp.scm 515 */
											BgL_rvalsz00_16880 = CDR(BgL_head1340z00_16881);
										}
									else
										{	/* Eval/evaluate_comp.scm 515 */
											obj_t BgL_newtail1342z00_16885;

											{	/* Eval/evaluate_comp.scm 515 */
												obj_t BgL_arg3309z00_16886;

												{	/* Eval/evaluate_comp.scm 515 */
													obj_t BgL_vz00_16887;

													BgL_vz00_16887 = CAR(((obj_t) BgL_l1338z00_16883));
													BgL_arg3309z00_16886 =
														BGL_PROCEDURE_CALL1(BgL_vz00_16887, BgL_sz00_15431);
												}
												BgL_newtail1342z00_16885 =
													MAKE_YOUNG_PAIR(BgL_arg3309z00_16886, BNIL);
											}
											SET_CDR(BgL_tail1341z00_16884, BgL_newtail1342z00_16885);
											{	/* Eval/evaluate_comp.scm 515 */
												obj_t BgL_arg3307z00_16888;

												BgL_arg3307z00_16888 =
													CDR(((obj_t) BgL_l1338z00_16883));
												{
													obj_t BgL_tail1341z00_33465;
													obj_t BgL_l1338z00_33464;

													BgL_l1338z00_33464 = BgL_arg3307z00_16888;
													BgL_tail1341z00_33465 = BgL_newtail1342z00_16885;
													BgL_tail1341z00_16884 = BgL_tail1341z00_33465;
													BgL_l1338z00_16883 = BgL_l1338z00_33464;
													goto BgL_zc3z04anonymousza33305ze3z87_16882;
												}
											}
										}
								}
							}
						{	/* Eval/evaluate_comp.scm 516 */
							long BgL_g1118z00_16889;

							BgL_g1118z00_16889 =
								((long) CINT(BgL_bpz00_16871) + BgL_siza7eza7_15428);
							{
								obj_t BgL_lz00_16891;
								long BgL_iz00_16892;

								BgL_lz00_16891 = BgL_rvalsz00_16880;
								BgL_iz00_16892 = BgL_g1118z00_16889;
							BgL_recz00_16890:
								if (NULLP(BgL_lz00_16891))
									{	/* Eval/evaluate_comp.scm 517 */
										((bool_t) 0);
									}
								else
									{	/* Eval/evaluate_comp.scm 517 */
										{	/* Eval/evaluate_comp.scm 518 */
											obj_t BgL_arg3300z00_16893;
											obj_t BgL_arg3301z00_16894;

											BgL_arg3300z00_16893 =
												VECTOR_REF(((obj_t) BgL_sz00_15431), BgL_iz00_16892);
											BgL_arg3301z00_16894 = CAR(((obj_t) BgL_lz00_16891));
											{	/* Eval/evaluate_comp.scm 202 */
												int BgL_auxz00_33476;
												obj_t BgL_tmpz00_33474;

												BgL_auxz00_33476 = (int) (0L);
												BgL_tmpz00_33474 = ((obj_t) BgL_arg3300z00_16893);
												STRUCT_SET(BgL_tmpz00_33474, BgL_auxz00_33476,
													BgL_arg3301z00_16894);
										}}
										{	/* Eval/evaluate_comp.scm 519 */
											obj_t BgL_arg3302z00_16895;
											long BgL_arg3303z00_16896;

											BgL_arg3302z00_16895 = CDR(((obj_t) BgL_lz00_16891));
											BgL_arg3303z00_16896 = (BgL_iz00_16892 + 1L);
											{
												long BgL_iz00_33483;
												obj_t BgL_lz00_33482;

												BgL_lz00_33482 = BgL_arg3302z00_16895;
												BgL_iz00_33483 = BgL_arg3303z00_16896;
												BgL_iz00_16892 = BgL_iz00_33483;
												BgL_lz00_16891 = BgL_lz00_33482;
												goto BgL_recz00_16890;
											}
										}
									}
							}
						}
						return BGL_PROCEDURE_CALL1(BgL_bodyz00_15430, BgL_sz00_15431);
					}
				}
			}
		}

	}



/* &comp-ev_let*1446 */
	obj_t BGl_z62compzd2ev_letza21446z12zz__evaluate_compz00(obj_t
		BgL_envz00_15432, obj_t BgL_ez00_15433, obj_t BgL_stkz00_15434)
	{
		{	/* Eval/evaluate_comp.scm 481 */
			{	/* Eval/evaluate_comp.scm 483 */
				long BgL_siza7eza7_16898;
				obj_t BgL_nstkz00_16899;

				BgL_siza7eza7_16898 = bgl_list_length(BgL_stkz00_15434);
				{	/* Eval/evaluate_comp.scm 483 */
					obj_t BgL_arg3257z00_16900;

					BgL_arg3257z00_16900 =
						(((BgL_ev_binderz00_bglt) COBJECT(
								((BgL_ev_binderz00_bglt)
									((BgL_ev_letza2za2_bglt) BgL_ez00_15433))))->BgL_varsz00);
					BgL_nstkz00_16899 =
						BGl_appendzd221011zd2zz__evaluate_compz00(BgL_stkz00_15434,
						BgL_arg3257z00_16900);
				}
				{	/* Eval/evaluate_comp.scm 484 */
					obj_t BgL_valsz00_16901;
					obj_t BgL_bodyz00_16902;

					{	/* Eval/evaluate_comp.scm 484 */
						obj_t BgL_l1324z00_16903;

						BgL_l1324z00_16903 =
							(((BgL_ev_binderz00_bglt) COBJECT(
									((BgL_ev_binderz00_bglt)
										((BgL_ev_letza2za2_bglt) BgL_ez00_15433))))->BgL_valsz00);
						if (NULLP(BgL_l1324z00_16903))
							{	/* Eval/evaluate_comp.scm 484 */
								BgL_valsz00_16901 = BNIL;
							}
						else
							{	/* Eval/evaluate_comp.scm 484 */
								obj_t BgL_head1326z00_16904;

								BgL_head1326z00_16904 = MAKE_YOUNG_PAIR(BNIL, BNIL);
								{
									obj_t BgL_l1324z00_16906;
									obj_t BgL_tail1327z00_16907;

									BgL_l1324z00_16906 = BgL_l1324z00_16903;
									BgL_tail1327z00_16907 = BgL_head1326z00_16904;
								BgL_zc3z04anonymousza33249ze3z87_16905:
									if (NULLP(BgL_l1324z00_16906))
										{	/* Eval/evaluate_comp.scm 484 */
											BgL_valsz00_16901 = CDR(BgL_head1326z00_16904);
										}
									else
										{	/* Eval/evaluate_comp.scm 484 */
											obj_t BgL_newtail1328z00_16908;

											{	/* Eval/evaluate_comp.scm 484 */
												obj_t BgL_arg3252z00_16909;

												{	/* Eval/evaluate_comp.scm 484 */
													obj_t BgL_vz00_16910;

													BgL_vz00_16910 = CAR(((obj_t) BgL_l1324z00_16906));
													BgL_arg3252z00_16909 =
														BGl_compz00zz__evaluate_compz00(
														((BgL_ev_exprz00_bglt) BgL_vz00_16910),
														BgL_nstkz00_16899);
												}
												BgL_newtail1328z00_16908 =
													MAKE_YOUNG_PAIR(BgL_arg3252z00_16909, BNIL);
											}
											SET_CDR(BgL_tail1327z00_16907, BgL_newtail1328z00_16908);
											{	/* Eval/evaluate_comp.scm 484 */
												obj_t BgL_arg3251z00_16911;

												BgL_arg3251z00_16911 =
													CDR(((obj_t) BgL_l1324z00_16906));
												{
													obj_t BgL_tail1327z00_33511;
													obj_t BgL_l1324z00_33510;

													BgL_l1324z00_33510 = BgL_arg3251z00_16911;
													BgL_tail1327z00_33511 = BgL_newtail1328z00_16908;
													BgL_tail1327z00_16907 = BgL_tail1327z00_33511;
													BgL_l1324z00_16906 = BgL_l1324z00_33510;
													goto BgL_zc3z04anonymousza33249ze3z87_16905;
												}
											}
										}
								}
							}
					}
					{	/* Eval/evaluate_comp.scm 485 */
						BgL_ev_exprz00_bglt BgL_arg3253z00_16912;

						BgL_arg3253z00_16912 =
							(((BgL_ev_binderz00_bglt) COBJECT(
									((BgL_ev_binderz00_bglt)
										((BgL_ev_letza2za2_bglt) BgL_ez00_15433))))->BgL_bodyz00);
						BgL_bodyz00_16902 =
							BGl_compz00zz__evaluate_compz00(BgL_arg3253z00_16912,
							BgL_nstkz00_16899);
					}
					{	/* Eval/evaluate_comp.scm 486 */
						obj_t BgL_zc3z04anonymousza33237ze3z87_16913;

						BgL_zc3z04anonymousza33237ze3z87_16913 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza33237ze3ze5zz__evaluate_compz00,
							(int) (1L), (int) (4L));
						PROCEDURE_SET(BgL_zc3z04anonymousza33237ze3z87_16913, (int) (0L),
							BINT(BgL_siza7eza7_16898));
						PROCEDURE_SET(BgL_zc3z04anonymousza33237ze3z87_16913, (int) (1L),
							((obj_t) ((BgL_ev_letza2za2_bglt) BgL_ez00_15433)));
						PROCEDURE_SET(BgL_zc3z04anonymousza33237ze3z87_16913, (int) (2L),
							BgL_valsz00_16901);
						PROCEDURE_SET(BgL_zc3z04anonymousza33237ze3z87_16913, (int) (3L),
							BgL_bodyz00_16902);
						return BgL_zc3z04anonymousza33237ze3z87_16913;
					}
				}
			}
		}

	}



/* &<@anonymous:3237> */
	obj_t BGl_z62zc3z04anonymousza33237ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15435, obj_t BgL_sz00_15440)
	{
		{	/* Eval/evaluate_comp.scm 486 */
			{	/* Eval/evaluate_comp.scm 486 */
				long BgL_siza7eza7_15436;
				BgL_ev_letza2za2_bglt BgL_i1112z00_15437;
				obj_t BgL_valsz00_15438;
				obj_t BgL_bodyz00_15439;

				BgL_siza7eza7_15436 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_15435, (int) (0L)));
				BgL_i1112z00_15437 =
					((BgL_ev_letza2za2_bglt) PROCEDURE_REF(BgL_envz00_15435, (int) (1L)));
				BgL_valsz00_15438 = PROCEDURE_REF(BgL_envz00_15435, (int) (2L));
				BgL_bodyz00_15439 = PROCEDURE_REF(BgL_envz00_15435, (int) (3L));
				{	/* Eval/evaluate_comp.scm 486 */
					obj_t BgL_bpz00_16914;

					BgL_bpz00_16914 = VECTOR_REF(((obj_t) BgL_sz00_15440), 0L);
					{	/* Eval/evaluate_comp.scm 487 */
						long BgL_g1113z00_16915;

						BgL_g1113z00_16915 =
							((long) CINT(BgL_bpz00_16914) + BgL_siza7eza7_15436);
						{
							obj_t BgL_lz00_16917;
							long BgL_iz00_16918;
							obj_t BgL_bza2za2_16919;

							BgL_lz00_16917 = BgL_valsz00_15438;
							BgL_iz00_16918 = BgL_g1113z00_16915;
							BgL_bza2za2_16919 =
								(((BgL_ev_letza2za2_bglt) COBJECT(BgL_i1112z00_15437))->
								BgL_boxesz00);
						BgL_recz00_16916:
							if (NULLP(BgL_lz00_16917))
								{	/* Eval/evaluate_comp.scm 488 */
									((bool_t) 0);
								}
							else
								{	/* Eval/evaluate_comp.scm 488 */
									{	/* Eval/evaluate_comp.scm 489 */
										obj_t BgL_valz00_16920;

										{	/* Eval/evaluate_comp.scm 489 */
											obj_t BgL_fun3243z00_16921;

											BgL_fun3243z00_16921 = CAR(((obj_t) BgL_lz00_16917));
											BgL_valz00_16920 =
												BGL_PROCEDURE_CALL1(BgL_fun3243z00_16921,
												BgL_sz00_15440);
										}
										{	/* Eval/evaluate_comp.scm 490 */
											obj_t BgL_arg3241z00_16922;

											if (CBOOL(CAR(((obj_t) BgL_bza2za2_16919))))
												{	/* Eval/evaluate_comp.scm 202 */
													obj_t BgL_newz00_16923;

													BgL_newz00_16923 =
														create_struct(BGl_symbol4587z00zz__evaluate_compz00,
														(int) (1L));
													{	/* Eval/evaluate_comp.scm 202 */
														int BgL_tmpz00_33558;

														BgL_tmpz00_33558 = (int) (0L);
														STRUCT_SET(BgL_newz00_16923, BgL_tmpz00_33558,
															BgL_valz00_16920);
													}
													BgL_arg3241z00_16922 = BgL_newz00_16923;
												}
											else
												{	/* Eval/evaluate_comp.scm 490 */
													BgL_arg3241z00_16922 = BgL_valz00_16920;
												}
											VECTOR_SET(
												((obj_t) BgL_sz00_15440), BgL_iz00_16918,
												BgL_arg3241z00_16922);
										}
									}
									{	/* Eval/evaluate_comp.scm 491 */
										obj_t BgL_arg3245z00_16924;
										long BgL_arg3246z00_16925;
										obj_t BgL_arg3247z00_16926;

										BgL_arg3245z00_16924 = CDR(((obj_t) BgL_lz00_16917));
										BgL_arg3246z00_16925 = (BgL_iz00_16918 + 1L);
										BgL_arg3247z00_16926 = CDR(((obj_t) BgL_bza2za2_16919));
										{
											obj_t BgL_bza2za2_33570;
											long BgL_iz00_33569;
											obj_t BgL_lz00_33568;

											BgL_lz00_33568 = BgL_arg3245z00_16924;
											BgL_iz00_33569 = BgL_arg3246z00_16925;
											BgL_bza2za2_33570 = BgL_arg3247z00_16926;
											BgL_bza2za2_16919 = BgL_bza2za2_33570;
											BgL_iz00_16918 = BgL_iz00_33569;
											BgL_lz00_16917 = BgL_lz00_33568;
											goto BgL_recz00_16916;
										}
									}
								}
						}
					}
					return BGL_PROCEDURE_CALL1(BgL_bodyz00_15439, BgL_sz00_15440);
				}
			}
		}

	}



/* &comp-ev_let1444 */
	obj_t BGl_z62compzd2ev_let1444zb0zz__evaluate_compz00(obj_t BgL_envz00_15441,
		obj_t BgL_ez00_15442, obj_t BgL_stkz00_15443)
	{
		{	/* Eval/evaluate_comp.scm 462 */
			{	/* Eval/evaluate_comp.scm 464 */
				long BgL_siza7eza7_16928;
				obj_t BgL_nstkz00_16929;

				BgL_siza7eza7_16928 = bgl_list_length(BgL_stkz00_15443);
				{	/* Eval/evaluate_comp.scm 464 */
					obj_t BgL_arg3236z00_16930;

					BgL_arg3236z00_16930 =
						(((BgL_ev_binderz00_bglt) COBJECT(
								((BgL_ev_binderz00_bglt)
									((BgL_ev_letz00_bglt) BgL_ez00_15442))))->BgL_varsz00);
					BgL_nstkz00_16929 =
						BGl_appendzd221011zd2zz__evaluate_compz00(BgL_stkz00_15443,
						BgL_arg3236z00_16930);
				}
				{	/* Eval/evaluate_comp.scm 465 */
					obj_t BgL_valsz00_16931;
					obj_t BgL_iboxesz00_16932;
					obj_t BgL_bodyz00_16933;

					{	/* Eval/evaluate_comp.scm 466 */
						obj_t BgL_arg3226z00_16934;

						BgL_arg3226z00_16934 =
							(((BgL_ev_binderz00_bglt) COBJECT(
									((BgL_ev_binderz00_bglt)
										((BgL_ev_letz00_bglt) BgL_ez00_15442))))->BgL_valsz00);
						BgL_valsz00_16931 =
							BGl_compzd2withzd2pushz00zz__evaluate_compz00
							(BgL_arg3226z00_16934, BgL_stkz00_15443);
					}
					{	/* Eval/evaluate_comp.scm 467 */
						obj_t BgL_l1319z00_16935;

						BgL_l1319z00_16935 =
							(((BgL_ev_letz00_bglt) COBJECT(
									((BgL_ev_letz00_bglt) BgL_ez00_15442)))->BgL_boxesz00);
						if (NULLP(BgL_l1319z00_16935))
							{	/* Eval/evaluate_comp.scm 467 */
								BgL_iboxesz00_16932 = BNIL;
							}
						else
							{	/* Eval/evaluate_comp.scm 467 */
								obj_t BgL_head1321z00_16936;

								BgL_head1321z00_16936 = MAKE_YOUNG_PAIR(BNIL, BNIL);
								{
									obj_t BgL_l1319z00_16938;
									obj_t BgL_tail1322z00_16939;

									BgL_l1319z00_16938 = BgL_l1319z00_16935;
									BgL_tail1322z00_16939 = BgL_head1321z00_16936;
								BgL_zc3z04anonymousza33228ze3z87_16937:
									if (NULLP(BgL_l1319z00_16938))
										{	/* Eval/evaluate_comp.scm 467 */
											BgL_iboxesz00_16932 = CDR(BgL_head1321z00_16936);
										}
									else
										{	/* Eval/evaluate_comp.scm 467 */
											obj_t BgL_newtail1323z00_16940;

											{	/* Eval/evaluate_comp.scm 467 */
												obj_t BgL_arg3234z00_16941;

												{	/* Eval/evaluate_comp.scm 467 */
													obj_t BgL_vz00_16942;

													BgL_vz00_16942 = CAR(((obj_t) BgL_l1319z00_16938));
													BgL_arg3234z00_16941 =
														BGl__indexz00zz__evaluate_compz00(BgL_vz00_16942,
														BgL_nstkz00_16929);
												}
												BgL_newtail1323z00_16940 =
													MAKE_YOUNG_PAIR(BgL_arg3234z00_16941, BNIL);
											}
											SET_CDR(BgL_tail1322z00_16939, BgL_newtail1323z00_16940);
											{	/* Eval/evaluate_comp.scm 467 */
												obj_t BgL_arg3233z00_16943;

												BgL_arg3233z00_16943 =
													CDR(((obj_t) BgL_l1319z00_16938));
												{
													obj_t BgL_tail1322z00_33601;
													obj_t BgL_l1319z00_33600;

													BgL_l1319z00_33600 = BgL_arg3233z00_16943;
													BgL_tail1322z00_33601 = BgL_newtail1323z00_16940;
													BgL_tail1322z00_16939 = BgL_tail1322z00_33601;
													BgL_l1319z00_16938 = BgL_l1319z00_33600;
													goto BgL_zc3z04anonymousza33228ze3z87_16937;
												}
											}
										}
								}
							}
					}
					{	/* Eval/evaluate_comp.scm 468 */
						BgL_ev_exprz00_bglt BgL_arg3235z00_16944;

						BgL_arg3235z00_16944 =
							(((BgL_ev_binderz00_bglt) COBJECT(
									((BgL_ev_binderz00_bglt)
										((BgL_ev_letz00_bglt) BgL_ez00_15442))))->BgL_bodyz00);
						BgL_bodyz00_16933 =
							BGl_compz00zz__evaluate_compz00(BgL_arg3235z00_16944,
							BgL_nstkz00_16929);
					}
					{	/* Eval/evaluate_comp.scm 469 */
						obj_t BgL_zc3z04anonymousza33213ze3z87_16945;

						BgL_zc3z04anonymousza33213ze3z87_16945 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza33213ze3ze5zz__evaluate_compz00,
							(int) (1L), (int) (4L));
						PROCEDURE_SET(BgL_zc3z04anonymousza33213ze3z87_16945, (int) (0L),
							BINT(BgL_siza7eza7_16928));
						PROCEDURE_SET(BgL_zc3z04anonymousza33213ze3z87_16945, (int) (1L),
							BgL_valsz00_16931);
						PROCEDURE_SET(BgL_zc3z04anonymousza33213ze3z87_16945, (int) (2L),
							BgL_iboxesz00_16932);
						PROCEDURE_SET(BgL_zc3z04anonymousza33213ze3z87_16945, (int) (3L),
							BgL_bodyz00_16933);
						return BgL_zc3z04anonymousza33213ze3z87_16945;
					}
				}
			}
		}

	}



/* &<@anonymous:3213> */
	obj_t BGl_z62zc3z04anonymousza33213ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15444, obj_t BgL_sz00_15449)
	{
		{	/* Eval/evaluate_comp.scm 469 */
			{	/* Eval/evaluate_comp.scm 469 */
				long BgL_siza7eza7_15445;
				obj_t BgL_valsz00_15446;
				obj_t BgL_iboxesz00_15447;
				obj_t BgL_bodyz00_15448;

				BgL_siza7eza7_15445 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_15444, (int) (0L)));
				BgL_valsz00_15446 =
					((obj_t) PROCEDURE_REF(BgL_envz00_15444, (int) (1L)));
				BgL_iboxesz00_15447 = PROCEDURE_REF(BgL_envz00_15444, (int) (2L));
				BgL_bodyz00_15448 = PROCEDURE_REF(BgL_envz00_15444, (int) (3L));
				{	/* Eval/evaluate_comp.scm 469 */
					obj_t BgL_bpz00_16946;

					BgL_bpz00_16946 = VECTOR_REF(((obj_t) BgL_sz00_15449), 0L);
					{	/* Eval/evaluate_comp.scm 470 */
						long BgL_g1111z00_16947;

						BgL_g1111z00_16947 =
							((long) CINT(BgL_bpz00_16946) + BgL_siza7eza7_15445);
						{
							obj_t BgL_lz00_16949;
							long BgL_iz00_16950;

							BgL_lz00_16949 = BgL_valsz00_15446;
							BgL_iz00_16950 = BgL_g1111z00_16947;
						BgL_recz00_16948:
							if (NULLP(BgL_lz00_16949))
								{	/* Eval/evaluate_comp.scm 471 */
									((bool_t) 0);
								}
							else
								{	/* Eval/evaluate_comp.scm 471 */
									{	/* Eval/evaluate_comp.scm 472 */
										obj_t BgL_arg3216z00_16951;

										{	/* Eval/evaluate_comp.scm 472 */
											obj_t BgL_fun3217z00_16952;

											BgL_fun3217z00_16952 = CAR(((obj_t) BgL_lz00_16949));
											BgL_arg3216z00_16951 =
												BGL_PROCEDURE_CALL1(BgL_fun3217z00_16952,
												BgL_sz00_15449);
										}
										VECTOR_SET(
											((obj_t) BgL_sz00_15449), BgL_iz00_16950,
											BgL_arg3216z00_16951);
									}
									{	/* Eval/evaluate_comp.scm 473 */
										obj_t BgL_arg3218z00_16953;
										long BgL_arg3219z00_16954;

										BgL_arg3218z00_16953 = CDR(((obj_t) BgL_lz00_16949));
										BgL_arg3219z00_16954 = (BgL_iz00_16950 + 1L);
										{
											long BgL_iz00_33646;
											obj_t BgL_lz00_33645;

											BgL_lz00_33645 = BgL_arg3218z00_16953;
											BgL_iz00_33646 = BgL_arg3219z00_16954;
											BgL_iz00_16950 = BgL_iz00_33646;
											BgL_lz00_16949 = BgL_lz00_33645;
											goto BgL_recz00_16948;
										}
									}
								}
						}
					}
					{
						obj_t BgL_lz00_16956;

						BgL_lz00_16956 = BgL_iboxesz00_15447;
					BgL_recz00_16955:
						if (NULLP(BgL_lz00_16956))
							{	/* Eval/evaluate_comp.scm 475 */
								((bool_t) 0);
							}
						else
							{	/* Eval/evaluate_comp.scm 475 */
								{	/* Eval/evaluate_comp.scm 476 */
									long BgL_iz00_16957;

									BgL_iz00_16957 =
										(
										(long) CINT(BgL_bpz00_16946) +
										(long) CINT(CAR(((obj_t) BgL_lz00_16956))));
									{	/* Eval/evaluate_comp.scm 477 */
										obj_t BgL_arg3222z00_16958;

										{	/* Eval/evaluate_comp.scm 477 */
											obj_t BgL_arg3223z00_16959;

											BgL_arg3223z00_16959 =
												VECTOR_REF(((obj_t) BgL_sz00_15449), BgL_iz00_16957);
											{	/* Eval/evaluate_comp.scm 202 */
												obj_t BgL_newz00_16960;

												BgL_newz00_16960 =
													create_struct(BGl_symbol4587z00zz__evaluate_compz00,
													(int) (1L));
												{	/* Eval/evaluate_comp.scm 202 */
													int BgL_tmpz00_33658;

													BgL_tmpz00_33658 = (int) (0L);
													STRUCT_SET(BgL_newz00_16960, BgL_tmpz00_33658,
														BgL_arg3223z00_16959);
												}
												BgL_arg3222z00_16958 = BgL_newz00_16960;
										}}
										VECTOR_SET(
											((obj_t) BgL_sz00_15449), BgL_iz00_16957,
											BgL_arg3222z00_16958);
								}}
								{	/* Eval/evaluate_comp.scm 478 */
									obj_t BgL_arg3225z00_16961;

									BgL_arg3225z00_16961 = CDR(((obj_t) BgL_lz00_16956));
									{
										obj_t BgL_lz00_33665;

										BgL_lz00_33665 = BgL_arg3225z00_16961;
										BgL_lz00_16956 = BgL_lz00_33665;
										goto BgL_recz00_16955;
									}
								}
							}
					}
					return BGL_PROCEDURE_CALL1(BgL_bodyz00_15448, BgL_sz00_15449);
				}
			}
		}

	}



/* &comp-ev_prog21442 */
	obj_t BGl_z62compzd2ev_prog21442zb0zz__evaluate_compz00(obj_t
		BgL_envz00_15450, obj_t BgL_ez00_15451, obj_t BgL_stkz00_15452)
	{
		{	/* Eval/evaluate_comp.scm 456 */
			{	/* Eval/evaluate_comp.scm 458 */
				obj_t BgL_e1z00_16963;
				obj_t BgL_e2z00_16964;

				BgL_e1z00_16963 =
					BGl_compz00zz__evaluate_compz00(
					(((BgL_ev_prog2z00_bglt) COBJECT(
								((BgL_ev_prog2z00_bglt) BgL_ez00_15451)))->BgL_e1z00),
					BgL_stkz00_15452);
				BgL_e2z00_16964 =
					BGl_compz00zz__evaluate_compz00((((BgL_ev_prog2z00_bglt)
							COBJECT(((BgL_ev_prog2z00_bglt) BgL_ez00_15451)))->BgL_e2z00),
					BgL_stkz00_15452);
				{	/* Eval/evaluate_comp.scm 459 */
					obj_t BgL_zc3z04anonymousza33210ze3z87_16965;

					BgL_zc3z04anonymousza33210ze3z87_16965 =
						MAKE_FX_PROCEDURE
						(BGl_z62zc3z04anonymousza33210ze3ze5zz__evaluate_compz00,
						(int) (1L), (int) (2L));
					PROCEDURE_SET(BgL_zc3z04anonymousza33210ze3z87_16965, (int) (0L),
						BgL_e1z00_16963);
					PROCEDURE_SET(BgL_zc3z04anonymousza33210ze3z87_16965, (int) (1L),
						BgL_e2z00_16964);
					return BgL_zc3z04anonymousza33210ze3z87_16965;
				}
			}
		}

	}



/* &<@anonymous:3210> */
	obj_t BGl_z62zc3z04anonymousza33210ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15453, obj_t BgL_sz00_15456)
	{
		{	/* Eval/evaluate_comp.scm 459 */
			{	/* Eval/evaluate_comp.scm 459 */
				obj_t BgL_e1z00_15454;
				obj_t BgL_e2z00_15455;

				BgL_e1z00_15454 = PROCEDURE_REF(BgL_envz00_15453, (int) (0L));
				BgL_e2z00_15455 = PROCEDURE_REF(BgL_envz00_15453, (int) (1L));
				{	/* Eval/evaluate_comp.scm 459 */
					obj_t BgL_bpz00_16966;

					BgL_bpz00_16966 = VECTOR_REF(((obj_t) BgL_sz00_15456), 0L);
					BGL_PROCEDURE_CALL1(BgL_e1z00_15454, BgL_sz00_15456);
					return BGL_PROCEDURE_CALL1(BgL_e2z00_15455, BgL_sz00_15456);
				}
			}
		}

	}



/* &comp-ev_and1440 */
	obj_t BGl_z62compzd2ev_and1440zb0zz__evaluate_compz00(obj_t BgL_envz00_15457,
		obj_t BgL_ez00_15458, obj_t BgL_stkz00_15459)
	{
		{	/* Eval/evaluate_comp.scm 446 */
			{	/* Eval/evaluate_comp.scm 448 */
				obj_t BgL_argsz00_16968;

				{	/* Eval/evaluate_comp.scm 448 */
					obj_t BgL_l1314z00_16969;

					BgL_l1314z00_16969 =
						(((BgL_ev_listz00_bglt) COBJECT(
								((BgL_ev_listz00_bglt)
									((BgL_ev_andz00_bglt) BgL_ez00_15458))))->BgL_argsz00);
					if (NULLP(BgL_l1314z00_16969))
						{	/* Eval/evaluate_comp.scm 448 */
							BgL_argsz00_16968 = BNIL;
						}
					else
						{	/* Eval/evaluate_comp.scm 448 */
							obj_t BgL_head1316z00_16970;

							BgL_head1316z00_16970 = MAKE_YOUNG_PAIR(BNIL, BNIL);
							{
								obj_t BgL_l1314z00_16972;
								obj_t BgL_tail1317z00_16973;

								BgL_l1314z00_16972 = BgL_l1314z00_16969;
								BgL_tail1317z00_16973 = BgL_head1316z00_16970;
							BgL_zc3z04anonymousza33206ze3z87_16971:
								if (NULLP(BgL_l1314z00_16972))
									{	/* Eval/evaluate_comp.scm 448 */
										BgL_argsz00_16968 = CDR(BgL_head1316z00_16970);
									}
								else
									{	/* Eval/evaluate_comp.scm 448 */
										obj_t BgL_newtail1318z00_16974;

										{	/* Eval/evaluate_comp.scm 448 */
											obj_t BgL_arg3209z00_16975;

											{	/* Eval/evaluate_comp.scm 448 */
												obj_t BgL_ez00_16976;

												BgL_ez00_16976 = CAR(((obj_t) BgL_l1314z00_16972));
												BgL_arg3209z00_16975 =
													BGl_compz00zz__evaluate_compz00(
													((BgL_ev_exprz00_bglt) BgL_ez00_16976),
													BgL_stkz00_15459);
											}
											BgL_newtail1318z00_16974 =
												MAKE_YOUNG_PAIR(BgL_arg3209z00_16975, BNIL);
										}
										SET_CDR(BgL_tail1317z00_16973, BgL_newtail1318z00_16974);
										{	/* Eval/evaluate_comp.scm 448 */
											obj_t BgL_arg3208z00_16977;

											BgL_arg3208z00_16977 = CDR(((obj_t) BgL_l1314z00_16972));
											{
												obj_t BgL_tail1317z00_33715;
												obj_t BgL_l1314z00_33714;

												BgL_l1314z00_33714 = BgL_arg3208z00_16977;
												BgL_tail1317z00_33715 = BgL_newtail1318z00_16974;
												BgL_tail1317z00_16973 = BgL_tail1317z00_33715;
												BgL_l1314z00_16972 = BgL_l1314z00_33714;
												goto BgL_zc3z04anonymousza33206ze3z87_16971;
											}
										}
									}
							}
						}
				}
				{	/* Eval/evaluate_comp.scm 449 */
					obj_t BgL_zc3z04anonymousza33198ze3z87_16978;

					BgL_zc3z04anonymousza33198ze3z87_16978 =
						MAKE_FX_PROCEDURE
						(BGl_z62zc3z04anonymousza33198ze3ze5zz__evaluate_compz00,
						(int) (1L), (int) (1L));
					PROCEDURE_SET(BgL_zc3z04anonymousza33198ze3z87_16978, (int) (0L),
						BgL_argsz00_16968);
					return BgL_zc3z04anonymousza33198ze3z87_16978;
				}
			}
		}

	}



/* &<@anonymous:3198> */
	obj_t BGl_z62zc3z04anonymousza33198ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15460, obj_t BgL_sz00_15462)
	{
		{	/* Eval/evaluate_comp.scm 449 */
			{	/* Eval/evaluate_comp.scm 449 */
				obj_t BgL_argsz00_15461;

				BgL_argsz00_15461 = PROCEDURE_REF(BgL_envz00_15460, (int) (0L));
				{	/* Eval/evaluate_comp.scm 449 */
					obj_t BgL_bpz00_16979;

					BgL_bpz00_16979 = VECTOR_REF(((obj_t) BgL_sz00_15462), 0L);
					{
						obj_t BgL_lz00_16981;
						obj_t BgL_rz00_16982;

						BgL_lz00_16981 = BgL_argsz00_15461;
						BgL_rz00_16982 = BTRUE;
					BgL_recz00_16980:
						if (NULLP(BgL_lz00_16981))
							{	/* Eval/evaluate_comp.scm 451 */
								return BgL_rz00_16982;
							}
						else
							{	/* Eval/evaluate_comp.scm 453 */
								obj_t BgL_vz00_16983;

								{	/* Eval/evaluate_comp.scm 453 */
									obj_t BgL_fun3204z00_16984;

									BgL_fun3204z00_16984 = CAR(((obj_t) BgL_lz00_16981));
									BgL_vz00_16983 =
										BGL_PROCEDURE_CALL1(BgL_fun3204z00_16984, BgL_sz00_15462);
								}
								if (CBOOL(BgL_vz00_16983))
									{	/* Eval/evaluate_comp.scm 454 */
										obj_t BgL_arg3203z00_16985;

										BgL_arg3203z00_16985 = CDR(((obj_t) BgL_lz00_16981));
										{
											obj_t BgL_rz00_33738;
											obj_t BgL_lz00_33737;

											BgL_lz00_33737 = BgL_arg3203z00_16985;
											BgL_rz00_33738 = BgL_vz00_16983;
											BgL_rz00_16982 = BgL_rz00_33738;
											BgL_lz00_16981 = BgL_lz00_33737;
											goto BgL_recz00_16980;
										}
									}
								else
									{	/* Eval/evaluate_comp.scm 454 */
										return BFALSE;
									}
							}
					}
				}
			}
		}

	}



/* &comp-ev_or1438 */
	obj_t BGl_z62compzd2ev_or1438zb0zz__evaluate_compz00(obj_t BgL_envz00_15463,
		obj_t BgL_ez00_15464, obj_t BgL_stkz00_15465)
	{
		{	/* Eval/evaluate_comp.scm 437 */
			{	/* Eval/evaluate_comp.scm 439 */
				obj_t BgL_argsz00_16987;

				{	/* Eval/evaluate_comp.scm 439 */
					obj_t BgL_l1309z00_16988;

					BgL_l1309z00_16988 =
						(((BgL_ev_listz00_bglt) COBJECT(
								((BgL_ev_listz00_bglt)
									((BgL_ev_orz00_bglt) BgL_ez00_15464))))->BgL_argsz00);
					if (NULLP(BgL_l1309z00_16988))
						{	/* Eval/evaluate_comp.scm 439 */
							BgL_argsz00_16987 = BNIL;
						}
					else
						{	/* Eval/evaluate_comp.scm 439 */
							obj_t BgL_head1311z00_16989;

							BgL_head1311z00_16989 = MAKE_YOUNG_PAIR(BNIL, BNIL);
							{
								obj_t BgL_l1309z00_16991;
								obj_t BgL_tail1312z00_16992;

								BgL_l1309z00_16991 = BgL_l1309z00_16988;
								BgL_tail1312z00_16992 = BgL_head1311z00_16989;
							BgL_zc3z04anonymousza33186ze3z87_16990:
								if (NULLP(BgL_l1309z00_16991))
									{	/* Eval/evaluate_comp.scm 439 */
										BgL_argsz00_16987 = CDR(BgL_head1311z00_16989);
									}
								else
									{	/* Eval/evaluate_comp.scm 439 */
										obj_t BgL_newtail1313z00_16993;

										{	/* Eval/evaluate_comp.scm 439 */
											obj_t BgL_arg3197z00_16994;

											{	/* Eval/evaluate_comp.scm 439 */
												obj_t BgL_ez00_16995;

												BgL_ez00_16995 = CAR(((obj_t) BgL_l1309z00_16991));
												BgL_arg3197z00_16994 =
													BGl_compz00zz__evaluate_compz00(
													((BgL_ev_exprz00_bglt) BgL_ez00_16995),
													BgL_stkz00_15465);
											}
											BgL_newtail1313z00_16993 =
												MAKE_YOUNG_PAIR(BgL_arg3197z00_16994, BNIL);
										}
										SET_CDR(BgL_tail1312z00_16992, BgL_newtail1313z00_16993);
										{	/* Eval/evaluate_comp.scm 439 */
											obj_t BgL_arg3194z00_16996;

											BgL_arg3194z00_16996 = CDR(((obj_t) BgL_l1309z00_16991));
											{
												obj_t BgL_tail1312z00_33757;
												obj_t BgL_l1309z00_33756;

												BgL_l1309z00_33756 = BgL_arg3194z00_16996;
												BgL_tail1312z00_33757 = BgL_newtail1313z00_16993;
												BgL_tail1312z00_16992 = BgL_tail1312z00_33757;
												BgL_l1309z00_16991 = BgL_l1309z00_33756;
												goto BgL_zc3z04anonymousza33186ze3z87_16990;
											}
										}
									}
							}
						}
				}
				{	/* Eval/evaluate_comp.scm 440 */
					obj_t BgL_zc3z04anonymousza33180ze3z87_16997;

					BgL_zc3z04anonymousza33180ze3z87_16997 =
						MAKE_FX_PROCEDURE
						(BGl_z62zc3z04anonymousza33180ze3ze5zz__evaluate_compz00,
						(int) (1L), (int) (1L));
					PROCEDURE_SET(BgL_zc3z04anonymousza33180ze3z87_16997, (int) (0L),
						BgL_argsz00_16987);
					return BgL_zc3z04anonymousza33180ze3z87_16997;
				}
			}
		}

	}



/* &<@anonymous:3180> */
	obj_t BGl_z62zc3z04anonymousza33180ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15466, obj_t BgL_sz00_15468)
	{
		{	/* Eval/evaluate_comp.scm 440 */
			{	/* Eval/evaluate_comp.scm 440 */
				obj_t BgL_argsz00_15467;

				BgL_argsz00_15467 = PROCEDURE_REF(BgL_envz00_15466, (int) (0L));
				{	/* Eval/evaluate_comp.scm 440 */
					obj_t BgL_bpz00_16998;

					BgL_bpz00_16998 = VECTOR_REF(((obj_t) BgL_sz00_15468), 0L);
					{
						obj_t BgL_lz00_17000;

						BgL_lz00_17000 = BgL_argsz00_15467;
					BgL_recz00_16999:
						if (NULLP(BgL_lz00_17000))
							{	/* Eval/evaluate_comp.scm 442 */
								return BFALSE;
							}
						else
							{	/* Eval/evaluate_comp.scm 444 */
								obj_t BgL__ortest_1106z00_17001;

								{	/* Eval/evaluate_comp.scm 444 */
									obj_t BgL_fun3184z00_17002;

									BgL_fun3184z00_17002 = CAR(((obj_t) BgL_lz00_17000));
									BgL__ortest_1106z00_17001 =
										BGL_PROCEDURE_CALL1(BgL_fun3184z00_17002, BgL_sz00_15468);
								}
								if (CBOOL(BgL__ortest_1106z00_17001))
									{	/* Eval/evaluate_comp.scm 444 */
										return BgL__ortest_1106z00_17001;
									}
								else
									{	/* Eval/evaluate_comp.scm 444 */
										obj_t BgL_arg3183z00_17003;

										BgL_arg3183z00_17003 = CDR(((obj_t) BgL_lz00_17000));
										{
											obj_t BgL_lz00_33779;

											BgL_lz00_33779 = BgL_arg3183z00_17003;
											BgL_lz00_17000 = BgL_lz00_33779;
											goto BgL_recz00_16999;
										}
									}
							}
					}
				}
			}
		}

	}



/* &comp-ev_if1436 */
	obj_t BGl_z62compzd2ev_if1436zb0zz__evaluate_compz00(obj_t BgL_envz00_15469,
		obj_t BgL_ez00_15470, obj_t BgL_stkz00_15471)
	{
		{	/* Eval/evaluate_comp.scm 431 */
			{	/* Eval/evaluate_comp.scm 433 */
				obj_t BgL_pz00_17005;
				obj_t BgL_tz00_17006;
				obj_t BgL_ez00_17007;

				BgL_pz00_17005 =
					BGl_compz00zz__evaluate_compz00(
					(((BgL_ev_ifz00_bglt) COBJECT(
								((BgL_ev_ifz00_bglt) BgL_ez00_15470)))->BgL_pz00),
					BgL_stkz00_15471);
				BgL_tz00_17006 =
					BGl_compz00zz__evaluate_compz00((((BgL_ev_ifz00_bglt)
							COBJECT(((BgL_ev_ifz00_bglt) BgL_ez00_15470)))->BgL_tz00),
					BgL_stkz00_15471);
				BgL_ez00_17007 =
					BGl_compz00zz__evaluate_compz00((((BgL_ev_ifz00_bglt)
							COBJECT(((BgL_ev_ifz00_bglt) BgL_ez00_15470)))->BgL_ez00),
					BgL_stkz00_15471);
				{	/* Eval/evaluate_comp.scm 434 */
					obj_t BgL_zc3z04anonymousza33173ze3z87_17008;

					BgL_zc3z04anonymousza33173ze3z87_17008 =
						MAKE_FX_PROCEDURE
						(BGl_z62zc3z04anonymousza33173ze3ze5zz__evaluate_compz00,
						(int) (1L), (int) (3L));
					PROCEDURE_SET(BgL_zc3z04anonymousza33173ze3z87_17008, (int) (0L),
						BgL_ez00_17007);
					PROCEDURE_SET(BgL_zc3z04anonymousza33173ze3z87_17008, (int) (1L),
						BgL_tz00_17006);
					PROCEDURE_SET(BgL_zc3z04anonymousza33173ze3z87_17008, (int) (2L),
						BgL_pz00_17005);
					return BgL_zc3z04anonymousza33173ze3z87_17008;
				}
			}
		}

	}



/* &<@anonymous:3173> */
	obj_t BGl_z62zc3z04anonymousza33173ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15472, obj_t BgL_sz00_15476)
	{
		{	/* Eval/evaluate_comp.scm 434 */
			{	/* Eval/evaluate_comp.scm 434 */
				obj_t BgL_ez00_15473;
				obj_t BgL_tz00_15474;
				obj_t BgL_pz00_15475;

				BgL_ez00_15473 = PROCEDURE_REF(BgL_envz00_15472, (int) (0L));
				BgL_tz00_15474 = PROCEDURE_REF(BgL_envz00_15472, (int) (1L));
				BgL_pz00_15475 = PROCEDURE_REF(BgL_envz00_15472, (int) (2L));
				{	/* Eval/evaluate_comp.scm 434 */
					obj_t BgL_bpz00_17009;

					BgL_bpz00_17009 = VECTOR_REF(((obj_t) BgL_sz00_15476), 0L);
					if (CBOOL(BGL_PROCEDURE_CALL1(BgL_pz00_15475, BgL_sz00_15476)))
						{	/* Eval/evaluate_comp.scm 435 */
							return BGL_PROCEDURE_CALL1(BgL_tz00_15474, BgL_sz00_15476);
						}
					else
						{	/* Eval/evaluate_comp.scm 435 */
							return BGL_PROCEDURE_CALL1(BgL_ez00_15473, BgL_sz00_15476);
						}
				}
			}
		}

	}



/* &comp-ev_litt1434 */
	obj_t BGl_z62compzd2ev_litt1434zb0zz__evaluate_compz00(obj_t BgL_envz00_15477,
		obj_t BgL_ez00_15478, obj_t BgL_stkz00_15479)
	{
		{	/* Eval/evaluate_comp.scm 426 */
			{	/* Eval/evaluate_comp.scm 428 */
				obj_t BgL_zc3z04anonymousza33172ze3z87_17011;

				BgL_zc3z04anonymousza33172ze3z87_17011 =
					MAKE_FX_PROCEDURE
					(BGl_z62zc3z04anonymousza33172ze3ze5zz__evaluate_compz00, (int) (1L),
					(int) (1L));
				PROCEDURE_SET(BgL_zc3z04anonymousza33172ze3z87_17011, (int) (0L),
					((obj_t) ((BgL_ev_littz00_bglt) BgL_ez00_15478)));
				return BgL_zc3z04anonymousza33172ze3z87_17011;
			}
		}

	}



/* &<@anonymous:3172> */
	obj_t BGl_z62zc3z04anonymousza33172ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15480, obj_t BgL_sz00_15482)
	{
		{	/* Eval/evaluate_comp.scm 428 */
			{	/* Eval/evaluate_comp.scm 428 */
				BgL_ev_littz00_bglt BgL_i1103z00_15481;

				BgL_i1103z00_15481 =
					((BgL_ev_littz00_bglt) PROCEDURE_REF(BgL_envz00_15480, (int) (0L)));
				{	/* Eval/evaluate_comp.scm 428 */
					obj_t BgL_bpz00_17012;

					BgL_bpz00_17012 = VECTOR_REF(((obj_t) BgL_sz00_15482), 0L);
					return
						(((BgL_ev_littz00_bglt) COBJECT(BgL_i1103z00_15481))->BgL_valuez00);
				}
			}
		}

	}



/* &comp-ev_defglobal1432 */
	obj_t BGl_z62compzd2ev_defglobal1432zb0zz__evaluate_compz00(obj_t
		BgL_envz00_15483, obj_t BgL_ez00_15484, obj_t BgL_stkz00_15485)
	{
		{	/* Eval/evaluate_comp.scm 395 */
			{	/* Eval/evaluate_comp.scm 397 */
				obj_t BgL_ez00_17014;

				{	/* Eval/evaluate_comp.scm 397 */
					BgL_ev_exprz00_bglt BgL_arg3171z00_17015;

					BgL_arg3171z00_17015 =
						(((BgL_ev_hookz00_bglt) COBJECT(
								((BgL_ev_hookz00_bglt)
									((BgL_ev_defglobalz00_bglt) BgL_ez00_15484))))->BgL_ez00);
					BgL_ez00_17014 =
						BGl_compz00zz__evaluate_compz00(BgL_arg3171z00_17015,
						BgL_stkz00_15485);
				}
				{	/* Eval/evaluate_comp.scm 398 */
					obj_t BgL_zc3z04anonymousza33131ze3z87_17016;

					BgL_zc3z04anonymousza33131ze3z87_17016 =
						MAKE_FX_PROCEDURE
						(BGl_z62zc3z04anonymousza33131ze3ze5zz__evaluate_compz00,
						(int) (1L), (int) (2L));
					PROCEDURE_SET(BgL_zc3z04anonymousza33131ze3z87_17016, (int) (0L),
						((obj_t) ((BgL_ev_defglobalz00_bglt) BgL_ez00_15484)));
					PROCEDURE_SET(BgL_zc3z04anonymousza33131ze3z87_17016, (int) (1L),
						BgL_ez00_17014);
					return BgL_zc3z04anonymousza33131ze3z87_17016;
				}
			}
		}

	}



/* &<@anonymous:3131> */
	obj_t BGl_z62zc3z04anonymousza33131ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15486, obj_t BgL_sz00_15489)
	{
		{	/* Eval/evaluate_comp.scm 398 */
			{	/* Eval/evaluate_comp.scm 398 */
				BgL_ev_defglobalz00_bglt BgL_i1100z00_15487;
				obj_t BgL_ez00_15488;

				BgL_i1100z00_15487 =
					((BgL_ev_defglobalz00_bglt)
					PROCEDURE_REF(BgL_envz00_15486, (int) (0L)));
				BgL_ez00_15488 = PROCEDURE_REF(BgL_envz00_15486, (int) (1L));
				{	/* Eval/evaluate_comp.scm 398 */
					obj_t BgL_bpz00_17017;

					BgL_bpz00_17017 = VECTOR_REF(((obj_t) BgL_sz00_15489), 0L);
					{	/* Eval/evaluate_comp.scm 399 */
						obj_t BgL_gz00_17018;

						{	/* Eval/evaluate_comp.scm 399 */
							obj_t BgL_arg3169z00_17019;
							obj_t BgL_arg3170z00_17020;

							BgL_arg3169z00_17019 =
								(((BgL_ev_setglobalz00_bglt) COBJECT(
										((BgL_ev_setglobalz00_bglt) BgL_i1100z00_15487)))->
								BgL_modz00);
							BgL_arg3170z00_17020 =
								(((BgL_ev_setglobalz00_bglt) COBJECT(((BgL_ev_setglobalz00_bglt)
											BgL_i1100z00_15487)))->BgL_namez00);
							BgL_gz00_17018 =
								BGl_evmodulezd2findzd2globalz00zz__evmodulez00
								(BgL_arg3169z00_17019, BgL_arg3170z00_17020);
						}
						if (CBOOL(BgL_gz00_17018))
							{	/* Eval/evaluate_comp.scm 401 */
								{

									{	/* Eval/evaluate_comp.scm 403 */
										int BgL_aux1102z00_17024;

										{	/* Eval/evaluate_comp.scm 403 */
											int BgL_res4442z00_17025;

											BgL_res4442z00_17025 =
												CINT(VECTOR_REF(((obj_t) BgL_gz00_17018), 0L));
											BgL_aux1102z00_17024 = BgL_res4442z00_17025;
										}
										switch ((long) (BgL_aux1102z00_17024))
											{
											case 0L:

												{	/* Eval/evaluate_comp.scm 405 */
													obj_t BgL_arg3133z00_17026;
													obj_t BgL_arg3134z00_17027;

													BgL_arg3133z00_17026 =
														(((BgL_ev_setglobalz00_bglt) COBJECT(
																((BgL_ev_setglobalz00_bglt)
																	BgL_i1100z00_15487)))->BgL_locz00);
													BgL_arg3134z00_17027 =
														(((BgL_ev_setglobalz00_bglt)
															COBJECT(((BgL_ev_setglobalz00_bglt)
																	BgL_i1100z00_15487)))->BgL_namez00);
													BGl_everrorz00zz__everrorz00(BgL_arg3133z00_17026,
														BGl_string4698z00zz__evaluate_compz00,
														BGl_string4699z00zz__evaluate_compz00,
														BgL_arg3134z00_17027);
												}
												break;
											case 1L:

												{	/* Eval/evaluate_comp.scm 407 */
													obj_t BgL_arg3135z00_17028;
													obj_t BgL_arg3136z00_17029;

													BgL_arg3135z00_17028 =
														(((BgL_ev_setglobalz00_bglt) COBJECT(
																((BgL_ev_setglobalz00_bglt)
																	BgL_i1100z00_15487)))->BgL_locz00);
													BgL_arg3136z00_17029 =
														(((BgL_ev_setglobalz00_bglt)
															COBJECT(((BgL_ev_setglobalz00_bglt)
																	BgL_i1100z00_15487)))->BgL_namez00);
													{	/* Eval/evaluate_comp.scm 407 */
														obj_t BgL_list3137z00_17030;

														{	/* Eval/evaluate_comp.scm 407 */
															obj_t BgL_arg3138z00_17031;

															{	/* Eval/evaluate_comp.scm 407 */
																obj_t BgL_arg3139z00_17032;

																BgL_arg3139z00_17032 =
																	MAKE_YOUNG_PAIR(BgL_arg3136z00_17029, BNIL);
																BgL_arg3138z00_17031 =
																	MAKE_YOUNG_PAIR
																	(BGl_string4700z00zz__evaluate_compz00,
																	BgL_arg3139z00_17032);
															}
															BgL_list3137z00_17030 =
																MAKE_YOUNG_PAIR
																(BGl_string4577z00zz__evaluate_compz00,
																BgL_arg3138z00_17031);
														}
														BGl_evwarningz00zz__everrorz00(BgL_arg3135z00_17028,
															BgL_list3137z00_17030);
													}
												}
												{	/* Eval/evaluate_comp.scm 409 */
													obj_t BgL_arg3141z00_17033;
													obj_t BgL_arg3146z00_17034;

													BgL_arg3141z00_17033 =
														VECTOR_REF(((obj_t) BgL_gz00_17018), 2L);
													BgL_arg3146z00_17034 =
														BGL_PROCEDURE_CALL1(BgL_ez00_15488, BgL_sz00_15489);
													__EVMEANING_ADDRESS_SET(BgL_arg3141z00_17033,
														BgL_arg3146z00_17034);
												}
												break;
											case 2L:

												{	/* Eval/evaluate_comp.scm 411 */
													obj_t BgL_arg3150z00_17035;

													BgL_arg3150z00_17035 =
														BGL_PROCEDURE_CALL1(BgL_ez00_15488, BgL_sz00_15489);
													VECTOR_SET(
														((obj_t) BgL_gz00_17018), 2L, BgL_arg3150z00_17035);
												}
												break;
											case 3L:

												{	/* Eval/evaluate_comp.scm 413 */
													obj_t BgL_arg3154z00_17036;

													BgL_arg3154z00_17036 =
														BGL_PROCEDURE_CALL1(BgL_ez00_15488, BgL_sz00_15489);
													VECTOR_SET(
														((obj_t) BgL_gz00_17018), 2L, BgL_arg3154z00_17036);
												}
												VECTOR_SET(((obj_t) BgL_gz00_17018), 0L, BINT(2L));
												break;
											case 4L:

												{	/* Eval/evaluate_comp.scm 416 */
													obj_t BgL_arg3157z00_17037;

													BgL_arg3157z00_17037 =
														BGL_PROCEDURE_CALL1(BgL_ez00_15488, BgL_sz00_15489);
													VECTOR_SET(
														((obj_t) BgL_gz00_17018), 2L, BgL_arg3157z00_17037);
												}
												VECTOR_SET(((obj_t) BgL_gz00_17018), 0L, BINT(5L));
												break;
											default:
												{	/* Eval/evaluate_comp.scm 419 */
													obj_t BgL_arg3158z00_17022;
													obj_t BgL_arg3159z00_17023;

													BgL_arg3158z00_17022 =
														(((BgL_ev_setglobalz00_bglt) COBJECT(
																((BgL_ev_setglobalz00_bglt)
																	BgL_i1100z00_15487)))->BgL_locz00);
													BgL_arg3159z00_17023 =
														(((BgL_ev_setglobalz00_bglt)
															COBJECT(((BgL_ev_setglobalz00_bglt)
																	BgL_i1100z00_15487)))->BgL_namez00);
													BGl_everrorz00zz__everrorz00(BgL_arg3158z00_17022,
														BGl_string4698z00zz__evaluate_compz00,
														BGl_string4699z00zz__evaluate_compz00,
														BgL_arg3159z00_17023);
												}
											}
									}
								}
								return
									(((BgL_ev_setglobalz00_bglt) COBJECT(
											((BgL_ev_setglobalz00_bglt) BgL_i1100z00_15487)))->
									BgL_namez00);
							}
						else
							{	/* Eval/evaluate_comp.scm 421 */
								obj_t BgL_gz00_17038;

								{	/* Eval/evaluate_comp.scm 421 */
									obj_t BgL_arg3164z00_17039;
									obj_t BgL_arg3165z00_17040;
									obj_t BgL_arg3168z00_17041;

									BgL_arg3164z00_17039 =
										(((BgL_ev_setglobalz00_bglt) COBJECT(
												((BgL_ev_setglobalz00_bglt) BgL_i1100z00_15487)))->
										BgL_namez00);
									BgL_arg3165z00_17040 =
										(((BgL_ev_setglobalz00_bglt)
											COBJECT(((BgL_ev_setglobalz00_bglt)
													BgL_i1100z00_15487)))->BgL_modz00);
									BgL_arg3168z00_17041 =
										(((BgL_ev_setglobalz00_bglt)
											COBJECT(((BgL_ev_setglobalz00_bglt)
													BgL_i1100z00_15487)))->BgL_locz00);
									{	/* Eval/evaluate_comp.scm 421 */
										obj_t BgL_v1405z00_17042;

										BgL_v1405z00_17042 = create_vector(5L);
										VECTOR_SET(BgL_v1405z00_17042, 0L, BINT(2L));
										VECTOR_SET(BgL_v1405z00_17042, 1L, BgL_arg3164z00_17039);
										VECTOR_SET(BgL_v1405z00_17042, 2L, BUNSPEC);
										VECTOR_SET(BgL_v1405z00_17042, 3L, BgL_arg3165z00_17040);
										VECTOR_SET(BgL_v1405z00_17042, 4L, BgL_arg3168z00_17041);
										BgL_gz00_17038 = BgL_v1405z00_17042;
									}
								}
								{	/* Eval/evaluate_comp.scm 422 */
									obj_t BgL_arg3160z00_17043;

									BgL_arg3160z00_17043 =
										BGL_PROCEDURE_CALL1(BgL_ez00_15488, BgL_sz00_15489);
									VECTOR_SET(BgL_gz00_17038, 2L, BgL_arg3160z00_17043);
								}
								{	/* Eval/evaluate_comp.scm 423 */
									obj_t BgL_arg3161z00_17044;
									obj_t BgL_arg3162z00_17045;
									obj_t BgL_arg3163z00_17046;

									BgL_arg3161z00_17044 =
										(((BgL_ev_setglobalz00_bglt) COBJECT(
												((BgL_ev_setglobalz00_bglt) BgL_i1100z00_15487)))->
										BgL_modz00);
									BgL_arg3162z00_17045 =
										(((BgL_ev_setglobalz00_bglt)
											COBJECT(((BgL_ev_setglobalz00_bglt)
													BgL_i1100z00_15487)))->BgL_namez00);
									BgL_arg3163z00_17046 =
										(((BgL_ev_setglobalz00_bglt)
											COBJECT(((BgL_ev_setglobalz00_bglt)
													BgL_i1100z00_15487)))->BgL_locz00);
									BGl_evmodulezd2bindzd2globalz12z12zz__evmodulez00
										(BgL_arg3161z00_17044, BgL_arg3162z00_17045, BgL_gz00_17038,
										BgL_arg3163z00_17046);
								}
								return
									(((BgL_ev_setglobalz00_bglt) COBJECT(
											((BgL_ev_setglobalz00_bglt) BgL_i1100z00_15487)))->
									BgL_namez00);
							}
					}
				}
			}
		}

	}



/* &comp-ev_setglobal1430 */
	obj_t BGl_z62compzd2ev_setglobal1430zb0zz__evaluate_compz00(obj_t
		BgL_envz00_15490, obj_t BgL_ez00_15491, obj_t BgL_stkz00_15492)
	{
		{	/* Eval/evaluate_comp.scm 372 */
			{	/* Eval/evaluate_comp.scm 374 */
				obj_t BgL_gz00_17048;
				obj_t BgL_ez00_17049;

				BgL_gz00_17048 =
					BGl_evmodulezd2findzd2globalz00zz__evmodulez00(
					(((BgL_ev_setglobalz00_bglt) COBJECT(
								((BgL_ev_setglobalz00_bglt) BgL_ez00_15491)))->BgL_modz00),
					(((BgL_ev_setglobalz00_bglt) COBJECT(
								((BgL_ev_setglobalz00_bglt) BgL_ez00_15491)))->BgL_namez00));
				{	/* Eval/evaluate_comp.scm 374 */
					BgL_ev_exprz00_bglt BgL_arg3130z00_17050;

					BgL_arg3130z00_17050 =
						(((BgL_ev_hookz00_bglt) COBJECT(
								((BgL_ev_hookz00_bglt)
									((BgL_ev_setglobalz00_bglt) BgL_ez00_15491))))->BgL_ez00);
					BgL_ez00_17049 =
						BGl_compz00zz__evaluate_compz00(BgL_arg3130z00_17050,
						BgL_stkz00_15492);
				}
				if (CBOOL(BgL_gz00_17048))
					{

						{	/* Eval/evaluate_comp.scm 376 */
							int BgL_aux1099z00_17053;

							{	/* Eval/evaluate_comp.scm 376 */
								int BgL_res4441z00_17054;

								BgL_res4441z00_17054 =
									CINT(VECTOR_REF(((obj_t) BgL_gz00_17048), 0L));
								BgL_aux1099z00_17053 = BgL_res4441z00_17054;
							}
							switch ((long) (BgL_aux1099z00_17053))
								{
								case 1L:

									{	/* Eval/evaluate_comp.scm 378 */
										obj_t BgL_zc3z04anonymousza33090ze3z87_17055;

										BgL_zc3z04anonymousza33090ze3z87_17055 =
											MAKE_FX_PROCEDURE
											(BGl_z62zc3z04anonymousza33090ze3ze5zz__evaluate_compz00,
											(int) (1L), (int) (2L));
										PROCEDURE_SET(BgL_zc3z04anonymousza33090ze3z87_17055,
											(int) (0L), BgL_gz00_17048);
										PROCEDURE_SET(BgL_zc3z04anonymousza33090ze3z87_17055,
											(int) (1L), BgL_ez00_17049);
										return BgL_zc3z04anonymousza33090ze3z87_17055;
									}
									break;
								case 0L:
								case 4L:
								case 5L:

									return
										BGl_everrorz00zz__everrorz00(
										(((BgL_ev_setglobalz00_bglt) COBJECT(
													((BgL_ev_setglobalz00_bglt) BgL_ez00_15491)))->
											BgL_locz00), BGl_string4698z00zz__evaluate_compz00,
										BGl_string4699z00zz__evaluate_compz00,
										(((BgL_ev_setglobalz00_bglt)
												COBJECT(((BgL_ev_setglobalz00_bglt) BgL_ez00_15491)))->
											BgL_namez00));
									break;
								default:
									{	/* Eval/evaluate_comp.scm 383 */
										obj_t BgL_zc3z04anonymousza33099ze3z87_17052;

										BgL_zc3z04anonymousza33099ze3z87_17052 =
											MAKE_FX_PROCEDURE
											(BGl_z62zc3z04anonymousza33099ze3ze5zz__evaluate_compz00,
											(int) (1L), (int) (2L));
										PROCEDURE_SET(BgL_zc3z04anonymousza33099ze3z87_17052,
											(int) (0L), BgL_ez00_17049);
										PROCEDURE_SET(BgL_zc3z04anonymousza33099ze3z87_17052,
											(int) (1L), BgL_gz00_17048);
										return BgL_zc3z04anonymousza33099ze3z87_17052;
									}
								}
						}
					}
				else
					{	/* Eval/evaluate_comp.scm 384 */
						obj_t BgL_slotz00_17056;

						BgL_slotz00_17056 = BGL_MAKE_UNSAFE_CELL(BFALSE);
						if (BGl_evmodulezf3zf3zz__evmodulez00(
								(((BgL_ev_setglobalz00_bglt) COBJECT(
											((BgL_ev_setglobalz00_bglt) BgL_ez00_15491)))->
									BgL_modz00)))
							{	/* Eval/evaluate_comp.scm 386 */
								obj_t BgL_gz00_17057;

								{	/* Eval/evaluate_comp.scm 386 */
									obj_t BgL_arg3108z00_17058;
									obj_t BgL_arg3110z00_17059;
									obj_t BgL_arg3111z00_17060;

									BgL_arg3108z00_17058 =
										(((BgL_ev_setglobalz00_bglt) COBJECT(
												((BgL_ev_setglobalz00_bglt) BgL_ez00_15491)))->
										BgL_namez00);
									BgL_arg3110z00_17059 =
										(((BgL_ev_setglobalz00_bglt)
											COBJECT(((BgL_ev_setglobalz00_bglt) BgL_ez00_15491)))->
										BgL_modz00);
									BgL_arg3111z00_17060 =
										(((BgL_ev_setglobalz00_bglt)
											COBJECT(((BgL_ev_setglobalz00_bglt) BgL_ez00_15491)))->
										BgL_locz00);
									{	/* Eval/evaluate_comp.scm 386 */
										obj_t BgL_v1405z00_17061;

										BgL_v1405z00_17061 = create_vector(5L);
										VECTOR_SET(BgL_v1405z00_17061, 0L, BINT(2L));
										VECTOR_SET(BgL_v1405z00_17061, 1L, BgL_arg3108z00_17058);
										VECTOR_SET(BgL_v1405z00_17061, 2L, BUNSPEC);
										VECTOR_SET(BgL_v1405z00_17061, 3L, BgL_arg3110z00_17059);
										VECTOR_SET(BgL_v1405z00_17061, 4L, BgL_arg3111z00_17060);
										BgL_gz00_17057 = BgL_v1405z00_17061;
									}
								}
								VECTOR_SET(BgL_gz00_17057, 0L, BINT(3L));
								BGl_evmodulezd2bindzd2globalz12z12zz__evmodulez00(
									(((BgL_ev_setglobalz00_bglt) COBJECT(
												((BgL_ev_setglobalz00_bglt) BgL_ez00_15491)))->
										BgL_modz00),
									(((BgL_ev_setglobalz00_bglt)
											COBJECT(((BgL_ev_setglobalz00_bglt) BgL_ez00_15491)))->
										BgL_namez00), BgL_gz00_17057,
									(((BgL_ev_setglobalz00_bglt)
											COBJECT(((BgL_ev_setglobalz00_bglt) BgL_ez00_15491)))->
										BgL_locz00));
							}
						else
							{	/* Eval/evaluate_comp.scm 385 */
								BFALSE;
							}
						{	/* Eval/evaluate_comp.scm 389 */
							obj_t BgL_zc3z04anonymousza33116ze3z87_17062;

							BgL_zc3z04anonymousza33116ze3z87_17062 =
								MAKE_FX_PROCEDURE
								(BGl_z62zc3z04anonymousza33116ze3ze5zz__evaluate_compz00,
								(int) (1L), (int) (3L));
							PROCEDURE_SET(BgL_zc3z04anonymousza33116ze3z87_17062, (int) (0L),
								((obj_t) ((BgL_ev_setglobalz00_bglt) BgL_ez00_15491)));
							PROCEDURE_SET(BgL_zc3z04anonymousza33116ze3z87_17062, (int) (1L),
								((obj_t) BgL_slotz00_17056));
							PROCEDURE_SET(BgL_zc3z04anonymousza33116ze3z87_17062, (int) (2L),
								BgL_ez00_17049);
							return BgL_zc3z04anonymousza33116ze3z87_17062;
						}
					}
			}
		}

	}



/* &<@anonymous:3090> */
	obj_t BGl_z62zc3z04anonymousza33090ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15495, obj_t BgL_sz00_15498)
	{
		{	/* Eval/evaluate_comp.scm 378 */
			{	/* Eval/evaluate_comp.scm 378 */
				obj_t BgL_gz00_15496;
				obj_t BgL_ez00_15497;

				BgL_gz00_15496 = PROCEDURE_REF(BgL_envz00_15495, (int) (0L));
				BgL_ez00_15497 = PROCEDURE_REF(BgL_envz00_15495, (int) (1L));
				{	/* Eval/evaluate_comp.scm 378 */
					obj_t BgL_bpz00_17063;

					BgL_bpz00_17063 = VECTOR_REF(((obj_t) BgL_sz00_15498), 0L);
					{	/* Eval/evaluate_comp.scm 379 */
						obj_t BgL_arg3091z00_17064;
						obj_t BgL_arg3096z00_17065;

						BgL_arg3091z00_17064 = VECTOR_REF(((obj_t) BgL_gz00_15496), 2L);
						BgL_arg3096z00_17065 =
							BGL_PROCEDURE_CALL1(BgL_ez00_15497, BgL_sz00_15498);
						return
							__EVMEANING_ADDRESS_SET(BgL_arg3091z00_17064,
							BgL_arg3096z00_17065);
					}
				}
			}
		}

	}



/* &<@anonymous:3099> */
	obj_t BGl_z62zc3z04anonymousza33099ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15499, obj_t BgL_sz00_15502)
	{
		{	/* Eval/evaluate_comp.scm 383 */
			{	/* Eval/evaluate_comp.scm 383 */
				obj_t BgL_ez00_15500;
				obj_t BgL_gz00_15501;

				BgL_ez00_15500 = PROCEDURE_REF(BgL_envz00_15499, (int) (0L));
				BgL_gz00_15501 = PROCEDURE_REF(BgL_envz00_15499, (int) (1L));
				{	/* Eval/evaluate_comp.scm 383 */
					obj_t BgL_bpz00_17066;

					BgL_bpz00_17066 = VECTOR_REF(((obj_t) BgL_sz00_15502), 0L);
					{	/* Eval/evaluate_comp.scm 383 */
						obj_t BgL_arg3100z00_17067;

						BgL_arg3100z00_17067 =
							BGL_PROCEDURE_CALL1(BgL_ez00_15500, BgL_sz00_15502);
						return
							VECTOR_SET(((obj_t) BgL_gz00_15501), 2L, BgL_arg3100z00_17067);
					}
				}
			}
		}

	}



/* &<@anonymous:3116> */
	obj_t BGl_z62zc3z04anonymousza33116ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15503, obj_t BgL_sz00_15507)
	{
		{	/* Eval/evaluate_comp.scm 389 */
			{	/* Eval/evaluate_comp.scm 389 */
				BgL_ev_setglobalz00_bglt BgL_i1097z00_15504;
				obj_t BgL_slotz00_15505;
				obj_t BgL_ez00_15506;

				BgL_i1097z00_15504 =
					((BgL_ev_setglobalz00_bglt)
					PROCEDURE_REF(BgL_envz00_15503, (int) (0L)));
				BgL_slotz00_15505 = PROCEDURE_REF(BgL_envz00_15503, (int) (1L));
				BgL_ez00_15506 = PROCEDURE_REF(BgL_envz00_15503, (int) (2L));
				{	/* Eval/evaluate_comp.scm 389 */
					obj_t BgL_bpz00_17068;

					BgL_bpz00_17068 = VECTOR_REF(((obj_t) BgL_sz00_15507), 0L);
					if (CBOOL(BGL_UNSAFE_CELL_REF(BgL_slotz00_15505)))
						{	/* Eval/evaluate_comp.scm 390 */
							BFALSE;
						}
					else
						{	/* Eval/evaluate_comp.scm 390 */
							{	/* Eval/evaluate_comp.scm 391 */
								obj_t BgL_auxz00_17069;

								BgL_auxz00_17069 =
									BGl_evmodulezd2findzd2globalz00zz__evmodulez00(
									(((BgL_ev_setglobalz00_bglt) COBJECT(BgL_i1097z00_15504))->
										BgL_modz00),
									(((BgL_ev_setglobalz00_bglt) COBJECT(BgL_i1097z00_15504))->
										BgL_namez00));
								BGL_UNSAFE_CELL_SET(BgL_slotz00_15505, BgL_auxz00_17069);
							}
							if (CBOOL(BGL_UNSAFE_CELL_REF(BgL_slotz00_15505)))
								{	/* Eval/evaluate_comp.scm 392 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 392 */
									BGl_everrorz00zz__everrorz00(
										(((BgL_ev_setglobalz00_bglt) COBJECT(BgL_i1097z00_15504))->
											BgL_locz00), BGl_string4577z00zz__evaluate_compz00,
										BGl_string4701z00zz__evaluate_compz00,
										(((BgL_ev_setglobalz00_bglt) COBJECT(BgL_i1097z00_15504))->
											BgL_namez00));
								}
						}
					{	/* Eval/evaluate_comp.scm 393 */
						obj_t BgL_arg3126z00_17070;

						BgL_arg3126z00_17070 =
							BGL_PROCEDURE_CALL1(BgL_ez00_15506, BgL_sz00_15507);
						{	/* Eval/evaluate_comp.scm 393 */
							obj_t BgL_evalzd2globalzd2_17071;

							BgL_evalzd2globalzd2_17071 =
								BGL_UNSAFE_CELL_REF(BgL_slotz00_15505);
							return
								VECTOR_SET(BgL_evalzd2globalzd2_17071, 2L,
								BgL_arg3126z00_17070);
						}
					}
				}
			}
		}

	}



/* &comp-ev_global1428 */
	obj_t BGl_z62compzd2ev_global1428zb0zz__evaluate_compz00(obj_t
		BgL_envz00_15509, obj_t BgL_varz00_15510, obj_t BgL_stkz00_15511)
	{
		{	/* Eval/evaluate_comp.scm 339 */
			{	/* Eval/evaluate_comp.scm 341 */
				obj_t BgL_gz00_17073;

				BgL_gz00_17073 =
					BGl_evmodulezd2findzd2globalz00zz__evmodulez00(
					(((BgL_ev_globalz00_bglt) COBJECT(
								((BgL_ev_globalz00_bglt) BgL_varz00_15510)))->BgL_modz00),
					(((BgL_ev_globalz00_bglt) COBJECT(
								((BgL_ev_globalz00_bglt) BgL_varz00_15510)))->BgL_namez00));
				if (CBOOL(BgL_gz00_17073))
					{	/* Eval/evaluate_comp.scm 343 */
						bool_t BgL_test5787z00_34072;

						{	/* Eval/evaluate_comp.scm 343 */
							int BgL_arg3039z00_17074;

							{	/* Eval/evaluate_comp.scm 343 */
								int BgL_res4439z00_17075;

								BgL_res4439z00_17075 =
									CINT(VECTOR_REF(((obj_t) BgL_gz00_17073), 0L));
								BgL_arg3039z00_17074 = BgL_res4439z00_17075;
							}
							BgL_test5787z00_34072 = (BINT(BgL_arg3039z00_17074) == BINT(1L));
						}
						if (BgL_test5787z00_34072)
							{	/* Eval/evaluate_comp.scm 344 */
								obj_t BgL_zc3z04anonymousza33036ze3z87_17076;

								BgL_zc3z04anonymousza33036ze3z87_17076 =
									MAKE_FX_PROCEDURE
									(BGl_z62zc3z04anonymousza33036ze3ze5zz__evaluate_compz00,
									(int) (1L), (int) (1L));
								PROCEDURE_SET(BgL_zc3z04anonymousza33036ze3z87_17076,
									(int) (0L), BgL_gz00_17073);
								return BgL_zc3z04anonymousza33036ze3z87_17076;
							}
						else
							{	/* Eval/evaluate_comp.scm 346 */
								obj_t BgL_zc3z04anonymousza33038ze3z87_17077;

								BgL_zc3z04anonymousza33038ze3z87_17077 =
									MAKE_FX_PROCEDURE
									(BGl_z62zc3z04anonymousza33038ze3ze5zz__evaluate_compz00,
									(int) (1L), (int) (1L));
								PROCEDURE_SET(BgL_zc3z04anonymousza33038ze3z87_17077,
									(int) (0L), BgL_gz00_17073);
								return BgL_zc3z04anonymousza33038ze3z87_17077;
							}
					}
				else
					{	/* Eval/evaluate_comp.scm 348 */
						obj_t BgL_slotz00_17078;

						BgL_slotz00_17078 = BGL_MAKE_UNSAFE_CELL(BFALSE);
						if (BGl_evmodulezf3zf3zz__evmodulez00(
								(((BgL_ev_globalz00_bglt) COBJECT(
											((BgL_ev_globalz00_bglt) BgL_varz00_15510)))->
									BgL_modz00)))
							{	/* Eval/evaluate_comp.scm 350 */
								obj_t BgL_gz00_17079;

								{	/* Eval/evaluate_comp.scm 350 */
									obj_t BgL_arg3045z00_17080;
									obj_t BgL_arg3046z00_17081;
									obj_t BgL_arg3047z00_17082;

									BgL_arg3045z00_17080 =
										(((BgL_ev_globalz00_bglt) COBJECT(
												((BgL_ev_globalz00_bglt) BgL_varz00_15510)))->
										BgL_namez00);
									BgL_arg3046z00_17081 =
										(((BgL_ev_globalz00_bglt) COBJECT(((BgL_ev_globalz00_bglt)
													BgL_varz00_15510)))->BgL_modz00);
									BgL_arg3047z00_17082 =
										(((BgL_ev_globalz00_bglt) COBJECT(((BgL_ev_globalz00_bglt)
													BgL_varz00_15510)))->BgL_locz00);
									{	/* Eval/evaluate_comp.scm 350 */
										obj_t BgL_v1405z00_17083;

										BgL_v1405z00_17083 = create_vector(5L);
										VECTOR_SET(BgL_v1405z00_17083, 0L, BINT(2L));
										VECTOR_SET(BgL_v1405z00_17083, 1L, BgL_arg3045z00_17080);
										VECTOR_SET(BgL_v1405z00_17083, 2L, BUNSPEC);
										VECTOR_SET(BgL_v1405z00_17083, 3L, BgL_arg3046z00_17081);
										VECTOR_SET(BgL_v1405z00_17083, 4L, BgL_arg3047z00_17082);
										BgL_gz00_17079 = BgL_v1405z00_17083;
									}
								}
								VECTOR_SET(BgL_gz00_17079, 0L, BINT(3L));
								BGl_evmodulezd2bindzd2globalz12z12zz__evmodulez00(
									(((BgL_ev_globalz00_bglt) COBJECT(
												((BgL_ev_globalz00_bglt) BgL_varz00_15510)))->
										BgL_modz00),
									(((BgL_ev_globalz00_bglt) COBJECT(((BgL_ev_globalz00_bglt)
													BgL_varz00_15510)))->BgL_namez00), BgL_gz00_17079,
									(((BgL_ev_globalz00_bglt) COBJECT(((BgL_ev_globalz00_bglt)
													BgL_varz00_15510)))->BgL_locz00));
							}
						else
							{	/* Eval/evaluate_comp.scm 349 */
								BFALSE;
							}
						{	/* Eval/evaluate_comp.scm 353 */
							obj_t BgL_zc3z04anonymousza33050ze3z87_17084;

							BgL_zc3z04anonymousza33050ze3z87_17084 =
								MAKE_FX_PROCEDURE
								(BGl_z62zc3z04anonymousza33050ze3ze5zz__evaluate_compz00,
								(int) (1L), (int) (2L));
							PROCEDURE_SET(BgL_zc3z04anonymousza33050ze3z87_17084, (int) (0L),
								((obj_t) ((BgL_ev_globalz00_bglt) BgL_varz00_15510)));
							PROCEDURE_SET(BgL_zc3z04anonymousza33050ze3z87_17084, (int) (1L),
								((obj_t) BgL_slotz00_17078));
							return BgL_zc3z04anonymousza33050ze3z87_17084;
						}
					}
			}
		}

	}



/* &<@anonymous:3036> */
	obj_t BGl_z62zc3z04anonymousza33036ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15514, obj_t BgL_sz00_15516)
	{
		{	/* Eval/evaluate_comp.scm 344 */
			{	/* Eval/evaluate_comp.scm 344 */
				obj_t BgL_gz00_15515;

				BgL_gz00_15515 = PROCEDURE_REF(BgL_envz00_15514, (int) (0L));
				{	/* Eval/evaluate_comp.scm 344 */
					obj_t BgL_bpz00_17085;

					BgL_bpz00_17085 = VECTOR_REF(((obj_t) BgL_sz00_15516), 0L);
					{	/* Eval/evaluate_comp.scm 345 */
						obj_t BgL_arg3037z00_17086;

						BgL_arg3037z00_17086 = VECTOR_REF(((obj_t) BgL_gz00_15515), 2L);
						return __EVMEANING_ADDRESS_REF(BgL_arg3037z00_17086);
					}
				}
			}
		}

	}



/* &<@anonymous:3038> */
	obj_t BGl_z62zc3z04anonymousza33038ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15517, obj_t BgL_sz00_15519)
	{
		{	/* Eval/evaluate_comp.scm 346 */
			{	/* Eval/evaluate_comp.scm 346 */
				obj_t BgL_gz00_15518;

				BgL_gz00_15518 = PROCEDURE_REF(BgL_envz00_15517, (int) (0L));
				{	/* Eval/evaluate_comp.scm 346 */
					obj_t BgL_bpz00_17087;

					BgL_bpz00_17087 = VECTOR_REF(((obj_t) BgL_sz00_15519), 0L);
					return VECTOR_REF(((obj_t) BgL_gz00_15518), 2L);
				}
			}
		}

	}



/* &<@anonymous:3050> */
	obj_t BGl_z62zc3z04anonymousza33050ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15520, obj_t BgL_sz00_15523)
	{
		{	/* Eval/evaluate_comp.scm 353 */
			{	/* Eval/evaluate_comp.scm 353 */
				BgL_ev_globalz00_bglt BgL_i1096z00_15521;
				obj_t BgL_slotz00_15522;

				BgL_i1096z00_15521 =
					((BgL_ev_globalz00_bglt) PROCEDURE_REF(BgL_envz00_15520, (int) (0L)));
				BgL_slotz00_15522 = PROCEDURE_REF(BgL_envz00_15520, (int) (1L));
				{	/* Eval/evaluate_comp.scm 353 */
					obj_t BgL_bpz00_17088;

					BgL_bpz00_17088 = VECTOR_REF(((obj_t) BgL_sz00_15523), 0L);
					if (CBOOL(BGL_UNSAFE_CELL_REF(BgL_slotz00_15522)))
						{	/* Eval/evaluate_comp.scm 354 */
							BFALSE;
						}
					else
						{	/* Eval/evaluate_comp.scm 354 */
							{	/* Eval/evaluate_comp.scm 355 */
								obj_t BgL_auxz00_17089;

								BgL_auxz00_17089 =
									BGl_evmodulezd2findzd2globalz00zz__evmodulez00(
									(((BgL_ev_globalz00_bglt) COBJECT(BgL_i1096z00_15521))->
										BgL_modz00),
									(((BgL_ev_globalz00_bglt) COBJECT(BgL_i1096z00_15521))->
										BgL_namez00));
								BGL_UNSAFE_CELL_SET(BgL_slotz00_15522, BgL_auxz00_17089);
							}
							if (CBOOL(BGL_UNSAFE_CELL_REF(BgL_slotz00_15522)))
								{	/* Eval/evaluate_comp.scm 356 */
									BFALSE;
								}
							else
								{	/* Eval/evaluate_comp.scm 357 */
									obj_t BgL_idz00_17090;

									if (BGl_evmodulezf3zf3zz__evmodulez00(
											(((BgL_ev_globalz00_bglt) COBJECT(BgL_i1096z00_15521))->
												BgL_modz00)))
										{	/* Eval/evaluate_comp.scm 358 */
											obj_t BgL_arg3063z00_17091;

											{	/* Eval/evaluate_comp.scm 358 */
												obj_t BgL_arg3065z00_17092;
												obj_t BgL_arg3066z00_17093;

												BgL_arg3065z00_17092 =
													(((BgL_ev_globalz00_bglt)
														COBJECT(BgL_i1096z00_15521))->BgL_namez00);
												BgL_arg3066z00_17093 =
													MAKE_YOUNG_PAIR(BGl_evmodulezd2namezd2zz__evmodulez00(
														(((BgL_ev_globalz00_bglt)
																COBJECT(BgL_i1096z00_15521))->BgL_modz00)),
													BNIL);
												BgL_arg3063z00_17091 =
													MAKE_YOUNG_PAIR(BgL_arg3065z00_17092,
													BgL_arg3066z00_17093);
											}
											BgL_idz00_17090 =
												MAKE_YOUNG_PAIR(BGl_symbol4702z00zz__evaluate_compz00,
												BgL_arg3063z00_17091);
										}
									else
										{	/* Eval/evaluate_comp.scm 357 */
											BgL_idz00_17090 =
												(((BgL_ev_globalz00_bglt) COBJECT(BgL_i1096z00_15521))->
												BgL_namez00);
										}
									BGl_everrorz00zz__everrorz00(
										(((BgL_ev_globalz00_bglt) COBJECT(BgL_i1096z00_15521))->
											BgL_locz00), BGl_string4577z00zz__evaluate_compz00,
										BGl_string4701z00zz__evaluate_compz00, BgL_idz00_17090);
								}
						}
					{	/* Eval/evaluate_comp.scm 361 */
						obj_t BgL_vz00_17094;

						{	/* Eval/evaluate_comp.scm 361 */
							obj_t BgL_evalzd2globalzd2_17095;

							BgL_evalzd2globalzd2_17095 =
								BGL_UNSAFE_CELL_REF(BgL_slotz00_15522);
							BgL_vz00_17094 = VECTOR_REF(BgL_evalzd2globalzd2_17095, 2L);
						}
						if ((BgL_vz00_17094 == BUNSPEC))
							{	/* Eval/evaluate_comp.scm 363 */
								int BgL_tz00_17096;

								{	/* Eval/evaluate_comp.scm 363 */
									int BgL_res4440z00_17097;

									{	/* Eval/evaluate_comp.scm 363 */
										obj_t BgL_evalzd2globalzd2_17098;

										BgL_evalzd2globalzd2_17098 =
											BGL_UNSAFE_CELL_REF(BgL_slotz00_15522);
										BgL_res4440z00_17097 =
											CINT(VECTOR_REF(BgL_evalzd2globalzd2_17098, 0L));
									}
									BgL_tz00_17096 = BgL_res4440z00_17097;
								}
								{	/* Eval/evaluate_comp.scm 364 */
									bool_t BgL_test5793z00_34169;

									if (((long) (BgL_tz00_17096) == 3L))
										{	/* Eval/evaluate_comp.scm 364 */
											BgL_test5793z00_34169 = ((bool_t) 1);
										}
									else
										{	/* Eval/evaluate_comp.scm 364 */
											BgL_test5793z00_34169 = ((long) (BgL_tz00_17096) == 4L);
										}
									if (BgL_test5793z00_34169)
										{	/* Eval/evaluate_comp.scm 365 */
											obj_t BgL_idz00_17099;

											if (BGl_evmodulezf3zf3zz__evmodulez00(
													(((BgL_ev_globalz00_bglt)
															COBJECT(BgL_i1096z00_15521))->BgL_modz00)))
												{	/* Eval/evaluate_comp.scm 366 */
													obj_t BgL_arg3076z00_17100;

													{	/* Eval/evaluate_comp.scm 366 */
														obj_t BgL_arg3077z00_17101;
														obj_t BgL_arg3079z00_17102;

														BgL_arg3077z00_17101 =
															(((BgL_ev_globalz00_bglt)
																COBJECT(BgL_i1096z00_15521))->BgL_namez00);
														BgL_arg3079z00_17102 =
															MAKE_YOUNG_PAIR
															(BGl_evmodulezd2namezd2zz__evmodulez00(((
																		(BgL_ev_globalz00_bglt)
																		COBJECT(BgL_i1096z00_15521))->BgL_modz00)),
															BNIL);
														BgL_arg3076z00_17100 =
															MAKE_YOUNG_PAIR(BgL_arg3077z00_17101,
															BgL_arg3079z00_17102);
													}
													BgL_idz00_17099 =
														MAKE_YOUNG_PAIR
														(BGl_symbol4702z00zz__evaluate_compz00,
														BgL_arg3076z00_17100);
												}
											else
												{	/* Eval/evaluate_comp.scm 365 */
													BgL_idz00_17099 =
														(((BgL_ev_globalz00_bglt)
															COBJECT(BgL_i1096z00_15521))->BgL_namez00);
												}
											return
												BGl_everrorz00zz__everrorz00(
												(((BgL_ev_globalz00_bglt) COBJECT(BgL_i1096z00_15521))->
													BgL_locz00), BGl_string4577z00zz__evaluate_compz00,
												BGl_string4704z00zz__evaluate_compz00, BgL_idz00_17099);
										}
									else
										{	/* Eval/evaluate_comp.scm 364 */
											return BgL_vz00_17094;
										}
								}
							}
						else
							{	/* Eval/evaluate_comp.scm 362 */
								return BgL_vz00_17094;
							}
					}
				}
			}
		}

	}



/* &comp-ev_setlocal1426 */
	obj_t BGl_z62compzd2ev_setlocal1426zb0zz__evaluate_compz00(obj_t
		BgL_envz00_15525, obj_t BgL_ez00_15526, obj_t BgL_stkz00_15527)
	{
		{	/* Eval/evaluate_comp.scm 321 */
			{	/* Eval/evaluate_comp.scm 323 */
				obj_t BgL_iz00_17104;
				obj_t BgL_ez00_17105;

				{	/* Eval/evaluate_comp.scm 323 */
					BgL_ev_varz00_bglt BgL_arg3031z00_17106;

					BgL_arg3031z00_17106 =
						(((BgL_ev_setlocalz00_bglt) COBJECT(
								((BgL_ev_setlocalz00_bglt) BgL_ez00_15526)))->BgL_vz00);
					BgL_iz00_17104 =
						BGl__indexz00zz__evaluate_compz00(
						((obj_t) BgL_arg3031z00_17106), BgL_stkz00_15527);
				}
				{	/* Eval/evaluate_comp.scm 323 */
					BgL_ev_exprz00_bglt BgL_arg3033z00_17107;

					BgL_arg3033z00_17107 =
						(((BgL_ev_hookz00_bglt) COBJECT(
								((BgL_ev_hookz00_bglt)
									((BgL_ev_setlocalz00_bglt) BgL_ez00_15526))))->BgL_ez00);
					BgL_ez00_17105 =
						BGl_compz00zz__evaluate_compz00(BgL_arg3033z00_17107,
						BgL_stkz00_15527);
				}
				if (CBOOL(
						(((BgL_ev_varz00_bglt) COBJECT(
									(((BgL_ev_setlocalz00_bglt) COBJECT(
												((BgL_ev_setlocalz00_bglt) BgL_ez00_15526)))->
										BgL_vz00)))->BgL_effz00)))
					{	/* Eval/evaluate_comp.scm 326 */
						obj_t BgL_zc3z04anonymousza33019ze3z87_17108;

						BgL_zc3z04anonymousza33019ze3z87_17108 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza33019ze3ze5zz__evaluate_compz00,
							(int) (1L), (int) (2L));
						PROCEDURE_SET(BgL_zc3z04anonymousza33019ze3z87_17108, (int) (0L),
							BgL_iz00_17104);
						PROCEDURE_SET(BgL_zc3z04anonymousza33019ze3z87_17108, (int) (1L),
							BgL_ez00_17105);
						return BgL_zc3z04anonymousza33019ze3z87_17108;
					}
				else
					{	/* Eval/evaluate_comp.scm 328 */
						obj_t BgL_zc3z04anonymousza33027ze3z87_17109;

						BgL_zc3z04anonymousza33027ze3z87_17109 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza33027ze3ze5zz__evaluate_compz00,
							(int) (1L), (int) (2L));
						PROCEDURE_SET(BgL_zc3z04anonymousza33027ze3z87_17109, (int) (0L),
							BgL_iz00_17104);
						PROCEDURE_SET(BgL_zc3z04anonymousza33027ze3z87_17109, (int) (1L),
							BgL_ez00_17105);
						return BgL_zc3z04anonymousza33027ze3z87_17109;
					}
			}
		}

	}



/* &<@anonymous:3019> */
	obj_t BGl_z62zc3z04anonymousza33019ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15528, obj_t BgL_sz00_15531)
	{
		{	/* Eval/evaluate_comp.scm 326 */
			{	/* Eval/evaluate_comp.scm 326 */
				obj_t BgL_iz00_15529;
				obj_t BgL_ez00_15530;

				BgL_iz00_15529 = PROCEDURE_REF(BgL_envz00_15528, (int) (0L));
				BgL_ez00_15530 = PROCEDURE_REF(BgL_envz00_15528, (int) (1L));
				{	/* Eval/evaluate_comp.scm 326 */
					obj_t BgL_bpz00_17110;

					BgL_bpz00_17110 = VECTOR_REF(((obj_t) BgL_sz00_15531), 0L);
					{	/* Eval/evaluate_comp.scm 327 */
						obj_t BgL_arg3022z00_17111;
						obj_t BgL_arg3024z00_17112;

						{	/* Eval/evaluate_comp.scm 327 */
							long BgL_arg3026z00_17113;

							BgL_arg3026z00_17113 =
								((long) CINT(BgL_bpz00_17110) + (long) CINT(BgL_iz00_15529));
							BgL_arg3022z00_17111 =
								VECTOR_REF(((obj_t) BgL_sz00_15531), BgL_arg3026z00_17113);
						}
						BgL_arg3024z00_17112 =
							BGL_PROCEDURE_CALL1(BgL_ez00_15530, BgL_sz00_15531);
						{	/* Eval/evaluate_comp.scm 202 */
							obj_t BgL_xz00_17114;

							{	/* Eval/evaluate_comp.scm 202 */
								int BgL_auxz00_34231;
								obj_t BgL_tmpz00_34229;

								BgL_auxz00_34231 = (int) (0L);
								BgL_tmpz00_34229 = ((obj_t) BgL_arg3022z00_17111);
								BgL_xz00_17114 =
									STRUCT_SET(BgL_tmpz00_34229, BgL_auxz00_34231,
									BgL_arg3024z00_17112);
							}
							return BUNSPEC;
						}
					}
				}
			}
		}

	}



/* &<@anonymous:3027> */
	obj_t BGl_z62zc3z04anonymousza33027ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15532, obj_t BgL_sz00_15535)
	{
		{	/* Eval/evaluate_comp.scm 328 */
			{	/* Eval/evaluate_comp.scm 328 */
				obj_t BgL_iz00_15533;
				obj_t BgL_ez00_15534;

				BgL_iz00_15533 = PROCEDURE_REF(BgL_envz00_15532, (int) (0L));
				BgL_ez00_15534 = PROCEDURE_REF(BgL_envz00_15532, (int) (1L));
				{	/* Eval/evaluate_comp.scm 328 */
					obj_t BgL_bpz00_17115;

					BgL_bpz00_17115 = VECTOR_REF(((obj_t) BgL_sz00_15535), 0L);
					{	/* Eval/evaluate_comp.scm 329 */
						long BgL_arg3029z00_17116;
						obj_t BgL_arg3030z00_17117;

						BgL_arg3029z00_17116 =
							((long) CINT(BgL_bpz00_17115) + (long) CINT(BgL_iz00_15533));
						BgL_arg3030z00_17117 =
							BGL_PROCEDURE_CALL1(BgL_ez00_15534, BgL_sz00_15535);
						return
							VECTOR_SET(
							((obj_t) BgL_sz00_15535), BgL_arg3029z00_17116,
							BgL_arg3030z00_17117);
					}
				}
			}
		}

	}



/* &comp-ev_var1424 */
	obj_t BGl_z62compzd2ev_var1424zb0zz__evaluate_compz00(obj_t BgL_envz00_15536,
		obj_t BgL_varz00_15537, obj_t BgL_stkz00_15538)
	{
		{	/* Eval/evaluate_comp.scm 316 */
			{	/* Eval/evaluate_comp.scm 317 */
				obj_t BgL_iz00_17119;

				BgL_iz00_17119 =
					BGl__indexz00zz__evaluate_compz00(
					((obj_t) ((BgL_ev_varz00_bglt) BgL_varz00_15537)), BgL_stkz00_15538);
				{

					if (INTEGERP(BgL_iz00_17119))
						{	/* Eval/evaluate_comp.scm 319 */
							switch ((long) CINT(BgL_iz00_17119))
								{
								case 0L:

									if (CBOOL(
											(((BgL_ev_varz00_bglt) COBJECT(
														((BgL_ev_varz00_bglt) BgL_varz00_15537)))->
												BgL_effz00)))
										{	/* Eval/evaluate_comp.scm 319 */
											return BGl_proc4705z00zz__evaluate_compz00;
										}
									else
										{	/* Eval/evaluate_comp.scm 319 */
											return BGl_proc4706z00zz__evaluate_compz00;
										}
									break;
								case 1L:

									if (CBOOL(
											(((BgL_ev_varz00_bglt) COBJECT(
														((BgL_ev_varz00_bglt) BgL_varz00_15537)))->
												BgL_effz00)))
										{	/* Eval/evaluate_comp.scm 319 */
											return BGl_proc4707z00zz__evaluate_compz00;
										}
									else
										{	/* Eval/evaluate_comp.scm 319 */
											return BGl_proc4708z00zz__evaluate_compz00;
										}
									break;
								case 2L:

									if (CBOOL(
											(((BgL_ev_varz00_bglt) COBJECT(
														((BgL_ev_varz00_bglt) BgL_varz00_15537)))->
												BgL_effz00)))
										{	/* Eval/evaluate_comp.scm 319 */
											return BGl_proc4709z00zz__evaluate_compz00;
										}
									else
										{	/* Eval/evaluate_comp.scm 319 */
											return BGl_proc4710z00zz__evaluate_compz00;
										}
									break;
								case 3L:

									if (CBOOL(
											(((BgL_ev_varz00_bglt) COBJECT(
														((BgL_ev_varz00_bglt) BgL_varz00_15537)))->
												BgL_effz00)))
										{	/* Eval/evaluate_comp.scm 319 */
											return BGl_proc4711z00zz__evaluate_compz00;
										}
									else
										{	/* Eval/evaluate_comp.scm 319 */
											return BGl_proc4712z00zz__evaluate_compz00;
										}
									break;
								default:
								BgL_case_else1091z00_17120:
									if (CBOOL(
											(((BgL_ev_varz00_bglt) COBJECT(
														((BgL_ev_varz00_bglt) BgL_varz00_15537)))->
												BgL_effz00)))
										{	/* Eval/evaluate_comp.scm 319 */
											obj_t BgL_zc3z04anonymousza33010ze3z87_17121;

											BgL_zc3z04anonymousza33010ze3z87_17121 =
												MAKE_FX_PROCEDURE
												(BGl_z62zc3z04anonymousza33010ze3ze5zz__evaluate_compz00,
												(int) (1L), (int) (1L));
											PROCEDURE_SET(BgL_zc3z04anonymousza33010ze3z87_17121,
												(int) (0L), BgL_iz00_17119);
											return BgL_zc3z04anonymousza33010ze3z87_17121;
										}
									else
										{	/* Eval/evaluate_comp.scm 319 */
											obj_t BgL_zc3z04anonymousza33014ze3z87_17122;

											BgL_zc3z04anonymousza33014ze3z87_17122 =
												MAKE_FX_PROCEDURE
												(BGl_z62zc3z04anonymousza33014ze3ze5zz__evaluate_compz00,
												(int) (1L), (int) (1L));
											PROCEDURE_SET(BgL_zc3z04anonymousza33014ze3z87_17122,
												(int) (0L), BgL_iz00_17119);
											return BgL_zc3z04anonymousza33014ze3z87_17122;
										}
								}
						}
					else
						{	/* Eval/evaluate_comp.scm 319 */
							goto BgL_case_else1091z00_17120;
						}
				}
			}
		}

	}



/* &<@anonymous:2999> */
	obj_t BGl_z62zc3z04anonymousza32999ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15539, obj_t BgL_sz00_15540)
	{
		{	/* Eval/evaluate_comp.scm 319 */
			{	/* Eval/evaluate_comp.scm 319 */
				obj_t BgL_bpz00_17123;

				BgL_bpz00_17123 = VECTOR_REF(((obj_t) BgL_sz00_15540), 0L);
				{	/* Eval/evaluate_comp.scm 319 */
					obj_t BgL_arg3000z00_17124;

					{	/* Eval/evaluate_comp.scm 319 */
						long BgL_arg3003z00_17125;

						BgL_arg3003z00_17125 = ((long) CINT(BgL_bpz00_17123) + 3L);
						BgL_arg3000z00_17124 =
							VECTOR_REF(((obj_t) BgL_sz00_15540), BgL_arg3003z00_17125);
					}
					return STRUCT_REF(((obj_t) BgL_arg3000z00_17124), (int) (0L));
		}}}

	}



/* &<@anonymous:3004> */
	obj_t BGl_z62zc3z04anonymousza33004ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15541, obj_t BgL_sz00_15542)
	{
		{	/* Eval/evaluate_comp.scm 319 */
			{	/* Eval/evaluate_comp.scm 319 */
				obj_t BgL_bpz00_17126;

				BgL_bpz00_17126 = VECTOR_REF(((obj_t) BgL_sz00_15542), 0L);
				{	/* Eval/evaluate_comp.scm 319 */
					long BgL_arg3008z00_17127;

					BgL_arg3008z00_17127 = ((long) CINT(BgL_bpz00_17126) + 3L);
					return VECTOR_REF(((obj_t) BgL_sz00_15542), BgL_arg3008z00_17127);
				}
			}
		}

	}



/* &<@anonymous:2992> */
	obj_t BGl_z62zc3z04anonymousza32992ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15543, obj_t BgL_sz00_15544)
	{
		{	/* Eval/evaluate_comp.scm 319 */
			{	/* Eval/evaluate_comp.scm 319 */
				obj_t BgL_bpz00_17128;

				BgL_bpz00_17128 = VECTOR_REF(((obj_t) BgL_sz00_15544), 0L);
				{	/* Eval/evaluate_comp.scm 319 */
					obj_t BgL_arg2994z00_17129;

					{	/* Eval/evaluate_comp.scm 319 */
						long BgL_arg2995z00_17130;

						BgL_arg2995z00_17130 = ((long) CINT(BgL_bpz00_17128) + 2L);
						BgL_arg2994z00_17129 =
							VECTOR_REF(((obj_t) BgL_sz00_15544), BgL_arg2995z00_17130);
					}
					return STRUCT_REF(((obj_t) BgL_arg2994z00_17129), (int) (0L));
		}}}

	}



/* &<@anonymous:2996> */
	obj_t BGl_z62zc3z04anonymousza32996ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15545, obj_t BgL_sz00_15546)
	{
		{	/* Eval/evaluate_comp.scm 319 */
			{	/* Eval/evaluate_comp.scm 319 */
				obj_t BgL_bpz00_17131;

				BgL_bpz00_17131 = VECTOR_REF(((obj_t) BgL_sz00_15546), 0L);
				{	/* Eval/evaluate_comp.scm 319 */
					long BgL_arg2997z00_17132;

					BgL_arg2997z00_17132 = ((long) CINT(BgL_bpz00_17131) + 2L);
					return VECTOR_REF(((obj_t) BgL_sz00_15546), BgL_arg2997z00_17132);
				}
			}
		}

	}



/* &<@anonymous:2986> */
	obj_t BGl_z62zc3z04anonymousza32986ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15547, obj_t BgL_sz00_15548)
	{
		{	/* Eval/evaluate_comp.scm 319 */
			{	/* Eval/evaluate_comp.scm 319 */
				obj_t BgL_bpz00_17133;

				BgL_bpz00_17133 = VECTOR_REF(((obj_t) BgL_sz00_15548), 0L);
				{	/* Eval/evaluate_comp.scm 319 */
					obj_t BgL_arg2987z00_17134;

					{	/* Eval/evaluate_comp.scm 319 */
						long BgL_arg2988z00_17135;

						BgL_arg2988z00_17135 = ((long) CINT(BgL_bpz00_17133) + 1L);
						BgL_arg2987z00_17134 =
							VECTOR_REF(((obj_t) BgL_sz00_15548), BgL_arg2988z00_17135);
					}
					return STRUCT_REF(((obj_t) BgL_arg2987z00_17134), (int) (0L));
		}}}

	}



/* &<@anonymous:2989> */
	obj_t BGl_z62zc3z04anonymousza32989ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15549, obj_t BgL_sz00_15550)
	{
		{	/* Eval/evaluate_comp.scm 319 */
			{	/* Eval/evaluate_comp.scm 319 */
				obj_t BgL_bpz00_17136;

				BgL_bpz00_17136 = VECTOR_REF(((obj_t) BgL_sz00_15550), 0L);
				{	/* Eval/evaluate_comp.scm 319 */
					long BgL_arg2990z00_17137;

					BgL_arg2990z00_17137 = ((long) CINT(BgL_bpz00_17136) + 1L);
					return VECTOR_REF(((obj_t) BgL_sz00_15550), BgL_arg2990z00_17137);
				}
			}
		}

	}



/* &<@anonymous:2980> */
	obj_t BGl_z62zc3z04anonymousza32980ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15551, obj_t BgL_sz00_15552)
	{
		{	/* Eval/evaluate_comp.scm 319 */
			{	/* Eval/evaluate_comp.scm 319 */
				obj_t BgL_bpz00_17138;

				BgL_bpz00_17138 = VECTOR_REF(((obj_t) BgL_sz00_15552), 0L);
				{	/* Eval/evaluate_comp.scm 319 */
					obj_t BgL_arg2981z00_17139;

					{	/* Eval/evaluate_comp.scm 319 */
						long BgL_arg2982z00_17140;

						BgL_arg2982z00_17140 = ((long) CINT(BgL_bpz00_17138) + 0L);
						BgL_arg2981z00_17139 =
							VECTOR_REF(((obj_t) BgL_sz00_15552), BgL_arg2982z00_17140);
					}
					return STRUCT_REF(((obj_t) BgL_arg2981z00_17139), (int) (0L));
		}}}

	}



/* &<@anonymous:2983> */
	obj_t BGl_z62zc3z04anonymousza32983ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15553, obj_t BgL_sz00_15554)
	{
		{	/* Eval/evaluate_comp.scm 319 */
			{	/* Eval/evaluate_comp.scm 319 */
				obj_t BgL_bpz00_17141;

				BgL_bpz00_17141 = VECTOR_REF(((obj_t) BgL_sz00_15554), 0L);
				{	/* Eval/evaluate_comp.scm 319 */
					long BgL_arg2984z00_17142;

					BgL_arg2984z00_17142 = ((long) CINT(BgL_bpz00_17141) + 0L);
					return VECTOR_REF(((obj_t) BgL_sz00_15554), BgL_arg2984z00_17142);
				}
			}
		}

	}



/* &<@anonymous:3010> */
	obj_t BGl_z62zc3z04anonymousza33010ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15555, obj_t BgL_sz00_15557)
	{
		{	/* Eval/evaluate_comp.scm 319 */
			{	/* Eval/evaluate_comp.scm 319 */
				obj_t BgL_iz00_15556;

				BgL_iz00_15556 = PROCEDURE_REF(BgL_envz00_15555, (int) (0L));
				{	/* Eval/evaluate_comp.scm 319 */
					obj_t BgL_bpz00_17143;

					BgL_bpz00_17143 = VECTOR_REF(((obj_t) BgL_sz00_15557), 0L);
					{	/* Eval/evaluate_comp.scm 319 */
						obj_t BgL_arg3012z00_17144;

						{	/* Eval/evaluate_comp.scm 319 */
							long BgL_arg3013z00_17145;

							BgL_arg3013z00_17145 =
								((long) CINT(BgL_bpz00_17143) + (long) CINT(BgL_iz00_15556));
							BgL_arg3012z00_17144 =
								VECTOR_REF(((obj_t) BgL_sz00_15557), BgL_arg3013z00_17145);
						}
						return STRUCT_REF(((obj_t) BgL_arg3012z00_17144), (int) (0L));
		}}}}

	}



/* &<@anonymous:3014> */
	obj_t BGl_z62zc3z04anonymousza33014ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15558, obj_t BgL_sz00_15560)
	{
		{	/* Eval/evaluate_comp.scm 319 */
			{	/* Eval/evaluate_comp.scm 319 */
				obj_t BgL_iz00_15559;

				BgL_iz00_15559 = PROCEDURE_REF(BgL_envz00_15558, (int) (0L));
				{	/* Eval/evaluate_comp.scm 319 */
					obj_t BgL_bpz00_17146;

					BgL_bpz00_17146 = VECTOR_REF(((obj_t) BgL_sz00_15560), 0L);
					{	/* Eval/evaluate_comp.scm 319 */
						long BgL_arg3017z00_17147;

						BgL_arg3017z00_17147 =
							((long) CINT(BgL_bpz00_17146) + (long) CINT(BgL_iz00_15559));
						return VECTOR_REF(((obj_t) BgL_sz00_15560), BgL_arg3017z00_17147);
					}
				}
			}
		}

	}



/* &comp-ev_trap1422 */
	obj_t BGl_z62compzd2ev_trap1422zb0zz__evaluate_compz00(obj_t BgL_envz00_15561,
		obj_t BgL_ez00_15562, obj_t BgL_stkz00_15563)
	{
		{	/* Eval/evaluate_comp.scm 289 */
			{	/* Eval/evaluate_comp.scm 291 */
				obj_t BgL_ez00_17149;

				{	/* Eval/evaluate_comp.scm 291 */
					BgL_ev_exprz00_bglt BgL_arg2978z00_17150;

					BgL_arg2978z00_17150 =
						(((BgL_ev_hookz00_bglt) COBJECT(
								((BgL_ev_hookz00_bglt)
									((BgL_ev_trapz00_bglt) BgL_ez00_15562))))->BgL_ez00);
					BgL_ez00_17149 =
						BGl_compz00zz__evaluate_compz00(BgL_arg2978z00_17150,
						BgL_stkz00_15563);
				}
				{	/* Eval/evaluate_comp.scm 292 */
					obj_t BgL_zc3z04anonymousza32972ze3z87_17151;

					BgL_zc3z04anonymousza32972ze3z87_17151 =
						MAKE_FX_PROCEDURE
						(BGl_z62zc3z04anonymousza32972ze3ze5zz__evaluate_compz00,
						(int) (1L), (int) (1L));
					PROCEDURE_SET(BgL_zc3z04anonymousza32972ze3z87_17151, (int) (0L),
						BgL_ez00_17149);
					return BgL_zc3z04anonymousza32972ze3z87_17151;
				}
			}
		}

	}



/* &<@anonymous:2972> */
	obj_t BGl_z62zc3z04anonymousza32972ze3ze5zz__evaluate_compz00(obj_t
		BgL_envz00_15564, obj_t BgL_sz00_15566)
	{
		{	/* Eval/evaluate_comp.scm 292 */
			{	/* Eval/evaluate_comp.scm 292 */
				obj_t BgL_ez00_15565;

				BgL_ez00_15565 = PROCEDURE_REF(BgL_envz00_15564, (int) (0L));
				{	/* Eval/evaluate_comp.scm 292 */
					obj_t BgL_bpz00_17152;

					BgL_bpz00_17152 = VECTOR_REF(((obj_t) BgL_sz00_15566), 0L);
					{	/* Eval/evaluate_comp.scm 293 */
						obj_t BgL_cmdz00_17153;

						BgL_cmdz00_17153 =
							BGL_PROCEDURE_CALL1(BgL_ez00_15565, BgL_sz00_15566);
						if ((BgL_cmdz00_17153 == BGl_symbol4713z00zz__evaluate_compz00))
							{	/* Eval/evaluate_comp.scm 294 */
								return BgL_bpz00_17152;
							}
						else
							{	/* Eval/evaluate_comp.scm 294 */
								if ((BgL_cmdz00_17153 == BGl_symbol4715z00zz__evaluate_compz00))
									{	/* Eval/evaluate_comp.scm 294 */
										return BGl_reset_profilez00zz__evaluate_compz00();
									}
								else
									{	/* Eval/evaluate_comp.scm 294 */
										if (
											(BgL_cmdz00_17153 ==
												BGl_symbol4717z00zz__evaluate_compz00))
											{	/* Eval/evaluate_comp.scm 294 */
												return BGl_get_profilez00zz__evaluate_compz00();
											}
										else
											{	/* Eval/evaluate_comp.scm 294 */
												if (
													(BgL_cmdz00_17153 ==
														BGl_symbol4719z00zz__evaluate_compz00))
													{	/* Eval/evaluate_comp.scm 302 */
														obj_t BgL_arg2977z00_17154;

														BgL_arg2977z00_17154 =
															BGl_findzd2statezd2zz__evaluate_compz00();
														return
															VECTOR_SET(
															((obj_t) BgL_arg2977z00_17154), 0L, BINT(2L));
													}
												else
													{	/* Eval/evaluate_comp.scm 294 */
														return
															BGl_errorz00zz__errorz00
															(BGl_string4577z00zz__evaluate_compz00,
															BGl_string4721z00zz__evaluate_compz00,
															BgL_cmdz00_17153);
													}
											}
									}
							}
					}
				}
			}
		}

	}



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

	}

#ifdef __cplusplus
}
#endif
