/*===========================================================================*/
/*   (Eval/eval.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/eval.scm -indent -o objs/obj_u/Eval/eval.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___EVAL_TYPE_DEFINITIONS
#define BGL___EVAL_TYPE_DEFINITIONS

/* object type definitions */
	typedef struct BgL_z62exceptionz62_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_fnamez00;
		obj_t BgL_locationz00;
		obj_t BgL_stackz00;
	}                      *BgL_z62exceptionz62_bglt;

	typedef struct BgL_z62errorz62_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_fnamez00;
		obj_t BgL_locationz00;
		obj_t BgL_stackz00;
		obj_t BgL_procz00;
		obj_t BgL_msgz00;
		obj_t BgL_objz00;
	}                  *BgL_z62errorz62_bglt;


#endif													// BGL___EVAL_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	BGL_EXPORTED_DECL obj_t BGl_bytezd2codezd2runz00zz__evalz00(obj_t);
	static obj_t BGl_z62zc3z04za2replzd2quitza2za31382ze3z37zz__evalz00(obj_t,
		obj_t);
	static obj_t BGl__loadz00zz__evalz00(obj_t, obj_t);
	static obj_t BGl_symbol2722z00zz__evalz00 = BUNSPEC;
	extern obj_t BGl_appendzd2outputzd2filez00zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_quitz00zz__evalz00(void);
	static obj_t BGl_z62bytezd2codezd2evaluatez62zz__evalz00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_symbol2809z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_z62expandzd2definezd2patternz62zz__evalz00(obj_t, obj_t);
	static obj_t BGl_symbol2729z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_zc3z04exitza31562ze3ze70z60zz__evalz00(obj_t, obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31426ze3ze5zz__evalz00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_transcriptzd2offzd2zz__evalz00(void);
	static obj_t BGl_z62setzd2replzd2errorzd2notifierz12za2zz__evalz00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_nativezd2replzd2printerz00zz__evalz00(void);
	static obj_t BGl_z62transcriptzd2onzb0zz__evalz00(obj_t, obj_t);
	extern bool_t reset_eof(obj_t);
	static obj_t BGl_z62defaultzd2replzd2printerz62zz__evalz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_symbol2812z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_symbol2814z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_symbol2733z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_symbol2736z00zz__evalz00 = BUNSPEC;
	extern obj_t BGl_bigloozd2loadzd2readerz00zz__paramz00(void);
	extern obj_t bstring_to_keyword(obj_t);
	static obj_t BGl_z62zc3z04anonymousza31613ze3ze5zz__evalz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_zc3z04exitza31909ze3ze70z60zz__evalz00(obj_t, obj_t);
	static obj_t BGl__bytezd2codezd2compilez00zz__evalz00(obj_t, obj_t);
	static obj_t BGl_requirezd2initializa7ationz75zz__evalz00 = BUNSPEC;
	extern obj_t BGl_raisez00zz__errorz00(obj_t);
	extern obj_t BGl_exceptionzd2notifyzd2zz__objectz00(obj_t);
	extern obj_t BGl_exitz00zz__errorz00(obj_t);
	static obj_t BGl_symbol2821z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_symbol2740z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_symbol2823z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_symbol2742z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_symbol2663z00zz__evalz00 = BUNSPEC;
	extern obj_t BGl_definezd2primopzd2refzf2locz12ze0zz__evenvz00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_symbol2826z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_symbol2746z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_symbol2828z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_symbol2666z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_symbol2668z00zz__evalz00 = BUNSPEC;
	extern obj_t BGl_errorzd2notifyzd2zz__errorz00(obj_t);
	extern obj_t BGl_evepairifyz00zz__prognz00(obj_t, obj_t);
	static obj_t BGl_getzd2evalzd2readerz00zz__evalz00(void);
	extern obj_t bgl_display_obj(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_expandzd2definezd2macroz00zz__evalz00(obj_t,
		obj_t);
	extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__evalz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__match_normaliza7eza7(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evmodulez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evenvz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evprimopz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__everrorz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evaluatez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evmeaningz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evcompilez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__expandz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__prognz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__install_expandersz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__macroz00(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__intextz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__pp_circlez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__bitz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__threadz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__paramz00(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__objectz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__typez00(long, char *);
	extern obj_t BGl_evalzd2modulezd2zz__evmodulez00(void);
	extern obj_t BGl_installzd2expanderzd2zz__macroz00(obj_t, obj_t);
	extern obj_t BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62identifierzd2syntaxzb0zz__evalz00(obj_t);
	static obj_t BGl_za2transcriptza2z00zz__evalz00 = BUNSPEC;
	extern obj_t BGl_expandz00zz__expandz00(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_schemezd2reportzd2environmentz00zz__evalz00(obj_t);
	extern obj_t BGl_za2classesza2z00zz__objectz00;
	static obj_t BGl_symbol2830z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_z62nullzd2environmentzb0zz__evalz00(obj_t, obj_t);
	static obj_t BGl_symbol2751z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_symbol2670z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_symbol2835z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_defaultzd2evaluatezd2zz__evalz00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_evalz12z12zz__evalz00(obj_t, obj_t);
	static obj_t BGl_symbol2837z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_symbol2839z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_symbol2677z00zz__evalz00 = BUNSPEC;
	extern obj_t BGl_z62errorz62zz__objectz00;
	static obj_t BGl_z62zc3z04anonymousza31429ze3ze5zz__evalz00(obj_t, obj_t);
	extern bool_t fexists(char *);
	BGL_EXPORTED_DEF obj_t BGl_za2userzd2passza2zd2zz__evalz00 = BUNSPEC;
	extern obj_t BGl_extendzd2rzd2macrozd2envzd2zz__match_normaliza7eza7(obj_t,
		obj_t);
	static obj_t BGl_z62expandzd2definezd2expanderz62zz__evalz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62bytezd2codezd2runz62zz__evalz00(obj_t, obj_t);
	static obj_t BGl_za2replzd2numza2zd2zz__evalz00 = BUNSPEC;
	extern obj_t BGl_evcompilez00zz__evcompilez00(obj_t, obj_t, obj_t, obj_t,
		bool_t, obj_t, bool_t, bool_t);
	static obj_t BGl_symbol2760z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_symbol2843z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_symbol2762z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_list2811z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_zc3z04exitza31425ze3ze70z60zz__evalz00(obj_t, obj_t);
	static obj_t BGl_symbol2845z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_symbol2764z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_symbol2766z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_toplevelzd2initzd2zz__evalz00(void);
	static obj_t BGl_symbol2768z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_symbol2688z00zz__evalz00 = BUNSPEC;
	extern int bgl_debug(void);
	BGL_EXPORTED_DECL obj_t BGl_loadqz00zz__evalz00(obj_t, obj_t);
	extern obj_t unwind_stack_until(obj_t, obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_loadvz00zz__evalz00(obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_z62identifierzd2syntaxzd2setz12z70zz__evalz00(obj_t, obj_t);
	static obj_t BGl_z62setzd2replzd2printerz12z70zz__evalz00(obj_t, obj_t);
	static obj_t BGl_symbol2770z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_symbol2772z00zz__evalz00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_evalz00zz__evalz00(obj_t, obj_t);
	static obj_t BGl_symbol2774z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_symbol2776z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_symbol2695z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_zc3z04exitza31393ze3ze70z60zz__evalz00(obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_symbol2858z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_symbol2778z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_list2745z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_symbol2698z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_evalzd2exceptionzd2handlerz00zz__evalz00(obj_t, obj_t);
	static obj_t BGl_symbol2699z00zz__evalz00 = BUNSPEC;
	extern obj_t BGl_notifyzd2interruptzd2zz__errorz00(int);
	extern obj_t BGl_evmodulezd2checkzd2unboundz00zz__evmodulez00(obj_t, obj_t);
	BGL_EXPORTED_DEF obj_t BGl_za2loadzd2verboseza2zd2zz__evalz00 = BUNSPEC;
	static obj_t BGl_za2replzd2printerza2zd2zz__evalz00 = BUNSPEC;
	extern obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_cnstzd2initzd2zz__evalz00(void);
	static obj_t BGl_internalzd2replzd2zz__evalz00(void);
	static obj_t BGl_genericzd2initzd2zz__evalz00(void);
	static obj_t BGl_symbol2780z00zz__evalz00 = BUNSPEC;
	static obj_t BGl__evalz12z12zz__evalz00(obj_t, obj_t);
	static obj_t BGl_symbol2863z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_symbol2783z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_importedzd2moduleszd2initz00zz__evalz00(void);
	static obj_t BGl_symbol2866z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_symbol2786z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_symbol2788z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_gczd2rootszd2initz00zz__evalz00(void);
	static obj_t BGl_z62expandzd2definezd2hygienezd2macrozb0zz__evalz00(obj_t,
		obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_identifierzd2syntaxzd2zz__evalz00(void);
	static obj_t BGl_objectzd2initzd2zz__evalz00(void);
	extern obj_t string_to_obj(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DEF obj_t BGl_za2userzd2passzd2nameza2z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_symbol2870z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_symbol2790z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_symbol2792z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_list2842z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_symbol2794z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_z62defaultzd2environmentzb0zz__evalz00(obj_t);
	static obj_t BGl_symbol2796z00zz__evalz00 = BUNSPEC;
	static obj_t BGl__loadqz00zz__evalz00(obj_t, obj_t);
	static obj_t BGl_symbol2799z00zz__evalz00 = BUNSPEC;
	extern obj_t BGl_za2inheritancesza2z00zz__objectz00;
	extern obj_t BGl_displayzd2circlezd2zz__pp_circlez00(obj_t, obj_t);
	extern obj_t BGl_z62exceptionz62zz__objectz00;
	static obj_t BGl_z62replz62zz__evalz00(obj_t);
	static obj_t BGl_z62czd2debugzd2replz62zz__evalz00(obj_t, obj_t);
	extern obj_t BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_interactionzd2environmentzd2zz__evalz00(void);
	static obj_t BGl_z62zc3z04za2promptza2za31378ze3ze5zz__evalz00(obj_t, obj_t);
	static obj_t BGl_z62interactionzd2environmentzb0zz__evalz00(obj_t);
	BGL_EXPORTED_DEF obj_t BGl_za2loadzd2pathza2zd2zz__evalz00 = BUNSPEC;
	extern obj_t BGl_errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31466ze3ze5zz__evalz00(obj_t);
	static obj_t BGl_za2czd2debugzd2replzd2valueza2zd2zz__evalz00 = BUNSPEC;
	extern obj_t BGl_getzd2signalzd2handlerz00zz__osz00(int);
	static obj_t BGl_z62intrhdlz62zz__evalz00(obj_t, obj_t);
	static obj_t BGl_z62nativezd2replzd2printerz62zz__evalz00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_setzd2replzd2printerz12z12zz__evalz00(obj_t);
	extern bool_t BGl_evmodulezf3zf3zz__evmodulez00(obj_t);
	extern obj_t BGl_getzd2sourcezd2locationz00zz__readerz00(obj_t);
	extern obj_t reset_console(obj_t);
	static obj_t BGl__evalz00zz__evalz00(obj_t, obj_t);
	static obj_t BGl_evalzd2initzd2zz__evalz00(void);
	static obj_t BGl_list2782z00zz__evalz00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_replz00zz__evalz00(void);
	BGL_EXPORTED_DECL obj_t bgl_debug_repl(obj_t);
	extern obj_t BGl_makezd2filezd2namez00zz__osz00(obj_t, obj_t);
	extern obj_t BGl_evmeaningz00zz__evmeaningz00(obj_t, obj_t, obj_t);
	extern obj_t BGl_readz00zz__readerz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_expandzd2definezd2expanderz00zz__evalz00(obj_t,
		obj_t);
	extern obj_t bstring_to_symbol(obj_t);
	static obj_t BGl_zc3z04exitza31615ze3ze70z60zz__evalz00(obj_t, obj_t, obj_t,
		obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_identifierzd2syntaxzd2setz12z12zz__evalz00(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_setzd2replzd2errorzd2notifierz12zc0zz__evalz00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_bytezd2codezd2compilez00zz__evalz00(obj_t, obj_t);
	extern obj_t BGl_gensymz00zz__r4_symbols_6_4z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_setzd2prompterz12zc0zz__evalz00(obj_t);
	static obj_t BGl_z62transcriptzd2offzb0zz__evalz00(obj_t);
	extern obj_t BGl_evcompilezd2errorzd2zz__evcompilez00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62expandzd2definezd2macroz62zz__evalz00(obj_t, obj_t,
		obj_t);
	extern char *BGl_datez00zz__osz00(void);
	static obj_t BGl_methodzd2initzd2zz__evalz00(void);
	static obj_t BGl_findzd2filezd2zz__evalz00(obj_t);
	static obj_t BGl_z62zc3z04anonymousza31736ze3ze5zz__evalz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31469ze3ze5zz__evalz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_loadz00zz__evalz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_expandzd2definezd2patternz00zz__evalz00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_getzd2replzd2errorzd2notifierzd2zz__evalz00(void);
	extern obj_t BGl_everrorz00zz__everrorz00(obj_t, obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_evalzd2evaluatezd2setz12z12zz__evalz00(obj_t);
	static obj_t BGl_zc3z04exitza31740ze3ze70z60zz__evalz00(obj_t, obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_loopze70ze7zz__evalz00(obj_t, obj_t, obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_zc3z04exitza31445ze3ze70z60zz__evalz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62getzd2replzd2errorzd2notifierzb0zz__evalz00(obj_t);
	extern obj_t BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t, obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_z62getzd2prompterzb0zz__evalz00(obj_t);
	static obj_t BGl_evalzf2expanderzf2zz__evalz00(obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31915ze3ze5zz__evalz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_transcriptzd2onzd2zz__evalz00(obj_t);
	extern obj_t
		BGl_installzd2allzd2expandersz12z12zz__install_expandersz00(void);
	static obj_t BGl_errze70ze7zz__evalz00(obj_t, obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31559ze3ze5zz__evalz00(obj_t, obj_t,
		obj_t);
	extern obj_t obj_to_string(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_nullzd2environmentzd2zz__evalz00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_notifyzd2assertzd2failz00zz__evalz00(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_withzd2exceptionzd2handlerz00zz__errorz00(obj_t, obj_t);
	extern obj_t bgl_close_input_port(obj_t);
	static obj_t BGl_z62zc3z04anonymousza31916ze3ze5zz__evalz00(obj_t);
	BGL_EXPORTED_DEF obj_t BGl_za2nilza2z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_keyword2749z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_z62quit2278z62zz__evalz00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_getzd2prompterzd2zz__evalz00(void);
	static obj_t BGl_z62quitz62zz__evalz00(obj_t, obj_t);
	static obj_t BGl_zc3z04exitza31437ze3ze70z60zz__evalz00(obj_t);
	static obj_t BGl_za2identifierzd2syntaxza2zd2zz__evalz00 = BUNSPEC;
	static obj_t BGl_z62evalzd2evaluatezd2setz12z70zz__evalz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_expandzd2definezd2hygienezd2macrozd2zz__evalz00(obj_t, obj_t);
	static obj_t BGl_za2promptza2z00zz__evalz00 = BUNSPEC;
	static obj_t BGl_za2replzd2quitza2zd2zz__evalz00 = BUNSPEC;
	static obj_t BGl_z62setzd2prompterz12za2zz__evalz00(obj_t, obj_t);
	extern obj_t BGl_signalz00zz__osz00(int, obj_t);
	static obj_t BGl_z62schemezd2reportzd2environmentz62zz__evalz00(obj_t, obj_t);
	static obj_t BGl_z62notifyzd2assertzd2failz62zz__evalz00(obj_t, obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_defaultzd2environmentzd2zz__evalz00(void);
	extern obj_t bgl_close_output_port(obj_t);
	extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31522ze3ze5zz__evalz00(obj_t);
	extern obj_t BGl_expandzd2prognzd2zz__prognz00(obj_t);
	static obj_t BGl_z62zc3z04anonymousza31926ze3ze5zz__evalz00(obj_t, obj_t);
	static obj_t BGl_keyword2683z00zz__evalz00 = BUNSPEC;
	static obj_t *__cnst;


	   
		 
		BGL_DEFINE_STRING(BGl_string2840z00zz__evalz00,
		BgL_bgl_string2840za700za7za7_2873za7, "error", 5);
	      BGL_DEFINE_STRING(BGl_string2841z00zz__evalz00,
		BgL_bgl_string2841za700za7za7_2874za7, "expand-define-pattern", 21);
	      BGL_DEFINE_STRING(BGl_string2761z00zz__evalz00,
		BgL_bgl_string2761za700za7za7_2875za7, "e", 1);
	      BGL_DEFINE_STRING(BGl_string2680z00zz__evalz00,
		BgL_bgl_string2680za700za7za7_2876za7, "eval", 4);
	      BGL_DEFINE_STRING(BGl_string2681z00zz__evalz00,
		BgL_bgl_string2681za700za7za7_2877za7, "_eval!", 6);
	      BGL_DEFINE_STRING(BGl_string2844z00zz__evalz00,
		BgL_bgl_string2844za700za7za7_2878za7, "dummy", 5);
	      BGL_DEFINE_STRING(BGl_string2763z00zz__evalz00,
		BgL_bgl_string2763za700za7za7_2879za7, "x1", 2);
	      BGL_DEFINE_STRING(BGl_string2682z00zz__evalz00,
		BgL_bgl_string2682za700za7za7_2880za7, "eval!", 5);
	      BGL_DEFINE_STRING(BGl_string2846z00zz__evalz00,
		BgL_bgl_string2846za700za7za7_2881za7, "Illegal form", 12);
	      BGL_DEFINE_STRING(BGl_string2765z00zz__evalz00,
		BgL_bgl_string2765za700za7za7_2882za7, "epair?", 6);
	      BGL_DEFINE_STRING(BGl_string2684z00zz__evalz00,
		BgL_bgl_string2684za700za7za7_2883za7, "<@exit:1393>~0", 14);
	      BGL_DEFINE_STRING(BGl_string2847z00zz__evalz00,
		BgL_bgl_string2847za700za7za7_2884za7, "-----------------------", 23);
	      BGL_DEFINE_STRING(BGl_string2685z00zz__evalz00,
		BgL_bgl_string2685za700za7za7_2885za7, "pair", 4);
	      BGL_DEFINE_STRING(BGl_string2848z00zz__evalz00,
		BgL_bgl_string2848za700za7za7_2886za7, "Variables' value are : ", 23);
	      BGL_DEFINE_STRING(BGl_string2767z00zz__evalz00,
		BgL_bgl_string2767za700za7za7_2887za7, "cer", 3);
	      BGL_DEFINE_STRING(BGl_string2686z00zz__evalz00,
		BgL_bgl_string2686za700za7za7_2888za7, "eval-exception-handler", 22);
	      BGL_DEFINE_STRING(BGl_string2849z00zz__evalz00,
		BgL_bgl_string2849za700za7za7_2889za7, "   ", 3);
	      BGL_DEFINE_STRING(BGl_string2687z00zz__evalz00,
		BgL_bgl_string2687za700za7za7_2890za7, "&exception", 10);
	      BGL_DEFINE_STRING(BGl_string2769z00zz__evalz00,
		BgL_bgl_string2769za700za7za7_2891za7, "?l", 2);
	      BGL_DEFINE_STRING(BGl_string2689z00zz__evalz00,
		BgL_bgl_string2689za700za7za7_2892za7, "at", 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_expandzd2definezd2hygienezd2macrozd2envz00zz__evalz00,
		BgL_bgl_za762expandza7d2defi2893z00,
		BGl_z62expandzd2definezd2hygienezd2macrozb0zz__evalz00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string2850z00zz__evalz00,
		BgL_bgl_string2850za700za7za7_2894za7, " : ", 3);
	      BGL_DEFINE_STRING(BGl_string2851z00zz__evalz00,
		BgL_bgl_string2851za700za7za7_2895za7, "<@anonymous:1920>", 17);
	      BGL_DEFINE_STRING(BGl_string2852z00zz__evalz00,
		BgL_bgl_string2852za700za7za7_2896za7, "for-each", 8);
	      BGL_DEFINE_STRING(BGl_string2771z00zz__evalz00,
		BgL_bgl_string2771za700za7za7_2897za7, "?f", 2);
	      BGL_DEFINE_STRING(BGl_string2690z00zz__evalz00,
		BgL_bgl_string2690za700za7za7_2898za7, "_byte-code-compile", 18);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_bytezd2codezd2compilezd2envzd2zz__evalz00,
		BgL_bgl__byteza7d2codeza7d2c2899z00, opt_generic_entry,
		BGl__bytezd2codezd2compilez00zz__evalz00, BFALSE, -1);
	      BGL_DEFINE_STRING(BGl_string2853z00zz__evalz00,
		BgL_bgl_string2853za700za7za7_2900za7, "notify-assert-fail", 18);
	      BGL_DEFINE_STRING(BGl_string2691z00zz__evalz00,
		BgL_bgl_string2691za700za7za7_2901za7, "&byte-code-run", 14);
	      BGL_DEFINE_STRING(BGl_string2773z00zz__evalz00,
		BgL_bgl_string2773za700za7za7_2902za7, "f", 1);
	      BGL_DEFINE_STRING(BGl_string2692z00zz__evalz00,
		BgL_bgl_string2692za700za7za7_2903za7, "bstring", 7);
	      BGL_DEFINE_STRING(BGl_string2855z00zz__evalz00,
		BgL_bgl_string2855za700za7za7_2904za7, "*:=> ", 5);
	      BGL_DEFINE_STRING(BGl_string2693z00zz__evalz00,
		BgL_bgl_string2693za700za7za7_2905za7, "scheme-report-environment", 25);
	      BGL_DEFINE_STRING(BGl_string2856z00zz__evalz00,
		BgL_bgl_string2856za700za7za7_2906za7, "assert", 6);
	      BGL_DEFINE_STRING(BGl_string2775z00zz__evalz00,
		BgL_bgl_string2775za700za7za7_2907za7, "set!", 4);
	      BGL_DEFINE_STRING(BGl_string2694z00zz__evalz00,
		BgL_bgl_string2694za700za7za7_2908za7, "bint", 4);
	      BGL_DEFINE_STRING(BGl_string2857z00zz__evalz00,
		BgL_bgl_string2857za700za7za7_2909za7, "assertion failed", 16);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_identifierzd2syntaxzd2envz00zz__evalz00,
		BgL_bgl_za762identifierza7d22910z00,
		BGl_z62identifierzd2syntaxzb0zz__evalz00, 0L, BUNSPEC, 0);
	      BGL_DEFINE_STRING(BGl_string2777z00zz__evalz00,
		BgL_bgl_string2777za700za7za7_2911za7, "l", 1);
	      BGL_DEFINE_STRING(BGl_string2696z00zz__evalz00,
		BgL_bgl_string2696za700za7za7_2912za7, "Version not supported", 21);
	      BGL_DEFINE_STRING(BGl_string2859z00zz__evalz00,
		BgL_bgl_string2859za700za7za7_2913za7, "&identifier-syntax-set!", 23);
	      BGL_DEFINE_STRING(BGl_string2697z00zz__evalz00,
		BgL_bgl_string2697za700za7za7_2914za7, "null-environment", 16);
	      BGL_DEFINE_STRING(BGl_string2779z00zz__evalz00,
		BgL_bgl_string2779za700za7za7_2915za7, "match-case", 10);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_schemezd2reportzd2environmentzd2envzd2zz__evalz00,
		BgL_bgl_za762schemeza7d2repo2916z00,
		BGl_z62schemezd2reportzd2environmentz62zz__evalz00, 0L, BUNSPEC, 1);
	extern obj_t BGl_expandzd2envzd2zz__expandz00;
	   
		 
		BGL_DEFINE_STRING(BGl_string2860z00zz__evalz00,
		BgL_bgl_string2860za700za7za7_2917za7, "symbol", 6);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2854z00zz__evalz00,
		BgL_bgl_za762za7c3za704anonymo2918za7,
		BGl_z62zc3z04anonymousza31926ze3ze5zz__evalz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2861z00zz__evalz00,
		BgL_bgl_string2861za700za7za7_2919za7, "transcript-on", 13);
	      BGL_DEFINE_STRING(BGl_string2862z00zz__evalz00,
		BgL_bgl_string2862za700za7za7_2920za7, ";; session started on ", 22);
	      BGL_DEFINE_STRING(BGl_string2781z00zz__evalz00,
		BgL_bgl_string2781za700za7za7_2921za7, "when", 4);
	      BGL_DEFINE_STRING(BGl_string2864z00zz__evalz00,
		BgL_bgl_string2864za700za7za7_2922za7, "A transcript is already in use",
		30);
	      BGL_DEFINE_STRING(BGl_string2865z00zz__evalz00,
		BgL_bgl_string2865za700za7za7_2923za7, "&transcript-on", 14);
	      BGL_DEFINE_STRING(BGl_string2784z00zz__evalz00,
		BgL_bgl_string2784za700za7za7_2924za7, "cdr", 3);
	      BGL_DEFINE_STRING(BGl_string2785z00zz__evalz00,
		BgL_bgl_string2785za700za7za7_2925za7, "TAG-254", 7);
	      BGL_DEFINE_STRING(BGl_string2867z00zz__evalz00,
		BgL_bgl_string2867za700za7za7_2926za7, "transcript-off", 14);
	      BGL_DEFINE_STRING(BGl_string2868z00zz__evalz00,
		BgL_bgl_string2868za700za7za7_2927za7, "No transcript is currently in use",
		33);
	      BGL_DEFINE_STRING(BGl_string2787z00zz__evalz00,
		BgL_bgl_string2787za700za7za7_2928za7, "let*", 4);
	      BGL_DEFINE_STRING(BGl_string2869z00zz__evalz00,
		BgL_bgl_string2869za700za7za7_2929za7, "__eval", 6);
	      BGL_DEFINE_STRING(BGl_string2789z00zz__evalz00,
		BgL_bgl_string2789za700za7za7_2930za7, "n", 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_evalzd2evaluatezd2setz12zd2envzc0zz__evalz00,
		BgL_bgl_za762evalza7d2evalua2931z00,
		BGl_z62evalzd2evaluatezd2setz12z70zz__evalz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2871z00zz__evalz00,
		BgL_bgl_string2871za700za7za7_2932za7, "*c-debug-repl-value*", 20);
	      BGL_DEFINE_STRING(BGl_string2872z00zz__evalz00,
		BgL_bgl_string2872za700za7za7_2933za7, "Eval/eval.scm", 13);
	      BGL_DEFINE_STRING(BGl_string2791z00zz__evalz00,
		BgL_bgl_string2791za700za7za7_2934za7, "ne", 2);
	      BGL_DEFINE_STRING(BGl_string2793z00zz__evalz00,
		BgL_bgl_string2793za700za7za7_2935za7, "evepairify*", 11);
	      BGL_DEFINE_STRING(BGl_string2795z00zz__evalz00,
		BgL_bgl_string2795za700za7za7_2936za7, "let", 3);
	      BGL_DEFINE_STRING(BGl_string2797z00zz__evalz00,
		BgL_bgl_string2797za700za7za7_2937za7, "lambda", 6);
	      BGL_DEFINE_STRING(BGl_string2798z00zz__evalz00,
		BgL_bgl_string2798za700za7za7_2938za7, "expand-define-macro", 19);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_evalzd2envzd2zz__evalz00,
		BgL_bgl__evalza700za7za7__eval2939za7, opt_generic_entry,
		BGl__evalz00zz__evalz00, BFALSE, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_replzd2envzd2zz__evalz00,
		BgL_bgl_za762replza762za7za7__ev2940z00, BGl_z62replz62zz__evalz00, 0L,
		BUNSPEC, 0);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_czd2debugzd2replzd2envzd2zz__evalz00,
		BgL_bgl_za762cza7d2debugza7d2r2941za7,
		BGl_z62czd2debugzd2replz62zz__evalz00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_getzd2prompterzd2envz00zz__evalz00,
		BgL_bgl_za762getza7d2prompte2942z00, BGl_z62getzd2prompterzb0zz__evalz00,
		0L, BUNSPEC, 0);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_setzd2prompterz12zd2envz12zz__evalz00,
		BgL_bgl_za762setza7d2prompte2943z00, BGl_z62setzd2prompterz12za2zz__evalz00,
		0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_evalz12zd2envzc0zz__evalz00,
		BgL_bgl__evalza712za712za7za7__e2944z00, opt_generic_entry,
		BGl__evalz12z12zz__evalz00, BFALSE, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_bytezd2codezd2runzd2envzd2zz__evalz00,
		BgL_bgl_za762byteza7d2codeza7d2945za7,
		BGl_z62bytezd2codezd2runz62zz__evalz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_expandzd2definezd2patternzd2envzd2zz__evalz00,
		BgL_bgl_za762expandza7d2defi2946z00,
		BGl_z62expandzd2definezd2patternz62zz__evalz00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_loadqzd2envzd2zz__evalz00,
		BgL_bgl__loadqza700za7za7__eva2947za7, opt_generic_entry,
		BGl__loadqz00zz__evalz00, BFALSE, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_transcriptzd2offzd2envz00zz__evalz00,
		BgL_bgl_za762transcriptza7d22948z00, BGl_z62transcriptzd2offzb0zz__evalz00,
		0L, BUNSPEC, 0);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_expandzd2definezd2expanderzd2envzd2zz__evalz00,
		BgL_bgl_za762expandza7d2defi2949z00,
		BGl_z62expandzd2definezd2expanderz62zz__evalz00, 0L, BUNSPEC, 2);
	     
		DEFINE_STATIC_BGL_PROCEDURE
		(BGl_defaultzd2replzd2printerzd2envzd2zz__evalz00,
		BgL_bgl_za762defaultza7d2rep2950z00, va_generic_entry,
		BGl_z62defaultzd2replzd2printerz62zz__evalz00, BUNSPEC, -2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_defaultzd2environmentzd2envz00zz__evalz00,
		BgL_bgl_za762defaultza7d2env2951z00,
		BGl_z62defaultzd2environmentzb0zz__evalz00, 0L, BUNSPEC, 0);
	      BGL_DEFINE_STRING(BGl_string2700z00zz__evalz00,
		BgL_bgl_string2700za700za7za7_2952za7, "set-prompter!", 13);
	      BGL_DEFINE_STRING(BGl_string2701z00zz__evalz00,
		BgL_bgl_string2701za700za7za7_2953za7,
		"argument has to be a procedure of 1 argument", 44);
	      BGL_DEFINE_STRING(BGl_string2702z00zz__evalz00,
		BgL_bgl_string2702za700za7za7_2954za7, "&set-prompter!", 14);
	      BGL_DEFINE_STRING(BGl_string2703z00zz__evalz00,
		BgL_bgl_string2703za700za7za7_2955za7, "get-prompter", 12);
	      BGL_DEFINE_STRING(BGl_string2704z00zz__evalz00,
		BgL_bgl_string2704za700za7za7_2956za7, "<@exit:1425>~0", 14);
	      BGL_DEFINE_STRING(BGl_string2706z00zz__evalz00,
		BgL_bgl_string2706za700za7za7_2957za7, "<@anonymous:1429>", 17);
	      BGL_DEFINE_STRING(BGl_string2707z00zz__evalz00,
		BgL_bgl_string2707za700za7za7_2958za7, "input-port", 10);
	      BGL_DEFINE_STRING(BGl_string2708z00zz__evalz00,
		BgL_bgl_string2708za700za7za7_2959za7, "set-repl-error-notifier!", 24);
	      BGL_DEFINE_STRING(BGl_string2709z00zz__evalz00,
		BgL_bgl_string2709za700za7za7_2960za7, "procedure of 1 argument expected",
		32);
	extern obj_t BGl_displayzd2circlezd2envz00zz__pp_circlez00;
	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_loadzd2envzd2zz__evalz00,
		BgL_bgl__loadza700za7za7__eval2961za7, opt_generic_entry,
		BGl__loadz00zz__evalz00, BFALSE, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_quitzd2envzd2zz__evalz00,
		BgL_bgl_za762quit2278za762za7za72962z00, BGl_z62quit2278z62zz__evalz00, 0L,
		BUNSPEC, 0);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_getzd2replzd2errorzd2notifierzd2envz00zz__evalz00,
		BgL_bgl_za762getza7d2replza7d22963za7,
		BGl_z62getzd2replzd2errorzd2notifierzb0zz__evalz00, 0L, BUNSPEC, 0);
	      BGL_DEFINE_STRING(BGl_string2710z00zz__evalz00,
		BgL_bgl_string2710za700za7za7_2964za7, "get-repl-error-notifier", 23);
	      BGL_DEFINE_STRING(BGl_string2711z00zz__evalz00,
		BgL_bgl_string2711za700za7za7_2965za7, "internal-repl", 13);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2705z00zz__evalz00,
		BgL_bgl_za762za7c3za704anonymo2966za7,
		BGl_z62zc3z04anonymousza31429ze3ze5zz__evalz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2712z00zz__evalz00,
		BgL_bgl_string2712za700za7za7_2967za7, "liip", 4);
	      BGL_DEFINE_STRING(BGl_string2713z00zz__evalz00,
		BgL_bgl_string2713za700za7za7_2968za7, "output-port", 11);
	      BGL_DEFINE_STRING(BGl_string2714z00zz__evalz00,
		BgL_bgl_string2714za700za7za7_2969za7, ";; ", 3);
	      BGL_DEFINE_STRING(BGl_string2715z00zz__evalz00,
		BgL_bgl_string2715za700za7za7_2970za7, "<@exit:1445>~0", 14);
	      BGL_DEFINE_STRING(BGl_string2716z00zz__evalz00,
		BgL_bgl_string2716za700za7za7_2971za7, "handler1083", 11);
	      BGL_DEFINE_STRING(BGl_string2717z00zz__evalz00,
		BgL_bgl_string2717za700za7za7_2972za7, "&error", 6);
	      BGL_DEFINE_STRING(BGl_string2718z00zz__evalz00,
		BgL_bgl_string2718za700za7za7_2973za7, "intrhdl", 7);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_transcriptzd2onzd2envz00zz__evalz00,
		BgL_bgl_za762transcriptza7d22974z00, BGl_z62transcriptzd2onzb0zz__evalz00,
		0L, BUNSPEC, 1);
	extern obj_t BGl_expandz12zd2envzc0zz__expandz00;
	extern obj_t BGl_evaluate2zd2envzd2zz__evaluatez00;
	   
		 
		BGL_DEFINE_STRING(BGl_string2800z00zz__evalz00,
		BgL_bgl_string2800za700za7za7_2975za7, "define-macro", 12);
	      BGL_DEFINE_STRING(BGl_string2801z00zz__evalz00,
		BgL_bgl_string2801za700za7za7_2976za7, "Illegal `define-macro' syntax", 29);
	      BGL_DEFINE_STRING(BGl_string2720z00zz__evalz00,
		BgL_bgl_string2720za700za7za7_2977za7, "default-repl-printer", 20);
	      BGL_DEFINE_STRING(BGl_string2802z00zz__evalz00,
		BgL_bgl_string2802za700za7za7_2978za7, "handler1140", 11);
	      BGL_DEFINE_STRING(BGl_string2721z00zz__evalz00,
		BgL_bgl_string2721za700za7za7_2979za7, "pair-nil", 8);
	      BGL_DEFINE_STRING(BGl_string2803z00zz__evalz00,
		BgL_bgl_string2803za700za7za7_2980za7, "TAG-312", 7);
	      BGL_DEFINE_STRING(BGl_string2804z00zz__evalz00,
		BgL_bgl_string2804za700za7za7_2981za7, "<@exit:1615>~0", 14);
	      BGL_DEFINE_STRING(BGl_string2723z00zz__evalz00,
		BgL_bgl_string2723za700za7za7_2982za7, "set-repl-printer!", 17);
	      BGL_DEFINE_STRING(BGl_string2805z00zz__evalz00,
		BgL_bgl_string2805za700za7za7_2983za7, "TAG-330", 7);
	      BGL_DEFINE_STRING(BGl_string2724z00zz__evalz00,
		BgL_bgl_string2724za700za7za7_2984za7, "Illegal repl-printer (wrong arity)",
		34);
	      BGL_DEFINE_STRING(BGl_string2806z00zz__evalz00,
		BgL_bgl_string2806za700za7za7_2985za7, "<@anonymous:1811>", 17);
	      BGL_DEFINE_STRING(BGl_string2725z00zz__evalz00,
		BgL_bgl_string2725za700za7za7_2986za7, "&set-repl-printer!", 18);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2719z00zz__evalz00,
		BgL_bgl_za762za7c3za704anonymo2987za7,
		BGl_z62zc3z04anonymousza31469ze3ze5zz__evalz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2807z00zz__evalz00,
		BgL_bgl_string2807za700za7za7_2988za7, "map", 3);
	      BGL_DEFINE_STRING(BGl_string2726z00zz__evalz00,
		BgL_bgl_string2726za700za7za7_2989za7, "?* ", 3);
	      BGL_DEFINE_STRING(BGl_string2808z00zz__evalz00,
		BgL_bgl_string2808za700za7za7_2990za7, "list", 4);
	      BGL_DEFINE_STRING(BGl_string2727z00zz__evalz00,
		BgL_bgl_string2727za700za7za7_2991za7, "loop", 4);
	      BGL_DEFINE_STRING(BGl_string2728z00zz__evalz00,
		BgL_bgl_string2728za700za7za7_2992za7, "quit", 4);
	     
		DEFINE_STATIC_BGL_PROCEDURE(BGl_bytezd2codezd2evaluatezd2envzd2zz__evalz00,
		BgL_bgl_za762byteza7d2codeza7d2993za7,
		BGl_z62bytezd2codezd2evaluatez62zz__evalz00, 0L, BUNSPEC, 3);
	      BGL_DEFINE_STRING(BGl_string2810z00zz__evalz00,
		BgL_bgl_string2810za700za7za7_2994za7, "x", 1);
	      BGL_DEFINE_STRING(BGl_string2730z00zz__evalz00,
		BgL_bgl_string2730za700za7za7_2995za7, "find-file", 9);
	      BGL_DEFINE_STRING(BGl_string2731z00zz__evalz00,
		BgL_bgl_string2731za700za7za7_2996za7, "Illegal file name", 17);
	      BGL_DEFINE_STRING(BGl_string2813z00zz__evalz00,
		BgL_bgl_string2813za700za7za7_2997za7, "quote", 5);
	      BGL_DEFINE_STRING(BGl_string2732z00zz__evalz00,
		BgL_bgl_string2732za700za7za7_2998za7, "_load", 5);
	      BGL_DEFINE_STRING(BGl_string2815z00zz__evalz00,
		BgL_bgl_string2815za700za7za7_2999za7, "define-hygiene-macro", 20);
	      BGL_DEFINE_STRING(BGl_string2734z00zz__evalz00,
		BgL_bgl_string2734za700za7za7_3000za7, "load", 4);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_identifierzd2syntaxzd2setz12zd2envzc0zz__evalz00,
		BgL_bgl_za762identifierza7d23001z00,
		BGl_z62identifierzd2syntaxzd2setz12z70zz__evalz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_setzd2replzd2errorzd2notifierz12zd2envz12zz__evalz00,
		BgL_bgl_za762setza7d2replza7d23002za7,
		BGl_z62setzd2replzd2errorzd2notifierz12za2zz__evalz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2816z00zz__evalz00,
		BgL_bgl_string2816za700za7za7_3003za7, "expand-define-hygiene-macro", 27);
	      BGL_DEFINE_STRING(BGl_string2735z00zz__evalz00,
		BgL_bgl_string2735za700za7za7_3004za7, "_loadq", 6);
	      BGL_DEFINE_STRING(BGl_string2817z00zz__evalz00,
		BgL_bgl_string2817za700za7za7_3005za7,
		"Illegal `define-hygiene-macro' syntax", 37);
	      BGL_DEFINE_STRING(BGl_string2818z00zz__evalz00,
		BgL_bgl_string2818za700za7za7_3006za7, "handler1165", 11);
	      BGL_DEFINE_STRING(BGl_string2737z00zz__evalz00,
		BgL_bgl_string2737za700za7za7_3007za7, "loadq", 5);
	      BGL_DEFINE_STRING(BGl_string2819z00zz__evalz00,
		BgL_bgl_string2819za700za7za7_3008za7, "TAG-361", 7);
	      BGL_DEFINE_STRING(BGl_string2738z00zz__evalz00,
		BgL_bgl_string2738za700za7za7_3009za7, "loadv", 5);
	      BGL_DEFINE_STRING(BGl_string2739z00zz__evalz00,
		BgL_bgl_string2739za700za7za7_3010za7, "epair", 5);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_expandzd2definezd2macrozd2envzd2zz__evalz00,
		BgL_bgl_za762expandza7d2defi3011z00,
		BGl_z62expandzd2definezd2macroz62zz__evalz00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string2820z00zz__evalz00,
		BgL_bgl_string2820za700za7za7_3012za7, "<@exit:1740>~0", 14);
	      BGL_DEFINE_STRING(BGl_string2822z00zz__evalz00,
		BgL_bgl_string2822za700za7za7_3013za7, "null?", 5);
	      BGL_DEFINE_STRING(BGl_string2741z00zz__evalz00,
		BgL_bgl_string2741za700za7za7_3014za7, "module", 6);
	      BGL_DEFINE_STRING(BGl_string2824z00zz__evalz00,
		BgL_bgl_string2824za700za7za7_3015za7, "not", 3);
	      BGL_DEFINE_STRING(BGl_string2743z00zz__evalz00,
		BgL_bgl_string2743za700za7za7_3016za7, "main", 4);
	      BGL_DEFINE_STRING(BGl_string2662z00zz__evalz00,
		BgL_bgl_string2662za700za7za7_3017za7, "User", 4);
	      BGL_DEFINE_STRING(BGl_string2825z00zz__evalz00,
		BgL_bgl_string2825za700za7za7_3018za7, "Too many arguments provided", 27);
	      BGL_DEFINE_STRING(BGl_string2744z00zz__evalz00,
		BgL_bgl_string2744za700za7za7_3019za7, "Illegal main clause", 19);
	      BGL_DEFINE_STRING(BGl_string2664z00zz__evalz00,
		BgL_bgl_string2664za700za7za7_3020za7, "bigloo-r5rs", 11);
	      BGL_DEFINE_STRING(BGl_string2827z00zz__evalz00,
		BgL_bgl_string2827za700za7za7_3021za7, "if", 2);
	      BGL_DEFINE_STRING(BGl_string2665z00zz__evalz00,
		BgL_bgl_string2665za700za7za7_3022za7, ":=> ", 4);
	      BGL_DEFINE_STRING(BGl_string2747z00zz__evalz00,
		BgL_bgl_string2747za700za7za7_3023za7, "command-line", 12);
	      BGL_DEFINE_STRING(BGl_string2829z00zz__evalz00,
		BgL_bgl_string2829za700za7za7_3024za7, "pair?", 5);
	      BGL_DEFINE_STRING(BGl_string2748z00zz__evalz00,
		BgL_bgl_string2748za700za7za7_3025za7, "Can't open file", 15);
	      BGL_DEFINE_STRING(BGl_string2667z00zz__evalz00,
		BgL_bgl_string2667za700za7za7_3026za7, "_", 1);
	      BGL_DEFINE_STRING(BGl_string2669z00zz__evalz00,
		BgL_bgl_string2669za700za7za7_3027za7, "classic", 7);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_interactionzd2environmentzd2envz00zz__evalz00,
		BgL_bgl_za762interactionza7d3028z00,
		BGl_z62interactionzd2environmentzb0zz__evalz00, 0L, BUNSPEC, 0);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2660z00zz__evalz00,
		BgL_bgl_za762za7c3za704za7a2prom3029z00,
		BGl_z62zc3z04za2promptza2za31378ze3ze5zz__evalz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2661z00zz__evalz00,
		BgL_bgl_za762za7c3za704za7a2repl3030z00,
		BGl_z62zc3z04za2replzd2quitza2za31382ze3z37zz__evalz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2831z00zz__evalz00,
		BgL_bgl_string2831za700za7za7_3031za7, "car", 3);
	      BGL_DEFINE_STRING(BGl_string2750z00zz__evalz00,
		BgL_bgl_string2750za700za7za7_3032za7, "expand-define-expander", 22);
	      BGL_DEFINE_STRING(BGl_string2832z00zz__evalz00,
		BgL_bgl_string2832za700za7za7_3033za7, "Missing value for argument", 26);
	      BGL_DEFINE_STRING(BGl_string2833z00zz__evalz00,
		BgL_bgl_string2833za700za7za7_3034za7, "loop~0", 6);
	      BGL_DEFINE_STRING(BGl_string2752z00zz__evalz00,
		BgL_bgl_string2752za700za7za7_3035za7, "define-expander", 15);
	      BGL_DEFINE_STRING(BGl_string2671z00zz__evalz00,
		BgL_bgl_string2671za700za7za7_3036za7, "new", 3);
	      BGL_DEFINE_STRING(BGl_string2834z00zz__evalz00,
		BgL_bgl_string2834za700za7za7_3037za7, "Illegal macro parameter", 23);
	      BGL_DEFINE_STRING(BGl_string2753z00zz__evalz00,
		BgL_bgl_string2753za700za7za7_3038za7, "Illegal `define-expander' syntax",
		32);
	      BGL_DEFINE_STRING(BGl_string2672z00zz__evalz00,
		BgL_bgl_string2672za700za7za7_3039za7, "eval-evaluate-set!", 18);
	      BGL_DEFINE_STRING(BGl_string2754z00zz__evalz00,
		BgL_bgl_string2754za700za7za7_3040za7, "handler1115", 11);
	      BGL_DEFINE_STRING(BGl_string2673z00zz__evalz00,
		BgL_bgl_string2673za700za7za7_3041za7, "Illegal compiler", 16);
	      BGL_DEFINE_STRING(BGl_string2836z00zz__evalz00,
		BgL_bgl_string2836za700za7za7_3042za7, "string?", 7);
	      BGL_DEFINE_STRING(BGl_string2755z00zz__evalz00,
		BgL_bgl_string2755za700za7za7_3043za7, "TAG-118", 7);
	      BGL_DEFINE_STRING(BGl_string2674z00zz__evalz00,
		BgL_bgl_string2674za700za7za7_3044za7, "/tmp/bigloo/runtime/Eval/eval.scm",
		33);
	      BGL_DEFINE_STRING(BGl_string2756z00zz__evalz00,
		BgL_bgl_string2756za700za7za7_3045za7, "<@anonymous:1559>", 17);
	      BGL_DEFINE_STRING(BGl_string2675z00zz__evalz00,
		BgL_bgl_string2675za700za7za7_3046za7, "_eval", 5);
	      BGL_DEFINE_STRING(BGl_string2838z00zz__evalz00,
		BgL_bgl_string2838za700za7za7_3047za7, "error/location", 14);
	      BGL_DEFINE_STRING(BGl_string2757z00zz__evalz00,
		BgL_bgl_string2757za700za7za7_3048za7,
		"wrong number of argument for expand", 35);
	      BGL_DEFINE_STRING(BGl_string2676z00zz__evalz00,
		BgL_bgl_string2676za700za7za7_3049za7, "vector", 6);
	      BGL_DEFINE_STRING(BGl_string2758z00zz__evalz00,
		BgL_bgl_string2758za700za7za7_3050za7, "illegal expander", 16);
	      BGL_DEFINE_STRING(BGl_string2759z00zz__evalz00,
		BgL_bgl_string2759za700za7za7_3051za7, "<@exit:1562>~0", 14);
	      BGL_DEFINE_STRING(BGl_string2678z00zz__evalz00,
		BgL_bgl_string2678za700za7za7_3052za7, "interaction-environment", 23);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_nativezd2replzd2printerzd2envzd2zz__evalz00,
		BgL_bgl_za762nativeza7d2repl3053z00,
		BGl_z62nativezd2replzd2printerz62zz__evalz00, 0L, BUNSPEC, 0);
	      BGL_DEFINE_STRING(BGl_string2679z00zz__evalz00,
		BgL_bgl_string2679za700za7za7_3054za7, "procedure", 9);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_nullzd2environmentzd2envz00zz__evalz00,
		BgL_bgl_za762nullza7d2enviro3055z00,
		BGl_z62nullzd2environmentzb0zz__evalz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_setzd2replzd2printerz12zd2envzc0zz__evalz00,
		BgL_bgl_za762setza7d2replza7d23056za7,
		BGl_z62setzd2replzd2printerz12z70zz__evalz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_notifyzd2assertzd2failzd2envzd2zz__evalz00,
		BgL_bgl_za762notifyza7d2asse3057z00,
		BGl_z62notifyzd2assertzd2failz62zz__evalz00, 0L, BUNSPEC, 3);

/* contant bindings */
	static void bgl_constant_bindings()
	{
		BGL_BIND_PROCEDURE(BGl_notifyzd2assertzd2failzd2envzd2zz__evalz00,
			BgL_bgl_za762notifyza7d2asse3057z00);
		BGL_BIND_PROCEDURE(BGl_setzd2replzd2printerz12zd2envzc0zz__evalz00,
			BgL_bgl_za762setza7d2replza7d23056za7);
		BGL_BIND_PROCEDURE(BGl_nullzd2environmentzd2envz00zz__evalz00,
			BgL_bgl_za762nullza7d2enviro3055z00);
		BGL_BIND_STRING(BGl_string2679z00zz__evalz00,
			BgL_bgl_string2679za700za7za7_3054za7);
		BGL_BIND_PROCEDURE(BGl_nativezd2replzd2printerzd2envzd2zz__evalz00,
			BgL_bgl_za762nativeza7d2repl3053z00);
		BGL_BIND_STRING(BGl_string2678z00zz__evalz00,
			BgL_bgl_string2678za700za7za7_3052za7);
		BGL_BIND_STRING(BGl_string2759z00zz__evalz00,
			BgL_bgl_string2759za700za7za7_3051za7);
		BGL_BIND_STRING(BGl_string2758z00zz__evalz00,
			BgL_bgl_string2758za700za7za7_3050za7);
		BGL_BIND_STRING(BGl_string2676z00zz__evalz00,
			BgL_bgl_string2676za700za7za7_3049za7);
		BGL_BIND_STRING(BGl_string2757z00zz__evalz00,
			BgL_bgl_string2757za700za7za7_3048za7);
		BGL_BIND_STRING(BGl_string2838z00zz__evalz00,
			BgL_bgl_string2838za700za7za7_3047za7);
		BGL_BIND_STRING(BGl_string2675z00zz__evalz00,
			BgL_bgl_string2675za700za7za7_3046za7);
		BGL_BIND_STRING(BGl_string2756z00zz__evalz00,
			BgL_bgl_string2756za700za7za7_3045za7);
		BGL_BIND_STRING(BGl_string2674z00zz__evalz00,
			BgL_bgl_string2674za700za7za7_3044za7);
		BGL_BIND_STRING(BGl_string2755z00zz__evalz00,
			BgL_bgl_string2755za700za7za7_3043za7);
		BGL_BIND_STRING(BGl_string2836z00zz__evalz00,
			BgL_bgl_string2836za700za7za7_3042za7);
		BGL_BIND_STRING(BGl_string2673z00zz__evalz00,
			BgL_bgl_string2673za700za7za7_3041za7);
		BGL_BIND_STRING(BGl_string2754z00zz__evalz00,
			BgL_bgl_string2754za700za7za7_3040za7);
		BGL_BIND_STRING(BGl_string2672z00zz__evalz00,
			BgL_bgl_string2672za700za7za7_3039za7);
		BGL_BIND_STRING(BGl_string2753z00zz__evalz00,
			BgL_bgl_string2753za700za7za7_3038za7);
		BGL_BIND_STRING(BGl_string2834z00zz__evalz00,
			BgL_bgl_string2834za700za7za7_3037za7);
		BGL_BIND_STRING(BGl_string2671z00zz__evalz00,
			BgL_bgl_string2671za700za7za7_3036za7);
		BGL_BIND_STRING(BGl_string2752z00zz__evalz00,
			BgL_bgl_string2752za700za7za7_3035za7);
		BGL_BIND_STRING(BGl_string2833z00zz__evalz00,
			BgL_bgl_string2833za700za7za7_3034za7);
		BGL_BIND_STRING(BGl_string2832z00zz__evalz00,
			BgL_bgl_string2832za700za7za7_3033za7);
		BGL_BIND_STRING(BGl_string2750z00zz__evalz00,
			BgL_bgl_string2750za700za7za7_3032za7);
		BGL_BIND_STRING(BGl_string2831z00zz__evalz00,
			BgL_bgl_string2831za700za7za7_3031za7);
		BGL_BIND_PROCEDURE(BGl_proc2661z00zz__evalz00,
			BgL_bgl_za762za7c3za704za7a2repl3030z00);
		BGL_BIND_PROCEDURE(BGl_proc2660z00zz__evalz00,
			BgL_bgl_za762za7c3za704za7a2prom3029z00);
		BGL_BIND_PROCEDURE(BGl_interactionzd2environmentzd2envz00zz__evalz00,
			BgL_bgl_za762interactionza7d3028z00);
		BGL_BIND_STRING(BGl_string2669z00zz__evalz00,
			BgL_bgl_string2669za700za7za7_3027za7);
		BGL_BIND_STRING(BGl_string2667z00zz__evalz00,
			BgL_bgl_string2667za700za7za7_3026za7);
		BGL_BIND_STRING(BGl_string2748z00zz__evalz00,
			BgL_bgl_string2748za700za7za7_3025za7);
		BGL_BIND_STRING(BGl_string2829z00zz__evalz00,
			BgL_bgl_string2829za700za7za7_3024za7);
		BGL_BIND_STRING(BGl_string2747z00zz__evalz00,
			BgL_bgl_string2747za700za7za7_3023za7);
		BGL_BIND_STRING(BGl_string2665z00zz__evalz00,
			BgL_bgl_string2665za700za7za7_3022za7);
		BGL_BIND_STRING(BGl_string2827z00zz__evalz00,
			BgL_bgl_string2827za700za7za7_3021za7);
		BGL_BIND_STRING(BGl_string2664z00zz__evalz00,
			BgL_bgl_string2664za700za7za7_3020za7);
		BGL_BIND_STRING(BGl_string2744z00zz__evalz00,
			BgL_bgl_string2744za700za7za7_3019za7);
		BGL_BIND_STRING(BGl_string2825z00zz__evalz00,
			BgL_bgl_string2825za700za7za7_3018za7);
		BGL_BIND_STRING(BGl_string2662z00zz__evalz00,
			BgL_bgl_string2662za700za7za7_3017za7);
		BGL_BIND_STRING(BGl_string2743z00zz__evalz00,
			BgL_bgl_string2743za700za7za7_3016za7);
		BGL_BIND_STRING(BGl_string2824z00zz__evalz00,
			BgL_bgl_string2824za700za7za7_3015za7);
		BGL_BIND_STRING(BGl_string2741z00zz__evalz00,
			BgL_bgl_string2741za700za7za7_3014za7);
		BGL_BIND_STRING(BGl_string2822z00zz__evalz00,
			BgL_bgl_string2822za700za7za7_3013za7);
		BGL_BIND_STRING(BGl_string2820z00zz__evalz00,
			BgL_bgl_string2820za700za7za7_3012za7);
		BGL_BIND_PROCEDURE(BGl_expandzd2definezd2macrozd2envzd2zz__evalz00,
			BgL_bgl_za762expandza7d2defi3011z00);
		BGL_BIND_STRING(BGl_string2739z00zz__evalz00,
			BgL_bgl_string2739za700za7za7_3010za7);
		BGL_BIND_STRING(BGl_string2738z00zz__evalz00,
			BgL_bgl_string2738za700za7za7_3009za7);
		BGL_BIND_STRING(BGl_string2819z00zz__evalz00,
			BgL_bgl_string2819za700za7za7_3008za7);
		BGL_BIND_STRING(BGl_string2737z00zz__evalz00,
			BgL_bgl_string2737za700za7za7_3007za7);
		BGL_BIND_STRING(BGl_string2818z00zz__evalz00,
			BgL_bgl_string2818za700za7za7_3006za7);
		BGL_BIND_STRING(BGl_string2817z00zz__evalz00,
			BgL_bgl_string2817za700za7za7_3005za7);
		BGL_BIND_STRING(BGl_string2735z00zz__evalz00,
			BgL_bgl_string2735za700za7za7_3004za7);
		BGL_BIND_STRING(BGl_string2816z00zz__evalz00,
			BgL_bgl_string2816za700za7za7_3003za7);
		BGL_BIND_PROCEDURE(BGl_setzd2replzd2errorzd2notifierz12zd2envz12zz__evalz00,
			BgL_bgl_za762setza7d2replza7d23002za7);
		BGL_BIND_PROCEDURE(BGl_identifierzd2syntaxzd2setz12zd2envzc0zz__evalz00,
			BgL_bgl_za762identifierza7d23001z00);
		BGL_BIND_STRING(BGl_string2734z00zz__evalz00,
			BgL_bgl_string2734za700za7za7_3000za7);
		BGL_BIND_STRING(BGl_string2815z00zz__evalz00,
			BgL_bgl_string2815za700za7za7_2999za7);
		BGL_BIND_STRING(BGl_string2732z00zz__evalz00,
			BgL_bgl_string2732za700za7za7_2998za7);
		BGL_BIND_STRING(BGl_string2813z00zz__evalz00,
			BgL_bgl_string2813za700za7za7_2997za7);
		BGL_BIND_STRING(BGl_string2731z00zz__evalz00,
			BgL_bgl_string2731za700za7za7_2996za7);
		BGL_BIND_STRING(BGl_string2730z00zz__evalz00,
			BgL_bgl_string2730za700za7za7_2995za7);
		BGL_BIND_STRING(BGl_string2810z00zz__evalz00,
			BgL_bgl_string2810za700za7za7_2994za7);
		BGL_BIND_PROCEDURE(BGl_bytezd2codezd2evaluatezd2envzd2zz__evalz00,
			BgL_bgl_za762byteza7d2codeza7d2993za7);
		BGL_BIND_STRING(BGl_string2728z00zz__evalz00,
			BgL_bgl_string2728za700za7za7_2992za7);
		BGL_BIND_STRING(BGl_string2727z00zz__evalz00,
			BgL_bgl_string2727za700za7za7_2991za7);
		BGL_BIND_STRING(BGl_string2808z00zz__evalz00,
			BgL_bgl_string2808za700za7za7_2990za7);
		BGL_BIND_STRING(BGl_string2726z00zz__evalz00,
			BgL_bgl_string2726za700za7za7_2989za7);
		BGL_BIND_STRING(BGl_string2807z00zz__evalz00,
			BgL_bgl_string2807za700za7za7_2988za7);
		BGL_BIND_PROCEDURE(BGl_proc2719z00zz__evalz00,
			BgL_bgl_za762za7c3za704anonymo2987za7);
		BGL_BIND_STRING(BGl_string2725z00zz__evalz00,
			BgL_bgl_string2725za700za7za7_2986za7);
		BGL_BIND_STRING(BGl_string2806z00zz__evalz00,
			BgL_bgl_string2806za700za7za7_2985za7);
		BGL_BIND_STRING(BGl_string2724z00zz__evalz00,
			BgL_bgl_string2724za700za7za7_2984za7);
		BGL_BIND_STRING(BGl_string2805z00zz__evalz00,
			BgL_bgl_string2805za700za7za7_2983za7);
		BGL_BIND_STRING(BGl_string2723z00zz__evalz00,
			BgL_bgl_string2723za700za7za7_2982za7);
		BGL_BIND_STRING(BGl_string2804z00zz__evalz00,
			BgL_bgl_string2804za700za7za7_2981za7);
		BGL_BIND_STRING(BGl_string2803z00zz__evalz00,
			BgL_bgl_string2803za700za7za7_2980za7);
		BGL_BIND_STRING(BGl_string2721z00zz__evalz00,
			BgL_bgl_string2721za700za7za7_2979za7);
		BGL_BIND_STRING(BGl_string2802z00zz__evalz00,
			BgL_bgl_string2802za700za7za7_2978za7);
		BGL_BIND_STRING(BGl_string2720z00zz__evalz00,
			BgL_bgl_string2720za700za7za7_2977za7);
		BGL_BIND_STRING(BGl_string2801z00zz__evalz00,
			BgL_bgl_string2801za700za7za7_2976za7);
		BGL_BIND_STRING(BGl_string2800z00zz__evalz00,
			BgL_bgl_string2800za700za7za7_2975za7);
		BGL_BIND_PROCEDURE(BGl_transcriptzd2onzd2envz00zz__evalz00,
			BgL_bgl_za762transcriptza7d22974z00);
		BGL_BIND_STRING(BGl_string2718z00zz__evalz00,
			BgL_bgl_string2718za700za7za7_2973za7);
		BGL_BIND_STRING(BGl_string2717z00zz__evalz00,
			BgL_bgl_string2717za700za7za7_2972za7);
		BGL_BIND_STRING(BGl_string2716z00zz__evalz00,
			BgL_bgl_string2716za700za7za7_2971za7);
		BGL_BIND_STRING(BGl_string2715z00zz__evalz00,
			BgL_bgl_string2715za700za7za7_2970za7);
		BGL_BIND_STRING(BGl_string2714z00zz__evalz00,
			BgL_bgl_string2714za700za7za7_2969za7);
		BGL_BIND_STRING(BGl_string2713z00zz__evalz00,
			BgL_bgl_string2713za700za7za7_2968za7);
		BGL_BIND_STRING(BGl_string2712z00zz__evalz00,
			BgL_bgl_string2712za700za7za7_2967za7);
		BGL_BIND_PROCEDURE(BGl_proc2705z00zz__evalz00,
			BgL_bgl_za762za7c3za704anonymo2966za7);
		BGL_BIND_STRING(BGl_string2711z00zz__evalz00,
			BgL_bgl_string2711za700za7za7_2965za7);
		BGL_BIND_STRING(BGl_string2710z00zz__evalz00,
			BgL_bgl_string2710za700za7za7_2964za7);
		BGL_BIND_PROCEDURE(BGl_getzd2replzd2errorzd2notifierzd2envz00zz__evalz00,
			BgL_bgl_za762getza7d2replza7d22963za7);
		BGL_BIND_PROCEDURE(BGl_quitzd2envzd2zz__evalz00,
			BgL_bgl_za762quit2278za762za7za72962z00);
		BGL_BIND_PROCEDURE(BGl_loadzd2envzd2zz__evalz00,
			BgL_bgl__loadza700za7za7__eval2961za7);
		BGL_BIND_STRING(BGl_string2709z00zz__evalz00,
			BgL_bgl_string2709za700za7za7_2960za7);
		BGL_BIND_STRING(BGl_string2708z00zz__evalz00,
			BgL_bgl_string2708za700za7za7_2959za7);
		BGL_BIND_STRING(BGl_string2707z00zz__evalz00,
			BgL_bgl_string2707za700za7za7_2958za7);
		BGL_BIND_STRING(BGl_string2706z00zz__evalz00,
			BgL_bgl_string2706za700za7za7_2957za7);
		BGL_BIND_STRING(BGl_string2704z00zz__evalz00,
			BgL_bgl_string2704za700za7za7_2956za7);
		BGL_BIND_STRING(BGl_string2703z00zz__evalz00,
			BgL_bgl_string2703za700za7za7_2955za7);
		BGL_BIND_STRING(BGl_string2702z00zz__evalz00,
			BgL_bgl_string2702za700za7za7_2954za7);
		BGL_BIND_STRING(BGl_string2701z00zz__evalz00,
			BgL_bgl_string2701za700za7za7_2953za7);
		BGL_BIND_STRING(BGl_string2700z00zz__evalz00,
			BgL_bgl_string2700za700za7za7_2952za7);
		BGL_BIND_PROCEDURE(BGl_defaultzd2environmentzd2envz00zz__evalz00,
			BgL_bgl_za762defaultza7d2env2951z00);
		BGL_BIND_PROCEDURE(BGl_defaultzd2replzd2printerzd2envzd2zz__evalz00,
			BgL_bgl_za762defaultza7d2rep2950z00);
		BGL_BIND_PROCEDURE(BGl_expandzd2definezd2expanderzd2envzd2zz__evalz00,
			BgL_bgl_za762expandza7d2defi2949z00);
		BGL_BIND_PROCEDURE(BGl_transcriptzd2offzd2envz00zz__evalz00,
			BgL_bgl_za762transcriptza7d22948z00);
		BGL_BIND_PROCEDURE(BGl_loadqzd2envzd2zz__evalz00,
			BgL_bgl__loadqza700za7za7__eva2947za7);
		BGL_BIND_PROCEDURE(BGl_expandzd2definezd2patternzd2envzd2zz__evalz00,
			BgL_bgl_za762expandza7d2defi2946z00);
		BGL_BIND_PROCEDURE(BGl_bytezd2codezd2runzd2envzd2zz__evalz00,
			BgL_bgl_za762byteza7d2codeza7d2945za7);
		BGL_BIND_PROCEDURE(BGl_evalz12zd2envzc0zz__evalz00,
			BgL_bgl__evalza712za712za7za7__e2944z00);
		BGL_BIND_PROCEDURE(BGl_setzd2prompterz12zd2envz12zz__evalz00,
			BgL_bgl_za762setza7d2prompte2943z00);
		BGL_BIND_PROCEDURE(BGl_getzd2prompterzd2envz00zz__evalz00,
			BgL_bgl_za762getza7d2prompte2942z00);
		BGL_BIND_PROCEDURE(BGl_czd2debugzd2replzd2envzd2zz__evalz00,
			BgL_bgl_za762cza7d2debugza7d2r2941za7);
		BGL_BIND_PROCEDURE(BGl_replzd2envzd2zz__evalz00,
			BgL_bgl_za762replza762za7za7__ev2940z00);
		BGL_BIND_PROCEDURE(BGl_evalzd2envzd2zz__evalz00,
			BgL_bgl__evalza700za7za7__eval2939za7);
		BGL_BIND_STRING(BGl_string2798z00zz__evalz00,
			BgL_bgl_string2798za700za7za7_2938za7);
		BGL_BIND_STRING(BGl_string2797z00zz__evalz00,
			BgL_bgl_string2797za700za7za7_2937za7);
		BGL_BIND_STRING(BGl_string2795z00zz__evalz00,
			BgL_bgl_string2795za700za7za7_2936za7);
		BGL_BIND_STRING(BGl_string2793z00zz__evalz00,
			BgL_bgl_string2793za700za7za7_2935za7);
		BGL_BIND_STRING(BGl_string2791z00zz__evalz00,
			BgL_bgl_string2791za700za7za7_2934za7);
		BGL_BIND_STRING(BGl_string2872z00zz__evalz00,
			BgL_bgl_string2872za700za7za7_2933za7);
		BGL_BIND_STRING(BGl_string2871z00zz__evalz00,
			BgL_bgl_string2871za700za7za7_2932za7);
		BGL_BIND_PROCEDURE(BGl_evalzd2evaluatezd2setz12zd2envzc0zz__evalz00,
			BgL_bgl_za762evalza7d2evalua2931z00);
		BGL_BIND_STRING(BGl_string2789z00zz__evalz00,
			BgL_bgl_string2789za700za7za7_2930za7);
		BGL_BIND_STRING(BGl_string2869z00zz__evalz00,
			BgL_bgl_string2869za700za7za7_2929za7);
		BGL_BIND_STRING(BGl_string2787z00zz__evalz00,
			BgL_bgl_string2787za700za7za7_2928za7);
		BGL_BIND_STRING(BGl_string2868z00zz__evalz00,
			BgL_bgl_string2868za700za7za7_2927za7);
		BGL_BIND_STRING(BGl_string2867z00zz__evalz00,
			BgL_bgl_string2867za700za7za7_2926za7);
		BGL_BIND_STRING(BGl_string2785z00zz__evalz00,
			BgL_bgl_string2785za700za7za7_2925za7);
		BGL_BIND_STRING(BGl_string2784z00zz__evalz00,
			BgL_bgl_string2784za700za7za7_2924za7);
		BGL_BIND_STRING(BGl_string2865z00zz__evalz00,
			BgL_bgl_string2865za700za7za7_2923za7);
		BGL_BIND_STRING(BGl_string2864z00zz__evalz00,
			BgL_bgl_string2864za700za7za7_2922za7);
		BGL_BIND_STRING(BGl_string2781z00zz__evalz00,
			BgL_bgl_string2781za700za7za7_2921za7);
		BGL_BIND_STRING(BGl_string2862z00zz__evalz00,
			BgL_bgl_string2862za700za7za7_2920za7);
		BGL_BIND_STRING(BGl_string2861z00zz__evalz00,
			BgL_bgl_string2861za700za7za7_2919za7);
		BGL_BIND_PROCEDURE(BGl_proc2854z00zz__evalz00,
			BgL_bgl_za762za7c3za704anonymo2918za7);
		BGL_BIND_STRING(BGl_string2860z00zz__evalz00,
			BgL_bgl_string2860za700za7za7_2917za7);
		BGL_BIND_PROCEDURE(BGl_schemezd2reportzd2environmentzd2envzd2zz__evalz00,
			BgL_bgl_za762schemeza7d2repo2916z00);
		BGL_BIND_STRING(BGl_string2779z00zz__evalz00,
			BgL_bgl_string2779za700za7za7_2915za7);
		BGL_BIND_STRING(BGl_string2697z00zz__evalz00,
			BgL_bgl_string2697za700za7za7_2914za7);
		BGL_BIND_STRING(BGl_string2859z00zz__evalz00,
			BgL_bgl_string2859za700za7za7_2913za7);
		BGL_BIND_STRING(BGl_string2696z00zz__evalz00,
			BgL_bgl_string2696za700za7za7_2912za7);
		BGL_BIND_STRING(BGl_string2777z00zz__evalz00,
			BgL_bgl_string2777za700za7za7_2911za7);
		BGL_BIND_PROCEDURE(BGl_identifierzd2syntaxzd2envz00zz__evalz00,
			BgL_bgl_za762identifierza7d22910z00);
		BGL_BIND_STRING(BGl_string2857z00zz__evalz00,
			BgL_bgl_string2857za700za7za7_2909za7);
		BGL_BIND_STRING(BGl_string2694z00zz__evalz00,
			BgL_bgl_string2694za700za7za7_2908za7);
		BGL_BIND_STRING(BGl_string2775z00zz__evalz00,
			BgL_bgl_string2775za700za7za7_2907za7);
		BGL_BIND_STRING(BGl_string2856z00zz__evalz00,
			BgL_bgl_string2856za700za7za7_2906za7);
		BGL_BIND_STRING(BGl_string2693z00zz__evalz00,
			BgL_bgl_string2693za700za7za7_2905za7);
		BGL_BIND_STRING(BGl_string2855z00zz__evalz00,
			BgL_bgl_string2855za700za7za7_2904za7);
		BGL_BIND_STRING(BGl_string2692z00zz__evalz00,
			BgL_bgl_string2692za700za7za7_2903za7);
		BGL_BIND_STRING(BGl_string2773z00zz__evalz00,
			BgL_bgl_string2773za700za7za7_2902za7);
		BGL_BIND_STRING(BGl_string2691z00zz__evalz00,
			BgL_bgl_string2691za700za7za7_2901za7);
		BGL_BIND_STRING(BGl_string2853z00zz__evalz00,
			BgL_bgl_string2853za700za7za7_2900za7);
		BGL_BIND_PROCEDURE(BGl_bytezd2codezd2compilezd2envzd2zz__evalz00,
			BgL_bgl__byteza7d2codeza7d2c2899z00);
		BGL_BIND_STRING(BGl_string2690z00zz__evalz00,
			BgL_bgl_string2690za700za7za7_2898za7);
		BGL_BIND_STRING(BGl_string2771z00zz__evalz00,
			BgL_bgl_string2771za700za7za7_2897za7);
		BGL_BIND_STRING(BGl_string2852z00zz__evalz00,
			BgL_bgl_string2852za700za7za7_2896za7);
		BGL_BIND_STRING(BGl_string2851z00zz__evalz00,
			BgL_bgl_string2851za700za7za7_2895za7);
		BGL_BIND_STRING(BGl_string2850z00zz__evalz00,
			BgL_bgl_string2850za700za7za7_2894za7);
		BGL_BIND_PROCEDURE
			(BGl_expandzd2definezd2hygienezd2macrozd2envz00zz__evalz00,
			BgL_bgl_za762expandza7d2defi2893z00);
		BGL_BIND_STRING(BGl_string2689z00zz__evalz00,
			BgL_bgl_string2689za700za7za7_2892za7);
		BGL_BIND_STRING(BGl_string2769z00zz__evalz00,
			BgL_bgl_string2769za700za7za7_2891za7);
		BGL_BIND_STRING(BGl_string2687z00zz__evalz00,
			BgL_bgl_string2687za700za7za7_2890za7);
		BGL_BIND_STRING(BGl_string2849z00zz__evalz00,
			BgL_bgl_string2849za700za7za7_2889za7);
		BGL_BIND_STRING(BGl_string2686z00zz__evalz00,
			BgL_bgl_string2686za700za7za7_2888za7);
		BGL_BIND_STRING(BGl_string2767z00zz__evalz00,
			BgL_bgl_string2767za700za7za7_2887za7);
		BGL_BIND_STRING(BGl_string2848z00zz__evalz00,
			BgL_bgl_string2848za700za7za7_2886za7);
		BGL_BIND_STRING(BGl_string2685z00zz__evalz00,
			BgL_bgl_string2685za700za7za7_2885za7);
		BGL_BIND_STRING(BGl_string2847z00zz__evalz00,
			BgL_bgl_string2847za700za7za7_2884za7);
		BGL_BIND_STRING(BGl_string2684z00zz__evalz00,
			BgL_bgl_string2684za700za7za7_2883za7);
		BGL_BIND_STRING(BGl_string2765z00zz__evalz00,
			BgL_bgl_string2765za700za7za7_2882za7);
		BGL_BIND_STRING(BGl_string2846z00zz__evalz00,
			BgL_bgl_string2846za700za7za7_2881za7);
		BGL_BIND_STRING(BGl_string2682z00zz__evalz00,
			BgL_bgl_string2682za700za7za7_2880za7);
		BGL_BIND_STRING(BGl_string2763z00zz__evalz00,
			BgL_bgl_string2763za700za7za7_2879za7);
		BGL_BIND_STRING(BGl_string2844z00zz__evalz00,
			BgL_bgl_string2844za700za7za7_2878za7);
		BGL_BIND_STRING(BGl_string2681z00zz__evalz00,
			BgL_bgl_string2681za700za7za7_2877za7);
		BGL_BIND_STRING(BGl_string2680z00zz__evalz00,
			BgL_bgl_string2680za700za7za7_2876za7);
		BGL_BIND_STRING(BGl_string2761z00zz__evalz00,
			BgL_bgl_string2761za700za7za7_2875za7);
		BGL_BIND_STRING(BGl_string2841z00zz__evalz00,
			BgL_bgl_string2841za700za7za7_2874za7);
		BGL_BIND_STRING(BGl_string2840z00zz__evalz00,
			BgL_bgl_string2840za700za7za7_2873za7);
	}

/* 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_symbol2722z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2809z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2729z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2812z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2814z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2733z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2736z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_requirezd2initializa7ationz75zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2821z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2740z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2823z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2742z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2663z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2826z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2746z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2828z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2666z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2668z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_za2transcriptza2z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2830z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2751z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2670z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2835z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_defaultzd2evaluatezd2zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2837z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2839z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2677z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_za2userzd2passza2zd2zz__evalz00));
		ADD_ROOT((void *) (&BGl_za2replzd2numza2zd2zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2760z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2843z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2762z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_list2811z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2845z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2764z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2766z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2768z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2688z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2770z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2772z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2774z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2776z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2695z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2858z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2778z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_list2745z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2698z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2699z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_za2loadzd2verboseza2zd2zz__evalz00));
		ADD_ROOT((void *) (&BGl_za2replzd2printerza2zd2zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2780z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2863z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2783z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2866z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2786z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2788z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_za2userzd2passzd2nameza2z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2870z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2790z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2792z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_list2842z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2794z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2796z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_symbol2799z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_za2loadzd2pathza2zd2zz__evalz00));
		ADD_ROOT((void *) (&BGl_za2czd2debugzd2replzd2valueza2zd2zz__evalz00));
		ADD_ROOT((void *) (&BGl_list2782z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_za2nilza2z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_keyword2749z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_za2identifierzd2syntaxza2zd2zz__evalz00));
		ADD_ROOT((void *) (&BGl_za2promptza2z00zz__evalz00));
		ADD_ROOT((void *) (&BGl_za2replzd2quitza2zd2zz__evalz00));
		ADD_ROOT((void *) (&BGl_keyword2683z00zz__evalz00));
#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__evalz00(long
		BgL_checksumz00_5734, char *BgL_fromz00_5735)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__evalz00))
				{
					BGl_requirezd2initializa7ationz75zz__evalz00 = BBOOL(((bool_t) 0));
					bgl_constant_bindings();
					BGl_gczd2rootszd2initz00zz__evalz00();
					BGl_cnstzd2initzd2zz__evalz00();
					BGl_importedzd2moduleszd2initz00zz__evalz00();
					BGl_evalzd2initzd2zz__evalz00();
					return BGl_toplevelzd2initzd2zz__evalz00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zz__evalz00(void)
	{
		{	/* Eval/eval.scm 18 */
			BGl_symbol2663z00zz__evalz00 =
				bstring_to_symbol(BGl_string2664z00zz__evalz00);
			BGl_symbol2666z00zz__evalz00 =
				bstring_to_symbol(BGl_string2667z00zz__evalz00);
			BGl_symbol2668z00zz__evalz00 =
				bstring_to_symbol(BGl_string2669z00zz__evalz00);
			BGl_symbol2670z00zz__evalz00 =
				bstring_to_symbol(BGl_string2671z00zz__evalz00);
			BGl_symbol2677z00zz__evalz00 =
				bstring_to_symbol(BGl_string2678z00zz__evalz00);
			BGl_keyword2683z00zz__evalz00 =
				bstring_to_keyword(BGl_string2680z00zz__evalz00);
			BGl_symbol2688z00zz__evalz00 =
				bstring_to_symbol(BGl_string2689z00zz__evalz00);
			BGl_symbol2695z00zz__evalz00 =
				bstring_to_symbol(BGl_string2693z00zz__evalz00);
			BGl_symbol2698z00zz__evalz00 =
				bstring_to_symbol(BGl_string2697z00zz__evalz00);
			BGl_symbol2699z00zz__evalz00 =
				bstring_to_symbol(BGl_string2700z00zz__evalz00);
			BGl_symbol2722z00zz__evalz00 =
				bstring_to_symbol(BGl_string2723z00zz__evalz00);
			BGl_symbol2729z00zz__evalz00 =
				bstring_to_symbol(BGl_string2730z00zz__evalz00);
			BGl_symbol2733z00zz__evalz00 =
				bstring_to_symbol(BGl_string2734z00zz__evalz00);
			BGl_symbol2736z00zz__evalz00 =
				bstring_to_symbol(BGl_string2737z00zz__evalz00);
			BGl_symbol2740z00zz__evalz00 =
				bstring_to_symbol(BGl_string2741z00zz__evalz00);
			BGl_symbol2742z00zz__evalz00 =
				bstring_to_symbol(BGl_string2743z00zz__evalz00);
			BGl_symbol2746z00zz__evalz00 =
				bstring_to_symbol(BGl_string2747z00zz__evalz00);
			BGl_list2745z00zz__evalz00 =
				MAKE_YOUNG_PAIR(BGl_symbol2746z00zz__evalz00, BNIL);
			BGl_keyword2749z00zz__evalz00 =
				bstring_to_keyword(BGl_string2682z00zz__evalz00);
			BGl_symbol2751z00zz__evalz00 =
				bstring_to_symbol(BGl_string2752z00zz__evalz00);
			BGl_symbol2760z00zz__evalz00 =
				bstring_to_symbol(BGl_string2761z00zz__evalz00);
			BGl_symbol2762z00zz__evalz00 =
				bstring_to_symbol(BGl_string2763z00zz__evalz00);
			BGl_symbol2764z00zz__evalz00 =
				bstring_to_symbol(BGl_string2765z00zz__evalz00);
			BGl_symbol2766z00zz__evalz00 =
				bstring_to_symbol(BGl_string2767z00zz__evalz00);
			BGl_symbol2768z00zz__evalz00 =
				bstring_to_symbol(BGl_string2769z00zz__evalz00);
			BGl_symbol2770z00zz__evalz00 =
				bstring_to_symbol(BGl_string2771z00zz__evalz00);
			BGl_symbol2772z00zz__evalz00 =
				bstring_to_symbol(BGl_string2773z00zz__evalz00);
			BGl_symbol2774z00zz__evalz00 =
				bstring_to_symbol(BGl_string2775z00zz__evalz00);
			BGl_symbol2776z00zz__evalz00 =
				bstring_to_symbol(BGl_string2777z00zz__evalz00);
			BGl_symbol2778z00zz__evalz00 =
				bstring_to_symbol(BGl_string2779z00zz__evalz00);
			BGl_symbol2780z00zz__evalz00 =
				bstring_to_symbol(BGl_string2781z00zz__evalz00);
			BGl_symbol2783z00zz__evalz00 =
				bstring_to_symbol(BGl_string2784z00zz__evalz00);
			BGl_list2782z00zz__evalz00 =
				MAKE_YOUNG_PAIR(BGl_symbol2783z00zz__evalz00,
				MAKE_YOUNG_PAIR(BGl_symbol2762z00zz__evalz00, BNIL));
			BGl_symbol2786z00zz__evalz00 =
				bstring_to_symbol(BGl_string2787z00zz__evalz00);
			BGl_symbol2788z00zz__evalz00 =
				bstring_to_symbol(BGl_string2789z00zz__evalz00);
			BGl_symbol2790z00zz__evalz00 =
				bstring_to_symbol(BGl_string2791z00zz__evalz00);
			BGl_symbol2792z00zz__evalz00 =
				bstring_to_symbol(BGl_string2793z00zz__evalz00);
			BGl_symbol2794z00zz__evalz00 =
				bstring_to_symbol(BGl_string2795z00zz__evalz00);
			BGl_symbol2796z00zz__evalz00 =
				bstring_to_symbol(BGl_string2797z00zz__evalz00);
			BGl_symbol2799z00zz__evalz00 =
				bstring_to_symbol(BGl_string2800z00zz__evalz00);
			BGl_symbol2809z00zz__evalz00 =
				bstring_to_symbol(BGl_string2810z00zz__evalz00);
			BGl_list2811z00zz__evalz00 =
				MAKE_YOUNG_PAIR(BGl_symbol2783z00zz__evalz00,
				MAKE_YOUNG_PAIR(BGl_symbol2809z00zz__evalz00, BNIL));
			BGl_symbol2812z00zz__evalz00 =
				bstring_to_symbol(BGl_string2813z00zz__evalz00);
			BGl_symbol2814z00zz__evalz00 =
				bstring_to_symbol(BGl_string2815z00zz__evalz00);
			BGl_symbol2821z00zz__evalz00 =
				bstring_to_symbol(BGl_string2822z00zz__evalz00);
			BGl_symbol2823z00zz__evalz00 =
				bstring_to_symbol(BGl_string2824z00zz__evalz00);
			BGl_symbol2826z00zz__evalz00 =
				bstring_to_symbol(BGl_string2827z00zz__evalz00);
			BGl_symbol2828z00zz__evalz00 =
				bstring_to_symbol(BGl_string2829z00zz__evalz00);
			BGl_symbol2830z00zz__evalz00 =
				bstring_to_symbol(BGl_string2831z00zz__evalz00);
			BGl_symbol2835z00zz__evalz00 =
				bstring_to_symbol(BGl_string2836z00zz__evalz00);
			BGl_symbol2837z00zz__evalz00 =
				bstring_to_symbol(BGl_string2838z00zz__evalz00);
			BGl_symbol2839z00zz__evalz00 =
				bstring_to_symbol(BGl_string2840z00zz__evalz00);
			BGl_symbol2843z00zz__evalz00 =
				bstring_to_symbol(BGl_string2844z00zz__evalz00);
			BGl_list2842z00zz__evalz00 =
				MAKE_YOUNG_PAIR(BGl_symbol2812z00zz__evalz00,
				MAKE_YOUNG_PAIR(BGl_symbol2843z00zz__evalz00, BNIL));
			BGl_symbol2845z00zz__evalz00 =
				bstring_to_symbol(BGl_string2841z00zz__evalz00);
			BGl_symbol2858z00zz__evalz00 =
				bstring_to_symbol(BGl_string2856z00zz__evalz00);
			BGl_symbol2863z00zz__evalz00 =
				bstring_to_symbol(BGl_string2861z00zz__evalz00);
			BGl_symbol2866z00zz__evalz00 =
				bstring_to_symbol(BGl_string2867z00zz__evalz00);
			return (BGl_symbol2870z00zz__evalz00 =
				bstring_to_symbol(BGl_string2871z00zz__evalz00), BUNSPEC);
		}

	}



/* gc-roots-init */
	obj_t BGl_gczd2rootszd2initz00zz__evalz00(void)
	{
		{	/* Eval/eval.scm 18 */
			return bgl_gc_roots_register();
		}

	}



/* toplevel-init */
	obj_t BGl_toplevelzd2initzd2zz__evalz00(void)
	{
		{	/* Eval/eval.scm 18 */
			BGl_defaultzd2evaluatezd2zz__evalz00 =
				BGl_evaluate2zd2envzd2zz__evaluatez00;
			BGl_installzd2allzd2expandersz12z12zz__install_expandersz00();
			BGl_za2promptza2z00zz__evalz00 = BGl_proc2660z00zz__evalz00;
			BGl_za2replzd2numza2zd2zz__evalz00 = BINT(0L);
			BGl_za2replzd2quitza2zd2zz__evalz00 = BGl_proc2661z00zz__evalz00;
			BGl_za2replzd2printerza2zd2zz__evalz00 =
				BGl_defaultzd2replzd2printerzd2envzd2zz__evalz00;
			BGl_za2czd2debugzd2replzd2valueza2zd2zz__evalz00 = BUNSPEC;
			BGl_za2loadzd2pathza2zd2zz__evalz00 = BNIL;
			BGl_za2loadzd2verboseza2zd2zz__evalz00 = BTRUE;
			BGl_za2nilza2z00zz__evalz00 = BTRUE;
			BGl_za2userzd2passza2zd2zz__evalz00 = BUNSPEC;
			BGl_za2userzd2passzd2nameza2z00zz__evalz00 = BGl_string2662z00zz__evalz00;
			BGl_za2identifierzd2syntaxza2zd2zz__evalz00 =
				BGl_symbol2663z00zz__evalz00;
			{	/* Eval/eval.scm 794 */
				obj_t BgL_tmpz00_5810;

				BgL_tmpz00_5810 = BGL_CURRENT_DYNAMIC_ENV();
				return (BGl_za2transcriptza2z00zz__evalz00 =
					BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_5810), BUNSPEC);
			}
		}

	}



/* &<@*repl-quit*:1382> */
	obj_t BGl_z62zc3z04za2replzd2quitza2za31382ze3z37zz__evalz00(obj_t
		BgL_envz00_3611, obj_t BgL_xz00_3612)
	{
		{	/* Eval/eval.scm 290 */
			return BIGLOO_EXIT(BgL_xz00_3612);
		}

	}



/* &<@*prompt*:1378> */
	obj_t BGl_z62zc3z04za2promptza2za31378ze3ze5zz__evalz00(obj_t BgL_envz00_3613,
		obj_t BgL_numz00_3614)
	{
		{	/* Eval/eval.scm 265 */
			{	/* Eval/eval.scm 266 */
				obj_t BgL_arg1379z00_4237;

				{	/* Eval/eval.scm 266 */
					obj_t BgL_tmpz00_5814;

					BgL_tmpz00_5814 = BGL_CURRENT_DYNAMIC_ENV();
					BgL_arg1379z00_4237 = BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_5814);
				}
				bgl_display_obj(BgL_numz00_3614, BgL_arg1379z00_4237);
			}
			{	/* Eval/eval.scm 267 */
				obj_t BgL_arg1380z00_4238;

				{	/* Eval/eval.scm 267 */
					obj_t BgL_tmpz00_5818;

					BgL_tmpz00_5818 = BGL_CURRENT_DYNAMIC_ENV();
					BgL_arg1380z00_4238 = BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_5818);
				}
				bgl_display_string(BGl_string2665z00zz__evalz00, BgL_arg1380z00_4238);
			}
			{	/* Eval/eval.scm 268 */
				obj_t BgL_arg1381z00_4239;

				{	/* Eval/eval.scm 268 */
					obj_t BgL_tmpz00_5822;

					BgL_tmpz00_5822 = BGL_CURRENT_DYNAMIC_ENV();
					BgL_arg1381z00_4239 = BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_5822);
				}
				return bgl_flush_output_port(BgL_arg1381z00_4239);
			}
		}

	}



/* &byte-code-evaluate */
	obj_t BGl_z62bytezd2codezd2evaluatez62zz__evalz00(obj_t BgL_envz00_3622,
		obj_t BgL_eexpz00_3623, obj_t BgL_envz00_3624, obj_t BgL_locz00_3625)
	{
		{	/* Eval/eval.scm 121 */
			{	/* Eval/eval.scm 122 */
				obj_t BgL_cexpz00_4240;
				obj_t BgL_denvz00_4241;

				BgL_cexpz00_4240 =
					BGl_evcompilez00zz__evcompilez00(BgL_eexpz00_3623, BNIL,
					BgL_envz00_3624, BGl_symbol2666z00zz__evalz00, ((bool_t) 0),
					BgL_locz00_3625, ((bool_t) 1), ((bool_t) 1));
				BgL_denvz00_4241 = BGL_CURRENT_DYNAMIC_ENV();
				{	/* Eval/eval.scm 124 */

					BGL_ENV_PUSH_TRACE(BgL_denvz00_4241, BUNSPEC, BUNSPEC);
					{	/* Eval/eval.scm 127 */
						obj_t BgL_tmpz00_4242;

						BgL_tmpz00_4242 =
							BGl_evmeaningz00zz__evmeaningz00(BgL_cexpz00_4240, BNIL,
							BgL_denvz00_4241);
						BGL_ENV_POP_TRACE(BgL_denvz00_4241);
						return BgL_tmpz00_4242;
					}
				}
			}
		}

	}



/* eval-evaluate-set! */
	BGL_EXPORTED_DEF obj_t BGl_evalzd2evaluatezd2setz12z12zz__evalz00(obj_t
		BgL_compz00_6)
	{
		{	/* Eval/eval.scm 145 */
			if ((BgL_compz00_6 == BGl_symbol2668z00zz__evalz00))
				{	/* Eval/eval.scm 146 */
					return (BGl_defaultzd2evaluatezd2zz__evalz00 =
						BGl_bytezd2codezd2evaluatezd2envzd2zz__evalz00, BUNSPEC);
				}
			else
				{	/* Eval/eval.scm 146 */
					if ((BgL_compz00_6 == BGl_symbol2670z00zz__evalz00))
						{	/* Eval/eval.scm 146 */
							return (BGl_defaultzd2evaluatezd2zz__evalz00 =
								BGl_evaluate2zd2envzd2zz__evaluatez00, BUNSPEC);
						}
					else
						{	/* Eval/eval.scm 146 */
							if (PROCEDUREP(BgL_compz00_6))
								{	/* Eval/eval.scm 152 */
									return (BGl_defaultzd2evaluatezd2zz__evalz00 =
										BgL_compz00_6, BUNSPEC);
								}
							else
								{	/* Eval/eval.scm 152 */
									return
										BGl_errorz00zz__errorz00(BGl_string2672z00zz__evalz00,
										BGl_string2673z00zz__evalz00, BgL_compz00_6);
								}
						}
				}
		}

	}



/* &eval-evaluate-set! */
	obj_t BGl_z62evalzd2evaluatezd2setz12z70zz__evalz00(obj_t BgL_envz00_3626,
		obj_t BgL_compz00_3627)
	{
		{	/* Eval/eval.scm 145 */
			return BGl_evalzd2evaluatezd2setz12z12zz__evalz00(BgL_compz00_3627);
		}

	}



/* _eval */
	obj_t BGl__evalz00zz__evalz00(obj_t BgL_env1275z00_10, obj_t BgL_opt1274z00_9)
	{
		{	/* Eval/eval.scm 169 */
			{	/* Eval/eval.scm 169 */
				obj_t BgL_g1276z00_1279;

				{
					obj_t BgL_auxz00_5839;

					if (VECTORP(BgL_opt1274z00_9))
						{	/* Eval/eval.scm 169 */
							BgL_auxz00_5839 = BgL_opt1274z00_9;
						}
					else
						{
							obj_t BgL_auxz00_5842;

							BgL_auxz00_5842 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2674z00zz__evalz00,
								BINT(6317L), BGl_string2675z00zz__evalz00,
								BGl_string2676z00zz__evalz00, BgL_opt1274z00_9);
							FAILURE(BgL_auxz00_5842, BFALSE, BFALSE);
						}
					BgL_g1276z00_1279 = VECTOR_REF(BgL_auxz00_5839, 0L);
				}
				{	/* Eval/eval.scm 169 */
					long BgL_aux1278z00_1281;

					{
						obj_t BgL_auxz00_5847;

						if (VECTORP(BgL_opt1274z00_9))
							{	/* Eval/eval.scm 169 */
								BgL_auxz00_5847 = BgL_opt1274z00_9;
							}
						else
							{
								obj_t BgL_auxz00_5850;

								BgL_auxz00_5850 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2674z00zz__evalz00,
									BINT(6317L), BGl_string2675z00zz__evalz00,
									BGl_string2676z00zz__evalz00, BgL_opt1274z00_9);
								FAILURE(BgL_auxz00_5850, BFALSE, BFALSE);
							}
						BgL_aux1278z00_1281 = VECTOR_LENGTH(BgL_auxz00_5847);
					}
					switch (BgL_aux1278z00_1281)
						{
						case 1L:

							{	/* Eval/eval.scm 169 */
								obj_t BgL_envz00_1282;

								{	/* Eval/eval.scm 257 */
									obj_t BgL_mz00_2586;

									BgL_mz00_2586 = BGl_evalzd2modulezd2zz__evmodulez00();
									if (BGl_evmodulezf3zf3zz__evmodulez00(BgL_mz00_2586))
										{	/* Eval/eval.scm 258 */
											BgL_envz00_1282 = BgL_mz00_2586;
										}
									else
										{	/* Eval/eval.scm 258 */
											BgL_envz00_1282 = BGl_symbol2677z00zz__evalz00;
										}
								}
								{	/* Eval/eval.scm 169 */

									{	/* Eval/eval.scm 170 */
										obj_t BgL_auxz00_5858;

										{	/* Eval/eval.scm 170 */
											obj_t BgL_aux2283z00_3769;

											BgL_aux2283z00_3769 =
												BGl_defaultzd2evaluatezd2zz__evalz00;
											if (PROCEDUREP(BgL_aux2283z00_3769))
												{	/* Eval/eval.scm 170 */
													BgL_auxz00_5858 = BgL_aux2283z00_3769;
												}
											else
												{
													obj_t BgL_auxz00_5861;

													BgL_auxz00_5861 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2674z00zz__evalz00, BINT(6408L),
														BGl_string2675z00zz__evalz00,
														BGl_string2679z00zz__evalz00, BgL_aux2283z00_3769);
													FAILURE(BgL_auxz00_5861, BFALSE, BFALSE);
												}
										}
										return
											BGl_evalzf2expanderzf2zz__evalz00(BgL_g1276z00_1279,
											BgL_envz00_1282, BGl_expandzd2envzd2zz__expandz00,
											BgL_auxz00_5858);
									}
								}
							}
							break;
						case 2L:

							{	/* Eval/eval.scm 169 */
								obj_t BgL_envz00_1283;

								{
									obj_t BgL_auxz00_5866;

									if (VECTORP(BgL_opt1274z00_9))
										{	/* Eval/eval.scm 169 */
											BgL_auxz00_5866 = BgL_opt1274z00_9;
										}
									else
										{
											obj_t BgL_auxz00_5869;

											BgL_auxz00_5869 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2674z00zz__evalz00, BINT(6317L),
												BGl_string2675z00zz__evalz00,
												BGl_string2676z00zz__evalz00, BgL_opt1274z00_9);
											FAILURE(BgL_auxz00_5869, BFALSE, BFALSE);
										}
									BgL_envz00_1283 = VECTOR_REF(BgL_auxz00_5866, 1L);
								}
								{	/* Eval/eval.scm 169 */

									{	/* Eval/eval.scm 170 */
										obj_t BgL_auxz00_5874;

										{	/* Eval/eval.scm 170 */
											obj_t BgL_aux2287z00_3773;

											BgL_aux2287z00_3773 =
												BGl_defaultzd2evaluatezd2zz__evalz00;
											if (PROCEDUREP(BgL_aux2287z00_3773))
												{	/* Eval/eval.scm 170 */
													BgL_auxz00_5874 = BgL_aux2287z00_3773;
												}
											else
												{
													obj_t BgL_auxz00_5877;

													BgL_auxz00_5877 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2674z00zz__evalz00, BINT(6408L),
														BGl_string2675z00zz__evalz00,
														BGl_string2679z00zz__evalz00, BgL_aux2287z00_3773);
													FAILURE(BgL_auxz00_5877, BFALSE, BFALSE);
												}
										}
										return
											BGl_evalzf2expanderzf2zz__evalz00(BgL_g1276z00_1279,
											BgL_envz00_1283, BGl_expandzd2envzd2zz__expandz00,
											BgL_auxz00_5874);
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* eval */
	BGL_EXPORTED_DEF obj_t BGl_evalz00zz__evalz00(obj_t BgL_expz00_7,
		obj_t BgL_envz00_8)
	{
		{	/* Eval/eval.scm 169 */
			{	/* Eval/eval.scm 170 */
				obj_t BgL_auxz00_5883;

				{	/* Eval/eval.scm 170 */
					obj_t BgL_aux2289z00_3775;

					BgL_aux2289z00_3775 = BGl_defaultzd2evaluatezd2zz__evalz00;
					if (PROCEDUREP(BgL_aux2289z00_3775))
						{	/* Eval/eval.scm 170 */
							BgL_auxz00_5883 = BgL_aux2289z00_3775;
						}
					else
						{
							obj_t BgL_auxz00_5886;

							BgL_auxz00_5886 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2674z00zz__evalz00,
								BINT(6408L), BGl_string2680z00zz__evalz00,
								BGl_string2679z00zz__evalz00, BgL_aux2289z00_3775);
							FAILURE(BgL_auxz00_5886, BFALSE, BFALSE);
						}
				}
				return
					BGl_evalzf2expanderzf2zz__evalz00(BgL_expz00_7, BgL_envz00_8,
					BGl_expandzd2envzd2zz__expandz00, BgL_auxz00_5883);
			}
		}

	}



/* _eval! */
	obj_t BGl__evalz12z12zz__evalz00(obj_t BgL_env1280z00_14,
		obj_t BgL_opt1279z00_13)
	{
		{	/* Eval/eval.scm 175 */
			{	/* Eval/eval.scm 175 */
				obj_t BgL_g1281z00_1284;

				{
					obj_t BgL_auxz00_5891;

					if (VECTORP(BgL_opt1279z00_13))
						{	/* Eval/eval.scm 175 */
							BgL_auxz00_5891 = BgL_opt1279z00_13;
						}
					else
						{
							obj_t BgL_auxz00_5894;

							BgL_auxz00_5894 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2674z00zz__evalz00,
								BINT(6651L), BGl_string2681z00zz__evalz00,
								BGl_string2676z00zz__evalz00, BgL_opt1279z00_13);
							FAILURE(BgL_auxz00_5894, BFALSE, BFALSE);
						}
					BgL_g1281z00_1284 = VECTOR_REF(BgL_auxz00_5891, 0L);
				}
				{	/* Eval/eval.scm 175 */
					long BgL_aux1283z00_1286;

					{
						obj_t BgL_auxz00_5899;

						if (VECTORP(BgL_opt1279z00_13))
							{	/* Eval/eval.scm 175 */
								BgL_auxz00_5899 = BgL_opt1279z00_13;
							}
						else
							{
								obj_t BgL_auxz00_5902;

								BgL_auxz00_5902 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2674z00zz__evalz00,
									BINT(6651L), BGl_string2681z00zz__evalz00,
									BGl_string2676z00zz__evalz00, BgL_opt1279z00_13);
								FAILURE(BgL_auxz00_5902, BFALSE, BFALSE);
							}
						BgL_aux1283z00_1286 = VECTOR_LENGTH(BgL_auxz00_5899);
					}
					switch (BgL_aux1283z00_1286)
						{
						case 1L:

							{	/* Eval/eval.scm 175 */
								obj_t BgL_envz00_1287;

								{	/* Eval/eval.scm 257 */
									obj_t BgL_mz00_2588;

									BgL_mz00_2588 = BGl_evalzd2modulezd2zz__evmodulez00();
									if (BGl_evmodulezf3zf3zz__evmodulez00(BgL_mz00_2588))
										{	/* Eval/eval.scm 258 */
											BgL_envz00_1287 = BgL_mz00_2588;
										}
									else
										{	/* Eval/eval.scm 258 */
											BgL_envz00_1287 = BGl_symbol2677z00zz__evalz00;
										}
								}
								{	/* Eval/eval.scm 175 */

									{	/* Eval/eval.scm 176 */
										obj_t BgL_evaluatez00_2590;

										if (PROCEDUREP(BGl_defaultzd2evaluatezd2zz__evalz00))
											{	/* Eval/eval.scm 176 */
												BgL_evaluatez00_2590 =
													BGl_defaultzd2evaluatezd2zz__evalz00;
											}
										else
											{	/* Eval/eval.scm 176 */
												BgL_evaluatez00_2590 =
													BGl_bytezd2codezd2evaluatezd2envzd2zz__evalz00;
											}
										{	/* Eval/eval.scm 179 */
											obj_t BgL_auxz00_5912;

											if (PROCEDUREP(BgL_evaluatez00_2590))
												{	/* Eval/eval.scm 179 */
													BgL_auxz00_5912 = BgL_evaluatez00_2590;
												}
											else
												{
													obj_t BgL_auxz00_5915;

													BgL_auxz00_5915 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2674z00zz__evalz00, BINT(6857L),
														BGl_string2681z00zz__evalz00,
														BGl_string2679z00zz__evalz00, BgL_evaluatez00_2590);
													FAILURE(BgL_auxz00_5915, BFALSE, BFALSE);
												}
											return
												BGl_evalzf2expanderzf2zz__evalz00(BgL_g1281z00_1284,
												BgL_envz00_1287, BGl_expandz12zd2envzc0zz__expandz00,
												BgL_auxz00_5912);
										}
									}
								}
							}
							break;
						case 2L:

							{	/* Eval/eval.scm 175 */
								obj_t BgL_envz00_1288;

								{
									obj_t BgL_auxz00_5920;

									if (VECTORP(BgL_opt1279z00_13))
										{	/* Eval/eval.scm 175 */
											BgL_auxz00_5920 = BgL_opt1279z00_13;
										}
									else
										{
											obj_t BgL_auxz00_5923;

											BgL_auxz00_5923 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2674z00zz__evalz00, BINT(6651L),
												BGl_string2681z00zz__evalz00,
												BGl_string2676z00zz__evalz00, BgL_opt1279z00_13);
											FAILURE(BgL_auxz00_5923, BFALSE, BFALSE);
										}
									BgL_envz00_1288 = VECTOR_REF(BgL_auxz00_5920, 1L);
								}
								{	/* Eval/eval.scm 175 */

									{	/* Eval/eval.scm 176 */
										obj_t BgL_evaluatez00_2593;

										if (PROCEDUREP(BGl_defaultzd2evaluatezd2zz__evalz00))
											{	/* Eval/eval.scm 176 */
												BgL_evaluatez00_2593 =
													BGl_defaultzd2evaluatezd2zz__evalz00;
											}
										else
											{	/* Eval/eval.scm 176 */
												BgL_evaluatez00_2593 =
													BGl_bytezd2codezd2evaluatezd2envzd2zz__evalz00;
											}
										{	/* Eval/eval.scm 179 */
											obj_t BgL_auxz00_5930;

											if (PROCEDUREP(BgL_evaluatez00_2593))
												{	/* Eval/eval.scm 179 */
													BgL_auxz00_5930 = BgL_evaluatez00_2593;
												}
											else
												{
													obj_t BgL_auxz00_5933;

													BgL_auxz00_5933 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2674z00zz__evalz00, BINT(6857L),
														BGl_string2681z00zz__evalz00,
														BGl_string2679z00zz__evalz00, BgL_evaluatez00_2593);
													FAILURE(BgL_auxz00_5933, BFALSE, BFALSE);
												}
											return
												BGl_evalzf2expanderzf2zz__evalz00(BgL_g1281z00_1284,
												BgL_envz00_1288, BGl_expandz12zd2envzc0zz__expandz00,
												BgL_auxz00_5930);
										}
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* eval! */
	BGL_EXPORTED_DEF obj_t BGl_evalz12z12zz__evalz00(obj_t BgL_expz00_11,
		obj_t BgL_envz00_12)
	{
		{	/* Eval/eval.scm 175 */
			{	/* Eval/eval.scm 176 */
				obj_t BgL_evaluatez00_2596;

				if (PROCEDUREP(BGl_defaultzd2evaluatezd2zz__evalz00))
					{	/* Eval/eval.scm 176 */
						BgL_evaluatez00_2596 = BGl_defaultzd2evaluatezd2zz__evalz00;
					}
				else
					{	/* Eval/eval.scm 176 */
						BgL_evaluatez00_2596 =
							BGl_bytezd2codezd2evaluatezd2envzd2zz__evalz00;
					}
				{	/* Eval/eval.scm 179 */
					obj_t BgL_auxz00_5941;

					if (PROCEDUREP(BgL_evaluatez00_2596))
						{	/* Eval/eval.scm 179 */
							BgL_auxz00_5941 = BgL_evaluatez00_2596;
						}
					else
						{
							obj_t BgL_auxz00_5944;

							BgL_auxz00_5944 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2674z00zz__evalz00,
								BINT(6857L), BGl_string2682z00zz__evalz00,
								BGl_string2679z00zz__evalz00, BgL_evaluatez00_2596);
							FAILURE(BgL_auxz00_5944, BFALSE, BFALSE);
						}
					return
						BGl_evalzf2expanderzf2zz__evalz00(BgL_expz00_11, BgL_envz00_12,
						BGl_expandz12zd2envzc0zz__expandz00, BgL_auxz00_5941);
				}
			}
		}

	}



/* eval/expander */
	obj_t BGl_evalzf2expanderzf2zz__evalz00(obj_t BgL_expz00_15,
		obj_t BgL_envz00_16, obj_t BgL_expandz00_17, obj_t BgL_evaluatez00_18)
	{
		{	/* Eval/eval.scm 184 */
			{	/* Eval/eval.scm 185 */
				obj_t BgL_denvz00_1291;

				BgL_denvz00_1291 = BGL_CURRENT_DYNAMIC_ENV();
				{	/* Eval/eval.scm 186 */

					{	/* Eval/eval.scm 187 */
						obj_t BgL_locz00_1292;
						obj_t BgL_sexpz00_1293;

						BgL_locz00_1292 =
							BGl_getzd2sourcezd2locationz00zz__readerz00(BgL_expz00_15);
						if (PROCEDUREP(BGl_za2userzd2passza2zd2zz__evalz00))
							{	/* Eval/eval.scm 188 */
								BgL_sexpz00_1293 =
									BGL_PROCEDURE_CALL1(BGl_za2userzd2passza2zd2zz__evalz00,
									BgL_expz00_15);
							}
						else
							{	/* Eval/eval.scm 188 */
								BgL_sexpz00_1293 = BgL_expz00_15;
							}
						BGL_ENV_PUSH_TRACE(BgL_denvz00_1291, BGl_keyword2683z00zz__evalz00,
							BFALSE);
						{	/* Eval/eval.scm 190 */
							obj_t BgL_tmpz00_1294;

							{	/* Eval/eval.scm 190 */
								bool_t BgL_test3080z00_5958;

								if (CBOOL(BgL_locz00_1292))
									{	/* Eval/eval.scm 190 */
										int BgL_a1240z00_1317;

										BgL_a1240z00_1317 = bgl_debug();
										BgL_test3080z00_5958 = ((long) (BgL_a1240z00_1317) > 0L);
									}
								else
									{	/* Eval/eval.scm 190 */
										BgL_test3080z00_5958 = ((bool_t) 0);
									}
								if (BgL_test3080z00_5958)
									{	/* Eval/eval.scm 191 */
										obj_t BgL_env1049z00_1298;

										BgL_env1049z00_1298 = BGL_CURRENT_DYNAMIC_ENV();
										{	/* Eval/eval.scm 191 */
											obj_t BgL_cell1044z00_1299;

											BgL_cell1044z00_1299 = MAKE_STACK_CELL(BUNSPEC);
											{	/* Eval/eval.scm 191 */
												obj_t BgL_val1048z00_1300;

												BgL_val1048z00_1300 =
													BGl_zc3z04exitza31393ze3ze70z60zz__evalz00
													(BgL_locz00_1292, BgL_envz00_16, BgL_evaluatez00_18,
													BgL_sexpz00_1293, BgL_expandz00_17,
													BgL_cell1044z00_1299, BgL_env1049z00_1298);
												if ((BgL_val1048z00_1300 == BgL_cell1044z00_1299))
													{	/* Eval/eval.scm 191 */
														{	/* Eval/eval.scm 191 */
															int BgL_tmpz00_5969;

															BgL_tmpz00_5969 = (int) (0L);
															BGL_SIGSETMASK(BgL_tmpz00_5969);
														}
														{	/* Eval/eval.scm 191 */
															obj_t BgL_arg1392z00_1301;

															BgL_arg1392z00_1301 =
																CELL_REF(((obj_t) BgL_val1048z00_1300));
															BgL_tmpz00_1294 =
																BGl_evalzd2exceptionzd2handlerz00zz__evalz00
																(BgL_arg1392z00_1301, BgL_locz00_1292);
													}}
												else
													{	/* Eval/eval.scm 191 */
														BgL_tmpz00_1294 = BgL_val1048z00_1300;
													}
											}
										}
									}
								else
									{	/* Eval/eval.scm 195 */
										obj_t BgL_arg1398z00_1316;

										BgL_arg1398z00_1316 =
											BGL_PROCEDURE_CALL1(BgL_expandz00_17, BgL_sexpz00_1293);
										BgL_tmpz00_1294 =
											BGL_PROCEDURE_CALL3(BgL_evaluatez00_18,
											BgL_arg1398z00_1316, BgL_envz00_16, BgL_locz00_1292);
									}
							}
							BGL_ENV_POP_TRACE(BgL_denvz00_1291);
							return BgL_tmpz00_1294;
						}
					}
				}
			}
		}

	}



/* <@exit:1393>~0 */
	obj_t BGl_zc3z04exitza31393ze3ze70z60zz__evalz00(obj_t BgL_locz00_3763,
		obj_t BgL_envz00_3762, obj_t BgL_evaluatez00_3761, obj_t BgL_sexpz00_3760,
		obj_t BgL_expandz00_3759, obj_t BgL_cell1044z00_3758,
		obj_t BgL_env1049z00_3757)
	{
		{	/* Eval/eval.scm 191 */
			jmp_buf_t jmpbuf;
			void *BgL_an_exit1053z00_1303;

			if (SET_EXIT(BgL_an_exit1053z00_1303))
				{
					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_exit1053z00_1303 = (void *) jmpbuf;
					PUSH_ENV_EXIT(BgL_env1049z00_3757, BgL_an_exit1053z00_1303, 1L);
					{	/* Eval/eval.scm 191 */
						obj_t BgL_escape1045z00_1304;

						BgL_escape1045z00_1304 =
							BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1049z00_3757);
						{	/* Eval/eval.scm 191 */
							obj_t BgL_res1056z00_1305;

							{	/* Eval/eval.scm 191 */
								obj_t BgL_ohs1041z00_1306;

								BgL_ohs1041z00_1306 =
									BGL_ENV_ERROR_HANDLER_GET(BgL_env1049z00_3757);
								{	/* Eval/eval.scm 191 */
									obj_t BgL_hds1042z00_1307;

									BgL_hds1042z00_1307 =
										MAKE_STACK_PAIR(BgL_escape1045z00_1304,
										BgL_cell1044z00_3758);
									BGL_ENV_ERROR_HANDLER_SET(BgL_env1049z00_3757,
										BgL_hds1042z00_1307);
									BUNSPEC;
									{	/* Eval/eval.scm 191 */
										obj_t BgL_exitd1050z00_1308;

										BgL_exitd1050z00_1308 =
											BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1049z00_3757);
										{	/* Eval/eval.scm 191 */
											obj_t BgL_tmp1052z00_1309;

											{	/* Eval/eval.scm 191 */
												obj_t BgL_arg1396z00_1312;

												BgL_arg1396z00_1312 =
													BGL_EXITD_PROTECT(BgL_exitd1050z00_1308);
												BgL_tmp1052z00_1309 =
													MAKE_YOUNG_PAIR(BgL_ohs1041z00_1306,
													BgL_arg1396z00_1312);
											}
											{	/* Eval/eval.scm 191 */

												BGL_EXITD_PROTECT_SET(BgL_exitd1050z00_1308,
													BgL_tmp1052z00_1309);
												BUNSPEC;
												{	/* Eval/eval.scm 194 */
													obj_t BgL_tmp1051z00_1310;

													{	/* Eval/eval.scm 194 */
														obj_t BgL_arg1395z00_1311;

														BgL_arg1395z00_1311 =
															BGL_PROCEDURE_CALL1(BgL_expandz00_3759,
															BgL_sexpz00_3760);
														BgL_tmp1051z00_1310 =
															BGL_PROCEDURE_CALL3(BgL_evaluatez00_3761,
															BgL_arg1395z00_1311, BgL_envz00_3762,
															BgL_locz00_3763);
													}
													{	/* Eval/eval.scm 191 */
														bool_t BgL_test3083z00_6007;

														{	/* Eval/eval.scm 191 */
															obj_t BgL_arg2234z00_2602;

															BgL_arg2234z00_2602 =
																BGL_EXITD_PROTECT(BgL_exitd1050z00_1308);
															BgL_test3083z00_6007 = PAIRP(BgL_arg2234z00_2602);
														}
														if (BgL_test3083z00_6007)
															{	/* Eval/eval.scm 191 */
																obj_t BgL_arg2232z00_2603;

																{	/* Eval/eval.scm 191 */
																	obj_t BgL_arg2233z00_2604;

																	BgL_arg2233z00_2604 =
																		BGL_EXITD_PROTECT(BgL_exitd1050z00_1308);
																	{	/* Eval/eval.scm 191 */
																		obj_t BgL_pairz00_2605;

																		if (PAIRP(BgL_arg2233z00_2604))
																			{	/* Eval/eval.scm 191 */
																				BgL_pairz00_2605 = BgL_arg2233z00_2604;
																			}
																		else
																			{
																				obj_t BgL_auxz00_6013;

																				BgL_auxz00_6013 =
																					BGl_typezd2errorzd2zz__errorz00
																					(BGl_string2674z00zz__evalz00,
																					BINT(7435L),
																					BGl_string2684z00zz__evalz00,
																					BGl_string2685z00zz__evalz00,
																					BgL_arg2233z00_2604);
																				FAILURE(BgL_auxz00_6013, BFALSE,
																					BFALSE);
																			}
																		BgL_arg2232z00_2603 = CDR(BgL_pairz00_2605);
																	}
																}
																BGL_EXITD_PROTECT_SET(BgL_exitd1050z00_1308,
																	BgL_arg2232z00_2603);
																BUNSPEC;
															}
														else
															{	/* Eval/eval.scm 191 */
																BFALSE;
															}
													}
													BGL_ENV_ERROR_HANDLER_SET(BgL_env1049z00_3757,
														BgL_ohs1041z00_1306);
													BUNSPEC;
													BgL_res1056z00_1305 = BgL_tmp1051z00_1310;
												}
											}
										}
									}
								}
							}
							POP_ENV_EXIT(BgL_env1049z00_3757);
							return BgL_res1056z00_1305;
						}
					}
				}
		}

	}



/* eval-exception-handler */
	obj_t BGl_evalzd2exceptionzd2handlerz00zz__evalz00(obj_t BgL_ez00_19,
		obj_t BgL_locz00_20)
	{
		{	/* Eval/eval.scm 202 */
			{	/* Eval/eval.scm 203 */
				bool_t BgL_test3085z00_6021;

				{	/* Eval/eval.scm 203 */
					bool_t BgL_test3086z00_6022;

					{	/* Eval/eval.scm 203 */
						obj_t BgL_classz00_2607;

						BgL_classz00_2607 = BGl_z62exceptionz62zz__objectz00;
						if (BGL_OBJECTP(BgL_ez00_19))
							{	/* Eval/eval.scm 203 */
								BgL_objectz00_bglt BgL_arg2248z00_2609;

								BgL_arg2248z00_2609 = (BgL_objectz00_bglt) (BgL_ez00_19);
								if (BGL_CONDEXPAND_ISA_ARCH64())
									{	/* Eval/eval.scm 203 */
										long BgL_idxz00_2615;

										BgL_idxz00_2615 =
											BGL_OBJECT_INHERITANCE_NUM(BgL_arg2248z00_2609);
										{	/* Eval/eval.scm 203 */
											obj_t BgL_arg2240z00_2616;

											{	/* Eval/eval.scm 203 */
												long BgL_arg2241z00_2617;

												BgL_arg2241z00_2617 = (BgL_idxz00_2615 + 2L);
												{	/* Eval/eval.scm 203 */
													obj_t BgL_vectorz00_2619;

													{	/* Eval/eval.scm 203 */
														obj_t BgL_aux2305z00_3791;

														BgL_aux2305z00_3791 =
															BGl_za2inheritancesza2z00zz__objectz00;
														if (VECTORP(BgL_aux2305z00_3791))
															{	/* Eval/eval.scm 203 */
																BgL_vectorz00_2619 = BgL_aux2305z00_3791;
															}
														else
															{
																obj_t BgL_auxz00_6032;

																BgL_auxz00_6032 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string2674z00zz__evalz00, BINT(7915L),
																	BGl_string2686z00zz__evalz00,
																	BGl_string2676z00zz__evalz00,
																	BgL_aux2305z00_3791);
																FAILURE(BgL_auxz00_6032, BFALSE, BFALSE);
															}
													}
													BgL_arg2240z00_2616 =
														VECTOR_REF(BgL_vectorz00_2619, BgL_arg2241z00_2617);
												}
											}
											BgL_test3086z00_6022 =
												(BgL_arg2240z00_2616 == BgL_classz00_2607);
										}
									}
								else
									{	/* Eval/eval.scm 203 */
										bool_t BgL_res2261z00_2640;

										{	/* Eval/eval.scm 203 */
											obj_t BgL_oclassz00_2623;

											{	/* Eval/eval.scm 203 */
												obj_t BgL_arg2255z00_2631;
												long BgL_arg2256z00_2632;

												BgL_arg2255z00_2631 =
													(BGl_za2classesza2z00zz__objectz00);
												{	/* Eval/eval.scm 203 */
													long BgL_arg2257z00_2633;

													BgL_arg2257z00_2633 =
														BGL_OBJECT_CLASS_NUM(BgL_arg2248z00_2609);
													BgL_arg2256z00_2632 =
														(BgL_arg2257z00_2633 - OBJECT_TYPE);
												}
												BgL_oclassz00_2623 =
													VECTOR_REF(BgL_arg2255z00_2631, BgL_arg2256z00_2632);
											}
											{	/* Eval/eval.scm 203 */
												bool_t BgL__ortest_1235z00_2624;

												BgL__ortest_1235z00_2624 =
													(BgL_classz00_2607 == BgL_oclassz00_2623);
												if (BgL__ortest_1235z00_2624)
													{	/* Eval/eval.scm 203 */
														BgL_res2261z00_2640 = BgL__ortest_1235z00_2624;
													}
												else
													{	/* Eval/eval.scm 203 */
														long BgL_odepthz00_2625;

														{	/* Eval/eval.scm 203 */
															obj_t BgL_arg2245z00_2626;

															BgL_arg2245z00_2626 = (BgL_oclassz00_2623);
															BgL_odepthz00_2625 =
																BGL_CLASS_DEPTH(BgL_arg2245z00_2626);
														}
														if ((2L < BgL_odepthz00_2625))
															{	/* Eval/eval.scm 203 */
																obj_t BgL_arg2242z00_2628;

																{	/* Eval/eval.scm 203 */
																	obj_t BgL_arg2243z00_2629;

																	BgL_arg2243z00_2629 = (BgL_oclassz00_2623);
																	BgL_arg2242z00_2628 =
																		BGL_CLASS_ANCESTORS_REF(BgL_arg2243z00_2629,
																		2L);
																}
																BgL_res2261z00_2640 =
																	(BgL_arg2242z00_2628 == BgL_classz00_2607);
															}
														else
															{	/* Eval/eval.scm 203 */
																BgL_res2261z00_2640 = ((bool_t) 0);
															}
													}
											}
										}
										BgL_test3086z00_6022 = BgL_res2261z00_2640;
									}
							}
						else
							{	/* Eval/eval.scm 203 */
								BgL_test3086z00_6022 = ((bool_t) 0);
							}
					}
					if (BgL_test3086z00_6022)
						{	/* Eval/eval.scm 204 */
							BgL_z62exceptionz62_bglt BgL_i1058z00_1342;

							{	/* Eval/eval.scm 204 */
								bool_t BgL_test3092z00_6051;

								{	/* Eval/eval.scm 204 */
									obj_t BgL_classz00_4243;

									BgL_classz00_4243 = BGl_z62exceptionz62zz__objectz00;
									if (BGL_OBJECTP(BgL_ez00_19))
										{	/* Eval/eval.scm 204 */
											BgL_objectz00_bglt BgL_arg2250z00_4245;
											long BgL_arg2251z00_4246;

											BgL_arg2250z00_4245 = (BgL_objectz00_bglt) (BgL_ez00_19);
											BgL_arg2251z00_4246 = BGL_CLASS_DEPTH(BgL_classz00_4243);
											if (BGL_CONDEXPAND_ISA_ARCH64())
												{	/* Eval/eval.scm 204 */
													long BgL_idxz00_4254;

													BgL_idxz00_4254 =
														BGL_OBJECT_INHERITANCE_NUM(BgL_arg2250z00_4245);
													{	/* Eval/eval.scm 204 */
														obj_t BgL_arg2240z00_4255;

														{	/* Eval/eval.scm 204 */
															long BgL_arg2241z00_4256;

															BgL_arg2241z00_4256 =
																(BgL_idxz00_4254 + BgL_arg2251z00_4246);
															BgL_arg2240z00_4255 =
																VECTOR_REF
																(BGl_za2inheritancesza2z00zz__objectz00,
																BgL_arg2241z00_4256);
														}
														BgL_test3092z00_6051 =
															(BgL_arg2240z00_4255 == BgL_classz00_4243);
												}}
											else
												{	/* Eval/eval.scm 204 */
													bool_t BgL_res2270z00_4261;

													{	/* Eval/eval.scm 204 */
														obj_t BgL_oclassz00_4265;

														{	/* Eval/eval.scm 204 */
															obj_t BgL_arg2255z00_4267;
															long BgL_arg2256z00_4268;

															BgL_arg2255z00_4267 =
																(BGl_za2classesza2z00zz__objectz00);
															{	/* Eval/eval.scm 204 */
																long BgL_arg2257z00_4269;

																BgL_arg2257z00_4269 =
																	BGL_OBJECT_CLASS_NUM(BgL_arg2250z00_4245);
																BgL_arg2256z00_4268 =
																	(BgL_arg2257z00_4269 - OBJECT_TYPE);
															}
															BgL_oclassz00_4265 =
																VECTOR_REF(BgL_arg2255z00_4267,
																BgL_arg2256z00_4268);
														}
														{	/* Eval/eval.scm 204 */
															bool_t BgL__ortest_1235z00_4275;

															BgL__ortest_1235z00_4275 =
																(BgL_classz00_4243 == BgL_oclassz00_4265);
															if (BgL__ortest_1235z00_4275)
																{	/* Eval/eval.scm 204 */
																	BgL_res2270z00_4261 =
																		BgL__ortest_1235z00_4275;
																}
															else
																{	/* Eval/eval.scm 204 */
																	long BgL_odepthz00_4276;

																	{	/* Eval/eval.scm 204 */
																		obj_t BgL_arg2245z00_4277;

																		BgL_arg2245z00_4277 = (BgL_oclassz00_4265);
																		BgL_odepthz00_4276 =
																			BGL_CLASS_DEPTH(BgL_arg2245z00_4277);
																	}
																	if (
																		(BgL_arg2251z00_4246 < BgL_odepthz00_4276))
																		{	/* Eval/eval.scm 204 */
																			obj_t BgL_arg2242z00_4281;

																			{	/* Eval/eval.scm 204 */
																				obj_t BgL_arg2243z00_4282;

																				BgL_arg2243z00_4282 =
																					(BgL_oclassz00_4265);
																				BgL_arg2242z00_4281 =
																					BGL_CLASS_ANCESTORS_REF
																					(BgL_arg2243z00_4282,
																					BgL_arg2251z00_4246);
																			}
																			BgL_res2270z00_4261 =
																				(BgL_arg2242z00_4281 ==
																				BgL_classz00_4243);
																		}
																	else
																		{	/* Eval/eval.scm 204 */
																			BgL_res2270z00_4261 = ((bool_t) 0);
																		}
																}
														}
													}
													BgL_test3092z00_6051 = BgL_res2270z00_4261;
												}
										}
									else
										{	/* Eval/eval.scm 204 */
											BgL_test3092z00_6051 = ((bool_t) 0);
										}
								}
								if (BgL_test3092z00_6051)
									{	/* Eval/eval.scm 204 */
										BgL_i1058z00_1342 =
											((BgL_z62exceptionz62_bglt) BgL_ez00_19);
									}
								else
									{
										obj_t BgL_auxz00_6076;

										BgL_auxz00_6076 =
											BGl_typezd2errorzd2zz__errorz00
											(BGl_string2674z00zz__evalz00, BINT(7977L),
											BGl_string2686z00zz__evalz00,
											BGl_string2687z00zz__evalz00, BgL_ez00_19);
										FAILURE(BgL_auxz00_6076, BFALSE, BFALSE);
									}
							}
							if (CBOOL(
									(((BgL_z62exceptionz62_bglt) COBJECT(BgL_i1058z00_1342))->
										BgL_fnamez00)))
								{	/* Eval/eval.scm 204 */
									BgL_test3085z00_6021 = ((bool_t) 0);
								}
							else
								{	/* Eval/eval.scm 204 */
									BgL_test3085z00_6021 = ((bool_t) 1);
								}
						}
					else
						{	/* Eval/eval.scm 203 */
							BgL_test3085z00_6021 = ((bool_t) 0);
						}
				}
				if (BgL_test3085z00_6021)
					{	/* Eval/eval.scm 203 */
						if (PAIRP(BgL_locz00_20))
							{	/* Eval/eval.scm 205 */
								obj_t BgL_cdrzd2108zd2_1328;

								BgL_cdrzd2108zd2_1328 = CDR(((obj_t) BgL_locz00_20));
								if (
									(CAR(
											((obj_t) BgL_locz00_20)) == BGl_symbol2688z00zz__evalz00))
									{	/* Eval/eval.scm 205 */
										if (PAIRP(BgL_cdrzd2108zd2_1328))
											{	/* Eval/eval.scm 205 */
												obj_t BgL_cdrzd2112zd2_1332;

												BgL_cdrzd2112zd2_1332 = CDR(BgL_cdrzd2108zd2_1328);
												if (PAIRP(BgL_cdrzd2112zd2_1332))
													{	/* Eval/eval.scm 205 */
														if (NULLP(CDR(BgL_cdrzd2112zd2_1332)))
															{	/* Eval/eval.scm 205 */
																obj_t BgL_arg1410z00_1336;
																obj_t BgL_arg1411z00_1337;

																BgL_arg1410z00_1336 =
																	CAR(BgL_cdrzd2108zd2_1328);
																BgL_arg1411z00_1337 =
																	CAR(BgL_cdrzd2112zd2_1332);
																{	/* Eval/eval.scm 207 */
																	BgL_z62exceptionz62_bglt BgL_i1059z00_2648;

																	{	/* Eval/eval.scm 208 */
																		bool_t BgL_test3103z00_6101;

																		{	/* Eval/eval.scm 208 */
																			obj_t BgL_classz00_4283;

																			BgL_classz00_4283 =
																				BGl_z62exceptionz62zz__objectz00;
																			if (BGL_OBJECTP(BgL_ez00_19))
																				{	/* Eval/eval.scm 208 */
																					BgL_objectz00_bglt
																						BgL_arg2250z00_4285;
																					long BgL_arg2251z00_4286;

																					BgL_arg2250z00_4285 =
																						(BgL_objectz00_bglt) (BgL_ez00_19);
																					BgL_arg2251z00_4286 =
																						BGL_CLASS_DEPTH(BgL_classz00_4283);
																					if (BGL_CONDEXPAND_ISA_ARCH64())
																						{	/* Eval/eval.scm 208 */
																							long BgL_idxz00_4294;

																							BgL_idxz00_4294 =
																								BGL_OBJECT_INHERITANCE_NUM
																								(BgL_arg2250z00_4285);
																							{	/* Eval/eval.scm 208 */
																								obj_t BgL_arg2240z00_4295;

																								{	/* Eval/eval.scm 208 */
																									long BgL_arg2241z00_4296;

																									BgL_arg2241z00_4296 =
																										(BgL_idxz00_4294 +
																										BgL_arg2251z00_4286);
																									BgL_arg2240z00_4295 =
																										VECTOR_REF
																										(BGl_za2inheritancesza2z00zz__objectz00,
																										BgL_arg2241z00_4296);
																								}
																								BgL_test3103z00_6101 =
																									(BgL_arg2240z00_4295 ==
																									BgL_classz00_4283);
																						}}
																					else
																						{	/* Eval/eval.scm 208 */
																							bool_t BgL_res2270z00_4301;

																							{	/* Eval/eval.scm 208 */
																								obj_t BgL_oclassz00_4305;

																								{	/* Eval/eval.scm 208 */
																									obj_t BgL_arg2255z00_4307;
																									long BgL_arg2256z00_4308;

																									BgL_arg2255z00_4307 =
																										(BGl_za2classesza2z00zz__objectz00);
																									{	/* Eval/eval.scm 208 */
																										long BgL_arg2257z00_4309;

																										BgL_arg2257z00_4309 =
																											BGL_OBJECT_CLASS_NUM
																											(BgL_arg2250z00_4285);
																										BgL_arg2256z00_4308 =
																											(BgL_arg2257z00_4309 -
																											OBJECT_TYPE);
																									}
																									BgL_oclassz00_4305 =
																										VECTOR_REF
																										(BgL_arg2255z00_4307,
																										BgL_arg2256z00_4308);
																								}
																								{	/* Eval/eval.scm 208 */
																									bool_t
																										BgL__ortest_1235z00_4315;
																									BgL__ortest_1235z00_4315 =
																										(BgL_classz00_4283 ==
																										BgL_oclassz00_4305);
																									if (BgL__ortest_1235z00_4315)
																										{	/* Eval/eval.scm 208 */
																											BgL_res2270z00_4301 =
																												BgL__ortest_1235z00_4315;
																										}
																									else
																										{	/* Eval/eval.scm 208 */
																											long BgL_odepthz00_4316;

																											{	/* Eval/eval.scm 208 */
																												obj_t
																													BgL_arg2245z00_4317;
																												BgL_arg2245z00_4317 =
																													(BgL_oclassz00_4305);
																												BgL_odepthz00_4316 =
																													BGL_CLASS_DEPTH
																													(BgL_arg2245z00_4317);
																											}
																											if (
																												(BgL_arg2251z00_4286 <
																													BgL_odepthz00_4316))
																												{	/* Eval/eval.scm 208 */
																													obj_t
																														BgL_arg2242z00_4321;
																													{	/* Eval/eval.scm 208 */
																														obj_t
																															BgL_arg2243z00_4322;
																														BgL_arg2243z00_4322
																															=
																															(BgL_oclassz00_4305);
																														BgL_arg2242z00_4321
																															=
																															BGL_CLASS_ANCESTORS_REF
																															(BgL_arg2243z00_4322,
																															BgL_arg2251z00_4286);
																													}
																													BgL_res2270z00_4301 =
																														(BgL_arg2242z00_4321
																														==
																														BgL_classz00_4283);
																												}
																											else
																												{	/* Eval/eval.scm 208 */
																													BgL_res2270z00_4301 =
																														((bool_t) 0);
																												}
																										}
																								}
																							}
																							BgL_test3103z00_6101 =
																								BgL_res2270z00_4301;
																						}
																				}
																			else
																				{	/* Eval/eval.scm 208 */
																					BgL_test3103z00_6101 = ((bool_t) 0);
																				}
																		}
																		if (BgL_test3103z00_6101)
																			{	/* Eval/eval.scm 208 */
																				BgL_i1059z00_2648 =
																					((BgL_z62exceptionz62_bglt)
																					BgL_ez00_19);
																			}
																		else
																			{
																				obj_t BgL_auxz00_6126;

																				BgL_auxz00_6126 =
																					BGl_typezd2errorzd2zz__errorz00
																					(BGl_string2674z00zz__evalz00,
																					BINT(8101L),
																					BGl_string2686z00zz__evalz00,
																					BGl_string2687z00zz__evalz00,
																					BgL_ez00_19);
																				FAILURE(BgL_auxz00_6126, BFALSE,
																					BFALSE);
																			}
																	}
																	((((BgL_z62exceptionz62_bglt)
																				COBJECT(BgL_i1059z00_2648))->
																			BgL_fnamez00) =
																		((obj_t) BgL_arg1410z00_1336), BUNSPEC);
																	((((BgL_z62exceptionz62_bglt)
																				COBJECT(BgL_i1059z00_2648))->
																			BgL_locationz00) =
																		((obj_t) BgL_arg1411z00_1337), BUNSPEC);
																}
															}
														else
															{	/* Eval/eval.scm 205 */
																BFALSE;
															}
													}
												else
													{	/* Eval/eval.scm 205 */
														BFALSE;
													}
											}
										else
											{	/* Eval/eval.scm 205 */
												BFALSE;
											}
									}
								else
									{	/* Eval/eval.scm 205 */
										BFALSE;
									}
							}
						else
							{	/* Eval/eval.scm 205 */
								BFALSE;
							}
					}
				else
					{	/* Eval/eval.scm 203 */
						BFALSE;
					}
			}
			return BGl_raisez00zz__errorz00(BgL_ez00_19);
		}

	}



/* _byte-code-compile */
	obj_t BGl__bytezd2codezd2compilez00zz__evalz00(obj_t BgL_env1285z00_24,
		obj_t BgL_opt1284z00_23)
	{
		{	/* Eval/eval.scm 215 */
			{	/* Eval/eval.scm 215 */
				obj_t BgL_g1286z00_1344;

				{
					obj_t BgL_auxz00_6133;

					if (VECTORP(BgL_opt1284z00_23))
						{	/* Eval/eval.scm 215 */
							BgL_auxz00_6133 = BgL_opt1284z00_23;
						}
					else
						{
							obj_t BgL_auxz00_6136;

							BgL_auxz00_6136 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2674z00zz__evalz00,
								BINT(8370L), BGl_string2690z00zz__evalz00,
								BGl_string2676z00zz__evalz00, BgL_opt1284z00_23);
							FAILURE(BgL_auxz00_6136, BFALSE, BFALSE);
						}
					BgL_g1286z00_1344 = VECTOR_REF(BgL_auxz00_6133, 0L);
				}
				{	/* Eval/eval.scm 215 */
					long BgL_aux1288z00_1346;

					{
						obj_t BgL_auxz00_6141;

						if (VECTORP(BgL_opt1284z00_23))
							{	/* Eval/eval.scm 215 */
								BgL_auxz00_6141 = BgL_opt1284z00_23;
							}
						else
							{
								obj_t BgL_auxz00_6144;

								BgL_auxz00_6144 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2674z00zz__evalz00,
									BINT(8370L), BGl_string2690z00zz__evalz00,
									BGl_string2676z00zz__evalz00, BgL_opt1284z00_23);
								FAILURE(BgL_auxz00_6144, BFALSE, BFALSE);
							}
						BgL_aux1288z00_1346 = VECTOR_LENGTH(BgL_auxz00_6141);
					}
					switch (BgL_aux1288z00_1346)
						{
						case 1L:

							{	/* Eval/eval.scm 215 */
								obj_t BgL_envz00_1347;

								{	/* Eval/eval.scm 257 */
									obj_t BgL_mz00_2649;

									BgL_mz00_2649 = BGl_evalzd2modulezd2zz__evmodulez00();
									if (BGl_evmodulezf3zf3zz__evmodulez00(BgL_mz00_2649))
										{	/* Eval/eval.scm 258 */
											BgL_envz00_1347 = BgL_mz00_2649;
										}
									else
										{	/* Eval/eval.scm 258 */
											BgL_envz00_1347 = BGl_symbol2677z00zz__evalz00;
										}
								}
								{	/* Eval/eval.scm 215 */

									return
										BGl_bytezd2codezd2compilez00zz__evalz00(BgL_g1286z00_1344,
										BgL_envz00_1347);
								}
							}
							break;
						case 2L:

							{	/* Eval/eval.scm 215 */
								obj_t BgL_envz00_1348;

								{
									obj_t BgL_auxz00_6153;

									if (VECTORP(BgL_opt1284z00_23))
										{	/* Eval/eval.scm 215 */
											BgL_auxz00_6153 = BgL_opt1284z00_23;
										}
									else
										{
											obj_t BgL_auxz00_6156;

											BgL_auxz00_6156 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2674z00zz__evalz00, BINT(8370L),
												BGl_string2690z00zz__evalz00,
												BGl_string2676z00zz__evalz00, BgL_opt1284z00_23);
											FAILURE(BgL_auxz00_6156, BFALSE, BFALSE);
										}
									BgL_envz00_1348 = VECTOR_REF(BgL_auxz00_6153, 1L);
								}
								{	/* Eval/eval.scm 215 */

									return
										BGl_bytezd2codezd2compilez00zz__evalz00(BgL_g1286z00_1344,
										BgL_envz00_1348);
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* byte-code-compile */
	BGL_EXPORTED_DEF obj_t BGl_bytezd2codezd2compilez00zz__evalz00(obj_t
		BgL_expz00_21, obj_t BgL_envz00_22)
	{
		{	/* Eval/eval.scm 215 */
			{	/* Eval/eval.scm 216 */
				obj_t BgL_locz00_1349;

				BgL_locz00_1349 =
					BGl_getzd2sourcezd2locationz00zz__readerz00(BgL_expz00_21);
				{	/* Eval/eval.scm 216 */
					obj_t BgL_sexpz00_1350;

					if (PROCEDUREP(BGl_za2userzd2passza2zd2zz__evalz00))
						{	/* Eval/eval.scm 217 */
							BgL_sexpz00_1350 =
								BGL_PROCEDURE_CALL1(BGl_za2userzd2passza2zd2zz__evalz00,
								BgL_expz00_21);
						}
					else
						{	/* Eval/eval.scm 217 */
							BgL_sexpz00_1350 = BgL_expz00_21;
						}
					{	/* Eval/eval.scm 217 */

						{	/* Eval/eval.scm 219 */
							obj_t BgL_arg1414z00_1351;

							{	/* Eval/eval.scm 219 */
								obj_t BgL_arg1416z00_1354;

								BgL_arg1416z00_1354 =
									BGl_expandz00zz__expandz00(BgL_sexpz00_1350);
								BgL_arg1414z00_1351 =
									BGl_evcompilez00zz__evcompilez00(BgL_arg1416z00_1354, BNIL,
									BgL_envz00_22, BGl_symbol2666z00zz__evalz00, ((bool_t) 1),
									BgL_locz00_1349, ((bool_t) 0), ((bool_t) 1));
							}
							{	/* Eval/eval.scm 218 */

								BGL_TAIL return obj_to_string(BgL_arg1414z00_1351, BFALSE);
							}
						}
					}
				}
			}
		}

	}



/* byte-code-run */
	BGL_EXPORTED_DEF obj_t BGl_bytezd2codezd2runz00zz__evalz00(obj_t
		BgL_bytezd2codezd2_25)
	{
		{	/* Eval/eval.scm 224 */
			{	/* Eval/eval.scm 225 */
				obj_t BgL_arg1419z00_2652;
				obj_t BgL_arg1420z00_2653;

				{	/* Eval/eval.scm 225 */

					BgL_arg1419z00_2652 =
						string_to_obj(BgL_bytezd2codezd2_25, BFALSE, BFALSE);
				}
				BgL_arg1420z00_2653 = BGL_CURRENT_DYNAMIC_ENV();
				return
					BGl_evmeaningz00zz__evmeaningz00(BgL_arg1419z00_2652, BNIL,
					BgL_arg1420z00_2653);
			}
		}

	}



/* &byte-code-run */
	obj_t BGl_z62bytezd2codezd2runz62zz__evalz00(obj_t BgL_envz00_3632,
		obj_t BgL_bytezd2codezd2_3633)
	{
		{	/* Eval/eval.scm 224 */
			{	/* Eval/eval.scm 225 */
				obj_t BgL_auxz00_6176;

				if (STRINGP(BgL_bytezd2codezd2_3633))
					{	/* Eval/eval.scm 225 */
						BgL_auxz00_6176 = BgL_bytezd2codezd2_3633;
					}
				else
					{
						obj_t BgL_auxz00_6179;

						BgL_auxz00_6179 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2674z00zz__evalz00,
							BINT(8919L), BGl_string2691z00zz__evalz00,
							BGl_string2692z00zz__evalz00, BgL_bytezd2codezd2_3633);
						FAILURE(BgL_auxz00_6179, BFALSE, BFALSE);
					}
				return BGl_bytezd2codezd2runz00zz__evalz00(BgL_auxz00_6176);
			}
		}

	}



/* scheme-report-environment */
	BGL_EXPORTED_DEF obj_t BGl_schemezd2reportzd2environmentz00zz__evalz00(obj_t
		BgL_versionz00_26)
	{
		{	/* Eval/eval.scm 230 */
			{	/* Eval/eval.scm 231 */
				bool_t BgL_test3114z00_6184;

				{	/* Eval/eval.scm 231 */
					long BgL_n1z00_2658;

					{	/* Eval/eval.scm 231 */
						obj_t BgL_tmpz00_6185;

						if (INTEGERP(BgL_versionz00_26))
							{	/* Eval/eval.scm 231 */
								BgL_tmpz00_6185 = BgL_versionz00_26;
							}
						else
							{
								obj_t BgL_auxz00_6188;

								BgL_auxz00_6188 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2674z00zz__evalz00,
									BINT(9237L), BGl_string2693z00zz__evalz00,
									BGl_string2694z00zz__evalz00, BgL_versionz00_26);
								FAILURE(BgL_auxz00_6188, BFALSE, BFALSE);
							}
						BgL_n1z00_2658 = (long) CINT(BgL_tmpz00_6185);
					}
					BgL_test3114z00_6184 = (BgL_n1z00_2658 == 5L);
				}
				if (BgL_test3114z00_6184)
					{	/* Eval/eval.scm 231 */
						return BGl_symbol2695z00zz__evalz00;
					}
				else
					{	/* Eval/eval.scm 231 */
						return
							BGl_errorz00zz__errorz00(BGl_symbol2695z00zz__evalz00,
							BGl_string2696z00zz__evalz00, BgL_versionz00_26);
					}
			}
		}

	}



/* &scheme-report-environment */
	obj_t BGl_z62schemezd2reportzd2environmentz62zz__evalz00(obj_t
		BgL_envz00_3634, obj_t BgL_versionz00_3635)
	{
		{	/* Eval/eval.scm 230 */
			return
				BGl_schemezd2reportzd2environmentz00zz__evalz00(BgL_versionz00_3635);
		}

	}



/* null-environment */
	BGL_EXPORTED_DEF obj_t BGl_nullzd2environmentzd2zz__evalz00(obj_t
		BgL_versionz00_27)
	{
		{	/* Eval/eval.scm 240 */
			{	/* Eval/eval.scm 241 */
				bool_t BgL_test3116z00_6196;

				{	/* Eval/eval.scm 241 */
					long BgL_n1z00_2660;

					{	/* Eval/eval.scm 241 */
						obj_t BgL_tmpz00_6197;

						if (INTEGERP(BgL_versionz00_27))
							{	/* Eval/eval.scm 241 */
								BgL_tmpz00_6197 = BgL_versionz00_27;
							}
						else
							{
								obj_t BgL_auxz00_6200;

								BgL_auxz00_6200 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2674z00zz__evalz00,
									BINT(9645L), BGl_string2697z00zz__evalz00,
									BGl_string2694z00zz__evalz00, BgL_versionz00_27);
								FAILURE(BgL_auxz00_6200, BFALSE, BFALSE);
							}
						BgL_n1z00_2660 = (long) CINT(BgL_tmpz00_6197);
					}
					BgL_test3116z00_6196 = (BgL_n1z00_2660 == 5L);
				}
				if (BgL_test3116z00_6196)
					{	/* Eval/eval.scm 241 */
						return BGl_symbol2698z00zz__evalz00;
					}
				else
					{	/* Eval/eval.scm 241 */
						return
							BGl_errorz00zz__errorz00(BGl_symbol2695z00zz__evalz00,
							BGl_string2696z00zz__evalz00, BgL_versionz00_27);
					}
			}
		}

	}



/* &null-environment */
	obj_t BGl_z62nullzd2environmentzb0zz__evalz00(obj_t BgL_envz00_3636,
		obj_t BgL_versionz00_3637)
	{
		{	/* Eval/eval.scm 240 */
			return BGl_nullzd2environmentzd2zz__evalz00(BgL_versionz00_3637);
		}

	}



/* interaction-environment */
	BGL_EXPORTED_DEF obj_t BGl_interactionzd2environmentzd2zz__evalz00(void)
	{
		{	/* Eval/eval.scm 250 */
			return BGl_symbol2677z00zz__evalz00;
		}

	}



/* &interaction-environment */
	obj_t BGl_z62interactionzd2environmentzb0zz__evalz00(obj_t BgL_envz00_3638)
	{
		{	/* Eval/eval.scm 250 */
			return BGl_interactionzd2environmentzd2zz__evalz00();
		}

	}



/* default-environment */
	BGL_EXPORTED_DEF obj_t BGl_defaultzd2environmentzd2zz__evalz00(void)
	{
		{	/* Eval/eval.scm 256 */
			{	/* Eval/eval.scm 257 */
				obj_t BgL_mz00_2661;

				BgL_mz00_2661 = BGl_evalzd2modulezd2zz__evmodulez00();
				if (BGl_evmodulezf3zf3zz__evmodulez00(BgL_mz00_2661))
					{	/* Eval/eval.scm 258 */
						return BgL_mz00_2661;
					}
				else
					{	/* Eval/eval.scm 258 */
						return BGl_symbol2677z00zz__evalz00;
					}
			}
		}

	}



/* &default-environment */
	obj_t BGl_z62defaultzd2environmentzb0zz__evalz00(obj_t BgL_envz00_3639)
	{
		{	/* Eval/eval.scm 256 */
			return BGl_defaultzd2environmentzd2zz__evalz00();
		}

	}



/* set-prompter! */
	BGL_EXPORTED_DEF obj_t BGl_setzd2prompterz12zc0zz__evalz00(obj_t
		BgL_procz00_28)
	{
		{	/* Eval/eval.scm 273 */
			if (PROCEDURE_CORRECT_ARITYP(BgL_procz00_28, (int) (1L)))
				{	/* Eval/eval.scm 274 */
					return (BGl_za2promptza2z00zz__evalz00 = BgL_procz00_28, BUNSPEC);
				}
			else
				{	/* Eval/eval.scm 274 */
					return
						BGl_errorz00zz__errorz00(BGl_symbol2699z00zz__evalz00,
						BGl_string2701z00zz__evalz00, BgL_procz00_28);
				}
		}

	}



/* &set-prompter! */
	obj_t BGl_z62setzd2prompterz12za2zz__evalz00(obj_t BgL_envz00_3640,
		obj_t BgL_procz00_3641)
	{
		{	/* Eval/eval.scm 273 */
			{	/* Eval/eval.scm 274 */
				obj_t BgL_auxz00_6217;

				if (PROCEDUREP(BgL_procz00_3641))
					{	/* Eval/eval.scm 274 */
						BgL_auxz00_6217 = BgL_procz00_3641;
					}
				else
					{
						obj_t BgL_auxz00_6220;

						BgL_auxz00_6220 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2674z00zz__evalz00,
							BINT(11010L), BGl_string2702z00zz__evalz00,
							BGl_string2679z00zz__evalz00, BgL_procz00_3641);
						FAILURE(BgL_auxz00_6220, BFALSE, BFALSE);
					}
				return BGl_setzd2prompterz12zc0zz__evalz00(BgL_auxz00_6217);
			}
		}

	}



/* get-prompter */
	BGL_EXPORTED_DEF obj_t BGl_getzd2prompterzd2zz__evalz00(void)
	{
		{	/* Eval/eval.scm 283 */
			{	/* Eval/eval.scm 283 */
				obj_t BgL_aux2327z00_3817;

				BgL_aux2327z00_3817 = BGl_za2promptza2z00zz__evalz00;
				if (PROCEDUREP(BgL_aux2327z00_3817))
					{	/* Eval/eval.scm 283 */
						return BgL_aux2327z00_3817;
					}
				else
					{
						obj_t BgL_auxz00_6227;

						BgL_auxz00_6227 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2674z00zz__evalz00,
							BINT(11393L), BGl_string2703z00zz__evalz00,
							BGl_string2679z00zz__evalz00, BgL_aux2327z00_3817);
						FAILURE(BgL_auxz00_6227, BFALSE, BFALSE);
					}
			}
		}

	}



/* &get-prompter */
	obj_t BGl_z62getzd2prompterzb0zz__evalz00(obj_t BgL_envz00_3642)
	{
		{	/* Eval/eval.scm 283 */
			return BGl_getzd2prompterzd2zz__evalz00();
		}

	}



/* repl */
	BGL_EXPORTED_DEF obj_t BGl_replz00zz__evalz00(void)
	{
		{	/* Eval/eval.scm 295 */
			{	/* Eval/eval.scm 296 */
				obj_t BgL_replzd2quitzd2_1365;
				obj_t BgL_replzd2numzd2_1366;

				BgL_replzd2quitzd2_1365 = BGl_za2replzd2quitza2zd2zz__evalz00;
				BgL_replzd2numzd2_1366 = BGl_za2replzd2numza2zd2zz__evalz00;
				BGl_zc3z04exitza31425ze3ze70z60zz__evalz00(BgL_replzd2quitzd2_1365,
					BgL_replzd2numzd2_1366);
				{	/* Eval/eval.scm 306 */
					obj_t BgL_arg1427z00_1379;

					{	/* Eval/eval.scm 306 */
						obj_t BgL_tmpz00_6233;

						BgL_tmpz00_6233 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_arg1427z00_1379 = BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_6233);
					}
					bgl_display_char(((unsigned char) 10), BgL_arg1427z00_1379);
				}
				{	/* Eval/eval.scm 307 */
					obj_t BgL_arg1428z00_1380;

					{	/* Eval/eval.scm 307 */
						obj_t BgL_tmpz00_6237;

						BgL_tmpz00_6237 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_arg1428z00_1380 = BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_6237);
					}
					return bgl_flush_output_port(BgL_arg1428z00_1380);
				}
			}
		}

	}



/* <@exit:1425>~0 */
	obj_t BGl_zc3z04exitza31425ze3ze70z60zz__evalz00(obj_t
		BgL_replzd2quitzd2_3756, obj_t BgL_replzd2numzd2_3755)
	{
		{	/* Eval/eval.scm 298 */
			jmp_buf_t jmpbuf;
			void *BgL_an_exit1065z00_1368;

			if (SET_EXIT(BgL_an_exit1065z00_1368))
				{
					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_exit1065z00_1368 = (void *) jmpbuf;
					{	/* Eval/eval.scm 298 */
						obj_t BgL_env1069z00_1369;

						BgL_env1069z00_1369 = BGL_CURRENT_DYNAMIC_ENV();
						PUSH_ENV_EXIT(BgL_env1069z00_1369, BgL_an_exit1065z00_1368, 1L);
						{	/* Eval/eval.scm 298 */
							obj_t BgL_an_exitd1066z00_1370;

							BgL_an_exitd1066z00_1370 =
								BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1069z00_1369);
							{	/* Eval/eval.scm 298 */
								obj_t BgL_quitz00_3644;

								BgL_quitz00_3644 =
									MAKE_FX_PROCEDURE(BGl_z62quitz62zz__evalz00,
									(int) (1L), (int) (1L));
								PROCEDURE_SET(BgL_quitz00_3644,
									(int) (0L), BgL_an_exitd1066z00_1370);
								{	/* Eval/eval.scm 298 */
									obj_t BgL_res1068z00_1373;

									BGl_za2replzd2quitza2zd2zz__evalz00 = BgL_quitz00_3644;
									{
										obj_t BgL_tmpz00_6251;

										{	/* Eval/eval.scm 300 */
											obj_t BgL_aux2329z00_3819;

											BgL_aux2329z00_3819 = BGl_za2replzd2numza2zd2zz__evalz00;
											if (INTEGERP(BgL_aux2329z00_3819))
												{	/* Eval/eval.scm 300 */
													BgL_tmpz00_6251 = BgL_aux2329z00_3819;
												}
											else
												{
													obj_t BgL_auxz00_6255;

													BgL_auxz00_6255 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2674z00zz__evalz00, BINT(12102L),
														BGl_string2704z00zz__evalz00,
														BGl_string2694z00zz__evalz00, BgL_aux2329z00_3819);
													FAILURE(BgL_auxz00_6255, BFALSE, BFALSE);
												}
										}
										BGl_za2replzd2numza2zd2zz__evalz00 =
											ADDFX(BINT(1L), BgL_tmpz00_6251);
									}
									{	/* Eval/eval.scm 301 */
										obj_t BgL_exitd1061z00_1374;

										BgL_exitd1061z00_1374 = BGL_EXITD_TOP_AS_OBJ();
										{	/* Eval/eval.scm 304 */
											obj_t BgL_zc3z04anonymousza31426ze3z87_3643;

											BgL_zc3z04anonymousza31426ze3z87_3643 =
												MAKE_FX_PROCEDURE
												(BGl_z62zc3z04anonymousza31426ze3ze5zz__evalz00,
												(int) (0L), (int) (2L));
											PROCEDURE_SET(BgL_zc3z04anonymousza31426ze3z87_3643,
												(int) (0L), BgL_replzd2numzd2_3755);
											PROCEDURE_SET(BgL_zc3z04anonymousza31426ze3z87_3643,
												(int) (1L), BgL_replzd2quitzd2_3756);
											{	/* Eval/eval.scm 301 */
												obj_t BgL_arg2235z00_2664;

												{	/* Eval/eval.scm 301 */
													obj_t BgL_arg2237z00_2665;

													BgL_arg2237z00_2665 =
														BGL_EXITD_PROTECT(BgL_exitd1061z00_1374);
													BgL_arg2235z00_2664 =
														MAKE_YOUNG_PAIR
														(BgL_zc3z04anonymousza31426ze3z87_3643,
														BgL_arg2237z00_2665);
												}
												BGL_EXITD_PROTECT_SET(BgL_exitd1061z00_1374,
													BgL_arg2235z00_2664);
												BUNSPEC;
											}
											{	/* Eval/eval.scm 302 */
												obj_t BgL_tmp1063z00_1376;

												BgL_tmp1063z00_1376 =
													BGl_internalzd2replzd2zz__evalz00();
												{	/* Eval/eval.scm 301 */
													bool_t BgL_test3123z00_6272;

													{	/* Eval/eval.scm 301 */
														obj_t BgL_arg2234z00_2667;

														BgL_arg2234z00_2667 =
															BGL_EXITD_PROTECT(BgL_exitd1061z00_1374);
														BgL_test3123z00_6272 = PAIRP(BgL_arg2234z00_2667);
													}
													if (BgL_test3123z00_6272)
														{	/* Eval/eval.scm 301 */
															obj_t BgL_arg2232z00_2668;

															{	/* Eval/eval.scm 301 */
																obj_t BgL_arg2233z00_2669;

																BgL_arg2233z00_2669 =
																	BGL_EXITD_PROTECT(BgL_exitd1061z00_1374);
																{	/* Eval/eval.scm 301 */
																	obj_t BgL_pairz00_2670;

																	if (PAIRP(BgL_arg2233z00_2669))
																		{	/* Eval/eval.scm 301 */
																			BgL_pairz00_2670 = BgL_arg2233z00_2669;
																		}
																	else
																		{
																			obj_t BgL_auxz00_6278;

																			BgL_auxz00_6278 =
																				BGl_typezd2errorzd2zz__errorz00
																				(BGl_string2674z00zz__evalz00,
																				BINT(12117L),
																				BGl_string2704z00zz__evalz00,
																				BGl_string2685z00zz__evalz00,
																				BgL_arg2233z00_2669);
																			FAILURE(BgL_auxz00_6278, BFALSE, BFALSE);
																		}
																	BgL_arg2232z00_2668 = CDR(BgL_pairz00_2670);
																}
															}
															BGL_EXITD_PROTECT_SET(BgL_exitd1061z00_1374,
																BgL_arg2232z00_2668);
															BUNSPEC;
														}
													else
														{	/* Eval/eval.scm 301 */
															BFALSE;
														}
												}
												BGl_za2replzd2numza2zd2zz__evalz00 =
													BgL_replzd2numzd2_3755;
												BGl_za2replzd2quitza2zd2zz__evalz00 =
													BgL_replzd2quitzd2_3756;
												BgL_res1068z00_1373 = BgL_tmp1063z00_1376;
											}
										}
									}
									POP_ENV_EXIT(BgL_env1069z00_1369);
									return BgL_res1068z00_1373;
								}
							}
						}
					}
				}
		}

	}



/* &repl */
	obj_t BGl_z62replz62zz__evalz00(obj_t BgL_envz00_3645)
	{
		{	/* Eval/eval.scm 295 */
			return BGl_replz00zz__evalz00();
		}

	}



/* &<@anonymous:1426> */
	obj_t BGl_z62zc3z04anonymousza31426ze3ze5zz__evalz00(obj_t BgL_envz00_3646)
	{
		{	/* Eval/eval.scm 301 */
			{	/* Eval/eval.scm 304 */
				obj_t BgL_replzd2numzd2_3647;
				obj_t BgL_replzd2quitzd2_3648;

				BgL_replzd2numzd2_3647 = PROCEDURE_REF(BgL_envz00_3646, (int) (0L));
				BgL_replzd2quitzd2_3648 = PROCEDURE_REF(BgL_envz00_3646, (int) (1L));
				BGl_za2replzd2numza2zd2zz__evalz00 = BgL_replzd2numzd2_3647;
				return (BGl_za2replzd2quitza2zd2zz__evalz00 =
					BgL_replzd2quitzd2_3648, BUNSPEC);
			}
		}

	}



/* &quit */
	obj_t BGl_z62quitz62zz__evalz00(obj_t BgL_envz00_3649,
		obj_t BgL_val1067z00_3651)
	{
		{	/* Eval/eval.scm 298 */
			return
				unwind_stack_until(PROCEDURE_REF(BgL_envz00_3649,
					(int) (0L)), BFALSE, BgL_val1067z00_3651, BFALSE, BFALSE);
		}

	}



/* get-eval-reader */
	obj_t BGl_getzd2evalzd2readerz00zz__evalz00(void)
	{
		{	/* Eval/eval.scm 312 */
			{	/* Eval/eval.scm 313 */
				obj_t BgL__ortest_1071z00_1381;

				BgL__ortest_1071z00_1381 = BGl_bigloozd2loadzd2readerz00zz__paramz00();
				if (CBOOL(BgL__ortest_1071z00_1381))
					{	/* Eval/eval.scm 313 */
						return BgL__ortest_1071z00_1381;
					}
				else
					{	/* Eval/eval.scm 313 */
						return BGl_proc2705z00zz__evalz00;
					}
			}
		}

	}



/* &<@anonymous:1429> */
	obj_t BGl_z62zc3z04anonymousza31429ze3ze5zz__evalz00(obj_t BgL_envz00_3653,
		obj_t BgL_pz00_3654)
	{
		{	/* Eval/eval.scm 314 */
			{	/* Eval/eval.scm 314 */
				obj_t BgL_auxz00_6296;

				if (INPUT_PORTP(BgL_pz00_3654))
					{	/* Eval/eval.scm 314 */
						BgL_auxz00_6296 = BgL_pz00_3654;
					}
				else
					{
						obj_t BgL_auxz00_6299;

						BgL_auxz00_6299 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2674z00zz__evalz00,
							BINT(12603L), BGl_string2706z00zz__evalz00,
							BGl_string2707z00zz__evalz00, BgL_pz00_3654);
						FAILURE(BgL_auxz00_6299, BFALSE, BFALSE);
					}
				return BGl_readz00zz__readerz00(BgL_auxz00_6296, BTRUE);
			}
		}

	}



/* set-repl-error-notifier! */
	BGL_EXPORTED_DEF obj_t
		BGl_setzd2replzd2errorzd2notifierz12zc0zz__evalz00(obj_t BgL_procz00_29)
	{
		{	/* Eval/eval.scm 319 */
			{	/* Eval/eval.scm 320 */
				bool_t BgL_test3127z00_6304;

				{	/* Eval/eval.scm 320 */
					obj_t BgL_tmpz00_6305;

					if (PROCEDUREP(BgL_procz00_29))
						{	/* Eval/eval.scm 320 */
							BgL_tmpz00_6305 = BgL_procz00_29;
						}
					else
						{
							obj_t BgL_auxz00_6308;

							BgL_auxz00_6308 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2674z00zz__evalz00,
								BINT(12904L), BGl_string2708z00zz__evalz00,
								BGl_string2679z00zz__evalz00, BgL_procz00_29);
							FAILURE(BgL_auxz00_6308, BFALSE, BFALSE);
						}
					BgL_test3127z00_6304 =
						PROCEDURE_CORRECT_ARITYP(BgL_tmpz00_6305, (int) (1L));
				}
				if (BgL_test3127z00_6304)
					{	/* Eval/eval.scm 321 */
						obj_t BgL_arg1430z00_2675;

						{	/* Eval/eval.scm 321 */
							obj_t BgL_list1431z00_2676;

							BgL_list1431z00_2676 = MAKE_YOUNG_PAIR(BgL_procz00_29, BNIL);
							BgL_arg1430z00_2675 = BgL_list1431z00_2676;
						}
						return BGL_ERROR_NOTIFIERS_SET(BgL_arg1430z00_2675);
					}
				else
					{	/* Eval/eval.scm 320 */
						return
							BGl_errorz00zz__errorz00(BGl_string2708z00zz__evalz00,
							BGl_string2709z00zz__evalz00, BgL_procz00_29);
					}
			}
		}

	}



/* &set-repl-error-notifier! */
	obj_t BGl_z62setzd2replzd2errorzd2notifierz12za2zz__evalz00(obj_t
		BgL_envz00_3655, obj_t BgL_procz00_3656)
	{
		{	/* Eval/eval.scm 319 */
			return
				BGl_setzd2replzd2errorzd2notifierz12zc0zz__evalz00(BgL_procz00_3656);
		}

	}



/* get-repl-error-notifier */
	BGL_EXPORTED_DEF obj_t BGl_getzd2replzd2errorzd2notifierzd2zz__evalz00(void)
	{
		{	/* Eval/eval.scm 327 */
			{	/* Eval/eval.scm 328 */
				bool_t BgL_test3129z00_6318;

				{	/* Eval/eval.scm 328 */
					obj_t BgL_arg1435z00_1389;

					BgL_arg1435z00_1389 = BGL_ERROR_NOTIFIERS_GET();
					BgL_test3129z00_6318 = PAIRP(BgL_arg1435z00_1389);
				}
				if (BgL_test3129z00_6318)
					{	/* Eval/eval.scm 329 */
						obj_t BgL_arg1434z00_1388;

						BgL_arg1434z00_1388 = BGL_ERROR_NOTIFIERS_GET();
						{	/* Eval/eval.scm 329 */
							obj_t BgL_pairz00_2678;

							if (PAIRP(BgL_arg1434z00_1388))
								{	/* Eval/eval.scm 329 */
									BgL_pairz00_2678 = BgL_arg1434z00_1388;
								}
							else
								{
									obj_t BgL_auxz00_6324;

									BgL_auxz00_6324 =
										BGl_typezd2errorzd2zz__errorz00
										(BGl_string2674z00zz__evalz00, BINT(13368L),
										BGl_string2710z00zz__evalz00, BGl_string2685z00zz__evalz00,
										BgL_arg1434z00_1388);
									FAILURE(BgL_auxz00_6324, BFALSE, BFALSE);
								}
							return CAR(BgL_pairz00_2678);
						}
					}
				else
					{	/* Eval/eval.scm 328 */
						return BFALSE;
					}
			}
		}

	}



/* &get-repl-error-notifier */
	obj_t BGl_z62getzd2replzd2errorzd2notifierzb0zz__evalz00(obj_t
		BgL_envz00_3657)
	{
		{	/* Eval/eval.scm 327 */
			return BGl_getzd2replzd2errorzd2notifierzd2zz__evalz00();
		}

	}



/* internal-repl */
	obj_t BGl_internalzd2replzd2zz__evalz00(void)
	{
		{	/* Eval/eval.scm 334 */
			{	/* Eval/eval.scm 335 */
				obj_t BgL_oldzd2intrhdlzd2_1390;

				BgL_oldzd2intrhdlzd2_1390 =
					BGl_getzd2signalzd2handlerz00zz__osz00(SIGINT);
				{	/* Eval/eval.scm 338 */
					obj_t BgL_exitd1072z00_1392;

					BgL_exitd1072z00_1392 = BGL_EXITD_TOP_AS_OBJ();
					{	/* Eval/eval.scm 379 */
						obj_t BgL_zc3z04anonymousza31466ze3z87_3660;

						BgL_zc3z04anonymousza31466ze3z87_3660 =
							MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31466ze3ze5zz__evalz00,
							(int) (0L), (int) (1L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31466ze3z87_3660,
							(int) (0L), BgL_oldzd2intrhdlzd2_1390);
						{	/* Eval/eval.scm 338 */
							obj_t BgL_arg2235z00_2683;

							{	/* Eval/eval.scm 338 */
								obj_t BgL_arg2237z00_2684;

								BgL_arg2237z00_2684 = BGL_EXITD_PROTECT(BgL_exitd1072z00_1392);
								BgL_arg2235z00_2683 =
									MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31466ze3z87_3660,
									BgL_arg2237z00_2684);
							}
							BGL_EXITD_PROTECT_SET(BgL_exitd1072z00_1392, BgL_arg2235z00_2683);
							BUNSPEC;
						}
						{	/* Eval/eval.scm 339 */
							obj_t BgL_tmp1074z00_1394;

							{	/* Eval/eval.scm 339 */
								obj_t BgL_g1077z00_1395;

								BgL_g1077z00_1395 = BGl_evalzd2modulezd2zz__evmodulez00();
								{
									obj_t BgL_modz00_1397;

									BgL_modz00_1397 = BgL_g1077z00_1395;
								BgL_zc3z04anonymousza31436ze3z87_1398:
									BGl_zc3z04exitza31437ze3ze70z60zz__evalz00(BgL_modz00_1397);
									{

										goto BgL_zc3z04anonymousza31436ze3z87_1398;
									}
								}
							}
							{	/* Eval/eval.scm 338 */
								bool_t BgL_test3131z00_6342;

								{	/* Eval/eval.scm 338 */
									obj_t BgL_arg2234z00_2709;

									BgL_arg2234z00_2709 =
										BGL_EXITD_PROTECT(BgL_exitd1072z00_1392);
									BgL_test3131z00_6342 = PAIRP(BgL_arg2234z00_2709);
								}
								if (BgL_test3131z00_6342)
									{	/* Eval/eval.scm 338 */
										obj_t BgL_arg2232z00_2710;

										{	/* Eval/eval.scm 338 */
											obj_t BgL_arg2233z00_2711;

											BgL_arg2233z00_2711 =
												BGL_EXITD_PROTECT(BgL_exitd1072z00_1392);
											{	/* Eval/eval.scm 338 */
												obj_t BgL_pairz00_2712;

												if (PAIRP(BgL_arg2233z00_2711))
													{	/* Eval/eval.scm 338 */
														BgL_pairz00_2712 = BgL_arg2233z00_2711;
													}
												else
													{
														obj_t BgL_auxz00_6348;

														BgL_auxz00_6348 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2674z00zz__evalz00, BINT(13748L),
															BGl_string2711z00zz__evalz00,
															BGl_string2685z00zz__evalz00,
															BgL_arg2233z00_2711);
														FAILURE(BgL_auxz00_6348, BFALSE, BFALSE);
													}
												BgL_arg2232z00_2710 = CDR(BgL_pairz00_2712);
											}
										}
										BGL_EXITD_PROTECT_SET(BgL_exitd1072z00_1392,
											BgL_arg2232z00_2710);
										BUNSPEC;
									}
								else
									{	/* Eval/eval.scm 338 */
										BFALSE;
									}
							}
							BGl_z62zc3z04anonymousza31466ze3ze5zz__evalz00
								(BgL_zc3z04anonymousza31466ze3z87_3660);
							return BgL_tmp1074z00_1394;
						}
					}
				}
			}
		}

	}



/* <@exit:1445>~0 */
	obj_t BGl_zc3z04exitza31445ze3ze70z60zz__evalz00(obj_t BgL_modz00_3753,
		obj_t BgL_cell1081z00_3752, obj_t BgL_env1086z00_3751)
	{
		{	/* Eval/eval.scm 353 */
			jmp_buf_t jmpbuf;
			void *BgL_an_exit1092z00_1421;

			if (SET_EXIT(BgL_an_exit1092z00_1421))
				{
					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_exit1092z00_1421 = (void *) jmpbuf;
					PUSH_ENV_EXIT(BgL_env1086z00_3751, BgL_an_exit1092z00_1421, 1L);
					{	/* Eval/eval.scm 353 */
						obj_t BgL_escape1082z00_1422;

						BgL_escape1082z00_1422 =
							BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1086z00_3751);
						{	/* Eval/eval.scm 353 */
							obj_t BgL_res1095z00_1423;

							{	/* Eval/eval.scm 353 */
								obj_t BgL_ohs1078z00_1424;

								BgL_ohs1078z00_1424 =
									BGL_ENV_ERROR_HANDLER_GET(BgL_env1086z00_3751);
								{	/* Eval/eval.scm 353 */
									obj_t BgL_hds1079z00_1425;

									BgL_hds1079z00_1425 =
										MAKE_STACK_PAIR(BgL_escape1082z00_1422,
										BgL_cell1081z00_3752);
									BGL_ENV_ERROR_HANDLER_SET(BgL_env1086z00_3751,
										BgL_hds1079z00_1425);
									BUNSPEC;
									{	/* Eval/eval.scm 353 */
										obj_t BgL_exitd1088z00_1426;

										BgL_exitd1088z00_1426 =
											BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1086z00_3751);
										{	/* Eval/eval.scm 353 */
											obj_t BgL_tmp1090z00_1427;

											{	/* Eval/eval.scm 353 */
												obj_t BgL_arg1455z00_1446;

												BgL_arg1455z00_1446 =
													BGL_EXITD_PROTECT(BgL_exitd1088z00_1426);
												BgL_tmp1090z00_1427 =
													MAKE_YOUNG_PAIR(BgL_ohs1078z00_1424,
													BgL_arg1455z00_1446);
											}
											{	/* Eval/eval.scm 353 */

												BGL_EXITD_PROTECT_SET(BgL_exitd1088z00_1426,
													BgL_tmp1090z00_1427);
												BUNSPEC;
												{	/* Eval/eval.scm 364 */
													obj_t BgL_tmp1089z00_1428;

													{
														obj_t BgL_modz00_1430;

														BgL_modz00_1430 = BgL_modz00_3753;
													BgL_zc3z04anonymousza31446ze3z87_1431:
														{	/* Eval/eval.scm 364 */
															obj_t BgL_tmpfunz00_6369;

															{	/* Eval/eval.scm 364 */
																obj_t BgL_aux2340z00_3830;

																BgL_aux2340z00_3830 =
																	BGl_za2promptza2z00zz__evalz00;
																{	/* Eval/eval.scm 364 */
																	bool_t BgL_test2341z00_3831;

																	BgL_test2341z00_3831 =
																		PROCEDUREP(BgL_aux2340z00_3830);
																	if (BgL_test2341z00_3831)
																		{	/* Eval/eval.scm 364 */
																			BgL_tmpfunz00_6369 = BgL_aux2340z00_3830;
																		}
																	else
																		{
																			obj_t BgL_auxz00_6372;

																			BgL_auxz00_6372 =
																				BGl_typezd2errorzd2zz__errorz00
																				(BGl_string2674z00zz__evalz00,
																				BINT(14554L),
																				BGl_string2712z00zz__evalz00,
																				BGl_string2679z00zz__evalz00,
																				BgL_aux2340z00_3830);
																			FAILURE(BgL_auxz00_6372, BFALSE, BFALSE);
																		}
																}
															}
															(VA_PROCEDUREP(BgL_tmpfunz00_6369)
																? ((obj_t(*)(obj_t,
																			...))
																	PROCEDURE_ENTRY(BgL_tmpfunz00_6369))
																(BGl_za2promptza2z00zz__evalz00,
																	BGl_za2replzd2numza2zd2zz__evalz00,
																	BEOA) : ((obj_t(*)(obj_t,
																			obj_t))
																	PROCEDURE_ENTRY(BgL_tmpfunz00_6369))
																(BGl_za2promptza2z00zz__evalz00,
																	BGl_za2replzd2numza2zd2zz__evalz00));
														}
														{	/* Eval/eval.scm 365 */
															obj_t BgL_expz00_1432;

															{	/* Eval/eval.scm 337 */
																obj_t BgL_fun1473z00_2692;

																BgL_fun1473z00_2692 =
																	BGl_getzd2evalzd2readerz00zz__evalz00();
																{	/* Eval/eval.scm 337 */
																	obj_t BgL_arg1472z00_2693;

																	{	/* Eval/eval.scm 337 */
																		obj_t BgL_tmpz00_6377;

																		BgL_tmpz00_6377 = BGL_CURRENT_DYNAMIC_ENV();
																		BgL_arg1472z00_2693 =
																			BGL_ENV_CURRENT_INPUT_PORT
																			(BgL_tmpz00_6377);
																	}
																	{	/* Eval/eval.scm 337 */
																		obj_t BgL_tmpfunz00_6383;

																		{	/* Eval/eval.scm 337 */
																			bool_t BgL_test2343z00_3833;

																			BgL_test2343z00_3833 =
																				PROCEDUREP(BgL_fun1473z00_2692);
																			if (BgL_test2343z00_3833)
																				{	/* Eval/eval.scm 337 */
																					BgL_tmpfunz00_6383 =
																						BgL_fun1473z00_2692;
																				}
																			else
																				{
																					obj_t BgL_auxz00_6386;

																					BgL_auxz00_6386 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string2674z00zz__evalz00,
																						BINT(13698L),
																						BGl_string2712z00zz__evalz00,
																						BGl_string2679z00zz__evalz00,
																						BgL_fun1473z00_2692);
																					FAILURE(BgL_auxz00_6386, BFALSE,
																						BFALSE);
																				}
																		}
																		BgL_expz00_1432 =
																			(VA_PROCEDUREP(BgL_tmpfunz00_6383)
																			? ((obj_t(*)(obj_t,
																						...))
																				PROCEDURE_ENTRY(BgL_tmpfunz00_6383))
																			(BgL_fun1473z00_2692, BgL_arg1472z00_2693,
																				BEOA) : ((obj_t(*)(obj_t,
																						obj_t))
																				PROCEDURE_ENTRY(BgL_tmpfunz00_6383))
																			(BgL_fun1473z00_2692,
																				BgL_arg1472z00_2693));
																	}
																}
															}
															if (EOF_OBJECTP(BgL_expz00_1432))
																{	/* Eval/eval.scm 431 */
																	obj_t BgL_tmpfunz00_6396;

																	{	/* Eval/eval.scm 431 */
																		obj_t BgL_aux2344z00_3834;

																		BgL_aux2344z00_3834 =
																			BGl_za2replzd2quitza2zd2zz__evalz00;
																		{	/* Eval/eval.scm 431 */
																			bool_t BgL_test2345z00_3835;

																			BgL_test2345z00_3835 =
																				PROCEDUREP(BgL_aux2344z00_3834);
																			if (BgL_test2345z00_3835)
																				{	/* Eval/eval.scm 431 */
																					BgL_tmpfunz00_6396 =
																						BgL_aux2344z00_3834;
																				}
																			else
																				{
																					obj_t BgL_auxz00_6399;

																					BgL_auxz00_6399 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string2674z00zz__evalz00,
																						BINT(17398L),
																						BGl_string2712z00zz__evalz00,
																						BGl_string2679z00zz__evalz00,
																						BgL_aux2344z00_3834);
																					FAILURE(BgL_auxz00_6399, BFALSE,
																						BFALSE);
																				}
																		}
																	}
																	BgL_tmp1089z00_1428 =
																		(VA_PROCEDUREP(BgL_tmpfunz00_6396)
																		? ((obj_t(*)(obj_t,
																					...))
																			PROCEDURE_ENTRY(BgL_tmpfunz00_6396))
																		(BGl_za2replzd2quitza2zd2zz__evalz00,
																			BINT(0L), BEOA) : ((obj_t(*)(obj_t,
																					obj_t))
																			PROCEDURE_ENTRY(BgL_tmpfunz00_6396))
																		(BGl_za2replzd2quitza2zd2zz__evalz00,
																			BINT(0L)));
																}
															else
																{	/* Eval/eval.scm 368 */
																	obj_t BgL_vz00_1434;

																	{	/* Eval/eval.scm 81 */
																		obj_t BgL_envz00_1444;

																		{	/* Eval/eval.scm 257 */
																			obj_t BgL_mz00_2695;

																			BgL_mz00_2695 =
																				BGl_evalzd2modulezd2zz__evmodulez00();
																			if (BGl_evmodulezf3zf3zz__evmodulez00
																				(BgL_mz00_2695))
																				{	/* Eval/eval.scm 258 */
																					BgL_envz00_1444 = BgL_mz00_2695;
																				}
																			else
																				{	/* Eval/eval.scm 258 */
																					BgL_envz00_1444 =
																						BGl_symbol2677z00zz__evalz00;
																				}
																		}
																		{	/* Eval/eval.scm 81 */

																			{	/* Eval/eval.scm 170 */
																				obj_t BgL_auxz00_6406;

																				{	/* Eval/eval.scm 170 */
																					obj_t BgL_aux2346z00_3836;

																					BgL_aux2346z00_3836 =
																						BGl_defaultzd2evaluatezd2zz__evalz00;
																					if (PROCEDUREP(BgL_aux2346z00_3836))
																						{	/* Eval/eval.scm 170 */
																							BgL_auxz00_6406 =
																								BgL_aux2346z00_3836;
																						}
																					else
																						{
																							obj_t BgL_auxz00_6409;

																							BgL_auxz00_6409 =
																								BGl_typezd2errorzd2zz__errorz00
																								(BGl_string2674z00zz__evalz00,
																								BINT(6408L),
																								BGl_string2712z00zz__evalz00,
																								BGl_string2679z00zz__evalz00,
																								BgL_aux2346z00_3836);
																							FAILURE(BgL_auxz00_6409, BFALSE,
																								BFALSE);
																						}
																				}
																				BgL_vz00_1434 =
																					BGl_evalzf2expanderzf2zz__evalz00
																					(BgL_expz00_1432, BgL_envz00_1444,
																					BGl_expandzd2envzd2zz__expandz00,
																					BgL_auxz00_6406);
																			}
																		}
																	}
																	{	/* Eval/eval.scm 368 */
																		obj_t BgL_nmodz00_1435;

																		BgL_nmodz00_1435 =
																			BGl_evalzd2modulezd2zz__evmodulez00();
																		{	/* Eval/eval.scm 369 */

																			{	/* Eval/eval.scm 370 */
																				bool_t BgL_test3139z00_6415;

																				if (
																					(BgL_nmodz00_1435 == BgL_modz00_1430))
																					{	/* Eval/eval.scm 370 */
																						BgL_test3139z00_6415 = ((bool_t) 0);
																					}
																				else
																					{	/* Eval/eval.scm 370 */
																						BgL_test3139z00_6415 =
																							BGl_evmodulezf3zf3zz__evmodulez00
																							(BgL_modz00_1430);
																					}
																				if (BgL_test3139z00_6415)
																					{	/* Eval/eval.scm 370 */
																						BGl_evmodulezd2checkzd2unboundz00zz__evmodulez00
																							(BgL_modz00_1430, BFALSE);
																					}
																				else
																					{	/* Eval/eval.scm 370 */
																						BFALSE;
																					}
																			}
																			{	/* Eval/eval.scm 373 */
																				bool_t BgL_test3141z00_6420;

																				{	/* Eval/eval.scm 373 */
																					obj_t BgL_arg1452z00_1440;

																					{	/* Eval/eval.scm 373 */
																						obj_t BgL_tmpz00_6421;

																						BgL_tmpz00_6421 =
																							BGL_CURRENT_DYNAMIC_ENV();
																						BgL_arg1452z00_1440 =
																							BGL_ENV_CURRENT_OUTPUT_PORT
																							(BgL_tmpz00_6421);
																					}
																					BgL_test3141z00_6420 =
																						(BGl_za2transcriptza2z00zz__evalz00
																						== BgL_arg1452z00_1440);
																				}
																				if (BgL_test3141z00_6420)
																					{	/* Eval/eval.scm 373 */
																						BFALSE;
																					}
																				else
																					{	/* Eval/eval.scm 374 */
																						obj_t BgL_port1242z00_1439;

																						BgL_port1242z00_1439 =
																							BGl_za2transcriptza2z00zz__evalz00;
																						{	/* Eval/eval.scm 374 */
																							obj_t BgL_portz00_2699;

																							if (OUTPUT_PORTP
																								(BgL_port1242z00_1439))
																								{	/* Eval/eval.scm 374 */
																									BgL_portz00_2699 =
																										BgL_port1242z00_1439;
																								}
																							else
																								{
																									obj_t BgL_auxz00_6427;

																									BgL_auxz00_6427 =
																										BGl_typezd2errorzd2zz__errorz00
																										(BGl_string2674z00zz__evalz00,
																										BINT(14884L),
																										BGl_string2712z00zz__evalz00,
																										BGl_string2713z00zz__evalz00,
																										BgL_port1242z00_1439);
																									FAILURE(BgL_auxz00_6427,
																										BFALSE, BFALSE);
																								}
																							bgl_display_string
																								(BGl_string2714z00zz__evalz00,
																								BgL_portz00_2699);
																						}
																						{	/* Eval/eval.scm 374 */
																							obj_t BgL_auxz00_6432;

																							if (OUTPUT_PORTP
																								(BgL_port1242z00_1439))
																								{	/* Eval/eval.scm 374 */
																									BgL_auxz00_6432 =
																										BgL_port1242z00_1439;
																								}
																							else
																								{
																									obj_t BgL_auxz00_6435;

																									BgL_auxz00_6435 =
																										BGl_typezd2errorzd2zz__errorz00
																										(BGl_string2674z00zz__evalz00,
																										BINT(14884L),
																										BGl_string2712z00zz__evalz00,
																										BGl_string2713z00zz__evalz00,
																										BgL_port1242z00_1439);
																									FAILURE(BgL_auxz00_6435,
																										BFALSE, BFALSE);
																								}
																							bgl_display_obj(BgL_expz00_1432,
																								BgL_auxz00_6432);
																						}
																						{	/* Eval/eval.scm 374 */
																							obj_t BgL_portz00_2700;

																							if (OUTPUT_PORTP
																								(BgL_port1242z00_1439))
																								{	/* Eval/eval.scm 374 */
																									BgL_portz00_2700 =
																										BgL_port1242z00_1439;
																								}
																							else
																								{
																									obj_t BgL_auxz00_6442;

																									BgL_auxz00_6442 =
																										BGl_typezd2errorzd2zz__errorz00
																										(BGl_string2674z00zz__evalz00,
																										BINT(14884L),
																										BGl_string2712z00zz__evalz00,
																										BGl_string2713z00zz__evalz00,
																										BgL_port1242z00_1439);
																									FAILURE(BgL_auxz00_6442,
																										BFALSE, BFALSE);
																								}
																							bgl_display_char(((unsigned char)
																									10), BgL_portz00_2700);
																			}}}
																			{	/* Eval/eval.scm 375 */
																				obj_t BgL_tmpfunz00_6451;

																				{	/* Eval/eval.scm 375 */
																					obj_t BgL_aux2354z00_3844;

																					BgL_aux2354z00_3844 =
																						BGl_za2replzd2printerza2zd2zz__evalz00;
																					{	/* Eval/eval.scm 375 */
																						bool_t BgL_test2355z00_3845;

																						BgL_test2355z00_3845 =
																							PROCEDUREP(BgL_aux2354z00_3844);
																						if (BgL_test2355z00_3845)
																							{	/* Eval/eval.scm 375 */
																								BgL_tmpfunz00_6451 =
																									BgL_aux2354z00_3844;
																							}
																						else
																							{
																								obj_t BgL_auxz00_6454;

																								BgL_auxz00_6454 =
																									BGl_typezd2errorzd2zz__errorz00
																									(BGl_string2674z00zz__evalz00,
																									BINT(14923L),
																									BGl_string2712z00zz__evalz00,
																									BGl_string2679z00zz__evalz00,
																									BgL_aux2354z00_3844);
																								FAILURE(BgL_auxz00_6454, BFALSE,
																									BFALSE);
																							}
																					}
																				}
																				(VA_PROCEDUREP(BgL_tmpfunz00_6451)
																					? ((obj_t(*)(obj_t,
																								...))
																						PROCEDURE_ENTRY(BgL_tmpfunz00_6451))
																					(BGl_za2replzd2printerza2zd2zz__evalz00,
																						BgL_vz00_1434,
																						BGl_za2transcriptza2z00zz__evalz00,
																						BEOA) : ((obj_t(*)(obj_t, obj_t,
																								obj_t))
																						PROCEDURE_ENTRY(BgL_tmpfunz00_6451))
																					(BGl_za2replzd2printerza2zd2zz__evalz00,
																						BgL_vz00_1434,
																						BGl_za2transcriptza2z00zz__evalz00));
																			}
																			{	/* Eval/eval.scm 376 */
																				obj_t BgL_portz00_2701;

																				{	/* Eval/eval.scm 376 */
																					obj_t BgL_aux2356z00_3846;

																					BgL_aux2356z00_3846 =
																						BGl_za2transcriptza2z00zz__evalz00;
																					if (OUTPUT_PORTP(BgL_aux2356z00_3846))
																						{	/* Eval/eval.scm 376 */
																							BgL_portz00_2701 =
																								BgL_aux2356z00_3846;
																						}
																					else
																						{
																							obj_t BgL_auxz00_6460;

																							BgL_auxz00_6460 =
																								BGl_typezd2errorzd2zz__errorz00
																								(BGl_string2674z00zz__evalz00,
																								BINT(14961L),
																								BGl_string2712z00zz__evalz00,
																								BGl_string2713z00zz__evalz00,
																								BgL_aux2356z00_3846);
																							FAILURE(BgL_auxz00_6460, BFALSE,
																								BFALSE);
																						}
																				}
																				bgl_display_char(((unsigned char) 10),
																					BgL_portz00_2701);
																			}
																			{	/* Eval/eval.scm 377 */
																				obj_t BgL_arg1453z00_1441;

																				if (CBOOL(BgL_nmodz00_1435))
																					{	/* Eval/eval.scm 377 */
																						BgL_arg1453z00_1441 =
																							BgL_nmodz00_1435;
																					}
																				else
																					{	/* Eval/eval.scm 377 */
																						BgL_arg1453z00_1441 =
																							BgL_modz00_1430;
																					}
																				{
																					obj_t BgL_modz00_6467;

																					BgL_modz00_6467 = BgL_arg1453z00_1441;
																					BgL_modz00_1430 = BgL_modz00_6467;
																					goto
																						BgL_zc3z04anonymousza31446ze3z87_1431;
																				}
																			}
																		}
																	}
																}
														}
													}
													{	/* Eval/eval.scm 353 */
														bool_t BgL_test3148z00_6468;

														{	/* Eval/eval.scm 353 */
															obj_t BgL_arg2234z00_2703;

															BgL_arg2234z00_2703 =
																BGL_EXITD_PROTECT(BgL_exitd1088z00_1426);
															BgL_test3148z00_6468 = PAIRP(BgL_arg2234z00_2703);
														}
														if (BgL_test3148z00_6468)
															{	/* Eval/eval.scm 353 */
																obj_t BgL_arg2232z00_2704;

																{	/* Eval/eval.scm 353 */
																	obj_t BgL_arg2233z00_2705;

																	BgL_arg2233z00_2705 =
																		BGL_EXITD_PROTECT(BgL_exitd1088z00_1426);
																	{	/* Eval/eval.scm 353 */
																		obj_t BgL_pairz00_2706;

																		if (PAIRP(BgL_arg2233z00_2705))
																			{	/* Eval/eval.scm 353 */
																				BgL_pairz00_2706 = BgL_arg2233z00_2705;
																			}
																		else
																			{
																				obj_t BgL_auxz00_6474;

																				BgL_auxz00_6474 =
																					BGl_typezd2errorzd2zz__errorz00
																					(BGl_string2674z00zz__evalz00,
																					BINT(14247L),
																					BGl_string2715z00zz__evalz00,
																					BGl_string2685z00zz__evalz00,
																					BgL_arg2233z00_2705);
																				FAILURE(BgL_auxz00_6474, BFALSE,
																					BFALSE);
																			}
																		BgL_arg2232z00_2704 = CDR(BgL_pairz00_2706);
																	}
																}
																BGL_EXITD_PROTECT_SET(BgL_exitd1088z00_1426,
																	BgL_arg2232z00_2704);
																BUNSPEC;
															}
														else
															{	/* Eval/eval.scm 353 */
																BFALSE;
															}
													}
													BGL_ENV_ERROR_HANDLER_SET(BgL_env1086z00_3751,
														BgL_ohs1078z00_1424);
													BUNSPEC;
													BgL_res1095z00_1423 = BgL_tmp1089z00_1428;
												}
											}
										}
									}
								}
							}
							POP_ENV_EXIT(BgL_env1086z00_3751);
							return BgL_res1095z00_1423;
						}
					}
				}
		}

	}



/* <@exit:1437>~0 */
	obj_t BGl_zc3z04exitza31437ze3ze70z60zz__evalz00(obj_t BgL_modz00_3754)
	{
		{	/* Eval/eval.scm 340 */
			jmp_buf_t jmpbuf;
			void *BgL_an_exit1097z00_1400;

			if (SET_EXIT(BgL_an_exit1097z00_1400))
				{
					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_1400 = (void *) jmpbuf;
					{	/* Eval/eval.scm 340 */
						obj_t BgL_env1101z00_1401;

						BgL_env1101z00_1401 = BGL_CURRENT_DYNAMIC_ENV();
						PUSH_ENV_EXIT(BgL_env1101z00_1401, BgL_an_exit1097z00_1400, 1L);
						{	/* Eval/eval.scm 340 */
							obj_t BgL_an_exitd1098z00_1402;

							BgL_an_exitd1098z00_1402 =
								BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1101z00_1401);
							{	/* Eval/eval.scm 340 */
								obj_t BgL_res1100z00_1405;

								{	/* Eval/eval.scm 343 */
									obj_t BgL_intrhdlz00_3658;

									BgL_intrhdlz00_3658 =
										MAKE_FX_PROCEDURE(BGl_z62intrhdlz62zz__evalz00,
										(int) (1L), (int) (1L));
									PROCEDURE_SET(BgL_intrhdlz00_3658,
										(int) (0L), BgL_an_exitd1098z00_1402);
									BGl_signalz00zz__osz00(SIGINT, BgL_intrhdlz00_3658);
								}
								{	/* Eval/eval.scm 351 */
									obj_t BgL_arg1442z00_1411;

									{	/* Eval/eval.scm 351 */
										obj_t BgL_tmpz00_6493;

										BgL_tmpz00_6493 = BGL_CURRENT_DYNAMIC_ENV();
										BgL_arg1442z00_1411 =
											BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_6493);
									}
									bgl_display_char(((unsigned char) 10), BgL_arg1442z00_1411);
								}
								{
									obj_t BgL_modz00_1413;

									BgL_modz00_1413 = BgL_modz00_3754;
								BgL_zc3z04anonymousza31443ze3z87_1414:
									{	/* Eval/eval.scm 353 */
										obj_t BgL_env1086z00_1416;

										BgL_env1086z00_1416 = BGL_CURRENT_DYNAMIC_ENV();
										{
											obj_t BgL_ez00_1447;

											{	/* Eval/eval.scm 353 */
												obj_t BgL_cell1081z00_1417;

												BgL_cell1081z00_1417 = MAKE_STACK_CELL(BUNSPEC);
												{	/* Eval/eval.scm 353 */
													obj_t BgL_val1085z00_1418;

													BgL_val1085z00_1418 =
														BGl_zc3z04exitza31445ze3ze70z60zz__evalz00
														(BgL_modz00_1413, BgL_cell1081z00_1417,
														BgL_env1086z00_1416);
													if ((BgL_val1085z00_1418 == BgL_cell1081z00_1417))
														{	/* Eval/eval.scm 353 */
															{	/* Eval/eval.scm 353 */
																int BgL_tmpz00_6502;

																BgL_tmpz00_6502 = (int) (0L);
																BGL_SIGSETMASK(BgL_tmpz00_6502);
															}
															{	/* Eval/eval.scm 353 */
																obj_t BgL_arg1444z00_1419;

																BgL_arg1444z00_1419 =
																	CELL_REF(((obj_t) BgL_val1085z00_1418));
																BgL_ez00_1447 = BgL_arg1444z00_1419;
																{	/* Eval/eval.scm 355 */
																	bool_t BgL_test3151z00_6507;

																	{	/* Eval/eval.scm 355 */
																		obj_t BgL_arg1461z00_1453;

																		BgL_arg1461z00_1453 =
																			BGL_ERROR_NOTIFIERS_GET();
																		BgL_test3151z00_6507 =
																			PAIRP(BgL_arg1461z00_1453);
																	}
																	if (BgL_test3151z00_6507)
																		{	/* Eval/eval.scm 356 */
																			obj_t BgL_fun1460z00_1452;

																			{	/* Eval/eval.scm 356 */
																				obj_t BgL_arg1459z00_1451;

																				BgL_arg1459z00_1451 =
																					BGL_ERROR_NOTIFIERS_GET();
																				{	/* Eval/eval.scm 356 */
																					obj_t BgL_pairz00_2689;

																					if (PAIRP(BgL_arg1459z00_1451))
																						{	/* Eval/eval.scm 356 */
																							BgL_pairz00_2689 =
																								BgL_arg1459z00_1451;
																						}
																					else
																						{
																							obj_t BgL_auxz00_6513;

																							BgL_auxz00_6513 =
																								BGl_typezd2errorzd2zz__errorz00
																								(BGl_string2674z00zz__evalz00,
																								BINT(14352L),
																								BGl_string2716z00zz__evalz00,
																								BGl_string2685z00zz__evalz00,
																								BgL_arg1459z00_1451);
																							FAILURE(BgL_auxz00_6513, BFALSE,
																								BFALSE);
																						}
																					BgL_fun1460z00_1452 =
																						CAR(BgL_pairz00_2689);
																				}
																			}
																			{	/* Eval/eval.scm 356 */
																				obj_t BgL_tmpfunz00_6521;

																				{	/* Eval/eval.scm 356 */
																					bool_t BgL_test2363z00_3853;

																					BgL_test2363z00_3853 =
																						PROCEDUREP(BgL_fun1460z00_1452);
																					if (BgL_test2363z00_3853)
																						{	/* Eval/eval.scm 356 */
																							BgL_tmpfunz00_6521 =
																								BgL_fun1460z00_1452;
																						}
																					else
																						{
																							obj_t BgL_auxz00_6524;

																							BgL_auxz00_6524 =
																								BGl_typezd2errorzd2zz__errorz00
																								(BGl_string2674z00zz__evalz00,
																								BINT(14325L),
																								BGl_string2716z00zz__evalz00,
																								BGl_string2679z00zz__evalz00,
																								BgL_fun1460z00_1452);
																							FAILURE(BgL_auxz00_6524, BFALSE,
																								BFALSE);
																						}
																				}
																				(VA_PROCEDUREP(BgL_tmpfunz00_6521)
																					? ((obj_t(*)(obj_t,
																								...))
																						PROCEDURE_ENTRY(BgL_tmpfunz00_6521))
																					(BgL_fun1460z00_1452, BgL_ez00_1447,
																						BEOA) : ((obj_t(*)(obj_t,
																								obj_t))
																						PROCEDURE_ENTRY(BgL_tmpfunz00_6521))
																					(BgL_fun1460z00_1452, BgL_ez00_1447));
																			}
																		}
																	else
																		{	/* Eval/eval.scm 355 */
																			BGl_errorzd2notifyzd2zz__errorz00
																				(BgL_ez00_1447);
																		}
																}
																{	/* Eval/eval.scm 358 */
																	BgL_z62errorz62_bglt BgL_i1087z00_1454;

																	{	/* Eval/eval.scm 359 */
																		bool_t BgL_test3154z00_6529;

																		{	/* Eval/eval.scm 359 */
																			obj_t BgL_classz00_4323;

																			BgL_classz00_4323 =
																				BGl_z62errorz62zz__objectz00;
																			if (BGL_OBJECTP(BgL_ez00_1447))
																				{	/* Eval/eval.scm 359 */
																					BgL_objectz00_bglt
																						BgL_arg2250z00_4325;
																					long BgL_arg2251z00_4326;

																					BgL_arg2250z00_4325 =
																						(BgL_objectz00_bglt)
																						(BgL_ez00_1447);
																					BgL_arg2251z00_4326 =
																						BGL_CLASS_DEPTH(BgL_classz00_4323);
																					if (BGL_CONDEXPAND_ISA_ARCH64())
																						{	/* Eval/eval.scm 359 */
																							long BgL_idxz00_4334;

																							BgL_idxz00_4334 =
																								BGL_OBJECT_INHERITANCE_NUM
																								(BgL_arg2250z00_4325);
																							{	/* Eval/eval.scm 359 */
																								obj_t BgL_arg2240z00_4335;

																								{	/* Eval/eval.scm 359 */
																									long BgL_arg2241z00_4336;

																									BgL_arg2241z00_4336 =
																										(BgL_idxz00_4334 +
																										BgL_arg2251z00_4326);
																									BgL_arg2240z00_4335 =
																										VECTOR_REF
																										(BGl_za2inheritancesza2z00zz__objectz00,
																										BgL_arg2241z00_4336);
																								}
																								BgL_test3154z00_6529 =
																									(BgL_arg2240z00_4335 ==
																									BgL_classz00_4323);
																						}}
																					else
																						{	/* Eval/eval.scm 359 */
																							bool_t BgL_res2270z00_4341;

																							{	/* Eval/eval.scm 359 */
																								obj_t BgL_oclassz00_4345;

																								{	/* Eval/eval.scm 359 */
																									obj_t BgL_arg2255z00_4347;
																									long BgL_arg2256z00_4348;

																									BgL_arg2255z00_4347 =
																										(BGl_za2classesza2z00zz__objectz00);
																									{	/* Eval/eval.scm 359 */
																										long BgL_arg2257z00_4349;

																										BgL_arg2257z00_4349 =
																											BGL_OBJECT_CLASS_NUM
																											(BgL_arg2250z00_4325);
																										BgL_arg2256z00_4348 =
																											(BgL_arg2257z00_4349 -
																											OBJECT_TYPE);
																									}
																									BgL_oclassz00_4345 =
																										VECTOR_REF
																										(BgL_arg2255z00_4347,
																										BgL_arg2256z00_4348);
																								}
																								{	/* Eval/eval.scm 359 */
																									bool_t
																										BgL__ortest_1235z00_4355;
																									BgL__ortest_1235z00_4355 =
																										(BgL_classz00_4323 ==
																										BgL_oclassz00_4345);
																									if (BgL__ortest_1235z00_4355)
																										{	/* Eval/eval.scm 359 */
																											BgL_res2270z00_4341 =
																												BgL__ortest_1235z00_4355;
																										}
																									else
																										{	/* Eval/eval.scm 359 */
																											long BgL_odepthz00_4356;

																											{	/* Eval/eval.scm 359 */
																												obj_t
																													BgL_arg2245z00_4357;
																												BgL_arg2245z00_4357 =
																													(BgL_oclassz00_4345);
																												BgL_odepthz00_4356 =
																													BGL_CLASS_DEPTH
																													(BgL_arg2245z00_4357);
																											}
																											if (
																												(BgL_arg2251z00_4326 <
																													BgL_odepthz00_4356))
																												{	/* Eval/eval.scm 359 */
																													obj_t
																														BgL_arg2242z00_4361;
																													{	/* Eval/eval.scm 359 */
																														obj_t
																															BgL_arg2243z00_4362;
																														BgL_arg2243z00_4362
																															=
																															(BgL_oclassz00_4345);
																														BgL_arg2242z00_4361
																															=
																															BGL_CLASS_ANCESTORS_REF
																															(BgL_arg2243z00_4362,
																															BgL_arg2251z00_4326);
																													}
																													BgL_res2270z00_4341 =
																														(BgL_arg2242z00_4361
																														==
																														BgL_classz00_4323);
																												}
																											else
																												{	/* Eval/eval.scm 359 */
																													BgL_res2270z00_4341 =
																														((bool_t) 0);
																												}
																										}
																								}
																							}
																							BgL_test3154z00_6529 =
																								BgL_res2270z00_4341;
																						}
																				}
																			else
																				{	/* Eval/eval.scm 359 */
																					BgL_test3154z00_6529 = ((bool_t) 0);
																				}
																		}
																		if (BgL_test3154z00_6529)
																			{	/* Eval/eval.scm 359 */
																				BgL_i1087z00_1454 =
																					((BgL_z62errorz62_bglt)
																					BgL_ez00_1447);
																			}
																		else
																			{
																				obj_t BgL_auxz00_6554;

																				BgL_auxz00_6554 =
																					BGl_typezd2errorzd2zz__errorz00
																					(BGl_string2674z00zz__evalz00,
																					BINT(14421L),
																					BGl_string2716z00zz__evalz00,
																					BGl_string2717z00zz__evalz00,
																					BgL_ez00_1447);
																				FAILURE(BgL_auxz00_6554, BFALSE,
																					BFALSE);
																			}
																	}
																	{	/* Eval/eval.scm 359 */
																		bool_t BgL_test3159z00_6558;

																		{	/* Eval/eval.scm 359 */
																			obj_t BgL_tmpz00_6559;

																			BgL_tmpz00_6559 =
																				(((BgL_z62errorz62_bglt)
																					COBJECT(BgL_i1087z00_1454))->
																				BgL_objz00);
																			BgL_test3159z00_6558 =
																				EOF_OBJECTP(BgL_tmpz00_6559);
																		}
																		if (BgL_test3159z00_6558)
																			{	/* Eval/eval.scm 360 */
																				obj_t BgL_arg1464z00_1457;

																				{	/* Eval/eval.scm 360 */
																					obj_t BgL_tmpz00_6562;

																					BgL_tmpz00_6562 =
																						BGL_CURRENT_DYNAMIC_ENV();
																					BgL_arg1464z00_1457 =
																						BGL_ENV_CURRENT_INPUT_PORT
																						(BgL_tmpz00_6562);
																				}
																				reset_eof(BgL_arg1464z00_1457);
																			}
																		else
																			{	/* Eval/eval.scm 359 */
																				((bool_t) 0);
																			}
																	}
																}
																{	/* Eval/eval.scm 361 */
																	int BgL_tmpz00_6566;

																	BgL_tmpz00_6566 = (int) (0L);
																	BGL_SIGSETMASK(BgL_tmpz00_6566);
																}
																{

																	goto BgL_zc3z04anonymousza31443ze3z87_1414;
																}
															}
														}
													else
														{	/* Eval/eval.scm 353 */
															BgL_res1100z00_1405 = BgL_val1085z00_1418;
														}
												}
											}
										}
									}
								}
								POP_ENV_EXIT(BgL_env1101z00_1401);
								return BgL_res1100z00_1405;
							}
						}
					}
				}
		}

	}



/* &intrhdl */
	obj_t BGl_z62intrhdlz62zz__evalz00(obj_t BgL_envz00_3661, obj_t BgL_nz00_3663)
	{
		{	/* Eval/eval.scm 342 */
			{	/* Eval/eval.scm 343 */
				obj_t BgL_an_exitd1098z00_3662;

				BgL_an_exitd1098z00_3662 = PROCEDURE_REF(BgL_envz00_3661, (int) (0L));
				{	/* Eval/eval.scm 343 */
					int BgL_auxz00_6572;

					{	/* Eval/eval.scm 343 */
						obj_t BgL_tmpz00_6573;

						if (INTEGERP(BgL_nz00_3663))
							{	/* Eval/eval.scm 343 */
								BgL_tmpz00_6573 = BgL_nz00_3663;
							}
						else
							{
								obj_t BgL_auxz00_6576;

								BgL_auxz00_6576 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2674z00zz__evalz00,
									BINT(13935L), BGl_string2718z00zz__evalz00,
									BGl_string2694z00zz__evalz00, BgL_nz00_3663);
								FAILURE(BgL_auxz00_6576, BFALSE, BFALSE);
							}
						BgL_auxz00_6572 = CINT(BgL_tmpz00_6573);
					}
					BGl_notifyzd2interruptzd2zz__errorz00(BgL_auxz00_6572);
				}
				{	/* Eval/eval.scm 345 */
					obj_t BgL_arg1439z00_4363;

					{	/* Eval/eval.scm 345 */
						obj_t BgL_tmpz00_6582;

						BgL_tmpz00_6582 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_arg1439z00_4363 = BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_6582);
					}
					reset_console(BgL_arg1439z00_4363);
				}
				{	/* Eval/eval.scm 347 */
					int BgL_tmpz00_6586;

					BgL_tmpz00_6586 = (int) (0L);
					BGL_SIGSETMASK(BgL_tmpz00_6586);
				}
				return
					unwind_stack_until(BgL_an_exitd1098z00_3662, BFALSE, BUNSPEC, BFALSE,
					BFALSE);
			}
		}

	}



/* &<@anonymous:1466> */
	obj_t BGl_z62zc3z04anonymousza31466ze3ze5zz__evalz00(obj_t BgL_envz00_3664)
	{
		{	/* Eval/eval.scm 338 */
			{	/* Eval/eval.scm 379 */
				obj_t BgL_oldzd2intrhdlzd2_3665;

				BgL_oldzd2intrhdlzd2_3665 = PROCEDURE_REF(BgL_envz00_3664, (int) (0L));
				if (PROCEDUREP(BgL_oldzd2intrhdlzd2_3665))
					{	/* Eval/eval.scm 379 */
						return BGl_signalz00zz__osz00(SIGINT, BgL_oldzd2intrhdlzd2_3665);
					}
				else
					{	/* Eval/eval.scm 379 */
						return BGl_signalz00zz__osz00(SIGINT, BGl_proc2719z00zz__evalz00);
					}
			}
		}

	}



/* &<@anonymous:1469> */
	obj_t BGl_z62zc3z04anonymousza31469ze3ze5zz__evalz00(obj_t BgL_envz00_3666,
		obj_t BgL_nz00_3667)
	{
		{	/* Eval/eval.scm 381 */
			{	/* Eval/eval.scm 381 */
				obj_t BgL_list1470z00_4364;

				BgL_list1470z00_4364 = MAKE_YOUNG_PAIR(BINT(0L), BNIL);
				return BGl_exitz00zz__errorz00(BgL_list1470z00_4364);
			}
		}

	}



/* &default-repl-printer */
	obj_t BGl_z62defaultzd2replzd2printerz62zz__evalz00(obj_t BgL_envz00_3619,
		obj_t BgL_expz00_3620, obj_t BgL_portz00_3621)
	{
		{	/* Eval/eval.scm 386 */
			{	/* Eval/eval.scm 387 */
				obj_t BgL_auxz00_6599;

				{	/* Eval/eval.scm 387 */
					obj_t BgL_list1474z00_4366;

					BgL_list1474z00_4366 = MAKE_YOUNG_PAIR(BgL_portz00_3621, BNIL);
					{	/* Eval/eval.scm 387 */
						obj_t BgL_aux2367z00_4367;

						BgL_aux2367z00_4367 =
							BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BgL_expz00_3620,
							BgL_list1474z00_4366);
						{	/* Eval/eval.scm 387 */
							bool_t BgL_test3162z00_6602;

							if (PAIRP(BgL_aux2367z00_4367))
								{	/* Eval/eval.scm 387 */
									BgL_test3162z00_6602 = ((bool_t) 1);
								}
							else
								{	/* Eval/eval.scm 387 */
									BgL_test3162z00_6602 = NULLP(BgL_aux2367z00_4367);
								}
							if (BgL_test3162z00_6602)
								{	/* Eval/eval.scm 387 */
									BgL_auxz00_6599 = BgL_aux2367z00_4367;
								}
							else
								{
									obj_t BgL_auxz00_6606;

									BgL_auxz00_6606 =
										BGl_typezd2errorzd2zz__errorz00
										(BGl_string2674z00zz__evalz00, BINT(15416L),
										BGl_string2720z00zz__evalz00, BGl_string2721z00zz__evalz00,
										BgL_aux2367z00_4367);
									FAILURE(BgL_auxz00_6606, BFALSE, BFALSE);
								}
						}
					}
				}
				return
					apply(BGl_displayzd2circlezd2envz00zz__pp_circlez00, BgL_auxz00_6599);
			}
		}

	}



/* set-repl-printer! */
	BGL_EXPORTED_DEF obj_t BGl_setzd2replzd2printerz12z12zz__evalz00(obj_t
		BgL_dispz00_32)
	{
		{	/* Eval/eval.scm 397 */
			if (PROCEDURE_CORRECT_ARITYP(BgL_dispz00_32, (int) ((-2L))))
				{	/* Eval/eval.scm 400 */
					obj_t BgL_oldz00_2714;

					BgL_oldz00_2714 = BGl_za2replzd2printerza2zd2zz__evalz00;
					BGl_za2replzd2printerza2zd2zz__evalz00 = BgL_dispz00_32;
					return BgL_oldz00_2714;
				}
			else
				{	/* Eval/eval.scm 398 */
					return
						BGl_errorz00zz__errorz00(BGl_symbol2722z00zz__evalz00,
						BGl_string2724z00zz__evalz00, BgL_dispz00_32);
				}
		}

	}



/* &set-repl-printer! */
	obj_t BGl_z62setzd2replzd2printerz12z70zz__evalz00(obj_t BgL_envz00_3671,
		obj_t BgL_dispz00_3672)
	{
		{	/* Eval/eval.scm 397 */
			{	/* Eval/eval.scm 398 */
				obj_t BgL_auxz00_6615;

				if (PROCEDUREP(BgL_dispz00_3672))
					{	/* Eval/eval.scm 398 */
						BgL_auxz00_6615 = BgL_dispz00_3672;
					}
				else
					{
						obj_t BgL_auxz00_6618;

						BgL_auxz00_6618 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2674z00zz__evalz00,
							BINT(15976L), BGl_string2725z00zz__evalz00,
							BGl_string2679z00zz__evalz00, BgL_dispz00_3672);
						FAILURE(BgL_auxz00_6618, BFALSE, BFALSE);
					}
				return BGl_setzd2replzd2printerz12z12zz__evalz00(BgL_auxz00_6615);
			}
		}

	}



/* native-repl-printer */
	BGL_EXPORTED_DEF obj_t BGl_nativezd2replzd2printerz00zz__evalz00(void)
	{
		{	/* Eval/eval.scm 407 */
			return BGl_defaultzd2replzd2printerzd2envzd2zz__evalz00;
		}

	}



/* &native-repl-printer */
	obj_t BGl_z62nativezd2replzd2printerz62zz__evalz00(obj_t BgL_envz00_3673)
	{
		{	/* Eval/eval.scm 407 */
			return BGl_nativezd2replzd2printerz00zz__evalz00();
		}

	}



/* c-debug-repl */
	BGL_EXPORTED_DEF obj_t bgl_debug_repl(obj_t BgL_valz00_33)
	{
		{	/* Eval/eval.scm 418 */
			BGl_za2czd2debugzd2replzd2valueza2zd2zz__evalz00 = BgL_valz00_33;
			{

				{	/* Eval/eval.scm 420 */
					bool_t BgL_tmpz00_6624;

				BgL_zc3z04anonymousza31475ze3z87_1477:
					{	/* Eval/eval.scm 421 */
						obj_t BgL_arg1476z00_1478;

						{	/* Eval/eval.scm 421 */
							obj_t BgL_tmpz00_6625;

							BgL_tmpz00_6625 = BGL_CURRENT_DYNAMIC_ENV();
							BgL_arg1476z00_1478 =
								BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_6625);
						}
						bgl_display_string(BGl_string2726z00zz__evalz00,
							BgL_arg1476z00_1478);
					}
					{	/* Eval/eval.scm 422 */
						obj_t BgL_expz00_1479;

						{	/* Eval/eval.scm 422 */
							obj_t BgL_fun1481z00_1485;

							BgL_fun1481z00_1485 = BGl_getzd2evalzd2readerz00zz__evalz00();
							{	/* Eval/eval.scm 422 */
								obj_t BgL_arg1480z00_1486;

								{	/* Eval/eval.scm 422 */
									obj_t BgL_tmpz00_6630;

									BgL_tmpz00_6630 = BGL_CURRENT_DYNAMIC_ENV();
									BgL_arg1480z00_1486 =
										BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_6630);
								}
								{	/* Eval/eval.scm 422 */
									obj_t BgL_tmpfunz00_6636;

									{	/* Eval/eval.scm 422 */
										bool_t BgL_test2372z00_3864;

										BgL_test2372z00_3864 = PROCEDUREP(BgL_fun1481z00_1485);
										if (BgL_test2372z00_3864)
											{	/* Eval/eval.scm 422 */
												BgL_tmpfunz00_6636 = BgL_fun1481z00_1485;
											}
										else
											{
												obj_t BgL_auxz00_6639;

												BgL_auxz00_6639 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2674z00zz__evalz00, BINT(17046L),
													BGl_string2727z00zz__evalz00,
													BGl_string2679z00zz__evalz00, BgL_fun1481z00_1485);
												FAILURE(BgL_auxz00_6639, BFALSE, BFALSE);
											}
									}
									BgL_expz00_1479 =
										(VA_PROCEDUREP(BgL_tmpfunz00_6636) ? ((obj_t(*)(obj_t,
													...))
											PROCEDURE_ENTRY(BgL_tmpfunz00_6636)) (BgL_fun1481z00_1485,
											BgL_arg1480z00_1486, BEOA) : ((obj_t(*)(obj_t,
													obj_t))
											PROCEDURE_ENTRY(BgL_tmpfunz00_6636)) (BgL_fun1481z00_1485,
											BgL_arg1480z00_1486));
								}
							}
						}
						if (EOF_OBJECTP(BgL_expz00_1479))
							{	/* Eval/eval.scm 423 */
								BgL_tmpz00_6624 = ((bool_t) 0);
							}
						else
							{	/* Eval/eval.scm 423 */
								{	/* Eval/eval.scm 424 */
									obj_t BgL_port1243z00_1481;

									{	/* Eval/eval.scm 424 */
										obj_t BgL_tmpz00_6645;

										BgL_tmpz00_6645 = BGL_CURRENT_DYNAMIC_ENV();
										BgL_port1243z00_1481 =
											BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_6645);
									}
									{	/* Eval/eval.scm 424 */
										obj_t BgL_arg1479z00_1482;

										{	/* Eval/eval.scm 81 */
											obj_t BgL_envz00_1484;

											{	/* Eval/eval.scm 257 */
												obj_t BgL_mz00_2720;

												BgL_mz00_2720 = BGl_evalzd2modulezd2zz__evmodulez00();
												if (BGl_evmodulezf3zf3zz__evmodulez00(BgL_mz00_2720))
													{	/* Eval/eval.scm 258 */
														BgL_envz00_1484 = BgL_mz00_2720;
													}
												else
													{	/* Eval/eval.scm 258 */
														BgL_envz00_1484 = BGl_symbol2677z00zz__evalz00;
													}
											}
											{	/* Eval/eval.scm 81 */

												{	/* Eval/eval.scm 170 */
													obj_t BgL_auxz00_6651;

													{	/* Eval/eval.scm 170 */
														obj_t BgL_aux2373z00_3865;

														BgL_aux2373z00_3865 =
															BGl_defaultzd2evaluatezd2zz__evalz00;
														if (PROCEDUREP(BgL_aux2373z00_3865))
															{	/* Eval/eval.scm 170 */
																BgL_auxz00_6651 = BgL_aux2373z00_3865;
															}
														else
															{
																obj_t BgL_auxz00_6654;

																BgL_auxz00_6654 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string2674z00zz__evalz00, BINT(6408L),
																	BGl_string2727z00zz__evalz00,
																	BGl_string2679z00zz__evalz00,
																	BgL_aux2373z00_3865);
																FAILURE(BgL_auxz00_6654, BFALSE, BFALSE);
															}
													}
													BgL_arg1479z00_1482 =
														BGl_evalzf2expanderzf2zz__evalz00(BgL_expz00_1479,
														BgL_envz00_1484, BGl_expandzd2envzd2zz__expandz00,
														BgL_auxz00_6651);
												}
											}
										}
										bgl_display_obj(BgL_arg1479z00_1482, BgL_port1243z00_1481);
									}
									bgl_display_char(((unsigned char) 10), BgL_port1243z00_1481);
								}
								goto BgL_zc3z04anonymousza31475ze3z87_1477;
							}
					}
					return BBOOL(BgL_tmpz00_6624);
				}
			}
		}

	}



/* &c-debug-repl */
	obj_t BGl_z62czd2debugzd2replz62zz__evalz00(obj_t BgL_envz00_3674,
		obj_t BgL_valz00_3675)
	{
		{	/* Eval/eval.scm 418 */
			return bgl_debug_repl(BgL_valz00_3675);
		}

	}



/* quit */
	BGL_EXPORTED_DEF obj_t BGl_quitz00zz__evalz00(void)
	{
		{	/* Eval/eval.scm 430 */
			{	/* Eval/eval.scm 431 */
				obj_t BgL_tmpfunz00_6667;

				{	/* Eval/eval.scm 431 */
					obj_t BgL_aux2375z00_3867;

					BgL_aux2375z00_3867 = BGl_za2replzd2quitza2zd2zz__evalz00;
					{	/* Eval/eval.scm 431 */
						bool_t BgL_test2376z00_3868;

						BgL_test2376z00_3868 = PROCEDUREP(BgL_aux2375z00_3867);
						if (BgL_test2376z00_3868)
							{	/* Eval/eval.scm 431 */
								BgL_tmpfunz00_6667 = BgL_aux2375z00_3867;
							}
						else
							{
								obj_t BgL_auxz00_6670;

								BgL_auxz00_6670 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2674z00zz__evalz00,
									BINT(17398L), BGl_string2728z00zz__evalz00,
									BGl_string2679z00zz__evalz00, BgL_aux2375z00_3867);
								FAILURE(BgL_auxz00_6670, BFALSE, BFALSE);
							}
					}
				}
				return
					(VA_PROCEDUREP(BgL_tmpfunz00_6667) ? ((obj_t(*)(obj_t,
								...))
						PROCEDURE_ENTRY(BgL_tmpfunz00_6667))
					(BGl_za2replzd2quitza2zd2zz__evalz00, BINT(0L),
						BEOA) : ((obj_t(*)(obj_t,
								obj_t))
						PROCEDURE_ENTRY(BgL_tmpfunz00_6667))
					(BGl_za2replzd2quitza2zd2zz__evalz00, BINT(0L)));
			}
		}

	}



/* &quit2278 */
	obj_t BGl_z62quit2278z62zz__evalz00(obj_t BgL_envz00_3676)
	{
		{	/* Eval/eval.scm 430 */
			return BGl_quitz00zz__evalz00();
		}

	}



/* find-file */
	obj_t BGl_findzd2filezd2zz__evalz00(obj_t BgL_namez00_34)
	{
		{	/* Eval/eval.scm 441 */
			if (STRINGP(BgL_namez00_34))
				{	/* Eval/eval.scm 442 */
					if (fexists(BSTRING_TO_STRING(BgL_namez00_34)))
						{	/* Eval/eval.scm 444 */
							return BgL_namez00_34;
						}
					else
						{
							obj_t BgL_pathz00_1491;

							BgL_pathz00_1491 = BGl_za2loadzd2pathza2zd2zz__evalz00;
						BgL_zc3z04anonymousza31484ze3z87_1492:
							if (NULLP(BgL_pathz00_1491))
								{	/* Eval/eval.scm 447 */
									return BgL_namez00_34;
								}
							else
								{	/* Eval/eval.scm 449 */
									obj_t BgL_fz00_1494;

									{	/* Eval/eval.scm 449 */
										obj_t BgL_arg1488z00_1497;

										{	/* Eval/eval.scm 449 */
											obj_t BgL_pairz00_2724;

											if (PAIRP(BgL_pathz00_1491))
												{	/* Eval/eval.scm 449 */
													BgL_pairz00_2724 = BgL_pathz00_1491;
												}
											else
												{
													obj_t BgL_auxz00_6684;

													BgL_auxz00_6684 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2674z00zz__evalz00, BINT(18132L),
														BGl_string2727z00zz__evalz00,
														BGl_string2685z00zz__evalz00, BgL_pathz00_1491);
													FAILURE(BgL_auxz00_6684, BFALSE, BFALSE);
												}
											BgL_arg1488z00_1497 = CAR(BgL_pairz00_2724);
										}
										{	/* Eval/eval.scm 449 */
											obj_t BgL_auxz00_6689;

											if (STRINGP(BgL_arg1488z00_1497))
												{	/* Eval/eval.scm 449 */
													BgL_auxz00_6689 = BgL_arg1488z00_1497;
												}
											else
												{
													obj_t BgL_auxz00_6692;

													BgL_auxz00_6692 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2674z00zz__evalz00, BINT(18136L),
														BGl_string2727z00zz__evalz00,
														BGl_string2692z00zz__evalz00, BgL_arg1488z00_1497);
													FAILURE(BgL_auxz00_6692, BFALSE, BFALSE);
												}
											BgL_fz00_1494 =
												BGl_makezd2filezd2namez00zz__osz00(BgL_auxz00_6689,
												BgL_namez00_34);
										}
									}
									if (fexists(BSTRING_TO_STRING(BgL_fz00_1494)))
										{	/* Eval/eval.scm 450 */
											return BgL_fz00_1494;
										}
									else
										{	/* Eval/eval.scm 452 */
											obj_t BgL_arg1487z00_1496;

											{	/* Eval/eval.scm 452 */
												obj_t BgL_pairz00_2726;

												if (PAIRP(BgL_pathz00_1491))
													{	/* Eval/eval.scm 452 */
														BgL_pairz00_2726 = BgL_pathz00_1491;
													}
												else
													{
														obj_t BgL_auxz00_6702;

														BgL_auxz00_6702 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2674z00zz__evalz00, BINT(18195L),
															BGl_string2727z00zz__evalz00,
															BGl_string2685z00zz__evalz00, BgL_pathz00_1491);
														FAILURE(BgL_auxz00_6702, BFALSE, BFALSE);
													}
												BgL_arg1487z00_1496 = CDR(BgL_pairz00_2726);
											}
											{
												obj_t BgL_pathz00_6707;

												BgL_pathz00_6707 = BgL_arg1487z00_1496;
												BgL_pathz00_1491 = BgL_pathz00_6707;
												goto BgL_zc3z04anonymousza31484ze3z87_1492;
											}
										}
								}
						}
				}
			else
				{	/* Eval/eval.scm 442 */
					return
						BGl_errorz00zz__errorz00(BGl_symbol2729z00zz__evalz00,
						BGl_string2731z00zz__evalz00, BgL_namez00_34);
				}
		}

	}



/* _load */
	obj_t BGl__loadz00zz__evalz00(obj_t BgL_env1290z00_38,
		obj_t BgL_opt1289z00_37)
	{
		{	/* Eval/eval.scm 462 */
			{	/* Eval/eval.scm 462 */
				obj_t BgL_zc3stringze3z20_1499;

				{
					obj_t BgL_auxz00_6709;

					if (VECTORP(BgL_opt1289z00_37))
						{	/* Eval/eval.scm 462 */
							BgL_auxz00_6709 = BgL_opt1289z00_37;
						}
					else
						{
							obj_t BgL_auxz00_6712;

							BgL_auxz00_6712 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2674z00zz__evalz00,
								BINT(18682L), BGl_string2732z00zz__evalz00,
								BGl_string2676z00zz__evalz00, BgL_opt1289z00_37);
							FAILURE(BgL_auxz00_6712, BFALSE, BFALSE);
						}
					BgL_zc3stringze3z20_1499 = VECTOR_REF(BgL_auxz00_6709, 0L);
				}
				{	/* Eval/eval.scm 462 */
					long BgL_aux1292z00_1501;

					{
						obj_t BgL_auxz00_6717;

						if (VECTORP(BgL_opt1289z00_37))
							{	/* Eval/eval.scm 462 */
								BgL_auxz00_6717 = BgL_opt1289z00_37;
							}
						else
							{
								obj_t BgL_auxz00_6720;

								BgL_auxz00_6720 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2674z00zz__evalz00,
									BINT(18682L), BGl_string2732z00zz__evalz00,
									BGl_string2676z00zz__evalz00, BgL_opt1289z00_37);
								FAILURE(BgL_auxz00_6720, BFALSE, BFALSE);
							}
						BgL_aux1292z00_1501 = VECTOR_LENGTH(BgL_auxz00_6717);
					}
					switch (BgL_aux1292z00_1501)
						{
						case 1L:

							{	/* Eval/eval.scm 462 */
								obj_t BgL_envz00_1502;

								{	/* Eval/eval.scm 257 */
									obj_t BgL_mz00_2727;

									BgL_mz00_2727 = BGl_evalzd2modulezd2zz__evmodulez00();
									if (BGl_evmodulezf3zf3zz__evmodulez00(BgL_mz00_2727))
										{	/* Eval/eval.scm 258 */
											BgL_envz00_1502 = BgL_mz00_2727;
										}
									else
										{	/* Eval/eval.scm 258 */
											BgL_envz00_1502 = BGl_symbol2677z00zz__evalz00;
										}
								}
								{	/* Eval/eval.scm 462 */

									return
										BGl_loadvz00zz__evalz00(BgL_zc3stringze3z20_1499,
										BGl_za2loadzd2verboseza2zd2zz__evalz00, BgL_envz00_1502,
										BGl_symbol2733z00zz__evalz00);
								}
							}
							break;
						case 2L:

							{	/* Eval/eval.scm 462 */
								obj_t BgL_envz00_1503;

								{
									obj_t BgL_auxz00_6729;

									if (VECTORP(BgL_opt1289z00_37))
										{	/* Eval/eval.scm 462 */
											BgL_auxz00_6729 = BgL_opt1289z00_37;
										}
									else
										{
											obj_t BgL_auxz00_6732;

											BgL_auxz00_6732 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2674z00zz__evalz00, BINT(18682L),
												BGl_string2732z00zz__evalz00,
												BGl_string2676z00zz__evalz00, BgL_opt1289z00_37);
											FAILURE(BgL_auxz00_6732, BFALSE, BFALSE);
										}
									BgL_envz00_1503 = VECTOR_REF(BgL_auxz00_6729, 1L);
								}
								{	/* Eval/eval.scm 462 */

									return
										BGl_loadvz00zz__evalz00(BgL_zc3stringze3z20_1499,
										BGl_za2loadzd2verboseza2zd2zz__evalz00, BgL_envz00_1503,
										BGl_symbol2733z00zz__evalz00);
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* load */
	BGL_EXPORTED_DEF obj_t BGl_loadz00zz__evalz00(obj_t BgL_filezd2namezd2_35,
		obj_t BgL_envz00_36)
	{
		{	/* Eval/eval.scm 462 */
			return
				BGl_loadvz00zz__evalz00(BgL_filezd2namezd2_35,
				BGl_za2loadzd2verboseza2zd2zz__evalz00, BgL_envz00_36,
				BGl_symbol2733z00zz__evalz00);
		}

	}



/* _loadq */
	obj_t BGl__loadqz00zz__evalz00(obj_t BgL_env1294z00_42,
		obj_t BgL_opt1293z00_41)
	{
		{	/* Eval/eval.scm 468 */
			{	/* Eval/eval.scm 468 */
				obj_t BgL_zc3stringze3z20_1504;

				{
					obj_t BgL_auxz00_6740;

					if (VECTORP(BgL_opt1293z00_41))
						{	/* Eval/eval.scm 468 */
							BgL_auxz00_6740 = BgL_opt1293z00_41;
						}
					else
						{
							obj_t BgL_auxz00_6743;

							BgL_auxz00_6743 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2674z00zz__evalz00,
								BINT(19016L), BGl_string2735z00zz__evalz00,
								BGl_string2676z00zz__evalz00, BgL_opt1293z00_41);
							FAILURE(BgL_auxz00_6743, BFALSE, BFALSE);
						}
					BgL_zc3stringze3z20_1504 = VECTOR_REF(BgL_auxz00_6740, 0L);
				}
				{	/* Eval/eval.scm 468 */
					long BgL_aux1296z00_1506;

					{
						obj_t BgL_auxz00_6748;

						if (VECTORP(BgL_opt1293z00_41))
							{	/* Eval/eval.scm 468 */
								BgL_auxz00_6748 = BgL_opt1293z00_41;
							}
						else
							{
								obj_t BgL_auxz00_6751;

								BgL_auxz00_6751 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2674z00zz__evalz00,
									BINT(19016L), BGl_string2735z00zz__evalz00,
									BGl_string2676z00zz__evalz00, BgL_opt1293z00_41);
								FAILURE(BgL_auxz00_6751, BFALSE, BFALSE);
							}
						BgL_aux1296z00_1506 = VECTOR_LENGTH(BgL_auxz00_6748);
					}
					switch (BgL_aux1296z00_1506)
						{
						case 1L:

							{	/* Eval/eval.scm 468 */
								obj_t BgL_envz00_1507;

								{	/* Eval/eval.scm 257 */
									obj_t BgL_mz00_2729;

									BgL_mz00_2729 = BGl_evalzd2modulezd2zz__evmodulez00();
									if (BGl_evmodulezf3zf3zz__evmodulez00(BgL_mz00_2729))
										{	/* Eval/eval.scm 258 */
											BgL_envz00_1507 = BgL_mz00_2729;
										}
									else
										{	/* Eval/eval.scm 258 */
											BgL_envz00_1507 = BGl_symbol2677z00zz__evalz00;
										}
								}
								{	/* Eval/eval.scm 468 */

									return
										BGl_loadvz00zz__evalz00(BgL_zc3stringze3z20_1504, BFALSE,
										BgL_envz00_1507, BGl_symbol2736z00zz__evalz00);
								}
							}
							break;
						case 2L:

							{	/* Eval/eval.scm 468 */
								obj_t BgL_envz00_1508;

								{
									obj_t BgL_auxz00_6760;

									if (VECTORP(BgL_opt1293z00_41))
										{	/* Eval/eval.scm 468 */
											BgL_auxz00_6760 = BgL_opt1293z00_41;
										}
									else
										{
											obj_t BgL_auxz00_6763;

											BgL_auxz00_6763 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2674z00zz__evalz00, BINT(19016L),
												BGl_string2735z00zz__evalz00,
												BGl_string2676z00zz__evalz00, BgL_opt1293z00_41);
											FAILURE(BgL_auxz00_6763, BFALSE, BFALSE);
										}
									BgL_envz00_1508 = VECTOR_REF(BgL_auxz00_6760, 1L);
								}
								{	/* Eval/eval.scm 468 */

									return
										BGl_loadvz00zz__evalz00(BgL_zc3stringze3z20_1504, BFALSE,
										BgL_envz00_1508, BGl_symbol2736z00zz__evalz00);
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* loadq */
	BGL_EXPORTED_DEF obj_t BGl_loadqz00zz__evalz00(obj_t BgL_filezd2namezd2_39,
		obj_t BgL_envz00_40)
	{
		{	/* Eval/eval.scm 468 */
			return
				BGl_loadvz00zz__evalz00(BgL_filezd2namezd2_39, BFALSE, BgL_envz00_40,
				BGl_symbol2736z00zz__evalz00);
		}

	}



/* loadv */
	obj_t BGl_loadvz00zz__evalz00(obj_t BgL_filenamez00_43, obj_t BgL_vzf3zf3_44,
		obj_t BgL_envz00_45, obj_t BgL_traceidz00_46)
	{
		{	/* Eval/eval.scm 477 */
			{	/* Eval/eval.scm 485 */
				obj_t BgL_pathz00_1510;

				BgL_pathz00_1510 = BGl_findzd2filezd2zz__evalz00(BgL_filenamez00_43);
				{	/* Eval/eval.scm 485 */
					obj_t BgL_portz00_1511;

					{	/* Ieee/port.scm 466 */

						{	/* Ieee/port.scm 466 */
							obj_t BgL_auxz00_6772;

							if (STRINGP(BgL_pathz00_1510))
								{	/* Eval/eval.scm 486 */
									BgL_auxz00_6772 = BgL_pathz00_1510;
								}
							else
								{
									obj_t BgL_auxz00_6775;

									BgL_auxz00_6775 =
										BGl_typezd2errorzd2zz__errorz00
										(BGl_string2674z00zz__evalz00, BINT(19798L),
										BGl_string2738z00zz__evalz00, BGl_string2692z00zz__evalz00,
										BgL_pathz00_1510);
									FAILURE(BgL_auxz00_6775, BFALSE, BFALSE);
								}
							BgL_portz00_1511 =
								BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00
								(BgL_auxz00_6772, BTRUE, BINT(5000000L));
						}
					}
					{	/* Eval/eval.scm 486 */
						obj_t BgL_evreadz00_1512;

						BgL_evreadz00_1512 = BGl_getzd2evalzd2readerz00zz__evalz00();
						{	/* Eval/eval.scm 487 */
							obj_t BgL_denvz00_1513;

							BgL_denvz00_1513 = BGL_CURRENT_DYNAMIC_ENV();
							{	/* Eval/eval.scm 488 */
								obj_t BgL_modz00_1514;

								BgL_modz00_1514 = BGL_MODULE();
								{	/* Eval/eval.scm 489 */

									if (INPUT_PORTP(BgL_portz00_1511))
										{	/* Eval/eval.scm 491 */
											obj_t BgL_exitd1105z00_1516;

											BgL_exitd1105z00_1516 = BGL_EXITD_TOP_AS_OBJ();
											{	/* Eval/eval.scm 539 */
												obj_t BgL_zc3z04anonymousza31522ze3z87_3677;

												BgL_zc3z04anonymousza31522ze3z87_3677 =
													MAKE_FX_PROCEDURE
													(BGl_z62zc3z04anonymousza31522ze3ze5zz__evalz00,
													(int) (0L), (int) (1L));
												PROCEDURE_SET(BgL_zc3z04anonymousza31522ze3z87_3677,
													(int) (0L), BgL_modz00_1514);
												{	/* Eval/eval.scm 491 */
													obj_t BgL_arg2235z00_2741;

													{	/* Eval/eval.scm 491 */
														obj_t BgL_arg2237z00_2742;

														BgL_arg2237z00_2742 =
															BGL_EXITD_PROTECT(BgL_exitd1105z00_1516);
														BgL_arg2235z00_2741 =
															MAKE_YOUNG_PAIR
															(BgL_zc3z04anonymousza31522ze3z87_3677,
															BgL_arg2237z00_2742);
													}
													BGL_EXITD_PROTECT_SET(BgL_exitd1105z00_1516,
														BgL_arg2235z00_2741);
													BUNSPEC;
												}
												{	/* Eval/eval.scm 492 */
													obj_t BgL_tmp1107z00_1518;

													{	/* Eval/eval.scm 492 */

														BGL_ENV_PUSH_TRACE(BgL_denvz00_1513,
															BgL_traceidz00_46, BFALSE);
														{	/* Eval/eval.scm 494 */
															obj_t BgL_sexpz00_1519;
															obj_t BgL_locz00_1520;
															obj_t BgL_mainsymz00_1521;
															obj_t BgL_envz00_1522;

															{	/* Eval/eval.scm 494 */
																obj_t BgL_tmpfunz00_6799;

																{	/* Eval/eval.scm 494 */
																	bool_t BgL_test2400z00_3892;

																	BgL_test2400z00_3892 =
																		PROCEDUREP(BgL_evreadz00_1512);
																	if (BgL_test2400z00_3892)
																		{	/* Eval/eval.scm 494 */
																			BgL_tmpfunz00_6799 = BgL_evreadz00_1512;
																		}
																	else
																		{
																			obj_t BgL_auxz00_6802;

																			BgL_auxz00_6802 =
																				BGl_typezd2errorzd2zz__errorz00
																				(BGl_string2674z00zz__evalz00,
																				BINT(20004L),
																				BGl_string2738z00zz__evalz00,
																				BGl_string2679z00zz__evalz00,
																				BgL_evreadz00_1512);
																			FAILURE(BgL_auxz00_6802, BFALSE, BFALSE);
																		}
																}
																BgL_sexpz00_1519 =
																	(VA_PROCEDUREP(BgL_tmpfunz00_6799)
																	? ((obj_t(*)(obj_t,
																				...))
																		PROCEDURE_ENTRY(BgL_tmpfunz00_6799))
																	(BgL_evreadz00_1512, BgL_portz00_1511,
																		BEOA) : ((obj_t(*)(obj_t,
																				obj_t))
																		PROCEDURE_ENTRY(BgL_tmpfunz00_6799))
																	(BgL_evreadz00_1512, BgL_portz00_1511));
															}
															BgL_locz00_1520 = BFALSE;
															BgL_mainsymz00_1521 = BFALSE;
															BgL_envz00_1522 = BgL_envz00_45;
															if (EPAIRP(BgL_sexpz00_1519))
																{	/* Eval/eval.scm 499 */
																	obj_t BgL_arg1491z00_1524;

																	{	/* Eval/eval.scm 499 */
																		obj_t BgL_objz00_2743;

																		if (EPAIRP(BgL_sexpz00_1519))
																			{	/* Eval/eval.scm 499 */
																				BgL_objz00_2743 = BgL_sexpz00_1519;
																			}
																		else
																			{
																				obj_t BgL_auxz00_6810;

																				BgL_auxz00_6810 =
																					BGl_typezd2errorzd2zz__errorz00
																					(BGl_string2674z00zz__evalz00,
																					BINT(20144L),
																					BGl_string2738z00zz__evalz00,
																					BGl_string2739z00zz__evalz00,
																					BgL_sexpz00_1519);
																				FAILURE(BgL_auxz00_6810, BFALSE,
																					BFALSE);
																			}
																		BgL_arg1491z00_1524 = CER(BgL_objz00_2743);
																	}
																	BGL_ENV_SET_TRACE_LOCATION(BgL_denvz00_1513,
																		BgL_arg1491z00_1524);
																}
															else
																{	/* Eval/eval.scm 498 */
																	BFALSE;
																}
															{	/* Eval/eval.scm 501 */
																bool_t BgL_test3191z00_6816;

																if (PAIRP(BgL_sexpz00_1519))
																	{	/* Eval/eval.scm 501 */
																		BgL_test3191z00_6816 =
																			(CAR(BgL_sexpz00_1519) ==
																			BGl_symbol2740z00zz__evalz00);
																	}
																else
																	{	/* Eval/eval.scm 501 */
																		BgL_test3191z00_6816 = ((bool_t) 0);
																	}
																if (BgL_test3191z00_6816)
																	{	/* Eval/eval.scm 503 */
																		obj_t BgL_clausez00_1528;

																		{	/* Eval/eval.scm 503 */
																			obj_t BgL_auxz00_6821;

																			{	/* Eval/eval.scm 503 */
																				obj_t BgL_pairz00_2748;

																				{	/* Eval/eval.scm 503 */
																					obj_t BgL_aux2403z00_3895;

																					BgL_aux2403z00_3895 =
																						CDR(BgL_sexpz00_1519);
																					if (PAIRP(BgL_aux2403z00_3895))
																						{	/* Eval/eval.scm 503 */
																							BgL_pairz00_2748 =
																								BgL_aux2403z00_3895;
																						}
																					else
																						{
																							obj_t BgL_auxz00_6825;

																							BgL_auxz00_6825 =
																								BGl_typezd2errorzd2zz__errorz00
																								(BGl_string2674z00zz__evalz00,
																								BINT(20340L),
																								BGl_string2738z00zz__evalz00,
																								BGl_string2685z00zz__evalz00,
																								BgL_aux2403z00_3895);
																							FAILURE(BgL_auxz00_6825, BFALSE,
																								BFALSE);
																						}
																				}
																				{	/* Eval/eval.scm 503 */
																					obj_t BgL_aux2405z00_3897;

																					BgL_aux2405z00_3897 =
																						CDR(BgL_pairz00_2748);
																					{	/* Eval/eval.scm 503 */
																						bool_t BgL_test3194z00_6830;

																						if (PAIRP(BgL_aux2405z00_3897))
																							{	/* Eval/eval.scm 503 */
																								BgL_test3194z00_6830 =
																									((bool_t) 1);
																							}
																						else
																							{	/* Eval/eval.scm 503 */
																								BgL_test3194z00_6830 =
																									NULLP(BgL_aux2405z00_3897);
																							}
																						if (BgL_test3194z00_6830)
																							{	/* Eval/eval.scm 503 */
																								BgL_auxz00_6821 =
																									BgL_aux2405z00_3897;
																							}
																						else
																							{
																								obj_t BgL_auxz00_6834;

																								BgL_auxz00_6834 =
																									BGl_typezd2errorzd2zz__errorz00
																									(BGl_string2674z00zz__evalz00,
																									BINT(20340L),
																									BGl_string2738z00zz__evalz00,
																									BGl_string2721z00zz__evalz00,
																									BgL_aux2405z00_3897);
																								FAILURE(BgL_auxz00_6834, BFALSE,
																									BFALSE);
																							}
																					}
																				}
																			}
																			BgL_clausez00_1528 =
																				BGl_assqz00zz__r4_pairs_and_lists_6_3z00
																				(BGl_symbol2742z00zz__evalz00,
																				BgL_auxz00_6821);
																		}
																		BgL_locz00_1520 =
																			BGl_getzd2sourcezd2locationz00zz__readerz00
																			(BgL_sexpz00_1519);
																		if (PAIRP(BgL_clausez00_1528))
																			{	/* Eval/eval.scm 506 */
																				bool_t BgL_test3197z00_6842;

																				{	/* Eval/eval.scm 506 */
																					bool_t BgL_test3198z00_6843;

																					{	/* Eval/eval.scm 506 */
																						obj_t BgL_tmpz00_6844;

																						BgL_tmpz00_6844 =
																							CDR(BgL_clausez00_1528);
																						BgL_test3198z00_6843 =
																							PAIRP(BgL_tmpz00_6844);
																					}
																					if (BgL_test3198z00_6843)
																						{	/* Eval/eval.scm 507 */
																							bool_t BgL_test3199z00_6847;

																							{	/* Eval/eval.scm 507 */
																								obj_t BgL_tmpz00_6848;

																								{	/* Eval/eval.scm 507 */
																									obj_t BgL_pairz00_2753;

																									{	/* Eval/eval.scm 507 */
																										obj_t BgL_aux2407z00_3899;

																										BgL_aux2407z00_3899 =
																											CDR(BgL_clausez00_1528);
																										if (PAIRP
																											(BgL_aux2407z00_3899))
																											{	/* Eval/eval.scm 507 */
																												BgL_pairz00_2753 =
																													BgL_aux2407z00_3899;
																											}
																										else
																											{
																												obj_t BgL_auxz00_6852;

																												BgL_auxz00_6852 =
																													BGl_typezd2errorzd2zz__errorz00
																													(BGl_string2674z00zz__evalz00,
																													BINT(20479L),
																													BGl_string2738z00zz__evalz00,
																													BGl_string2685z00zz__evalz00,
																													BgL_aux2407z00_3899);
																												FAILURE(BgL_auxz00_6852,
																													BFALSE, BFALSE);
																											}
																									}
																									BgL_tmpz00_6848 =
																										CDR(BgL_pairz00_2753);
																								}
																								BgL_test3199z00_6847 =
																									NULLP(BgL_tmpz00_6848);
																							}
																							if (BgL_test3199z00_6847)
																								{	/* Eval/eval.scm 508 */
																									obj_t BgL_tmpz00_6858;

																									{	/* Eval/eval.scm 508 */
																										obj_t BgL_pairz00_2757;

																										{	/* Eval/eval.scm 508 */
																											obj_t BgL_aux2409z00_3901;

																											BgL_aux2409z00_3901 =
																												CDR(BgL_clausez00_1528);
																											if (PAIRP
																												(BgL_aux2409z00_3901))
																												{	/* Eval/eval.scm 508 */
																													BgL_pairz00_2757 =
																														BgL_aux2409z00_3901;
																												}
																											else
																												{
																													obj_t BgL_auxz00_6862;

																													BgL_auxz00_6862 =
																														BGl_typezd2errorzd2zz__errorz00
																														(BGl_string2674z00zz__evalz00,
																														BINT(20514L),
																														BGl_string2738z00zz__evalz00,
																														BGl_string2685z00zz__evalz00,
																														BgL_aux2409z00_3901);
																													FAILURE
																														(BgL_auxz00_6862,
																														BFALSE, BFALSE);
																												}
																										}
																										BgL_tmpz00_6858 =
																											CAR(BgL_pairz00_2757);
																									}
																									BgL_test3197z00_6842 =
																										SYMBOLP(BgL_tmpz00_6858);
																								}
																							else
																								{	/* Eval/eval.scm 507 */
																									BgL_test3197z00_6842 =
																										((bool_t) 0);
																								}
																						}
																					else
																						{	/* Eval/eval.scm 506 */
																							BgL_test3197z00_6842 =
																								((bool_t) 0);
																						}
																				}
																				if (BgL_test3197z00_6842)
																					{	/* Eval/eval.scm 509 */
																						obj_t BgL_pairz00_2761;

																						{	/* Eval/eval.scm 509 */
																							obj_t BgL_aux2411z00_3903;

																							BgL_aux2411z00_3903 =
																								CDR(BgL_clausez00_1528);
																							if (PAIRP(BgL_aux2411z00_3903))
																								{	/* Eval/eval.scm 509 */
																									BgL_pairz00_2761 =
																										BgL_aux2411z00_3903;
																								}
																							else
																								{
																									obj_t BgL_auxz00_6871;

																									BgL_auxz00_6871 =
																										BGl_typezd2errorzd2zz__errorz00
																										(BGl_string2674z00zz__evalz00,
																										BINT(20550L),
																										BGl_string2738z00zz__evalz00,
																										BGl_string2685z00zz__evalz00,
																										BgL_aux2411z00_3903);
																									FAILURE(BgL_auxz00_6871,
																										BFALSE, BFALSE);
																								}
																						}
																						BgL_mainsymz00_1521 =
																							CAR(BgL_pairz00_2761);
																					}
																				else
																					{	/* Eval/eval.scm 506 */
																						BGl_evcompilezd2errorzd2zz__evcompilez00
																							(BGl_getzd2sourcezd2locationz00zz__readerz00
																							(BgL_sexpz00_1519),
																							BGl_string2734z00zz__evalz00,
																							BGl_string2744z00zz__evalz00,
																							BgL_clausez00_1528);
																					}
																			}
																		else
																			{	/* Eval/eval.scm 505 */
																				BFALSE;
																			}
																		{	/* Eval/eval.scm 515 */
																			obj_t BgL_envz00_2762;

																			BgL_envz00_2762 = BgL_envz00_1522;
																			{	/* Eval/eval.scm 480 */
																				obj_t BgL_vz00_2763;

																				{	/* Eval/eval.scm 176 */
																					obj_t BgL_evaluatez00_2767;

																					if (PROCEDUREP
																						(BGl_defaultzd2evaluatezd2zz__evalz00))
																						{	/* Eval/eval.scm 176 */
																							BgL_evaluatez00_2767 =
																								BGl_defaultzd2evaluatezd2zz__evalz00;
																						}
																					else
																						{	/* Eval/eval.scm 176 */
																							BgL_evaluatez00_2767 =
																								BGl_bytezd2codezd2evaluatezd2envzd2zz__evalz00;
																						}
																					{	/* Eval/eval.scm 179 */
																						obj_t BgL_auxz00_6880;

																						if (PROCEDUREP
																							(BgL_evaluatez00_2767))
																							{	/* Eval/eval.scm 179 */
																								BgL_auxz00_6880 =
																									BgL_evaluatez00_2767;
																							}
																						else
																							{
																								obj_t BgL_auxz00_6883;

																								BgL_auxz00_6883 =
																									BGl_typezd2errorzd2zz__errorz00
																									(BGl_string2674z00zz__evalz00,
																									BINT(6857L),
																									BGl_string2738z00zz__evalz00,
																									BGl_string2679z00zz__evalz00,
																									BgL_evaluatez00_2767);
																								FAILURE(BgL_auxz00_6883, BFALSE,
																									BFALSE);
																							}
																						BgL_vz00_2763 =
																							BGl_evalzf2expanderzf2zz__evalz00
																							(BgL_sexpz00_1519,
																							BgL_envz00_2762,
																							BGl_expandz12zd2envzc0zz__expandz00,
																							BgL_auxz00_6880);
																					}
																				}
																				if (CBOOL(BgL_vzf3zf3_44))
																					{	/* Eval/eval.scm 481 */
																						{	/* Eval/eval.scm 482 */
																							obj_t BgL_portz00_2765;

																							{	/* Eval/eval.scm 482 */
																								obj_t BgL_tmpz00_6890;

																								BgL_tmpz00_6890 =
																									BGL_CURRENT_DYNAMIC_ENV();
																								BgL_portz00_2765 =
																									BGL_ENV_CURRENT_OUTPUT_PORT
																									(BgL_tmpz00_6890);
																							}
																							{	/* Eval/eval.scm 482 */

																								BGl_displayzd2circlezd2zz__pp_circlez00
																									(BgL_vz00_2763,
																									BgL_portz00_2765);
																							}
																						}
																						{	/* Eval/eval.scm 483 */
																							obj_t BgL_arg1526z00_2766;

																							{	/* Eval/eval.scm 483 */
																								obj_t BgL_tmpz00_6894;

																								BgL_tmpz00_6894 =
																									BGL_CURRENT_DYNAMIC_ENV();
																								BgL_arg1526z00_2766 =
																									BGL_ENV_CURRENT_OUTPUT_PORT
																									(BgL_tmpz00_6894);
																							}
																							bgl_display_char(((unsigned char)
																									10), BgL_arg1526z00_2766);
																					}}
																				else
																					{	/* Eval/eval.scm 481 */
																						BFALSE;
																					}
																			}
																		}
																		BgL_envz00_1522 = BGL_MODULE();
																	}
																else
																	{	/* Eval/eval.scm 517 */
																		obj_t BgL_envz00_2773;

																		BgL_envz00_2773 = BgL_envz00_1522;
																		{	/* Eval/eval.scm 480 */
																			obj_t BgL_vz00_2774;

																			{	/* Eval/eval.scm 176 */
																				obj_t BgL_evaluatez00_2778;

																				if (PROCEDUREP
																					(BGl_defaultzd2evaluatezd2zz__evalz00))
																					{	/* Eval/eval.scm 176 */
																						BgL_evaluatez00_2778 =
																							BGl_defaultzd2evaluatezd2zz__evalz00;
																					}
																				else
																					{	/* Eval/eval.scm 176 */
																						BgL_evaluatez00_2778 =
																							BGl_bytezd2codezd2evaluatezd2envzd2zz__evalz00;
																					}
																				{	/* Eval/eval.scm 179 */
																					obj_t BgL_auxz00_6901;

																					if (PROCEDUREP(BgL_evaluatez00_2778))
																						{	/* Eval/eval.scm 179 */
																							BgL_auxz00_6901 =
																								BgL_evaluatez00_2778;
																						}
																					else
																						{
																							obj_t BgL_auxz00_6904;

																							BgL_auxz00_6904 =
																								BGl_typezd2errorzd2zz__errorz00
																								(BGl_string2674z00zz__evalz00,
																								BINT(6857L),
																								BGl_string2738z00zz__evalz00,
																								BGl_string2679z00zz__evalz00,
																								BgL_evaluatez00_2778);
																							FAILURE(BgL_auxz00_6904, BFALSE,
																								BFALSE);
																						}
																					BgL_vz00_2774 =
																						BGl_evalzf2expanderzf2zz__evalz00
																						(BgL_sexpz00_1519, BgL_envz00_2773,
																						BGl_expandz12zd2envzc0zz__expandz00,
																						BgL_auxz00_6901);
																				}
																			}
																			if (CBOOL(BgL_vzf3zf3_44))
																				{	/* Eval/eval.scm 481 */
																					{	/* Eval/eval.scm 482 */
																						obj_t BgL_portz00_2776;

																						{	/* Eval/eval.scm 482 */
																							obj_t BgL_tmpz00_6911;

																							BgL_tmpz00_6911 =
																								BGL_CURRENT_DYNAMIC_ENV();
																							BgL_portz00_2776 =
																								BGL_ENV_CURRENT_OUTPUT_PORT
																								(BgL_tmpz00_6911);
																						}
																						{	/* Eval/eval.scm 482 */

																							BGl_displayzd2circlezd2zz__pp_circlez00
																								(BgL_vz00_2774,
																								BgL_portz00_2776);
																						}
																					}
																					{	/* Eval/eval.scm 483 */
																						obj_t BgL_arg1526z00_2777;

																						{	/* Eval/eval.scm 483 */
																							obj_t BgL_tmpz00_6915;

																							BgL_tmpz00_6915 =
																								BGL_CURRENT_DYNAMIC_ENV();
																							BgL_arg1526z00_2777 =
																								BGL_ENV_CURRENT_OUTPUT_PORT
																								(BgL_tmpz00_6915);
																						}
																						bgl_display_char(((unsigned char)
																								10), BgL_arg1526z00_2777);
																				}}
																			else
																				{	/* Eval/eval.scm 481 */
																					BFALSE;
																				}
																		}
																	}
															}
															{	/* Eval/eval.scm 518 */
																obj_t BgL_g1109z00_1547;

																{	/* Eval/eval.scm 518 */
																	obj_t BgL_tmpfunz00_6922;

																	{	/* Eval/eval.scm 518 */
																		bool_t BgL_test2418z00_3910;

																		BgL_test2418z00_3910 =
																			PROCEDUREP(BgL_evreadz00_1512);
																		if (BgL_test2418z00_3910)
																			{	/* Eval/eval.scm 518 */
																				BgL_tmpfunz00_6922 = BgL_evreadz00_1512;
																			}
																		else
																			{
																				obj_t BgL_auxz00_6925;

																				BgL_auxz00_6925 =
																					BGl_typezd2errorzd2zz__errorz00
																					(BGl_string2674z00zz__evalz00,
																					BINT(20818L),
																					BGl_string2738z00zz__evalz00,
																					BGl_string2679z00zz__evalz00,
																					BgL_evreadz00_1512);
																				FAILURE(BgL_auxz00_6925, BFALSE,
																					BFALSE);
																			}
																	}
																	BgL_g1109z00_1547 =
																		(VA_PROCEDUREP(BgL_tmpfunz00_6922)
																		? ((obj_t(*)(obj_t,
																					...))
																			PROCEDURE_ENTRY(BgL_tmpfunz00_6922))
																		(BgL_evreadz00_1512, BgL_portz00_1511,
																			BEOA) : ((obj_t(*)(obj_t,
																					obj_t))
																			PROCEDURE_ENTRY(BgL_tmpfunz00_6922))
																		(BgL_evreadz00_1512, BgL_portz00_1511));
																}
																{
																	obj_t BgL_sexpz00_1549;

																	BgL_sexpz00_1549 = BgL_g1109z00_1547;
																BgL_zc3z04anonymousza31513ze3z87_1550:
																	if (EOF_OBJECTP(BgL_sexpz00_1549))
																		{	/* Eval/eval.scm 520 */
																			bgl_close_input_port(
																				((obj_t) BgL_portz00_1511));
																			{	/* Eval/eval.scm 522 */
																				obj_t BgL_vz00_1552;

																				if (SYMBOLP(BgL_mainsymz00_1521))
																					{	/* Eval/eval.scm 523 */
																						obj_t BgL_iexpz00_1556;

																						{	/* Eval/eval.scm 524 */
																							obj_t BgL_arg1517z00_1557;

																							{	/* Eval/eval.scm 524 */
																								obj_t BgL_list1518z00_1558;

																								BgL_list1518z00_1558 =
																									MAKE_YOUNG_PAIR
																									(BGl_list2745z00zz__evalz00,
																									BNIL);
																								BgL_arg1517z00_1557 =
																									BgL_list1518z00_1558;
																							}
																							{	/* Eval/eval.scm 523 */
																								obj_t BgL_res2264z00_2789;

																								BgL_res2264z00_2789 =
																									MAKE_YOUNG_EPAIR
																									(BgL_mainsymz00_1521,
																									BgL_arg1517z00_1557,
																									BgL_locz00_1520);
																								BgL_iexpz00_1556 =
																									BgL_res2264z00_2789;
																							}
																						}
																						{	/* Eval/eval.scm 526 */
																							obj_t BgL_envz00_2790;

																							BgL_envz00_2790 = BgL_envz00_1522;
																							{	/* Eval/eval.scm 176 */
																								obj_t BgL_evaluatez00_2791;

																								if (PROCEDUREP
																									(BGl_defaultzd2evaluatezd2zz__evalz00))
																									{	/* Eval/eval.scm 176 */
																										BgL_evaluatez00_2791 =
																											BGl_defaultzd2evaluatezd2zz__evalz00;
																									}
																								else
																									{	/* Eval/eval.scm 176 */
																										BgL_evaluatez00_2791 =
																											BGl_bytezd2codezd2evaluatezd2envzd2zz__evalz00;
																									}
																								{	/* Eval/eval.scm 179 */
																									obj_t BgL_auxz00_6939;

																									if (PROCEDUREP
																										(BgL_evaluatez00_2791))
																										{	/* Eval/eval.scm 179 */
																											BgL_auxz00_6939 =
																												BgL_evaluatez00_2791;
																										}
																									else
																										{
																											obj_t BgL_auxz00_6942;

																											BgL_auxz00_6942 =
																												BGl_typezd2errorzd2zz__errorz00
																												(BGl_string2674z00zz__evalz00,
																												BINT(6857L),
																												BGl_string2727z00zz__evalz00,
																												BGl_string2679z00zz__evalz00,
																												BgL_evaluatez00_2791);
																											FAILURE(BgL_auxz00_6942,
																												BFALSE, BFALSE);
																										}
																									BgL_vz00_1552 =
																										BGl_evalzf2expanderzf2zz__evalz00
																										(BgL_iexpz00_1556,
																										BgL_envz00_2790,
																										BGl_expandz12zd2envzc0zz__expandz00,
																										BgL_auxz00_6939);
																								}
																							}
																						}
																					}
																				else
																					{	/* Eval/eval.scm 522 */
																						BgL_vz00_1552 = BINT(0L);
																					}
																				{	/* Eval/eval.scm 522 */
																					obj_t BgL_nenvz00_1553;

																					BgL_nenvz00_1553 = BGL_MODULE();
																					{	/* Eval/eval.scm 528 */

																						{	/* Eval/eval.scm 529 */
																							bool_t BgL_test3214z00_6949;

																							if (
																								(BgL_envz00_1522 ==
																									BgL_nenvz00_1553))
																								{	/* Eval/eval.scm 529 */
																									BgL_test3214z00_6949 =
																										((bool_t) 0);
																								}
																							else
																								{	/* Eval/eval.scm 529 */
																									BgL_test3214z00_6949 =
																										BGl_evmodulezf3zf3zz__evmodulez00
																										(BgL_envz00_1522);
																								}
																							if (BgL_test3214z00_6949)
																								{	/* Eval/eval.scm 529 */
																									BGl_evmodulezd2checkzd2unboundz00zz__evmodulez00
																										(BgL_envz00_1522, BFALSE);
																									BgL_envz00_1522 =
																										BgL_nenvz00_1553;
																								}
																							else
																								{	/* Eval/eval.scm 529 */
																									BFALSE;
																								}
																						}
																						BGL_ENV_POP_TRACE(BgL_denvz00_1513);
																						BgL_tmp1107z00_1518 =
																							BgL_pathz00_1510;
																					}
																				}
																			}
																		}
																	else
																		{	/* Eval/eval.scm 520 */
																			if (EPAIRP(BgL_sexpz00_1549))
																				{	/* Eval/eval.scm 536 */
																					obj_t BgL_arg1520z00_1560;

																					{	/* Eval/eval.scm 536 */
																						obj_t BgL_objz00_2794;

																						if (EPAIRP(BgL_sexpz00_1549))
																							{	/* Eval/eval.scm 536 */
																								BgL_objz00_2794 =
																									BgL_sexpz00_1549;
																							}
																						else
																							{
																								obj_t BgL_auxz00_6959;

																								BgL_auxz00_6959 =
																									BGl_typezd2errorzd2zz__errorz00
																									(BGl_string2674z00zz__evalz00,
																									BINT(21326L),
																									BGl_string2727z00zz__evalz00,
																									BGl_string2739z00zz__evalz00,
																									BgL_sexpz00_1549);
																								FAILURE(BgL_auxz00_6959, BFALSE,
																									BFALSE);
																							}
																						BgL_arg1520z00_1560 =
																							CER(BgL_objz00_2794);
																					}
																					BGL_ENV_SET_TRACE_LOCATION
																						(BgL_denvz00_1513,
																						BgL_arg1520z00_1560);
																				}
																			else
																				{	/* Eval/eval.scm 535 */
																					BFALSE;
																				}
																			{	/* Eval/eval.scm 537 */
																				obj_t BgL_envz00_2795;

																				BgL_envz00_2795 = BgL_envz00_1522;
																				{	/* Eval/eval.scm 480 */
																					obj_t BgL_vz00_2796;

																					{	/* Eval/eval.scm 176 */
																						obj_t BgL_evaluatez00_2800;

																						if (PROCEDUREP
																							(BGl_defaultzd2evaluatezd2zz__evalz00))
																							{	/* Eval/eval.scm 176 */
																								BgL_evaluatez00_2800 =
																									BGl_defaultzd2evaluatezd2zz__evalz00;
																							}
																						else
																							{	/* Eval/eval.scm 176 */
																								BgL_evaluatez00_2800 =
																									BGl_bytezd2codezd2evaluatezd2envzd2zz__evalz00;
																							}
																						{	/* Eval/eval.scm 179 */
																							obj_t BgL_auxz00_6967;

																							if (PROCEDUREP
																								(BgL_evaluatez00_2800))
																								{	/* Eval/eval.scm 179 */
																									BgL_auxz00_6967 =
																										BgL_evaluatez00_2800;
																								}
																							else
																								{
																									obj_t BgL_auxz00_6970;

																									BgL_auxz00_6970 =
																										BGl_typezd2errorzd2zz__errorz00
																										(BGl_string2674z00zz__evalz00,
																										BINT(6857L),
																										BGl_string2727z00zz__evalz00,
																										BGl_string2679z00zz__evalz00,
																										BgL_evaluatez00_2800);
																									FAILURE(BgL_auxz00_6970,
																										BFALSE, BFALSE);
																								}
																							BgL_vz00_2796 =
																								BGl_evalzf2expanderzf2zz__evalz00
																								(BgL_sexpz00_1549,
																								BgL_envz00_2795,
																								BGl_expandz12zd2envzc0zz__expandz00,
																								BgL_auxz00_6967);
																						}
																					}
																					if (CBOOL(BgL_vzf3zf3_44))
																						{	/* Eval/eval.scm 481 */
																							{	/* Eval/eval.scm 482 */
																								obj_t BgL_portz00_2798;

																								{	/* Eval/eval.scm 482 */
																									obj_t BgL_tmpz00_6977;

																									BgL_tmpz00_6977 =
																										BGL_CURRENT_DYNAMIC_ENV();
																									BgL_portz00_2798 =
																										BGL_ENV_CURRENT_OUTPUT_PORT
																										(BgL_tmpz00_6977);
																								}
																								{	/* Eval/eval.scm 482 */

																									BGl_displayzd2circlezd2zz__pp_circlez00
																										(BgL_vz00_2796,
																										BgL_portz00_2798);
																								}
																							}
																							{	/* Eval/eval.scm 483 */
																								obj_t BgL_arg1526z00_2799;

																								{	/* Eval/eval.scm 483 */
																									obj_t BgL_tmpz00_6981;

																									BgL_tmpz00_6981 =
																										BGL_CURRENT_DYNAMIC_ENV();
																									BgL_arg1526z00_2799 =
																										BGL_ENV_CURRENT_OUTPUT_PORT
																										(BgL_tmpz00_6981);
																								}
																								bgl_display_char(((unsigned
																											char) 10),
																									BgL_arg1526z00_2799);
																						}}
																					else
																						{	/* Eval/eval.scm 481 */
																							BFALSE;
																						}
																				}
																			}
																			{	/* Eval/eval.scm 538 */
																				obj_t BgL_arg1521z00_1561;

																				{	/* Eval/eval.scm 538 */
																					obj_t BgL_tmpfunz00_6988;

																					{	/* Eval/eval.scm 538 */
																						bool_t BgL_test2428z00_3920;

																						BgL_test2428z00_3920 =
																							PROCEDUREP(BgL_evreadz00_1512);
																						if (BgL_test2428z00_3920)
																							{	/* Eval/eval.scm 538 */
																								BgL_tmpfunz00_6988 =
																									BgL_evreadz00_1512;
																							}
																						else
																							{
																								obj_t BgL_auxz00_6991;

																								BgL_auxz00_6991 =
																									BGl_typezd2errorzd2zz__errorz00
																									(BGl_string2674z00zz__evalz00,
																									BINT(21368L),
																									BGl_string2727z00zz__evalz00,
																									BGl_string2679z00zz__evalz00,
																									BgL_evreadz00_1512);
																								FAILURE(BgL_auxz00_6991, BFALSE,
																									BFALSE);
																							}
																					}
																					BgL_arg1521z00_1561 =
																						(VA_PROCEDUREP(BgL_tmpfunz00_6988)
																						? ((obj_t(*)(obj_t,
																									...))
																							PROCEDURE_ENTRY
																							(BgL_tmpfunz00_6988))
																						(BgL_evreadz00_1512,
																							BgL_portz00_1511,
																							BEOA) : ((obj_t(*)(obj_t,
																									obj_t))
																							PROCEDURE_ENTRY
																							(BgL_tmpfunz00_6988))
																						(BgL_evreadz00_1512,
																							BgL_portz00_1511));
																				}
																				{
																					obj_t BgL_sexpz00_6995;

																					BgL_sexpz00_6995 =
																						BgL_arg1521z00_1561;
																					BgL_sexpz00_1549 = BgL_sexpz00_6995;
																					goto
																						BgL_zc3z04anonymousza31513ze3z87_1550;
																				}
																			}
																		}
																}
															}
														}
													}
													{	/* Eval/eval.scm 491 */
														bool_t BgL_test3222z00_6996;

														{	/* Eval/eval.scm 491 */
															obj_t BgL_arg2234z00_2807;

															BgL_arg2234z00_2807 =
																BGL_EXITD_PROTECT(BgL_exitd1105z00_1516);
															BgL_test3222z00_6996 = PAIRP(BgL_arg2234z00_2807);
														}
														if (BgL_test3222z00_6996)
															{	/* Eval/eval.scm 491 */
																obj_t BgL_arg2232z00_2808;

																{	/* Eval/eval.scm 491 */
																	obj_t BgL_arg2233z00_2809;

																	BgL_arg2233z00_2809 =
																		BGL_EXITD_PROTECT(BgL_exitd1105z00_1516);
																	{	/* Eval/eval.scm 491 */
																		obj_t BgL_pairz00_2810;

																		if (PAIRP(BgL_arg2233z00_2809))
																			{	/* Eval/eval.scm 491 */
																				BgL_pairz00_2810 = BgL_arg2233z00_2809;
																			}
																		else
																			{
																				obj_t BgL_auxz00_7002;

																				BgL_auxz00_7002 =
																					BGl_typezd2errorzd2zz__errorz00
																					(BGl_string2674z00zz__evalz00,
																					BINT(19924L),
																					BGl_string2738z00zz__evalz00,
																					BGl_string2685z00zz__evalz00,
																					BgL_arg2233z00_2809);
																				FAILURE(BgL_auxz00_7002, BFALSE,
																					BFALSE);
																			}
																		BgL_arg2232z00_2808 = CDR(BgL_pairz00_2810);
																	}
																}
																BGL_EXITD_PROTECT_SET(BgL_exitd1105z00_1516,
																	BgL_arg2232z00_2808);
																BUNSPEC;
															}
														else
															{	/* Eval/eval.scm 491 */
																BFALSE;
															}
													}
													BGL_MODULE_SET(BgL_modz00_1514);
													return BgL_tmp1107z00_1518;
												}
											}
										}
									else
										{	/* Eval/eval.scm 490 */
											return
												BGl_errorz00zz__errorz00(BGl_string2734z00zz__evalz00,
												BGl_string2748z00zz__evalz00, BgL_filenamez00_43);
										}
								}
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:1522> */
	obj_t BGl_z62zc3z04anonymousza31522ze3ze5zz__evalz00(obj_t BgL_envz00_3678)
	{
		{	/* Eval/eval.scm 491 */
			{	/* Eval/eval.scm 539 */
				obj_t BgL_tmpz00_7010;

				BgL_tmpz00_7010 = PROCEDURE_REF(BgL_envz00_3678, (int) (0L));
				return BGL_MODULE_SET(BgL_tmpz00_7010);
			}
		}

	}



/* expand-define-expander */
	BGL_EXPORTED_DEF obj_t BGl_expandzd2definezd2expanderz00zz__evalz00(obj_t
		BgL_xz00_50, obj_t BgL_ez00_51)
	{
		{	/* Eval/eval.scm 553 */
			{
				obj_t BgL_namez00_1633;
				obj_t BgL_expdzd2lamzd2_1634;
				obj_t BgL_expdzd2lamzf2locz20_1635;
				obj_t BgL_expdzd2evalzd2_1636;

				if (PAIRP(BgL_xz00_50))
					{	/* Eval/eval.scm 583 */
						obj_t BgL_cdrzd2145zd2_1588;

						BgL_cdrzd2145zd2_1588 = CDR(((obj_t) BgL_xz00_50));
						if (PAIRP(BgL_cdrzd2145zd2_1588))
							{	/* Eval/eval.scm 583 */
								obj_t BgL_carzd2148zd2_1590;
								obj_t BgL_cdrzd2149zd2_1591;

								BgL_carzd2148zd2_1590 = CAR(BgL_cdrzd2145zd2_1588);
								BgL_cdrzd2149zd2_1591 = CDR(BgL_cdrzd2145zd2_1588);
								if (SYMBOLP(BgL_carzd2148zd2_1590))
									{	/* Eval/eval.scm 583 */
										if (PAIRP(BgL_cdrzd2149zd2_1591))
											{	/* Eval/eval.scm 583 */
												obj_t BgL_cdrzd2155zd2_1594;

												BgL_cdrzd2155zd2_1594 = CDR(BgL_cdrzd2149zd2_1591);
												if (
													(CAR(BgL_cdrzd2149zd2_1591) ==
														BGl_keyword2749z00zz__evalz00))
													{	/* Eval/eval.scm 583 */
														if (PAIRP(BgL_cdrzd2155zd2_1594))
															{	/* Eval/eval.scm 583 */
																if (NULLP(CDR(BgL_cdrzd2155zd2_1594)))
																	{	/* Eval/eval.scm 583 */
																		obj_t BgL_arg1540z00_1600;

																		BgL_arg1540z00_1600 =
																			CAR(BgL_cdrzd2155zd2_1594);
																		{	/* Eval/eval.scm 585 */
																			obj_t BgL_expdzd2lamzf2locz20_2899;

																			BgL_expdzd2lamzf2locz20_2899 =
																				BGl_evepairifyz00zz__prognz00
																				(BgL_arg1540z00_1600, BgL_xz00_50);
																			{	/* Eval/eval.scm 586 */
																				obj_t BgL_expdzd2evalzd2_2900;

																				{	/* Eval/eval.scm 82 */
																					obj_t BgL_envz00_2902;

																					BgL_envz00_2902 =
																						BGl_defaultzd2environmentzd2zz__evalz00
																						();
																					{	/* Eval/eval.scm 82 */

																						{	/* Eval/eval.scm 176 */
																							obj_t BgL_evaluatez00_2903;

																							if (PROCEDUREP
																								(BGl_defaultzd2evaluatezd2zz__evalz00))
																								{	/* Eval/eval.scm 176 */
																									BgL_evaluatez00_2903 =
																										BGl_defaultzd2evaluatezd2zz__evalz00;
																								}
																							else
																								{	/* Eval/eval.scm 176 */
																									BgL_evaluatez00_2903 =
																										BGl_bytezd2codezd2evaluatezd2envzd2zz__evalz00;
																								}
																							{	/* Eval/eval.scm 179 */
																								obj_t BgL_auxz00_7040;

																								if (PROCEDUREP
																									(BgL_evaluatez00_2903))
																									{	/* Eval/eval.scm 179 */
																										BgL_auxz00_7040 =
																											BgL_evaluatez00_2903;
																									}
																								else
																									{
																										obj_t BgL_auxz00_7043;

																										BgL_auxz00_7043 =
																											BGl_typezd2errorzd2zz__errorz00
																											(BGl_string2674z00zz__evalz00,
																											BINT(6857L),
																											BGl_string2750z00zz__evalz00,
																											BGl_string2679z00zz__evalz00,
																											BgL_evaluatez00_2903);
																										FAILURE(BgL_auxz00_7043,
																											BFALSE, BFALSE);
																									}
																								BgL_expdzd2evalzd2_2900 =
																									BGl_evalzf2expanderzf2zz__evalz00
																									(BgL_expdzd2lamzf2locz20_2899,
																									BgL_envz00_2902,
																									BGl_expandz12zd2envzc0zz__expandz00,
																									BgL_auxz00_7040);
																							}
																						}
																					}
																				}
																				{	/* Eval/eval.scm 587 */

																					BgL_namez00_1633 =
																						BgL_carzd2148zd2_1590;
																					BgL_expdzd2lamzd2_1634 =
																						BgL_arg1540z00_1600;
																					BgL_expdzd2lamzf2locz20_1635 =
																						BgL_expdzd2lamzf2locz20_2899;
																					BgL_expdzd2evalzd2_1636 =
																						BgL_expdzd2evalzd2_2900;
																				BgL_zc3z04anonymousza31555ze3z87_1637:
																					{	/* Eval/eval.scm 559 */
																						obj_t
																							BgL_zc3z04anonymousza31559ze3z87_3680;
																						BgL_zc3z04anonymousza31559ze3z87_3680
																							=
																							MAKE_FX_PROCEDURE
																							(BGl_z62zc3z04anonymousza31559ze3ze5zz__evalz00,
																							(int) (2L), (int) (2L));
																						PROCEDURE_SET
																							(BgL_zc3z04anonymousza31559ze3z87_3680,
																							(int) (0L), BgL_namez00_1633);
																						PROCEDURE_SET
																							(BgL_zc3z04anonymousza31559ze3z87_3680,
																							(int) (1L),
																							BgL_expdzd2evalzd2_1636);
																						BGl_installzd2expanderzd2zz__macroz00
																							(BgL_namez00_1633,
																							BgL_zc3z04anonymousza31559ze3z87_3680);
																					}
																					return BUNSPEC;
																				}
																			}
																		}
																	}
																else
																	{	/* Eval/eval.scm 583 */
																		obj_t BgL_cdrzd2166zd2_1601;

																		BgL_cdrzd2166zd2_1601 =
																			CDR(((obj_t) BgL_xz00_50));
																		{	/* Eval/eval.scm 583 */
																			obj_t BgL_carzd2170zd2_1602;

																			{	/* Eval/eval.scm 583 */
																				obj_t BgL_pairz00_2907;

																				if (PAIRP(BgL_cdrzd2166zd2_1601))
																					{	/* Eval/eval.scm 583 */
																						BgL_pairz00_2907 =
																							BgL_cdrzd2166zd2_1601;
																					}
																				else
																					{
																						obj_t BgL_auxz00_7060;

																						BgL_auxz00_7060 =
																							BGl_typezd2errorzd2zz__errorz00
																							(BGl_string2674z00zz__evalz00,
																							BINT(22842L),
																							BGl_string2750z00zz__evalz00,
																							BGl_string2685z00zz__evalz00,
																							BgL_cdrzd2166zd2_1601);
																						FAILURE(BgL_auxz00_7060, BFALSE,
																							BFALSE);
																					}
																				BgL_carzd2170zd2_1602 =
																					CAR(BgL_pairz00_2907);
																			}
																			if (SYMBOLP(BgL_carzd2170zd2_1602))
																				{	/* Eval/eval.scm 583 */
																					obj_t BgL_arg1542z00_1604;

																					{	/* Eval/eval.scm 583 */
																						obj_t BgL_pairz00_2908;

																						if (PAIRP(BgL_cdrzd2166zd2_1601))
																							{	/* Eval/eval.scm 583 */
																								BgL_pairz00_2908 =
																									BgL_cdrzd2166zd2_1601;
																							}
																						else
																							{
																								obj_t BgL_auxz00_7069;

																								BgL_auxz00_7069 =
																									BGl_typezd2errorzd2zz__errorz00
																									(BGl_string2674z00zz__evalz00,
																									BINT(22842L),
																									BGl_string2750z00zz__evalz00,
																									BGl_string2685z00zz__evalz00,
																									BgL_cdrzd2166zd2_1601);
																								FAILURE(BgL_auxz00_7069, BFALSE,
																									BFALSE);
																							}
																						BgL_arg1542z00_1604 =
																							CDR(BgL_pairz00_2908);
																					}
																					{	/* Eval/eval.scm 590 */
																						obj_t BgL_expdzd2lamzd2_2909;

																						{	/* Eval/eval.scm 590 */
																							obj_t BgL_auxz00_7074;

																							{	/* Eval/eval.scm 590 */
																								bool_t BgL_test3236z00_7075;

																								if (PAIRP(BgL_arg1542z00_1604))
																									{	/* Eval/eval.scm 590 */
																										BgL_test3236z00_7075 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Eval/eval.scm 590 */
																										BgL_test3236z00_7075 =
																											NULLP
																											(BgL_arg1542z00_1604);
																									}
																								if (BgL_test3236z00_7075)
																									{	/* Eval/eval.scm 590 */
																										BgL_auxz00_7074 =
																											BgL_arg1542z00_1604;
																									}
																								else
																									{
																										obj_t BgL_auxz00_7079;

																										BgL_auxz00_7079 =
																											BGl_typezd2errorzd2zz__errorz00
																											(BGl_string2674z00zz__evalz00,
																											BINT(23175L),
																											BGl_string2750z00zz__evalz00,
																											BGl_string2721z00zz__evalz00,
																											BgL_arg1542z00_1604);
																										FAILURE(BgL_auxz00_7079,
																											BFALSE, BFALSE);
																									}
																							}
																							BgL_expdzd2lamzd2_2909 =
																								BGl_expandzd2prognzd2zz__prognz00
																								(BgL_auxz00_7074);
																						}
																						{	/* Eval/eval.scm 590 */
																							obj_t
																								BgL_expdzd2lamzf2locz20_2910;
																							BgL_expdzd2lamzf2locz20_2910 =
																								BGl_evepairifyz00zz__prognz00
																								(BgL_expdzd2lamzd2_2909,
																								BgL_xz00_50);
																							{	/* Eval/eval.scm 591 */
																								obj_t BgL_expdzd2evalzd2_2911;

																								{	/* Eval/eval.scm 81 */
																									obj_t BgL_envz00_2913;

																									BgL_envz00_2913 =
																										BGl_defaultzd2environmentzd2zz__evalz00
																										();
																									{	/* Eval/eval.scm 81 */

																										{	/* Eval/eval.scm 170 */
																											obj_t BgL_auxz00_7086;

																											{	/* Eval/eval.scm 170 */
																												obj_t
																													BgL_aux2443z00_3935;
																												BgL_aux2443z00_3935 =
																													BGl_defaultzd2evaluatezd2zz__evalz00;
																												if (PROCEDUREP
																													(BgL_aux2443z00_3935))
																													{	/* Eval/eval.scm 170 */
																														BgL_auxz00_7086 =
																															BgL_aux2443z00_3935;
																													}
																												else
																													{
																														obj_t
																															BgL_auxz00_7089;
																														BgL_auxz00_7089 =
																															BGl_typezd2errorzd2zz__errorz00
																															(BGl_string2674z00zz__evalz00,
																															BINT(6408L),
																															BGl_string2750z00zz__evalz00,
																															BGl_string2679z00zz__evalz00,
																															BgL_aux2443z00_3935);
																														FAILURE
																															(BgL_auxz00_7089,
																															BFALSE, BFALSE);
																													}
																											}
																											BgL_expdzd2evalzd2_2911 =
																												BGl_evalzf2expanderzf2zz__evalz00
																												(BgL_expdzd2lamzf2locz20_2910,
																												BgL_envz00_2913,
																												BGl_expandzd2envzd2zz__expandz00,
																												BgL_auxz00_7086);
																										}
																									}
																								}
																								{	/* Eval/eval.scm 592 */

																									{
																										obj_t
																											BgL_expdzd2evalzd2_7097;
																										obj_t
																											BgL_expdzd2lamzf2locz20_7096;
																										obj_t
																											BgL_expdzd2lamzd2_7095;
																										obj_t BgL_namez00_7094;

																										BgL_namez00_7094 =
																											BgL_carzd2170zd2_1602;
																										BgL_expdzd2lamzd2_7095 =
																											BgL_expdzd2lamzd2_2909;
																										BgL_expdzd2lamzf2locz20_7096
																											=
																											BgL_expdzd2lamzf2locz20_2910;
																										BgL_expdzd2evalzd2_7097 =
																											BgL_expdzd2evalzd2_2911;
																										BgL_expdzd2evalzd2_1636 =
																											BgL_expdzd2evalzd2_7097;
																										BgL_expdzd2lamzf2locz20_1635
																											=
																											BgL_expdzd2lamzf2locz20_7096;
																										BgL_expdzd2lamzd2_1634 =
																											BgL_expdzd2lamzd2_7095;
																										BgL_namez00_1633 =
																											BgL_namez00_7094;
																										goto
																											BgL_zc3z04anonymousza31555ze3z87_1637;
																									}
																								}
																							}
																						}
																					}
																				}
																			else
																				{	/* Eval/eval.scm 595 */
																					obj_t BgL_procz00_2914;

																					BgL_procz00_2914 =
																						BGl_symbol2751z00zz__evalz00;
																					if (EPAIRP(BgL_xz00_50))
																						{	/* Eval/eval.scm 547 */
																							obj_t BgL_arg1528z00_2916;

																							{	/* Eval/eval.scm 547 */
																								obj_t BgL_objz00_2917;

																								if (EPAIRP(BgL_xz00_50))
																									{	/* Eval/eval.scm 547 */
																										BgL_objz00_2917 =
																											BgL_xz00_50;
																									}
																								else
																									{
																										obj_t BgL_auxz00_7102;

																										BgL_auxz00_7102 =
																											BGl_typezd2errorzd2zz__errorz00
																											(BGl_string2674z00zz__evalz00,
																											BINT(21769L),
																											BGl_string2750z00zz__evalz00,
																											BGl_string2739z00zz__evalz00,
																											BgL_xz00_50);
																										FAILURE(BgL_auxz00_7102,
																											BFALSE, BFALSE);
																									}
																								BgL_arg1528z00_2916 =
																									CER(BgL_objz00_2917);
																							}
																							return
																								BGl_everrorz00zz__everrorz00
																								(BgL_arg1528z00_2916,
																								BgL_procz00_2914,
																								BGl_string2753z00zz__evalz00,
																								BgL_xz00_50);
																						}
																					else
																						{	/* Eval/eval.scm 546 */
																							return
																								BGl_errorz00zz__errorz00
																								(BgL_procz00_2914,
																								BGl_string2753z00zz__evalz00,
																								BgL_xz00_50);
																						}
																				}
																		}
																	}
															}
														else
															{	/* Eval/eval.scm 583 */
																obj_t BgL_cdrzd2184zd2_1606;

																BgL_cdrzd2184zd2_1606 =
																	CDR(((obj_t) BgL_xz00_50));
																{	/* Eval/eval.scm 583 */
																	obj_t BgL_carzd2188zd2_1607;

																	{	/* Eval/eval.scm 583 */
																		obj_t BgL_pairz00_2919;

																		if (PAIRP(BgL_cdrzd2184zd2_1606))
																			{	/* Eval/eval.scm 583 */
																				BgL_pairz00_2919 =
																					BgL_cdrzd2184zd2_1606;
																			}
																		else
																			{
																				obj_t BgL_auxz00_7113;

																				BgL_auxz00_7113 =
																					BGl_typezd2errorzd2zz__errorz00
																					(BGl_string2674z00zz__evalz00,
																					BINT(22842L),
																					BGl_string2750z00zz__evalz00,
																					BGl_string2685z00zz__evalz00,
																					BgL_cdrzd2184zd2_1606);
																				FAILURE(BgL_auxz00_7113, BFALSE,
																					BFALSE);
																			}
																		BgL_carzd2188zd2_1607 =
																			CAR(BgL_pairz00_2919);
																	}
																	if (SYMBOLP(BgL_carzd2188zd2_1607))
																		{	/* Eval/eval.scm 583 */
																			obj_t BgL_arg1545z00_1609;

																			{	/* Eval/eval.scm 583 */
																				obj_t BgL_pairz00_2920;

																				if (PAIRP(BgL_cdrzd2184zd2_1606))
																					{	/* Eval/eval.scm 583 */
																						BgL_pairz00_2920 =
																							BgL_cdrzd2184zd2_1606;
																					}
																				else
																					{
																						obj_t BgL_auxz00_7122;

																						BgL_auxz00_7122 =
																							BGl_typezd2errorzd2zz__errorz00
																							(BGl_string2674z00zz__evalz00,
																							BINT(22842L),
																							BGl_string2750z00zz__evalz00,
																							BGl_string2685z00zz__evalz00,
																							BgL_cdrzd2184zd2_1606);
																						FAILURE(BgL_auxz00_7122, BFALSE,
																							BFALSE);
																					}
																				BgL_arg1545z00_1609 =
																					CDR(BgL_pairz00_2920);
																			}
																			{	/* Eval/eval.scm 590 */
																				obj_t BgL_expdzd2lamzd2_2921;

																				{	/* Eval/eval.scm 590 */
																					obj_t BgL_auxz00_7127;

																					{	/* Eval/eval.scm 590 */
																						bool_t BgL_test3244z00_7128;

																						if (PAIRP(BgL_arg1545z00_1609))
																							{	/* Eval/eval.scm 590 */
																								BgL_test3244z00_7128 =
																									((bool_t) 1);
																							}
																						else
																							{	/* Eval/eval.scm 590 */
																								BgL_test3244z00_7128 =
																									NULLP(BgL_arg1545z00_1609);
																							}
																						if (BgL_test3244z00_7128)
																							{	/* Eval/eval.scm 590 */
																								BgL_auxz00_7127 =
																									BgL_arg1545z00_1609;
																							}
																						else
																							{
																								obj_t BgL_auxz00_7132;

																								BgL_auxz00_7132 =
																									BGl_typezd2errorzd2zz__errorz00
																									(BGl_string2674z00zz__evalz00,
																									BINT(23175L),
																									BGl_string2750z00zz__evalz00,
																									BGl_string2721z00zz__evalz00,
																									BgL_arg1545z00_1609);
																								FAILURE(BgL_auxz00_7132, BFALSE,
																									BFALSE);
																							}
																					}
																					BgL_expdzd2lamzd2_2921 =
																						BGl_expandzd2prognzd2zz__prognz00
																						(BgL_auxz00_7127);
																				}
																				{	/* Eval/eval.scm 590 */
																					obj_t BgL_expdzd2lamzf2locz20_2922;

																					BgL_expdzd2lamzf2locz20_2922 =
																						BGl_evepairifyz00zz__prognz00
																						(BgL_expdzd2lamzd2_2921,
																						BgL_xz00_50);
																					{	/* Eval/eval.scm 591 */
																						obj_t BgL_expdzd2evalzd2_2923;

																						{	/* Eval/eval.scm 81 */
																							obj_t BgL_envz00_2925;

																							BgL_envz00_2925 =
																								BGl_defaultzd2environmentzd2zz__evalz00
																								();
																							{	/* Eval/eval.scm 81 */

																								{	/* Eval/eval.scm 170 */
																									obj_t BgL_auxz00_7139;

																									{	/* Eval/eval.scm 170 */
																										obj_t BgL_aux2455z00_3947;

																										BgL_aux2455z00_3947 =
																											BGl_defaultzd2evaluatezd2zz__evalz00;
																										if (PROCEDUREP
																											(BgL_aux2455z00_3947))
																											{	/* Eval/eval.scm 170 */
																												BgL_auxz00_7139 =
																													BgL_aux2455z00_3947;
																											}
																										else
																											{
																												obj_t BgL_auxz00_7142;

																												BgL_auxz00_7142 =
																													BGl_typezd2errorzd2zz__errorz00
																													(BGl_string2674z00zz__evalz00,
																													BINT(6408L),
																													BGl_string2750z00zz__evalz00,
																													BGl_string2679z00zz__evalz00,
																													BgL_aux2455z00_3947);
																												FAILURE(BgL_auxz00_7142,
																													BFALSE, BFALSE);
																											}
																									}
																									BgL_expdzd2evalzd2_2923 =
																										BGl_evalzf2expanderzf2zz__evalz00
																										(BgL_expdzd2lamzf2locz20_2922,
																										BgL_envz00_2925,
																										BGl_expandzd2envzd2zz__expandz00,
																										BgL_auxz00_7139);
																								}
																							}
																						}
																						{	/* Eval/eval.scm 592 */

																							{
																								obj_t BgL_expdzd2evalzd2_7150;
																								obj_t
																									BgL_expdzd2lamzf2locz20_7149;
																								obj_t BgL_expdzd2lamzd2_7148;
																								obj_t BgL_namez00_7147;

																								BgL_namez00_7147 =
																									BgL_carzd2188zd2_1607;
																								BgL_expdzd2lamzd2_7148 =
																									BgL_expdzd2lamzd2_2921;
																								BgL_expdzd2lamzf2locz20_7149 =
																									BgL_expdzd2lamzf2locz20_2922;
																								BgL_expdzd2evalzd2_7150 =
																									BgL_expdzd2evalzd2_2923;
																								BgL_expdzd2evalzd2_1636 =
																									BgL_expdzd2evalzd2_7150;
																								BgL_expdzd2lamzf2locz20_1635 =
																									BgL_expdzd2lamzf2locz20_7149;
																								BgL_expdzd2lamzd2_1634 =
																									BgL_expdzd2lamzd2_7148;
																								BgL_namez00_1633 =
																									BgL_namez00_7147;
																								goto
																									BgL_zc3z04anonymousza31555ze3z87_1637;
																							}
																						}
																					}
																				}
																			}
																		}
																	else
																		{	/* Eval/eval.scm 595 */
																			obj_t BgL_procz00_2926;

																			BgL_procz00_2926 =
																				BGl_symbol2751z00zz__evalz00;
																			if (EPAIRP(BgL_xz00_50))
																				{	/* Eval/eval.scm 547 */
																					obj_t BgL_arg1528z00_2928;

																					{	/* Eval/eval.scm 547 */
																						obj_t BgL_objz00_2929;

																						if (EPAIRP(BgL_xz00_50))
																							{	/* Eval/eval.scm 547 */
																								BgL_objz00_2929 = BgL_xz00_50;
																							}
																						else
																							{
																								obj_t BgL_auxz00_7155;

																								BgL_auxz00_7155 =
																									BGl_typezd2errorzd2zz__errorz00
																									(BGl_string2674z00zz__evalz00,
																									BINT(21769L),
																									BGl_string2750z00zz__evalz00,
																									BGl_string2739z00zz__evalz00,
																									BgL_xz00_50);
																								FAILURE(BgL_auxz00_7155, BFALSE,
																									BFALSE);
																							}
																						BgL_arg1528z00_2928 =
																							CER(BgL_objz00_2929);
																					}
																					return
																						BGl_everrorz00zz__everrorz00
																						(BgL_arg1528z00_2928,
																						BgL_procz00_2926,
																						BGl_string2753z00zz__evalz00,
																						BgL_xz00_50);
																				}
																			else
																				{	/* Eval/eval.scm 546 */
																					return
																						BGl_errorz00zz__errorz00
																						(BgL_procz00_2926,
																						BGl_string2753z00zz__evalz00,
																						BgL_xz00_50);
																				}
																		}
																}
															}
													}
												else
													{	/* Eval/eval.scm 583 */
														obj_t BgL_cdrzd2202zd2_1610;

														BgL_cdrzd2202zd2_1610 = CDR(((obj_t) BgL_xz00_50));
														{	/* Eval/eval.scm 583 */
															obj_t BgL_carzd2206zd2_1611;

															{	/* Eval/eval.scm 583 */
																obj_t BgL_pairz00_2931;

																if (PAIRP(BgL_cdrzd2202zd2_1610))
																	{	/* Eval/eval.scm 583 */
																		BgL_pairz00_2931 = BgL_cdrzd2202zd2_1610;
																	}
																else
																	{
																		obj_t BgL_auxz00_7166;

																		BgL_auxz00_7166 =
																			BGl_typezd2errorzd2zz__errorz00
																			(BGl_string2674z00zz__evalz00,
																			BINT(22842L),
																			BGl_string2750z00zz__evalz00,
																			BGl_string2685z00zz__evalz00,
																			BgL_cdrzd2202zd2_1610);
																		FAILURE(BgL_auxz00_7166, BFALSE, BFALSE);
																	}
																BgL_carzd2206zd2_1611 = CAR(BgL_pairz00_2931);
															}
															if (SYMBOLP(BgL_carzd2206zd2_1611))
																{	/* Eval/eval.scm 583 */
																	obj_t BgL_arg1547z00_1613;

																	{	/* Eval/eval.scm 583 */
																		obj_t BgL_pairz00_2932;

																		if (PAIRP(BgL_cdrzd2202zd2_1610))
																			{	/* Eval/eval.scm 583 */
																				BgL_pairz00_2932 =
																					BgL_cdrzd2202zd2_1610;
																			}
																		else
																			{
																				obj_t BgL_auxz00_7175;

																				BgL_auxz00_7175 =
																					BGl_typezd2errorzd2zz__errorz00
																					(BGl_string2674z00zz__evalz00,
																					BINT(22842L),
																					BGl_string2750z00zz__evalz00,
																					BGl_string2685z00zz__evalz00,
																					BgL_cdrzd2202zd2_1610);
																				FAILURE(BgL_auxz00_7175, BFALSE,
																					BFALSE);
																			}
																		BgL_arg1547z00_1613 = CDR(BgL_pairz00_2932);
																	}
																	{	/* Eval/eval.scm 590 */
																		obj_t BgL_expdzd2lamzd2_2933;

																		{	/* Eval/eval.scm 590 */
																			obj_t BgL_auxz00_7180;

																			{	/* Eval/eval.scm 590 */
																				bool_t BgL_test3252z00_7181;

																				if (PAIRP(BgL_arg1547z00_1613))
																					{	/* Eval/eval.scm 590 */
																						BgL_test3252z00_7181 = ((bool_t) 1);
																					}
																				else
																					{	/* Eval/eval.scm 590 */
																						BgL_test3252z00_7181 =
																							NULLP(BgL_arg1547z00_1613);
																					}
																				if (BgL_test3252z00_7181)
																					{	/* Eval/eval.scm 590 */
																						BgL_auxz00_7180 =
																							BgL_arg1547z00_1613;
																					}
																				else
																					{
																						obj_t BgL_auxz00_7185;

																						BgL_auxz00_7185 =
																							BGl_typezd2errorzd2zz__errorz00
																							(BGl_string2674z00zz__evalz00,
																							BINT(23175L),
																							BGl_string2750z00zz__evalz00,
																							BGl_string2721z00zz__evalz00,
																							BgL_arg1547z00_1613);
																						FAILURE(BgL_auxz00_7185, BFALSE,
																							BFALSE);
																					}
																			}
																			BgL_expdzd2lamzd2_2933 =
																				BGl_expandzd2prognzd2zz__prognz00
																				(BgL_auxz00_7180);
																		}
																		{	/* Eval/eval.scm 590 */
																			obj_t BgL_expdzd2lamzf2locz20_2934;

																			BgL_expdzd2lamzf2locz20_2934 =
																				BGl_evepairifyz00zz__prognz00
																				(BgL_expdzd2lamzd2_2933, BgL_xz00_50);
																			{	/* Eval/eval.scm 591 */
																				obj_t BgL_expdzd2evalzd2_2935;

																				{	/* Eval/eval.scm 81 */
																					obj_t BgL_envz00_2937;

																					BgL_envz00_2937 =
																						BGl_defaultzd2environmentzd2zz__evalz00
																						();
																					{	/* Eval/eval.scm 81 */

																						{	/* Eval/eval.scm 170 */
																							obj_t BgL_auxz00_7192;

																							{	/* Eval/eval.scm 170 */
																								obj_t BgL_aux2467z00_3959;

																								BgL_aux2467z00_3959 =
																									BGl_defaultzd2evaluatezd2zz__evalz00;
																								if (PROCEDUREP
																									(BgL_aux2467z00_3959))
																									{	/* Eval/eval.scm 170 */
																										BgL_auxz00_7192 =
																											BgL_aux2467z00_3959;
																									}
																								else
																									{
																										obj_t BgL_auxz00_7195;

																										BgL_auxz00_7195 =
																											BGl_typezd2errorzd2zz__errorz00
																											(BGl_string2674z00zz__evalz00,
																											BINT(6408L),
																											BGl_string2750z00zz__evalz00,
																											BGl_string2679z00zz__evalz00,
																											BgL_aux2467z00_3959);
																										FAILURE(BgL_auxz00_7195,
																											BFALSE, BFALSE);
																									}
																							}
																							BgL_expdzd2evalzd2_2935 =
																								BGl_evalzf2expanderzf2zz__evalz00
																								(BgL_expdzd2lamzf2locz20_2934,
																								BgL_envz00_2937,
																								BGl_expandzd2envzd2zz__expandz00,
																								BgL_auxz00_7192);
																						}
																					}
																				}
																				{	/* Eval/eval.scm 592 */

																					{
																						obj_t BgL_expdzd2evalzd2_7203;
																						obj_t BgL_expdzd2lamzf2locz20_7202;
																						obj_t BgL_expdzd2lamzd2_7201;
																						obj_t BgL_namez00_7200;

																						BgL_namez00_7200 =
																							BgL_carzd2206zd2_1611;
																						BgL_expdzd2lamzd2_7201 =
																							BgL_expdzd2lamzd2_2933;
																						BgL_expdzd2lamzf2locz20_7202 =
																							BgL_expdzd2lamzf2locz20_2934;
																						BgL_expdzd2evalzd2_7203 =
																							BgL_expdzd2evalzd2_2935;
																						BgL_expdzd2evalzd2_1636 =
																							BgL_expdzd2evalzd2_7203;
																						BgL_expdzd2lamzf2locz20_1635 =
																							BgL_expdzd2lamzf2locz20_7202;
																						BgL_expdzd2lamzd2_1634 =
																							BgL_expdzd2lamzd2_7201;
																						BgL_namez00_1633 = BgL_namez00_7200;
																						goto
																							BgL_zc3z04anonymousza31555ze3z87_1637;
																					}
																				}
																			}
																		}
																	}
																}
															else
																{	/* Eval/eval.scm 595 */
																	obj_t BgL_procz00_2938;

																	BgL_procz00_2938 =
																		BGl_symbol2751z00zz__evalz00;
																	if (EPAIRP(BgL_xz00_50))
																		{	/* Eval/eval.scm 547 */
																			obj_t BgL_arg1528z00_2940;

																			{	/* Eval/eval.scm 547 */
																				obj_t BgL_objz00_2941;

																				if (EPAIRP(BgL_xz00_50))
																					{	/* Eval/eval.scm 547 */
																						BgL_objz00_2941 = BgL_xz00_50;
																					}
																				else
																					{
																						obj_t BgL_auxz00_7208;

																						BgL_auxz00_7208 =
																							BGl_typezd2errorzd2zz__errorz00
																							(BGl_string2674z00zz__evalz00,
																							BINT(21769L),
																							BGl_string2750z00zz__evalz00,
																							BGl_string2739z00zz__evalz00,
																							BgL_xz00_50);
																						FAILURE(BgL_auxz00_7208, BFALSE,
																							BFALSE);
																					}
																				BgL_arg1528z00_2940 =
																					CER(BgL_objz00_2941);
																			}
																			return
																				BGl_everrorz00zz__everrorz00
																				(BgL_arg1528z00_2940, BgL_procz00_2938,
																				BGl_string2753z00zz__evalz00,
																				BgL_xz00_50);
																		}
																	else
																		{	/* Eval/eval.scm 546 */
																			return
																				BGl_errorz00zz__errorz00
																				(BgL_procz00_2938,
																				BGl_string2753z00zz__evalz00,
																				BgL_xz00_50);
																		}
																}
														}
													}
											}
										else
											{	/* Eval/eval.scm 583 */
												obj_t BgL_carzd2224zd2_1616;

												{	/* Eval/eval.scm 583 */
													obj_t BgL_pairz00_2943;

													BgL_pairz00_2943 = BgL_cdrzd2145zd2_1588;
													BgL_carzd2224zd2_1616 = CAR(BgL_pairz00_2943);
												}
												if (SYMBOLP(BgL_carzd2224zd2_1616))
													{	/* Eval/eval.scm 583 */
														obj_t BgL_arg1551z00_1618;

														{	/* Eval/eval.scm 583 */
															obj_t BgL_pairz00_2944;

															BgL_pairz00_2944 = BgL_cdrzd2145zd2_1588;
															BgL_arg1551z00_1618 = CDR(BgL_pairz00_2944);
														}
														{	/* Eval/eval.scm 590 */
															obj_t BgL_expdzd2lamzd2_2945;

															{	/* Eval/eval.scm 590 */
																obj_t BgL_auxz00_7219;

																{	/* Eval/eval.scm 590 */
																	bool_t BgL_test3258z00_7220;

																	if (PAIRP(BgL_arg1551z00_1618))
																		{	/* Eval/eval.scm 590 */
																			BgL_test3258z00_7220 = ((bool_t) 1);
																		}
																	else
																		{	/* Eval/eval.scm 590 */
																			BgL_test3258z00_7220 =
																				NULLP(BgL_arg1551z00_1618);
																		}
																	if (BgL_test3258z00_7220)
																		{	/* Eval/eval.scm 590 */
																			BgL_auxz00_7219 = BgL_arg1551z00_1618;
																		}
																	else
																		{
																			obj_t BgL_auxz00_7224;

																			BgL_auxz00_7224 =
																				BGl_typezd2errorzd2zz__errorz00
																				(BGl_string2674z00zz__evalz00,
																				BINT(23175L),
																				BGl_string2750z00zz__evalz00,
																				BGl_string2721z00zz__evalz00,
																				BgL_arg1551z00_1618);
																			FAILURE(BgL_auxz00_7224, BFALSE, BFALSE);
																		}
																}
																BgL_expdzd2lamzd2_2945 =
																	BGl_expandzd2prognzd2zz__prognz00
																	(BgL_auxz00_7219);
															}
															{	/* Eval/eval.scm 590 */
																obj_t BgL_expdzd2lamzf2locz20_2946;

																BgL_expdzd2lamzf2locz20_2946 =
																	BGl_evepairifyz00zz__prognz00
																	(BgL_expdzd2lamzd2_2945, BgL_xz00_50);
																{	/* Eval/eval.scm 591 */
																	obj_t BgL_expdzd2evalzd2_2947;

																	{	/* Eval/eval.scm 81 */
																		obj_t BgL_envz00_2949;

																		BgL_envz00_2949 =
																			BGl_defaultzd2environmentzd2zz__evalz00();
																		{	/* Eval/eval.scm 81 */

																			{	/* Eval/eval.scm 170 */
																				obj_t BgL_auxz00_7231;

																				{	/* Eval/eval.scm 170 */
																					obj_t BgL_aux2479z00_3971;

																					BgL_aux2479z00_3971 =
																						BGl_defaultzd2evaluatezd2zz__evalz00;
																					if (PROCEDUREP(BgL_aux2479z00_3971))
																						{	/* Eval/eval.scm 170 */
																							BgL_auxz00_7231 =
																								BgL_aux2479z00_3971;
																						}
																					else
																						{
																							obj_t BgL_auxz00_7234;

																							BgL_auxz00_7234 =
																								BGl_typezd2errorzd2zz__errorz00
																								(BGl_string2674z00zz__evalz00,
																								BINT(6408L),
																								BGl_string2750z00zz__evalz00,
																								BGl_string2679z00zz__evalz00,
																								BgL_aux2479z00_3971);
																							FAILURE(BgL_auxz00_7234, BFALSE,
																								BFALSE);
																						}
																				}
																				BgL_expdzd2evalzd2_2947 =
																					BGl_evalzf2expanderzf2zz__evalz00
																					(BgL_expdzd2lamzf2locz20_2946,
																					BgL_envz00_2949,
																					BGl_expandzd2envzd2zz__expandz00,
																					BgL_auxz00_7231);
																			}
																		}
																	}
																	{	/* Eval/eval.scm 592 */

																		{
																			obj_t BgL_expdzd2evalzd2_7242;
																			obj_t BgL_expdzd2lamzf2locz20_7241;
																			obj_t BgL_expdzd2lamzd2_7240;
																			obj_t BgL_namez00_7239;

																			BgL_namez00_7239 = BgL_carzd2224zd2_1616;
																			BgL_expdzd2lamzd2_7240 =
																				BgL_expdzd2lamzd2_2945;
																			BgL_expdzd2lamzf2locz20_7241 =
																				BgL_expdzd2lamzf2locz20_2946;
																			BgL_expdzd2evalzd2_7242 =
																				BgL_expdzd2evalzd2_2947;
																			BgL_expdzd2evalzd2_1636 =
																				BgL_expdzd2evalzd2_7242;
																			BgL_expdzd2lamzf2locz20_1635 =
																				BgL_expdzd2lamzf2locz20_7241;
																			BgL_expdzd2lamzd2_1634 =
																				BgL_expdzd2lamzd2_7240;
																			BgL_namez00_1633 = BgL_namez00_7239;
																			goto
																				BgL_zc3z04anonymousza31555ze3z87_1637;
																		}
																	}
																}
															}
														}
													}
												else
													{	/* Eval/eval.scm 595 */
														obj_t BgL_procz00_2950;

														BgL_procz00_2950 = BGl_symbol2751z00zz__evalz00;
														if (EPAIRP(BgL_xz00_50))
															{	/* Eval/eval.scm 547 */
																obj_t BgL_arg1528z00_2952;

																{	/* Eval/eval.scm 547 */
																	obj_t BgL_objz00_2953;

																	if (EPAIRP(BgL_xz00_50))
																		{	/* Eval/eval.scm 547 */
																			BgL_objz00_2953 = BgL_xz00_50;
																		}
																	else
																		{
																			obj_t BgL_auxz00_7247;

																			BgL_auxz00_7247 =
																				BGl_typezd2errorzd2zz__errorz00
																				(BGl_string2674z00zz__evalz00,
																				BINT(21769L),
																				BGl_string2750z00zz__evalz00,
																				BGl_string2739z00zz__evalz00,
																				BgL_xz00_50);
																			FAILURE(BgL_auxz00_7247, BFALSE, BFALSE);
																		}
																	BgL_arg1528z00_2952 = CER(BgL_objz00_2953);
																}
																return
																	BGl_everrorz00zz__everrorz00
																	(BgL_arg1528z00_2952, BgL_procz00_2950,
																	BGl_string2753z00zz__evalz00, BgL_xz00_50);
															}
														else
															{	/* Eval/eval.scm 546 */
																return
																	BGl_errorz00zz__errorz00(BgL_procz00_2950,
																	BGl_string2753z00zz__evalz00, BgL_xz00_50);
															}
													}
											}
									}
								else
									{	/* Eval/eval.scm 583 */
										obj_t BgL_carzd2240zd2_1620;

										{	/* Eval/eval.scm 583 */
											obj_t BgL_pairz00_2955;

											BgL_pairz00_2955 = BgL_cdrzd2145zd2_1588;
											BgL_carzd2240zd2_1620 = CAR(BgL_pairz00_2955);
										}
										if (SYMBOLP(BgL_carzd2240zd2_1620))
											{	/* Eval/eval.scm 583 */
												obj_t BgL_arg1554z00_1622;

												{	/* Eval/eval.scm 583 */
													obj_t BgL_pairz00_2956;

													BgL_pairz00_2956 = BgL_cdrzd2145zd2_1588;
													BgL_arg1554z00_1622 = CDR(BgL_pairz00_2956);
												}
												{	/* Eval/eval.scm 590 */
													obj_t BgL_expdzd2lamzd2_2957;

													{	/* Eval/eval.scm 590 */
														obj_t BgL_auxz00_7258;

														{	/* Eval/eval.scm 590 */
															bool_t BgL_test3264z00_7259;

															if (PAIRP(BgL_arg1554z00_1622))
																{	/* Eval/eval.scm 590 */
																	BgL_test3264z00_7259 = ((bool_t) 1);
																}
															else
																{	/* Eval/eval.scm 590 */
																	BgL_test3264z00_7259 =
																		NULLP(BgL_arg1554z00_1622);
																}
															if (BgL_test3264z00_7259)
																{	/* Eval/eval.scm 590 */
																	BgL_auxz00_7258 = BgL_arg1554z00_1622;
																}
															else
																{
																	obj_t BgL_auxz00_7263;

																	BgL_auxz00_7263 =
																		BGl_typezd2errorzd2zz__errorz00
																		(BGl_string2674z00zz__evalz00, BINT(23175L),
																		BGl_string2750z00zz__evalz00,
																		BGl_string2721z00zz__evalz00,
																		BgL_arg1554z00_1622);
																	FAILURE(BgL_auxz00_7263, BFALSE, BFALSE);
																}
														}
														BgL_expdzd2lamzd2_2957 =
															BGl_expandzd2prognzd2zz__prognz00
															(BgL_auxz00_7258);
													}
													{	/* Eval/eval.scm 590 */
														obj_t BgL_expdzd2lamzf2locz20_2958;

														BgL_expdzd2lamzf2locz20_2958 =
															BGl_evepairifyz00zz__prognz00
															(BgL_expdzd2lamzd2_2957, BgL_xz00_50);
														{	/* Eval/eval.scm 591 */
															obj_t BgL_expdzd2evalzd2_2959;

															{	/* Eval/eval.scm 81 */
																obj_t BgL_envz00_2961;

																BgL_envz00_2961 =
																	BGl_defaultzd2environmentzd2zz__evalz00();
																{	/* Eval/eval.scm 81 */

																	{	/* Eval/eval.scm 170 */
																		obj_t BgL_auxz00_7270;

																		{	/* Eval/eval.scm 170 */
																			obj_t BgL_aux2491z00_3983;

																			BgL_aux2491z00_3983 =
																				BGl_defaultzd2evaluatezd2zz__evalz00;
																			if (PROCEDUREP(BgL_aux2491z00_3983))
																				{	/* Eval/eval.scm 170 */
																					BgL_auxz00_7270 = BgL_aux2491z00_3983;
																				}
																			else
																				{
																					obj_t BgL_auxz00_7273;

																					BgL_auxz00_7273 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string2674z00zz__evalz00,
																						BINT(6408L),
																						BGl_string2750z00zz__evalz00,
																						BGl_string2679z00zz__evalz00,
																						BgL_aux2491z00_3983);
																					FAILURE(BgL_auxz00_7273, BFALSE,
																						BFALSE);
																				}
																		}
																		BgL_expdzd2evalzd2_2959 =
																			BGl_evalzf2expanderzf2zz__evalz00
																			(BgL_expdzd2lamzf2locz20_2958,
																			BgL_envz00_2961,
																			BGl_expandzd2envzd2zz__expandz00,
																			BgL_auxz00_7270);
																	}
																}
															}
															{	/* Eval/eval.scm 592 */

																{
																	obj_t BgL_expdzd2evalzd2_7281;
																	obj_t BgL_expdzd2lamzf2locz20_7280;
																	obj_t BgL_expdzd2lamzd2_7279;
																	obj_t BgL_namez00_7278;

																	BgL_namez00_7278 = BgL_carzd2240zd2_1620;
																	BgL_expdzd2lamzd2_7279 =
																		BgL_expdzd2lamzd2_2957;
																	BgL_expdzd2lamzf2locz20_7280 =
																		BgL_expdzd2lamzf2locz20_2958;
																	BgL_expdzd2evalzd2_7281 =
																		BgL_expdzd2evalzd2_2959;
																	BgL_expdzd2evalzd2_1636 =
																		BgL_expdzd2evalzd2_7281;
																	BgL_expdzd2lamzf2locz20_1635 =
																		BgL_expdzd2lamzf2locz20_7280;
																	BgL_expdzd2lamzd2_1634 =
																		BgL_expdzd2lamzd2_7279;
																	BgL_namez00_1633 = BgL_namez00_7278;
																	goto BgL_zc3z04anonymousza31555ze3z87_1637;
																}
															}
														}
													}
												}
											}
										else
											{	/* Eval/eval.scm 595 */
												obj_t BgL_procz00_2962;

												BgL_procz00_2962 = BGl_symbol2751z00zz__evalz00;
												if (EPAIRP(BgL_xz00_50))
													{	/* Eval/eval.scm 547 */
														obj_t BgL_arg1528z00_2964;

														{	/* Eval/eval.scm 547 */
															obj_t BgL_objz00_2965;

															if (EPAIRP(BgL_xz00_50))
																{	/* Eval/eval.scm 547 */
																	BgL_objz00_2965 = BgL_xz00_50;
																}
															else
																{
																	obj_t BgL_auxz00_7286;

																	BgL_auxz00_7286 =
																		BGl_typezd2errorzd2zz__errorz00
																		(BGl_string2674z00zz__evalz00, BINT(21769L),
																		BGl_string2750z00zz__evalz00,
																		BGl_string2739z00zz__evalz00, BgL_xz00_50);
																	FAILURE(BgL_auxz00_7286, BFALSE, BFALSE);
																}
															BgL_arg1528z00_2964 = CER(BgL_objz00_2965);
														}
														return
															BGl_everrorz00zz__everrorz00(BgL_arg1528z00_2964,
															BgL_procz00_2962, BGl_string2753z00zz__evalz00,
															BgL_xz00_50);
													}
												else
													{	/* Eval/eval.scm 546 */
														return
															BGl_errorz00zz__errorz00(BgL_procz00_2962,
															BGl_string2753z00zz__evalz00, BgL_xz00_50);
													}
											}
									}
							}
						else
							{	/* Eval/eval.scm 595 */
								obj_t BgL_procz00_2966;

								BgL_procz00_2966 = BGl_symbol2751z00zz__evalz00;
								if (EPAIRP(BgL_xz00_50))
									{	/* Eval/eval.scm 547 */
										obj_t BgL_arg1528z00_2968;

										{	/* Eval/eval.scm 547 */
											obj_t BgL_objz00_2969;

											if (EPAIRP(BgL_xz00_50))
												{	/* Eval/eval.scm 547 */
													BgL_objz00_2969 = BgL_xz00_50;
												}
											else
												{
													obj_t BgL_auxz00_7297;

													BgL_auxz00_7297 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2674z00zz__evalz00, BINT(21769L),
														BGl_string2750z00zz__evalz00,
														BGl_string2739z00zz__evalz00, BgL_xz00_50);
													FAILURE(BgL_auxz00_7297, BFALSE, BFALSE);
												}
											BgL_arg1528z00_2968 = CER(BgL_objz00_2969);
										}
										return
											BGl_everrorz00zz__everrorz00(BgL_arg1528z00_2968,
											BgL_procz00_2966, BGl_string2753z00zz__evalz00,
											BgL_xz00_50);
									}
								else
									{	/* Eval/eval.scm 546 */
										return
											BGl_errorz00zz__errorz00(BgL_procz00_2966,
											BGl_string2753z00zz__evalz00, BgL_xz00_50);
									}
							}
					}
				else
					{	/* Eval/eval.scm 595 */
						obj_t BgL_procz00_2970;

						BgL_procz00_2970 = BGl_symbol2751z00zz__evalz00;
						if (EPAIRP(BgL_xz00_50))
							{	/* Eval/eval.scm 547 */
								obj_t BgL_arg1528z00_2972;

								{	/* Eval/eval.scm 547 */
									obj_t BgL_objz00_2973;

									if (EPAIRP(BgL_xz00_50))
										{	/* Eval/eval.scm 547 */
											BgL_objz00_2973 = BgL_xz00_50;
										}
									else
										{
											obj_t BgL_auxz00_7308;

											BgL_auxz00_7308 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2674z00zz__evalz00, BINT(21769L),
												BGl_string2750z00zz__evalz00,
												BGl_string2739z00zz__evalz00, BgL_xz00_50);
											FAILURE(BgL_auxz00_7308, BFALSE, BFALSE);
										}
									BgL_arg1528z00_2972 = CER(BgL_objz00_2973);
								}
								return
									BGl_everrorz00zz__everrorz00(BgL_arg1528z00_2972,
									BgL_procz00_2970, BGl_string2753z00zz__evalz00, BgL_xz00_50);
							}
						else
							{	/* Eval/eval.scm 546 */
								return
									BGl_errorz00zz__errorz00(BgL_procz00_2970,
									BGl_string2753z00zz__evalz00, BgL_xz00_50);
							}
					}
			}
		}

	}



/* &expand-define-expander */
	obj_t BGl_z62expandzd2definezd2expanderz62zz__evalz00(obj_t BgL_envz00_3681,
		obj_t BgL_xz00_3682, obj_t BgL_ez00_3683)
	{
		{	/* Eval/eval.scm 553 */
			return
				BGl_expandzd2definezd2expanderz00zz__evalz00(BgL_xz00_3682,
				BgL_ez00_3683);
		}

	}



/* &<@anonymous:1559> */
	obj_t BGl_z62zc3z04anonymousza31559ze3ze5zz__evalz00(obj_t BgL_envz00_3684,
		obj_t BgL_xz00_3687, obj_t BgL_ez00_3688)
	{
		{	/* Eval/eval.scm 558 */
			{	/* Eval/eval.scm 559 */
				obj_t BgL_namez00_3685;
				obj_t BgL_expdzd2evalzd2_3686;

				BgL_namez00_3685 = ((obj_t) PROCEDURE_REF(BgL_envz00_3684, (int) (0L)));
				BgL_expdzd2evalzd2_3686 = PROCEDURE_REF(BgL_envz00_3684, (int) (1L));
				if (PROCEDUREP(BgL_expdzd2evalzd2_3686))
					{	/* Eval/eval.scm 559 */
						if (PROCEDURE_CORRECT_ARITYP(BgL_expdzd2evalzd2_3686, (int) (2L)))
							{	/* Eval/eval.scm 565 */
								obj_t BgL_env1118z00_4578;

								BgL_env1118z00_4578 = BGL_CURRENT_DYNAMIC_ENV();
								{
									obj_t BgL_excz00_4580;

									{	/* Eval/eval.scm 565 */
										obj_t BgL_cell1113z00_4820;

										BgL_cell1113z00_4820 = MAKE_STACK_CELL(BUNSPEC);
										{	/* Eval/eval.scm 565 */
											obj_t BgL_val1117z00_4821;

											BgL_val1117z00_4821 =
												BGl_zc3z04exitza31562ze3ze70z60zz__evalz00
												(BgL_ez00_3688, BgL_xz00_3687, BgL_expdzd2evalzd2_3686,
												BgL_cell1113z00_4820, BgL_env1118z00_4578);
											if ((BgL_val1117z00_4821 == BgL_cell1113z00_4820))
												{	/* Eval/eval.scm 565 */
													{	/* Eval/eval.scm 565 */
														int BgL_tmpz00_7331;

														BgL_tmpz00_7331 = (int) (0L);
														BGL_SIGSETMASK(BgL_tmpz00_7331);
													}
													{	/* Eval/eval.scm 565 */
														obj_t BgL_arg1561z00_4822;

														BgL_arg1561z00_4822 =
															CELL_REF(((obj_t) BgL_val1117z00_4821));
														BgL_excz00_4580 = BgL_arg1561z00_4822;
														{	/* Eval/eval.scm 567 */
															obj_t BgL_nexcz00_4581;

															{	/* Eval/eval.scm 567 */
																bool_t BgL_test3276z00_7336;

																{	/* Eval/eval.scm 567 */
																	obj_t BgL_classz00_4582;

																	BgL_classz00_4582 =
																		BGl_z62errorz62zz__objectz00;
																	if (BGL_OBJECTP(BgL_excz00_4580))
																		{	/* Eval/eval.scm 567 */
																			BgL_objectz00_bglt BgL_arg2248z00_4583;

																			BgL_arg2248z00_4583 =
																				(BgL_objectz00_bglt) (BgL_excz00_4580);
																			if (BGL_CONDEXPAND_ISA_ARCH64())
																				{	/* Eval/eval.scm 567 */
																					long BgL_idxz00_4584;

																					BgL_idxz00_4584 =
																						BGL_OBJECT_INHERITANCE_NUM
																						(BgL_arg2248z00_4583);
																					{	/* Eval/eval.scm 567 */
																						obj_t BgL_arg2240z00_4585;

																						{	/* Eval/eval.scm 567 */
																							long BgL_arg2241z00_4586;

																							BgL_arg2241z00_4586 =
																								(BgL_idxz00_4584 + 3L);
																							{	/* Eval/eval.scm 567 */
																								obj_t BgL_vectorz00_4587;

																								{	/* Eval/eval.scm 567 */
																									obj_t BgL_aux2499z00_4588;

																									BgL_aux2499z00_4588 =
																										BGl_za2inheritancesza2z00zz__objectz00;
																									if (VECTORP
																										(BgL_aux2499z00_4588))
																										{	/* Eval/eval.scm 567 */
																											BgL_vectorz00_4587 =
																												BgL_aux2499z00_4588;
																										}
																									else
																										{
																											obj_t BgL_auxz00_7346;

																											BgL_auxz00_7346 =
																												BGl_typezd2errorzd2zz__errorz00
																												(BGl_string2674z00zz__evalz00,
																												BINT(22481L),
																												BGl_string2754z00zz__evalz00,
																												BGl_string2676z00zz__evalz00,
																												BgL_aux2499z00_4588);
																											FAILURE(BgL_auxz00_7346,
																												BFALSE, BFALSE);
																										}
																								}
																								BgL_arg2240z00_4585 =
																									VECTOR_REF(BgL_vectorz00_4587,
																									BgL_arg2241z00_4586);
																							}
																						}
																						BgL_test3276z00_7336 =
																							(BgL_arg2240z00_4585 ==
																							BgL_classz00_4582);
																					}
																				}
																			else
																				{	/* Eval/eval.scm 567 */
																					bool_t BgL_res2265z00_4589;

																					{	/* Eval/eval.scm 567 */
																						obj_t BgL_oclassz00_4590;

																						{	/* Eval/eval.scm 567 */
																							obj_t BgL_arg2255z00_4591;
																							long BgL_arg2256z00_4592;

																							BgL_arg2255z00_4591 =
																								(BGl_za2classesza2z00zz__objectz00);
																							{	/* Eval/eval.scm 567 */
																								long BgL_arg2257z00_4593;

																								BgL_arg2257z00_4593 =
																									BGL_OBJECT_CLASS_NUM
																									(BgL_arg2248z00_4583);
																								BgL_arg2256z00_4592 =
																									(BgL_arg2257z00_4593 -
																									OBJECT_TYPE);
																							}
																							BgL_oclassz00_4590 =
																								VECTOR_REF(BgL_arg2255z00_4591,
																								BgL_arg2256z00_4592);
																						}
																						{	/* Eval/eval.scm 567 */
																							bool_t BgL__ortest_1235z00_4594;

																							BgL__ortest_1235z00_4594 =
																								(BgL_classz00_4582 ==
																								BgL_oclassz00_4590);
																							if (BgL__ortest_1235z00_4594)
																								{	/* Eval/eval.scm 567 */
																									BgL_res2265z00_4589 =
																										BgL__ortest_1235z00_4594;
																								}
																							else
																								{	/* Eval/eval.scm 567 */
																									long BgL_odepthz00_4595;

																									{	/* Eval/eval.scm 567 */
																										obj_t BgL_arg2245z00_4596;

																										BgL_arg2245z00_4596 =
																											(BgL_oclassz00_4590);
																										BgL_odepthz00_4595 =
																											BGL_CLASS_DEPTH
																											(BgL_arg2245z00_4596);
																									}
																									if ((3L < BgL_odepthz00_4595))
																										{	/* Eval/eval.scm 567 */
																											obj_t BgL_arg2242z00_4597;

																											{	/* Eval/eval.scm 567 */
																												obj_t
																													BgL_arg2243z00_4598;
																												BgL_arg2243z00_4598 =
																													(BgL_oclassz00_4590);
																												BgL_arg2242z00_4597 =
																													BGL_CLASS_ANCESTORS_REF
																													(BgL_arg2243z00_4598,
																													3L);
																											}
																											BgL_res2265z00_4589 =
																												(BgL_arg2242z00_4597 ==
																												BgL_classz00_4582);
																										}
																									else
																										{	/* Eval/eval.scm 567 */
																											BgL_res2265z00_4589 =
																												((bool_t) 0);
																										}
																								}
																						}
																					}
																					BgL_test3276z00_7336 =
																						BgL_res2265z00_4589;
																				}
																		}
																	else
																		{	/* Eval/eval.scm 567 */
																			BgL_test3276z00_7336 = ((bool_t) 0);
																		}
																}
																if (BgL_test3276z00_7336)
																	{	/* Eval/eval.scm 568 */
																		BgL_z62errorz62_bglt BgL_i1119z00_4599;

																		{	/* Eval/eval.scm 569 */
																			bool_t BgL_test3282z00_7365;

																			{	/* Eval/eval.scm 569 */
																				obj_t BgL_classz00_4600;

																				BgL_classz00_4600 =
																					BGl_z62errorz62zz__objectz00;
																				if (BGL_OBJECTP(BgL_excz00_4580))
																					{	/* Eval/eval.scm 569 */
																						BgL_objectz00_bglt
																							BgL_arg2250z00_4602;
																						long BgL_arg2251z00_4603;

																						BgL_arg2250z00_4602 =
																							(BgL_objectz00_bglt)
																							(BgL_excz00_4580);
																						BgL_arg2251z00_4603 =
																							BGL_CLASS_DEPTH
																							(BgL_classz00_4600);
																						if (BGL_CONDEXPAND_ISA_ARCH64())
																							{	/* Eval/eval.scm 569 */
																								long BgL_idxz00_4611;

																								BgL_idxz00_4611 =
																									BGL_OBJECT_INHERITANCE_NUM
																									(BgL_arg2250z00_4602);
																								{	/* Eval/eval.scm 569 */
																									obj_t BgL_arg2240z00_4612;

																									{	/* Eval/eval.scm 569 */
																										long BgL_arg2241z00_4613;

																										BgL_arg2241z00_4613 =
																											(BgL_idxz00_4611 +
																											BgL_arg2251z00_4603);
																										BgL_arg2240z00_4612 =
																											VECTOR_REF
																											(BGl_za2inheritancesza2z00zz__objectz00,
																											BgL_arg2241z00_4613);
																									}
																									BgL_test3282z00_7365 =
																										(BgL_arg2240z00_4612 ==
																										BgL_classz00_4600);
																							}}
																						else
																							{	/* Eval/eval.scm 569 */
																								bool_t BgL_res2270z00_4618;

																								{	/* Eval/eval.scm 569 */
																									obj_t BgL_oclassz00_4622;

																									{	/* Eval/eval.scm 569 */
																										obj_t BgL_arg2255z00_4624;
																										long BgL_arg2256z00_4625;

																										BgL_arg2255z00_4624 =
																											(BGl_za2classesza2z00zz__objectz00);
																										{	/* Eval/eval.scm 569 */
																											long BgL_arg2257z00_4626;

																											BgL_arg2257z00_4626 =
																												BGL_OBJECT_CLASS_NUM
																												(BgL_arg2250z00_4602);
																											BgL_arg2256z00_4625 =
																												(BgL_arg2257z00_4626 -
																												OBJECT_TYPE);
																										}
																										BgL_oclassz00_4622 =
																											VECTOR_REF
																											(BgL_arg2255z00_4624,
																											BgL_arg2256z00_4625);
																									}
																									{	/* Eval/eval.scm 569 */
																										bool_t
																											BgL__ortest_1235z00_4632;
																										BgL__ortest_1235z00_4632 =
																											(BgL_classz00_4600 ==
																											BgL_oclassz00_4622);
																										if (BgL__ortest_1235z00_4632)
																											{	/* Eval/eval.scm 569 */
																												BgL_res2270z00_4618 =
																													BgL__ortest_1235z00_4632;
																											}
																										else
																											{	/* Eval/eval.scm 569 */
																												long BgL_odepthz00_4633;

																												{	/* Eval/eval.scm 569 */
																													obj_t
																														BgL_arg2245z00_4634;
																													BgL_arg2245z00_4634 =
																														(BgL_oclassz00_4622);
																													BgL_odepthz00_4633 =
																														BGL_CLASS_DEPTH
																														(BgL_arg2245z00_4634);
																												}
																												if (
																													(BgL_arg2251z00_4603 <
																														BgL_odepthz00_4633))
																													{	/* Eval/eval.scm 569 */
																														obj_t
																															BgL_arg2242z00_4638;
																														{	/* Eval/eval.scm 569 */
																															obj_t
																																BgL_arg2243z00_4639;
																															BgL_arg2243z00_4639
																																=
																																(BgL_oclassz00_4622);
																															BgL_arg2242z00_4638
																																=
																																BGL_CLASS_ANCESTORS_REF
																																(BgL_arg2243z00_4639,
																																BgL_arg2251z00_4603);
																														}
																														BgL_res2270z00_4618
																															=
																															(BgL_arg2242z00_4638
																															==
																															BgL_classz00_4600);
																													}
																												else
																													{	/* Eval/eval.scm 569 */
																														BgL_res2270z00_4618
																															= ((bool_t) 0);
																													}
																											}
																									}
																								}
																								BgL_test3282z00_7365 =
																									BgL_res2270z00_4618;
																							}
																					}
																				else
																					{	/* Eval/eval.scm 569 */
																						BgL_test3282z00_7365 = ((bool_t) 0);
																					}
																			}
																			if (BgL_test3282z00_7365)
																				{	/* Eval/eval.scm 569 */
																					BgL_i1119z00_4599 =
																						((BgL_z62errorz62_bglt)
																						BgL_excz00_4580);
																				}
																			else
																				{
																					obj_t BgL_auxz00_7390;

																					BgL_auxz00_7390 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string2674z00zz__evalz00,
																						BINT(22543L),
																						BGl_string2754z00zz__evalz00,
																						BGl_string2717z00zz__evalz00,
																						BgL_excz00_4580);
																					FAILURE(BgL_auxz00_7390, BFALSE,
																						BFALSE);
																				}
																		}
																		{	/* Eval/eval.scm 569 */
																			bool_t BgL_test3287z00_7394;

																			{	/* Eval/eval.scm 569 */
																				obj_t BgL_tmpz00_7395;

																				BgL_tmpz00_7395 =
																					(((BgL_z62errorz62_bglt)
																						COBJECT(BgL_i1119z00_4599))->
																					BgL_objz00);
																				BgL_test3287z00_7394 =
																					EPAIRP(BgL_tmpz00_7395);
																			}
																			if (BgL_test3287z00_7394)
																				{
																					obj_t BgL_fnamez00_4641;
																					obj_t BgL_locz00_4642;

																					{	/* Eval/eval.scm 570 */
																						obj_t BgL_ezd2120zd2_4813;

																						{	/* Eval/eval.scm 570 */
																							obj_t BgL_objz00_4814;

																							{	/* Eval/eval.scm 570 */
																								obj_t BgL_aux2514z00_4815;

																								BgL_aux2514z00_4815 =
																									(((BgL_z62errorz62_bglt)
																										COBJECT
																										(BgL_i1119z00_4599))->
																									BgL_objz00);
																								if (EPAIRP(BgL_aux2514z00_4815))
																									{	/* Eval/eval.scm 570 */
																										BgL_objz00_4814 =
																											BgL_aux2514z00_4815;
																									}
																								else
																									{
																										obj_t BgL_auxz00_7401;

																										BgL_auxz00_7401 =
																											BGl_typezd2errorzd2zz__errorz00
																											(BGl_string2674z00zz__evalz00,
																											BINT(22584L),
																											BGl_string2754z00zz__evalz00,
																											BGl_string2739z00zz__evalz00,
																											BgL_aux2514z00_4815);
																										FAILURE(BgL_auxz00_7401,
																											BFALSE, BFALSE);
																									}
																							}
																							BgL_ezd2120zd2_4813 =
																								CER(BgL_objz00_4814);
																						}
																						if (PAIRP(BgL_ezd2120zd2_4813))
																							{	/* Eval/eval.scm 570 */
																								obj_t BgL_cdrzd2126zd2_4816;

																								BgL_cdrzd2126zd2_4816 =
																									CDR(BgL_ezd2120zd2_4813);
																								if (
																									(CAR(BgL_ezd2120zd2_4813) ==
																										BGl_symbol2688z00zz__evalz00))
																									{	/* Eval/eval.scm 570 */
																										if (PAIRP
																											(BgL_cdrzd2126zd2_4816))
																											{	/* Eval/eval.scm 570 */
																												obj_t
																													BgL_cdrzd2130zd2_4817;
																												BgL_cdrzd2130zd2_4817 =
																													CDR
																													(BgL_cdrzd2126zd2_4816);
																												if (PAIRP
																													(BgL_cdrzd2130zd2_4817))
																													{	/* Eval/eval.scm 570 */
																														if (NULLP(CDR
																																(BgL_cdrzd2130zd2_4817)))
																															{	/* Eval/eval.scm 570 */
																																obj_t
																																	BgL_arg1580z00_4818;
																																obj_t
																																	BgL_arg1581z00_4819;
																																BgL_arg1580z00_4818
																																	=
																																	CAR
																																	(BgL_cdrzd2126zd2_4816);
																																BgL_arg1581z00_4819
																																	=
																																	CAR
																																	(BgL_cdrzd2130zd2_4817);
																																{
																																	BgL_z62errorz62_bglt
																																		BgL_auxz00_7422;
																																	BgL_fnamez00_4641
																																		=
																																		BgL_arg1580z00_4818;
																																	BgL_locz00_4642
																																		=
																																		BgL_arg1581z00_4819;
																																	{	/* Eval/eval.scm 572 */
																																		BgL_z62exceptionz62_bglt
																																			BgL_duplicated1122z00_4643;
																																		BgL_z62errorz62_bglt
																																			BgL_new1120z00_4644;
																																		{	/* Eval/eval.scm 573 */
																																			bool_t
																																				BgL_test3294z00_7423;
																																			{	/* Eval/eval.scm 573 */
																																				obj_t
																																					BgL_classz00_4645;
																																				BgL_classz00_4645
																																					=
																																					BGl_z62exceptionz62zz__objectz00;
																																				if (BGL_OBJECTP(BgL_excz00_4580))
																																					{	/* Eval/eval.scm 573 */
																																						BgL_objectz00_bglt
																																							BgL_arg2250z00_4647;
																																						long
																																							BgL_arg2251z00_4648;
																																						BgL_arg2250z00_4647
																																							=
																																							(BgL_objectz00_bglt)
																																							(BgL_excz00_4580);
																																						BgL_arg2251z00_4648
																																							=
																																							BGL_CLASS_DEPTH
																																							(BgL_classz00_4645);
																																						if (BGL_CONDEXPAND_ISA_ARCH64())
																																							{	/* Eval/eval.scm 573 */
																																								long
																																									BgL_idxz00_4656;
																																								BgL_idxz00_4656
																																									=
																																									BGL_OBJECT_INHERITANCE_NUM
																																									(BgL_arg2250z00_4647);
																																								{	/* Eval/eval.scm 573 */
																																									obj_t
																																										BgL_arg2240z00_4657;
																																									{	/* Eval/eval.scm 573 */
																																										long
																																											BgL_arg2241z00_4658;
																																										BgL_arg2241z00_4658
																																											=
																																											(BgL_idxz00_4656
																																											+
																																											BgL_arg2251z00_4648);
																																										BgL_arg2240z00_4657
																																											=
																																											VECTOR_REF
																																											(BGl_za2inheritancesza2z00zz__objectz00,
																																											BgL_arg2241z00_4658);
																																									}
																																									BgL_test3294z00_7423
																																										=
																																										(BgL_arg2240z00_4657
																																										==
																																										BgL_classz00_4645);
																																							}}
																																						else
																																							{	/* Eval/eval.scm 573 */
																																								bool_t
																																									BgL_res2270z00_4663;
																																								{	/* Eval/eval.scm 573 */
																																									obj_t
																																										BgL_oclassz00_4667;
																																									{	/* Eval/eval.scm 573 */
																																										obj_t
																																											BgL_arg2255z00_4669;
																																										long
																																											BgL_arg2256z00_4670;
																																										BgL_arg2255z00_4669
																																											=
																																											(BGl_za2classesza2z00zz__objectz00);
																																										{	/* Eval/eval.scm 573 */
																																											long
																																												BgL_arg2257z00_4671;
																																											BgL_arg2257z00_4671
																																												=
																																												BGL_OBJECT_CLASS_NUM
																																												(BgL_arg2250z00_4647);
																																											BgL_arg2256z00_4670
																																												=
																																												(BgL_arg2257z00_4671
																																												-
																																												OBJECT_TYPE);
																																										}
																																										BgL_oclassz00_4667
																																											=
																																											VECTOR_REF
																																											(BgL_arg2255z00_4669,
																																											BgL_arg2256z00_4670);
																																									}
																																									{	/* Eval/eval.scm 573 */
																																										bool_t
																																											BgL__ortest_1235z00_4677;
																																										BgL__ortest_1235z00_4677
																																											=
																																											(BgL_classz00_4645
																																											==
																																											BgL_oclassz00_4667);
																																										if (BgL__ortest_1235z00_4677)
																																											{	/* Eval/eval.scm 573 */
																																												BgL_res2270z00_4663
																																													=
																																													BgL__ortest_1235z00_4677;
																																											}
																																										else
																																											{	/* Eval/eval.scm 573 */
																																												long
																																													BgL_odepthz00_4678;
																																												{	/* Eval/eval.scm 573 */
																																													obj_t
																																														BgL_arg2245z00_4679;
																																													BgL_arg2245z00_4679
																																														=
																																														(BgL_oclassz00_4667);
																																													BgL_odepthz00_4678
																																														=
																																														BGL_CLASS_DEPTH
																																														(BgL_arg2245z00_4679);
																																												}
																																												if ((BgL_arg2251z00_4648 < BgL_odepthz00_4678))
																																													{	/* Eval/eval.scm 573 */
																																														obj_t
																																															BgL_arg2242z00_4683;
																																														{	/* Eval/eval.scm 573 */
																																															obj_t
																																																BgL_arg2243z00_4684;
																																															BgL_arg2243z00_4684
																																																=
																																																(BgL_oclassz00_4667);
																																															BgL_arg2242z00_4683
																																																=
																																																BGL_CLASS_ANCESTORS_REF
																																																(BgL_arg2243z00_4684,
																																																BgL_arg2251z00_4648);
																																														}
																																														BgL_res2270z00_4663
																																															=
																																															(BgL_arg2242z00_4683
																																															==
																																															BgL_classz00_4645);
																																													}
																																												else
																																													{	/* Eval/eval.scm 573 */
																																														BgL_res2270z00_4663
																																															=
																																															(
																																															(bool_t)
																																															0);
																																													}
																																											}
																																									}
																																								}
																																								BgL_test3294z00_7423
																																									=
																																									BgL_res2270z00_4663;
																																							}
																																					}
																																				else
																																					{	/* Eval/eval.scm 573 */
																																						BgL_test3294z00_7423
																																							=
																																							(
																																							(bool_t)
																																							0);
																																					}
																																			}
																																			if (BgL_test3294z00_7423)
																																				{	/* Eval/eval.scm 573 */
																																					BgL_duplicated1122z00_4643
																																						=
																																						(
																																						(BgL_z62exceptionz62_bglt)
																																						BgL_excz00_4580);
																																				}
																																			else
																																				{
																																					obj_t
																																						BgL_auxz00_7448;
																																					BgL_auxz00_7448
																																						=
																																						BGl_typezd2errorzd2zz__errorz00
																																						(BGl_string2674z00zz__evalz00,
																																						BINT
																																						(22664L),
																																						BGl_string2755z00zz__evalz00,
																																						BGl_string2687z00zz__evalz00,
																																						BgL_excz00_4580);
																																					FAILURE
																																						(BgL_auxz00_7448,
																																						BFALSE,
																																						BFALSE);
																																				}
																																		}
																																		{	/* Eval/eval.scm 573 */
																																			BgL_z62errorz62_bglt
																																				BgL_new1126z00_4685;
																																			BgL_new1126z00_4685
																																				=
																																				(
																																				(BgL_z62errorz62_bglt)
																																				BOBJECT
																																				(GC_MALLOC
																																					(sizeof
																																						(struct
																																							BgL_z62errorz62_bgl))));
																																			{	/* Eval/eval.scm 573 */
																																				long
																																					BgL_arg1587z00_4686;
																																				BgL_arg1587z00_4686
																																					=
																																					BGL_CLASS_NUM
																																					(BGl_z62errorz62zz__objectz00);
																																				BGL_OBJECT_CLASS_NUM_SET
																																					(((BgL_objectz00_bglt) BgL_new1126z00_4685), BgL_arg1587z00_4686);
																																			}
																																			BgL_new1120z00_4644
																																				=
																																				BgL_new1126z00_4685;
																																		}
																																		((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1120z00_4644)))->BgL_fnamez00) = ((obj_t) BgL_fnamez00_4641), BUNSPEC);
																																		((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1120z00_4644)))->BgL_locationz00) = ((obj_t) BgL_locz00_4642), BUNSPEC);
																																		((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1120z00_4644)))->BgL_stackz00) = ((obj_t) (((BgL_z62exceptionz62_bglt) COBJECT(BgL_duplicated1122z00_4643))->BgL_stackz00)), BUNSPEC);
																																		{
																																			obj_t
																																				BgL_auxz00_7463;
																																			{	/* Eval/eval.scm 574 */
																																				BgL_z62errorz62_bglt
																																					BgL_tmp1123z00_4687;
																																				{	/* Eval/eval.scm 574 */
																																					bool_t
																																						BgL_test3299z00_7464;
																																					{	/* Eval/eval.scm 574 */
																																						obj_t
																																							BgL_classz00_4689;
																																						BgL_classz00_4689
																																							=
																																							BGl_z62errorz62zz__objectz00;
																																						{	/* Eval/eval.scm 574 */
																																							bool_t
																																								BgL_test3300z00_7465;
																																							{	/* Eval/eval.scm 574 */
																																								obj_t
																																									BgL_tmpz00_7466;
																																								BgL_tmpz00_7466
																																									=
																																									(
																																									(obj_t)
																																									BgL_duplicated1122z00_4643);
																																								BgL_test3300z00_7465
																																									=
																																									BGL_OBJECTP
																																									(BgL_tmpz00_7466);
																																							}
																																							if (BgL_test3300z00_7465)
																																								{	/* Eval/eval.scm 574 */
																																									BgL_objectz00_bglt
																																										BgL_arg2250z00_4691;
																																									long
																																										BgL_arg2251z00_4692;
																																									{	/* Eval/eval.scm 574 */
																																										obj_t
																																											BgL_tmpz00_7469;
																																										BgL_tmpz00_7469
																																											=
																																											(
																																											(obj_t)
																																											BgL_duplicated1122z00_4643);
																																										BgL_arg2250z00_4691
																																											=
																																											(BgL_objectz00_bglt)
																																											(BgL_tmpz00_7469);
																																									}
																																									BgL_arg2251z00_4692
																																										=
																																										BGL_CLASS_DEPTH
																																										(BgL_classz00_4689);
																																									if (BGL_CONDEXPAND_ISA_ARCH64())
																																										{	/* Eval/eval.scm 574 */
																																											long
																																												BgL_idxz00_4700;
																																											BgL_idxz00_4700
																																												=
																																												BGL_OBJECT_INHERITANCE_NUM
																																												(BgL_arg2250z00_4691);
																																											{	/* Eval/eval.scm 574 */
																																												obj_t
																																													BgL_arg2240z00_4701;
																																												{	/* Eval/eval.scm 574 */
																																													long
																																														BgL_arg2241z00_4702;
																																													BgL_arg2241z00_4702
																																														=
																																														(BgL_idxz00_4700
																																														+
																																														BgL_arg2251z00_4692);
																																													{	/* Eval/eval.scm 574 */
																																														obj_t
																																															BgL_vectorz00_4705;
																																														BgL_vectorz00_4705
																																															=
																																															BGl_za2inheritancesza2z00zz__objectz00;
																																														BgL_arg2240z00_4701
																																															=
																																															VECTOR_REF
																																															(BgL_vectorz00_4705,
																																															BgL_arg2241z00_4702);
																																												}}
																																												BgL_test3299z00_7464
																																													=
																																													(BgL_arg2240z00_4701
																																													==
																																													BgL_classz00_4689);
																																										}}
																																									else
																																										{	/* Eval/eval.scm 574 */
																																											bool_t
																																												BgL_res2270z00_4707;
																																											{	/* Eval/eval.scm 574 */
																																												obj_t
																																													BgL_oclassz00_4711;
																																												{	/* Eval/eval.scm 574 */
																																													obj_t
																																														BgL_arg2255z00_4713;
																																													long
																																														BgL_arg2256z00_4714;
																																													BgL_arg2255z00_4713
																																														=
																																														(BGl_za2classesza2z00zz__objectz00);
																																													{	/* Eval/eval.scm 574 */
																																														long
																																															BgL_arg2257z00_4715;
																																														BgL_arg2257z00_4715
																																															=
																																															BGL_OBJECT_CLASS_NUM
																																															(BgL_arg2250z00_4691);
																																														BgL_arg2256z00_4714
																																															=
																																															(BgL_arg2257z00_4715
																																															-
																																															OBJECT_TYPE);
																																													}
																																													BgL_oclassz00_4711
																																														=
																																														VECTOR_REF
																																														(BgL_arg2255z00_4713,
																																														BgL_arg2256z00_4714);
																																												}
																																												{	/* Eval/eval.scm 574 */
																																													bool_t
																																														BgL__ortest_1235z00_4721;
																																													BgL__ortest_1235z00_4721
																																														=
																																														(BgL_classz00_4689
																																														==
																																														BgL_oclassz00_4711);
																																													if (BgL__ortest_1235z00_4721)
																																														{	/* Eval/eval.scm 574 */
																																															BgL_res2270z00_4707
																																																=
																																																BgL__ortest_1235z00_4721;
																																														}
																																													else
																																														{	/* Eval/eval.scm 574 */
																																															long
																																																BgL_odepthz00_4722;
																																															{	/* Eval/eval.scm 574 */
																																																obj_t
																																																	BgL_arg2245z00_4723;
																																																BgL_arg2245z00_4723
																																																	=
																																																	(BgL_oclassz00_4711);
																																																BgL_odepthz00_4722
																																																	=
																																																	BGL_CLASS_DEPTH
																																																	(BgL_arg2245z00_4723);
																																															}
																																															if ((BgL_arg2251z00_4692 < BgL_odepthz00_4722))
																																																{	/* Eval/eval.scm 574 */
																																																	obj_t
																																																		BgL_arg2242z00_4727;
																																																	{	/* Eval/eval.scm 574 */
																																																		obj_t
																																																			BgL_arg2243z00_4728;
																																																		BgL_arg2243z00_4728
																																																			=
																																																			(BgL_oclassz00_4711);
																																																		BgL_arg2242z00_4727
																																																			=
																																																			BGL_CLASS_ANCESTORS_REF
																																																			(BgL_arg2243z00_4728,
																																																			BgL_arg2251z00_4692);
																																																	}
																																																	BgL_res2270z00_4707
																																																		=
																																																		(BgL_arg2242z00_4727
																																																		==
																																																		BgL_classz00_4689);
																																																}
																																															else
																																																{	/* Eval/eval.scm 574 */
																																																	BgL_res2270z00_4707
																																																		=
																																																		(
																																																		(bool_t)
																																																		0);
																																																}
																																														}
																																												}
																																											}
																																											BgL_test3299z00_7464
																																												=
																																												BgL_res2270z00_4707;
																																										}
																																								}
																																							else
																																								{	/* Eval/eval.scm 574 */
																																									BgL_test3299z00_7464
																																										=
																																										(
																																										(bool_t)
																																										0);
																																								}
																																						}
																																					}
																																					if (BgL_test3299z00_7464)
																																						{	/* Eval/eval.scm 574 */
																																							BgL_tmp1123z00_4687
																																								=
																																								(
																																								(BgL_z62errorz62_bglt)
																																								BgL_duplicated1122z00_4643);
																																						}
																																					else
																																						{
																																							obj_t
																																								BgL_auxz00_7493;
																																							BgL_auxz00_7493
																																								=
																																								BGl_typezd2errorzd2zz__errorz00
																																								(BGl_string2674z00zz__evalz00,
																																								BINT
																																								(22690L),
																																								BGl_string2755z00zz__evalz00,
																																								BGl_string2717z00zz__evalz00,
																																								((obj_t) BgL_duplicated1122z00_4643));
																																							FAILURE
																																								(BgL_auxz00_7493,
																																								BFALSE,
																																								BFALSE);
																																						}
																																				}
																																				BgL_auxz00_7463
																																					=
																																					(((BgL_z62errorz62_bglt) COBJECT(BgL_tmp1123z00_4687))->BgL_procz00);
																																			}
																																			((((BgL_z62errorz62_bglt) COBJECT(BgL_new1120z00_4644))->BgL_procz00) = ((obj_t) BgL_auxz00_7463), BUNSPEC);
																																		}
																																		{
																																			obj_t
																																				BgL_auxz00_7500;
																																			{	/* Eval/eval.scm 574 */
																																				BgL_z62errorz62_bglt
																																					BgL_tmp1124z00_4729;
																																				{	/* Eval/eval.scm 574 */
																																					bool_t
																																						BgL_test3304z00_7501;
																																					{	/* Eval/eval.scm 574 */
																																						obj_t
																																							BgL_classz00_4731;
																																						BgL_classz00_4731
																																							=
																																							BGl_z62errorz62zz__objectz00;
																																						{	/* Eval/eval.scm 574 */
																																							bool_t
																																								BgL_test3305z00_7502;
																																							{	/* Eval/eval.scm 574 */
																																								obj_t
																																									BgL_tmpz00_7503;
																																								BgL_tmpz00_7503
																																									=
																																									(
																																									(obj_t)
																																									BgL_duplicated1122z00_4643);
																																								BgL_test3305z00_7502
																																									=
																																									BGL_OBJECTP
																																									(BgL_tmpz00_7503);
																																							}
																																							if (BgL_test3305z00_7502)
																																								{	/* Eval/eval.scm 574 */
																																									BgL_objectz00_bglt
																																										BgL_arg2250z00_4733;
																																									long
																																										BgL_arg2251z00_4734;
																																									{	/* Eval/eval.scm 574 */
																																										obj_t
																																											BgL_tmpz00_7506;
																																										BgL_tmpz00_7506
																																											=
																																											(
																																											(obj_t)
																																											BgL_duplicated1122z00_4643);
																																										BgL_arg2250z00_4733
																																											=
																																											(BgL_objectz00_bglt)
																																											(BgL_tmpz00_7506);
																																									}
																																									BgL_arg2251z00_4734
																																										=
																																										BGL_CLASS_DEPTH
																																										(BgL_classz00_4731);
																																									if (BGL_CONDEXPAND_ISA_ARCH64())
																																										{	/* Eval/eval.scm 574 */
																																											long
																																												BgL_idxz00_4742;
																																											BgL_idxz00_4742
																																												=
																																												BGL_OBJECT_INHERITANCE_NUM
																																												(BgL_arg2250z00_4733);
																																											{	/* Eval/eval.scm 574 */
																																												obj_t
																																													BgL_arg2240z00_4743;
																																												{	/* Eval/eval.scm 574 */
																																													long
																																														BgL_arg2241z00_4744;
																																													BgL_arg2241z00_4744
																																														=
																																														(BgL_idxz00_4742
																																														+
																																														BgL_arg2251z00_4734);
																																													{	/* Eval/eval.scm 574 */
																																														obj_t
																																															BgL_vectorz00_4747;
																																														BgL_vectorz00_4747
																																															=
																																															BGl_za2inheritancesza2z00zz__objectz00;
																																														BgL_arg2240z00_4743
																																															=
																																															VECTOR_REF
																																															(BgL_vectorz00_4747,
																																															BgL_arg2241z00_4744);
																																												}}
																																												BgL_test3304z00_7501
																																													=
																																													(BgL_arg2240z00_4743
																																													==
																																													BgL_classz00_4731);
																																										}}
																																									else
																																										{	/* Eval/eval.scm 574 */
																																											bool_t
																																												BgL_res2270z00_4749;
																																											{	/* Eval/eval.scm 574 */
																																												obj_t
																																													BgL_oclassz00_4753;
																																												{	/* Eval/eval.scm 574 */
																																													obj_t
																																														BgL_arg2255z00_4755;
																																													long
																																														BgL_arg2256z00_4756;
																																													BgL_arg2255z00_4755
																																														=
																																														(BGl_za2classesza2z00zz__objectz00);
																																													{	/* Eval/eval.scm 574 */
																																														long
																																															BgL_arg2257z00_4757;
																																														BgL_arg2257z00_4757
																																															=
																																															BGL_OBJECT_CLASS_NUM
																																															(BgL_arg2250z00_4733);
																																														BgL_arg2256z00_4756
																																															=
																																															(BgL_arg2257z00_4757
																																															-
																																															OBJECT_TYPE);
																																													}
																																													BgL_oclassz00_4753
																																														=
																																														VECTOR_REF
																																														(BgL_arg2255z00_4755,
																																														BgL_arg2256z00_4756);
																																												}
																																												{	/* Eval/eval.scm 574 */
																																													bool_t
																																														BgL__ortest_1235z00_4763;
																																													BgL__ortest_1235z00_4763
																																														=
																																														(BgL_classz00_4731
																																														==
																																														BgL_oclassz00_4753);
																																													if (BgL__ortest_1235z00_4763)
																																														{	/* Eval/eval.scm 574 */
																																															BgL_res2270z00_4749
																																																=
																																																BgL__ortest_1235z00_4763;
																																														}
																																													else
																																														{	/* Eval/eval.scm 574 */
																																															long
																																																BgL_odepthz00_4764;
																																															{	/* Eval/eval.scm 574 */
																																																obj_t
																																																	BgL_arg2245z00_4765;
																																																BgL_arg2245z00_4765
																																																	=
																																																	(BgL_oclassz00_4753);
																																																BgL_odepthz00_4764
																																																	=
																																																	BGL_CLASS_DEPTH
																																																	(BgL_arg2245z00_4765);
																																															}
																																															if ((BgL_arg2251z00_4734 < BgL_odepthz00_4764))
																																																{	/* Eval/eval.scm 574 */
																																																	obj_t
																																																		BgL_arg2242z00_4769;
																																																	{	/* Eval/eval.scm 574 */
																																																		obj_t
																																																			BgL_arg2243z00_4770;
																																																		BgL_arg2243z00_4770
																																																			=
																																																			(BgL_oclassz00_4753);
																																																		BgL_arg2242z00_4769
																																																			=
																																																			BGL_CLASS_ANCESTORS_REF
																																																			(BgL_arg2243z00_4770,
																																																			BgL_arg2251z00_4734);
																																																	}
																																																	BgL_res2270z00_4749
																																																		=
																																																		(BgL_arg2242z00_4769
																																																		==
																																																		BgL_classz00_4731);
																																																}
																																															else
																																																{	/* Eval/eval.scm 574 */
																																																	BgL_res2270z00_4749
																																																		=
																																																		(
																																																		(bool_t)
																																																		0);
																																																}
																																														}
																																												}
																																											}
																																											BgL_test3304z00_7501
																																												=
																																												BgL_res2270z00_4749;
																																										}
																																								}
																																							else
																																								{	/* Eval/eval.scm 574 */
																																									BgL_test3304z00_7501
																																										=
																																										(
																																										(bool_t)
																																										0);
																																								}
																																						}
																																					}
																																					if (BgL_test3304z00_7501)
																																						{	/* Eval/eval.scm 574 */
																																							BgL_tmp1124z00_4729
																																								=
																																								(
																																								(BgL_z62errorz62_bglt)
																																								BgL_duplicated1122z00_4643);
																																						}
																																					else
																																						{
																																							obj_t
																																								BgL_auxz00_7530;
																																							BgL_auxz00_7530
																																								=
																																								BGl_typezd2errorzd2zz__errorz00
																																								(BGl_string2674z00zz__evalz00,
																																								BINT
																																								(22690L),
																																								BGl_string2755z00zz__evalz00,
																																								BGl_string2717z00zz__evalz00,
																																								((obj_t) BgL_duplicated1122z00_4643));
																																							FAILURE
																																								(BgL_auxz00_7530,
																																								BFALSE,
																																								BFALSE);
																																						}
																																				}
																																				BgL_auxz00_7500
																																					=
																																					(((BgL_z62errorz62_bglt) COBJECT(BgL_tmp1124z00_4729))->BgL_msgz00);
																																			}
																																			((((BgL_z62errorz62_bglt) COBJECT(BgL_new1120z00_4644))->BgL_msgz00) = ((obj_t) BgL_auxz00_7500), BUNSPEC);
																																		}
																																		{
																																			obj_t
																																				BgL_auxz00_7537;
																																			{	/* Eval/eval.scm 574 */
																																				BgL_z62errorz62_bglt
																																					BgL_tmp1125z00_4771;
																																				{	/* Eval/eval.scm 574 */
																																					bool_t
																																						BgL_test3309z00_7538;
																																					{	/* Eval/eval.scm 574 */
																																						obj_t
																																							BgL_classz00_4773;
																																						BgL_classz00_4773
																																							=
																																							BGl_z62errorz62zz__objectz00;
																																						{	/* Eval/eval.scm 574 */
																																							bool_t
																																								BgL_test3310z00_7539;
																																							{	/* Eval/eval.scm 574 */
																																								obj_t
																																									BgL_tmpz00_7540;
																																								BgL_tmpz00_7540
																																									=
																																									(
																																									(obj_t)
																																									BgL_duplicated1122z00_4643);
																																								BgL_test3310z00_7539
																																									=
																																									BGL_OBJECTP
																																									(BgL_tmpz00_7540);
																																							}
																																							if (BgL_test3310z00_7539)
																																								{	/* Eval/eval.scm 574 */
																																									BgL_objectz00_bglt
																																										BgL_arg2250z00_4775;
																																									long
																																										BgL_arg2251z00_4776;
																																									{	/* Eval/eval.scm 574 */
																																										obj_t
																																											BgL_tmpz00_7543;
																																										BgL_tmpz00_7543
																																											=
																																											(
																																											(obj_t)
																																											BgL_duplicated1122z00_4643);
																																										BgL_arg2250z00_4775
																																											=
																																											(BgL_objectz00_bglt)
																																											(BgL_tmpz00_7543);
																																									}
																																									BgL_arg2251z00_4776
																																										=
																																										BGL_CLASS_DEPTH
																																										(BgL_classz00_4773);
																																									if (BGL_CONDEXPAND_ISA_ARCH64())
																																										{	/* Eval/eval.scm 574 */
																																											long
																																												BgL_idxz00_4784;
																																											BgL_idxz00_4784
																																												=
																																												BGL_OBJECT_INHERITANCE_NUM
																																												(BgL_arg2250z00_4775);
																																											{	/* Eval/eval.scm 574 */
																																												obj_t
																																													BgL_arg2240z00_4785;
																																												{	/* Eval/eval.scm 574 */
																																													long
																																														BgL_arg2241z00_4786;
																																													BgL_arg2241z00_4786
																																														=
																																														(BgL_idxz00_4784
																																														+
																																														BgL_arg2251z00_4776);
																																													{	/* Eval/eval.scm 574 */
																																														obj_t
																																															BgL_vectorz00_4789;
																																														BgL_vectorz00_4789
																																															=
																																															BGl_za2inheritancesza2z00zz__objectz00;
																																														BgL_arg2240z00_4785
																																															=
																																															VECTOR_REF
																																															(BgL_vectorz00_4789,
																																															BgL_arg2241z00_4786);
																																												}}
																																												BgL_test3309z00_7538
																																													=
																																													(BgL_arg2240z00_4785
																																													==
																																													BgL_classz00_4773);
																																										}}
																																									else
																																										{	/* Eval/eval.scm 574 */
																																											bool_t
																																												BgL_res2270z00_4791;
																																											{	/* Eval/eval.scm 574 */
																																												obj_t
																																													BgL_oclassz00_4795;
																																												{	/* Eval/eval.scm 574 */
																																													obj_t
																																														BgL_arg2255z00_4797;
																																													long
																																														BgL_arg2256z00_4798;
																																													BgL_arg2255z00_4797
																																														=
																																														(BGl_za2classesza2z00zz__objectz00);
																																													{	/* Eval/eval.scm 574 */
																																														long
																																															BgL_arg2257z00_4799;
																																														BgL_arg2257z00_4799
																																															=
																																															BGL_OBJECT_CLASS_NUM
																																															(BgL_arg2250z00_4775);
																																														BgL_arg2256z00_4798
																																															=
																																															(BgL_arg2257z00_4799
																																															-
																																															OBJECT_TYPE);
																																													}
																																													BgL_oclassz00_4795
																																														=
																																														VECTOR_REF
																																														(BgL_arg2255z00_4797,
																																														BgL_arg2256z00_4798);
																																												}
																																												{	/* Eval/eval.scm 574 */
																																													bool_t
																																														BgL__ortest_1235z00_4805;
																																													BgL__ortest_1235z00_4805
																																														=
																																														(BgL_classz00_4773
																																														==
																																														BgL_oclassz00_4795);
																																													if (BgL__ortest_1235z00_4805)
																																														{	/* Eval/eval.scm 574 */
																																															BgL_res2270z00_4791
																																																=
																																																BgL__ortest_1235z00_4805;
																																														}
																																													else
																																														{	/* Eval/eval.scm 574 */
																																															long
																																																BgL_odepthz00_4806;
																																															{	/* Eval/eval.scm 574 */
																																																obj_t
																																																	BgL_arg2245z00_4807;
																																																BgL_arg2245z00_4807
																																																	=
																																																	(BgL_oclassz00_4795);
																																																BgL_odepthz00_4806
																																																	=
																																																	BGL_CLASS_DEPTH
																																																	(BgL_arg2245z00_4807);
																																															}
																																															if ((BgL_arg2251z00_4776 < BgL_odepthz00_4806))
																																																{	/* Eval/eval.scm 574 */
																																																	obj_t
																																																		BgL_arg2242z00_4811;
																																																	{	/* Eval/eval.scm 574 */
																																																		obj_t
																																																			BgL_arg2243z00_4812;
																																																		BgL_arg2243z00_4812
																																																			=
																																																			(BgL_oclassz00_4795);
																																																		BgL_arg2242z00_4811
																																																			=
																																																			BGL_CLASS_ANCESTORS_REF
																																																			(BgL_arg2243z00_4812,
																																																			BgL_arg2251z00_4776);
																																																	}
																																																	BgL_res2270z00_4791
																																																		=
																																																		(BgL_arg2242z00_4811
																																																		==
																																																		BgL_classz00_4773);
																																																}
																																															else
																																																{	/* Eval/eval.scm 574 */
																																																	BgL_res2270z00_4791
																																																		=
																																																		(
																																																		(bool_t)
																																																		0);
																																																}
																																														}
																																												}
																																											}
																																											BgL_test3309z00_7538
																																												=
																																												BgL_res2270z00_4791;
																																										}
																																								}
																																							else
																																								{	/* Eval/eval.scm 574 */
																																									BgL_test3309z00_7538
																																										=
																																										(
																																										(bool_t)
																																										0);
																																								}
																																						}
																																					}
																																					if (BgL_test3309z00_7538)
																																						{	/* Eval/eval.scm 574 */
																																							BgL_tmp1125z00_4771
																																								=
																																								(
																																								(BgL_z62errorz62_bglt)
																																								BgL_duplicated1122z00_4643);
																																						}
																																					else
																																						{
																																							obj_t
																																								BgL_auxz00_7567;
																																							BgL_auxz00_7567
																																								=
																																								BGl_typezd2errorzd2zz__errorz00
																																								(BGl_string2674z00zz__evalz00,
																																								BINT
																																								(22690L),
																																								BGl_string2755z00zz__evalz00,
																																								BGl_string2717z00zz__evalz00,
																																								((obj_t) BgL_duplicated1122z00_4643));
																																							FAILURE
																																								(BgL_auxz00_7567,
																																								BFALSE,
																																								BFALSE);
																																						}
																																				}
																																				BgL_auxz00_7537
																																					=
																																					(((BgL_z62errorz62_bglt) COBJECT(BgL_tmp1125z00_4771))->BgL_objz00);
																																			}
																																			((((BgL_z62errorz62_bglt) COBJECT(BgL_new1120z00_4644))->BgL_objz00) = ((obj_t) BgL_auxz00_7537), BUNSPEC);
																																		}
																																		BgL_auxz00_7422
																																			=
																																			BgL_new1120z00_4644;
																																	}
																																	BgL_nexcz00_4581
																																		=
																																		((obj_t)
																																		BgL_auxz00_7422);
																																}
																															}
																														else
																															{	/* Eval/eval.scm 570 */
																																BgL_nexcz00_4581
																																	=
																																	BgL_excz00_4580;
																															}
																													}
																												else
																													{	/* Eval/eval.scm 570 */
																														BgL_nexcz00_4581 =
																															BgL_excz00_4580;
																													}
																											}
																										else
																											{	/* Eval/eval.scm 570 */
																												BgL_nexcz00_4581 =
																													BgL_excz00_4580;
																											}
																									}
																								else
																									{	/* Eval/eval.scm 570 */
																										BgL_nexcz00_4581 =
																											BgL_excz00_4580;
																									}
																							}
																						else
																							{	/* Eval/eval.scm 570 */
																								BgL_nexcz00_4581 =
																									BgL_excz00_4580;
																							}
																					}
																				}
																			else
																				{	/* Eval/eval.scm 569 */
																					BgL_nexcz00_4581 = BgL_excz00_4580;
																				}
																		}
																	}
																else
																	{	/* Eval/eval.scm 567 */
																		BgL_nexcz00_4581 = BgL_excz00_4580;
																	}
															}
															return BGl_raisez00zz__errorz00(BgL_nexcz00_4581);
														}
													}
												}
											else
												{	/* Eval/eval.scm 565 */
													return BgL_val1117z00_4821;
												}
										}
									}
								}
							}
						else
							{	/* Eval/eval.scm 561 */
								if (EPAIRP(BgL_xz00_3687))
									{	/* Eval/eval.scm 547 */
										obj_t BgL_arg1528z00_4823;

										{	/* Eval/eval.scm 547 */
											obj_t BgL_objz00_4824;

											if (EPAIRP(BgL_xz00_3687))
												{	/* Eval/eval.scm 547 */
													BgL_objz00_4824 = BgL_xz00_3687;
												}
											else
												{
													obj_t BgL_auxz00_7580;

													BgL_auxz00_7580 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2674z00zz__evalz00, BINT(21769L),
														BGl_string2756z00zz__evalz00,
														BGl_string2739z00zz__evalz00, BgL_xz00_3687);
													FAILURE(BgL_auxz00_7580, BFALSE, BFALSE);
												}
											BgL_arg1528z00_4823 = CER(BgL_objz00_4824);
										}
										return
											BGl_everrorz00zz__everrorz00(BgL_arg1528z00_4823,
											BgL_namez00_3685, BGl_string2757z00zz__evalz00,
											BgL_xz00_3687);
									}
								else
									{	/* Eval/eval.scm 546 */
										return
											BGl_errorz00zz__errorz00(BgL_namez00_3685,
											BGl_string2757z00zz__evalz00, BgL_xz00_3687);
									}
							}
					}
				else
					{	/* Eval/eval.scm 559 */
						if (EPAIRP(BgL_xz00_3687))
							{	/* Eval/eval.scm 547 */
								obj_t BgL_arg1528z00_4825;

								{	/* Eval/eval.scm 547 */
									obj_t BgL_objz00_4826;

									if (EPAIRP(BgL_xz00_3687))
										{	/* Eval/eval.scm 547 */
											BgL_objz00_4826 = BgL_xz00_3687;
										}
									else
										{
											obj_t BgL_auxz00_7591;

											BgL_auxz00_7591 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2674z00zz__evalz00, BINT(21769L),
												BGl_string2756z00zz__evalz00,
												BGl_string2739z00zz__evalz00, BgL_xz00_3687);
											FAILURE(BgL_auxz00_7591, BFALSE, BFALSE);
										}
									BgL_arg1528z00_4825 = CER(BgL_objz00_4826);
								}
								return
									BGl_everrorz00zz__everrorz00(BgL_arg1528z00_4825,
									BgL_namez00_3685, BGl_string2758z00zz__evalz00,
									BgL_xz00_3687);
							}
						else
							{	/* Eval/eval.scm 546 */
								return
									BGl_errorz00zz__errorz00(BgL_namez00_3685,
									BGl_string2758z00zz__evalz00, BgL_xz00_3687);
							}
					}
			}
		}

	}



/* <@exit:1562>~0 */
	obj_t BGl_zc3z04exitza31562ze3ze70z60zz__evalz00(obj_t BgL_ez00_3750,
		obj_t BgL_xz00_3749, obj_t BgL_expdzd2evalzd2_3748,
		obj_t BgL_cell1113z00_3747, obj_t BgL_env1118z00_3746)
	{
		{	/* Eval/eval.scm 565 */
			jmp_buf_t jmpbuf;
			void *BgL_an_exit1130z00_1649;

			if (SET_EXIT(BgL_an_exit1130z00_1649))
				{
					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_exit1130z00_1649 = (void *) jmpbuf;
					PUSH_ENV_EXIT(BgL_env1118z00_3746, BgL_an_exit1130z00_1649, 1L);
					{	/* Eval/eval.scm 565 */
						obj_t BgL_escape1114z00_1650;

						BgL_escape1114z00_1650 =
							BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1118z00_3746);
						{	/* Eval/eval.scm 565 */
							obj_t BgL_res1133z00_1651;

							{	/* Eval/eval.scm 565 */
								obj_t BgL_ohs1110z00_1652;

								BgL_ohs1110z00_1652 =
									BGL_ENV_ERROR_HANDLER_GET(BgL_env1118z00_3746);
								{	/* Eval/eval.scm 565 */
									obj_t BgL_hds1111z00_1653;

									BgL_hds1111z00_1653 =
										MAKE_STACK_PAIR(BgL_escape1114z00_1650,
										BgL_cell1113z00_3747);
									BGL_ENV_ERROR_HANDLER_SET(BgL_env1118z00_3746,
										BgL_hds1111z00_1653);
									BUNSPEC;
									{	/* Eval/eval.scm 565 */
										obj_t BgL_exitd1127z00_1654;

										BgL_exitd1127z00_1654 =
											BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1118z00_3746);
										{	/* Eval/eval.scm 565 */
											obj_t BgL_tmp1129z00_1655;

											{	/* Eval/eval.scm 565 */
												obj_t BgL_arg1563z00_1657;

												BgL_arg1563z00_1657 =
													BGL_EXITD_PROTECT(BgL_exitd1127z00_1654);
												BgL_tmp1129z00_1655 =
													MAKE_YOUNG_PAIR(BgL_ohs1110z00_1652,
													BgL_arg1563z00_1657);
											}
											{	/* Eval/eval.scm 565 */

												BGL_EXITD_PROTECT_SET(BgL_exitd1127z00_1654,
													BgL_tmp1129z00_1655);
												BUNSPEC;
												{	/* Eval/eval.scm 580 */
													obj_t BgL_tmp1128z00_1656;

													{	/* Eval/eval.scm 580 */
														obj_t BgL_tmpfunz00_7613;

														{	/* Eval/eval.scm 580 */
															bool_t BgL_test2521z00_4023;

															BgL_test2521z00_4023 =
																PROCEDUREP(BgL_expdzd2evalzd2_3748);
															if (BgL_test2521z00_4023)
																{	/* Eval/eval.scm 580 */
																	BgL_tmpfunz00_7613 = BgL_expdzd2evalzd2_3748;
																}
															else
																{
																	obj_t BgL_auxz00_7616;

																	BgL_auxz00_7616 =
																		BGl_typezd2errorzd2zz__errorz00
																		(BGl_string2674z00zz__evalz00, BINT(22794L),
																		BGl_string2759z00zz__evalz00,
																		BGl_string2679z00zz__evalz00,
																		BgL_expdzd2evalzd2_3748);
																	FAILURE(BgL_auxz00_7616, BFALSE, BFALSE);
																}
														}
														BgL_tmp1128z00_1656 =
															(VA_PROCEDUREP(BgL_tmpfunz00_7613)
															? ((obj_t(*)(obj_t,
																		...))
																PROCEDURE_ENTRY(BgL_tmpfunz00_7613))
															(BgL_expdzd2evalzd2_3748, BgL_xz00_3749,
																BgL_ez00_3750, BEOA) : ((obj_t(*)(obj_t, obj_t,
																		obj_t))
																PROCEDURE_ENTRY(BgL_tmpfunz00_7613))
															(BgL_expdzd2evalzd2_3748, BgL_xz00_3749,
																BgL_ez00_3750));
													}
													{	/* Eval/eval.scm 565 */
														bool_t BgL_test3319z00_7620;

														{	/* Eval/eval.scm 565 */
															obj_t BgL_arg2234z00_2859;

															BgL_arg2234z00_2859 =
																BGL_EXITD_PROTECT(BgL_exitd1127z00_1654);
															BgL_test3319z00_7620 = PAIRP(BgL_arg2234z00_2859);
														}
														if (BgL_test3319z00_7620)
															{	/* Eval/eval.scm 565 */
																obj_t BgL_arg2232z00_2860;

																{	/* Eval/eval.scm 565 */
																	obj_t BgL_arg2233z00_2861;

																	BgL_arg2233z00_2861 =
																		BGL_EXITD_PROTECT(BgL_exitd1127z00_1654);
																	{	/* Eval/eval.scm 565 */
																		obj_t BgL_pairz00_2862;

																		if (PAIRP(BgL_arg2233z00_2861))
																			{	/* Eval/eval.scm 565 */
																				BgL_pairz00_2862 = BgL_arg2233z00_2861;
																			}
																		else
																			{
																				obj_t BgL_auxz00_7626;

																				BgL_auxz00_7626 =
																					BGl_typezd2errorzd2zz__errorz00
																					(BGl_string2674z00zz__evalz00,
																					BINT(22427L),
																					BGl_string2759z00zz__evalz00,
																					BGl_string2685z00zz__evalz00,
																					BgL_arg2233z00_2861);
																				FAILURE(BgL_auxz00_7626, BFALSE,
																					BFALSE);
																			}
																		BgL_arg2232z00_2860 = CDR(BgL_pairz00_2862);
																	}
																}
																BGL_EXITD_PROTECT_SET(BgL_exitd1127z00_1654,
																	BgL_arg2232z00_2860);
																BUNSPEC;
															}
														else
															{	/* Eval/eval.scm 565 */
																BFALSE;
															}
													}
													BGL_ENV_ERROR_HANDLER_SET(BgL_env1118z00_3746,
														BgL_ohs1110z00_1652);
													BUNSPEC;
													BgL_res1133z00_1651 = BgL_tmp1128z00_1656;
												}
											}
										}
									}
								}
							}
							POP_ENV_EXIT(BgL_env1118z00_3746);
							return BgL_res1133z00_1651;
						}
					}
				}
		}

	}



/* expand-define-macro */
	BGL_EXPORTED_DEF obj_t BGl_expandzd2definezd2macroz00zz__evalz00(obj_t
		BgL_xz00_52, obj_t BgL_ez00_53)
	{
		{	/* Eval/eval.scm 602 */
			{
				obj_t BgL_namez00_1695;
				obj_t BgL_argsz00_1696;
				obj_t BgL_bodyz00_1697;

				if (PAIRP(BgL_xz00_52))
					{	/* Eval/eval.scm 603 */
						obj_t BgL_cdrzd2268zd2_1702;

						BgL_cdrzd2268zd2_1702 = CDR(((obj_t) BgL_xz00_52));
						if (PAIRP(BgL_cdrzd2268zd2_1702))
							{	/* Eval/eval.scm 603 */
								obj_t BgL_carzd2272zd2_1704;

								BgL_carzd2272zd2_1704 = CAR(BgL_cdrzd2268zd2_1702);
								if (PAIRP(BgL_carzd2272zd2_1704))
									{	/* Eval/eval.scm 603 */
										BgL_namez00_1695 = CAR(BgL_carzd2272zd2_1704);
										BgL_argsz00_1696 = CDR(BgL_carzd2272zd2_1704);
										BgL_bodyz00_1697 = CDR(BgL_cdrzd2268zd2_1702);
									BgL_tagzd2254zd2_1698:
										{	/* Eval/eval.scm 606 */
											obj_t BgL_fnamez00_1725;
											obj_t BgL_locz00_1726;

											{	/* Eval/eval.scm 606 */

												{	/* Eval/eval.scm 606 */

													BgL_fnamez00_1725 =
														BGl_gensymz00zz__r4_symbols_6_4z00(BFALSE);
												}
											}
											{	/* Eval/eval.scm 607 */

												{	/* Eval/eval.scm 607 */

													BgL_locz00_1726 =
														BGl_gensymz00zz__r4_symbols_6_4z00(BFALSE);
												}
											}
											{	/* Eval/eval.scm 610 */
												obj_t BgL_arg1612z00_1727;

												{	/* Eval/eval.scm 610 */
													obj_t BgL_evexpdz00_1728;

													{	/* Eval/eval.scm 610 */
														obj_t BgL_arg1635z00_1786;

														{	/* Eval/eval.scm 610 */
															obj_t BgL_arg1636z00_1787;
															obj_t BgL_arg1637z00_1788;

															{	/* Eval/eval.scm 610 */
																obj_t BgL_arg1639z00_1789;

																BgL_arg1639z00_1789 =
																	MAKE_YOUNG_PAIR(BGl_symbol2760z00zz__evalz00,
																	BNIL);
																BgL_arg1636z00_1787 =
																	MAKE_YOUNG_PAIR(BGl_symbol2762z00zz__evalz00,
																	BgL_arg1639z00_1789);
															}
															{	/* Eval/eval.scm 611 */
																obj_t BgL_arg1641z00_1790;

																{	/* Eval/eval.scm 611 */
																	obj_t BgL_arg1642z00_1791;

																	{	/* Eval/eval.scm 611 */
																		obj_t BgL_arg1643z00_1792;
																		obj_t BgL_arg1644z00_1793;

																		{	/* Eval/eval.scm 611 */
																			obj_t BgL_arg1645z00_1794;
																			obj_t BgL_arg1646z00_1795;

																			{	/* Eval/eval.scm 611 */
																				obj_t BgL_arg1647z00_1796;

																				BgL_arg1647z00_1796 =
																					MAKE_YOUNG_PAIR(BFALSE, BNIL);
																				BgL_arg1645z00_1794 =
																					MAKE_YOUNG_PAIR(BgL_fnamez00_1725,
																					BgL_arg1647z00_1796);
																			}
																			BgL_arg1646z00_1795 =
																				MAKE_YOUNG_PAIR(BgL_locz00_1726, BNIL);
																			BgL_arg1643z00_1792 =
																				MAKE_YOUNG_PAIR(BgL_arg1645z00_1794,
																				BgL_arg1646z00_1795);
																		}
																		{	/* Eval/eval.scm 612 */
																			obj_t BgL_arg1649z00_1797;
																			obj_t BgL_arg1651z00_1798;

																			{	/* Eval/eval.scm 612 */
																				obj_t BgL_arg1652z00_1799;

																				{	/* Eval/eval.scm 612 */
																					obj_t BgL_arg1653z00_1800;
																					obj_t BgL_arg1655z00_1801;

																					{	/* Eval/eval.scm 612 */
																						obj_t BgL_arg1658z00_1802;

																						BgL_arg1658z00_1802 =
																							MAKE_YOUNG_PAIR
																							(BGl_symbol2762z00zz__evalz00,
																							BNIL);
																						BgL_arg1653z00_1800 =
																							MAKE_YOUNG_PAIR
																							(BGl_symbol2764z00zz__evalz00,
																							BgL_arg1658z00_1802);
																					}
																					{	/* Eval/eval.scm 613 */
																						obj_t BgL_arg1659z00_1803;

																						{	/* Eval/eval.scm 613 */
																							obj_t BgL_arg1660z00_1804;

																							{	/* Eval/eval.scm 613 */
																								obj_t BgL_arg1662z00_1805;
																								obj_t BgL_arg1664z00_1806;

																								{	/* Eval/eval.scm 613 */
																									obj_t BgL_arg1665z00_1807;

																									BgL_arg1665z00_1807 =
																										MAKE_YOUNG_PAIR
																										(BGl_symbol2762z00zz__evalz00,
																										BNIL);
																									BgL_arg1662z00_1805 =
																										MAKE_YOUNG_PAIR
																										(BGl_symbol2766z00zz__evalz00,
																										BgL_arg1665z00_1807);
																								}
																								{	/* Eval/eval.scm 614 */
																									obj_t BgL_arg1666z00_1808;

																									{	/* Eval/eval.scm 614 */
																										obj_t BgL_arg1667z00_1809;
																										obj_t BgL_arg1671z00_1810;

																										{	/* Eval/eval.scm 614 */
																											obj_t BgL_arg1672z00_1811;

																											{	/* Eval/eval.scm 614 */
																												obj_t
																													BgL_arg1673z00_1812;
																												BgL_arg1673z00_1812 =
																													MAKE_YOUNG_PAIR
																													(BGl_symbol2768z00zz__evalz00,
																													BNIL);
																												BgL_arg1672z00_1811 =
																													MAKE_YOUNG_PAIR
																													(BGl_symbol2770z00zz__evalz00,
																													BgL_arg1673z00_1812);
																											}
																											BgL_arg1667z00_1809 =
																												MAKE_YOUNG_PAIR
																												(BGl_symbol2688z00zz__evalz00,
																												BgL_arg1672z00_1811);
																										}
																										{	/* Eval/eval.scm 615 */
																											obj_t BgL_arg1674z00_1813;
																											obj_t BgL_arg1675z00_1814;

																											{	/* Eval/eval.scm 615 */
																												obj_t
																													BgL_arg1681z00_1815;
																												{	/* Eval/eval.scm 615 */
																													obj_t
																														BgL_arg1683z00_1816;
																													BgL_arg1683z00_1816 =
																														MAKE_YOUNG_PAIR
																														(BGl_symbol2772z00zz__evalz00,
																														BNIL);
																													BgL_arg1681z00_1815 =
																														MAKE_YOUNG_PAIR
																														(BgL_fnamez00_1725,
																														BgL_arg1683z00_1816);
																												}
																												BgL_arg1674z00_1813 =
																													MAKE_YOUNG_PAIR
																													(BGl_symbol2774z00zz__evalz00,
																													BgL_arg1681z00_1815);
																											}
																											{	/* Eval/eval.scm 616 */
																												obj_t
																													BgL_arg1687z00_1817;
																												{	/* Eval/eval.scm 616 */
																													obj_t
																														BgL_arg1689z00_1818;
																													{	/* Eval/eval.scm 616 */
																														obj_t
																															BgL_arg1690z00_1819;
																														BgL_arg1690z00_1819
																															=
																															MAKE_YOUNG_PAIR
																															(BGl_symbol2776z00zz__evalz00,
																															BNIL);
																														BgL_arg1689z00_1818
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_locz00_1726,
																															BgL_arg1690z00_1819);
																													}
																													BgL_arg1687z00_1817 =
																														MAKE_YOUNG_PAIR
																														(BGl_symbol2774z00zz__evalz00,
																														BgL_arg1689z00_1818);
																												}
																												BgL_arg1675z00_1814 =
																													MAKE_YOUNG_PAIR
																													(BgL_arg1687z00_1817,
																													BNIL);
																											}
																											BgL_arg1671z00_1810 =
																												MAKE_YOUNG_PAIR
																												(BgL_arg1674z00_1813,
																												BgL_arg1675z00_1814);
																										}
																										BgL_arg1666z00_1808 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg1667z00_1809,
																											BgL_arg1671z00_1810);
																									}
																									BgL_arg1664z00_1806 =
																										MAKE_YOUNG_PAIR
																										(BgL_arg1666z00_1808, BNIL);
																								}
																								BgL_arg1660z00_1804 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1662z00_1805,
																									BgL_arg1664z00_1806);
																							}
																							BgL_arg1659z00_1803 =
																								MAKE_YOUNG_PAIR
																								(BGl_symbol2778z00zz__evalz00,
																								BgL_arg1660z00_1804);
																						}
																						BgL_arg1655z00_1801 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1659z00_1803, BNIL);
																					}
																					BgL_arg1652z00_1799 =
																						MAKE_YOUNG_PAIR(BgL_arg1653z00_1800,
																						BgL_arg1655z00_1801);
																				}
																				BgL_arg1649z00_1797 =
																					MAKE_YOUNG_PAIR
																					(BGl_symbol2780z00zz__evalz00,
																					BgL_arg1652z00_1799);
																			}
																			{	/* Eval/eval.scm 617 */
																				obj_t BgL_arg1691z00_1820;

																				{	/* Eval/eval.scm 617 */
																					obj_t BgL_arg1692z00_1821;

																					{	/* Eval/eval.scm 617 */
																						obj_t BgL_arg1697z00_1822;
																						obj_t BgL_arg1698z00_1823;

																						{	/* Eval/eval.scm 617 */
																							obj_t BgL_arg1702z00_1824;
																							obj_t BgL_arg1703z00_1825;

																							{	/* Eval/eval.scm 617 */
																								obj_t BgL_arg1705z00_1826;

																								{	/* Eval/eval.scm 617 */
																									obj_t BgL_arg1706z00_1827;

																									{	/* Eval/eval.scm 617 */
																										obj_t BgL_arg1707z00_1828;

																										{	/* Eval/eval.scm 617 */
																											obj_t BgL_arg1708z00_1829;
																											obj_t BgL_arg1709z00_1830;

																											BgL_arg1708z00_1829 =
																												BGl_loopze70ze7zz__evalz00
																												(BgL_namez00_1695,
																												BgL_locz00_1726,
																												BgL_fnamez00_1725,
																												BgL_argsz00_1696,
																												BGl_list2782z00zz__evalz00,
																												BNIL);
																											{	/* Eval/eval.scm 620 */
																												obj_t
																													BgL_arg1710z00_1831;
																												{	/* Eval/eval.scm 620 */
																													obj_t BgL_auxz00_7674;

																													{	/* Eval/eval.scm 620 */
																														bool_t
																															BgL_test3324z00_7675;
																														if (PAIRP
																															(BgL_bodyz00_1697))
																															{	/* Eval/eval.scm 620 */
																																BgL_test3324z00_7675
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Eval/eval.scm 620 */
																																BgL_test3324z00_7675
																																	=
																																	NULLP
																																	(BgL_bodyz00_1697);
																															}
																														if (BgL_test3324z00_7675)
																															{	/* Eval/eval.scm 620 */
																																BgL_auxz00_7674
																																	=
																																	BgL_bodyz00_1697;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_7679;
																																BgL_auxz00_7679
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string2674z00zz__evalz00,
																																	BINT(24183L),
																																	BGl_string2785z00zz__evalz00,
																																	BGl_string2721z00zz__evalz00,
																																	BgL_bodyz00_1697);
																																FAILURE
																																	(BgL_auxz00_7679,
																																	BFALSE,
																																	BFALSE);
																															}
																													}
																													BgL_arg1710z00_1831 =
																														BGl_expandzd2prognzd2zz__prognz00
																														(BgL_auxz00_7674);
																												}
																												BgL_arg1709z00_1830 =
																													MAKE_YOUNG_PAIR
																													(BgL_arg1710z00_1831,
																													BNIL);
																											}
																											BgL_arg1707z00_1828 =
																												MAKE_YOUNG_PAIR
																												(BgL_arg1708z00_1829,
																												BgL_arg1709z00_1830);
																										}
																										BgL_arg1706z00_1827 =
																											MAKE_YOUNG_PAIR
																											(BGl_symbol2786z00zz__evalz00,
																											BgL_arg1707z00_1828);
																									}
																									BgL_arg1705z00_1826 =
																										MAKE_YOUNG_PAIR
																										(BgL_arg1706z00_1827, BNIL);
																								}
																								BgL_arg1702z00_1824 =
																									MAKE_YOUNG_PAIR
																									(BGl_symbol2788z00zz__evalz00,
																									BgL_arg1705z00_1826);
																							}
																							{	/* Eval/eval.scm 621 */
																								obj_t BgL_arg1711z00_1832;

																								{	/* Eval/eval.scm 621 */
																									obj_t BgL_arg1712z00_1833;

																									{	/* Eval/eval.scm 621 */
																										obj_t BgL_arg1714z00_1834;

																										{	/* Eval/eval.scm 621 */
																											obj_t BgL_arg1715z00_1835;

																											{	/* Eval/eval.scm 621 */
																												obj_t
																													BgL_arg1716z00_1836;
																												BgL_arg1716z00_1836 =
																													MAKE_YOUNG_PAIR
																													(BGl_symbol2760z00zz__evalz00,
																													BNIL);
																												BgL_arg1715z00_1835 =
																													MAKE_YOUNG_PAIR
																													(BGl_symbol2788z00zz__evalz00,
																													BgL_arg1716z00_1836);
																											}
																											BgL_arg1714z00_1834 =
																												MAKE_YOUNG_PAIR
																												(BGl_symbol2760z00zz__evalz00,
																												BgL_arg1715z00_1835);
																										}
																										BgL_arg1712z00_1833 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg1714z00_1834,
																											BNIL);
																									}
																									BgL_arg1711z00_1832 =
																										MAKE_YOUNG_PAIR
																										(BGl_symbol2790z00zz__evalz00,
																										BgL_arg1712z00_1833);
																								}
																								BgL_arg1703z00_1825 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1711z00_1832, BNIL);
																							}
																							BgL_arg1697z00_1822 =
																								MAKE_YOUNG_PAIR
																								(BgL_arg1702z00_1824,
																								BgL_arg1703z00_1825);
																						}
																						{	/* Eval/eval.scm 622 */
																							obj_t BgL_arg1718z00_1837;

																							{	/* Eval/eval.scm 622 */
																								obj_t BgL_arg1719z00_1838;

																								{	/* Eval/eval.scm 622 */
																									obj_t BgL_arg1720z00_1839;

																									BgL_arg1720z00_1839 =
																										MAKE_YOUNG_PAIR
																										(BGl_symbol2762z00zz__evalz00,
																										BNIL);
																									BgL_arg1719z00_1838 =
																										MAKE_YOUNG_PAIR
																										(BGl_symbol2790z00zz__evalz00,
																										BgL_arg1720z00_1839);
																								}
																								BgL_arg1718z00_1837 =
																									MAKE_YOUNG_PAIR
																									(BGl_symbol2792z00zz__evalz00,
																									BgL_arg1719z00_1838);
																							}
																							BgL_arg1698z00_1823 =
																								MAKE_YOUNG_PAIR
																								(BgL_arg1718z00_1837, BNIL);
																						}
																						BgL_arg1692z00_1821 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1697z00_1822,
																							BgL_arg1698z00_1823);
																					}
																					BgL_arg1691z00_1820 =
																						MAKE_YOUNG_PAIR
																						(BGl_symbol2786z00zz__evalz00,
																						BgL_arg1692z00_1821);
																				}
																				BgL_arg1651z00_1798 =
																					MAKE_YOUNG_PAIR(BgL_arg1691z00_1820,
																					BNIL);
																			}
																			BgL_arg1644z00_1793 =
																				MAKE_YOUNG_PAIR(BgL_arg1649z00_1797,
																				BgL_arg1651z00_1798);
																		}
																		BgL_arg1642z00_1791 =
																			MAKE_YOUNG_PAIR(BgL_arg1643z00_1792,
																			BgL_arg1644z00_1793);
																	}
																	BgL_arg1641z00_1790 =
																		MAKE_YOUNG_PAIR
																		(BGl_symbol2794z00zz__evalz00,
																		BgL_arg1642z00_1791);
																}
																BgL_arg1637z00_1788 =
																	MAKE_YOUNG_PAIR(BgL_arg1641z00_1790, BNIL);
															}
															BgL_arg1635z00_1786 =
																MAKE_YOUNG_PAIR(BgL_arg1636z00_1787,
																BgL_arg1637z00_1788);
														}
														BgL_evexpdz00_1728 =
															MAKE_YOUNG_PAIR(BGl_symbol2796z00zz__evalz00,
															BgL_arg1635z00_1786);
													}
													{	/* Eval/eval.scm 610 */
														obj_t BgL_evexpdzf2loczf2_1729;

														BgL_evexpdzf2loczf2_1729 =
															BGl_evepairifyz00zz__prognz00(BgL_evexpdz00_1728,
															BgL_xz00_52);
														{	/* Eval/eval.scm 623 */
															obj_t BgL_expdzd2evalzd2_1730;

															{	/* Eval/eval.scm 82 */
																obj_t BgL_envz00_1785;

																{	/* Eval/eval.scm 257 */
																	obj_t BgL_mz00_2974;

																	BgL_mz00_2974 =
																		BGl_evalzd2modulezd2zz__evmodulez00();
																	if (BGl_evmodulezf3zf3zz__evmodulez00
																		(BgL_mz00_2974))
																		{	/* Eval/eval.scm 258 */
																			BgL_envz00_1785 = BgL_mz00_2974;
																		}
																	else
																		{	/* Eval/eval.scm 258 */
																			BgL_envz00_1785 =
																				BGl_symbol2677z00zz__evalz00;
																		}
																}
																{	/* Eval/eval.scm 82 */

																	{	/* Eval/eval.scm 176 */
																		obj_t BgL_evaluatez00_2976;

																		if (PROCEDUREP
																			(BGl_defaultzd2evaluatezd2zz__evalz00))
																			{	/* Eval/eval.scm 176 */
																				BgL_evaluatez00_2976 =
																					BGl_defaultzd2evaluatezd2zz__evalz00;
																			}
																		else
																			{	/* Eval/eval.scm 176 */
																				BgL_evaluatez00_2976 =
																					BGl_bytezd2codezd2evaluatezd2envzd2zz__evalz00;
																			}
																		{	/* Eval/eval.scm 179 */
																			obj_t BgL_auxz00_7715;

																			if (PROCEDUREP(BgL_evaluatez00_2976))
																				{	/* Eval/eval.scm 179 */
																					BgL_auxz00_7715 =
																						BgL_evaluatez00_2976;
																				}
																			else
																				{
																					obj_t BgL_auxz00_7718;

																					BgL_auxz00_7718 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string2674z00zz__evalz00,
																						BINT(6857L),
																						BGl_string2785z00zz__evalz00,
																						BGl_string2679z00zz__evalz00,
																						BgL_evaluatez00_2976);
																					FAILURE(BgL_auxz00_7718, BFALSE,
																						BFALSE);
																				}
																			BgL_expdzd2evalzd2_1730 =
																				BGl_evalzf2expanderzf2zz__evalz00
																				(BgL_evexpdzf2loczf2_1729,
																				BgL_envz00_1785,
																				BGl_expandz12zd2envzc0zz__expandz00,
																				BgL_auxz00_7715);
																		}
																	}
																}
															}
															{	/* Eval/eval.scm 624 */

																{	/* Eval/eval.scm 625 */
																	obj_t BgL_zc3z04anonymousza31613ze3z87_3689;

																	BgL_zc3z04anonymousza31613ze3z87_3689 =
																		MAKE_FX_PROCEDURE
																		(BGl_z62zc3z04anonymousza31613ze3ze5zz__evalz00,
																		(int) (2L), (int) (1L));
																	PROCEDURE_SET
																		(BgL_zc3z04anonymousza31613ze3z87_3689,
																		(int) (0L), BgL_expdzd2evalzd2_1730);
																	BgL_arg1612z00_1727 =
																		BgL_zc3z04anonymousza31613ze3z87_3689;
												}}}}}
												BGl_installzd2expanderzd2zz__macroz00(BgL_namez00_1695,
													BgL_arg1612z00_1727);
										}}
										return BUNSPEC;
									}
								else
									{	/* Eval/eval.scm 603 */
										obj_t BgL_cdrzd2290zd2_1710;

										{	/* Eval/eval.scm 603 */
											obj_t BgL_pairz00_3039;

											BgL_pairz00_3039 = BgL_cdrzd2268zd2_1702;
											BgL_cdrzd2290zd2_1710 = CDR(BgL_pairz00_3039);
										}
										if (PAIRP(BgL_cdrzd2290zd2_1710))
											{	/* Eval/eval.scm 603 */
												obj_t BgL_carzd2294zd2_1712;

												BgL_carzd2294zd2_1712 = CAR(BgL_cdrzd2290zd2_1710);
												if (PAIRP(BgL_carzd2294zd2_1712))
													{	/* Eval/eval.scm 603 */
														obj_t BgL_cdrzd2299zd2_1714;

														BgL_cdrzd2299zd2_1714 = CDR(BgL_carzd2294zd2_1712);
														if (
															(CAR(BgL_carzd2294zd2_1712) ==
																BGl_symbol2796z00zz__evalz00))
															{	/* Eval/eval.scm 603 */
																if (PAIRP(BgL_cdrzd2299zd2_1714))
																	{	/* Eval/eval.scm 603 */
																		if (NULLP(CDR(BgL_cdrzd2290zd2_1710)))
																			{	/* Eval/eval.scm 603 */
																				obj_t BgL_arg1604z00_1720;
																				obj_t BgL_arg1605z00_1721;
																				obj_t BgL_arg1608z00_1722;

																				{	/* Eval/eval.scm 603 */
																					obj_t BgL_pairz00_3044;

																					BgL_pairz00_3044 =
																						BgL_cdrzd2268zd2_1702;
																					BgL_arg1604z00_1720 =
																						CAR(BgL_pairz00_3044);
																				}
																				BgL_arg1605z00_1721 =
																					CAR(BgL_cdrzd2299zd2_1714);
																				BgL_arg1608z00_1722 =
																					CDR(BgL_cdrzd2299zd2_1714);
																				{
																					obj_t BgL_bodyz00_7752;
																					obj_t BgL_argsz00_7751;
																					obj_t BgL_namez00_7750;

																					BgL_namez00_7750 =
																						BgL_arg1604z00_1720;
																					BgL_argsz00_7751 =
																						BgL_arg1605z00_1721;
																					BgL_bodyz00_7752 =
																						BgL_arg1608z00_1722;
																					BgL_bodyz00_1697 = BgL_bodyz00_7752;
																					BgL_argsz00_1696 = BgL_argsz00_7751;
																					BgL_namez00_1695 = BgL_namez00_7750;
																					goto BgL_tagzd2254zd2_1698;
																				}
																			}
																		else
																			{	/* Eval/eval.scm 644 */
																				obj_t BgL_procz00_3047;

																				BgL_procz00_3047 =
																					BGl_symbol2799z00zz__evalz00;
																				if (EPAIRP(BgL_xz00_52))
																					{	/* Eval/eval.scm 547 */
																						obj_t BgL_arg1528z00_3049;

																						{	/* Eval/eval.scm 547 */
																							obj_t BgL_objz00_3050;

																							if (EPAIRP(BgL_xz00_52))
																								{	/* Eval/eval.scm 547 */
																									BgL_objz00_3050 = BgL_xz00_52;
																								}
																							else
																								{
																									obj_t BgL_auxz00_7757;

																									BgL_auxz00_7757 =
																										BGl_typezd2errorzd2zz__errorz00
																										(BGl_string2674z00zz__evalz00,
																										BINT(21769L),
																										BGl_string2798z00zz__evalz00,
																										BGl_string2739z00zz__evalz00,
																										BgL_xz00_52);
																									FAILURE(BgL_auxz00_7757,
																										BFALSE, BFALSE);
																								}
																							BgL_arg1528z00_3049 =
																								CER(BgL_objz00_3050);
																						}
																						return
																							BGl_everrorz00zz__everrorz00
																							(BgL_arg1528z00_3049,
																							BgL_procz00_3047,
																							BGl_string2801z00zz__evalz00,
																							BgL_xz00_52);
																					}
																				else
																					{	/* Eval/eval.scm 546 */
																						return
																							BGl_errorz00zz__errorz00
																							(BgL_procz00_3047,
																							BGl_string2801z00zz__evalz00,
																							BgL_xz00_52);
																					}
																			}
																	}
																else
																	{	/* Eval/eval.scm 644 */
																		obj_t BgL_procz00_3051;

																		BgL_procz00_3051 =
																			BGl_symbol2799z00zz__evalz00;
																		if (EPAIRP(BgL_xz00_52))
																			{	/* Eval/eval.scm 547 */
																				obj_t BgL_arg1528z00_3053;

																				{	/* Eval/eval.scm 547 */
																					obj_t BgL_objz00_3054;

																					if (EPAIRP(BgL_xz00_52))
																						{	/* Eval/eval.scm 547 */
																							BgL_objz00_3054 = BgL_xz00_52;
																						}
																					else
																						{
																							obj_t BgL_auxz00_7768;

																							BgL_auxz00_7768 =
																								BGl_typezd2errorzd2zz__errorz00
																								(BGl_string2674z00zz__evalz00,
																								BINT(21769L),
																								BGl_string2798z00zz__evalz00,
																								BGl_string2739z00zz__evalz00,
																								BgL_xz00_52);
																							FAILURE(BgL_auxz00_7768, BFALSE,
																								BFALSE);
																						}
																					BgL_arg1528z00_3053 =
																						CER(BgL_objz00_3054);
																				}
																				return
																					BGl_everrorz00zz__everrorz00
																					(BgL_arg1528z00_3053,
																					BgL_procz00_3051,
																					BGl_string2801z00zz__evalz00,
																					BgL_xz00_52);
																			}
																		else
																			{	/* Eval/eval.scm 546 */
																				return
																					BGl_errorz00zz__errorz00
																					(BgL_procz00_3051,
																					BGl_string2801z00zz__evalz00,
																					BgL_xz00_52);
																			}
																	}
															}
														else
															{	/* Eval/eval.scm 644 */
																obj_t BgL_procz00_3055;

																BgL_procz00_3055 = BGl_symbol2799z00zz__evalz00;
																if (EPAIRP(BgL_xz00_52))
																	{	/* Eval/eval.scm 547 */
																		obj_t BgL_arg1528z00_3057;

																		{	/* Eval/eval.scm 547 */
																			obj_t BgL_objz00_3058;

																			if (EPAIRP(BgL_xz00_52))
																				{	/* Eval/eval.scm 547 */
																					BgL_objz00_3058 = BgL_xz00_52;
																				}
																			else
																				{
																					obj_t BgL_auxz00_7779;

																					BgL_auxz00_7779 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string2674z00zz__evalz00,
																						BINT(21769L),
																						BGl_string2798z00zz__evalz00,
																						BGl_string2739z00zz__evalz00,
																						BgL_xz00_52);
																					FAILURE(BgL_auxz00_7779, BFALSE,
																						BFALSE);
																				}
																			BgL_arg1528z00_3057 =
																				CER(BgL_objz00_3058);
																		}
																		return
																			BGl_everrorz00zz__everrorz00
																			(BgL_arg1528z00_3057, BgL_procz00_3055,
																			BGl_string2801z00zz__evalz00,
																			BgL_xz00_52);
																	}
																else
																	{	/* Eval/eval.scm 546 */
																		return
																			BGl_errorz00zz__errorz00(BgL_procz00_3055,
																			BGl_string2801z00zz__evalz00,
																			BgL_xz00_52);
																	}
															}
													}
												else
													{	/* Eval/eval.scm 644 */
														obj_t BgL_procz00_3059;

														BgL_procz00_3059 = BGl_symbol2799z00zz__evalz00;
														if (EPAIRP(BgL_xz00_52))
															{	/* Eval/eval.scm 547 */
																obj_t BgL_arg1528z00_3061;

																{	/* Eval/eval.scm 547 */
																	obj_t BgL_objz00_3062;

																	if (EPAIRP(BgL_xz00_52))
																		{	/* Eval/eval.scm 547 */
																			BgL_objz00_3062 = BgL_xz00_52;
																		}
																	else
																		{
																			obj_t BgL_auxz00_7790;

																			BgL_auxz00_7790 =
																				BGl_typezd2errorzd2zz__errorz00
																				(BGl_string2674z00zz__evalz00,
																				BINT(21769L),
																				BGl_string2798z00zz__evalz00,
																				BGl_string2739z00zz__evalz00,
																				BgL_xz00_52);
																			FAILURE(BgL_auxz00_7790, BFALSE, BFALSE);
																		}
																	BgL_arg1528z00_3061 = CER(BgL_objz00_3062);
																}
																return
																	BGl_everrorz00zz__everrorz00
																	(BgL_arg1528z00_3061, BgL_procz00_3059,
																	BGl_string2801z00zz__evalz00, BgL_xz00_52);
															}
														else
															{	/* Eval/eval.scm 546 */
																return
																	BGl_errorz00zz__errorz00(BgL_procz00_3059,
																	BGl_string2801z00zz__evalz00, BgL_xz00_52);
															}
													}
											}
										else
											{	/* Eval/eval.scm 644 */
												obj_t BgL_procz00_3063;

												BgL_procz00_3063 = BGl_symbol2799z00zz__evalz00;
												if (EPAIRP(BgL_xz00_52))
													{	/* Eval/eval.scm 547 */
														obj_t BgL_arg1528z00_3065;

														{	/* Eval/eval.scm 547 */
															obj_t BgL_objz00_3066;

															if (EPAIRP(BgL_xz00_52))
																{	/* Eval/eval.scm 547 */
																	BgL_objz00_3066 = BgL_xz00_52;
																}
															else
																{
																	obj_t BgL_auxz00_7801;

																	BgL_auxz00_7801 =
																		BGl_typezd2errorzd2zz__errorz00
																		(BGl_string2674z00zz__evalz00, BINT(21769L),
																		BGl_string2798z00zz__evalz00,
																		BGl_string2739z00zz__evalz00, BgL_xz00_52);
																	FAILURE(BgL_auxz00_7801, BFALSE, BFALSE);
																}
															BgL_arg1528z00_3065 = CER(BgL_objz00_3066);
														}
														return
															BGl_everrorz00zz__everrorz00(BgL_arg1528z00_3065,
															BgL_procz00_3063, BGl_string2801z00zz__evalz00,
															BgL_xz00_52);
													}
												else
													{	/* Eval/eval.scm 546 */
														return
															BGl_errorz00zz__errorz00(BgL_procz00_3063,
															BGl_string2801z00zz__evalz00, BgL_xz00_52);
													}
											}
									}
							}
						else
							{	/* Eval/eval.scm 644 */
								obj_t BgL_procz00_3067;

								BgL_procz00_3067 = BGl_symbol2799z00zz__evalz00;
								if (EPAIRP(BgL_xz00_52))
									{	/* Eval/eval.scm 547 */
										obj_t BgL_arg1528z00_3069;

										{	/* Eval/eval.scm 547 */
											obj_t BgL_objz00_3070;

											if (EPAIRP(BgL_xz00_52))
												{	/* Eval/eval.scm 547 */
													BgL_objz00_3070 = BgL_xz00_52;
												}
											else
												{
													obj_t BgL_auxz00_7812;

													BgL_auxz00_7812 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2674z00zz__evalz00, BINT(21769L),
														BGl_string2798z00zz__evalz00,
														BGl_string2739z00zz__evalz00, BgL_xz00_52);
													FAILURE(BgL_auxz00_7812, BFALSE, BFALSE);
												}
											BgL_arg1528z00_3069 = CER(BgL_objz00_3070);
										}
										return
											BGl_everrorz00zz__everrorz00(BgL_arg1528z00_3069,
											BgL_procz00_3067, BGl_string2801z00zz__evalz00,
											BgL_xz00_52);
									}
								else
									{	/* Eval/eval.scm 546 */
										return
											BGl_errorz00zz__errorz00(BgL_procz00_3067,
											BGl_string2801z00zz__evalz00, BgL_xz00_52);
									}
							}
					}
				else
					{	/* Eval/eval.scm 644 */
						obj_t BgL_procz00_3071;

						BgL_procz00_3071 = BGl_symbol2799z00zz__evalz00;
						if (EPAIRP(BgL_xz00_52))
							{	/* Eval/eval.scm 547 */
								obj_t BgL_arg1528z00_3073;

								{	/* Eval/eval.scm 547 */
									obj_t BgL_objz00_3074;

									if (EPAIRP(BgL_xz00_52))
										{	/* Eval/eval.scm 547 */
											BgL_objz00_3074 = BgL_xz00_52;
										}
									else
										{
											obj_t BgL_auxz00_7823;

											BgL_auxz00_7823 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2674z00zz__evalz00, BINT(21769L),
												BGl_string2798z00zz__evalz00,
												BGl_string2739z00zz__evalz00, BgL_xz00_52);
											FAILURE(BgL_auxz00_7823, BFALSE, BFALSE);
										}
									BgL_arg1528z00_3073 = CER(BgL_objz00_3074);
								}
								return
									BGl_everrorz00zz__everrorz00(BgL_arg1528z00_3073,
									BgL_procz00_3071, BGl_string2801z00zz__evalz00, BgL_xz00_52);
							}
						else
							{	/* Eval/eval.scm 546 */
								return
									BGl_errorz00zz__errorz00(BgL_procz00_3071,
									BGl_string2801z00zz__evalz00, BgL_xz00_52);
							}
					}
			}
		}

	}



/* &expand-define-macro */
	obj_t BGl_z62expandzd2definezd2macroz62zz__evalz00(obj_t BgL_envz00_3690,
		obj_t BgL_xz00_3691, obj_t BgL_ez00_3692)
	{
		{	/* Eval/eval.scm 602 */
			return
				BGl_expandzd2definezd2macroz00zz__evalz00(BgL_xz00_3691, BgL_ez00_3692);
		}

	}



/* &<@anonymous:1613> */
	obj_t BGl_z62zc3z04anonymousza31613ze3ze5zz__evalz00(obj_t BgL_envz00_3693,
		obj_t BgL_xz00_3695, obj_t BgL_ez00_3696)
	{
		{	/* Eval/eval.scm 625 */
			{	/* Eval/eval.scm 626 */
				obj_t BgL_expdzd2evalzd2_3694;

				BgL_expdzd2evalzd2_3694 = PROCEDURE_REF(BgL_envz00_3693, (int) (0L));
				{	/* Eval/eval.scm 626 */
					obj_t BgL_env1143z00_5035;

					BgL_env1143z00_5035 = BGL_CURRENT_DYNAMIC_ENV();
					{
						obj_t BgL_ez00_5037;

						{	/* Eval/eval.scm 626 */
							obj_t BgL_cell1138z00_5277;

							BgL_cell1138z00_5277 = MAKE_STACK_CELL(BUNSPEC);
							{	/* Eval/eval.scm 626 */
								obj_t BgL_val1142z00_5278;

								BgL_val1142z00_5278 =
									BGl_zc3z04exitza31615ze3ze70z60zz__evalz00(BgL_ez00_3696,
									BgL_xz00_3695, BgL_expdzd2evalzd2_3694, BgL_cell1138z00_5277,
									BgL_env1143z00_5035);
								if ((BgL_val1142z00_5278 == BgL_cell1138z00_5277))
									{	/* Eval/eval.scm 626 */
										{	/* Eval/eval.scm 626 */
											int BgL_tmpz00_7838;

											BgL_tmpz00_7838 = (int) (0L);
											BGL_SIGSETMASK(BgL_tmpz00_7838);
										}
										{	/* Eval/eval.scm 626 */
											obj_t BgL_arg1614z00_5279;

											BgL_arg1614z00_5279 =
												CELL_REF(((obj_t) BgL_val1142z00_5278));
											BgL_ez00_5037 = BgL_arg1614z00_5279;
											{	/* Eval/eval.scm 628 */
												obj_t BgL_nez00_5038;

												{	/* Eval/eval.scm 628 */
													bool_t BgL_test3349z00_7843;

													{	/* Eval/eval.scm 628 */
														obj_t BgL_classz00_5039;

														BgL_classz00_5039 = BGl_z62errorz62zz__objectz00;
														if (BGL_OBJECTP(BgL_ez00_5037))
															{	/* Eval/eval.scm 628 */
																BgL_objectz00_bglt BgL_arg2248z00_5040;

																BgL_arg2248z00_5040 =
																	(BgL_objectz00_bglt) (BgL_ez00_5037);
																if (BGL_CONDEXPAND_ISA_ARCH64())
																	{	/* Eval/eval.scm 628 */
																		long BgL_idxz00_5041;

																		BgL_idxz00_5041 =
																			BGL_OBJECT_INHERITANCE_NUM
																			(BgL_arg2248z00_5040);
																		{	/* Eval/eval.scm 628 */
																			obj_t BgL_arg2240z00_5042;

																			{	/* Eval/eval.scm 628 */
																				long BgL_arg2241z00_5043;

																				BgL_arg2241z00_5043 =
																					(BgL_idxz00_5041 + 3L);
																				{	/* Eval/eval.scm 628 */
																					obj_t BgL_vectorz00_5044;

																					{	/* Eval/eval.scm 628 */
																						obj_t BgL_aux2550z00_5045;

																						BgL_aux2550z00_5045 =
																							BGl_za2inheritancesza2z00zz__objectz00;
																						if (VECTORP(BgL_aux2550z00_5045))
																							{	/* Eval/eval.scm 628 */
																								BgL_vectorz00_5044 =
																									BgL_aux2550z00_5045;
																							}
																						else
																							{
																								obj_t BgL_auxz00_7853;

																								BgL_auxz00_7853 =
																									BGl_typezd2errorzd2zz__errorz00
																									(BGl_string2674z00zz__evalz00,
																									BINT(24396L),
																									BGl_string2802z00zz__evalz00,
																									BGl_string2676z00zz__evalz00,
																									BgL_aux2550z00_5045);
																								FAILURE(BgL_auxz00_7853, BFALSE,
																									BFALSE);
																							}
																					}
																					BgL_arg2240z00_5042 =
																						VECTOR_REF(BgL_vectorz00_5044,
																						BgL_arg2241z00_5043);
																				}
																			}
																			BgL_test3349z00_7843 =
																				(BgL_arg2240z00_5042 ==
																				BgL_classz00_5039);
																		}
																	}
																else
																	{	/* Eval/eval.scm 628 */
																		bool_t BgL_res2266z00_5046;

																		{	/* Eval/eval.scm 628 */
																			obj_t BgL_oclassz00_5047;

																			{	/* Eval/eval.scm 628 */
																				obj_t BgL_arg2255z00_5048;
																				long BgL_arg2256z00_5049;

																				BgL_arg2255z00_5048 =
																					(BGl_za2classesza2z00zz__objectz00);
																				{	/* Eval/eval.scm 628 */
																					long BgL_arg2257z00_5050;

																					BgL_arg2257z00_5050 =
																						BGL_OBJECT_CLASS_NUM
																						(BgL_arg2248z00_5040);
																					BgL_arg2256z00_5049 =
																						(BgL_arg2257z00_5050 - OBJECT_TYPE);
																				}
																				BgL_oclassz00_5047 =
																					VECTOR_REF(BgL_arg2255z00_5048,
																					BgL_arg2256z00_5049);
																			}
																			{	/* Eval/eval.scm 628 */
																				bool_t BgL__ortest_1235z00_5051;

																				BgL__ortest_1235z00_5051 =
																					(BgL_classz00_5039 ==
																					BgL_oclassz00_5047);
																				if (BgL__ortest_1235z00_5051)
																					{	/* Eval/eval.scm 628 */
																						BgL_res2266z00_5046 =
																							BgL__ortest_1235z00_5051;
																					}
																				else
																					{	/* Eval/eval.scm 628 */
																						long BgL_odepthz00_5052;

																						{	/* Eval/eval.scm 628 */
																							obj_t BgL_arg2245z00_5053;

																							BgL_arg2245z00_5053 =
																								(BgL_oclassz00_5047);
																							BgL_odepthz00_5052 =
																								BGL_CLASS_DEPTH
																								(BgL_arg2245z00_5053);
																						}
																						if ((3L < BgL_odepthz00_5052))
																							{	/* Eval/eval.scm 628 */
																								obj_t BgL_arg2242z00_5054;

																								{	/* Eval/eval.scm 628 */
																									obj_t BgL_arg2243z00_5055;

																									BgL_arg2243z00_5055 =
																										(BgL_oclassz00_5047);
																									BgL_arg2242z00_5054 =
																										BGL_CLASS_ANCESTORS_REF
																										(BgL_arg2243z00_5055, 3L);
																								}
																								BgL_res2266z00_5046 =
																									(BgL_arg2242z00_5054 ==
																									BgL_classz00_5039);
																							}
																						else
																							{	/* Eval/eval.scm 628 */
																								BgL_res2266z00_5046 =
																									((bool_t) 0);
																							}
																					}
																			}
																		}
																		BgL_test3349z00_7843 = BgL_res2266z00_5046;
																	}
															}
														else
															{	/* Eval/eval.scm 628 */
																BgL_test3349z00_7843 = ((bool_t) 0);
															}
													}
													if (BgL_test3349z00_7843)
														{	/* Eval/eval.scm 629 */
															BgL_z62errorz62_bglt BgL_i1144z00_5056;

															{	/* Eval/eval.scm 630 */
																bool_t BgL_test3355z00_7872;

																{	/* Eval/eval.scm 630 */
																	obj_t BgL_classz00_5057;

																	BgL_classz00_5057 =
																		BGl_z62errorz62zz__objectz00;
																	if (BGL_OBJECTP(BgL_ez00_5037))
																		{	/* Eval/eval.scm 630 */
																			BgL_objectz00_bglt BgL_arg2250z00_5059;
																			long BgL_arg2251z00_5060;

																			BgL_arg2250z00_5059 =
																				(BgL_objectz00_bglt) (BgL_ez00_5037);
																			BgL_arg2251z00_5060 =
																				BGL_CLASS_DEPTH(BgL_classz00_5057);
																			if (BGL_CONDEXPAND_ISA_ARCH64())
																				{	/* Eval/eval.scm 630 */
																					long BgL_idxz00_5068;

																					BgL_idxz00_5068 =
																						BGL_OBJECT_INHERITANCE_NUM
																						(BgL_arg2250z00_5059);
																					{	/* Eval/eval.scm 630 */
																						obj_t BgL_arg2240z00_5069;

																						{	/* Eval/eval.scm 630 */
																							long BgL_arg2241z00_5070;

																							BgL_arg2241z00_5070 =
																								(BgL_idxz00_5068 +
																								BgL_arg2251z00_5060);
																							BgL_arg2240z00_5069 =
																								VECTOR_REF
																								(BGl_za2inheritancesza2z00zz__objectz00,
																								BgL_arg2241z00_5070);
																						}
																						BgL_test3355z00_7872 =
																							(BgL_arg2240z00_5069 ==
																							BgL_classz00_5057);
																				}}
																			else
																				{	/* Eval/eval.scm 630 */
																					bool_t BgL_res2270z00_5075;

																					{	/* Eval/eval.scm 630 */
																						obj_t BgL_oclassz00_5079;

																						{	/* Eval/eval.scm 630 */
																							obj_t BgL_arg2255z00_5081;
																							long BgL_arg2256z00_5082;

																							BgL_arg2255z00_5081 =
																								(BGl_za2classesza2z00zz__objectz00);
																							{	/* Eval/eval.scm 630 */
																								long BgL_arg2257z00_5083;

																								BgL_arg2257z00_5083 =
																									BGL_OBJECT_CLASS_NUM
																									(BgL_arg2250z00_5059);
																								BgL_arg2256z00_5082 =
																									(BgL_arg2257z00_5083 -
																									OBJECT_TYPE);
																							}
																							BgL_oclassz00_5079 =
																								VECTOR_REF(BgL_arg2255z00_5081,
																								BgL_arg2256z00_5082);
																						}
																						{	/* Eval/eval.scm 630 */
																							bool_t BgL__ortest_1235z00_5089;

																							BgL__ortest_1235z00_5089 =
																								(BgL_classz00_5057 ==
																								BgL_oclassz00_5079);
																							if (BgL__ortest_1235z00_5089)
																								{	/* Eval/eval.scm 630 */
																									BgL_res2270z00_5075 =
																										BgL__ortest_1235z00_5089;
																								}
																							else
																								{	/* Eval/eval.scm 630 */
																									long BgL_odepthz00_5090;

																									{	/* Eval/eval.scm 630 */
																										obj_t BgL_arg2245z00_5091;

																										BgL_arg2245z00_5091 =
																											(BgL_oclassz00_5079);
																										BgL_odepthz00_5090 =
																											BGL_CLASS_DEPTH
																											(BgL_arg2245z00_5091);
																									}
																									if (
																										(BgL_arg2251z00_5060 <
																											BgL_odepthz00_5090))
																										{	/* Eval/eval.scm 630 */
																											obj_t BgL_arg2242z00_5095;

																											{	/* Eval/eval.scm 630 */
																												obj_t
																													BgL_arg2243z00_5096;
																												BgL_arg2243z00_5096 =
																													(BgL_oclassz00_5079);
																												BgL_arg2242z00_5095 =
																													BGL_CLASS_ANCESTORS_REF
																													(BgL_arg2243z00_5096,
																													BgL_arg2251z00_5060);
																											}
																											BgL_res2270z00_5075 =
																												(BgL_arg2242z00_5095 ==
																												BgL_classz00_5057);
																										}
																									else
																										{	/* Eval/eval.scm 630 */
																											BgL_res2270z00_5075 =
																												((bool_t) 0);
																										}
																								}
																						}
																					}
																					BgL_test3355z00_7872 =
																						BgL_res2270z00_5075;
																				}
																		}
																	else
																		{	/* Eval/eval.scm 630 */
																			BgL_test3355z00_7872 = ((bool_t) 0);
																		}
																}
																if (BgL_test3355z00_7872)
																	{	/* Eval/eval.scm 630 */
																		BgL_i1144z00_5056 =
																			((BgL_z62errorz62_bglt) BgL_ez00_5037);
																	}
																else
																	{
																		obj_t BgL_auxz00_7897;

																		BgL_auxz00_7897 =
																			BGl_typezd2errorzd2zz__errorz00
																			(BGl_string2674z00zz__evalz00,
																			BINT(24455L),
																			BGl_string2802z00zz__evalz00,
																			BGl_string2717z00zz__evalz00,
																			BgL_ez00_5037);
																		FAILURE(BgL_auxz00_7897, BFALSE, BFALSE);
																	}
															}
															{	/* Eval/eval.scm 630 */
																bool_t BgL_test3360z00_7901;

																{	/* Eval/eval.scm 630 */
																	obj_t BgL_tmpz00_7902;

																	BgL_tmpz00_7902 =
																		(((BgL_z62errorz62_bglt)
																			COBJECT(BgL_i1144z00_5056))->BgL_objz00);
																	BgL_test3360z00_7901 =
																		EPAIRP(BgL_tmpz00_7902);
																}
																if (BgL_test3360z00_7901)
																	{
																		obj_t BgL_fnamez00_5098;
																		obj_t BgL_locz00_5099;

																		{	/* Eval/eval.scm 631 */
																			obj_t BgL_ezd2314zd2_5270;

																			{	/* Eval/eval.scm 631 */
																				obj_t BgL_objz00_5271;

																				{	/* Eval/eval.scm 631 */
																					obj_t BgL_aux2565z00_5272;

																					BgL_aux2565z00_5272 =
																						(((BgL_z62errorz62_bglt)
																							COBJECT(BgL_i1144z00_5056))->
																						BgL_objz00);
																					if (EPAIRP(BgL_aux2565z00_5272))
																						{	/* Eval/eval.scm 631 */
																							BgL_objz00_5271 =
																								BgL_aux2565z00_5272;
																						}
																					else
																						{
																							obj_t BgL_auxz00_7908;

																							BgL_auxz00_7908 =
																								BGl_typezd2errorzd2zz__errorz00
																								(BGl_string2674z00zz__evalz00,
																								BINT(24493L),
																								BGl_string2802z00zz__evalz00,
																								BGl_string2739z00zz__evalz00,
																								BgL_aux2565z00_5272);
																							FAILURE(BgL_auxz00_7908, BFALSE,
																								BFALSE);
																						}
																				}
																				BgL_ezd2314zd2_5270 =
																					CER(BgL_objz00_5271);
																			}
																			if (PAIRP(BgL_ezd2314zd2_5270))
																				{	/* Eval/eval.scm 631 */
																					obj_t BgL_cdrzd2320zd2_5273;

																					BgL_cdrzd2320zd2_5273 =
																						CDR(BgL_ezd2314zd2_5270);
																					if (
																						(CAR(BgL_ezd2314zd2_5270) ==
																							BGl_symbol2688z00zz__evalz00))
																						{	/* Eval/eval.scm 631 */
																							if (PAIRP(BgL_cdrzd2320zd2_5273))
																								{	/* Eval/eval.scm 631 */
																									obj_t BgL_cdrzd2324zd2_5274;

																									BgL_cdrzd2324zd2_5274 =
																										CDR(BgL_cdrzd2320zd2_5273);
																									if (PAIRP
																										(BgL_cdrzd2324zd2_5274))
																										{	/* Eval/eval.scm 631 */
																											if (NULLP(CDR
																													(BgL_cdrzd2324zd2_5274)))
																												{	/* Eval/eval.scm 631 */
																													obj_t
																														BgL_arg1628z00_5275;
																													obj_t
																														BgL_arg1629z00_5276;
																													BgL_arg1628z00_5275 =
																														CAR
																														(BgL_cdrzd2320zd2_5273);
																													BgL_arg1629z00_5276 =
																														CAR
																														(BgL_cdrzd2324zd2_5274);
																													{
																														BgL_z62errorz62_bglt
																															BgL_auxz00_7929;
																														BgL_fnamez00_5098 =
																															BgL_arg1628z00_5275;
																														BgL_locz00_5099 =
																															BgL_arg1629z00_5276;
																														{	/* Eval/eval.scm 633 */
																															BgL_z62exceptionz62_bglt
																																BgL_duplicated1147z00_5100;
																															BgL_z62errorz62_bglt
																																BgL_new1145z00_5101;
																															{	/* Eval/eval.scm 634 */
																																bool_t
																																	BgL_test3367z00_7930;
																																{	/* Eval/eval.scm 634 */
																																	obj_t
																																		BgL_classz00_5102;
																																	BgL_classz00_5102
																																		=
																																		BGl_z62exceptionz62zz__objectz00;
																																	if (BGL_OBJECTP(BgL_ez00_5037))
																																		{	/* Eval/eval.scm 634 */
																																			BgL_objectz00_bglt
																																				BgL_arg2250z00_5104;
																																			long
																																				BgL_arg2251z00_5105;
																																			BgL_arg2250z00_5104
																																				=
																																				(BgL_objectz00_bglt)
																																				(BgL_ez00_5037);
																																			BgL_arg2251z00_5105
																																				=
																																				BGL_CLASS_DEPTH
																																				(BgL_classz00_5102);
																																			if (BGL_CONDEXPAND_ISA_ARCH64())
																																				{	/* Eval/eval.scm 634 */
																																					long
																																						BgL_idxz00_5113;
																																					BgL_idxz00_5113
																																						=
																																						BGL_OBJECT_INHERITANCE_NUM
																																						(BgL_arg2250z00_5104);
																																					{	/* Eval/eval.scm 634 */
																																						obj_t
																																							BgL_arg2240z00_5114;
																																						{	/* Eval/eval.scm 634 */
																																							long
																																								BgL_arg2241z00_5115;
																																							BgL_arg2241z00_5115
																																								=
																																								(BgL_idxz00_5113
																																								+
																																								BgL_arg2251z00_5105);
																																							BgL_arg2240z00_5114
																																								=
																																								VECTOR_REF
																																								(BGl_za2inheritancesza2z00zz__objectz00,
																																								BgL_arg2241z00_5115);
																																						}
																																						BgL_test3367z00_7930
																																							=
																																							(BgL_arg2240z00_5114
																																							==
																																							BgL_classz00_5102);
																																				}}
																																			else
																																				{	/* Eval/eval.scm 634 */
																																					bool_t
																																						BgL_res2270z00_5120;
																																					{	/* Eval/eval.scm 634 */
																																						obj_t
																																							BgL_oclassz00_5124;
																																						{	/* Eval/eval.scm 634 */
																																							obj_t
																																								BgL_arg2255z00_5126;
																																							long
																																								BgL_arg2256z00_5127;
																																							BgL_arg2255z00_5126
																																								=
																																								(BGl_za2classesza2z00zz__objectz00);
																																							{	/* Eval/eval.scm 634 */
																																								long
																																									BgL_arg2257z00_5128;
																																								BgL_arg2257z00_5128
																																									=
																																									BGL_OBJECT_CLASS_NUM
																																									(BgL_arg2250z00_5104);
																																								BgL_arg2256z00_5127
																																									=
																																									(BgL_arg2257z00_5128
																																									-
																																									OBJECT_TYPE);
																																							}
																																							BgL_oclassz00_5124
																																								=
																																								VECTOR_REF
																																								(BgL_arg2255z00_5126,
																																								BgL_arg2256z00_5127);
																																						}
																																						{	/* Eval/eval.scm 634 */
																																							bool_t
																																								BgL__ortest_1235z00_5134;
																																							BgL__ortest_1235z00_5134
																																								=
																																								(BgL_classz00_5102
																																								==
																																								BgL_oclassz00_5124);
																																							if (BgL__ortest_1235z00_5134)
																																								{	/* Eval/eval.scm 634 */
																																									BgL_res2270z00_5120
																																										=
																																										BgL__ortest_1235z00_5134;
																																								}
																																							else
																																								{	/* Eval/eval.scm 634 */
																																									long
																																										BgL_odepthz00_5135;
																																									{	/* Eval/eval.scm 634 */
																																										obj_t
																																											BgL_arg2245z00_5136;
																																										BgL_arg2245z00_5136
																																											=
																																											(BgL_oclassz00_5124);
																																										BgL_odepthz00_5135
																																											=
																																											BGL_CLASS_DEPTH
																																											(BgL_arg2245z00_5136);
																																									}
																																									if ((BgL_arg2251z00_5105 < BgL_odepthz00_5135))
																																										{	/* Eval/eval.scm 634 */
																																											obj_t
																																												BgL_arg2242z00_5140;
																																											{	/* Eval/eval.scm 634 */
																																												obj_t
																																													BgL_arg2243z00_5141;
																																												BgL_arg2243z00_5141
																																													=
																																													(BgL_oclassz00_5124);
																																												BgL_arg2242z00_5140
																																													=
																																													BGL_CLASS_ANCESTORS_REF
																																													(BgL_arg2243z00_5141,
																																													BgL_arg2251z00_5105);
																																											}
																																											BgL_res2270z00_5120
																																												=
																																												(BgL_arg2242z00_5140
																																												==
																																												BgL_classz00_5102);
																																										}
																																									else
																																										{	/* Eval/eval.scm 634 */
																																											BgL_res2270z00_5120
																																												=
																																												(
																																												(bool_t)
																																												0);
																																										}
																																								}
																																						}
																																					}
																																					BgL_test3367z00_7930
																																						=
																																						BgL_res2270z00_5120;
																																				}
																																		}
																																	else
																																		{	/* Eval/eval.scm 634 */
																																			BgL_test3367z00_7930
																																				=
																																				(
																																				(bool_t)
																																				0);
																																		}
																																}
																																if (BgL_test3367z00_7930)
																																	{	/* Eval/eval.scm 634 */
																																		BgL_duplicated1147z00_5100
																																			=
																																			(
																																			(BgL_z62exceptionz62_bglt)
																																			BgL_ez00_5037);
																																	}
																																else
																																	{
																																		obj_t
																																			BgL_auxz00_7955;
																																		BgL_auxz00_7955
																																			=
																																			BGl_typezd2errorzd2zz__errorz00
																																			(BGl_string2674z00zz__evalz00,
																																			BINT
																																			(24569L),
																																			BGl_string2803z00zz__evalz00,
																																			BGl_string2687z00zz__evalz00,
																																			BgL_ez00_5037);
																																		FAILURE
																																			(BgL_auxz00_7955,
																																			BFALSE,
																																			BFALSE);
																																	}
																															}
																															{	/* Eval/eval.scm 634 */
																																BgL_z62errorz62_bglt
																																	BgL_new1151z00_5142;
																																BgL_new1151z00_5142
																																	=
																																	(
																																	(BgL_z62errorz62_bglt)
																																	BOBJECT
																																	(GC_MALLOC
																																		(sizeof
																																			(struct
																																				BgL_z62errorz62_bgl))));
																																{	/* Eval/eval.scm 634 */
																																	long
																																		BgL_arg1633z00_5143;
																																	BgL_arg1633z00_5143
																																		=
																																		BGL_CLASS_NUM
																																		(BGl_z62errorz62zz__objectz00);
																																	BGL_OBJECT_CLASS_NUM_SET
																																		(((BgL_objectz00_bglt) BgL_new1151z00_5142), BgL_arg1633z00_5143);
																																}
																																BgL_new1145z00_5101
																																	=
																																	BgL_new1151z00_5142;
																															}
																															((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1145z00_5101)))->BgL_fnamez00) = ((obj_t) BgL_fnamez00_5098), BUNSPEC);
																															((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1145z00_5101)))->BgL_locationz00) = ((obj_t) BgL_locz00_5099), BUNSPEC);
																															((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1145z00_5101)))->BgL_stackz00) = ((obj_t) (((BgL_z62exceptionz62_bglt) COBJECT(BgL_duplicated1147z00_5100))->BgL_stackz00)), BUNSPEC);
																															{
																																obj_t
																																	BgL_auxz00_7970;
																																{	/* Eval/eval.scm 635 */
																																	BgL_z62errorz62_bglt
																																		BgL_tmp1148z00_5144;
																																	{	/* Eval/eval.scm 635 */
																																		bool_t
																																			BgL_test3372z00_7971;
																																		{	/* Eval/eval.scm 635 */
																																			obj_t
																																				BgL_classz00_5146;
																																			BgL_classz00_5146
																																				=
																																				BGl_z62errorz62zz__objectz00;
																																			{	/* Eval/eval.scm 635 */
																																				bool_t
																																					BgL_test3373z00_7972;
																																				{	/* Eval/eval.scm 635 */
																																					obj_t
																																						BgL_tmpz00_7973;
																																					BgL_tmpz00_7973
																																						=
																																						(
																																						(obj_t)
																																						BgL_duplicated1147z00_5100);
																																					BgL_test3373z00_7972
																																						=
																																						BGL_OBJECTP
																																						(BgL_tmpz00_7973);
																																				}
																																				if (BgL_test3373z00_7972)
																																					{	/* Eval/eval.scm 635 */
																																						BgL_objectz00_bglt
																																							BgL_arg2250z00_5148;
																																						long
																																							BgL_arg2251z00_5149;
																																						{	/* Eval/eval.scm 635 */
																																							obj_t
																																								BgL_tmpz00_7976;
																																							BgL_tmpz00_7976
																																								=
																																								(
																																								(obj_t)
																																								BgL_duplicated1147z00_5100);
																																							BgL_arg2250z00_5148
																																								=
																																								(BgL_objectz00_bglt)
																																								(BgL_tmpz00_7976);
																																						}
																																						BgL_arg2251z00_5149
																																							=
																																							BGL_CLASS_DEPTH
																																							(BgL_classz00_5146);
																																						if (BGL_CONDEXPAND_ISA_ARCH64())
																																							{	/* Eval/eval.scm 635 */
																																								long
																																									BgL_idxz00_5157;
																																								BgL_idxz00_5157
																																									=
																																									BGL_OBJECT_INHERITANCE_NUM
																																									(BgL_arg2250z00_5148);
																																								{	/* Eval/eval.scm 635 */
																																									obj_t
																																										BgL_arg2240z00_5158;
																																									{	/* Eval/eval.scm 635 */
																																										long
																																											BgL_arg2241z00_5159;
																																										BgL_arg2241z00_5159
																																											=
																																											(BgL_idxz00_5157
																																											+
																																											BgL_arg2251z00_5149);
																																										{	/* Eval/eval.scm 635 */
																																											obj_t
																																												BgL_vectorz00_5162;
																																											BgL_vectorz00_5162
																																												=
																																												BGl_za2inheritancesza2z00zz__objectz00;
																																											BgL_arg2240z00_5158
																																												=
																																												VECTOR_REF
																																												(BgL_vectorz00_5162,
																																												BgL_arg2241z00_5159);
																																									}}
																																									BgL_test3372z00_7971
																																										=
																																										(BgL_arg2240z00_5158
																																										==
																																										BgL_classz00_5146);
																																							}}
																																						else
																																							{	/* Eval/eval.scm 635 */
																																								bool_t
																																									BgL_res2270z00_5164;
																																								{	/* Eval/eval.scm 635 */
																																									obj_t
																																										BgL_oclassz00_5168;
																																									{	/* Eval/eval.scm 635 */
																																										obj_t
																																											BgL_arg2255z00_5170;
																																										long
																																											BgL_arg2256z00_5171;
																																										BgL_arg2255z00_5170
																																											=
																																											(BGl_za2classesza2z00zz__objectz00);
																																										{	/* Eval/eval.scm 635 */
																																											long
																																												BgL_arg2257z00_5172;
																																											BgL_arg2257z00_5172
																																												=
																																												BGL_OBJECT_CLASS_NUM
																																												(BgL_arg2250z00_5148);
																																											BgL_arg2256z00_5171
																																												=
																																												(BgL_arg2257z00_5172
																																												-
																																												OBJECT_TYPE);
																																										}
																																										BgL_oclassz00_5168
																																											=
																																											VECTOR_REF
																																											(BgL_arg2255z00_5170,
																																											BgL_arg2256z00_5171);
																																									}
																																									{	/* Eval/eval.scm 635 */
																																										bool_t
																																											BgL__ortest_1235z00_5178;
																																										BgL__ortest_1235z00_5178
																																											=
																																											(BgL_classz00_5146
																																											==
																																											BgL_oclassz00_5168);
																																										if (BgL__ortest_1235z00_5178)
																																											{	/* Eval/eval.scm 635 */
																																												BgL_res2270z00_5164
																																													=
																																													BgL__ortest_1235z00_5178;
																																											}
																																										else
																																											{	/* Eval/eval.scm 635 */
																																												long
																																													BgL_odepthz00_5179;
																																												{	/* Eval/eval.scm 635 */
																																													obj_t
																																														BgL_arg2245z00_5180;
																																													BgL_arg2245z00_5180
																																														=
																																														(BgL_oclassz00_5168);
																																													BgL_odepthz00_5179
																																														=
																																														BGL_CLASS_DEPTH
																																														(BgL_arg2245z00_5180);
																																												}
																																												if ((BgL_arg2251z00_5149 < BgL_odepthz00_5179))
																																													{	/* Eval/eval.scm 635 */
																																														obj_t
																																															BgL_arg2242z00_5184;
																																														{	/* Eval/eval.scm 635 */
																																															obj_t
																																																BgL_arg2243z00_5185;
																																															BgL_arg2243z00_5185
																																																=
																																																(BgL_oclassz00_5168);
																																															BgL_arg2242z00_5184
																																																=
																																																BGL_CLASS_ANCESTORS_REF
																																																(BgL_arg2243z00_5185,
																																																BgL_arg2251z00_5149);
																																														}
																																														BgL_res2270z00_5164
																																															=
																																															(BgL_arg2242z00_5184
																																															==
																																															BgL_classz00_5146);
																																													}
																																												else
																																													{	/* Eval/eval.scm 635 */
																																														BgL_res2270z00_5164
																																															=
																																															(
																																															(bool_t)
																																															0);
																																													}
																																											}
																																									}
																																								}
																																								BgL_test3372z00_7971
																																									=
																																									BgL_res2270z00_5164;
																																							}
																																					}
																																				else
																																					{	/* Eval/eval.scm 635 */
																																						BgL_test3372z00_7971
																																							=
																																							(
																																							(bool_t)
																																							0);
																																					}
																																			}
																																		}
																																		if (BgL_test3372z00_7971)
																																			{	/* Eval/eval.scm 635 */
																																				BgL_tmp1148z00_5144
																																					=
																																					(
																																					(BgL_z62errorz62_bglt)
																																					BgL_duplicated1147z00_5100);
																																			}
																																		else
																																			{
																																				obj_t
																																					BgL_auxz00_8000;
																																				BgL_auxz00_8000
																																					=
																																					BGl_typezd2errorzd2zz__errorz00
																																					(BGl_string2674z00zz__evalz00,
																																					BINT
																																					(24592L),
																																					BGl_string2803z00zz__evalz00,
																																					BGl_string2717z00zz__evalz00,
																																					((obj_t) BgL_duplicated1147z00_5100));
																																				FAILURE
																																					(BgL_auxz00_8000,
																																					BFALSE,
																																					BFALSE);
																																			}
																																	}
																																	BgL_auxz00_7970
																																		=
																																		(((BgL_z62errorz62_bglt) COBJECT(BgL_tmp1148z00_5144))->BgL_procz00);
																																}
																																((((BgL_z62errorz62_bglt) COBJECT(BgL_new1145z00_5101))->BgL_procz00) = ((obj_t) BgL_auxz00_7970), BUNSPEC);
																															}
																															{
																																obj_t
																																	BgL_auxz00_8007;
																																{	/* Eval/eval.scm 635 */
																																	BgL_z62errorz62_bglt
																																		BgL_tmp1149z00_5186;
																																	{	/* Eval/eval.scm 635 */
																																		bool_t
																																			BgL_test3377z00_8008;
																																		{	/* Eval/eval.scm 635 */
																																			obj_t
																																				BgL_classz00_5188;
																																			BgL_classz00_5188
																																				=
																																				BGl_z62errorz62zz__objectz00;
																																			{	/* Eval/eval.scm 635 */
																																				bool_t
																																					BgL_test3378z00_8009;
																																				{	/* Eval/eval.scm 635 */
																																					obj_t
																																						BgL_tmpz00_8010;
																																					BgL_tmpz00_8010
																																						=
																																						(
																																						(obj_t)
																																						BgL_duplicated1147z00_5100);
																																					BgL_test3378z00_8009
																																						=
																																						BGL_OBJECTP
																																						(BgL_tmpz00_8010);
																																				}
																																				if (BgL_test3378z00_8009)
																																					{	/* Eval/eval.scm 635 */
																																						BgL_objectz00_bglt
																																							BgL_arg2250z00_5190;
																																						long
																																							BgL_arg2251z00_5191;
																																						{	/* Eval/eval.scm 635 */
																																							obj_t
																																								BgL_tmpz00_8013;
																																							BgL_tmpz00_8013
																																								=
																																								(
																																								(obj_t)
																																								BgL_duplicated1147z00_5100);
																																							BgL_arg2250z00_5190
																																								=
																																								(BgL_objectz00_bglt)
																																								(BgL_tmpz00_8013);
																																						}
																																						BgL_arg2251z00_5191
																																							=
																																							BGL_CLASS_DEPTH
																																							(BgL_classz00_5188);
																																						if (BGL_CONDEXPAND_ISA_ARCH64())
																																							{	/* Eval/eval.scm 635 */
																																								long
																																									BgL_idxz00_5199;
																																								BgL_idxz00_5199
																																									=
																																									BGL_OBJECT_INHERITANCE_NUM
																																									(BgL_arg2250z00_5190);
																																								{	/* Eval/eval.scm 635 */
																																									obj_t
																																										BgL_arg2240z00_5200;
																																									{	/* Eval/eval.scm 635 */
																																										long
																																											BgL_arg2241z00_5201;
																																										BgL_arg2241z00_5201
																																											=
																																											(BgL_idxz00_5199
																																											+
																																											BgL_arg2251z00_5191);
																																										{	/* Eval/eval.scm 635 */
																																											obj_t
																																												BgL_vectorz00_5204;
																																											BgL_vectorz00_5204
																																												=
																																												BGl_za2inheritancesza2z00zz__objectz00;
																																											BgL_arg2240z00_5200
																																												=
																																												VECTOR_REF
																																												(BgL_vectorz00_5204,
																																												BgL_arg2241z00_5201);
																																									}}
																																									BgL_test3377z00_8008
																																										=
																																										(BgL_arg2240z00_5200
																																										==
																																										BgL_classz00_5188);
																																							}}
																																						else
																																							{	/* Eval/eval.scm 635 */
																																								bool_t
																																									BgL_res2270z00_5206;
																																								{	/* Eval/eval.scm 635 */
																																									obj_t
																																										BgL_oclassz00_5210;
																																									{	/* Eval/eval.scm 635 */
																																										obj_t
																																											BgL_arg2255z00_5212;
																																										long
																																											BgL_arg2256z00_5213;
																																										BgL_arg2255z00_5212
																																											=
																																											(BGl_za2classesza2z00zz__objectz00);
																																										{	/* Eval/eval.scm 635 */
																																											long
																																												BgL_arg2257z00_5214;
																																											BgL_arg2257z00_5214
																																												=
																																												BGL_OBJECT_CLASS_NUM
																																												(BgL_arg2250z00_5190);
																																											BgL_arg2256z00_5213
																																												=
																																												(BgL_arg2257z00_5214
																																												-
																																												OBJECT_TYPE);
																																										}
																																										BgL_oclassz00_5210
																																											=
																																											VECTOR_REF
																																											(BgL_arg2255z00_5212,
																																											BgL_arg2256z00_5213);
																																									}
																																									{	/* Eval/eval.scm 635 */
																																										bool_t
																																											BgL__ortest_1235z00_5220;
																																										BgL__ortest_1235z00_5220
																																											=
																																											(BgL_classz00_5188
																																											==
																																											BgL_oclassz00_5210);
																																										if (BgL__ortest_1235z00_5220)
																																											{	/* Eval/eval.scm 635 */
																																												BgL_res2270z00_5206
																																													=
																																													BgL__ortest_1235z00_5220;
																																											}
																																										else
																																											{	/* Eval/eval.scm 635 */
																																												long
																																													BgL_odepthz00_5221;
																																												{	/* Eval/eval.scm 635 */
																																													obj_t
																																														BgL_arg2245z00_5222;
																																													BgL_arg2245z00_5222
																																														=
																																														(BgL_oclassz00_5210);
																																													BgL_odepthz00_5221
																																														=
																																														BGL_CLASS_DEPTH
																																														(BgL_arg2245z00_5222);
																																												}
																																												if ((BgL_arg2251z00_5191 < BgL_odepthz00_5221))
																																													{	/* Eval/eval.scm 635 */
																																														obj_t
																																															BgL_arg2242z00_5226;
																																														{	/* Eval/eval.scm 635 */
																																															obj_t
																																																BgL_arg2243z00_5227;
																																															BgL_arg2243z00_5227
																																																=
																																																(BgL_oclassz00_5210);
																																															BgL_arg2242z00_5226
																																																=
																																																BGL_CLASS_ANCESTORS_REF
																																																(BgL_arg2243z00_5227,
																																																BgL_arg2251z00_5191);
																																														}
																																														BgL_res2270z00_5206
																																															=
																																															(BgL_arg2242z00_5226
																																															==
																																															BgL_classz00_5188);
																																													}
																																												else
																																													{	/* Eval/eval.scm 635 */
																																														BgL_res2270z00_5206
																																															=
																																															(
																																															(bool_t)
																																															0);
																																													}
																																											}
																																									}
																																								}
																																								BgL_test3377z00_8008
																																									=
																																									BgL_res2270z00_5206;
																																							}
																																					}
																																				else
																																					{	/* Eval/eval.scm 635 */
																																						BgL_test3377z00_8008
																																							=
																																							(
																																							(bool_t)
																																							0);
																																					}
																																			}
																																		}
																																		if (BgL_test3377z00_8008)
																																			{	/* Eval/eval.scm 635 */
																																				BgL_tmp1149z00_5186
																																					=
																																					(
																																					(BgL_z62errorz62_bglt)
																																					BgL_duplicated1147z00_5100);
																																			}
																																		else
																																			{
																																				obj_t
																																					BgL_auxz00_8037;
																																				BgL_auxz00_8037
																																					=
																																					BGl_typezd2errorzd2zz__errorz00
																																					(BGl_string2674z00zz__evalz00,
																																					BINT
																																					(24592L),
																																					BGl_string2803z00zz__evalz00,
																																					BGl_string2717z00zz__evalz00,
																																					((obj_t) BgL_duplicated1147z00_5100));
																																				FAILURE
																																					(BgL_auxz00_8037,
																																					BFALSE,
																																					BFALSE);
																																			}
																																	}
																																	BgL_auxz00_8007
																																		=
																																		(((BgL_z62errorz62_bglt) COBJECT(BgL_tmp1149z00_5186))->BgL_msgz00);
																																}
																																((((BgL_z62errorz62_bglt) COBJECT(BgL_new1145z00_5101))->BgL_msgz00) = ((obj_t) BgL_auxz00_8007), BUNSPEC);
																															}
																															{
																																obj_t
																																	BgL_auxz00_8044;
																																{	/* Eval/eval.scm 635 */
																																	BgL_z62errorz62_bglt
																																		BgL_tmp1150z00_5228;
																																	{	/* Eval/eval.scm 635 */
																																		bool_t
																																			BgL_test3382z00_8045;
																																		{	/* Eval/eval.scm 635 */
																																			obj_t
																																				BgL_classz00_5230;
																																			BgL_classz00_5230
																																				=
																																				BGl_z62errorz62zz__objectz00;
																																			{	/* Eval/eval.scm 635 */
																																				bool_t
																																					BgL_test3383z00_8046;
																																				{	/* Eval/eval.scm 635 */
																																					obj_t
																																						BgL_tmpz00_8047;
																																					BgL_tmpz00_8047
																																						=
																																						(
																																						(obj_t)
																																						BgL_duplicated1147z00_5100);
																																					BgL_test3383z00_8046
																																						=
																																						BGL_OBJECTP
																																						(BgL_tmpz00_8047);
																																				}
																																				if (BgL_test3383z00_8046)
																																					{	/* Eval/eval.scm 635 */
																																						BgL_objectz00_bglt
																																							BgL_arg2250z00_5232;
																																						long
																																							BgL_arg2251z00_5233;
																																						{	/* Eval/eval.scm 635 */
																																							obj_t
																																								BgL_tmpz00_8050;
																																							BgL_tmpz00_8050
																																								=
																																								(
																																								(obj_t)
																																								BgL_duplicated1147z00_5100);
																																							BgL_arg2250z00_5232
																																								=
																																								(BgL_objectz00_bglt)
																																								(BgL_tmpz00_8050);
																																						}
																																						BgL_arg2251z00_5233
																																							=
																																							BGL_CLASS_DEPTH
																																							(BgL_classz00_5230);
																																						if (BGL_CONDEXPAND_ISA_ARCH64())
																																							{	/* Eval/eval.scm 635 */
																																								long
																																									BgL_idxz00_5241;
																																								BgL_idxz00_5241
																																									=
																																									BGL_OBJECT_INHERITANCE_NUM
																																									(BgL_arg2250z00_5232);
																																								{	/* Eval/eval.scm 635 */
																																									obj_t
																																										BgL_arg2240z00_5242;
																																									{	/* Eval/eval.scm 635 */
																																										long
																																											BgL_arg2241z00_5243;
																																										BgL_arg2241z00_5243
																																											=
																																											(BgL_idxz00_5241
																																											+
																																											BgL_arg2251z00_5233);
																																										{	/* Eval/eval.scm 635 */
																																											obj_t
																																												BgL_vectorz00_5246;
																																											BgL_vectorz00_5246
																																												=
																																												BGl_za2inheritancesza2z00zz__objectz00;
																																											BgL_arg2240z00_5242
																																												=
																																												VECTOR_REF
																																												(BgL_vectorz00_5246,
																																												BgL_arg2241z00_5243);
																																									}}
																																									BgL_test3382z00_8045
																																										=
																																										(BgL_arg2240z00_5242
																																										==
																																										BgL_classz00_5230);
																																							}}
																																						else
																																							{	/* Eval/eval.scm 635 */
																																								bool_t
																																									BgL_res2270z00_5248;
																																								{	/* Eval/eval.scm 635 */
																																									obj_t
																																										BgL_oclassz00_5252;
																																									{	/* Eval/eval.scm 635 */
																																										obj_t
																																											BgL_arg2255z00_5254;
																																										long
																																											BgL_arg2256z00_5255;
																																										BgL_arg2255z00_5254
																																											=
																																											(BGl_za2classesza2z00zz__objectz00);
																																										{	/* Eval/eval.scm 635 */
																																											long
																																												BgL_arg2257z00_5256;
																																											BgL_arg2257z00_5256
																																												=
																																												BGL_OBJECT_CLASS_NUM
																																												(BgL_arg2250z00_5232);
																																											BgL_arg2256z00_5255
																																												=
																																												(BgL_arg2257z00_5256
																																												-
																																												OBJECT_TYPE);
																																										}
																																										BgL_oclassz00_5252
																																											=
																																											VECTOR_REF
																																											(BgL_arg2255z00_5254,
																																											BgL_arg2256z00_5255);
																																									}
																																									{	/* Eval/eval.scm 635 */
																																										bool_t
																																											BgL__ortest_1235z00_5262;
																																										BgL__ortest_1235z00_5262
																																											=
																																											(BgL_classz00_5230
																																											==
																																											BgL_oclassz00_5252);
																																										if (BgL__ortest_1235z00_5262)
																																											{	/* Eval/eval.scm 635 */
																																												BgL_res2270z00_5248
																																													=
																																													BgL__ortest_1235z00_5262;
																																											}
																																										else
																																											{	/* Eval/eval.scm 635 */
																																												long
																																													BgL_odepthz00_5263;
																																												{	/* Eval/eval.scm 635 */
																																													obj_t
																																														BgL_arg2245z00_5264;
																																													BgL_arg2245z00_5264
																																														=
																																														(BgL_oclassz00_5252);
																																													BgL_odepthz00_5263
																																														=
																																														BGL_CLASS_DEPTH
																																														(BgL_arg2245z00_5264);
																																												}
																																												if ((BgL_arg2251z00_5233 < BgL_odepthz00_5263))
																																													{	/* Eval/eval.scm 635 */
																																														obj_t
																																															BgL_arg2242z00_5268;
																																														{	/* Eval/eval.scm 635 */
																																															obj_t
																																																BgL_arg2243z00_5269;
																																															BgL_arg2243z00_5269
																																																=
																																																(BgL_oclassz00_5252);
																																															BgL_arg2242z00_5268
																																																=
																																																BGL_CLASS_ANCESTORS_REF
																																																(BgL_arg2243z00_5269,
																																																BgL_arg2251z00_5233);
																																														}
																																														BgL_res2270z00_5248
																																															=
																																															(BgL_arg2242z00_5268
																																															==
																																															BgL_classz00_5230);
																																													}
																																												else
																																													{	/* Eval/eval.scm 635 */
																																														BgL_res2270z00_5248
																																															=
																																															(
																																															(bool_t)
																																															0);
																																													}
																																											}
																																									}
																																								}
																																								BgL_test3382z00_8045
																																									=
																																									BgL_res2270z00_5248;
																																							}
																																					}
																																				else
																																					{	/* Eval/eval.scm 635 */
																																						BgL_test3382z00_8045
																																							=
																																							(
																																							(bool_t)
																																							0);
																																					}
																																			}
																																		}
																																		if (BgL_test3382z00_8045)
																																			{	/* Eval/eval.scm 635 */
																																				BgL_tmp1150z00_5228
																																					=
																																					(
																																					(BgL_z62errorz62_bglt)
																																					BgL_duplicated1147z00_5100);
																																			}
																																		else
																																			{
																																				obj_t
																																					BgL_auxz00_8074;
																																				BgL_auxz00_8074
																																					=
																																					BGl_typezd2errorzd2zz__errorz00
																																					(BGl_string2674z00zz__evalz00,
																																					BINT
																																					(24592L),
																																					BGl_string2803z00zz__evalz00,
																																					BGl_string2717z00zz__evalz00,
																																					((obj_t) BgL_duplicated1147z00_5100));
																																				FAILURE
																																					(BgL_auxz00_8074,
																																					BFALSE,
																																					BFALSE);
																																			}
																																	}
																																	BgL_auxz00_8044
																																		=
																																		(((BgL_z62errorz62_bglt) COBJECT(BgL_tmp1150z00_5228))->BgL_objz00);
																																}
																																((((BgL_z62errorz62_bglt) COBJECT(BgL_new1145z00_5101))->BgL_objz00) = ((obj_t) BgL_auxz00_8044), BUNSPEC);
																															}
																															BgL_auxz00_7929 =
																																BgL_new1145z00_5101;
																														}
																														BgL_nez00_5038 =
																															((obj_t)
																															BgL_auxz00_7929);
																													}
																												}
																											else
																												{	/* Eval/eval.scm 631 */
																													BgL_nez00_5038 =
																														BgL_ez00_5037;
																												}
																										}
																									else
																										{	/* Eval/eval.scm 631 */
																											BgL_nez00_5038 =
																												BgL_ez00_5037;
																										}
																								}
																							else
																								{	/* Eval/eval.scm 631 */
																									BgL_nez00_5038 =
																										BgL_ez00_5037;
																								}
																						}
																					else
																						{	/* Eval/eval.scm 631 */
																							BgL_nez00_5038 = BgL_ez00_5037;
																						}
																				}
																			else
																				{	/* Eval/eval.scm 631 */
																					BgL_nez00_5038 = BgL_ez00_5037;
																				}
																		}
																	}
																else
																	{	/* Eval/eval.scm 630 */
																		BgL_nez00_5038 = BgL_ez00_5037;
																	}
															}
														}
													else
														{	/* Eval/eval.scm 628 */
															BgL_nez00_5038 = BgL_ez00_5037;
														}
												}
												return BGl_raisez00zz__errorz00(BgL_ez00_5037);
											}
										}
									}
								else
									{	/* Eval/eval.scm 626 */
										return BgL_val1142z00_5278;
									}
							}
						}
					}
				}
			}
		}

	}



/* <@exit:1615>~0 */
	obj_t BGl_zc3z04exitza31615ze3ze70z60zz__evalz00(obj_t BgL_ez00_3745,
		obj_t BgL_xz00_3744, obj_t BgL_expdzd2evalzd2_3743,
		obj_t BgL_cell1138z00_3742, obj_t BgL_env1143z00_3741)
	{
		{	/* Eval/eval.scm 626 */
			jmp_buf_t jmpbuf;
			void *BgL_an_exit1155z00_1740;

			if (SET_EXIT(BgL_an_exit1155z00_1740))
				{
					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_exit1155z00_1740 = (void *) jmpbuf;
					PUSH_ENV_EXIT(BgL_env1143z00_3741, BgL_an_exit1155z00_1740, 1L);
					{	/* Eval/eval.scm 626 */
						obj_t BgL_escape1139z00_1741;

						BgL_escape1139z00_1741 =
							BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1143z00_3741);
						{	/* Eval/eval.scm 626 */
							obj_t BgL_res1158z00_1742;

							{	/* Eval/eval.scm 626 */
								obj_t BgL_ohs1135z00_1743;

								BgL_ohs1135z00_1743 =
									BGL_ENV_ERROR_HANDLER_GET(BgL_env1143z00_3741);
								{	/* Eval/eval.scm 626 */
									obj_t BgL_hds1136z00_1744;

									BgL_hds1136z00_1744 =
										MAKE_STACK_PAIR(BgL_escape1139z00_1741,
										BgL_cell1138z00_3742);
									BGL_ENV_ERROR_HANDLER_SET(BgL_env1143z00_3741,
										BgL_hds1136z00_1744);
									BUNSPEC;
									{	/* Eval/eval.scm 626 */
										obj_t BgL_exitd1152z00_1745;

										BgL_exitd1152z00_1745 =
											BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1143z00_3741);
										{	/* Eval/eval.scm 626 */
											obj_t BgL_tmp1154z00_1746;

											{	/* Eval/eval.scm 626 */
												obj_t BgL_arg1616z00_1748;

												BgL_arg1616z00_1748 =
													BGL_EXITD_PROTECT(BgL_exitd1152z00_1745);
												BgL_tmp1154z00_1746 =
													MAKE_YOUNG_PAIR(BgL_ohs1135z00_1743,
													BgL_arg1616z00_1748);
											}
											{	/* Eval/eval.scm 626 */

												BGL_EXITD_PROTECT_SET(BgL_exitd1152z00_1745,
													BgL_tmp1154z00_1746);
												BUNSPEC;
												{	/* Eval/eval.scm 641 */
													obj_t BgL_tmp1153z00_1747;

													{	/* Eval/eval.scm 641 */
														obj_t BgL_tmpfunz00_8098;

														{	/* Eval/eval.scm 641 */
															bool_t BgL_test2568z00_4080;

															BgL_test2568z00_4080 =
																PROCEDUREP(BgL_expdzd2evalzd2_3743);
															if (BgL_test2568z00_4080)
																{	/* Eval/eval.scm 641 */
																	BgL_tmpfunz00_8098 = BgL_expdzd2evalzd2_3743;
																}
															else
																{
																	obj_t BgL_auxz00_8101;

																	BgL_auxz00_8101 =
																		BGl_typezd2errorzd2zz__errorz00
																		(BGl_string2674z00zz__evalz00, BINT(24687L),
																		BGl_string2804z00zz__evalz00,
																		BGl_string2679z00zz__evalz00,
																		BgL_expdzd2evalzd2_3743);
																	FAILURE(BgL_auxz00_8101, BFALSE, BFALSE);
																}
														}
														BgL_tmp1153z00_1747 =
															(VA_PROCEDUREP(BgL_tmpfunz00_8098)
															? ((obj_t(*)(obj_t,
																		...))
																PROCEDURE_ENTRY(BgL_tmpfunz00_8098))
															(BgL_expdzd2evalzd2_3743, BgL_xz00_3744,
																BgL_ez00_3745, BEOA) : ((obj_t(*)(obj_t, obj_t,
																		obj_t))
																PROCEDURE_ENTRY(BgL_tmpfunz00_8098))
															(BgL_expdzd2evalzd2_3743, BgL_xz00_3744,
																BgL_ez00_3745));
													}
													{	/* Eval/eval.scm 626 */
														bool_t BgL_test3388z00_8105;

														{	/* Eval/eval.scm 626 */
															obj_t BgL_arg2234z00_3024;

															BgL_arg2234z00_3024 =
																BGL_EXITD_PROTECT(BgL_exitd1152z00_1745);
															BgL_test3388z00_8105 = PAIRP(BgL_arg2234z00_3024);
														}
														if (BgL_test3388z00_8105)
															{	/* Eval/eval.scm 626 */
																obj_t BgL_arg2232z00_3025;

																{	/* Eval/eval.scm 626 */
																	obj_t BgL_arg2233z00_3026;

																	BgL_arg2233z00_3026 =
																		BGL_EXITD_PROTECT(BgL_exitd1152z00_1745);
																	{	/* Eval/eval.scm 626 */
																		obj_t BgL_pairz00_3027;

																		if (PAIRP(BgL_arg2233z00_3026))
																			{	/* Eval/eval.scm 626 */
																				BgL_pairz00_3027 = BgL_arg2233z00_3026;
																			}
																		else
																			{
																				obj_t BgL_auxz00_8111;

																				BgL_auxz00_8111 =
																					BGl_typezd2errorzd2zz__errorz00
																					(BGl_string2674z00zz__evalz00,
																					BINT(24341L),
																					BGl_string2804z00zz__evalz00,
																					BGl_string2685z00zz__evalz00,
																					BgL_arg2233z00_3026);
																				FAILURE(BgL_auxz00_8111, BFALSE,
																					BFALSE);
																			}
																		BgL_arg2232z00_3025 = CDR(BgL_pairz00_3027);
																	}
																}
																BGL_EXITD_PROTECT_SET(BgL_exitd1152z00_1745,
																	BgL_arg2232z00_3025);
																BUNSPEC;
															}
														else
															{	/* Eval/eval.scm 626 */
																BFALSE;
															}
													}
													BGL_ENV_ERROR_HANDLER_SET(BgL_env1143z00_3741,
														BgL_ohs1135z00_1743);
													BUNSPEC;
													BgL_res1158z00_1742 = BgL_tmp1153z00_1747;
												}
											}
										}
									}
								}
							}
							POP_ENV_EXIT(BgL_env1143z00_3741);
							return BgL_res1158z00_1742;
						}
					}
				}
		}

	}



/* expand-define-hygiene-macro */
	BGL_EXPORTED_DEF obj_t
		BGl_expandzd2definezd2hygienezd2macrozd2zz__evalz00(obj_t BgL_xz00_54,
		obj_t BgL_ez00_55)
	{
		{	/* Eval/eval.scm 649 */
			{
				obj_t BgL_namez00_1842;
				obj_t BgL_argsz00_1843;
				obj_t BgL_bodyz00_1844;

				if (PAIRP(BgL_xz00_54))
					{	/* Eval/eval.scm 650 */
						obj_t BgL_cdrzd2340zd2_1849;

						BgL_cdrzd2340zd2_1849 = CDR(((obj_t) BgL_xz00_54));
						if (PAIRP(BgL_cdrzd2340zd2_1849))
							{	/* Eval/eval.scm 650 */
								obj_t BgL_carzd2344zd2_1851;

								BgL_carzd2344zd2_1851 = CAR(BgL_cdrzd2340zd2_1849);
								if (PAIRP(BgL_carzd2344zd2_1851))
									{	/* Eval/eval.scm 650 */
										obj_t BgL_cdrzd2349zd2_1853;

										BgL_cdrzd2349zd2_1853 = CDR(BgL_carzd2344zd2_1851);
										if (
											(CAR(BgL_carzd2344zd2_1851) ==
												BGl_symbol2812z00zz__evalz00))
											{	/* Eval/eval.scm 650 */
												if (PAIRP(BgL_cdrzd2349zd2_1853))
													{	/* Eval/eval.scm 650 */
														obj_t BgL_carzd2352zd2_1857;

														BgL_carzd2352zd2_1857 = CAR(BgL_cdrzd2349zd2_1853);
														if (PAIRP(BgL_carzd2352zd2_1857))
															{	/* Eval/eval.scm 650 */
																if (NULLP(CDR(BgL_cdrzd2349zd2_1853)))
																	{	/* Eval/eval.scm 650 */
																		BgL_namez00_1842 =
																			CAR(BgL_carzd2352zd2_1857);
																		BgL_argsz00_1843 =
																			CDR(BgL_carzd2352zd2_1857);
																		BgL_bodyz00_1844 =
																			CDR(BgL_cdrzd2340zd2_1849);
																		{	/* Eval/eval.scm 652 */
																			obj_t BgL_bodyz00_1866;
																			obj_t BgL_fnamez00_1867;
																			obj_t BgL_locz00_1868;

																			if (NULLP(BgL_bodyz00_1844))
																				{	/* Eval/eval.scm 652 */
																					BgL_bodyz00_1866 = BNIL;
																				}
																			else
																				{	/* Eval/eval.scm 652 */
																					obj_t BgL_head1248z00_1972;

																					{	/* Eval/eval.scm 652 */
																						obj_t BgL_arg1817z00_1985;

																						{	/* Eval/eval.scm 652 */
																							obj_t BgL_pairz00_3076;

																							{	/* Eval/eval.scm 652 */
																								obj_t BgL_pairz00_3075;

																								if (PAIRP(BgL_bodyz00_1844))
																									{	/* Eval/eval.scm 652 */
																										BgL_pairz00_3075 =
																											BgL_bodyz00_1844;
																									}
																								else
																									{
																										obj_t BgL_auxz00_8144;

																										BgL_auxz00_8144 =
																											BGl_typezd2errorzd2zz__errorz00
																											(BGl_string2674z00zz__evalz00,
																											BINT(25161L),
																											BGl_string2805z00zz__evalz00,
																											BGl_string2685z00zz__evalz00,
																											BgL_bodyz00_1844);
																										FAILURE(BgL_auxz00_8144,
																											BFALSE, BFALSE);
																									}
																								{	/* Eval/eval.scm 652 */
																									obj_t BgL_aux2573z00_4085;

																									BgL_aux2573z00_4085 =
																										CAR(BgL_pairz00_3075);
																									if (PAIRP
																										(BgL_aux2573z00_4085))
																										{	/* Eval/eval.scm 652 */
																											BgL_pairz00_3076 =
																												BgL_aux2573z00_4085;
																										}
																									else
																										{
																											obj_t BgL_auxz00_8151;

																											BgL_auxz00_8151 =
																												BGl_typezd2errorzd2zz__errorz00
																												(BGl_string2674z00zz__evalz00,
																												BINT(25161L),
																												BGl_string2805z00zz__evalz00,
																												BGl_string2685z00zz__evalz00,
																												BgL_aux2573z00_4085);
																											FAILURE(BgL_auxz00_8151,
																												BFALSE, BFALSE);
																										}
																								}
																							}
																							{	/* Eval/eval.scm 652 */
																								obj_t BgL_pairz00_3079;

																								{	/* Eval/eval.scm 652 */
																									obj_t BgL_aux2575z00_4087;

																									BgL_aux2575z00_4087 =
																										CDR(BgL_pairz00_3076);
																									if (PAIRP
																										(BgL_aux2575z00_4087))
																										{	/* Eval/eval.scm 652 */
																											BgL_pairz00_3079 =
																												BgL_aux2575z00_4087;
																										}
																									else
																										{
																											obj_t BgL_auxz00_8158;

																											BgL_auxz00_8158 =
																												BGl_typezd2errorzd2zz__errorz00
																												(BGl_string2674z00zz__evalz00,
																												BINT(25161L),
																												BGl_string2805z00zz__evalz00,
																												BGl_string2685z00zz__evalz00,
																												BgL_aux2575z00_4087);
																											FAILURE(BgL_auxz00_8158,
																												BFALSE, BFALSE);
																										}
																								}
																								BgL_arg1817z00_1985 =
																									CAR(BgL_pairz00_3079);
																							}
																						}
																						BgL_head1248z00_1972 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1817z00_1985, BNIL);
																					}
																					{	/* Eval/eval.scm 652 */
																						obj_t BgL_g1251z00_1973;

																						{	/* Eval/eval.scm 652 */
																							obj_t BgL_pairz00_3080;

																							if (PAIRP(BgL_bodyz00_1844))
																								{	/* Eval/eval.scm 652 */
																									BgL_pairz00_3080 =
																										BgL_bodyz00_1844;
																								}
																							else
																								{
																									obj_t BgL_auxz00_8166;

																									BgL_auxz00_8166 =
																										BGl_typezd2errorzd2zz__errorz00
																										(BGl_string2674z00zz__evalz00,
																										BINT(25161L),
																										BGl_string2805z00zz__evalz00,
																										BGl_string2685z00zz__evalz00,
																										BgL_bodyz00_1844);
																									FAILURE(BgL_auxz00_8166,
																										BFALSE, BFALSE);
																								}
																							BgL_g1251z00_1973 =
																								CDR(BgL_pairz00_3080);
																						}
																						{
																							obj_t BgL_l1246z00_1975;
																							obj_t BgL_tail1249z00_1976;

																							BgL_l1246z00_1975 =
																								BgL_g1251z00_1973;
																							BgL_tail1249z00_1976 =
																								BgL_head1248z00_1972;
																						BgL_zc3z04anonymousza31811ze3z87_1977:
																							if (PAIRP
																								(BgL_l1246z00_1975))
																								{	/* Eval/eval.scm 652 */
																									obj_t BgL_newtail1250z00_1979;

																									{	/* Eval/eval.scm 652 */
																										obj_t BgL_arg1814z00_1981;

																										{	/* Eval/eval.scm 652 */
																											obj_t BgL_pairz00_3082;

																											{	/* Eval/eval.scm 652 */
																												obj_t
																													BgL_aux2579z00_4091;
																												BgL_aux2579z00_4091 =
																													CAR
																													(BgL_l1246z00_1975);
																												if (PAIRP
																													(BgL_aux2579z00_4091))
																													{	/* Eval/eval.scm 652 */
																														BgL_pairz00_3082 =
																															BgL_aux2579z00_4091;
																													}
																												else
																													{
																														obj_t
																															BgL_auxz00_8176;
																														BgL_auxz00_8176 =
																															BGl_typezd2errorzd2zz__errorz00
																															(BGl_string2674z00zz__evalz00,
																															BINT(25161L),
																															BGl_string2806z00zz__evalz00,
																															BGl_string2685z00zz__evalz00,
																															BgL_aux2579z00_4091);
																														FAILURE
																															(BgL_auxz00_8176,
																															BFALSE, BFALSE);
																													}
																											}
																											{	/* Eval/eval.scm 652 */
																												obj_t BgL_pairz00_3085;

																												{	/* Eval/eval.scm 652 */
																													obj_t
																														BgL_aux2581z00_4093;
																													BgL_aux2581z00_4093 =
																														CDR
																														(BgL_pairz00_3082);
																													if (PAIRP
																														(BgL_aux2581z00_4093))
																														{	/* Eval/eval.scm 652 */
																															BgL_pairz00_3085 =
																																BgL_aux2581z00_4093;
																														}
																													else
																														{
																															obj_t
																																BgL_auxz00_8183;
																															BgL_auxz00_8183 =
																																BGl_typezd2errorzd2zz__errorz00
																																(BGl_string2674z00zz__evalz00,
																																BINT(25161L),
																																BGl_string2806z00zz__evalz00,
																																BGl_string2685z00zz__evalz00,
																																BgL_aux2581z00_4093);
																															FAILURE
																																(BgL_auxz00_8183,
																																BFALSE, BFALSE);
																														}
																												}
																												BgL_arg1814z00_1981 =
																													CAR(BgL_pairz00_3085);
																											}
																										}
																										BgL_newtail1250z00_1979 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg1814z00_1981,
																											BNIL);
																									}
																									SET_CDR(BgL_tail1249z00_1976,
																										BgL_newtail1250z00_1979);
																									{
																										obj_t BgL_tail1249z00_8192;
																										obj_t BgL_l1246z00_8190;

																										BgL_l1246z00_8190 =
																											CDR(BgL_l1246z00_1975);
																										BgL_tail1249z00_8192 =
																											BgL_newtail1250z00_1979;
																										BgL_tail1249z00_1976 =
																											BgL_tail1249z00_8192;
																										BgL_l1246z00_1975 =
																											BgL_l1246z00_8190;
																										goto
																											BgL_zc3z04anonymousza31811ze3z87_1977;
																									}
																								}
																							else
																								{	/* Eval/eval.scm 652 */
																									if (NULLP(BgL_l1246z00_1975))
																										{	/* Eval/eval.scm 652 */
																											BgL_bodyz00_1866 =
																												BgL_head1248z00_1972;
																										}
																									else
																										{	/* Eval/eval.scm 652 */
																											BgL_bodyz00_1866 =
																												BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00
																												(BGl_string2807z00zz__evalz00,
																												BGl_string2808z00zz__evalz00,
																												BgL_l1246z00_1975,
																												BGl_string2674z00zz__evalz00,
																												BINT(25161L));
																										}
																								}
																						}
																					}
																				}
																			{	/* Eval/eval.scm 653 */

																				{	/* Eval/eval.scm 653 */

																					BgL_fnamez00_1867 =
																						BGl_gensymz00zz__r4_symbols_6_4z00
																						(BFALSE);
																				}
																			}
																			{	/* Eval/eval.scm 654 */

																				{	/* Eval/eval.scm 654 */

																					BgL_locz00_1868 =
																						BGl_gensymz00zz__r4_symbols_6_4z00
																						(BFALSE);
																				}
																			}
																			{	/* Eval/eval.scm 657 */
																				obj_t BgL_arg1735z00_1869;

																				{	/* Eval/eval.scm 657 */
																					obj_t BgL_expdzd2lamzd2_1870;

																					{	/* Eval/eval.scm 657 */
																						obj_t BgL_arg1763z00_1928;

																						{	/* Eval/eval.scm 657 */
																							obj_t BgL_arg1764z00_1929;
																							obj_t BgL_arg1765z00_1930;

																							{	/* Eval/eval.scm 657 */
																								obj_t BgL_arg1766z00_1931;

																								BgL_arg1766z00_1931 =
																									MAKE_YOUNG_PAIR
																									(BGl_symbol2760z00zz__evalz00,
																									BNIL);
																								BgL_arg1764z00_1929 =
																									MAKE_YOUNG_PAIR
																									(BGl_symbol2809z00zz__evalz00,
																									BgL_arg1766z00_1931);
																							}
																							{	/* Eval/eval.scm 658 */
																								obj_t BgL_arg1767z00_1932;

																								{	/* Eval/eval.scm 658 */
																									obj_t BgL_arg1768z00_1933;

																									{	/* Eval/eval.scm 658 */
																										obj_t BgL_arg1769z00_1934;
																										obj_t BgL_arg1770z00_1935;

																										{	/* Eval/eval.scm 658 */
																											obj_t BgL_arg1771z00_1936;
																											obj_t BgL_arg1772z00_1937;

																											{	/* Eval/eval.scm 658 */
																												obj_t
																													BgL_arg1773z00_1938;
																												BgL_arg1773z00_1938 =
																													MAKE_YOUNG_PAIR
																													(BFALSE, BNIL);
																												BgL_arg1771z00_1936 =
																													MAKE_YOUNG_PAIR
																													(BgL_fnamez00_1867,
																													BgL_arg1773z00_1938);
																											}
																											BgL_arg1772z00_1937 =
																												MAKE_YOUNG_PAIR
																												(BgL_locz00_1868, BNIL);
																											BgL_arg1769z00_1934 =
																												MAKE_YOUNG_PAIR
																												(BgL_arg1771z00_1936,
																												BgL_arg1772z00_1937);
																										}
																										{	/* Eval/eval.scm 659 */
																											obj_t BgL_arg1775z00_1939;
																											obj_t BgL_arg1776z00_1940;

																											{	/* Eval/eval.scm 659 */
																												obj_t
																													BgL_arg1777z00_1941;
																												{	/* Eval/eval.scm 659 */
																													obj_t
																														BgL_arg1778z00_1942;
																													obj_t
																														BgL_arg1779z00_1943;
																													{	/* Eval/eval.scm 659 */
																														obj_t
																															BgL_arg1781z00_1944;
																														BgL_arg1781z00_1944
																															=
																															MAKE_YOUNG_PAIR
																															(BGl_symbol2809z00zz__evalz00,
																															BNIL);
																														BgL_arg1778z00_1942
																															=
																															MAKE_YOUNG_PAIR
																															(BGl_symbol2764z00zz__evalz00,
																															BgL_arg1781z00_1944);
																													}
																													{	/* Eval/eval.scm 660 */
																														obj_t
																															BgL_arg1782z00_1945;
																														{	/* Eval/eval.scm 660 */
																															obj_t
																																BgL_arg1783z00_1946;
																															{	/* Eval/eval.scm 660 */
																																obj_t
																																	BgL_arg1784z00_1947;
																																obj_t
																																	BgL_arg1785z00_1948;
																																{	/* Eval/eval.scm 660 */
																																	obj_t
																																		BgL_arg1786z00_1949;
																																	BgL_arg1786z00_1949
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BGl_symbol2809z00zz__evalz00,
																																		BNIL);
																																	BgL_arg1784z00_1947
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BGl_symbol2766z00zz__evalz00,
																																		BgL_arg1786z00_1949);
																																}
																																{	/* Eval/eval.scm 661 */
																																	obj_t
																																		BgL_arg1787z00_1950;
																																	{	/* Eval/eval.scm 661 */
																																		obj_t
																																			BgL_arg1788z00_1951;
																																		obj_t
																																			BgL_arg1789z00_1952;
																																		{	/* Eval/eval.scm 661 */
																																			obj_t
																																				BgL_arg1790z00_1953;
																																			{	/* Eval/eval.scm 661 */
																																				obj_t
																																					BgL_arg1791z00_1954;
																																				BgL_arg1791z00_1954
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BGl_symbol2768z00zz__evalz00,
																																					BNIL);
																																				BgL_arg1790z00_1953
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BGl_symbol2770z00zz__evalz00,
																																					BgL_arg1791z00_1954);
																																			}
																																			BgL_arg1788z00_1951
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BGl_symbol2688z00zz__evalz00,
																																				BgL_arg1790z00_1953);
																																		}
																																		{	/* Eval/eval.scm 662 */
																																			obj_t
																																				BgL_arg1792z00_1955;
																																			obj_t
																																				BgL_arg1793z00_1956;
																																			{	/* Eval/eval.scm 662 */
																																				obj_t
																																					BgL_arg1794z00_1957;
																																				{	/* Eval/eval.scm 662 */
																																					obj_t
																																						BgL_arg1795z00_1958;
																																					BgL_arg1795z00_1958
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BGl_symbol2772z00zz__evalz00,
																																						BNIL);
																																					BgL_arg1794z00_1957
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BgL_fnamez00_1867,
																																						BgL_arg1795z00_1958);
																																				}
																																				BgL_arg1792z00_1955
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BGl_symbol2774z00zz__evalz00,
																																					BgL_arg1794z00_1957);
																																			}
																																			{	/* Eval/eval.scm 663 */
																																				obj_t
																																					BgL_arg1796z00_1959;
																																				{	/* Eval/eval.scm 663 */
																																					obj_t
																																						BgL_arg1798z00_1960;
																																					{	/* Eval/eval.scm 663 */
																																						obj_t
																																							BgL_arg1799z00_1961;
																																						BgL_arg1799z00_1961
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BGl_symbol2776z00zz__evalz00,
																																							BNIL);
																																						BgL_arg1798z00_1960
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BgL_locz00_1868,
																																							BgL_arg1799z00_1961);
																																					}
																																					BgL_arg1796z00_1959
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BGl_symbol2774z00zz__evalz00,
																																						BgL_arg1798z00_1960);
																																				}
																																				BgL_arg1793z00_1956
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BgL_arg1796z00_1959,
																																					BNIL);
																																			}
																																			BgL_arg1789z00_1952
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_arg1792z00_1955,
																																				BgL_arg1793z00_1956);
																																		}
																																		BgL_arg1787z00_1950
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BgL_arg1788z00_1951,
																																			BgL_arg1789z00_1952);
																																	}
																																	BgL_arg1785z00_1948
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_arg1787z00_1950,
																																		BNIL);
																																}
																																BgL_arg1783z00_1946
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_arg1784z00_1947,
																																	BgL_arg1785z00_1948);
																															}
																															BgL_arg1782z00_1945
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_symbol2778z00zz__evalz00,
																																BgL_arg1783z00_1946);
																														}
																														BgL_arg1779z00_1943
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_arg1782z00_1945,
																															BNIL);
																													}
																													BgL_arg1777z00_1941 =
																														MAKE_YOUNG_PAIR
																														(BgL_arg1778z00_1942,
																														BgL_arg1779z00_1943);
																												}
																												BgL_arg1775z00_1939 =
																													MAKE_YOUNG_PAIR
																													(BGl_symbol2780z00zz__evalz00,
																													BgL_arg1777z00_1941);
																											}
																											{	/* Eval/eval.scm 664 */
																												obj_t
																													BgL_arg1800z00_1962;
																												{	/* Eval/eval.scm 664 */
																													obj_t
																														BgL_arg1801z00_1963;
																													{	/* Eval/eval.scm 664 */
																														obj_t
																															BgL_arg1803z00_1964;
																														obj_t
																															BgL_arg1804z00_1965;
																														{	/* Eval/eval.scm 664 */
																															obj_t
																																BgL_arg1805z00_1966;
																															{	/* Eval/eval.scm 664 */
																																obj_t
																																	BgL_arg1807z00_1967;
																																obj_t
																																	BgL_arg1808z00_1968;
																																BgL_arg1807z00_1967
																																	=
																																	BGl_loopze70ze7zz__evalz00
																																	(BgL_namez00_1842,
																																	BgL_locz00_1868,
																																	BgL_fnamez00_1867,
																																	BgL_argsz00_1843,
																																	BGl_list2811z00zz__evalz00,
																																	BNIL);
																																{	/* Eval/eval.scm 667 */
																																	obj_t
																																		BgL_arg1809z00_1969;
																																	{	/* Eval/eval.scm 667 */
																																		obj_t
																																			BgL_auxz00_8228;
																																		{	/* Eval/eval.scm 667 */
																																			bool_t
																																				BgL_test3406z00_8229;
																																			if (PAIRP
																																				(BgL_bodyz00_1866))
																																				{	/* Eval/eval.scm 667 */
																																					BgL_test3406z00_8229
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Eval/eval.scm 667 */
																																					BgL_test3406z00_8229
																																						=
																																						NULLP
																																						(BgL_bodyz00_1866);
																																				}
																																			if (BgL_test3406z00_8229)
																																				{	/* Eval/eval.scm 667 */
																																					BgL_auxz00_8228
																																						=
																																						BgL_bodyz00_1866;
																																				}
																																			else
																																				{
																																					obj_t
																																						BgL_auxz00_8233;
																																					BgL_auxz00_8233
																																						=
																																						BGl_typezd2errorzd2zz__errorz00
																																						(BGl_string2674z00zz__evalz00,
																																						BINT
																																						(25543L),
																																						BGl_string2805z00zz__evalz00,
																																						BGl_string2721z00zz__evalz00,
																																						BgL_bodyz00_1866);
																																					FAILURE
																																						(BgL_auxz00_8233,
																																						BFALSE,
																																						BFALSE);
																																				}
																																		}
																																		BgL_arg1809z00_1969
																																			=
																																			BGl_expandzd2prognzd2zz__prognz00
																																			(BgL_auxz00_8228);
																																	}
																																	BgL_arg1808z00_1968
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_arg1809z00_1969,
																																		BNIL);
																																}
																																BgL_arg1805z00_1966
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_arg1807z00_1967,
																																	BgL_arg1808z00_1968);
																															}
																															BgL_arg1803z00_1964
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_symbol2786z00zz__evalz00,
																																BgL_arg1805z00_1966);
																														}
																														BgL_arg1804z00_1965
																															=
																															MAKE_YOUNG_PAIR
																															(BGl_symbol2760z00zz__evalz00,
																															BNIL);
																														BgL_arg1801z00_1963
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_arg1803z00_1964,
																															BgL_arg1804z00_1965);
																													}
																													BgL_arg1800z00_1962 =
																														MAKE_YOUNG_PAIR
																														(BGl_symbol2760z00zz__evalz00,
																														BgL_arg1801z00_1963);
																												}
																												BgL_arg1776z00_1940 =
																													MAKE_YOUNG_PAIR
																													(BgL_arg1800z00_1962,
																													BNIL);
																											}
																											BgL_arg1770z00_1935 =
																												MAKE_YOUNG_PAIR
																												(BgL_arg1775z00_1939,
																												BgL_arg1776z00_1940);
																										}
																										BgL_arg1768z00_1933 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg1769z00_1934,
																											BgL_arg1770z00_1935);
																									}
																									BgL_arg1767z00_1932 =
																										MAKE_YOUNG_PAIR
																										(BGl_symbol2794z00zz__evalz00,
																										BgL_arg1768z00_1933);
																								}
																								BgL_arg1765z00_1930 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1767z00_1932, BNIL);
																							}
																							BgL_arg1763z00_1928 =
																								MAKE_YOUNG_PAIR
																								(BgL_arg1764z00_1929,
																								BgL_arg1765z00_1930);
																						}
																						BgL_expdzd2lamzd2_1870 =
																							MAKE_YOUNG_PAIR
																							(BGl_symbol2796z00zz__evalz00,
																							BgL_arg1763z00_1928);
																					}
																					{	/* Eval/eval.scm 657 */
																						obj_t BgL_expdzd2lamzf2locz20_1871;

																						BgL_expdzd2lamzf2locz20_1871 =
																							BGl_evepairifyz00zz__prognz00
																							(BgL_expdzd2lamzd2_1870,
																							BgL_xz00_54);
																						{	/* Eval/eval.scm 669 */
																							obj_t BgL_expdzd2evalzd2_1872;

																							{	/* Eval/eval.scm 82 */
																								obj_t BgL_envz00_1927;

																								{	/* Eval/eval.scm 257 */
																									obj_t BgL_mz00_3088;

																									BgL_mz00_3088 =
																										BGl_evalzd2modulezd2zz__evmodulez00
																										();
																									if (BGl_evmodulezf3zf3zz__evmodulez00(BgL_mz00_3088))
																										{	/* Eval/eval.scm 258 */
																											BgL_envz00_1927 =
																												BgL_mz00_3088;
																										}
																									else
																										{	/* Eval/eval.scm 258 */
																											BgL_envz00_1927 =
																												BGl_symbol2677z00zz__evalz00;
																										}
																								}
																								{	/* Eval/eval.scm 82 */

																									{	/* Eval/eval.scm 176 */
																										obj_t BgL_evaluatez00_3090;

																										if (PROCEDUREP
																											(BGl_defaultzd2evaluatezd2zz__evalz00))
																											{	/* Eval/eval.scm 176 */
																												BgL_evaluatez00_3090 =
																													BGl_defaultzd2evaluatezd2zz__evalz00;
																											}
																										else
																											{	/* Eval/eval.scm 176 */
																												BgL_evaluatez00_3090 =
																													BGl_bytezd2codezd2evaluatezd2envzd2zz__evalz00;
																											}
																										{	/* Eval/eval.scm 179 */
																											obj_t BgL_auxz00_8257;

																											if (PROCEDUREP
																												(BgL_evaluatez00_3090))
																												{	/* Eval/eval.scm 179 */
																													BgL_auxz00_8257 =
																														BgL_evaluatez00_3090;
																												}
																											else
																												{
																													obj_t BgL_auxz00_8260;

																													BgL_auxz00_8260 =
																														BGl_typezd2errorzd2zz__errorz00
																														(BGl_string2674z00zz__evalz00,
																														BINT(6857L),
																														BGl_string2805z00zz__evalz00,
																														BGl_string2679z00zz__evalz00,
																														BgL_evaluatez00_3090);
																													FAILURE
																														(BgL_auxz00_8260,
																														BFALSE, BFALSE);
																												}
																											BgL_expdzd2evalzd2_1872 =
																												BGl_evalzf2expanderzf2zz__evalz00
																												(BgL_expdzd2lamzf2locz20_1871,
																												BgL_envz00_1927,
																												BGl_expandz12zd2envzc0zz__expandz00,
																												BgL_auxz00_8257);
																										}
																									}
																								}
																							}
																							{	/* Eval/eval.scm 670 */

																								{	/* Eval/eval.scm 671 */
																									obj_t
																										BgL_zc3z04anonymousza31736ze3z87_3697;
																									BgL_zc3z04anonymousza31736ze3z87_3697
																										=
																										MAKE_FX_PROCEDURE
																										(BGl_z62zc3z04anonymousza31736ze3ze5zz__evalz00,
																										(int) (2L), (int) (1L));
																									PROCEDURE_SET
																										(BgL_zc3z04anonymousza31736ze3z87_3697,
																										(int) (0L),
																										BgL_expdzd2evalzd2_1872);
																									BgL_arg1735z00_1869 =
																										BgL_zc3z04anonymousza31736ze3z87_3697;
																				}}}}}
																				BGl_installzd2expanderzd2zz__macroz00
																					(BgL_namez00_1842,
																					BgL_arg1735z00_1869);
																			}
																			return BUNSPEC;
																		}
																	}
																else
																	{	/* Eval/eval.scm 691 */
																		obj_t BgL_procz00_3156;

																		BgL_procz00_3156 =
																			BGl_symbol2814z00zz__evalz00;
																		if (EPAIRP(BgL_xz00_54))
																			{	/* Eval/eval.scm 547 */
																				obj_t BgL_arg1528z00_3158;

																				{	/* Eval/eval.scm 547 */
																					obj_t BgL_objz00_3159;

																					if (EPAIRP(BgL_xz00_54))
																						{	/* Eval/eval.scm 547 */
																							BgL_objz00_3159 = BgL_xz00_54;
																						}
																					else
																						{
																							obj_t BgL_auxz00_8278;

																							BgL_auxz00_8278 =
																								BGl_typezd2errorzd2zz__errorz00
																								(BGl_string2674z00zz__evalz00,
																								BINT(21769L),
																								BGl_string2816z00zz__evalz00,
																								BGl_string2739z00zz__evalz00,
																								BgL_xz00_54);
																							FAILURE(BgL_auxz00_8278, BFALSE,
																								BFALSE);
																						}
																					BgL_arg1528z00_3158 =
																						CER(BgL_objz00_3159);
																				}
																				return
																					BGl_everrorz00zz__everrorz00
																					(BgL_arg1528z00_3158,
																					BgL_procz00_3156,
																					BGl_string2817z00zz__evalz00,
																					BgL_xz00_54);
																			}
																		else
																			{	/* Eval/eval.scm 546 */
																				return
																					BGl_errorz00zz__errorz00
																					(BgL_procz00_3156,
																					BGl_string2817z00zz__evalz00,
																					BgL_xz00_54);
																			}
																	}
															}
														else
															{	/* Eval/eval.scm 691 */
																obj_t BgL_procz00_3160;

																BgL_procz00_3160 = BGl_symbol2814z00zz__evalz00;
																if (EPAIRP(BgL_xz00_54))
																	{	/* Eval/eval.scm 547 */
																		obj_t BgL_arg1528z00_3162;

																		{	/* Eval/eval.scm 547 */
																			obj_t BgL_objz00_3163;

																			if (EPAIRP(BgL_xz00_54))
																				{	/* Eval/eval.scm 547 */
																					BgL_objz00_3163 = BgL_xz00_54;
																				}
																			else
																				{
																					obj_t BgL_auxz00_8289;

																					BgL_auxz00_8289 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string2674z00zz__evalz00,
																						BINT(21769L),
																						BGl_string2816z00zz__evalz00,
																						BGl_string2739z00zz__evalz00,
																						BgL_xz00_54);
																					FAILURE(BgL_auxz00_8289, BFALSE,
																						BFALSE);
																				}
																			BgL_arg1528z00_3162 =
																				CER(BgL_objz00_3163);
																		}
																		return
																			BGl_everrorz00zz__everrorz00
																			(BgL_arg1528z00_3162, BgL_procz00_3160,
																			BGl_string2817z00zz__evalz00,
																			BgL_xz00_54);
																	}
																else
																	{	/* Eval/eval.scm 546 */
																		return
																			BGl_errorz00zz__errorz00(BgL_procz00_3160,
																			BGl_string2817z00zz__evalz00,
																			BgL_xz00_54);
																	}
															}
													}
												else
													{	/* Eval/eval.scm 691 */
														obj_t BgL_procz00_3164;

														BgL_procz00_3164 = BGl_symbol2814z00zz__evalz00;
														if (EPAIRP(BgL_xz00_54))
															{	/* Eval/eval.scm 547 */
																obj_t BgL_arg1528z00_3166;

																{	/* Eval/eval.scm 547 */
																	obj_t BgL_objz00_3167;

																	if (EPAIRP(BgL_xz00_54))
																		{	/* Eval/eval.scm 547 */
																			BgL_objz00_3167 = BgL_xz00_54;
																		}
																	else
																		{
																			obj_t BgL_auxz00_8300;

																			BgL_auxz00_8300 =
																				BGl_typezd2errorzd2zz__errorz00
																				(BGl_string2674z00zz__evalz00,
																				BINT(21769L),
																				BGl_string2816z00zz__evalz00,
																				BGl_string2739z00zz__evalz00,
																				BgL_xz00_54);
																			FAILURE(BgL_auxz00_8300, BFALSE, BFALSE);
																		}
																	BgL_arg1528z00_3166 = CER(BgL_objz00_3167);
																}
																return
																	BGl_everrorz00zz__everrorz00
																	(BgL_arg1528z00_3166, BgL_procz00_3164,
																	BGl_string2817z00zz__evalz00, BgL_xz00_54);
															}
														else
															{	/* Eval/eval.scm 546 */
																return
																	BGl_errorz00zz__errorz00(BgL_procz00_3164,
																	BGl_string2817z00zz__evalz00, BgL_xz00_54);
															}
													}
											}
										else
											{	/* Eval/eval.scm 691 */
												obj_t BgL_procz00_3168;

												BgL_procz00_3168 = BGl_symbol2814z00zz__evalz00;
												if (EPAIRP(BgL_xz00_54))
													{	/* Eval/eval.scm 547 */
														obj_t BgL_arg1528z00_3170;

														{	/* Eval/eval.scm 547 */
															obj_t BgL_objz00_3171;

															if (EPAIRP(BgL_xz00_54))
																{	/* Eval/eval.scm 547 */
																	BgL_objz00_3171 = BgL_xz00_54;
																}
															else
																{
																	obj_t BgL_auxz00_8311;

																	BgL_auxz00_8311 =
																		BGl_typezd2errorzd2zz__errorz00
																		(BGl_string2674z00zz__evalz00, BINT(21769L),
																		BGl_string2816z00zz__evalz00,
																		BGl_string2739z00zz__evalz00, BgL_xz00_54);
																	FAILURE(BgL_auxz00_8311, BFALSE, BFALSE);
																}
															BgL_arg1528z00_3170 = CER(BgL_objz00_3171);
														}
														return
															BGl_everrorz00zz__everrorz00(BgL_arg1528z00_3170,
															BgL_procz00_3168, BGl_string2817z00zz__evalz00,
															BgL_xz00_54);
													}
												else
													{	/* Eval/eval.scm 546 */
														return
															BGl_errorz00zz__errorz00(BgL_procz00_3168,
															BGl_string2817z00zz__evalz00, BgL_xz00_54);
													}
											}
									}
								else
									{	/* Eval/eval.scm 691 */
										obj_t BgL_procz00_3172;

										BgL_procz00_3172 = BGl_symbol2814z00zz__evalz00;
										if (EPAIRP(BgL_xz00_54))
											{	/* Eval/eval.scm 547 */
												obj_t BgL_arg1528z00_3174;

												{	/* Eval/eval.scm 547 */
													obj_t BgL_objz00_3175;

													if (EPAIRP(BgL_xz00_54))
														{	/* Eval/eval.scm 547 */
															BgL_objz00_3175 = BgL_xz00_54;
														}
													else
														{
															obj_t BgL_auxz00_8322;

															BgL_auxz00_8322 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string2674z00zz__evalz00, BINT(21769L),
																BGl_string2816z00zz__evalz00,
																BGl_string2739z00zz__evalz00, BgL_xz00_54);
															FAILURE(BgL_auxz00_8322, BFALSE, BFALSE);
														}
													BgL_arg1528z00_3174 = CER(BgL_objz00_3175);
												}
												return
													BGl_everrorz00zz__everrorz00(BgL_arg1528z00_3174,
													BgL_procz00_3172, BGl_string2817z00zz__evalz00,
													BgL_xz00_54);
											}
										else
											{	/* Eval/eval.scm 546 */
												return
													BGl_errorz00zz__errorz00(BgL_procz00_3172,
													BGl_string2817z00zz__evalz00, BgL_xz00_54);
											}
									}
							}
						else
							{	/* Eval/eval.scm 691 */
								obj_t BgL_procz00_3176;

								BgL_procz00_3176 = BGl_symbol2814z00zz__evalz00;
								if (EPAIRP(BgL_xz00_54))
									{	/* Eval/eval.scm 547 */
										obj_t BgL_arg1528z00_3178;

										{	/* Eval/eval.scm 547 */
											obj_t BgL_objz00_3179;

											if (EPAIRP(BgL_xz00_54))
												{	/* Eval/eval.scm 547 */
													BgL_objz00_3179 = BgL_xz00_54;
												}
											else
												{
													obj_t BgL_auxz00_8333;

													BgL_auxz00_8333 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2674z00zz__evalz00, BINT(21769L),
														BGl_string2816z00zz__evalz00,
														BGl_string2739z00zz__evalz00, BgL_xz00_54);
													FAILURE(BgL_auxz00_8333, BFALSE, BFALSE);
												}
											BgL_arg1528z00_3178 = CER(BgL_objz00_3179);
										}
										return
											BGl_everrorz00zz__everrorz00(BgL_arg1528z00_3178,
											BgL_procz00_3176, BGl_string2817z00zz__evalz00,
											BgL_xz00_54);
									}
								else
									{	/* Eval/eval.scm 546 */
										return
											BGl_errorz00zz__errorz00(BgL_procz00_3176,
											BGl_string2817z00zz__evalz00, BgL_xz00_54);
									}
							}
					}
				else
					{	/* Eval/eval.scm 691 */
						obj_t BgL_procz00_3180;

						BgL_procz00_3180 = BGl_symbol2814z00zz__evalz00;
						if (EPAIRP(BgL_xz00_54))
							{	/* Eval/eval.scm 547 */
								obj_t BgL_arg1528z00_3182;

								{	/* Eval/eval.scm 547 */
									obj_t BgL_objz00_3183;

									if (EPAIRP(BgL_xz00_54))
										{	/* Eval/eval.scm 547 */
											BgL_objz00_3183 = BgL_xz00_54;
										}
									else
										{
											obj_t BgL_auxz00_8344;

											BgL_auxz00_8344 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2674z00zz__evalz00, BINT(21769L),
												BGl_string2816z00zz__evalz00,
												BGl_string2739z00zz__evalz00, BgL_xz00_54);
											FAILURE(BgL_auxz00_8344, BFALSE, BFALSE);
										}
									BgL_arg1528z00_3182 = CER(BgL_objz00_3183);
								}
								return
									BGl_everrorz00zz__everrorz00(BgL_arg1528z00_3182,
									BgL_procz00_3180, BGl_string2817z00zz__evalz00, BgL_xz00_54);
							}
						else
							{	/* Eval/eval.scm 546 */
								return
									BGl_errorz00zz__errorz00(BgL_procz00_3180,
									BGl_string2817z00zz__evalz00, BgL_xz00_54);
							}
					}
			}
		}

	}



/* &expand-define-hygiene-macro */
	obj_t BGl_z62expandzd2definezd2hygienezd2macrozb0zz__evalz00(obj_t
		BgL_envz00_3698, obj_t BgL_xz00_3699, obj_t BgL_ez00_3700)
	{
		{	/* Eval/eval.scm 649 */
			return
				BGl_expandzd2definezd2hygienezd2macrozd2zz__evalz00(BgL_xz00_3699,
				BgL_ez00_3700);
		}

	}



/* &<@anonymous:1736> */
	obj_t BGl_z62zc3z04anonymousza31736ze3ze5zz__evalz00(obj_t BgL_envz00_3701,
		obj_t BgL_xz00_3703, obj_t BgL_ez00_3704)
	{
		{	/* Eval/eval.scm 671 */
			{	/* Eval/eval.scm 672 */
				obj_t BgL_expdzd2evalzd2_3702;

				BgL_expdzd2evalzd2_3702 = PROCEDURE_REF(BgL_envz00_3701, (int) (0L));
				{	/* Eval/eval.scm 672 */
					obj_t BgL_env1168z00_5488;

					BgL_env1168z00_5488 = BGL_CURRENT_DYNAMIC_ENV();
					{
						obj_t BgL_ez00_5490;

						{	/* Eval/eval.scm 672 */
							obj_t BgL_cell1163z00_5730;

							BgL_cell1163z00_5730 = MAKE_STACK_CELL(BUNSPEC);
							{	/* Eval/eval.scm 672 */
								obj_t BgL_val1167z00_5731;

								BgL_val1167z00_5731 =
									BGl_zc3z04exitza31740ze3ze70z60zz__evalz00(BgL_ez00_3704,
									BgL_xz00_3703, BgL_expdzd2evalzd2_3702, BgL_cell1163z00_5730,
									BgL_env1168z00_5488);
								if ((BgL_val1167z00_5731 == BgL_cell1163z00_5730))
									{	/* Eval/eval.scm 672 */
										{	/* Eval/eval.scm 672 */
											int BgL_tmpz00_8359;

											BgL_tmpz00_8359 = (int) (0L);
											BGL_SIGSETMASK(BgL_tmpz00_8359);
										}
										{	/* Eval/eval.scm 672 */
											obj_t BgL_arg1739z00_5732;

											BgL_arg1739z00_5732 =
												CELL_REF(((obj_t) BgL_val1167z00_5731));
											BgL_ez00_5490 = BgL_arg1739z00_5732;
											{	/* Eval/eval.scm 674 */
												obj_t BgL_nez00_5491;

												{	/* Eval/eval.scm 674 */
													bool_t BgL_test3426z00_8364;

													{	/* Eval/eval.scm 674 */
														obj_t BgL_classz00_5492;

														BgL_classz00_5492 = BGl_z62errorz62zz__objectz00;
														if (BGL_OBJECTP(BgL_ez00_5490))
															{	/* Eval/eval.scm 674 */
																BgL_objectz00_bglt BgL_arg2248z00_5493;

																BgL_arg2248z00_5493 =
																	(BgL_objectz00_bglt) (BgL_ez00_5490);
																if (BGL_CONDEXPAND_ISA_ARCH64())
																	{	/* Eval/eval.scm 674 */
																		long BgL_idxz00_5494;

																		BgL_idxz00_5494 =
																			BGL_OBJECT_INHERITANCE_NUM
																			(BgL_arg2248z00_5493);
																		{	/* Eval/eval.scm 674 */
																			obj_t BgL_arg2240z00_5495;

																			{	/* Eval/eval.scm 674 */
																				long BgL_arg2241z00_5496;

																				BgL_arg2241z00_5496 =
																					(BgL_idxz00_5494 + 3L);
																				{	/* Eval/eval.scm 674 */
																					obj_t BgL_vectorz00_5497;

																					{	/* Eval/eval.scm 674 */
																						obj_t BgL_aux2603z00_5498;

																						BgL_aux2603z00_5498 =
																							BGl_za2inheritancesza2z00zz__objectz00;
																						if (VECTORP(BgL_aux2603z00_5498))
																							{	/* Eval/eval.scm 674 */
																								BgL_vectorz00_5497 =
																									BgL_aux2603z00_5498;
																							}
																						else
																							{
																								obj_t BgL_auxz00_8374;

																								BgL_auxz00_8374 =
																									BGl_typezd2errorzd2zz__errorz00
																									(BGl_string2674z00zz__evalz00,
																									BINT(25726L),
																									BGl_string2818z00zz__evalz00,
																									BGl_string2676z00zz__evalz00,
																									BgL_aux2603z00_5498);
																								FAILURE(BgL_auxz00_8374, BFALSE,
																									BFALSE);
																							}
																					}
																					BgL_arg2240z00_5495 =
																						VECTOR_REF(BgL_vectorz00_5497,
																						BgL_arg2241z00_5496);
																				}
																			}
																			BgL_test3426z00_8364 =
																				(BgL_arg2240z00_5495 ==
																				BgL_classz00_5492);
																		}
																	}
																else
																	{	/* Eval/eval.scm 674 */
																		bool_t BgL_res2267z00_5499;

																		{	/* Eval/eval.scm 674 */
																			obj_t BgL_oclassz00_5500;

																			{	/* Eval/eval.scm 674 */
																				obj_t BgL_arg2255z00_5501;
																				long BgL_arg2256z00_5502;

																				BgL_arg2255z00_5501 =
																					(BGl_za2classesza2z00zz__objectz00);
																				{	/* Eval/eval.scm 674 */
																					long BgL_arg2257z00_5503;

																					BgL_arg2257z00_5503 =
																						BGL_OBJECT_CLASS_NUM
																						(BgL_arg2248z00_5493);
																					BgL_arg2256z00_5502 =
																						(BgL_arg2257z00_5503 - OBJECT_TYPE);
																				}
																				BgL_oclassz00_5500 =
																					VECTOR_REF(BgL_arg2255z00_5501,
																					BgL_arg2256z00_5502);
																			}
																			{	/* Eval/eval.scm 674 */
																				bool_t BgL__ortest_1235z00_5504;

																				BgL__ortest_1235z00_5504 =
																					(BgL_classz00_5492 ==
																					BgL_oclassz00_5500);
																				if (BgL__ortest_1235z00_5504)
																					{	/* Eval/eval.scm 674 */
																						BgL_res2267z00_5499 =
																							BgL__ortest_1235z00_5504;
																					}
																				else
																					{	/* Eval/eval.scm 674 */
																						long BgL_odepthz00_5505;

																						{	/* Eval/eval.scm 674 */
																							obj_t BgL_arg2245z00_5506;

																							BgL_arg2245z00_5506 =
																								(BgL_oclassz00_5500);
																							BgL_odepthz00_5505 =
																								BGL_CLASS_DEPTH
																								(BgL_arg2245z00_5506);
																						}
																						if ((3L < BgL_odepthz00_5505))
																							{	/* Eval/eval.scm 674 */
																								obj_t BgL_arg2242z00_5507;

																								{	/* Eval/eval.scm 674 */
																									obj_t BgL_arg2243z00_5508;

																									BgL_arg2243z00_5508 =
																										(BgL_oclassz00_5500);
																									BgL_arg2242z00_5507 =
																										BGL_CLASS_ANCESTORS_REF
																										(BgL_arg2243z00_5508, 3L);
																								}
																								BgL_res2267z00_5499 =
																									(BgL_arg2242z00_5507 ==
																									BgL_classz00_5492);
																							}
																						else
																							{	/* Eval/eval.scm 674 */
																								BgL_res2267z00_5499 =
																									((bool_t) 0);
																							}
																					}
																			}
																		}
																		BgL_test3426z00_8364 = BgL_res2267z00_5499;
																	}
															}
														else
															{	/* Eval/eval.scm 674 */
																BgL_test3426z00_8364 = ((bool_t) 0);
															}
													}
													if (BgL_test3426z00_8364)
														{	/* Eval/eval.scm 675 */
															BgL_z62errorz62_bglt BgL_i1169z00_5509;

															{	/* Eval/eval.scm 676 */
																bool_t BgL_test3432z00_8393;

																{	/* Eval/eval.scm 676 */
																	obj_t BgL_classz00_5510;

																	BgL_classz00_5510 =
																		BGl_z62errorz62zz__objectz00;
																	if (BGL_OBJECTP(BgL_ez00_5490))
																		{	/* Eval/eval.scm 676 */
																			BgL_objectz00_bglt BgL_arg2250z00_5512;
																			long BgL_arg2251z00_5513;

																			BgL_arg2250z00_5512 =
																				(BgL_objectz00_bglt) (BgL_ez00_5490);
																			BgL_arg2251z00_5513 =
																				BGL_CLASS_DEPTH(BgL_classz00_5510);
																			if (BGL_CONDEXPAND_ISA_ARCH64())
																				{	/* Eval/eval.scm 676 */
																					long BgL_idxz00_5521;

																					BgL_idxz00_5521 =
																						BGL_OBJECT_INHERITANCE_NUM
																						(BgL_arg2250z00_5512);
																					{	/* Eval/eval.scm 676 */
																						obj_t BgL_arg2240z00_5522;

																						{	/* Eval/eval.scm 676 */
																							long BgL_arg2241z00_5523;

																							BgL_arg2241z00_5523 =
																								(BgL_idxz00_5521 +
																								BgL_arg2251z00_5513);
																							BgL_arg2240z00_5522 =
																								VECTOR_REF
																								(BGl_za2inheritancesza2z00zz__objectz00,
																								BgL_arg2241z00_5523);
																						}
																						BgL_test3432z00_8393 =
																							(BgL_arg2240z00_5522 ==
																							BgL_classz00_5510);
																				}}
																			else
																				{	/* Eval/eval.scm 676 */
																					bool_t BgL_res2270z00_5528;

																					{	/* Eval/eval.scm 676 */
																						obj_t BgL_oclassz00_5532;

																						{	/* Eval/eval.scm 676 */
																							obj_t BgL_arg2255z00_5534;
																							long BgL_arg2256z00_5535;

																							BgL_arg2255z00_5534 =
																								(BGl_za2classesza2z00zz__objectz00);
																							{	/* Eval/eval.scm 676 */
																								long BgL_arg2257z00_5536;

																								BgL_arg2257z00_5536 =
																									BGL_OBJECT_CLASS_NUM
																									(BgL_arg2250z00_5512);
																								BgL_arg2256z00_5535 =
																									(BgL_arg2257z00_5536 -
																									OBJECT_TYPE);
																							}
																							BgL_oclassz00_5532 =
																								VECTOR_REF(BgL_arg2255z00_5534,
																								BgL_arg2256z00_5535);
																						}
																						{	/* Eval/eval.scm 676 */
																							bool_t BgL__ortest_1235z00_5542;

																							BgL__ortest_1235z00_5542 =
																								(BgL_classz00_5510 ==
																								BgL_oclassz00_5532);
																							if (BgL__ortest_1235z00_5542)
																								{	/* Eval/eval.scm 676 */
																									BgL_res2270z00_5528 =
																										BgL__ortest_1235z00_5542;
																								}
																							else
																								{	/* Eval/eval.scm 676 */
																									long BgL_odepthz00_5543;

																									{	/* Eval/eval.scm 676 */
																										obj_t BgL_arg2245z00_5544;

																										BgL_arg2245z00_5544 =
																											(BgL_oclassz00_5532);
																										BgL_odepthz00_5543 =
																											BGL_CLASS_DEPTH
																											(BgL_arg2245z00_5544);
																									}
																									if (
																										(BgL_arg2251z00_5513 <
																											BgL_odepthz00_5543))
																										{	/* Eval/eval.scm 676 */
																											obj_t BgL_arg2242z00_5548;

																											{	/* Eval/eval.scm 676 */
																												obj_t
																													BgL_arg2243z00_5549;
																												BgL_arg2243z00_5549 =
																													(BgL_oclassz00_5532);
																												BgL_arg2242z00_5548 =
																													BGL_CLASS_ANCESTORS_REF
																													(BgL_arg2243z00_5549,
																													BgL_arg2251z00_5513);
																											}
																											BgL_res2270z00_5528 =
																												(BgL_arg2242z00_5548 ==
																												BgL_classz00_5510);
																										}
																									else
																										{	/* Eval/eval.scm 676 */
																											BgL_res2270z00_5528 =
																												((bool_t) 0);
																										}
																								}
																						}
																					}
																					BgL_test3432z00_8393 =
																						BgL_res2270z00_5528;
																				}
																		}
																	else
																		{	/* Eval/eval.scm 676 */
																			BgL_test3432z00_8393 = ((bool_t) 0);
																		}
																}
																if (BgL_test3432z00_8393)
																	{	/* Eval/eval.scm 676 */
																		BgL_i1169z00_5509 =
																			((BgL_z62errorz62_bglt) BgL_ez00_5490);
																	}
																else
																	{
																		obj_t BgL_auxz00_8418;

																		BgL_auxz00_8418 =
																			BGl_typezd2errorzd2zz__errorz00
																			(BGl_string2674z00zz__evalz00,
																			BINT(25785L),
																			BGl_string2818z00zz__evalz00,
																			BGl_string2717z00zz__evalz00,
																			BgL_ez00_5490);
																		FAILURE(BgL_auxz00_8418, BFALSE, BFALSE);
																	}
															}
															{	/* Eval/eval.scm 676 */
																bool_t BgL_test3437z00_8422;

																{	/* Eval/eval.scm 676 */
																	obj_t BgL_tmpz00_8423;

																	BgL_tmpz00_8423 =
																		(((BgL_z62errorz62_bglt)
																			COBJECT(BgL_i1169z00_5509))->BgL_objz00);
																	BgL_test3437z00_8422 =
																		EPAIRP(BgL_tmpz00_8423);
																}
																if (BgL_test3437z00_8422)
																	{
																		obj_t BgL_fnamez00_5551;
																		obj_t BgL_locz00_5552;

																		{	/* Eval/eval.scm 677 */
																			obj_t BgL_ezd2363zd2_5723;

																			{	/* Eval/eval.scm 677 */
																				obj_t BgL_objz00_5724;

																				{	/* Eval/eval.scm 677 */
																					obj_t BgL_aux2618z00_5725;

																					BgL_aux2618z00_5725 =
																						(((BgL_z62errorz62_bglt)
																							COBJECT(BgL_i1169z00_5509))->
																						BgL_objz00);
																					if (EPAIRP(BgL_aux2618z00_5725))
																						{	/* Eval/eval.scm 677 */
																							BgL_objz00_5724 =
																								BgL_aux2618z00_5725;
																						}
																					else
																						{
																							obj_t BgL_auxz00_8429;

																							BgL_auxz00_8429 =
																								BGl_typezd2errorzd2zz__errorz00
																								(BGl_string2674z00zz__evalz00,
																								BINT(25823L),
																								BGl_string2818z00zz__evalz00,
																								BGl_string2739z00zz__evalz00,
																								BgL_aux2618z00_5725);
																							FAILURE(BgL_auxz00_8429, BFALSE,
																								BFALSE);
																						}
																				}
																				BgL_ezd2363zd2_5723 =
																					CER(BgL_objz00_5724);
																			}
																			if (PAIRP(BgL_ezd2363zd2_5723))
																				{	/* Eval/eval.scm 677 */
																					obj_t BgL_cdrzd2369zd2_5726;

																					BgL_cdrzd2369zd2_5726 =
																						CDR(BgL_ezd2363zd2_5723);
																					if (
																						(CAR(BgL_ezd2363zd2_5723) ==
																							BGl_symbol2688z00zz__evalz00))
																						{	/* Eval/eval.scm 677 */
																							if (PAIRP(BgL_cdrzd2369zd2_5726))
																								{	/* Eval/eval.scm 677 */
																									obj_t BgL_cdrzd2373zd2_5727;

																									BgL_cdrzd2373zd2_5727 =
																										CDR(BgL_cdrzd2369zd2_5726);
																									if (PAIRP
																										(BgL_cdrzd2373zd2_5727))
																										{	/* Eval/eval.scm 677 */
																											if (NULLP(CDR
																													(BgL_cdrzd2373zd2_5727)))
																												{	/* Eval/eval.scm 677 */
																													obj_t
																														BgL_arg1756z00_5728;
																													obj_t
																														BgL_arg1757z00_5729;
																													BgL_arg1756z00_5728 =
																														CAR
																														(BgL_cdrzd2369zd2_5726);
																													BgL_arg1757z00_5729 =
																														CAR
																														(BgL_cdrzd2373zd2_5727);
																													{
																														BgL_z62errorz62_bglt
																															BgL_auxz00_8450;
																														BgL_fnamez00_5551 =
																															BgL_arg1756z00_5728;
																														BgL_locz00_5552 =
																															BgL_arg1757z00_5729;
																														{	/* Eval/eval.scm 679 */
																															BgL_z62exceptionz62_bglt
																																BgL_duplicated1172z00_5553;
																															BgL_z62errorz62_bglt
																																BgL_new1170z00_5554;
																															{	/* Eval/eval.scm 680 */
																																bool_t
																																	BgL_test3444z00_8451;
																																{	/* Eval/eval.scm 680 */
																																	obj_t
																																		BgL_classz00_5555;
																																	BgL_classz00_5555
																																		=
																																		BGl_z62exceptionz62zz__objectz00;
																																	if (BGL_OBJECTP(BgL_ez00_5490))
																																		{	/* Eval/eval.scm 680 */
																																			BgL_objectz00_bglt
																																				BgL_arg2250z00_5557;
																																			long
																																				BgL_arg2251z00_5558;
																																			BgL_arg2250z00_5557
																																				=
																																				(BgL_objectz00_bglt)
																																				(BgL_ez00_5490);
																																			BgL_arg2251z00_5558
																																				=
																																				BGL_CLASS_DEPTH
																																				(BgL_classz00_5555);
																																			if (BGL_CONDEXPAND_ISA_ARCH64())
																																				{	/* Eval/eval.scm 680 */
																																					long
																																						BgL_idxz00_5566;
																																					BgL_idxz00_5566
																																						=
																																						BGL_OBJECT_INHERITANCE_NUM
																																						(BgL_arg2250z00_5557);
																																					{	/* Eval/eval.scm 680 */
																																						obj_t
																																							BgL_arg2240z00_5567;
																																						{	/* Eval/eval.scm 680 */
																																							long
																																								BgL_arg2241z00_5568;
																																							BgL_arg2241z00_5568
																																								=
																																								(BgL_idxz00_5566
																																								+
																																								BgL_arg2251z00_5558);
																																							BgL_arg2240z00_5567
																																								=
																																								VECTOR_REF
																																								(BGl_za2inheritancesza2z00zz__objectz00,
																																								BgL_arg2241z00_5568);
																																						}
																																						BgL_test3444z00_8451
																																							=
																																							(BgL_arg2240z00_5567
																																							==
																																							BgL_classz00_5555);
																																				}}
																																			else
																																				{	/* Eval/eval.scm 680 */
																																					bool_t
																																						BgL_res2270z00_5573;
																																					{	/* Eval/eval.scm 680 */
																																						obj_t
																																							BgL_oclassz00_5577;
																																						{	/* Eval/eval.scm 680 */
																																							obj_t
																																								BgL_arg2255z00_5579;
																																							long
																																								BgL_arg2256z00_5580;
																																							BgL_arg2255z00_5579
																																								=
																																								(BGl_za2classesza2z00zz__objectz00);
																																							{	/* Eval/eval.scm 680 */
																																								long
																																									BgL_arg2257z00_5581;
																																								BgL_arg2257z00_5581
																																									=
																																									BGL_OBJECT_CLASS_NUM
																																									(BgL_arg2250z00_5557);
																																								BgL_arg2256z00_5580
																																									=
																																									(BgL_arg2257z00_5581
																																									-
																																									OBJECT_TYPE);
																																							}
																																							BgL_oclassz00_5577
																																								=
																																								VECTOR_REF
																																								(BgL_arg2255z00_5579,
																																								BgL_arg2256z00_5580);
																																						}
																																						{	/* Eval/eval.scm 680 */
																																							bool_t
																																								BgL__ortest_1235z00_5587;
																																							BgL__ortest_1235z00_5587
																																								=
																																								(BgL_classz00_5555
																																								==
																																								BgL_oclassz00_5577);
																																							if (BgL__ortest_1235z00_5587)
																																								{	/* Eval/eval.scm 680 */
																																									BgL_res2270z00_5573
																																										=
																																										BgL__ortest_1235z00_5587;
																																								}
																																							else
																																								{	/* Eval/eval.scm 680 */
																																									long
																																										BgL_odepthz00_5588;
																																									{	/* Eval/eval.scm 680 */
																																										obj_t
																																											BgL_arg2245z00_5589;
																																										BgL_arg2245z00_5589
																																											=
																																											(BgL_oclassz00_5577);
																																										BgL_odepthz00_5588
																																											=
																																											BGL_CLASS_DEPTH
																																											(BgL_arg2245z00_5589);
																																									}
																																									if ((BgL_arg2251z00_5558 < BgL_odepthz00_5588))
																																										{	/* Eval/eval.scm 680 */
																																											obj_t
																																												BgL_arg2242z00_5593;
																																											{	/* Eval/eval.scm 680 */
																																												obj_t
																																													BgL_arg2243z00_5594;
																																												BgL_arg2243z00_5594
																																													=
																																													(BgL_oclassz00_5577);
																																												BgL_arg2242z00_5593
																																													=
																																													BGL_CLASS_ANCESTORS_REF
																																													(BgL_arg2243z00_5594,
																																													BgL_arg2251z00_5558);
																																											}
																																											BgL_res2270z00_5573
																																												=
																																												(BgL_arg2242z00_5593
																																												==
																																												BgL_classz00_5555);
																																										}
																																									else
																																										{	/* Eval/eval.scm 680 */
																																											BgL_res2270z00_5573
																																												=
																																												(
																																												(bool_t)
																																												0);
																																										}
																																								}
																																						}
																																					}
																																					BgL_test3444z00_8451
																																						=
																																						BgL_res2270z00_5573;
																																				}
																																		}
																																	else
																																		{	/* Eval/eval.scm 680 */
																																			BgL_test3444z00_8451
																																				=
																																				(
																																				(bool_t)
																																				0);
																																		}
																																}
																																if (BgL_test3444z00_8451)
																																	{	/* Eval/eval.scm 680 */
																																		BgL_duplicated1172z00_5553
																																			=
																																			(
																																			(BgL_z62exceptionz62_bglt)
																																			BgL_ez00_5490);
																																	}
																																else
																																	{
																																		obj_t
																																			BgL_auxz00_8476;
																																		BgL_auxz00_8476
																																			=
																																			BGl_typezd2errorzd2zz__errorz00
																																			(BGl_string2674z00zz__evalz00,
																																			BINT
																																			(25899L),
																																			BGl_string2819z00zz__evalz00,
																																			BGl_string2687z00zz__evalz00,
																																			BgL_ez00_5490);
																																		FAILURE
																																			(BgL_auxz00_8476,
																																			BFALSE,
																																			BFALSE);
																																	}
																															}
																															{	/* Eval/eval.scm 680 */
																																BgL_z62errorz62_bglt
																																	BgL_new1176z00_5595;
																																BgL_new1176z00_5595
																																	=
																																	(
																																	(BgL_z62errorz62_bglt)
																																	BOBJECT
																																	(GC_MALLOC
																																		(sizeof
																																			(struct
																																				BgL_z62errorz62_bgl))));
																																{	/* Eval/eval.scm 680 */
																																	long
																																		BgL_arg1761z00_5596;
																																	BgL_arg1761z00_5596
																																		=
																																		BGL_CLASS_NUM
																																		(BGl_z62errorz62zz__objectz00);
																																	BGL_OBJECT_CLASS_NUM_SET
																																		(((BgL_objectz00_bglt) BgL_new1176z00_5595), BgL_arg1761z00_5596);
																																}
																																BgL_new1170z00_5554
																																	=
																																	BgL_new1176z00_5595;
																															}
																															((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1170z00_5554)))->BgL_fnamez00) = ((obj_t) BgL_fnamez00_5551), BUNSPEC);
																															((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1170z00_5554)))->BgL_locationz00) = ((obj_t) BgL_locz00_5552), BUNSPEC);
																															((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1170z00_5554)))->BgL_stackz00) = ((obj_t) (((BgL_z62exceptionz62_bglt) COBJECT(BgL_duplicated1172z00_5553))->BgL_stackz00)), BUNSPEC);
																															{
																																obj_t
																																	BgL_auxz00_8491;
																																{	/* Eval/eval.scm 681 */
																																	BgL_z62errorz62_bglt
																																		BgL_tmp1173z00_5597;
																																	{	/* Eval/eval.scm 681 */
																																		bool_t
																																			BgL_test3449z00_8492;
																																		{	/* Eval/eval.scm 681 */
																																			obj_t
																																				BgL_classz00_5599;
																																			BgL_classz00_5599
																																				=
																																				BGl_z62errorz62zz__objectz00;
																																			{	/* Eval/eval.scm 681 */
																																				bool_t
																																					BgL_test3450z00_8493;
																																				{	/* Eval/eval.scm 681 */
																																					obj_t
																																						BgL_tmpz00_8494;
																																					BgL_tmpz00_8494
																																						=
																																						(
																																						(obj_t)
																																						BgL_duplicated1172z00_5553);
																																					BgL_test3450z00_8493
																																						=
																																						BGL_OBJECTP
																																						(BgL_tmpz00_8494);
																																				}
																																				if (BgL_test3450z00_8493)
																																					{	/* Eval/eval.scm 681 */
																																						BgL_objectz00_bglt
																																							BgL_arg2250z00_5601;
																																						long
																																							BgL_arg2251z00_5602;
																																						{	/* Eval/eval.scm 681 */
																																							obj_t
																																								BgL_tmpz00_8497;
																																							BgL_tmpz00_8497
																																								=
																																								(
																																								(obj_t)
																																								BgL_duplicated1172z00_5553);
																																							BgL_arg2250z00_5601
																																								=
																																								(BgL_objectz00_bglt)
																																								(BgL_tmpz00_8497);
																																						}
																																						BgL_arg2251z00_5602
																																							=
																																							BGL_CLASS_DEPTH
																																							(BgL_classz00_5599);
																																						if (BGL_CONDEXPAND_ISA_ARCH64())
																																							{	/* Eval/eval.scm 681 */
																																								long
																																									BgL_idxz00_5610;
																																								BgL_idxz00_5610
																																									=
																																									BGL_OBJECT_INHERITANCE_NUM
																																									(BgL_arg2250z00_5601);
																																								{	/* Eval/eval.scm 681 */
																																									obj_t
																																										BgL_arg2240z00_5611;
																																									{	/* Eval/eval.scm 681 */
																																										long
																																											BgL_arg2241z00_5612;
																																										BgL_arg2241z00_5612
																																											=
																																											(BgL_idxz00_5610
																																											+
																																											BgL_arg2251z00_5602);
																																										{	/* Eval/eval.scm 681 */
																																											obj_t
																																												BgL_vectorz00_5615;
																																											BgL_vectorz00_5615
																																												=
																																												BGl_za2inheritancesza2z00zz__objectz00;
																																											BgL_arg2240z00_5611
																																												=
																																												VECTOR_REF
																																												(BgL_vectorz00_5615,
																																												BgL_arg2241z00_5612);
																																									}}
																																									BgL_test3449z00_8492
																																										=
																																										(BgL_arg2240z00_5611
																																										==
																																										BgL_classz00_5599);
																																							}}
																																						else
																																							{	/* Eval/eval.scm 681 */
																																								bool_t
																																									BgL_res2270z00_5617;
																																								{	/* Eval/eval.scm 681 */
																																									obj_t
																																										BgL_oclassz00_5621;
																																									{	/* Eval/eval.scm 681 */
																																										obj_t
																																											BgL_arg2255z00_5623;
																																										long
																																											BgL_arg2256z00_5624;
																																										BgL_arg2255z00_5623
																																											=
																																											(BGl_za2classesza2z00zz__objectz00);
																																										{	/* Eval/eval.scm 681 */
																																											long
																																												BgL_arg2257z00_5625;
																																											BgL_arg2257z00_5625
																																												=
																																												BGL_OBJECT_CLASS_NUM
																																												(BgL_arg2250z00_5601);
																																											BgL_arg2256z00_5624
																																												=
																																												(BgL_arg2257z00_5625
																																												-
																																												OBJECT_TYPE);
																																										}
																																										BgL_oclassz00_5621
																																											=
																																											VECTOR_REF
																																											(BgL_arg2255z00_5623,
																																											BgL_arg2256z00_5624);
																																									}
																																									{	/* Eval/eval.scm 681 */
																																										bool_t
																																											BgL__ortest_1235z00_5631;
																																										BgL__ortest_1235z00_5631
																																											=
																																											(BgL_classz00_5599
																																											==
																																											BgL_oclassz00_5621);
																																										if (BgL__ortest_1235z00_5631)
																																											{	/* Eval/eval.scm 681 */
																																												BgL_res2270z00_5617
																																													=
																																													BgL__ortest_1235z00_5631;
																																											}
																																										else
																																											{	/* Eval/eval.scm 681 */
																																												long
																																													BgL_odepthz00_5632;
																																												{	/* Eval/eval.scm 681 */
																																													obj_t
																																														BgL_arg2245z00_5633;
																																													BgL_arg2245z00_5633
																																														=
																																														(BgL_oclassz00_5621);
																																													BgL_odepthz00_5632
																																														=
																																														BGL_CLASS_DEPTH
																																														(BgL_arg2245z00_5633);
																																												}
																																												if ((BgL_arg2251z00_5602 < BgL_odepthz00_5632))
																																													{	/* Eval/eval.scm 681 */
																																														obj_t
																																															BgL_arg2242z00_5637;
																																														{	/* Eval/eval.scm 681 */
																																															obj_t
																																																BgL_arg2243z00_5638;
																																															BgL_arg2243z00_5638
																																																=
																																																(BgL_oclassz00_5621);
																																															BgL_arg2242z00_5637
																																																=
																																																BGL_CLASS_ANCESTORS_REF
																																																(BgL_arg2243z00_5638,
																																																BgL_arg2251z00_5602);
																																														}
																																														BgL_res2270z00_5617
																																															=
																																															(BgL_arg2242z00_5637
																																															==
																																															BgL_classz00_5599);
																																													}
																																												else
																																													{	/* Eval/eval.scm 681 */
																																														BgL_res2270z00_5617
																																															=
																																															(
																																															(bool_t)
																																															0);
																																													}
																																											}
																																									}
																																								}
																																								BgL_test3449z00_8492
																																									=
																																									BgL_res2270z00_5617;
																																							}
																																					}
																																				else
																																					{	/* Eval/eval.scm 681 */
																																						BgL_test3449z00_8492
																																							=
																																							(
																																							(bool_t)
																																							0);
																																					}
																																			}
																																		}
																																		if (BgL_test3449z00_8492)
																																			{	/* Eval/eval.scm 681 */
																																				BgL_tmp1173z00_5597
																																					=
																																					(
																																					(BgL_z62errorz62_bglt)
																																					BgL_duplicated1172z00_5553);
																																			}
																																		else
																																			{
																																				obj_t
																																					BgL_auxz00_8521;
																																				BgL_auxz00_8521
																																					=
																																					BGl_typezd2errorzd2zz__errorz00
																																					(BGl_string2674z00zz__evalz00,
																																					BINT
																																					(25922L),
																																					BGl_string2819z00zz__evalz00,
																																					BGl_string2717z00zz__evalz00,
																																					((obj_t) BgL_duplicated1172z00_5553));
																																				FAILURE
																																					(BgL_auxz00_8521,
																																					BFALSE,
																																					BFALSE);
																																			}
																																	}
																																	BgL_auxz00_8491
																																		=
																																		(((BgL_z62errorz62_bglt) COBJECT(BgL_tmp1173z00_5597))->BgL_procz00);
																																}
																																((((BgL_z62errorz62_bglt) COBJECT(BgL_new1170z00_5554))->BgL_procz00) = ((obj_t) BgL_auxz00_8491), BUNSPEC);
																															}
																															{
																																obj_t
																																	BgL_auxz00_8528;
																																{	/* Eval/eval.scm 681 */
																																	BgL_z62errorz62_bglt
																																		BgL_tmp1174z00_5639;
																																	{	/* Eval/eval.scm 681 */
																																		bool_t
																																			BgL_test3454z00_8529;
																																		{	/* Eval/eval.scm 681 */
																																			obj_t
																																				BgL_classz00_5641;
																																			BgL_classz00_5641
																																				=
																																				BGl_z62errorz62zz__objectz00;
																																			{	/* Eval/eval.scm 681 */
																																				bool_t
																																					BgL_test3455z00_8530;
																																				{	/* Eval/eval.scm 681 */
																																					obj_t
																																						BgL_tmpz00_8531;
																																					BgL_tmpz00_8531
																																						=
																																						(
																																						(obj_t)
																																						BgL_duplicated1172z00_5553);
																																					BgL_test3455z00_8530
																																						=
																																						BGL_OBJECTP
																																						(BgL_tmpz00_8531);
																																				}
																																				if (BgL_test3455z00_8530)
																																					{	/* Eval/eval.scm 681 */
																																						BgL_objectz00_bglt
																																							BgL_arg2250z00_5643;
																																						long
																																							BgL_arg2251z00_5644;
																																						{	/* Eval/eval.scm 681 */
																																							obj_t
																																								BgL_tmpz00_8534;
																																							BgL_tmpz00_8534
																																								=
																																								(
																																								(obj_t)
																																								BgL_duplicated1172z00_5553);
																																							BgL_arg2250z00_5643
																																								=
																																								(BgL_objectz00_bglt)
																																								(BgL_tmpz00_8534);
																																						}
																																						BgL_arg2251z00_5644
																																							=
																																							BGL_CLASS_DEPTH
																																							(BgL_classz00_5641);
																																						if (BGL_CONDEXPAND_ISA_ARCH64())
																																							{	/* Eval/eval.scm 681 */
																																								long
																																									BgL_idxz00_5652;
																																								BgL_idxz00_5652
																																									=
																																									BGL_OBJECT_INHERITANCE_NUM
																																									(BgL_arg2250z00_5643);
																																								{	/* Eval/eval.scm 681 */
																																									obj_t
																																										BgL_arg2240z00_5653;
																																									{	/* Eval/eval.scm 681 */
																																										long
																																											BgL_arg2241z00_5654;
																																										BgL_arg2241z00_5654
																																											=
																																											(BgL_idxz00_5652
																																											+
																																											BgL_arg2251z00_5644);
																																										{	/* Eval/eval.scm 681 */
																																											obj_t
																																												BgL_vectorz00_5657;
																																											BgL_vectorz00_5657
																																												=
																																												BGl_za2inheritancesza2z00zz__objectz00;
																																											BgL_arg2240z00_5653
																																												=
																																												VECTOR_REF
																																												(BgL_vectorz00_5657,
																																												BgL_arg2241z00_5654);
																																									}}
																																									BgL_test3454z00_8529
																																										=
																																										(BgL_arg2240z00_5653
																																										==
																																										BgL_classz00_5641);
																																							}}
																																						else
																																							{	/* Eval/eval.scm 681 */
																																								bool_t
																																									BgL_res2270z00_5659;
																																								{	/* Eval/eval.scm 681 */
																																									obj_t
																																										BgL_oclassz00_5663;
																																									{	/* Eval/eval.scm 681 */
																																										obj_t
																																											BgL_arg2255z00_5665;
																																										long
																																											BgL_arg2256z00_5666;
																																										BgL_arg2255z00_5665
																																											=
																																											(BGl_za2classesza2z00zz__objectz00);
																																										{	/* Eval/eval.scm 681 */
																																											long
																																												BgL_arg2257z00_5667;
																																											BgL_arg2257z00_5667
																																												=
																																												BGL_OBJECT_CLASS_NUM
																																												(BgL_arg2250z00_5643);
																																											BgL_arg2256z00_5666
																																												=
																																												(BgL_arg2257z00_5667
																																												-
																																												OBJECT_TYPE);
																																										}
																																										BgL_oclassz00_5663
																																											=
																																											VECTOR_REF
																																											(BgL_arg2255z00_5665,
																																											BgL_arg2256z00_5666);
																																									}
																																									{	/* Eval/eval.scm 681 */
																																										bool_t
																																											BgL__ortest_1235z00_5673;
																																										BgL__ortest_1235z00_5673
																																											=
																																											(BgL_classz00_5641
																																											==
																																											BgL_oclassz00_5663);
																																										if (BgL__ortest_1235z00_5673)
																																											{	/* Eval/eval.scm 681 */
																																												BgL_res2270z00_5659
																																													=
																																													BgL__ortest_1235z00_5673;
																																											}
																																										else
																																											{	/* Eval/eval.scm 681 */
																																												long
																																													BgL_odepthz00_5674;
																																												{	/* Eval/eval.scm 681 */
																																													obj_t
																																														BgL_arg2245z00_5675;
																																													BgL_arg2245z00_5675
																																														=
																																														(BgL_oclassz00_5663);
																																													BgL_odepthz00_5674
																																														=
																																														BGL_CLASS_DEPTH
																																														(BgL_arg2245z00_5675);
																																												}
																																												if ((BgL_arg2251z00_5644 < BgL_odepthz00_5674))
																																													{	/* Eval/eval.scm 681 */
																																														obj_t
																																															BgL_arg2242z00_5679;
																																														{	/* Eval/eval.scm 681 */
																																															obj_t
																																																BgL_arg2243z00_5680;
																																															BgL_arg2243z00_5680
																																																=
																																																(BgL_oclassz00_5663);
																																															BgL_arg2242z00_5679
																																																=
																																																BGL_CLASS_ANCESTORS_REF
																																																(BgL_arg2243z00_5680,
																																																BgL_arg2251z00_5644);
																																														}
																																														BgL_res2270z00_5659
																																															=
																																															(BgL_arg2242z00_5679
																																															==
																																															BgL_classz00_5641);
																																													}
																																												else
																																													{	/* Eval/eval.scm 681 */
																																														BgL_res2270z00_5659
																																															=
																																															(
																																															(bool_t)
																																															0);
																																													}
																																											}
																																									}
																																								}
																																								BgL_test3454z00_8529
																																									=
																																									BgL_res2270z00_5659;
																																							}
																																					}
																																				else
																																					{	/* Eval/eval.scm 681 */
																																						BgL_test3454z00_8529
																																							=
																																							(
																																							(bool_t)
																																							0);
																																					}
																																			}
																																		}
																																		if (BgL_test3454z00_8529)
																																			{	/* Eval/eval.scm 681 */
																																				BgL_tmp1174z00_5639
																																					=
																																					(
																																					(BgL_z62errorz62_bglt)
																																					BgL_duplicated1172z00_5553);
																																			}
																																		else
																																			{
																																				obj_t
																																					BgL_auxz00_8558;
																																				BgL_auxz00_8558
																																					=
																																					BGl_typezd2errorzd2zz__errorz00
																																					(BGl_string2674z00zz__evalz00,
																																					BINT
																																					(25922L),
																																					BGl_string2819z00zz__evalz00,
																																					BGl_string2717z00zz__evalz00,
																																					((obj_t) BgL_duplicated1172z00_5553));
																																				FAILURE
																																					(BgL_auxz00_8558,
																																					BFALSE,
																																					BFALSE);
																																			}
																																	}
																																	BgL_auxz00_8528
																																		=
																																		(((BgL_z62errorz62_bglt) COBJECT(BgL_tmp1174z00_5639))->BgL_msgz00);
																																}
																																((((BgL_z62errorz62_bglt) COBJECT(BgL_new1170z00_5554))->BgL_msgz00) = ((obj_t) BgL_auxz00_8528), BUNSPEC);
																															}
																															{
																																obj_t
																																	BgL_auxz00_8565;
																																{	/* Eval/eval.scm 681 */
																																	BgL_z62errorz62_bglt
																																		BgL_tmp1175z00_5681;
																																	{	/* Eval/eval.scm 681 */
																																		bool_t
																																			BgL_test3459z00_8566;
																																		{	/* Eval/eval.scm 681 */
																																			obj_t
																																				BgL_classz00_5683;
																																			BgL_classz00_5683
																																				=
																																				BGl_z62errorz62zz__objectz00;
																																			{	/* Eval/eval.scm 681 */
																																				bool_t
																																					BgL_test3460z00_8567;
																																				{	/* Eval/eval.scm 681 */
																																					obj_t
																																						BgL_tmpz00_8568;
																																					BgL_tmpz00_8568
																																						=
																																						(
																																						(obj_t)
																																						BgL_duplicated1172z00_5553);
																																					BgL_test3460z00_8567
																																						=
																																						BGL_OBJECTP
																																						(BgL_tmpz00_8568);
																																				}
																																				if (BgL_test3460z00_8567)
																																					{	/* Eval/eval.scm 681 */
																																						BgL_objectz00_bglt
																																							BgL_arg2250z00_5685;
																																						long
																																							BgL_arg2251z00_5686;
																																						{	/* Eval/eval.scm 681 */
																																							obj_t
																																								BgL_tmpz00_8571;
																																							BgL_tmpz00_8571
																																								=
																																								(
																																								(obj_t)
																																								BgL_duplicated1172z00_5553);
																																							BgL_arg2250z00_5685
																																								=
																																								(BgL_objectz00_bglt)
																																								(BgL_tmpz00_8571);
																																						}
																																						BgL_arg2251z00_5686
																																							=
																																							BGL_CLASS_DEPTH
																																							(BgL_classz00_5683);
																																						if (BGL_CONDEXPAND_ISA_ARCH64())
																																							{	/* Eval/eval.scm 681 */
																																								long
																																									BgL_idxz00_5694;
																																								BgL_idxz00_5694
																																									=
																																									BGL_OBJECT_INHERITANCE_NUM
																																									(BgL_arg2250z00_5685);
																																								{	/* Eval/eval.scm 681 */
																																									obj_t
																																										BgL_arg2240z00_5695;
																																									{	/* Eval/eval.scm 681 */
																																										long
																																											BgL_arg2241z00_5696;
																																										BgL_arg2241z00_5696
																																											=
																																											(BgL_idxz00_5694
																																											+
																																											BgL_arg2251z00_5686);
																																										{	/* Eval/eval.scm 681 */
																																											obj_t
																																												BgL_vectorz00_5699;
																																											BgL_vectorz00_5699
																																												=
																																												BGl_za2inheritancesza2z00zz__objectz00;
																																											BgL_arg2240z00_5695
																																												=
																																												VECTOR_REF
																																												(BgL_vectorz00_5699,
																																												BgL_arg2241z00_5696);
																																									}}
																																									BgL_test3459z00_8566
																																										=
																																										(BgL_arg2240z00_5695
																																										==
																																										BgL_classz00_5683);
																																							}}
																																						else
																																							{	/* Eval/eval.scm 681 */
																																								bool_t
																																									BgL_res2270z00_5701;
																																								{	/* Eval/eval.scm 681 */
																																									obj_t
																																										BgL_oclassz00_5705;
																																									{	/* Eval/eval.scm 681 */
																																										obj_t
																																											BgL_arg2255z00_5707;
																																										long
																																											BgL_arg2256z00_5708;
																																										BgL_arg2255z00_5707
																																											=
																																											(BGl_za2classesza2z00zz__objectz00);
																																										{	/* Eval/eval.scm 681 */
																																											long
																																												BgL_arg2257z00_5709;
																																											BgL_arg2257z00_5709
																																												=
																																												BGL_OBJECT_CLASS_NUM
																																												(BgL_arg2250z00_5685);
																																											BgL_arg2256z00_5708
																																												=
																																												(BgL_arg2257z00_5709
																																												-
																																												OBJECT_TYPE);
																																										}
																																										BgL_oclassz00_5705
																																											=
																																											VECTOR_REF
																																											(BgL_arg2255z00_5707,
																																											BgL_arg2256z00_5708);
																																									}
																																									{	/* Eval/eval.scm 681 */
																																										bool_t
																																											BgL__ortest_1235z00_5715;
																																										BgL__ortest_1235z00_5715
																																											=
																																											(BgL_classz00_5683
																																											==
																																											BgL_oclassz00_5705);
																																										if (BgL__ortest_1235z00_5715)
																																											{	/* Eval/eval.scm 681 */
																																												BgL_res2270z00_5701
																																													=
																																													BgL__ortest_1235z00_5715;
																																											}
																																										else
																																											{	/* Eval/eval.scm 681 */
																																												long
																																													BgL_odepthz00_5716;
																																												{	/* Eval/eval.scm 681 */
																																													obj_t
																																														BgL_arg2245z00_5717;
																																													BgL_arg2245z00_5717
																																														=
																																														(BgL_oclassz00_5705);
																																													BgL_odepthz00_5716
																																														=
																																														BGL_CLASS_DEPTH
																																														(BgL_arg2245z00_5717);
																																												}
																																												if ((BgL_arg2251z00_5686 < BgL_odepthz00_5716))
																																													{	/* Eval/eval.scm 681 */
																																														obj_t
																																															BgL_arg2242z00_5721;
																																														{	/* Eval/eval.scm 681 */
																																															obj_t
																																																BgL_arg2243z00_5722;
																																															BgL_arg2243z00_5722
																																																=
																																																(BgL_oclassz00_5705);
																																															BgL_arg2242z00_5721
																																																=
																																																BGL_CLASS_ANCESTORS_REF
																																																(BgL_arg2243z00_5722,
																																																BgL_arg2251z00_5686);
																																														}
																																														BgL_res2270z00_5701
																																															=
																																															(BgL_arg2242z00_5721
																																															==
																																															BgL_classz00_5683);
																																													}
																																												else
																																													{	/* Eval/eval.scm 681 */
																																														BgL_res2270z00_5701
																																															=
																																															(
																																															(bool_t)
																																															0);
																																													}
																																											}
																																									}
																																								}
																																								BgL_test3459z00_8566
																																									=
																																									BgL_res2270z00_5701;
																																							}
																																					}
																																				else
																																					{	/* Eval/eval.scm 681 */
																																						BgL_test3459z00_8566
																																							=
																																							(
																																							(bool_t)
																																							0);
																																					}
																																			}
																																		}
																																		if (BgL_test3459z00_8566)
																																			{	/* Eval/eval.scm 681 */
																																				BgL_tmp1175z00_5681
																																					=
																																					(
																																					(BgL_z62errorz62_bglt)
																																					BgL_duplicated1172z00_5553);
																																			}
																																		else
																																			{
																																				obj_t
																																					BgL_auxz00_8595;
																																				BgL_auxz00_8595
																																					=
																																					BGl_typezd2errorzd2zz__errorz00
																																					(BGl_string2674z00zz__evalz00,
																																					BINT
																																					(25922L),
																																					BGl_string2819z00zz__evalz00,
																																					BGl_string2717z00zz__evalz00,
																																					((obj_t) BgL_duplicated1172z00_5553));
																																				FAILURE
																																					(BgL_auxz00_8595,
																																					BFALSE,
																																					BFALSE);
																																			}
																																	}
																																	BgL_auxz00_8565
																																		=
																																		(((BgL_z62errorz62_bglt) COBJECT(BgL_tmp1175z00_5681))->BgL_objz00);
																																}
																																((((BgL_z62errorz62_bglt) COBJECT(BgL_new1170z00_5554))->BgL_objz00) = ((obj_t) BgL_auxz00_8565), BUNSPEC);
																															}
																															BgL_auxz00_8450 =
																																BgL_new1170z00_5554;
																														}
																														BgL_nez00_5491 =
																															((obj_t)
																															BgL_auxz00_8450);
																													}
																												}
																											else
																												{	/* Eval/eval.scm 677 */
																													BgL_nez00_5491 =
																														BgL_ez00_5490;
																												}
																										}
																									else
																										{	/* Eval/eval.scm 677 */
																											BgL_nez00_5491 =
																												BgL_ez00_5490;
																										}
																								}
																							else
																								{	/* Eval/eval.scm 677 */
																									BgL_nez00_5491 =
																										BgL_ez00_5490;
																								}
																						}
																					else
																						{	/* Eval/eval.scm 677 */
																							BgL_nez00_5491 = BgL_ez00_5490;
																						}
																				}
																			else
																				{	/* Eval/eval.scm 677 */
																					BgL_nez00_5491 = BgL_ez00_5490;
																				}
																		}
																	}
																else
																	{	/* Eval/eval.scm 676 */
																		BgL_nez00_5491 = BgL_ez00_5490;
																	}
															}
														}
													else
														{	/* Eval/eval.scm 674 */
															BgL_nez00_5491 = BgL_ez00_5490;
														}
												}
												BGl_exceptionzd2notifyzd2zz__objectz00(BgL_nez00_5491);
												return BGl_raisez00zz__errorz00(BgL_nez00_5491);
											}
										}
									}
								else
									{	/* Eval/eval.scm 672 */
										return BgL_val1167z00_5731;
									}
							}
						}
					}
				}
			}
		}

	}



/* <@exit:1740>~0 */
	obj_t BGl_zc3z04exitza31740ze3ze70z60zz__evalz00(obj_t BgL_ez00_3740,
		obj_t BgL_xz00_3739, obj_t BgL_expdzd2evalzd2_3738,
		obj_t BgL_cell1163z00_3737, obj_t BgL_env1168z00_3736)
	{
		{	/* Eval/eval.scm 672 */
			jmp_buf_t jmpbuf;
			void *BgL_an_exit1180z00_1882;

			if (SET_EXIT(BgL_an_exit1180z00_1882))
				{
					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_exit1180z00_1882 = (void *) jmpbuf;
					PUSH_ENV_EXIT(BgL_env1168z00_3736, BgL_an_exit1180z00_1882, 1L);
					{	/* Eval/eval.scm 672 */
						obj_t BgL_escape1164z00_1883;

						BgL_escape1164z00_1883 =
							BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1168z00_3736);
						{	/* Eval/eval.scm 672 */
							obj_t BgL_res1183z00_1884;

							{	/* Eval/eval.scm 672 */
								obj_t BgL_ohs1160z00_1885;

								BgL_ohs1160z00_1885 =
									BGL_ENV_ERROR_HANDLER_GET(BgL_env1168z00_3736);
								{	/* Eval/eval.scm 672 */
									obj_t BgL_hds1161z00_1886;

									BgL_hds1161z00_1886 =
										MAKE_STACK_PAIR(BgL_escape1164z00_1883,
										BgL_cell1163z00_3737);
									BGL_ENV_ERROR_HANDLER_SET(BgL_env1168z00_3736,
										BgL_hds1161z00_1886);
									BUNSPEC;
									{	/* Eval/eval.scm 672 */
										obj_t BgL_exitd1177z00_1887;

										BgL_exitd1177z00_1887 =
											BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1168z00_3736);
										{	/* Eval/eval.scm 672 */
											obj_t BgL_tmp1179z00_1888;

											{	/* Eval/eval.scm 672 */
												obj_t BgL_arg1741z00_1890;

												BgL_arg1741z00_1890 =
													BGL_EXITD_PROTECT(BgL_exitd1177z00_1887);
												BgL_tmp1179z00_1888 =
													MAKE_YOUNG_PAIR(BgL_ohs1160z00_1885,
													BgL_arg1741z00_1890);
											}
											{	/* Eval/eval.scm 672 */

												BGL_EXITD_PROTECT_SET(BgL_exitd1177z00_1887,
													BgL_tmp1179z00_1888);
												BUNSPEC;
												{	/* Eval/eval.scm 688 */
													obj_t BgL_tmp1178z00_1889;

													{	/* Eval/eval.scm 688 */
														obj_t BgL_tmpfunz00_8620;

														{	/* Eval/eval.scm 688 */
															bool_t BgL_test2621z00_4143;

															BgL_test2621z00_4143 =
																PROCEDUREP(BgL_expdzd2evalzd2_3738);
															if (BgL_test2621z00_4143)
																{	/* Eval/eval.scm 688 */
																	BgL_tmpfunz00_8620 = BgL_expdzd2evalzd2_3738;
																}
															else
																{
																	obj_t BgL_auxz00_8623;

																	BgL_auxz00_8623 =
																		BGl_typezd2errorzd2zz__errorz00
																		(BGl_string2674z00zz__evalz00, BINT(26045L),
																		BGl_string2820z00zz__evalz00,
																		BGl_string2679z00zz__evalz00,
																		BgL_expdzd2evalzd2_3738);
																	FAILURE(BgL_auxz00_8623, BFALSE, BFALSE);
																}
														}
														BgL_tmp1178z00_1889 =
															(VA_PROCEDUREP(BgL_tmpfunz00_8620)
															? ((obj_t(*)(obj_t,
																		...))
																PROCEDURE_ENTRY(BgL_tmpfunz00_8620))
															(BgL_expdzd2evalzd2_3738, BgL_xz00_3739,
																BgL_ez00_3740, BEOA) : ((obj_t(*)(obj_t, obj_t,
																		obj_t))
																PROCEDURE_ENTRY(BgL_tmpfunz00_8620))
															(BgL_expdzd2evalzd2_3738, BgL_xz00_3739,
																BgL_ez00_3740));
													}
													{	/* Eval/eval.scm 672 */
														bool_t BgL_test3465z00_8627;

														{	/* Eval/eval.scm 672 */
															obj_t BgL_arg2234z00_3138;

															BgL_arg2234z00_3138 =
																BGL_EXITD_PROTECT(BgL_exitd1177z00_1887);
															BgL_test3465z00_8627 = PAIRP(BgL_arg2234z00_3138);
														}
														if (BgL_test3465z00_8627)
															{	/* Eval/eval.scm 672 */
																obj_t BgL_arg2232z00_3139;

																{	/* Eval/eval.scm 672 */
																	obj_t BgL_arg2233z00_3140;

																	BgL_arg2233z00_3140 =
																		BGL_EXITD_PROTECT(BgL_exitd1177z00_1887);
																	{	/* Eval/eval.scm 672 */
																		obj_t BgL_pairz00_3141;

																		if (PAIRP(BgL_arg2233z00_3140))
																			{	/* Eval/eval.scm 672 */
																				BgL_pairz00_3141 = BgL_arg2233z00_3140;
																			}
																		else
																			{
																				obj_t BgL_auxz00_8633;

																				BgL_auxz00_8633 =
																					BGl_typezd2errorzd2zz__errorz00
																					(BGl_string2674z00zz__evalz00,
																					BINT(25671L),
																					BGl_string2820z00zz__evalz00,
																					BGl_string2685z00zz__evalz00,
																					BgL_arg2233z00_3140);
																				FAILURE(BgL_auxz00_8633, BFALSE,
																					BFALSE);
																			}
																		BgL_arg2232z00_3139 = CDR(BgL_pairz00_3141);
																	}
																}
																BGL_EXITD_PROTECT_SET(BgL_exitd1177z00_1887,
																	BgL_arg2232z00_3139);
																BUNSPEC;
															}
														else
															{	/* Eval/eval.scm 672 */
																BFALSE;
															}
													}
													BGL_ENV_ERROR_HANDLER_SET(BgL_env1168z00_3736,
														BgL_ohs1160z00_1885);
													BUNSPEC;
													BgL_res1183z00_1884 = BgL_tmp1178z00_1889;
												}
											}
										}
									}
								}
							}
							POP_ENV_EXIT(BgL_env1168z00_3736);
							return BgL_res1183z00_1884;
						}
					}
				}
		}

	}



/* loop~0 */
	obj_t BGl_loopze70ze7zz__evalz00(obj_t BgL_idz00_3732, obj_t BgL_locz00_3731,
		obj_t BgL_fnamez00_3730, obj_t BgL_patz00_1991, obj_t BgL_argz00_1992,
		obj_t BgL_bindingsz00_1993)
	{
		{	/* Eval/eval.scm 703 */
		BGl_loopze70ze7zz__evalz00:
			if (NULLP(BgL_patz00_1991))
				{	/* Eval/eval.scm 708 */
					obj_t BgL_arg1821z00_1996;

					{	/* Eval/eval.scm 708 */
						obj_t BgL_arg1822z00_1997;
						obj_t BgL_arg1824z00_1998;

						{	/* Eval/eval.scm 708 */

							{	/* Eval/eval.scm 708 */

								BgL_arg1822z00_1997 =
									BGl_gensymz00zz__r4_symbols_6_4z00(BFALSE);
							}
						}
						{	/* Eval/eval.scm 709 */
							obj_t BgL_arg1825z00_2000;

							{	/* Eval/eval.scm 709 */
								obj_t BgL_arg1827z00_2001;

								{	/* Eval/eval.scm 709 */
									obj_t BgL_arg1828z00_2002;
									obj_t BgL_arg1829z00_2003;

									{	/* Eval/eval.scm 709 */
										obj_t BgL_arg1830z00_2004;

										{	/* Eval/eval.scm 709 */
											obj_t BgL_arg1832z00_2005;

											{	/* Eval/eval.scm 709 */
												obj_t BgL_arg1833z00_2006;

												BgL_arg1833z00_2006 =
													MAKE_YOUNG_PAIR(BgL_argz00_1992, BNIL);
												BgL_arg1832z00_2005 =
													MAKE_YOUNG_PAIR(BGl_symbol2821z00zz__evalz00,
													BgL_arg1833z00_2006);
											}
											BgL_arg1830z00_2004 =
												MAKE_YOUNG_PAIR(BgL_arg1832z00_2005, BNIL);
										}
										BgL_arg1828z00_2002 =
											MAKE_YOUNG_PAIR(BGl_symbol2823z00zz__evalz00,
											BgL_arg1830z00_2004);
									}
									{	/* Eval/eval.scm 710 */
										obj_t BgL_arg1834z00_2007;
										obj_t BgL_arg1835z00_2008;

										BgL_arg1834z00_2007 =
											BGl_errze70ze7zz__evalz00(BgL_locz00_3731, BgL_idz00_3732,
											BgL_fnamez00_3730, BGl_string2825z00zz__evalz00,
											BgL_argz00_1992);
										{	/* Eval/eval.scm 711 */
											obj_t BgL_arg1836z00_2009;

											{	/* Eval/eval.scm 711 */
												obj_t BgL_arg1837z00_2010;

												BgL_arg1837z00_2010 = MAKE_YOUNG_PAIR(BNIL, BNIL);
												BgL_arg1836z00_2009 =
													MAKE_YOUNG_PAIR(BGl_symbol2812z00zz__evalz00,
													BgL_arg1837z00_2010);
											}
											BgL_arg1835z00_2008 =
												MAKE_YOUNG_PAIR(BgL_arg1836z00_2009, BNIL);
										}
										BgL_arg1829z00_2003 =
											MAKE_YOUNG_PAIR(BgL_arg1834z00_2007, BgL_arg1835z00_2008);
									}
									BgL_arg1827z00_2001 =
										MAKE_YOUNG_PAIR(BgL_arg1828z00_2002, BgL_arg1829z00_2003);
								}
								BgL_arg1825z00_2000 =
									MAKE_YOUNG_PAIR(BGl_symbol2826z00zz__evalz00,
									BgL_arg1827z00_2001);
							}
							BgL_arg1824z00_1998 = MAKE_YOUNG_PAIR(BgL_arg1825z00_2000, BNIL);
						}
						BgL_arg1821z00_1996 =
							MAKE_YOUNG_PAIR(BgL_arg1822z00_1997, BgL_arg1824z00_1998);
					}
					return MAKE_YOUNG_PAIR(BgL_arg1821z00_1996, BgL_bindingsz00_1993);
				}
			else
				{	/* Eval/eval.scm 707 */
					if (SYMBOLP(BgL_patz00_1991))
						{	/* Eval/eval.scm 714 */
							obj_t BgL_arg1839z00_2012;

							{	/* Eval/eval.scm 714 */
								obj_t BgL_arg1840z00_2013;

								BgL_arg1840z00_2013 = MAKE_YOUNG_PAIR(BgL_argz00_1992, BNIL);
								BgL_arg1839z00_2012 =
									MAKE_YOUNG_PAIR(BgL_patz00_1991, BgL_arg1840z00_2013);
							}
							return MAKE_YOUNG_PAIR(BgL_arg1839z00_2012, BgL_bindingsz00_1993);
						}
					else
						{	/* Eval/eval.scm 713 */
							if (PAIRP(BgL_patz00_1991))
								{	/* Eval/eval.scm 716 */
									obj_t BgL_arg1842z00_2015;
									obj_t BgL_arg1845z00_2016;
									obj_t BgL_arg1846z00_2017;

									BgL_arg1842z00_2015 = CAR(BgL_patz00_1991);
									{	/* Eval/eval.scm 717 */
										obj_t BgL_arg1847z00_2018;

										{	/* Eval/eval.scm 717 */
											obj_t BgL_arg1848z00_2019;
											obj_t BgL_arg1849z00_2020;

											{	/* Eval/eval.scm 717 */
												obj_t BgL_arg1851z00_2021;

												BgL_arg1851z00_2021 =
													MAKE_YOUNG_PAIR(BgL_argz00_1992, BNIL);
												BgL_arg1848z00_2019 =
													MAKE_YOUNG_PAIR(BGl_symbol2828z00zz__evalz00,
													BgL_arg1851z00_2021);
											}
											{	/* Eval/eval.scm 718 */
												obj_t BgL_arg1852z00_2022;
												obj_t BgL_arg1853z00_2023;

												{	/* Eval/eval.scm 718 */
													obj_t BgL_arg1854z00_2024;

													BgL_arg1854z00_2024 =
														MAKE_YOUNG_PAIR(BgL_argz00_1992, BNIL);
													BgL_arg1852z00_2022 =
														MAKE_YOUNG_PAIR(BGl_symbol2830z00zz__evalz00,
														BgL_arg1854z00_2024);
												}
												BgL_arg1853z00_2023 =
													MAKE_YOUNG_PAIR(BGl_errze70ze7zz__evalz00
													(BgL_locz00_3731, BgL_idz00_3732, BgL_fnamez00_3730,
														BGl_string2832z00zz__evalz00, CAR(BgL_patz00_1991)),
													BNIL);
												BgL_arg1849z00_2020 =
													MAKE_YOUNG_PAIR(BgL_arg1852z00_2022,
													BgL_arg1853z00_2023);
											}
											BgL_arg1847z00_2018 =
												MAKE_YOUNG_PAIR(BgL_arg1848z00_2019,
												BgL_arg1849z00_2020);
										}
										BgL_arg1845z00_2016 =
											MAKE_YOUNG_PAIR(BGl_symbol2826z00zz__evalz00,
											BgL_arg1847z00_2018);
									}
									{	/* Eval/eval.scm 720 */
										obj_t BgL_arg1858z00_2027;
										obj_t BgL_arg1859z00_2028;

										BgL_arg1858z00_2027 = CDR(BgL_patz00_1991);
										{	/* Eval/eval.scm 720 */
											obj_t BgL_arg1860z00_2029;

											BgL_arg1860z00_2029 =
												MAKE_YOUNG_PAIR(BgL_argz00_1992, BNIL);
											BgL_arg1859z00_2028 =
												MAKE_YOUNG_PAIR(BGl_symbol2783z00zz__evalz00,
												BgL_arg1860z00_2029);
										}
										BgL_arg1846z00_2017 =
											BGl_loopze70ze7zz__evalz00(BgL_idz00_3732,
											BgL_locz00_3731, BgL_fnamez00_3730, BgL_arg1858z00_2027,
											BgL_arg1859z00_2028, BgL_bindingsz00_1993);
									}
									{
										obj_t BgL_bindingsz00_8682;
										obj_t BgL_argz00_8681;
										obj_t BgL_patz00_8680;

										BgL_patz00_8680 = BgL_arg1842z00_2015;
										BgL_argz00_8681 = BgL_arg1845z00_2016;
										BgL_bindingsz00_8682 = BgL_arg1846z00_2017;
										BgL_bindingsz00_1993 = BgL_bindingsz00_8682;
										BgL_argz00_1992 = BgL_argz00_8681;
										BgL_patz00_1991 = BgL_patz00_8680;
										goto BGl_loopze70ze7zz__evalz00;
									}
								}
							else
								{	/* Eval/eval.scm 715 */
									if (EPAIRP(BgL_patz00_1991))
										{	/* Eval/eval.scm 547 */
											obj_t BgL_arg1528z00_3188;

											{	/* Eval/eval.scm 547 */
												obj_t BgL_objz00_3189;

												if (EPAIRP(BgL_patz00_1991))
													{	/* Eval/eval.scm 547 */
														BgL_objz00_3189 = BgL_patz00_1991;
													}
												else
													{
														obj_t BgL_auxz00_8687;

														BgL_auxz00_8687 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2674z00zz__evalz00, BINT(21769L),
															BGl_string2833z00zz__evalz00,
															BGl_string2739z00zz__evalz00, BgL_patz00_1991);
														FAILURE(BgL_auxz00_8687, BFALSE, BFALSE);
													}
												BgL_arg1528z00_3188 = CER(BgL_objz00_3189);
											}
											return
												BGl_everrorz00zz__everrorz00(BgL_arg1528z00_3188,
												BgL_idz00_3732, BGl_string2834z00zz__evalz00,
												BgL_patz00_1991);
										}
									else
										{	/* Eval/eval.scm 546 */
											return
												BGl_errorz00zz__errorz00(BgL_idz00_3732,
												BGl_string2834z00zz__evalz00, BgL_patz00_1991);
										}
								}
						}
				}
		}

	}



/* err~0 */
	obj_t BGl_errze70ze7zz__evalz00(obj_t BgL_locz00_3735, obj_t BgL_idz00_3734,
		obj_t BgL_fnamez00_3733, obj_t BgL_msgz00_2031, obj_t BgL_objz00_2032)
	{
		{	/* Eval/eval.scm 702 */
			{	/* Eval/eval.scm 700 */
				obj_t BgL_arg1862z00_2034;

				{	/* Eval/eval.scm 700 */
					obj_t BgL_arg1863z00_2035;
					obj_t BgL_arg1864z00_2036;

					{	/* Eval/eval.scm 700 */
						obj_t BgL_arg1865z00_2037;

						BgL_arg1865z00_2037 = MAKE_YOUNG_PAIR(BgL_fnamez00_3733, BNIL);
						BgL_arg1863z00_2035 =
							MAKE_YOUNG_PAIR(BGl_symbol2835z00zz__evalz00,
							BgL_arg1865z00_2037);
					}
					{	/* Eval/eval.scm 701 */
						obj_t BgL_arg1866z00_2038;
						obj_t BgL_arg1867z00_2039;

						{	/* Eval/eval.scm 701 */
							obj_t BgL_arg1868z00_2040;

							{	/* Eval/eval.scm 701 */
								obj_t BgL_arg1869z00_2041;
								obj_t BgL_arg1870z00_2042;

								{	/* Eval/eval.scm 701 */
									obj_t BgL_arg1873z00_2043;

									BgL_arg1873z00_2043 = MAKE_YOUNG_PAIR(BgL_idz00_3734, BNIL);
									BgL_arg1869z00_2041 =
										MAKE_YOUNG_PAIR(BGl_symbol2812z00zz__evalz00,
										BgL_arg1873z00_2043);
								}
								{	/* Eval/eval.scm 701 */
									obj_t BgL_arg1876z00_2044;

									{	/* Eval/eval.scm 701 */
										obj_t BgL_arg1878z00_2045;
										obj_t BgL_arg1879z00_2046;

										{	/* Eval/eval.scm 701 */
											obj_t BgL_arg1881z00_2047;

											BgL_arg1881z00_2047 =
												MAKE_YOUNG_PAIR(BgL_objz00_2032, BNIL);
											BgL_arg1878z00_2045 =
												MAKE_YOUNG_PAIR(BGl_symbol2812z00zz__evalz00,
												BgL_arg1881z00_2047);
										}
										{	/* Eval/eval.scm 701 */
											obj_t BgL_arg1882z00_2048;

											BgL_arg1882z00_2048 =
												MAKE_YOUNG_PAIR(BgL_locz00_3735, BNIL);
											BgL_arg1879z00_2046 =
												MAKE_YOUNG_PAIR(BgL_fnamez00_3733, BgL_arg1882z00_2048);
										}
										BgL_arg1876z00_2044 =
											MAKE_YOUNG_PAIR(BgL_arg1878z00_2045, BgL_arg1879z00_2046);
									}
									BgL_arg1870z00_2042 =
										MAKE_YOUNG_PAIR(BgL_msgz00_2031, BgL_arg1876z00_2044);
								}
								BgL_arg1868z00_2040 =
									MAKE_YOUNG_PAIR(BgL_arg1869z00_2041, BgL_arg1870z00_2042);
							}
							BgL_arg1866z00_2038 =
								MAKE_YOUNG_PAIR(BGl_symbol2837z00zz__evalz00,
								BgL_arg1868z00_2040);
						}
						{	/* Eval/eval.scm 702 */
							obj_t BgL_arg1883z00_2049;

							{	/* Eval/eval.scm 702 */
								obj_t BgL_arg1884z00_2050;

								{	/* Eval/eval.scm 702 */
									obj_t BgL_arg1885z00_2051;
									obj_t BgL_arg1886z00_2052;

									{	/* Eval/eval.scm 702 */
										obj_t BgL_arg1887z00_2053;

										BgL_arg1887z00_2053 = MAKE_YOUNG_PAIR(BgL_idz00_3734, BNIL);
										BgL_arg1885z00_2051 =
											MAKE_YOUNG_PAIR(BGl_symbol2812z00zz__evalz00,
											BgL_arg1887z00_2053);
									}
									{	/* Eval/eval.scm 702 */
										obj_t BgL_arg1888z00_2054;

										{	/* Eval/eval.scm 702 */
											obj_t BgL_arg1889z00_2055;

											{	/* Eval/eval.scm 702 */
												obj_t BgL_arg1890z00_2056;

												BgL_arg1890z00_2056 =
													MAKE_YOUNG_PAIR(BgL_objz00_2032, BNIL);
												BgL_arg1889z00_2055 =
													MAKE_YOUNG_PAIR(BGl_symbol2812z00zz__evalz00,
													BgL_arg1890z00_2056);
											}
											BgL_arg1888z00_2054 =
												MAKE_YOUNG_PAIR(BgL_arg1889z00_2055, BNIL);
										}
										BgL_arg1886z00_2052 =
											MAKE_YOUNG_PAIR(BgL_msgz00_2031, BgL_arg1888z00_2054);
									}
									BgL_arg1884z00_2050 =
										MAKE_YOUNG_PAIR(BgL_arg1885z00_2051, BgL_arg1886z00_2052);
								}
								BgL_arg1883z00_2049 =
									MAKE_YOUNG_PAIR(BGl_symbol2839z00zz__evalz00,
									BgL_arg1884z00_2050);
							}
							BgL_arg1867z00_2039 = MAKE_YOUNG_PAIR(BgL_arg1883z00_2049, BNIL);
						}
						BgL_arg1864z00_2036 =
							MAKE_YOUNG_PAIR(BgL_arg1866z00_2038, BgL_arg1867z00_2039);
					}
					BgL_arg1862z00_2034 =
						MAKE_YOUNG_PAIR(BgL_arg1863z00_2035, BgL_arg1864z00_2036);
				}
				return
					MAKE_YOUNG_PAIR(BGl_symbol2826z00zz__evalz00, BgL_arg1862z00_2034);
			}
		}

	}



/* expand-define-pattern */
	BGL_EXPORTED_DEF obj_t BGl_expandzd2definezd2patternz00zz__evalz00(obj_t
		BgL_xz00_62)
	{
		{	/* Eval/eval.scm 727 */
			if (PAIRP(BgL_xz00_62))
				{	/* Eval/eval.scm 728 */
					obj_t BgL_cdrzd2389zd2_2065;

					BgL_cdrzd2389zd2_2065 = CDR(((obj_t) BgL_xz00_62));
					if (PAIRP(BgL_cdrzd2389zd2_2065))
						{	/* Eval/eval.scm 728 */
							obj_t BgL_cdrzd2394zd2_2067;

							BgL_cdrzd2394zd2_2067 = CDR(BgL_cdrzd2389zd2_2065);
							if (PAIRP(BgL_cdrzd2394zd2_2067))
								{	/* Eval/eval.scm 728 */
									obj_t BgL_cdrzd2399zd2_2069;

									BgL_cdrzd2399zd2_2069 = CDR(BgL_cdrzd2394zd2_2067);
									if (PAIRP(BgL_cdrzd2399zd2_2069))
										{	/* Eval/eval.scm 728 */
											if (NULLP(CDR(BgL_cdrzd2399zd2_2069)))
												{	/* Eval/eval.scm 728 */
													obj_t BgL_arg1898z00_2073;
													obj_t BgL_arg1899z00_2074;
													obj_t BgL_arg1901z00_2075;

													BgL_arg1898z00_2073 = CAR(BgL_cdrzd2389zd2_2065);
													BgL_arg1899z00_2074 = CAR(BgL_cdrzd2394zd2_2067);
													BgL_arg1901z00_2075 = CAR(BgL_cdrzd2399zd2_2069);
													{	/* Eval/eval.scm 730 */
														obj_t BgL_arg1905z00_3212;

														{	/* Eval/eval.scm 730 */
															obj_t BgL_arg1906z00_3213;

															{	/* Eval/eval.scm 730 */
																obj_t BgL_arg1907z00_3214;

																{	/* Eval/eval.scm 730 */
																	obj_t BgL_arg1908z00_3215;

																	BgL_arg1908z00_3215 =
																		MAKE_YOUNG_PAIR(BgL_arg1901z00_2075, BNIL);
																	BgL_arg1907z00_3214 =
																		MAKE_YOUNG_PAIR(BgL_arg1899z00_2074,
																		BgL_arg1908z00_3215);
																}
																BgL_arg1906z00_3213 =
																	MAKE_YOUNG_PAIR(BGl_symbol2796z00zz__evalz00,
																	BgL_arg1907z00_3214);
															}
															{	/* Eval/eval.scm 82 */
																obj_t BgL_envz00_3217;

																BgL_envz00_3217 =
																	BGl_defaultzd2environmentzd2zz__evalz00();
																{	/* Eval/eval.scm 82 */

																	{	/* Eval/eval.scm 176 */
																		obj_t BgL_evaluatez00_3218;

																		if (PROCEDUREP
																			(BGl_defaultzd2evaluatezd2zz__evalz00))
																			{	/* Eval/eval.scm 176 */
																				BgL_evaluatez00_3218 =
																					BGl_defaultzd2evaluatezd2zz__evalz00;
																			}
																		else
																			{	/* Eval/eval.scm 176 */
																				BgL_evaluatez00_3218 =
																					BGl_bytezd2codezd2evaluatezd2envzd2zz__evalz00;
																			}
																		{	/* Eval/eval.scm 179 */
																			obj_t BgL_auxz00_8742;

																			if (PROCEDUREP(BgL_evaluatez00_3218))
																				{	/* Eval/eval.scm 179 */
																					BgL_auxz00_8742 =
																						BgL_evaluatez00_3218;
																				}
																			else
																				{
																					obj_t BgL_auxz00_8745;

																					BgL_auxz00_8745 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string2674z00zz__evalz00,
																						BINT(6857L),
																						BGl_string2841z00zz__evalz00,
																						BGl_string2679z00zz__evalz00,
																						BgL_evaluatez00_3218);
																					FAILURE(BgL_auxz00_8745, BFALSE,
																						BFALSE);
																				}
																			BgL_arg1905z00_3212 =
																				BGl_evalzf2expanderzf2zz__evalz00
																				(BgL_arg1906z00_3213, BgL_envz00_3217,
																				BGl_expandz12zd2envzc0zz__expandz00,
																				BgL_auxz00_8742);
																		}
																	}
																}
															}
														}
														BGl_extendzd2rzd2macrozd2envzd2zz__match_normaliza7eza7
															(BgL_arg1898z00_2073, BgL_arg1905z00_3212);
													}
													return BGl_list2842z00zz__evalz00;
												}
											else
												{	/* Eval/eval.scm 733 */
													obj_t BgL_procz00_3221;

													BgL_procz00_3221 = BGl_symbol2845z00zz__evalz00;
													if (EPAIRP(BgL_xz00_62))
														{	/* Eval/eval.scm 547 */
															obj_t BgL_arg1528z00_3223;

															{	/* Eval/eval.scm 547 */
																obj_t BgL_objz00_3224;

																if (EPAIRP(BgL_xz00_62))
																	{	/* Eval/eval.scm 547 */
																		BgL_objz00_3224 = BgL_xz00_62;
																	}
																else
																	{
																		obj_t BgL_auxz00_8755;

																		BgL_auxz00_8755 =
																			BGl_typezd2errorzd2zz__errorz00
																			(BGl_string2674z00zz__evalz00,
																			BINT(21769L),
																			BGl_string2841z00zz__evalz00,
																			BGl_string2739z00zz__evalz00,
																			BgL_xz00_62);
																		FAILURE(BgL_auxz00_8755, BFALSE, BFALSE);
																	}
																BgL_arg1528z00_3223 = CER(BgL_objz00_3224);
															}
															return
																BGl_everrorz00zz__everrorz00
																(BgL_arg1528z00_3223, BgL_procz00_3221,
																BGl_string2846z00zz__evalz00, BgL_xz00_62);
														}
													else
														{	/* Eval/eval.scm 546 */
															return
																BGl_errorz00zz__errorz00(BgL_procz00_3221,
																BGl_string2846z00zz__evalz00, BgL_xz00_62);
														}
												}
										}
									else
										{	/* Eval/eval.scm 733 */
											obj_t BgL_procz00_3225;

											BgL_procz00_3225 = BGl_symbol2845z00zz__evalz00;
											if (EPAIRP(BgL_xz00_62))
												{	/* Eval/eval.scm 547 */
													obj_t BgL_arg1528z00_3227;

													{	/* Eval/eval.scm 547 */
														obj_t BgL_objz00_3228;

														if (EPAIRP(BgL_xz00_62))
															{	/* Eval/eval.scm 547 */
																BgL_objz00_3228 = BgL_xz00_62;
															}
														else
															{
																obj_t BgL_auxz00_8766;

																BgL_auxz00_8766 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string2674z00zz__evalz00, BINT(21769L),
																	BGl_string2841z00zz__evalz00,
																	BGl_string2739z00zz__evalz00, BgL_xz00_62);
																FAILURE(BgL_auxz00_8766, BFALSE, BFALSE);
															}
														BgL_arg1528z00_3227 = CER(BgL_objz00_3228);
													}
													return
														BGl_everrorz00zz__everrorz00(BgL_arg1528z00_3227,
														BgL_procz00_3225, BGl_string2846z00zz__evalz00,
														BgL_xz00_62);
												}
											else
												{	/* Eval/eval.scm 546 */
													return
														BGl_errorz00zz__errorz00(BgL_procz00_3225,
														BGl_string2846z00zz__evalz00, BgL_xz00_62);
												}
										}
								}
							else
								{	/* Eval/eval.scm 733 */
									obj_t BgL_procz00_3229;

									BgL_procz00_3229 = BGl_symbol2845z00zz__evalz00;
									if (EPAIRP(BgL_xz00_62))
										{	/* Eval/eval.scm 547 */
											obj_t BgL_arg1528z00_3231;

											{	/* Eval/eval.scm 547 */
												obj_t BgL_objz00_3232;

												if (EPAIRP(BgL_xz00_62))
													{	/* Eval/eval.scm 547 */
														BgL_objz00_3232 = BgL_xz00_62;
													}
												else
													{
														obj_t BgL_auxz00_8777;

														BgL_auxz00_8777 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2674z00zz__evalz00, BINT(21769L),
															BGl_string2841z00zz__evalz00,
															BGl_string2739z00zz__evalz00, BgL_xz00_62);
														FAILURE(BgL_auxz00_8777, BFALSE, BFALSE);
													}
												BgL_arg1528z00_3231 = CER(BgL_objz00_3232);
											}
											return
												BGl_everrorz00zz__everrorz00(BgL_arg1528z00_3231,
												BgL_procz00_3229, BGl_string2846z00zz__evalz00,
												BgL_xz00_62);
										}
									else
										{	/* Eval/eval.scm 546 */
											return
												BGl_errorz00zz__errorz00(BgL_procz00_3229,
												BGl_string2846z00zz__evalz00, BgL_xz00_62);
										}
								}
						}
					else
						{	/* Eval/eval.scm 733 */
							obj_t BgL_procz00_3233;

							BgL_procz00_3233 = BGl_symbol2845z00zz__evalz00;
							if (EPAIRP(BgL_xz00_62))
								{	/* Eval/eval.scm 547 */
									obj_t BgL_arg1528z00_3235;

									{	/* Eval/eval.scm 547 */
										obj_t BgL_objz00_3236;

										if (EPAIRP(BgL_xz00_62))
											{	/* Eval/eval.scm 547 */
												BgL_objz00_3236 = BgL_xz00_62;
											}
										else
											{
												obj_t BgL_auxz00_8788;

												BgL_auxz00_8788 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2674z00zz__evalz00, BINT(21769L),
													BGl_string2841z00zz__evalz00,
													BGl_string2739z00zz__evalz00, BgL_xz00_62);
												FAILURE(BgL_auxz00_8788, BFALSE, BFALSE);
											}
										BgL_arg1528z00_3235 = CER(BgL_objz00_3236);
									}
									return
										BGl_everrorz00zz__everrorz00(BgL_arg1528z00_3235,
										BgL_procz00_3233, BGl_string2846z00zz__evalz00,
										BgL_xz00_62);
								}
							else
								{	/* Eval/eval.scm 546 */
									return
										BGl_errorz00zz__errorz00(BgL_procz00_3233,
										BGl_string2846z00zz__evalz00, BgL_xz00_62);
								}
						}
				}
			else
				{	/* Eval/eval.scm 733 */
					obj_t BgL_procz00_3237;

					BgL_procz00_3237 = BGl_symbol2845z00zz__evalz00;
					if (EPAIRP(BgL_xz00_62))
						{	/* Eval/eval.scm 547 */
							obj_t BgL_arg1528z00_3239;

							{	/* Eval/eval.scm 547 */
								obj_t BgL_objz00_3240;

								if (EPAIRP(BgL_xz00_62))
									{	/* Eval/eval.scm 547 */
										BgL_objz00_3240 = BgL_xz00_62;
									}
								else
									{
										obj_t BgL_auxz00_8799;

										BgL_auxz00_8799 =
											BGl_typezd2errorzd2zz__errorz00
											(BGl_string2674z00zz__evalz00, BINT(21769L),
											BGl_string2841z00zz__evalz00,
											BGl_string2739z00zz__evalz00, BgL_xz00_62);
										FAILURE(BgL_auxz00_8799, BFALSE, BFALSE);
									}
								BgL_arg1528z00_3239 = CER(BgL_objz00_3240);
							}
							return
								BGl_everrorz00zz__everrorz00(BgL_arg1528z00_3239,
								BgL_procz00_3237, BGl_string2846z00zz__evalz00, BgL_xz00_62);
						}
					else
						{	/* Eval/eval.scm 546 */
							return
								BGl_errorz00zz__errorz00(BgL_procz00_3237,
								BGl_string2846z00zz__evalz00, BgL_xz00_62);
						}
				}
		}

	}



/* &expand-define-pattern */
	obj_t BGl_z62expandzd2definezd2patternz62zz__evalz00(obj_t BgL_envz00_3705,
		obj_t BgL_xz00_3706)
	{
		{	/* Eval/eval.scm 727 */
			return BGl_expandzd2definezd2patternz00zz__evalz00(BgL_xz00_3706);
		}

	}



/* notify-assert-fail */
	BGL_EXPORTED_DEF obj_t BGl_notifyzd2assertzd2failz00zz__evalz00(obj_t
		BgL_varsz00_63, obj_t BgL_failzd2bodyzd2_64, obj_t BgL_locz00_65)
	{
		{	/* Eval/eval.scm 738 */
			{	/* Eval/eval.scm 739 */
				obj_t BgL_portz00_2083;

				{	/* Eval/eval.scm 739 */
					obj_t BgL_tmpz00_8807;

					BgL_tmpz00_8807 = BGL_CURRENT_DYNAMIC_ENV();
					BgL_portz00_2083 = BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_8807);
				}
				BGl_zc3z04exitza31909ze3ze70z60zz__evalz00(BgL_locz00_65,
					BgL_failzd2bodyzd2_64);
				bgl_display_string(BGl_string2847z00zz__evalz00, BgL_portz00_2083);
				bgl_display_char(((unsigned char) 10), BgL_portz00_2083);
				bgl_display_string(BGl_string2848z00zz__evalz00, BgL_portz00_2083);
				bgl_display_char(((unsigned char) 10), BgL_portz00_2083);
				{
					obj_t BgL_l1254z00_2104;

					BgL_l1254z00_2104 = BgL_varsz00_63;
				BgL_zc3z04anonymousza31920ze3z87_2105:
					if (PAIRP(BgL_l1254z00_2104))
						{	/* Eval/eval.scm 755 */
							{	/* Eval/eval.scm 756 */
								obj_t BgL_fz00_2107;

								BgL_fz00_2107 = CAR(BgL_l1254z00_2104);
								bgl_display_string(BGl_string2849z00zz__evalz00,
									BgL_portz00_2083);
								bgl_display_obj(BgL_fz00_2107, BgL_portz00_2083);
								bgl_display_string(BGl_string2850z00zz__evalz00,
									BgL_portz00_2083);
								{	/* Eval/eval.scm 759 */
									obj_t BgL_arg1922z00_2108;

									{	/* Eval/eval.scm 81 */
										obj_t BgL_envz00_2110;

										{	/* Eval/eval.scm 257 */
											obj_t BgL_mz00_3255;

											BgL_mz00_3255 = BGl_evalzd2modulezd2zz__evmodulez00();
											if (BGl_evmodulezf3zf3zz__evmodulez00(BgL_mz00_3255))
												{	/* Eval/eval.scm 258 */
													BgL_envz00_2110 = BgL_mz00_3255;
												}
											else
												{	/* Eval/eval.scm 258 */
													BgL_envz00_2110 = BGl_symbol2677z00zz__evalz00;
												}
										}
										{	/* Eval/eval.scm 81 */

											{	/* Eval/eval.scm 170 */
												obj_t BgL_auxz00_8824;

												{	/* Eval/eval.scm 170 */
													obj_t BgL_aux2640z00_4162;

													BgL_aux2640z00_4162 =
														BGl_defaultzd2evaluatezd2zz__evalz00;
													if (PROCEDUREP(BgL_aux2640z00_4162))
														{	/* Eval/eval.scm 170 */
															BgL_auxz00_8824 = BgL_aux2640z00_4162;
														}
													else
														{
															obj_t BgL_auxz00_8827;

															BgL_auxz00_8827 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string2674z00zz__evalz00, BINT(6408L),
																BGl_string2851z00zz__evalz00,
																BGl_string2679z00zz__evalz00,
																BgL_aux2640z00_4162);
															FAILURE(BgL_auxz00_8827, BFALSE, BFALSE);
														}
												}
												BgL_arg1922z00_2108 =
													BGl_evalzf2expanderzf2zz__evalz00(BgL_fz00_2107,
													BgL_envz00_2110, BGl_expandzd2envzd2zz__expandz00,
													BgL_auxz00_8824);
											}
										}
									}
									{	/* Eval/eval.scm 759 */
										obj_t BgL_tmpfunz00_8836;

										{	/* Eval/eval.scm 759 */
											obj_t BgL_aux2642z00_4164;

											BgL_aux2642z00_4164 =
												BGl_za2replzd2printerza2zd2zz__evalz00;
											{	/* Eval/eval.scm 759 */
												bool_t BgL_test2643z00_4165;

												BgL_test2643z00_4165 = PROCEDUREP(BgL_aux2642z00_4164);
												if (BgL_test2643z00_4165)
													{	/* Eval/eval.scm 759 */
														BgL_tmpfunz00_8836 = BgL_aux2642z00_4164;
													}
												else
													{
														obj_t BgL_auxz00_8839;

														BgL_auxz00_8839 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2674z00zz__evalz00, BINT(28403L),
															BGl_string2851z00zz__evalz00,
															BGl_string2679z00zz__evalz00,
															BgL_aux2642z00_4164);
														FAILURE(BgL_auxz00_8839, BFALSE, BFALSE);
													}
											}
										}
										(VA_PROCEDUREP(BgL_tmpfunz00_8836) ? ((obj_t(*)(obj_t,
														...))
												PROCEDURE_ENTRY(BgL_tmpfunz00_8836))
											(BGl_za2replzd2printerza2zd2zz__evalz00,
												BgL_arg1922z00_2108, BgL_portz00_2083,
												BEOA) : ((obj_t(*)(obj_t, obj_t,
														obj_t))
												PROCEDURE_ENTRY(BgL_tmpfunz00_8836))
											(BGl_za2replzd2printerza2zd2zz__evalz00,
												BgL_arg1922z00_2108, BgL_portz00_2083));
									}
								}
								bgl_display_char(((unsigned char) 10), BgL_portz00_2083);
							}
							{
								obj_t BgL_l1254z00_8844;

								BgL_l1254z00_8844 = CDR(BgL_l1254z00_2104);
								BgL_l1254z00_2104 = BgL_l1254z00_8844;
								goto BgL_zc3z04anonymousza31920ze3z87_2105;
							}
						}
					else
						{	/* Eval/eval.scm 755 */
							if (NULLP(BgL_l1254z00_2104))
								{	/* Eval/eval.scm 755 */
									BTRUE;
								}
							else
								{	/* Eval/eval.scm 755 */
									BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00
										(BGl_string2852z00zz__evalz00, BGl_string2808z00zz__evalz00,
										BgL_l1254z00_2104, BGl_string2674z00zz__evalz00,
										BINT(28302L));
								}
						}
				}
				bgl_display_string(BGl_string2847z00zz__evalz00, BgL_portz00_2083);
				bgl_display_char(((unsigned char) 10), BgL_portz00_2083);
				{	/* Eval/eval.scm 763 */
					obj_t BgL_oldzd2prompterzd2_2115;

					{	/* Eval/eval.scm 763 */
						obj_t BgL_res2268z00_3262;

						{	/* Eval/eval.scm 283 */
							obj_t BgL_aux2644z00_4166;

							BgL_aux2644z00_4166 = BGl_za2promptza2z00zz__evalz00;
							if (PROCEDUREP(BgL_aux2644z00_4166))
								{	/* Eval/eval.scm 283 */
									BgL_res2268z00_3262 = BgL_aux2644z00_4166;
								}
							else
								{
									obj_t BgL_auxz00_8854;

									BgL_auxz00_8854 =
										BGl_typezd2errorzd2zz__errorz00
										(BGl_string2674z00zz__evalz00, BINT(11393L),
										BGl_string2853z00zz__evalz00, BGl_string2679z00zz__evalz00,
										BgL_aux2644z00_4166);
									FAILURE(BgL_auxz00_8854, BFALSE, BFALSE);
								}
						}
						BgL_oldzd2prompterzd2_2115 = BgL_res2268z00_3262;
					}
					if (PROCEDURE_CORRECT_ARITYP(BGl_proc2854z00zz__evalz00, (int) (1L)))
						{	/* Eval/eval.scm 274 */
							BGl_za2promptza2z00zz__evalz00 = BGl_proc2854z00zz__evalz00;
						}
					else
						{	/* Eval/eval.scm 274 */
							BGl_errorz00zz__errorz00(BGl_symbol2699z00zz__evalz00,
								BGl_string2701z00zz__evalz00, BGl_proc2854z00zz__evalz00);
						}
					BGl_replz00zz__evalz00();
					{	/* Eval/eval.scm 766 */
						obj_t BgL_procz00_3267;

						if (PROCEDUREP(BgL_oldzd2prompterzd2_2115))
							{	/* Eval/eval.scm 766 */
								BgL_procz00_3267 = BgL_oldzd2prompterzd2_2115;
							}
						else
							{
								obj_t BgL_auxz00_8865;

								BgL_auxz00_8865 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2674z00zz__evalz00,
									BINT(28629L), BGl_string2853z00zz__evalz00,
									BGl_string2679z00zz__evalz00, BgL_oldzd2prompterzd2_2115);
								FAILURE(BgL_auxz00_8865, BFALSE, BFALSE);
							}
						if (PROCEDURE_CORRECT_ARITYP(BgL_procz00_3267, (int) (1L)))
							{	/* Eval/eval.scm 274 */
								return (BGl_za2promptza2z00zz__evalz00 =
									BgL_procz00_3267, BUNSPEC);
							}
						else
							{	/* Eval/eval.scm 274 */
								BGL_TAIL return
									BGl_errorz00zz__errorz00(BGl_symbol2699z00zz__evalz00,
									BGl_string2701z00zz__evalz00, BgL_procz00_3267);
							}
					}
				}
			}
		}

	}



/* <@exit:1909>~0 */
	obj_t BGl_zc3z04exitza31909ze3ze70z60zz__evalz00(obj_t BgL_locz00_3729,
		obj_t BgL_failzd2bodyzd2_3728)
	{
		{	/* Eval/eval.scm 740 */
			jmp_buf_t jmpbuf;
			void *BgL_an_exit1185z00_2085;

			if (SET_EXIT(BgL_an_exit1185z00_2085))
				{
					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_exit1185z00_2085 = (void *) jmpbuf;
					{	/* Eval/eval.scm 740 */
						obj_t BgL_env1189z00_2086;

						BgL_env1189z00_2086 = BGL_CURRENT_DYNAMIC_ENV();
						PUSH_ENV_EXIT(BgL_env1189z00_2086, BgL_an_exit1185z00_2085, 1L);
						{	/* Eval/eval.scm 740 */
							obj_t BgL_an_exitd1186z00_2087;

							BgL_an_exitd1186z00_2087 =
								BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1189z00_2086);
							{	/* Eval/eval.scm 740 */
								obj_t BgL_res1188z00_2090;

								{	/* Eval/eval.scm 743 */
									obj_t BgL_zc3z04anonymousza31916ze3z87_3708;
									obj_t BgL_zc3z04anonymousza31915ze3z87_3709;

									BgL_zc3z04anonymousza31916ze3z87_3708 =
										MAKE_FX_PROCEDURE
										(BGl_z62zc3z04anonymousza31916ze3ze5zz__evalz00, (int) (0L),
										(int) (2L));
									BgL_zc3z04anonymousza31915ze3z87_3709 =
										MAKE_FX_PROCEDURE
										(BGl_z62zc3z04anonymousza31915ze3ze5zz__evalz00, (int) (1L),
										(int) (1L));
									PROCEDURE_SET(BgL_zc3z04anonymousza31916ze3z87_3708,
										(int) (0L), BgL_failzd2bodyzd2_3728);
									PROCEDURE_SET(BgL_zc3z04anonymousza31916ze3z87_3708,
										(int) (1L), BgL_locz00_3729);
									PROCEDURE_SET(BgL_zc3z04anonymousza31915ze3z87_3709,
										(int) (0L), BgL_an_exitd1186z00_2087);
									BgL_res1188z00_2090 =
										BGl_withzd2exceptionzd2handlerz00zz__errorz00
										(BgL_zc3z04anonymousza31915ze3z87_3709,
										BgL_zc3z04anonymousza31916ze3z87_3708);
								}
								POP_ENV_EXIT(BgL_env1189z00_2086);
								return BgL_res1188z00_2090;
							}
						}
					}
				}
		}

	}



/* &notify-assert-fail */
	obj_t BGl_z62notifyzd2assertzd2failz62zz__evalz00(obj_t BgL_envz00_3710,
		obj_t BgL_varsz00_3711, obj_t BgL_failzd2bodyzd2_3712,
		obj_t BgL_locz00_3713)
	{
		{	/* Eval/eval.scm 738 */
			return
				BGl_notifyzd2assertzd2failz00zz__evalz00(BgL_varsz00_3711,
				BgL_failzd2bodyzd2_3712, BgL_locz00_3713);
		}

	}



/* &<@anonymous:1926> */
	obj_t BGl_z62zc3z04anonymousza31926ze3ze5zz__evalz00(obj_t BgL_envz00_3714,
		obj_t BgL_numz00_3715)
	{
		{	/* Eval/eval.scm 764 */
			{	/* Eval/eval.scm 764 */
				obj_t BgL_arg1927z00_5733;

				{	/* Eval/eval.scm 764 */
					obj_t BgL_tmpz00_8893;

					BgL_tmpz00_8893 = BGL_CURRENT_DYNAMIC_ENV();
					BgL_arg1927z00_5733 = BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_8893);
				}
				return
					bgl_display_string(BGl_string2855z00zz__evalz00, BgL_arg1927z00_5733);
			}
		}

	}



/* &<@anonymous:1916> */
	obj_t BGl_z62zc3z04anonymousza31916ze3ze5zz__evalz00(obj_t BgL_envz00_3716)
	{
		{	/* Eval/eval.scm 745 */
			{	/* Eval/eval.scm 746 */
				obj_t BgL_failzd2bodyzd2_3717;
				obj_t BgL_locz00_3718;

				BgL_failzd2bodyzd2_3717 = PROCEDURE_REF(BgL_envz00_3716, (int) (0L));
				BgL_locz00_3718 = PROCEDURE_REF(BgL_envz00_3716, (int) (1L));
				if (PAIRP(BgL_locz00_3718))
					{	/* Eval/eval.scm 746 */
						return
							BGl_errorzf2locationzf2zz__errorz00(BGl_string2856z00zz__evalz00,
							BGl_string2857z00zz__evalz00, BgL_failzd2bodyzd2_3717,
							CAR(BgL_locz00_3718), CDR(BgL_locz00_3718));
					}
				else
					{	/* Eval/eval.scm 746 */
						return
							BGl_errorz00zz__errorz00(BGl_symbol2858z00zz__evalz00,
							BGl_string2857z00zz__evalz00, BgL_failzd2bodyzd2_3717);
					}
			}
		}

	}



/* &<@anonymous:1915> */
	obj_t BGl_z62zc3z04anonymousza31915ze3ze5zz__evalz00(obj_t BgL_envz00_3719,
		obj_t BgL_ez00_3721)
	{
		{	/* Eval/eval.scm 742 */
			{	/* Eval/eval.scm 743 */
				obj_t BgL_an_exitd1186z00_3720;

				BgL_an_exitd1186z00_3720 = PROCEDURE_REF(BgL_envz00_3719, (int) (0L));
				BGl_errorzd2notifyzd2zz__errorz00(BgL_ez00_3721);
				return
					unwind_stack_until(BgL_an_exitd1186z00_3720, BFALSE, BUNSPEC, BFALSE,
					BFALSE);
			}
		}

	}



/* identifier-syntax */
	BGL_EXPORTED_DEF obj_t BGl_identifierzd2syntaxzd2zz__evalz00(void)
	{
		{	/* Eval/eval.scm 788 */
			return BGl_za2identifierzd2syntaxza2zd2zz__evalz00;
		}

	}



/* &identifier-syntax */
	obj_t BGl_z62identifierzd2syntaxzb0zz__evalz00(obj_t BgL_envz00_3722)
	{
		{	/* Eval/eval.scm 788 */
			return BGl_identifierzd2syntaxzd2zz__evalz00();
		}

	}



/* identifier-syntax-set! */
	BGL_EXPORTED_DEF obj_t BGl_identifierzd2syntaxzd2setz12z12zz__evalz00(obj_t
		BgL_vz00_66)
	{
		{	/* Eval/eval.scm 789 */
			return (BGl_za2identifierzd2syntaxza2zd2zz__evalz00 =
				BgL_vz00_66, BUNSPEC);
		}

	}



/* &identifier-syntax-set! */
	obj_t BGl_z62identifierzd2syntaxzd2setz12z70zz__evalz00(obj_t BgL_envz00_3723,
		obj_t BgL_vz00_3724)
	{
		{	/* Eval/eval.scm 789 */
			{	/* Eval/eval.scm 789 */
				obj_t BgL_auxz00_8912;

				if (SYMBOLP(BgL_vz00_3724))
					{	/* Eval/eval.scm 789 */
						BgL_auxz00_8912 = BgL_vz00_3724;
					}
				else
					{
						obj_t BgL_auxz00_8915;

						BgL_auxz00_8915 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2674z00zz__evalz00,
							BINT(29891L), BGl_string2859z00zz__evalz00,
							BGl_string2860z00zz__evalz00, BgL_vz00_3724);
						FAILURE(BgL_auxz00_8915, BFALSE, BFALSE);
					}
				return BGl_identifierzd2syntaxzd2setz12z12zz__evalz00(BgL_auxz00_8912);
			}
		}

	}



/* transcript-on */
	BGL_EXPORTED_DEF obj_t BGl_transcriptzd2onzd2zz__evalz00(obj_t BgL_filez00_67)
	{
		{	/* Eval/eval.scm 799 */
			{	/* Eval/eval.scm 800 */
				bool_t BgL_test3500z00_8920;

				{	/* Eval/eval.scm 800 */
					obj_t BgL_arg1932z00_2127;

					{	/* Eval/eval.scm 800 */
						obj_t BgL_tmpz00_8921;

						BgL_tmpz00_8921 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_arg1932z00_2127 = BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_8921);
					}
					BgL_test3500z00_8920 =
						(BGl_za2transcriptza2z00zz__evalz00 == BgL_arg1932z00_2127);
				}
				if (BgL_test3500z00_8920)
					{	/* Eval/eval.scm 800 */
						{	/* Ieee/port.scm 484 */

							BGl_za2transcriptza2z00zz__evalz00 =
								BGl_appendzd2outputzd2filez00zz__r4_ports_6_10_1z00
								(BgL_filez00_67, BTRUE);
						}
						{	/* Eval/eval.scm 804 */
							obj_t BgL_port1257z00_2125;

							BgL_port1257z00_2125 = BGl_za2transcriptza2z00zz__evalz00;
							{	/* Eval/eval.scm 804 */
								obj_t BgL_portz00_3270;

								if (OUTPUT_PORTP(BgL_port1257z00_2125))
									{	/* Eval/eval.scm 804 */
										BgL_portz00_3270 = BgL_port1257z00_2125;
									}
								else
									{
										obj_t BgL_auxz00_8928;

										BgL_auxz00_8928 =
											BGl_typezd2errorzd2zz__errorz00
											(BGl_string2674z00zz__evalz00, BINT(30645L),
											BGl_string2861z00zz__evalz00,
											BGl_string2713z00zz__evalz00, BgL_port1257z00_2125);
										FAILURE(BgL_auxz00_8928, BFALSE, BFALSE);
									}
								bgl_display_string(BGl_string2862z00zz__evalz00,
									BgL_portz00_3270);
							}
							{	/* Eval/eval.scm 804 */
								char *BgL_arg1931z00_2126;

								BgL_arg1931z00_2126 = BGl_datez00zz__osz00();
								{	/* Eval/eval.scm 804 */
									obj_t BgL_auxz00_8934;

									if (OUTPUT_PORTP(BgL_port1257z00_2125))
										{	/* Eval/eval.scm 804 */
											BgL_auxz00_8934 = BgL_port1257z00_2125;
										}
									else
										{
											obj_t BgL_auxz00_8938;

											BgL_auxz00_8938 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2674z00zz__evalz00, BINT(30645L),
												BGl_string2861z00zz__evalz00,
												BGl_string2713z00zz__evalz00, BgL_port1257z00_2125);
											FAILURE(BgL_auxz00_8938, BFALSE, BFALSE);
										}
									bgl_display_obj(string_to_bstring(BgL_arg1931z00_2126),
										BgL_auxz00_8934);
								}
							}
							{	/* Eval/eval.scm 804 */
								obj_t BgL_portz00_3271;

								if (OUTPUT_PORTP(BgL_port1257z00_2125))
									{	/* Eval/eval.scm 804 */
										BgL_portz00_3271 = BgL_port1257z00_2125;
									}
								else
									{
										obj_t BgL_auxz00_8945;

										BgL_auxz00_8945 =
											BGl_typezd2errorzd2zz__errorz00
											(BGl_string2674z00zz__evalz00, BINT(30645L),
											BGl_string2861z00zz__evalz00,
											BGl_string2713z00zz__evalz00, BgL_port1257z00_2125);
										FAILURE(BgL_auxz00_8945, BFALSE, BFALSE);
									}
								bgl_display_char(((unsigned char) 10), BgL_portz00_3271);
						}}
						return BUNSPEC;
					}
				else
					{	/* Eval/eval.scm 800 */
						return
							BGl_errorz00zz__errorz00(BGl_symbol2863z00zz__evalz00,
							BGl_string2864z00zz__evalz00, BGl_za2transcriptza2z00zz__evalz00);
					}
			}
		}

	}



/* &transcript-on */
	obj_t BGl_z62transcriptzd2onzb0zz__evalz00(obj_t BgL_envz00_3725,
		obj_t BgL_filez00_3726)
	{
		{	/* Eval/eval.scm 799 */
			{	/* Eval/eval.scm 800 */
				obj_t BgL_auxz00_8951;

				if (STRINGP(BgL_filez00_3726))
					{	/* Eval/eval.scm 800 */
						BgL_auxz00_8951 = BgL_filez00_3726;
					}
				else
					{
						obj_t BgL_auxz00_8954;

						BgL_auxz00_8954 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2674z00zz__evalz00,
							BINT(30452L), BGl_string2865z00zz__evalz00,
							BGl_string2692z00zz__evalz00, BgL_filez00_3726);
						FAILURE(BgL_auxz00_8954, BFALSE, BFALSE);
					}
				return BGl_transcriptzd2onzd2zz__evalz00(BgL_auxz00_8951);
			}
		}

	}



/* transcript-off */
	BGL_EXPORTED_DEF obj_t BGl_transcriptzd2offzd2zz__evalz00(void)
	{
		{	/* Eval/eval.scm 810 */
			{	/* Eval/eval.scm 811 */
				bool_t BgL_test3505z00_8959;

				{	/* Eval/eval.scm 811 */
					obj_t BgL_arg1935z00_2130;

					{	/* Eval/eval.scm 811 */
						obj_t BgL_tmpz00_8960;

						BgL_tmpz00_8960 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_arg1935z00_2130 = BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_8960);
					}
					BgL_test3505z00_8959 =
						(BGl_za2transcriptza2z00zz__evalz00 == BgL_arg1935z00_2130);
				}
				if (BgL_test3505z00_8959)
					{	/* Eval/eval.scm 811 */
						BGl_errorz00zz__errorz00(BGl_symbol2866z00zz__evalz00,
							BGl_string2868z00zz__evalz00, BGl_za2transcriptza2z00zz__evalz00);
					}
				else
					{	/* Eval/eval.scm 811 */
						{	/* Eval/eval.scm 816 */
							obj_t BgL_portz00_3273;

							{	/* Eval/eval.scm 816 */
								obj_t BgL_aux2658z00_4180;

								BgL_aux2658z00_4180 = BGl_za2transcriptza2z00zz__evalz00;
								if (OUTPUT_PORTP(BgL_aux2658z00_4180))
									{	/* Eval/eval.scm 816 */
										BgL_portz00_3273 = BgL_aux2658z00_4180;
									}
								else
									{
										obj_t BgL_auxz00_8967;

										BgL_auxz00_8967 =
											BGl_typezd2errorzd2zz__errorz00
											(BGl_string2674z00zz__evalz00, BINT(31144L),
											BGl_string2867z00zz__evalz00,
											BGl_string2713z00zz__evalz00, BgL_aux2658z00_4180);
										FAILURE(BgL_auxz00_8967, BFALSE, BFALSE);
									}
							}
							bgl_close_output_port(BgL_portz00_3273);
						}
						{	/* Eval/eval.scm 817 */
							obj_t BgL_tmpz00_8972;

							BgL_tmpz00_8972 = BGL_CURRENT_DYNAMIC_ENV();
							BGl_za2transcriptza2z00zz__evalz00 =
								BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_8972);
						}
					}
			}
			return BUNSPEC;
		}

	}



/* &transcript-off */
	obj_t BGl_z62transcriptzd2offzb0zz__evalz00(obj_t BgL_envz00_3727)
	{
		{	/* Eval/eval.scm 810 */
			return BGl_transcriptzd2offzd2zz__evalz00();
		}

	}



/* object-init */
	obj_t BGl_objectzd2initzd2zz__evalz00(void)
	{
		{	/* Eval/eval.scm 18 */
			return BUNSPEC;
		}

	}



/* generic-init */
	obj_t BGl_genericzd2initzd2zz__evalz00(void)
	{
		{	/* Eval/eval.scm 18 */
			return BUNSPEC;
		}

	}



/* method-init */
	obj_t BGl_methodzd2initzd2zz__evalz00(void)
	{
		{	/* Eval/eval.scm 18 */
			return BUNSPEC;
		}

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zz__evalz00(void)
	{
		{	/* Eval/eval.scm 18 */
			BGl_modulezd2initializa7ationz75zz__typez00(393254000L,
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			BGl_modulezd2initializa7ationz75zz__objectz00(475449627L,
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			BGl_modulezd2initializa7ationz75zz__errorz00(88804785L,
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			BGl_modulezd2initializa7ationz75zz__biglooz00(348684831L,
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			BGl_modulezd2initializa7ationz75zz__tvectorz00(135276775L,
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			BGl_modulezd2initializa7ationz75zz__structurez00(128205792L,
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			BGl_modulezd2initializa7ationz75zz__bexitz00(443005284L,
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			BGl_modulezd2initializa7ationz75zz__bignumz00(289561787L,
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			BGl_modulezd2initializa7ationz75zz__osz00(310000171L,
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			BGl_modulezd2initializa7ationz75zz__paramz00(453939141L,
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			BGl_modulezd2initializa7ationz75zz__threadz00(149516032L,
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			BGl_modulezd2initializa7ationz75zz__bitz00(377164741L,
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			BGl_modulezd2initializa7ationz75zz__pp_circlez00(122355566L,
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			BGl_modulezd2initializa7ationz75zz__readerz00(220648206L,
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			BGl_modulezd2initializa7ationz75zz__intextz00(6305717L,
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			BGl_modulezd2initializa7ationz75zz__rgcz00(352600006L,
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(26840973L,
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(457511469L,
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(362050511L,
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonum_dtoaz00
				(268155843L, BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			BGl_modulezd2initializa7ationz75zz__r4_characters_6_6z00(198620800L,
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(111613887L,
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			BGl_modulezd2initializa7ationz75zz__r4_booleans_6_1z00(459519430L,
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(115192690L,
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00((-44273703L),
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(9614678L,
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			BGl_modulezd2initializa7ationz75zz__r4_input_6_10_2z00(323064722L,
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(376927882L,
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(43892022L,
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(185672289L,
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(86988580L,
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			BGl_modulezd2initializa7ationz75zz__macroz00(261397491L,
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			BGl_modulezd2initializa7ationz75zz__install_expandersz00(305094867L,
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			BGl_modulezd2initializa7ationz75zz__prognz00(177147622L,
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			BGl_modulezd2initializa7ationz75zz__expandz00(414007149L,
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			BGl_modulezd2initializa7ationz75zz__evcompilez00(492754569L,
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			BGl_modulezd2initializa7ationz75zz__evmeaningz00(72314635L,
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			BGl_modulezd2initializa7ationz75zz__evaluatez00(398574045L,
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			BGl_modulezd2initializa7ationz75zz__everrorz00(375872221L,
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			BGl_modulezd2initializa7ationz75zz__evprimopz00(245680565L,
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			BGl_modulezd2initializa7ationz75zz__evenvz00(528345299L,
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			BGl_modulezd2initializa7ationz75zz__evmodulez00(505897955L,
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
			return
				BGl_modulezd2initializa7ationz75zz__match_normaliza7eza7(515155867L,
				BSTRING_TO_STRING(BGl_string2869z00zz__evalz00));
		}

	}



/* eval-init */
	obj_t BGl_evalzd2initzd2zz__evalz00(void)
	{
		{	/* Eval/eval.scm 18 */
			BGl_definezd2primopzd2refzf2locz12ze0zz__evenvz00
				(BGl_symbol2870z00zz__evalz00,
				__EVMEANING_ADDRESS((BGl_za2czd2debugzd2replzd2valueza2zd2zz__evalz00)),
				BGl_string2872z00zz__evalz00, BINT(16663L));
			return BUNSPEC;
		}

	}

#ifdef __cplusplus
}
#endif
