/*===========================================================================*/
/*   (Eval/evmeaning.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/evmeaning.scm -indent -o objs/obj_u/Eval/evmeaning.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___EVMEANING_TYPE_DEFINITIONS
#define BGL___EVMEANING_TYPE_DEFINITIONS
#endif													// BGL___EVMEANING_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	extern bool_t BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
	extern obj_t BGl_initzd2thezd2globalzd2environmentz12zc0zz__evenvz00(void);
	static obj_t BGl_evmeaningzd2bouncezd2175z00zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_evmeaningzd2bouncezd2176z00zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_evmeaningzd2tailcallzd24zd2stackzd2zz__evmeaningz00(obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31684ze3ze5zz__evmeaningz00(obj_t,
		obj_t);
	static obj_t BGl_requirezd2initializa7ationz75zz__evmeaningz00 = BUNSPEC;
	static obj_t BGl_evmeaningzd2bouncezd214z00zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31693ze3ze5zz__evmeaningz00(obj_t, obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_evmeaningzd2bouncezd217z00zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_evmeaningzd2bouncezd218z00zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_zc3z04exitza31609ze3ze70z60zz__evmeaningz00(obj_t, obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_evmeaningzd2bouncezd225z00zz__evmeaningz00(obj_t);
	static obj_t BGl_evmeaningzd2bouncezd226z00zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_evmeaningzd2bouncezd227z00zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_evmeaningzd2bouncezd228z00zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_evmeaningzd2bouncezd229z00zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__evmeaningz00(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__prognz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_input_6_10_2z00(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__rgcz00(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__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 *);
	extern obj_t BGl_evalzd2modulezd2zz__evmodulez00(void);
	static obj_t BGl_evmeaningzd2uninitializa7edz75zz__evmeaningz00(obj_t, obj_t);
	static obj_t BGl_evmeaningzd2funcallzd20z00zz__evmeaningz00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_evmeaningzd2funcallzd21z00zz__evmeaningz00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_evmeaningzd2funcallzd22z00zz__evmeaningz00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_evmeaningzd2funcallzd23z00zz__evmeaningz00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_evmeaningzd2funcallzd24z00zz__evmeaningz00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31712ze3ze5zz__evmeaningz00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_evmeaningzd2makezd24procedurez00zz__evmeaningz00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_evmeaningzd2bouncezd230z00zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_evmeaningzd2bouncezd236z00zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_evmeaningzd2bouncezd237z00zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_evmeaningzd2bouncezd238z00zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_evmeaningzd2bouncezd239z00zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	extern bool_t BGl_numberzf3zf3zz__r4_numbers_6_5z00(obj_t);
	static obj_t BGl_toplevelzd2initzd2zz__evmeaningz00(void);
	static obj_t BGl_zc3z04exitza31774ze3ze70z60zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_evmeaningzd2tailcallzd22zd2stackzd2zz__evmeaningz00(obj_t,
		obj_t, obj_t, obj_t);
	extern obj_t unwind_stack_until(obj_t, obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_evmeaningzd2bouncezd240z00zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_evmeaningzd2bouncezd241z00zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31963ze3ze5zz__evmeaningz00(obj_t,
		obj_t);
	static obj_t BGl_evmeaningzd2bouncezd242z00zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_evmeaningzd2bouncezd243z00zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_evmeaningzd2bouncezd244z00zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_evmeaningzd2bouncezd245z00zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_evmeaningzd2bouncezd246z00zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_evmeaningzd2bouncezd247z00zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_evmeaningzd2bouncezd248z00zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_evmeaningzd2bouncezd249z00zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	extern obj_t eval_funcall_0(obj_t);
	extern obj_t eval_funcall_1(obj_t, obj_t);
	extern obj_t BGl_formatz00zz__r4_output_6_10_3z00(obj_t, obj_t);
	extern obj_t eval_funcall_2(obj_t, obj_t, obj_t);
	extern obj_t eval_funcall_3(obj_t, obj_t, obj_t, obj_t);
	extern obj_t create_struct(obj_t, int);
	extern obj_t eval_funcall_4(obj_t, obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31706ze3ze5zz__evmeaningz00(obj_t, obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_evmeaningzd2bouncezd250z00zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31972ze3ze5zz__evmeaningz00(obj_t,
		obj_t);
	static obj_t BGl_evmeaningzd2bouncezd251z00zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_evmeaningzd2bouncezd252z00zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_evmeaningzd2bouncezd253z00zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_cnstzd2initzd2zz__evmeaningz00(void);
	static obj_t BGl_evmeaningzd2bouncezd254z00zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_evarityzd2errorzd2zz__everrorz00(obj_t, obj_t, int, int);
	extern bool_t BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_genericzd2initzd2zz__evmeaningz00(void);
	static obj_t BGl_z62evmeaningz62zz__evmeaningz00(obj_t, obj_t, obj_t, obj_t);
	extern long bgl_list_length(obj_t);
	static obj_t BGl_importedzd2moduleszd2initz00zz__evmeaningz00(void);
	static obj_t
		BGl_evmeaningzd2makezd2tracedzd24procedurezd2zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_gczd2rootszd2initz00zz__evmeaningz00(void);
	extern obj_t BGl_evwarningz00zz__everrorz00(obj_t, obj_t);
	extern obj_t BGl_evtypezd2errorzd2zz__everrorz00(obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31965ze3ze5zz__evmeaningz00(obj_t,
		obj_t);
	static obj_t BGl_objectzd2initzd2zz__evmeaningz00(void);
	static obj_t BGl_evmeaningzd2bouncezd264z00zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_2za2za2zz__r4_numbers_6_5z00(obj_t, obj_t);
	static obj_t BGl_evmeaningzd2bouncezd267z00zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_2zb2zb2zz__r4_numbers_6_5z00(obj_t, obj_t);
	static obj_t BGl_evmeaningzd2bouncezd268z00zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_2zd2zd2zz__r4_numbers_6_5z00(obj_t, obj_t);
	extern obj_t BGl_2zf2zf2zz__r4_numbers_6_5z00(obj_t, obj_t);
	static obj_t BGl_evmeaningzd2unboundzd2zz__evmeaningz00(obj_t, obj_t, obj_t);
	extern obj_t bgl_bignum_mul(obj_t, obj_t);
	extern obj_t BGl_evmodulezd2findzd2globalz00zz__evmodulez00(obj_t, obj_t);
	extern bool_t BGl_2zc3zc3zz__r4_numbers_6_5z00(obj_t, obj_t);
	extern bool_t BGl_2zd3zd3zz__r4_numbers_6_5z00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31732ze3ze5zz__evmeaningz00(obj_t,
		obj_t);
	extern bool_t BGl_2ze3ze3zz__r4_numbers_6_5z00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31724ze3ze5zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_evmeaningzd2bouncezd270z00zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_evmeaningzd2bouncezd271z00zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	extern obj_t bgl_reverse_bang(obj_t);
	extern obj_t BGl_makezd2listzd2zz__r4_pairs_and_lists_6_3z00(int, obj_t);
	static obj_t BGl_evmeaningzd2tailcallzd20zd2stackzd2zz__evmeaningz00(obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31741ze3ze5zz__evmeaningz00(obj_t);
	static obj_t BGl_z62zc3z04anonymousza31636ze3ze5zz__evmeaningz00(obj_t);
	static obj_t BGl_evmeaningzd2pushzd2fxargsz00zz__evmeaningz00(obj_t, obj_t,
		obj_t, obj_t, obj_t);
	extern bool_t BGl_evmodulezf3zf3zz__evmodulez00(obj_t);
	extern obj_t bgl_bignum_add(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31661ze3ze5zz__evmeaningz00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31653ze3ze5zz__evmeaningz00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31645ze3ze5zz__evmeaningz00(obj_t, obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31976ze3ze5zz__evmeaningz00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_evmeaningz00zz__evmeaningz00(obj_t, obj_t, obj_t);
	extern obj_t bstring_to_symbol(obj_t);
	static obj_t BGl_evmeaningzd2bouncezd27z00zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_evmeaningzd2bouncezd29z00zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_evmodulezd2namezd2zz__evmodulez00(obj_t);
	static obj_t BGl_evmeaningzd2tailcallzd23zd2stackzd2zz__evmeaningz00(obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31743ze3ze5zz__evmeaningz00(obj_t);
	static obj_t BGl_z62zc3z04anonymousza31735ze3ze5zz__evmeaningz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31719ze3ze5zz__evmeaningz00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31638ze3ze5zz__evmeaningz00(obj_t, obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_updatezd2evalzd2globalz12z12zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_appendzd221011zd2zz__evmeaningz00(obj_t, obj_t);
	static obj_t BGl_methodzd2initzd2zz__evmeaningz00(void);
	static obj_t BGl_z62zc3z04anonymousza31728ze3ze5zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_symbol2360z00zz__evmeaningz00 = BUNSPEC;
	static obj_t BGl_symbol2364z00zz__evmeaningz00 = BUNSPEC;
	extern obj_t BGl_everrorz00zz__everrorz00(obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_symbol2366z00zz__evmeaningz00 = BUNSPEC;
	static obj_t BGl_symbol2368z00zz__evmeaningz00 = BUNSPEC;
	extern bool_t BGl_2zc3zd3z10zz__r4_numbers_6_5z00(obj_t, obj_t);
	static obj_t BGl_z62__dummy__z62zz__evmeaningz00(obj_t, obj_t);
	static obj_t BGl_evmeaningzd2pushzd2vaargsz00zz__evmeaningz00(obj_t, obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl__loop_ze70ze7zz__evmeaningz00(obj_t, obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl__loop_ze71ze7zz__evmeaningz00(obj_t, obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t);
	extern obj_t bgl_bignum_sub(obj_t, obj_t);
	extern obj_t bgl_long_to_bignum(long);
	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);
	static obj_t BGl_evmeaningzd2tailcallzd21zd2stackzd2zz__evmeaningz00(obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31690ze3ze5zz__evmeaningz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31674ze3ze5zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	extern obj_t eval_apply(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31667ze3ze5zz__evmeaningz00(obj_t, obj_t,
		obj_t);
	static obj_t *__cnst;


	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_evmeaningzd2envzd2zz__evmeaningz00,
		BgL_bgl_za762evmeaningza762za72384za7, BGl_z62evmeaningz62zz__evmeaningz00,
		0L, BUNSPEC, 3);
	      BGL_DEFINE_STRING(BGl_string2355z00zz__evmeaningz00,
		BgL_bgl_string2355za700za7za7_2385za7,
		"Unbound variable (from module `~a')", 35);
	      BGL_DEFINE_STRING(BGl_string2356z00zz__evmeaningz00,
		BgL_bgl_string2356za700za7za7_2386za7, "Unbound variable (from top-level)",
		33);
	      BGL_DEFINE_STRING(BGl_string2357z00zz__evmeaningz00,
		BgL_bgl_string2357za700za7za7_2387za7, "eval", 4);
	      BGL_DEFINE_STRING(BGl_string2358z00zz__evmeaningz00,
		BgL_bgl_string2358za700za7za7_2388za7, "Uninitialized variable", 22);
	      BGL_DEFINE_STRING(BGl_string2359z00zz__evmeaningz00,
		BgL_bgl_string2359za700za7za7_2389za7, "unknown byte-code", 17);
	      BGL_DEFINE_STRING(BGl_string2361z00zz__evmeaningz00,
		BgL_bgl_string2361za700za7za7_2390za7, "evprocedure", 11);
	      BGL_DEFINE_STRING(BGl_string2362z00zz__evmeaningz00,
		BgL_bgl_string2362za700za7za7_2391za7, "apply", 5);
	      BGL_DEFINE_STRING(BGl_string2363z00zz__evmeaningz00,
		BgL_bgl_string2363za700za7za7_2392za7, "Not a procedure", 15);
	      BGL_DEFINE_STRING(BGl_string2365z00zz__evmeaningz00,
		BgL_bgl_string2365za700za7za7_2393za7, "number", 6);
	      BGL_DEFINE_STRING(BGl_string2367z00zz__evmeaningz00,
		BgL_bgl_string2367za700za7za7_2394za7, "fixnum", 6);
	      BGL_DEFINE_STRING(BGl_string2369z00zz__evmeaningz00,
		BgL_bgl_string2369za700za7za7_2395za7, "pair", 4);
	      BGL_DEFINE_STRING(BGl_string2370z00zz__evmeaningz00,
		BgL_bgl_string2370za700za7za7_2396za7,
		"/tmp/bigloo/runtime/Eval/evmeaning.scm", 38);
	      BGL_DEFINE_STRING(BGl_string2371z00zz__evmeaningz00,
		BgL_bgl_string2371za700za7za7_2397za7, "&evmeaning", 10);
	      BGL_DEFINE_STRING(BGl_string2372z00zz__evmeaningz00,
		BgL_bgl_string2372za700za7za7_2398za7, "pair-nil", 8);
	      BGL_DEFINE_STRING(BGl_string2373z00zz__evmeaningz00,
		BgL_bgl_string2373za700za7za7_2399za7, "dynamic-env", 11);
	      BGL_DEFINE_STRING(BGl_string2374z00zz__evmeaningz00,
		BgL_bgl_string2374za700za7za7_2400za7, "synchronize", 11);
	      BGL_DEFINE_STRING(BGl_string2375z00zz__evmeaningz00,
		BgL_bgl_string2375za700za7za7_2401za7, "mutex", 5);
	      BGL_DEFINE_STRING(BGl_string2376z00zz__evmeaningz00,
		BgL_bgl_string2376za700za7za7_2402za7, "with-handler", 12);
	      BGL_DEFINE_STRING(BGl_string2377z00zz__evmeaningz00,
		BgL_bgl_string2377za700za7za7_2403za7, "procedure", 9);
	      BGL_DEFINE_STRING(BGl_string2378z00zz__evmeaningz00,
		BgL_bgl_string2378za700za7za7_2404za7,
		"Read-only variable cannot be redefined", 38);
	      BGL_DEFINE_STRING(BGl_string2379z00zz__evmeaningz00,
		BgL_bgl_string2379za700za7za7_2405za7,
		"Compiled read-only variable cannot be redefined", 47);
	      BGL_DEFINE_STRING(BGl_string2380z00zz__evmeaningz00,
		BgL_bgl_string2380za700za7za7_2406za7,
		"\nRedefinition of compiled variable -- ", 38);
	      BGL_DEFINE_STRING(BGl_string2381z00zz__evmeaningz00,
		BgL_bgl_string2381za700za7za7_2407za7, "set!", 4);
	      BGL_DEFINE_STRING(BGl_string2382z00zz__evmeaningz00,
		BgL_bgl_string2382za700za7za7_2408za7, "read-only variable", 18);
	      BGL_DEFINE_STRING(BGl_string2383z00zz__evmeaningz00,
		BgL_bgl_string2383za700za7za7_2409za7, "__evmeaning", 11);

/* contant bindings */
	static void bgl_constant_bindings()
	{
		BGL_BIND_STRING(BGl_string2383z00zz__evmeaningz00,
			BgL_bgl_string2383za700za7za7_2409za7);
		BGL_BIND_STRING(BGl_string2382z00zz__evmeaningz00,
			BgL_bgl_string2382za700za7za7_2408za7);
		BGL_BIND_STRING(BGl_string2381z00zz__evmeaningz00,
			BgL_bgl_string2381za700za7za7_2407za7);
		BGL_BIND_STRING(BGl_string2380z00zz__evmeaningz00,
			BgL_bgl_string2380za700za7za7_2406za7);
		BGL_BIND_STRING(BGl_string2379z00zz__evmeaningz00,
			BgL_bgl_string2379za700za7za7_2405za7);
		BGL_BIND_STRING(BGl_string2378z00zz__evmeaningz00,
			BgL_bgl_string2378za700za7za7_2404za7);
		BGL_BIND_STRING(BGl_string2377z00zz__evmeaningz00,
			BgL_bgl_string2377za700za7za7_2403za7);
		BGL_BIND_STRING(BGl_string2376z00zz__evmeaningz00,
			BgL_bgl_string2376za700za7za7_2402za7);
		BGL_BIND_STRING(BGl_string2375z00zz__evmeaningz00,
			BgL_bgl_string2375za700za7za7_2401za7);
		BGL_BIND_STRING(BGl_string2374z00zz__evmeaningz00,
			BgL_bgl_string2374za700za7za7_2400za7);
		BGL_BIND_STRING(BGl_string2373z00zz__evmeaningz00,
			BgL_bgl_string2373za700za7za7_2399za7);
		BGL_BIND_STRING(BGl_string2372z00zz__evmeaningz00,
			BgL_bgl_string2372za700za7za7_2398za7);
		BGL_BIND_STRING(BGl_string2371z00zz__evmeaningz00,
			BgL_bgl_string2371za700za7za7_2397za7);
		BGL_BIND_STRING(BGl_string2370z00zz__evmeaningz00,
			BgL_bgl_string2370za700za7za7_2396za7);
		BGL_BIND_STRING(BGl_string2369z00zz__evmeaningz00,
			BgL_bgl_string2369za700za7za7_2395za7);
		BGL_BIND_STRING(BGl_string2367z00zz__evmeaningz00,
			BgL_bgl_string2367za700za7za7_2394za7);
		BGL_BIND_STRING(BGl_string2365z00zz__evmeaningz00,
			BgL_bgl_string2365za700za7za7_2393za7);
		BGL_BIND_STRING(BGl_string2363z00zz__evmeaningz00,
			BgL_bgl_string2363za700za7za7_2392za7);
		BGL_BIND_STRING(BGl_string2362z00zz__evmeaningz00,
			BgL_bgl_string2362za700za7za7_2391za7);
		BGL_BIND_STRING(BGl_string2361z00zz__evmeaningz00,
			BgL_bgl_string2361za700za7za7_2390za7);
		BGL_BIND_STRING(BGl_string2359z00zz__evmeaningz00,
			BgL_bgl_string2359za700za7za7_2389za7);
		BGL_BIND_STRING(BGl_string2358z00zz__evmeaningz00,
			BgL_bgl_string2358za700za7za7_2388za7);
		BGL_BIND_STRING(BGl_string2357z00zz__evmeaningz00,
			BgL_bgl_string2357za700za7za7_2387za7);
		BGL_BIND_STRING(BGl_string2356z00zz__evmeaningz00,
			BgL_bgl_string2356za700za7za7_2386za7);
		BGL_BIND_STRING(BGl_string2355z00zz__evmeaningz00,
			BgL_bgl_string2355za700za7za7_2385za7);
		BGL_BIND_PROCEDURE(BGl_evmeaningzd2envzd2zz__evmeaningz00,
			BgL_bgl_za762evmeaningza762za72384za7);
	}

/* 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__evmeaningz00));
		ADD_ROOT((void *) (&BGl_symbol2360z00zz__evmeaningz00));
		ADD_ROOT((void *) (&BGl_symbol2364z00zz__evmeaningz00));
		ADD_ROOT((void *) (&BGl_symbol2366z00zz__evmeaningz00));
		ADD_ROOT((void *) (&BGl_symbol2368z00zz__evmeaningz00));
#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__evmeaningz00(long
		BgL_checksumz00_4263, char *BgL_fromz00_4264)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__evmeaningz00))
				{
					BGl_requirezd2initializa7ationz75zz__evmeaningz00 =
						BBOOL(((bool_t) 0));
					bgl_constant_bindings();
					BGl_gczd2rootszd2initz00zz__evmeaningz00();
					BGl_cnstzd2initzd2zz__evmeaningz00();
					BGl_importedzd2moduleszd2initz00zz__evmeaningz00();
					return BGl_toplevelzd2initzd2zz__evmeaningz00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zz__evmeaningz00(void)
	{
		{	/* Eval/evmeaning.scm 14 */
			BGl_symbol2360z00zz__evmeaningz00 =
				bstring_to_symbol(BGl_string2361z00zz__evmeaningz00);
			BGl_symbol2364z00zz__evmeaningz00 =
				bstring_to_symbol(BGl_string2365z00zz__evmeaningz00);
			BGl_symbol2366z00zz__evmeaningz00 =
				bstring_to_symbol(BGl_string2367z00zz__evmeaningz00);
			return (BGl_symbol2368z00zz__evmeaningz00 =
				bstring_to_symbol(BGl_string2369z00zz__evmeaningz00), BUNSPEC);
		}

	}



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

	}



/* toplevel-init */
	obj_t BGl_toplevelzd2initzd2zz__evmeaningz00(void)
	{
		{	/* Eval/evmeaning.scm 14 */
			BGL_TAIL return BGl_initzd2thezd2globalzd2environmentz12zc0zz__evenvz00();
		}

	}



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

					BgL_headz00_1395 = MAKE_YOUNG_PAIR(BNIL, BgL_l2z00_2);
					{
						obj_t BgL_prevz00_1396;
						obj_t BgL_tailz00_1397;

						BgL_prevz00_1396 = BgL_headz00_1395;
						BgL_tailz00_1397 = BgL_l1z00_1;
					BgL_loopz00_1398:
						if (PAIRP(BgL_tailz00_1397))
							{
								obj_t BgL_newzd2prevzd2_1400;

								BgL_newzd2prevzd2_1400 =
									MAKE_YOUNG_PAIR(CAR(BgL_tailz00_1397), BgL_l2z00_2);
								SET_CDR(BgL_prevz00_1396, BgL_newzd2prevzd2_1400);
								{
									obj_t BgL_tailz00_4288;
									obj_t BgL_prevz00_4287;

									BgL_prevz00_4287 = BgL_newzd2prevzd2_1400;
									BgL_tailz00_4288 = CDR(BgL_tailz00_1397);
									BgL_tailz00_1397 = BgL_tailz00_4288;
									BgL_prevz00_1396 = BgL_prevz00_4287;
									goto BgL_loopz00_1398;
								}
							}
						else
							{
								BNIL;
							}
						return CDR(BgL_headz00_1395);
					}
				}
		}

	}



/* evmeaning-unbound */
	obj_t BGl_evmeaningzd2unboundzd2zz__evmeaningz00(obj_t BgL_locz00_3,
		obj_t BgL_namez00_4, obj_t BgL_modz00_5)
	{
		{	/* Eval/evmeaning.scm 165 */
			{	/* Eval/evmeaning.scm 168 */
				obj_t BgL_arg1287z00_1403;

				if (BGl_evmodulezf3zf3zz__evmodulez00(BgL_modz00_5))
					{	/* Eval/evmeaning.scm 170 */
						obj_t BgL_arg1291z00_1405;

						BgL_arg1291z00_1405 =
							BGl_evmodulezd2namezd2zz__evmodulez00(BgL_modz00_5);
						{	/* Eval/evmeaning.scm 169 */
							obj_t BgL_list1292z00_1406;

							BgL_list1292z00_1406 = MAKE_YOUNG_PAIR(BgL_arg1291z00_1405, BNIL);
							BgL_arg1287z00_1403 =
								BGl_formatz00zz__r4_output_6_10_3z00
								(BGl_string2355z00zz__evmeaningz00, BgL_list1292z00_1406);
						}
					}
				else
					{	/* Eval/evmeaning.scm 168 */
						BgL_arg1287z00_1403 = BGl_string2356z00zz__evmeaningz00;
					}
				return
					BGl_everrorz00zz__everrorz00(BgL_locz00_3,
					BGl_string2357z00zz__evmeaningz00, BgL_arg1287z00_1403,
					BgL_namez00_4);
			}
		}

	}



/* evmeaning-uninitialized */
	obj_t BGl_evmeaningzd2uninitializa7edz75zz__evmeaningz00(obj_t BgL_locz00_6,
		obj_t BgL_namez00_7)
	{
		{	/* Eval/evmeaning.scm 177 */
			return
				BGl_everrorz00zz__everrorz00(BgL_locz00_6,
				BGl_string2357z00zz__evmeaningz00, BGl_string2358z00zz__evmeaningz00,
				BgL_namez00_7);
		}

	}



/* evmeaning */
	BGL_EXPORTED_DEF obj_t BGl_evmeaningz00zz__evmeaningz00(obj_t BgL_codez00_8,
		obj_t BgL_stackz00_9, obj_t BgL_denvz00_10)
	{
		{	/* Eval/evmeaning.scm 183 */
		BGl_evmeaningz00zz__evmeaningz00:
			if (VECTORP(BgL_codez00_8))
				{

					{	/* Eval/evmeaning.scm 186 */
						obj_t BgL_aux1079z00_1411;

						BgL_aux1079z00_1411 = VECTOR_REF(BgL_codez00_8, 0L);
						if (INTEGERP(BgL_aux1079z00_1411))
							{	/* Eval/evmeaning.scm 186 */
								switch ((long) CINT(BgL_aux1079z00_1411))
									{
									case (-2L):

										{	/* Eval/evmeaning.scm 189 */
											obj_t BgL_runner1302z00_1419;

											{	/* Eval/evmeaning.scm 189 */
												obj_t BgL_arg1295z00_1412;
												obj_t BgL_arg1296z00_1413;

												BgL_arg1295z00_1412 = VECTOR_REF(BgL_codez00_8, 1L);
												BgL_arg1296z00_1413 = VECTOR_REF(BgL_codez00_8, 2L);
												{	/* Eval/evmeaning.scm 189 */
													obj_t BgL_list1297z00_1414;

													BgL_list1297z00_1414 =
														MAKE_YOUNG_PAIR(BgL_arg1296z00_1413, BNIL);
													BgL_runner1302z00_1419 =
														BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
														(BgL_arg1295z00_1412, BgL_list1297z00_1414);
												}
											}
											{	/* Eval/evmeaning.scm 189 */
												obj_t BgL_aux1298z00_1415;

												BgL_aux1298z00_1415 = CAR(BgL_runner1302z00_1419);
												BgL_runner1302z00_1419 = CDR(BgL_runner1302z00_1419);
												{	/* Eval/evmeaning.scm 189 */
													obj_t BgL_aux1299z00_1416;

													BgL_aux1299z00_1416 = CAR(BgL_runner1302z00_1419);
													BgL_runner1302z00_1419 = CDR(BgL_runner1302z00_1419);
													{	/* Eval/evmeaning.scm 189 */
														obj_t BgL_aux1300z00_1417;

														BgL_aux1300z00_1417 = CAR(BgL_runner1302z00_1419);
														BgL_runner1302z00_1419 =
															CDR(BgL_runner1302z00_1419);
														return
															BGl_everrorz00zz__everrorz00(BgL_aux1298z00_1415,
															BgL_aux1299z00_1416, BgL_aux1300z00_1417,
															CAR(BgL_runner1302z00_1419));
													}
												}
											}
										}
										break;
									case (-1L):

										return VECTOR_REF(BgL_codez00_8, 2L);
										break;
									case 0L:

										return CAR(((obj_t) BgL_stackz00_9));
										break;
									case 1L:

										{	/* Eval/evmeaning.scm 198 */
											obj_t BgL_pairz00_2890;

											BgL_pairz00_2890 = CDR(((obj_t) BgL_stackz00_9));
											return CAR(BgL_pairz00_2890);
										}
										break;
									case 2L:

										{	/* Eval/evmeaning.scm 201 */
											obj_t BgL_pairz00_2896;

											{	/* Eval/evmeaning.scm 201 */
												obj_t BgL_pairz00_2895;

												BgL_pairz00_2895 = CDR(((obj_t) BgL_stackz00_9));
												BgL_pairz00_2896 = CDR(BgL_pairz00_2895);
											}
											return CAR(BgL_pairz00_2896);
										}
										break;
									case 3L:

										{	/* Eval/evmeaning.scm 204 */
											obj_t BgL_pairz00_2904;

											{	/* Eval/evmeaning.scm 204 */
												obj_t BgL_pairz00_2903;

												{	/* Eval/evmeaning.scm 204 */
													obj_t BgL_pairz00_2902;

													BgL_pairz00_2902 = CDR(((obj_t) BgL_stackz00_9));
													BgL_pairz00_2903 = CDR(BgL_pairz00_2902);
												}
												BgL_pairz00_2904 = CDR(BgL_pairz00_2903);
											}
											return CAR(BgL_pairz00_2904);
										}
										break;
									case 4L:

										{	/* Eval/evmeaning.scm 207 */
											obj_t BgL_offsetz00_1420;

											BgL_offsetz00_1420 = VECTOR_REF(BgL_codez00_8, 2L);
											{
												long BgL_iz00_1423;
												obj_t BgL_envz00_1424;

												BgL_iz00_1423 = 4L;
												{	/* Eval/evmeaning.scm 209 */
													obj_t BgL_pairz00_2918;

													{	/* Eval/evmeaning.scm 209 */
														obj_t BgL_pairz00_2917;

														{	/* Eval/evmeaning.scm 209 */
															obj_t BgL_pairz00_2916;

															BgL_pairz00_2916 = CDR(((obj_t) BgL_stackz00_9));
															BgL_pairz00_2917 = CDR(BgL_pairz00_2916);
														}
														BgL_pairz00_2918 = CDR(BgL_pairz00_2917);
													}
													BgL_envz00_1424 = CDR(BgL_pairz00_2918);
												}
											BgL_zc3z04anonymousza31323ze3z87_1425:
												if ((BgL_iz00_1423 == (long) CINT(BgL_offsetz00_1420)))
													{	/* Eval/evmeaning.scm 208 */
														return CAR(((obj_t) BgL_envz00_1424));
													}
												else
													{
														obj_t BgL_envz00_4338;
														long BgL_iz00_4336;

														BgL_iz00_4336 = (BgL_iz00_1423 + 1L);
														BgL_envz00_4338 = CDR(((obj_t) BgL_envz00_1424));
														BgL_envz00_1424 = BgL_envz00_4338;
														BgL_iz00_1423 = BgL_iz00_4336;
														goto BgL_zc3z04anonymousza31323ze3z87_1425;
													}
											}
										}
										break;
									case 5L:

										{	/* Eval/evmeaning.scm 214 */
											obj_t BgL_arg1331z00_1430;

											{	/* Eval/evmeaning.scm 214 */
												obj_t BgL_arg1332z00_1431;

												BgL_arg1332z00_1431 = VECTOR_REF(BgL_codez00_8, 2L);
												BgL_arg1331z00_1430 =
													VECTOR_REF(((obj_t) BgL_arg1332z00_1431), 2L);
											}
											return __EVMEANING_ADDRESS_REF(BgL_arg1331z00_1430);
										}
										break;
									case 6L:

										{	/* Eval/evmeaning.scm 217 */
											obj_t BgL_gz00_1432;

											BgL_gz00_1432 = VECTOR_REF(BgL_codez00_8, 2L);
											{	/* Eval/evmeaning.scm 217 */
												obj_t BgL_valz00_1433;

												BgL_valz00_1433 =
													VECTOR_REF(((obj_t) BgL_gz00_1432), 2L);
												{	/* Eval/evmeaning.scm 218 */

													if ((BgL_valz00_1433 == BUNSPEC))
														{	/* Eval/evmeaning.scm 220 */
															int BgL_tagz00_1434;

															{	/* Eval/evmeaning.scm 220 */
																int BgL_res2324z00_2927;

																BgL_res2324z00_2927 =
																	CINT(VECTOR_REF(((obj_t) BgL_gz00_1432), 0L));
																BgL_tagz00_1434 = BgL_res2324z00_2927;
															}
															{	/* Eval/evmeaning.scm 221 */
																bool_t BgL_test2418z00_4358;

																if (((long) (BgL_tagz00_1434) == 3L))
																	{	/* Eval/evmeaning.scm 221 */
																		BgL_test2418z00_4358 = ((bool_t) 1);
																	}
																else
																	{	/* Eval/evmeaning.scm 221 */
																		BgL_test2418z00_4358 =
																			((long) (BgL_tagz00_1434) == 4L);
																	}
																if (BgL_test2418z00_4358)
																	{	/* Eval/evmeaning.scm 223 */
																		obj_t BgL_arg1335z00_1437;
																		obj_t BgL_arg1336z00_1438;

																		BgL_arg1335z00_1437 =
																			VECTOR_REF(BgL_codez00_8, 1L);
																		BgL_arg1336z00_1438 =
																			VECTOR_REF(((obj_t) BgL_gz00_1432), 1L);
																		return
																			BGl_evmeaningzd2uninitializa7edz75zz__evmeaningz00
																			(BgL_arg1335z00_1437,
																			BgL_arg1336z00_1438);
																	}
																else
																	{	/* Eval/evmeaning.scm 221 */
																		return BgL_valz00_1433;
																	}
															}
														}
													else
														{	/* Eval/evmeaning.scm 219 */
															return BgL_valz00_1433;
														}
												}
											}
										}
										break;
									case 7L:

										return
											BGl_evmeaningzd2bouncezd27z00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10);
										break;
									case 8L:

										{	/* Eval/evmeaning.scm 241 */
											obj_t BgL_varz00_1440;
											obj_t BgL_valz00_1441;

											BgL_varz00_1440 = VECTOR_REF(BgL_codez00_8, 2L);
											BgL_valz00_1441 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 3L), BgL_stackz00_9, BgL_denvz00_10);
											BGl_updatezd2evalzd2globalz12z12zz__evmeaningz00
												(BgL_codez00_8, BgL_varz00_1440, BgL_valz00_1441);
											return BUNSPEC;
										}
										break;
									case 9L:

										return
											BGl_evmeaningzd2bouncezd29z00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10);
										break;
									case 10L:

										{	/* Eval/evmeaning.scm 260 */
											obj_t BgL_arg1338z00_1443;

											BgL_arg1338z00_1443 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 2L), BgL_stackz00_9, BgL_denvz00_10);
											{	/* Eval/evmeaning.scm 260 */
												obj_t BgL_tmpz00_4376;

												BgL_tmpz00_4376 = ((obj_t) BgL_stackz00_9);
												SET_CAR(BgL_tmpz00_4376, BgL_arg1338z00_1443);
											}
										}
										return BUNSPEC;
										break;
									case 11L:

										{	/* Eval/evmeaning.scm 264 */
											obj_t BgL_arg1341z00_1445;
											obj_t BgL_arg1342z00_1446;

											BgL_arg1341z00_1445 = CDR(((obj_t) BgL_stackz00_9));
											BgL_arg1342z00_1446 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 2L), BgL_stackz00_9, BgL_denvz00_10);
											{	/* Eval/evmeaning.scm 264 */
												obj_t BgL_tmpz00_4383;

												BgL_tmpz00_4383 = ((obj_t) BgL_arg1341z00_1445);
												SET_CAR(BgL_tmpz00_4383, BgL_arg1342z00_1446);
											}
										}
										return BUNSPEC;
										break;
									case 12L:

										{	/* Eval/evmeaning.scm 268 */
											obj_t BgL_arg1345z00_1448;
											obj_t BgL_arg1346z00_1449;

											{	/* Eval/evmeaning.scm 268 */
												obj_t BgL_pairz00_2946;

												BgL_pairz00_2946 = CDR(((obj_t) BgL_stackz00_9));
												BgL_arg1345z00_1448 = CDR(BgL_pairz00_2946);
											}
											BgL_arg1346z00_1449 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 2L), BgL_stackz00_9, BgL_denvz00_10);
											{	/* Eval/evmeaning.scm 268 */
												obj_t BgL_tmpz00_4391;

												BgL_tmpz00_4391 = ((obj_t) BgL_arg1345z00_1448);
												SET_CAR(BgL_tmpz00_4391, BgL_arg1346z00_1449);
											}
										}
										return BUNSPEC;
										break;
									case 13L:

										{	/* Eval/evmeaning.scm 272 */
											obj_t BgL_arg1349z00_1451;
											obj_t BgL_arg1351z00_1452;

											{	/* Eval/evmeaning.scm 272 */
												obj_t BgL_pairz00_2955;

												{	/* Eval/evmeaning.scm 272 */
													obj_t BgL_pairz00_2954;

													BgL_pairz00_2954 = CDR(((obj_t) BgL_stackz00_9));
													BgL_pairz00_2955 = CDR(BgL_pairz00_2954);
												}
												BgL_arg1349z00_1451 = CDR(BgL_pairz00_2955);
											}
											BgL_arg1351z00_1452 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 2L), BgL_stackz00_9, BgL_denvz00_10);
											{	/* Eval/evmeaning.scm 272 */
												obj_t BgL_tmpz00_4400;

												BgL_tmpz00_4400 = ((obj_t) BgL_arg1349z00_1451);
												SET_CAR(BgL_tmpz00_4400, BgL_arg1351z00_1452);
											}
										}
										return BUNSPEC;
										break;
									case 14L:

										return
											BGl_evmeaningzd2bouncezd214z00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10);
										break;
									case 15L:

										{	/* Eval/evmeaning.scm 284 */
											bool_t BgL_test2420z00_4404;

											{	/* Eval/evmeaning.scm 284 */
												obj_t BgL_arg1357z00_1458;

												BgL_arg1357z00_1458 = VECTOR_REF(BgL_codez00_8, 2L);
												BgL_test2420z00_4404 =
													CBOOL(BGl_evmeaningz00zz__evmeaningz00
													(BgL_arg1357z00_1458, BgL_stackz00_9,
														BgL_denvz00_10));
											}
											if (BgL_test2420z00_4404)
												{
													obj_t BgL_codez00_4408;

													BgL_codez00_4408 = VECTOR_REF(BgL_codez00_8, 3L);
													BgL_codez00_8 = BgL_codez00_4408;
													goto BGl_evmeaningz00zz__evmeaningz00;
												}
											else
												{
													obj_t BgL_codez00_4410;

													BgL_codez00_4410 = VECTOR_REF(BgL_codez00_8, 4L);
													BgL_codez00_8 = BgL_codez00_4410;
													goto BGl_evmeaningz00zz__evmeaningz00;
												}
										}
										break;
									case 16L:

										{	/* Eval/evmeaning.scm 289 */
											long BgL_lenz00_1459;

											BgL_lenz00_1459 =
												((VECTOR_LENGTH(BgL_codez00_8) - 2L) - 1L);
											{
												long BgL_iz00_1461;

												BgL_iz00_1461 = 0L;
											BgL_zc3z04anonymousza31358ze3z87_1462:
												if ((BgL_iz00_1461 == BgL_lenz00_1459))
													{	/* Eval/evmeaning.scm 292 */
														obj_t BgL_arg1360z00_1464;

														{	/* Eval/evmeaning.scm 292 */
															long BgL_arg1361z00_1465;

															BgL_arg1361z00_1465 = (BgL_iz00_1461 + 2L);
															BgL_arg1360z00_1464 =
																VECTOR_REF(
																((obj_t) BgL_codez00_8), BgL_arg1361z00_1465);
														}
														{
															obj_t BgL_codez00_4420;

															BgL_codez00_4420 = BgL_arg1360z00_1464;
															BgL_codez00_8 = BgL_codez00_4420;
															goto BGl_evmeaningz00zz__evmeaningz00;
														}
													}
												else
													{	/* Eval/evmeaning.scm 291 */
														{	/* Eval/evmeaning.scm 294 */
															obj_t BgL_arg1362z00_1466;

															{	/* Eval/evmeaning.scm 294 */
																long BgL_arg1363z00_1467;

																BgL_arg1363z00_1467 = (BgL_iz00_1461 + 2L);
																BgL_arg1362z00_1466 =
																	VECTOR_REF(
																	((obj_t) BgL_codez00_8), BgL_arg1363z00_1467);
															}
															BGl_evmeaningz00zz__evmeaningz00
																(BgL_arg1362z00_1466, BgL_stackz00_9,
																BgL_denvz00_10);
														}
														{
															long BgL_iz00_4425;

															BgL_iz00_4425 = (BgL_iz00_1461 + 1L);
															BgL_iz00_1461 = BgL_iz00_4425;
															goto BgL_zc3z04anonymousza31358ze3z87_1462;
														}
													}
											}
										}
										break;
									case 17L:

										return
											BGl_evmeaningzd2bouncezd217z00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10);
										break;
									case 18L:

										return
											BGl_evmeaningzd2bouncezd218z00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10);
										break;
									case 25L:

										return
											BGl_evmeaningzd2bouncezd225z00zz__evmeaningz00
											(BgL_codez00_8);
										break;
									case 26L:

										return
											BGl_evmeaningzd2bouncezd226z00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10);
										break;
									case 27L:

										return
											BGl_evmeaningzd2bouncezd227z00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10);
										break;
									case 28L:

										return
											BGl_evmeaningzd2bouncezd228z00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10);
										break;
									case 29L:

										return
											BGl_evmeaningzd2bouncezd229z00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10);
										break;
									case 30L:

										return
											BGl_evmeaningzd2bouncezd230z00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10);
										break;
									case 31L:

										return
											BGl_evmeaningzd2funcallzd20z00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10,
											BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF(BgL_codez00_8,
													3L), BgL_stackz00_9, BgL_denvz00_10));
										break;
									case 32L:

										return
											BGl_evmeaningzd2funcallzd21z00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10,
											BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF(BgL_codez00_8,
													3L), BgL_stackz00_9, BgL_denvz00_10));
										break;
									case 33L:

										return
											BGl_evmeaningzd2funcallzd22z00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10,
											BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF(BgL_codez00_8,
													3L), BgL_stackz00_9, BgL_denvz00_10));
										break;
									case 34L:

										return
											BGl_evmeaningzd2funcallzd23z00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10,
											BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF(BgL_codez00_8,
													3L), BgL_stackz00_9, BgL_denvz00_10));
										break;
									case 35L:

										return
											BGl_evmeaningzd2funcallzd24z00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10,
											BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF(BgL_codez00_8,
													3L), BgL_stackz00_9, BgL_denvz00_10));
										break;
									case 36L:

										return
											BGl_evmeaningzd2bouncezd236z00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10);
										break;
									case 37L:

										return
											BGl_evmeaningzd2bouncezd237z00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10);
										break;
									case 42L:

										return
											BGl_evmeaningzd2bouncezd242z00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10);
										break;
									case 38L:

										return
											BGl_evmeaningzd2bouncezd238z00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10);
										break;
									case 43L:

										return
											BGl_evmeaningzd2bouncezd243z00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10);
										break;
									case 39L:

										return
											BGl_evmeaningzd2bouncezd239z00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10);
										break;
									case 44L:

										return
											BGl_evmeaningzd2bouncezd244z00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10);
										break;
									case 40L:

										return
											BGl_evmeaningzd2bouncezd240z00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10);
										break;
									case 45L:

										return
											BGl_evmeaningzd2bouncezd245z00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10);
										break;
									case 41L:

										return
											BGl_evmeaningzd2bouncezd241z00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10);
										break;
									case 46L:

										return
											BGl_evmeaningzd2bouncezd246z00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10);
										break;
									case 47L:

										return
											BGl_evmeaningzd2bouncezd247z00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10);
										break;
									case 51L:

										return
											BGl_evmeaningzd2bouncezd251z00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10);
										break;
									case 48L:

										return
											BGl_evmeaningzd2bouncezd248z00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10);
										break;
									case 52L:

										return
											BGl_evmeaningzd2bouncezd252z00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10);
										break;
									case 49L:

										return
											BGl_evmeaningzd2bouncezd249z00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10);
										break;
									case 53L:

										return
											BGl_evmeaningzd2bouncezd253z00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10);
										break;
									case 50L:

										return
											BGl_evmeaningzd2bouncezd250z00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10);
										break;
									case 54L:

										return
											BGl_evmeaningzd2bouncezd254z00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10);
										break;
									case 55L:

										return
											BGl_evmeaningzd2makezd2tracedzd24procedurezd2zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10);
										break;
									case 56L:

										return
											BGl_evmeaningzd2makezd24procedurez00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10);
										break;
									case 64L:

										return
											BGl_evmeaningzd2bouncezd264z00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10);
										break;
									case 65L:

										{	/* Eval/evmeaning.scm 706 */
											obj_t BgL_g1081z00_1482;

											BgL_g1081z00_1482 = VECTOR_REF(BgL_codez00_8, 3L);
											{
												obj_t BgL_valsz00_1484;
												obj_t BgL_envz00_1485;

												BgL_valsz00_1484 = BgL_g1081z00_1482;
												BgL_envz00_1485 = BgL_stackz00_9;
											BgL_zc3z04anonymousza31372ze3z87_1486:
												if (NULLP(BgL_valsz00_1484))
													{	/* Eval/evmeaning.scm 709 */
														obj_t BgL_arg1374z00_1488;

														BgL_arg1374z00_1488 =
															VECTOR_REF(((obj_t) BgL_codez00_8), 2L);
														{
															obj_t BgL_stackz00_4478;
															obj_t BgL_codez00_4477;

															BgL_codez00_4477 = BgL_arg1374z00_1488;
															BgL_stackz00_4478 = BgL_envz00_1485;
															BgL_stackz00_9 = BgL_stackz00_4478;
															BgL_codez00_8 = BgL_codez00_4477;
															goto BGl_evmeaningz00zz__evmeaningz00;
														}
													}
												else
													{	/* Eval/evmeaning.scm 710 */
														obj_t BgL_vz00_1489;

														{	/* Eval/evmeaning.scm 710 */
															obj_t BgL_arg1378z00_1492;

															BgL_arg1378z00_1492 =
																CAR(((obj_t) BgL_valsz00_1484));
															BgL_vz00_1489 =
																BGl_evmeaningz00zz__evmeaningz00
																(BgL_arg1378z00_1492, BgL_stackz00_9,
																BgL_denvz00_10);
														}
														{	/* Eval/evmeaning.scm 711 */
															obj_t BgL_arg1376z00_1490;
															obj_t BgL_arg1377z00_1491;

															BgL_arg1376z00_1490 =
																CDR(((obj_t) BgL_valsz00_1484));
															BgL_arg1377z00_1491 =
																MAKE_YOUNG_PAIR(BgL_vz00_1489, BgL_envz00_1485);
															{
																obj_t BgL_envz00_4486;
																obj_t BgL_valsz00_4485;

																BgL_valsz00_4485 = BgL_arg1376z00_1490;
																BgL_envz00_4486 = BgL_arg1377z00_1491;
																BgL_envz00_1485 = BgL_envz00_4486;
																BgL_valsz00_1484 = BgL_valsz00_4485;
																goto BgL_zc3z04anonymousza31372ze3z87_1486;
															}
														}
													}
											}
										}
										break;
									case 66L:

										{	/* Eval/evmeaning.scm 714 */
											obj_t BgL_g1082z00_1494;

											BgL_g1082z00_1494 = VECTOR_REF(BgL_codez00_8, 3L);
											{
												obj_t BgL_valsz00_1496;
												obj_t BgL_stackz00_1497;

												BgL_valsz00_1496 = BgL_g1082z00_1494;
												BgL_stackz00_1497 = BgL_stackz00_9;
											BgL_zc3z04anonymousza31379ze3z87_1498:
												if (NULLP(BgL_valsz00_1496))
													{	/* Eval/evmeaning.scm 717 */
														obj_t BgL_arg1381z00_1500;

														BgL_arg1381z00_1500 =
															VECTOR_REF(((obj_t) BgL_codez00_8), 2L);
														{
															obj_t BgL_stackz00_4493;
															obj_t BgL_codez00_4492;

															BgL_codez00_4492 = BgL_arg1381z00_1500;
															BgL_stackz00_4493 = BgL_stackz00_1497;
															BgL_stackz00_9 = BgL_stackz00_4493;
															BgL_codez00_8 = BgL_codez00_4492;
															goto BGl_evmeaningz00zz__evmeaningz00;
														}
													}
												else
													{	/* Eval/evmeaning.scm 718 */
														obj_t BgL_arg1382z00_1501;
														obj_t BgL_arg1383z00_1502;

														BgL_arg1382z00_1501 =
															CDR(((obj_t) BgL_valsz00_1496));
														{	/* Eval/evmeaning.scm 719 */
															obj_t BgL_arg1384z00_1503;

															{	/* Eval/evmeaning.scm 719 */
																obj_t BgL_arg1385z00_1504;

																BgL_arg1385z00_1504 =
																	CAR(((obj_t) BgL_valsz00_1496));
																BgL_arg1384z00_1503 =
																	BGl_evmeaningz00zz__evmeaningz00
																	(BgL_arg1385z00_1504, BgL_stackz00_1497,
																	BgL_denvz00_10);
															}
															BgL_arg1383z00_1502 =
																MAKE_YOUNG_PAIR(BgL_arg1384z00_1503,
																BgL_stackz00_1497);
														}
														{
															obj_t BgL_stackz00_4501;
															obj_t BgL_valsz00_4500;

															BgL_valsz00_4500 = BgL_arg1382z00_1501;
															BgL_stackz00_4501 = BgL_arg1383z00_1502;
															BgL_stackz00_1497 = BgL_stackz00_4501;
															BgL_valsz00_1496 = BgL_valsz00_4500;
															goto BgL_zc3z04anonymousza31379ze3z87_1498;
														}
													}
											}
										}
										break;
									case 67L:

										return
											BGl_evmeaningzd2bouncezd267z00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10);
										break;
									case 68L:

										return
											BGl_evmeaningzd2bouncezd268z00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10);
										break;
									case 70L:

										return
											BGl_evmeaningzd2bouncezd270z00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10);
										break;
									case 71L:

										return
											BGl_evmeaningzd2bouncezd271z00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10);
										break;
									case 175L:

										return
											BGl_evmeaningzd2bouncezd2175z00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10);
										break;
									case 176L:

										return
											BGl_evmeaningzd2bouncezd2176z00zz__evmeaningz00
											(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10);
										break;
									case 131L:

										{	/* Eval/evmeaning.scm 783 */
											obj_t BgL_funz00_1506;

											BgL_funz00_1506 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 3L), BgL_stackz00_9, BgL_denvz00_10);
											{	/* Eval/evmeaning.scm 784 */
												bool_t BgL_test2424z00_4510;

												if (PROCEDUREP(BgL_funz00_1506))
													{	/* Eval/evmeaning.scm 933 */
														obj_t BgL_arg1812z00_2989;

														BgL_arg1812z00_2989 =
															PROCEDURE_ATTR(BgL_funz00_1506);
														if (STRUCTP(BgL_arg1812z00_2989))
															{	/* Eval/evmeaning.scm 927 */
																BgL_test2424z00_4510 =
																	(STRUCT_KEY(BgL_arg1812z00_2989) ==
																	BGl_symbol2360z00zz__evmeaningz00);
															}
														else
															{	/* Eval/evmeaning.scm 927 */
																BgL_test2424z00_4510 = ((bool_t) 0);
															}
													}
												else
													{	/* Eval/evmeaning.scm 933 */
														BgL_test2424z00_4510 = ((bool_t) 0);
													}
												if (BgL_test2424z00_4510)
													{	/* Eval/evmeaning.scm 785 */
														obj_t BgL_arg1387z00_1508;
														obj_t BgL_arg1388z00_1509;

														{	/* Eval/evmeaning.scm 946 */
															obj_t BgL_arg1814z00_2995;

															BgL_arg1814z00_2995 =
																PROCEDURE_ATTR(BgL_funz00_1506);
															BgL_arg1387z00_1508 =
																STRUCT_REF(
																((obj_t) BgL_arg1814z00_2995), (int) (1L));
														}
														BgL_arg1388z00_1509 =
															BGl_evmeaningzd2tailcallzd20zd2stackzd2zz__evmeaningz00
															(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10,
															BgL_funz00_1506);
														{
															obj_t BgL_stackz00_4524;
															obj_t BgL_codez00_4523;

															BgL_codez00_4523 = BgL_arg1387z00_1508;
															BgL_stackz00_4524 = BgL_arg1388z00_1509;
															BgL_stackz00_9 = BgL_stackz00_4524;
															BgL_codez00_8 = BgL_codez00_4523;
															goto BGl_evmeaningz00zz__evmeaningz00;
														}
													}
												else
													{	/* Eval/evmeaning.scm 784 */
														return
															BGl_evmeaningzd2funcallzd20z00zz__evmeaningz00
															(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10,
															BgL_funz00_1506);
													}
											}
										}
										break;
									case 132L:

										{	/* Eval/evmeaning.scm 791 */
											obj_t BgL_funz00_1511;

											BgL_funz00_1511 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 3L), BgL_stackz00_9, BgL_denvz00_10);
											{	/* Eval/evmeaning.scm 792 */
												bool_t BgL_test2427z00_4528;

												if (PROCEDUREP(BgL_funz00_1511))
													{	/* Eval/evmeaning.scm 933 */
														obj_t BgL_arg1812z00_3000;

														BgL_arg1812z00_3000 =
															PROCEDURE_ATTR(BgL_funz00_1511);
														if (STRUCTP(BgL_arg1812z00_3000))
															{	/* Eval/evmeaning.scm 927 */
																BgL_test2427z00_4528 =
																	(STRUCT_KEY(BgL_arg1812z00_3000) ==
																	BGl_symbol2360z00zz__evmeaningz00);
															}
														else
															{	/* Eval/evmeaning.scm 927 */
																BgL_test2427z00_4528 = ((bool_t) 0);
															}
													}
												else
													{	/* Eval/evmeaning.scm 933 */
														BgL_test2427z00_4528 = ((bool_t) 0);
													}
												if (BgL_test2427z00_4528)
													{	/* Eval/evmeaning.scm 793 */
														obj_t BgL_arg1391z00_1513;
														obj_t BgL_arg1392z00_1514;

														{	/* Eval/evmeaning.scm 946 */
															obj_t BgL_arg1814z00_3006;

															BgL_arg1814z00_3006 =
																PROCEDURE_ATTR(BgL_funz00_1511);
															BgL_arg1391z00_1513 =
																STRUCT_REF(
																((obj_t) BgL_arg1814z00_3006), (int) (1L));
														}
														BgL_arg1392z00_1514 =
															BGl_evmeaningzd2tailcallzd21zd2stackzd2zz__evmeaningz00
															(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10,
															BgL_funz00_1511);
														{
															obj_t BgL_stackz00_4542;
															obj_t BgL_codez00_4541;

															BgL_codez00_4541 = BgL_arg1391z00_1513;
															BgL_stackz00_4542 = BgL_arg1392z00_1514;
															BgL_stackz00_9 = BgL_stackz00_4542;
															BgL_codez00_8 = BgL_codez00_4541;
															goto BGl_evmeaningz00zz__evmeaningz00;
														}
													}
												else
													{	/* Eval/evmeaning.scm 792 */
														return
															BGl_evmeaningzd2funcallzd21z00zz__evmeaningz00
															(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10,
															BgL_funz00_1511);
													}
											}
										}
										break;
									case 133L:

										{	/* Eval/evmeaning.scm 799 */
											obj_t BgL_funz00_1516;

											BgL_funz00_1516 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 3L), BgL_stackz00_9, BgL_denvz00_10);
											{	/* Eval/evmeaning.scm 800 */
												bool_t BgL_test2430z00_4546;

												if (PROCEDUREP(BgL_funz00_1516))
													{	/* Eval/evmeaning.scm 933 */
														obj_t BgL_arg1812z00_3011;

														BgL_arg1812z00_3011 =
															PROCEDURE_ATTR(BgL_funz00_1516);
														if (STRUCTP(BgL_arg1812z00_3011))
															{	/* Eval/evmeaning.scm 927 */
																BgL_test2430z00_4546 =
																	(STRUCT_KEY(BgL_arg1812z00_3011) ==
																	BGl_symbol2360z00zz__evmeaningz00);
															}
														else
															{	/* Eval/evmeaning.scm 927 */
																BgL_test2430z00_4546 = ((bool_t) 0);
															}
													}
												else
													{	/* Eval/evmeaning.scm 933 */
														BgL_test2430z00_4546 = ((bool_t) 0);
													}
												if (BgL_test2430z00_4546)
													{	/* Eval/evmeaning.scm 801 */
														obj_t BgL_arg1397z00_1518;
														obj_t BgL_arg1398z00_1519;

														{	/* Eval/evmeaning.scm 946 */
															obj_t BgL_arg1814z00_3017;

															BgL_arg1814z00_3017 =
																PROCEDURE_ATTR(BgL_funz00_1516);
															BgL_arg1397z00_1518 =
																STRUCT_REF(
																((obj_t) BgL_arg1814z00_3017), (int) (1L));
														}
														BgL_arg1398z00_1519 =
															BGl_evmeaningzd2tailcallzd22zd2stackzd2zz__evmeaningz00
															(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10,
															BgL_funz00_1516);
														{
															obj_t BgL_stackz00_4560;
															obj_t BgL_codez00_4559;

															BgL_codez00_4559 = BgL_arg1397z00_1518;
															BgL_stackz00_4560 = BgL_arg1398z00_1519;
															BgL_stackz00_9 = BgL_stackz00_4560;
															BgL_codez00_8 = BgL_codez00_4559;
															goto BGl_evmeaningz00zz__evmeaningz00;
														}
													}
												else
													{	/* Eval/evmeaning.scm 800 */
														return
															BGl_evmeaningzd2funcallzd22z00zz__evmeaningz00
															(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10,
															BgL_funz00_1516);
													}
											}
										}
										break;
									case 134L:

										{	/* Eval/evmeaning.scm 807 */
											obj_t BgL_funz00_1521;

											BgL_funz00_1521 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 3L), BgL_stackz00_9, BgL_denvz00_10);
											{	/* Eval/evmeaning.scm 808 */
												bool_t BgL_test2433z00_4564;

												if (PROCEDUREP(BgL_funz00_1521))
													{	/* Eval/evmeaning.scm 933 */
														obj_t BgL_arg1812z00_3022;

														BgL_arg1812z00_3022 =
															PROCEDURE_ATTR(BgL_funz00_1521);
														if (STRUCTP(BgL_arg1812z00_3022))
															{	/* Eval/evmeaning.scm 927 */
																BgL_test2433z00_4564 =
																	(STRUCT_KEY(BgL_arg1812z00_3022) ==
																	BGl_symbol2360z00zz__evmeaningz00);
															}
														else
															{	/* Eval/evmeaning.scm 927 */
																BgL_test2433z00_4564 = ((bool_t) 0);
															}
													}
												else
													{	/* Eval/evmeaning.scm 933 */
														BgL_test2433z00_4564 = ((bool_t) 0);
													}
												if (BgL_test2433z00_4564)
													{	/* Eval/evmeaning.scm 809 */
														obj_t BgL_arg1401z00_1523;
														obj_t BgL_arg1402z00_1524;

														{	/* Eval/evmeaning.scm 946 */
															obj_t BgL_arg1814z00_3028;

															BgL_arg1814z00_3028 =
																PROCEDURE_ATTR(BgL_funz00_1521);
															BgL_arg1401z00_1523 =
																STRUCT_REF(
																((obj_t) BgL_arg1814z00_3028), (int) (1L));
														}
														BgL_arg1402z00_1524 =
															BGl_evmeaningzd2tailcallzd23zd2stackzd2zz__evmeaningz00
															(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10,
															BgL_funz00_1521);
														{
															obj_t BgL_stackz00_4578;
															obj_t BgL_codez00_4577;

															BgL_codez00_4577 = BgL_arg1401z00_1523;
															BgL_stackz00_4578 = BgL_arg1402z00_1524;
															BgL_stackz00_9 = BgL_stackz00_4578;
															BgL_codez00_8 = BgL_codez00_4577;
															goto BGl_evmeaningz00zz__evmeaningz00;
														}
													}
												else
													{	/* Eval/evmeaning.scm 808 */
														return
															BGl_evmeaningzd2funcallzd23z00zz__evmeaningz00
															(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10,
															BgL_funz00_1521);
													}
											}
										}
										break;
									case 135L:

										{	/* Eval/evmeaning.scm 815 */
											obj_t BgL_funz00_1526;

											BgL_funz00_1526 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 3L), BgL_stackz00_9, BgL_denvz00_10);
											{	/* Eval/evmeaning.scm 816 */
												bool_t BgL_test2436z00_4582;

												if (PROCEDUREP(BgL_funz00_1526))
													{	/* Eval/evmeaning.scm 933 */
														obj_t BgL_arg1812z00_3033;

														BgL_arg1812z00_3033 =
															PROCEDURE_ATTR(BgL_funz00_1526);
														if (STRUCTP(BgL_arg1812z00_3033))
															{	/* Eval/evmeaning.scm 927 */
																BgL_test2436z00_4582 =
																	(STRUCT_KEY(BgL_arg1812z00_3033) ==
																	BGl_symbol2360z00zz__evmeaningz00);
															}
														else
															{	/* Eval/evmeaning.scm 927 */
																BgL_test2436z00_4582 = ((bool_t) 0);
															}
													}
												else
													{	/* Eval/evmeaning.scm 933 */
														BgL_test2436z00_4582 = ((bool_t) 0);
													}
												if (BgL_test2436z00_4582)
													{	/* Eval/evmeaning.scm 817 */
														obj_t BgL_arg1405z00_1528;
														obj_t BgL_arg1407z00_1529;

														{	/* Eval/evmeaning.scm 946 */
															obj_t BgL_arg1814z00_3039;

															BgL_arg1814z00_3039 =
																PROCEDURE_ATTR(BgL_funz00_1526);
															BgL_arg1405z00_1528 =
																STRUCT_REF(
																((obj_t) BgL_arg1814z00_3039), (int) (1L));
														}
														BgL_arg1407z00_1529 =
															BGl_evmeaningzd2tailcallzd24zd2stackzd2zz__evmeaningz00
															(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10,
															BgL_funz00_1526);
														{
															obj_t BgL_stackz00_4596;
															obj_t BgL_codez00_4595;

															BgL_codez00_4595 = BgL_arg1405z00_1528;
															BgL_stackz00_4596 = BgL_arg1407z00_1529;
															BgL_stackz00_9 = BgL_stackz00_4596;
															BgL_codez00_8 = BgL_codez00_4595;
															goto BGl_evmeaningz00zz__evmeaningz00;
														}
													}
												else
													{	/* Eval/evmeaning.scm 816 */
														return
															BGl_evmeaningzd2funcallzd24z00zz__evmeaningz00
															(BgL_codez00_8, BgL_stackz00_9, BgL_denvz00_10,
															BgL_funz00_1526);
													}
											}
										}
										break;
									case 136L:

										{	/* Eval/evmeaning.scm 823 */
											obj_t BgL_namez00_1531;

											BgL_namez00_1531 = VECTOR_REF(BgL_codez00_8, 2L);
											{	/* Eval/evmeaning.scm 823 */
												obj_t BgL_funz00_1532;

												BgL_funz00_1532 =
													BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
													(BgL_codez00_8, 3L), BgL_stackz00_9, BgL_denvz00_10);
												{	/* Eval/evmeaning.scm 824 */
													obj_t BgL_locz00_1533;

													BgL_locz00_1533 = VECTOR_REF(BgL_codez00_8, 1L);
													{	/* Eval/evmeaning.scm 825 */

														{	/* Eval/evmeaning.scm 826 */
															obj_t BgL_g1083z00_1534;

															BgL_g1083z00_1534 = VECTOR_REF(BgL_codez00_8, 4L);
															{
																obj_t BgL_argsz00_1537;
																obj_t BgL_newz00_1538;
																long BgL_lenz00_1539;

																BgL_argsz00_1537 = BgL_g1083z00_1534;
																BgL_newz00_1538 = BNIL;
																BgL_lenz00_1539 = 0L;
															BgL_zc3z04anonymousza31409ze3z87_1540:
																if (NULLP(BgL_argsz00_1537))
																	{	/* Eval/evmeaning.scm 830 */
																		bool_t BgL_test2440z00_4605;

																		if (PROCEDUREP(BgL_funz00_1532))
																			{	/* Eval/evmeaning.scm 933 */
																				obj_t BgL_arg1812z00_3047;

																				BgL_arg1812z00_3047 =
																					PROCEDURE_ATTR(BgL_funz00_1532);
																				if (STRUCTP(BgL_arg1812z00_3047))
																					{	/* Eval/evmeaning.scm 927 */
																						BgL_test2440z00_4605 =
																							(STRUCT_KEY(BgL_arg1812z00_3047)
																							==
																							BGl_symbol2360z00zz__evmeaningz00);
																					}
																				else
																					{	/* Eval/evmeaning.scm 927 */
																						BgL_test2440z00_4605 = ((bool_t) 0);
																					}
																			}
																		else
																			{	/* Eval/evmeaning.scm 933 */
																				BgL_test2440z00_4605 = ((bool_t) 0);
																			}
																		if (BgL_test2440z00_4605)
																			{	/* Eval/evmeaning.scm 831 */
																				obj_t BgL_fmlsz00_1543;

																				{	/* Eval/evmeaning.scm 958 */
																					obj_t BgL_arg1816z00_3053;

																					BgL_arg1816z00_3053 =
																						PROCEDURE_ATTR(BgL_funz00_1532);
																					BgL_fmlsz00_1543 =
																						STRUCT_REF(
																						((obj_t) BgL_arg1816z00_3053),
																						(int) (0L));
																				}
																				{	/* Eval/evmeaning.scm 831 */
																					obj_t BgL_stackz00_1544;

																					{	/* Eval/evmeaning.scm 952 */
																						obj_t BgL_arg1815z00_3056;

																						BgL_arg1815z00_3056 =
																							PROCEDURE_ATTR(BgL_funz00_1532);
																						BgL_stackz00_1544 =
																							STRUCT_REF(
																							((obj_t) BgL_arg1815z00_3056),
																							(int) (2L));
																					}
																					{	/* Eval/evmeaning.scm 832 */
																						obj_t BgL_wenz00_1545;

																						BgL_wenz00_1545 =
																							bgl_reverse_bang(BgL_newz00_1538);
																						{	/* Eval/evmeaning.scm 833 */
																							obj_t BgL_e2z00_1546;

																							if (
																								((long) CINT(BgL_fmlsz00_1543)
																									>= 0L))
																								{	/* Eval/evmeaning.scm 834 */
																									BgL_e2z00_1546 =
																										BGl_evmeaningzd2pushzd2fxargsz00zz__evmeaningz00
																										(BgL_namez00_1531,
																										BgL_locz00_1533,
																										BgL_wenz00_1545,
																										BgL_fmlsz00_1543,
																										BgL_stackz00_1544);
																								}
																							else
																								{	/* Eval/evmeaning.scm 834 */
																									BgL_e2z00_1546 =
																										BGl_evmeaningzd2pushzd2vaargsz00zz__evmeaningz00
																										(BgL_namez00_1531,
																										BgL_locz00_1533,
																										BgL_wenz00_1545,
																										BgL_fmlsz00_1543,
																										BgL_stackz00_1544);
																								}
																							{	/* Eval/evmeaning.scm 834 */

																								{	/* Eval/evmeaning.scm 845 */
																									obj_t BgL_arg1412z00_1547;

																									{	/* Eval/evmeaning.scm 946 */
																										obj_t BgL_arg1814z00_3060;

																										BgL_arg1814z00_3060 =
																											PROCEDURE_ATTR
																											(BgL_funz00_1532);
																										BgL_arg1412z00_1547 =
																											STRUCT_REF(((obj_t)
																												BgL_arg1814z00_3060),
																											(int) (1L));
																									}
																									{
																										obj_t BgL_stackz00_4632;
																										obj_t BgL_codez00_4631;

																										BgL_codez00_4631 =
																											BgL_arg1412z00_1547;
																										BgL_stackz00_4632 =
																											BgL_e2z00_1546;
																										BgL_stackz00_9 =
																											BgL_stackz00_4632;
																										BgL_codez00_8 =
																											BgL_codez00_4631;
																										goto
																											BGl_evmeaningz00zz__evmeaningz00;
																									}
																								}
																							}
																						}
																					}
																				}
																			}
																		else
																			{	/* Eval/evmeaning.scm 848 */
																				obj_t BgL_arg1414z00_1549;

																				BgL_arg1414z00_1549 =
																					bgl_reverse_bang(BgL_newz00_1538);
																				if (PROCEDUREP(BgL_funz00_1532))
																					{	/* Eval/evmeaning.scm 1188 */
																						if (PROCEDURE_CORRECT_ARITYP
																							(BgL_funz00_1532,
																								(int) (BgL_lenz00_1539)))
																							{	/* Eval/evmeaning.scm 1190 */
																								return
																									eval_apply(BgL_funz00_1532,
																									BgL_arg1414z00_1549);
																							}
																						else
																							{	/* Eval/evmeaning.scm 1191 */
																								obj_t BgL_arg1957z00_3064;
																								int BgL_arg1959z00_3065;

																								BgL_arg1957z00_3064 =
																									VECTOR_REF(
																									((obj_t) BgL_codez00_8), 1L);
																								BgL_arg1959z00_3065 =
																									PROCEDURE_ARITY
																									(BgL_funz00_1532);
																								return
																									BGl_evarityzd2errorzd2zz__everrorz00
																									(BgL_arg1957z00_3064,
																									BgL_namez00_1531,
																									(int) (BgL_lenz00_1539),
																									BgL_arg1959z00_3065);
																					}}
																				else
																					{	/* Eval/evmeaning.scm 1189 */
																						obj_t BgL_arg1960z00_3066;

																						BgL_arg1960z00_3066 =
																							VECTOR_REF(
																							((obj_t) BgL_codez00_8), 1L);
																						return
																							BGl_everrorz00zz__everrorz00
																							(BgL_arg1960z00_3066,
																							BGl_string2362z00zz__evmeaningz00,
																							BGl_string2363z00zz__evmeaningz00,
																							BgL_namez00_1531);
																					}
																			}
																	}
																else
																	{	/* Eval/evmeaning.scm 849 */
																		obj_t BgL_arg1415z00_1550;
																		obj_t BgL_arg1416z00_1551;
																		long BgL_arg1417z00_1552;

																		BgL_arg1415z00_1550 =
																			CDR(((obj_t) BgL_argsz00_1537));
																		{	/* Eval/evmeaning.scm 850 */
																			obj_t BgL_arg1419z00_1553;

																			{	/* Eval/evmeaning.scm 850 */
																				obj_t BgL_arg1420z00_1554;

																				BgL_arg1420z00_1554 =
																					CAR(((obj_t) BgL_argsz00_1537));
																				BgL_arg1419z00_1553 =
																					BGl_evmeaningz00zz__evmeaningz00
																					(BgL_arg1420z00_1554, BgL_stackz00_9,
																					BgL_denvz00_10);
																			}
																			BgL_arg1416z00_1551 =
																				MAKE_YOUNG_PAIR(BgL_arg1419z00_1553,
																				BgL_newz00_1538);
																		}
																		BgL_arg1417z00_1552 =
																			(1L + BgL_lenz00_1539);
																		{
																			long BgL_lenz00_4657;
																			obj_t BgL_newz00_4656;
																			obj_t BgL_argsz00_4655;

																			BgL_argsz00_4655 = BgL_arg1415z00_1550;
																			BgL_newz00_4656 = BgL_arg1416z00_1551;
																			BgL_lenz00_4657 = BgL_arg1417z00_1552;
																			BgL_lenz00_1539 = BgL_lenz00_4657;
																			BgL_newz00_1538 = BgL_newz00_4656;
																			BgL_argsz00_1537 = BgL_argsz00_4655;
																			goto
																				BgL_zc3z04anonymousza31409ze3z87_1540;
																		}
																	}
															}
														}
													}
												}
											}
										}
										break;
									case 145L:
									case 146L:

										{	/* Eval/evmeaning.scm 854 */
											long BgL_arg1422z00_1557;

											{	/* Eval/evmeaning.scm 854 */
												obj_t BgL_arg1423z00_1558;

												BgL_arg1423z00_1558 = VECTOR_REF(BgL_codez00_8, 0L);
												BgL_arg1422z00_1557 =
													((long) CINT(BgL_arg1423z00_1558) - 140L);
											}
											VECTOR_SET(BgL_codez00_8, 0L, BINT(BgL_arg1422z00_1557));
										}
										VECTOR_SET(BgL_codez00_8, 2L,
											BGl_evmodulezd2findzd2globalz00zz__evmodulez00(VECTOR_REF
												(BgL_codez00_8, 3L), VECTOR_REF(BgL_codez00_8, 2L)));
										{

											goto BGl_evmeaningz00zz__evmeaningz00;
										}
										break;
									case 147L:

										{	/* Eval/evmeaning.scm 861 */
											obj_t BgL_a0z00_1562;
											obj_t BgL_a1z00_1563;

											BgL_a0z00_1562 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 4L), BgL_stackz00_9, BgL_denvz00_10);
											BgL_a1z00_1563 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 5L), BgL_stackz00_9, BgL_denvz00_10);
											if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_a0z00_1562))
												{	/* Eval/evmeaning.scm 861 */
													if (BGl_numberzf3zf3zz__r4_numbers_6_5z00
														(BgL_a1z00_1563))
														{	/* Eval/evmeaning.scm 861 */
															bool_t BgL_test2448z00_4675;

															if (INTEGERP(BgL_a0z00_1562))
																{	/* Eval/evmeaning.scm 861 */
																	BgL_test2448z00_4675 =
																		INTEGERP(BgL_a1z00_1563);
																}
															else
																{	/* Eval/evmeaning.scm 861 */
																	BgL_test2448z00_4675 = ((bool_t) 0);
																}
															if (BgL_test2448z00_4675)
																{	/* Eval/evmeaning.scm 861 */
																	obj_t BgL_tmpz00_3082;

																	BgL_tmpz00_3082 = BINT(0L);
																	if (BGL_ADDFX_OV(BgL_a0z00_1562,
																			BgL_a1z00_1563, BgL_tmpz00_3082))
																		{	/* Eval/evmeaning.scm 861 */
																			return
																				bgl_bignum_add(bgl_long_to_bignum(
																					(long) CINT(BgL_a0z00_1562)),
																				bgl_long_to_bignum(
																					(long) CINT(BgL_a1z00_1563)));
																		}
																	else
																		{	/* Eval/evmeaning.scm 861 */
																			return BgL_tmpz00_3082;
																		}
																}
															else
																{	/* Eval/evmeaning.scm 861 */
																	return
																		BGl_2zb2zb2zz__r4_numbers_6_5z00
																		(BgL_a0z00_1562, BgL_a1z00_1563);
																}
														}
													else
														{	/* Eval/evmeaning.scm 861 */
															obj_t BgL_arg1430z00_1567;

															BgL_arg1430z00_1567 =
																VECTOR_REF(BgL_codez00_8, 1L);
															return
																BGl_evtypezd2errorzd2zz__everrorz00
																(BgL_arg1430z00_1567,
																BGl_string2357z00zz__evmeaningz00,
																BGl_symbol2364z00zz__evmeaningz00,
																BgL_a1z00_1563);
														}
												}
											else
												{	/* Eval/evmeaning.scm 861 */
													obj_t BgL_arg1431z00_1568;

													BgL_arg1431z00_1568 = VECTOR_REF(BgL_codez00_8, 1L);
													return
														BGl_evtypezd2errorzd2zz__everrorz00
														(BgL_arg1431z00_1568,
														BGl_string2357z00zz__evmeaningz00,
														BGl_symbol2364z00zz__evmeaningz00, BgL_a0z00_1562);
												}
										}
										break;
									case 148L:

										{	/* Eval/evmeaning.scm 863 */
											obj_t BgL_a0z00_1571;
											obj_t BgL_a1z00_1572;

											BgL_a0z00_1571 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 4L), BgL_stackz00_9, BgL_denvz00_10);
											BgL_a1z00_1572 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 5L), BgL_stackz00_9, BgL_denvz00_10);
											if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_a0z00_1571))
												{	/* Eval/evmeaning.scm 863 */
													if (BGl_numberzf3zf3zz__r4_numbers_6_5z00
														(BgL_a1z00_1572))
														{	/* Eval/evmeaning.scm 863 */
															bool_t BgL_test2453z00_4700;

															if (INTEGERP(BgL_a0z00_1571))
																{	/* Eval/evmeaning.scm 863 */
																	BgL_test2453z00_4700 =
																		INTEGERP(BgL_a1z00_1572);
																}
															else
																{	/* Eval/evmeaning.scm 863 */
																	BgL_test2453z00_4700 = ((bool_t) 0);
																}
															if (BgL_test2453z00_4700)
																{	/* Eval/evmeaning.scm 863 */
																	obj_t BgL_tmpz00_3096;

																	BgL_tmpz00_3096 = BINT(0L);
																	if (BGL_SUBFX_OV(BgL_a0z00_1571,
																			BgL_a1z00_1572, BgL_tmpz00_3096))
																		{	/* Eval/evmeaning.scm 863 */
																			return
																				bgl_bignum_sub(bgl_long_to_bignum(
																					(long) CINT(BgL_a0z00_1571)),
																				bgl_long_to_bignum(
																					(long) CINT(BgL_a1z00_1572)));
																		}
																	else
																		{	/* Eval/evmeaning.scm 863 */
																			return BgL_tmpz00_3096;
																		}
																}
															else
																{	/* Eval/evmeaning.scm 863 */
																	return
																		BGl_2zd2zd2zz__r4_numbers_6_5z00
																		(BgL_a0z00_1571, BgL_a1z00_1572);
																}
														}
													else
														{	/* Eval/evmeaning.scm 863 */
															obj_t BgL_arg1437z00_1576;

															BgL_arg1437z00_1576 =
																VECTOR_REF(BgL_codez00_8, 1L);
															return
																BGl_evtypezd2errorzd2zz__everrorz00
																(BgL_arg1437z00_1576,
																BGl_string2357z00zz__evmeaningz00,
																BGl_symbol2364z00zz__evmeaningz00,
																BgL_a1z00_1572);
														}
												}
											else
												{	/* Eval/evmeaning.scm 863 */
													obj_t BgL_arg1438z00_1577;

													BgL_arg1438z00_1577 = VECTOR_REF(BgL_codez00_8, 1L);
													return
														BGl_evtypezd2errorzd2zz__everrorz00
														(BgL_arg1438z00_1577,
														BGl_string2357z00zz__evmeaningz00,
														BGl_symbol2364z00zz__evmeaningz00, BgL_a0z00_1571);
												}
										}
										break;
									case 149L:

										{	/* Eval/evmeaning.scm 865 */
											obj_t BgL_a0z00_1580;
											obj_t BgL_a1z00_1581;

											BgL_a0z00_1580 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 4L), BgL_stackz00_9, BgL_denvz00_10);
											BgL_a1z00_1581 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 5L), BgL_stackz00_9, BgL_denvz00_10);
											if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_a0z00_1580))
												{	/* Eval/evmeaning.scm 865 */
													if (BGl_numberzf3zf3zz__r4_numbers_6_5z00
														(BgL_a1z00_1581))
														{	/* Eval/evmeaning.scm 865 */
															bool_t BgL_test2458z00_4725;

															if (INTEGERP(BgL_a0z00_1580))
																{	/* Eval/evmeaning.scm 865 */
																	BgL_test2458z00_4725 =
																		INTEGERP(BgL_a1z00_1581);
																}
															else
																{	/* Eval/evmeaning.scm 865 */
																	BgL_test2458z00_4725 = ((bool_t) 0);
																}
															if (BgL_test2458z00_4725)
																{	/* Eval/evmeaning.scm 865 */
																	obj_t BgL_tmpz00_3110;

																	BgL_tmpz00_3110 = BINT(0L);
																	if (BGL_MULFX_OV(BgL_a0z00_1580,
																			BgL_a1z00_1581, BgL_tmpz00_3110))
																		{	/* Eval/evmeaning.scm 865 */
																			return
																				bgl_bignum_mul(bgl_long_to_bignum(
																					(long) CINT(BgL_a0z00_1580)),
																				bgl_long_to_bignum(
																					(long) CINT(BgL_a1z00_1581)));
																		}
																	else
																		{	/* Eval/evmeaning.scm 865 */
																			return BgL_tmpz00_3110;
																		}
																}
															else
																{	/* Eval/evmeaning.scm 865 */
																	return
																		BGl_2za2za2zz__r4_numbers_6_5z00
																		(BgL_a0z00_1580, BgL_a1z00_1581);
																}
														}
													else
														{	/* Eval/evmeaning.scm 865 */
															obj_t BgL_arg1446z00_1585;

															BgL_arg1446z00_1585 =
																VECTOR_REF(BgL_codez00_8, 1L);
															return
																BGl_evtypezd2errorzd2zz__everrorz00
																(BgL_arg1446z00_1585,
																BGl_string2357z00zz__evmeaningz00,
																BGl_symbol2364z00zz__evmeaningz00,
																BgL_a1z00_1581);
														}
												}
											else
												{	/* Eval/evmeaning.scm 865 */
													obj_t BgL_arg1447z00_1586;

													BgL_arg1447z00_1586 = VECTOR_REF(BgL_codez00_8, 1L);
													return
														BGl_evtypezd2errorzd2zz__everrorz00
														(BgL_arg1447z00_1586,
														BGl_string2357z00zz__evmeaningz00,
														BGl_symbol2364z00zz__evmeaningz00, BgL_a0z00_1580);
												}
										}
										break;
									case 150L:

										{	/* Eval/evmeaning.scm 867 */
											obj_t BgL_a0z00_1589;
											obj_t BgL_a1z00_1590;

											BgL_a0z00_1589 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 4L), BgL_stackz00_9, BgL_denvz00_10);
											BgL_a1z00_1590 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 5L), BgL_stackz00_9, BgL_denvz00_10);
											if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_a0z00_1589))
												{	/* Eval/evmeaning.scm 867 */
													if (BGl_numberzf3zf3zz__r4_numbers_6_5z00
														(BgL_a1z00_1590))
														{	/* Eval/evmeaning.scm 867 */
															return
																BGl_2zf2zf2zz__r4_numbers_6_5z00(BgL_a0z00_1589,
																BgL_a1z00_1590);
														}
													else
														{	/* Eval/evmeaning.scm 867 */
															obj_t BgL_arg1453z00_1593;

															BgL_arg1453z00_1593 =
																VECTOR_REF(BgL_codez00_8, 1L);
															return
																BGl_evtypezd2errorzd2zz__everrorz00
																(BgL_arg1453z00_1593,
																BGl_string2357z00zz__evmeaningz00,
																BGl_symbol2364z00zz__evmeaningz00,
																BgL_a1z00_1590);
														}
												}
											else
												{	/* Eval/evmeaning.scm 867 */
													obj_t BgL_arg1455z00_1594;

													BgL_arg1455z00_1594 = VECTOR_REF(BgL_codez00_8, 1L);
													return
														BGl_evtypezd2errorzd2zz__everrorz00
														(BgL_arg1455z00_1594,
														BGl_string2357z00zz__evmeaningz00,
														BGl_symbol2364z00zz__evmeaningz00, BgL_a0z00_1589);
												}
										}
										break;
									case 151L:

										{	/* Eval/evmeaning.scm 869 */
											obj_t BgL_a0z00_1597;
											obj_t BgL_a1z00_1598;

											BgL_a0z00_1597 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 4L), BgL_stackz00_9, BgL_denvz00_10);
											BgL_a1z00_1598 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 5L), BgL_stackz00_9, BgL_denvz00_10);
											if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_a0z00_1597))
												{	/* Eval/evmeaning.scm 869 */
													if (BGl_numberzf3zf3zz__r4_numbers_6_5z00
														(BgL_a1z00_1598))
														{	/* Eval/evmeaning.scm 869 */
															bool_t BgL_test2465z00_4763;

															if (INTEGERP(BgL_a0z00_1597))
																{	/* Eval/evmeaning.scm 869 */
																	BgL_test2465z00_4763 =
																		INTEGERP(BgL_a1z00_1598);
																}
															else
																{	/* Eval/evmeaning.scm 869 */
																	BgL_test2465z00_4763 = ((bool_t) 0);
																}
															if (BgL_test2465z00_4763)
																{	/* Eval/evmeaning.scm 869 */
																	return
																		BBOOL(
																		((long) CINT(BgL_a0z00_1597) <
																			(long) CINT(BgL_a1z00_1598)));
																}
															else
																{	/* Eval/evmeaning.scm 869 */
																	return
																		BBOOL(BGl_2zc3zc3zz__r4_numbers_6_5z00
																		(BgL_a0z00_1597, BgL_a1z00_1598));
																}
														}
													else
														{	/* Eval/evmeaning.scm 869 */
															obj_t BgL_arg1461z00_1602;

															BgL_arg1461z00_1602 =
																VECTOR_REF(BgL_codez00_8, 1L);
															return
																BGl_evtypezd2errorzd2zz__everrorz00
																(BgL_arg1461z00_1602,
																BGl_string2357z00zz__evmeaningz00,
																BGl_symbol2364z00zz__evmeaningz00,
																BgL_a1z00_1598);
														}
												}
											else
												{	/* Eval/evmeaning.scm 869 */
													obj_t BgL_arg1462z00_1603;

													BgL_arg1462z00_1603 = VECTOR_REF(BgL_codez00_8, 1L);
													return
														BGl_evtypezd2errorzd2zz__everrorz00
														(BgL_arg1462z00_1603,
														BGl_string2357z00zz__evmeaningz00,
														BGl_symbol2364z00zz__evmeaningz00, BgL_a0z00_1597);
												}
										}
										break;
									case 152L:

										{	/* Eval/evmeaning.scm 871 */
											obj_t BgL_a0z00_1606;
											obj_t BgL_a1z00_1607;

											BgL_a0z00_1606 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 4L), BgL_stackz00_9, BgL_denvz00_10);
											BgL_a1z00_1607 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 5L), BgL_stackz00_9, BgL_denvz00_10);
											if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_a0z00_1606))
												{	/* Eval/evmeaning.scm 871 */
													if (BGl_numberzf3zf3zz__r4_numbers_6_5z00
														(BgL_a1z00_1607))
														{	/* Eval/evmeaning.scm 871 */
															bool_t BgL_test2469z00_4785;

															if (INTEGERP(BgL_a0z00_1606))
																{	/* Eval/evmeaning.scm 871 */
																	BgL_test2469z00_4785 =
																		INTEGERP(BgL_a1z00_1607);
																}
															else
																{	/* Eval/evmeaning.scm 871 */
																	BgL_test2469z00_4785 = ((bool_t) 0);
																}
															if (BgL_test2469z00_4785)
																{	/* Eval/evmeaning.scm 871 */
																	return
																		BBOOL(
																		((long) CINT(BgL_a0z00_1606) >
																			(long) CINT(BgL_a1z00_1607)));
																}
															else
																{	/* Eval/evmeaning.scm 871 */
																	return
																		BBOOL(BGl_2ze3ze3zz__r4_numbers_6_5z00
																		(BgL_a0z00_1606, BgL_a1z00_1607));
																}
														}
													else
														{	/* Eval/evmeaning.scm 871 */
															obj_t BgL_arg1469z00_1611;

															BgL_arg1469z00_1611 =
																VECTOR_REF(BgL_codez00_8, 1L);
															return
																BGl_evtypezd2errorzd2zz__everrorz00
																(BgL_arg1469z00_1611,
																BGl_string2357z00zz__evmeaningz00,
																BGl_symbol2364z00zz__evmeaningz00,
																BgL_a1z00_1607);
														}
												}
											else
												{	/* Eval/evmeaning.scm 871 */
													obj_t BgL_arg1470z00_1612;

													BgL_arg1470z00_1612 = VECTOR_REF(BgL_codez00_8, 1L);
													return
														BGl_evtypezd2errorzd2zz__everrorz00
														(BgL_arg1470z00_1612,
														BGl_string2357z00zz__evmeaningz00,
														BGl_symbol2364z00zz__evmeaningz00, BgL_a0z00_1606);
												}
										}
										break;
									case 153L:

										{	/* Eval/evmeaning.scm 873 */
											obj_t BgL_a0z00_1615;
											obj_t BgL_a1z00_1616;

											BgL_a0z00_1615 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 4L), BgL_stackz00_9, BgL_denvz00_10);
											BgL_a1z00_1616 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 5L), BgL_stackz00_9, BgL_denvz00_10);
											if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_a0z00_1615))
												{	/* Eval/evmeaning.scm 873 */
													if (BGl_numberzf3zf3zz__r4_numbers_6_5z00
														(BgL_a1z00_1616))
														{	/* Eval/evmeaning.scm 873 */
															bool_t BgL_test2473z00_4807;

															if (INTEGERP(BgL_a0z00_1615))
																{	/* Eval/evmeaning.scm 873 */
																	BgL_test2473z00_4807 =
																		INTEGERP(BgL_a1z00_1616);
																}
															else
																{	/* Eval/evmeaning.scm 873 */
																	BgL_test2473z00_4807 = ((bool_t) 0);
																}
															if (BgL_test2473z00_4807)
																{	/* Eval/evmeaning.scm 873 */
																	return
																		BBOOL(
																		((long) CINT(BgL_a0z00_1615) <=
																			(long) CINT(BgL_a1z00_1616)));
																}
															else
																{	/* Eval/evmeaning.scm 873 */
																	return
																		BBOOL(BGl_2zc3zd3z10zz__r4_numbers_6_5z00
																		(BgL_a0z00_1615, BgL_a1z00_1616));
																}
														}
													else
														{	/* Eval/evmeaning.scm 873 */
															obj_t BgL_arg1476z00_1620;

															BgL_arg1476z00_1620 =
																VECTOR_REF(BgL_codez00_8, 1L);
															return
																BGl_evtypezd2errorzd2zz__everrorz00
																(BgL_arg1476z00_1620,
																BGl_string2357z00zz__evmeaningz00,
																BGl_symbol2364z00zz__evmeaningz00,
																BgL_a1z00_1616);
														}
												}
											else
												{	/* Eval/evmeaning.scm 873 */
													obj_t BgL_arg1479z00_1621;

													BgL_arg1479z00_1621 = VECTOR_REF(BgL_codez00_8, 1L);
													return
														BGl_evtypezd2errorzd2zz__everrorz00
														(BgL_arg1479z00_1621,
														BGl_string2357z00zz__evmeaningz00,
														BGl_symbol2364z00zz__evmeaningz00, BgL_a0z00_1615);
												}
										}
										break;
									case 154L:

										{	/* Eval/evmeaning.scm 875 */
											obj_t BgL_a0z00_1624;
											obj_t BgL_a1z00_1625;

											BgL_a0z00_1624 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 4L), BgL_stackz00_9, BgL_denvz00_10);
											BgL_a1z00_1625 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 5L), BgL_stackz00_9, BgL_denvz00_10);
											if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_a0z00_1624))
												{	/* Eval/evmeaning.scm 875 */
													if (BGl_numberzf3zf3zz__r4_numbers_6_5z00
														(BgL_a1z00_1625))
														{	/* Eval/evmeaning.scm 875 */
															bool_t BgL_test2477z00_4829;

															if (INTEGERP(BgL_a0z00_1624))
																{	/* Eval/evmeaning.scm 875 */
																	BgL_test2477z00_4829 =
																		INTEGERP(BgL_a1z00_1625);
																}
															else
																{	/* Eval/evmeaning.scm 875 */
																	BgL_test2477z00_4829 = ((bool_t) 0);
																}
															if (BgL_test2477z00_4829)
																{	/* Eval/evmeaning.scm 875 */
																	return
																		BBOOL(
																		((long) CINT(BgL_a0z00_1624) >=
																			(long) CINT(BgL_a1z00_1625)));
																}
															else
																{	/* Eval/evmeaning.scm 875 */
																	return
																		BBOOL(BGl_2ze3zd3z30zz__r4_numbers_6_5z00
																		(BgL_a0z00_1624, BgL_a1z00_1625));
																}
														}
													else
														{	/* Eval/evmeaning.scm 875 */
															obj_t BgL_arg1486z00_1629;

															BgL_arg1486z00_1629 =
																VECTOR_REF(BgL_codez00_8, 1L);
															return
																BGl_evtypezd2errorzd2zz__everrorz00
																(BgL_arg1486z00_1629,
																BGl_string2357z00zz__evmeaningz00,
																BGl_symbol2364z00zz__evmeaningz00,
																BgL_a1z00_1625);
														}
												}
											else
												{	/* Eval/evmeaning.scm 875 */
													obj_t BgL_arg1487z00_1630;

													BgL_arg1487z00_1630 = VECTOR_REF(BgL_codez00_8, 1L);
													return
														BGl_evtypezd2errorzd2zz__everrorz00
														(BgL_arg1487z00_1630,
														BGl_string2357z00zz__evmeaningz00,
														BGl_symbol2364z00zz__evmeaningz00, BgL_a0z00_1624);
												}
										}
										break;
									case 155L:

										{	/* Eval/evmeaning.scm 877 */
											obj_t BgL_a0z00_1633;
											obj_t BgL_a1z00_1634;

											BgL_a0z00_1633 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 4L), BgL_stackz00_9, BgL_denvz00_10);
											BgL_a1z00_1634 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 5L), BgL_stackz00_9, BgL_denvz00_10);
											if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_a0z00_1633))
												{	/* Eval/evmeaning.scm 877 */
													if (BGl_numberzf3zf3zz__r4_numbers_6_5z00
														(BgL_a1z00_1634))
														{	/* Eval/evmeaning.scm 877 */
															bool_t BgL_test2481z00_4851;

															if (INTEGERP(BgL_a0z00_1633))
																{	/* Eval/evmeaning.scm 877 */
																	BgL_test2481z00_4851 =
																		INTEGERP(BgL_a1z00_1634);
																}
															else
																{	/* Eval/evmeaning.scm 877 */
																	BgL_test2481z00_4851 = ((bool_t) 0);
																}
															if (BgL_test2481z00_4851)
																{	/* Eval/evmeaning.scm 877 */
																	return
																		BBOOL(
																		((long) CINT(BgL_a0z00_1633) ==
																			(long) CINT(BgL_a1z00_1634)));
																}
															else
																{	/* Eval/evmeaning.scm 877 */
																	return
																		BBOOL(BGl_2zd3zd3zz__r4_numbers_6_5z00
																		(BgL_a0z00_1633, BgL_a1z00_1634));
																}
														}
													else
														{	/* Eval/evmeaning.scm 877 */
															obj_t BgL_arg1494z00_1638;

															BgL_arg1494z00_1638 =
																VECTOR_REF(BgL_codez00_8, 1L);
															return
																BGl_evtypezd2errorzd2zz__everrorz00
																(BgL_arg1494z00_1638,
																BGl_string2357z00zz__evmeaningz00,
																BGl_symbol2364z00zz__evmeaningz00,
																BgL_a1z00_1634);
														}
												}
											else
												{	/* Eval/evmeaning.scm 877 */
													obj_t BgL_arg1495z00_1639;

													BgL_arg1495z00_1639 = VECTOR_REF(BgL_codez00_8, 1L);
													return
														BGl_evtypezd2errorzd2zz__everrorz00
														(BgL_arg1495z00_1639,
														BGl_string2357z00zz__evmeaningz00,
														BGl_symbol2364z00zz__evmeaningz00, BgL_a0z00_1633);
												}
										}
										break;
									case 166L:

										{	/* Eval/evmeaning.scm 879 */
											obj_t BgL_a0z00_1642;
											obj_t BgL_a1z00_1643;

											BgL_a0z00_1642 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 4L), BgL_stackz00_9, BgL_denvz00_10);
											BgL_a1z00_1643 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 5L), BgL_stackz00_9, BgL_denvz00_10);
											if (INTEGERP(BgL_a0z00_1642))
												{	/* Eval/evmeaning.scm 879 */
													if (INTEGERP(BgL_a1z00_1643))
														{	/* Eval/evmeaning.scm 879 */
															return ADDFX(BgL_a0z00_1642, BgL_a1z00_1643);
														}
													else
														{	/* Eval/evmeaning.scm 879 */
															obj_t BgL_arg1501z00_1646;

															BgL_arg1501z00_1646 =
																VECTOR_REF(BgL_codez00_8, 1L);
															return
																BGl_evtypezd2errorzd2zz__everrorz00
																(BgL_arg1501z00_1646,
																BGl_string2357z00zz__evmeaningz00,
																BGl_symbol2366z00zz__evmeaningz00,
																BgL_a1z00_1643);
														}
												}
											else
												{	/* Eval/evmeaning.scm 879 */
													obj_t BgL_arg1502z00_1647;

													BgL_arg1502z00_1647 = VECTOR_REF(BgL_codez00_8, 1L);
													return
														BGl_evtypezd2errorzd2zz__everrorz00
														(BgL_arg1502z00_1647,
														BGl_string2357z00zz__evmeaningz00,
														BGl_symbol2366z00zz__evmeaningz00, BgL_a0z00_1642);
												}
										}
										break;
									case 167L:

										{	/* Eval/evmeaning.scm 881 */
											obj_t BgL_a0z00_1650;
											obj_t BgL_a1z00_1651;

											BgL_a0z00_1650 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 4L), BgL_stackz00_9, BgL_denvz00_10);
											BgL_a1z00_1651 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 5L), BgL_stackz00_9, BgL_denvz00_10);
											if (INTEGERP(BgL_a0z00_1650))
												{	/* Eval/evmeaning.scm 881 */
													if (INTEGERP(BgL_a1z00_1651))
														{	/* Eval/evmeaning.scm 881 */
															return SUBFX(BgL_a0z00_1650, BgL_a1z00_1651);
														}
													else
														{	/* Eval/evmeaning.scm 881 */
															obj_t BgL_arg1509z00_1654;

															BgL_arg1509z00_1654 =
																VECTOR_REF(BgL_codez00_8, 1L);
															return
																BGl_evtypezd2errorzd2zz__everrorz00
																(BgL_arg1509z00_1654,
																BGl_string2357z00zz__evmeaningz00,
																BGl_symbol2366z00zz__evmeaningz00,
																BgL_a1z00_1651);
														}
												}
											else
												{	/* Eval/evmeaning.scm 881 */
													obj_t BgL_arg1510z00_1655;

													BgL_arg1510z00_1655 = VECTOR_REF(BgL_codez00_8, 1L);
													return
														BGl_evtypezd2errorzd2zz__everrorz00
														(BgL_arg1510z00_1655,
														BGl_string2357z00zz__evmeaningz00,
														BGl_symbol2366z00zz__evmeaningz00, BgL_a0z00_1650);
												}
										}
										break;
									case 168L:

										{	/* Eval/evmeaning.scm 883 */
											obj_t BgL_a0z00_1658;
											obj_t BgL_a1z00_1659;

											BgL_a0z00_1658 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 4L), BgL_stackz00_9, BgL_denvz00_10);
											BgL_a1z00_1659 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 5L), BgL_stackz00_9, BgL_denvz00_10);
											if (INTEGERP(BgL_a0z00_1658))
												{	/* Eval/evmeaning.scm 883 */
													if (INTEGERP(BgL_a1z00_1659))
														{	/* Eval/evmeaning.scm 883 */
															return
																BINT(
																((long) CINT(BgL_a0z00_1658) *
																	(long) CINT(BgL_a1z00_1659)));
														}
													else
														{	/* Eval/evmeaning.scm 883 */
															obj_t BgL_arg1515z00_1662;

															BgL_arg1515z00_1662 =
																VECTOR_REF(BgL_codez00_8, 1L);
															return
																BGl_evtypezd2errorzd2zz__everrorz00
																(BgL_arg1515z00_1662,
																BGl_string2357z00zz__evmeaningz00,
																BGl_symbol2366z00zz__evmeaningz00,
																BgL_a1z00_1659);
														}
												}
											else
												{	/* Eval/evmeaning.scm 883 */
													obj_t BgL_arg1516z00_1663;

													BgL_arg1516z00_1663 = VECTOR_REF(BgL_codez00_8, 1L);
													return
														BGl_evtypezd2errorzd2zz__everrorz00
														(BgL_arg1516z00_1663,
														BGl_string2357z00zz__evmeaningz00,
														BGl_symbol2366z00zz__evmeaningz00, BgL_a0z00_1658);
												}
										}
										break;
									case 169L:

										{	/* Eval/evmeaning.scm 885 */
											obj_t BgL_a0z00_1666;
											obj_t BgL_a1z00_1667;

											BgL_a0z00_1666 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 4L), BgL_stackz00_9, BgL_denvz00_10);
											BgL_a1z00_1667 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 5L), BgL_stackz00_9, BgL_denvz00_10);
											if (INTEGERP(BgL_a0z00_1666))
												{	/* Eval/evmeaning.scm 885 */
													if (INTEGERP(BgL_a1z00_1667))
														{	/* Eval/evmeaning.scm 885 */
															return
																BINT(
																((long) CINT(BgL_a0z00_1666) /
																	(long) CINT(BgL_a1z00_1667)));
														}
													else
														{	/* Eval/evmeaning.scm 885 */
															obj_t BgL_arg1523z00_1670;

															BgL_arg1523z00_1670 =
																VECTOR_REF(BgL_codez00_8, 1L);
															return
																BGl_evtypezd2errorzd2zz__everrorz00
																(BgL_arg1523z00_1670,
																BGl_string2357z00zz__evmeaningz00,
																BGl_symbol2366z00zz__evmeaningz00,
																BgL_a1z00_1667);
														}
												}
											else
												{	/* Eval/evmeaning.scm 885 */
													obj_t BgL_arg1524z00_1671;

													BgL_arg1524z00_1671 = VECTOR_REF(BgL_codez00_8, 1L);
													return
														BGl_evtypezd2errorzd2zz__everrorz00
														(BgL_arg1524z00_1671,
														BGl_string2357z00zz__evmeaningz00,
														BGl_symbol2366z00zz__evmeaningz00, BgL_a0z00_1666);
												}
										}
										break;
									case 170L:

										{	/* Eval/evmeaning.scm 887 */
											obj_t BgL_a0z00_1674;
											obj_t BgL_a1z00_1675;

											BgL_a0z00_1674 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 4L), BgL_stackz00_9, BgL_denvz00_10);
											BgL_a1z00_1675 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 5L), BgL_stackz00_9, BgL_denvz00_10);
											if (INTEGERP(BgL_a0z00_1674))
												{	/* Eval/evmeaning.scm 887 */
													if (INTEGERP(BgL_a1z00_1675))
														{	/* Eval/evmeaning.scm 887 */
															return
																BBOOL(
																((long) CINT(BgL_a0z00_1674) <
																	(long) CINT(BgL_a1z00_1675)));
														}
													else
														{	/* Eval/evmeaning.scm 887 */
															obj_t BgL_arg1532z00_1678;

															BgL_arg1532z00_1678 =
																VECTOR_REF(BgL_codez00_8, 1L);
															return
																BGl_evtypezd2errorzd2zz__everrorz00
																(BgL_arg1532z00_1678,
																BGl_string2357z00zz__evmeaningz00,
																BGl_symbol2366z00zz__evmeaningz00,
																BgL_a1z00_1675);
														}
												}
											else
												{	/* Eval/evmeaning.scm 887 */
													obj_t BgL_arg1533z00_1679;

													BgL_arg1533z00_1679 = VECTOR_REF(BgL_codez00_8, 1L);
													return
														BGl_evtypezd2errorzd2zz__everrorz00
														(BgL_arg1533z00_1679,
														BGl_string2357z00zz__evmeaningz00,
														BGl_symbol2366z00zz__evmeaningz00, BgL_a0z00_1674);
												}
										}
										break;
									case 171L:

										{	/* Eval/evmeaning.scm 889 */
											obj_t BgL_a0z00_1682;
											obj_t BgL_a1z00_1683;

											BgL_a0z00_1682 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 4L), BgL_stackz00_9, BgL_denvz00_10);
											BgL_a1z00_1683 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 5L), BgL_stackz00_9, BgL_denvz00_10);
											if (INTEGERP(BgL_a0z00_1682))
												{	/* Eval/evmeaning.scm 889 */
													if (INTEGERP(BgL_a1z00_1683))
														{	/* Eval/evmeaning.scm 889 */
															return
																BBOOL(
																((long) CINT(BgL_a0z00_1682) >
																	(long) CINT(BgL_a1z00_1683)));
														}
													else
														{	/* Eval/evmeaning.scm 889 */
															obj_t BgL_arg1540z00_1686;

															BgL_arg1540z00_1686 =
																VECTOR_REF(BgL_codez00_8, 1L);
															return
																BGl_evtypezd2errorzd2zz__everrorz00
																(BgL_arg1540z00_1686,
																BGl_string2357z00zz__evmeaningz00,
																BGl_symbol2366z00zz__evmeaningz00,
																BgL_a1z00_1683);
														}
												}
											else
												{	/* Eval/evmeaning.scm 889 */
													obj_t BgL_arg1541z00_1687;

													BgL_arg1541z00_1687 = VECTOR_REF(BgL_codez00_8, 1L);
													return
														BGl_evtypezd2errorzd2zz__everrorz00
														(BgL_arg1541z00_1687,
														BGl_string2357z00zz__evmeaningz00,
														BGl_symbol2366z00zz__evmeaningz00, BgL_a0z00_1682);
												}
										}
										break;
									case 172L:

										{	/* Eval/evmeaning.scm 891 */
											obj_t BgL_a0z00_1690;
											obj_t BgL_a1z00_1691;

											BgL_a0z00_1690 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 4L), BgL_stackz00_9, BgL_denvz00_10);
											BgL_a1z00_1691 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 5L), BgL_stackz00_9, BgL_denvz00_10);
											if (INTEGERP(BgL_a0z00_1690))
												{	/* Eval/evmeaning.scm 891 */
													if (INTEGERP(BgL_a1z00_1691))
														{	/* Eval/evmeaning.scm 891 */
															return
																BBOOL(
																((long) CINT(BgL_a0z00_1690) <=
																	(long) CINT(BgL_a1z00_1691)));
														}
													else
														{	/* Eval/evmeaning.scm 891 */
															obj_t BgL_arg1546z00_1694;

															BgL_arg1546z00_1694 =
																VECTOR_REF(BgL_codez00_8, 1L);
															return
																BGl_evtypezd2errorzd2zz__everrorz00
																(BgL_arg1546z00_1694,
																BGl_string2357z00zz__evmeaningz00,
																BGl_symbol2366z00zz__evmeaningz00,
																BgL_a1z00_1691);
														}
												}
											else
												{	/* Eval/evmeaning.scm 891 */
													obj_t BgL_arg1547z00_1695;

													BgL_arg1547z00_1695 = VECTOR_REF(BgL_codez00_8, 1L);
													return
														BGl_evtypezd2errorzd2zz__everrorz00
														(BgL_arg1547z00_1695,
														BGl_string2357z00zz__evmeaningz00,
														BGl_symbol2366z00zz__evmeaningz00, BgL_a0z00_1690);
												}
										}
										break;
									case 173L:

										{	/* Eval/evmeaning.scm 893 */
											obj_t BgL_a0z00_1698;
											obj_t BgL_a1z00_1699;

											BgL_a0z00_1698 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 4L), BgL_stackz00_9, BgL_denvz00_10);
											BgL_a1z00_1699 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 5L), BgL_stackz00_9, BgL_denvz00_10);
											if (INTEGERP(BgL_a0z00_1698))
												{	/* Eval/evmeaning.scm 893 */
													if (INTEGERP(BgL_a1z00_1699))
														{	/* Eval/evmeaning.scm 893 */
															return
																BBOOL(
																((long) CINT(BgL_a0z00_1698) >=
																	(long) CINT(BgL_a1z00_1699)));
														}
													else
														{	/* Eval/evmeaning.scm 893 */
															obj_t BgL_arg1554z00_1702;

															BgL_arg1554z00_1702 =
																VECTOR_REF(BgL_codez00_8, 1L);
															return
																BGl_evtypezd2errorzd2zz__everrorz00
																(BgL_arg1554z00_1702,
																BGl_string2357z00zz__evmeaningz00,
																BGl_symbol2366z00zz__evmeaningz00,
																BgL_a1z00_1699);
														}
												}
											else
												{	/* Eval/evmeaning.scm 893 */
													obj_t BgL_arg1555z00_1703;

													BgL_arg1555z00_1703 = VECTOR_REF(BgL_codez00_8, 1L);
													return
														BGl_evtypezd2errorzd2zz__everrorz00
														(BgL_arg1555z00_1703,
														BGl_string2357z00zz__evmeaningz00,
														BGl_symbol2366z00zz__evmeaningz00, BgL_a0z00_1698);
												}
										}
										break;
									case 174L:

										{	/* Eval/evmeaning.scm 895 */
											obj_t BgL_a0z00_1706;
											obj_t BgL_a1z00_1707;

											BgL_a0z00_1706 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 4L), BgL_stackz00_9, BgL_denvz00_10);
											BgL_a1z00_1707 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 5L), BgL_stackz00_9, BgL_denvz00_10);
											if (INTEGERP(BgL_a0z00_1706))
												{	/* Eval/evmeaning.scm 895 */
													if (INTEGERP(BgL_a1z00_1707))
														{	/* Eval/evmeaning.scm 895 */
															return
																BBOOL(
																((long) CINT(BgL_a0z00_1706) ==
																	(long) CINT(BgL_a1z00_1707)));
														}
													else
														{	/* Eval/evmeaning.scm 895 */
															obj_t BgL_arg1562z00_1710;

															BgL_arg1562z00_1710 =
																VECTOR_REF(BgL_codez00_8, 1L);
															return
																BGl_evtypezd2errorzd2zz__everrorz00
																(BgL_arg1562z00_1710,
																BGl_string2357z00zz__evmeaningz00,
																BGl_symbol2366z00zz__evmeaningz00,
																BgL_a1z00_1707);
														}
												}
											else
												{	/* Eval/evmeaning.scm 895 */
													obj_t BgL_arg1563z00_1711;

													BgL_arg1563z00_1711 = VECTOR_REF(BgL_codez00_8, 1L);
													return
														BGl_evtypezd2errorzd2zz__everrorz00
														(BgL_arg1563z00_1711,
														BGl_string2357z00zz__evmeaningz00,
														BGl_symbol2366z00zz__evmeaningz00, BgL_a0z00_1706);
												}
										}
										break;
									case 156L:

										{	/* Eval/evmeaning.scm 897 */
											obj_t BgL_a0z00_1714;
											obj_t BgL_a1z00_1715;

											BgL_a0z00_1714 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 4L), BgL_stackz00_9, BgL_denvz00_10);
											BgL_a1z00_1715 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 5L), BgL_stackz00_9, BgL_denvz00_10);
											return BBOOL((BgL_a0z00_1714 == BgL_a1z00_1715));
										}
										break;
									case 157L:

										return
											MAKE_YOUNG_PAIR(BGl_evmeaningz00zz__evmeaningz00
											(VECTOR_REF(BgL_codez00_8, 4L), BgL_stackz00_9,
												BgL_denvz00_10),
											BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF(BgL_codez00_8,
													5L), BgL_stackz00_9, BgL_denvz00_10));
										break;
									case 158L:

										{	/* Eval/evmeaning.scm 901 */
											obj_t BgL_a0z00_1722;

											BgL_a0z00_1722 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 4L), BgL_stackz00_9, BgL_denvz00_10);
											if (PAIRP(BgL_a0z00_1722))
												{	/* Eval/evmeaning.scm 901 */
													return CAR(BgL_a0z00_1722);
												}
											else
												{	/* Eval/evmeaning.scm 901 */
													obj_t BgL_arg1577z00_1724;

													BgL_arg1577z00_1724 = VECTOR_REF(BgL_codez00_8, 1L);
													return
														BGl_evtypezd2errorzd2zz__everrorz00
														(BgL_arg1577z00_1724,
														BGl_string2357z00zz__evmeaningz00,
														BGl_symbol2368z00zz__evmeaningz00, BgL_a0z00_1722);
												}
										}
										break;
									case 159L:

										{	/* Eval/evmeaning.scm 903 */
											obj_t BgL_a0z00_1726;

											BgL_a0z00_1726 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 4L), BgL_stackz00_9, BgL_denvz00_10);
											if (PAIRP(BgL_a0z00_1726))
												{	/* Eval/evmeaning.scm 903 */
													return CDR(BgL_a0z00_1726);
												}
											else
												{	/* Eval/evmeaning.scm 903 */
													obj_t BgL_arg1580z00_1728;

													BgL_arg1580z00_1728 = VECTOR_REF(BgL_codez00_8, 1L);
													return
														BGl_evtypezd2errorzd2zz__everrorz00
														(BgL_arg1580z00_1728,
														BGl_string2357z00zz__evmeaningz00,
														BGl_symbol2368z00zz__evmeaningz00, BgL_a0z00_1726);
												}
										}
										break;
									case 160L:

										{	/* Eval/evmeaning.scm 905 */
											obj_t BgL_a0z00_1730;

											BgL_a0z00_1730 =
												BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_8, 4L), BgL_stackz00_9, BgL_denvz00_10);
											{	/* Eval/evmeaning.scm 907 */
												bool_t BgL_test2503z00_5030;

												if (PAIRP(BgL_a0z00_1730))
													{	/* Eval/evmeaning.scm 907 */
														obj_t BgL_tmpz00_5033;

														BgL_tmpz00_5033 = CDR(BgL_a0z00_1730);
														BgL_test2503z00_5030 = PAIRP(BgL_tmpz00_5033);
													}
												else
													{	/* Eval/evmeaning.scm 907 */
														BgL_test2503z00_5030 = ((bool_t) 0);
													}
												if (BgL_test2503z00_5030)
													{	/* Eval/evmeaning.scm 907 */
														return CAR(CDR(BgL_a0z00_1730));
													}
												else
													{	/* Eval/evmeaning.scm 907 */
														if (PAIRP(BgL_a0z00_1730))
															{	/* Eval/evmeaning.scm 909 */
																return
																	BGl_evtypezd2errorzd2zz__everrorz00(VECTOR_REF
																	(BgL_codez00_8, 1L), VECTOR_REF(BgL_codez00_8,
																		2L), BGl_string2369z00zz__evmeaningz00,
																	CDR(BgL_a0z00_1730));
															}
														else
															{	/* Eval/evmeaning.scm 909 */
																return
																	BGl_evtypezd2errorzd2zz__everrorz00(VECTOR_REF
																	(BgL_codez00_8, 1L), VECTOR_REF(BgL_codez00_8,
																		2L), BGl_string2369z00zz__evmeaningz00,
																	BgL_a0z00_1730);
															}
													}
											}
										}
										break;
									default:
									BgL_case_else1078z00_1410:
										{	/* Eval/evmeaning.scm 919 */
											obj_t BgL_arg1599z00_1743;

											BgL_arg1599z00_1743 =
												VECTOR_REF(((obj_t) BgL_codez00_8), 1L);
											return
												BGl_everrorz00zz__everrorz00(BgL_arg1599z00_1743,
												BGl_string2357z00zz__evmeaningz00,
												BGl_string2359z00zz__evmeaningz00, BgL_codez00_8);
										}
									}
							}
						else
							{	/* Eval/evmeaning.scm 186 */
								goto BgL_case_else1078z00_1410;
							}
					}
				}
			else
				{	/* Eval/evmeaning.scm 184 */
					return BgL_codez00_8;
				}
		}

	}



/* &evmeaning */
	obj_t BGl_z62evmeaningz62zz__evmeaningz00(obj_t BgL_envz00_3979,
		obj_t BgL_codez00_3980, obj_t BgL_stackz00_3981, obj_t BgL_denvz00_3982)
	{
		{	/* Eval/evmeaning.scm 183 */
			{	/* Eval/evmeaning.scm 184 */
				obj_t BgL_auxz00_5059;
				obj_t BgL_auxz00_5052;

				if (BGL_DYNAMIC_ENVP(BgL_denvz00_3982))
					{	/* Eval/evmeaning.scm 184 */
						BgL_auxz00_5059 = BgL_denvz00_3982;
					}
				else
					{
						obj_t BgL_auxz00_5062;

						BgL_auxz00_5062 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2370z00zz__evmeaningz00,
							BINT(6922L), BGl_string2371z00zz__evmeaningz00,
							BGl_string2373z00zz__evmeaningz00, BgL_denvz00_3982);
						FAILURE(BgL_auxz00_5062, BFALSE, BFALSE);
					}
				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_stackz00_3981))
					{	/* Eval/evmeaning.scm 184 */
						BgL_auxz00_5052 = BgL_stackz00_3981;
					}
				else
					{
						obj_t BgL_auxz00_5055;

						BgL_auxz00_5055 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2370z00zz__evmeaningz00,
							BINT(6922L), BGl_string2371z00zz__evmeaningz00,
							BGl_string2372z00zz__evmeaningz00, BgL_stackz00_3981);
						FAILURE(BgL_auxz00_5055, BFALSE, BFALSE);
					}
				return
					BGl_evmeaningz00zz__evmeaningz00(BgL_codez00_3980, BgL_auxz00_5052,
					BgL_auxz00_5059);
			}
		}

	}



/* evmeaning-bounce-176 */
	obj_t BGl_evmeaningzd2bouncezd2176z00zz__evmeaningz00(obj_t BgL_codez00_11,
		obj_t BgL_stackz00_12, obj_t BgL_denvz00_13)
	{
		{	/* Eval/evmeaning.scm 922 */
			{	/* Eval/evmeaning.scm 772 */
				obj_t BgL_mutexz00_1744;

				BgL_mutexz00_1744 = VECTOR_REF(BgL_codez00_11, 2L);
				{	/* Eval/evmeaning.scm 772 */
					obj_t BgL_prelockz00_1745;

					BgL_prelockz00_1745 = VECTOR_REF(BgL_codez00_11, 3L);
					{	/* Eval/evmeaning.scm 773 */
						obj_t BgL_bodyz00_1746;

						BgL_bodyz00_1746 = VECTOR_REF(BgL_codez00_11, 4L);
						{	/* Eval/evmeaning.scm 774 */
							obj_t BgL_mz00_1747;

							BgL_mz00_1747 =
								BGl_evmeaningz00zz__evmeaningz00(BgL_mutexz00_1744,
								BgL_stackz00_12, BgL_denvz00_13);
							{	/* Eval/evmeaning.scm 775 */

								if (BGL_MUTEXP(BgL_mz00_1747))
									{	/* Eval/evmeaning.scm 777 */
										obj_t BgL_top2510z00_5074;

										BgL_top2510z00_5074 = BGL_EXITD_TOP_AS_OBJ();
										{	/* Eval/evmeaning.scm 777 */
											obj_t BgL_tmpz00_5076;

											BgL_tmpz00_5076 =
												BGl_evmeaningz00zz__evmeaningz00(BgL_prelockz00_1745,
												BgL_stackz00_12, BgL_denvz00_13);
											BGL_MUTEX_LOCK_PRELOCK(BgL_mz00_1747, BgL_tmpz00_5076);
										}
										BGL_EXITD_PUSH_PROTECT(BgL_top2510z00_5074, BgL_mz00_1747);
										BUNSPEC;
										{	/* Eval/evmeaning.scm 777 */
											obj_t BgL_tmp2509z00_5073;

											BgL_tmp2509z00_5073 =
												BGl_evmeaningz00zz__evmeaningz00(BgL_bodyz00_1746,
												BgL_stackz00_12, BgL_denvz00_13);
											BGL_EXITD_POP_PROTECT(BgL_top2510z00_5074);
											BUNSPEC;
											BGL_MUTEX_UNLOCK(BgL_mz00_1747);
											return BgL_tmp2509z00_5073;
										}
									}
								else
									{	/* Eval/evmeaning.scm 776 */
										return
											BGl_evtypezd2errorzd2zz__everrorz00(VECTOR_REF
											(BgL_codez00_11, 1L), BGl_string2374z00zz__evmeaningz00,
											BGl_string2375z00zz__evmeaningz00, BgL_mz00_1747);
									}
							}
						}
					}
				}
			}
		}

	}



/* evmeaning-bounce-175 */
	obj_t BGl_evmeaningzd2bouncezd2175z00zz__evmeaningz00(obj_t BgL_codez00_14,
		obj_t BgL_stackz00_15, obj_t BgL_denvz00_16)
	{
		{	/* Eval/evmeaning.scm 922 */
			{	/* Eval/evmeaning.scm 763 */
				obj_t BgL_mutexz00_1750;

				BgL_mutexz00_1750 = VECTOR_REF(BgL_codez00_14, 2L);
				{	/* Eval/evmeaning.scm 763 */
					obj_t BgL_bodyz00_1751;

					BgL_bodyz00_1751 = VECTOR_REF(BgL_codez00_14, 3L);
					{	/* Eval/evmeaning.scm 764 */
						obj_t BgL_mz00_1752;

						BgL_mz00_1752 =
							BGl_evmeaningz00zz__evmeaningz00(BgL_mutexz00_1750,
							BgL_stackz00_15, BgL_denvz00_16);
						{	/* Eval/evmeaning.scm 765 */

							if (BGL_MUTEXP(BgL_mz00_1752))
								{	/* Eval/evmeaning.scm 767 */
									obj_t BgL_top2513z00_5091;

									BgL_top2513z00_5091 = BGL_EXITD_TOP_AS_OBJ();
									BGL_MUTEX_LOCK(BgL_mz00_1752);
									BGL_EXITD_PUSH_PROTECT(BgL_top2513z00_5091, BgL_mz00_1752);
									BUNSPEC;
									{	/* Eval/evmeaning.scm 767 */
										obj_t BgL_tmp2512z00_5090;

										BgL_tmp2512z00_5090 =
											BGl_evmeaningz00zz__evmeaningz00(BgL_bodyz00_1751,
											BgL_stackz00_15, BgL_denvz00_16);
										BGL_EXITD_POP_PROTECT(BgL_top2513z00_5091);
										BUNSPEC;
										BGL_MUTEX_UNLOCK(BgL_mz00_1752);
										return BgL_tmp2512z00_5090;
									}
								}
							else
								{	/* Eval/evmeaning.scm 766 */
									return
										BGl_evtypezd2errorzd2zz__everrorz00(VECTOR_REF
										(BgL_codez00_14, 1L), BGl_string2374z00zz__evmeaningz00,
										BGl_string2375z00zz__evmeaningz00, BgL_mz00_1752);
								}
						}
					}
				}
			}
		}

	}



/* evmeaning-bounce-71 */
	obj_t BGl_evmeaningzd2bouncezd271z00zz__evmeaningz00(obj_t BgL_codez00_17,
		obj_t BgL_stackz00_18, obj_t BgL_denvz00_19)
	{
		{	/* Eval/evmeaning.scm 922 */
			{	/* Eval/evmeaning.scm 750 */
				obj_t BgL_handlerz00_1755;

				BgL_handlerz00_1755 = VECTOR_REF(BgL_codez00_17, 2L);
				{	/* Eval/evmeaning.scm 750 */
					obj_t BgL_bodyz00_1756;

					BgL_bodyz00_1756 = VECTOR_REF(BgL_codez00_17, 3L);
					{	/* Eval/evmeaning.scm 751 */
						obj_t BgL_ehandlerz00_1757;

						BgL_ehandlerz00_1757 =
							BGl_evmeaningz00zz__evmeaningz00(BgL_handlerz00_1755,
							BgL_stackz00_18, BgL_denvz00_19);
						{	/* Eval/evmeaning.scm 752 */
							obj_t BgL_locz00_1758;

							BgL_locz00_1758 = VECTOR_REF(BgL_codez00_17, 1L);
							{	/* Eval/evmeaning.scm 753 */

								if (PROCEDUREP(BgL_ehandlerz00_1757))
									{	/* Eval/evmeaning.scm 755 */
										if (PROCEDURE_CORRECT_ARITYP(BgL_ehandlerz00_1757,
												(int) (1L)))
											{	/* Eval/evmeaning.scm 758 */
												obj_t BgL_handler1090z00_1760;
												obj_t BgL_env1093z00_1761;

												BgL_handler1090z00_1760 = BgL_ehandlerz00_1757;
												BgL_env1093z00_1761 = BGL_CURRENT_DYNAMIC_ENV();
												{	/* Eval/evmeaning.scm 758 */
													obj_t BgL_cell1088z00_1762;

													BgL_cell1088z00_1762 = MAKE_STACK_CELL(BUNSPEC);
													{	/* Eval/evmeaning.scm 758 */
														obj_t BgL_val1092z00_1763;

														BgL_val1092z00_1763 =
															BGl_zc3z04exitza31609ze3ze70z60zz__evmeaningz00
															(BgL_denvz00_19, BgL_stackz00_18,
															BgL_bodyz00_1756, BgL_cell1088z00_1762,
															BgL_env1093z00_1761);
														if ((BgL_val1092z00_1763 == BgL_cell1088z00_1762))
															{	/* Eval/evmeaning.scm 758 */
																{	/* Eval/evmeaning.scm 758 */
																	int BgL_tmpz00_5114;

																	BgL_tmpz00_5114 = (int) (0L);
																	BGL_SIGSETMASK(BgL_tmpz00_5114);
																}
																{	/* Eval/evmeaning.scm 758 */
																	obj_t BgL_arg1608z00_1764;

																	BgL_arg1608z00_1764 =
																		CELL_REF(((obj_t) BgL_val1092z00_1763));
																	return
																		BGL_PROCEDURE_CALL1(BgL_handler1090z00_1760,
																		BgL_arg1608z00_1764);
																}
															}
														else
															{	/* Eval/evmeaning.scm 758 */
																return BgL_val1092z00_1763;
															}
													}
												}
											}
										else
											{	/* Eval/evmeaning.scm 757 */
												return
													BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_1758,
													BGl_string2376z00zz__evmeaningz00, (int) (1L),
													PROCEDURE_ARITY(BgL_ehandlerz00_1757));
									}}
								else
									{	/* Eval/evmeaning.scm 755 */
										return
											BGl_evtypezd2errorzd2zz__everrorz00(BgL_locz00_1758,
											BGl_string2357z00zz__evmeaningz00,
											BGl_string2377z00zz__evmeaningz00, BgL_ehandlerz00_1757);
									}
							}
						}
					}
				}
			}
		}

	}



/* <@exit:1609>~0 */
	obj_t BGl_zc3z04exitza31609ze3ze70z60zz__evmeaningz00(obj_t BgL_denvz00_4182,
		obj_t BgL_stackz00_4181, obj_t BgL_bodyz00_4180, obj_t BgL_cell1088z00_4179,
		obj_t BgL_env1093z00_4178)
	{
		{	/* Eval/evmeaning.scm 758 */
			jmp_buf_t jmpbuf;
			void *BgL_an_exit1097z00_1766;

			if (SET_EXIT(BgL_an_exit1097z00_1766))
				{
					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_exit1097z00_1766 = (void *) jmpbuf;
					PUSH_ENV_EXIT(BgL_env1093z00_4178, BgL_an_exit1097z00_1766, 1L);
					{	/* Eval/evmeaning.scm 758 */
						obj_t BgL_escape1089z00_1767;

						BgL_escape1089z00_1767 =
							BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1093z00_4178);
						{	/* Eval/evmeaning.scm 758 */
							obj_t BgL_res1100z00_1768;

							{	/* Eval/evmeaning.scm 758 */
								obj_t BgL_ohs1085z00_1769;

								BgL_ohs1085z00_1769 =
									BGL_ENV_ERROR_HANDLER_GET(BgL_env1093z00_4178);
								{	/* Eval/evmeaning.scm 758 */
									obj_t BgL_hds1086z00_1770;

									BgL_hds1086z00_1770 =
										MAKE_STACK_PAIR(BgL_escape1089z00_1767,
										BgL_cell1088z00_4179);
									BGL_ENV_ERROR_HANDLER_SET(BgL_env1093z00_4178,
										BgL_hds1086z00_1770);
									BUNSPEC;
									{	/* Eval/evmeaning.scm 758 */
										obj_t BgL_exitd1094z00_1771;

										BgL_exitd1094z00_1771 =
											BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1093z00_4178);
										{	/* Eval/evmeaning.scm 758 */
											obj_t BgL_tmp1096z00_1772;

											{	/* Eval/evmeaning.scm 758 */
												obj_t BgL_arg1610z00_1774;

												BgL_arg1610z00_1774 =
													BGL_EXITD_PROTECT(BgL_exitd1094z00_1771);
												BgL_tmp1096z00_1772 =
													MAKE_YOUNG_PAIR(BgL_ohs1085z00_1769,
													BgL_arg1610z00_1774);
											}
											{	/* Eval/evmeaning.scm 758 */

												BGL_EXITD_PROTECT_SET(BgL_exitd1094z00_1771,
													BgL_tmp1096z00_1772);
												BUNSPEC;
												{	/* Eval/evmeaning.scm 758 */
													obj_t BgL_tmp1095z00_1773;

													BgL_tmp1095z00_1773 =
														BGl_evmeaningz00zz__evmeaningz00(BgL_bodyz00_4180,
														BgL_stackz00_4181, BgL_denvz00_4182);
													{	/* Eval/evmeaning.scm 758 */
														bool_t BgL_test2517z00_5139;

														{	/* Eval/evmeaning.scm 758 */
															obj_t BgL_arg2319z00_3240;

															BgL_arg2319z00_3240 =
																BGL_EXITD_PROTECT(BgL_exitd1094z00_1771);
															BgL_test2517z00_5139 = PAIRP(BgL_arg2319z00_3240);
														}
														if (BgL_test2517z00_5139)
															{	/* Eval/evmeaning.scm 758 */
																obj_t BgL_arg2316z00_3241;

																{	/* Eval/evmeaning.scm 758 */
																	obj_t BgL_arg2318z00_3242;

																	BgL_arg2318z00_3242 =
																		BGL_EXITD_PROTECT(BgL_exitd1094z00_1771);
																	BgL_arg2316z00_3241 =
																		CDR(((obj_t) BgL_arg2318z00_3242));
																}
																BGL_EXITD_PROTECT_SET(BgL_exitd1094z00_1771,
																	BgL_arg2316z00_3241);
																BUNSPEC;
															}
														else
															{	/* Eval/evmeaning.scm 758 */
																BFALSE;
															}
													}
													BGL_ENV_ERROR_HANDLER_SET(BgL_env1093z00_4178,
														BgL_ohs1085z00_1769);
													BUNSPEC;
													BgL_res1100z00_1768 = BgL_tmp1095z00_1773;
												}
											}
										}
									}
								}
							}
							POP_ENV_EXIT(BgL_env1093z00_4178);
							return BgL_res1100z00_1768;
						}
					}
				}
		}

	}



/* evmeaning-bounce-70 */
	obj_t BGl_evmeaningzd2bouncezd270z00zz__evmeaningz00(obj_t BgL_codez00_20,
		obj_t BgL_stackz00_21, obj_t BgL_denvz00_22)
	{
		{	/* Eval/evmeaning.scm 922 */
			{	/* Eval/evmeaning.scm 739 */
				obj_t BgL_valsz00_1776;

				BgL_valsz00_1776 = VECTOR_REF(BgL_codez00_20, 3L);
				{	/* Eval/evmeaning.scm 739 */
					obj_t BgL_stack2z00_1777;

					{	/* Eval/evmeaning.scm 740 */
						obj_t BgL_arg1621z00_1789;

						{	/* Eval/evmeaning.scm 740 */
							long BgL_arg1622z00_1790;

							BgL_arg1622z00_1790 = bgl_list_length(BgL_valsz00_1776);
							BgL_arg1621z00_1789 =
								BGl_makezd2listzd2zz__r4_pairs_and_lists_6_3z00(
								(int) (BgL_arg1622z00_1790), BNIL);
						}
						BgL_stack2z00_1777 =
							BGl_appendzd221011zd2zz__evmeaningz00(BgL_arg1621z00_1789,
							BgL_stackz00_21);
					}
					{	/* Eval/evmeaning.scm 740 */

						{
							obj_t BgL_valsz00_1779;
							obj_t BgL_stack3z00_1780;

							BgL_valsz00_1779 = BgL_valsz00_1776;
							BgL_stack3z00_1780 = BgL_stack2z00_1777;
						BgL_zc3z04anonymousza31613ze3z87_1781:
							if (NULLP(BgL_valsz00_1779))
								{	/* Eval/evmeaning.scm 743 */
									return
										BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF(BgL_codez00_20,
											2L), BgL_stack2z00_1777, BgL_denvz00_22);
								}
							else
								{	/* Eval/evmeaning.scm 743 */
									{	/* Eval/evmeaning.scm 746 */
										obj_t BgL_arg1616z00_1784;

										{	/* Eval/evmeaning.scm 746 */
											obj_t BgL_arg1617z00_1785;

											BgL_arg1617z00_1785 = CAR(((obj_t) BgL_valsz00_1779));
											BgL_arg1616z00_1784 =
												BGl_evmeaningz00zz__evmeaningz00(BgL_arg1617z00_1785,
												BgL_stack2z00_1777, BgL_denvz00_22);
										}
										{	/* Eval/evmeaning.scm 746 */
											obj_t BgL_tmpz00_5160;

											BgL_tmpz00_5160 = ((obj_t) BgL_stack3z00_1780);
											SET_CAR(BgL_tmpz00_5160, BgL_arg1616z00_1784);
										}
									}
									{	/* Eval/evmeaning.scm 747 */
										obj_t BgL_arg1619z00_1786;
										obj_t BgL_arg1620z00_1787;

										BgL_arg1619z00_1786 = CDR(((obj_t) BgL_valsz00_1779));
										BgL_arg1620z00_1787 = CDR(((obj_t) BgL_stack3z00_1780));
										{
											obj_t BgL_stack3z00_5168;
											obj_t BgL_valsz00_5167;

											BgL_valsz00_5167 = BgL_arg1619z00_1786;
											BgL_stack3z00_5168 = BgL_arg1620z00_1787;
											BgL_stack3z00_1780 = BgL_stack3z00_5168;
											BgL_valsz00_1779 = BgL_valsz00_5167;
											goto BgL_zc3z04anonymousza31613ze3z87_1781;
										}
									}
								}
						}
					}
				}
			}
		}

	}



/* evmeaning-bounce-68 */
	obj_t BGl_evmeaningzd2bouncezd268z00zz__evmeaningz00(obj_t BgL_codez00_23,
		obj_t BgL_stackz00_24, obj_t BgL_denvz00_25)
	{
		{	/* Eval/evmeaning.scm 922 */
			{	/* Eval/evmeaning.scm 730 */
				long BgL_lenz00_1792;

				BgL_lenz00_1792 = (VECTOR_LENGTH(BgL_codez00_23) - 2L);
				{
					long BgL_iz00_1794;
					obj_t BgL_lz00_1795;

					BgL_iz00_1794 = 0L;
					BgL_lz00_1795 = BTRUE;
				BgL_zc3z04anonymousza31624ze3z87_1796:
					if ((BgL_iz00_1794 < BgL_lenz00_1792))
						{	/* Eval/evmeaning.scm 734 */
							obj_t BgL_lz00_1798;

							BgL_lz00_1798 =
								BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF(BgL_codez00_23,
									(BgL_iz00_1794 + 2L)), BgL_stackz00_24, BgL_denvz00_25);
							if (CBOOL(BgL_lz00_1798))
								{
									obj_t BgL_lz00_5180;
									long BgL_iz00_5178;

									BgL_iz00_5178 = (BgL_iz00_1794 + 1L);
									BgL_lz00_5180 = BgL_lz00_1798;
									BgL_lz00_1795 = BgL_lz00_5180;
									BgL_iz00_1794 = BgL_iz00_5178;
									goto BgL_zc3z04anonymousza31624ze3z87_1796;
								}
							else
								{	/* Eval/evmeaning.scm 735 */
									return BFALSE;
								}
						}
					else
						{	/* Eval/evmeaning.scm 733 */
							return BgL_lz00_1795;
						}
				}
			}
		}

	}



/* evmeaning-bounce-67 */
	obj_t BGl_evmeaningzd2bouncezd267z00zz__evmeaningz00(obj_t BgL_codez00_26,
		obj_t BgL_stackz00_27, obj_t BgL_denvz00_28)
	{
		{	/* Eval/evmeaning.scm 922 */
			{	/* Eval/evmeaning.scm 722 */
				long BgL_lenz00_1805;

				BgL_lenz00_1805 = (VECTOR_LENGTH(BgL_codez00_26) - 2L);
				{
					long BgL_iz00_1807;

					BgL_iz00_1807 = 0L;
				BgL_zc3z04anonymousza31630ze3z87_1808:
					if ((BgL_iz00_1807 < BgL_lenz00_1805))
						{	/* Eval/evmeaning.scm 725 */
							obj_t BgL__ortest_1103z00_1810;

							BgL__ortest_1103z00_1810 =
								BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF(BgL_codez00_26,
									(BgL_iz00_1807 + 2L)), BgL_stackz00_27, BgL_denvz00_28);
							if (CBOOL(BgL__ortest_1103z00_1810))
								{	/* Eval/evmeaning.scm 725 */
									return BgL__ortest_1103z00_1810;
								}
							else
								{
									long BgL_iz00_5190;

									BgL_iz00_5190 = (BgL_iz00_1807 + 1L);
									BgL_iz00_1807 = BgL_iz00_5190;
									goto BgL_zc3z04anonymousza31630ze3z87_1808;
								}
						}
					else
						{	/* Eval/evmeaning.scm 724 */
							return BFALSE;
						}
				}
			}
		}

	}



/* evmeaning-bounce-64 */
	obj_t BGl_evmeaningzd2bouncezd264z00zz__evmeaningz00(obj_t BgL_codez00_29,
		obj_t BgL_stackz00_30, obj_t BgL_denvz00_31)
	{
		{	/* Eval/evmeaning.scm 922 */
			{	/* Eval/evmeaning.scm 700 */
				obj_t BgL_bodyz00_1816;
				obj_t BgL_protectz00_1817;

				BgL_bodyz00_1816 = VECTOR_REF(BgL_codez00_29, 2L);
				BgL_protectz00_1817 = VECTOR_REF(BgL_codez00_29, 3L);
				{	/* Eval/evmeaning.scm 702 */
					obj_t BgL_exitd1104z00_1818;

					BgL_exitd1104z00_1818 = BGL_EXITD_TOP_AS_OBJ();
					{	/* Eval/evmeaning.scm 703 */
						obj_t BgL_zc3z04anonymousza31636ze3z87_3983;

						BgL_zc3z04anonymousza31636ze3z87_3983 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31636ze3ze5zz__evmeaningz00, (int) (0L),
							(int) (3L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31636ze3z87_3983, (int) (0L),
							BgL_protectz00_1817);
						PROCEDURE_SET(BgL_zc3z04anonymousza31636ze3z87_3983, (int) (1L),
							BgL_stackz00_30);
						PROCEDURE_SET(BgL_zc3z04anonymousza31636ze3z87_3983, (int) (2L),
							BgL_denvz00_31);
						{	/* Eval/evmeaning.scm 702 */
							obj_t BgL_arg2320z00_3269;

							{	/* Eval/evmeaning.scm 702 */
								obj_t BgL_arg2322z00_3270;

								BgL_arg2322z00_3270 = BGL_EXITD_PROTECT(BgL_exitd1104z00_1818);
								BgL_arg2320z00_3269 =
									MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31636ze3z87_3983,
									BgL_arg2322z00_3270);
							}
							BGL_EXITD_PROTECT_SET(BgL_exitd1104z00_1818, BgL_arg2320z00_3269);
							BUNSPEC;
						}
						{	/* Eval/evmeaning.scm 702 */
							obj_t BgL_tmp1106z00_1820;

							BgL_tmp1106z00_1820 =
								BGl_evmeaningz00zz__evmeaningz00(BgL_bodyz00_1816,
								BgL_stackz00_30, BgL_denvz00_31);
							{	/* Eval/evmeaning.scm 702 */
								bool_t BgL_test2523z00_5208;

								{	/* Eval/evmeaning.scm 702 */
									obj_t BgL_arg2319z00_3272;

									BgL_arg2319z00_3272 =
										BGL_EXITD_PROTECT(BgL_exitd1104z00_1818);
									BgL_test2523z00_5208 = PAIRP(BgL_arg2319z00_3272);
								}
								if (BgL_test2523z00_5208)
									{	/* Eval/evmeaning.scm 702 */
										obj_t BgL_arg2316z00_3273;

										{	/* Eval/evmeaning.scm 702 */
											obj_t BgL_arg2318z00_3274;

											BgL_arg2318z00_3274 =
												BGL_EXITD_PROTECT(BgL_exitd1104z00_1818);
											BgL_arg2316z00_3273 = CDR(((obj_t) BgL_arg2318z00_3274));
										}
										BGL_EXITD_PROTECT_SET(BgL_exitd1104z00_1818,
											BgL_arg2316z00_3273);
										BUNSPEC;
									}
								else
									{	/* Eval/evmeaning.scm 702 */
										BFALSE;
									}
							}
							BGl_z62zc3z04anonymousza31636ze3ze5zz__evmeaningz00
								(BgL_zc3z04anonymousza31636ze3z87_3983);
							return BgL_tmp1106z00_1820;
						}
					}
				}
			}
		}

	}



/* &<@anonymous:1636> */
	obj_t BGl_z62zc3z04anonymousza31636ze3ze5zz__evmeaningz00(obj_t
		BgL_envz00_3984)
	{
		{	/* Eval/evmeaning.scm 702 */
			{	/* Eval/evmeaning.scm 703 */
				obj_t BgL_protectz00_3985;
				obj_t BgL_stackz00_3986;
				obj_t BgL_denvz00_3987;

				BgL_protectz00_3985 = PROCEDURE_REF(BgL_envz00_3984, (int) (0L));
				BgL_stackz00_3986 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3984, (int) (1L)));
				BgL_denvz00_3987 = ((obj_t) PROCEDURE_REF(BgL_envz00_3984, (int) (2L)));
				return
					BGl_evmeaningz00zz__evmeaningz00(BgL_protectz00_3985,
					BgL_stackz00_3986, BgL_denvz00_3987);
			}
		}

	}



/* evmeaning-bounce-54 */
	obj_t BGl_evmeaningzd2bouncezd254z00zz__evmeaningz00(obj_t BgL_codez00_32,
		obj_t BgL_stackz00_33, obj_t BgL_denvz00_34)
	{
		{	/* Eval/evmeaning.scm 922 */
			{	/* Eval/evmeaning.scm 681 */
				obj_t BgL_bodyz00_1823;

				BgL_bodyz00_1823 = VECTOR_REF(BgL_codez00_32, 2L);
				{	/* Eval/evmeaning.scm 684 */
					obj_t BgL_zc3z04anonymousza31638ze3z87_3988;

					BgL_zc3z04anonymousza31638ze3z87_3988 =
						MAKE_VA_PROCEDURE
						(BGl_z62zc3z04anonymousza31638ze3ze5zz__evmeaningz00, (int) ((-4L)),
						(int) (3L));
					PROCEDURE_SET(BgL_zc3z04anonymousza31638ze3z87_3988, (int) (0L),
						BgL_stackz00_33);
					PROCEDURE_SET(BgL_zc3z04anonymousza31638ze3z87_3988, (int) (1L),
						BgL_bodyz00_1823);
					PROCEDURE_SET(BgL_zc3z04anonymousza31638ze3z87_3988, (int) (2L),
						BgL_denvz00_34);
					{	/* Eval/evmeaning.scm 939 */
						obj_t BgL_arg1813z00_3277;

						{	/* Eval/evmeaning.scm 927 */
							obj_t BgL_newz00_3278;

							BgL_newz00_3278 =
								create_struct(BGl_symbol2360z00zz__evmeaningz00, (int) (3L));
							{	/* Eval/evmeaning.scm 927 */
								int BgL_tmpz00_5237;

								BgL_tmpz00_5237 = (int) (2L);
								STRUCT_SET(BgL_newz00_3278, BgL_tmpz00_5237, BgL_stackz00_33);
							}
							{	/* Eval/evmeaning.scm 927 */
								int BgL_tmpz00_5240;

								BgL_tmpz00_5240 = (int) (1L);
								STRUCT_SET(BgL_newz00_3278, BgL_tmpz00_5240, BgL_bodyz00_1823);
							}
							{	/* Eval/evmeaning.scm 927 */
								obj_t BgL_auxz00_5245;
								int BgL_tmpz00_5243;

								BgL_auxz00_5245 = BINT((-4L));
								BgL_tmpz00_5243 = (int) (0L);
								STRUCT_SET(BgL_newz00_3278, BgL_tmpz00_5243, BgL_auxz00_5245);
							}
							BgL_arg1813z00_3277 = BgL_newz00_3278;
						}
						PROCEDURE_ATTR_SET(BgL_zc3z04anonymousza31638ze3z87_3988,
							BgL_arg1813z00_3277);
						BgL_arg1813z00_3277;
					}
					return BgL_zc3z04anonymousza31638ze3z87_3988;
				}
			}
		}

	}



/* &<@anonymous:1638> */
	obj_t BGl_z62zc3z04anonymousza31638ze3ze5zz__evmeaningz00(obj_t
		BgL_envz00_3989, obj_t BgL_xz00_3993, obj_t BgL_yz00_3994,
		obj_t BgL_za7za7_3995, obj_t BgL_tz00_3996)
	{
		{	/* Eval/evmeaning.scm 683 */
			{	/* Eval/evmeaning.scm 687 */
				obj_t BgL_stackz00_3990;
				obj_t BgL_bodyz00_3991;
				obj_t BgL_denvz00_3992;

				BgL_stackz00_3990 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3989, (int) (0L)));
				BgL_bodyz00_3991 = PROCEDURE_REF(BgL_envz00_3989, (int) (1L));
				BgL_denvz00_3992 = ((obj_t) PROCEDURE_REF(BgL_envz00_3989, (int) (2L)));
				{	/* Eval/evmeaning.scm 687 */
					obj_t BgL_arg1639z00_4199;

					{	/* Eval/evmeaning.scm 687 */
						obj_t BgL_arg1641z00_4200;

						{	/* Eval/evmeaning.scm 687 */
							obj_t BgL_arg1642z00_4201;

							{	/* Eval/evmeaning.scm 687 */
								obj_t BgL_arg1643z00_4202;

								BgL_arg1643z00_4202 =
									MAKE_YOUNG_PAIR(BgL_tz00_3996, BgL_stackz00_3990);
								BgL_arg1642z00_4201 =
									MAKE_YOUNG_PAIR(BgL_za7za7_3995, BgL_arg1643z00_4202);
							}
							BgL_arg1641z00_4200 =
								MAKE_YOUNG_PAIR(BgL_yz00_3994, BgL_arg1642z00_4201);
						}
						BgL_arg1639z00_4199 =
							MAKE_YOUNG_PAIR(BgL_xz00_3993, BgL_arg1641z00_4200);
					}
					return
						BGl_evmeaningz00zz__evmeaningz00(BgL_bodyz00_3991,
						BgL_arg1639z00_4199, BgL_denvz00_3992);
				}
			}
		}

	}



/* evmeaning-bounce-50 */
	obj_t BGl_evmeaningzd2bouncezd250z00zz__evmeaningz00(obj_t BgL_codez00_35,
		obj_t BgL_stackz00_36, obj_t BgL_denvz00_37)
	{
		{	/* Eval/evmeaning.scm 922 */
			{	/* Eval/evmeaning.scm 656 */
				obj_t BgL_bodyz00_1836;
				obj_t BgL_wherez00_1837;
				obj_t BgL_locz00_1838;

				BgL_bodyz00_1836 = VECTOR_REF(BgL_codez00_35, 2L);
				BgL_wherez00_1837 = VECTOR_REF(BgL_codez00_35, 3L);
				BgL_locz00_1838 = VECTOR_REF(BgL_codez00_35, 1L);
				{	/* Eval/evmeaning.scm 661 */
					obj_t BgL_zc3z04anonymousza31645ze3z87_3997;

					BgL_zc3z04anonymousza31645ze3z87_3997 =
						MAKE_VA_PROCEDURE
						(BGl_z62zc3z04anonymousza31645ze3ze5zz__evmeaningz00, (int) ((-4L)),
						(int) (4L));
					PROCEDURE_SET(BgL_zc3z04anonymousza31645ze3z87_3997, (int) (0L),
						BgL_wherez00_1837);
					PROCEDURE_SET(BgL_zc3z04anonymousza31645ze3z87_3997, (int) (1L),
						BgL_locz00_1838);
					PROCEDURE_SET(BgL_zc3z04anonymousza31645ze3z87_3997, (int) (2L),
						BgL_stackz00_36);
					PROCEDURE_SET(BgL_zc3z04anonymousza31645ze3z87_3997, (int) (3L),
						BgL_bodyz00_1836);
					{	/* Eval/evmeaning.scm 939 */
						obj_t BgL_arg1813z00_3285;

						{	/* Eval/evmeaning.scm 927 */
							obj_t BgL_newz00_3286;

							BgL_newz00_3286 =
								create_struct(BGl_symbol2360z00zz__evmeaningz00, (int) (3L));
							{	/* Eval/evmeaning.scm 927 */
								int BgL_tmpz00_5278;

								BgL_tmpz00_5278 = (int) (2L);
								STRUCT_SET(BgL_newz00_3286, BgL_tmpz00_5278, BgL_stackz00_36);
							}
							{	/* Eval/evmeaning.scm 927 */
								int BgL_tmpz00_5281;

								BgL_tmpz00_5281 = (int) (1L);
								STRUCT_SET(BgL_newz00_3286, BgL_tmpz00_5281, BgL_bodyz00_1836);
							}
							{	/* Eval/evmeaning.scm 927 */
								obj_t BgL_auxz00_5286;
								int BgL_tmpz00_5284;

								BgL_auxz00_5286 = BINT((-4L));
								BgL_tmpz00_5284 = (int) (0L);
								STRUCT_SET(BgL_newz00_3286, BgL_tmpz00_5284, BgL_auxz00_5286);
							}
							BgL_arg1813z00_3285 = BgL_newz00_3286;
						}
						PROCEDURE_ATTR_SET(BgL_zc3z04anonymousza31645ze3z87_3997,
							BgL_arg1813z00_3285);
						BgL_arg1813z00_3285;
					}
					return BgL_zc3z04anonymousza31645ze3z87_3997;
				}
			}
		}

	}



/* &<@anonymous:1645> */
	obj_t BGl_z62zc3z04anonymousza31645ze3ze5zz__evmeaningz00(obj_t
		BgL_envz00_3998, obj_t BgL_xz00_4003, obj_t BgL_yz00_4004,
		obj_t BgL_za7za7_4005, obj_t BgL_tz00_4006)
	{
		{	/* Eval/evmeaning.scm 660 */
			{	/* Eval/evmeaning.scm 661 */
				obj_t BgL_wherez00_3999;
				obj_t BgL_locz00_4000;
				obj_t BgL_stackz00_4001;
				obj_t BgL_bodyz00_4002;

				BgL_wherez00_3999 = PROCEDURE_REF(BgL_envz00_3998, (int) (0L));
				BgL_locz00_4000 = PROCEDURE_REF(BgL_envz00_3998, (int) (1L));
				BgL_stackz00_4001 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3998, (int) (2L)));
				BgL_bodyz00_4002 = PROCEDURE_REF(BgL_envz00_3998, (int) (3L));
				{	/* Eval/evmeaning.scm 661 */
					obj_t BgL_z12denvz12_4203;

					BgL_z12denvz12_4203 = BGL_CURRENT_DYNAMIC_ENV();
					{	/* Eval/evmeaning.scm 664 */

						BGL_ENV_PUSH_TRACE(BgL_z12denvz12_4203, BgL_wherez00_3999,
							BgL_locz00_4000);
						{	/* Eval/evmeaning.scm 666 */
							obj_t BgL_resz00_4204;

							{	/* Eval/evmeaning.scm 671 */
								obj_t BgL_arg1646z00_4205;

								{	/* Eval/evmeaning.scm 671 */
									obj_t BgL_arg1647z00_4206;

									{	/* Eval/evmeaning.scm 671 */
										obj_t BgL_arg1649z00_4207;

										{	/* Eval/evmeaning.scm 671 */
											obj_t BgL_arg1651z00_4208;

											BgL_arg1651z00_4208 =
												MAKE_YOUNG_PAIR(BgL_tz00_4006, BgL_stackz00_4001);
											BgL_arg1649z00_4207 =
												MAKE_YOUNG_PAIR(BgL_za7za7_4005, BgL_arg1651z00_4208);
										}
										BgL_arg1647z00_4206 =
											MAKE_YOUNG_PAIR(BgL_yz00_4004, BgL_arg1649z00_4207);
									}
									BgL_arg1646z00_4205 =
										MAKE_YOUNG_PAIR(BgL_xz00_4003, BgL_arg1647z00_4206);
								}
								BgL_resz00_4204 =
									BGl_evmeaningz00zz__evmeaningz00(BgL_bodyz00_4002,
									BgL_arg1646z00_4205, BgL_z12denvz12_4203);
							}
							BGL_ENV_POP_TRACE(BgL_z12denvz12_4203);
							return BgL_resz00_4204;
						}
					}
				}
			}
		}

	}



/* evmeaning-bounce-53 */
	obj_t BGl_evmeaningzd2bouncezd253z00zz__evmeaningz00(obj_t BgL_codez00_38,
		obj_t BgL_stackz00_39, obj_t BgL_denvz00_40)
	{
		{	/* Eval/evmeaning.scm 922 */
			{	/* Eval/evmeaning.scm 644 */
				obj_t BgL_bodyz00_1854;

				BgL_bodyz00_1854 = VECTOR_REF(BgL_codez00_38, 2L);
				{	/* Eval/evmeaning.scm 647 */
					obj_t BgL_zc3z04anonymousza31653ze3z87_4007;

					BgL_zc3z04anonymousza31653ze3z87_4007 =
						MAKE_VA_PROCEDURE
						(BGl_z62zc3z04anonymousza31653ze3ze5zz__evmeaningz00, (int) ((-3L)),
						(int) (3L));
					PROCEDURE_SET(BgL_zc3z04anonymousza31653ze3z87_4007, (int) (0L),
						BgL_stackz00_39);
					PROCEDURE_SET(BgL_zc3z04anonymousza31653ze3z87_4007, (int) (1L),
						BgL_bodyz00_1854);
					PROCEDURE_SET(BgL_zc3z04anonymousza31653ze3z87_4007, (int) (2L),
						BgL_denvz00_40);
					{	/* Eval/evmeaning.scm 939 */
						obj_t BgL_arg1813z00_3291;

						{	/* Eval/evmeaning.scm 927 */
							obj_t BgL_newz00_3292;

							BgL_newz00_3292 =
								create_struct(BGl_symbol2360z00zz__evmeaningz00, (int) (3L));
							{	/* Eval/evmeaning.scm 927 */
								int BgL_tmpz00_5319;

								BgL_tmpz00_5319 = (int) (2L);
								STRUCT_SET(BgL_newz00_3292, BgL_tmpz00_5319, BgL_stackz00_39);
							}
							{	/* Eval/evmeaning.scm 927 */
								int BgL_tmpz00_5322;

								BgL_tmpz00_5322 = (int) (1L);
								STRUCT_SET(BgL_newz00_3292, BgL_tmpz00_5322, BgL_bodyz00_1854);
							}
							{	/* Eval/evmeaning.scm 927 */
								obj_t BgL_auxz00_5327;
								int BgL_tmpz00_5325;

								BgL_auxz00_5327 = BINT((-3L));
								BgL_tmpz00_5325 = (int) (0L);
								STRUCT_SET(BgL_newz00_3292, BgL_tmpz00_5325, BgL_auxz00_5327);
							}
							BgL_arg1813z00_3291 = BgL_newz00_3292;
						}
						PROCEDURE_ATTR_SET(BgL_zc3z04anonymousza31653ze3z87_4007,
							BgL_arg1813z00_3291);
						BgL_arg1813z00_3291;
					}
					return BgL_zc3z04anonymousza31653ze3z87_4007;
				}
			}
		}

	}



/* &<@anonymous:1653> */
	obj_t BGl_z62zc3z04anonymousza31653ze3ze5zz__evmeaningz00(obj_t
		BgL_envz00_4008, obj_t BgL_xz00_4012, obj_t BgL_yz00_4013,
		obj_t BgL_za7za7_4014)
	{
		{	/* Eval/evmeaning.scm 646 */
			{	/* Eval/evmeaning.scm 649 */
				obj_t BgL_stackz00_4009;
				obj_t BgL_bodyz00_4010;
				obj_t BgL_denvz00_4011;

				BgL_stackz00_4009 =
					((obj_t) PROCEDURE_REF(BgL_envz00_4008, (int) (0L)));
				BgL_bodyz00_4010 = PROCEDURE_REF(BgL_envz00_4008, (int) (1L));
				BgL_denvz00_4011 = ((obj_t) PROCEDURE_REF(BgL_envz00_4008, (int) (2L)));
				{	/* Eval/evmeaning.scm 649 */
					obj_t BgL_arg1655z00_4209;

					{	/* Eval/evmeaning.scm 649 */
						obj_t BgL_arg1658z00_4210;

						{	/* Eval/evmeaning.scm 649 */
							obj_t BgL_arg1659z00_4211;

							BgL_arg1659z00_4211 =
								MAKE_YOUNG_PAIR(BgL_za7za7_4014, BgL_stackz00_4009);
							BgL_arg1658z00_4210 =
								MAKE_YOUNG_PAIR(BgL_yz00_4013, BgL_arg1659z00_4211);
						}
						BgL_arg1655z00_4209 =
							MAKE_YOUNG_PAIR(BgL_xz00_4012, BgL_arg1658z00_4210);
					}
					return
						BGl_evmeaningz00zz__evmeaningz00(BgL_bodyz00_4010,
						BgL_arg1655z00_4209, BgL_denvz00_4011);
				}
			}
		}

	}



/* evmeaning-bounce-49 */
	obj_t BGl_evmeaningzd2bouncezd249z00zz__evmeaningz00(obj_t BgL_codez00_41,
		obj_t BgL_stackz00_42, obj_t BgL_denvz00_43)
	{
		{	/* Eval/evmeaning.scm 922 */
			{	/* Eval/evmeaning.scm 622 */
				obj_t BgL_bodyz00_1865;
				obj_t BgL_wherez00_1866;
				obj_t BgL_locz00_1867;

				BgL_bodyz00_1865 = VECTOR_REF(BgL_codez00_41, 2L);
				BgL_wherez00_1866 = VECTOR_REF(BgL_codez00_41, 3L);
				BgL_locz00_1867 = VECTOR_REF(BgL_codez00_41, 1L);
				{	/* Eval/evmeaning.scm 627 */
					obj_t BgL_zc3z04anonymousza31661ze3z87_4015;

					BgL_zc3z04anonymousza31661ze3z87_4015 =
						MAKE_VA_PROCEDURE
						(BGl_z62zc3z04anonymousza31661ze3ze5zz__evmeaningz00, (int) ((-3L)),
						(int) (4L));
					PROCEDURE_SET(BgL_zc3z04anonymousza31661ze3z87_4015, (int) (0L),
						BgL_wherez00_1866);
					PROCEDURE_SET(BgL_zc3z04anonymousza31661ze3z87_4015, (int) (1L),
						BgL_locz00_1867);
					PROCEDURE_SET(BgL_zc3z04anonymousza31661ze3z87_4015, (int) (2L),
						BgL_stackz00_42);
					PROCEDURE_SET(BgL_zc3z04anonymousza31661ze3z87_4015, (int) (3L),
						BgL_bodyz00_1865);
					{	/* Eval/evmeaning.scm 939 */
						obj_t BgL_arg1813z00_3299;

						{	/* Eval/evmeaning.scm 927 */
							obj_t BgL_newz00_3300;

							BgL_newz00_3300 =
								create_struct(BGl_symbol2360z00zz__evmeaningz00, (int) (3L));
							{	/* Eval/evmeaning.scm 927 */
								int BgL_tmpz00_5359;

								BgL_tmpz00_5359 = (int) (2L);
								STRUCT_SET(BgL_newz00_3300, BgL_tmpz00_5359, BgL_stackz00_42);
							}
							{	/* Eval/evmeaning.scm 927 */
								int BgL_tmpz00_5362;

								BgL_tmpz00_5362 = (int) (1L);
								STRUCT_SET(BgL_newz00_3300, BgL_tmpz00_5362, BgL_bodyz00_1865);
							}
							{	/* Eval/evmeaning.scm 927 */
								obj_t BgL_auxz00_5367;
								int BgL_tmpz00_5365;

								BgL_auxz00_5367 = BINT((-3L));
								BgL_tmpz00_5365 = (int) (0L);
								STRUCT_SET(BgL_newz00_3300, BgL_tmpz00_5365, BgL_auxz00_5367);
							}
							BgL_arg1813z00_3299 = BgL_newz00_3300;
						}
						PROCEDURE_ATTR_SET(BgL_zc3z04anonymousza31661ze3z87_4015,
							BgL_arg1813z00_3299);
						BgL_arg1813z00_3299;
					}
					return BgL_zc3z04anonymousza31661ze3z87_4015;
				}
			}
		}

	}



/* &<@anonymous:1661> */
	obj_t BGl_z62zc3z04anonymousza31661ze3ze5zz__evmeaningz00(obj_t
		BgL_envz00_4016, obj_t BgL_xz00_4021, obj_t BgL_yz00_4022,
		obj_t BgL_za7za7_4023)
	{
		{	/* Eval/evmeaning.scm 626 */
			{	/* Eval/evmeaning.scm 627 */
				obj_t BgL_wherez00_4017;
				obj_t BgL_locz00_4018;
				obj_t BgL_stackz00_4019;
				obj_t BgL_bodyz00_4020;

				BgL_wherez00_4017 = PROCEDURE_REF(BgL_envz00_4016, (int) (0L));
				BgL_locz00_4018 = PROCEDURE_REF(BgL_envz00_4016, (int) (1L));
				BgL_stackz00_4019 =
					((obj_t) PROCEDURE_REF(BgL_envz00_4016, (int) (2L)));
				BgL_bodyz00_4020 = PROCEDURE_REF(BgL_envz00_4016, (int) (3L));
				{	/* Eval/evmeaning.scm 627 */
					obj_t BgL_z12denvz12_4212;

					BgL_z12denvz12_4212 = BGL_CURRENT_DYNAMIC_ENV();
					{	/* Eval/evmeaning.scm 630 */

						BGL_ENV_PUSH_TRACE(BgL_z12denvz12_4212, BgL_wherez00_4017,
							BgL_locz00_4018);
						{	/* Eval/evmeaning.scm 632 */
							obj_t BgL_resz00_4213;

							{	/* Eval/evmeaning.scm 635 */
								obj_t BgL_arg1662z00_4214;

								{	/* Eval/evmeaning.scm 635 */
									obj_t BgL_arg1664z00_4215;

									{	/* Eval/evmeaning.scm 635 */
										obj_t BgL_arg1665z00_4216;

										BgL_arg1665z00_4216 =
											MAKE_YOUNG_PAIR(BgL_za7za7_4023, BgL_stackz00_4019);
										BgL_arg1664z00_4215 =
											MAKE_YOUNG_PAIR(BgL_yz00_4022, BgL_arg1665z00_4216);
									}
									BgL_arg1662z00_4214 =
										MAKE_YOUNG_PAIR(BgL_xz00_4021, BgL_arg1664z00_4215);
								}
								BgL_resz00_4213 =
									BGl_evmeaningz00zz__evmeaningz00(BgL_bodyz00_4020,
									BgL_arg1662z00_4214, BgL_z12denvz12_4212);
							}
							BGL_ENV_POP_TRACE(BgL_z12denvz12_4212);
							return BgL_resz00_4213;
						}
					}
				}
			}
		}

	}



/* evmeaning-bounce-52 */
	obj_t BGl_evmeaningzd2bouncezd252z00zz__evmeaningz00(obj_t BgL_codez00_44,
		obj_t BgL_stackz00_45, obj_t BgL_denvz00_46)
	{
		{	/* Eval/evmeaning.scm 922 */
			{	/* Eval/evmeaning.scm 612 */
				obj_t BgL_bodyz00_1881;

				BgL_bodyz00_1881 = VECTOR_REF(BgL_codez00_44, 2L);
				{	/* Eval/evmeaning.scm 615 */
					obj_t BgL_zc3z04anonymousza31667ze3z87_4024;

					BgL_zc3z04anonymousza31667ze3z87_4024 =
						MAKE_VA_PROCEDURE
						(BGl_z62zc3z04anonymousza31667ze3ze5zz__evmeaningz00, (int) ((-2L)),
						(int) (3L));
					PROCEDURE_SET(BgL_zc3z04anonymousza31667ze3z87_4024, (int) (0L),
						BgL_stackz00_45);
					PROCEDURE_SET(BgL_zc3z04anonymousza31667ze3z87_4024, (int) (1L),
						BgL_bodyz00_1881);
					PROCEDURE_SET(BgL_zc3z04anonymousza31667ze3z87_4024, (int) (2L),
						BgL_denvz00_46);
					{	/* Eval/evmeaning.scm 939 */
						obj_t BgL_arg1813z00_3305;

						{	/* Eval/evmeaning.scm 927 */
							obj_t BgL_newz00_3306;

							BgL_newz00_3306 =
								create_struct(BGl_symbol2360z00zz__evmeaningz00, (int) (3L));
							{	/* Eval/evmeaning.scm 927 */
								int BgL_tmpz00_5399;

								BgL_tmpz00_5399 = (int) (2L);
								STRUCT_SET(BgL_newz00_3306, BgL_tmpz00_5399, BgL_stackz00_45);
							}
							{	/* Eval/evmeaning.scm 927 */
								int BgL_tmpz00_5402;

								BgL_tmpz00_5402 = (int) (1L);
								STRUCT_SET(BgL_newz00_3306, BgL_tmpz00_5402, BgL_bodyz00_1881);
							}
							{	/* Eval/evmeaning.scm 927 */
								obj_t BgL_auxz00_5407;
								int BgL_tmpz00_5405;

								BgL_auxz00_5407 = BINT((-2L));
								BgL_tmpz00_5405 = (int) (0L);
								STRUCT_SET(BgL_newz00_3306, BgL_tmpz00_5405, BgL_auxz00_5407);
							}
							BgL_arg1813z00_3305 = BgL_newz00_3306;
						}
						PROCEDURE_ATTR_SET(BgL_zc3z04anonymousza31667ze3z87_4024,
							BgL_arg1813z00_3305);
						BgL_arg1813z00_3305;
					}
					return BgL_zc3z04anonymousza31667ze3z87_4024;
				}
			}
		}

	}



/* &<@anonymous:1667> */
	obj_t BGl_z62zc3z04anonymousza31667ze3ze5zz__evmeaningz00(obj_t
		BgL_envz00_4025, obj_t BgL_xz00_4029, obj_t BgL_yz00_4030)
	{
		{	/* Eval/evmeaning.scm 614 */
			{	/* Eval/evmeaning.scm 616 */
				obj_t BgL_stackz00_4026;
				obj_t BgL_bodyz00_4027;
				obj_t BgL_denvz00_4028;

				BgL_stackz00_4026 =
					((obj_t) PROCEDURE_REF(BgL_envz00_4025, (int) (0L)));
				BgL_bodyz00_4027 = PROCEDURE_REF(BgL_envz00_4025, (int) (1L));
				BgL_denvz00_4028 = ((obj_t) PROCEDURE_REF(BgL_envz00_4025, (int) (2L)));
				{	/* Eval/evmeaning.scm 616 */
					obj_t BgL_arg1671z00_4217;

					{	/* Eval/evmeaning.scm 616 */
						obj_t BgL_arg1672z00_4218;

						BgL_arg1672z00_4218 =
							MAKE_YOUNG_PAIR(BgL_yz00_4030, BgL_stackz00_4026);
						BgL_arg1671z00_4217 =
							MAKE_YOUNG_PAIR(BgL_xz00_4029, BgL_arg1672z00_4218);
					}
					return
						BGl_evmeaningz00zz__evmeaningz00(BgL_bodyz00_4027,
						BgL_arg1671z00_4217, BgL_denvz00_4028);
				}
			}
		}

	}



/* evmeaning-bounce-48 */
	obj_t BGl_evmeaningzd2bouncezd248z00zz__evmeaningz00(obj_t BgL_codez00_47,
		obj_t BgL_stackz00_48, obj_t BgL_denvz00_49)
	{
		{	/* Eval/evmeaning.scm 922 */
			{	/* Eval/evmeaning.scm 594 */
				obj_t BgL_bodyz00_1890;
				obj_t BgL_wherez00_1891;
				obj_t BgL_locz00_1892;

				BgL_bodyz00_1890 = VECTOR_REF(BgL_codez00_47, 2L);
				BgL_wherez00_1891 = VECTOR_REF(BgL_codez00_47, 3L);
				BgL_locz00_1892 = VECTOR_REF(BgL_codez00_47, 1L);
				{	/* Eval/evmeaning.scm 599 */
					obj_t BgL_zc3z04anonymousza31674ze3z87_4031;

					BgL_zc3z04anonymousza31674ze3z87_4031 =
						MAKE_VA_PROCEDURE
						(BGl_z62zc3z04anonymousza31674ze3ze5zz__evmeaningz00, (int) ((-2L)),
						(int) (4L));
					PROCEDURE_SET(BgL_zc3z04anonymousza31674ze3z87_4031, (int) (0L),
						BgL_wherez00_1891);
					PROCEDURE_SET(BgL_zc3z04anonymousza31674ze3z87_4031, (int) (1L),
						BgL_locz00_1892);
					PROCEDURE_SET(BgL_zc3z04anonymousza31674ze3z87_4031, (int) (2L),
						BgL_stackz00_48);
					PROCEDURE_SET(BgL_zc3z04anonymousza31674ze3z87_4031, (int) (3L),
						BgL_bodyz00_1890);
					{	/* Eval/evmeaning.scm 939 */
						obj_t BgL_arg1813z00_3313;

						{	/* Eval/evmeaning.scm 927 */
							obj_t BgL_newz00_3314;

							BgL_newz00_3314 =
								create_struct(BGl_symbol2360z00zz__evmeaningz00, (int) (3L));
							{	/* Eval/evmeaning.scm 927 */
								int BgL_tmpz00_5438;

								BgL_tmpz00_5438 = (int) (2L);
								STRUCT_SET(BgL_newz00_3314, BgL_tmpz00_5438, BgL_stackz00_48);
							}
							{	/* Eval/evmeaning.scm 927 */
								int BgL_tmpz00_5441;

								BgL_tmpz00_5441 = (int) (1L);
								STRUCT_SET(BgL_newz00_3314, BgL_tmpz00_5441, BgL_bodyz00_1890);
							}
							{	/* Eval/evmeaning.scm 927 */
								obj_t BgL_auxz00_5446;
								int BgL_tmpz00_5444;

								BgL_auxz00_5446 = BINT((-2L));
								BgL_tmpz00_5444 = (int) (0L);
								STRUCT_SET(BgL_newz00_3314, BgL_tmpz00_5444, BgL_auxz00_5446);
							}
							BgL_arg1813z00_3313 = BgL_newz00_3314;
						}
						PROCEDURE_ATTR_SET(BgL_zc3z04anonymousza31674ze3z87_4031,
							BgL_arg1813z00_3313);
						BgL_arg1813z00_3313;
					}
					return BgL_zc3z04anonymousza31674ze3z87_4031;
				}
			}
		}

	}



/* &<@anonymous:1674> */
	obj_t BGl_z62zc3z04anonymousza31674ze3ze5zz__evmeaningz00(obj_t
		BgL_envz00_4032, obj_t BgL_xz00_4037, obj_t BgL_yz00_4038)
	{
		{	/* Eval/evmeaning.scm 598 */
			{	/* Eval/evmeaning.scm 599 */
				obj_t BgL_wherez00_4033;
				obj_t BgL_locz00_4034;
				obj_t BgL_stackz00_4035;
				obj_t BgL_bodyz00_4036;

				BgL_wherez00_4033 = PROCEDURE_REF(BgL_envz00_4032, (int) (0L));
				BgL_locz00_4034 = PROCEDURE_REF(BgL_envz00_4032, (int) (1L));
				BgL_stackz00_4035 =
					((obj_t) PROCEDURE_REF(BgL_envz00_4032, (int) (2L)));
				BgL_bodyz00_4036 = PROCEDURE_REF(BgL_envz00_4032, (int) (3L));
				{	/* Eval/evmeaning.scm 599 */
					obj_t BgL_z12denvz12_4219;

					BgL_z12denvz12_4219 = BGL_CURRENT_DYNAMIC_ENV();
					{	/* Eval/evmeaning.scm 602 */

						BGL_ENV_PUSH_TRACE(BgL_z12denvz12_4219, BgL_wherez00_4033,
							BgL_locz00_4034);
						{	/* Eval/evmeaning.scm 604 */
							obj_t BgL_rz00_4220;

							{	/* Eval/evmeaning.scm 604 */
								obj_t BgL_arg1675z00_4221;

								{	/* Eval/evmeaning.scm 604 */
									obj_t BgL_arg1681z00_4222;

									BgL_arg1681z00_4222 =
										MAKE_YOUNG_PAIR(BgL_yz00_4038, BgL_stackz00_4035);
									BgL_arg1675z00_4221 =
										MAKE_YOUNG_PAIR(BgL_xz00_4037, BgL_arg1681z00_4222);
								}
								BgL_rz00_4220 =
									BGl_evmeaningz00zz__evmeaningz00(BgL_bodyz00_4036,
									BgL_arg1675z00_4221, BgL_z12denvz12_4219);
							}
							BGL_ENV_POP_TRACE(BgL_z12denvz12_4219);
							return BgL_rz00_4220;
						}
					}
				}
			}
		}

	}



/* evmeaning-bounce-51 */
	obj_t BGl_evmeaningzd2bouncezd251z00zz__evmeaningz00(obj_t BgL_codez00_50,
		obj_t BgL_stackz00_51, obj_t BgL_denvz00_52)
	{
		{	/* Eval/evmeaning.scm 922 */
			{	/* Eval/evmeaning.scm 584 */
				obj_t BgL_bodyz00_1904;

				BgL_bodyz00_1904 = VECTOR_REF(BgL_codez00_50, 2L);
				{	/* Eval/evmeaning.scm 587 */
					obj_t BgL_zc3z04anonymousza31684ze3z87_4039;

					BgL_zc3z04anonymousza31684ze3z87_4039 =
						MAKE_VA_PROCEDURE
						(BGl_z62zc3z04anonymousza31684ze3ze5zz__evmeaningz00, (int) ((-1L)),
						(int) (3L));
					PROCEDURE_SET(BgL_zc3z04anonymousza31684ze3z87_4039, (int) (0L),
						BgL_stackz00_51);
					PROCEDURE_SET(BgL_zc3z04anonymousza31684ze3z87_4039, (int) (1L),
						BgL_bodyz00_1904);
					PROCEDURE_SET(BgL_zc3z04anonymousza31684ze3z87_4039, (int) (2L),
						BgL_denvz00_52);
					{	/* Eval/evmeaning.scm 939 */
						obj_t BgL_arg1813z00_3319;

						{	/* Eval/evmeaning.scm 927 */
							obj_t BgL_newz00_3320;

							BgL_newz00_3320 =
								create_struct(BGl_symbol2360z00zz__evmeaningz00, (int) (3L));
							{	/* Eval/evmeaning.scm 927 */
								int BgL_tmpz00_5477;

								BgL_tmpz00_5477 = (int) (2L);
								STRUCT_SET(BgL_newz00_3320, BgL_tmpz00_5477, BgL_stackz00_51);
							}
							{	/* Eval/evmeaning.scm 927 */
								int BgL_tmpz00_5480;

								BgL_tmpz00_5480 = (int) (1L);
								STRUCT_SET(BgL_newz00_3320, BgL_tmpz00_5480, BgL_bodyz00_1904);
							}
							{	/* Eval/evmeaning.scm 927 */
								obj_t BgL_auxz00_5485;
								int BgL_tmpz00_5483;

								BgL_auxz00_5485 = BINT((-1L));
								BgL_tmpz00_5483 = (int) (0L);
								STRUCT_SET(BgL_newz00_3320, BgL_tmpz00_5483, BgL_auxz00_5485);
							}
							BgL_arg1813z00_3319 = BgL_newz00_3320;
						}
						PROCEDURE_ATTR_SET(BgL_zc3z04anonymousza31684ze3z87_4039,
							BgL_arg1813z00_3319);
						BgL_arg1813z00_3319;
					}
					return BgL_zc3z04anonymousza31684ze3z87_4039;
				}
			}
		}

	}



/* &<@anonymous:1684> */
	obj_t BGl_z62zc3z04anonymousza31684ze3ze5zz__evmeaningz00(obj_t
		BgL_envz00_4040, obj_t BgL_xz00_4044)
	{
		{	/* Eval/evmeaning.scm 586 */
			{	/* Eval/evmeaning.scm 588 */
				obj_t BgL_stackz00_4041;
				obj_t BgL_bodyz00_4042;
				obj_t BgL_denvz00_4043;

				BgL_stackz00_4041 =
					((obj_t) PROCEDURE_REF(BgL_envz00_4040, (int) (0L)));
				BgL_bodyz00_4042 = PROCEDURE_REF(BgL_envz00_4040, (int) (1L));
				BgL_denvz00_4043 = ((obj_t) PROCEDURE_REF(BgL_envz00_4040, (int) (2L)));
				{	/* Eval/evmeaning.scm 588 */
					obj_t BgL_arg1687z00_4223;

					BgL_arg1687z00_4223 =
						MAKE_YOUNG_PAIR(BgL_xz00_4044, BgL_stackz00_4041);
					return
						BGl_evmeaningz00zz__evmeaningz00(BgL_bodyz00_4042,
						BgL_arg1687z00_4223, BgL_denvz00_4043);
				}
			}
		}

	}



/* evmeaning-bounce-47 */
	obj_t BGl_evmeaningzd2bouncezd247z00zz__evmeaningz00(obj_t BgL_codez00_53,
		obj_t BgL_stackz00_54, obj_t BgL_denvz00_55)
	{
		{	/* Eval/evmeaning.scm 922 */
			{	/* Eval/evmeaning.scm 566 */
				obj_t BgL_bodyz00_1911;
				obj_t BgL_wherez00_1912;
				obj_t BgL_locz00_1913;

				BgL_bodyz00_1911 = VECTOR_REF(BgL_codez00_53, 2L);
				BgL_wherez00_1912 = VECTOR_REF(BgL_codez00_53, 3L);
				BgL_locz00_1913 = VECTOR_REF(BgL_codez00_53, 1L);
				{	/* Eval/evmeaning.scm 571 */
					obj_t BgL_zc3z04anonymousza31690ze3z87_4045;

					BgL_zc3z04anonymousza31690ze3z87_4045 =
						MAKE_VA_PROCEDURE
						(BGl_z62zc3z04anonymousza31690ze3ze5zz__evmeaningz00, (int) ((-1L)),
						(int) (4L));
					PROCEDURE_SET(BgL_zc3z04anonymousza31690ze3z87_4045, (int) (0L),
						BgL_wherez00_1912);
					PROCEDURE_SET(BgL_zc3z04anonymousza31690ze3z87_4045, (int) (1L),
						BgL_locz00_1913);
					PROCEDURE_SET(BgL_zc3z04anonymousza31690ze3z87_4045, (int) (2L),
						BgL_stackz00_54);
					PROCEDURE_SET(BgL_zc3z04anonymousza31690ze3z87_4045, (int) (3L),
						BgL_bodyz00_1911);
					{	/* Eval/evmeaning.scm 939 */
						obj_t BgL_arg1813z00_3327;

						{	/* Eval/evmeaning.scm 927 */
							obj_t BgL_newz00_3328;

							BgL_newz00_3328 =
								create_struct(BGl_symbol2360z00zz__evmeaningz00, (int) (3L));
							{	/* Eval/evmeaning.scm 927 */
								int BgL_tmpz00_5515;

								BgL_tmpz00_5515 = (int) (2L);
								STRUCT_SET(BgL_newz00_3328, BgL_tmpz00_5515, BgL_stackz00_54);
							}
							{	/* Eval/evmeaning.scm 927 */
								int BgL_tmpz00_5518;

								BgL_tmpz00_5518 = (int) (1L);
								STRUCT_SET(BgL_newz00_3328, BgL_tmpz00_5518, BgL_bodyz00_1911);
							}
							{	/* Eval/evmeaning.scm 927 */
								obj_t BgL_auxz00_5523;
								int BgL_tmpz00_5521;

								BgL_auxz00_5523 = BINT((-1L));
								BgL_tmpz00_5521 = (int) (0L);
								STRUCT_SET(BgL_newz00_3328, BgL_tmpz00_5521, BgL_auxz00_5523);
							}
							BgL_arg1813z00_3327 = BgL_newz00_3328;
						}
						PROCEDURE_ATTR_SET(BgL_zc3z04anonymousza31690ze3z87_4045,
							BgL_arg1813z00_3327);
						BgL_arg1813z00_3327;
					}
					return BgL_zc3z04anonymousza31690ze3z87_4045;
				}
			}
		}

	}



/* &<@anonymous:1690> */
	obj_t BGl_z62zc3z04anonymousza31690ze3ze5zz__evmeaningz00(obj_t
		BgL_envz00_4046, obj_t BgL_xz00_4051)
	{
		{	/* Eval/evmeaning.scm 570 */
			{	/* Eval/evmeaning.scm 571 */
				obj_t BgL_wherez00_4047;
				obj_t BgL_locz00_4048;
				obj_t BgL_stackz00_4049;
				obj_t BgL_bodyz00_4050;

				BgL_wherez00_4047 = PROCEDURE_REF(BgL_envz00_4046, (int) (0L));
				BgL_locz00_4048 = PROCEDURE_REF(BgL_envz00_4046, (int) (1L));
				BgL_stackz00_4049 =
					((obj_t) PROCEDURE_REF(BgL_envz00_4046, (int) (2L)));
				BgL_bodyz00_4050 = PROCEDURE_REF(BgL_envz00_4046, (int) (3L));
				{	/* Eval/evmeaning.scm 571 */
					obj_t BgL_z12denvz12_4224;

					BgL_z12denvz12_4224 = BGL_CURRENT_DYNAMIC_ENV();
					{	/* Eval/evmeaning.scm 574 */

						BGL_ENV_PUSH_TRACE(BgL_z12denvz12_4224, BgL_wherez00_4047,
							BgL_locz00_4048);
						{	/* Eval/evmeaning.scm 576 */
							obj_t BgL_resz00_4225;

							{	/* Eval/evmeaning.scm 576 */
								obj_t BgL_arg1691z00_4226;

								BgL_arg1691z00_4226 =
									MAKE_YOUNG_PAIR(BgL_xz00_4051, BgL_stackz00_4049);
								BgL_resz00_4225 =
									BGl_evmeaningz00zz__evmeaningz00(BgL_bodyz00_4050,
									BgL_arg1691z00_4226, BgL_z12denvz12_4224);
							}
							BGL_ENV_POP_TRACE(BgL_z12denvz12_4224);
							return BgL_resz00_4225;
						}
					}
				}
			}
		}

	}



/* evmeaning-bounce-46 */
	obj_t BGl_evmeaningzd2bouncezd246z00zz__evmeaningz00(obj_t BgL_codez00_56,
		obj_t BgL_stackz00_57, obj_t BgL_denvz00_58)
	{
		{	/* Eval/evmeaning.scm 922 */
			{	/* Eval/evmeaning.scm 554 */
				obj_t BgL_bodyz00_1923;

				BgL_bodyz00_1923 = VECTOR_REF(BgL_codez00_56, 2L);
				{	/* Eval/evmeaning.scm 557 */
					obj_t BgL_zc3z04anonymousza31693ze3z87_4052;

					BgL_zc3z04anonymousza31693ze3z87_4052 =
						MAKE_FX_PROCEDURE
						(BGl_z62zc3z04anonymousza31693ze3ze5zz__evmeaningz00, (int) (4L),
						(int) (3L));
					PROCEDURE_SET(BgL_zc3z04anonymousza31693ze3z87_4052, (int) (0L),
						BgL_stackz00_57);
					PROCEDURE_SET(BgL_zc3z04anonymousza31693ze3z87_4052, (int) (1L),
						BgL_bodyz00_1923);
					PROCEDURE_SET(BgL_zc3z04anonymousza31693ze3z87_4052, (int) (2L),
						BgL_denvz00_58);
					{	/* Eval/evmeaning.scm 939 */
						obj_t BgL_arg1813z00_3333;

						{	/* Eval/evmeaning.scm 927 */
							obj_t BgL_newz00_3334;

							BgL_newz00_3334 =
								create_struct(BGl_symbol2360z00zz__evmeaningz00, (int) (3L));
							{	/* Eval/evmeaning.scm 927 */
								int BgL_tmpz00_5553;

								BgL_tmpz00_5553 = (int) (2L);
								STRUCT_SET(BgL_newz00_3334, BgL_tmpz00_5553, BgL_stackz00_57);
							}
							{	/* Eval/evmeaning.scm 927 */
								int BgL_tmpz00_5556;

								BgL_tmpz00_5556 = (int) (1L);
								STRUCT_SET(BgL_newz00_3334, BgL_tmpz00_5556, BgL_bodyz00_1923);
							}
							{	/* Eval/evmeaning.scm 927 */
								obj_t BgL_auxz00_5561;
								int BgL_tmpz00_5559;

								BgL_auxz00_5561 = BINT(4L);
								BgL_tmpz00_5559 = (int) (0L);
								STRUCT_SET(BgL_newz00_3334, BgL_tmpz00_5559, BgL_auxz00_5561);
							}
							BgL_arg1813z00_3333 = BgL_newz00_3334;
						}
						PROCEDURE_ATTR_SET(BgL_zc3z04anonymousza31693ze3z87_4052,
							BgL_arg1813z00_3333);
						BgL_arg1813z00_3333;
					}
					return BgL_zc3z04anonymousza31693ze3z87_4052;
				}
			}
		}

	}



/* &<@anonymous:1693> */
	obj_t BGl_z62zc3z04anonymousza31693ze3ze5zz__evmeaningz00(obj_t
		BgL_envz00_4053, obj_t BgL_xz00_4057, obj_t BgL_yz00_4058,
		obj_t BgL_za7za7_4059, obj_t BgL_tz00_4060)
	{
		{	/* Eval/evmeaning.scm 556 */
			{	/* Eval/evmeaning.scm 559 */
				obj_t BgL_stackz00_4054;
				obj_t BgL_bodyz00_4055;
				obj_t BgL_denvz00_4056;

				BgL_stackz00_4054 =
					((obj_t) PROCEDURE_REF(BgL_envz00_4053, (int) (0L)));
				BgL_bodyz00_4055 = PROCEDURE_REF(BgL_envz00_4053, (int) (1L));
				BgL_denvz00_4056 = ((obj_t) PROCEDURE_REF(BgL_envz00_4053, (int) (2L)));
				{	/* Eval/evmeaning.scm 559 */
					obj_t BgL_arg1697z00_4227;

					{	/* Eval/evmeaning.scm 559 */
						obj_t BgL_arg1698z00_4228;

						{	/* Eval/evmeaning.scm 559 */
							obj_t BgL_arg1702z00_4229;

							{	/* Eval/evmeaning.scm 559 */
								obj_t BgL_arg1703z00_4230;

								BgL_arg1703z00_4230 =
									MAKE_YOUNG_PAIR(BgL_tz00_4060, BgL_stackz00_4054);
								BgL_arg1702z00_4229 =
									MAKE_YOUNG_PAIR(BgL_za7za7_4059, BgL_arg1703z00_4230);
							}
							BgL_arg1698z00_4228 =
								MAKE_YOUNG_PAIR(BgL_yz00_4058, BgL_arg1702z00_4229);
						}
						BgL_arg1697z00_4227 =
							MAKE_YOUNG_PAIR(BgL_xz00_4057, BgL_arg1698z00_4228);
					}
					return
						BGl_evmeaningz00zz__evmeaningz00(BgL_bodyz00_4055,
						BgL_arg1697z00_4227, BgL_denvz00_4056);
				}
			}
		}

	}



/* evmeaning-bounce-41 */
	obj_t BGl_evmeaningzd2bouncezd241z00zz__evmeaningz00(obj_t BgL_codez00_59,
		obj_t BgL_stackz00_60, obj_t BgL_denvz00_61)
	{
		{	/* Eval/evmeaning.scm 922 */
			{	/* Eval/evmeaning.scm 530 */
				obj_t BgL_bodyz00_1936;
				obj_t BgL_wherez00_1937;
				obj_t BgL_locz00_1938;

				BgL_bodyz00_1936 = VECTOR_REF(BgL_codez00_59, 2L);
				BgL_wherez00_1937 = VECTOR_REF(BgL_codez00_59, 3L);
				BgL_locz00_1938 = VECTOR_REF(BgL_codez00_59, 1L);
				{	/* Eval/evmeaning.scm 535 */
					obj_t BgL_zc3z04anonymousza31706ze3z87_4061;

					BgL_zc3z04anonymousza31706ze3z87_4061 =
						MAKE_FX_PROCEDURE
						(BGl_z62zc3z04anonymousza31706ze3ze5zz__evmeaningz00, (int) (4L),
						(int) (4L));
					PROCEDURE_SET(BgL_zc3z04anonymousza31706ze3z87_4061, (int) (0L),
						BgL_wherez00_1937);
					PROCEDURE_SET(BgL_zc3z04anonymousza31706ze3z87_4061, (int) (1L),
						BgL_locz00_1938);
					PROCEDURE_SET(BgL_zc3z04anonymousza31706ze3z87_4061, (int) (2L),
						BgL_stackz00_60);
					PROCEDURE_SET(BgL_zc3z04anonymousza31706ze3z87_4061, (int) (3L),
						BgL_bodyz00_1936);
					{	/* Eval/evmeaning.scm 939 */
						obj_t BgL_arg1813z00_3341;

						{	/* Eval/evmeaning.scm 927 */
							obj_t BgL_newz00_3342;

							BgL_newz00_3342 =
								create_struct(BGl_symbol2360z00zz__evmeaningz00, (int) (3L));
							{	/* Eval/evmeaning.scm 927 */
								int BgL_tmpz00_5594;

								BgL_tmpz00_5594 = (int) (2L);
								STRUCT_SET(BgL_newz00_3342, BgL_tmpz00_5594, BgL_stackz00_60);
							}
							{	/* Eval/evmeaning.scm 927 */
								int BgL_tmpz00_5597;

								BgL_tmpz00_5597 = (int) (1L);
								STRUCT_SET(BgL_newz00_3342, BgL_tmpz00_5597, BgL_bodyz00_1936);
							}
							{	/* Eval/evmeaning.scm 927 */
								obj_t BgL_auxz00_5602;
								int BgL_tmpz00_5600;

								BgL_auxz00_5602 = BINT(4L);
								BgL_tmpz00_5600 = (int) (0L);
								STRUCT_SET(BgL_newz00_3342, BgL_tmpz00_5600, BgL_auxz00_5602);
							}
							BgL_arg1813z00_3341 = BgL_newz00_3342;
						}
						PROCEDURE_ATTR_SET(BgL_zc3z04anonymousza31706ze3z87_4061,
							BgL_arg1813z00_3341);
						BgL_arg1813z00_3341;
					}
					return BgL_zc3z04anonymousza31706ze3z87_4061;
				}
			}
		}

	}



/* &<@anonymous:1706> */
	obj_t BGl_z62zc3z04anonymousza31706ze3ze5zz__evmeaningz00(obj_t
		BgL_envz00_4062, obj_t BgL_xz00_4067, obj_t BgL_yz00_4068,
		obj_t BgL_za7za7_4069, obj_t BgL_tz00_4070)
	{
		{	/* Eval/evmeaning.scm 534 */
			{	/* Eval/evmeaning.scm 535 */
				obj_t BgL_wherez00_4063;
				obj_t BgL_locz00_4064;
				obj_t BgL_stackz00_4065;
				obj_t BgL_bodyz00_4066;

				BgL_wherez00_4063 = PROCEDURE_REF(BgL_envz00_4062, (int) (0L));
				BgL_locz00_4064 = PROCEDURE_REF(BgL_envz00_4062, (int) (1L));
				BgL_stackz00_4065 =
					((obj_t) PROCEDURE_REF(BgL_envz00_4062, (int) (2L)));
				BgL_bodyz00_4066 = PROCEDURE_REF(BgL_envz00_4062, (int) (3L));
				{	/* Eval/evmeaning.scm 535 */
					obj_t BgL_z12denvz12_4231;

					BgL_z12denvz12_4231 = BGL_CURRENT_DYNAMIC_ENV();
					{	/* Eval/evmeaning.scm 538 */

						BGL_ENV_PUSH_TRACE(BgL_z12denvz12_4231, BgL_wherez00_4063,
							BgL_locz00_4064);
						{	/* Eval/evmeaning.scm 540 */
							obj_t BgL_resz00_4232;

							{	/* Eval/evmeaning.scm 545 */
								obj_t BgL_arg1707z00_4233;

								{	/* Eval/evmeaning.scm 545 */
									obj_t BgL_arg1708z00_4234;

									{	/* Eval/evmeaning.scm 545 */
										obj_t BgL_arg1709z00_4235;

										{	/* Eval/evmeaning.scm 545 */
											obj_t BgL_arg1710z00_4236;

											BgL_arg1710z00_4236 =
												MAKE_YOUNG_PAIR(BgL_tz00_4070, BgL_stackz00_4065);
											BgL_arg1709z00_4235 =
												MAKE_YOUNG_PAIR(BgL_za7za7_4069, BgL_arg1710z00_4236);
										}
										BgL_arg1708z00_4234 =
											MAKE_YOUNG_PAIR(BgL_yz00_4068, BgL_arg1709z00_4235);
									}
									BgL_arg1707z00_4233 =
										MAKE_YOUNG_PAIR(BgL_xz00_4067, BgL_arg1708z00_4234);
								}
								BgL_resz00_4232 =
									BGl_evmeaningz00zz__evmeaningz00(BgL_bodyz00_4066,
									BgL_arg1707z00_4233, BgL_z12denvz12_4231);
							}
							BGL_ENV_POP_TRACE(BgL_z12denvz12_4231);
							return BgL_resz00_4232;
						}
					}
				}
			}
		}

	}



/* evmeaning-bounce-45 */
	obj_t BGl_evmeaningzd2bouncezd245z00zz__evmeaningz00(obj_t BgL_codez00_62,
		obj_t BgL_stackz00_63, obj_t BgL_denvz00_64)
	{
		{	/* Eval/evmeaning.scm 922 */
			{	/* Eval/evmeaning.scm 520 */
				obj_t BgL_bodyz00_1954;

				BgL_bodyz00_1954 = VECTOR_REF(BgL_codez00_62, 2L);
				{	/* Eval/evmeaning.scm 523 */
					obj_t BgL_zc3z04anonymousza31712ze3z87_4071;

					BgL_zc3z04anonymousza31712ze3z87_4071 =
						MAKE_FX_PROCEDURE
						(BGl_z62zc3z04anonymousza31712ze3ze5zz__evmeaningz00, (int) (3L),
						(int) (3L));
					PROCEDURE_SET(BgL_zc3z04anonymousza31712ze3z87_4071, (int) (0L),
						BgL_stackz00_63);
					PROCEDURE_SET(BgL_zc3z04anonymousza31712ze3z87_4071, (int) (1L),
						BgL_bodyz00_1954);
					PROCEDURE_SET(BgL_zc3z04anonymousza31712ze3z87_4071, (int) (2L),
						BgL_denvz00_64);
					{	/* Eval/evmeaning.scm 939 */
						obj_t BgL_arg1813z00_3347;

						{	/* Eval/evmeaning.scm 927 */
							obj_t BgL_newz00_3348;

							BgL_newz00_3348 =
								create_struct(BGl_symbol2360z00zz__evmeaningz00, (int) (3L));
							{	/* Eval/evmeaning.scm 927 */
								int BgL_tmpz00_5635;

								BgL_tmpz00_5635 = (int) (2L);
								STRUCT_SET(BgL_newz00_3348, BgL_tmpz00_5635, BgL_stackz00_63);
							}
							{	/* Eval/evmeaning.scm 927 */
								int BgL_tmpz00_5638;

								BgL_tmpz00_5638 = (int) (1L);
								STRUCT_SET(BgL_newz00_3348, BgL_tmpz00_5638, BgL_bodyz00_1954);
							}
							{	/* Eval/evmeaning.scm 927 */
								obj_t BgL_auxz00_5643;
								int BgL_tmpz00_5641;

								BgL_auxz00_5643 = BINT(3L);
								BgL_tmpz00_5641 = (int) (0L);
								STRUCT_SET(BgL_newz00_3348, BgL_tmpz00_5641, BgL_auxz00_5643);
							}
							BgL_arg1813z00_3347 = BgL_newz00_3348;
						}
						PROCEDURE_ATTR_SET(BgL_zc3z04anonymousza31712ze3z87_4071,
							BgL_arg1813z00_3347);
						BgL_arg1813z00_3347;
					}
					return BgL_zc3z04anonymousza31712ze3z87_4071;
				}
			}
		}

	}



/* &<@anonymous:1712> */
	obj_t BGl_z62zc3z04anonymousza31712ze3ze5zz__evmeaningz00(obj_t
		BgL_envz00_4072, obj_t BgL_xz00_4076, obj_t BgL_yz00_4077,
		obj_t BgL_za7za7_4078)
	{
		{	/* Eval/evmeaning.scm 522 */
			{	/* Eval/evmeaning.scm 524 */
				obj_t BgL_stackz00_4073;
				obj_t BgL_bodyz00_4074;
				obj_t BgL_denvz00_4075;

				BgL_stackz00_4073 =
					((obj_t) PROCEDURE_REF(BgL_envz00_4072, (int) (0L)));
				BgL_bodyz00_4074 = PROCEDURE_REF(BgL_envz00_4072, (int) (1L));
				BgL_denvz00_4075 = ((obj_t) PROCEDURE_REF(BgL_envz00_4072, (int) (2L)));
				{	/* Eval/evmeaning.scm 524 */
					obj_t BgL_arg1714z00_4237;

					{	/* Eval/evmeaning.scm 524 */
						obj_t BgL_arg1715z00_4238;

						{	/* Eval/evmeaning.scm 524 */
							obj_t BgL_arg1716z00_4239;

							BgL_arg1716z00_4239 =
								MAKE_YOUNG_PAIR(BgL_za7za7_4078, BgL_stackz00_4073);
							BgL_arg1715z00_4238 =
								MAKE_YOUNG_PAIR(BgL_yz00_4077, BgL_arg1716z00_4239);
						}
						BgL_arg1714z00_4237 =
							MAKE_YOUNG_PAIR(BgL_xz00_4076, BgL_arg1715z00_4238);
					}
					return
						BGl_evmeaningz00zz__evmeaningz00(BgL_bodyz00_4074,
						BgL_arg1714z00_4237, BgL_denvz00_4075);
				}
			}
		}

	}



/* evmeaning-bounce-40 */
	obj_t BGl_evmeaningzd2bouncezd240z00zz__evmeaningz00(obj_t BgL_codez00_65,
		obj_t BgL_stackz00_66, obj_t BgL_denvz00_67)
	{
		{	/* Eval/evmeaning.scm 922 */
			{	/* Eval/evmeaning.scm 498 */
				obj_t BgL_bodyz00_1965;
				obj_t BgL_wherez00_1966;
				obj_t BgL_locz00_1967;

				BgL_bodyz00_1965 = VECTOR_REF(BgL_codez00_65, 2L);
				BgL_wherez00_1966 = VECTOR_REF(BgL_codez00_65, 3L);
				BgL_locz00_1967 = VECTOR_REF(BgL_codez00_65, 1L);
				{	/* Eval/evmeaning.scm 503 */
					obj_t BgL_zc3z04anonymousza31719ze3z87_4079;

					BgL_zc3z04anonymousza31719ze3z87_4079 =
						MAKE_FX_PROCEDURE
						(BGl_z62zc3z04anonymousza31719ze3ze5zz__evmeaningz00, (int) (3L),
						(int) (4L));
					PROCEDURE_SET(BgL_zc3z04anonymousza31719ze3z87_4079, (int) (0L),
						BgL_wherez00_1966);
					PROCEDURE_SET(BgL_zc3z04anonymousza31719ze3z87_4079, (int) (1L),
						BgL_locz00_1967);
					PROCEDURE_SET(BgL_zc3z04anonymousza31719ze3z87_4079, (int) (2L),
						BgL_stackz00_66);
					PROCEDURE_SET(BgL_zc3z04anonymousza31719ze3z87_4079, (int) (3L),
						BgL_bodyz00_1965);
					{	/* Eval/evmeaning.scm 939 */
						obj_t BgL_arg1813z00_3355;

						{	/* Eval/evmeaning.scm 927 */
							obj_t BgL_newz00_3356;

							BgL_newz00_3356 =
								create_struct(BGl_symbol2360z00zz__evmeaningz00, (int) (3L));
							{	/* Eval/evmeaning.scm 927 */
								int BgL_tmpz00_5675;

								BgL_tmpz00_5675 = (int) (2L);
								STRUCT_SET(BgL_newz00_3356, BgL_tmpz00_5675, BgL_stackz00_66);
							}
							{	/* Eval/evmeaning.scm 927 */
								int BgL_tmpz00_5678;

								BgL_tmpz00_5678 = (int) (1L);
								STRUCT_SET(BgL_newz00_3356, BgL_tmpz00_5678, BgL_bodyz00_1965);
							}
							{	/* Eval/evmeaning.scm 927 */
								obj_t BgL_auxz00_5683;
								int BgL_tmpz00_5681;

								BgL_auxz00_5683 = BINT(3L);
								BgL_tmpz00_5681 = (int) (0L);
								STRUCT_SET(BgL_newz00_3356, BgL_tmpz00_5681, BgL_auxz00_5683);
							}
							BgL_arg1813z00_3355 = BgL_newz00_3356;
						}
						PROCEDURE_ATTR_SET(BgL_zc3z04anonymousza31719ze3z87_4079,
							BgL_arg1813z00_3355);
						BgL_arg1813z00_3355;
					}
					return BgL_zc3z04anonymousza31719ze3z87_4079;
				}
			}
		}

	}



/* &<@anonymous:1719> */
	obj_t BGl_z62zc3z04anonymousza31719ze3ze5zz__evmeaningz00(obj_t
		BgL_envz00_4080, obj_t BgL_xz00_4085, obj_t BgL_yz00_4086,
		obj_t BgL_za7za7_4087)
	{
		{	/* Eval/evmeaning.scm 502 */
			{	/* Eval/evmeaning.scm 503 */
				obj_t BgL_wherez00_4081;
				obj_t BgL_locz00_4082;
				obj_t BgL_stackz00_4083;
				obj_t BgL_bodyz00_4084;

				BgL_wherez00_4081 = PROCEDURE_REF(BgL_envz00_4080, (int) (0L));
				BgL_locz00_4082 = PROCEDURE_REF(BgL_envz00_4080, (int) (1L));
				BgL_stackz00_4083 =
					((obj_t) PROCEDURE_REF(BgL_envz00_4080, (int) (2L)));
				BgL_bodyz00_4084 = PROCEDURE_REF(BgL_envz00_4080, (int) (3L));
				{	/* Eval/evmeaning.scm 503 */
					obj_t BgL_z12denvz12_4240;

					BgL_z12denvz12_4240 = BGL_CURRENT_DYNAMIC_ENV();
					{	/* Eval/evmeaning.scm 506 */

						BGL_ENV_PUSH_TRACE(BgL_z12denvz12_4240, BgL_wherez00_4081,
							BgL_locz00_4082);
						{	/* Eval/evmeaning.scm 508 */
							obj_t BgL_resz00_4241;

							{	/* Eval/evmeaning.scm 511 */
								obj_t BgL_arg1720z00_4242;

								{	/* Eval/evmeaning.scm 511 */
									obj_t BgL_arg1721z00_4243;

									{	/* Eval/evmeaning.scm 511 */
										obj_t BgL_arg1722z00_4244;

										BgL_arg1722z00_4244 =
											MAKE_YOUNG_PAIR(BgL_za7za7_4087, BgL_stackz00_4083);
										BgL_arg1721z00_4243 =
											MAKE_YOUNG_PAIR(BgL_yz00_4086, BgL_arg1722z00_4244);
									}
									BgL_arg1720z00_4242 =
										MAKE_YOUNG_PAIR(BgL_xz00_4085, BgL_arg1721z00_4243);
								}
								BgL_resz00_4241 =
									BGl_evmeaningz00zz__evmeaningz00(BgL_bodyz00_4084,
									BgL_arg1720z00_4242, BgL_z12denvz12_4240);
							}
							BGL_ENV_POP_TRACE(BgL_z12denvz12_4240);
							return BgL_resz00_4241;
						}
					}
				}
			}
		}

	}



/* evmeaning-bounce-44 */
	obj_t BGl_evmeaningzd2bouncezd244z00zz__evmeaningz00(obj_t BgL_codez00_68,
		obj_t BgL_stackz00_69, obj_t BgL_denvz00_70)
	{
		{	/* Eval/evmeaning.scm 922 */
			{	/* Eval/evmeaning.scm 488 */
				obj_t BgL_bodyz00_1981;

				BgL_bodyz00_1981 = VECTOR_REF(BgL_codez00_68, 2L);
				{	/* Eval/evmeaning.scm 491 */
					obj_t BgL_zc3z04anonymousza31724ze3z87_4088;

					BgL_zc3z04anonymousza31724ze3z87_4088 =
						MAKE_FX_PROCEDURE
						(BGl_z62zc3z04anonymousza31724ze3ze5zz__evmeaningz00, (int) (2L),
						(int) (3L));
					PROCEDURE_SET(BgL_zc3z04anonymousza31724ze3z87_4088, (int) (0L),
						BgL_stackz00_69);
					PROCEDURE_SET(BgL_zc3z04anonymousza31724ze3z87_4088, (int) (1L),
						BgL_bodyz00_1981);
					PROCEDURE_SET(BgL_zc3z04anonymousza31724ze3z87_4088, (int) (2L),
						BgL_denvz00_70);
					{	/* Eval/evmeaning.scm 939 */
						obj_t BgL_arg1813z00_3361;

						{	/* Eval/evmeaning.scm 927 */
							obj_t BgL_newz00_3362;

							BgL_newz00_3362 =
								create_struct(BGl_symbol2360z00zz__evmeaningz00, (int) (3L));
							{	/* Eval/evmeaning.scm 927 */
								int BgL_tmpz00_5715;

								BgL_tmpz00_5715 = (int) (2L);
								STRUCT_SET(BgL_newz00_3362, BgL_tmpz00_5715, BgL_stackz00_69);
							}
							{	/* Eval/evmeaning.scm 927 */
								int BgL_tmpz00_5718;

								BgL_tmpz00_5718 = (int) (1L);
								STRUCT_SET(BgL_newz00_3362, BgL_tmpz00_5718, BgL_bodyz00_1981);
							}
							{	/* Eval/evmeaning.scm 927 */
								obj_t BgL_auxz00_5723;
								int BgL_tmpz00_5721;

								BgL_auxz00_5723 = BINT(2L);
								BgL_tmpz00_5721 = (int) (0L);
								STRUCT_SET(BgL_newz00_3362, BgL_tmpz00_5721, BgL_auxz00_5723);
							}
							BgL_arg1813z00_3361 = BgL_newz00_3362;
						}
						PROCEDURE_ATTR_SET(BgL_zc3z04anonymousza31724ze3z87_4088,
							BgL_arg1813z00_3361);
						BgL_arg1813z00_3361;
					}
					return BgL_zc3z04anonymousza31724ze3z87_4088;
				}
			}
		}

	}



/* &<@anonymous:1724> */
	obj_t BGl_z62zc3z04anonymousza31724ze3ze5zz__evmeaningz00(obj_t
		BgL_envz00_4089, obj_t BgL_xz00_4093, obj_t BgL_yz00_4094)
	{
		{	/* Eval/evmeaning.scm 490 */
			{	/* Eval/evmeaning.scm 492 */
				obj_t BgL_stackz00_4090;
				obj_t BgL_bodyz00_4091;
				obj_t BgL_denvz00_4092;

				BgL_stackz00_4090 =
					((obj_t) PROCEDURE_REF(BgL_envz00_4089, (int) (0L)));
				BgL_bodyz00_4091 = PROCEDURE_REF(BgL_envz00_4089, (int) (1L));
				BgL_denvz00_4092 = ((obj_t) PROCEDURE_REF(BgL_envz00_4089, (int) (2L)));
				{	/* Eval/evmeaning.scm 492 */
					obj_t BgL_arg1725z00_4245;

					{	/* Eval/evmeaning.scm 492 */
						obj_t BgL_arg1726z00_4246;

						BgL_arg1726z00_4246 =
							MAKE_YOUNG_PAIR(BgL_yz00_4094, BgL_stackz00_4090);
						BgL_arg1725z00_4245 =
							MAKE_YOUNG_PAIR(BgL_xz00_4093, BgL_arg1726z00_4246);
					}
					return
						BGl_evmeaningz00zz__evmeaningz00(BgL_bodyz00_4091,
						BgL_arg1725z00_4245, BgL_denvz00_4092);
				}
			}
		}

	}



/* evmeaning-bounce-39 */
	obj_t BGl_evmeaningzd2bouncezd239z00zz__evmeaningz00(obj_t BgL_codez00_71,
		obj_t BgL_stackz00_72, obj_t BgL_denvz00_73)
	{
		{	/* Eval/evmeaning.scm 922 */
			{	/* Eval/evmeaning.scm 470 */
				obj_t BgL_bodyz00_1990;
				obj_t BgL_wherez00_1991;
				obj_t BgL_locz00_1992;

				BgL_bodyz00_1990 = VECTOR_REF(BgL_codez00_71, 2L);
				BgL_wherez00_1991 = VECTOR_REF(BgL_codez00_71, 3L);
				BgL_locz00_1992 = VECTOR_REF(BgL_codez00_71, 1L);
				{	/* Eval/evmeaning.scm 475 */
					obj_t BgL_zc3z04anonymousza31728ze3z87_4095;

					BgL_zc3z04anonymousza31728ze3z87_4095 =
						MAKE_FX_PROCEDURE
						(BGl_z62zc3z04anonymousza31728ze3ze5zz__evmeaningz00, (int) (2L),
						(int) (4L));
					PROCEDURE_SET(BgL_zc3z04anonymousza31728ze3z87_4095, (int) (0L),
						BgL_wherez00_1991);
					PROCEDURE_SET(BgL_zc3z04anonymousza31728ze3z87_4095, (int) (1L),
						BgL_locz00_1992);
					PROCEDURE_SET(BgL_zc3z04anonymousza31728ze3z87_4095, (int) (2L),
						BgL_stackz00_72);
					PROCEDURE_SET(BgL_zc3z04anonymousza31728ze3z87_4095, (int) (3L),
						BgL_bodyz00_1990);
					{	/* Eval/evmeaning.scm 939 */
						obj_t BgL_arg1813z00_3369;

						{	/* Eval/evmeaning.scm 927 */
							obj_t BgL_newz00_3370;

							BgL_newz00_3370 =
								create_struct(BGl_symbol2360z00zz__evmeaningz00, (int) (3L));
							{	/* Eval/evmeaning.scm 927 */
								int BgL_tmpz00_5754;

								BgL_tmpz00_5754 = (int) (2L);
								STRUCT_SET(BgL_newz00_3370, BgL_tmpz00_5754, BgL_stackz00_72);
							}
							{	/* Eval/evmeaning.scm 927 */
								int BgL_tmpz00_5757;

								BgL_tmpz00_5757 = (int) (1L);
								STRUCT_SET(BgL_newz00_3370, BgL_tmpz00_5757, BgL_bodyz00_1990);
							}
							{	/* Eval/evmeaning.scm 927 */
								obj_t BgL_auxz00_5762;
								int BgL_tmpz00_5760;

								BgL_auxz00_5762 = BINT(2L);
								BgL_tmpz00_5760 = (int) (0L);
								STRUCT_SET(BgL_newz00_3370, BgL_tmpz00_5760, BgL_auxz00_5762);
							}
							BgL_arg1813z00_3369 = BgL_newz00_3370;
						}
						PROCEDURE_ATTR_SET(BgL_zc3z04anonymousza31728ze3z87_4095,
							BgL_arg1813z00_3369);
						BgL_arg1813z00_3369;
					}
					return BgL_zc3z04anonymousza31728ze3z87_4095;
				}
			}
		}

	}



/* &<@anonymous:1728> */
	obj_t BGl_z62zc3z04anonymousza31728ze3ze5zz__evmeaningz00(obj_t
		BgL_envz00_4096, obj_t BgL_xz00_4101, obj_t BgL_yz00_4102)
	{
		{	/* Eval/evmeaning.scm 474 */
			{	/* Eval/evmeaning.scm 475 */
				obj_t BgL_wherez00_4097;
				obj_t BgL_locz00_4098;
				obj_t BgL_stackz00_4099;
				obj_t BgL_bodyz00_4100;

				BgL_wherez00_4097 = PROCEDURE_REF(BgL_envz00_4096, (int) (0L));
				BgL_locz00_4098 = PROCEDURE_REF(BgL_envz00_4096, (int) (1L));
				BgL_stackz00_4099 =
					((obj_t) PROCEDURE_REF(BgL_envz00_4096, (int) (2L)));
				BgL_bodyz00_4100 = PROCEDURE_REF(BgL_envz00_4096, (int) (3L));
				{	/* Eval/evmeaning.scm 475 */
					obj_t BgL_z12denvz12_4247;

					BgL_z12denvz12_4247 = BGL_CURRENT_DYNAMIC_ENV();
					{	/* Eval/evmeaning.scm 478 */

						BGL_ENV_PUSH_TRACE(BgL_z12denvz12_4247, BgL_wherez00_4097,
							BgL_locz00_4098);
						{	/* Eval/evmeaning.scm 480 */
							obj_t BgL_rz00_4248;

							{	/* Eval/evmeaning.scm 480 */
								obj_t BgL_arg1729z00_4249;

								{	/* Eval/evmeaning.scm 480 */
									obj_t BgL_arg1730z00_4250;

									BgL_arg1730z00_4250 =
										MAKE_YOUNG_PAIR(BgL_yz00_4102, BgL_stackz00_4099);
									BgL_arg1729z00_4249 =
										MAKE_YOUNG_PAIR(BgL_xz00_4101, BgL_arg1730z00_4250);
								}
								BgL_rz00_4248 =
									BGl_evmeaningz00zz__evmeaningz00(BgL_bodyz00_4100,
									BgL_arg1729z00_4249, BgL_z12denvz12_4247);
							}
							BGL_ENV_POP_TRACE(BgL_z12denvz12_4247);
							return BgL_rz00_4248;
						}
					}
				}
			}
		}

	}



/* evmeaning-bounce-43 */
	obj_t BGl_evmeaningzd2bouncezd243z00zz__evmeaningz00(obj_t BgL_codez00_74,
		obj_t BgL_stackz00_75, obj_t BgL_denvz00_76)
	{
		{	/* Eval/evmeaning.scm 922 */
			{	/* Eval/evmeaning.scm 460 */
				obj_t BgL_bodyz00_2004;

				BgL_bodyz00_2004 = VECTOR_REF(BgL_codez00_74, 2L);
				{	/* Eval/evmeaning.scm 463 */
					obj_t BgL_zc3z04anonymousza31732ze3z87_4103;

					BgL_zc3z04anonymousza31732ze3z87_4103 =
						MAKE_FX_PROCEDURE
						(BGl_z62zc3z04anonymousza31732ze3ze5zz__evmeaningz00, (int) (1L),
						(int) (3L));
					PROCEDURE_SET(BgL_zc3z04anonymousza31732ze3z87_4103, (int) (0L),
						BgL_stackz00_75);
					PROCEDURE_SET(BgL_zc3z04anonymousza31732ze3z87_4103, (int) (1L),
						BgL_bodyz00_2004);
					PROCEDURE_SET(BgL_zc3z04anonymousza31732ze3z87_4103, (int) (2L),
						BgL_denvz00_76);
					{	/* Eval/evmeaning.scm 939 */
						obj_t BgL_arg1813z00_3375;

						{	/* Eval/evmeaning.scm 927 */
							obj_t BgL_newz00_3376;

							BgL_newz00_3376 =
								create_struct(BGl_symbol2360z00zz__evmeaningz00, (int) (3L));
							{	/* Eval/evmeaning.scm 927 */
								int BgL_tmpz00_5793;

								BgL_tmpz00_5793 = (int) (2L);
								STRUCT_SET(BgL_newz00_3376, BgL_tmpz00_5793, BgL_stackz00_75);
							}
							{	/* Eval/evmeaning.scm 927 */
								int BgL_tmpz00_5796;

								BgL_tmpz00_5796 = (int) (1L);
								STRUCT_SET(BgL_newz00_3376, BgL_tmpz00_5796, BgL_bodyz00_2004);
							}
							{	/* Eval/evmeaning.scm 927 */
								obj_t BgL_auxz00_5801;
								int BgL_tmpz00_5799;

								BgL_auxz00_5801 = BINT(1L);
								BgL_tmpz00_5799 = (int) (0L);
								STRUCT_SET(BgL_newz00_3376, BgL_tmpz00_5799, BgL_auxz00_5801);
							}
							BgL_arg1813z00_3375 = BgL_newz00_3376;
						}
						PROCEDURE_ATTR_SET(BgL_zc3z04anonymousza31732ze3z87_4103,
							BgL_arg1813z00_3375);
						BgL_arg1813z00_3375;
					}
					return BgL_zc3z04anonymousza31732ze3z87_4103;
				}
			}
		}

	}



/* &<@anonymous:1732> */
	obj_t BGl_z62zc3z04anonymousza31732ze3ze5zz__evmeaningz00(obj_t
		BgL_envz00_4104, obj_t BgL_xz00_4108)
	{
		{	/* Eval/evmeaning.scm 462 */
			{	/* Eval/evmeaning.scm 464 */
				obj_t BgL_stackz00_4105;
				obj_t BgL_bodyz00_4106;
				obj_t BgL_denvz00_4107;

				BgL_stackz00_4105 =
					((obj_t) PROCEDURE_REF(BgL_envz00_4104, (int) (0L)));
				BgL_bodyz00_4106 = PROCEDURE_REF(BgL_envz00_4104, (int) (1L));
				BgL_denvz00_4107 = ((obj_t) PROCEDURE_REF(BgL_envz00_4104, (int) (2L)));
				{	/* Eval/evmeaning.scm 464 */
					obj_t BgL_arg1733z00_4251;

					BgL_arg1733z00_4251 =
						MAKE_YOUNG_PAIR(BgL_xz00_4108, BgL_stackz00_4105);
					return
						BGl_evmeaningz00zz__evmeaningz00(BgL_bodyz00_4106,
						BgL_arg1733z00_4251, BgL_denvz00_4107);
				}
			}
		}

	}



/* evmeaning-bounce-38 */
	obj_t BGl_evmeaningzd2bouncezd238z00zz__evmeaningz00(obj_t BgL_codez00_77,
		obj_t BgL_stackz00_78, obj_t BgL_denvz00_79)
	{
		{	/* Eval/evmeaning.scm 922 */
			{	/* Eval/evmeaning.scm 442 */
				obj_t BgL_bodyz00_2011;
				obj_t BgL_wherez00_2012;
				obj_t BgL_locz00_2013;

				BgL_bodyz00_2011 = VECTOR_REF(BgL_codez00_77, 2L);
				BgL_wherez00_2012 = VECTOR_REF(BgL_codez00_77, 3L);
				BgL_locz00_2013 = VECTOR_REF(BgL_codez00_77, 1L);
				{	/* Eval/evmeaning.scm 447 */
					obj_t BgL_zc3z04anonymousza31735ze3z87_4109;

					BgL_zc3z04anonymousza31735ze3z87_4109 =
						MAKE_FX_PROCEDURE
						(BGl_z62zc3z04anonymousza31735ze3ze5zz__evmeaningz00, (int) (1L),
						(int) (4L));
					PROCEDURE_SET(BgL_zc3z04anonymousza31735ze3z87_4109, (int) (0L),
						BgL_wherez00_2012);
					PROCEDURE_SET(BgL_zc3z04anonymousza31735ze3z87_4109, (int) (1L),
						BgL_locz00_2013);
					PROCEDURE_SET(BgL_zc3z04anonymousza31735ze3z87_4109, (int) (2L),
						BgL_stackz00_78);
					PROCEDURE_SET(BgL_zc3z04anonymousza31735ze3z87_4109, (int) (3L),
						BgL_bodyz00_2011);
					{	/* Eval/evmeaning.scm 939 */
						obj_t BgL_arg1813z00_3383;

						{	/* Eval/evmeaning.scm 927 */
							obj_t BgL_newz00_3384;

							BgL_newz00_3384 =
								create_struct(BGl_symbol2360z00zz__evmeaningz00, (int) (3L));
							{	/* Eval/evmeaning.scm 927 */
								int BgL_tmpz00_5831;

								BgL_tmpz00_5831 = (int) (2L);
								STRUCT_SET(BgL_newz00_3384, BgL_tmpz00_5831, BgL_stackz00_78);
							}
							{	/* Eval/evmeaning.scm 927 */
								int BgL_tmpz00_5834;

								BgL_tmpz00_5834 = (int) (1L);
								STRUCT_SET(BgL_newz00_3384, BgL_tmpz00_5834, BgL_bodyz00_2011);
							}
							{	/* Eval/evmeaning.scm 927 */
								obj_t BgL_auxz00_5839;
								int BgL_tmpz00_5837;

								BgL_auxz00_5839 = BINT(1L);
								BgL_tmpz00_5837 = (int) (0L);
								STRUCT_SET(BgL_newz00_3384, BgL_tmpz00_5837, BgL_auxz00_5839);
							}
							BgL_arg1813z00_3383 = BgL_newz00_3384;
						}
						PROCEDURE_ATTR_SET(BgL_zc3z04anonymousza31735ze3z87_4109,
							BgL_arg1813z00_3383);
						BgL_arg1813z00_3383;
					}
					return BgL_zc3z04anonymousza31735ze3z87_4109;
				}
			}
		}

	}



/* &<@anonymous:1735> */
	obj_t BGl_z62zc3z04anonymousza31735ze3ze5zz__evmeaningz00(obj_t
		BgL_envz00_4110, obj_t BgL_xz00_4115)
	{
		{	/* Eval/evmeaning.scm 446 */
			{	/* Eval/evmeaning.scm 447 */
				obj_t BgL_wherez00_4111;
				obj_t BgL_locz00_4112;
				obj_t BgL_stackz00_4113;
				obj_t BgL_bodyz00_4114;

				BgL_wherez00_4111 = PROCEDURE_REF(BgL_envz00_4110, (int) (0L));
				BgL_locz00_4112 = PROCEDURE_REF(BgL_envz00_4110, (int) (1L));
				BgL_stackz00_4113 =
					((obj_t) PROCEDURE_REF(BgL_envz00_4110, (int) (2L)));
				BgL_bodyz00_4114 = PROCEDURE_REF(BgL_envz00_4110, (int) (3L));
				{	/* Eval/evmeaning.scm 447 */
					obj_t BgL_z12denvz12_4252;

					BgL_z12denvz12_4252 = BGL_CURRENT_DYNAMIC_ENV();
					{	/* Eval/evmeaning.scm 450 */

						BGL_ENV_PUSH_TRACE(BgL_z12denvz12_4252, BgL_wherez00_4111,
							BgL_locz00_4112);
						{	/* Eval/evmeaning.scm 452 */
							obj_t BgL_resz00_4253;

							{	/* Eval/evmeaning.scm 452 */
								obj_t BgL_arg1739z00_4254;

								BgL_arg1739z00_4254 =
									MAKE_YOUNG_PAIR(BgL_xz00_4115, BgL_stackz00_4113);
								BgL_resz00_4253 =
									BGl_evmeaningz00zz__evmeaningz00(BgL_bodyz00_4114,
									BgL_arg1739z00_4254, BgL_z12denvz12_4252);
							}
							BGL_ENV_POP_TRACE(BgL_z12denvz12_4252);
							return BgL_resz00_4253;
						}
					}
				}
			}
		}

	}



/* evmeaning-bounce-42 */
	obj_t BGl_evmeaningzd2bouncezd242z00zz__evmeaningz00(obj_t BgL_codez00_80,
		obj_t BgL_stackz00_81, obj_t BgL_denvz00_82)
	{
		{	/* Eval/evmeaning.scm 922 */
			{	/* Eval/evmeaning.scm 432 */
				obj_t BgL_bodyz00_2023;

				BgL_bodyz00_2023 = VECTOR_REF(BgL_codez00_80, 2L);
				{	/* Eval/evmeaning.scm 435 */
					obj_t BgL_zc3z04anonymousza31741ze3z87_4116;

					BgL_zc3z04anonymousza31741ze3z87_4116 =
						MAKE_FX_PROCEDURE
						(BGl_z62zc3z04anonymousza31741ze3ze5zz__evmeaningz00, (int) (0L),
						(int) (3L));
					PROCEDURE_SET(BgL_zc3z04anonymousza31741ze3z87_4116, (int) (0L),
						BgL_bodyz00_2023);
					PROCEDURE_SET(BgL_zc3z04anonymousza31741ze3z87_4116, (int) (1L),
						BgL_stackz00_81);
					PROCEDURE_SET(BgL_zc3z04anonymousza31741ze3z87_4116, (int) (2L),
						BgL_denvz00_82);
					{	/* Eval/evmeaning.scm 939 */
						obj_t BgL_arg1813z00_3389;

						{	/* Eval/evmeaning.scm 927 */
							obj_t BgL_newz00_3390;

							BgL_newz00_3390 =
								create_struct(BGl_symbol2360z00zz__evmeaningz00, (int) (3L));
							{	/* Eval/evmeaning.scm 927 */
								int BgL_tmpz00_5869;

								BgL_tmpz00_5869 = (int) (2L);
								STRUCT_SET(BgL_newz00_3390, BgL_tmpz00_5869, BgL_stackz00_81);
							}
							{	/* Eval/evmeaning.scm 927 */
								int BgL_tmpz00_5872;

								BgL_tmpz00_5872 = (int) (1L);
								STRUCT_SET(BgL_newz00_3390, BgL_tmpz00_5872, BgL_bodyz00_2023);
							}
							{	/* Eval/evmeaning.scm 927 */
								obj_t BgL_auxz00_5877;
								int BgL_tmpz00_5875;

								BgL_auxz00_5877 = BINT(0L);
								BgL_tmpz00_5875 = (int) (0L);
								STRUCT_SET(BgL_newz00_3390, BgL_tmpz00_5875, BgL_auxz00_5877);
							}
							BgL_arg1813z00_3389 = BgL_newz00_3390;
						}
						PROCEDURE_ATTR_SET(BgL_zc3z04anonymousza31741ze3z87_4116,
							BgL_arg1813z00_3389);
						BgL_arg1813z00_3389;
					}
					return BgL_zc3z04anonymousza31741ze3z87_4116;
				}
			}
		}

	}



/* &<@anonymous:1741> */
	obj_t BGl_z62zc3z04anonymousza31741ze3ze5zz__evmeaningz00(obj_t
		BgL_envz00_4117)
	{
		{	/* Eval/evmeaning.scm 434 */
			{	/* Eval/evmeaning.scm 436 */
				obj_t BgL_bodyz00_4118;
				obj_t BgL_stackz00_4119;
				obj_t BgL_denvz00_4120;

				BgL_bodyz00_4118 = PROCEDURE_REF(BgL_envz00_4117, (int) (0L));
				BgL_stackz00_4119 =
					((obj_t) PROCEDURE_REF(BgL_envz00_4117, (int) (1L)));
				BgL_denvz00_4120 = ((obj_t) PROCEDURE_REF(BgL_envz00_4117, (int) (2L)));
				return
					BGl_evmeaningz00zz__evmeaningz00(BgL_bodyz00_4118, BgL_stackz00_4119,
					BgL_denvz00_4120);
			}
		}

	}



/* evmeaning-bounce-37 */
	obj_t BGl_evmeaningzd2bouncezd237z00zz__evmeaningz00(obj_t BgL_codez00_83,
		obj_t BgL_stackz00_84, obj_t BgL_denvz00_85)
	{
		{	/* Eval/evmeaning.scm 922 */
			{	/* Eval/evmeaning.scm 413 */
				obj_t BgL_bodyz00_2028;
				obj_t BgL_wherez00_2029;
				obj_t BgL_locz00_2030;

				BgL_bodyz00_2028 = VECTOR_REF(BgL_codez00_83, 2L);
				BgL_wherez00_2029 = VECTOR_REF(BgL_codez00_83, 3L);
				BgL_locz00_2030 = VECTOR_REF(BgL_codez00_83, 1L);
				{	/* Eval/evmeaning.scm 418 */
					obj_t BgL_zc3z04anonymousza31743ze3z87_4121;

					BgL_zc3z04anonymousza31743ze3z87_4121 =
						MAKE_FX_PROCEDURE
						(BGl_z62zc3z04anonymousza31743ze3ze5zz__evmeaningz00, (int) (0L),
						(int) (4L));
					PROCEDURE_SET(BgL_zc3z04anonymousza31743ze3z87_4121, (int) (0L),
						BgL_wherez00_2029);
					PROCEDURE_SET(BgL_zc3z04anonymousza31743ze3z87_4121, (int) (1L),
						BgL_locz00_2030);
					PROCEDURE_SET(BgL_zc3z04anonymousza31743ze3z87_4121, (int) (2L),
						BgL_bodyz00_2028);
					PROCEDURE_SET(BgL_zc3z04anonymousza31743ze3z87_4121, (int) (3L),
						BgL_stackz00_84);
					{	/* Eval/evmeaning.scm 939 */
						obj_t BgL_arg1813z00_3397;

						{	/* Eval/evmeaning.scm 927 */
							obj_t BgL_newz00_3398;

							BgL_newz00_3398 =
								create_struct(BGl_symbol2360z00zz__evmeaningz00, (int) (3L));
							{	/* Eval/evmeaning.scm 927 */
								int BgL_tmpz00_5906;

								BgL_tmpz00_5906 = (int) (2L);
								STRUCT_SET(BgL_newz00_3398, BgL_tmpz00_5906, BgL_stackz00_84);
							}
							{	/* Eval/evmeaning.scm 927 */
								int BgL_tmpz00_5909;

								BgL_tmpz00_5909 = (int) (1L);
								STRUCT_SET(BgL_newz00_3398, BgL_tmpz00_5909, BgL_bodyz00_2028);
							}
							{	/* Eval/evmeaning.scm 927 */
								obj_t BgL_auxz00_5914;
								int BgL_tmpz00_5912;

								BgL_auxz00_5914 = BINT(0L);
								BgL_tmpz00_5912 = (int) (0L);
								STRUCT_SET(BgL_newz00_3398, BgL_tmpz00_5912, BgL_auxz00_5914);
							}
							BgL_arg1813z00_3397 = BgL_newz00_3398;
						}
						PROCEDURE_ATTR_SET(BgL_zc3z04anonymousza31743ze3z87_4121,
							BgL_arg1813z00_3397);
						BgL_arg1813z00_3397;
					}
					return BgL_zc3z04anonymousza31743ze3z87_4121;
				}
			}
		}

	}



/* &<@anonymous:1743> */
	obj_t BGl_z62zc3z04anonymousza31743ze3ze5zz__evmeaningz00(obj_t
		BgL_envz00_4122)
	{
		{	/* Eval/evmeaning.scm 417 */
			{	/* Eval/evmeaning.scm 418 */
				obj_t BgL_wherez00_4123;
				obj_t BgL_locz00_4124;
				obj_t BgL_bodyz00_4125;
				obj_t BgL_stackz00_4126;

				BgL_wherez00_4123 = PROCEDURE_REF(BgL_envz00_4122, (int) (0L));
				BgL_locz00_4124 = PROCEDURE_REF(BgL_envz00_4122, (int) (1L));
				BgL_bodyz00_4125 = PROCEDURE_REF(BgL_envz00_4122, (int) (2L));
				BgL_stackz00_4126 =
					((obj_t) PROCEDURE_REF(BgL_envz00_4122, (int) (3L)));
				{	/* Eval/evmeaning.scm 418 */
					obj_t BgL_z12denvz12_4255;

					BgL_z12denvz12_4255 = BGL_CURRENT_DYNAMIC_ENV();
					{	/* Eval/evmeaning.scm 421 */

						BGL_ENV_PUSH_TRACE(BgL_z12denvz12_4255, BgL_wherez00_4123,
							BgL_locz00_4124);
						{	/* Eval/evmeaning.scm 423 */
							obj_t BgL_resz00_4256;

							BgL_resz00_4256 =
								BGl_evmeaningz00zz__evmeaningz00(BgL_bodyz00_4125,
								BgL_stackz00_4126, BgL_z12denvz12_4255);
							BGL_ENV_POP_TRACE(BgL_z12denvz12_4255);
							return BgL_resz00_4256;
						}
					}
				}
			}
		}

	}



/* evmeaning-bounce-36 */
	obj_t BGl_evmeaningzd2bouncezd236z00zz__evmeaningz00(obj_t BgL_codez00_86,
		obj_t BgL_stackz00_87, obj_t BgL_denvz00_88)
	{
		{	/* Eval/evmeaning.scm 922 */
			{	/* Eval/evmeaning.scm 394 */
				obj_t BgL_namez00_2038;

				BgL_namez00_2038 = VECTOR_REF(BgL_codez00_86, 2L);
				{	/* Eval/evmeaning.scm 394 */
					obj_t BgL_funz00_2039;

					BgL_funz00_2039 =
						BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF(BgL_codez00_86, 3L),
						BgL_stackz00_87, BgL_denvz00_88);
					{	/* Eval/evmeaning.scm 395 */

						{	/* Eval/evmeaning.scm 396 */
							obj_t BgL_g1108z00_2040;

							BgL_g1108z00_2040 = VECTOR_REF(BgL_codez00_86, 4L);
							{
								obj_t BgL_argsz00_2043;
								obj_t BgL_newz00_2044;
								long BgL_lenz00_2045;

								BgL_argsz00_2043 = BgL_g1108z00_2040;
								BgL_newz00_2044 = BNIL;
								BgL_lenz00_2045 = 0L;
							BgL_zc3z04anonymousza31744ze3z87_2046:
								if (NULLP(BgL_argsz00_2043))
									{	/* Eval/evmeaning.scm 399 */
										{	/* Eval/evmeaning.scm 401 */
											obj_t BgL_tmpz00_5937;

											BgL_tmpz00_5937 = VECTOR_REF(BgL_codez00_86, 1L);
											BGL_ENV_SET_TRACE_LOCATION(BgL_denvz00_88,
												BgL_tmpz00_5937);
										}
										{	/* Eval/evmeaning.scm 402 */
											obj_t BgL_arg1748z00_2049;

											BgL_arg1748z00_2049 = bgl_reverse_bang(BgL_newz00_2044);
											if (PROCEDUREP(BgL_funz00_2039))
												{	/* Eval/evmeaning.scm 1188 */
													if (PROCEDURE_CORRECT_ARITYP(BgL_funz00_2039,
															(int) (BgL_lenz00_2045)))
														{	/* Eval/evmeaning.scm 1190 */
															return
																eval_apply(BgL_funz00_2039,
																BgL_arg1748z00_2049);
														}
													else
														{	/* Eval/evmeaning.scm 1190 */
															return
																BGl_evarityzd2errorzd2zz__everrorz00(VECTOR_REF
																(BgL_codez00_86, 1L), BgL_namez00_2038,
																(int) (BgL_lenz00_2045),
																PROCEDURE_ARITY(BgL_funz00_2039));
												}}
											else
												{	/* Eval/evmeaning.scm 1188 */
													return
														BGl_everrorz00zz__everrorz00(VECTOR_REF
														(BgL_codez00_86, 1L),
														BGl_string2362z00zz__evmeaningz00,
														BGl_string2363z00zz__evmeaningz00,
														BgL_namez00_2038);
												}
										}
									}
								else
									{	/* Eval/evmeaning.scm 403 */
										obj_t BgL_arg1749z00_2050;
										obj_t BgL_arg1750z00_2051;
										long BgL_arg1754z00_2052;

										BgL_arg1749z00_2050 = CDR(((obj_t) BgL_argsz00_2043));
										{	/* Eval/evmeaning.scm 404 */
											obj_t BgL_arg1755z00_2053;

											{	/* Eval/evmeaning.scm 404 */
												obj_t BgL_arg1756z00_2054;

												BgL_arg1756z00_2054 = CAR(((obj_t) BgL_argsz00_2043));
												BgL_arg1755z00_2053 =
													BGl_evmeaningz00zz__evmeaningz00(BgL_arg1756z00_2054,
													BgL_stackz00_87, BgL_denvz00_88);
											}
											BgL_arg1750z00_2051 =
												MAKE_YOUNG_PAIR(BgL_arg1755z00_2053, BgL_newz00_2044);
										}
										BgL_arg1754z00_2052 = (1L + BgL_lenz00_2045);
										{
											long BgL_lenz00_5962;
											obj_t BgL_newz00_5961;
											obj_t BgL_argsz00_5960;

											BgL_argsz00_5960 = BgL_arg1749z00_2050;
											BgL_newz00_5961 = BgL_arg1750z00_2051;
											BgL_lenz00_5962 = BgL_arg1754z00_2052;
											BgL_lenz00_2045 = BgL_lenz00_5962;
											BgL_newz00_2044 = BgL_newz00_5961;
											BgL_argsz00_2043 = BgL_argsz00_5960;
											goto BgL_zc3z04anonymousza31744ze3z87_2046;
										}
									}
							}
						}
					}
				}
			}
		}

	}



/* evmeaning-bounce-30 */
	obj_t BGl_evmeaningzd2bouncezd230z00zz__evmeaningz00(obj_t BgL_codez00_89,
		obj_t BgL_stackz00_90, obj_t BgL_denvz00_91)
	{
		{	/* Eval/evmeaning.scm 922 */
			{	/* Eval/evmeaning.scm 368 */
				obj_t BgL_eargsz00_2057;

				{	/* Eval/evmeaning.scm 368 */
					obj_t BgL_l1179z00_2058;

					BgL_l1179z00_2058 = VECTOR_REF(BgL_codez00_89, 3L);
					if (NULLP(BgL_l1179z00_2058))
						{	/* Eval/evmeaning.scm 368 */
							BgL_eargsz00_2057 = BNIL;
						}
					else
						{	/* Eval/evmeaning.scm 368 */
							obj_t BgL_head1181z00_2060;

							BgL_head1181z00_2060 = MAKE_YOUNG_PAIR(BNIL, BNIL);
							{
								obj_t BgL_l1179z00_2062;
								obj_t BgL_tail1182z00_2063;

								BgL_l1179z00_2062 = BgL_l1179z00_2058;
								BgL_tail1182z00_2063 = BgL_head1181z00_2060;
							BgL_zc3z04anonymousza31759ze3z87_2064:
								if (NULLP(BgL_l1179z00_2062))
									{	/* Eval/evmeaning.scm 368 */
										BgL_eargsz00_2057 = CDR(BgL_head1181z00_2060);
									}
								else
									{	/* Eval/evmeaning.scm 368 */
										obj_t BgL_newtail1183z00_2066;

										{	/* Eval/evmeaning.scm 368 */
											obj_t BgL_arg1762z00_2068;

											{	/* Eval/evmeaning.scm 368 */
												obj_t BgL_xz00_2069;

												BgL_xz00_2069 = CAR(((obj_t) BgL_l1179z00_2062));
												BgL_arg1762z00_2068 =
													BGl_evmeaningz00zz__evmeaningz00(BgL_xz00_2069,
													BgL_stackz00_90, BgL_denvz00_91);
											}
											BgL_newtail1183z00_2066 =
												MAKE_YOUNG_PAIR(BgL_arg1762z00_2068, BNIL);
										}
										SET_CDR(BgL_tail1182z00_2063, BgL_newtail1183z00_2066);
										{	/* Eval/evmeaning.scm 368 */
											obj_t BgL_arg1761z00_2067;

											BgL_arg1761z00_2067 = CDR(((obj_t) BgL_l1179z00_2062));
											{
												obj_t BgL_tail1182z00_5978;
												obj_t BgL_l1179z00_5977;

												BgL_l1179z00_5977 = BgL_arg1761z00_2067;
												BgL_tail1182z00_5978 = BgL_newtail1183z00_2066;
												BgL_tail1182z00_2063 = BgL_tail1182z00_5978;
												BgL_l1179z00_2062 = BgL_l1179z00_5977;
												goto BgL_zc3z04anonymousza31759ze3z87_2064;
											}
										}
									}
							}
						}
				}
				{	/* Eval/evmeaning.scm 371 */
					obj_t BgL_funz00_4193;

					BgL_funz00_4193 = VECTOR_REF(BgL_codez00_89, 2L);
					return apply(BgL_funz00_4193, BgL_eargsz00_2057);
				}
			}
		}

	}



/* evmeaning-bounce-29 */
	obj_t BGl_evmeaningzd2bouncezd229z00zz__evmeaningz00(obj_t BgL_codez00_92,
		obj_t BgL_stackz00_93, obj_t BgL_denvz00_94)
	{
		{	/* Eval/evmeaning.scm 922 */
			{	/* Eval/evmeaning.scm 360 */
				obj_t BgL_funz00_2071;

				BgL_funz00_2071 = VECTOR_REF(BgL_codez00_92, 2L);
				{	/* Eval/evmeaning.scm 360 */
					obj_t BgL_a0z00_2072;

					BgL_a0z00_2072 =
						BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF(BgL_codez00_92, 3L),
						BgL_stackz00_93, BgL_denvz00_94);
					{	/* Eval/evmeaning.scm 361 */
						obj_t BgL_a1z00_2073;

						BgL_a1z00_2073 =
							BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF(BgL_codez00_92, 4L),
							BgL_stackz00_93, BgL_denvz00_94);
						{	/* Eval/evmeaning.scm 362 */
							obj_t BgL_a2z00_2074;

							BgL_a2z00_2074 =
								BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF(BgL_codez00_92, 5L),
								BgL_stackz00_93, BgL_denvz00_94);
							{	/* Eval/evmeaning.scm 363 */
								obj_t BgL_a3z00_2075;

								BgL_a3z00_2075 =
									BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF(BgL_codez00_92,
										6L), BgL_stackz00_93, BgL_denvz00_94);
								{	/* Eval/evmeaning.scm 364 */

									return
										BGL_PROCEDURE_CALL4(BgL_funz00_2071, BgL_a0z00_2072,
										BgL_a1z00_2073, BgL_a2z00_2074, BgL_a3z00_2075);
								}
							}
						}
					}
				}
			}
		}

	}



/* evmeaning-bounce-28 */
	obj_t BGl_evmeaningzd2bouncezd228z00zz__evmeaningz00(obj_t BgL_codez00_95,
		obj_t BgL_stackz00_96, obj_t BgL_denvz00_97)
	{
		{	/* Eval/evmeaning.scm 922 */
			{	/* Eval/evmeaning.scm 353 */
				obj_t BgL_funz00_2080;

				BgL_funz00_2080 = VECTOR_REF(BgL_codez00_95, 2L);
				{	/* Eval/evmeaning.scm 353 */
					obj_t BgL_a0z00_2081;

					BgL_a0z00_2081 =
						BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF(BgL_codez00_95, 3L),
						BgL_stackz00_96, BgL_denvz00_97);
					{	/* Eval/evmeaning.scm 354 */
						obj_t BgL_a1z00_2082;

						BgL_a1z00_2082 =
							BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF(BgL_codez00_95, 4L),
							BgL_stackz00_96, BgL_denvz00_97);
						{	/* Eval/evmeaning.scm 355 */
							obj_t BgL_a2z00_2083;

							BgL_a2z00_2083 =
								BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF(BgL_codez00_95, 5L),
								BgL_stackz00_96, BgL_denvz00_97);
							{	/* Eval/evmeaning.scm 356 */

								return
									BGL_PROCEDURE_CALL3(BgL_funz00_2080, BgL_a0z00_2081,
									BgL_a1z00_2082, BgL_a2z00_2083);
							}
						}
					}
				}
			}
		}

	}



/* evmeaning-bounce-27 */
	obj_t BGl_evmeaningzd2bouncezd227z00zz__evmeaningz00(obj_t BgL_codez00_98,
		obj_t BgL_stackz00_99, obj_t BgL_denvz00_100)
	{
		{	/* Eval/evmeaning.scm 922 */
			{	/* Eval/evmeaning.scm 347 */
				obj_t BgL_funz00_2087;

				BgL_funz00_2087 = VECTOR_REF(BgL_codez00_98, 2L);
				{	/* Eval/evmeaning.scm 347 */
					obj_t BgL_a0z00_2088;

					BgL_a0z00_2088 =
						BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF(BgL_codez00_98, 3L),
						BgL_stackz00_99, BgL_denvz00_100);
					{	/* Eval/evmeaning.scm 348 */
						obj_t BgL_a1z00_2089;

						BgL_a1z00_2089 =
							BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF(BgL_codez00_98, 4L),
							BgL_stackz00_99, BgL_denvz00_100);
						{	/* Eval/evmeaning.scm 349 */

							return
								BGL_PROCEDURE_CALL2(BgL_funz00_2087, BgL_a0z00_2088,
								BgL_a1z00_2089);
						}
					}
				}
			}
		}

	}



/* evmeaning-bounce-26 */
	obj_t BGl_evmeaningzd2bouncezd226z00zz__evmeaningz00(obj_t BgL_codez00_101,
		obj_t BgL_stackz00_102, obj_t BgL_denvz00_103)
	{
		{	/* Eval/evmeaning.scm 922 */
			{	/* Eval/evmeaning.scm 342 */
				obj_t BgL_funz00_2092;

				BgL_funz00_2092 = VECTOR_REF(BgL_codez00_101, 2L);
				{	/* Eval/evmeaning.scm 342 */
					obj_t BgL_a0z00_2093;

					BgL_a0z00_2093 =
						BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF(BgL_codez00_101, 3L),
						BgL_stackz00_102, BgL_denvz00_103);
					{	/* Eval/evmeaning.scm 343 */

						return BGL_PROCEDURE_CALL1(BgL_funz00_2092, BgL_a0z00_2093);
					}
				}
			}
		}

	}



/* evmeaning-bounce-25 */
	obj_t BGl_evmeaningzd2bouncezd225z00zz__evmeaningz00(obj_t BgL_codez00_104)
	{
		{	/* Eval/evmeaning.scm 922 */
			{	/* Eval/evmeaning.scm 339 */
				obj_t BgL_fun1773z00_2095;

				BgL_fun1773z00_2095 = VECTOR_REF(BgL_codez00_104, 2L);
				return BGL_PROCEDURE_CALL0(BgL_fun1773z00_2095);
			}
		}

	}



/* evmeaning-bounce-18 */
	obj_t BGl_evmeaningzd2bouncezd218z00zz__evmeaningz00(obj_t BgL_codez00_105,
		obj_t BgL_stackz00_106, obj_t BgL_denvz00_107)
	{
		{	/* Eval/evmeaning.scm 922 */
			return
				BGl_zc3z04exitza31774ze3ze70z60zz__evmeaningz00(BgL_denvz00_107,
				BgL_stackz00_106, BgL_codez00_105);
		}

	}



/* <@exit:1774>~0 */
	obj_t BGl_zc3z04exitza31774ze3ze70z60zz__evmeaningz00(obj_t BgL_denvz00_4177,
		obj_t BgL_stackz00_4176, obj_t BgL_codez00_4175)
	{
		{	/* Eval/evmeaning.scm 335 */
			jmp_buf_t jmpbuf;
			void *BgL_an_exit1110z00_2097;

			if (SET_EXIT(BgL_an_exit1110z00_2097))
				{
					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_exit1110z00_2097 = (void *) jmpbuf;
					{	/* Eval/evmeaning.scm 335 */
						obj_t BgL_env1114z00_2098;

						BgL_env1114z00_2098 = BGL_CURRENT_DYNAMIC_ENV();
						PUSH_ENV_EXIT(BgL_env1114z00_2098, BgL_an_exit1110z00_2097, 1L);
						{	/* Eval/evmeaning.scm 335 */
							obj_t BgL_an_exitd1111z00_2099;

							BgL_an_exitd1111z00_2099 =
								BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1114z00_2098);
							{	/* Eval/evmeaning.scm 335 */
								obj_t BgL___dummy__z00_4127;

								BgL___dummy__z00_4127 =
									MAKE_FX_PROCEDURE(BGl_z62__dummy__z62zz__evmeaningz00,
									(int) (1L), (int) (1L));
								PROCEDURE_SET(BgL___dummy__z00_4127,
									(int) (0L), BgL_an_exitd1111z00_2099);
								{	/* Eval/evmeaning.scm 335 */
									obj_t BgL_res1113z00_2102;

									{	/* Eval/evmeaning.scm 336 */
										obj_t BgL_fun1776z00_2104;

										BgL_fun1776z00_2104 =
											BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF
											(BgL_codez00_4175, 2L), BgL_stackz00_4176,
											BgL_denvz00_4177);
										BgL_res1113z00_2102 =
											BGL_PROCEDURE_CALL1(BgL_fun1776z00_2104,
											BgL___dummy__z00_4127);
									}
									POP_ENV_EXIT(BgL_env1114z00_2098);
									return BgL_res1113z00_2102;
								}
							}
						}
					}
				}
		}

	}



/* &__dummy__ */
	obj_t BGl_z62__dummy__z62zz__evmeaningz00(obj_t BgL_envz00_4128,
		obj_t BgL_val1112z00_4130)
	{
		{	/* Eval/evmeaning.scm 335 */
			return
				unwind_stack_until(PROCEDURE_REF(BgL_envz00_4128,
					(int) (0L)), BFALSE, BgL_val1112z00_4130, BFALSE, BFALSE);
		}

	}



/* evmeaning-bounce-17 */
	obj_t BGl_evmeaningzd2bouncezd217z00zz__evmeaningz00(obj_t BgL_codez00_108,
		obj_t BgL_stackz00_109, obj_t BgL_denvz00_110)
	{
		{	/* Eval/evmeaning.scm 922 */
			{	/* Eval/evmeaning.scm 298 */
				obj_t BgL_varz00_2105;
				obj_t BgL_valz00_2106;
				obj_t BgL_modz00_2107;

				BgL_varz00_2105 = VECTOR_REF(BgL_codez00_108, 2L);
				BgL_valz00_2106 = VECTOR_REF(BgL_codez00_108, 3L);
				BgL_modz00_2107 = VECTOR_REF(BgL_codez00_108, 4L);
				{	/* Eval/evmeaning.scm 301 */
					obj_t BgL_vz00_2108;

					BgL_vz00_2108 =
						BGl_evmodulezd2findzd2globalz00zz__evmodulez00(BgL_modz00_2107,
						BgL_varz00_2105);
					{	/* Eval/evmeaning.scm 302 */
						bool_t BgL_test2529z00_6057;

						if (VECTORP(BgL_vz00_2108))
							{	/* Eval/evmeaning.scm 302 */
								BgL_test2529z00_6057 = (VECTOR_LENGTH(BgL_vz00_2108) == 5L);
							}
						else
							{	/* Eval/evmeaning.scm 302 */
								BgL_test2529z00_6057 = ((bool_t) 0);
							}
						if (BgL_test2529z00_6057)
							{

								{	/* Eval/evmeaning.scm 303 */
									int BgL_aux1117z00_2111;

									BgL_aux1117z00_2111 = CINT(VECTOR_REF(BgL_vz00_2108, 0L));
									switch ((long) (BgL_aux1117z00_2111))
										{
										case 0L:

											BGl_everrorz00zz__everrorz00(VECTOR_REF(BgL_codez00_108,
													1L), BGl_string2357z00zz__evmeaningz00,
												BGl_string2379z00zz__evmeaningz00, BgL_varz00_2105);
											break;
										case 1L:

											{	/* Eval/evmeaning.scm 309 */
												obj_t BgL_arg1779z00_2113;

												BgL_arg1779z00_2113 = VECTOR_REF(BgL_codez00_108, 1L);
												{	/* Eval/evmeaning.scm 309 */
													obj_t BgL_list1780z00_2114;

													{	/* Eval/evmeaning.scm 309 */
														obj_t BgL_arg1781z00_2115;

														{	/* Eval/evmeaning.scm 309 */
															obj_t BgL_arg1782z00_2116;

															BgL_arg1782z00_2116 =
																MAKE_YOUNG_PAIR(BgL_varz00_2105, BNIL);
															BgL_arg1781z00_2115 =
																MAKE_YOUNG_PAIR
																(BGl_string2380z00zz__evmeaningz00,
																BgL_arg1782z00_2116);
														}
														BgL_list1780z00_2114 =
															MAKE_YOUNG_PAIR(BGl_string2357z00zz__evmeaningz00,
															BgL_arg1781z00_2115);
													}
													BGl_evwarningz00zz__everrorz00(BgL_arg1779z00_2113,
														BgL_list1780z00_2114);
												}
											}
											BGl_updatezd2evalzd2globalz12z12zz__evmeaningz00
												(BgL_codez00_108, BgL_vz00_2108,
												BGl_evmeaningz00zz__evmeaningz00(BgL_valz00_2106, BNIL,
													BgL_denvz00_110));
											break;
										case 2L:

											BGl_updatezd2evalzd2globalz12z12zz__evmeaningz00
												(BgL_codez00_108, BgL_vz00_2108,
												BGl_evmeaningz00zz__evmeaningz00(BgL_valz00_2106, BNIL,
													BgL_denvz00_110));
											break;
										case 3L:

											BGl_updatezd2evalzd2globalz12z12zz__evmeaningz00
												(BgL_codez00_108, BgL_vz00_2108,
												BGl_evmeaningz00zz__evmeaningz00(BgL_valz00_2106, BNIL,
													BgL_denvz00_110));
											VECTOR_SET(BgL_vz00_2108, 0L, BINT(2L));
											break;
										case 4L:

											BGl_updatezd2evalzd2globalz12z12zz__evmeaningz00
												(BgL_codez00_108, BgL_vz00_2108,
												BGl_evmeaningz00zz__evmeaningz00(BgL_valz00_2106, BNIL,
													BgL_denvz00_110));
											VECTOR_SET(BgL_vz00_2108, 0L, BINT(5L));
											break;
										default:
											BGl_everrorz00zz__everrorz00(VECTOR_REF(BgL_codez00_108,
													1L), BGl_string2357z00zz__evmeaningz00,
												BGl_string2378z00zz__evmeaningz00, BgL_varz00_2105);
										}
								}
							}
						else
							{	/* Eval/evmeaning.scm 325 */
								obj_t BgL_locz00_2122;

								BgL_locz00_2122 = VECTOR_REF(BgL_codez00_108, 1L);
								{	/* Eval/evmeaning.scm 325 */
									obj_t BgL_gz00_2123;

									{	/* Eval/evmeaning.scm 326 */
										obj_t BgL_arg1788z00_2125;

										BgL_arg1788z00_2125 = BGl_evalzd2modulezd2zz__evmodulez00();
										{	/* Eval/evmeaning.scm 326 */
											obj_t BgL_v1184z00_3456;

											BgL_v1184z00_3456 = create_vector(5L);
											VECTOR_SET(BgL_v1184z00_3456, 0L, BINT(2L));
											VECTOR_SET(BgL_v1184z00_3456, 1L,
												((obj_t) BgL_varz00_2105));
											VECTOR_SET(BgL_v1184z00_3456, 2L, BUNSPEC);
											VECTOR_SET(BgL_v1184z00_3456, 3L, BgL_arg1788z00_2125);
											VECTOR_SET(BgL_v1184z00_3456, 4L, BgL_locz00_2122);
											BgL_gz00_2123 = BgL_v1184z00_3456;
										}
									}
									{	/* Eval/evmeaning.scm 326 */

										BGl_evmodulezd2bindzd2globalz12z12zz__evmodulez00
											(BgL_modz00_2107, BgL_varz00_2105, BgL_gz00_2123,
											BgL_locz00_2122);
										VECTOR_SET(BgL_gz00_2123, 2L,
											BGl_evmeaningz00zz__evmeaningz00(BgL_valz00_2106, BNIL,
												BgL_denvz00_110));
									}
								}
							}
					}
					return BgL_varz00_2105;
				}
			}
		}

	}



/* evmeaning-bounce-14 */
	obj_t BGl_evmeaningzd2bouncezd214z00zz__evmeaningz00(obj_t BgL_codez00_111,
		obj_t BgL_stackz00_112, obj_t BgL_denvz00_113)
	{
		{	/* Eval/evmeaning.scm 922 */
			{	/* Eval/evmeaning.scm 276 */
				obj_t BgL_offsetz00_2126;
				obj_t BgL_valuez00_2127;

				BgL_offsetz00_2126 = VECTOR_REF(BgL_codez00_111, 2L);
				BgL_valuez00_2127 =
					BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF(BgL_codez00_111, 3L),
					BgL_stackz00_112, BgL_denvz00_113);
				{
					long BgL_iz00_2130;
					obj_t BgL_envz00_2131;

					{	/* Eval/evmeaning.scm 279 */
						obj_t BgL_arg1789z00_2129;

						{	/* Eval/evmeaning.scm 279 */
							obj_t BgL_pairz00_3478;

							{	/* Eval/evmeaning.scm 279 */
								obj_t BgL_pairz00_3477;

								{	/* Eval/evmeaning.scm 279 */
									obj_t BgL_pairz00_3476;

									BgL_pairz00_3476 = CDR(((obj_t) BgL_stackz00_112));
									BgL_pairz00_3477 = CDR(BgL_pairz00_3476);
								}
								BgL_pairz00_3478 = CDR(BgL_pairz00_3477);
							}
							BgL_arg1789z00_2129 = CDR(BgL_pairz00_3478);
						}
						BgL_iz00_2130 = 4L;
						BgL_envz00_2131 = BgL_arg1789z00_2129;
					BgL_zc3z04anonymousza31790ze3z87_2132:
						if ((BgL_iz00_2130 == (long) CINT(BgL_offsetz00_2126)))
							{	/* Eval/evmeaning.scm 280 */
								obj_t BgL_tmpz00_6111;

								BgL_tmpz00_6111 = ((obj_t) BgL_envz00_2131);
								SET_CAR(BgL_tmpz00_6111, BgL_valuez00_2127);
							}
						else
							{	/* Eval/evmeaning.scm 278 */
								long BgL_arg1792z00_2134;
								obj_t BgL_arg1793z00_2135;

								BgL_arg1792z00_2134 = (BgL_iz00_2130 + 1L);
								BgL_arg1793z00_2135 = CDR(((obj_t) BgL_envz00_2131));
								{
									obj_t BgL_envz00_6118;
									long BgL_iz00_6117;

									BgL_iz00_6117 = BgL_arg1792z00_2134;
									BgL_envz00_6118 = BgL_arg1793z00_2135;
									BgL_envz00_2131 = BgL_envz00_6118;
									BgL_iz00_2130 = BgL_iz00_6117;
									goto BgL_zc3z04anonymousza31790ze3z87_2132;
								}
							}
					}
				}
				return BUNSPEC;
			}
		}

	}



/* evmeaning-bounce-9 */
	obj_t BGl_evmeaningzd2bouncezd29z00zz__evmeaningz00(obj_t BgL_codez00_114,
		obj_t BgL_stackz00_115, obj_t BgL_denvz00_116)
	{
		{	/* Eval/evmeaning.scm 922 */
			{	/* Eval/evmeaning.scm 247 */
				obj_t BgL_namez00_2138;

				BgL_namez00_2138 = VECTOR_REF(BgL_codez00_114, 2L);
				{	/* Eval/evmeaning.scm 247 */
					obj_t BgL_valuez00_2139;

					BgL_valuez00_2139 = VECTOR_REF(BgL_codez00_114, 3L);
					{	/* Eval/evmeaning.scm 248 */
						obj_t BgL_modz00_2140;

						BgL_modz00_2140 = VECTOR_REF(BgL_codez00_114, 4L);
						{	/* Eval/evmeaning.scm 249 */
							obj_t BgL_globalz00_2141;

							BgL_globalz00_2141 =
								BGl_evmodulezd2findzd2globalz00zz__evmodulez00(BgL_modz00_2140,
								BgL_namez00_2138);
							{	/* Eval/evmeaning.scm 250 */

								{	/* Eval/evmeaning.scm 251 */
									bool_t BgL_test2532z00_6123;

									if (VECTORP(BgL_globalz00_2141))
										{	/* Eval/evmeaning.scm 251 */
											BgL_test2532z00_6123 =
												(VECTOR_LENGTH(BgL_globalz00_2141) == 5L);
										}
									else
										{	/* Eval/evmeaning.scm 251 */
											BgL_test2532z00_6123 = ((bool_t) 0);
										}
									if (BgL_test2532z00_6123)
										{	/* Eval/evmeaning.scm 251 */
											VECTOR_SET(BgL_codez00_114, 0L, BINT(8L));
											VECTOR_SET(BgL_codez00_114, 2L, BgL_globalz00_2141);
											VECTOR_SET(BgL_codez00_114, 3L, BgL_valuez00_2139);
											return
												BGl_evmeaningz00zz__evmeaningz00(BgL_codez00_114,
												BgL_stackz00_115, BgL_denvz00_116);
										}
									else
										{	/* Eval/evmeaning.scm 251 */
											return
												BGl_evmeaningzd2unboundzd2zz__evmeaningz00(VECTOR_REF
												(BgL_codez00_114, 1L), BgL_namez00_2138,
												BgL_modz00_2140);
										}
								}
							}
						}
					}
				}
			}
		}

	}



/* evmeaning-bounce-7 */
	obj_t BGl_evmeaningzd2bouncezd27z00zz__evmeaningz00(obj_t BgL_codez00_117,
		obj_t BgL_stackz00_118, obj_t BgL_denvz00_119)
	{
		{	/* Eval/evmeaning.scm 922 */
			{	/* Eval/evmeaning.scm 228 */
				obj_t BgL_namez00_2144;

				BgL_namez00_2144 = VECTOR_REF(BgL_codez00_117, 2L);
				{	/* Eval/evmeaning.scm 228 */
					obj_t BgL_modz00_2145;

					BgL_modz00_2145 = VECTOR_REF(BgL_codez00_117, 3L);
					{	/* Eval/evmeaning.scm 229 */
						obj_t BgL_globalz00_2146;

						BgL_globalz00_2146 =
							BGl_evmodulezd2findzd2globalz00zz__evmodulez00(BgL_modz00_2145,
							BgL_namez00_2144);
						{	/* Eval/evmeaning.scm 230 */

							{	/* Eval/evmeaning.scm 231 */
								bool_t BgL_test2534z00_6138;

								if (VECTORP(BgL_globalz00_2146))
									{	/* Eval/evmeaning.scm 231 */
										BgL_test2534z00_6138 =
											(VECTOR_LENGTH(BgL_globalz00_2146) == 5L);
									}
								else
									{	/* Eval/evmeaning.scm 231 */
										BgL_test2534z00_6138 = ((bool_t) 0);
									}
								if (BgL_test2534z00_6138)
									{	/* Eval/evmeaning.scm 231 */
										VECTOR_SET(BgL_codez00_117, 0L, BINT(6L));
										VECTOR_SET(BgL_codez00_117, 2L, BgL_globalz00_2146);
										return VECTOR_REF(BgL_globalz00_2146, 2L);
									}
								else
									{	/* Eval/evmeaning.scm 231 */
										return
											BGl_evmeaningzd2unboundzd2zz__evmeaningz00(VECTOR_REF
											(BgL_codez00_117, 1L), BgL_namez00_2144, BgL_modz00_2145);
									}
							}
						}
					}
				}
			}
		}

	}



/* update-eval-global! */
	obj_t BGl_updatezd2evalzd2globalz12z12zz__evmeaningz00(obj_t BgL_codez00_142,
		obj_t BgL_varz00_143, obj_t BgL_valz00_144)
	{
		{	/* Eval/evmeaning.scm 963 */
			{	/* Eval/evmeaning.scm 964 */
				int BgL_aux1121z00_2168;

				{	/* Eval/evmeaning.scm 964 */
					int BgL_res2340z00_3540;

					BgL_res2340z00_3540 = CINT(VECTOR_REF(((obj_t) BgL_varz00_143), 0L));
					BgL_aux1121z00_2168 = BgL_res2340z00_3540;
				}
				switch ((long) (BgL_aux1121z00_2168))
					{
					case 0L:

						{	/* Eval/evmeaning.scm 966 */
							obj_t BgL_arg1817z00_2169;
							obj_t BgL_arg1818z00_2170;

							BgL_arg1817z00_2169 = VECTOR_REF(BgL_codez00_142, 1L);
							BgL_arg1818z00_2170 = VECTOR_REF(((obj_t) BgL_varz00_143), 1L);
							return
								BGl_everrorz00zz__everrorz00(BgL_arg1817z00_2169,
								BGl_string2381z00zz__evmeaningz00,
								BGl_string2382z00zz__evmeaningz00, BgL_arg1818z00_2170);
						}
						break;
					case 1L:

						{	/* Eval/evmeaning.scm 968 */
							obj_t BgL_arg1819z00_2171;

							BgL_arg1819z00_2171 = VECTOR_REF(((obj_t) BgL_varz00_143), 2L);
							return
								__EVMEANING_ADDRESS_SET(BgL_arg1819z00_2171, BgL_valz00_144);
						}
						break;
					case 2L:

						return VECTOR_SET(((obj_t) BgL_varz00_143), 2L, BgL_valz00_144);
						break;
					case 3L:

						return VECTOR_SET(((obj_t) BgL_varz00_143), 2L, BgL_valz00_144);
						break;
					case 4L:

						return VECTOR_SET(((obj_t) BgL_varz00_143), 2L, BgL_valz00_144);
						break;
					case 5L:

						{	/* Eval/evmeaning.scm 976 */
							obj_t BgL_arg1820z00_2172;
							obj_t BgL_arg1821z00_2173;

							BgL_arg1820z00_2172 = VECTOR_REF(BgL_codez00_142, 1L);
							BgL_arg1821z00_2173 = VECTOR_REF(((obj_t) BgL_varz00_143), 1L);
							return
								BGl_everrorz00zz__everrorz00(BgL_arg1820z00_2172,
								BGl_string2381z00zz__evmeaningz00,
								BGl_string2382z00zz__evmeaningz00, BgL_arg1821z00_2173);
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



/* evmeaning-funcall-0 */
	obj_t BGl_evmeaningzd2funcallzd20z00zz__evmeaningz00(obj_t BgL_codez00_145,
		obj_t BgL_stackz00_146, obj_t BgL_denvz00_147, obj_t BgL_funz00_148)
	{
		{	/* Eval/evmeaning.scm 981 */
			{	/* Eval/evmeaning.scm 982 */
				obj_t BgL_namez00_2174;
				obj_t BgL_locz00_2175;

				BgL_namez00_2174 = VECTOR_REF(BgL_codez00_145, 2L);
				BgL_locz00_2175 = VECTOR_REF(BgL_codez00_145, 1L);
				BGL_ENV_SET_TRACE_LOCATION(BgL_denvz00_147, BgL_locz00_2175);
				if (PROCEDUREP(BgL_funz00_148))
					{	/* Eval/evmeaning.scm 986 */
						if (PROCEDURE_CORRECT_ARITYP(BgL_funz00_148, (int) (0L)))
							{	/* Eval/evmeaning.scm 988 */
								return eval_funcall_0(BgL_funz00_148);
							}
						else
							{	/* Eval/evmeaning.scm 988 */
								return
									BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_2175,
									BgL_namez00_2174, (int) (0L),
									PROCEDURE_ARITY(BgL_funz00_148));
					}}
				else
					{	/* Eval/evmeaning.scm 986 */
						return
							BGl_everrorz00zz__everrorz00(BgL_locz00_2175,
							BGl_string2357z00zz__evmeaningz00, BgL_namez00_2174,
							BGl_string2363z00zz__evmeaningz00);
					}
			}
		}

	}



/* evmeaning-funcall-1 */
	obj_t BGl_evmeaningzd2funcallzd21z00zz__evmeaningz00(obj_t BgL_codez00_149,
		obj_t BgL_stackz00_150, obj_t BgL_denvz00_151, obj_t BgL_funz00_152)
	{
		{	/* Eval/evmeaning.scm 996 */
			{	/* Eval/evmeaning.scm 997 */
				obj_t BgL_namez00_2178;

				BgL_namez00_2178 = VECTOR_REF(BgL_codez00_149, 2L);
				{	/* Eval/evmeaning.scm 997 */
					obj_t BgL_locz00_2179;

					BgL_locz00_2179 = VECTOR_REF(BgL_codez00_149, 1L);
					{	/* Eval/evmeaning.scm 998 */
						obj_t BgL_a0z00_2180;

						BgL_a0z00_2180 =
							BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF(BgL_codez00_149, 4L),
							BgL_stackz00_150, BgL_denvz00_151);
						{	/* Eval/evmeaning.scm 999 */

							BGL_ENV_SET_TRACE_LOCATION(BgL_denvz00_151, BgL_locz00_2179);
							if (PROCEDUREP(BgL_funz00_152))
								{	/* Eval/evmeaning.scm 1002 */
									if (PROCEDURE_CORRECT_ARITYP(BgL_funz00_152, (int) (1L)))
										{	/* Eval/evmeaning.scm 1004 */
											return eval_funcall_1(BgL_funz00_152, BgL_a0z00_2180);
										}
									else
										{	/* Eval/evmeaning.scm 1004 */
											return
												BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_2179,
												BgL_namez00_2178, (int) (1L),
												PROCEDURE_ARITY(BgL_funz00_152));
								}}
							else
								{	/* Eval/evmeaning.scm 1002 */
									return
										BGl_everrorz00zz__everrorz00(BgL_locz00_2179,
										BGl_string2357z00zz__evmeaningz00,
										BGl_string2363z00zz__evmeaningz00, BgL_namez00_2178);
								}
						}
					}
				}
			}
		}

	}



/* evmeaning-funcall-2 */
	obj_t BGl_evmeaningzd2funcallzd22z00zz__evmeaningz00(obj_t BgL_codez00_153,
		obj_t BgL_stackz00_154, obj_t BgL_denvz00_155, obj_t BgL_funz00_156)
	{
		{	/* Eval/evmeaning.scm 1012 */
			{	/* Eval/evmeaning.scm 1013 */
				obj_t BgL_namez00_2184;

				BgL_namez00_2184 = VECTOR_REF(BgL_codez00_153, 2L);
				{	/* Eval/evmeaning.scm 1013 */
					obj_t BgL_locz00_2185;

					BgL_locz00_2185 = VECTOR_REF(BgL_codez00_153, 1L);
					{	/* Eval/evmeaning.scm 1014 */
						obj_t BgL_a0z00_2186;

						BgL_a0z00_2186 =
							BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF(BgL_codez00_153, 4L),
							BgL_stackz00_154, BgL_denvz00_155);
						{	/* Eval/evmeaning.scm 1015 */
							obj_t BgL_a1z00_2187;

							BgL_a1z00_2187 =
								BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF(BgL_codez00_153,
									5L), BgL_stackz00_154, BgL_denvz00_155);
							{	/* Eval/evmeaning.scm 1016 */

								BGL_ENV_SET_TRACE_LOCATION(BgL_denvz00_155, BgL_locz00_2185);
								if (PROCEDUREP(BgL_funz00_156))
									{	/* Eval/evmeaning.scm 1019 */
										if (PROCEDURE_CORRECT_ARITYP(BgL_funz00_156, (int) (2L)))
											{	/* Eval/evmeaning.scm 1021 */
												return
													eval_funcall_2(BgL_funz00_156, BgL_a0z00_2186,
													BgL_a1z00_2187);
											}
										else
											{	/* Eval/evmeaning.scm 1021 */
												return
													BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_2185,
													BgL_namez00_2184, (int) (2L),
													PROCEDURE_ARITY(BgL_funz00_156));
									}}
								else
									{	/* Eval/evmeaning.scm 1019 */
										return
											BGl_everrorz00zz__everrorz00(BgL_locz00_2185,
											BGl_string2357z00zz__evmeaningz00,
											BGl_string2363z00zz__evmeaningz00, BgL_namez00_2184);
									}
							}
						}
					}
				}
			}
		}

	}



/* evmeaning-funcall-3 */
	obj_t BGl_evmeaningzd2funcallzd23z00zz__evmeaningz00(obj_t BgL_codez00_157,
		obj_t BgL_stackz00_158, obj_t BgL_denvz00_159, obj_t BgL_funz00_160)
	{
		{	/* Eval/evmeaning.scm 1029 */
			{	/* Eval/evmeaning.scm 1030 */
				obj_t BgL_namez00_2192;

				BgL_namez00_2192 = VECTOR_REF(BgL_codez00_157, 2L);
				{	/* Eval/evmeaning.scm 1030 */
					obj_t BgL_locz00_2193;

					BgL_locz00_2193 = VECTOR_REF(BgL_codez00_157, 1L);
					{	/* Eval/evmeaning.scm 1031 */
						obj_t BgL_a0z00_2194;

						BgL_a0z00_2194 =
							BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF(BgL_codez00_157, 4L),
							BgL_stackz00_158, BgL_denvz00_159);
						{	/* Eval/evmeaning.scm 1032 */
							obj_t BgL_a1z00_2195;

							BgL_a1z00_2195 =
								BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF(BgL_codez00_157,
									5L), BgL_stackz00_158, BgL_denvz00_159);
							{	/* Eval/evmeaning.scm 1033 */
								obj_t BgL_a2z00_2196;

								BgL_a2z00_2196 =
									BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF(BgL_codez00_157,
										6L), BgL_stackz00_158, BgL_denvz00_159);
								{	/* Eval/evmeaning.scm 1034 */

									BGL_ENV_SET_TRACE_LOCATION(BgL_denvz00_159, BgL_locz00_2193);
									if (PROCEDUREP(BgL_funz00_160))
										{	/* Eval/evmeaning.scm 1037 */
											if (PROCEDURE_CORRECT_ARITYP(BgL_funz00_160, (int) (3L)))
												{	/* Eval/evmeaning.scm 1039 */
													return
														eval_funcall_3(BgL_funz00_160, BgL_a0z00_2194,
														BgL_a1z00_2195, BgL_a2z00_2196);
												}
											else
												{	/* Eval/evmeaning.scm 1039 */
													return
														BGl_evarityzd2errorzd2zz__everrorz00
														(BgL_locz00_2193, BgL_namez00_2192, (int) (3L),
														PROCEDURE_ARITY(BgL_funz00_160));
										}}
									else
										{	/* Eval/evmeaning.scm 1037 */
											return
												BGl_everrorz00zz__everrorz00(BgL_locz00_2193,
												BGl_string2357z00zz__evmeaningz00,
												BGl_string2363z00zz__evmeaningz00, BgL_namez00_2192);
										}
								}
							}
						}
					}
				}
			}
		}

	}



/* evmeaning-funcall-4 */
	obj_t BGl_evmeaningzd2funcallzd24z00zz__evmeaningz00(obj_t BgL_codez00_161,
		obj_t BgL_stackz00_162, obj_t BgL_denvz00_163, obj_t BgL_funz00_164)
	{
		{	/* Eval/evmeaning.scm 1047 */
			{	/* Eval/evmeaning.scm 1048 */
				obj_t BgL_namez00_2202;

				BgL_namez00_2202 = VECTOR_REF(BgL_codez00_161, 2L);
				{	/* Eval/evmeaning.scm 1048 */
					obj_t BgL_locz00_2203;

					BgL_locz00_2203 = VECTOR_REF(BgL_codez00_161, 1L);
					{	/* Eval/evmeaning.scm 1049 */
						obj_t BgL_a0z00_2204;

						BgL_a0z00_2204 =
							BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF(BgL_codez00_161, 4L),
							BgL_stackz00_162, BgL_denvz00_163);
						{	/* Eval/evmeaning.scm 1050 */
							obj_t BgL_a1z00_2205;

							BgL_a1z00_2205 =
								BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF(BgL_codez00_161,
									5L), BgL_stackz00_162, BgL_denvz00_163);
							{	/* Eval/evmeaning.scm 1051 */
								obj_t BgL_a2z00_2206;

								BgL_a2z00_2206 =
									BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF(BgL_codez00_161,
										6L), BgL_stackz00_162, BgL_denvz00_163);
								{	/* Eval/evmeaning.scm 1052 */
									obj_t BgL_a3z00_2207;

									BgL_a3z00_2207 =
										BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF(BgL_codez00_161,
											7L), BgL_stackz00_162, BgL_denvz00_163);
									{	/* Eval/evmeaning.scm 1053 */

										BGL_ENV_SET_TRACE_LOCATION(BgL_denvz00_163,
											BgL_locz00_2203);
										if (PROCEDUREP(BgL_funz00_164))
											{	/* Eval/evmeaning.scm 1056 */
												if (PROCEDURE_CORRECT_ARITYP(BgL_funz00_164,
														(int) (4L)))
													{	/* Eval/evmeaning.scm 1058 */
														return
															eval_funcall_4(BgL_funz00_164, BgL_a0z00_2204,
															BgL_a1z00_2205, BgL_a2z00_2206, BgL_a3z00_2207);
													}
												else
													{	/* Eval/evmeaning.scm 1058 */
														return
															BGl_evarityzd2errorzd2zz__everrorz00
															(BgL_locz00_2203, BgL_namez00_2202, (int) (4L),
															PROCEDURE_ARITY(BgL_funz00_164));
											}}
										else
											{	/* Eval/evmeaning.scm 1056 */
												return
													BGl_everrorz00zz__everrorz00(BgL_locz00_2203,
													BGl_string2357z00zz__evmeaningz00,
													BGl_string2363z00zz__evmeaningz00, BgL_namez00_2202);
											}
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* evmeaning-tailcall-0-stack */
	obj_t BGl_evmeaningzd2tailcallzd20zd2stackzd2zz__evmeaningz00(obj_t
		BgL_codez00_165, obj_t BgL_stackz00_166, obj_t BgL_denvz00_167,
		obj_t BgL_funz00_168)
	{
		{	/* Eval/evmeaning.scm 1066 */
			{	/* Eval/evmeaning.scm 1067 */
				obj_t BgL_envdz00_2214;

				{	/* Eval/evmeaning.scm 952 */
					obj_t BgL_arg1815z00_3575;

					{	/* Eval/evmeaning.scm 952 */
						obj_t BgL_tmpz00_6256;

						BgL_tmpz00_6256 = ((obj_t) BgL_funz00_168);
						BgL_arg1815z00_3575 = PROCEDURE_ATTR(BgL_tmpz00_6256);
					}
					BgL_envdz00_2214 =
						STRUCT_REF(((obj_t) BgL_arg1815z00_3575), (int) (2L));
				}
				{	/* Eval/evmeaning.scm 1067 */
					obj_t BgL_arityz00_2215;

					{	/* Eval/evmeaning.scm 958 */
						obj_t BgL_arg1816z00_3578;

						{	/* Eval/evmeaning.scm 958 */
							obj_t BgL_tmpz00_6262;

							BgL_tmpz00_6262 = ((obj_t) BgL_funz00_168);
							BgL_arg1816z00_3578 = PROCEDURE_ATTR(BgL_tmpz00_6262);
						}
						BgL_arityz00_2215 =
							STRUCT_REF(((obj_t) BgL_arg1816z00_3578), (int) (0L));
					}
					{	/* Eval/evmeaning.scm 1068 */
						obj_t BgL_locz00_2216;

						BgL_locz00_2216 = VECTOR_REF(BgL_codez00_165, 1L);
						{	/* Eval/evmeaning.scm 1069 */

							{	/* Eval/evmeaning.scm 1070 */
								bool_t BgL_test2546z00_6269;

								{	/* Eval/evmeaning.scm 1070 */
									obj_t BgL_tmpz00_6270;

									BgL_tmpz00_6270 = VECTOR_REF(BgL_codez00_165, 2L);
									BgL_test2546z00_6269 = SYMBOLP(BgL_tmpz00_6270);
								}
								if (BgL_test2546z00_6269)
									{	/* Eval/evmeaning.scm 1070 */
										{	/* Eval/evmeaning.scm 1071 */
											obj_t BgL_tmpz00_6273;

											BgL_tmpz00_6273 = VECTOR_REF(BgL_codez00_165, 2L);
											BGL_ENV_SET_TRACE_NAME(BgL_denvz00_167, BgL_tmpz00_6273);
										}
										BGL_ENV_SET_TRACE_LOCATION(BgL_denvz00_167,
											BgL_locz00_2216);
									}
								else
									{	/* Eval/evmeaning.scm 1070 */
										BFALSE;
									}
							}
							{

								if (INTEGERP(BgL_arityz00_2215))
									{	/* Eval/evmeaning.scm 1073 */
										switch ((long) CINT(BgL_arityz00_2215))
											{
											case 0L:

												return BgL_envdz00_2214;
												break;
											case (-1L):

												return MAKE_YOUNG_PAIR(BNIL, BgL_envdz00_2214);
												break;
											default:
											BgL_case_else1122z00_2221:
												return
													BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_2216,
													VECTOR_REF(BgL_codez00_165, 2L),
													(int) (0L), CINT(BgL_arityz00_2215));
									}}
								else
									{	/* Eval/evmeaning.scm 1073 */
										goto BgL_case_else1122z00_2221;
									}
							}
						}
					}
				}
			}
		}

	}



/* evmeaning-tailcall-1-stack */
	obj_t BGl_evmeaningzd2tailcallzd21zd2stackzd2zz__evmeaningz00(obj_t
		BgL_codez00_169, obj_t BgL_stackz00_170, obj_t BgL_denvz00_171,
		obj_t BgL_funz00_172)
	{
		{	/* Eval/evmeaning.scm 1084 */
			{	/* Eval/evmeaning.scm 1085 */
				obj_t BgL_a0z00_2224;

				BgL_a0z00_2224 =
					BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF(BgL_codez00_169, 4L),
					BgL_stackz00_170, BgL_denvz00_171);
				{	/* Eval/evmeaning.scm 1086 */
					obj_t BgL_envdz00_2225;

					{	/* Eval/evmeaning.scm 952 */
						obj_t BgL_arg1815z00_3586;

						{	/* Eval/evmeaning.scm 952 */
							obj_t BgL_tmpz00_6288;

							BgL_tmpz00_6288 = ((obj_t) BgL_funz00_172);
							BgL_arg1815z00_3586 = PROCEDURE_ATTR(BgL_tmpz00_6288);
						}
						BgL_envdz00_2225 =
							STRUCT_REF(((obj_t) BgL_arg1815z00_3586), (int) (2L));
					}
					{	/* Eval/evmeaning.scm 1086 */
						obj_t BgL_arityz00_2226;

						{	/* Eval/evmeaning.scm 958 */
							obj_t BgL_arg1816z00_3589;

							{	/* Eval/evmeaning.scm 958 */
								obj_t BgL_tmpz00_6294;

								BgL_tmpz00_6294 = ((obj_t) BgL_funz00_172);
								BgL_arg1816z00_3589 = PROCEDURE_ATTR(BgL_tmpz00_6294);
							}
							BgL_arityz00_2226 =
								STRUCT_REF(((obj_t) BgL_arg1816z00_3589), (int) (0L));
						}
						{	/* Eval/evmeaning.scm 1087 */
							obj_t BgL_locz00_2227;

							BgL_locz00_2227 = VECTOR_REF(BgL_codez00_169, 1L);
							{	/* Eval/evmeaning.scm 1088 */

								{	/* Eval/evmeaning.scm 1089 */
									bool_t BgL_test2548z00_6301;

									{	/* Eval/evmeaning.scm 1089 */
										obj_t BgL_tmpz00_6302;

										BgL_tmpz00_6302 = VECTOR_REF(BgL_codez00_169, 2L);
										BgL_test2548z00_6301 = SYMBOLP(BgL_tmpz00_6302);
									}
									if (BgL_test2548z00_6301)
										{	/* Eval/evmeaning.scm 1089 */
											{	/* Eval/evmeaning.scm 1090 */
												obj_t BgL_tmpz00_6305;

												BgL_tmpz00_6305 = VECTOR_REF(BgL_codez00_169, 2L);
												BGL_ENV_SET_TRACE_NAME(BgL_denvz00_171,
													BgL_tmpz00_6305);
											}
											BGL_ENV_SET_TRACE_LOCATION(BgL_denvz00_171,
												BgL_locz00_2227);
										}
									else
										{	/* Eval/evmeaning.scm 1089 */
											BFALSE;
										}
								}
								{

									if (INTEGERP(BgL_arityz00_2226))
										{	/* Eval/evmeaning.scm 1092 */
											switch ((long) CINT(BgL_arityz00_2226))
												{
												case 1L:

													return
														MAKE_YOUNG_PAIR(BgL_a0z00_2224, BgL_envdz00_2225);
													break;
												case (-1L):

													{	/* Eval/evmeaning.scm 1096 */
														obj_t BgL_arg1858z00_2234;

														{	/* Eval/evmeaning.scm 1096 */
															obj_t BgL_list1859z00_2235;

															BgL_list1859z00_2235 =
																MAKE_YOUNG_PAIR(BgL_a0z00_2224, BNIL);
															BgL_arg1858z00_2234 = BgL_list1859z00_2235;
														}
														return
															MAKE_YOUNG_PAIR(BgL_arg1858z00_2234,
															BgL_envdz00_2225);
													}
													break;
												case (-2L):

													{	/* Eval/evmeaning.scm 1098 */
														obj_t BgL_arg1860z00_2236;

														BgL_arg1860z00_2236 =
															MAKE_YOUNG_PAIR(BNIL, BgL_envdz00_2225);
														return
															MAKE_YOUNG_PAIR(BgL_a0z00_2224,
															BgL_arg1860z00_2236);
													}
													break;
												default:
												BgL_case_else1124z00_2232:
													return
														BGl_evarityzd2errorzd2zz__everrorz00
														(BgL_locz00_2227, VECTOR_REF(BgL_codez00_169, 2L),
														(int) (1L), CINT(BgL_arityz00_2226));
										}}
									else
										{	/* Eval/evmeaning.scm 1092 */
											goto BgL_case_else1124z00_2232;
										}
								}
							}
						}
					}
				}
			}
		}

	}



/* evmeaning-tailcall-2-stack */
	obj_t BGl_evmeaningzd2tailcallzd22zd2stackzd2zz__evmeaningz00(obj_t
		BgL_codez00_173, obj_t BgL_stackz00_174, obj_t BgL_denvz00_175,
		obj_t BgL_funz00_176)
	{
		{	/* Eval/evmeaning.scm 1105 */
			{	/* Eval/evmeaning.scm 1106 */
				obj_t BgL_a0z00_2239;

				BgL_a0z00_2239 =
					BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF(BgL_codez00_173, 4L),
					BgL_stackz00_174, BgL_denvz00_175);
				{	/* Eval/evmeaning.scm 1106 */
					obj_t BgL_a1z00_2240;

					BgL_a1z00_2240 =
						BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF(BgL_codez00_173, 5L),
						BgL_stackz00_174, BgL_denvz00_175);
					{	/* Eval/evmeaning.scm 1107 */

						{	/* Eval/evmeaning.scm 1108 */
							obj_t BgL_envdz00_2241;

							{	/* Eval/evmeaning.scm 952 */
								obj_t BgL_arg1815z00_3599;

								{	/* Eval/evmeaning.scm 952 */
									obj_t BgL_tmpz00_6326;

									BgL_tmpz00_6326 = ((obj_t) BgL_funz00_176);
									BgL_arg1815z00_3599 = PROCEDURE_ATTR(BgL_tmpz00_6326);
								}
								BgL_envdz00_2241 =
									STRUCT_REF(((obj_t) BgL_arg1815z00_3599), (int) (2L));
							}
							{	/* Eval/evmeaning.scm 1108 */
								obj_t BgL_arityz00_2242;

								{	/* Eval/evmeaning.scm 958 */
									obj_t BgL_arg1816z00_3602;

									{	/* Eval/evmeaning.scm 958 */
										obj_t BgL_tmpz00_6332;

										BgL_tmpz00_6332 = ((obj_t) BgL_funz00_176);
										BgL_arg1816z00_3602 = PROCEDURE_ATTR(BgL_tmpz00_6332);
									}
									BgL_arityz00_2242 =
										STRUCT_REF(((obj_t) BgL_arg1816z00_3602), (int) (0L));
								}
								{	/* Eval/evmeaning.scm 1109 */
									obj_t BgL_locz00_2243;

									BgL_locz00_2243 = VECTOR_REF(BgL_codez00_173, 1L);
									{	/* Eval/evmeaning.scm 1110 */

										{	/* Eval/evmeaning.scm 1111 */
											bool_t BgL_test2550z00_6339;

											{	/* Eval/evmeaning.scm 1111 */
												obj_t BgL_tmpz00_6340;

												BgL_tmpz00_6340 = VECTOR_REF(BgL_codez00_173, 2L);
												BgL_test2550z00_6339 = SYMBOLP(BgL_tmpz00_6340);
											}
											if (BgL_test2550z00_6339)
												{	/* Eval/evmeaning.scm 1111 */
													{	/* Eval/evmeaning.scm 1112 */
														obj_t BgL_tmpz00_6343;

														BgL_tmpz00_6343 = VECTOR_REF(BgL_codez00_173, 2L);
														BGL_ENV_SET_TRACE_NAME(BgL_denvz00_175,
															BgL_tmpz00_6343);
													}
													BGL_ENV_SET_TRACE_LOCATION(BgL_denvz00_175,
														BgL_locz00_2243);
												}
											else
												{	/* Eval/evmeaning.scm 1111 */
													BFALSE;
												}
										}
										{

											if (INTEGERP(BgL_arityz00_2242))
												{	/* Eval/evmeaning.scm 1114 */
													switch ((long) CINT(BgL_arityz00_2242))
														{
														case 2L:

															{	/* Eval/evmeaning.scm 1116 */
																obj_t BgL_arg1867z00_2250;

																BgL_arg1867z00_2250 =
																	MAKE_YOUNG_PAIR(BgL_a1z00_2240,
																	BgL_envdz00_2241);
																return MAKE_YOUNG_PAIR(BgL_a0z00_2239,
																	BgL_arg1867z00_2250);
															}
															break;
														case (-1L):

															{	/* Eval/evmeaning.scm 1118 */
																obj_t BgL_arg1868z00_2251;

																{	/* Eval/evmeaning.scm 1118 */
																	obj_t BgL_list1869z00_2252;

																	{	/* Eval/evmeaning.scm 1118 */
																		obj_t BgL_arg1870z00_2253;

																		BgL_arg1870z00_2253 =
																			MAKE_YOUNG_PAIR(BgL_a1z00_2240, BNIL);
																		BgL_list1869z00_2252 =
																			MAKE_YOUNG_PAIR(BgL_a0z00_2239,
																			BgL_arg1870z00_2253);
																	}
																	BgL_arg1868z00_2251 = BgL_list1869z00_2252;
																}
																return
																	MAKE_YOUNG_PAIR(BgL_arg1868z00_2251,
																	BgL_envdz00_2241);
															}
															break;
														case (-2L):

															{	/* Eval/evmeaning.scm 1120 */
																obj_t BgL_arg1873z00_2254;

																{	/* Eval/evmeaning.scm 1120 */
																	obj_t BgL_arg1876z00_2255;

																	{	/* Eval/evmeaning.scm 1120 */
																		obj_t BgL_list1877z00_2256;

																		BgL_list1877z00_2256 =
																			MAKE_YOUNG_PAIR(BgL_a1z00_2240, BNIL);
																		BgL_arg1876z00_2255 = BgL_list1877z00_2256;
																	}
																	BgL_arg1873z00_2254 =
																		MAKE_YOUNG_PAIR(BgL_arg1876z00_2255,
																		BgL_envdz00_2241);
																}
																return
																	MAKE_YOUNG_PAIR(BgL_a0z00_2239,
																	BgL_arg1873z00_2254);
															}
															break;
														case (-3L):

															{	/* Eval/evmeaning.scm 1122 */
																obj_t BgL_arg1878z00_2257;

																{	/* Eval/evmeaning.scm 1122 */
																	obj_t BgL_arg1879z00_2258;

																	BgL_arg1879z00_2258 =
																		MAKE_YOUNG_PAIR(BNIL, BgL_envdz00_2241);
																	BgL_arg1878z00_2257 =
																		MAKE_YOUNG_PAIR(BgL_a1z00_2240,
																		BgL_arg1879z00_2258);
																}
																return
																	MAKE_YOUNG_PAIR(BgL_a0z00_2239,
																	BgL_arg1878z00_2257);
															}
															break;
														default:
														BgL_case_else1126z00_2248:
															return
																BGl_evarityzd2errorzd2zz__everrorz00
																(BgL_locz00_2243, VECTOR_REF(BgL_codez00_173,
																	2L), (int) (2L), CINT(BgL_arityz00_2242));
												}}
											else
												{	/* Eval/evmeaning.scm 1114 */
													goto BgL_case_else1126z00_2248;
												}
										}
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* evmeaning-tailcall-3-stack */
	obj_t BGl_evmeaningzd2tailcallzd23zd2stackzd2zz__evmeaningz00(obj_t
		BgL_codez00_177, obj_t BgL_stackz00_178, obj_t BgL_denvz00_179,
		obj_t BgL_funz00_180)
	{
		{	/* Eval/evmeaning.scm 1129 */
			{	/* Eval/evmeaning.scm 1130 */
				obj_t BgL_a0z00_2262;

				BgL_a0z00_2262 =
					BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF(BgL_codez00_177, 4L),
					BgL_stackz00_178, BgL_denvz00_179);
				{	/* Eval/evmeaning.scm 1130 */
					obj_t BgL_a1z00_2263;

					BgL_a1z00_2263 =
						BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF(BgL_codez00_177, 5L),
						BgL_stackz00_178, BgL_denvz00_179);
					{	/* Eval/evmeaning.scm 1131 */
						obj_t BgL_a2z00_2264;

						BgL_a2z00_2264 =
							BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF(BgL_codez00_177, 6L),
							BgL_stackz00_178, BgL_denvz00_179);
						{	/* Eval/evmeaning.scm 1132 */

							{	/* Eval/evmeaning.scm 1133 */
								obj_t BgL_envdz00_2265;

								{	/* Eval/evmeaning.scm 952 */
									obj_t BgL_arg1815z00_3614;

									{	/* Eval/evmeaning.scm 952 */
										obj_t BgL_tmpz00_6372;

										BgL_tmpz00_6372 = ((obj_t) BgL_funz00_180);
										BgL_arg1815z00_3614 = PROCEDURE_ATTR(BgL_tmpz00_6372);
									}
									BgL_envdz00_2265 =
										STRUCT_REF(((obj_t) BgL_arg1815z00_3614), (int) (2L));
								}
								{	/* Eval/evmeaning.scm 1133 */
									obj_t BgL_arityz00_2266;

									{	/* Eval/evmeaning.scm 958 */
										obj_t BgL_arg1816z00_3617;

										{	/* Eval/evmeaning.scm 958 */
											obj_t BgL_tmpz00_6378;

											BgL_tmpz00_6378 = ((obj_t) BgL_funz00_180);
											BgL_arg1816z00_3617 = PROCEDURE_ATTR(BgL_tmpz00_6378);
										}
										BgL_arityz00_2266 =
											STRUCT_REF(((obj_t) BgL_arg1816z00_3617), (int) (0L));
									}
									{	/* Eval/evmeaning.scm 1134 */
										obj_t BgL_locz00_2267;

										BgL_locz00_2267 = VECTOR_REF(BgL_codez00_177, 1L);
										{	/* Eval/evmeaning.scm 1135 */

											{	/* Eval/evmeaning.scm 1136 */
												bool_t BgL_test2552z00_6385;

												{	/* Eval/evmeaning.scm 1136 */
													obj_t BgL_tmpz00_6386;

													BgL_tmpz00_6386 = VECTOR_REF(BgL_codez00_177, 2L);
													BgL_test2552z00_6385 = SYMBOLP(BgL_tmpz00_6386);
												}
												if (BgL_test2552z00_6385)
													{	/* Eval/evmeaning.scm 1136 */
														{	/* Eval/evmeaning.scm 1137 */
															obj_t BgL_tmpz00_6389;

															BgL_tmpz00_6389 = VECTOR_REF(BgL_codez00_177, 2L);
															BGL_ENV_SET_TRACE_NAME(BgL_denvz00_179,
																BgL_tmpz00_6389);
														}
														BGL_ENV_SET_TRACE_LOCATION(BgL_denvz00_179,
															BgL_locz00_2267);
													}
												else
													{	/* Eval/evmeaning.scm 1136 */
														BFALSE;
													}
											}
											{

												if (INTEGERP(BgL_arityz00_2266))
													{	/* Eval/evmeaning.scm 1139 */
														switch ((long) CINT(BgL_arityz00_2266))
															{
															case 3L:

																{	/* Eval/evmeaning.scm 1141 */
																	obj_t BgL_arg1888z00_2274;

																	{	/* Eval/evmeaning.scm 1141 */
																		obj_t BgL_arg1889z00_2275;

																		BgL_arg1889z00_2275 =
																			MAKE_YOUNG_PAIR(BgL_a2z00_2264,
																			BgL_envdz00_2265);
																		BgL_arg1888z00_2274 =
																			MAKE_YOUNG_PAIR(BgL_a1z00_2263,
																			BgL_arg1889z00_2275);
																	}
																	return
																		MAKE_YOUNG_PAIR(BgL_a0z00_2262,
																		BgL_arg1888z00_2274);
																}
																break;
															case (-1L):

																{	/* Eval/evmeaning.scm 1143 */
																	obj_t BgL_arg1890z00_2276;

																	{	/* Eval/evmeaning.scm 1143 */
																		obj_t BgL_list1891z00_2277;

																		{	/* Eval/evmeaning.scm 1143 */
																			obj_t BgL_arg1892z00_2278;

																			{	/* Eval/evmeaning.scm 1143 */
																				obj_t BgL_arg1893z00_2279;

																				BgL_arg1893z00_2279 =
																					MAKE_YOUNG_PAIR(BgL_a2z00_2264, BNIL);
																				BgL_arg1892z00_2278 =
																					MAKE_YOUNG_PAIR(BgL_a1z00_2263,
																					BgL_arg1893z00_2279);
																			}
																			BgL_list1891z00_2277 =
																				MAKE_YOUNG_PAIR(BgL_a0z00_2262,
																				BgL_arg1892z00_2278);
																		}
																		BgL_arg1890z00_2276 = BgL_list1891z00_2277;
																	}
																	return
																		MAKE_YOUNG_PAIR(BgL_arg1890z00_2276,
																		BgL_envdz00_2265);
																}
																break;
															case (-2L):

																{	/* Eval/evmeaning.scm 1145 */
																	obj_t BgL_arg1894z00_2280;

																	{	/* Eval/evmeaning.scm 1145 */
																		obj_t BgL_arg1896z00_2281;

																		{	/* Eval/evmeaning.scm 1145 */
																			obj_t BgL_list1897z00_2282;

																			{	/* Eval/evmeaning.scm 1145 */
																				obj_t BgL_arg1898z00_2283;

																				BgL_arg1898z00_2283 =
																					MAKE_YOUNG_PAIR(BgL_a2z00_2264, BNIL);
																				BgL_list1897z00_2282 =
																					MAKE_YOUNG_PAIR(BgL_a1z00_2263,
																					BgL_arg1898z00_2283);
																			}
																			BgL_arg1896z00_2281 =
																				BgL_list1897z00_2282;
																		}
																		BgL_arg1894z00_2280 =
																			MAKE_YOUNG_PAIR(BgL_arg1896z00_2281,
																			BgL_envdz00_2265);
																	}
																	return
																		MAKE_YOUNG_PAIR(BgL_a0z00_2262,
																		BgL_arg1894z00_2280);
																}
																break;
															case (-3L):

																{	/* Eval/evmeaning.scm 1147 */
																	obj_t BgL_arg1899z00_2284;

																	{	/* Eval/evmeaning.scm 1147 */
																		obj_t BgL_arg1901z00_2285;

																		{	/* Eval/evmeaning.scm 1147 */
																			obj_t BgL_arg1903z00_2286;

																			{	/* Eval/evmeaning.scm 1147 */
																				obj_t BgL_list1904z00_2287;

																				BgL_list1904z00_2287 =
																					MAKE_YOUNG_PAIR(BgL_a2z00_2264, BNIL);
																				BgL_arg1903z00_2286 =
																					BgL_list1904z00_2287;
																			}
																			BgL_arg1901z00_2285 =
																				MAKE_YOUNG_PAIR(BgL_arg1903z00_2286,
																				BgL_envdz00_2265);
																		}
																		BgL_arg1899z00_2284 =
																			MAKE_YOUNG_PAIR(BgL_a1z00_2263,
																			BgL_arg1901z00_2285);
																	}
																	return
																		MAKE_YOUNG_PAIR(BgL_a0z00_2262,
																		BgL_arg1899z00_2284);
																}
																break;
															case (-4L):

																{	/* Eval/evmeaning.scm 1149 */
																	obj_t BgL_arg1905z00_2288;

																	{	/* Eval/evmeaning.scm 1149 */
																		obj_t BgL_arg1906z00_2289;

																		{	/* Eval/evmeaning.scm 1149 */
																			obj_t BgL_arg1907z00_2290;

																			BgL_arg1907z00_2290 =
																				MAKE_YOUNG_PAIR(BNIL, BgL_envdz00_2265);
																			BgL_arg1906z00_2289 =
																				MAKE_YOUNG_PAIR(BgL_a2z00_2264,
																				BgL_arg1907z00_2290);
																		}
																		BgL_arg1905z00_2288 =
																			MAKE_YOUNG_PAIR(BgL_a1z00_2263,
																			BgL_arg1906z00_2289);
																	}
																	return
																		MAKE_YOUNG_PAIR(BgL_a0z00_2262,
																		BgL_arg1905z00_2288);
																}
																break;
															default:
															BgL_case_else1128z00_2272:
																return
																	BGl_evarityzd2errorzd2zz__everrorz00
																	(BgL_locz00_2267, VECTOR_REF(BgL_codez00_177,
																		2L), (int) (3L), CINT(BgL_arityz00_2266));
													}}
												else
													{	/* Eval/evmeaning.scm 1139 */
														goto BgL_case_else1128z00_2272;
													}
											}
										}
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* evmeaning-tailcall-4-stack */
	obj_t BGl_evmeaningzd2tailcallzd24zd2stackzd2zz__evmeaningz00(obj_t
		BgL_codez00_181, obj_t BgL_stackz00_182, obj_t BgL_denvz00_183,
		obj_t BgL_funz00_184)
	{
		{	/* Eval/evmeaning.scm 1156 */
			{	/* Eval/evmeaning.scm 1157 */
				obj_t BgL_a0z00_2295;

				BgL_a0z00_2295 =
					BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF(BgL_codez00_181, 4L),
					BgL_stackz00_182, BgL_denvz00_183);
				{	/* Eval/evmeaning.scm 1157 */
					obj_t BgL_a1z00_2296;

					BgL_a1z00_2296 =
						BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF(BgL_codez00_181, 5L),
						BgL_stackz00_182, BgL_denvz00_183);
					{	/* Eval/evmeaning.scm 1158 */
						obj_t BgL_a2z00_2297;

						BgL_a2z00_2297 =
							BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF(BgL_codez00_181, 6L),
							BgL_stackz00_182, BgL_denvz00_183);
						{	/* Eval/evmeaning.scm 1159 */
							obj_t BgL_a3z00_2298;

							BgL_a3z00_2298 =
								BGl_evmeaningz00zz__evmeaningz00(VECTOR_REF(BgL_codez00_181,
									7L), BgL_stackz00_182, BgL_denvz00_183);
							{	/* Eval/evmeaning.scm 1160 */

								{	/* Eval/evmeaning.scm 1161 */
									obj_t BgL_envdz00_2299;

									{	/* Eval/evmeaning.scm 952 */
										obj_t BgL_arg1815z00_3631;

										{	/* Eval/evmeaning.scm 952 */
											obj_t BgL_tmpz00_6428;

											BgL_tmpz00_6428 = ((obj_t) BgL_funz00_184);
											BgL_arg1815z00_3631 = PROCEDURE_ATTR(BgL_tmpz00_6428);
										}
										BgL_envdz00_2299 =
											STRUCT_REF(((obj_t) BgL_arg1815z00_3631), (int) (2L));
									}
									{	/* Eval/evmeaning.scm 1161 */
										obj_t BgL_arityz00_2300;

										{	/* Eval/evmeaning.scm 958 */
											obj_t BgL_arg1816z00_3634;

											{	/* Eval/evmeaning.scm 958 */
												obj_t BgL_tmpz00_6434;

												BgL_tmpz00_6434 = ((obj_t) BgL_funz00_184);
												BgL_arg1816z00_3634 = PROCEDURE_ATTR(BgL_tmpz00_6434);
											}
											BgL_arityz00_2300 =
												STRUCT_REF(((obj_t) BgL_arg1816z00_3634), (int) (0L));
										}
										{	/* Eval/evmeaning.scm 1162 */
											obj_t BgL_locz00_2301;

											BgL_locz00_2301 = VECTOR_REF(BgL_codez00_181, 1L);
											{	/* Eval/evmeaning.scm 1163 */

												{	/* Eval/evmeaning.scm 1164 */
													bool_t BgL_test2554z00_6441;

													{	/* Eval/evmeaning.scm 1164 */
														obj_t BgL_tmpz00_6442;

														BgL_tmpz00_6442 = VECTOR_REF(BgL_codez00_181, 2L);
														BgL_test2554z00_6441 = SYMBOLP(BgL_tmpz00_6442);
													}
													if (BgL_test2554z00_6441)
														{	/* Eval/evmeaning.scm 1164 */
															{	/* Eval/evmeaning.scm 1165 */
																obj_t BgL_tmpz00_6445;

																BgL_tmpz00_6445 =
																	VECTOR_REF(BgL_codez00_181, 2L);
																BGL_ENV_SET_TRACE_NAME(BgL_denvz00_183,
																	BgL_tmpz00_6445);
															}
															BGL_ENV_SET_TRACE_LOCATION(BgL_denvz00_183,
																BgL_locz00_2301);
														}
													else
														{	/* Eval/evmeaning.scm 1164 */
															BFALSE;
														}
												}
												{

													if (INTEGERP(BgL_arityz00_2300))
														{	/* Eval/evmeaning.scm 1167 */
															switch ((long) CINT(BgL_arityz00_2300))
																{
																case 4L:

																	{	/* Eval/evmeaning.scm 1169 */
																		obj_t BgL_arg1920z00_2308;

																		{	/* Eval/evmeaning.scm 1169 */
																			obj_t BgL_arg1921z00_2309;

																			{	/* Eval/evmeaning.scm 1169 */
																				obj_t BgL_arg1922z00_2310;

																				BgL_arg1922z00_2310 =
																					MAKE_YOUNG_PAIR(BgL_a3z00_2298,
																					BgL_envdz00_2299);
																				BgL_arg1921z00_2309 =
																					MAKE_YOUNG_PAIR(BgL_a2z00_2297,
																					BgL_arg1922z00_2310);
																			}
																			BgL_arg1920z00_2308 =
																				MAKE_YOUNG_PAIR(BgL_a1z00_2296,
																				BgL_arg1921z00_2309);
																		}
																		return
																			MAKE_YOUNG_PAIR(BgL_a0z00_2295,
																			BgL_arg1920z00_2308);
																	}
																	break;
																case (-1L):

																	{	/* Eval/evmeaning.scm 1171 */
																		obj_t BgL_arg1923z00_2311;

																		{	/* Eval/evmeaning.scm 1171 */
																			obj_t BgL_list1924z00_2312;

																			{	/* Eval/evmeaning.scm 1171 */
																				obj_t BgL_arg1925z00_2313;

																				{	/* Eval/evmeaning.scm 1171 */
																					obj_t BgL_arg1926z00_2314;

																					{	/* Eval/evmeaning.scm 1171 */
																						obj_t BgL_arg1927z00_2315;

																						BgL_arg1927z00_2315 =
																							MAKE_YOUNG_PAIR(BgL_a3z00_2298,
																							BNIL);
																						BgL_arg1926z00_2314 =
																							MAKE_YOUNG_PAIR(BgL_a2z00_2297,
																							BgL_arg1927z00_2315);
																					}
																					BgL_arg1925z00_2313 =
																						MAKE_YOUNG_PAIR(BgL_a1z00_2296,
																						BgL_arg1926z00_2314);
																				}
																				BgL_list1924z00_2312 =
																					MAKE_YOUNG_PAIR(BgL_a0z00_2295,
																					BgL_arg1925z00_2313);
																			}
																			BgL_arg1923z00_2311 =
																				BgL_list1924z00_2312;
																		}
																		return
																			MAKE_YOUNG_PAIR(BgL_arg1923z00_2311,
																			BgL_envdz00_2299);
																	}
																	break;
																case (-2L):

																	{	/* Eval/evmeaning.scm 1173 */
																		obj_t BgL_arg1928z00_2316;

																		{	/* Eval/evmeaning.scm 1173 */
																			obj_t BgL_arg1931z00_2317;

																			{	/* Eval/evmeaning.scm 1173 */
																				obj_t BgL_list1932z00_2318;

																				{	/* Eval/evmeaning.scm 1173 */
																					obj_t BgL_arg1933z00_2319;

																					{	/* Eval/evmeaning.scm 1173 */
																						obj_t BgL_arg1934z00_2320;

																						BgL_arg1934z00_2320 =
																							MAKE_YOUNG_PAIR(BgL_a3z00_2298,
																							BNIL);
																						BgL_arg1933z00_2319 =
																							MAKE_YOUNG_PAIR(BgL_a2z00_2297,
																							BgL_arg1934z00_2320);
																					}
																					BgL_list1932z00_2318 =
																						MAKE_YOUNG_PAIR(BgL_a1z00_2296,
																						BgL_arg1933z00_2319);
																				}
																				BgL_arg1931z00_2317 =
																					BgL_list1932z00_2318;
																			}
																			BgL_arg1928z00_2316 =
																				MAKE_YOUNG_PAIR(BgL_arg1931z00_2317,
																				BgL_envdz00_2299);
																		}
																		return
																			MAKE_YOUNG_PAIR(BgL_a0z00_2295,
																			BgL_arg1928z00_2316);
																	}
																	break;
																case (-3L):

																	{	/* Eval/evmeaning.scm 1175 */
																		obj_t BgL_arg1935z00_2321;

																		{	/* Eval/evmeaning.scm 1175 */
																			obj_t BgL_arg1936z00_2322;

																			{	/* Eval/evmeaning.scm 1175 */
																				obj_t BgL_arg1937z00_2323;

																				{	/* Eval/evmeaning.scm 1175 */
																					obj_t BgL_list1938z00_2324;

																					{	/* Eval/evmeaning.scm 1175 */
																						obj_t BgL_arg1939z00_2325;

																						BgL_arg1939z00_2325 =
																							MAKE_YOUNG_PAIR(BgL_a3z00_2298,
																							BNIL);
																						BgL_list1938z00_2324 =
																							MAKE_YOUNG_PAIR(BgL_a2z00_2297,
																							BgL_arg1939z00_2325);
																					}
																					BgL_arg1937z00_2323 =
																						BgL_list1938z00_2324;
																				}
																				BgL_arg1936z00_2322 =
																					MAKE_YOUNG_PAIR(BgL_arg1937z00_2323,
																					BgL_envdz00_2299);
																			}
																			BgL_arg1935z00_2321 =
																				MAKE_YOUNG_PAIR(BgL_a1z00_2296,
																				BgL_arg1936z00_2322);
																		}
																		return
																			MAKE_YOUNG_PAIR(BgL_a0z00_2295,
																			BgL_arg1935z00_2321);
																	}
																	break;
																case (-4L):

																	{	/* Eval/evmeaning.scm 1177 */
																		obj_t BgL_arg1940z00_2326;

																		{	/* Eval/evmeaning.scm 1177 */
																			obj_t BgL_arg1941z00_2327;

																			{	/* Eval/evmeaning.scm 1177 */
																				obj_t BgL_arg1942z00_2328;

																				{	/* Eval/evmeaning.scm 1177 */
																					obj_t BgL_arg1943z00_2329;

																					{	/* Eval/evmeaning.scm 1177 */
																						obj_t BgL_list1944z00_2330;

																						BgL_list1944z00_2330 =
																							MAKE_YOUNG_PAIR(BgL_a3z00_2298,
																							BNIL);
																						BgL_arg1943z00_2329 =
																							BgL_list1944z00_2330;
																					}
																					BgL_arg1942z00_2328 =
																						MAKE_YOUNG_PAIR(BgL_arg1943z00_2329,
																						BgL_envdz00_2299);
																				}
																				BgL_arg1941z00_2327 =
																					MAKE_YOUNG_PAIR(BgL_a2z00_2297,
																					BgL_arg1942z00_2328);
																			}
																			BgL_arg1940z00_2326 =
																				MAKE_YOUNG_PAIR(BgL_a1z00_2296,
																				BgL_arg1941z00_2327);
																		}
																		return
																			MAKE_YOUNG_PAIR(BgL_a0z00_2295,
																			BgL_arg1940z00_2326);
																	}
																	break;
																case (-5L):

																	{	/* Eval/evmeaning.scm 1179 */
																		obj_t BgL_arg1945z00_2331;

																		{	/* Eval/evmeaning.scm 1179 */
																			obj_t BgL_arg1946z00_2332;

																			{	/* Eval/evmeaning.scm 1179 */
																				obj_t BgL_arg1947z00_2333;

																				{	/* Eval/evmeaning.scm 1179 */
																					obj_t BgL_arg1948z00_2334;

																					BgL_arg1948z00_2334 =
																						MAKE_YOUNG_PAIR(BNIL,
																						BgL_envdz00_2299);
																					BgL_arg1947z00_2333 =
																						MAKE_YOUNG_PAIR(BgL_a3z00_2298,
																						BgL_arg1948z00_2334);
																				}
																				BgL_arg1946z00_2332 =
																					MAKE_YOUNG_PAIR(BgL_a2z00_2297,
																					BgL_arg1947z00_2333);
																			}
																			BgL_arg1945z00_2331 =
																				MAKE_YOUNG_PAIR(BgL_a1z00_2296,
																				BgL_arg1946z00_2332);
																		}
																		return
																			MAKE_YOUNG_PAIR(BgL_a0z00_2295,
																			BgL_arg1945z00_2331);
																	}
																	break;
																default:
																BgL_case_else1130z00_2306:
																	return
																		BGl_evarityzd2errorzd2zz__everrorz00
																		(BgL_locz00_2301,
																		VECTOR_REF(BgL_codez00_181, 2L), (int) (4L),
																		CINT(BgL_arityz00_2300));
														}}
													else
														{	/* Eval/evmeaning.scm 1167 */
															goto BgL_case_else1130z00_2306;
														}
												}
											}
										}
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* evmeaning-make-traced-4procedure */
	obj_t BGl_evmeaningzd2makezd2tracedzd24procedurezd2zz__evmeaningz00(obj_t
		BgL_codez00_190, obj_t BgL_stackz00_191, obj_t BgL_denvz00_192)
	{
		{	/* Eval/evmeaning.scm 1198 */
			{	/* Eval/evmeaning.scm 1199 */
				obj_t BgL_bodyz00_2344;
				obj_t BgL_wherez00_2345;
				obj_t BgL_formalsz00_2346;
				obj_t BgL_locz00_2347;

				BgL_bodyz00_2344 = VECTOR_REF(BgL_codez00_190, 2L);
				BgL_wherez00_2345 = VECTOR_REF(BgL_codez00_190, 3L);
				BgL_formalsz00_2346 = VECTOR_REF(BgL_codez00_190, 4L);
				BgL_locz00_2347 = VECTOR_REF(BgL_codez00_190, 1L);
				if (BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_formalsz00_2346))
					{	/* Eval/evmeaning.scm 1204 */
						long BgL_lfz00_2349;

						BgL_lfz00_2349 = bgl_list_length(BgL_formalsz00_2346);
						{	/* Eval/evmeaning.scm 1207 */
							obj_t BgL_zc3z04anonymousza31963ze3z87_4131;

							BgL_zc3z04anonymousza31963ze3z87_4131 =
								MAKE_VA_PROCEDURE
								(BGl_z62zc3z04anonymousza31963ze3ze5zz__evmeaningz00,
								(int) ((-1L)), (int) (6L));
							PROCEDURE_SET(BgL_zc3z04anonymousza31963ze3z87_4131, (int) (0L),
								BgL_wherez00_2345);
							PROCEDURE_SET(BgL_zc3z04anonymousza31963ze3z87_4131, (int) (1L),
								BgL_locz00_2347);
							PROCEDURE_SET(BgL_zc3z04anonymousza31963ze3z87_4131, (int) (2L),
								BgL_codez00_190);
							PROCEDURE_SET(BgL_zc3z04anonymousza31963ze3z87_4131, (int) (3L),
								BINT(BgL_lfz00_2349));
							PROCEDURE_SET(BgL_zc3z04anonymousza31963ze3z87_4131, (int) (4L),
								BgL_stackz00_191);
							PROCEDURE_SET(BgL_zc3z04anonymousza31963ze3z87_4131, (int) (5L),
								BgL_bodyz00_2344);
							{	/* Eval/evmeaning.scm 939 */
								obj_t BgL_arg1813z00_3655;

								{	/* Eval/evmeaning.scm 927 */
									obj_t BgL_newz00_3656;

									BgL_newz00_3656 =
										create_struct(BGl_symbol2360z00zz__evmeaningz00,
										(int) (3L));
									{	/* Eval/evmeaning.scm 927 */
										int BgL_tmpz00_6511;

										BgL_tmpz00_6511 = (int) (2L);
										STRUCT_SET(BgL_newz00_3656, BgL_tmpz00_6511,
											BgL_stackz00_191);
									}
									{	/* Eval/evmeaning.scm 927 */
										int BgL_tmpz00_6514;

										BgL_tmpz00_6514 = (int) (1L);
										STRUCT_SET(BgL_newz00_3656, BgL_tmpz00_6514,
											BgL_bodyz00_2344);
									}
									{	/* Eval/evmeaning.scm 927 */
										obj_t BgL_auxz00_6519;
										int BgL_tmpz00_6517;

										BgL_auxz00_6519 = BINT(BgL_lfz00_2349);
										BgL_tmpz00_6517 = (int) (0L);
										STRUCT_SET(BgL_newz00_3656, BgL_tmpz00_6517,
											BgL_auxz00_6519);
									}
									BgL_arg1813z00_3655 = BgL_newz00_3656;
								}
								PROCEDURE_ATTR_SET(BgL_zc3z04anonymousza31963ze3z87_4131,
									BgL_arg1813z00_3655);
								BgL_arg1813z00_3655;
							}
							return BgL_zc3z04anonymousza31963ze3z87_4131;
						}
					}
				else
					{	/* Eval/evmeaning.scm 1219 */
						long BgL_lfz00_2359;

						{
							obj_t BgL_formalsz00_2370;
							long BgL_numz00_2371;

							BgL_formalsz00_2370 = BgL_formalsz00_2346;
							BgL_numz00_2371 = (-1L);
						BgL_zc3z04anonymousza31966ze3z87_2372:
							if (PAIRP(BgL_formalsz00_2370))
								{
									long BgL_numz00_6527;
									obj_t BgL_formalsz00_6525;

									BgL_formalsz00_6525 = CDR(BgL_formalsz00_2370);
									BgL_numz00_6527 = (BgL_numz00_2371 - 1L);
									BgL_numz00_2371 = BgL_numz00_6527;
									BgL_formalsz00_2370 = BgL_formalsz00_6525;
									goto BgL_zc3z04anonymousza31966ze3z87_2372;
								}
							else
								{	/* Eval/evmeaning.scm 1221 */
									BgL_lfz00_2359 = BgL_numz00_2371;
								}
						}
						{	/* Eval/evmeaning.scm 1226 */
							obj_t BgL_zc3z04anonymousza31965ze3z87_4132;

							BgL_zc3z04anonymousza31965ze3z87_4132 =
								MAKE_VA_PROCEDURE
								(BGl_z62zc3z04anonymousza31965ze3ze5zz__evmeaningz00,
								(int) ((-1L)), (int) (6L));
							PROCEDURE_SET(BgL_zc3z04anonymousza31965ze3z87_4132, (int) (0L),
								BgL_wherez00_2345);
							PROCEDURE_SET(BgL_zc3z04anonymousza31965ze3z87_4132, (int) (1L),
								BgL_locz00_2347);
							PROCEDURE_SET(BgL_zc3z04anonymousza31965ze3z87_4132, (int) (2L),
								BgL_codez00_190);
							PROCEDURE_SET(BgL_zc3z04anonymousza31965ze3z87_4132, (int) (3L),
								BINT(BgL_lfz00_2359));
							PROCEDURE_SET(BgL_zc3z04anonymousza31965ze3z87_4132, (int) (4L),
								BgL_stackz00_191);
							PROCEDURE_SET(BgL_zc3z04anonymousza31965ze3z87_4132, (int) (5L),
								BgL_bodyz00_2344);
							{	/* Eval/evmeaning.scm 939 */
								obj_t BgL_arg1813z00_3662;

								{	/* Eval/evmeaning.scm 927 */
									obj_t BgL_newz00_3663;

									BgL_newz00_3663 =
										create_struct(BGl_symbol2360z00zz__evmeaningz00,
										(int) (3L));
									{	/* Eval/evmeaning.scm 927 */
										int BgL_tmpz00_6547;

										BgL_tmpz00_6547 = (int) (2L);
										STRUCT_SET(BgL_newz00_3663, BgL_tmpz00_6547,
											BgL_stackz00_191);
									}
									{	/* Eval/evmeaning.scm 927 */
										int BgL_tmpz00_6550;

										BgL_tmpz00_6550 = (int) (1L);
										STRUCT_SET(BgL_newz00_3663, BgL_tmpz00_6550,
											BgL_bodyz00_2344);
									}
									{	/* Eval/evmeaning.scm 927 */
										obj_t BgL_auxz00_6555;
										int BgL_tmpz00_6553;

										BgL_auxz00_6555 = BINT(BgL_lfz00_2359);
										BgL_tmpz00_6553 = (int) (0L);
										STRUCT_SET(BgL_newz00_3663, BgL_tmpz00_6553,
											BgL_auxz00_6555);
									}
									BgL_arg1813z00_3662 = BgL_newz00_3663;
								}
								PROCEDURE_ATTR_SET(BgL_zc3z04anonymousza31965ze3z87_4132,
									BgL_arg1813z00_3662);
								BgL_arg1813z00_3662;
							}
							return BgL_zc3z04anonymousza31965ze3z87_4132;
						}
					}
			}
		}

	}



/* &<@anonymous:1963> */
	obj_t BGl_z62zc3z04anonymousza31963ze3ze5zz__evmeaningz00(obj_t
		BgL_envz00_4133, obj_t BgL_xz00_4140)
	{
		{	/* Eval/evmeaning.scm 1206 */
			{	/* Eval/evmeaning.scm 1207 */
				obj_t BgL_wherez00_4134;
				obj_t BgL_locz00_4135;
				obj_t BgL_codez00_4136;
				obj_t BgL_lfz00_4137;
				obj_t BgL_stackz00_4138;
				obj_t BgL_bodyz00_4139;

				BgL_wherez00_4134 = PROCEDURE_REF(BgL_envz00_4133, (int) (0L));
				BgL_locz00_4135 = PROCEDURE_REF(BgL_envz00_4133, (int) (1L));
				BgL_codez00_4136 = ((obj_t) PROCEDURE_REF(BgL_envz00_4133, (int) (2L)));
				BgL_lfz00_4137 = PROCEDURE_REF(BgL_envz00_4133, (int) (3L));
				BgL_stackz00_4138 =
					((obj_t) PROCEDURE_REF(BgL_envz00_4133, (int) (4L)));
				BgL_bodyz00_4139 = PROCEDURE_REF(BgL_envz00_4133, (int) (5L));
				{	/* Eval/evmeaning.scm 1207 */
					obj_t BgL_z12denvz12_4257;

					BgL_z12denvz12_4257 = BGL_CURRENT_DYNAMIC_ENV();
					{	/* Eval/evmeaning.scm 1210 */

						BGL_ENV_PUSH_TRACE(BgL_z12denvz12_4257, BgL_wherez00_4134,
							BgL_locz00_4135);
						{	/* Eval/evmeaning.scm 1212 */
							obj_t BgL_e2z00_4258;

							BgL_e2z00_4258 =
								BGl_evmeaningzd2pushzd2fxargsz00zz__evmeaningz00
								(BgL_wherez00_4134, BgL_codez00_4136, BgL_xz00_4140,
								BgL_lfz00_4137, BgL_stackz00_4138);
							{	/* Eval/evmeaning.scm 1213 */
								obj_t BgL_resz00_4259;

								BgL_resz00_4259 =
									BGl_evmeaningz00zz__evmeaningz00(BgL_bodyz00_4139,
									BgL_e2z00_4258, BgL_z12denvz12_4257);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_4257);
								return BgL_resz00_4259;
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:1965> */
	obj_t BGl_z62zc3z04anonymousza31965ze3ze5zz__evmeaningz00(obj_t
		BgL_envz00_4141, obj_t BgL_xz00_4148)
	{
		{	/* Eval/evmeaning.scm 1225 */
			{	/* Eval/evmeaning.scm 1226 */
				obj_t BgL_wherez00_4142;
				obj_t BgL_locz00_4143;
				obj_t BgL_codez00_4144;
				obj_t BgL_lfz00_4145;
				obj_t BgL_stackz00_4146;
				obj_t BgL_bodyz00_4147;

				BgL_wherez00_4142 = PROCEDURE_REF(BgL_envz00_4141, (int) (0L));
				BgL_locz00_4143 = PROCEDURE_REF(BgL_envz00_4141, (int) (1L));
				BgL_codez00_4144 = ((obj_t) PROCEDURE_REF(BgL_envz00_4141, (int) (2L)));
				BgL_lfz00_4145 = PROCEDURE_REF(BgL_envz00_4141, (int) (3L));
				BgL_stackz00_4146 =
					((obj_t) PROCEDURE_REF(BgL_envz00_4141, (int) (4L)));
				BgL_bodyz00_4147 = PROCEDURE_REF(BgL_envz00_4141, (int) (5L));
				{	/* Eval/evmeaning.scm 1226 */
					obj_t BgL_z12denvz12_4260;

					BgL_z12denvz12_4260 = BGL_CURRENT_DYNAMIC_ENV();
					{	/* Eval/evmeaning.scm 1229 */

						BGL_ENV_PUSH_TRACE(BgL_z12denvz12_4260, BgL_wherez00_4142,
							BgL_locz00_4143);
						{	/* Eval/evmeaning.scm 1231 */
							obj_t BgL_e2z00_4261;

							BgL_e2z00_4261 =
								BGl_evmeaningzd2pushzd2vaargsz00zz__evmeaningz00
								(BgL_wherez00_4142, BgL_codez00_4144, BgL_xz00_4148,
								BgL_lfz00_4145, BgL_stackz00_4146);
							{	/* Eval/evmeaning.scm 1232 */
								obj_t BgL_resz00_4262;

								BgL_resz00_4262 =
									BGl_evmeaningz00zz__evmeaningz00(BgL_bodyz00_4147,
									BgL_e2z00_4261, BgL_z12denvz12_4260);
								BGL_ENV_POP_TRACE(BgL_z12denvz12_4260);
								return BgL_resz00_4262;
							}
						}
					}
				}
			}
		}

	}



/* evmeaning-make-4procedure */
	obj_t BGl_evmeaningzd2makezd24procedurez00zz__evmeaningz00(obj_t
		BgL_codez00_193, obj_t BgL_stackz00_194, obj_t BgL_denvz00_195)
	{
		{	/* Eval/evmeaning.scm 1242 */
			{	/* Eval/evmeaning.scm 1243 */
				obj_t BgL_bodyz00_2377;
				obj_t BgL_formalsz00_2378;

				BgL_bodyz00_2377 = VECTOR_REF(BgL_codez00_193, 2L);
				BgL_formalsz00_2378 = VECTOR_REF(BgL_codez00_193, 3L);
				if (BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_formalsz00_2378))
					{	/* Eval/evmeaning.scm 1246 */
						long BgL_lfz00_2380;

						BgL_lfz00_2380 = bgl_list_length(BgL_formalsz00_2378);
						{	/* Eval/evmeaning.scm 1249 */
							obj_t BgL_zc3z04anonymousza31972ze3z87_4149;

							BgL_zc3z04anonymousza31972ze3z87_4149 =
								MAKE_VA_PROCEDURE
								(BGl_z62zc3z04anonymousza31972ze3ze5zz__evmeaningz00,
								(int) ((-1L)), (int) (5L));
							PROCEDURE_SET(BgL_zc3z04anonymousza31972ze3z87_4149, (int) (0L),
								BgL_codez00_193);
							PROCEDURE_SET(BgL_zc3z04anonymousza31972ze3z87_4149, (int) (1L),
								BINT(BgL_lfz00_2380));
							PROCEDURE_SET(BgL_zc3z04anonymousza31972ze3z87_4149, (int) (2L),
								BgL_stackz00_194);
							PROCEDURE_SET(BgL_zc3z04anonymousza31972ze3z87_4149, (int) (3L),
								BgL_bodyz00_2377);
							PROCEDURE_SET(BgL_zc3z04anonymousza31972ze3z87_4149, (int) (4L),
								BgL_denvz00_195);
							{	/* Eval/evmeaning.scm 939 */
								obj_t BgL_arg1813z00_3669;

								{	/* Eval/evmeaning.scm 927 */
									obj_t BgL_newz00_3670;

									BgL_newz00_3670 =
										create_struct(BGl_symbol2360z00zz__evmeaningz00,
										(int) (3L));
									{	/* Eval/evmeaning.scm 927 */
										int BgL_tmpz00_6618;

										BgL_tmpz00_6618 = (int) (2L);
										STRUCT_SET(BgL_newz00_3670, BgL_tmpz00_6618,
											BgL_stackz00_194);
									}
									{	/* Eval/evmeaning.scm 927 */
										int BgL_tmpz00_6621;

										BgL_tmpz00_6621 = (int) (1L);
										STRUCT_SET(BgL_newz00_3670, BgL_tmpz00_6621,
											BgL_bodyz00_2377);
									}
									{	/* Eval/evmeaning.scm 927 */
										obj_t BgL_auxz00_6626;
										int BgL_tmpz00_6624;

										BgL_auxz00_6626 = BINT(BgL_lfz00_2380);
										BgL_tmpz00_6624 = (int) (0L);
										STRUCT_SET(BgL_newz00_3670, BgL_tmpz00_6624,
											BgL_auxz00_6626);
									}
									BgL_arg1813z00_3669 = BgL_newz00_3670;
								}
								PROCEDURE_ATTR_SET(BgL_zc3z04anonymousza31972ze3z87_4149,
									BgL_arg1813z00_3669);
								BgL_arg1813z00_3669;
							}
							return BgL_zc3z04anonymousza31972ze3z87_4149;
						}
					}
				else
					{	/* Eval/evmeaning.scm 1256 */
						long BgL_lfz00_2388;

						{
							obj_t BgL_formalsz00_2397;
							long BgL_numz00_2398;

							BgL_formalsz00_2397 = BgL_formalsz00_2378;
							BgL_numz00_2398 = (-1L);
						BgL_zc3z04anonymousza31977ze3z87_2399:
							if (PAIRP(BgL_formalsz00_2397))
								{
									long BgL_numz00_6634;
									obj_t BgL_formalsz00_6632;

									BgL_formalsz00_6632 = CDR(BgL_formalsz00_2397);
									BgL_numz00_6634 = (BgL_numz00_2398 - 1L);
									BgL_numz00_2398 = BgL_numz00_6634;
									BgL_formalsz00_2397 = BgL_formalsz00_6632;
									goto BgL_zc3z04anonymousza31977ze3z87_2399;
								}
							else
								{	/* Eval/evmeaning.scm 1258 */
									BgL_lfz00_2388 = BgL_numz00_2398;
								}
						}
						{	/* Eval/evmeaning.scm 1263 */
							obj_t BgL_zc3z04anonymousza31976ze3z87_4150;

							BgL_zc3z04anonymousza31976ze3z87_4150 =
								MAKE_VA_PROCEDURE
								(BGl_z62zc3z04anonymousza31976ze3ze5zz__evmeaningz00,
								(int) ((-1L)), (int) (5L));
							PROCEDURE_SET(BgL_zc3z04anonymousza31976ze3z87_4150, (int) (0L),
								BgL_codez00_193);
							PROCEDURE_SET(BgL_zc3z04anonymousza31976ze3z87_4150, (int) (1L),
								BINT(BgL_lfz00_2388));
							PROCEDURE_SET(BgL_zc3z04anonymousza31976ze3z87_4150, (int) (2L),
								BgL_stackz00_194);
							PROCEDURE_SET(BgL_zc3z04anonymousza31976ze3z87_4150, (int) (3L),
								BgL_bodyz00_2377);
							PROCEDURE_SET(BgL_zc3z04anonymousza31976ze3z87_4150, (int) (4L),
								BgL_denvz00_195);
							{	/* Eval/evmeaning.scm 939 */
								obj_t BgL_arg1813z00_3676;

								{	/* Eval/evmeaning.scm 927 */
									obj_t BgL_newz00_3677;

									BgL_newz00_3677 =
										create_struct(BGl_symbol2360z00zz__evmeaningz00,
										(int) (3L));
									{	/* Eval/evmeaning.scm 927 */
										int BgL_tmpz00_6652;

										BgL_tmpz00_6652 = (int) (2L);
										STRUCT_SET(BgL_newz00_3677, BgL_tmpz00_6652,
											BgL_stackz00_194);
									}
									{	/* Eval/evmeaning.scm 927 */
										int BgL_tmpz00_6655;

										BgL_tmpz00_6655 = (int) (1L);
										STRUCT_SET(BgL_newz00_3677, BgL_tmpz00_6655,
											BgL_bodyz00_2377);
									}
									{	/* Eval/evmeaning.scm 927 */
										obj_t BgL_auxz00_6660;
										int BgL_tmpz00_6658;

										BgL_auxz00_6660 = BINT(BgL_lfz00_2388);
										BgL_tmpz00_6658 = (int) (0L);
										STRUCT_SET(BgL_newz00_3677, BgL_tmpz00_6658,
											BgL_auxz00_6660);
									}
									BgL_arg1813z00_3676 = BgL_newz00_3677;
								}
								PROCEDURE_ATTR_SET(BgL_zc3z04anonymousza31976ze3z87_4150,
									BgL_arg1813z00_3676);
								BgL_arg1813z00_3676;
							}
							return BgL_zc3z04anonymousza31976ze3z87_4150;
						}
					}
			}
		}

	}



/* &<@anonymous:1972> */
	obj_t BGl_z62zc3z04anonymousza31972ze3ze5zz__evmeaningz00(obj_t
		BgL_envz00_4151, obj_t BgL_xz00_4157)
	{
		{	/* Eval/evmeaning.scm 1248 */
			{	/* Eval/evmeaning.scm 1251 */
				obj_t BgL_codez00_4152;
				obj_t BgL_lfz00_4153;
				obj_t BgL_stackz00_4154;
				obj_t BgL_bodyz00_4155;
				obj_t BgL_denvz00_4156;

				BgL_codez00_4152 = ((obj_t) PROCEDURE_REF(BgL_envz00_4151, (int) (0L)));
				BgL_lfz00_4153 = PROCEDURE_REF(BgL_envz00_4151, (int) (1L));
				BgL_stackz00_4154 =
					((obj_t) PROCEDURE_REF(BgL_envz00_4151, (int) (2L)));
				BgL_bodyz00_4155 = PROCEDURE_REF(BgL_envz00_4151, (int) (3L));
				BgL_denvz00_4156 = ((obj_t) PROCEDURE_REF(BgL_envz00_4151, (int) (4L)));
				return
					BGl_evmeaningz00zz__evmeaningz00(BgL_bodyz00_4155,
					BGl_evmeaningzd2pushzd2fxargsz00zz__evmeaningz00(BgL_xz00_4157,
						BgL_codez00_4152, BgL_xz00_4157, BgL_lfz00_4153, BgL_stackz00_4154),
					BgL_denvz00_4156);
			}
		}

	}



/* &<@anonymous:1976> */
	obj_t BGl_z62zc3z04anonymousza31976ze3ze5zz__evmeaningz00(obj_t
		BgL_envz00_4158, obj_t BgL_xz00_4164)
	{
		{	/* Eval/evmeaning.scm 1262 */
			{	/* Eval/evmeaning.scm 1265 */
				obj_t BgL_codez00_4159;
				obj_t BgL_lfz00_4160;
				obj_t BgL_stackz00_4161;
				obj_t BgL_bodyz00_4162;
				obj_t BgL_denvz00_4163;

				BgL_codez00_4159 = ((obj_t) PROCEDURE_REF(BgL_envz00_4158, (int) (0L)));
				BgL_lfz00_4160 = PROCEDURE_REF(BgL_envz00_4158, (int) (1L));
				BgL_stackz00_4161 =
					((obj_t) PROCEDURE_REF(BgL_envz00_4158, (int) (2L)));
				BgL_bodyz00_4162 = PROCEDURE_REF(BgL_envz00_4158, (int) (3L));
				BgL_denvz00_4163 = ((obj_t) PROCEDURE_REF(BgL_envz00_4158, (int) (4L)));
				return
					BGl_evmeaningz00zz__evmeaningz00(BgL_bodyz00_4162,
					BGl_evmeaningzd2pushzd2vaargsz00zz__evmeaningz00(BgL_xz00_4164,
						BgL_codez00_4159, BgL_xz00_4164, BgL_lfz00_4160, BgL_stackz00_4161),
					BgL_denvz00_4163);
			}
		}

	}



/* evmeaning-push-fxargs */
	obj_t BGl_evmeaningzd2pushzd2fxargsz00zz__evmeaningz00(obj_t BgL_namez00_196,
		obj_t BgL_locz00_197, obj_t BgL_actualsz00_198, obj_t BgL_numz00_199,
		obj_t BgL_stackz00_200)
	{
		{	/* Eval/evmeaning.scm 1274 */
			return
				BGl__loop_ze71ze7zz__evmeaningz00(BgL_stackz00_200, BgL_numz00_199,
				BgL_namez00_196, BgL_locz00_197, BgL_actualsz00_198, BgL_actualsz00_198,
				BgL_numz00_199);
		}

	}



/* _loop_~1 */
	obj_t BGl__loop_ze71ze7zz__evmeaningz00(obj_t BgL_stackz00_4174,
		obj_t BgL_numz00_4173, obj_t BgL_namez00_4172, obj_t BgL_locz00_4171,
		obj_t BgL_actualsz00_4170, obj_t BgL_az00_2405, obj_t BgL_nz00_2406)
	{
		{	/* Eval/evmeaning.scm 1275 */
			if (((long) CINT(BgL_nz00_2406) == 0L))
				{	/* Eval/evmeaning.scm 1278 */
					if (NULLP(BgL_az00_2405))
						{	/* Eval/evmeaning.scm 1279 */
							return BgL_stackz00_4174;
						}
					else
						{	/* Eval/evmeaning.scm 1280 */
							long BgL_arg1984z00_2410;

							BgL_arg1984z00_2410 = bgl_list_length(BgL_actualsz00_4170);
							return
								BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_4171,
								BgL_namez00_4172, (int) (BgL_arg1984z00_2410),
								CINT(BgL_numz00_4173));
				}}
			else
				{	/* Eval/evmeaning.scm 1278 */
					if (NULLP(BgL_az00_2405))
						{	/* Eval/evmeaning.scm 1283 */
							long BgL_arg1987z00_2412;

							BgL_arg1987z00_2412 = bgl_list_length(BgL_actualsz00_4170);
							return
								BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_4171,
								BgL_namez00_4172, (int) (BgL_arg1987z00_2412),
								CINT(BgL_numz00_4173));
						}
					else
						{	/* Eval/evmeaning.scm 1285 */
							obj_t BgL_arg1988z00_2413;
							obj_t BgL_arg1989z00_2414;

							BgL_arg1988z00_2413 = CAR(((obj_t) BgL_az00_2405));
							{	/* Eval/evmeaning.scm 1285 */
								obj_t BgL_arg1990z00_2415;
								long BgL_arg1991z00_2416;

								BgL_arg1990z00_2415 = CDR(((obj_t) BgL_az00_2405));
								BgL_arg1991z00_2416 = ((long) CINT(BgL_nz00_2406) - 1L);
								BgL_arg1989z00_2414 =
									BGl__loop_ze71ze7zz__evmeaningz00(BgL_stackz00_4174,
									BgL_numz00_4173, BgL_namez00_4172, BgL_locz00_4171,
									BgL_actualsz00_4170, BgL_arg1990z00_2415,
									BINT(BgL_arg1991z00_2416));
							}
							return MAKE_YOUNG_PAIR(BgL_arg1988z00_2413, BgL_arg1989z00_2414);
						}
				}
		}

	}



/* evmeaning-push-vaargs */
	obj_t BGl_evmeaningzd2pushzd2vaargsz00zz__evmeaningz00(obj_t BgL_namez00_201,
		obj_t BgL_locz00_202, obj_t BgL_actualsz00_203, obj_t BgL_numz00_204,
		obj_t BgL_stackz00_205)
	{
		{	/* Eval/evmeaning.scm 1290 */
			return
				BGl__loop_ze70ze7zz__evmeaningz00(BgL_stackz00_205, BgL_numz00_204,
				BgL_namez00_201, BgL_locz00_202, BgL_actualsz00_203, BgL_actualsz00_203,
				BgL_numz00_204);
		}

	}



/* _loop_~0 */
	obj_t BGl__loop_ze70ze7zz__evmeaningz00(obj_t BgL_stackz00_4169,
		obj_t BgL_numz00_4168, obj_t BgL_namez00_4167, obj_t BgL_locz00_4166,
		obj_t BgL_actualsz00_4165, obj_t BgL_az00_2419, obj_t BgL_nz00_2420)
	{
		{	/* Eval/evmeaning.scm 1291 */
			if (((long) CINT(BgL_nz00_2420) == (-1L)))
				{	/* Eval/evmeaning.scm 1294 */
					return MAKE_YOUNG_PAIR(BgL_az00_2419, BgL_stackz00_4169);
				}
			else
				{	/* Eval/evmeaning.scm 1294 */
					if (NULLP(BgL_az00_2419))
						{	/* Eval/evmeaning.scm 1297 */
							long BgL_arg1995z00_2424;

							BgL_arg1995z00_2424 = bgl_list_length(BgL_actualsz00_4165);
							return
								BGl_evarityzd2errorzd2zz__everrorz00(BgL_locz00_4166,
								BgL_namez00_4167, (int) (BgL_arg1995z00_2424),
								CINT(BgL_numz00_4168));
						}
					else
						{	/* Eval/evmeaning.scm 1299 */
							obj_t BgL_arg1996z00_2425;
							obj_t BgL_arg1998z00_2426;

							BgL_arg1996z00_2425 = CAR(((obj_t) BgL_az00_2419));
							{	/* Eval/evmeaning.scm 1299 */
								obj_t BgL_arg1999z00_2427;
								long BgL_arg2000z00_2428;

								BgL_arg1999z00_2427 = CDR(((obj_t) BgL_az00_2419));
								BgL_arg2000z00_2428 = ((long) CINT(BgL_nz00_2420) + 1L);
								BgL_arg1998z00_2426 =
									BGl__loop_ze70ze7zz__evmeaningz00(BgL_stackz00_4169,
									BgL_numz00_4168, BgL_namez00_4167, BgL_locz00_4166,
									BgL_actualsz00_4165, BgL_arg1999z00_2427,
									BINT(BgL_arg2000z00_2428));
							}
							return MAKE_YOUNG_PAIR(BgL_arg1996z00_2425, BgL_arg1998z00_2426);
						}
				}
		}

	}



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

	}



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

	}



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

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zz__evmeaningz00(void)
	{
		{	/* Eval/evmeaning.scm 14 */
			BGl_modulezd2initializa7ationz75zz__typez00(393254000L,
				BSTRING_TO_STRING(BGl_string2383z00zz__evmeaningz00));
			BGl_modulezd2initializa7ationz75zz__errorz00(88804785L,
				BSTRING_TO_STRING(BGl_string2383z00zz__evmeaningz00));
			BGl_modulezd2initializa7ationz75zz__biglooz00(348684831L,
				BSTRING_TO_STRING(BGl_string2383z00zz__evmeaningz00));
			BGl_modulezd2initializa7ationz75zz__tvectorz00(135276775L,
				BSTRING_TO_STRING(BGl_string2383z00zz__evmeaningz00));
			BGl_modulezd2initializa7ationz75zz__structurez00(128205792L,
				BSTRING_TO_STRING(BGl_string2383z00zz__evmeaningz00));
			BGl_modulezd2initializa7ationz75zz__bexitz00(443005284L,
				BSTRING_TO_STRING(BGl_string2383z00zz__evmeaningz00));
			BGl_modulezd2initializa7ationz75zz__bignumz00(289561787L,
				BSTRING_TO_STRING(BGl_string2383z00zz__evmeaningz00));
			BGl_modulezd2initializa7ationz75zz__osz00(310000171L,
				BSTRING_TO_STRING(BGl_string2383z00zz__evmeaningz00));
			BGl_modulezd2initializa7ationz75zz__bitz00(377164741L,
				BSTRING_TO_STRING(BGl_string2383z00zz__evmeaningz00));
			BGl_modulezd2initializa7ationz75zz__paramz00(453939141L,
				BSTRING_TO_STRING(BGl_string2383z00zz__evmeaningz00));
			BGl_modulezd2initializa7ationz75zz__objectz00(475449627L,
				BSTRING_TO_STRING(BGl_string2383z00zz__evmeaningz00));
			BGl_modulezd2initializa7ationz75zz__threadz00(149516032L,
				BSTRING_TO_STRING(BGl_string2383z00zz__evmeaningz00));
			BGl_modulezd2initializa7ationz75zz__rgcz00(352600006L,
				BSTRING_TO_STRING(BGl_string2383z00zz__evmeaningz00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(26840973L,
				BSTRING_TO_STRING(BGl_string2383z00zz__evmeaningz00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(457511469L,
				BSTRING_TO_STRING(BGl_string2383z00zz__evmeaningz00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(362050511L,
				BSTRING_TO_STRING(BGl_string2383z00zz__evmeaningz00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonum_dtoaz00
				(268155843L, BSTRING_TO_STRING(BGl_string2383z00zz__evmeaningz00));
			BGl_modulezd2initializa7ationz75zz__r4_characters_6_6z00(198620800L,
				BSTRING_TO_STRING(BGl_string2383z00zz__evmeaningz00));
			BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(111613887L,
				BSTRING_TO_STRING(BGl_string2383z00zz__evmeaningz00));
			BGl_modulezd2initializa7ationz75zz__r4_booleans_6_1z00(459519430L,
				BSTRING_TO_STRING(BGl_string2383z00zz__evmeaningz00));
			BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(115192690L,
				BSTRING_TO_STRING(BGl_string2383z00zz__evmeaningz00));
			BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00((-44273703L),
				BSTRING_TO_STRING(BGl_string2383z00zz__evmeaningz00));
			BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(9614678L,
				BSTRING_TO_STRING(BGl_string2383z00zz__evmeaningz00));
			BGl_modulezd2initializa7ationz75zz__r4_input_6_10_2z00(323064722L,
				BSTRING_TO_STRING(BGl_string2383z00zz__evmeaningz00));
			BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(376927882L,
				BSTRING_TO_STRING(BGl_string2383z00zz__evmeaningz00));
			BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(43892022L,
				BSTRING_TO_STRING(BGl_string2383z00zz__evmeaningz00));
			BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(185672289L,
				BSTRING_TO_STRING(BGl_string2383z00zz__evmeaningz00));
			BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(86988580L,
				BSTRING_TO_STRING(BGl_string2383z00zz__evmeaningz00));
			BGl_modulezd2initializa7ationz75zz__prognz00(177147622L,
				BSTRING_TO_STRING(BGl_string2383z00zz__evmeaningz00));
			BGl_modulezd2initializa7ationz75zz__evenvz00(528345299L,
				BSTRING_TO_STRING(BGl_string2383z00zz__evmeaningz00));
			BGl_modulezd2initializa7ationz75zz__evcompilez00(492754569L,
				BSTRING_TO_STRING(BGl_string2383z00zz__evmeaningz00));
			BGl_modulezd2initializa7ationz75zz__everrorz00(375872221L,
				BSTRING_TO_STRING(BGl_string2383z00zz__evmeaningz00));
			return BGl_modulezd2initializa7ationz75zz__evmodulez00(505897955L,
				BSTRING_TO_STRING(BGl_string2383z00zz__evmeaningz00));
		}

	}

#ifdef __cplusplus
}
#endif
