/*===========================================================================*/
/*   (Eval/evmodule.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/evmodule.scm -indent -o objs/obj_u/Eval/evmodule.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___EVMODULE_TYPE_DEFINITIONS
#define BGL___EVMODULE_TYPE_DEFINITIONS
#endif													// BGL___EVMODULE_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	static obj_t BGl_z62evmodulezd2staticzd2classz62zz__evmodulez00(obj_t, obj_t);
	static obj_t BGl_zc3z04anonymousza31989ze3ze70z60zz__evmodulez00(obj_t,
		obj_t);
	static obj_t BGl_evmodulezd2importzd2zz__evmodulez00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62evalzd2findzd2modulez62zz__evmodulez00(obj_t, obj_t);
	static obj_t BGl_z62evalzd2modulezd2setz12z70zz__evmodulez00(obj_t, obj_t);
	static obj_t BGl_za2moduleszd2mutexza2zd2zz__evmodulez00 = BUNSPEC;
	static obj_t BGl_requirezd2initializa7ationz75zz__evmodulez00 = BUNSPEC;
	static obj_t BGl_evmodulezd2staticzd2zz__evmodulez00(obj_t, obj_t, obj_t,
		bool_t);
	static obj_t BGl_z62zc3z04anonymousza31766ze3ze5zz__evmodulez00(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_evmodulezd2condzd2expandzd2clauseze70z35zz__evmodulez00(obj_t, obj_t);
	static obj_t BGl_TAGzd2881ze70z35zz__evmodulez00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_za2loadqzd2mutexza2zd2zz__evmodulez00 = BUNSPEC;
	static obj_t BGl_makezd2evmodulezd2zz__evmodulez00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62evmodulezd2bindzd2globalz12z70zz__evmodulez00(obj_t,
		obj_t, obj_t, obj_t, obj_t);
	extern obj_t bgl_display_obj(obj_t, obj_t);
	extern obj_t BGl_findzd2tailzd2zz__r4_pairs_and_lists_6_3z00(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_evalzd2modulezd2zz__evmodulez00(void);
	static obj_t BGl_z62evmodulezd2compz12za2zz__evmodulez00(obj_t, obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62callzd2withzd2evalzd2modulezb0zz__evmodulez00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31954ze3ze5zz__evmodulez00(obj_t, obj_t);
	extern obj_t BGl_assocz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_locationzd2dirzd2zz__evmodulez00(obj_t);
	static obj_t BGl_toplevelzd2initzd2zz__evmodulez00(void);
	static obj_t BGl_z62evmodulezd2loadqzb0zz__evmodulez00(obj_t, obj_t, obj_t);
	extern obj_t BGl_evalz00zz__evalz00(obj_t, obj_t);
	extern obj_t BGl_formatz00zz__r4_output_6_10_3z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_evmodulezd2checkzd2unboundz00zz__evmodulez00(obj_t, obj_t);
	static obj_t BGl_genericzd2initzd2zz__evmodulez00(void);
	extern obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t);
	extern obj_t BGl_appendz00zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_objectzd2initzd2zz__evmodulez00(void);
	extern obj_t BGl_evalzd2expandzd2duplicatez00zz__evobjectz00(obj_t);
	static obj_t BGl_evmodulezd2optionzd2zz__evmodulez00(obj_t, obj_t);
	static obj_t BGl_z62evmodulez62zz__evmodulez00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza32033ze3ze5zz__evmodulez00(obj_t);
	extern obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_z62evmodulezd2extensionzb0zz__evmodulez00(obj_t, obj_t);
	extern obj_t BGl_dirnamez00zz__osz00(obj_t);
	extern obj_t string_append_3(obj_t, obj_t, obj_t);
	static obj_t BGl_evmodulezd2step1zd2zz__evmodulez00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62evmodulezd2macrozd2tablez62zz__evmodulez00(obj_t, obj_t);
	extern obj_t BGl_filezd2namezd2unixzd2canonicaliza7ez75zz__osz00(obj_t);
	static obj_t BGl_evmodulezd2step2zd2zz__evmodulez00(obj_t, obj_t, obj_t);
	static obj_t BGl_evmodulezd2step3zd2zz__evmodulez00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_evmodulezd2compz12zc0zz__evmodulez00(obj_t, obj_t,
		obj_t, obj_t);
	extern bool_t BGl_hashtablezf3zf3zz__hashz00(obj_t);
	extern obj_t BGl_readz00zz__readerz00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31879ze3ze5zz__evmodulez00(obj_t);
	extern obj_t bstring_to_symbol(obj_t);
	extern int BGl_bigloozd2debugzd2modulez00zz__paramz00(void);
	static obj_t BGl_z62zc3z04anonymousza32052ze3ze5zz__evmodulez00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_evmodulezd2namezd2zz__evmodulez00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_evmodulezd2macrozd2tablez00zz__evmodulez00(obj_t);
	static obj_t BGl_appendzd221011zd2zz__evmodulez00(obj_t, obj_t);
	static obj_t BGl_z62evalzd2modulezb0zz__evmodulez00(obj_t);
	static obj_t BGl_methodzd2initzd2zz__evmodulez00(void);
	static obj_t BGl_z62evmodulezd2staticzd2clausez62zz__evmodulez00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_markzd2globalz12zc0zz__evmodulez00(obj_t, obj_t, long,
		obj_t);
	extern obj_t BGl_evalzd2classzd2zz__evobjectz00(obj_t, bool_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62evmodulezd2pathzb0zz__evmodulez00(obj_t, obj_t);
	extern obj_t BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t, obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31430ze3ze5zz__evmodulez00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62evmodulezd2extensionzd2setz12z70zz__evmodulez00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_evmodulezd2includezd2zz__evmodulez00(obj_t, obj_t, obj_t);
	extern obj_t BGl_warningzf2loczf2zz__errorz00(obj_t, obj_t);
	extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
	static obj_t BGl_evmodulezd2importz12zc0zz__evmodulez00(obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_z62evmodulezd2checkzd2unboundz62zz__evmodulez00(obj_t, obj_t,
		obj_t);
	extern bool_t BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
	extern obj_t bgl_append2(obj_t, obj_t);
	extern obj_t BGl_z52withzd2tracez80zz__tracez00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_evmodulez00zz__evmodulez00(obj_t, obj_t);
	static obj_t BGl_untypezd2identzd2zz__evmodulez00(obj_t);
	static obj_t BGl_z62globalzd2checkzd2unboundz62zz__evmodulez00(obj_t, obj_t,
		obj_t);
	extern obj_t bgl_remq_bang(obj_t, obj_t);
	static obj_t BGl_evaliaszd2modulezd2zz__evmodulez00(obj_t);
	extern obj_t BGl_evcompilezd2loczd2filenamez00zz__evcompilez00(obj_t);
	extern obj_t BGl_bigloozd2modulezd2resolverz00zz__modulez00(void);
	extern obj_t BGl_errorzd2notifyzd2zz__errorz00(obj_t);
	extern obj_t BGl_evepairifyz00zz__prognz00(obj_t, obj_t);
	static obj_t BGl_z62importzd2modulezb0zz__evmodulez00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_zc3z04anonymousza32007ze3ze70z60zz__evmodulez00(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_makezd2hashtablezd2zz__hashz00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__evmodulez00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evobjectz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evcompilez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__everrorz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evenvz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evalz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__threadz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__prognz00(long, char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r5_control_features_6_4z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_booleans_6_1z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_characters_6_6z00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonum_dtoaz00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(long, char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__tracez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__expandz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__hashz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__paramz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__bitz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__osz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__bignumz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__bexitz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__structurez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__tvectorz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__modulez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__biglooz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__typez00(long, char *);
	extern obj_t BGl_bigloozd2loadzd2modulez00zz__paramz00(void);
	extern obj_t BGl_evalzd2expandzd2instantiatez00zz__evobjectz00(obj_t);
	extern bool_t BGl_classzf3zf3zz__objectz00(obj_t);
	extern obj_t BGl_stringzd2appendzd2zz__r4_strings_6_7z00(obj_t);
	static obj_t BGl_evmodulezd2loadzd2zz__evmodulez00(obj_t, obj_t, obj_t,
		obj_t);
	extern obj_t BGl_evalzd2lookupzd2zz__evenvz00(obj_t);
	extern obj_t BGl_loadqz00zz__evalz00(obj_t, obj_t);
	static obj_t BGl_symbol3103z00zz__evmodulez00 = BUNSPEC;
	static obj_t BGl_symbol3105z00zz__evmodulez00 = BUNSPEC;
	extern obj_t BGl_tprintz00zz__r4_output_6_10_3z00(obj_t, obj_t);
	static obj_t BGl_z62evmodulezf3z91zz__evmodulez00(obj_t, obj_t);
	extern obj_t create_struct(obj_t, int);
	BGL_EXPORTED_DECL obj_t BGl_evmodulezd2extensionzd2zz__evmodulez00(obj_t);
	static obj_t BGl_zc3z04exitza31676ze3ze70z60zz__evmodulez00(obj_t, obj_t,
		obj_t, obj_t, obj_t);
	static bool_t BGl_forzd2eachzf2locz20zz__evmodulez00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31366ze3ze5zz__evmodulez00(obj_t, obj_t);
	static obj_t BGl_z62evmodulezd2findzd2globalz62zz__evmodulez00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62makezd2z52evmoduleze2zz__evmodulez00(obj_t, obj_t);
	static obj_t BGl_cnstzd2initzd2zz__evmodulez00(void);
	extern bool_t BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_za2loadingzd2listza2zd2zz__evmodulez00 = BUNSPEC;
	static obj_t BGl_symbol3032z00zz__evmodulez00 = BUNSPEC;
	static obj_t BGl_symbol3034z00zz__evmodulez00 = BUNSPEC;
	static obj_t BGl_symbol3116z00zz__evmodulez00 = BUNSPEC;
	extern long bgl_list_length(obj_t);
	static obj_t BGl_symbol3118z00zz__evmodulez00 = BUNSPEC;
	static obj_t BGl_importedzd2moduleszd2initz00zz__evmodulez00(void);
	static obj_t BGl_gczd2rootszd2initz00zz__evmodulez00(void);
	extern obj_t BGl_bindzd2evalzd2globalz12z12zz__evenvz00(obj_t, obj_t);
	extern obj_t BGl_evwarningz00zz__everrorz00(obj_t, obj_t);
	static obj_t BGl_symbol3200z00zz__evmodulez00 = BUNSPEC;
	static obj_t BGl_symbol3120z00zz__evmodulez00 = BUNSPEC;
	static obj_t BGl_symbol3202z00zz__evmodulez00 = BUNSPEC;
	extern obj_t BGl_hashtablezd2forzd2eachz00zz__hashz00(obj_t, obj_t);
	static obj_t BGl_symbol3204z00zz__evmodulez00 = BUNSPEC;
	static obj_t BGl_symbol3043z00zz__evmodulez00 = BUNSPEC;
	static obj_t BGl_symbol3206z00zz__evmodulez00 = BUNSPEC;
	static obj_t BGl_evmodulezd2fromzd2zz__evmodulez00(obj_t, obj_t, obj_t);
	static obj_t BGl_symbol3209z00zz__evmodulez00 = BUNSPEC;
	extern obj_t BGl_bigloozd2modulezd2extensionzd2handlerzd2zz__paramz00(void);
	extern obj_t BGl_hashtablezd2keyzd2listz00zz__hashz00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_evmodulezd2findzd2globalz00zz__evmodulez00(obj_t,
		obj_t);
	static obj_t BGl_evmodulezd2importzd2bindingz12z12zz__evmodulez00(obj_t,
		obj_t, obj_t, obj_t, obj_t);
	extern obj_t BGl_getzd2evalzd2expanderz00zz__macroz00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_evmodulezd2pathzd2zz__evmodulez00(obj_t);
	static obj_t BGl_symbol3211z00zz__evmodulez00 = BUNSPEC;
	static obj_t BGl_symbol3130z00zz__evmodulez00 = BUNSPEC;
	static obj_t BGl_z62evmodulezd2exportzd2clausez62zz__evmodulez00(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_interactionzd2environmentzd2zz__evalz00(void);
	static obj_t BGl_za2moduleszd2tableza2zd2zz__evmodulez00 = BUNSPEC;
	extern obj_t BGl_pwdz00zz__osz00(void);
	extern obj_t BGl_za2loadzd2pathza2zd2zz__evalz00;
	static obj_t BGl_evmodulezd2exportzd2zz__evmodulez00(obj_t, obj_t, obj_t,
		bool_t);
	BGL_EXPORTED_DECL bool_t BGl_evmodulezf3zf3zz__evmodulez00(obj_t);
	static obj_t BGl_symbol3224z00zz__evmodulez00 = BUNSPEC;
	static obj_t BGl_symbol3226z00zz__evmodulez00 = BUNSPEC;
	extern obj_t BGl_getzd2sourcezd2locationz00zz__readerz00(obj_t);
	static obj_t BGl_symbol3228z00zz__evmodulez00 = BUNSPEC;
	static obj_t BGl_symbol3149z00zz__evmodulez00 = BUNSPEC;
	extern obj_t BGl_portzd2ze3listz31zz__readerz00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31742ze3ze5zz__evmodulez00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62loadzd2modulezb0zz__evmodulez00(obj_t, obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_symbol3074z00zz__evmodulez00 = BUNSPEC;
	extern obj_t c_substring(obj_t, long, long);
	static obj_t BGl_symbol3076z00zz__evmodulez00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_evalzd2findzd2modulez00zz__evmodulez00(obj_t);
	extern obj_t BGl_expandzd2oncezd2zz__expandz00(obj_t);
	extern obj_t BGl_hashtablezd2putz12zc0zz__hashz00(obj_t, obj_t, obj_t);
	extern obj_t BGl_gensymz00zz__r4_symbols_6_4z00(obj_t);
	extern obj_t make_struct(obj_t, int, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_evalzd2modulezd2setz12z12zz__evmodulez00(obj_t);
	extern obj_t BGl_evcompilezd2errorzd2zz__evcompilez00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_symbol3160z00zz__evmodulez00 = BUNSPEC;
	static obj_t BGl_symbol3080z00zz__evmodulez00 = BUNSPEC;
	extern obj_t BGl_bigloozd2typezd2errorz00zz__errorz00(obj_t, obj_t, obj_t);
	static obj_t BGl_symbol3087z00zz__evmodulez00 = BUNSPEC;
	extern obj_t BGl_findzd2filezf2pathz20zz__osz00(obj_t, obj_t);
	extern obj_t BGl_callzd2withzd2inputzd2filezd2zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	static obj_t BGl_fromzd2moduleze70z35zz__evmodulez00(obj_t, obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_evmodulezd2staticzd2classz00zz__evmodulez00(obj_t);
	extern obj_t BGl_evalzd2expandzd2withzd2accesszd2zz__evobjectz00(obj_t);
	static obj_t BGl_evmodulezd2libraryzd2zz__evmodulez00(obj_t, obj_t);
	static obj_t BGl_symbol3091z00zz__evmodulez00 = BUNSPEC;
	BGL_EXPORTED_DEF obj_t BGl_evmodulezd2uninitializa7edz75zz__evmodulez00 =
		BUNSPEC;
	static obj_t BGl_symbol3095z00zz__evmodulez00 = BUNSPEC;
	static obj_t BGl_loopze70ze7zz__evmodulez00(obj_t, obj_t, obj_t);
	static obj_t BGl_symbol3097z00zz__evmodulez00 = BUNSPEC;
	static obj_t BGl_symbol3099z00zz__evmodulez00 = BUNSPEC;
	extern obj_t BGl_modulezd2loadzd2accesszd2filezd2zz__modulez00(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_evmodulezd2extensionzd2setz12z12zz__evmodulez00(obj_t, obj_t);
	static obj_t BGl_symbol3183z00zz__evmodulez00 = BUNSPEC;
	static obj_t BGl_symbol3188z00zz__evmodulez00 = BUNSPEC;
	static obj_t BGl_z62zc3z04anonymousza31746ze3ze5zz__evmodulez00(obj_t);
	extern obj_t BGl_hashtablezd2updatez12zc0zz__hashz00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_symbol3191z00zz__evmodulez00 = BUNSPEC;
	static obj_t BGl_symbol3193z00zz__evmodulez00 = BUNSPEC;
	static obj_t BGl_symbol3195z00zz__evmodulez00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t
		BGl_evmodulezd2bindzd2globalz12z12zz__evmodulez00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_symbol3197z00zz__evmodulez00 = BUNSPEC;
	static obj_t BGl_z62evmodulezd2namezb0zz__evmodulez00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31755ze3ze5zz__evmodulez00(obj_t);
	static bool_t BGl_aliaszd2pairzf3z21zz__evmodulez00(obj_t);
	static obj_t BGl_evmodulezd2fromz12zc0zz__evmodulez00(obj_t, obj_t, obj_t,
		obj_t, obj_t);
	extern obj_t BGl_defaultzd2environmentzd2zz__evalz00(void);
	BGL_EXPORTED_DECL obj_t
		BGl_callzd2withzd2evalzd2modulezd2zz__evmodulez00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31780ze3ze5zz__evmodulez00(obj_t);
	extern obj_t BGl_hashtablezd2getzd2zz__hashz00(obj_t, obj_t);
	static obj_t *__cnst;


	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_evmodulezd2extensionzd2envz00zz__evmodulez00,
		BgL_bgl_za762evmoduleza7d2ex3234z00,
		BGl_z62evmodulezd2extensionzb0zz__evmodulez00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string3100z00zz__evmodulez00,
		BgL_bgl_string3100za700za7za7_3235za7, "wide-class", 10);
	      BGL_DEFINE_STRING(BGl_string3101z00zz__evmodulez00,
		BgL_bgl_string3101za700za7za7_3236za7,
		"Wide classes are not supported within eval", 42);
	      BGL_DEFINE_STRING(BGl_string3102z00zz__evmodulez00,
		BgL_bgl_string3102za700za7za7_3237za7, "KAP-393", 7);
	      BGL_DEFINE_STRING(BGl_string3104z00zz__evmodulez00,
		BgL_bgl_string3104za700za7za7_3238za7, "inline", 6);
	      BGL_DEFINE_STRING(BGl_string3106z00zz__evmodulez00,
		BgL_bgl_string3106za700za7za7_3239za7, "generic", 7);
	      BGL_DEFINE_STRING(BGl_string3107z00zz__evmodulez00,
		BgL_bgl_string3107za700za7za7_3240za7, "_eval/loc", 9);
	      BGL_DEFINE_STRING(BGl_string3108z00zz__evmodulez00,
		BgL_bgl_string3108za700za7za7_3241za7, "evmodule-export", 15);
	      BGL_DEFINE_STRING(BGl_string3109z00zz__evmodulez00,
		BgL_bgl_string3109za700za7za7_3242za7, "Illegal `export' clause", 23);
	      BGL_DEFINE_STRING(BGl_string3110z00zz__evmodulez00,
		BgL_bgl_string3110za700za7za7_3243za7, "TAG-449", 7);
	      BGL_DEFINE_STRING(BGl_string3030z00zz__evmodulez00,
		BgL_bgl_string3030za700za7za7_3244za7, "modules", 7);
	      BGL_DEFINE_STRING(BGl_string3111z00zz__evmodulez00,
		BgL_bgl_string3111za700za7za7_3245za7, "TAG-445", 7);
	      BGL_DEFINE_STRING(BGl_string3031z00zz__evmodulez00,
		BgL_bgl_string3031za700za7za7_3246za7, "loadq", 5);
	      BGL_DEFINE_STRING(BGl_string3112z00zz__evmodulez00,
		BgL_bgl_string3112za700za7za7_3247za7, "TAG-443", 7);
	      BGL_DEFINE_STRING(BGl_string3113z00zz__evmodulez00,
		BgL_bgl_string3113za700za7za7_3248za7, "TAG-442", 7);
	      BGL_DEFINE_STRING(BGl_string3033z00zz__evmodulez00,
		BgL_bgl_string3033za700za7za7_3249za7, "#uninitialized", 14);
	      BGL_DEFINE_STRING(BGl_string3114z00zz__evmodulez00,
		BgL_bgl_string3114za700za7za7_3250za7, "TAG-441", 7);
	      BGL_DEFINE_STRING(BGl_string3115z00zz__evmodulez00,
		BgL_bgl_string3115za700za7za7_3251za7, "TAG-440", 7);
	      BGL_DEFINE_STRING(BGl_string3035z00zz__evmodulez00,
		BgL_bgl_string3035za700za7za7_3252za7, "%evmodule", 9);
	      BGL_DEFINE_STRING(BGl_string3036z00zz__evmodulez00,
		BgL_bgl_string3036za700za7za7_3253za7,
		"/tmp/bigloo/runtime/Eval/evmodule.scm", 37);
	      BGL_DEFINE_STRING(BGl_string3117z00zz__evmodulez00,
		BgL_bgl_string3117za700za7za7_3254za7, "macro", 5);
	      BGL_DEFINE_STRING(BGl_string3037z00zz__evmodulez00,
		BgL_bgl_string3037za700za7za7_3255za7, "make-%evmodule", 14);
	      BGL_DEFINE_STRING(BGl_string3038z00zz__evmodulez00,
		BgL_bgl_string3038za700za7za7_3256za7, "pair", 4);
	      BGL_DEFINE_STRING(BGl_string3119z00zz__evmodulez00,
		BgL_bgl_string3119za700za7za7_3257za7, "syntax", 6);
	      BGL_DEFINE_STRING(BGl_string3039z00zz__evmodulez00,
		BgL_bgl_string3039za700za7za7_3258za7, "evmodule?", 9);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_evmodulezd2pathzd2envz00zz__evmodulez00,
		BgL_bgl_za762evmoduleza7d2pa3259z00,
		BGl_z62evmodulezd2pathzb0zz__evmodulez00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string3201z00zz__evmodulez00,
		BgL_bgl_string3201za700za7za7_3260za7, "import", 6);
	      BGL_DEFINE_STRING(BGl_string3040z00zz__evmodulez00,
		BgL_bgl_string3040za700za7za7_3261za7, "symbol", 6);
	      BGL_DEFINE_STRING(BGl_string3121z00zz__evmodulez00,
		BgL_bgl_string3121za700za7za7_3262za7, "expander", 8);
	      BGL_DEFINE_STRING(BGl_string3041z00zz__evmodulez00,
		BgL_bgl_string3041za700za7za7_3263za7, "evmodule-name", 13);
	      BGL_DEFINE_STRING(BGl_string3122z00zz__evmodulez00,
		BgL_bgl_string3122za700za7za7_3264za7, "KAP-763", 7);
	      BGL_DEFINE_STRING(BGl_string3203z00zz__evmodulez00,
		BgL_bgl_string3203za700za7za7_3265za7, "use", 3);
	      BGL_DEFINE_STRING(BGl_string3042z00zz__evmodulez00,
		BgL_bgl_string3042za700za7za7_3266za7, "struct", 6);
	      BGL_DEFINE_STRING(BGl_string3123z00zz__evmodulez00,
		BgL_bgl_string3123za700za7za7_3267za7, "evmodule-import-binding!", 24);
	      BGL_DEFINE_STRING(BGl_string3205z00zz__evmodulez00,
		BgL_bgl_string3205za700za7za7_3268za7, "with", 4);
	      BGL_DEFINE_STRING(BGl_string3124z00zz__evmodulez00,
		BgL_bgl_string3124za700za7za7_3269za7, "ERROR: ", 7);
	      BGL_DEFINE_STRING(BGl_string3044z00zz__evmodulez00,
		BgL_bgl_string3044za700za7za7_3270za7, "module", 6);
	      BGL_DEFINE_STRING(BGl_string3125z00zz__evmodulez00,
		BgL_bgl_string3125za700za7za7_3271za7, ":", 1);
	      BGL_DEFINE_STRING(BGl_string3207z00zz__evmodulez00,
		BgL_bgl_string3207za700za7za7_3272za7, "from", 4);
	      BGL_DEFINE_STRING(BGl_string3045z00zz__evmodulez00,
		BgL_bgl_string3045za700za7za7_3273za7, "evmodule-path", 13);
	      BGL_DEFINE_STRING(BGl_string3126z00zz__evmodulez00,
		BgL_bgl_string3126za700za7za7_3274za7, ",", 1);
	      BGL_DEFINE_STRING(BGl_string3208z00zz__evmodulez00,
		BgL_bgl_string3208za700za7za7_3275za7, "<@anonymous:1984>", 17);
	      BGL_DEFINE_STRING(BGl_string3046z00zz__evmodulez00,
		BgL_bgl_string3046za700za7za7_3276za7, "evmodule-macro-table", 20);
	      BGL_DEFINE_STRING(BGl_string3127z00zz__evmodulez00,
		BgL_bgl_string3127za700za7za7_3277za7, "Eval/evmodule.scm", 17);
	      BGL_DEFINE_STRING(BGl_string3047z00zz__evmodulez00,
		BgL_bgl_string3047za700za7za7_3278za7, "evmodule-extension", 18);
	      BGL_DEFINE_STRING(BGl_string3128z00zz__evmodulez00,
		BgL_bgl_string3128za700za7za7_3279za7,
		"Cannot find imported variable from module `", 43);
	      BGL_DEFINE_STRING(BGl_string3048z00zz__evmodulez00,
		BgL_bgl_string3048za700za7za7_3280za7, "evmodule-extension-set!", 23);
	      BGL_DEFINE_STRING(BGl_string3129z00zz__evmodulez00,
		BgL_bgl_string3129za700za7za7_3281za7, "'", 1);
	      BGL_DEFINE_STRING(BGl_string3049z00zz__evmodulez00,
		BgL_bgl_string3049za700za7za7_3282za7, "make-evmodule", 13);
	      BGL_DEFINE_STRING(BGl_string3210z00zz__evmodulez00,
		BgL_bgl_string3210za700za7za7_3283za7, "cond-expand", 11);
	      BGL_DEFINE_STRING(BGl_string3212z00zz__evmodulez00,
		BgL_bgl_string3212za700za7za7_3284za7, "begin", 5);
	      BGL_DEFINE_STRING(BGl_string3050z00zz__evmodulez00,
		BgL_bgl_string3050za700za7za7_3285za7, "bstring", 7);
	      BGL_DEFINE_STRING(BGl_string3131z00zz__evmodulez00,
		BgL_bgl_string3131za700za7za7_3286za7, "@", 1);
	      BGL_DEFINE_STRING(BGl_string3213z00zz__evmodulez00,
		BgL_bgl_string3213za700za7za7_3287za7, "<@anonymous:2007>~0", 19);
	      BGL_DEFINE_STRING(BGl_string3051z00zz__evmodulez00,
		BgL_bgl_string3051za700za7za7_3288za7, "\"", 1);
	      BGL_DEFINE_STRING(BGl_string3132z00zz__evmodulez00,
		BgL_bgl_string3132za700za7za7_3289za7, "evmodule-check-unbound", 22);
	      BGL_DEFINE_STRING(BGl_string3214z00zz__evmodulez00,
		BgL_bgl_string3214za700za7za7_3290za7, "<@anonymous:1989>~0", 19);
	      BGL_DEFINE_STRING(BGl_string3052z00zz__evmodulez00,
		BgL_bgl_string3052za700za7za7_3291za7, "\", new (ignored) \"", 18);
	      BGL_DEFINE_STRING(BGl_string3133z00zz__evmodulez00,
		BgL_bgl_string3133za700za7za7_3292za7, "s", 1);
	      BGL_DEFINE_STRING(BGl_string3215z00zz__evmodulez00,
		BgL_bgl_string3215za700za7za7_3293za7, "Illegal module expression", 25);
	      BGL_DEFINE_STRING(BGl_string3053z00zz__evmodulez00,
		BgL_bgl_string3053za700za7za7_3294za7, "'. Previous \"", 13);
	      BGL_DEFINE_STRING(BGl_string3134z00zz__evmodulez00,
		BgL_bgl_string3134za700za7za7_3295za7, "", 0);
	      BGL_DEFINE_STRING(BGl_string3054z00zz__evmodulez00,
		BgL_bgl_string3054za700za7za7_3296za7, "Module redefinition `", 21);
	      BGL_DEFINE_STRING(BGl_string3135z00zz__evmodulez00,
		BgL_bgl_string3135za700za7za7_3297za7, "~a unbound variable~a", 21);
	      BGL_DEFINE_STRING(BGl_string3217z00zz__evmodulez00,
		BgL_bgl_string3217za700za7za7_3298za7, ".", 1);
	      BGL_DEFINE_STRING(BGl_string3055z00zz__evmodulez00,
		BgL_bgl_string3055za700za7za7_3299za7, "eval-module-set!", 16);
	      BGL_DEFINE_STRING(BGl_string3136z00zz__evmodulez00,
		BgL_bgl_string3136za700za7za7_3300za7, "<@anonymous:1705>", 17);
	      BGL_DEFINE_STRING(BGl_string3218z00zz__evmodulez00,
		BgL_bgl_string3218za700za7za7_3301za7, "TAG-881~0", 9);
	      BGL_DEFINE_STRING(BGl_string3056z00zz__evmodulez00,
		BgL_bgl_string3056za700za7za7_3302za7, "Illegal module", 14);
	      BGL_DEFINE_STRING(BGl_string3137z00zz__evmodulez00,
		BgL_bgl_string3137za700za7za7_3303za7, "map", 3);
	      BGL_DEFINE_STRING(BGl_string3219z00zz__evmodulez00,
		BgL_bgl_string3219za700za7za7_3304za7, "Illegal module clauses", 22);
	      BGL_DEFINE_STRING(BGl_string3057z00zz__evmodulez00,
		BgL_bgl_string3057za700za7za7_3305za7, "eval-find-module", 16);
	      BGL_DEFINE_STRING(BGl_string3138z00zz__evmodulez00,
		BgL_bgl_string3138za700za7za7_3306za7, "~l", 2);
	      BGL_DEFINE_STRING(BGl_string3058z00zz__evmodulez00,
		BgL_bgl_string3058za700za7za7_3307za7, "&eval-find-module", 17);
	      BGL_DEFINE_STRING(BGl_string3139z00zz__evmodulez00,
		BgL_bgl_string3139za700za7za7_3308za7, "<@exit:1676>~0", 14);
	      BGL_DEFINE_STRING(BGl_string3059z00zz__evmodulez00,
		BgL_bgl_string3059za700za7za7_3309za7, "evalias-module", 14);
	      BGL_DEFINE_STRING(BGl_string3220z00zz__evmodulez00,
		BgL_bgl_string3220za700za7za7_3310za7, "&evmodule", 9);
	      BGL_DEFINE_STRING(BGl_string3221z00zz__evmodulez00,
		BgL_bgl_string3221za700za7za7_3311za7, "<@anonymous:2034>", 17);
	      BGL_DEFINE_STRING(BGl_string3140z00zz__evmodulez00,
		BgL_bgl_string3140za700za7za7_3312za7, "Unbound variable", 16);
	      BGL_DEFINE_STRING(BGl_string3222z00zz__evmodulez00,
		BgL_bgl_string3222za700za7za7_3313za7, "&evmodule-comp!", 15);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_evmodulezd2bindzd2globalz12zd2envzc0zz__evmodulez00,
		BgL_bgl_za762evmoduleza7d2bi3314z00,
		BGl_z62evmodulezd2bindzd2globalz12z70zz__evmodulez00, 0L, BUNSPEC, 4);
	      BGL_DEFINE_STRING(BGl_string3060z00zz__evmodulez00,
		BgL_bgl_string3060za700za7za7_3315za7, "vector", 6);
	      BGL_DEFINE_STRING(BGl_string3141z00zz__evmodulez00,
		BgL_bgl_string3141za700za7za7_3316za7, "global-check-unbound", 20);
	      BGL_DEFINE_STRING(BGl_string3223z00zz__evmodulez00,
		BgL_bgl_string3223za700za7za7_3317za7, "evmodule-static-class", 21);
	      BGL_DEFINE_STRING(BGl_string3061z00zz__evmodulez00,
		BgL_bgl_string3061za700za7za7_3318za7, "evmodule-find-global", 20);
	      BGL_DEFINE_STRING(BGl_string3142z00zz__evmodulez00,
		BgL_bgl_string3142za700za7za7_3319za7, "evmodule-load", 13);
	      BGL_DEFINE_STRING(BGl_string3062z00zz__evmodulez00,
		BgL_bgl_string3062za700za7za7_3320za7, "bint", 4);
	      BGL_DEFINE_STRING(BGl_string3143z00zz__evmodulez00,
		BgL_bgl_string3143za700za7za7_3321za7, "incorect user module loader", 27);
	      BGL_DEFINE_STRING(BGl_string3225z00zz__evmodulez00,
		BgL_bgl_string3225za700za7za7_3322za7, "define-class", 12);
	      BGL_DEFINE_STRING(BGl_string3063z00zz__evmodulez00,
		BgL_bgl_string3063za700za7za7_3323za7, "&evmodule-find-global", 21);
	      BGL_DEFINE_STRING(BGl_string3144z00zz__evmodulez00,
		BgL_bgl_string3144za700za7za7_3324za7, "<@anonymous:1725>", 17);
	      BGL_DEFINE_STRING(BGl_string3064z00zz__evmodulez00,
		BgL_bgl_string3064za700za7za7_3325za7, "Variable `", 10);
	      BGL_DEFINE_STRING(BGl_string3145z00zz__evmodulez00,
		BgL_bgl_string3145za700za7za7_3326za7, "procedure", 9);
	      BGL_DEFINE_STRING(BGl_string3227z00zz__evmodulez00,
		BgL_bgl_string3227za700za7za7_3327za7, "define-final-class", 18);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_evmodulezd2namezd2envz00zz__evmodulez00,
		BgL_bgl_za762evmoduleza7d2na3328z00,
		BGl_z62evmodulezd2namezb0zz__evmodulez00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string3065z00zz__evmodulez00,
		BgL_bgl_string3065za700za7za7_3329za7, "' hidden by an expander.", 24);
	      BGL_DEFINE_STRING(BGl_string3146z00zz__evmodulez00,
		BgL_bgl_string3146za700za7za7_3330za7, "~a:cannot find module \"~a\"", 26);
	      BGL_DEFINE_STRING(BGl_string3066z00zz__evmodulez00,
		BgL_bgl_string3066za700za7za7_3331za7, "evmodule-bind-global!", 21);
	      BGL_DEFINE_STRING(BGl_string3147z00zz__evmodulez00,
		BgL_bgl_string3147za700za7za7_3332za7, "<@anonymous:1742>", 17);
	      BGL_DEFINE_STRING(BGl_string3229z00zz__evmodulez00,
		BgL_bgl_string3229za700za7za7_3333za7, "define-abstract-class", 21);
	      BGL_DEFINE_STRING(BGl_string3067z00zz__evmodulez00,
		BgL_bgl_string3067za700za7za7_3334za7, "&evmodule-bind-global!", 22);
	      BGL_DEFINE_STRING(BGl_string3148z00zz__evmodulez00,
		BgL_bgl_string3148za700za7za7_3335za7, "evmodule-loadq", 14);
	      BGL_DEFINE_STRING(BGl_string3068z00zz__evmodulez00,
		BgL_bgl_string3068za700za7za7_3336za7, "every", 5);
	      BGL_DEFINE_STRING(BGl_string3069z00zz__evmodulez00,
		BgL_bgl_string3069za700za7za7_3337za7, "list", 4);
	     
		DEFINE_STATIC_BGL_PROCEDURE(BGl_evmodulezd2loadqzd2envz00zz__evmodulez00,
		BgL_bgl_za762evmoduleza7d2lo3338z00,
		BGl_z62evmodulezd2loadqzb0zz__evmodulez00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string3230z00zz__evmodulez00,
		BgL_bgl_string3230za700za7za7_3339za7, "&evmodule-static-class", 22);
	      BGL_DEFINE_STRING(BGl_string3231z00zz__evmodulez00,
		BgL_bgl_string3231za700za7za7_3340za7, "call-with-eval-module", 21);
	      BGL_DEFINE_STRING(BGl_string3150z00zz__evmodulez00,
		BgL_bgl_string3150za700za7za7_3341za7,
		"/tmp/bigloo/runtime/Llib/thread.scm", 35);
	      BGL_DEFINE_STRING(BGl_string3232z00zz__evmodulez00,
		BgL_bgl_string3232za700za7za7_3342za7, "&call-with-eval-module", 22);
	      BGL_DEFINE_STRING(BGl_string3070z00zz__evmodulez00,
		BgL_bgl_string3070za700za7za7_3343za7, "evmodule-library", 16);
	      BGL_DEFINE_STRING(BGl_string3151z00zz__evmodulez00,
		BgL_bgl_string3151za700za7za7_3344za7, "loop", 4);
	      BGL_DEFINE_STRING(BGl_string3233z00zz__evmodulez00,
		BgL_bgl_string3233za700za7za7_3345za7, "__evmodule", 10);
	      BGL_DEFINE_STRING(BGl_string3152z00zz__evmodulez00,
		BgL_bgl_string3152za700za7za7_3346za7, "condvar", 7);
	      BGL_DEFINE_STRING(BGl_string3072z00zz__evmodulez00,
		BgL_bgl_string3072za700za7za7_3347za7, "eval", 4);
	      BGL_DEFINE_STRING(BGl_string3153z00zz__evmodulez00,
		BgL_bgl_string3153za700za7za7_3348za7, "evmodule-import!", 16);
	      BGL_DEFINE_STRING(BGl_string3073z00zz__evmodulez00,
		BgL_bgl_string3073za700za7za7_3349za7, "Illegal `library' clause", 24);
	      BGL_DEFINE_STRING(BGl_string3154z00zz__evmodulez00,
		BgL_bgl_string3154za700za7za7_3350za7,
		"Cannot find imported module in base \"~a\"", 40);
	      BGL_DEFINE_STRING(BGl_string3155z00zz__evmodulez00,
		BgL_bgl_string3155za700za7za7_3351za7, "eval:~a", 7);
	      BGL_DEFINE_STRING(BGl_string3075z00zz__evmodulez00,
		BgL_bgl_string3075za700za7za7_3352za7, "quote", 5);
	      BGL_DEFINE_STRING(BGl_string3156z00zz__evmodulez00,
		BgL_bgl_string3156za700za7za7_3353za7, "&load-module", 12);
	      BGL_DEFINE_STRING(BGl_string3157z00zz__evmodulez00,
		BgL_bgl_string3157za700za7za7_3354za7, "&import-module", 14);
	      BGL_DEFINE_STRING(BGl_string3077z00zz__evmodulez00,
		BgL_bgl_string3077za700za7za7_3355za7, "library-load", 12);
	      BGL_DEFINE_STRING(BGl_string3158z00zz__evmodulez00,
		BgL_bgl_string3158za700za7za7_3356za7, "<@anonymous:1767>", 17);
	      BGL_DEFINE_STRING(BGl_string3078z00zz__evmodulez00,
		BgL_bgl_string3078za700za7za7_3357za7, "<@anonymous:1444>", 17);
	      BGL_DEFINE_STRING(BGl_string3159z00zz__evmodulez00,
		BgL_bgl_string3159za700za7za7_3358za7, "<@anonymous:1766>", 17);
	      BGL_DEFINE_STRING(BGl_string3079z00zz__evmodulez00,
		BgL_bgl_string3079za700za7za7_3359za7, "for-each", 8);
	      BGL_DEFINE_L_PROCEDURE(BGl_proc3071z00zz__evmodulez00,
		BgL_bgl_za762za7c3za704anonymo3360za7,
		BGl_z62zc3z04anonymousza31430ze3ze5zz__evmodulez00);
	      BGL_DEFINE_STRING(BGl_string3161z00zz__evmodulez00,
		BgL_bgl_string3161za700za7za7_3361za7, "at", 2);
	      BGL_DEFINE_STRING(BGl_string3081z00zz__evmodulez00,
		BgL_bgl_string3081za700za7za7_3362za7, "option", 6);
	      BGL_DEFINE_STRING(BGl_string3162z00zz__evmodulez00,
		BgL_bgl_string3162za700za7za7_3363za7, "location-dir", 12);
	      BGL_DEFINE_STRING(BGl_string3082z00zz__evmodulez00,
		BgL_bgl_string3082za700za7za7_3364za7, "Illegal `option' clause", 23);
	      BGL_DEFINE_STRING(BGl_string3163z00zz__evmodulez00,
		BgL_bgl_string3163za700za7za7_3365za7, "find-module-files", 17);
	      BGL_DEFINE_STRING(BGl_string3083z00zz__evmodulez00,
		BgL_bgl_string3083za700za7za7_3366za7, "mark-global!", 12);
	      BGL_DEFINE_STRING(BGl_string3164z00zz__evmodulez00,
		BgL_bgl_string3164za700za7za7_3367za7, "find-module-imports", 19);
	      BGL_DEFINE_STRING(BGl_string3084z00zz__evmodulez00,
		BgL_bgl_string3084za700za7za7_3368za7, "variable unbound", 16);
	      BGL_DEFINE_STRING(BGl_string3165z00zz__evmodulez00,
		BgL_bgl_string3165za700za7za7_3369za7, "find-module-aliases", 19);
	      BGL_DEFINE_STRING(BGl_string3085z00zz__evmodulez00,
		BgL_bgl_string3085za700za7za7_3370za7, "evmodule-static", 15);
	      BGL_DEFINE_STRING(BGl_string3166z00zz__evmodulez00,
		BgL_bgl_string3166za700za7za7_3371za7, "Illegal `import' clause", 23);
	      BGL_DEFINE_STRING(BGl_string3086z00zz__evmodulez00,
		BgL_bgl_string3086za700za7za7_3372za7, "Illegal `static' clause", 23);
	      BGL_DEFINE_STRING(BGl_string3167z00zz__evmodulez00,
		BgL_bgl_string3167za700za7za7_3373za7, "<@anonymous:1838>", 17);
	      BGL_DEFINE_STRING(BGl_string3168z00zz__evmodulez00,
		BgL_bgl_string3168za700za7za7_3374za7, "evmodule-import", 15);
	      BGL_DEFINE_STRING(BGl_string3088z00zz__evmodulez00,
		BgL_bgl_string3088za700za7za7_3375za7, "define", 6);
	      BGL_DEFINE_STRING(BGl_string3169z00zz__evmodulez00,
		BgL_bgl_string3169za700za7za7_3376za7, "evmodule-from!", 14);
	extern obj_t BGl_symbolzf3zd2envz21zz__r4_symbols_6_4z00;
	   
		 
		BGL_DEFINE_STRING(BGl_string3089z00zz__evmodulez00,
		BgL_bgl_string3089za700za7za7_3377za7, "TAG-114", 7);
	      BGL_DEFINE_STRING(BGl_string3170z00zz__evmodulez00,
		BgL_bgl_string3170za700za7za7_3378za7, "*** loading module `", 20);
	      BGL_DEFINE_STRING(BGl_string3090z00zz__evmodulez00,
		BgL_bgl_string3090za700za7za7_3379za7, "TAG-109", 7);
	      BGL_DEFINE_STRING(BGl_string3171z00zz__evmodulez00,
		BgL_bgl_string3171za700za7za7_3380za7, "' [", 3);
	      BGL_DEFINE_STRING(BGl_string3172z00zz__evmodulez00,
		BgL_bgl_string3172za700za7za7_3381za7, "]...", 4);
	      BGL_DEFINE_STRING(BGl_string3092z00zz__evmodulez00,
		BgL_bgl_string3092za700za7za7_3382za7, "class", 5);
	      BGL_DEFINE_STRING(BGl_string3173z00zz__evmodulez00,
		BgL_bgl_string3173za700za7za7_3383za7, "Cannot find module", 18);
	      BGL_DEFINE_STRING(BGl_string3093z00zz__evmodulez00,
		BgL_bgl_string3093za700za7za7_3384za7, "evmodule-static-clause", 22);
	      BGL_DEFINE_STRING(BGl_string3174z00zz__evmodulez00,
		BgL_bgl_string3174za700za7za7_3385za7, "from-module~0", 13);
	      BGL_DEFINE_STRING(BGl_string3094z00zz__evmodulez00,
		BgL_bgl_string3094za700za7za7_3386za7, "pair-nil", 8);
	      BGL_DEFINE_STRING(BGl_string3175z00zz__evmodulez00,
		BgL_bgl_string3175za700za7za7_3387za7, "<@anonymous:1882>", 17);
	      BGL_DEFINE_STRING(BGl_string3176z00zz__evmodulez00,
		BgL_bgl_string3176za700za7za7_3388za7, "Illegal `from' clause", 21);
	      BGL_DEFINE_STRING(BGl_string3096z00zz__evmodulez00,
		BgL_bgl_string3096za700za7za7_3389za7, "final-class", 11);
	      BGL_DEFINE_STRING(BGl_string3177z00zz__evmodulez00,
		BgL_bgl_string3177za700za7za7_3390za7, "from-clause", 11);
	      BGL_DEFINE_STRING(BGl_string3178z00zz__evmodulez00,
		BgL_bgl_string3178za700za7za7_3391za7, "evmodule-from", 13);
	      BGL_DEFINE_STRING(BGl_string3098z00zz__evmodulez00,
		BgL_bgl_string3098za700za7za7_3392za7, "abstract-class", 14);
	      BGL_DEFINE_STRING(BGl_string3179z00zz__evmodulez00,
		BgL_bgl_string3179za700za7za7_3393za7, "evmodule-include-file!", 22);
	      BGL_DEFINE_STRING(BGl_string3181z00zz__evmodulez00,
		BgL_bgl_string3181za700za7za7_3394za7, "Cannot find include file ~s", 27);
	      BGL_DEFINE_STRING(BGl_string3182z00zz__evmodulez00,
		BgL_bgl_string3182za700za7za7_3395za7, "evmodule-include", 16);
	      BGL_DEFINE_STRING(BGl_string3184z00zz__evmodulez00,
		BgL_bgl_string3184za700za7za7_3396za7, "include", 7);
	      BGL_DEFINE_STRING(BGl_string3185z00zz__evmodulez00,
		BgL_bgl_string3185za700za7za7_3397za7, "Illegal module clause", 21);
	      BGL_DEFINE_STRING(BGl_string3186z00zz__evmodulez00,
		BgL_bgl_string3186za700za7za7_3398za7, "<@anonymous:1954>", 17);
	      BGL_DEFINE_STRING(BGl_string3187z00zz__evmodulez00,
		BgL_bgl_string3187za700za7za7_3399za7, "input-port", 10);
	      BGL_DEFINE_STRING(BGl_string3189z00zz__evmodulez00,
		BgL_bgl_string3189za700za7za7_3400za7, "directives", 10);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc3180z00zz__evmodulez00,
		BgL_bgl_za762za7c3za704anonymo3401za7,
		BGl_z62zc3z04anonymousza31954ze3ze5zz__evmodulez00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_evmodulezd2findzd2globalzd2envzd2zz__evmodulez00,
		BgL_bgl_za762evmoduleza7d2fi3402z00,
		BGl_z62evmodulezd2findzd2globalz62zz__evmodulez00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string3190z00zz__evmodulez00,
		BgL_bgl_string3190za700za7za7_3403za7, "<@anonymous:1970>", 17);
	      BGL_DEFINE_STRING(BGl_string3192z00zz__evmodulez00,
		BgL_bgl_string3192za700za7za7_3404za7, "library", 7);
	      BGL_DEFINE_STRING(BGl_string3194z00zz__evmodulez00,
		BgL_bgl_string3194za700za7za7_3405za7, "static", 6);
	      BGL_DEFINE_STRING(BGl_string3196z00zz__evmodulez00,
		BgL_bgl_string3196za700za7za7_3406za7, "export", 6);
	      BGL_DEFINE_STRING(BGl_string3198z00zz__evmodulez00,
		BgL_bgl_string3198za700za7za7_3407za7, "load", 4);
	      BGL_DEFINE_STRING(BGl_string3199z00zz__evmodulez00,
		BgL_bgl_string3199za700za7za7_3408za7, "<@anonymous:1979>", 17);
	extern obj_t BGl_eqzf3zd2envz21zz__r4_equivalence_6_2z00;
	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_evalzd2modulezd2setz12zd2envzc0zz__evmodulez00,
		BgL_bgl_za762evalza7d2module3409z00,
		BGl_z62evalzd2modulezd2setz12z70zz__evmodulez00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_evalzd2modulezd2envz00zz__evmodulez00,
		BgL_bgl_za762evalza7d2module3410z00, BGl_z62evalzd2modulezb0zz__evmodulez00,
		0L, BUNSPEC, 0);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_evmodulezd2extensionzd2setz12zd2envzc0zz__evmodulez00,
		BgL_bgl_za762evmoduleza7d2ex3411z00,
		BGl_z62evmodulezd2extensionzd2setz12z70zz__evmodulez00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_callzd2withzd2evalzd2modulezd2envz00zz__evmodulez00,
		BgL_bgl_za762callza7d2withza7d3412za7,
		BGl_z62callzd2withzd2evalzd2modulezb0zz__evmodulez00, 0L, BUNSPEC, 2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_evmodulezd2envzd2zz__evmodulez00,
		BgL_bgl_za762evmoduleza762za7za73413z00, BGl_z62evmodulez62zz__evmodulez00,
		0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_evmodulezd2checkzd2unboundzd2envzd2zz__evmodulez00,
		BgL_bgl_za762evmoduleza7d2ch3414z00,
		BGl_z62evmodulezd2checkzd2unboundz62zz__evmodulez00, 0L, BUNSPEC, 2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_evmodulezf3zd2envz21zz__evmodulez00,
		BgL_bgl_za762evmoduleza7f3za793415za7, BGl_z62evmodulezf3z91zz__evmodulez00,
		0L, BUNSPEC, 1);
	extern obj_t BGl_readzd2envzd2zz__readerz00;
	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_evalzd2findzd2modulezd2envzd2zz__evmodulez00,
		BgL_bgl_za762evalza7d2findza7d3416za7,
		BGl_z62evalzd2findzd2modulez62zz__evmodulez00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_evmodulezd2macrozd2tablezd2envzd2zz__evmodulez00,
		BgL_bgl_za762evmoduleza7d2ma3417z00,
		BGl_z62evmodulezd2macrozd2tablez62zz__evmodulez00, 0L, BUNSPEC, 1);
	     
		DEFINE_STATIC_BGL_PROCEDURE(BGl_makezd2z52evmodulezd2envz52zz__evmodulez00,
		BgL_bgl_za762makeza7d2za752evm3418za7, va_generic_entry,
		BGl_z62makezd2z52evmoduleze2zz__evmodulez00, BUNSPEC, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_evmodulezd2staticzd2classzd2envzd2zz__evmodulez00,
		BgL_bgl_za762evmoduleza7d2st3419z00,
		BGl_z62evmodulezd2staticzd2classz62zz__evmodulez00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_evmodulezd2compz12zd2envz12zz__evmodulez00,
		BgL_bgl_za762evmoduleza7d2co3420z00, va_generic_entry,
		BGl_z62evmodulezd2compz12za2zz__evmodulez00, BUNSPEC, -4);

/* contant bindings */
	static void bgl_constant_bindings()
	{
		BGL_BIND_PROCEDURE(BGl_evmodulezd2compz12zd2envz12zz__evmodulez00,
			BgL_bgl_za762evmoduleza7d2co3420z00);
		BGL_BIND_PROCEDURE(BGl_evmodulezd2staticzd2classzd2envzd2zz__evmodulez00,
			BgL_bgl_za762evmoduleza7d2st3419z00);
		BGL_BIND_PROCEDURE(BGl_makezd2z52evmodulezd2envz52zz__evmodulez00,
			BgL_bgl_za762makeza7d2za752evm3418za7);
		BGL_BIND_PROCEDURE(BGl_evmodulezd2macrozd2tablezd2envzd2zz__evmodulez00,
			BgL_bgl_za762evmoduleza7d2ma3417z00);
		BGL_BIND_PROCEDURE(BGl_evalzd2findzd2modulezd2envzd2zz__evmodulez00,
			BgL_bgl_za762evalza7d2findza7d3416za7);
		BGL_BIND_PROCEDURE(BGl_evmodulezf3zd2envz21zz__evmodulez00,
			BgL_bgl_za762evmoduleza7f3za793415za7);
		BGL_BIND_PROCEDURE(BGl_evmodulezd2checkzd2unboundzd2envzd2zz__evmodulez00,
			BgL_bgl_za762evmoduleza7d2ch3414z00);
		BGL_BIND_PROCEDURE(BGl_evmodulezd2envzd2zz__evmodulez00,
			BgL_bgl_za762evmoduleza762za7za73413z00);
		BGL_BIND_PROCEDURE(BGl_callzd2withzd2evalzd2modulezd2envz00zz__evmodulez00,
			BgL_bgl_za762callza7d2withza7d3412za7);
		BGL_BIND_PROCEDURE
			(BGl_evmodulezd2extensionzd2setz12zd2envzc0zz__evmodulez00,
			BgL_bgl_za762evmoduleza7d2ex3411z00);
		BGL_BIND_PROCEDURE(BGl_evalzd2modulezd2envz00zz__evmodulez00,
			BgL_bgl_za762evalza7d2module3410z00);
		BGL_BIND_PROCEDURE(BGl_evalzd2modulezd2setz12zd2envzc0zz__evmodulez00,
			BgL_bgl_za762evalza7d2module3409z00);
		BGL_BIND_STRING(BGl_string3199z00zz__evmodulez00,
			BgL_bgl_string3199za700za7za7_3408za7);
		BGL_BIND_STRING(BGl_string3198z00zz__evmodulez00,
			BgL_bgl_string3198za700za7za7_3407za7);
		BGL_BIND_STRING(BGl_string3196z00zz__evmodulez00,
			BgL_bgl_string3196za700za7za7_3406za7);
		BGL_BIND_STRING(BGl_string3194z00zz__evmodulez00,
			BgL_bgl_string3194za700za7za7_3405za7);
		BGL_BIND_STRING(BGl_string3192z00zz__evmodulez00,
			BgL_bgl_string3192za700za7za7_3404za7);
		BGL_BIND_STRING(BGl_string3190z00zz__evmodulez00,
			BgL_bgl_string3190za700za7za7_3403za7);
		BGL_BIND_PROCEDURE(BGl_evmodulezd2findzd2globalzd2envzd2zz__evmodulez00,
			BgL_bgl_za762evmoduleza7d2fi3402z00);
		BGL_BIND_PROCEDURE(BGl_proc3180z00zz__evmodulez00,
			BgL_bgl_za762za7c3za704anonymo3401za7);
		BGL_BIND_STRING(BGl_string3189z00zz__evmodulez00,
			BgL_bgl_string3189za700za7za7_3400za7);
		BGL_BIND_STRING(BGl_string3187z00zz__evmodulez00,
			BgL_bgl_string3187za700za7za7_3399za7);
		BGL_BIND_STRING(BGl_string3186z00zz__evmodulez00,
			BgL_bgl_string3186za700za7za7_3398za7);
		BGL_BIND_STRING(BGl_string3185z00zz__evmodulez00,
			BgL_bgl_string3185za700za7za7_3397za7);
		BGL_BIND_STRING(BGl_string3184z00zz__evmodulez00,
			BgL_bgl_string3184za700za7za7_3396za7);
		BGL_BIND_STRING(BGl_string3182z00zz__evmodulez00,
			BgL_bgl_string3182za700za7za7_3395za7);
		BGL_BIND_STRING(BGl_string3181z00zz__evmodulez00,
			BgL_bgl_string3181za700za7za7_3394za7);
		BGL_BIND_STRING(BGl_string3179z00zz__evmodulez00,
			BgL_bgl_string3179za700za7za7_3393za7);
		BGL_BIND_STRING(BGl_string3098z00zz__evmodulez00,
			BgL_bgl_string3098za700za7za7_3392za7);
		BGL_BIND_STRING(BGl_string3178z00zz__evmodulez00,
			BgL_bgl_string3178za700za7za7_3391za7);
		BGL_BIND_STRING(BGl_string3177z00zz__evmodulez00,
			BgL_bgl_string3177za700za7za7_3390za7);
		BGL_BIND_STRING(BGl_string3096z00zz__evmodulez00,
			BgL_bgl_string3096za700za7za7_3389za7);
		BGL_BIND_STRING(BGl_string3176z00zz__evmodulez00,
			BgL_bgl_string3176za700za7za7_3388za7);
		BGL_BIND_STRING(BGl_string3175z00zz__evmodulez00,
			BgL_bgl_string3175za700za7za7_3387za7);
		BGL_BIND_STRING(BGl_string3094z00zz__evmodulez00,
			BgL_bgl_string3094za700za7za7_3386za7);
		BGL_BIND_STRING(BGl_string3174z00zz__evmodulez00,
			BgL_bgl_string3174za700za7za7_3385za7);
		BGL_BIND_STRING(BGl_string3093z00zz__evmodulez00,
			BgL_bgl_string3093za700za7za7_3384za7);
		BGL_BIND_STRING(BGl_string3173z00zz__evmodulez00,
			BgL_bgl_string3173za700za7za7_3383za7);
		BGL_BIND_STRING(BGl_string3092z00zz__evmodulez00,
			BgL_bgl_string3092za700za7za7_3382za7);
		BGL_BIND_STRING(BGl_string3172z00zz__evmodulez00,
			BgL_bgl_string3172za700za7za7_3381za7);
		BGL_BIND_STRING(BGl_string3171z00zz__evmodulez00,
			BgL_bgl_string3171za700za7za7_3380za7);
		BGL_BIND_STRING(BGl_string3090z00zz__evmodulez00,
			BgL_bgl_string3090za700za7za7_3379za7);
		BGL_BIND_STRING(BGl_string3170z00zz__evmodulez00,
			BgL_bgl_string3170za700za7za7_3378za7);
		BGL_BIND_STRING(BGl_string3089z00zz__evmodulez00,
			BgL_bgl_string3089za700za7za7_3377za7);
		BGL_BIND_STRING(BGl_string3169z00zz__evmodulez00,
			BgL_bgl_string3169za700za7za7_3376za7);
		BGL_BIND_STRING(BGl_string3088z00zz__evmodulez00,
			BgL_bgl_string3088za700za7za7_3375za7);
		BGL_BIND_STRING(BGl_string3168z00zz__evmodulez00,
			BgL_bgl_string3168za700za7za7_3374za7);
		BGL_BIND_STRING(BGl_string3167z00zz__evmodulez00,
			BgL_bgl_string3167za700za7za7_3373za7);
		BGL_BIND_STRING(BGl_string3086z00zz__evmodulez00,
			BgL_bgl_string3086za700za7za7_3372za7);
		BGL_BIND_STRING(BGl_string3166z00zz__evmodulez00,
			BgL_bgl_string3166za700za7za7_3371za7);
		BGL_BIND_STRING(BGl_string3085z00zz__evmodulez00,
			BgL_bgl_string3085za700za7za7_3370za7);
		BGL_BIND_STRING(BGl_string3165z00zz__evmodulez00,
			BgL_bgl_string3165za700za7za7_3369za7);
		BGL_BIND_STRING(BGl_string3084z00zz__evmodulez00,
			BgL_bgl_string3084za700za7za7_3368za7);
		BGL_BIND_STRING(BGl_string3164z00zz__evmodulez00,
			BgL_bgl_string3164za700za7za7_3367za7);
		BGL_BIND_STRING(BGl_string3083z00zz__evmodulez00,
			BgL_bgl_string3083za700za7za7_3366za7);
		BGL_BIND_STRING(BGl_string3163z00zz__evmodulez00,
			BgL_bgl_string3163za700za7za7_3365za7);
		BGL_BIND_STRING(BGl_string3082z00zz__evmodulez00,
			BgL_bgl_string3082za700za7za7_3364za7);
		BGL_BIND_STRING(BGl_string3162z00zz__evmodulez00,
			BgL_bgl_string3162za700za7za7_3363za7);
		BGL_BIND_STRING(BGl_string3081z00zz__evmodulez00,
			BgL_bgl_string3081za700za7za7_3362za7);
		BGL_BIND_STRING(BGl_string3161z00zz__evmodulez00,
			BgL_bgl_string3161za700za7za7_3361za7);
		BGL_BIND_L_PROCEDURE(BGl_proc3071z00zz__evmodulez00,
			BgL_bgl_za762za7c3za704anonymo3360za7);
		BGL_BIND_STRING(BGl_string3079z00zz__evmodulez00,
			BgL_bgl_string3079za700za7za7_3359za7);
		BGL_BIND_STRING(BGl_string3159z00zz__evmodulez00,
			BgL_bgl_string3159za700za7za7_3358za7);
		BGL_BIND_STRING(BGl_string3078z00zz__evmodulez00,
			BgL_bgl_string3078za700za7za7_3357za7);
		BGL_BIND_STRING(BGl_string3158z00zz__evmodulez00,
			BgL_bgl_string3158za700za7za7_3356za7);
		BGL_BIND_STRING(BGl_string3077z00zz__evmodulez00,
			BgL_bgl_string3077za700za7za7_3355za7);
		BGL_BIND_STRING(BGl_string3157z00zz__evmodulez00,
			BgL_bgl_string3157za700za7za7_3354za7);
		BGL_BIND_STRING(BGl_string3156z00zz__evmodulez00,
			BgL_bgl_string3156za700za7za7_3353za7);
		BGL_BIND_STRING(BGl_string3075z00zz__evmodulez00,
			BgL_bgl_string3075za700za7za7_3352za7);
		BGL_BIND_STRING(BGl_string3155z00zz__evmodulez00,
			BgL_bgl_string3155za700za7za7_3351za7);
		BGL_BIND_STRING(BGl_string3154z00zz__evmodulez00,
			BgL_bgl_string3154za700za7za7_3350za7);
		BGL_BIND_STRING(BGl_string3073z00zz__evmodulez00,
			BgL_bgl_string3073za700za7za7_3349za7);
		BGL_BIND_STRING(BGl_string3153z00zz__evmodulez00,
			BgL_bgl_string3153za700za7za7_3348za7);
		BGL_BIND_STRING(BGl_string3072z00zz__evmodulez00,
			BgL_bgl_string3072za700za7za7_3347za7);
		BGL_BIND_STRING(BGl_string3152z00zz__evmodulez00,
			BgL_bgl_string3152za700za7za7_3346za7);
		BGL_BIND_STRING(BGl_string3233z00zz__evmodulez00,
			BgL_bgl_string3233za700za7za7_3345za7);
		BGL_BIND_STRING(BGl_string3151z00zz__evmodulez00,
			BgL_bgl_string3151za700za7za7_3344za7);
		BGL_BIND_STRING(BGl_string3070z00zz__evmodulez00,
			BgL_bgl_string3070za700za7za7_3343za7);
		BGL_BIND_STRING(BGl_string3232z00zz__evmodulez00,
			BgL_bgl_string3232za700za7za7_3342za7);
		BGL_BIND_STRING(BGl_string3150z00zz__evmodulez00,
			BgL_bgl_string3150za700za7za7_3341za7);
		BGL_BIND_STRING(BGl_string3231z00zz__evmodulez00,
			BgL_bgl_string3231za700za7za7_3340za7);
		BGL_BIND_STRING(BGl_string3230z00zz__evmodulez00,
			BgL_bgl_string3230za700za7za7_3339za7);
		BGL_BIND_PROCEDURE(BGl_evmodulezd2loadqzd2envz00zz__evmodulez00,
			BgL_bgl_za762evmoduleza7d2lo3338z00);
		BGL_BIND_STRING(BGl_string3069z00zz__evmodulez00,
			BgL_bgl_string3069za700za7za7_3337za7);
		BGL_BIND_STRING(BGl_string3068z00zz__evmodulez00,
			BgL_bgl_string3068za700za7za7_3336za7);
		BGL_BIND_STRING(BGl_string3148z00zz__evmodulez00,
			BgL_bgl_string3148za700za7za7_3335za7);
		BGL_BIND_STRING(BGl_string3067z00zz__evmodulez00,
			BgL_bgl_string3067za700za7za7_3334za7);
		BGL_BIND_STRING(BGl_string3229z00zz__evmodulez00,
			BgL_bgl_string3229za700za7za7_3333za7);
		BGL_BIND_STRING(BGl_string3147z00zz__evmodulez00,
			BgL_bgl_string3147za700za7za7_3332za7);
		BGL_BIND_STRING(BGl_string3066z00zz__evmodulez00,
			BgL_bgl_string3066za700za7za7_3331za7);
		BGL_BIND_STRING(BGl_string3146z00zz__evmodulez00,
			BgL_bgl_string3146za700za7za7_3330za7);
		BGL_BIND_STRING(BGl_string3065z00zz__evmodulez00,
			BgL_bgl_string3065za700za7za7_3329za7);
		BGL_BIND_PROCEDURE(BGl_evmodulezd2namezd2envz00zz__evmodulez00,
			BgL_bgl_za762evmoduleza7d2na3328z00);
		BGL_BIND_STRING(BGl_string3227z00zz__evmodulez00,
			BgL_bgl_string3227za700za7za7_3327za7);
		BGL_BIND_STRING(BGl_string3145z00zz__evmodulez00,
			BgL_bgl_string3145za700za7za7_3326za7);
		BGL_BIND_STRING(BGl_string3064z00zz__evmodulez00,
			BgL_bgl_string3064za700za7za7_3325za7);
		BGL_BIND_STRING(BGl_string3144z00zz__evmodulez00,
			BgL_bgl_string3144za700za7za7_3324za7);
		BGL_BIND_STRING(BGl_string3063z00zz__evmodulez00,
			BgL_bgl_string3063za700za7za7_3323za7);
		BGL_BIND_STRING(BGl_string3225z00zz__evmodulez00,
			BgL_bgl_string3225za700za7za7_3322za7);
		BGL_BIND_STRING(BGl_string3143z00zz__evmodulez00,
			BgL_bgl_string3143za700za7za7_3321za7);
		BGL_BIND_STRING(BGl_string3062z00zz__evmodulez00,
			BgL_bgl_string3062za700za7za7_3320za7);
		BGL_BIND_STRING(BGl_string3142z00zz__evmodulez00,
			BgL_bgl_string3142za700za7za7_3319za7);
		BGL_BIND_STRING(BGl_string3061z00zz__evmodulez00,
			BgL_bgl_string3061za700za7za7_3318za7);
		BGL_BIND_STRING(BGl_string3223z00zz__evmodulez00,
			BgL_bgl_string3223za700za7za7_3317za7);
		BGL_BIND_STRING(BGl_string3141z00zz__evmodulez00,
			BgL_bgl_string3141za700za7za7_3316za7);
		BGL_BIND_STRING(BGl_string3060z00zz__evmodulez00,
			BgL_bgl_string3060za700za7za7_3315za7);
		BGL_BIND_PROCEDURE(BGl_evmodulezd2bindzd2globalz12zd2envzc0zz__evmodulez00,
			BgL_bgl_za762evmoduleza7d2bi3314z00);
		BGL_BIND_STRING(BGl_string3222z00zz__evmodulez00,
			BgL_bgl_string3222za700za7za7_3313za7);
		BGL_BIND_STRING(BGl_string3140z00zz__evmodulez00,
			BgL_bgl_string3140za700za7za7_3312za7);
		BGL_BIND_STRING(BGl_string3221z00zz__evmodulez00,
			BgL_bgl_string3221za700za7za7_3311za7);
		BGL_BIND_STRING(BGl_string3220z00zz__evmodulez00,
			BgL_bgl_string3220za700za7za7_3310za7);
		BGL_BIND_STRING(BGl_string3059z00zz__evmodulez00,
			BgL_bgl_string3059za700za7za7_3309za7);
		BGL_BIND_STRING(BGl_string3139z00zz__evmodulez00,
			BgL_bgl_string3139za700za7za7_3308za7);
		BGL_BIND_STRING(BGl_string3058z00zz__evmodulez00,
			BgL_bgl_string3058za700za7za7_3307za7);
		BGL_BIND_STRING(BGl_string3138z00zz__evmodulez00,
			BgL_bgl_string3138za700za7za7_3306za7);
		BGL_BIND_STRING(BGl_string3057z00zz__evmodulez00,
			BgL_bgl_string3057za700za7za7_3305za7);
		BGL_BIND_STRING(BGl_string3219z00zz__evmodulez00,
			BgL_bgl_string3219za700za7za7_3304za7);
		BGL_BIND_STRING(BGl_string3137z00zz__evmodulez00,
			BgL_bgl_string3137za700za7za7_3303za7);
		BGL_BIND_STRING(BGl_string3056z00zz__evmodulez00,
			BgL_bgl_string3056za700za7za7_3302za7);
		BGL_BIND_STRING(BGl_string3218z00zz__evmodulez00,
			BgL_bgl_string3218za700za7za7_3301za7);
		BGL_BIND_STRING(BGl_string3136z00zz__evmodulez00,
			BgL_bgl_string3136za700za7za7_3300za7);
		BGL_BIND_STRING(BGl_string3055z00zz__evmodulez00,
			BgL_bgl_string3055za700za7za7_3299za7);
		BGL_BIND_STRING(BGl_string3217z00zz__evmodulez00,
			BgL_bgl_string3217za700za7za7_3298za7);
		BGL_BIND_STRING(BGl_string3135z00zz__evmodulez00,
			BgL_bgl_string3135za700za7za7_3297za7);
		BGL_BIND_STRING(BGl_string3054z00zz__evmodulez00,
			BgL_bgl_string3054za700za7za7_3296za7);
		BGL_BIND_STRING(BGl_string3134z00zz__evmodulez00,
			BgL_bgl_string3134za700za7za7_3295za7);
		BGL_BIND_STRING(BGl_string3053z00zz__evmodulez00,
			BgL_bgl_string3053za700za7za7_3294za7);
		BGL_BIND_STRING(BGl_string3215z00zz__evmodulez00,
			BgL_bgl_string3215za700za7za7_3293za7);
		BGL_BIND_STRING(BGl_string3133z00zz__evmodulez00,
			BgL_bgl_string3133za700za7za7_3292za7);
		BGL_BIND_STRING(BGl_string3052z00zz__evmodulez00,
			BgL_bgl_string3052za700za7za7_3291za7);
		BGL_BIND_STRING(BGl_string3214z00zz__evmodulez00,
			BgL_bgl_string3214za700za7za7_3290za7);
		BGL_BIND_STRING(BGl_string3132z00zz__evmodulez00,
			BgL_bgl_string3132za700za7za7_3289za7);
		BGL_BIND_STRING(BGl_string3051z00zz__evmodulez00,
			BgL_bgl_string3051za700za7za7_3288za7);
		BGL_BIND_STRING(BGl_string3213z00zz__evmodulez00,
			BgL_bgl_string3213za700za7za7_3287za7);
		BGL_BIND_STRING(BGl_string3131z00zz__evmodulez00,
			BgL_bgl_string3131za700za7za7_3286za7);
		BGL_BIND_STRING(BGl_string3050z00zz__evmodulez00,
			BgL_bgl_string3050za700za7za7_3285za7);
		BGL_BIND_STRING(BGl_string3212z00zz__evmodulez00,
			BgL_bgl_string3212za700za7za7_3284za7);
		BGL_BIND_STRING(BGl_string3210z00zz__evmodulez00,
			BgL_bgl_string3210za700za7za7_3283za7);
		BGL_BIND_STRING(BGl_string3049z00zz__evmodulez00,
			BgL_bgl_string3049za700za7za7_3282za7);
		BGL_BIND_STRING(BGl_string3129z00zz__evmodulez00,
			BgL_bgl_string3129za700za7za7_3281za7);
		BGL_BIND_STRING(BGl_string3048z00zz__evmodulez00,
			BgL_bgl_string3048za700za7za7_3280za7);
		BGL_BIND_STRING(BGl_string3128z00zz__evmodulez00,
			BgL_bgl_string3128za700za7za7_3279za7);
		BGL_BIND_STRING(BGl_string3047z00zz__evmodulez00,
			BgL_bgl_string3047za700za7za7_3278za7);
		BGL_BIND_STRING(BGl_string3127z00zz__evmodulez00,
			BgL_bgl_string3127za700za7za7_3277za7);
		BGL_BIND_STRING(BGl_string3046z00zz__evmodulez00,
			BgL_bgl_string3046za700za7za7_3276za7);
		BGL_BIND_STRING(BGl_string3208z00zz__evmodulez00,
			BgL_bgl_string3208za700za7za7_3275za7);
		BGL_BIND_STRING(BGl_string3126z00zz__evmodulez00,
			BgL_bgl_string3126za700za7za7_3274za7);
		BGL_BIND_STRING(BGl_string3045z00zz__evmodulez00,
			BgL_bgl_string3045za700za7za7_3273za7);
		BGL_BIND_STRING(BGl_string3207z00zz__evmodulez00,
			BgL_bgl_string3207za700za7za7_3272za7);
		BGL_BIND_STRING(BGl_string3125z00zz__evmodulez00,
			BgL_bgl_string3125za700za7za7_3271za7);
		BGL_BIND_STRING(BGl_string3044z00zz__evmodulez00,
			BgL_bgl_string3044za700za7za7_3270za7);
		BGL_BIND_STRING(BGl_string3124z00zz__evmodulez00,
			BgL_bgl_string3124za700za7za7_3269za7);
		BGL_BIND_STRING(BGl_string3205z00zz__evmodulez00,
			BgL_bgl_string3205za700za7za7_3268za7);
		BGL_BIND_STRING(BGl_string3123z00zz__evmodulez00,
			BgL_bgl_string3123za700za7za7_3267za7);
		BGL_BIND_STRING(BGl_string3042z00zz__evmodulez00,
			BgL_bgl_string3042za700za7za7_3266za7);
		BGL_BIND_STRING(BGl_string3203z00zz__evmodulez00,
			BgL_bgl_string3203za700za7za7_3265za7);
		BGL_BIND_STRING(BGl_string3122z00zz__evmodulez00,
			BgL_bgl_string3122za700za7za7_3264za7);
		BGL_BIND_STRING(BGl_string3041z00zz__evmodulez00,
			BgL_bgl_string3041za700za7za7_3263za7);
		BGL_BIND_STRING(BGl_string3121z00zz__evmodulez00,
			BgL_bgl_string3121za700za7za7_3262za7);
		BGL_BIND_STRING(BGl_string3040z00zz__evmodulez00,
			BgL_bgl_string3040za700za7za7_3261za7);
		BGL_BIND_STRING(BGl_string3201z00zz__evmodulez00,
			BgL_bgl_string3201za700za7za7_3260za7);
		BGL_BIND_PROCEDURE(BGl_evmodulezd2pathzd2envz00zz__evmodulez00,
			BgL_bgl_za762evmoduleza7d2pa3259z00);
		BGL_BIND_STRING(BGl_string3039z00zz__evmodulez00,
			BgL_bgl_string3039za700za7za7_3258za7);
		BGL_BIND_STRING(BGl_string3119z00zz__evmodulez00,
			BgL_bgl_string3119za700za7za7_3257za7);
		BGL_BIND_STRING(BGl_string3038z00zz__evmodulez00,
			BgL_bgl_string3038za700za7za7_3256za7);
		BGL_BIND_STRING(BGl_string3037z00zz__evmodulez00,
			BgL_bgl_string3037za700za7za7_3255za7);
		BGL_BIND_STRING(BGl_string3117z00zz__evmodulez00,
			BgL_bgl_string3117za700za7za7_3254za7);
		BGL_BIND_STRING(BGl_string3036z00zz__evmodulez00,
			BgL_bgl_string3036za700za7za7_3253za7);
		BGL_BIND_STRING(BGl_string3035z00zz__evmodulez00,
			BgL_bgl_string3035za700za7za7_3252za7);
		BGL_BIND_STRING(BGl_string3115z00zz__evmodulez00,
			BgL_bgl_string3115za700za7za7_3251za7);
		BGL_BIND_STRING(BGl_string3114z00zz__evmodulez00,
			BgL_bgl_string3114za700za7za7_3250za7);
		BGL_BIND_STRING(BGl_string3033z00zz__evmodulez00,
			BgL_bgl_string3033za700za7za7_3249za7);
		BGL_BIND_STRING(BGl_string3113z00zz__evmodulez00,
			BgL_bgl_string3113za700za7za7_3248za7);
		BGL_BIND_STRING(BGl_string3112z00zz__evmodulez00,
			BgL_bgl_string3112za700za7za7_3247za7);
		BGL_BIND_STRING(BGl_string3031z00zz__evmodulez00,
			BgL_bgl_string3031za700za7za7_3246za7);
		BGL_BIND_STRING(BGl_string3111z00zz__evmodulez00,
			BgL_bgl_string3111za700za7za7_3245za7);
		BGL_BIND_STRING(BGl_string3030z00zz__evmodulez00,
			BgL_bgl_string3030za700za7za7_3244za7);
		BGL_BIND_STRING(BGl_string3110z00zz__evmodulez00,
			BgL_bgl_string3110za700za7za7_3243za7);
		BGL_BIND_STRING(BGl_string3109z00zz__evmodulez00,
			BgL_bgl_string3109za700za7za7_3242za7);
		BGL_BIND_STRING(BGl_string3108z00zz__evmodulez00,
			BgL_bgl_string3108za700za7za7_3241za7);
		BGL_BIND_STRING(BGl_string3107z00zz__evmodulez00,
			BgL_bgl_string3107za700za7za7_3240za7);
		BGL_BIND_STRING(BGl_string3106z00zz__evmodulez00,
			BgL_bgl_string3106za700za7za7_3239za7);
		BGL_BIND_STRING(BGl_string3104z00zz__evmodulez00,
			BgL_bgl_string3104za700za7za7_3238za7);
		BGL_BIND_STRING(BGl_string3102z00zz__evmodulez00,
			BgL_bgl_string3102za700za7za7_3237za7);
		BGL_BIND_STRING(BGl_string3101z00zz__evmodulez00,
			BgL_bgl_string3101za700za7za7_3236za7);
		BGL_BIND_STRING(BGl_string3100z00zz__evmodulez00,
			BgL_bgl_string3100za700za7za7_3235za7);
		BGL_BIND_PROCEDURE(BGl_evmodulezd2extensionzd2envz00zz__evmodulez00,
			BgL_bgl_za762evmoduleza7d2ex3234z00);
	}

/* 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_za2moduleszd2mutexza2zd2zz__evmodulez00));
		ADD_ROOT((void *) (&BGl_requirezd2initializa7ationz75zz__evmodulez00));
		ADD_ROOT((void *) (&BGl_za2loadqzd2mutexza2zd2zz__evmodulez00));
		ADD_ROOT((void *) (&BGl_symbol3103z00zz__evmodulez00));
		ADD_ROOT((void *) (&BGl_symbol3105z00zz__evmodulez00));
		ADD_ROOT((void *) (&BGl_za2loadingzd2listza2zd2zz__evmodulez00));
		ADD_ROOT((void *) (&BGl_symbol3032z00zz__evmodulez00));
		ADD_ROOT((void *) (&BGl_symbol3034z00zz__evmodulez00));
		ADD_ROOT((void *) (&BGl_symbol3116z00zz__evmodulez00));
		ADD_ROOT((void *) (&BGl_symbol3118z00zz__evmodulez00));
		ADD_ROOT((void *) (&BGl_symbol3200z00zz__evmodulez00));
		ADD_ROOT((void *) (&BGl_symbol3120z00zz__evmodulez00));
		ADD_ROOT((void *) (&BGl_symbol3202z00zz__evmodulez00));
		ADD_ROOT((void *) (&BGl_symbol3204z00zz__evmodulez00));
		ADD_ROOT((void *) (&BGl_symbol3043z00zz__evmodulez00));
		ADD_ROOT((void *) (&BGl_symbol3206z00zz__evmodulez00));
		ADD_ROOT((void *) (&BGl_symbol3209z00zz__evmodulez00));
		ADD_ROOT((void *) (&BGl_symbol3211z00zz__evmodulez00));
		ADD_ROOT((void *) (&BGl_symbol3130z00zz__evmodulez00));
		ADD_ROOT((void *) (&BGl_za2moduleszd2tableza2zd2zz__evmodulez00));
		ADD_ROOT((void *) (&BGl_symbol3224z00zz__evmodulez00));
		ADD_ROOT((void *) (&BGl_symbol3226z00zz__evmodulez00));
		ADD_ROOT((void *) (&BGl_symbol3228z00zz__evmodulez00));
		ADD_ROOT((void *) (&BGl_symbol3149z00zz__evmodulez00));
		ADD_ROOT((void *) (&BGl_symbol3074z00zz__evmodulez00));
		ADD_ROOT((void *) (&BGl_symbol3076z00zz__evmodulez00));
		ADD_ROOT((void *) (&BGl_symbol3160z00zz__evmodulez00));
		ADD_ROOT((void *) (&BGl_symbol3080z00zz__evmodulez00));
		ADD_ROOT((void *) (&BGl_symbol3087z00zz__evmodulez00));
		ADD_ROOT((void *) (&BGl_symbol3091z00zz__evmodulez00));
		ADD_ROOT((void *) (&BGl_evmodulezd2uninitializa7edz75zz__evmodulez00));
		ADD_ROOT((void *) (&BGl_symbol3095z00zz__evmodulez00));
		ADD_ROOT((void *) (&BGl_symbol3097z00zz__evmodulez00));
		ADD_ROOT((void *) (&BGl_symbol3099z00zz__evmodulez00));
		ADD_ROOT((void *) (&BGl_symbol3183z00zz__evmodulez00));
		ADD_ROOT((void *) (&BGl_symbol3188z00zz__evmodulez00));
		ADD_ROOT((void *) (&BGl_symbol3191z00zz__evmodulez00));
		ADD_ROOT((void *) (&BGl_symbol3193z00zz__evmodulez00));
		ADD_ROOT((void *) (&BGl_symbol3195z00zz__evmodulez00));
		ADD_ROOT((void *) (&BGl_symbol3197z00zz__evmodulez00));
#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__evmodulez00(long
		BgL_checksumz00_5377, char *BgL_fromz00_5378)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__evmodulez00))
				{
					BGl_requirezd2initializa7ationz75zz__evmodulez00 =
						BBOOL(((bool_t) 0));
					bgl_constant_bindings();
					BGl_gczd2rootszd2initz00zz__evmodulez00();
					BGl_cnstzd2initzd2zz__evmodulez00();
					BGl_importedzd2moduleszd2initz00zz__evmodulez00();
					return BGl_toplevelzd2initzd2zz__evmodulez00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zz__evmodulez00(void)
	{
		{	/* Eval/evmodule.scm 15 */
			BGl_symbol3032z00zz__evmodulez00 =
				bstring_to_symbol(BGl_string3033z00zz__evmodulez00);
			BGl_symbol3034z00zz__evmodulez00 =
				bstring_to_symbol(BGl_string3035z00zz__evmodulez00);
			BGl_symbol3043z00zz__evmodulez00 =
				bstring_to_symbol(BGl_string3044z00zz__evmodulez00);
			BGl_symbol3074z00zz__evmodulez00 =
				bstring_to_symbol(BGl_string3075z00zz__evmodulez00);
			BGl_symbol3076z00zz__evmodulez00 =
				bstring_to_symbol(BGl_string3077z00zz__evmodulez00);
			BGl_symbol3080z00zz__evmodulez00 =
				bstring_to_symbol(BGl_string3081z00zz__evmodulez00);
			BGl_symbol3087z00zz__evmodulez00 =
				bstring_to_symbol(BGl_string3088z00zz__evmodulez00);
			BGl_symbol3091z00zz__evmodulez00 =
				bstring_to_symbol(BGl_string3092z00zz__evmodulez00);
			BGl_symbol3095z00zz__evmodulez00 =
				bstring_to_symbol(BGl_string3096z00zz__evmodulez00);
			BGl_symbol3097z00zz__evmodulez00 =
				bstring_to_symbol(BGl_string3098z00zz__evmodulez00);
			BGl_symbol3099z00zz__evmodulez00 =
				bstring_to_symbol(BGl_string3100z00zz__evmodulez00);
			BGl_symbol3103z00zz__evmodulez00 =
				bstring_to_symbol(BGl_string3104z00zz__evmodulez00);
			BGl_symbol3105z00zz__evmodulez00 =
				bstring_to_symbol(BGl_string3106z00zz__evmodulez00);
			BGl_symbol3116z00zz__evmodulez00 =
				bstring_to_symbol(BGl_string3117z00zz__evmodulez00);
			BGl_symbol3118z00zz__evmodulez00 =
				bstring_to_symbol(BGl_string3119z00zz__evmodulez00);
			BGl_symbol3120z00zz__evmodulez00 =
				bstring_to_symbol(BGl_string3121z00zz__evmodulez00);
			BGl_symbol3130z00zz__evmodulez00 =
				bstring_to_symbol(BGl_string3131z00zz__evmodulez00);
			BGl_symbol3149z00zz__evmodulez00 =
				bstring_to_symbol(BGl_string3031z00zz__evmodulez00);
			BGl_symbol3160z00zz__evmodulez00 =
				bstring_to_symbol(BGl_string3161z00zz__evmodulez00);
			BGl_symbol3183z00zz__evmodulez00 =
				bstring_to_symbol(BGl_string3184z00zz__evmodulez00);
			BGl_symbol3188z00zz__evmodulez00 =
				bstring_to_symbol(BGl_string3189z00zz__evmodulez00);
			BGl_symbol3191z00zz__evmodulez00 =
				bstring_to_symbol(BGl_string3192z00zz__evmodulez00);
			BGl_symbol3193z00zz__evmodulez00 =
				bstring_to_symbol(BGl_string3194z00zz__evmodulez00);
			BGl_symbol3195z00zz__evmodulez00 =
				bstring_to_symbol(BGl_string3196z00zz__evmodulez00);
			BGl_symbol3197z00zz__evmodulez00 =
				bstring_to_symbol(BGl_string3198z00zz__evmodulez00);
			BGl_symbol3200z00zz__evmodulez00 =
				bstring_to_symbol(BGl_string3201z00zz__evmodulez00);
			BGl_symbol3202z00zz__evmodulez00 =
				bstring_to_symbol(BGl_string3203z00zz__evmodulez00);
			BGl_symbol3204z00zz__evmodulez00 =
				bstring_to_symbol(BGl_string3205z00zz__evmodulez00);
			BGl_symbol3206z00zz__evmodulez00 =
				bstring_to_symbol(BGl_string3207z00zz__evmodulez00);
			BGl_symbol3209z00zz__evmodulez00 =
				bstring_to_symbol(BGl_string3210z00zz__evmodulez00);
			BGl_symbol3211z00zz__evmodulez00 =
				bstring_to_symbol(BGl_string3212z00zz__evmodulez00);
			BGl_symbol3224z00zz__evmodulez00 =
				bstring_to_symbol(BGl_string3225z00zz__evmodulez00);
			BGl_symbol3226z00zz__evmodulez00 =
				bstring_to_symbol(BGl_string3227z00zz__evmodulez00);
			return (BGl_symbol3228z00zz__evmodulez00 =
				bstring_to_symbol(BGl_string3229z00zz__evmodulez00), BUNSPEC);
		}

	}



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

	}



/* toplevel-init */
	obj_t BGl_toplevelzd2initzd2zz__evmodulez00(void)
	{
		{	/* Eval/evmodule.scm 15 */
			BGl_za2moduleszd2mutexza2zd2zz__evmodulez00 =
				bgl_make_mutex(BGl_string3030z00zz__evmodulez00);
			BGl_za2loadqzd2mutexza2zd2zz__evmodulez00 =
				bgl_make_mutex(BGl_string3031z00zz__evmodulez00);
			BGl_evmodulezd2uninitializa7edz75zz__evmodulez00 =
				BGl_symbol3032z00zz__evmodulez00;
			BGl_za2moduleszd2tableza2zd2zz__evmodulez00 = BNIL;
			return (BGl_za2loadingzd2listza2zd2zz__evmodulez00 = BNIL, BUNSPEC);
		}

	}



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

					BgL_headz00_1280 = MAKE_YOUNG_PAIR(BNIL, BgL_l2z00_2);
					{
						obj_t BgL_prevz00_2911;
						obj_t BgL_tailz00_2912;

						BgL_prevz00_2911 = BgL_headz00_1280;
						BgL_tailz00_2912 = BgL_l1z00_1;
					BgL_loopz00_2910:
						if (PAIRP(BgL_tailz00_2912))
							{
								obj_t BgL_newzd2prevzd2_2918;

								BgL_newzd2prevzd2_2918 =
									MAKE_YOUNG_PAIR(CAR(BgL_tailz00_2912), BgL_l2z00_2);
								SET_CDR(BgL_prevz00_2911, BgL_newzd2prevzd2_2918);
								{
									obj_t BgL_tailz00_5433;
									obj_t BgL_prevz00_5432;

									BgL_prevz00_5432 = BgL_newzd2prevzd2_2918;
									BgL_tailz00_5433 = CDR(BgL_tailz00_2912);
									BgL_tailz00_2912 = BgL_tailz00_5433;
									BgL_prevz00_2911 = BgL_prevz00_5432;
									goto BgL_loopz00_2910;
								}
							}
						else
							{
								BNIL;
							}
					}
					return CDR(BgL_headz00_1280);
				}
		}

	}



/* untype-ident */
	obj_t BGl_untypezd2identzd2zz__evmodulez00(obj_t BgL_idz00_3)
	{
		{	/* Eval/evmodule.scm 105 */
			if (SYMBOLP(BgL_idz00_3))
				{	/* Eval/evmodule.scm 108 */
					obj_t BgL_stringz00_1289;

					{	/* Eval/evmodule.scm 108 */
						obj_t BgL_arg2189z00_2926;

						BgL_arg2189z00_2926 = SYMBOL_TO_STRING(BgL_idz00_3);
						BgL_stringz00_1289 =
							BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_arg2189z00_2926);
					}
					{	/* Eval/evmodule.scm 108 */
						long BgL_lenz00_1290;

						BgL_lenz00_1290 = STRING_LENGTH(BgL_stringz00_1289);
						{	/* Eval/evmodule.scm 109 */

							{
								long BgL_walkerz00_1292;

								BgL_walkerz00_1292 = 0L;
							BgL_zc3z04anonymousza31303ze3z87_1293:
								if ((BgL_walkerz00_1292 == BgL_lenz00_1290))
									{	/* Eval/evmodule.scm 112 */
										return BgL_idz00_3;
									}
								else
									{	/* Eval/evmodule.scm 114 */
										bool_t BgL_test3426z00_5443;

										if (
											(STRING_REF(BgL_stringz00_1289,
													BgL_walkerz00_1292) == ((unsigned char) ':')))
											{	/* Eval/evmodule.scm 114 */
												if ((BgL_walkerz00_1292 < (BgL_lenz00_1290 - 1L)))
													{	/* Eval/evmodule.scm 115 */
														BgL_test3426z00_5443 =
															(STRING_REF(BgL_stringz00_1289,
																(BgL_walkerz00_1292 + 1L)) ==
															((unsigned char) ':'));
													}
												else
													{	/* Eval/evmodule.scm 115 */
														BgL_test3426z00_5443 = ((bool_t) 0);
													}
											}
										else
											{	/* Eval/evmodule.scm 114 */
												BgL_test3426z00_5443 = ((bool_t) 0);
											}
										if (BgL_test3426z00_5443)
											{	/* Eval/evmodule.scm 114 */
												return
													bstring_to_symbol(c_substring(BgL_stringz00_1289, 0L,
														BgL_walkerz00_1292));
											}
										else
											{
												long BgL_walkerz00_5455;

												BgL_walkerz00_5455 = (BgL_walkerz00_1292 + 1L);
												BgL_walkerz00_1292 = BgL_walkerz00_5455;
												goto BgL_zc3z04anonymousza31303ze3z87_1293;
											}
									}
							}
						}
					}
				}
			else
				{	/* Eval/evmodule.scm 106 */
					return BgL_idz00_3;
				}
		}

	}



/* &make-%evmodule */
	obj_t BGl_z62makezd2z52evmoduleze2zz__evmodulez00(obj_t BgL_envz00_4194,
		obj_t BgL_initz00_4195)
	{
		{	/* Eval/evmodule.scm 129 */
			if (PAIRP(BgL_initz00_4195))
				{	/* Eval/evmodule.scm 129 */
					if (NULLP(CDR(BgL_initz00_4195)))
						{	/* Eval/evmodule.scm 129 */
							obj_t BgL_arg1347z00_5034;

							BgL_arg1347z00_5034 = CAR(BgL_initz00_4195);
							return
								make_struct(BGl_symbol3034z00zz__evmodulez00,
								(int) (7L), BgL_arg1347z00_5034);
						}
					else
						{	/* Eval/evmodule.scm 129 */
							obj_t BgL_runner1355z00_5036;

							BgL_runner1355z00_5036 = BgL_initz00_4195;
							{	/* Eval/evmodule.scm 129 */
								obj_t BgL_aux1348z00_5037;

								{	/* Eval/evmodule.scm 129 */
									obj_t BgL_pairz00_5038;

									{	/* Eval/evmodule.scm 129 */
										obj_t BgL_aux2413z00_5039;

										BgL_aux2413z00_5039 = BgL_runner1355z00_5036;
										if (PAIRP(BgL_aux2413z00_5039))
											{	/* Eval/evmodule.scm 129 */
												BgL_pairz00_5038 = BgL_aux2413z00_5039;
											}
										else
											{
												obj_t BgL_auxz00_5467;

												BgL_auxz00_5467 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3036z00zz__evmodulez00, BINT(4439L),
													BGl_string3037z00zz__evmodulez00,
													BGl_string3038z00zz__evmodulez00,
													BgL_aux2413z00_5039);
												FAILURE(BgL_auxz00_5467, BFALSE, BFALSE);
											}
									}
									BgL_aux1348z00_5037 = CAR(BgL_pairz00_5038);
								}
								{	/* Eval/evmodule.scm 129 */
									obj_t BgL_pairz00_5040;

									{	/* Eval/evmodule.scm 129 */
										obj_t BgL_aux2415z00_5041;

										BgL_aux2415z00_5041 = BgL_runner1355z00_5036;
										if (PAIRP(BgL_aux2415z00_5041))
											{	/* Eval/evmodule.scm 129 */
												BgL_pairz00_5040 = BgL_aux2415z00_5041;
											}
										else
											{
												obj_t BgL_auxz00_5474;

												BgL_auxz00_5474 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3036z00zz__evmodulez00, BINT(4439L),
													BGl_string3037z00zz__evmodulez00,
													BGl_string3038z00zz__evmodulez00,
													BgL_aux2415z00_5041);
												FAILURE(BgL_auxz00_5474, BFALSE, BFALSE);
											}
									}
									BgL_runner1355z00_5036 = CDR(BgL_pairz00_5040);
								}
								{	/* Eval/evmodule.scm 129 */
									obj_t BgL_aux1349z00_5042;

									{	/* Eval/evmodule.scm 129 */
										obj_t BgL_pairz00_5043;

										{	/* Eval/evmodule.scm 129 */
											obj_t BgL_aux2417z00_5044;

											BgL_aux2417z00_5044 = BgL_runner1355z00_5036;
											if (PAIRP(BgL_aux2417z00_5044))
												{	/* Eval/evmodule.scm 129 */
													BgL_pairz00_5043 = BgL_aux2417z00_5044;
												}
											else
												{
													obj_t BgL_auxz00_5481;

													BgL_auxz00_5481 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3036z00zz__evmodulez00, BINT(4439L),
														BGl_string3037z00zz__evmodulez00,
														BGl_string3038z00zz__evmodulez00,
														BgL_aux2417z00_5044);
													FAILURE(BgL_auxz00_5481, BFALSE, BFALSE);
												}
										}
										BgL_aux1349z00_5042 = CAR(BgL_pairz00_5043);
									}
									{	/* Eval/evmodule.scm 129 */
										obj_t BgL_pairz00_5045;

										{	/* Eval/evmodule.scm 129 */
											obj_t BgL_aux2419z00_5046;

											BgL_aux2419z00_5046 = BgL_runner1355z00_5036;
											if (PAIRP(BgL_aux2419z00_5046))
												{	/* Eval/evmodule.scm 129 */
													BgL_pairz00_5045 = BgL_aux2419z00_5046;
												}
											else
												{
													obj_t BgL_auxz00_5488;

													BgL_auxz00_5488 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3036z00zz__evmodulez00, BINT(4439L),
														BGl_string3037z00zz__evmodulez00,
														BGl_string3038z00zz__evmodulez00,
														BgL_aux2419z00_5046);
													FAILURE(BgL_auxz00_5488, BFALSE, BFALSE);
												}
										}
										BgL_runner1355z00_5036 = CDR(BgL_pairz00_5045);
									}
									{	/* Eval/evmodule.scm 129 */
										obj_t BgL_aux1350z00_5047;

										{	/* Eval/evmodule.scm 129 */
											obj_t BgL_pairz00_5048;

											{	/* Eval/evmodule.scm 129 */
												obj_t BgL_aux2421z00_5049;

												BgL_aux2421z00_5049 = BgL_runner1355z00_5036;
												if (PAIRP(BgL_aux2421z00_5049))
													{	/* Eval/evmodule.scm 129 */
														BgL_pairz00_5048 = BgL_aux2421z00_5049;
													}
												else
													{
														obj_t BgL_auxz00_5495;

														BgL_auxz00_5495 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3036z00zz__evmodulez00, BINT(4439L),
															BGl_string3037z00zz__evmodulez00,
															BGl_string3038z00zz__evmodulez00,
															BgL_aux2421z00_5049);
														FAILURE(BgL_auxz00_5495, BFALSE, BFALSE);
													}
											}
											BgL_aux1350z00_5047 = CAR(BgL_pairz00_5048);
										}
										{	/* Eval/evmodule.scm 129 */
											obj_t BgL_pairz00_5050;

											{	/* Eval/evmodule.scm 129 */
												obj_t BgL_aux2423z00_5051;

												BgL_aux2423z00_5051 = BgL_runner1355z00_5036;
												if (PAIRP(BgL_aux2423z00_5051))
													{	/* Eval/evmodule.scm 129 */
														BgL_pairz00_5050 = BgL_aux2423z00_5051;
													}
												else
													{
														obj_t BgL_auxz00_5502;

														BgL_auxz00_5502 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3036z00zz__evmodulez00, BINT(4439L),
															BGl_string3037z00zz__evmodulez00,
															BGl_string3038z00zz__evmodulez00,
															BgL_aux2423z00_5051);
														FAILURE(BgL_auxz00_5502, BFALSE, BFALSE);
													}
											}
											BgL_runner1355z00_5036 = CDR(BgL_pairz00_5050);
										}
										{	/* Eval/evmodule.scm 129 */
											obj_t BgL_aux1351z00_5052;

											{	/* Eval/evmodule.scm 129 */
												obj_t BgL_pairz00_5053;

												{	/* Eval/evmodule.scm 129 */
													obj_t BgL_aux2425z00_5054;

													BgL_aux2425z00_5054 = BgL_runner1355z00_5036;
													if (PAIRP(BgL_aux2425z00_5054))
														{	/* Eval/evmodule.scm 129 */
															BgL_pairz00_5053 = BgL_aux2425z00_5054;
														}
													else
														{
															obj_t BgL_auxz00_5509;

															BgL_auxz00_5509 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string3036z00zz__evmodulez00, BINT(4439L),
																BGl_string3037z00zz__evmodulez00,
																BGl_string3038z00zz__evmodulez00,
																BgL_aux2425z00_5054);
															FAILURE(BgL_auxz00_5509, BFALSE, BFALSE);
														}
												}
												BgL_aux1351z00_5052 = CAR(BgL_pairz00_5053);
											}
											{	/* Eval/evmodule.scm 129 */
												obj_t BgL_pairz00_5055;

												{	/* Eval/evmodule.scm 129 */
													obj_t BgL_aux2427z00_5056;

													BgL_aux2427z00_5056 = BgL_runner1355z00_5036;
													if (PAIRP(BgL_aux2427z00_5056))
														{	/* Eval/evmodule.scm 129 */
															BgL_pairz00_5055 = BgL_aux2427z00_5056;
														}
													else
														{
															obj_t BgL_auxz00_5516;

															BgL_auxz00_5516 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string3036z00zz__evmodulez00, BINT(4439L),
																BGl_string3037z00zz__evmodulez00,
																BGl_string3038z00zz__evmodulez00,
																BgL_aux2427z00_5056);
															FAILURE(BgL_auxz00_5516, BFALSE, BFALSE);
														}
												}
												BgL_runner1355z00_5036 = CDR(BgL_pairz00_5055);
											}
											{	/* Eval/evmodule.scm 129 */
												obj_t BgL_aux1352z00_5057;

												{	/* Eval/evmodule.scm 129 */
													obj_t BgL_pairz00_5058;

													{	/* Eval/evmodule.scm 129 */
														obj_t BgL_aux2429z00_5059;

														BgL_aux2429z00_5059 = BgL_runner1355z00_5036;
														if (PAIRP(BgL_aux2429z00_5059))
															{	/* Eval/evmodule.scm 129 */
																BgL_pairz00_5058 = BgL_aux2429z00_5059;
															}
														else
															{
																obj_t BgL_auxz00_5523;

																BgL_auxz00_5523 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string3036z00zz__evmodulez00,
																	BINT(4439L), BGl_string3037z00zz__evmodulez00,
																	BGl_string3038z00zz__evmodulez00,
																	BgL_aux2429z00_5059);
																FAILURE(BgL_auxz00_5523, BFALSE, BFALSE);
															}
													}
													BgL_aux1352z00_5057 = CAR(BgL_pairz00_5058);
												}
												{	/* Eval/evmodule.scm 129 */
													obj_t BgL_pairz00_5060;

													{	/* Eval/evmodule.scm 129 */
														obj_t BgL_aux2431z00_5061;

														BgL_aux2431z00_5061 = BgL_runner1355z00_5036;
														if (PAIRP(BgL_aux2431z00_5061))
															{	/* Eval/evmodule.scm 129 */
																BgL_pairz00_5060 = BgL_aux2431z00_5061;
															}
														else
															{
																obj_t BgL_auxz00_5530;

																BgL_auxz00_5530 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string3036z00zz__evmodulez00,
																	BINT(4439L), BGl_string3037z00zz__evmodulez00,
																	BGl_string3038z00zz__evmodulez00,
																	BgL_aux2431z00_5061);
																FAILURE(BgL_auxz00_5530, BFALSE, BFALSE);
															}
													}
													BgL_runner1355z00_5036 = CDR(BgL_pairz00_5060);
												}
												{	/* Eval/evmodule.scm 129 */
													obj_t BgL_aux1353z00_5062;

													{	/* Eval/evmodule.scm 129 */
														obj_t BgL_pairz00_5063;

														{	/* Eval/evmodule.scm 129 */
															obj_t BgL_aux2433z00_5064;

															BgL_aux2433z00_5064 = BgL_runner1355z00_5036;
															if (PAIRP(BgL_aux2433z00_5064))
																{	/* Eval/evmodule.scm 129 */
																	BgL_pairz00_5063 = BgL_aux2433z00_5064;
																}
															else
																{
																	obj_t BgL_auxz00_5537;

																	BgL_auxz00_5537 =
																		BGl_typezd2errorzd2zz__errorz00
																		(BGl_string3036z00zz__evmodulez00,
																		BINT(4439L),
																		BGl_string3037z00zz__evmodulez00,
																		BGl_string3038z00zz__evmodulez00,
																		BgL_aux2433z00_5064);
																	FAILURE(BgL_auxz00_5537, BFALSE, BFALSE);
																}
														}
														BgL_aux1353z00_5062 = CAR(BgL_pairz00_5063);
													}
													{	/* Eval/evmodule.scm 129 */
														obj_t BgL_pairz00_5065;

														{	/* Eval/evmodule.scm 129 */
															obj_t BgL_aux2435z00_5066;

															BgL_aux2435z00_5066 = BgL_runner1355z00_5036;
															if (PAIRP(BgL_aux2435z00_5066))
																{	/* Eval/evmodule.scm 129 */
																	BgL_pairz00_5065 = BgL_aux2435z00_5066;
																}
															else
																{
																	obj_t BgL_auxz00_5544;

																	BgL_auxz00_5544 =
																		BGl_typezd2errorzd2zz__errorz00
																		(BGl_string3036z00zz__evmodulez00,
																		BINT(4439L),
																		BGl_string3037z00zz__evmodulez00,
																		BGl_string3038z00zz__evmodulez00,
																		BgL_aux2435z00_5066);
																	FAILURE(BgL_auxz00_5544, BFALSE, BFALSE);
																}
														}
														BgL_runner1355z00_5036 = CDR(BgL_pairz00_5065);
													}
													{	/* Eval/evmodule.scm 129 */
														obj_t BgL_aux1354z00_5067;

														{	/* Eval/evmodule.scm 129 */
															obj_t BgL_pairz00_5068;

															{	/* Eval/evmodule.scm 129 */
																obj_t BgL_aux2437z00_5069;

																BgL_aux2437z00_5069 = BgL_runner1355z00_5036;
																if (PAIRP(BgL_aux2437z00_5069))
																	{	/* Eval/evmodule.scm 129 */
																		BgL_pairz00_5068 = BgL_aux2437z00_5069;
																	}
																else
																	{
																		obj_t BgL_auxz00_5551;

																		BgL_auxz00_5551 =
																			BGl_typezd2errorzd2zz__errorz00
																			(BGl_string3036z00zz__evmodulez00,
																			BINT(4439L),
																			BGl_string3037z00zz__evmodulez00,
																			BGl_string3038z00zz__evmodulez00,
																			BgL_aux2437z00_5069);
																		FAILURE(BgL_auxz00_5551, BFALSE, BFALSE);
																	}
															}
															BgL_aux1354z00_5067 = CAR(BgL_pairz00_5068);
														}
														{	/* Eval/evmodule.scm 129 */
															obj_t BgL_newz00_5070;

															BgL_newz00_5070 =
																create_struct(BGl_symbol3034z00zz__evmodulez00,
																(int) (7L));
															{	/* Eval/evmodule.scm 129 */
																int BgL_tmpz00_5558;

																BgL_tmpz00_5558 = (int) (6L);
																STRUCT_SET(BgL_newz00_5070, BgL_tmpz00_5558,
																	BgL_aux1354z00_5067);
															}
															{	/* Eval/evmodule.scm 129 */
																int BgL_tmpz00_5561;

																BgL_tmpz00_5561 = (int) (5L);
																STRUCT_SET(BgL_newz00_5070, BgL_tmpz00_5561,
																	BgL_aux1353z00_5062);
															}
															{	/* Eval/evmodule.scm 129 */
																int BgL_tmpz00_5564;

																BgL_tmpz00_5564 = (int) (4L);
																STRUCT_SET(BgL_newz00_5070, BgL_tmpz00_5564,
																	BgL_aux1352z00_5057);
															}
															{	/* Eval/evmodule.scm 129 */
																int BgL_tmpz00_5567;

																BgL_tmpz00_5567 = (int) (3L);
																STRUCT_SET(BgL_newz00_5070, BgL_tmpz00_5567,
																	BgL_aux1351z00_5052);
															}
															{	/* Eval/evmodule.scm 129 */
																int BgL_tmpz00_5570;

																BgL_tmpz00_5570 = (int) (2L);
																STRUCT_SET(BgL_newz00_5070, BgL_tmpz00_5570,
																	BgL_aux1350z00_5047);
															}
															{	/* Eval/evmodule.scm 129 */
																int BgL_tmpz00_5573;

																BgL_tmpz00_5573 = (int) (1L);
																STRUCT_SET(BgL_newz00_5070, BgL_tmpz00_5573,
																	BgL_aux1349z00_5042);
															}
															{	/* Eval/evmodule.scm 129 */
																int BgL_tmpz00_5576;

																BgL_tmpz00_5576 = (int) (0L);
																STRUCT_SET(BgL_newz00_5070, BgL_tmpz00_5576,
																	BgL_aux1348z00_5037);
															}
															return BgL_newz00_5070;
														}
													}
												}
											}
										}
									}
								}
							}
						}
				}
			else
				{	/* Eval/evmodule.scm 129 */
					return
						make_struct(BGl_symbol3034z00zz__evmodulez00, (int) (7L), BNIL);
		}}

	}



/* evmodule? */
	BGL_EXPORTED_DEF bool_t BGl_evmodulezf3zf3zz__evmodulez00(obj_t BgL_objz00_34)
	{
		{	/* Eval/evmodule.scm 134 */
			{	/* Eval/evmodule.scm 135 */
				bool_t BgL_test3444z00_5581;

				if (STRUCTP(BgL_objz00_34))
					{	/* Eval/evmodule.scm 129 */
						obj_t BgL_tmpz00_5584;

						{	/* Eval/evmodule.scm 129 */
							obj_t BgL_res2379z00_3014;

							{	/* Eval/evmodule.scm 129 */
								obj_t BgL_aux2439z00_4370;

								BgL_aux2439z00_4370 = STRUCT_KEY(BgL_objz00_34);
								if (SYMBOLP(BgL_aux2439z00_4370))
									{	/* Eval/evmodule.scm 129 */
										BgL_res2379z00_3014 = BgL_aux2439z00_4370;
									}
								else
									{
										obj_t BgL_auxz00_5588;

										BgL_auxz00_5588 =
											BGl_typezd2errorzd2zz__errorz00
											(BGl_string3036z00zz__evmodulez00, BINT(4439L),
											BGl_string3039z00zz__evmodulez00,
											BGl_string3040z00zz__evmodulez00, BgL_aux2439z00_4370);
										FAILURE(BgL_auxz00_5588, BFALSE, BFALSE);
									}
							}
							BgL_tmpz00_5584 = BgL_res2379z00_3014;
						}
						BgL_test3444z00_5581 =
							(BgL_tmpz00_5584 == BGl_symbol3034z00zz__evmodulez00);
					}
				else
					{	/* Eval/evmodule.scm 129 */
						BgL_test3444z00_5581 = ((bool_t) 0);
					}
				if (BgL_test3444z00_5581)
					{	/* Eval/evmodule.scm 135 */
						return
							(STRUCT_REF(BgL_objz00_34,
								(int) (0L)) == BGl_makezd2z52evmodulezd2envz52zz__evmodulez00);
					}
				else
					{	/* Eval/evmodule.scm 135 */
						return ((bool_t) 0);
					}
			}
		}

	}



/* &evmodule? */
	obj_t BGl_z62evmodulezf3z91zz__evmodulez00(obj_t BgL_envz00_4196,
		obj_t BgL_objz00_4197)
	{
		{	/* Eval/evmodule.scm 134 */
			return BBOOL(BGl_evmodulezf3zf3zz__evmodulez00(BgL_objz00_4197));
		}

	}



/* evmodule-name */
	BGL_EXPORTED_DEF obj_t BGl_evmodulezd2namezd2zz__evmodulez00(obj_t
		BgL_modz00_35)
	{
		{	/* Eval/evmodule.scm 140 */
			{	/* Eval/evmodule.scm 141 */
				bool_t BgL_test3447z00_5598;

				{	/* Eval/evmodule.scm 135 */
					bool_t BgL_test3448z00_5599;

					if (STRUCTP(BgL_modz00_35))
						{	/* Eval/evmodule.scm 129 */
							obj_t BgL_tmpz00_5602;

							{	/* Eval/evmodule.scm 129 */
								obj_t BgL_res2380z00_3022;

								{	/* Eval/evmodule.scm 129 */
									obj_t BgL_aux2441z00_4372;

									BgL_aux2441z00_4372 = STRUCT_KEY(BgL_modz00_35);
									if (SYMBOLP(BgL_aux2441z00_4372))
										{	/* Eval/evmodule.scm 129 */
											BgL_res2380z00_3022 = BgL_aux2441z00_4372;
										}
									else
										{
											obj_t BgL_auxz00_5606;

											BgL_auxz00_5606 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3036z00zz__evmodulez00, BINT(4439L),
												BGl_string3041z00zz__evmodulez00,
												BGl_string3040z00zz__evmodulez00, BgL_aux2441z00_4372);
											FAILURE(BgL_auxz00_5606, BFALSE, BFALSE);
										}
								}
								BgL_tmpz00_5602 = BgL_res2380z00_3022;
							}
							BgL_test3448z00_5599 =
								(BgL_tmpz00_5602 == BGl_symbol3034z00zz__evmodulez00);
						}
					else
						{	/* Eval/evmodule.scm 129 */
							BgL_test3448z00_5599 = ((bool_t) 0);
						}
					if (BgL_test3448z00_5599)
						{	/* Eval/evmodule.scm 135 */
							BgL_test3447z00_5598 =
								(STRUCT_REF(BgL_modz00_35,
									(int) (0L)) ==
								BGl_makezd2z52evmodulezd2envz52zz__evmodulez00);
						}
					else
						{	/* Eval/evmodule.scm 135 */
							BgL_test3447z00_5598 = ((bool_t) 0);
						}
				}
				if (BgL_test3447z00_5598)
					{	/* Eval/evmodule.scm 129 */
						obj_t BgL_sz00_3024;

						{	/* Eval/evmodule.scm 129 */
							obj_t BgL_aux2443z00_4374;

							BgL_aux2443z00_4374 = BgL_modz00_35;
							if (STRUCTP(BgL_aux2443z00_4374))
								{	/* Eval/evmodule.scm 129 */
									BgL_sz00_3024 = BgL_aux2443z00_4374;
								}
							else
								{
									obj_t BgL_auxz00_5616;

									BgL_auxz00_5616 =
										BGl_typezd2errorzd2zz__errorz00
										(BGl_string3036z00zz__evmodulez00, BINT(4439L),
										BGl_string3041z00zz__evmodulez00,
										BGl_string3042z00zz__evmodulez00, BgL_aux2443z00_4374);
									FAILURE(BgL_auxz00_5616, BFALSE, BFALSE);
								}
						}
						{	/* Eval/evmodule.scm 129 */
							obj_t BgL_aux2445z00_4376;

							BgL_aux2445z00_4376 = STRUCT_REF(BgL_sz00_3024, (int) (1L));
							if (SYMBOLP(BgL_aux2445z00_4376))
								{	/* Eval/evmodule.scm 129 */
									return BgL_aux2445z00_4376;
								}
							else
								{
									obj_t BgL_auxz00_5624;

									BgL_auxz00_5624 =
										BGl_typezd2errorzd2zz__errorz00
										(BGl_string3036z00zz__evmodulez00, BINT(4439L),
										BGl_string3041z00zz__evmodulez00,
										BGl_string3040z00zz__evmodulez00, BgL_aux2445z00_4376);
									FAILURE(BgL_auxz00_5624, BFALSE, BFALSE);
								}
						}
					}
				else
					{	/* Eval/evmodule.scm 143 */
						obj_t BgL_aux2447z00_4378;

						BgL_aux2447z00_4378 =
							BGl_bigloozd2typezd2errorz00zz__errorz00
							(BGl_string3041z00zz__evmodulez00,
							BGl_symbol3043z00zz__evmodulez00, BgL_modz00_35);
						if (SYMBOLP(BgL_aux2447z00_4378))
							{	/* Eval/evmodule.scm 143 */
								return BgL_aux2447z00_4378;
							}
						else
							{
								obj_t BgL_auxz00_5631;

								BgL_auxz00_5631 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3036z00zz__evmodulez00, BINT(5128L),
									BGl_string3041z00zz__evmodulez00,
									BGl_string3040z00zz__evmodulez00, BgL_aux2447z00_4378);
								FAILURE(BgL_auxz00_5631, BFALSE, BFALSE);
							}
					}
			}
		}

	}



/* &evmodule-name */
	obj_t BGl_z62evmodulezd2namezb0zz__evmodulez00(obj_t BgL_envz00_4198,
		obj_t BgL_modz00_4199)
	{
		{	/* Eval/evmodule.scm 140 */
			return BGl_evmodulezd2namezd2zz__evmodulez00(BgL_modz00_4199);
		}

	}



/* evmodule-path */
	BGL_EXPORTED_DEF obj_t BGl_evmodulezd2pathzd2zz__evmodulez00(obj_t
		BgL_modz00_36)
	{
		{	/* Eval/evmodule.scm 148 */
			{	/* Eval/evmodule.scm 149 */
				bool_t BgL_test3454z00_5636;

				{	/* Eval/evmodule.scm 135 */
					bool_t BgL_test3455z00_5637;

					if (STRUCTP(BgL_modz00_36))
						{	/* Eval/evmodule.scm 129 */
							obj_t BgL_tmpz00_5640;

							{	/* Eval/evmodule.scm 129 */
								obj_t BgL_res2381z00_3031;

								{	/* Eval/evmodule.scm 129 */
									obj_t BgL_aux2449z00_4380;

									BgL_aux2449z00_4380 = STRUCT_KEY(BgL_modz00_36);
									if (SYMBOLP(BgL_aux2449z00_4380))
										{	/* Eval/evmodule.scm 129 */
											BgL_res2381z00_3031 = BgL_aux2449z00_4380;
										}
									else
										{
											obj_t BgL_auxz00_5644;

											BgL_auxz00_5644 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3036z00zz__evmodulez00, BINT(4439L),
												BGl_string3045z00zz__evmodulez00,
												BGl_string3040z00zz__evmodulez00, BgL_aux2449z00_4380);
											FAILURE(BgL_auxz00_5644, BFALSE, BFALSE);
										}
								}
								BgL_tmpz00_5640 = BgL_res2381z00_3031;
							}
							BgL_test3455z00_5637 =
								(BgL_tmpz00_5640 == BGl_symbol3034z00zz__evmodulez00);
						}
					else
						{	/* Eval/evmodule.scm 129 */
							BgL_test3455z00_5637 = ((bool_t) 0);
						}
					if (BgL_test3455z00_5637)
						{	/* Eval/evmodule.scm 135 */
							BgL_test3454z00_5636 =
								(STRUCT_REF(BgL_modz00_36,
									(int) (0L)) ==
								BGl_makezd2z52evmodulezd2envz52zz__evmodulez00);
						}
					else
						{	/* Eval/evmodule.scm 135 */
							BgL_test3454z00_5636 = ((bool_t) 0);
						}
				}
				if (BgL_test3454z00_5636)
					{	/* Eval/evmodule.scm 129 */
						obj_t BgL_sz00_3033;

						{	/* Eval/evmodule.scm 129 */
							obj_t BgL_aux2451z00_4382;

							BgL_aux2451z00_4382 = BgL_modz00_36;
							if (STRUCTP(BgL_aux2451z00_4382))
								{	/* Eval/evmodule.scm 129 */
									BgL_sz00_3033 = BgL_aux2451z00_4382;
								}
							else
								{
									obj_t BgL_auxz00_5654;

									BgL_auxz00_5654 =
										BGl_typezd2errorzd2zz__errorz00
										(BGl_string3036z00zz__evmodulez00, BINT(4439L),
										BGl_string3045z00zz__evmodulez00,
										BGl_string3042z00zz__evmodulez00, BgL_aux2451z00_4382);
									FAILURE(BgL_auxz00_5654, BFALSE, BFALSE);
								}
						}
						return STRUCT_REF(BgL_sz00_3033, (int) (2L));
					}
				else
					{	/* Eval/evmodule.scm 149 */
						return
							BGl_bigloozd2typezd2errorz00zz__errorz00
							(BGl_string3045z00zz__evmodulez00,
							BGl_symbol3043z00zz__evmodulez00, BgL_modz00_36);
					}
			}
		}

	}



/* &evmodule-path */
	obj_t BGl_z62evmodulezd2pathzb0zz__evmodulez00(obj_t BgL_envz00_4200,
		obj_t BgL_modz00_4201)
	{
		{	/* Eval/evmodule.scm 148 */
			return BGl_evmodulezd2pathzd2zz__evmodulez00(BgL_modz00_4201);
		}

	}



/* evmodule-macro-table */
	BGL_EXPORTED_DEF obj_t BGl_evmodulezd2macrozd2tablez00zz__evmodulez00(obj_t
		BgL_modz00_37)
	{
		{	/* Eval/evmodule.scm 156 */
			{	/* Eval/evmodule.scm 157 */
				bool_t BgL_test3459z00_5662;

				{	/* Eval/evmodule.scm 135 */
					bool_t BgL_test3460z00_5663;

					if (STRUCTP(BgL_modz00_37))
						{	/* Eval/evmodule.scm 129 */
							obj_t BgL_tmpz00_5666;

							{	/* Eval/evmodule.scm 129 */
								obj_t BgL_res2382z00_3040;

								{	/* Eval/evmodule.scm 129 */
									obj_t BgL_aux2453z00_4384;

									BgL_aux2453z00_4384 = STRUCT_KEY(BgL_modz00_37);
									if (SYMBOLP(BgL_aux2453z00_4384))
										{	/* Eval/evmodule.scm 129 */
											BgL_res2382z00_3040 = BgL_aux2453z00_4384;
										}
									else
										{
											obj_t BgL_auxz00_5670;

											BgL_auxz00_5670 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3036z00zz__evmodulez00, BINT(4439L),
												BGl_string3046z00zz__evmodulez00,
												BGl_string3040z00zz__evmodulez00, BgL_aux2453z00_4384);
											FAILURE(BgL_auxz00_5670, BFALSE, BFALSE);
										}
								}
								BgL_tmpz00_5666 = BgL_res2382z00_3040;
							}
							BgL_test3460z00_5663 =
								(BgL_tmpz00_5666 == BGl_symbol3034z00zz__evmodulez00);
						}
					else
						{	/* Eval/evmodule.scm 129 */
							BgL_test3460z00_5663 = ((bool_t) 0);
						}
					if (BgL_test3460z00_5663)
						{	/* Eval/evmodule.scm 135 */
							BgL_test3459z00_5662 =
								(STRUCT_REF(BgL_modz00_37,
									(int) (0L)) ==
								BGl_makezd2z52evmodulezd2envz52zz__evmodulez00);
						}
					else
						{	/* Eval/evmodule.scm 135 */
							BgL_test3459z00_5662 = ((bool_t) 0);
						}
				}
				if (BgL_test3459z00_5662)
					{	/* Eval/evmodule.scm 129 */
						obj_t BgL_sz00_3042;

						{	/* Eval/evmodule.scm 129 */
							obj_t BgL_aux2455z00_4386;

							BgL_aux2455z00_4386 = BgL_modz00_37;
							if (STRUCTP(BgL_aux2455z00_4386))
								{	/* Eval/evmodule.scm 129 */
									BgL_sz00_3042 = BgL_aux2455z00_4386;
								}
							else
								{
									obj_t BgL_auxz00_5680;

									BgL_auxz00_5680 =
										BGl_typezd2errorzd2zz__errorz00
										(BGl_string3036z00zz__evmodulez00, BINT(4439L),
										BGl_string3046z00zz__evmodulez00,
										BGl_string3042z00zz__evmodulez00, BgL_aux2455z00_4386);
									FAILURE(BgL_auxz00_5680, BFALSE, BFALSE);
								}
						}
						return STRUCT_REF(BgL_sz00_3042, (int) (5L));
					}
				else
					{	/* Eval/evmodule.scm 157 */
						return
							BGl_bigloozd2typezd2errorz00zz__errorz00
							(BGl_string3046z00zz__evmodulez00,
							BGl_symbol3043z00zz__evmodulez00, BgL_modz00_37);
					}
			}
		}

	}



/* &evmodule-macro-table */
	obj_t BGl_z62evmodulezd2macrozd2tablez62zz__evmodulez00(obj_t BgL_envz00_4202,
		obj_t BgL_modz00_4203)
	{
		{	/* Eval/evmodule.scm 156 */
			return BGl_evmodulezd2macrozd2tablez00zz__evmodulez00(BgL_modz00_4203);
		}

	}



/* evmodule-extension */
	BGL_EXPORTED_DEF obj_t BGl_evmodulezd2extensionzd2zz__evmodulez00(obj_t
		BgL_modz00_38)
	{
		{	/* Eval/evmodule.scm 164 */
			{	/* Eval/evmodule.scm 165 */
				bool_t BgL_test3464z00_5688;

				{	/* Eval/evmodule.scm 135 */
					bool_t BgL_test3465z00_5689;

					if (STRUCTP(BgL_modz00_38))
						{	/* Eval/evmodule.scm 129 */
							obj_t BgL_tmpz00_5692;

							{	/* Eval/evmodule.scm 129 */
								obj_t BgL_res2383z00_3049;

								{	/* Eval/evmodule.scm 129 */
									obj_t BgL_aux2457z00_4388;

									BgL_aux2457z00_4388 = STRUCT_KEY(BgL_modz00_38);
									if (SYMBOLP(BgL_aux2457z00_4388))
										{	/* Eval/evmodule.scm 129 */
											BgL_res2383z00_3049 = BgL_aux2457z00_4388;
										}
									else
										{
											obj_t BgL_auxz00_5696;

											BgL_auxz00_5696 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3036z00zz__evmodulez00, BINT(4439L),
												BGl_string3047z00zz__evmodulez00,
												BGl_string3040z00zz__evmodulez00, BgL_aux2457z00_4388);
											FAILURE(BgL_auxz00_5696, BFALSE, BFALSE);
										}
								}
								BgL_tmpz00_5692 = BgL_res2383z00_3049;
							}
							BgL_test3465z00_5689 =
								(BgL_tmpz00_5692 == BGl_symbol3034z00zz__evmodulez00);
						}
					else
						{	/* Eval/evmodule.scm 129 */
							BgL_test3465z00_5689 = ((bool_t) 0);
						}
					if (BgL_test3465z00_5689)
						{	/* Eval/evmodule.scm 135 */
							BgL_test3464z00_5688 =
								(STRUCT_REF(BgL_modz00_38,
									(int) (0L)) ==
								BGl_makezd2z52evmodulezd2envz52zz__evmodulez00);
						}
					else
						{	/* Eval/evmodule.scm 135 */
							BgL_test3464z00_5688 = ((bool_t) 0);
						}
				}
				if (BgL_test3464z00_5688)
					{	/* Eval/evmodule.scm 129 */
						obj_t BgL_sz00_3051;

						{	/* Eval/evmodule.scm 129 */
							obj_t BgL_aux2459z00_4390;

							BgL_aux2459z00_4390 = BgL_modz00_38;
							if (STRUCTP(BgL_aux2459z00_4390))
								{	/* Eval/evmodule.scm 129 */
									BgL_sz00_3051 = BgL_aux2459z00_4390;
								}
							else
								{
									obj_t BgL_auxz00_5706;

									BgL_auxz00_5706 =
										BGl_typezd2errorzd2zz__errorz00
										(BGl_string3036z00zz__evmodulez00, BINT(4439L),
										BGl_string3047z00zz__evmodulez00,
										BGl_string3042z00zz__evmodulez00, BgL_aux2459z00_4390);
									FAILURE(BgL_auxz00_5706, BFALSE, BFALSE);
								}
						}
						return STRUCT_REF(BgL_sz00_3051, (int) (6L));
					}
				else
					{	/* Eval/evmodule.scm 165 */
						return
							BGl_bigloozd2typezd2errorz00zz__errorz00
							(BGl_string3047z00zz__evmodulez00,
							BGl_symbol3043z00zz__evmodulez00, BgL_modz00_38);
					}
			}
		}

	}



/* &evmodule-extension */
	obj_t BGl_z62evmodulezd2extensionzb0zz__evmodulez00(obj_t BgL_envz00_4204,
		obj_t BgL_modz00_4205)
	{
		{	/* Eval/evmodule.scm 164 */
			return BGl_evmodulezd2extensionzd2zz__evmodulez00(BgL_modz00_4205);
		}

	}



/* evmodule-extension-set! */
	BGL_EXPORTED_DEF obj_t
		BGl_evmodulezd2extensionzd2setz12z12zz__evmodulez00(obj_t BgL_modz00_39,
		obj_t BgL_extz00_40)
	{
		{	/* Eval/evmodule.scm 172 */
			{	/* Eval/evmodule.scm 129 */
				obj_t BgL_sz00_3052;

				if (STRUCTP(BgL_modz00_39))
					{	/* Eval/evmodule.scm 129 */
						BgL_sz00_3052 = BgL_modz00_39;
					}
				else
					{
						obj_t BgL_auxz00_5716;

						BgL_auxz00_5716 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string3036z00zz__evmodulez00,
							BINT(4439L), BGl_string3048z00zz__evmodulez00,
							BGl_string3042z00zz__evmodulez00, BgL_modz00_39);
						FAILURE(BgL_auxz00_5716, BFALSE, BFALSE);
					}
				{	/* Eval/evmodule.scm 129 */
					int BgL_tmpz00_5720;

					BgL_tmpz00_5720 = (int) (6L);
					return STRUCT_SET(BgL_sz00_3052, BgL_tmpz00_5720, BgL_extz00_40);
				}
			}
		}

	}



/* &evmodule-extension-set! */
	obj_t BGl_z62evmodulezd2extensionzd2setz12z70zz__evmodulez00(obj_t
		BgL_envz00_4206, obj_t BgL_modz00_4207, obj_t BgL_extz00_4208)
	{
		{	/* Eval/evmodule.scm 172 */
			return
				BGl_evmodulezd2extensionzd2setz12z12zz__evmodulez00(BgL_modz00_4207,
				BgL_extz00_4208);
		}

	}



/* make-evmodule */
	obj_t BGl_makezd2evmodulezd2zz__evmodulez00(obj_t BgL_idz00_41,
		obj_t BgL_pathz00_42, obj_t BgL_locz00_43)
	{
		{	/* Eval/evmodule.scm 178 */
			{	/* Eval/evmodule.scm 179 */
				obj_t BgL_top3471z00_5725;

				BgL_top3471z00_5725 = BGL_EXITD_TOP_AS_OBJ();
				BGL_MUTEX_LOCK(BGl_za2moduleszd2mutexza2zd2zz__evmodulez00);
				BGL_EXITD_PUSH_PROTECT(BgL_top3471z00_5725,
					BGl_za2moduleszd2mutexza2zd2zz__evmodulez00);
				BUNSPEC;
				{	/* Eval/evmodule.scm 179 */
					obj_t BgL_tmp3470z00_5724;

					{	/* Eval/evmodule.scm 180 */
						obj_t BgL_envz00_1335;

						{	/* Eval/evmodule.scm 180 */
							obj_t BgL_list1383z00_1360;

							{	/* Eval/evmodule.scm 180 */
								obj_t BgL_arg1384z00_1361;

								{	/* Eval/evmodule.scm 180 */
									obj_t BgL_arg1385z00_1362;

									BgL_arg1385z00_1362 =
										MAKE_YOUNG_PAIR(BGl_eqzf3zd2envz21zz__r4_equivalence_6_2z00,
										BNIL);
									BgL_arg1384z00_1361 =
										MAKE_YOUNG_PAIR(BUNSPEC, BgL_arg1385z00_1362);
								}
								BgL_list1383z00_1360 =
									MAKE_YOUNG_PAIR(BINT(100L), BgL_arg1384z00_1361);
							}
							BgL_envz00_1335 =
								BGl_makezd2hashtablezd2zz__hashz00(BgL_list1383z00_1360);
						}
						{	/* Eval/evmodule.scm 180 */
							obj_t BgL_mactablez00_1336;

							{	/* Eval/evmodule.scm 181 */
								obj_t BgL_list1382z00_1359;

								BgL_list1382z00_1359 = MAKE_YOUNG_PAIR(BINT(64L), BNIL);
								BgL_mactablez00_1336 =
									BGl_makezd2hashtablezd2zz__hashz00(BgL_list1382z00_1359);
							}
							{	/* Eval/evmodule.scm 181 */
								obj_t BgL_modz00_1337;

								{	/* Eval/evmodule.scm 129 */
									obj_t BgL_newz00_3053;

									BgL_newz00_3053 =
										create_struct(BGl_symbol3034z00zz__evmodulez00, (int) (7L));
									{	/* Eval/evmodule.scm 129 */
										int BgL_tmpz00_5739;

										BgL_tmpz00_5739 = (int) (6L);
										STRUCT_SET(BgL_newz00_3053, BgL_tmpz00_5739, BNIL);
									}
									{	/* Eval/evmodule.scm 129 */
										int BgL_tmpz00_5742;

										BgL_tmpz00_5742 = (int) (5L);
										STRUCT_SET(BgL_newz00_3053, BgL_tmpz00_5742,
											BgL_mactablez00_1336);
									}
									{	/* Eval/evmodule.scm 129 */
										int BgL_tmpz00_5745;

										BgL_tmpz00_5745 = (int) (4L);
										STRUCT_SET(BgL_newz00_3053, BgL_tmpz00_5745, BNIL);
									}
									{	/* Eval/evmodule.scm 129 */
										int BgL_tmpz00_5748;

										BgL_tmpz00_5748 = (int) (3L);
										STRUCT_SET(BgL_newz00_3053, BgL_tmpz00_5748,
											BgL_envz00_1335);
									}
									{	/* Eval/evmodule.scm 129 */
										int BgL_tmpz00_5751;

										BgL_tmpz00_5751 = (int) (2L);
										STRUCT_SET(BgL_newz00_3053, BgL_tmpz00_5751,
											BgL_pathz00_42);
									}
									{	/* Eval/evmodule.scm 129 */
										int BgL_tmpz00_5754;

										BgL_tmpz00_5754 = (int) (1L);
										STRUCT_SET(BgL_newz00_3053, BgL_tmpz00_5754, BgL_idz00_41);
									}
									{	/* Eval/evmodule.scm 129 */
										int BgL_tmpz00_5757;

										BgL_tmpz00_5757 = (int) (0L);
										STRUCT_SET(BgL_newz00_3053, BgL_tmpz00_5757,
											BGl_makezd2z52evmodulezd2envz52zz__evmodulez00);
									}
									BgL_modz00_1337 = BgL_newz00_3053;
								}
								{	/* Eval/evmodule.scm 182 */

									if (BGl_hashtablezf3zf3zz__hashz00
										(BGl_za2moduleszd2tableza2zd2zz__evmodulez00))
										{	/* Eval/evmodule.scm 187 */
											obj_t BgL_oldz00_1339;

											{	/* Eval/evmodule.scm 187 */
												obj_t BgL_auxz00_5762;

												{	/* Eval/evmodule.scm 187 */
													obj_t BgL_aux2463z00_4394;

													BgL_aux2463z00_4394 =
														BGl_za2moduleszd2tableza2zd2zz__evmodulez00;
													if (STRUCTP(BgL_aux2463z00_4394))
														{	/* Eval/evmodule.scm 187 */
															BgL_auxz00_5762 = BgL_aux2463z00_4394;
														}
													else
														{
															obj_t BgL_auxz00_5765;

															BgL_auxz00_5765 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string3036z00zz__evmodulez00, BINT(7219L),
																BGl_string3049z00zz__evmodulez00,
																BGl_string3042z00zz__evmodulez00,
																BgL_aux2463z00_4394);
															FAILURE(BgL_auxz00_5765, BFALSE, BFALSE);
														}
												}
												BgL_oldz00_1339 =
													BGl_hashtablezd2getzd2zz__hashz00(BgL_auxz00_5762,
													BgL_idz00_41);
											}
											if (CBOOL(BgL_oldz00_1339))
												{	/* Eval/evmodule.scm 188 */
													{	/* Eval/evmodule.scm 191 */
														obj_t BgL_zc3z04anonymousza31366ze3z87_4209;

														BgL_zc3z04anonymousza31366ze3z87_4209 =
															MAKE_FX_PROCEDURE
															(BGl_z62zc3z04anonymousza31366ze3ze5zz__evmodulez00,
															(int) (1L), (int) (1L));
														PROCEDURE_SET(BgL_zc3z04anonymousza31366ze3z87_4209,
															(int) (0L), BgL_modz00_1337);
														{	/* Eval/evmodule.scm 190 */
															obj_t BgL_auxz00_5777;

															{	/* Eval/evmodule.scm 190 */
																obj_t BgL_aux2465z00_4396;

																BgL_aux2465z00_4396 =
																	BGl_za2moduleszd2tableza2zd2zz__evmodulez00;
																if (STRUCTP(BgL_aux2465z00_4396))
																	{	/* Eval/evmodule.scm 190 */
																		BgL_auxz00_5777 = BgL_aux2465z00_4396;
																	}
																else
																	{
																		obj_t BgL_auxz00_5780;

																		BgL_auxz00_5780 =
																			BGl_typezd2errorzd2zz__errorz00
																			(BGl_string3036z00zz__evmodulez00,
																			BINT(7292L),
																			BGl_string3049z00zz__evmodulez00,
																			BGl_string3042z00zz__evmodulez00,
																			BgL_aux2465z00_4396);
																		FAILURE(BgL_auxz00_5780, BFALSE, BFALSE);
																	}
															}
															BGl_hashtablezd2updatez12zc0zz__hashz00
																(BgL_auxz00_5777, BgL_idz00_41,
																BgL_zc3z04anonymousza31366ze3z87_4209,
																BgL_modz00_1337);
														}
													}
													{	/* Eval/evmodule.scm 192 */
														bool_t BgL_test3476z00_5785;

														{	/* Eval/evmodule.scm 192 */
															obj_t BgL_arg1380z00_1357;

															{	/* Eval/evmodule.scm 129 */
																obj_t BgL_sz00_3061;

																if (STRUCTP(BgL_oldz00_1339))
																	{	/* Eval/evmodule.scm 129 */
																		BgL_sz00_3061 = BgL_oldz00_1339;
																	}
																else
																	{
																		obj_t BgL_auxz00_5788;

																		BgL_auxz00_5788 =
																			BGl_typezd2errorzd2zz__errorz00
																			(BGl_string3036z00zz__evmodulez00,
																			BINT(4439L),
																			BGl_string3049z00zz__evmodulez00,
																			BGl_string3042z00zz__evmodulez00,
																			BgL_oldz00_1339);
																		FAILURE(BgL_auxz00_5788, BFALSE, BFALSE);
																	}
																BgL_arg1380z00_1357 =
																	STRUCT_REF(BgL_sz00_3061, (int) (2L));
															}
															{	/* Eval/evmodule.scm 192 */
																obj_t BgL_string1z00_3062;
																obj_t BgL_string2z00_3063;

																if (STRINGP(BgL_arg1380z00_1357))
																	{	/* Eval/evmodule.scm 192 */
																		BgL_string1z00_3062 = BgL_arg1380z00_1357;
																	}
																else
																	{
																		obj_t BgL_auxz00_5796;

																		BgL_auxz00_5796 =
																			BGl_typezd2errorzd2zz__errorz00
																			(BGl_string3036z00zz__evmodulez00,
																			BINT(7384L),
																			BGl_string3049z00zz__evmodulez00,
																			BGl_string3050z00zz__evmodulez00,
																			BgL_arg1380z00_1357);
																		FAILURE(BgL_auxz00_5796, BFALSE, BFALSE);
																	}
																if (STRINGP(BgL_pathz00_42))
																	{	/* Eval/evmodule.scm 192 */
																		BgL_string2z00_3063 = BgL_pathz00_42;
																	}
																else
																	{
																		obj_t BgL_auxz00_5802;

																		BgL_auxz00_5802 =
																			BGl_typezd2errorzd2zz__errorz00
																			(BGl_string3036z00zz__evmodulez00,
																			BINT(7386L),
																			BGl_string3049z00zz__evmodulez00,
																			BGl_string3050z00zz__evmodulez00,
																			BgL_pathz00_42);
																		FAILURE(BgL_auxz00_5802, BFALSE, BFALSE);
																	}
																{	/* Eval/evmodule.scm 192 */
																	long BgL_l1z00_3064;

																	BgL_l1z00_3064 =
																		STRING_LENGTH(BgL_string1z00_3062);
																	if (
																		(BgL_l1z00_3064 ==
																			STRING_LENGTH(BgL_string2z00_3063)))
																		{	/* Eval/evmodule.scm 192 */
																			int BgL_arg2182z00_3067;

																			{	/* Eval/evmodule.scm 192 */
																				char *BgL_auxz00_5812;
																				char *BgL_tmpz00_5810;

																				BgL_auxz00_5812 =
																					BSTRING_TO_STRING
																					(BgL_string2z00_3063);
																				BgL_tmpz00_5810 =
																					BSTRING_TO_STRING
																					(BgL_string1z00_3062);
																				BgL_arg2182z00_3067 =
																					memcmp(BgL_tmpz00_5810,
																					BgL_auxz00_5812, BgL_l1z00_3064);
																			}
																			BgL_test3476z00_5785 =
																				((long) (BgL_arg2182z00_3067) == 0L);
																		}
																	else
																		{	/* Eval/evmodule.scm 192 */
																			BgL_test3476z00_5785 = ((bool_t) 0);
																		}
																}
															}
														}
														if (BgL_test3476z00_5785)
															{	/* Eval/evmodule.scm 192 */
																BFALSE;
															}
														else
															{	/* Eval/evmodule.scm 193 */
																obj_t BgL_msgz00_1346;

																{	/* Eval/evmodule.scm 194 */
																	obj_t BgL_arg1370z00_1348;
																	obj_t BgL_arg1371z00_1349;

																	{	/* Eval/evmodule.scm 194 */
																		obj_t BgL_arg2189z00_3074;

																		BgL_arg2189z00_3074 =
																			SYMBOL_TO_STRING(BgL_idz00_41);
																		BgL_arg1370z00_1348 =
																			BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																			(BgL_arg2189z00_3074);
																	}
																	{	/* Eval/evmodule.scm 129 */
																		obj_t BgL_sz00_3075;

																		if (STRUCTP(BgL_oldz00_1339))
																			{	/* Eval/evmodule.scm 129 */
																				BgL_sz00_3075 = BgL_oldz00_1339;
																			}
																		else
																			{
																				obj_t BgL_auxz00_5821;

																				BgL_auxz00_5821 =
																					BGl_typezd2errorzd2zz__errorz00
																					(BGl_string3036z00zz__evmodulez00,
																					BINT(4439L),
																					BGl_string3049z00zz__evmodulez00,
																					BGl_string3042z00zz__evmodulez00,
																					BgL_oldz00_1339);
																				FAILURE(BgL_auxz00_5821, BFALSE,
																					BFALSE);
																			}
																		BgL_arg1371z00_1349 =
																			STRUCT_REF(BgL_sz00_3075, (int) (2L));
																	}
																	{	/* Eval/evmodule.scm 193 */
																		obj_t BgL_list1372z00_1350;

																		{	/* Eval/evmodule.scm 193 */
																			obj_t BgL_arg1373z00_1351;

																			{	/* Eval/evmodule.scm 193 */
																				obj_t BgL_arg1374z00_1352;

																				{	/* Eval/evmodule.scm 193 */
																					obj_t BgL_arg1376z00_1353;

																					{	/* Eval/evmodule.scm 193 */
																						obj_t BgL_arg1377z00_1354;

																						{	/* Eval/evmodule.scm 193 */
																							obj_t BgL_arg1378z00_1355;

																							{	/* Eval/evmodule.scm 193 */
																								obj_t BgL_arg1379z00_1356;

																								BgL_arg1379z00_1356 =
																									MAKE_YOUNG_PAIR
																									(BGl_string3051z00zz__evmodulez00,
																									BNIL);
																								BgL_arg1378z00_1355 =
																									MAKE_YOUNG_PAIR
																									(BgL_pathz00_42,
																									BgL_arg1379z00_1356);
																							}
																							BgL_arg1377z00_1354 =
																								MAKE_YOUNG_PAIR
																								(BGl_string3052z00zz__evmodulez00,
																								BgL_arg1378z00_1355);
																						}
																						BgL_arg1376z00_1353 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1371z00_1349,
																							BgL_arg1377z00_1354);
																					}
																					BgL_arg1374z00_1352 =
																						MAKE_YOUNG_PAIR
																						(BGl_string3053z00zz__evmodulez00,
																						BgL_arg1376z00_1353);
																				}
																				BgL_arg1373z00_1351 =
																					MAKE_YOUNG_PAIR(BgL_arg1370z00_1348,
																					BgL_arg1374z00_1352);
																			}
																			BgL_list1372z00_1350 =
																				MAKE_YOUNG_PAIR
																				(BGl_string3054z00zz__evmodulez00,
																				BgL_arg1373z00_1351);
																		}
																		BgL_msgz00_1346 =
																			BGl_stringzd2appendzd2zz__r4_strings_6_7z00
																			(BgL_list1372z00_1350);
																}}
																{	/* Eval/evmodule.scm 199 */
																	obj_t BgL_list1369z00_1347;

																	BgL_list1369z00_1347 =
																		MAKE_YOUNG_PAIR(BgL_msgz00_1346, BNIL);
																	BGl_warningzf2loczf2zz__errorz00
																		(BgL_locz00_43, BgL_list1369z00_1347);
												}}}}
											else
												{	/* Eval/evmodule.scm 200 */
													obj_t BgL_auxz00_5837;

													{	/* Eval/evmodule.scm 200 */
														obj_t BgL_aux2475z00_4406;

														BgL_aux2475z00_4406 =
															BGl_za2moduleszd2tableza2zd2zz__evmodulez00;
														if (STRUCTP(BgL_aux2475z00_4406))
															{	/* Eval/evmodule.scm 200 */
																BgL_auxz00_5837 = BgL_aux2475z00_4406;
															}
														else
															{
																obj_t BgL_auxz00_5840;

																BgL_auxz00_5840 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string3036z00zz__evmodulez00,
																	BINT(7621L), BGl_string3049z00zz__evmodulez00,
																	BGl_string3042z00zz__evmodulez00,
																	BgL_aux2475z00_4406);
																FAILURE(BgL_auxz00_5840, BFALSE, BFALSE);
															}
													}
													BGl_hashtablezd2putz12zc0zz__hashz00(BgL_auxz00_5837,
														BgL_idz00_41, BgL_modz00_1337);
												}
										}
									else
										{	/* Eval/evmodule.scm 183 */
											{	/* Eval/evmodule.scm 185 */
												obj_t BgL_list1381z00_1358;

												BgL_list1381z00_1358 =
													MAKE_YOUNG_PAIR(BINT(256L), BNIL);
												BGl_za2moduleszd2tableza2zd2zz__evmodulez00 =
													BGl_makezd2hashtablezd2zz__hashz00
													(BgL_list1381z00_1358);
											}
											{	/* Eval/evmodule.scm 186 */
												obj_t BgL_auxz00_5848;

												{	/* Eval/evmodule.scm 186 */
													obj_t BgL_aux2477z00_4408;

													BgL_aux2477z00_4408 =
														BGl_za2moduleszd2tableza2zd2zz__evmodulez00;
													if (STRUCTP(BgL_aux2477z00_4408))
														{	/* Eval/evmodule.scm 186 */
															BgL_auxz00_5848 = BgL_aux2477z00_4408;
														}
													else
														{
															obj_t BgL_auxz00_5851;

															BgL_auxz00_5851 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string3036z00zz__evmodulez00, BINT(7162L),
																BGl_string3049z00zz__evmodulez00,
																BGl_string3042z00zz__evmodulez00,
																BgL_aux2477z00_4408);
															FAILURE(BgL_auxz00_5851, BFALSE, BFALSE);
														}
												}
												BGl_hashtablezd2putz12zc0zz__hashz00(BgL_auxz00_5848,
													BgL_idz00_41, BgL_modz00_1337);
											}
										}
									BgL_tmp3470z00_5724 = BgL_modz00_1337;
								}
							}
						}
					}
					BGL_EXITD_POP_PROTECT(BgL_top3471z00_5725);
					BUNSPEC;
					BGL_MUTEX_UNLOCK(BGl_za2moduleszd2mutexza2zd2zz__evmodulez00);
					return BgL_tmp3470z00_5724;
				}
			}
		}

	}



/* &<@anonymous:1366> */
	obj_t BGl_z62zc3z04anonymousza31366ze3ze5zz__evmodulez00(obj_t
		BgL_envz00_4210, obj_t BgL_vz00_4212)
	{
		{	/* Eval/evmodule.scm 191 */
			return ((obj_t) PROCEDURE_REF(BgL_envz00_4210, (int) (0L)));
		}

	}



/* eval-module */
	BGL_EXPORTED_DEF obj_t BGl_evalzd2modulezd2zz__evmodulez00(void)
	{
		{	/* Eval/evmodule.scm 206 */
			return BGL_MODULE();
		}

	}



/* &eval-module */
	obj_t BGl_z62evalzd2modulezb0zz__evmodulez00(obj_t BgL_envz00_4216)
	{
		{	/* Eval/evmodule.scm 206 */
			return BGl_evalzd2modulezd2zz__evmodulez00();
		}

	}



/* eval-module-set! */
	BGL_EXPORTED_DEF obj_t BGl_evalzd2modulezd2setz12z12zz__evmodulez00(obj_t
		BgL_modz00_44)
	{
		{	/* Eval/evmodule.scm 212 */
			{	/* Eval/evmodule.scm 213 */
				bool_t BgL_test3484z00_5863;

				{	/* Eval/evmodule.scm 213 */
					bool_t BgL_test3485z00_5864;

					{	/* Eval/evmodule.scm 135 */
						bool_t BgL_test3486z00_5865;

						if (STRUCTP(BgL_modz00_44))
							{	/* Eval/evmodule.scm 129 */
								obj_t BgL_tmpz00_5868;

								{	/* Eval/evmodule.scm 129 */
									obj_t BgL_res2384z00_3081;

									{	/* Eval/evmodule.scm 129 */
										obj_t BgL_aux2479z00_4410;

										BgL_aux2479z00_4410 = STRUCT_KEY(BgL_modz00_44);
										if (SYMBOLP(BgL_aux2479z00_4410))
											{	/* Eval/evmodule.scm 129 */
												BgL_res2384z00_3081 = BgL_aux2479z00_4410;
											}
										else
											{
												obj_t BgL_auxz00_5872;

												BgL_auxz00_5872 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3036z00zz__evmodulez00, BINT(4439L),
													BGl_string3055z00zz__evmodulez00,
													BGl_string3040z00zz__evmodulez00,
													BgL_aux2479z00_4410);
												FAILURE(BgL_auxz00_5872, BFALSE, BFALSE);
											}
									}
									BgL_tmpz00_5868 = BgL_res2384z00_3081;
								}
								BgL_test3486z00_5865 =
									(BgL_tmpz00_5868 == BGl_symbol3034z00zz__evmodulez00);
							}
						else
							{	/* Eval/evmodule.scm 129 */
								BgL_test3486z00_5865 = ((bool_t) 0);
							}
						if (BgL_test3486z00_5865)
							{	/* Eval/evmodule.scm 135 */
								BgL_test3485z00_5864 =
									(STRUCT_REF(BgL_modz00_44,
										(int) (0L)) ==
									BGl_makezd2z52evmodulezd2envz52zz__evmodulez00);
							}
						else
							{	/* Eval/evmodule.scm 135 */
								BgL_test3485z00_5864 = ((bool_t) 0);
							}
					}
					if (BgL_test3485z00_5864)
						{	/* Eval/evmodule.scm 213 */
							BgL_test3484z00_5863 = ((bool_t) 1);
						}
					else
						{	/* Eval/evmodule.scm 213 */
							if (
								(BgL_modz00_44 ==
									BGl_interactionzd2environmentzd2zz__evalz00()))
								{	/* Eval/evmodule.scm 214 */
									BgL_test3484z00_5863 = ((bool_t) 1);
								}
							else
								{	/* Eval/evmodule.scm 214 */
									BgL_test3484z00_5863 = (BgL_modz00_44 == BUNSPEC);
								}
						}
				}
				if (BgL_test3484z00_5863)
					{	/* Eval/evmodule.scm 213 */
						return BGL_MODULE_SET(BgL_modz00_44);
					}
				else
					{	/* Eval/evmodule.scm 213 */
						return
							BGl_errorz00zz__errorz00(BGl_string3055z00zz__evmodulez00,
							BGl_string3056z00zz__evmodulez00, BgL_modz00_44);
					}
			}
		}

	}



/* &eval-module-set! */
	obj_t BGl_z62evalzd2modulezd2setz12z70zz__evmodulez00(obj_t BgL_envz00_4217,
		obj_t BgL_modz00_4218)
	{
		{	/* Eval/evmodule.scm 212 */
			return BGl_evalzd2modulezd2setz12z12zz__evmodulez00(BgL_modz00_4218);
		}

	}



/* eval-find-module */
	BGL_EXPORTED_DEF obj_t BGl_evalzd2findzd2modulez00zz__evmodulez00(obj_t
		BgL_idz00_45)
	{
		{	/* Eval/evmodule.scm 222 */
			if (BGl_hashtablezf3zf3zz__hashz00
				(BGl_za2moduleszd2tableza2zd2zz__evmodulez00))
				{	/* Eval/evmodule.scm 224 */
					obj_t BgL_auxz00_5889;

					{	/* Eval/evmodule.scm 224 */
						obj_t BgL_aux2481z00_4412;

						BgL_aux2481z00_4412 = BGl_za2moduleszd2tableza2zd2zz__evmodulez00;
						if (STRUCTP(BgL_aux2481z00_4412))
							{	/* Eval/evmodule.scm 224 */
								BgL_auxz00_5889 = BgL_aux2481z00_4412;
							}
						else
							{
								obj_t BgL_auxz00_5892;

								BgL_auxz00_5892 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3036z00zz__evmodulez00, BINT(8670L),
									BGl_string3057z00zz__evmodulez00,
									BGl_string3042z00zz__evmodulez00, BgL_aux2481z00_4412);
								FAILURE(BgL_auxz00_5892, BFALSE, BFALSE);
							}
					}
					return
						BGl_hashtablezd2getzd2zz__hashz00(BgL_auxz00_5889, BgL_idz00_45);
				}
			else
				{	/* Eval/evmodule.scm 223 */
					return BFALSE;
				}
		}

	}



/* &eval-find-module */
	obj_t BGl_z62evalzd2findzd2modulez62zz__evmodulez00(obj_t BgL_envz00_4219,
		obj_t BgL_idz00_4220)
	{
		{	/* Eval/evmodule.scm 222 */
			{	/* Eval/evmodule.scm 223 */
				obj_t BgL_auxz00_5897;

				if (SYMBOLP(BgL_idz00_4220))
					{	/* Eval/evmodule.scm 223 */
						BgL_auxz00_5897 = BgL_idz00_4220;
					}
				else
					{
						obj_t BgL_auxz00_5900;

						BgL_auxz00_5900 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string3036z00zz__evmodulez00,
							BINT(8614L), BGl_string3058z00zz__evmodulez00,
							BGl_string3040z00zz__evmodulez00, BgL_idz00_4220);
						FAILURE(BgL_auxz00_5900, BFALSE, BFALSE);
					}
				return BGl_evalzd2findzd2modulez00zz__evmodulez00(BgL_auxz00_5897);
			}
		}

	}



/* evalias-module */
	obj_t BGl_evaliaszd2modulezd2zz__evmodulez00(obj_t BgL_vz00_47)
	{
		{	/* Eval/evmodule.scm 235 */
			{	/* Eval/evmodule.scm 237 */
				bool_t BgL_test3493z00_5905;

				{	/* Eval/evmodule.scm 237 */
					obj_t BgL_arg1402z00_1381;

					{	/* Eval/evmodule.scm 237 */
						obj_t BgL_vectorz00_3094;

						if (VECTORP(BgL_vz00_47))
							{	/* Eval/evmodule.scm 237 */
								BgL_vectorz00_3094 = BgL_vz00_47;
							}
						else
							{
								obj_t BgL_auxz00_5908;

								BgL_auxz00_5908 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3036z00zz__evmodulez00, BINT(9268L),
									BGl_string3059z00zz__evmodulez00,
									BGl_string3060z00zz__evmodulez00, BgL_vz00_47);
								FAILURE(BgL_auxz00_5908, BFALSE, BFALSE);
							}
						BgL_arg1402z00_1381 = VECTOR_REF(BgL_vectorz00_3094, 3L);
					}
					{	/* Eval/evmodule.scm 135 */
						bool_t BgL_test3495z00_5913;

						if (STRUCTP(BgL_arg1402z00_1381))
							{	/* Eval/evmodule.scm 129 */
								obj_t BgL_tmpz00_5916;

								{	/* Eval/evmodule.scm 129 */
									obj_t BgL_res2386z00_3100;

									{	/* Eval/evmodule.scm 129 */
										obj_t BgL_aux2487z00_4418;

										BgL_aux2487z00_4418 = STRUCT_KEY(BgL_arg1402z00_1381);
										if (SYMBOLP(BgL_aux2487z00_4418))
											{	/* Eval/evmodule.scm 129 */
												BgL_res2386z00_3100 = BgL_aux2487z00_4418;
											}
										else
											{
												obj_t BgL_auxz00_5920;

												BgL_auxz00_5920 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3036z00zz__evmodulez00, BINT(4439L),
													BGl_string3059z00zz__evmodulez00,
													BGl_string3040z00zz__evmodulez00,
													BgL_aux2487z00_4418);
												FAILURE(BgL_auxz00_5920, BFALSE, BFALSE);
											}
									}
									BgL_tmpz00_5916 = BgL_res2386z00_3100;
								}
								BgL_test3495z00_5913 =
									(BgL_tmpz00_5916 == BGl_symbol3034z00zz__evmodulez00);
							}
						else
							{	/* Eval/evmodule.scm 129 */
								BgL_test3495z00_5913 = ((bool_t) 0);
							}
						if (BgL_test3495z00_5913)
							{	/* Eval/evmodule.scm 135 */
								BgL_test3493z00_5905 =
									(STRUCT_REF(BgL_arg1402z00_1381,
										(int) (0L)) ==
									BGl_makezd2z52evmodulezd2envz52zz__evmodulez00);
							}
						else
							{	/* Eval/evmodule.scm 135 */
								BgL_test3493z00_5905 = ((bool_t) 0);
							}
					}
				}
				if (BgL_test3493z00_5905)
					{	/* Eval/evmodule.scm 238 */
						obj_t BgL_vectorz00_3102;

						if (VECTORP(BgL_vz00_47))
							{	/* Eval/evmodule.scm 238 */
								BgL_vectorz00_3102 = BgL_vz00_47;
							}
						else
							{
								obj_t BgL_auxz00_5930;

								BgL_auxz00_5930 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3036z00zz__evmodulez00, BINT(9299L),
									BGl_string3059z00zz__evmodulez00,
									BGl_string3060z00zz__evmodulez00, BgL_vz00_47);
								FAILURE(BgL_auxz00_5930, BFALSE, BFALSE);
							}
						return VECTOR_REF(BgL_vectorz00_3102, 3L);
					}
				else
					{	/* Eval/evmodule.scm 239 */
						bool_t BgL_test3499z00_5935;

						{	/* Eval/evmodule.scm 239 */
							obj_t BgL_arg1401z00_1380;

							{	/* Eval/evmodule.scm 239 */
								obj_t BgL_vectorz00_3103;

								if (VECTORP(BgL_vz00_47))
									{	/* Eval/evmodule.scm 239 */
										BgL_vectorz00_3103 = BgL_vz00_47;
									}
								else
									{
										obj_t BgL_auxz00_5938;

										BgL_auxz00_5938 =
											BGl_typezd2errorzd2zz__errorz00
											(BGl_string3036z00zz__evmodulez00, BINT(9339L),
											BGl_string3059z00zz__evmodulez00,
											BGl_string3060z00zz__evmodulez00, BgL_vz00_47);
										FAILURE(BgL_auxz00_5938, BFALSE, BFALSE);
									}
								BgL_arg1401z00_1380 = VECTOR_REF(BgL_vectorz00_3103, 3L);
							}
							BgL_test3499z00_5935 = SYMBOLP(BgL_arg1401z00_1380);
						}
						if (BgL_test3499z00_5935)
							{	/* Eval/evmodule.scm 240 */
								obj_t BgL_mz00_1378;

								{	/* Eval/evmodule.scm 240 */
									obj_t BgL_arg1400z00_1379;

									{	/* Eval/evmodule.scm 240 */
										obj_t BgL_vectorz00_3104;

										if (VECTORP(BgL_vz00_47))
											{	/* Eval/evmodule.scm 240 */
												BgL_vectorz00_3104 = BgL_vz00_47;
											}
										else
											{
												obj_t BgL_auxz00_5946;

												BgL_auxz00_5946 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3036z00zz__evmodulez00, BINT(9397L),
													BGl_string3059z00zz__evmodulez00,
													BGl_string3060z00zz__evmodulez00, BgL_vz00_47);
												FAILURE(BgL_auxz00_5946, BFALSE, BFALSE);
											}
										BgL_arg1400z00_1379 = VECTOR_REF(BgL_vectorz00_3104, 3L);
									}
									{	/* Eval/evmodule.scm 240 */
										obj_t BgL_idz00_3105;

										if (SYMBOLP(BgL_arg1400z00_1379))
											{	/* Eval/evmodule.scm 240 */
												BgL_idz00_3105 = BgL_arg1400z00_1379;
											}
										else
											{
												obj_t BgL_auxz00_5953;

												BgL_auxz00_5953 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3036z00zz__evmodulez00, BINT(9418L),
													BGl_string3059z00zz__evmodulez00,
													BGl_string3040z00zz__evmodulez00,
													BgL_arg1400z00_1379);
												FAILURE(BgL_auxz00_5953, BFALSE, BFALSE);
											}
										if (BGl_hashtablezf3zf3zz__hashz00
											(BGl_za2moduleszd2tableza2zd2zz__evmodulez00))
											{	/* Eval/evmodule.scm 224 */
												obj_t BgL_auxz00_5959;

												{	/* Eval/evmodule.scm 224 */
													obj_t BgL_aux2497z00_4428;

													BgL_aux2497z00_4428 =
														BGl_za2moduleszd2tableza2zd2zz__evmodulez00;
													if (STRUCTP(BgL_aux2497z00_4428))
														{	/* Eval/evmodule.scm 224 */
															BgL_auxz00_5959 = BgL_aux2497z00_4428;
														}
													else
														{
															obj_t BgL_auxz00_5962;

															BgL_auxz00_5962 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string3036z00zz__evmodulez00, BINT(8670L),
																BGl_string3059z00zz__evmodulez00,
																BGl_string3042z00zz__evmodulez00,
																BgL_aux2497z00_4428);
															FAILURE(BgL_auxz00_5962, BFALSE, BFALSE);
														}
												}
												BgL_mz00_1378 =
													BGl_hashtablezd2getzd2zz__hashz00(BgL_auxz00_5959,
													BgL_idz00_3105);
											}
										else
											{	/* Eval/evmodule.scm 223 */
												BgL_mz00_1378 = BFALSE;
											}
									}
								}
								{	/* Eval/evmodule.scm 241 */
									obj_t BgL_evalzd2globalzd2_3107;

									if (VECTORP(BgL_vz00_47))
										{	/* Eval/evmodule.scm 241 */
											BgL_evalzd2globalzd2_3107 = BgL_vz00_47;
										}
									else
										{
											obj_t BgL_auxz00_5969;

											BgL_auxz00_5969 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3036z00zz__evmodulez00, BINT(9451L),
												BGl_string3059z00zz__evmodulez00,
												BGl_string3060z00zz__evmodulez00, BgL_vz00_47);
											FAILURE(BgL_auxz00_5969, BFALSE, BFALSE);
										}
									VECTOR_SET(BgL_evalzd2globalzd2_3107, 3L, BgL_mz00_1378);
								}
								return BgL_mz00_1378;
							}
						else
							{	/* Eval/evmodule.scm 239 */
								return BFALSE;
							}
					}
			}
		}

	}



/* evmodule-find-global */
	BGL_EXPORTED_DEF obj_t BGl_evmodulezd2findzd2globalz00zz__evmodulez00(obj_t
		BgL_modz00_48, obj_t BgL_idz00_49)
	{
		{	/* Eval/evmodule.scm 249 */
		BGl_evmodulezd2findzd2globalz00zz__evmodulez00:
			{	/* Eval/evmodule.scm 250 */
				bool_t BgL_test3506z00_5974;

				{	/* Eval/evmodule.scm 135 */
					bool_t BgL_test3507z00_5975;

					if (STRUCTP(BgL_modz00_48))
						{	/* Eval/evmodule.scm 129 */
							obj_t BgL_tmpz00_5978;

							{	/* Eval/evmodule.scm 129 */
								obj_t BgL_res2387z00_3114;

								{	/* Eval/evmodule.scm 129 */
									obj_t BgL_aux2501z00_4432;

									BgL_aux2501z00_4432 = STRUCT_KEY(BgL_modz00_48);
									if (SYMBOLP(BgL_aux2501z00_4432))
										{	/* Eval/evmodule.scm 129 */
											BgL_res2387z00_3114 = BgL_aux2501z00_4432;
										}
									else
										{
											obj_t BgL_auxz00_5982;

											BgL_auxz00_5982 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3036z00zz__evmodulez00, BINT(4439L),
												BGl_string3061z00zz__evmodulez00,
												BGl_string3040z00zz__evmodulez00, BgL_aux2501z00_4432);
											FAILURE(BgL_auxz00_5982, BFALSE, BFALSE);
										}
								}
								BgL_tmpz00_5978 = BgL_res2387z00_3114;
							}
							BgL_test3507z00_5975 =
								(BgL_tmpz00_5978 == BGl_symbol3034z00zz__evmodulez00);
						}
					else
						{	/* Eval/evmodule.scm 129 */
							BgL_test3507z00_5975 = ((bool_t) 0);
						}
					if (BgL_test3507z00_5975)
						{	/* Eval/evmodule.scm 135 */
							BgL_test3506z00_5974 =
								(STRUCT_REF(BgL_modz00_48,
									(int) (0L)) ==
								BGl_makezd2z52evmodulezd2envz52zz__evmodulez00);
						}
					else
						{	/* Eval/evmodule.scm 135 */
							BgL_test3506z00_5974 = ((bool_t) 0);
						}
				}
				if (BgL_test3506z00_5974)
					{	/* Eval/evmodule.scm 251 */
						obj_t BgL_vz00_1383;

						{	/* Eval/evmodule.scm 251 */
							obj_t BgL_auxz00_5990;

							{	/* Eval/evmodule.scm 129 */
								obj_t BgL_sz00_3116;

								{	/* Eval/evmodule.scm 129 */
									obj_t BgL_aux2503z00_4434;

									BgL_aux2503z00_4434 = BgL_modz00_48;
									if (STRUCTP(BgL_aux2503z00_4434))
										{	/* Eval/evmodule.scm 129 */
											BgL_sz00_3116 = BgL_aux2503z00_4434;
										}
									else
										{
											obj_t BgL_auxz00_5993;

											BgL_auxz00_5993 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3036z00zz__evmodulez00, BINT(4439L),
												BGl_string3061z00zz__evmodulez00,
												BGl_string3042z00zz__evmodulez00, BgL_aux2503z00_4434);
											FAILURE(BgL_auxz00_5993, BFALSE, BFALSE);
										}
								}
								{	/* Eval/evmodule.scm 129 */
									obj_t BgL_aux2505z00_4436;

									BgL_aux2505z00_4436 = STRUCT_REF(BgL_sz00_3116, (int) (3L));
									if (STRUCTP(BgL_aux2505z00_4436))
										{	/* Eval/evmodule.scm 129 */
											BgL_auxz00_5990 = BgL_aux2505z00_4436;
										}
									else
										{
											obj_t BgL_auxz00_6001;

											BgL_auxz00_6001 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3036z00zz__evmodulez00, BINT(4439L),
												BGl_string3061z00zz__evmodulez00,
												BGl_string3042z00zz__evmodulez00, BgL_aux2505z00_4436);
											FAILURE(BgL_auxz00_6001, BFALSE, BFALSE);
										}
								}
							}
							BgL_vz00_1383 =
								BGl_hashtablezd2getzd2zz__hashz00(BgL_auxz00_5990,
								BgL_idz00_49);
						}
						{	/* Eval/evmodule.scm 252 */
							bool_t BgL_test3512z00_6006;

							{	/* Eval/evmodule.scm 230 */
								bool_t BgL_test3513z00_6007;

								if (VECTORP(BgL_vz00_1383))
									{	/* Eval/evmodule.scm 230 */
										BgL_test3513z00_6007 = (VECTOR_LENGTH(BgL_vz00_1383) == 5L);
									}
								else
									{	/* Eval/evmodule.scm 230 */
										BgL_test3513z00_6007 = ((bool_t) 0);
									}
								if (BgL_test3513z00_6007)
									{	/* Eval/evmodule.scm 230 */
										int BgL_arg1395z00_3118;

										{	/* Eval/evmodule.scm 230 */
											int BgL_res2388z00_3125;

											{	/* Eval/evmodule.scm 230 */
												obj_t BgL_tmpz00_6012;

												{	/* Eval/evmodule.scm 230 */
													obj_t BgL_aux2507z00_4438;

													BgL_aux2507z00_4438 = VECTOR_REF(BgL_vz00_1383, 0L);
													if (INTEGERP(BgL_aux2507z00_4438))
														{	/* Eval/evmodule.scm 230 */
															BgL_tmpz00_6012 = BgL_aux2507z00_4438;
														}
													else
														{
															obj_t BgL_auxz00_6016;

															BgL_auxz00_6016 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string3036z00zz__evmodulez00, BINT(8966L),
																BGl_string3061z00zz__evmodulez00,
																BGl_string3062z00zz__evmodulez00,
																BgL_aux2507z00_4438);
															FAILURE(BgL_auxz00_6016, BFALSE, BFALSE);
														}
												}
												BgL_res2388z00_3125 = CINT(BgL_tmpz00_6012);
											}
											BgL_arg1395z00_3118 = BgL_res2388z00_3125;
										}
										BgL_test3512z00_6006 = ((long) (BgL_arg1395z00_3118) == 6L);
									}
								else
									{	/* Eval/evmodule.scm 230 */
										BgL_test3512z00_6006 = ((bool_t) 0);
									}
							}
							if (BgL_test3512z00_6006)
								{	/* Eval/evmodule.scm 253 */
									obj_t BgL_arg1405z00_1385;
									obj_t BgL_arg1407z00_1386;

									BgL_arg1405z00_1385 =
										BGl_evaliaszd2modulezd2zz__evmodulez00(BgL_vz00_1383);
									{	/* Eval/evmodule.scm 253 */
										obj_t BgL_evalzd2globalzd2_3127;

										{	/* Eval/evmodule.scm 253 */
											obj_t BgL_aux2508z00_4439;

											BgL_aux2508z00_4439 = BgL_vz00_1383;
											if (VECTORP(BgL_aux2508z00_4439))
												{	/* Eval/evmodule.scm 253 */
													BgL_evalzd2globalzd2_3127 = BgL_aux2508z00_4439;
												}
											else
												{
													obj_t BgL_auxz00_6026;

													BgL_auxz00_6026 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3036z00zz__evmodulez00, BINT(9916L),
														BGl_string3061z00zz__evmodulez00,
														BGl_string3060z00zz__evmodulez00,
														BgL_aux2508z00_4439);
													FAILURE(BgL_auxz00_6026, BFALSE, BFALSE);
												}
										}
										BgL_arg1407z00_1386 =
											VECTOR_REF(BgL_evalzd2globalzd2_3127, 2L);
									}
									{
										obj_t BgL_idz00_6032;
										obj_t BgL_modz00_6031;

										BgL_modz00_6031 = BgL_arg1405z00_1385;
										if (SYMBOLP(BgL_arg1407z00_1386))
											{	/* Eval/evmodule.scm 253 */
												BgL_idz00_6032 = BgL_arg1407z00_1386;
											}
										else
											{
												obj_t BgL_auxz00_6035;

												BgL_auxz00_6035 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3036z00zz__evmodulez00, BINT(9917L),
													BGl_string3061z00zz__evmodulez00,
													BGl_string3040z00zz__evmodulez00,
													BgL_arg1407z00_1386);
												FAILURE(BgL_auxz00_6035, BFALSE, BFALSE);
											}
										BgL_idz00_49 = BgL_idz00_6032;
										BgL_modz00_48 = BgL_modz00_6031;
										goto BGl_evmodulezd2findzd2globalz00zz__evmodulez00;
									}
								}
							else
								{	/* Eval/evmodule.scm 252 */
									if (CBOOL(BgL_vz00_1383))
										{	/* Eval/evmodule.scm 254 */
											return BgL_vz00_1383;
										}
									else
										{	/* Eval/evmodule.scm 254 */
											return BGl_evalzd2lookupzd2zz__evenvz00(BgL_idz00_49);
										}
								}
						}
					}
				else
					{	/* Eval/evmodule.scm 250 */
						return BGl_evalzd2lookupzd2zz__evenvz00(BgL_idz00_49);
					}
			}
		}

	}



/* &evmodule-find-global */
	obj_t BGl_z62evmodulezd2findzd2globalz62zz__evmodulez00(obj_t BgL_envz00_4221,
		obj_t BgL_modz00_4222, obj_t BgL_idz00_4223)
	{
		{	/* Eval/evmodule.scm 249 */
			{	/* Eval/evmodule.scm 250 */
				obj_t BgL_auxz00_6043;

				if (SYMBOLP(BgL_idz00_4223))
					{	/* Eval/evmodule.scm 250 */
						BgL_auxz00_6043 = BgL_idz00_4223;
					}
				else
					{
						obj_t BgL_auxz00_6046;

						BgL_auxz00_6046 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string3036z00zz__evmodulez00,
							BINT(9752L), BGl_string3063z00zz__evmodulez00,
							BGl_string3040z00zz__evmodulez00, BgL_idz00_4223);
						FAILURE(BgL_auxz00_6046, BFALSE, BFALSE);
					}
				return
					BGl_evmodulezd2findzd2globalz00zz__evmodulez00(BgL_modz00_4222,
					BgL_auxz00_6043);
			}
		}

	}



/* evmodule-bind-global! */
	BGL_EXPORTED_DEF obj_t BGl_evmodulezd2bindzd2globalz12z12zz__evmodulez00(obj_t
		BgL_modz00_50, obj_t BgL_idz00_51, obj_t BgL_varz00_52, obj_t BgL_locz00_53)
	{
		{	/* Eval/evmodule.scm 260 */
			if (CBOOL(BGl_getzd2evalzd2expanderz00zz__macroz00(BgL_idz00_51)))
				{	/* Eval/evmodule.scm 262 */
					obj_t BgL_msgz00_3130;

					{	/* Eval/evmodule.scm 262 */
						obj_t BgL_arg1411z00_3131;

						{	/* Eval/evmodule.scm 262 */
							obj_t BgL_arg2189z00_3136;

							BgL_arg2189z00_3136 = SYMBOL_TO_STRING(BgL_idz00_51);
							BgL_arg1411z00_3131 =
								BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_arg2189z00_3136);
						}
						BgL_msgz00_3130 =
							string_append_3(BGl_string3064z00zz__evmodulez00,
							BgL_arg1411z00_3131, BGl_string3065z00zz__evmodulez00);
					}
					{	/* Eval/evmodule.scm 264 */
						obj_t BgL_list1410z00_3132;

						BgL_list1410z00_3132 = MAKE_YOUNG_PAIR(BgL_msgz00_3130, BNIL);
						BGl_evwarningz00zz__everrorz00(BgL_locz00_53, BgL_list1410z00_3132);
					}
				}
			else
				{	/* Eval/evmodule.scm 261 */
					BFALSE;
				}
			{	/* Eval/evmodule.scm 265 */
				bool_t BgL_test3521z00_6059;

				{	/* Eval/evmodule.scm 135 */
					bool_t BgL_test3522z00_6060;

					if (STRUCTP(BgL_modz00_50))
						{	/* Eval/evmodule.scm 129 */
							obj_t BgL_tmpz00_6063;

							{	/* Eval/evmodule.scm 129 */
								obj_t BgL_res2389z00_3142;

								{	/* Eval/evmodule.scm 129 */
									obj_t BgL_aux2514z00_4445;

									BgL_aux2514z00_4445 = STRUCT_KEY(BgL_modz00_50);
									if (SYMBOLP(BgL_aux2514z00_4445))
										{	/* Eval/evmodule.scm 129 */
											BgL_res2389z00_3142 = BgL_aux2514z00_4445;
										}
									else
										{
											obj_t BgL_auxz00_6067;

											BgL_auxz00_6067 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3036z00zz__evmodulez00, BINT(4439L),
												BGl_string3066z00zz__evmodulez00,
												BGl_string3040z00zz__evmodulez00, BgL_aux2514z00_4445);
											FAILURE(BgL_auxz00_6067, BFALSE, BFALSE);
										}
								}
								BgL_tmpz00_6063 = BgL_res2389z00_3142;
							}
							BgL_test3522z00_6060 =
								(BgL_tmpz00_6063 == BGl_symbol3034z00zz__evmodulez00);
						}
					else
						{	/* Eval/evmodule.scm 129 */
							BgL_test3522z00_6060 = ((bool_t) 0);
						}
					if (BgL_test3522z00_6060)
						{	/* Eval/evmodule.scm 135 */
							BgL_test3521z00_6059 =
								(STRUCT_REF(BgL_modz00_50,
									(int) (0L)) ==
								BGl_makezd2z52evmodulezd2envz52zz__evmodulez00);
						}
					else
						{	/* Eval/evmodule.scm 135 */
							BgL_test3521z00_6059 = ((bool_t) 0);
						}
				}
				if (BgL_test3521z00_6059)
					{	/* Eval/evmodule.scm 266 */
						obj_t BgL_arg1413z00_3134;

						{	/* Eval/evmodule.scm 129 */
							obj_t BgL_sz00_3144;

							{	/* Eval/evmodule.scm 129 */
								obj_t BgL_aux2516z00_4447;

								BgL_aux2516z00_4447 = BgL_modz00_50;
								if (STRUCTP(BgL_aux2516z00_4447))
									{	/* Eval/evmodule.scm 129 */
										BgL_sz00_3144 = BgL_aux2516z00_4447;
									}
								else
									{
										obj_t BgL_auxz00_6077;

										BgL_auxz00_6077 =
											BGl_typezd2errorzd2zz__errorz00
											(BGl_string3036z00zz__evmodulez00, BINT(4439L),
											BGl_string3066z00zz__evmodulez00,
											BGl_string3042z00zz__evmodulez00, BgL_aux2516z00_4447);
										FAILURE(BgL_auxz00_6077, BFALSE, BFALSE);
									}
							}
							BgL_arg1413z00_3134 = STRUCT_REF(BgL_sz00_3144, (int) (3L));
						}
						{	/* Eval/evmodule.scm 266 */
							obj_t BgL_auxz00_6083;

							if (STRUCTP(BgL_arg1413z00_3134))
								{	/* Eval/evmodule.scm 266 */
									BgL_auxz00_6083 = BgL_arg1413z00_3134;
								}
							else
								{
									obj_t BgL_auxz00_6086;

									BgL_auxz00_6086 =
										BGl_typezd2errorzd2zz__errorz00
										(BGl_string3036z00zz__evmodulez00, BINT(10468L),
										BGl_string3066z00zz__evmodulez00,
										BGl_string3042z00zz__evmodulez00, BgL_arg1413z00_3134);
									FAILURE(BgL_auxz00_6086, BFALSE, BFALSE);
								}
							return
								BGl_hashtablezd2putz12zc0zz__hashz00(BgL_auxz00_6083,
								BgL_idz00_51, BgL_varz00_52);
						}
					}
				else
					{	/* Eval/evmodule.scm 267 */
						obj_t BgL_auxz00_6091;

						if (VECTORP(BgL_varz00_52))
							{	/* Eval/evmodule.scm 267 */
								BgL_auxz00_6091 = BgL_varz00_52;
							}
						else
							{
								obj_t BgL_auxz00_6094;

								BgL_auxz00_6094 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3036z00zz__evmodulez00, BINT(10507L),
									BGl_string3066z00zz__evmodulez00,
									BGl_string3060z00zz__evmodulez00, BgL_varz00_52);
								FAILURE(BgL_auxz00_6094, BFALSE, BFALSE);
							}
						return
							BGl_bindzd2evalzd2globalz12z12zz__evenvz00(BgL_idz00_51,
							BgL_auxz00_6091);
					}
			}
		}

	}



/* &evmodule-bind-global! */
	obj_t BGl_z62evmodulezd2bindzd2globalz12z70zz__evmodulez00(obj_t
		BgL_envz00_4224, obj_t BgL_modz00_4225, obj_t BgL_idz00_4226,
		obj_t BgL_varz00_4227, obj_t BgL_locz00_4228)
	{
		{	/* Eval/evmodule.scm 260 */
			{	/* Eval/evmodule.scm 264 */
				obj_t BgL_auxz00_6099;

				if (SYMBOLP(BgL_idz00_4226))
					{	/* Eval/evmodule.scm 264 */
						BgL_auxz00_6099 = BgL_idz00_4226;
					}
				else
					{
						obj_t BgL_auxz00_6102;

						BgL_auxz00_6102 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string3036z00zz__evmodulez00,
							BINT(10402L), BGl_string3067z00zz__evmodulez00,
							BGl_string3040z00zz__evmodulez00, BgL_idz00_4226);
						FAILURE(BgL_auxz00_6102, BFALSE, BFALSE);
					}
				return
					BGl_evmodulezd2bindzd2globalz12z12zz__evmodulez00(BgL_modz00_4225,
					BgL_auxz00_6099, BgL_varz00_4227, BgL_locz00_4228);
			}
		}

	}



/* for-each/loc */
	bool_t BGl_forzd2eachzf2locz20zz__evmodulez00(obj_t BgL_locz00_54,
		obj_t BgL_procz00_55, obj_t BgL_lz00_56)
	{
		{	/* Eval/evmodule.scm 272 */
			{	/* Eval/evmodule.scm 273 */
				obj_t BgL_g1043z00_1395;

				{	/* Eval/evmodule.scm 274 */
					obj_t BgL__ortest_1042z00_1407;

					BgL__ortest_1042z00_1407 =
						BGl_getzd2sourcezd2locationz00zz__readerz00(BgL_lz00_56);
					if (CBOOL(BgL__ortest_1042z00_1407))
						{	/* Eval/evmodule.scm 274 */
							BgL_g1043z00_1395 = BgL__ortest_1042z00_1407;
						}
					else
						{	/* Eval/evmodule.scm 274 */
							BgL_g1043z00_1395 = BgL_locz00_54;
						}
				}
				{
					obj_t BgL_lz00_1397;
					obj_t BgL_locz00_1398;

					BgL_lz00_1397 = BgL_lz00_56;
					BgL_locz00_1398 = BgL_g1043z00_1395;
				BgL_zc3z04anonymousza31414ze3z87_1399:
					if (PAIRP(BgL_lz00_1397))
						{	/* Eval/evmodule.scm 275 */
							{	/* Eval/evmodule.scm 276 */
								obj_t BgL_arg1416z00_1401;

								BgL_arg1416z00_1401 = CAR(BgL_lz00_1397);
								((obj_t(*)(obj_t, obj_t,
											obj_t))
									PROCEDURE_L_ENTRY(BgL_procz00_55)) (BgL_procz00_55,
									BgL_locz00_1398, BgL_arg1416z00_1401);
							}
							{	/* Eval/evmodule.scm 277 */
								obj_t BgL_arg1417z00_1402;
								obj_t BgL_arg1419z00_1403;

								BgL_arg1417z00_1402 = CDR(BgL_lz00_1397);
								{	/* Eval/evmodule.scm 277 */
									obj_t BgL__ortest_1044z00_1404;

									BgL__ortest_1044z00_1404 =
										BGl_getzd2sourcezd2locationz00zz__readerz00(CDR
										(BgL_lz00_1397));
									if (CBOOL(BgL__ortest_1044z00_1404))
										{	/* Eval/evmodule.scm 277 */
											BgL_arg1419z00_1403 = BgL__ortest_1044z00_1404;
										}
									else
										{	/* Eval/evmodule.scm 277 */
											BgL_arg1419z00_1403 = BgL_locz00_1398;
										}
								}
								{
									obj_t BgL_locz00_6124;
									obj_t BgL_lz00_6123;

									BgL_lz00_6123 = BgL_arg1417z00_1402;
									BgL_locz00_6124 = BgL_arg1419z00_1403;
									BgL_locz00_1398 = BgL_locz00_6124;
									BgL_lz00_1397 = BgL_lz00_6123;
									goto BgL_zc3z04anonymousza31414ze3z87_1399;
								}
							}
						}
					else
						{	/* Eval/evmodule.scm 275 */
							return ((bool_t) 0);
						}
				}
			}
		}

	}



/* evmodule-library */
	obj_t BGl_evmodulezd2libraryzd2zz__evmodulez00(obj_t BgL_clausez00_57,
		obj_t BgL_locz00_58)
	{
		{	/* Eval/evmodule.scm 282 */
			{	/* Eval/evmodule.scm 283 */
				bool_t BgL_test3532z00_6125;

				if (BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_clausez00_57))
					{
						obj_t BgL_l1148z00_1435;

						{	/* Eval/evmodule.scm 283 */
							obj_t BgL_tmpz00_6128;

							BgL_l1148z00_1435 = BgL_clausez00_57;
						BgL_zc3z04anonymousza31435ze3z87_1436:
							if (NULLP(BgL_l1148z00_1435))
								{	/* Eval/evmodule.scm 283 */
									BgL_tmpz00_6128 = BTRUE;
								}
							else
								{	/* Eval/evmodule.scm 283 */
									if (PAIRP(BgL_l1148z00_1435))
										{	/* Eval/evmodule.scm 283 */
											bool_t BgL_test3536z00_6133;

											{	/* Eval/evmodule.scm 283 */
												obj_t BgL_tmpz00_6134;

												BgL_tmpz00_6134 = CAR(BgL_l1148z00_1435);
												BgL_test3536z00_6133 = SYMBOLP(BgL_tmpz00_6134);
											}
											if (BgL_test3536z00_6133)
												{
													obj_t BgL_l1148z00_6137;

													BgL_l1148z00_6137 = CDR(BgL_l1148z00_1435);
													BgL_l1148z00_1435 = BgL_l1148z00_6137;
													goto BgL_zc3z04anonymousza31435ze3z87_1436;
												}
											else
												{	/* Eval/evmodule.scm 283 */
													BgL_tmpz00_6128 = BFALSE;
												}
										}
									else
										{	/* Eval/evmodule.scm 283 */
											BgL_tmpz00_6128 =
												BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00
												(BGl_string3068z00zz__evmodulez00,
												BGl_string3069z00zz__evmodulez00, BgL_l1148z00_1435,
												BGl_string3036z00zz__evmodulez00, BINT(11236L));
										}
								}
							BgL_test3532z00_6125 = CBOOL(BgL_tmpz00_6128);
						}
					}
				else
					{	/* Eval/evmodule.scm 283 */
						BgL_test3532z00_6125 = ((bool_t) 0);
					}
				if (BgL_test3532z00_6125)
					{	/* Eval/evmodule.scm 286 */
						obj_t BgL_arg1429z00_1421;

						{	/* Eval/evmodule.scm 288 */
							obj_t BgL_pairz00_3150;

							if (PAIRP(BgL_clausez00_57))
								{	/* Eval/evmodule.scm 288 */
									BgL_pairz00_3150 = BgL_clausez00_57;
								}
							else
								{
									obj_t BgL_auxz00_6144;

									BgL_auxz00_6144 =
										BGl_typezd2errorzd2zz__errorz00
										(BGl_string3036z00zz__evmodulez00, BINT(11430L),
										BGl_string3070z00zz__evmodulez00,
										BGl_string3038z00zz__evmodulez00, BgL_clausez00_57);
									FAILURE(BgL_auxz00_6144, BFALSE, BFALSE);
								}
							BgL_arg1429z00_1421 = CDR(BgL_pairz00_3150);
						}
						{	/* Eval/evmodule.scm 287 */
							obj_t BgL_zc3z04anonymousza31430ze3z87_4229;

							BgL_zc3z04anonymousza31430ze3z87_4229 =
								BGl_proc3071z00zz__evmodulez00;
							return BBOOL(BGl_forzd2eachzf2locz20zz__evmodulez00(BgL_locz00_58,
									BgL_zc3z04anonymousza31430ze3z87_4229, BgL_arg1429z00_1421));
						}
					}
				else
					{	/* Eval/evmodule.scm 283 */
						return
							BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_58,
							BGl_string3072z00zz__evmodulez00,
							BGl_string3073z00zz__evmodulez00, BgL_clausez00_57);
					}
			}
		}

	}



/* &<@anonymous:1430> */
	obj_t BGl_z62zc3z04anonymousza31430ze3ze5zz__evmodulez00(obj_t
		BgL_envz00_4230, obj_t BgL_locz00_4231, obj_t BgL_sz00_4232)
	{
		{	/* Eval/evmodule.scm 286 */
			{	/* Eval/evmodule.scm 287 */
				obj_t BgL_arg1431z00_5072;

				{	/* Eval/evmodule.scm 287 */
					obj_t BgL_arg1432z00_5073;

					{	/* Eval/evmodule.scm 287 */
						obj_t BgL_arg1433z00_5074;

						{	/* Eval/evmodule.scm 287 */
							obj_t BgL_arg1434z00_5075;

							BgL_arg1434z00_5075 = MAKE_YOUNG_PAIR(BgL_sz00_4232, BNIL);
							BgL_arg1433z00_5074 =
								MAKE_YOUNG_PAIR(BGl_symbol3074z00zz__evmodulez00,
								BgL_arg1434z00_5075);
						}
						BgL_arg1432z00_5073 = MAKE_YOUNG_PAIR(BgL_arg1433z00_5074, BNIL);
					}
					BgL_arg1431z00_5072 =
						MAKE_YOUNG_PAIR(BGl_symbol3076z00zz__evmodulez00,
						BgL_arg1432z00_5073);
				}
				{	/* Eval/evmodule.scm 287 */

					{	/* Eval/evmodule.scm 387 */
						obj_t BgL_expz00_5076;

						if (CBOOL(BgL_locz00_4231))
							{	/* Eval/evmodule.scm 388 */
								obj_t BgL_arg1515z00_5077;
								obj_t BgL_arg1516z00_5078;

								BgL_arg1515z00_5077 = CAR(BgL_arg1431z00_5072);
								BgL_arg1516z00_5078 = CDR(BgL_arg1431z00_5072);
								{	/* Eval/evmodule.scm 388 */
									obj_t BgL_res2390z00_5079;

									BgL_res2390z00_5079 =
										MAKE_YOUNG_EPAIR(BgL_arg1515z00_5077, BgL_arg1516z00_5078,
										BgL_locz00_4231);
									BgL_expz00_5076 = BgL_res2390z00_5079;
								}
							}
						else
							{	/* Eval/evmodule.scm 387 */
								BgL_expz00_5076 = BgL_arg1431z00_5072;
							}
						return BGl_evalz00zz__evalz00(BgL_expz00_5076, BFALSE);
					}
				}
			}
		}

	}



/* evmodule-option */
	obj_t BGl_evmodulezd2optionzd2zz__evmodulez00(obj_t BgL_clausez00_59,
		obj_t BgL_locz00_60)
	{
		{	/* Eval/evmodule.scm 293 */
			{
				obj_t BgL_expz00_1444;

				if (PAIRP(BgL_clausez00_59))
					{	/* Eval/evmodule.scm 294 */
						if (
							(CAR(
									((obj_t) BgL_clausez00_59)) ==
								BGl_symbol3080z00zz__evmodulez00))
							{	/* Eval/evmodule.scm 294 */
								obj_t BgL_arg1442z00_1451;

								BgL_arg1442z00_1451 = CDR(((obj_t) BgL_clausez00_59));
								BgL_expz00_1444 = BgL_arg1442z00_1451;
								{	/* Eval/evmodule.scm 296 */
									obj_t BgL_locz00_1453;

									{	/* Eval/evmodule.scm 296 */
										obj_t BgL__ortest_1045z00_1465;

										BgL__ortest_1045z00_1465 =
											BGl_getzd2sourcezd2locationz00zz__readerz00
											(BgL_clausez00_59);
										if (CBOOL(BgL__ortest_1045z00_1465))
											{	/* Eval/evmodule.scm 296 */
												BgL_locz00_1453 = BgL__ortest_1045z00_1465;
											}
										else
											{	/* Eval/evmodule.scm 296 */
												BgL_locz00_1453 = BgL_locz00_60;
											}
									}
									{
										obj_t BgL_l1151z00_1455;

										BgL_l1151z00_1455 = BgL_expz00_1444;
									BgL_zc3z04anonymousza31444ze3z87_1456:
										if (PAIRP(BgL_l1151z00_1455))
											{	/* Eval/evmodule.scm 297 */
												{	/* Eval/evmodule.scm 297 */
													obj_t BgL_ez00_1458;

													BgL_ez00_1458 = CAR(BgL_l1151z00_1455);
													{	/* Eval/evmodule.scm 297 */

														{	/* Eval/evmodule.scm 387 */
															obj_t BgL_expz00_3165;

															if (CBOOL(BgL_locz00_1453))
																{	/* Eval/evmodule.scm 388 */
																	obj_t BgL_arg1515z00_3166;
																	obj_t BgL_arg1516z00_3167;

																	{	/* Eval/evmodule.scm 388 */
																		obj_t BgL_pairz00_3168;

																		if (PAIRP(BgL_ez00_1458))
																			{	/* Eval/evmodule.scm 388 */
																				BgL_pairz00_3168 = BgL_ez00_1458;
																			}
																		else
																			{
																				obj_t BgL_auxz00_6180;

																				BgL_auxz00_6180 =
																					BGl_typezd2errorzd2zz__errorz00
																					(BGl_string3036z00zz__evmodulez00,
																					BINT(15560L),
																					BGl_string3078z00zz__evmodulez00,
																					BGl_string3038z00zz__evmodulez00,
																					BgL_ez00_1458);
																				FAILURE(BgL_auxz00_6180, BFALSE,
																					BFALSE);
																			}
																		BgL_arg1515z00_3166 = CAR(BgL_pairz00_3168);
																	}
																	{	/* Eval/evmodule.scm 388 */
																		obj_t BgL_pairz00_3169;

																		if (PAIRP(BgL_ez00_1458))
																			{	/* Eval/evmodule.scm 388 */
																				BgL_pairz00_3169 = BgL_ez00_1458;
																			}
																		else
																			{
																				obj_t BgL_auxz00_6187;

																				BgL_auxz00_6187 =
																					BGl_typezd2errorzd2zz__errorz00
																					(BGl_string3036z00zz__evmodulez00,
																					BINT(15570L),
																					BGl_string3078z00zz__evmodulez00,
																					BGl_string3038z00zz__evmodulez00,
																					BgL_ez00_1458);
																				FAILURE(BgL_auxz00_6187, BFALSE,
																					BFALSE);
																			}
																		BgL_arg1516z00_3167 = CDR(BgL_pairz00_3169);
																	}
																	{	/* Eval/evmodule.scm 388 */
																		obj_t BgL_res2391z00_3170;

																		BgL_res2391z00_3170 =
																			MAKE_YOUNG_EPAIR(BgL_arg1515z00_3166,
																			BgL_arg1516z00_3167, BgL_locz00_1453);
																		BgL_expz00_3165 = BgL_res2391z00_3170;
																	}
																}
															else
																{	/* Eval/evmodule.scm 387 */
																	BgL_expz00_3165 = BgL_ez00_1458;
																}
															BGl_evalz00zz__evalz00(BgL_expz00_3165, BFALSE);
														}
													}
												}
												{
													obj_t BgL_l1151z00_6194;

													BgL_l1151z00_6194 = CDR(BgL_l1151z00_1455);
													BgL_l1151z00_1455 = BgL_l1151z00_6194;
													goto BgL_zc3z04anonymousza31444ze3z87_1456;
												}
											}
										else
											{	/* Eval/evmodule.scm 297 */
												if (NULLP(BgL_l1151z00_1455))
													{	/* Eval/evmodule.scm 297 */
														return BTRUE;
													}
												else
													{	/* Eval/evmodule.scm 297 */
														return
															BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00
															(BGl_string3079z00zz__evmodulez00,
															BGl_string3069z00zz__evmodulez00,
															BgL_l1151z00_1455,
															BGl_string3036z00zz__evmodulez00, BINT(11807L));
													}
											}
									}
								}
							}
						else
							{	/* Eval/evmodule.scm 294 */
								return
									BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_60,
									BGl_string3072z00zz__evmodulez00,
									BGl_string3082z00zz__evmodulez00, BgL_clausez00_59);
							}
					}
				else
					{	/* Eval/evmodule.scm 294 */
						return
							BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_60,
							BGl_string3072z00zz__evmodulez00,
							BGl_string3082z00zz__evmodulez00, BgL_clausez00_59);
					}
			}
		}

	}



/* mark-global! */
	obj_t BGl_markzd2globalz12zc0zz__evmodulez00(obj_t BgL_idz00_61,
		obj_t BgL_modz00_62, long BgL_tagz00_63, obj_t BgL_locz00_64)
	{
		{	/* Eval/evmodule.scm 304 */
			{	/* Eval/evmodule.scm 305 */
				obj_t BgL_vz00_3174;

				{	/* Eval/evmodule.scm 305 */
					obj_t BgL_auxz00_6202;

					if (SYMBOLP(BgL_idz00_61))
						{	/* Eval/evmodule.scm 305 */
							BgL_auxz00_6202 = BgL_idz00_61;
						}
					else
						{
							obj_t BgL_auxz00_6205;

							BgL_auxz00_6205 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3036z00zz__evmodulez00, BINT(12237L),
								BGl_string3083z00zz__evmodulez00,
								BGl_string3040z00zz__evmodulez00, BgL_idz00_61);
							FAILURE(BgL_auxz00_6205, BFALSE, BFALSE);
						}
					BgL_vz00_3174 =
						BGl_evmodulezd2findzd2globalz00zz__evmodulez00(BgL_modz00_62,
						BgL_auxz00_6202);
				}
				{	/* Eval/evmodule.scm 306 */
					bool_t BgL_test3548z00_6210;

					if (VECTORP(BgL_vz00_3174))
						{	/* Eval/evmodule.scm 306 */
							BgL_test3548z00_6210 = (VECTOR_LENGTH(BgL_vz00_3174) == 5L);
						}
					else
						{	/* Eval/evmodule.scm 306 */
							BgL_test3548z00_6210 = ((bool_t) 0);
						}
					if (BgL_test3548z00_6210)
						{	/* Eval/evmodule.scm 306 */
							{	/* Eval/evmodule.scm 308 */
								int BgL_tagz00_3181;

								BgL_tagz00_3181 = (int) (BgL_tagz00_63);
								VECTOR_SET(BgL_vz00_3174, 0L, BINT(BgL_tagz00_3181));
							}
							return BgL_idz00_61;
						}
					else
						{	/* Eval/evmodule.scm 306 */
							return
								BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_64,
								BGl_string3072z00zz__evmodulez00,
								BGl_string3084z00zz__evmodulez00, BgL_idz00_61);
						}
				}
			}
		}

	}



/* evmodule-static */
	obj_t BGl_evmodulezd2staticzd2zz__evmodulez00(obj_t BgL_modz00_74,
		obj_t BgL_clausez00_75, obj_t BgL_locz00_76, bool_t BgL_classpz00_77)
	{
		{	/* Eval/evmodule.scm 335 */
			{	/* Eval/evmodule.scm 372 */
				obj_t BgL_evmodulezd2staticzd2clausez00_4233;

				{
					int BgL_tmpz00_6219;

					BgL_tmpz00_6219 = (int) (3L);
					BgL_evmodulezd2staticzd2clausez00_4233 =
						MAKE_L_PROCEDURE
						(BGl_z62evmodulezd2staticzd2clausez62zz__evmodulez00,
						BgL_tmpz00_6219);
				}
				PROCEDURE_L_SET(BgL_evmodulezd2staticzd2clausez00_4233,
					(int) (0L), BgL_modz00_74);
				PROCEDURE_L_SET(BgL_evmodulezd2staticzd2clausez00_4233,
					(int) (1L), BBOOL(BgL_classpz00_77));
				PROCEDURE_L_SET(BgL_evmodulezd2staticzd2clausez00_4233,
					(int) (2L), BgL_clausez00_75);
				if (BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_clausez00_75))
					{	/* Eval/evmodule.scm 375 */
						obj_t BgL_arg1450z00_1471;

						{	/* Eval/evmodule.scm 375 */
							obj_t BgL_pairz00_3393;

							if (PAIRP(BgL_clausez00_75))
								{	/* Eval/evmodule.scm 375 */
									BgL_pairz00_3393 = BgL_clausez00_75;
								}
							else
								{
									obj_t BgL_auxz00_6233;

									BgL_auxz00_6233 =
										BGl_typezd2errorzd2zz__errorz00
										(BGl_string3036z00zz__evmodulez00, BINT(14911L),
										BGl_string3085z00zz__evmodulez00,
										BGl_string3038z00zz__evmodulez00, BgL_clausez00_75);
									FAILURE(BgL_auxz00_6233, BFALSE, BFALSE);
								}
							BgL_arg1450z00_1471 = CDR(BgL_pairz00_3393);
						}
						return
							BBOOL(BGl_forzd2eachzf2locz20zz__evmodulez00(BgL_locz00_76,
								BgL_evmodulezd2staticzd2clausez00_4233, BgL_arg1450z00_1471));
					}
				else
					{	/* Eval/evmodule.scm 373 */
						return
							BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_76,
							BGl_string3072z00zz__evmodulez00,
							BGl_string3086z00zz__evmodulez00, BgL_clausez00_75);
					}
			}
		}

	}



/* &evmodule-static-clause */
	obj_t BGl_z62evmodulezd2staticzd2clausez62zz__evmodulez00(obj_t
		BgL_envz00_4234, obj_t BgL_locz00_4238, obj_t BgL_sz00_4239)
	{
		{	/* Eval/evmodule.scm 372 */
			{	/* Eval/evmodule.scm 372 */
				obj_t BgL_modz00_4235;
				bool_t BgL_classpz00_4236;
				obj_t BgL_clausez00_4237;

				BgL_modz00_4235 = PROCEDURE_L_REF(BgL_envz00_4234, (int) (0L));
				BgL_classpz00_4236 =
					CBOOL(PROCEDURE_L_REF(BgL_envz00_4234, (int) (1L)));
				BgL_clausez00_4237 = PROCEDURE_L_REF(BgL_envz00_4234, (int) (2L));
				{
					obj_t BgL_sz00_5085;

					if (SYMBOLP(BgL_sz00_4239))
						{	/* Eval/evmodule.scm 372 */
							if (BgL_classpz00_4236)
								{	/* Eval/evmodule.scm 339 */
									return BFALSE;
								}
							else
								{	/* Eval/evmodule.scm 340 */
									obj_t BgL_idz00_5097;

									BgL_idz00_5097 =
										BGl_untypezd2identzd2zz__evmodulez00(BgL_sz00_4239);
									{	/* Eval/evmodule.scm 328 */
										obj_t BgL_gz00_5098;

										{	/* Eval/evmodule.scm 328 */
											obj_t BgL_idz00_5099;

											if (SYMBOLP(BgL_idz00_5097))
												{	/* Eval/evmodule.scm 328 */
													BgL_idz00_5099 = BgL_idz00_5097;
												}
											else
												{
													obj_t BgL_auxz00_6254;

													BgL_auxz00_6254 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3036z00zz__evmodulez00, BINT(13270L),
														BGl_string3090z00zz__evmodulez00,
														BGl_string3040z00zz__evmodulez00, BgL_idz00_5097);
													FAILURE(BgL_auxz00_6254, BFALSE, BFALSE);
												}
											{	/* Eval/evmodule.scm 328 */
												obj_t BgL_v1213z00_5100;

												BgL_v1213z00_5100 = create_vector(5L);
												VECTOR_SET(BgL_v1213z00_5100, 0L, BINT(2L));
												VECTOR_SET(BgL_v1213z00_5100, 1L, BgL_idz00_5099);
												VECTOR_SET(BgL_v1213z00_5100, 2L, BUNSPEC);
												VECTOR_SET(BgL_v1213z00_5100, 3L, BgL_modz00_4235);
												VECTOR_SET(BgL_v1213z00_5100, 4L, BgL_locz00_4238);
												BgL_gz00_5098 = BgL_v1213z00_5100;
											}
										}
										{	/* Eval/evmodule.scm 329 */
											obj_t BgL_auxz00_6265;

											if (SYMBOLP(BgL_idz00_5097))
												{	/* Eval/evmodule.scm 329 */
													BgL_auxz00_6265 = BgL_idz00_5097;
												}
											else
												{
													obj_t BgL_auxz00_6268;

													BgL_auxz00_6268 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3036z00zz__evmodulez00, BINT(13317L),
														BGl_string3090z00zz__evmodulez00,
														BGl_string3040z00zz__evmodulez00, BgL_idz00_5097);
													FAILURE(BgL_auxz00_6268, BFALSE, BFALSE);
												}
											BGl_evmodulezd2bindzd2globalz12z12zz__evmodulez00
												(BgL_modz00_4235, BgL_auxz00_6265, BgL_gz00_5098,
												BgL_locz00_4238);
										}
										BgL_gz00_5098;
									}
									{	/* Eval/evmodule.scm 305 */
										obj_t BgL_vz00_5101;

										{	/* Eval/evmodule.scm 305 */
											obj_t BgL_auxz00_6273;

											if (SYMBOLP(BgL_idz00_5097))
												{	/* Eval/evmodule.scm 305 */
													BgL_auxz00_6273 = BgL_idz00_5097;
												}
											else
												{
													obj_t BgL_auxz00_6276;

													BgL_auxz00_6276 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3036z00zz__evmodulez00, BINT(12237L),
														BGl_string3090z00zz__evmodulez00,
														BGl_string3040z00zz__evmodulez00, BgL_idz00_5097);
													FAILURE(BgL_auxz00_6276, BFALSE, BFALSE);
												}
											BgL_vz00_5101 =
												BGl_evmodulezd2findzd2globalz00zz__evmodulez00
												(BgL_modz00_4235, BgL_auxz00_6273);
										}
										{	/* Eval/evmodule.scm 306 */
											bool_t BgL_test3557z00_6281;

											if (VECTORP(BgL_vz00_5101))
												{	/* Eval/evmodule.scm 306 */
													BgL_test3557z00_6281 =
														(VECTOR_LENGTH(BgL_vz00_5101) == 5L);
												}
											else
												{	/* Eval/evmodule.scm 306 */
													BgL_test3557z00_6281 = ((bool_t) 0);
												}
											if (BgL_test3557z00_6281)
												{	/* Eval/evmodule.scm 306 */
													VECTOR_SET(BgL_vz00_5101, 0L, BINT(3L));
													return BgL_idz00_5097;
												}
											else
												{	/* Eval/evmodule.scm 306 */
													return
														BGl_evcompilezd2errorzd2zz__evcompilez00
														(BgL_locz00_4238, BGl_string3072z00zz__evmodulez00,
														BGl_string3084z00zz__evmodulez00, BgL_idz00_5097);
												}
										}
									}
								}
						}
					else
						{	/* Eval/evmodule.scm 372 */
							if (PAIRP(BgL_sz00_4239))
								{	/* Eval/evmodule.scm 372 */
									obj_t BgL_cdrzd2127zd2_5102;

									BgL_cdrzd2127zd2_5102 = CDR(((obj_t) BgL_sz00_4239));
									if (
										(CAR(
												((obj_t) BgL_sz00_4239)) ==
											BGl_symbol3091z00zz__evmodulez00))
										{	/* Eval/evmodule.scm 372 */
											if (PAIRP(BgL_cdrzd2127zd2_5102))
												{	/* Eval/evmodule.scm 372 */
													obj_t BgL_carzd2130zd2_5105;

													BgL_carzd2130zd2_5105 = CAR(BgL_cdrzd2127zd2_5102);
													if (SYMBOLP(BgL_carzd2130zd2_5105))
														{	/* Eval/evmodule.scm 372 */
															obj_t BgL_arg1459z00_5106;

															BgL_arg1459z00_5106 = CDR(BgL_cdrzd2127zd2_5102);
															if (BgL_classpz00_4236)
																{	/* Eval/evmodule.scm 345 */
																	obj_t BgL_auxz00_6304;

																	{	/* Eval/evmodule.scm 345 */
																		bool_t BgL_test3564z00_6305;

																		if (PAIRP(BgL_arg1459z00_5106))
																			{	/* Eval/evmodule.scm 345 */
																				BgL_test3564z00_6305 = ((bool_t) 1);
																			}
																		else
																			{	/* Eval/evmodule.scm 345 */
																				BgL_test3564z00_6305 =
																					NULLP(BgL_arg1459z00_5106);
																			}
																		if (BgL_test3564z00_6305)
																			{	/* Eval/evmodule.scm 345 */
																				BgL_auxz00_6304 = BgL_arg1459z00_5106;
																			}
																		else
																			{
																				obj_t BgL_auxz00_6309;

																				BgL_auxz00_6309 =
																					BGl_typezd2errorzd2zz__errorz00
																					(BGl_string3036z00zz__evmodulez00,
																					BINT(13900L),
																					BGl_string3093z00zz__evmodulez00,
																					BGl_string3094z00zz__evmodulez00,
																					BgL_arg1459z00_5106);
																				FAILURE(BgL_auxz00_6309, BFALSE,
																					BFALSE);
																			}
																	}
																	return
																		BGl_evalzd2classzd2zz__evobjectz00
																		(BgL_carzd2130zd2_5105, ((bool_t) 0),
																		BgL_auxz00_6304, BgL_sz00_4239,
																		BgL_modz00_4235);
																}
															else
																{	/* Eval/evmodule.scm 344 */
																	return BFALSE;
																}
														}
													else
														{	/* Eval/evmodule.scm 372 */
															obj_t BgL_carzd2174zd2_5108;

															BgL_carzd2174zd2_5108 =
																CAR(((obj_t) BgL_sz00_4239));
															if (SYMBOLP(BgL_carzd2174zd2_5108))
																{	/* Eval/evmodule.scm 372 */
																	if (BgL_classpz00_4236)
																		{	/* Eval/evmodule.scm 365 */
																			return BFALSE;
																		}
																	else
																		{	/* Eval/evmodule.scm 366 */
																			obj_t BgL_idz00_5110;

																			BgL_idz00_5110 =
																				BGl_untypezd2identzd2zz__evmodulez00
																				(BgL_carzd2174zd2_5108);
																			{	/* Eval/evmodule.scm 328 */
																				obj_t BgL_gz00_5111;

																				{	/* Eval/evmodule.scm 328 */
																					obj_t BgL_idz00_5112;

																					if (SYMBOLP(BgL_idz00_5110))
																						{	/* Eval/evmodule.scm 328 */
																							BgL_idz00_5112 = BgL_idz00_5110;
																						}
																					else
																						{
																							obj_t BgL_auxz00_6322;

																							BgL_auxz00_6322 =
																								BGl_typezd2errorzd2zz__errorz00
																								(BGl_string3036z00zz__evmodulez00,
																								BINT(13270L),
																								BGl_string3093z00zz__evmodulez00,
																								BGl_string3040z00zz__evmodulez00,
																								BgL_idz00_5110);
																							FAILURE(BgL_auxz00_6322, BFALSE,
																								BFALSE);
																						}
																					{	/* Eval/evmodule.scm 328 */
																						obj_t BgL_v1213z00_5113;

																						BgL_v1213z00_5113 =
																							create_vector(5L);
																						VECTOR_SET(BgL_v1213z00_5113, 0L,
																							BINT(2L));
																						VECTOR_SET(BgL_v1213z00_5113, 1L,
																							BgL_idz00_5112);
																						VECTOR_SET(BgL_v1213z00_5113, 2L,
																							BUNSPEC);
																						VECTOR_SET(BgL_v1213z00_5113, 3L,
																							BgL_modz00_4235);
																						VECTOR_SET(BgL_v1213z00_5113, 4L,
																							BgL_locz00_4238);
																						BgL_gz00_5111 = BgL_v1213z00_5113;
																					}
																				}
																				{	/* Eval/evmodule.scm 329 */
																					obj_t BgL_auxz00_6333;

																					if (SYMBOLP(BgL_idz00_5110))
																						{	/* Eval/evmodule.scm 329 */
																							BgL_auxz00_6333 = BgL_idz00_5110;
																						}
																					else
																						{
																							obj_t BgL_auxz00_6336;

																							BgL_auxz00_6336 =
																								BGl_typezd2errorzd2zz__errorz00
																								(BGl_string3036z00zz__evmodulez00,
																								BINT(13317L),
																								BGl_string3093z00zz__evmodulez00,
																								BGl_string3040z00zz__evmodulez00,
																								BgL_idz00_5110);
																							FAILURE(BgL_auxz00_6336, BFALSE,
																								BFALSE);
																						}
																					BGl_evmodulezd2bindzd2globalz12z12zz__evmodulez00
																						(BgL_modz00_4235, BgL_auxz00_6333,
																						BgL_gz00_5111, BgL_locz00_4238);
																				}
																				BgL_gz00_5111;
																			}
																			return
																				BGl_markzd2globalz12zc0zz__evmodulez00
																				(BgL_idz00_5110, BgL_modz00_4235, 4L,
																				BgL_locz00_4238);
																		}
																}
															else
																{	/* Eval/evmodule.scm 372 */
																	return
																		BGl_evcompilezd2errorzd2zz__evcompilez00
																		(BgL_locz00_4238,
																		BGl_string3072z00zz__evmodulez00,
																		BGl_string3086z00zz__evmodulez00,
																		BgL_clausez00_4237);
																}
														}
												}
											else
												{	/* Eval/evmodule.scm 372 */
													obj_t BgL_carzd2198zd2_5114;

													BgL_carzd2198zd2_5114 = CAR(((obj_t) BgL_sz00_4239));
													if (SYMBOLP(BgL_carzd2198zd2_5114))
														{	/* Eval/evmodule.scm 372 */
															if (BgL_classpz00_4236)
																{	/* Eval/evmodule.scm 365 */
																	return BFALSE;
																}
															else
																{	/* Eval/evmodule.scm 366 */
																	obj_t BgL_idz00_5116;

																	BgL_idz00_5116 =
																		BGl_untypezd2identzd2zz__evmodulez00
																		(BgL_carzd2198zd2_5114);
																	{	/* Eval/evmodule.scm 328 */
																		obj_t BgL_gz00_5117;

																		{	/* Eval/evmodule.scm 328 */
																			obj_t BgL_idz00_5118;

																			if (SYMBOLP(BgL_idz00_5116))
																				{	/* Eval/evmodule.scm 328 */
																					BgL_idz00_5118 = BgL_idz00_5116;
																				}
																			else
																				{
																					obj_t BgL_auxz00_6351;

																					BgL_auxz00_6351 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string3036z00zz__evmodulez00,
																						BINT(13270L),
																						BGl_string3093z00zz__evmodulez00,
																						BGl_string3040z00zz__evmodulez00,
																						BgL_idz00_5116);
																					FAILURE(BgL_auxz00_6351, BFALSE,
																						BFALSE);
																				}
																			{	/* Eval/evmodule.scm 328 */
																				obj_t BgL_v1213z00_5119;

																				BgL_v1213z00_5119 = create_vector(5L);
																				VECTOR_SET(BgL_v1213z00_5119, 0L,
																					BINT(2L));
																				VECTOR_SET(BgL_v1213z00_5119, 1L,
																					BgL_idz00_5118);
																				VECTOR_SET(BgL_v1213z00_5119, 2L,
																					BUNSPEC);
																				VECTOR_SET(BgL_v1213z00_5119, 3L,
																					BgL_modz00_4235);
																				VECTOR_SET(BgL_v1213z00_5119, 4L,
																					BgL_locz00_4238);
																				BgL_gz00_5117 = BgL_v1213z00_5119;
																			}
																		}
																		{	/* Eval/evmodule.scm 329 */
																			obj_t BgL_auxz00_6362;

																			if (SYMBOLP(BgL_idz00_5116))
																				{	/* Eval/evmodule.scm 329 */
																					BgL_auxz00_6362 = BgL_idz00_5116;
																				}
																			else
																				{
																					obj_t BgL_auxz00_6365;

																					BgL_auxz00_6365 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string3036z00zz__evmodulez00,
																						BINT(13317L),
																						BGl_string3093z00zz__evmodulez00,
																						BGl_string3040z00zz__evmodulez00,
																						BgL_idz00_5116);
																					FAILURE(BgL_auxz00_6365, BFALSE,
																						BFALSE);
																				}
																			BGl_evmodulezd2bindzd2globalz12z12zz__evmodulez00
																				(BgL_modz00_4235, BgL_auxz00_6362,
																				BgL_gz00_5117, BgL_locz00_4238);
																		}
																		BgL_gz00_5117;
																	}
																	return
																		BGl_markzd2globalz12zc0zz__evmodulez00
																		(BgL_idz00_5116, BgL_modz00_4235, 4L,
																		BgL_locz00_4238);
																}
														}
													else
														{	/* Eval/evmodule.scm 372 */
															return
																BGl_evcompilezd2errorzd2zz__evcompilez00
																(BgL_locz00_4238,
																BGl_string3072z00zz__evmodulez00,
																BGl_string3086z00zz__evmodulez00,
																BgL_clausez00_4237);
														}
												}
										}
									else
										{	/* Eval/evmodule.scm 372 */
											obj_t BgL_cdrzd2209zd2_5120;

											BgL_cdrzd2209zd2_5120 = CDR(((obj_t) BgL_sz00_4239));
											if (
												(CAR(
														((obj_t) BgL_sz00_4239)) ==
													BGl_symbol3095z00zz__evmodulez00))
												{	/* Eval/evmodule.scm 372 */
													if (PAIRP(BgL_cdrzd2209zd2_5120))
														{	/* Eval/evmodule.scm 372 */
															obj_t BgL_carzd2212zd2_5123;

															BgL_carzd2212zd2_5123 =
																CAR(BgL_cdrzd2209zd2_5120);
															if (SYMBOLP(BgL_carzd2212zd2_5123))
																{	/* Eval/evmodule.scm 372 */
																	obj_t BgL_arg1470z00_5124;

																	BgL_arg1470z00_5124 =
																		CDR(BgL_cdrzd2209zd2_5120);
																	if (BgL_classpz00_4236)
																		{	/* Eval/evmodule.scm 348 */
																			obj_t BgL_auxz00_6385;

																			{	/* Eval/evmodule.scm 348 */
																				bool_t BgL_test3578z00_6386;

																				if (PAIRP(BgL_arg1470z00_5124))
																					{	/* Eval/evmodule.scm 348 */
																						BgL_test3578z00_6386 = ((bool_t) 1);
																					}
																				else
																					{	/* Eval/evmodule.scm 348 */
																						BgL_test3578z00_6386 =
																							NULLP(BgL_arg1470z00_5124);
																					}
																				if (BgL_test3578z00_6386)
																					{	/* Eval/evmodule.scm 348 */
																						BgL_auxz00_6385 =
																							BgL_arg1470z00_5124;
																					}
																				else
																					{
																						obj_t BgL_auxz00_6390;

																						BgL_auxz00_6390 =
																							BGl_typezd2errorzd2zz__errorz00
																							(BGl_string3036z00zz__evmodulez00,
																							BINT(14009L),
																							BGl_string3093z00zz__evmodulez00,
																							BGl_string3094z00zz__evmodulez00,
																							BgL_arg1470z00_5124);
																						FAILURE(BgL_auxz00_6390, BFALSE,
																							BFALSE);
																					}
																			}
																			return
																				BGl_evalzd2classzd2zz__evobjectz00
																				(BgL_carzd2212zd2_5123, ((bool_t) 0),
																				BgL_auxz00_6385, BgL_sz00_4239,
																				BgL_modz00_4235);
																		}
																	else
																		{	/* Eval/evmodule.scm 347 */
																			return BFALSE;
																		}
																}
															else
																{	/* Eval/evmodule.scm 372 */
																	obj_t BgL_carzd2251zd2_5126;

																	BgL_carzd2251zd2_5126 =
																		CAR(((obj_t) BgL_sz00_4239));
																	if (SYMBOLP(BgL_carzd2251zd2_5126))
																		{	/* Eval/evmodule.scm 372 */
																			if (BgL_classpz00_4236)
																				{	/* Eval/evmodule.scm 365 */
																					return BFALSE;
																				}
																			else
																				{	/* Eval/evmodule.scm 366 */
																					obj_t BgL_idz00_5128;

																					BgL_idz00_5128 =
																						BGl_untypezd2identzd2zz__evmodulez00
																						(BgL_carzd2251zd2_5126);
																					{	/* Eval/evmodule.scm 328 */
																						obj_t BgL_gz00_5129;

																						{	/* Eval/evmodule.scm 328 */
																							obj_t BgL_idz00_5130;

																							if (SYMBOLP(BgL_idz00_5128))
																								{	/* Eval/evmodule.scm 328 */
																									BgL_idz00_5130 =
																										BgL_idz00_5128;
																								}
																							else
																								{
																									obj_t BgL_auxz00_6403;

																									BgL_auxz00_6403 =
																										BGl_typezd2errorzd2zz__errorz00
																										(BGl_string3036z00zz__evmodulez00,
																										BINT(13270L),
																										BGl_string3093z00zz__evmodulez00,
																										BGl_string3040z00zz__evmodulez00,
																										BgL_idz00_5128);
																									FAILURE(BgL_auxz00_6403,
																										BFALSE, BFALSE);
																								}
																							{	/* Eval/evmodule.scm 328 */
																								obj_t BgL_v1213z00_5131;

																								BgL_v1213z00_5131 =
																									create_vector(5L);
																								VECTOR_SET(BgL_v1213z00_5131,
																									0L, BINT(2L));
																								VECTOR_SET(BgL_v1213z00_5131,
																									1L, BgL_idz00_5130);
																								VECTOR_SET(BgL_v1213z00_5131,
																									2L, BUNSPEC);
																								VECTOR_SET(BgL_v1213z00_5131,
																									3L, BgL_modz00_4235);
																								VECTOR_SET(BgL_v1213z00_5131,
																									4L, BgL_locz00_4238);
																								BgL_gz00_5129 =
																									BgL_v1213z00_5131;
																							}
																						}
																						{	/* Eval/evmodule.scm 329 */
																							obj_t BgL_auxz00_6414;

																							if (SYMBOLP(BgL_idz00_5128))
																								{	/* Eval/evmodule.scm 329 */
																									BgL_auxz00_6414 =
																										BgL_idz00_5128;
																								}
																							else
																								{
																									obj_t BgL_auxz00_6417;

																									BgL_auxz00_6417 =
																										BGl_typezd2errorzd2zz__errorz00
																										(BGl_string3036z00zz__evmodulez00,
																										BINT(13317L),
																										BGl_string3093z00zz__evmodulez00,
																										BGl_string3040z00zz__evmodulez00,
																										BgL_idz00_5128);
																									FAILURE(BgL_auxz00_6417,
																										BFALSE, BFALSE);
																								}
																							BGl_evmodulezd2bindzd2globalz12z12zz__evmodulez00
																								(BgL_modz00_4235,
																								BgL_auxz00_6414, BgL_gz00_5129,
																								BgL_locz00_4238);
																						}
																						BgL_gz00_5129;
																					}
																					return
																						BGl_markzd2globalz12zc0zz__evmodulez00
																						(BgL_idz00_5128, BgL_modz00_4235,
																						4L, BgL_locz00_4238);
																				}
																		}
																	else
																		{	/* Eval/evmodule.scm 372 */
																			return
																				BGl_evcompilezd2errorzd2zz__evcompilez00
																				(BgL_locz00_4238,
																				BGl_string3072z00zz__evmodulez00,
																				BGl_string3086z00zz__evmodulez00,
																				BgL_clausez00_4237);
																		}
																}
														}
													else
														{	/* Eval/evmodule.scm 372 */
															obj_t BgL_carzd2270zd2_5132;

															BgL_carzd2270zd2_5132 =
																CAR(((obj_t) BgL_sz00_4239));
															if (SYMBOLP(BgL_carzd2270zd2_5132))
																{	/* Eval/evmodule.scm 372 */
																	if (BgL_classpz00_4236)
																		{	/* Eval/evmodule.scm 365 */
																			return BFALSE;
																		}
																	else
																		{	/* Eval/evmodule.scm 366 */
																			obj_t BgL_idz00_5134;

																			BgL_idz00_5134 =
																				BGl_untypezd2identzd2zz__evmodulez00
																				(BgL_carzd2270zd2_5132);
																			{	/* Eval/evmodule.scm 328 */
																				obj_t BgL_gz00_5135;

																				{	/* Eval/evmodule.scm 328 */
																					obj_t BgL_idz00_5136;

																					if (SYMBOLP(BgL_idz00_5134))
																						{	/* Eval/evmodule.scm 328 */
																							BgL_idz00_5136 = BgL_idz00_5134;
																						}
																					else
																						{
																							obj_t BgL_auxz00_6432;

																							BgL_auxz00_6432 =
																								BGl_typezd2errorzd2zz__errorz00
																								(BGl_string3036z00zz__evmodulez00,
																								BINT(13270L),
																								BGl_string3093z00zz__evmodulez00,
																								BGl_string3040z00zz__evmodulez00,
																								BgL_idz00_5134);
																							FAILURE(BgL_auxz00_6432, BFALSE,
																								BFALSE);
																						}
																					{	/* Eval/evmodule.scm 328 */
																						obj_t BgL_v1213z00_5137;

																						BgL_v1213z00_5137 =
																							create_vector(5L);
																						VECTOR_SET(BgL_v1213z00_5137, 0L,
																							BINT(2L));
																						VECTOR_SET(BgL_v1213z00_5137, 1L,
																							BgL_idz00_5136);
																						VECTOR_SET(BgL_v1213z00_5137, 2L,
																							BUNSPEC);
																						VECTOR_SET(BgL_v1213z00_5137, 3L,
																							BgL_modz00_4235);
																						VECTOR_SET(BgL_v1213z00_5137, 4L,
																							BgL_locz00_4238);
																						BgL_gz00_5135 = BgL_v1213z00_5137;
																					}
																				}
																				{	/* Eval/evmodule.scm 329 */
																					obj_t BgL_auxz00_6443;

																					if (SYMBOLP(BgL_idz00_5134))
																						{	/* Eval/evmodule.scm 329 */
																							BgL_auxz00_6443 = BgL_idz00_5134;
																						}
																					else
																						{
																							obj_t BgL_auxz00_6446;

																							BgL_auxz00_6446 =
																								BGl_typezd2errorzd2zz__errorz00
																								(BGl_string3036z00zz__evmodulez00,
																								BINT(13317L),
																								BGl_string3093z00zz__evmodulez00,
																								BGl_string3040z00zz__evmodulez00,
																								BgL_idz00_5134);
																							FAILURE(BgL_auxz00_6446, BFALSE,
																								BFALSE);
																						}
																					BGl_evmodulezd2bindzd2globalz12z12zz__evmodulez00
																						(BgL_modz00_4235, BgL_auxz00_6443,
																						BgL_gz00_5135, BgL_locz00_4238);
																				}
																				BgL_gz00_5135;
																			}
																			return
																				BGl_markzd2globalz12zc0zz__evmodulez00
																				(BgL_idz00_5134, BgL_modz00_4235, 4L,
																				BgL_locz00_4238);
																		}
																}
															else
																{	/* Eval/evmodule.scm 372 */
																	return
																		BGl_evcompilezd2errorzd2zz__evcompilez00
																		(BgL_locz00_4238,
																		BGl_string3072z00zz__evmodulez00,
																		BGl_string3086z00zz__evmodulez00,
																		BgL_clausez00_4237);
																}
														}
												}
											else
												{	/* Eval/evmodule.scm 372 */
													obj_t BgL_cdrzd2281zd2_5138;

													BgL_cdrzd2281zd2_5138 = CDR(((obj_t) BgL_sz00_4239));
													if (
														(CAR(
																((obj_t) BgL_sz00_4239)) ==
															BGl_symbol3097z00zz__evmodulez00))
														{	/* Eval/evmodule.scm 372 */
															if (PAIRP(BgL_cdrzd2281zd2_5138))
																{	/* Eval/evmodule.scm 372 */
																	obj_t BgL_carzd2284zd2_5141;

																	BgL_carzd2284zd2_5141 =
																		CAR(BgL_cdrzd2281zd2_5138);
																	if (SYMBOLP(BgL_carzd2284zd2_5141))
																		{	/* Eval/evmodule.scm 372 */
																			obj_t BgL_arg1480z00_5142;

																			BgL_arg1480z00_5142 =
																				CDR(BgL_cdrzd2281zd2_5138);
																			if (BgL_classpz00_4236)
																				{	/* Eval/evmodule.scm 351 */
																					obj_t BgL_auxz00_6466;

																					{	/* Eval/evmodule.scm 351 */
																						bool_t BgL_test3592z00_6467;

																						if (PAIRP(BgL_arg1480z00_5142))
																							{	/* Eval/evmodule.scm 351 */
																								BgL_test3592z00_6467 =
																									((bool_t) 1);
																							}
																						else
																							{	/* Eval/evmodule.scm 351 */
																								BgL_test3592z00_6467 =
																									NULLP(BgL_arg1480z00_5142);
																							}
																						if (BgL_test3592z00_6467)
																							{	/* Eval/evmodule.scm 351 */
																								BgL_auxz00_6466 =
																									BgL_arg1480z00_5142;
																							}
																						else
																							{
																								obj_t BgL_auxz00_6471;

																								BgL_auxz00_6471 =
																									BGl_typezd2errorzd2zz__errorz00
																									(BGl_string3036z00zz__evmodulez00,
																									BINT(14121L),
																									BGl_string3093z00zz__evmodulez00,
																									BGl_string3094z00zz__evmodulez00,
																									BgL_arg1480z00_5142);
																								FAILURE(BgL_auxz00_6471, BFALSE,
																									BFALSE);
																							}
																					}
																					return
																						BGl_evalzd2classzd2zz__evobjectz00
																						(BgL_carzd2284zd2_5141,
																						((bool_t) 1), BgL_auxz00_6466,
																						BgL_sz00_4239, BgL_modz00_4235);
																				}
																			else
																				{	/* Eval/evmodule.scm 350 */
																					return BFALSE;
																				}
																		}
																	else
																		{	/* Eval/evmodule.scm 372 */
																			obj_t BgL_carzd2318zd2_5144;

																			BgL_carzd2318zd2_5144 =
																				CAR(((obj_t) BgL_sz00_4239));
																			if (SYMBOLP(BgL_carzd2318zd2_5144))
																				{	/* Eval/evmodule.scm 372 */
																					if (BgL_classpz00_4236)
																						{	/* Eval/evmodule.scm 365 */
																							return BFALSE;
																						}
																					else
																						{	/* Eval/evmodule.scm 366 */
																							obj_t BgL_idz00_5146;

																							BgL_idz00_5146 =
																								BGl_untypezd2identzd2zz__evmodulez00
																								(BgL_carzd2318zd2_5144);
																							{	/* Eval/evmodule.scm 328 */
																								obj_t BgL_gz00_5147;

																								{	/* Eval/evmodule.scm 328 */
																									obj_t BgL_idz00_5148;

																									if (SYMBOLP(BgL_idz00_5146))
																										{	/* Eval/evmodule.scm 328 */
																											BgL_idz00_5148 =
																												BgL_idz00_5146;
																										}
																									else
																										{
																											obj_t BgL_auxz00_6484;

																											BgL_auxz00_6484 =
																												BGl_typezd2errorzd2zz__errorz00
																												(BGl_string3036z00zz__evmodulez00,
																												BINT(13270L),
																												BGl_string3093z00zz__evmodulez00,
																												BGl_string3040z00zz__evmodulez00,
																												BgL_idz00_5146);
																											FAILURE(BgL_auxz00_6484,
																												BFALSE, BFALSE);
																										}
																									{	/* Eval/evmodule.scm 328 */
																										obj_t BgL_v1213z00_5149;

																										BgL_v1213z00_5149 =
																											create_vector(5L);
																										VECTOR_SET
																											(BgL_v1213z00_5149, 0L,
																											BINT(2L));
																										VECTOR_SET
																											(BgL_v1213z00_5149, 1L,
																											BgL_idz00_5148);
																										VECTOR_SET
																											(BgL_v1213z00_5149, 2L,
																											BUNSPEC);
																										VECTOR_SET
																											(BgL_v1213z00_5149, 3L,
																											BgL_modz00_4235);
																										VECTOR_SET
																											(BgL_v1213z00_5149, 4L,
																											BgL_locz00_4238);
																										BgL_gz00_5147 =
																											BgL_v1213z00_5149;
																									}
																								}
																								{	/* Eval/evmodule.scm 329 */
																									obj_t BgL_auxz00_6495;

																									if (SYMBOLP(BgL_idz00_5146))
																										{	/* Eval/evmodule.scm 329 */
																											BgL_auxz00_6495 =
																												BgL_idz00_5146;
																										}
																									else
																										{
																											obj_t BgL_auxz00_6498;

																											BgL_auxz00_6498 =
																												BGl_typezd2errorzd2zz__errorz00
																												(BGl_string3036z00zz__evmodulez00,
																												BINT(13317L),
																												BGl_string3093z00zz__evmodulez00,
																												BGl_string3040z00zz__evmodulez00,
																												BgL_idz00_5146);
																											FAILURE(BgL_auxz00_6498,
																												BFALSE, BFALSE);
																										}
																									BGl_evmodulezd2bindzd2globalz12z12zz__evmodulez00
																										(BgL_modz00_4235,
																										BgL_auxz00_6495,
																										BgL_gz00_5147,
																										BgL_locz00_4238);
																								}
																								BgL_gz00_5147;
																							}
																							return
																								BGl_markzd2globalz12zc0zz__evmodulez00
																								(BgL_idz00_5146,
																								BgL_modz00_4235, 4L,
																								BgL_locz00_4238);
																						}
																				}
																			else
																				{	/* Eval/evmodule.scm 372 */
																					return
																						BGl_evcompilezd2errorzd2zz__evcompilez00
																						(BgL_locz00_4238,
																						BGl_string3072z00zz__evmodulez00,
																						BGl_string3086z00zz__evmodulez00,
																						BgL_clausez00_4237);
																				}
																		}
																}
															else
																{	/* Eval/evmodule.scm 372 */
																	obj_t BgL_carzd2332zd2_5150;

																	BgL_carzd2332zd2_5150 =
																		CAR(((obj_t) BgL_sz00_4239));
																	if (SYMBOLP(BgL_carzd2332zd2_5150))
																		{	/* Eval/evmodule.scm 372 */
																			if (BgL_classpz00_4236)
																				{	/* Eval/evmodule.scm 365 */
																					return BFALSE;
																				}
																			else
																				{	/* Eval/evmodule.scm 366 */
																					obj_t BgL_idz00_5152;

																					BgL_idz00_5152 =
																						BGl_untypezd2identzd2zz__evmodulez00
																						(BgL_carzd2332zd2_5150);
																					{	/* Eval/evmodule.scm 328 */
																						obj_t BgL_gz00_5153;

																						{	/* Eval/evmodule.scm 328 */
																							obj_t BgL_idz00_5154;

																							if (SYMBOLP(BgL_idz00_5152))
																								{	/* Eval/evmodule.scm 328 */
																									BgL_idz00_5154 =
																										BgL_idz00_5152;
																								}
																							else
																								{
																									obj_t BgL_auxz00_6513;

																									BgL_auxz00_6513 =
																										BGl_typezd2errorzd2zz__errorz00
																										(BGl_string3036z00zz__evmodulez00,
																										BINT(13270L),
																										BGl_string3093z00zz__evmodulez00,
																										BGl_string3040z00zz__evmodulez00,
																										BgL_idz00_5152);
																									FAILURE(BgL_auxz00_6513,
																										BFALSE, BFALSE);
																								}
																							{	/* Eval/evmodule.scm 328 */
																								obj_t BgL_v1213z00_5155;

																								BgL_v1213z00_5155 =
																									create_vector(5L);
																								VECTOR_SET(BgL_v1213z00_5155,
																									0L, BINT(2L));
																								VECTOR_SET(BgL_v1213z00_5155,
																									1L, BgL_idz00_5154);
																								VECTOR_SET(BgL_v1213z00_5155,
																									2L, BUNSPEC);
																								VECTOR_SET(BgL_v1213z00_5155,
																									3L, BgL_modz00_4235);
																								VECTOR_SET(BgL_v1213z00_5155,
																									4L, BgL_locz00_4238);
																								BgL_gz00_5153 =
																									BgL_v1213z00_5155;
																							}
																						}
																						{	/* Eval/evmodule.scm 329 */
																							obj_t BgL_auxz00_6524;

																							if (SYMBOLP(BgL_idz00_5152))
																								{	/* Eval/evmodule.scm 329 */
																									BgL_auxz00_6524 =
																										BgL_idz00_5152;
																								}
																							else
																								{
																									obj_t BgL_auxz00_6527;

																									BgL_auxz00_6527 =
																										BGl_typezd2errorzd2zz__errorz00
																										(BGl_string3036z00zz__evmodulez00,
																										BINT(13317L),
																										BGl_string3093z00zz__evmodulez00,
																										BGl_string3040z00zz__evmodulez00,
																										BgL_idz00_5152);
																									FAILURE(BgL_auxz00_6527,
																										BFALSE, BFALSE);
																								}
																							BGl_evmodulezd2bindzd2globalz12z12zz__evmodulez00
																								(BgL_modz00_4235,
																								BgL_auxz00_6524, BgL_gz00_5153,
																								BgL_locz00_4238);
																						}
																						BgL_gz00_5153;
																					}
																					return
																						BGl_markzd2globalz12zc0zz__evmodulez00
																						(BgL_idz00_5152, BgL_modz00_4235,
																						4L, BgL_locz00_4238);
																				}
																		}
																	else
																		{	/* Eval/evmodule.scm 372 */
																			return
																				BGl_evcompilezd2errorzd2zz__evcompilez00
																				(BgL_locz00_4238,
																				BGl_string3072z00zz__evmodulez00,
																				BGl_string3086z00zz__evmodulez00,
																				BgL_clausez00_4237);
																		}
																}
														}
													else
														{	/* Eval/evmodule.scm 372 */
															obj_t BgL_cdrzd2343zd2_5156;

															BgL_cdrzd2343zd2_5156 =
																CDR(((obj_t) BgL_sz00_4239));
															if (
																(CAR(
																		((obj_t) BgL_sz00_4239)) ==
																	BGl_symbol3099z00zz__evmodulez00))
																{	/* Eval/evmodule.scm 372 */
																	if (PAIRP(BgL_cdrzd2343zd2_5156))
																		{	/* Eval/evmodule.scm 372 */
																			obj_t BgL_carzd2346zd2_5159;

																			BgL_carzd2346zd2_5159 =
																				CAR(BgL_cdrzd2343zd2_5156);
																			if (SYMBOLP(BgL_carzd2346zd2_5159))
																				{	/* Eval/evmodule.scm 372 */
																					if (BgL_classpz00_4236)
																						{	/* Eval/evmodule.scm 353 */
																							return
																								BGl_evcompilezd2errorzd2zz__evcompilez00
																								(BgL_locz00_4238,
																								BGl_string3072z00zz__evmodulez00,
																								BGl_string3101z00zz__evmodulez00,
																								BgL_clausez00_4237);
																						}
																					else
																						{	/* Eval/evmodule.scm 353 */
																							return BFALSE;
																						}
																				}
																			else
																				{	/* Eval/evmodule.scm 372 */
																					obj_t BgL_carzd2375zd2_5160;

																					BgL_carzd2375zd2_5160 =
																						CAR(((obj_t) BgL_sz00_4239));
																					if (SYMBOLP(BgL_carzd2375zd2_5160))
																						{	/* Eval/evmodule.scm 372 */
																							if (BgL_classpz00_4236)
																								{	/* Eval/evmodule.scm 365 */
																									return BFALSE;
																								}
																							else
																								{	/* Eval/evmodule.scm 366 */
																									obj_t BgL_idz00_5162;

																									BgL_idz00_5162 =
																										BGl_untypezd2identzd2zz__evmodulez00
																										(BgL_carzd2375zd2_5160);
																									{	/* Eval/evmodule.scm 328 */
																										obj_t BgL_gz00_5163;

																										{	/* Eval/evmodule.scm 328 */
																											obj_t BgL_idz00_5164;

																											if (SYMBOLP
																												(BgL_idz00_5162))
																												{	/* Eval/evmodule.scm 328 */
																													BgL_idz00_5164 =
																														BgL_idz00_5162;
																												}
																											else
																												{
																													obj_t BgL_auxz00_6555;

																													BgL_auxz00_6555 =
																														BGl_typezd2errorzd2zz__errorz00
																														(BGl_string3036z00zz__evmodulez00,
																														BINT(13270L),
																														BGl_string3093z00zz__evmodulez00,
																														BGl_string3040z00zz__evmodulez00,
																														BgL_idz00_5162);
																													FAILURE
																														(BgL_auxz00_6555,
																														BFALSE, BFALSE);
																												}
																											{	/* Eval/evmodule.scm 328 */
																												obj_t BgL_v1213z00_5165;

																												BgL_v1213z00_5165 =
																													create_vector(5L);
																												VECTOR_SET
																													(BgL_v1213z00_5165,
																													0L, BINT(2L));
																												VECTOR_SET
																													(BgL_v1213z00_5165,
																													1L, BgL_idz00_5164);
																												VECTOR_SET
																													(BgL_v1213z00_5165,
																													2L, BUNSPEC);
																												VECTOR_SET
																													(BgL_v1213z00_5165,
																													3L, BgL_modz00_4235);
																												VECTOR_SET
																													(BgL_v1213z00_5165,
																													4L, BgL_locz00_4238);
																												BgL_gz00_5163 =
																													BgL_v1213z00_5165;
																											}
																										}
																										{	/* Eval/evmodule.scm 329 */
																											obj_t BgL_auxz00_6566;

																											if (SYMBOLP
																												(BgL_idz00_5162))
																												{	/* Eval/evmodule.scm 329 */
																													BgL_auxz00_6566 =
																														BgL_idz00_5162;
																												}
																											else
																												{
																													obj_t BgL_auxz00_6569;

																													BgL_auxz00_6569 =
																														BGl_typezd2errorzd2zz__errorz00
																														(BGl_string3036z00zz__evmodulez00,
																														BINT(13317L),
																														BGl_string3093z00zz__evmodulez00,
																														BGl_string3040z00zz__evmodulez00,
																														BgL_idz00_5162);
																													FAILURE
																														(BgL_auxz00_6569,
																														BFALSE, BFALSE);
																												}
																											BGl_evmodulezd2bindzd2globalz12z12zz__evmodulez00
																												(BgL_modz00_4235,
																												BgL_auxz00_6566,
																												BgL_gz00_5163,
																												BgL_locz00_4238);
																										}
																										BgL_gz00_5163;
																									}
																									return
																										BGl_markzd2globalz12zc0zz__evmodulez00
																										(BgL_idz00_5162,
																										BgL_modz00_4235, 4L,
																										BgL_locz00_4238);
																								}
																						}
																					else
																						{	/* Eval/evmodule.scm 372 */
																							return
																								BGl_evcompilezd2errorzd2zz__evcompilez00
																								(BgL_locz00_4238,
																								BGl_string3072z00zz__evmodulez00,
																								BGl_string3086z00zz__evmodulez00,
																								BgL_clausez00_4237);
																						}
																				}
																		}
																	else
																		{	/* Eval/evmodule.scm 372 */
																			obj_t BgL_carzd2384zd2_5166;

																			BgL_carzd2384zd2_5166 =
																				CAR(((obj_t) BgL_sz00_4239));
																			if (SYMBOLP(BgL_carzd2384zd2_5166))
																				{	/* Eval/evmodule.scm 372 */
																					if (BgL_classpz00_4236)
																						{	/* Eval/evmodule.scm 365 */
																							return BFALSE;
																						}
																					else
																						{	/* Eval/evmodule.scm 366 */
																							obj_t BgL_idz00_5168;

																							BgL_idz00_5168 =
																								BGl_untypezd2identzd2zz__evmodulez00
																								(BgL_carzd2384zd2_5166);
																							{	/* Eval/evmodule.scm 328 */
																								obj_t BgL_gz00_5169;

																								{	/* Eval/evmodule.scm 328 */
																									obj_t BgL_idz00_5170;

																									if (SYMBOLP(BgL_idz00_5168))
																										{	/* Eval/evmodule.scm 328 */
																											BgL_idz00_5170 =
																												BgL_idz00_5168;
																										}
																									else
																										{
																											obj_t BgL_auxz00_6584;

																											BgL_auxz00_6584 =
																												BGl_typezd2errorzd2zz__errorz00
																												(BGl_string3036z00zz__evmodulez00,
																												BINT(13270L),
																												BGl_string3093z00zz__evmodulez00,
																												BGl_string3040z00zz__evmodulez00,
																												BgL_idz00_5168);
																											FAILURE(BgL_auxz00_6584,
																												BFALSE, BFALSE);
																										}
																									{	/* Eval/evmodule.scm 328 */
																										obj_t BgL_v1213z00_5171;

																										BgL_v1213z00_5171 =
																											create_vector(5L);
																										VECTOR_SET
																											(BgL_v1213z00_5171, 0L,
																											BINT(2L));
																										VECTOR_SET
																											(BgL_v1213z00_5171, 1L,
																											BgL_idz00_5170);
																										VECTOR_SET
																											(BgL_v1213z00_5171, 2L,
																											BUNSPEC);
																										VECTOR_SET
																											(BgL_v1213z00_5171, 3L,
																											BgL_modz00_4235);
																										VECTOR_SET
																											(BgL_v1213z00_5171, 4L,
																											BgL_locz00_4238);
																										BgL_gz00_5169 =
																											BgL_v1213z00_5171;
																									}
																								}
																								{	/* Eval/evmodule.scm 329 */
																									obj_t BgL_auxz00_6595;

																									if (SYMBOLP(BgL_idz00_5168))
																										{	/* Eval/evmodule.scm 329 */
																											BgL_auxz00_6595 =
																												BgL_idz00_5168;
																										}
																									else
																										{
																											obj_t BgL_auxz00_6598;

																											BgL_auxz00_6598 =
																												BGl_typezd2errorzd2zz__errorz00
																												(BGl_string3036z00zz__evmodulez00,
																												BINT(13317L),
																												BGl_string3093z00zz__evmodulez00,
																												BGl_string3040z00zz__evmodulez00,
																												BgL_idz00_5168);
																											FAILURE(BgL_auxz00_6598,
																												BFALSE, BFALSE);
																										}
																									BGl_evmodulezd2bindzd2globalz12z12zz__evmodulez00
																										(BgL_modz00_4235,
																										BgL_auxz00_6595,
																										BgL_gz00_5169,
																										BgL_locz00_4238);
																								}
																								BgL_gz00_5169;
																							}
																							return
																								BGl_markzd2globalz12zc0zz__evmodulez00
																								(BgL_idz00_5168,
																								BgL_modz00_4235, 4L,
																								BgL_locz00_4238);
																						}
																				}
																			else
																				{	/* Eval/evmodule.scm 372 */
																					return
																						BGl_evcompilezd2errorzd2zz__evcompilez00
																						(BgL_locz00_4238,
																						BGl_string3072z00zz__evmodulez00,
																						BGl_string3086z00zz__evmodulez00,
																						BgL_clausez00_4237);
																				}
																		}
																}
															else
																{	/* Eval/evmodule.scm 372 */
																	obj_t BgL_carzd2391zd2_5172;
																	obj_t BgL_cdrzd2392zd2_5173;

																	BgL_carzd2391zd2_5172 =
																		CAR(((obj_t) BgL_sz00_4239));
																	BgL_cdrzd2392zd2_5173 =
																		CDR(((obj_t) BgL_sz00_4239));
																	{

																		if (
																			(BgL_carzd2391zd2_5172 ==
																				BGl_symbol3103z00zz__evmodulez00))
																			{	/* Eval/evmodule.scm 372 */
																			BgL_kapzd2393zd2_5176:
																				if (PAIRP(BgL_cdrzd2392zd2_5173))
																					{	/* Eval/evmodule.scm 372 */
																						obj_t BgL_carzd2395zd2_5177;

																						BgL_carzd2395zd2_5177 =
																							CAR(BgL_cdrzd2392zd2_5173);
																						if (SYMBOLP(BgL_carzd2395zd2_5177))
																							{	/* Eval/evmodule.scm 372 */
																								BgL_sz00_5085 =
																									BgL_carzd2395zd2_5177;
																								if (BgL_classpz00_4236)
																									{	/* Eval/evmodule.scm 360 */
																										return BFALSE;
																									}
																								else
																									{	/* Eval/evmodule.scm 361 */
																										obj_t BgL_idz00_5086;

																										BgL_idz00_5086 =
																											BGl_untypezd2identzd2zz__evmodulez00
																											(BgL_sz00_5085);
																										{	/* Eval/evmodule.scm 362 */
																											obj_t BgL_arg1507z00_5087;

																											{	/* Eval/evmodule.scm 362 */
																												obj_t
																													BgL_arg1508z00_5088;
																												{	/* Eval/evmodule.scm 362 */
																													obj_t
																														BgL_arg1509z00_5089;
																													{	/* Eval/evmodule.scm 362 */
																														obj_t
																															BgL_arg1510z00_5090;
																														{	/* Eval/evmodule.scm 362 */
																															obj_t
																																BgL_arg1511z00_5091;
																															BgL_arg1511z00_5091
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_evmodulezd2uninitializa7edz75zz__evmodulez00,
																																BNIL);
																															BgL_arg1510z00_5090
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_symbol3074z00zz__evmodulez00,
																																BgL_arg1511z00_5091);
																														}
																														BgL_arg1509z00_5089
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_arg1510z00_5090,
																															BNIL);
																													}
																													BgL_arg1508z00_5088 =
																														MAKE_YOUNG_PAIR
																														(BgL_idz00_5086,
																														BgL_arg1509z00_5089);
																												}
																												BgL_arg1507z00_5087 =
																													MAKE_YOUNG_PAIR
																													(BGl_symbol3087z00zz__evmodulez00,
																													BgL_arg1508z00_5088);
																											}
																											{	/* Eval/evmodule.scm 387 */
																												obj_t BgL_expz00_5092;

																												if (CBOOL
																													(BgL_locz00_4238))
																													{	/* Eval/evmodule.scm 388 */
																														obj_t
																															BgL_arg1515z00_5093;
																														obj_t
																															BgL_arg1516z00_5094;
																														BgL_arg1515z00_5093
																															=
																															CAR
																															(BgL_arg1507z00_5087);
																														BgL_arg1516z00_5094
																															=
																															CDR
																															(BgL_arg1507z00_5087);
																														{	/* Eval/evmodule.scm 388 */
																															obj_t
																																BgL_res2392z00_5095;
																															BgL_res2392z00_5095
																																=
																																MAKE_YOUNG_EPAIR
																																(BgL_arg1515z00_5093,
																																BgL_arg1516z00_5094,
																																BgL_locz00_4238);
																															BgL_expz00_5092 =
																																BgL_res2392z00_5095;
																														}
																													}
																												else
																													{	/* Eval/evmodule.scm 387 */
																														BgL_expz00_5092 =
																															BgL_arg1507z00_5087;
																													}
																												BGl_evalz00zz__evalz00
																													(BgL_expz00_5092,
																													BgL_modz00_4235);
																											}
																										}
																										{	/* Eval/evmodule.scm 305 */
																											obj_t BgL_vz00_5096;

																											{	/* Eval/evmodule.scm 305 */
																												obj_t BgL_auxz00_6629;

																												if (SYMBOLP
																													(BgL_idz00_5086))
																													{	/* Eval/evmodule.scm 305 */
																														BgL_auxz00_6629 =
																															BgL_idz00_5086;
																													}
																												else
																													{
																														obj_t
																															BgL_auxz00_6632;
																														BgL_auxz00_6632 =
																															BGl_typezd2errorzd2zz__errorz00
																															(BGl_string3036z00zz__evmodulez00,
																															BINT(12237L),
																															BGl_string3089z00zz__evmodulez00,
																															BGl_string3040z00zz__evmodulez00,
																															BgL_idz00_5086);
																														FAILURE
																															(BgL_auxz00_6632,
																															BFALSE, BFALSE);
																													}
																												BgL_vz00_5096 =
																													BGl_evmodulezd2findzd2globalz00zz__evmodulez00
																													(BgL_modz00_4235,
																													BgL_auxz00_6629);
																											}
																											{	/* Eval/evmodule.scm 306 */
																												bool_t
																													BgL_test3620z00_6637;
																												if (VECTORP
																													(BgL_vz00_5096))
																													{	/* Eval/evmodule.scm 306 */
																														BgL_test3620z00_6637
																															=
																															(VECTOR_LENGTH
																															(BgL_vz00_5096) ==
																															5L);
																													}
																												else
																													{	/* Eval/evmodule.scm 306 */
																														BgL_test3620z00_6637
																															= ((bool_t) 0);
																													}
																												if (BgL_test3620z00_6637)
																													{	/* Eval/evmodule.scm 306 */
																														VECTOR_SET
																															(BgL_vz00_5096,
																															0L, BINT(4L));
																														return
																															BgL_idz00_5086;
																													}
																												else
																													{	/* Eval/evmodule.scm 306 */
																														return
																															BGl_evcompilezd2errorzd2zz__evcompilez00
																															(BgL_locz00_4238,
																															BGl_string3072z00zz__evmodulez00,
																															BGl_string3084z00zz__evmodulez00,
																															BgL_idz00_5086);
																													}
																											}
																										}
																									}
																							}
																						else
																							{	/* Eval/evmodule.scm 372 */
																								obj_t BgL_carzd2402zd2_5178;

																								BgL_carzd2402zd2_5178 =
																									CAR(((obj_t) BgL_sz00_4239));
																								if (SYMBOLP
																									(BgL_carzd2402zd2_5178))
																									{	/* Eval/evmodule.scm 372 */
																										if (BgL_classpz00_4236)
																											{	/* Eval/evmodule.scm 365 */
																												return BFALSE;
																											}
																										else
																											{	/* Eval/evmodule.scm 366 */
																												obj_t BgL_idz00_5180;

																												BgL_idz00_5180 =
																													BGl_untypezd2identzd2zz__evmodulez00
																													(BgL_carzd2402zd2_5178);
																												{	/* Eval/evmodule.scm 328 */
																													obj_t BgL_gz00_5181;

																													{	/* Eval/evmodule.scm 328 */
																														obj_t
																															BgL_idz00_5182;
																														if (SYMBOLP
																															(BgL_idz00_5180))
																															{	/* Eval/evmodule.scm 328 */
																																BgL_idz00_5182 =
																																	BgL_idz00_5180;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_6653;
																																BgL_auxz00_6653
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string3036z00zz__evmodulez00,
																																	BINT(13270L),
																																	BGl_string3102z00zz__evmodulez00,
																																	BGl_string3040z00zz__evmodulez00,
																																	BgL_idz00_5180);
																																FAILURE
																																	(BgL_auxz00_6653,
																																	BFALSE,
																																	BFALSE);
																															}
																														{	/* Eval/evmodule.scm 328 */
																															obj_t
																																BgL_v1213z00_5183;
																															BgL_v1213z00_5183
																																=
																																create_vector
																																(5L);
																															VECTOR_SET
																																(BgL_v1213z00_5183,
																																0L, BINT(2L));
																															VECTOR_SET
																																(BgL_v1213z00_5183,
																																1L,
																																BgL_idz00_5182);
																															VECTOR_SET
																																(BgL_v1213z00_5183,
																																2L, BUNSPEC);
																															VECTOR_SET
																																(BgL_v1213z00_5183,
																																3L,
																																BgL_modz00_4235);
																															VECTOR_SET
																																(BgL_v1213z00_5183,
																																4L,
																																BgL_locz00_4238);
																															BgL_gz00_5181 =
																																BgL_v1213z00_5183;
																														}
																													}
																													{	/* Eval/evmodule.scm 329 */
																														obj_t
																															BgL_auxz00_6664;
																														if (SYMBOLP
																															(BgL_idz00_5180))
																															{	/* Eval/evmodule.scm 329 */
																																BgL_auxz00_6664
																																	=
																																	BgL_idz00_5180;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_6667;
																																BgL_auxz00_6667
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string3036z00zz__evmodulez00,
																																	BINT(13317L),
																																	BGl_string3102z00zz__evmodulez00,
																																	BGl_string3040z00zz__evmodulez00,
																																	BgL_idz00_5180);
																																FAILURE
																																	(BgL_auxz00_6667,
																																	BFALSE,
																																	BFALSE);
																															}
																														BGl_evmodulezd2bindzd2globalz12z12zz__evmodulez00
																															(BgL_modz00_4235,
																															BgL_auxz00_6664,
																															BgL_gz00_5181,
																															BgL_locz00_4238);
																													}
																													BgL_gz00_5181;
																												}
																												return
																													BGl_markzd2globalz12zc0zz__evmodulez00
																													(BgL_idz00_5180,
																													BgL_modz00_4235, 4L,
																													BgL_locz00_4238);
																											}
																									}
																								else
																									{	/* Eval/evmodule.scm 372 */
																										return
																											BGl_evcompilezd2errorzd2zz__evcompilez00
																											(BgL_locz00_4238,
																											BGl_string3072z00zz__evmodulez00,
																											BGl_string3086z00zz__evmodulez00,
																											BgL_clausez00_4237);
																									}
																							}
																					}
																				else
																					{	/* Eval/evmodule.scm 372 */
																						obj_t BgL_carzd2409zd2_5184;

																						BgL_carzd2409zd2_5184 =
																							CAR(((obj_t) BgL_sz00_4239));
																						if (SYMBOLP(BgL_carzd2409zd2_5184))
																							{	/* Eval/evmodule.scm 372 */
																								if (BgL_classpz00_4236)
																									{	/* Eval/evmodule.scm 365 */
																										return BFALSE;
																									}
																								else
																									{	/* Eval/evmodule.scm 366 */
																										obj_t BgL_idz00_5186;

																										BgL_idz00_5186 =
																											BGl_untypezd2identzd2zz__evmodulez00
																											(BgL_carzd2409zd2_5184);
																										{	/* Eval/evmodule.scm 328 */
																											obj_t BgL_gz00_5187;

																											{	/* Eval/evmodule.scm 328 */
																												obj_t BgL_idz00_5188;

																												if (SYMBOLP
																													(BgL_idz00_5186))
																													{	/* Eval/evmodule.scm 328 */
																														BgL_idz00_5188 =
																															BgL_idz00_5186;
																													}
																												else
																													{
																														obj_t
																															BgL_auxz00_6682;
																														BgL_auxz00_6682 =
																															BGl_typezd2errorzd2zz__errorz00
																															(BGl_string3036z00zz__evmodulez00,
																															BINT(13270L),
																															BGl_string3102z00zz__evmodulez00,
																															BGl_string3040z00zz__evmodulez00,
																															BgL_idz00_5186);
																														FAILURE
																															(BgL_auxz00_6682,
																															BFALSE, BFALSE);
																													}
																												{	/* Eval/evmodule.scm 328 */
																													obj_t
																														BgL_v1213z00_5189;
																													BgL_v1213z00_5189 =
																														create_vector(5L);
																													VECTOR_SET
																														(BgL_v1213z00_5189,
																														0L, BINT(2L));
																													VECTOR_SET
																														(BgL_v1213z00_5189,
																														1L, BgL_idz00_5188);
																													VECTOR_SET
																														(BgL_v1213z00_5189,
																														2L, BUNSPEC);
																													VECTOR_SET
																														(BgL_v1213z00_5189,
																														3L,
																														BgL_modz00_4235);
																													VECTOR_SET
																														(BgL_v1213z00_5189,
																														4L,
																														BgL_locz00_4238);
																													BgL_gz00_5187 =
																														BgL_v1213z00_5189;
																												}
																											}
																											{	/* Eval/evmodule.scm 329 */
																												obj_t BgL_auxz00_6693;

																												if (SYMBOLP
																													(BgL_idz00_5186))
																													{	/* Eval/evmodule.scm 329 */
																														BgL_auxz00_6693 =
																															BgL_idz00_5186;
																													}
																												else
																													{
																														obj_t
																															BgL_auxz00_6696;
																														BgL_auxz00_6696 =
																															BGl_typezd2errorzd2zz__errorz00
																															(BGl_string3036z00zz__evmodulez00,
																															BINT(13317L),
																															BGl_string3102z00zz__evmodulez00,
																															BGl_string3040z00zz__evmodulez00,
																															BgL_idz00_5186);
																														FAILURE
																															(BgL_auxz00_6696,
																															BFALSE, BFALSE);
																													}
																												BGl_evmodulezd2bindzd2globalz12z12zz__evmodulez00
																													(BgL_modz00_4235,
																													BgL_auxz00_6693,
																													BgL_gz00_5187,
																													BgL_locz00_4238);
																											}
																											BgL_gz00_5187;
																										}
																										return
																											BGl_markzd2globalz12zc0zz__evmodulez00
																											(BgL_idz00_5186,
																											BgL_modz00_4235, 4L,
																											BgL_locz00_4238);
																									}
																							}
																						else
																							{	/* Eval/evmodule.scm 372 */
																								return
																									BGl_evcompilezd2errorzd2zz__evcompilez00
																									(BgL_locz00_4238,
																									BGl_string3072z00zz__evmodulez00,
																									BGl_string3086z00zz__evmodulez00,
																									BgL_clausez00_4237);
																							}
																					}
																			}
																		else
																			{	/* Eval/evmodule.scm 372 */
																				if (
																					(BgL_carzd2391zd2_5172 ==
																						BGl_symbol3105z00zz__evmodulez00))
																					{	/* Eval/evmodule.scm 372 */
																						goto BgL_kapzd2393zd2_5176;
																					}
																				else
																					{	/* Eval/evmodule.scm 372 */
																						obj_t BgL_carzd2416zd2_5190;

																						BgL_carzd2416zd2_5190 =
																							CAR(((obj_t) BgL_sz00_4239));
																						if (SYMBOLP(BgL_carzd2416zd2_5190))
																							{	/* Eval/evmodule.scm 372 */
																								if (BgL_classpz00_4236)
																									{	/* Eval/evmodule.scm 365 */
																										return BFALSE;
																									}
																								else
																									{	/* Eval/evmodule.scm 366 */
																										obj_t BgL_idz00_5192;

																										BgL_idz00_5192 =
																											BGl_untypezd2identzd2zz__evmodulez00
																											(BgL_carzd2416zd2_5190);
																										{	/* Eval/evmodule.scm 328 */
																											obj_t BgL_gz00_5193;

																											{	/* Eval/evmodule.scm 328 */
																												obj_t BgL_idz00_5194;

																												if (SYMBOLP
																													(BgL_idz00_5192))
																													{	/* Eval/evmodule.scm 328 */
																														BgL_idz00_5194 =
																															BgL_idz00_5192;
																													}
																												else
																													{
																														obj_t
																															BgL_auxz00_6713;
																														BgL_auxz00_6713 =
																															BGl_typezd2errorzd2zz__errorz00
																															(BGl_string3036z00zz__evmodulez00,
																															BINT(13270L),
																															BGl_string3093z00zz__evmodulez00,
																															BGl_string3040z00zz__evmodulez00,
																															BgL_idz00_5192);
																														FAILURE
																															(BgL_auxz00_6713,
																															BFALSE, BFALSE);
																													}
																												{	/* Eval/evmodule.scm 328 */
																													obj_t
																														BgL_v1213z00_5195;
																													BgL_v1213z00_5195 =
																														create_vector(5L);
																													VECTOR_SET
																														(BgL_v1213z00_5195,
																														0L, BINT(2L));
																													VECTOR_SET
																														(BgL_v1213z00_5195,
																														1L, BgL_idz00_5194);
																													VECTOR_SET
																														(BgL_v1213z00_5195,
																														2L, BUNSPEC);
																													VECTOR_SET
																														(BgL_v1213z00_5195,
																														3L,
																														BgL_modz00_4235);
																													VECTOR_SET
																														(BgL_v1213z00_5195,
																														4L,
																														BgL_locz00_4238);
																													BgL_gz00_5193 =
																														BgL_v1213z00_5195;
																												}
																											}
																											{	/* Eval/evmodule.scm 329 */
																												obj_t BgL_auxz00_6724;

																												if (SYMBOLP
																													(BgL_idz00_5192))
																													{	/* Eval/evmodule.scm 329 */
																														BgL_auxz00_6724 =
																															BgL_idz00_5192;
																													}
																												else
																													{
																														obj_t
																															BgL_auxz00_6727;
																														BgL_auxz00_6727 =
																															BGl_typezd2errorzd2zz__errorz00
																															(BGl_string3036z00zz__evmodulez00,
																															BINT(13317L),
																															BGl_string3093z00zz__evmodulez00,
																															BGl_string3040z00zz__evmodulez00,
																															BgL_idz00_5192);
																														FAILURE
																															(BgL_auxz00_6727,
																															BFALSE, BFALSE);
																													}
																												BGl_evmodulezd2bindzd2globalz12z12zz__evmodulez00
																													(BgL_modz00_4235,
																													BgL_auxz00_6724,
																													BgL_gz00_5193,
																													BgL_locz00_4238);
																											}
																											BgL_gz00_5193;
																										}
																										return
																											BGl_markzd2globalz12zc0zz__evmodulez00
																											(BgL_idz00_5192,
																											BgL_modz00_4235, 4L,
																											BgL_locz00_4238);
																									}
																							}
																						else
																							{	/* Eval/evmodule.scm 372 */
																								return
																									BGl_evcompilezd2errorzd2zz__evcompilez00
																									(BgL_locz00_4238,
																									BGl_string3072z00zz__evmodulez00,
																									BGl_string3086z00zz__evmodulez00,
																									BgL_clausez00_4237);
																							}
																					}
																			}
																	}
																}
														}
												}
										}
								}
							else
								{	/* Eval/evmodule.scm 372 */
									return
										BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_4238,
										BGl_string3072z00zz__evmodulez00,
										BGl_string3086z00zz__evmodulez00, BgL_clausez00_4237);
								}
						}
				}
			}
		}

	}



/* evmodule-export */
	obj_t BGl_evmodulezd2exportzd2zz__evmodulez00(obj_t BgL_modz00_86,
		obj_t BgL_clausez00_87, obj_t BgL_locz00_88, bool_t BgL_classpz00_89)
	{
		{	/* Eval/evmodule.scm 395 */
			{	/* Eval/evmodule.scm 444 */
				obj_t BgL_evmodulezd2exportzd2clausez00_4240;

				{
					int BgL_tmpz00_6735;

					BgL_tmpz00_6735 = (int) (3L);
					BgL_evmodulezd2exportzd2clausez00_4240 =
						MAKE_L_PROCEDURE
						(BGl_z62evmodulezd2exportzd2clausez62zz__evmodulez00,
						BgL_tmpz00_6735);
				}
				PROCEDURE_L_SET(BgL_evmodulezd2exportzd2clausez00_4240,
					(int) (0L), BgL_modz00_86);
				PROCEDURE_L_SET(BgL_evmodulezd2exportzd2clausez00_4240,
					(int) (1L), BBOOL(BgL_classpz00_89));
				PROCEDURE_L_SET(BgL_evmodulezd2exportzd2clausez00_4240,
					(int) (2L), BgL_clausez00_87);
				if (BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_clausez00_87))
					{	/* Eval/evmodule.scm 447 */
						obj_t BgL_arg1520z00_1603;

						{	/* Eval/evmodule.scm 447 */
							obj_t BgL_pairz00_3544;

							if (PAIRP(BgL_clausez00_87))
								{	/* Eval/evmodule.scm 447 */
									BgL_pairz00_3544 = BgL_clausez00_87;
								}
							else
								{
									obj_t BgL_auxz00_6749;

									BgL_auxz00_6749 =
										BGl_typezd2errorzd2zz__errorz00
										(BGl_string3036z00zz__evmodulez00, BINT(17619L),
										BGl_string3108z00zz__evmodulez00,
										BGl_string3038z00zz__evmodulez00, BgL_clausez00_87);
									FAILURE(BgL_auxz00_6749, BFALSE, BFALSE);
								}
							BgL_arg1520z00_1603 = CDR(BgL_pairz00_3544);
						}
						return
							BBOOL(BGl_forzd2eachzf2locz20zz__evmodulez00(BgL_locz00_88,
								BgL_evmodulezd2exportzd2clausez00_4240, BgL_arg1520z00_1603));
					}
				else
					{	/* Eval/evmodule.scm 445 */
						return
							BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_88,
							BGl_string3072z00zz__evmodulez00,
							BGl_string3109z00zz__evmodulez00, BgL_clausez00_87);
					}
			}
		}

	}



/* &evmodule-export-clause */
	obj_t BGl_z62evmodulezd2exportzd2clausez62zz__evmodulez00(obj_t
		BgL_envz00_4241, obj_t BgL_locz00_4245, obj_t BgL_sz00_4246)
	{
		{	/* Eval/evmodule.scm 444 */
			{	/* Eval/evmodule.scm 444 */
				obj_t BgL_modz00_4242;
				bool_t BgL_classpz00_4243;
				obj_t BgL_clausez00_4244;

				BgL_modz00_4242 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_4241, (int) (0L)));
				BgL_classpz00_4243 =
					CBOOL(PROCEDURE_L_REF(BgL_envz00_4241, (int) (1L)));
				BgL_clausez00_4244 = PROCEDURE_L_REF(BgL_envz00_4241, (int) (2L));
				{
					obj_t BgL_claz00_5249;
					obj_t BgL_clausesz00_5250;
					obj_t BgL_claz00_5239;
					obj_t BgL_clausesz00_5240;
					obj_t BgL_claz00_5229;
					obj_t BgL_clausesz00_5230;
					obj_t BgL_sz00_5214;
					obj_t BgL_sz00_5205;

					if (SYMBOLP(BgL_sz00_4246))
						{	/* Eval/evmodule.scm 444 */
							if (BgL_classpz00_4243)
								{	/* Eval/evmodule.scm 399 */
									return BFALSE;
								}
							else
								{	/* Eval/evmodule.scm 400 */
									obj_t BgL_idz00_5259;

									BgL_idz00_5259 =
										BGl_untypezd2identzd2zz__evmodulez00(BgL_sz00_4246);
									{	/* Eval/evmodule.scm 328 */
										obj_t BgL_gz00_5260;

										{	/* Eval/evmodule.scm 328 */
											obj_t BgL_idz00_5261;

											if (SYMBOLP(BgL_idz00_5259))
												{	/* Eval/evmodule.scm 328 */
													BgL_idz00_5261 = BgL_idz00_5259;
												}
											else
												{
													obj_t BgL_auxz00_6771;

													BgL_auxz00_6771 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3036z00zz__evmodulez00, BINT(13270L),
														BGl_string3115z00zz__evmodulez00,
														BGl_string3040z00zz__evmodulez00, BgL_idz00_5259);
													FAILURE(BgL_auxz00_6771, BFALSE, BFALSE);
												}
											{	/* Eval/evmodule.scm 328 */
												obj_t BgL_v1213z00_5262;

												BgL_v1213z00_5262 = create_vector(5L);
												VECTOR_SET(BgL_v1213z00_5262, 0L, BINT(2L));
												VECTOR_SET(BgL_v1213z00_5262, 1L, BgL_idz00_5261);
												VECTOR_SET(BgL_v1213z00_5262, 2L, BUNSPEC);
												VECTOR_SET(BgL_v1213z00_5262, 3L, BgL_modz00_4242);
												VECTOR_SET(BgL_v1213z00_5262, 4L, BgL_locz00_4245);
												BgL_gz00_5260 = BgL_v1213z00_5262;
											}
										}
										{	/* Eval/evmodule.scm 329 */
											obj_t BgL_auxz00_6782;

											if (SYMBOLP(BgL_idz00_5259))
												{	/* Eval/evmodule.scm 329 */
													BgL_auxz00_6782 = BgL_idz00_5259;
												}
											else
												{
													obj_t BgL_auxz00_6785;

													BgL_auxz00_6785 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3036z00zz__evmodulez00, BINT(13317L),
														BGl_string3115z00zz__evmodulez00,
														BGl_string3040z00zz__evmodulez00, BgL_idz00_5259);
													FAILURE(BgL_auxz00_6785, BFALSE, BFALSE);
												}
											BGl_evmodulezd2bindzd2globalz12z12zz__evmodulez00
												(BgL_modz00_4242, BgL_auxz00_6782, BgL_gz00_5260,
												BgL_locz00_4245);
										}
										BgL_gz00_5260;
									}
									{	/* Eval/evmodule.scm 381 */
										obj_t BgL_arg1512z00_5263;

										{	/* Eval/evmodule.scm 381 */
											obj_t BgL_arg1513z00_5264;
											obj_t BgL_arg1514z00_5265;

											BgL_arg1513z00_5264 =
												MAKE_YOUNG_PAIR(BgL_idz00_5259, BgL_modz00_4242);
											BgL_arg1514z00_5265 =
												STRUCT_REF(BgL_modz00_4242, (int) (4L));
											BgL_arg1512z00_5263 =
												MAKE_YOUNG_PAIR(BgL_arg1513z00_5264,
												BgL_arg1514z00_5265);
										}
										{	/* Eval/evmodule.scm 129 */
											int BgL_tmpz00_6794;

											BgL_tmpz00_6794 = (int) (4L);
											STRUCT_SET(BgL_modz00_4242, BgL_tmpz00_6794,
												BgL_arg1512z00_5263);
									}}
									{	/* Eval/evmodule.scm 305 */
										obj_t BgL_vz00_5266;

										{	/* Eval/evmodule.scm 305 */
											obj_t BgL_auxz00_6797;

											if (SYMBOLP(BgL_idz00_5259))
												{	/* Eval/evmodule.scm 305 */
													BgL_auxz00_6797 = BgL_idz00_5259;
												}
											else
												{
													obj_t BgL_auxz00_6800;

													BgL_auxz00_6800 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3036z00zz__evmodulez00, BINT(12237L),
														BGl_string3115z00zz__evmodulez00,
														BGl_string3040z00zz__evmodulez00, BgL_idz00_5259);
													FAILURE(BgL_auxz00_6800, BFALSE, BFALSE);
												}
											BgL_vz00_5266 =
												BGl_evmodulezd2findzd2globalz00zz__evmodulez00
												(BgL_modz00_4242, BgL_auxz00_6797);
										}
										{	/* Eval/evmodule.scm 306 */
											bool_t BgL_test3642z00_6805;

											if (VECTORP(BgL_vz00_5266))
												{	/* Eval/evmodule.scm 306 */
													BgL_test3642z00_6805 =
														(VECTOR_LENGTH(BgL_vz00_5266) == 5L);
												}
											else
												{	/* Eval/evmodule.scm 306 */
													BgL_test3642z00_6805 = ((bool_t) 0);
												}
											if (BgL_test3642z00_6805)
												{	/* Eval/evmodule.scm 306 */
													VECTOR_SET(BgL_vz00_5266, 0L, BINT(3L));
													return BgL_idz00_5259;
												}
											else
												{	/* Eval/evmodule.scm 306 */
													return
														BGl_evcompilezd2errorzd2zz__evcompilez00
														(BgL_locz00_4245, BGl_string3072z00zz__evmodulez00,
														BGl_string3084z00zz__evmodulez00, BgL_idz00_5259);
												}
										}
									}
								}
						}
					else
						{	/* Eval/evmodule.scm 444 */
							if (PAIRP(BgL_sz00_4246))
								{	/* Eval/evmodule.scm 444 */
									obj_t BgL_cdrzd2461zd2_5267;

									BgL_cdrzd2461zd2_5267 = CDR(((obj_t) BgL_sz00_4246));
									if (
										(CAR(
												((obj_t) BgL_sz00_4246)) ==
											BGl_symbol3091z00zz__evmodulez00))
										{	/* Eval/evmodule.scm 444 */
											if (PAIRP(BgL_cdrzd2461zd2_5267))
												{	/* Eval/evmodule.scm 444 */
													obj_t BgL_carzd2464zd2_5270;

													BgL_carzd2464zd2_5270 = CAR(BgL_cdrzd2461zd2_5267);
													if (SYMBOLP(BgL_carzd2464zd2_5270))
														{	/* Eval/evmodule.scm 444 */
															BgL_claz00_5249 = BgL_carzd2464zd2_5270;
															BgL_clausesz00_5250 = CDR(BgL_cdrzd2461zd2_5267);
															if (BgL_classpz00_4243)
																{	/* Eval/evmodule.scm 406 */
																	obj_t BgL_identsz00_5251;

																	{	/* Eval/evmodule.scm 406 */
																		obj_t BgL_auxz00_6836;
																		obj_t BgL_auxz00_6827;

																		if (PAIRP(BgL_sz00_4246))
																			{	/* Eval/evmodule.scm 406 */
																				BgL_auxz00_6836 = BgL_sz00_4246;
																			}
																		else
																			{
																				obj_t BgL_auxz00_6839;

																				BgL_auxz00_6839 =
																					BGl_typezd2errorzd2zz__errorz00
																					(BGl_string3036z00zz__evmodulez00,
																					BINT(16228L),
																					BGl_string3114z00zz__evmodulez00,
																					BGl_string3038z00zz__evmodulez00,
																					BgL_sz00_4246);
																				FAILURE(BgL_auxz00_6839, BFALSE,
																					BFALSE);
																			}
																		{	/* Eval/evmodule.scm 406 */
																			bool_t BgL_test3649z00_6828;

																			if (PAIRP(BgL_clausesz00_5250))
																				{	/* Eval/evmodule.scm 406 */
																					BgL_test3649z00_6828 = ((bool_t) 1);
																				}
																			else
																				{	/* Eval/evmodule.scm 406 */
																					BgL_test3649z00_6828 =
																						NULLP(BgL_clausesz00_5250);
																				}
																			if (BgL_test3649z00_6828)
																				{	/* Eval/evmodule.scm 406 */
																					BgL_auxz00_6827 = BgL_clausesz00_5250;
																				}
																			else
																				{
																					obj_t BgL_auxz00_6832;

																					BgL_auxz00_6832 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string3036z00zz__evmodulez00,
																						BINT(16220L),
																						BGl_string3114z00zz__evmodulez00,
																						BGl_string3094z00zz__evmodulez00,
																						BgL_clausesz00_5250);
																					FAILURE(BgL_auxz00_6832, BFALSE,
																						BFALSE);
																				}
																		}
																		BgL_identsz00_5251 =
																			BGl_evalzd2classzd2zz__evobjectz00
																			(BgL_claz00_5249, ((bool_t) 0),
																			BgL_auxz00_6827, BgL_auxz00_6836,
																			BgL_modz00_4242);
																	}
																	{
																		obj_t BgL_l1154z00_5254;

																		BgL_l1154z00_5254 = BgL_identsz00_5251;
																	BgL_zc3z04anonymousza31626ze3z87_5253:
																		if (PAIRP(BgL_l1154z00_5254))
																			{	/* Eval/evmodule.scm 407 */
																				{	/* Eval/evmodule.scm 407 */
																					obj_t BgL_iz00_5255;

																					BgL_iz00_5255 =
																						CAR(BgL_l1154z00_5254);
																					{	/* Eval/evmodule.scm 381 */
																						obj_t BgL_arg1512z00_5256;

																						{	/* Eval/evmodule.scm 381 */
																							obj_t BgL_arg1513z00_5257;
																							obj_t BgL_arg1514z00_5258;

																							BgL_arg1513z00_5257 =
																								MAKE_YOUNG_PAIR(BgL_iz00_5255,
																								BgL_modz00_4242);
																							BgL_arg1514z00_5258 =
																								STRUCT_REF(BgL_modz00_4242,
																								(int) (4L));
																							BgL_arg1512z00_5256 =
																								MAKE_YOUNG_PAIR
																								(BgL_arg1513z00_5257,
																								BgL_arg1514z00_5258);
																						}
																						{	/* Eval/evmodule.scm 129 */
																							int BgL_tmpz00_6851;

																							BgL_tmpz00_6851 = (int) (4L);
																							STRUCT_SET(BgL_modz00_4242,
																								BgL_tmpz00_6851,
																								BgL_arg1512z00_5256);
																				}}}
																				{
																					obj_t BgL_l1154z00_6854;

																					BgL_l1154z00_6854 =
																						CDR(BgL_l1154z00_5254);
																					BgL_l1154z00_5254 = BgL_l1154z00_6854;
																					goto
																						BgL_zc3z04anonymousza31626ze3z87_5253;
																				}
																			}
																		else
																			{	/* Eval/evmodule.scm 407 */
																				if (NULLP(BgL_l1154z00_5254))
																					{	/* Eval/evmodule.scm 407 */
																						return BTRUE;
																					}
																				else
																					{	/* Eval/evmodule.scm 407 */
																						return
																							BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00
																							(BGl_string3079z00zz__evmodulez00,
																							BGl_string3069z00zz__evmodulez00,
																							BgL_l1154z00_5254,
																							BGl_string3036z00zz__evmodulez00,
																							BINT(16239L));
																					}
																			}
																	}
																}
															else
																{	/* Eval/evmodule.scm 405 */
																	return BFALSE;
																}
														}
													else
														{	/* Eval/evmodule.scm 444 */
															obj_t BgL_carzd2514zd2_5271;

															BgL_carzd2514zd2_5271 =
																CAR(((obj_t) BgL_sz00_4246));
															if (SYMBOLP(BgL_carzd2514zd2_5271))
																{	/* Eval/evmodule.scm 444 */
																	BgL_sz00_5205 = BgL_carzd2514zd2_5271;
																BgL_tagzd2449zd2_5199:
																	if (BgL_classpz00_4243)
																		{	/* Eval/evmodule.scm 436 */
																			return BFALSE;
																		}
																	else
																		{	/* Eval/evmodule.scm 437 */
																			obj_t BgL_idz00_5206;

																			BgL_idz00_5206 =
																				BGl_untypezd2identzd2zz__evmodulez00
																				(BgL_sz00_5205);
																			{	/* Eval/evmodule.scm 328 */
																				obj_t BgL_gz00_5207;

																				{	/* Eval/evmodule.scm 328 */
																					obj_t BgL_idz00_5208;

																					if (SYMBOLP(BgL_idz00_5206))
																						{	/* Eval/evmodule.scm 328 */
																							BgL_idz00_5208 = BgL_idz00_5206;
																						}
																					else
																						{
																							obj_t BgL_auxz00_6869;

																							BgL_auxz00_6869 =
																								BGl_typezd2errorzd2zz__errorz00
																								(BGl_string3036z00zz__evmodulez00,
																								BINT(13270L),
																								BGl_string3110z00zz__evmodulez00,
																								BGl_string3040z00zz__evmodulez00,
																								BgL_idz00_5206);
																							FAILURE(BgL_auxz00_6869, BFALSE,
																								BFALSE);
																						}
																					{	/* Eval/evmodule.scm 328 */
																						obj_t BgL_v1213z00_5209;

																						BgL_v1213z00_5209 =
																							create_vector(5L);
																						VECTOR_SET(BgL_v1213z00_5209, 0L,
																							BINT(2L));
																						VECTOR_SET(BgL_v1213z00_5209, 1L,
																							BgL_idz00_5208);
																						VECTOR_SET(BgL_v1213z00_5209, 2L,
																							BUNSPEC);
																						VECTOR_SET(BgL_v1213z00_5209, 3L,
																							BgL_modz00_4242);
																						VECTOR_SET(BgL_v1213z00_5209, 4L,
																							BgL_locz00_4245);
																						BgL_gz00_5207 = BgL_v1213z00_5209;
																					}
																				}
																				{	/* Eval/evmodule.scm 329 */
																					obj_t BgL_auxz00_6880;

																					if (SYMBOLP(BgL_idz00_5206))
																						{	/* Eval/evmodule.scm 329 */
																							BgL_auxz00_6880 = BgL_idz00_5206;
																						}
																					else
																						{
																							obj_t BgL_auxz00_6883;

																							BgL_auxz00_6883 =
																								BGl_typezd2errorzd2zz__errorz00
																								(BGl_string3036z00zz__evmodulez00,
																								BINT(13317L),
																								BGl_string3110z00zz__evmodulez00,
																								BGl_string3040z00zz__evmodulez00,
																								BgL_idz00_5206);
																							FAILURE(BgL_auxz00_6883, BFALSE,
																								BFALSE);
																						}
																					BGl_evmodulezd2bindzd2globalz12z12zz__evmodulez00
																						(BgL_modz00_4242, BgL_auxz00_6880,
																						BgL_gz00_5207, BgL_locz00_4245);
																				}
																				BgL_gz00_5207;
																			}
																			{	/* Eval/evmodule.scm 381 */
																				obj_t BgL_arg1512z00_5210;

																				{	/* Eval/evmodule.scm 381 */
																					obj_t BgL_arg1513z00_5211;
																					obj_t BgL_arg1514z00_5212;

																					BgL_arg1513z00_5211 =
																						MAKE_YOUNG_PAIR(BgL_idz00_5206,
																						BgL_modz00_4242);
																					BgL_arg1514z00_5212 =
																						STRUCT_REF(BgL_modz00_4242,
																						(int) (4L));
																					BgL_arg1512z00_5210 =
																						MAKE_YOUNG_PAIR(BgL_arg1513z00_5211,
																						BgL_arg1514z00_5212);
																				}
																				{	/* Eval/evmodule.scm 129 */
																					int BgL_tmpz00_6892;

																					BgL_tmpz00_6892 = (int) (4L);
																					STRUCT_SET(BgL_modz00_4242,
																						BgL_tmpz00_6892,
																						BgL_arg1512z00_5210);
																			}}
																			{	/* Eval/evmodule.scm 305 */
																				obj_t BgL_vz00_5213;

																				{	/* Eval/evmodule.scm 305 */
																					obj_t BgL_auxz00_6895;

																					if (SYMBOLP(BgL_idz00_5206))
																						{	/* Eval/evmodule.scm 305 */
																							BgL_auxz00_6895 = BgL_idz00_5206;
																						}
																					else
																						{
																							obj_t BgL_auxz00_6898;

																							BgL_auxz00_6898 =
																								BGl_typezd2errorzd2zz__errorz00
																								(BGl_string3036z00zz__evmodulez00,
																								BINT(12237L),
																								BGl_string3110z00zz__evmodulez00,
																								BGl_string3040z00zz__evmodulez00,
																								BgL_idz00_5206);
																							FAILURE(BgL_auxz00_6898, BFALSE,
																								BFALSE);
																						}
																					BgL_vz00_5213 =
																						BGl_evmodulezd2findzd2globalz00zz__evmodulez00
																						(BgL_modz00_4242, BgL_auxz00_6895);
																				}
																				{	/* Eval/evmodule.scm 306 */
																					bool_t BgL_test3659z00_6903;

																					if (VECTORP(BgL_vz00_5213))
																						{	/* Eval/evmodule.scm 306 */
																							BgL_test3659z00_6903 =
																								(VECTOR_LENGTH(BgL_vz00_5213) ==
																								5L);
																						}
																					else
																						{	/* Eval/evmodule.scm 306 */
																							BgL_test3659z00_6903 =
																								((bool_t) 0);
																						}
																					if (BgL_test3659z00_6903)
																						{	/* Eval/evmodule.scm 306 */
																							VECTOR_SET(BgL_vz00_5213, 0L,
																								BINT(4L));
																							return BgL_idz00_5206;
																						}
																					else
																						{	/* Eval/evmodule.scm 306 */
																							return
																								BGl_evcompilezd2errorzd2zz__evcompilez00
																								(BgL_locz00_4245,
																								BGl_string3072z00zz__evmodulez00,
																								BGl_string3084z00zz__evmodulez00,
																								BgL_idz00_5206);
																						}
																				}
																			}
																		}
																}
															else
																{	/* Eval/evmodule.scm 444 */
																	return
																		BGl_evcompilezd2errorzd2zz__evcompilez00
																		(BgL_locz00_4245,
																		BGl_string3072z00zz__evmodulez00,
																		BGl_string3109z00zz__evmodulez00,
																		BgL_clausez00_4244);
																}
														}
												}
											else
												{	/* Eval/evmodule.scm 444 */
													obj_t BgL_carzd2541zd2_5273;

													BgL_carzd2541zd2_5273 = CAR(((obj_t) BgL_sz00_4246));
													if (SYMBOLP(BgL_carzd2541zd2_5273))
														{
															obj_t BgL_sz00_6916;

															BgL_sz00_6916 = BgL_carzd2541zd2_5273;
															BgL_sz00_5205 = BgL_sz00_6916;
															goto BgL_tagzd2449zd2_5199;
														}
													else
														{	/* Eval/evmodule.scm 444 */
															return
																BGl_evcompilezd2errorzd2zz__evcompilez00
																(BgL_locz00_4245,
																BGl_string3072z00zz__evmodulez00,
																BGl_string3109z00zz__evmodulez00,
																BgL_clausez00_4244);
														}
												}
										}
									else
										{	/* Eval/evmodule.scm 444 */
											obj_t BgL_cdrzd2552zd2_5275;

											BgL_cdrzd2552zd2_5275 = CDR(((obj_t) BgL_sz00_4246));
											if (
												(CAR(
														((obj_t) BgL_sz00_4246)) ==
													BGl_symbol3095z00zz__evmodulez00))
												{	/* Eval/evmodule.scm 444 */
													if (PAIRP(BgL_cdrzd2552zd2_5275))
														{	/* Eval/evmodule.scm 444 */
															obj_t BgL_carzd2555zd2_5278;

															BgL_carzd2555zd2_5278 =
																CAR(BgL_cdrzd2552zd2_5275);
															if (SYMBOLP(BgL_carzd2555zd2_5278))
																{	/* Eval/evmodule.scm 444 */
																	BgL_claz00_5239 = BgL_carzd2555zd2_5278;
																	BgL_clausesz00_5240 =
																		CDR(BgL_cdrzd2552zd2_5275);
																	if (BgL_classpz00_4243)
																		{	/* Eval/evmodule.scm 410 */
																			obj_t BgL_identsz00_5241;

																			{	/* Eval/evmodule.scm 410 */
																				obj_t BgL_auxz00_6939;
																				obj_t BgL_auxz00_6930;

																				if (PAIRP(BgL_sz00_4246))
																					{	/* Eval/evmodule.scm 410 */
																						BgL_auxz00_6939 = BgL_sz00_4246;
																					}
																				else
																					{
																						obj_t BgL_auxz00_6942;

																						BgL_auxz00_6942 =
																							BGl_typezd2errorzd2zz__errorz00
																							(BGl_string3036z00zz__evmodulez00,
																							BINT(16416L),
																							BGl_string3113z00zz__evmodulez00,
																							BGl_string3038z00zz__evmodulez00,
																							BgL_sz00_4246);
																						FAILURE(BgL_auxz00_6942, BFALSE,
																							BFALSE);
																					}
																				{	/* Eval/evmodule.scm 410 */
																					bool_t BgL_test3666z00_6931;

																					if (PAIRP(BgL_clausesz00_5240))
																						{	/* Eval/evmodule.scm 410 */
																							BgL_test3666z00_6931 =
																								((bool_t) 1);
																						}
																					else
																						{	/* Eval/evmodule.scm 410 */
																							BgL_test3666z00_6931 =
																								NULLP(BgL_clausesz00_5240);
																						}
																					if (BgL_test3666z00_6931)
																						{	/* Eval/evmodule.scm 410 */
																							BgL_auxz00_6930 =
																								BgL_clausesz00_5240;
																						}
																					else
																						{
																							obj_t BgL_auxz00_6935;

																							BgL_auxz00_6935 =
																								BGl_typezd2errorzd2zz__errorz00
																								(BGl_string3036z00zz__evmodulez00,
																								BINT(16408L),
																								BGl_string3113z00zz__evmodulez00,
																								BGl_string3094z00zz__evmodulez00,
																								BgL_clausesz00_5240);
																							FAILURE(BgL_auxz00_6935, BFALSE,
																								BFALSE);
																						}
																				}
																				BgL_identsz00_5241 =
																					BGl_evalzd2classzd2zz__evobjectz00
																					(BgL_claz00_5239, ((bool_t) 0),
																					BgL_auxz00_6930, BgL_auxz00_6939,
																					BgL_modz00_4242);
																			}
																			{
																				obj_t BgL_l1156z00_5244;

																				BgL_l1156z00_5244 = BgL_identsz00_5241;
																			BgL_zc3z04anonymousza31630ze3z87_5243:
																				if (PAIRP(BgL_l1156z00_5244))
																					{	/* Eval/evmodule.scm 411 */
																						{	/* Eval/evmodule.scm 411 */
																							obj_t BgL_iz00_5245;

																							BgL_iz00_5245 =
																								CAR(BgL_l1156z00_5244);
																							{	/* Eval/evmodule.scm 381 */
																								obj_t BgL_arg1512z00_5246;

																								{	/* Eval/evmodule.scm 381 */
																									obj_t BgL_arg1513z00_5247;
																									obj_t BgL_arg1514z00_5248;

																									BgL_arg1513z00_5247 =
																										MAKE_YOUNG_PAIR
																										(BgL_iz00_5245,
																										BgL_modz00_4242);
																									BgL_arg1514z00_5248 =
																										STRUCT_REF(BgL_modz00_4242,
																										(int) (4L));
																									BgL_arg1512z00_5246 =
																										MAKE_YOUNG_PAIR
																										(BgL_arg1513z00_5247,
																										BgL_arg1514z00_5248);
																								}
																								{	/* Eval/evmodule.scm 129 */
																									int BgL_tmpz00_6954;

																									BgL_tmpz00_6954 = (int) (4L);
																									STRUCT_SET(BgL_modz00_4242,
																										BgL_tmpz00_6954,
																										BgL_arg1512z00_5246);
																						}}}
																						{
																							obj_t BgL_l1156z00_6957;

																							BgL_l1156z00_6957 =
																								CDR(BgL_l1156z00_5244);
																							BgL_l1156z00_5244 =
																								BgL_l1156z00_6957;
																							goto
																								BgL_zc3z04anonymousza31630ze3z87_5243;
																						}
																					}
																				else
																					{	/* Eval/evmodule.scm 411 */
																						if (NULLP(BgL_l1156z00_5244))
																							{	/* Eval/evmodule.scm 411 */
																								return BTRUE;
																							}
																						else
																							{	/* Eval/evmodule.scm 411 */
																								return
																									BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00
																									(BGl_string3079z00zz__evmodulez00,
																									BGl_string3069z00zz__evmodulez00,
																									BgL_l1156z00_5244,
																									BGl_string3036z00zz__evmodulez00,
																									BINT(16427L));
																							}
																					}
																			}
																		}
																	else
																		{	/* Eval/evmodule.scm 409 */
																			return BFALSE;
																		}
																}
															else
																{	/* Eval/evmodule.scm 444 */
																	obj_t BgL_carzd2600zd2_5279;

																	BgL_carzd2600zd2_5279 =
																		CAR(((obj_t) BgL_sz00_4246));
																	if (SYMBOLP(BgL_carzd2600zd2_5279))
																		{
																			obj_t BgL_sz00_6968;

																			BgL_sz00_6968 = BgL_carzd2600zd2_5279;
																			BgL_sz00_5205 = BgL_sz00_6968;
																			goto BgL_tagzd2449zd2_5199;
																		}
																	else
																		{	/* Eval/evmodule.scm 444 */
																			return
																				BGl_evcompilezd2errorzd2zz__evcompilez00
																				(BgL_locz00_4245,
																				BGl_string3072z00zz__evmodulez00,
																				BGl_string3109z00zz__evmodulez00,
																				BgL_clausez00_4244);
																		}
																}
														}
													else
														{	/* Eval/evmodule.scm 444 */
															obj_t BgL_carzd2622zd2_5281;

															BgL_carzd2622zd2_5281 =
																CAR(((obj_t) BgL_sz00_4246));
															if (SYMBOLP(BgL_carzd2622zd2_5281))
																{
																	obj_t BgL_sz00_6974;

																	BgL_sz00_6974 = BgL_carzd2622zd2_5281;
																	BgL_sz00_5205 = BgL_sz00_6974;
																	goto BgL_tagzd2449zd2_5199;
																}
															else
																{	/* Eval/evmodule.scm 444 */
																	return
																		BGl_evcompilezd2errorzd2zz__evcompilez00
																		(BgL_locz00_4245,
																		BGl_string3072z00zz__evmodulez00,
																		BGl_string3109z00zz__evmodulez00,
																		BgL_clausez00_4244);
																}
														}
												}
											else
												{	/* Eval/evmodule.scm 444 */
													obj_t BgL_cdrzd2633zd2_5283;

													BgL_cdrzd2633zd2_5283 = CDR(((obj_t) BgL_sz00_4246));
													if (
														(CAR(
																((obj_t) BgL_sz00_4246)) ==
															BGl_symbol3097z00zz__evmodulez00))
														{	/* Eval/evmodule.scm 444 */
															if (PAIRP(BgL_cdrzd2633zd2_5283))
																{	/* Eval/evmodule.scm 444 */
																	obj_t BgL_carzd2636zd2_5286;

																	BgL_carzd2636zd2_5286 =
																		CAR(BgL_cdrzd2633zd2_5283);
																	if (SYMBOLP(BgL_carzd2636zd2_5286))
																		{	/* Eval/evmodule.scm 444 */
																			BgL_claz00_5229 = BgL_carzd2636zd2_5286;
																			BgL_clausesz00_5230 =
																				CDR(BgL_cdrzd2633zd2_5283);
																			if (BgL_classpz00_4243)
																				{	/* Eval/evmodule.scm 414 */
																					obj_t BgL_identsz00_5231;

																					{	/* Eval/evmodule.scm 414 */
																						obj_t BgL_auxz00_6997;
																						obj_t BgL_auxz00_6988;

																						if (PAIRP(BgL_sz00_4246))
																							{	/* Eval/evmodule.scm 414 */
																								BgL_auxz00_6997 = BgL_sz00_4246;
																							}
																						else
																							{
																								obj_t BgL_auxz00_7000;

																								BgL_auxz00_7000 =
																									BGl_typezd2errorzd2zz__errorz00
																									(BGl_string3036z00zz__evmodulez00,
																									BINT(16607L),
																									BGl_string3112z00zz__evmodulez00,
																									BGl_string3038z00zz__evmodulez00,
																									BgL_sz00_4246);
																								FAILURE(BgL_auxz00_7000, BFALSE,
																									BFALSE);
																							}
																						{	/* Eval/evmodule.scm 414 */
																							bool_t BgL_test3677z00_6989;

																							if (PAIRP(BgL_clausesz00_5230))
																								{	/* Eval/evmodule.scm 414 */
																									BgL_test3677z00_6989 =
																										((bool_t) 1);
																								}
																							else
																								{	/* Eval/evmodule.scm 414 */
																									BgL_test3677z00_6989 =
																										NULLP(BgL_clausesz00_5230);
																								}
																							if (BgL_test3677z00_6989)
																								{	/* Eval/evmodule.scm 414 */
																									BgL_auxz00_6988 =
																										BgL_clausesz00_5230;
																								}
																							else
																								{
																									obj_t BgL_auxz00_6993;

																									BgL_auxz00_6993 =
																										BGl_typezd2errorzd2zz__errorz00
																										(BGl_string3036z00zz__evmodulez00,
																										BINT(16599L),
																										BGl_string3112z00zz__evmodulez00,
																										BGl_string3094z00zz__evmodulez00,
																										BgL_clausesz00_5230);
																									FAILURE(BgL_auxz00_6993,
																										BFALSE, BFALSE);
																								}
																						}
																						BgL_identsz00_5231 =
																							BGl_evalzd2classzd2zz__evobjectz00
																							(BgL_claz00_5229, ((bool_t) 1),
																							BgL_auxz00_6988, BgL_auxz00_6997,
																							BgL_modz00_4242);
																					}
																					{
																						obj_t BgL_l1158z00_5234;

																						BgL_l1158z00_5234 =
																							BgL_identsz00_5231;
																					BgL_zc3z04anonymousza31634ze3z87_5233:
																						if (PAIRP
																							(BgL_l1158z00_5234))
																							{	/* Eval/evmodule.scm 415 */
																								{	/* Eval/evmodule.scm 415 */
																									obj_t BgL_iz00_5235;

																									BgL_iz00_5235 =
																										CAR(BgL_l1158z00_5234);
																									{	/* Eval/evmodule.scm 381 */
																										obj_t BgL_arg1512z00_5236;

																										{	/* Eval/evmodule.scm 381 */
																											obj_t BgL_arg1513z00_5237;
																											obj_t BgL_arg1514z00_5238;

																											BgL_arg1513z00_5237 =
																												MAKE_YOUNG_PAIR
																												(BgL_iz00_5235,
																												BgL_modz00_4242);
																											BgL_arg1514z00_5238 =
																												STRUCT_REF
																												(BgL_modz00_4242,
																												(int) (4L));
																											BgL_arg1512z00_5236 =
																												MAKE_YOUNG_PAIR
																												(BgL_arg1513z00_5237,
																												BgL_arg1514z00_5238);
																										}
																										{	/* Eval/evmodule.scm 129 */
																											int BgL_tmpz00_7012;

																											BgL_tmpz00_7012 =
																												(int) (4L);
																											STRUCT_SET
																												(BgL_modz00_4242,
																												BgL_tmpz00_7012,
																												BgL_arg1512z00_5236);
																								}}}
																								{
																									obj_t BgL_l1158z00_7015;

																									BgL_l1158z00_7015 =
																										CDR(BgL_l1158z00_5234);
																									BgL_l1158z00_5234 =
																										BgL_l1158z00_7015;
																									goto
																										BgL_zc3z04anonymousza31634ze3z87_5233;
																								}
																							}
																						else
																							{	/* Eval/evmodule.scm 415 */
																								if (NULLP(BgL_l1158z00_5234))
																									{	/* Eval/evmodule.scm 415 */
																										return BTRUE;
																									}
																								else
																									{	/* Eval/evmodule.scm 415 */
																										return
																											BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00
																											(BGl_string3079z00zz__evmodulez00,
																											BGl_string3069z00zz__evmodulez00,
																											BgL_l1158z00_5234,
																											BGl_string3036z00zz__evmodulez00,
																											BINT(16618L));
																									}
																							}
																					}
																				}
																			else
																				{	/* Eval/evmodule.scm 413 */
																					return BFALSE;
																				}
																		}
																	else
																		{	/* Eval/evmodule.scm 444 */
																			obj_t BgL_carzd2676zd2_5287;

																			BgL_carzd2676zd2_5287 =
																				CAR(((obj_t) BgL_sz00_4246));
																			if (SYMBOLP(BgL_carzd2676zd2_5287))
																				{
																					obj_t BgL_sz00_7026;

																					BgL_sz00_7026 = BgL_carzd2676zd2_5287;
																					BgL_sz00_5205 = BgL_sz00_7026;
																					goto BgL_tagzd2449zd2_5199;
																				}
																			else
																				{	/* Eval/evmodule.scm 444 */
																					return
																						BGl_evcompilezd2errorzd2zz__evcompilez00
																						(BgL_locz00_4245,
																						BGl_string3072z00zz__evmodulez00,
																						BGl_string3109z00zz__evmodulez00,
																						BgL_clausez00_4244);
																				}
																		}
																}
															else
																{	/* Eval/evmodule.scm 444 */
																	obj_t BgL_carzd2693zd2_5289;

																	BgL_carzd2693zd2_5289 =
																		CAR(((obj_t) BgL_sz00_4246));
																	if (SYMBOLP(BgL_carzd2693zd2_5289))
																		{
																			obj_t BgL_sz00_7032;

																			BgL_sz00_7032 = BgL_carzd2693zd2_5289;
																			BgL_sz00_5205 = BgL_sz00_7032;
																			goto BgL_tagzd2449zd2_5199;
																		}
																	else
																		{	/* Eval/evmodule.scm 444 */
																			return
																				BGl_evcompilezd2errorzd2zz__evcompilez00
																				(BgL_locz00_4245,
																				BGl_string3072z00zz__evmodulez00,
																				BGl_string3109z00zz__evmodulez00,
																				BgL_clausez00_4244);
																		}
																}
														}
													else
														{	/* Eval/evmodule.scm 444 */
															obj_t BgL_cdrzd2704zd2_5291;

															BgL_cdrzd2704zd2_5291 =
																CDR(((obj_t) BgL_sz00_4246));
															if (
																(CAR(
																		((obj_t) BgL_sz00_4246)) ==
																	BGl_symbol3099z00zz__evmodulez00))
																{	/* Eval/evmodule.scm 444 */
																	if (PAIRP(BgL_cdrzd2704zd2_5291))
																		{	/* Eval/evmodule.scm 444 */
																			obj_t BgL_carzd2707zd2_5294;

																			BgL_carzd2707zd2_5294 =
																				CAR(BgL_cdrzd2704zd2_5291);
																			if (SYMBOLP(BgL_carzd2707zd2_5294))
																				{	/* Eval/evmodule.scm 444 */
																					if (BgL_classpz00_4243)
																						{	/* Eval/evmodule.scm 417 */
																							return
																								BGl_evcompilezd2errorzd2zz__evcompilez00
																								(BgL_locz00_4245,
																								BGl_string3072z00zz__evmodulez00,
																								BGl_string3101z00zz__evmodulez00,
																								BgL_clausez00_4244);
																						}
																					else
																						{	/* Eval/evmodule.scm 417 */
																							return BFALSE;
																						}
																				}
																			else
																				{	/* Eval/evmodule.scm 444 */
																					obj_t BgL_carzd2742zd2_5295;

																					BgL_carzd2742zd2_5295 =
																						CAR(((obj_t) BgL_sz00_4246));
																					if (SYMBOLP(BgL_carzd2742zd2_5295))
																						{
																							obj_t BgL_sz00_7051;

																							BgL_sz00_7051 =
																								BgL_carzd2742zd2_5295;
																							BgL_sz00_5205 = BgL_sz00_7051;
																							goto BgL_tagzd2449zd2_5199;
																						}
																					else
																						{	/* Eval/evmodule.scm 444 */
																							return
																								BGl_evcompilezd2errorzd2zz__evcompilez00
																								(BgL_locz00_4245,
																								BGl_string3072z00zz__evmodulez00,
																								BGl_string3109z00zz__evmodulez00,
																								BgL_clausez00_4244);
																						}
																				}
																		}
																	else
																		{	/* Eval/evmodule.scm 444 */
																			obj_t BgL_carzd2754zd2_5297;

																			BgL_carzd2754zd2_5297 =
																				CAR(((obj_t) BgL_sz00_4246));
																			if (SYMBOLP(BgL_carzd2754zd2_5297))
																				{
																					obj_t BgL_sz00_7057;

																					BgL_sz00_7057 = BgL_carzd2754zd2_5297;
																					BgL_sz00_5205 = BgL_sz00_7057;
																					goto BgL_tagzd2449zd2_5199;
																				}
																			else
																				{	/* Eval/evmodule.scm 444 */
																					return
																						BGl_evcompilezd2errorzd2zz__evcompilez00
																						(BgL_locz00_4245,
																						BGl_string3072z00zz__evmodulez00,
																						BGl_string3109z00zz__evmodulez00,
																						BgL_clausez00_4244);
																				}
																		}
																}
															else
																{	/* Eval/evmodule.scm 444 */
																	obj_t BgL_carzd2761zd2_5299;
																	obj_t BgL_cdrzd2762zd2_5300;

																	BgL_carzd2761zd2_5299 =
																		CAR(((obj_t) BgL_sz00_4246));
																	BgL_cdrzd2762zd2_5300 =
																		CDR(((obj_t) BgL_sz00_4246));
																	{

																		if (
																			(BgL_carzd2761zd2_5299 ==
																				BGl_symbol3103z00zz__evmodulez00))
																			{	/* Eval/evmodule.scm 444 */
																			BgL_kapzd2763zd2_5303:
																				if (PAIRP(BgL_cdrzd2762zd2_5300))
																					{	/* Eval/evmodule.scm 444 */
																						obj_t BgL_carzd2765zd2_5304;

																						BgL_carzd2765zd2_5304 =
																							CAR(BgL_cdrzd2762zd2_5300);
																						if (SYMBOLP(BgL_carzd2765zd2_5304))
																							{	/* Eval/evmodule.scm 444 */
																								BgL_sz00_5214 =
																									BgL_carzd2765zd2_5304;
																								if (BgL_classpz00_4243)
																									{	/* Eval/evmodule.scm 424 */
																										return BFALSE;
																									}
																								else
																									{	/* Eval/evmodule.scm 425 */
																										obj_t BgL_idz00_5215;

																										BgL_idz00_5215 =
																											BGl_untypezd2identzd2zz__evmodulez00
																											(BgL_sz00_5214);
																										{	/* Eval/evmodule.scm 381 */
																											obj_t BgL_arg1512z00_5216;

																											{	/* Eval/evmodule.scm 381 */
																												obj_t
																													BgL_arg1513z00_5217;
																												obj_t
																													BgL_arg1514z00_5218;
																												BgL_arg1513z00_5217 =
																													MAKE_YOUNG_PAIR
																													(BgL_idz00_5215,
																													BgL_modz00_4242);
																												BgL_arg1514z00_5218 =
																													STRUCT_REF
																													(BgL_modz00_4242,
																													(int) (4L));
																												BgL_arg1512z00_5216 =
																													MAKE_YOUNG_PAIR
																													(BgL_arg1513z00_5217,
																													BgL_arg1514z00_5218);
																											}
																											{	/* Eval/evmodule.scm 129 */
																												int BgL_tmpz00_7076;

																												BgL_tmpz00_7076 =
																													(int) (4L);
																												STRUCT_SET
																													(BgL_modz00_4242,
																													BgL_tmpz00_7076,
																													BgL_arg1512z00_5216);
																										}}
																										{	/* Eval/evmodule.scm 427 */
																											obj_t BgL_arg1639z00_5219;

																											{	/* Eval/evmodule.scm 427 */
																												obj_t
																													BgL_arg1641z00_5220;
																												{	/* Eval/evmodule.scm 427 */
																													obj_t
																														BgL_arg1642z00_5221;
																													{	/* Eval/evmodule.scm 427 */
																														obj_t
																															BgL_arg1643z00_5222;
																														{	/* Eval/evmodule.scm 427 */
																															obj_t
																																BgL_arg1644z00_5223;
																															BgL_arg1644z00_5223
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_evmodulezd2uninitializa7edz75zz__evmodulez00,
																																BNIL);
																															BgL_arg1643z00_5222
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_symbol3074z00zz__evmodulez00,
																																BgL_arg1644z00_5223);
																														}
																														BgL_arg1642z00_5221
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_arg1643z00_5222,
																															BNIL);
																													}
																													BgL_arg1641z00_5220 =
																														MAKE_YOUNG_PAIR
																														(BgL_idz00_5215,
																														BgL_arg1642z00_5221);
																												}
																												BgL_arg1639z00_5219 =
																													MAKE_YOUNG_PAIR
																													(BGl_symbol3087z00zz__evmodulez00,
																													BgL_arg1641z00_5220);
																											}
																											{	/* Eval/evmodule.scm 387 */
																												obj_t BgL_expz00_5224;

																												if (CBOOL
																													(BgL_locz00_4245))
																													{	/* Eval/evmodule.scm 388 */
																														obj_t
																															BgL_arg1515z00_5225;
																														obj_t
																															BgL_arg1516z00_5226;
																														BgL_arg1515z00_5225
																															=
																															CAR
																															(BgL_arg1639z00_5219);
																														BgL_arg1516z00_5226
																															=
																															CDR
																															(BgL_arg1639z00_5219);
																														{	/* Eval/evmodule.scm 388 */
																															obj_t
																																BgL_res2396z00_5227;
																															BgL_res2396z00_5227
																																=
																																MAKE_YOUNG_EPAIR
																																(BgL_arg1515z00_5225,
																																BgL_arg1516z00_5226,
																																BgL_locz00_4245);
																															BgL_expz00_5224 =
																																BgL_res2396z00_5227;
																														}
																													}
																												else
																													{	/* Eval/evmodule.scm 387 */
																														BgL_expz00_5224 =
																															BgL_arg1639z00_5219;
																													}
																												BGl_evalz00zz__evalz00
																													(BgL_expz00_5224,
																													BgL_modz00_4242);
																											}
																										}
																										{	/* Eval/evmodule.scm 305 */
																											obj_t BgL_vz00_5228;

																											{	/* Eval/evmodule.scm 305 */
																												obj_t BgL_auxz00_7090;

																												if (SYMBOLP
																													(BgL_idz00_5215))
																													{	/* Eval/evmodule.scm 305 */
																														BgL_auxz00_7090 =
																															BgL_idz00_5215;
																													}
																												else
																													{
																														obj_t
																															BgL_auxz00_7093;
																														BgL_auxz00_7093 =
																															BGl_typezd2errorzd2zz__errorz00
																															(BGl_string3036z00zz__evmodulez00,
																															BINT(12237L),
																															BGl_string3111z00zz__evmodulez00,
																															BGl_string3040z00zz__evmodulez00,
																															BgL_idz00_5215);
																														FAILURE
																															(BgL_auxz00_7093,
																															BFALSE, BFALSE);
																													}
																												BgL_vz00_5228 =
																													BGl_evmodulezd2findzd2globalz00zz__evmodulez00
																													(BgL_modz00_4242,
																													BgL_auxz00_7090);
																											}
																											{	/* Eval/evmodule.scm 306 */
																												bool_t
																													BgL_test3696z00_7098;
																												if (VECTORP
																													(BgL_vz00_5228))
																													{	/* Eval/evmodule.scm 306 */
																														BgL_test3696z00_7098
																															=
																															(VECTOR_LENGTH
																															(BgL_vz00_5228) ==
																															5L);
																													}
																												else
																													{	/* Eval/evmodule.scm 306 */
																														BgL_test3696z00_7098
																															= ((bool_t) 0);
																													}
																												if (BgL_test3696z00_7098)
																													{	/* Eval/evmodule.scm 306 */
																														VECTOR_SET
																															(BgL_vz00_5228,
																															0L, BINT(4L));
																														return
																															BgL_idz00_5215;
																													}
																												else
																													{	/* Eval/evmodule.scm 306 */
																														return
																															BGl_evcompilezd2errorzd2zz__evcompilez00
																															(BgL_locz00_4245,
																															BGl_string3072z00zz__evmodulez00,
																															BGl_string3084z00zz__evmodulez00,
																															BgL_idz00_5215);
																													}
																											}
																										}
																									}
																							}
																						else
																							{	/* Eval/evmodule.scm 444 */
																								if (
																									(CAR(
																											((obj_t) BgL_sz00_4246))
																										==
																										BGl_symbol3116z00zz__evmodulez00))
																									{	/* Eval/evmodule.scm 444 */
																										return BUNSPEC;
																									}
																								else
																									{	/* Eval/evmodule.scm 444 */
																										if (
																											(CAR(
																													((obj_t)
																														BgL_sz00_4246)) ==
																												BGl_symbol3118z00zz__evmodulez00))
																											{	/* Eval/evmodule.scm 444 */
																												return BUNSPEC;
																											}
																										else
																											{	/* Eval/evmodule.scm 444 */
																												if (
																													(CAR(
																															((obj_t)
																																BgL_sz00_4246))
																														==
																														BGl_symbol3120z00zz__evmodulez00))
																													{	/* Eval/evmodule.scm 444 */
																														bool_t
																															BgL_test3701z00_7118;
																														{	/* Eval/evmodule.scm 444 */
																															obj_t
																																BgL_tmpz00_7119;
																															{	/* Eval/evmodule.scm 444 */
																																obj_t
																																	BgL_pairz00_5308;
																																{	/* Eval/evmodule.scm 444 */
																																	obj_t
																																		BgL_aux2718z00_5310;
																																	BgL_aux2718z00_5310
																																		=
																																		CDR(((obj_t)
																																			BgL_sz00_4246));
																																	if (PAIRP
																																		(BgL_aux2718z00_5310))
																																		{	/* Eval/evmodule.scm 444 */
																																			BgL_pairz00_5308
																																				=
																																				BgL_aux2718z00_5310;
																																		}
																																	else
																																		{
																																			obj_t
																																				BgL_auxz00_7124;
																																			BgL_auxz00_7124
																																				=
																																				BGl_typezd2errorzd2zz__errorz00
																																				(BGl_string3036z00zz__evmodulez00,
																																				BINT
																																				(17466L),
																																				BGl_string3122z00zz__evmodulez00,
																																				BGl_string3038z00zz__evmodulez00,
																																				BgL_aux2718z00_5310);
																																			FAILURE
																																				(BgL_auxz00_7124,
																																				BFALSE,
																																				BFALSE);
																																		}
																																}
																																BgL_tmpz00_7119
																																	=
																																	CDR
																																	(BgL_pairz00_5308);
																															}
																															BgL_test3701z00_7118
																																=
																																NULLP
																																(BgL_tmpz00_7119);
																														}
																														if (BgL_test3701z00_7118)
																															{	/* Eval/evmodule.scm 444 */
																																return BUNSPEC;
																															}
																														else
																															{	/* Eval/evmodule.scm 444 */
																																obj_t
																																	BgL_carzd2783zd2_5311;
																																BgL_carzd2783zd2_5311
																																	=
																																	CAR(((obj_t)
																																		BgL_sz00_4246));
																																if (SYMBOLP
																																	(BgL_carzd2783zd2_5311))
																																	{
																																		obj_t
																																			BgL_sz00_7134;
																																		BgL_sz00_7134
																																			=
																																			BgL_carzd2783zd2_5311;
																																		BgL_sz00_5205
																																			=
																																			BgL_sz00_7134;
																																		goto
																																			BgL_tagzd2449zd2_5199;
																																	}
																																else
																																	{	/* Eval/evmodule.scm 444 */
																																		return
																																			BGl_evcompilezd2errorzd2zz__evcompilez00
																																			(BgL_locz00_4245,
																																			BGl_string3072z00zz__evmodulez00,
																																			BGl_string3109z00zz__evmodulez00,
																																			BgL_clausez00_4244);
																																	}
																															}
																													}
																												else
																													{	/* Eval/evmodule.scm 444 */
																														obj_t
																															BgL_carzd2790zd2_5313;
																														BgL_carzd2790zd2_5313
																															=
																															CAR(((obj_t)
																																BgL_sz00_4246));
																														if (SYMBOLP
																															(BgL_carzd2790zd2_5313))
																															{
																																obj_t
																																	BgL_sz00_7140;
																																BgL_sz00_7140 =
																																	BgL_carzd2790zd2_5313;
																																BgL_sz00_5205 =
																																	BgL_sz00_7140;
																																goto
																																	BgL_tagzd2449zd2_5199;
																															}
																														else
																															{	/* Eval/evmodule.scm 444 */
																																return
																																	BGl_evcompilezd2errorzd2zz__evcompilez00
																																	(BgL_locz00_4245,
																																	BGl_string3072z00zz__evmodulez00,
																																	BGl_string3109z00zz__evmodulez00,
																																	BgL_clausez00_4244);
																															}
																													}
																											}
																									}
																							}
																					}
																				else
																					{	/* Eval/evmodule.scm 444 */
																						if (
																							(CAR(
																									((obj_t) BgL_sz00_4246)) ==
																								BGl_symbol3116z00zz__evmodulez00))
																							{	/* Eval/evmodule.scm 444 */
																								return BUNSPEC;
																							}
																						else
																							{	/* Eval/evmodule.scm 444 */
																								if (
																									(CAR(
																											((obj_t) BgL_sz00_4246))
																										==
																										BGl_symbol3118z00zz__evmodulez00))
																									{	/* Eval/evmodule.scm 444 */
																										return BUNSPEC;
																									}
																								else
																									{	/* Eval/evmodule.scm 444 */
																										obj_t BgL_carzd2804zd2_5317;

																										BgL_carzd2804zd2_5317 =
																											CAR(
																											((obj_t) BgL_sz00_4246));
																										if (SYMBOLP
																											(BgL_carzd2804zd2_5317))
																											{
																												obj_t BgL_sz00_7154;

																												BgL_sz00_7154 =
																													BgL_carzd2804zd2_5317;
																												BgL_sz00_5205 =
																													BgL_sz00_7154;
																												goto
																													BgL_tagzd2449zd2_5199;
																											}
																										else
																											{	/* Eval/evmodule.scm 444 */
																												return
																													BGl_evcompilezd2errorzd2zz__evcompilez00
																													(BgL_locz00_4245,
																													BGl_string3072z00zz__evmodulez00,
																													BGl_string3109z00zz__evmodulez00,
																													BgL_clausez00_4244);
																											}
																									}
																							}
																					}
																			}
																		else
																			{	/* Eval/evmodule.scm 444 */
																				if (
																					(BgL_carzd2761zd2_5299 ==
																						BGl_symbol3105z00zz__evmodulez00))
																					{	/* Eval/evmodule.scm 444 */
																						goto BgL_kapzd2763zd2_5303;
																					}
																				else
																					{	/* Eval/evmodule.scm 444 */
																						if (
																							(CAR(
																									((obj_t) BgL_sz00_4246)) ==
																								BGl_symbol3116z00zz__evmodulez00))
																							{	/* Eval/evmodule.scm 444 */
																								return BUNSPEC;
																							}
																						else
																							{	/* Eval/evmodule.scm 444 */
																								if (
																									(CAR(
																											((obj_t) BgL_sz00_4246))
																										==
																										BGl_symbol3118z00zz__evmodulez00))
																									{	/* Eval/evmodule.scm 444 */
																										return BUNSPEC;
																									}
																								else
																									{	/* Eval/evmodule.scm 444 */
																										obj_t BgL_cdrzd2817zd2_5321;

																										BgL_cdrzd2817zd2_5321 =
																											CDR(
																											((obj_t) BgL_sz00_4246));
																										if (
																											(CAR(
																													((obj_t)
																														BgL_sz00_4246)) ==
																												BGl_symbol3120z00zz__evmodulez00))
																											{	/* Eval/evmodule.scm 444 */
																												if (PAIRP
																													(BgL_cdrzd2817zd2_5321))
																													{	/* Eval/evmodule.scm 444 */
																														if (NULLP(CDR
																																(BgL_cdrzd2817zd2_5321)))
																															{	/* Eval/evmodule.scm 444 */
																																return BUNSPEC;
																															}
																														else
																															{	/* Eval/evmodule.scm 444 */
																																obj_t
																																	BgL_carzd2822zd2_5324;
																																BgL_carzd2822zd2_5324
																																	=
																																	CAR(((obj_t)
																																		BgL_sz00_4246));
																																if (SYMBOLP
																																	(BgL_carzd2822zd2_5324))
																																	{
																																		obj_t
																																			BgL_sz00_7181;
																																		BgL_sz00_7181
																																			=
																																			BgL_carzd2822zd2_5324;
																																		BgL_sz00_5205
																																			=
																																			BgL_sz00_7181;
																																		goto
																																			BgL_tagzd2449zd2_5199;
																																	}
																																else
																																	{	/* Eval/evmodule.scm 444 */
																																		return
																																			BGl_evcompilezd2errorzd2zz__evcompilez00
																																			(BgL_locz00_4245,
																																			BGl_string3072z00zz__evmodulez00,
																																			BGl_string3109z00zz__evmodulez00,
																																			BgL_clausez00_4244);
																																	}
																															}
																													}
																												else
																													{	/* Eval/evmodule.scm 444 */
																														obj_t
																															BgL_carzd2829zd2_5326;
																														BgL_carzd2829zd2_5326
																															=
																															CAR(((obj_t)
																																BgL_sz00_4246));
																														if (SYMBOLP
																															(BgL_carzd2829zd2_5326))
																															{
																																obj_t
																																	BgL_sz00_7187;
																																BgL_sz00_7187 =
																																	BgL_carzd2829zd2_5326;
																																BgL_sz00_5205 =
																																	BgL_sz00_7187;
																																goto
																																	BgL_tagzd2449zd2_5199;
																															}
																														else
																															{	/* Eval/evmodule.scm 444 */
																																return
																																	BGl_evcompilezd2errorzd2zz__evcompilez00
																																	(BgL_locz00_4245,
																																	BGl_string3072z00zz__evmodulez00,
																																	BGl_string3109z00zz__evmodulez00,
																																	BgL_clausez00_4244);
																															}
																													}
																											}
																										else
																											{	/* Eval/evmodule.scm 444 */
																												obj_t
																													BgL_carzd2836zd2_5328;
																												BgL_carzd2836zd2_5328 =
																													CAR(((obj_t)
																														BgL_sz00_4246));
																												if (SYMBOLP
																													(BgL_carzd2836zd2_5328))
																													{
																														obj_t BgL_sz00_7193;

																														BgL_sz00_7193 =
																															BgL_carzd2836zd2_5328;
																														BgL_sz00_5205 =
																															BgL_sz00_7193;
																														goto
																															BgL_tagzd2449zd2_5199;
																													}
																												else
																													{	/* Eval/evmodule.scm 444 */
																														return
																															BGl_evcompilezd2errorzd2zz__evcompilez00
																															(BgL_locz00_4245,
																															BGl_string3072z00zz__evmodulez00,
																															BGl_string3109z00zz__evmodulez00,
																															BgL_clausez00_4244);
																													}
																											}
																									}
																							}
																					}
																			}
																	}
																}
														}
												}
										}
								}
							else
								{	/* Eval/evmodule.scm 444 */
									return
										BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_4245,
										BGl_string3072z00zz__evmodulez00,
										BGl_string3109z00zz__evmodulez00, BgL_clausez00_4244);
								}
						}
				}
			}
		}

	}



/* evmodule-import-binding! */
	obj_t BGl_evmodulezd2importzd2bindingz12z12zz__evmodulez00(obj_t
		BgL_tozd2modzd2_90, obj_t BgL_tozd2identzd2_91, obj_t BgL_fromzd2modzd2_92,
		obj_t BgL_fromzd2identzd2_93, obj_t BgL_locz00_94)
	{
		{	/* Eval/evmodule.scm 452 */
			{	/* Eval/evmodule.scm 453 */
				obj_t BgL_varz00_1791;

				{	/* Eval/evmodule.scm 453 */
					obj_t BgL_auxz00_7196;

					if (SYMBOLP(BgL_fromzd2identzd2_93))
						{	/* Eval/evmodule.scm 453 */
							BgL_auxz00_7196 = BgL_fromzd2identzd2_93;
						}
					else
						{
							obj_t BgL_auxz00_7199;

							BgL_auxz00_7199 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3036z00zz__evmodulez00, BINT(17973L),
								BGl_string3123z00zz__evmodulez00,
								BGl_string3040z00zz__evmodulez00, BgL_fromzd2identzd2_93);
							FAILURE(BgL_auxz00_7199, BFALSE, BFALSE);
						}
					BgL_varz00_1791 =
						BGl_evmodulezd2findzd2globalz00zz__evmodulez00(BgL_fromzd2modzd2_92,
						BgL_auxz00_7196);
				}
				if (CBOOL(BgL_varz00_1791))
					{	/* Eval/evmodule.scm 463 */
						obj_t BgL_idz00_3545;

						if (SYMBOLP(BgL_tozd2identzd2_91))
							{	/* Eval/evmodule.scm 463 */
								BgL_idz00_3545 = BgL_tozd2identzd2_91;
							}
						else
							{
								obj_t BgL_auxz00_7208;

								BgL_auxz00_7208 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3036z00zz__evmodulez00, BINT(18325L),
									BGl_string3123z00zz__evmodulez00,
									BGl_string3040z00zz__evmodulez00, BgL_tozd2identzd2_91);
								FAILURE(BgL_auxz00_7208, BFALSE, BFALSE);
							}
						if (CBOOL(BGl_getzd2evalzd2expanderz00zz__macroz00(BgL_idz00_3545)))
							{	/* Eval/evmodule.scm 262 */
								obj_t BgL_msgz00_3547;

								{	/* Eval/evmodule.scm 262 */
									obj_t BgL_arg1411z00_3548;

									{	/* Eval/evmodule.scm 262 */
										obj_t BgL_arg2189z00_3553;

										BgL_arg2189z00_3553 = SYMBOL_TO_STRING(BgL_idz00_3545);
										BgL_arg1411z00_3548 =
											BGl_stringzd2copyzd2zz__r4_strings_6_7z00
											(BgL_arg2189z00_3553);
									}
									BgL_msgz00_3547 =
										string_append_3(BGl_string3064z00zz__evmodulez00,
										BgL_arg1411z00_3548, BGl_string3065z00zz__evmodulez00);
								}
								{	/* Eval/evmodule.scm 264 */
									obj_t BgL_list1410z00_3549;

									BgL_list1410z00_3549 = MAKE_YOUNG_PAIR(BgL_msgz00_3547, BNIL);
									BGl_evwarningz00zz__everrorz00(BgL_locz00_94,
										BgL_list1410z00_3549);
								}
							}
						else
							{	/* Eval/evmodule.scm 261 */
								BFALSE;
							}
						if (BGl_evmodulezf3zf3zz__evmodulez00(BgL_tozd2modzd2_90))
							{	/* Eval/evmodule.scm 266 */
								obj_t BgL_arg1413z00_3551;

								{	/* Eval/evmodule.scm 129 */
									obj_t BgL_sz00_3554;

									if (STRUCTP(BgL_tozd2modzd2_90))
										{	/* Eval/evmodule.scm 129 */
											BgL_sz00_3554 = BgL_tozd2modzd2_90;
										}
									else
										{
											obj_t BgL_auxz00_7224;

											BgL_auxz00_7224 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3036z00zz__evmodulez00, BINT(4439L),
												BGl_string3123z00zz__evmodulez00,
												BGl_string3042z00zz__evmodulez00, BgL_tozd2modzd2_90);
											FAILURE(BgL_auxz00_7224, BFALSE, BFALSE);
										}
									BgL_arg1413z00_3551 = STRUCT_REF(BgL_sz00_3554, (int) (3L));
								}
								{	/* Eval/evmodule.scm 266 */
									obj_t BgL_auxz00_7230;

									if (STRUCTP(BgL_arg1413z00_3551))
										{	/* Eval/evmodule.scm 266 */
											BgL_auxz00_7230 = BgL_arg1413z00_3551;
										}
									else
										{
											obj_t BgL_auxz00_7233;

											BgL_auxz00_7233 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3036z00zz__evmodulez00, BINT(10468L),
												BGl_string3123z00zz__evmodulez00,
												BGl_string3042z00zz__evmodulez00, BgL_arg1413z00_3551);
											FAILURE(BgL_auxz00_7233, BFALSE, BFALSE);
										}
									return
										BGl_hashtablezd2putz12zc0zz__hashz00(BgL_auxz00_7230,
										BgL_idz00_3545, BgL_varz00_1791);
								}
							}
						else
							{	/* Eval/evmodule.scm 267 */
								obj_t BgL_auxz00_7238;

								if (VECTORP(BgL_varz00_1791))
									{	/* Eval/evmodule.scm 267 */
										BgL_auxz00_7238 = BgL_varz00_1791;
									}
								else
									{
										obj_t BgL_auxz00_7241;

										BgL_auxz00_7241 =
											BGl_typezd2errorzd2zz__errorz00
											(BGl_string3036z00zz__evmodulez00, BINT(10507L),
											BGl_string3123z00zz__evmodulez00,
											BGl_string3060z00zz__evmodulez00, BgL_varz00_1791);
										FAILURE(BgL_auxz00_7241, BFALSE, BFALSE);
									}
								return
									BGl_bindzd2evalzd2globalz12z12zz__evenvz00(BgL_idz00_3545,
									BgL_auxz00_7238);
							}
					}
				else
					{	/* Eval/evmodule.scm 454 */
						{	/* Eval/evmodule.scm 456 */
							obj_t BgL_arg1645z00_1792;
							obj_t BgL_arg1646z00_1793;

							{	/* Eval/evmodule.scm 456 */
								obj_t BgL_tmpz00_7246;

								BgL_tmpz00_7246 = BGL_CURRENT_DYNAMIC_ENV();
								BgL_arg1645z00_1792 =
									BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7246);
							}
							{	/* Eval/evmodule.scm 456 */
								obj_t BgL_arg1658z00_1800;

								{	/* Eval/evmodule.scm 129 */
									obj_t BgL_sz00_3556;

									if (STRUCTP(BgL_fromzd2modzd2_92))
										{	/* Eval/evmodule.scm 129 */
											BgL_sz00_3556 = BgL_fromzd2modzd2_92;
										}
									else
										{
											obj_t BgL_auxz00_7251;

											BgL_auxz00_7251 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3036z00zz__evmodulez00, BINT(4439L),
												BGl_string3123z00zz__evmodulez00,
												BGl_string3042z00zz__evmodulez00, BgL_fromzd2modzd2_92);
											FAILURE(BgL_auxz00_7251, BFALSE, BFALSE);
										}
									BgL_arg1658z00_1800 = STRUCT_REF(BgL_sz00_3556, (int) (3L));
								}
								{	/* Eval/evmodule.scm 456 */
									obj_t BgL_auxz00_7257;

									if (STRUCTP(BgL_arg1658z00_1800))
										{	/* Eval/evmodule.scm 456 */
											BgL_auxz00_7257 = BgL_arg1658z00_1800;
										}
									else
										{
											obj_t BgL_auxz00_7260;

											BgL_auxz00_7260 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3036z00zz__evmodulez00, BINT(18084L),
												BGl_string3123z00zz__evmodulez00,
												BGl_string3042z00zz__evmodulez00, BgL_arg1658z00_1800);
											FAILURE(BgL_auxz00_7260, BFALSE, BFALSE);
										}
									BgL_arg1646z00_1793 =
										BGl_hashtablezd2keyzd2listz00zz__hashz00(BgL_auxz00_7257);
								}
							}
							{	/* Eval/evmodule.scm 456 */
								obj_t BgL_list1647z00_1794;

								{	/* Eval/evmodule.scm 456 */
									obj_t BgL_arg1649z00_1795;

									{	/* Eval/evmodule.scm 456 */
										obj_t BgL_arg1651z00_1796;

										{	/* Eval/evmodule.scm 456 */
											obj_t BgL_arg1652z00_1797;

											{	/* Eval/evmodule.scm 456 */
												obj_t BgL_arg1653z00_1798;

												{	/* Eval/evmodule.scm 456 */
													obj_t BgL_arg1655z00_1799;

													BgL_arg1655z00_1799 =
														MAKE_YOUNG_PAIR(BgL_arg1646z00_1793, BNIL);
													BgL_arg1653z00_1798 =
														MAKE_YOUNG_PAIR(BGl_string3124z00zz__evmodulez00,
														BgL_arg1655z00_1799);
												}
												BgL_arg1652z00_1797 =
													MAKE_YOUNG_PAIR(BGl_string3125z00zz__evmodulez00,
													BgL_arg1653z00_1798);
											}
											BgL_arg1651z00_1796 =
												MAKE_YOUNG_PAIR(BINT(456L), BgL_arg1652z00_1797);
										}
										BgL_arg1649z00_1795 =
											MAKE_YOUNG_PAIR(BGl_string3126z00zz__evmodulez00,
											BgL_arg1651z00_1796);
									}
									BgL_list1647z00_1794 =
										MAKE_YOUNG_PAIR(BGl_string3127z00zz__evmodulez00,
										BgL_arg1649z00_1795);
								}
								BGl_tprintz00zz__r4_output_6_10_3z00(BgL_arg1645z00_1792,
									BgL_list1647z00_1794);
							}
						}
						{	/* Eval/evmodule.scm 460 */
							obj_t BgL_arg1659z00_1801;
							obj_t BgL_arg1660z00_1802;

							{	/* Eval/evmodule.scm 460 */
								obj_t BgL_arg1662z00_1803;

								{	/* Eval/evmodule.scm 460 */
									obj_t BgL_arg1664z00_1804;

									{	/* Eval/evmodule.scm 460 */
										obj_t BgL_res2397z00_3559;

										if (BGl_evmodulezf3zf3zz__evmodulez00(BgL_tozd2modzd2_90))
											{	/* Eval/evmodule.scm 129 */
												obj_t BgL_sz00_3558;

												if (STRUCTP(BgL_tozd2modzd2_90))
													{	/* Eval/evmodule.scm 129 */
														BgL_sz00_3558 = BgL_tozd2modzd2_90;
													}
												else
													{
														obj_t BgL_auxz00_7277;

														BgL_auxz00_7277 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3036z00zz__evmodulez00, BINT(4439L),
															BGl_string3123z00zz__evmodulez00,
															BGl_string3042z00zz__evmodulez00,
															BgL_tozd2modzd2_90);
														FAILURE(BgL_auxz00_7277, BFALSE, BFALSE);
													}
												{	/* Eval/evmodule.scm 129 */
													obj_t BgL_aux2760z00_4691;

													BgL_aux2760z00_4691 =
														STRUCT_REF(BgL_sz00_3558, (int) (1L));
													if (SYMBOLP(BgL_aux2760z00_4691))
														{	/* Eval/evmodule.scm 129 */
															BgL_res2397z00_3559 = BgL_aux2760z00_4691;
														}
													else
														{
															obj_t BgL_auxz00_7285;

															BgL_auxz00_7285 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string3036z00zz__evmodulez00, BINT(4439L),
																BGl_string3123z00zz__evmodulez00,
																BGl_string3040z00zz__evmodulez00,
																BgL_aux2760z00_4691);
															FAILURE(BgL_auxz00_7285, BFALSE, BFALSE);
														}
												}
											}
										else
											{	/* Eval/evmodule.scm 143 */
												obj_t BgL_aux2762z00_4693;

												BgL_aux2762z00_4693 =
													BGl_bigloozd2typezd2errorz00zz__errorz00
													(BGl_string3041z00zz__evmodulez00,
													BGl_symbol3043z00zz__evmodulez00, BgL_tozd2modzd2_90);
												if (SYMBOLP(BgL_aux2762z00_4693))
													{	/* Eval/evmodule.scm 143 */
														BgL_res2397z00_3559 = BgL_aux2762z00_4693;
													}
												else
													{
														obj_t BgL_auxz00_7292;

														BgL_auxz00_7292 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3036z00zz__evmodulez00, BINT(5128L),
															BGl_string3123z00zz__evmodulez00,
															BGl_string3040z00zz__evmodulez00,
															BgL_aux2762z00_4693);
														FAILURE(BgL_auxz00_7292, BFALSE, BFALSE);
													}
											}
										BgL_arg1664z00_1804 = BgL_res2397z00_3559;
									}
									{	/* Eval/evmodule.scm 460 */
										obj_t BgL_arg2189z00_3561;

										BgL_arg2189z00_3561 = SYMBOL_TO_STRING(BgL_arg1664z00_1804);
										BgL_arg1662z00_1803 =
											BGl_stringzd2copyzd2zz__r4_strings_6_7z00
											(BgL_arg2189z00_3561);
									}
								}
								BgL_arg1659z00_1801 =
									string_append_3(BGl_string3128z00zz__evmodulez00,
									BgL_arg1662z00_1803, BGl_string3129z00zz__evmodulez00);
							}
							{	/* Eval/evmodule.scm 462 */
								obj_t BgL_arg1665z00_1805;

								{	/* Eval/evmodule.scm 462 */
									obj_t BgL_arg1666z00_1806;

									{	/* Eval/evmodule.scm 462 */
										obj_t BgL_arg1667z00_1807;

										{	/* Eval/evmodule.scm 462 */
											obj_t BgL_res2398z00_3564;

											if (BGl_evmodulezf3zf3zz__evmodulez00
												(BgL_fromzd2modzd2_92))
												{	/* Eval/evmodule.scm 129 */
													obj_t BgL_sz00_3563;

													if (STRUCTP(BgL_fromzd2modzd2_92))
														{	/* Eval/evmodule.scm 129 */
															BgL_sz00_3563 = BgL_fromzd2modzd2_92;
														}
													else
														{
															obj_t BgL_auxz00_7303;

															BgL_auxz00_7303 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string3036z00zz__evmodulez00, BINT(4439L),
																BGl_string3123z00zz__evmodulez00,
																BGl_string3042z00zz__evmodulez00,
																BgL_fromzd2modzd2_92);
															FAILURE(BgL_auxz00_7303, BFALSE, BFALSE);
														}
													{	/* Eval/evmodule.scm 129 */
														obj_t BgL_aux2766z00_4697;

														BgL_aux2766z00_4697 =
															STRUCT_REF(BgL_sz00_3563, (int) (1L));
														if (SYMBOLP(BgL_aux2766z00_4697))
															{	/* Eval/evmodule.scm 129 */
																BgL_res2398z00_3564 = BgL_aux2766z00_4697;
															}
														else
															{
																obj_t BgL_auxz00_7311;

																BgL_auxz00_7311 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string3036z00zz__evmodulez00,
																	BINT(4439L), BGl_string3123z00zz__evmodulez00,
																	BGl_string3040z00zz__evmodulez00,
																	BgL_aux2766z00_4697);
																FAILURE(BgL_auxz00_7311, BFALSE, BFALSE);
															}
													}
												}
											else
												{	/* Eval/evmodule.scm 143 */
													obj_t BgL_aux2768z00_4699;

													BgL_aux2768z00_4699 =
														BGl_bigloozd2typezd2errorz00zz__errorz00
														(BGl_string3041z00zz__evmodulez00,
														BGl_symbol3043z00zz__evmodulez00,
														BgL_fromzd2modzd2_92);
													if (SYMBOLP(BgL_aux2768z00_4699))
														{	/* Eval/evmodule.scm 143 */
															BgL_res2398z00_3564 = BgL_aux2768z00_4699;
														}
													else
														{
															obj_t BgL_auxz00_7318;

															BgL_auxz00_7318 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string3036z00zz__evmodulez00, BINT(5128L),
																BGl_string3123z00zz__evmodulez00,
																BGl_string3040z00zz__evmodulez00,
																BgL_aux2768z00_4699);
															FAILURE(BgL_auxz00_7318, BFALSE, BFALSE);
														}
												}
											BgL_arg1667z00_1807 = BgL_res2398z00_3564;
										}
										BgL_arg1666z00_1806 =
											MAKE_YOUNG_PAIR(BgL_arg1667z00_1807, BNIL);
									}
									BgL_arg1665z00_1805 =
										MAKE_YOUNG_PAIR(BgL_fromzd2identzd2_93,
										BgL_arg1666z00_1806);
								}
								BgL_arg1660z00_1802 =
									MAKE_YOUNG_PAIR(BGl_symbol3130z00zz__evmodulez00,
									BgL_arg1665z00_1805);
							}
							return
								BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_94,
								BGl_string3072z00zz__evmodulez00, BgL_arg1659z00_1801,
								BgL_arg1660z00_1802);
						}
					}
			}
		}

	}



/* evmodule-check-unbound */
	BGL_EXPORTED_DEF obj_t BGl_evmodulezd2checkzd2unboundz00zz__evmodulez00(obj_t
		BgL_modz00_95, obj_t BgL_locz00_96)
	{
		{	/* Eval/evmodule.scm 470 */
			{	/* Eval/evmodule.scm 477 */
				obj_t BgL_lz00_4257;

				BgL_lz00_4257 = BGL_MAKE_UNSAFE_CELL(BNIL);
				{	/* Eval/evmodule.scm 480 */
					obj_t BgL_globalzd2checkzd2unboundz00_4247;

					BgL_globalzd2checkzd2unboundz00_4247 =
						MAKE_FX_PROCEDURE(BGl_z62globalzd2checkzd2unboundz62zz__evmodulez00,
						(int) (2L), (int) (2L));
					PROCEDURE_SET(BgL_globalzd2checkzd2unboundz00_4247,
						(int) (0L), ((obj_t) BgL_lz00_4257));
					PROCEDURE_SET(BgL_globalzd2checkzd2unboundz00_4247,
						(int) (1L), BgL_modz00_95);
					{	/* Eval/evmodule.scm 486 */
						obj_t BgL_arg1671z00_1811;

						{	/* Eval/evmodule.scm 129 */
							obj_t BgL_sz00_3591;

							if (STRUCTP(BgL_modz00_95))
								{	/* Eval/evmodule.scm 129 */
									BgL_sz00_3591 = BgL_modz00_95;
								}
							else
								{
									obj_t BgL_auxz00_7336;

									BgL_auxz00_7336 =
										BGl_typezd2errorzd2zz__errorz00
										(BGl_string3036z00zz__evmodulez00, BINT(4439L),
										BGl_string3132z00zz__evmodulez00,
										BGl_string3042z00zz__evmodulez00, BgL_modz00_95);
									FAILURE(BgL_auxz00_7336, BFALSE, BFALSE);
								}
							BgL_arg1671z00_1811 = STRUCT_REF(BgL_sz00_3591, (int) (3L));
						}
						{	/* Eval/evmodule.scm 486 */
							obj_t BgL_auxz00_7342;

							if (STRUCTP(BgL_arg1671z00_1811))
								{	/* Eval/evmodule.scm 486 */
									BgL_auxz00_7342 = BgL_arg1671z00_1811;
								}
							else
								{
									obj_t BgL_auxz00_7345;

									BgL_auxz00_7345 =
										BGl_typezd2errorzd2zz__errorz00
										(BGl_string3036z00zz__evmodulez00, BINT(19206L),
										BGl_string3132z00zz__evmodulez00,
										BGl_string3042z00zz__evmodulez00, BgL_arg1671z00_1811);
									FAILURE(BgL_auxz00_7345, BFALSE, BFALSE);
								}
							BGl_hashtablezd2forzd2eachz00zz__hashz00(BgL_auxz00_7342,
								BgL_globalzd2checkzd2unboundz00_4247);
						}
					}
					{	/* Eval/evmodule.scm 487 */
						bool_t BgL_test3737z00_7350;

						{	/* Eval/evmodule.scm 487 */
							obj_t BgL_objz00_3592;

							BgL_objz00_3592 = BGL_UNSAFE_CELL_REF(BgL_lz00_4257);
							BgL_test3737z00_7350 = PAIRP(BgL_objz00_3592);
						}
						if (BgL_test3737z00_7350)
							{	/* Eval/evmodule.scm 487 */
								{
									obj_t BgL_l1160z00_1814;

									BgL_l1160z00_1814 = BGL_UNSAFE_CELL_REF(BgL_lz00_4257);
								BgL_zc3z04anonymousza31673ze3z87_1815:
									if (PAIRP(BgL_l1160z00_1814))
										{	/* Eval/evmodule.scm 488 */
											{	/* Eval/evmodule.scm 489 */
												obj_t BgL_vz00_1817;

												BgL_vz00_1817 = CAR(BgL_l1160z00_1814);
												{	/* Eval/evmodule.scm 489 */
													obj_t BgL_env1057z00_1819;

													BgL_env1057z00_1819 = BGL_CURRENT_DYNAMIC_ENV();
													{	/* Eval/evmodule.scm 489 */
														obj_t BgL_cell1052z00_1820;

														BgL_cell1052z00_1820 = MAKE_STACK_CELL(BUNSPEC);
														{	/* Eval/evmodule.scm 489 */
															obj_t BgL_val1056z00_1821;

															BgL_val1056z00_1821 =
																BGl_zc3z04exitza31676ze3ze70z60zz__evmodulez00
																(BgL_modz00_95, BgL_locz00_96, BgL_vz00_1817,
																BgL_cell1052z00_1820, BgL_env1057z00_1819);
															if ((BgL_val1056z00_1821 == BgL_cell1052z00_1820))
																{	/* Eval/evmodule.scm 489 */
																	{	/* Eval/evmodule.scm 489 */
																		int BgL_tmpz00_7360;

																		BgL_tmpz00_7360 = (int) (0L);
																		BGL_SIGSETMASK(BgL_tmpz00_7360);
																	}
																	{	/* Eval/evmodule.scm 489 */
																		obj_t BgL_arg1675z00_1822;

																		BgL_arg1675z00_1822 =
																			CELL_REF(((obj_t) BgL_val1056z00_1821));
																		BGl_errorzd2notifyzd2zz__errorz00
																			(BgL_arg1675z00_1822);
																		{	/* Eval/evmodule.scm 492 */
																			obj_t BgL_arg1683z00_3610;

																			{	/* Eval/evmodule.scm 492 */
																				obj_t BgL_tmpz00_7366;

																				BgL_tmpz00_7366 =
																					BGL_CURRENT_DYNAMIC_ENV();
																				BgL_arg1683z00_3610 =
																					BGL_ENV_CURRENT_ERROR_PORT
																					(BgL_tmpz00_7366);
																			}
																			bgl_display_char(((unsigned char) 10),
																				BgL_arg1683z00_3610);
																		} BFALSE;
																}}
															else
																{	/* Eval/evmodule.scm 489 */
																	BgL_val1056z00_1821;
																}
														}
													}
												}
											}
											{
												obj_t BgL_l1160z00_7370;

												BgL_l1160z00_7370 = CDR(BgL_l1160z00_1814);
												BgL_l1160z00_1814 = BgL_l1160z00_7370;
												goto BgL_zc3z04anonymousza31673ze3z87_1815;
											}
										}
									else
										{	/* Eval/evmodule.scm 488 */
											if (NULLP(BgL_l1160z00_1814))
												{	/* Eval/evmodule.scm 488 */
													BTRUE;
												}
											else
												{	/* Eval/evmodule.scm 488 */
													BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00
														(BGl_string3079z00zz__evmodulez00,
														BGl_string3069z00zz__evmodulez00, BgL_l1160z00_1814,
														BGl_string3036z00zz__evmodulez00, BINT(19254L));
												}
										}
								}
								{	/* Eval/evmodule.scm 496 */
									long BgL_lenz00_1840;

									{	/* Eval/evmodule.scm 496 */
										obj_t BgL_auxz00_7376;

										{	/* Eval/evmodule.scm 496 */
											obj_t BgL_aux2774z00_4705;

											BgL_aux2774z00_4705 = BGL_UNSAFE_CELL_REF(BgL_lz00_4257);
											{	/* Eval/evmodule.scm 496 */
												bool_t BgL_test3741z00_7377;

												if (PAIRP(BgL_aux2774z00_4705))
													{	/* Eval/evmodule.scm 496 */
														BgL_test3741z00_7377 = ((bool_t) 1);
													}
												else
													{	/* Eval/evmodule.scm 496 */
														BgL_test3741z00_7377 = NULLP(BgL_aux2774z00_4705);
													}
												if (BgL_test3741z00_7377)
													{	/* Eval/evmodule.scm 496 */
														BgL_auxz00_7376 = BgL_aux2774z00_4705;
													}
												else
													{
														obj_t BgL_auxz00_7381;

														BgL_auxz00_7381 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3036z00zz__evmodulez00, BINT(19440L),
															BGl_string3132z00zz__evmodulez00,
															BGl_string3094z00zz__evmodulez00,
															BgL_aux2774z00_4705);
														FAILURE(BgL_auxz00_7381, BFALSE, BFALSE);
													}
											}
										}
										BgL_lenz00_1840 = bgl_list_length(BgL_auxz00_7376);
									}
									{	/* Eval/evmodule.scm 498 */
										obj_t BgL_arg1689z00_1841;
										obj_t BgL_arg1690z00_1842;
										obj_t BgL_arg1691z00_1843;

										{	/* Eval/evmodule.scm 498 */
											obj_t BgL_res2402z00_3616;

											if (BGl_evmodulezf3zf3zz__evmodulez00(BgL_modz00_95))
												{	/* Eval/evmodule.scm 129 */
													obj_t BgL_sz00_3615;

													if (STRUCTP(BgL_modz00_95))
														{	/* Eval/evmodule.scm 129 */
															BgL_sz00_3615 = BgL_modz00_95;
														}
													else
														{
															obj_t BgL_auxz00_7390;

															BgL_auxz00_7390 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string3036z00zz__evmodulez00, BINT(4439L),
																BGl_string3132z00zz__evmodulez00,
																BGl_string3042z00zz__evmodulez00,
																BgL_modz00_95);
															FAILURE(BgL_auxz00_7390, BFALSE, BFALSE);
														}
													{	/* Eval/evmodule.scm 129 */
														obj_t BgL_aux2778z00_4709;

														BgL_aux2778z00_4709 =
															STRUCT_REF(BgL_sz00_3615, (int) (1L));
														if (SYMBOLP(BgL_aux2778z00_4709))
															{	/* Eval/evmodule.scm 129 */
																BgL_res2402z00_3616 = BgL_aux2778z00_4709;
															}
														else
															{
																obj_t BgL_auxz00_7398;

																BgL_auxz00_7398 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string3036z00zz__evmodulez00,
																	BINT(4439L), BGl_string3132z00zz__evmodulez00,
																	BGl_string3040z00zz__evmodulez00,
																	BgL_aux2778z00_4709);
																FAILURE(BgL_auxz00_7398, BFALSE, BFALSE);
															}
													}
												}
											else
												{	/* Eval/evmodule.scm 143 */
													obj_t BgL_aux2780z00_4711;

													BgL_aux2780z00_4711 =
														BGl_bigloozd2typezd2errorz00zz__errorz00
														(BGl_string3041z00zz__evmodulez00,
														BGl_symbol3043z00zz__evmodulez00, BgL_modz00_95);
													if (SYMBOLP(BgL_aux2780z00_4711))
														{	/* Eval/evmodule.scm 143 */
															BgL_res2402z00_3616 = BgL_aux2780z00_4711;
														}
													else
														{
															obj_t BgL_auxz00_7405;

															BgL_auxz00_7405 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string3036z00zz__evmodulez00, BINT(5128L),
																BGl_string3132z00zz__evmodulez00,
																BGl_string3040z00zz__evmodulez00,
																BgL_aux2780z00_4711);
															FAILURE(BgL_auxz00_7405, BFALSE, BFALSE);
														}
												}
											BgL_arg1689z00_1841 = BgL_res2402z00_3616;
										}
										{	/* Eval/evmodule.scm 499 */
											obj_t BgL_arg1692z00_1844;

											if ((BgL_lenz00_1840 > 1L))
												{	/* Eval/evmodule.scm 499 */
													BgL_arg1692z00_1844 =
														BGl_string3133z00zz__evmodulez00;
												}
											else
												{	/* Eval/evmodule.scm 499 */
													BgL_arg1692z00_1844 =
														BGl_string3134z00zz__evmodulez00;
												}
											{	/* Eval/evmodule.scm 499 */
												obj_t BgL_list1693z00_1845;

												{	/* Eval/evmodule.scm 499 */
													obj_t BgL_arg1697z00_1846;

													BgL_arg1697z00_1846 =
														MAKE_YOUNG_PAIR(BgL_arg1692z00_1844, BNIL);
													BgL_list1693z00_1845 =
														MAKE_YOUNG_PAIR(BINT(BgL_lenz00_1840),
														BgL_arg1697z00_1846);
												}
												BgL_arg1690z00_1842 =
													BGl_formatz00zz__r4_output_6_10_3z00
													(BGl_string3135z00zz__evmodulez00,
													BgL_list1693z00_1845);
											}
										}
										{	/* Eval/evmodule.scm 500 */
											obj_t BgL_arg1702z00_1848;

											{	/* Eval/evmodule.scm 500 */
												obj_t BgL_l1162z00_1850;

												BgL_l1162z00_1850 = BGL_UNSAFE_CELL_REF(BgL_lz00_4257);
												if (NULLP(BgL_l1162z00_1850))
													{	/* Eval/evmodule.scm 500 */
														BgL_arg1702z00_1848 = BNIL;
													}
												else
													{	/* Eval/evmodule.scm 500 */
														obj_t BgL_head1164z00_1852;

														{	/* Eval/evmodule.scm 500 */
															obj_t BgL_arg1711z00_1865;

															{	/* Eval/evmodule.scm 500 */
																obj_t BgL_arg1712z00_1866;

																{	/* Eval/evmodule.scm 500 */
																	obj_t BgL_pairz00_3618;

																	if (PAIRP(BgL_l1162z00_1850))
																		{	/* Eval/evmodule.scm 500 */
																			BgL_pairz00_3618 = BgL_l1162z00_1850;
																		}
																	else
																		{
																			obj_t BgL_auxz00_7419;

																			BgL_auxz00_7419 =
																				BGl_typezd2errorzd2zz__errorz00
																				(BGl_string3036z00zz__evmodulez00,
																				BINT(19586L),
																				BGl_string3132z00zz__evmodulez00,
																				BGl_string3038z00zz__evmodulez00,
																				BgL_l1162z00_1850);
																			FAILURE(BgL_auxz00_7419, BFALSE, BFALSE);
																		}
																	BgL_arg1712z00_1866 = CAR(BgL_pairz00_3618);
																}
																{	/* Eval/evmodule.scm 500 */
																	obj_t BgL_evalzd2globalzd2_3619;

																	if (VECTORP(BgL_arg1712z00_1866))
																		{	/* Eval/evmodule.scm 500 */
																			BgL_evalzd2globalzd2_3619 =
																				BgL_arg1712z00_1866;
																		}
																	else
																		{
																			obj_t BgL_auxz00_7426;

																			BgL_auxz00_7426 =
																				BGl_typezd2errorzd2zz__errorz00
																				(BGl_string3036z00zz__evmodulez00,
																				BINT(19586L),
																				BGl_string3132z00zz__evmodulez00,
																				BGl_string3060z00zz__evmodulez00,
																				BgL_arg1712z00_1866);
																			FAILURE(BgL_auxz00_7426, BFALSE, BFALSE);
																		}
																	BgL_arg1711z00_1865 =
																		VECTOR_REF(BgL_evalzd2globalzd2_3619, 1L);
																}
															}
															BgL_head1164z00_1852 =
																MAKE_YOUNG_PAIR(BgL_arg1711z00_1865, BNIL);
														}
														{	/* Eval/evmodule.scm 500 */
															obj_t BgL_g1167z00_1853;

															{	/* Eval/evmodule.scm 500 */
																obj_t BgL_pairz00_3621;

																if (PAIRP(BgL_l1162z00_1850))
																	{	/* Eval/evmodule.scm 500 */
																		BgL_pairz00_3621 = BgL_l1162z00_1850;
																	}
																else
																	{
																		obj_t BgL_auxz00_7434;

																		BgL_auxz00_7434 =
																			BGl_typezd2errorzd2zz__errorz00
																			(BGl_string3036z00zz__evmodulez00,
																			BINT(19586L),
																			BGl_string3132z00zz__evmodulez00,
																			BGl_string3038z00zz__evmodulez00,
																			BgL_l1162z00_1850);
																		FAILURE(BgL_auxz00_7434, BFALSE, BFALSE);
																	}
																BgL_g1167z00_1853 = CDR(BgL_pairz00_3621);
															}
															{
																obj_t BgL_l1162z00_1855;
																obj_t BgL_tail1165z00_1856;

																BgL_l1162z00_1855 = BgL_g1167z00_1853;
																BgL_tail1165z00_1856 = BgL_head1164z00_1852;
															BgL_zc3z04anonymousza31705ze3z87_1857:
																if (PAIRP(BgL_l1162z00_1855))
																	{	/* Eval/evmodule.scm 500 */
																		obj_t BgL_newtail1166z00_1859;

																		{	/* Eval/evmodule.scm 500 */
																			obj_t BgL_arg1708z00_1861;

																			{	/* Eval/evmodule.scm 500 */
																				obj_t BgL_arg1709z00_1862;

																				BgL_arg1709z00_1862 =
																					CAR(BgL_l1162z00_1855);
																				{	/* Eval/evmodule.scm 500 */
																					obj_t BgL_evalzd2globalzd2_3623;

																					if (VECTORP(BgL_arg1709z00_1862))
																						{	/* Eval/evmodule.scm 500 */
																							BgL_evalzd2globalzd2_3623 =
																								BgL_arg1709z00_1862;
																						}
																					else
																						{
																							obj_t BgL_auxz00_7444;

																							BgL_auxz00_7444 =
																								BGl_typezd2errorzd2zz__errorz00
																								(BGl_string3036z00zz__evmodulez00,
																								BINT(19586L),
																								BGl_string3136z00zz__evmodulez00,
																								BGl_string3060z00zz__evmodulez00,
																								BgL_arg1709z00_1862);
																							FAILURE(BgL_auxz00_7444, BFALSE,
																								BFALSE);
																						}
																					BgL_arg1708z00_1861 =
																						VECTOR_REF
																						(BgL_evalzd2globalzd2_3623, 1L);
																				}
																			}
																			BgL_newtail1166z00_1859 =
																				MAKE_YOUNG_PAIR(BgL_arg1708z00_1861,
																				BNIL);
																		}
																		SET_CDR(BgL_tail1165z00_1856,
																			BgL_newtail1166z00_1859);
																		{
																			obj_t BgL_tail1165z00_7453;
																			obj_t BgL_l1162z00_7451;

																			BgL_l1162z00_7451 =
																				CDR(BgL_l1162z00_1855);
																			BgL_tail1165z00_7453 =
																				BgL_newtail1166z00_1859;
																			BgL_tail1165z00_1856 =
																				BgL_tail1165z00_7453;
																			BgL_l1162z00_1855 = BgL_l1162z00_7451;
																			goto
																				BgL_zc3z04anonymousza31705ze3z87_1857;
																		}
																	}
																else
																	{	/* Eval/evmodule.scm 500 */
																		if (NULLP(BgL_l1162z00_1855))
																			{	/* Eval/evmodule.scm 500 */
																				BgL_arg1702z00_1848 =
																					BgL_head1164z00_1852;
																			}
																		else
																			{	/* Eval/evmodule.scm 500 */
																				BgL_arg1702z00_1848 =
																					BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00
																					(BGl_string3137z00zz__evmodulez00,
																					BGl_string3069z00zz__evmodulez00,
																					BgL_l1162z00_1855,
																					BGl_string3036z00zz__evmodulez00,
																					BINT(19586L));
																			}
																	}
															}
														}
													}
											}
											{	/* Eval/evmodule.scm 500 */
												obj_t BgL_list1703z00_1849;

												BgL_list1703z00_1849 =
													MAKE_YOUNG_PAIR(BgL_arg1702z00_1848, BNIL);
												BgL_arg1691z00_1843 =
													BGl_formatz00zz__r4_output_6_10_3z00
													(BGl_string3138z00zz__evmodulez00,
													BgL_list1703z00_1849);
											}
										}
										return
											BGl_evcompilezd2errorzd2zz__evcompilez00(BFALSE,
											BgL_arg1689z00_1841, BgL_arg1690z00_1842,
											BgL_arg1691z00_1843);
									}
								}
							}
						else
							{	/* Eval/evmodule.scm 487 */
								return BFALSE;
							}
					}
				}
			}
		}

	}



/* <@exit:1676>~0 */
	obj_t BGl_zc3z04exitza31676ze3ze70z60zz__evmodulez00(obj_t BgL_modz00_4342,
		obj_t BgL_locz00_4341, obj_t BgL_vz00_4340, obj_t BgL_cell1052z00_4339,
		obj_t BgL_env1057z00_4338)
	{
		{	/* Eval/evmodule.scm 489 */
			jmp_buf_t jmpbuf;
			void *BgL_an_exit1061z00_1824;

			if (SET_EXIT(BgL_an_exit1061z00_1824))
				{
					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_exit1061z00_1824 = (void *) jmpbuf;
					PUSH_ENV_EXIT(BgL_env1057z00_4338, BgL_an_exit1061z00_1824, 1L);
					{	/* Eval/evmodule.scm 489 */
						obj_t BgL_escape1053z00_1825;

						BgL_escape1053z00_1825 =
							BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1057z00_4338);
						{	/* Eval/evmodule.scm 489 */
							obj_t BgL_res1064z00_1826;

							{	/* Eval/evmodule.scm 489 */
								obj_t BgL_ohs1049z00_1827;

								BgL_ohs1049z00_1827 =
									BGL_ENV_ERROR_HANDLER_GET(BgL_env1057z00_4338);
								{	/* Eval/evmodule.scm 489 */
									obj_t BgL_hds1050z00_1828;

									BgL_hds1050z00_1828 =
										MAKE_STACK_PAIR(BgL_escape1053z00_1825,
										BgL_cell1052z00_4339);
									BGL_ENV_ERROR_HANDLER_SET(BgL_env1057z00_4338,
										BgL_hds1050z00_1828);
									BUNSPEC;
									{	/* Eval/evmodule.scm 489 */
										obj_t BgL_exitd1058z00_1829;

										BgL_exitd1058z00_1829 =
											BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1057z00_4338);
										{	/* Eval/evmodule.scm 489 */
											obj_t BgL_tmp1060z00_1830;

											{	/* Eval/evmodule.scm 489 */
												obj_t BgL_arg1681z00_1832;

												BgL_arg1681z00_1832 =
													BGL_EXITD_PROTECT(BgL_exitd1058z00_1829);
												BgL_tmp1060z00_1830 =
													MAKE_YOUNG_PAIR(BgL_ohs1049z00_1827,
													BgL_arg1681z00_1832);
											}
											{	/* Eval/evmodule.scm 489 */

												BGL_EXITD_PROTECT_SET(BgL_exitd1058z00_1829,
													BgL_tmp1060z00_1830);
												BUNSPEC;
												{	/* Eval/evmodule.scm 494 */
													obj_t BgL_tmp1059z00_1831;

													{	/* Eval/evmodule.scm 473 */
														obj_t BgL_arg1722z00_3597;
														obj_t BgL_arg1723z00_3598;
														obj_t BgL_arg1724z00_3599;

														{	/* Eval/evmodule.scm 473 */
															obj_t BgL__ortest_1047z00_3600;

															{	/* Eval/evmodule.scm 473 */
																obj_t BgL_vectorz00_3601;

																if (VECTORP(BgL_vz00_4340))
																	{	/* Eval/evmodule.scm 473 */
																		BgL_vectorz00_3601 = BgL_vz00_4340;
																	}
																else
																	{
																		obj_t BgL_auxz00_7474;

																		BgL_auxz00_7474 =
																			BGl_typezd2errorzd2zz__errorz00
																			(BGl_string3036z00zz__evmodulez00,
																			BINT(18818L),
																			BGl_string3139z00zz__evmodulez00,
																			BGl_string3060z00zz__evmodulez00,
																			BgL_vz00_4340);
																		FAILURE(BgL_auxz00_7474, BFALSE, BFALSE);
																	}
																BgL__ortest_1047z00_3600 =
																	VECTOR_REF(BgL_vectorz00_3601, 4L);
															}
															if (CBOOL(BgL__ortest_1047z00_3600))
																{	/* Eval/evmodule.scm 473 */
																	BgL_arg1722z00_3597 =
																		BgL__ortest_1047z00_3600;
																}
															else
																{	/* Eval/evmodule.scm 473 */
																	BgL_arg1722z00_3597 = BgL_locz00_4341;
																}
														}
														BgL_arg1723z00_3598 =
															BGl_evmodulezd2namezd2zz__evmodulez00
															(BgL_modz00_4342);
														{	/* Eval/evmodule.scm 475 */
															obj_t BgL_evalzd2globalzd2_3602;

															if (VECTORP(BgL_vz00_4340))
																{	/* Eval/evmodule.scm 475 */
																	BgL_evalzd2globalzd2_3602 = BgL_vz00_4340;
																}
															else
																{
																	obj_t BgL_auxz00_7484;

																	BgL_auxz00_7484 =
																		BGl_typezd2errorzd2zz__errorz00
																		(BGl_string3036z00zz__evmodulez00,
																		BINT(18904L),
																		BGl_string3139z00zz__evmodulez00,
																		BGl_string3060z00zz__evmodulez00,
																		BgL_vz00_4340);
																	FAILURE(BgL_auxz00_7484, BFALSE, BFALSE);
																}
															BgL_arg1724z00_3599 =
																VECTOR_REF(BgL_evalzd2globalzd2_3602, 1L);
														}
														BgL_tmp1059z00_1831 =
															BGl_evcompilezd2errorzd2zz__evcompilez00
															(BgL_arg1722z00_3597, BgL_arg1723z00_3598,
															BGl_string3140z00zz__evmodulez00,
															BgL_arg1724z00_3599);
													}
													{	/* Eval/evmodule.scm 489 */
														bool_t BgL_test3758z00_7490;

														{	/* Eval/evmodule.scm 489 */
															obj_t BgL_arg2373z00_3605;

															BgL_arg2373z00_3605 =
																BGL_EXITD_PROTECT(BgL_exitd1058z00_1829);
															BgL_test3758z00_7490 = PAIRP(BgL_arg2373z00_3605);
														}
														if (BgL_test3758z00_7490)
															{	/* Eval/evmodule.scm 489 */
																obj_t BgL_arg2370z00_3606;

																{	/* Eval/evmodule.scm 489 */
																	obj_t BgL_arg2372z00_3607;

																	BgL_arg2372z00_3607 =
																		BGL_EXITD_PROTECT(BgL_exitd1058z00_1829);
																	{	/* Eval/evmodule.scm 489 */
																		obj_t BgL_pairz00_3608;

																		if (PAIRP(BgL_arg2372z00_3607))
																			{	/* Eval/evmodule.scm 489 */
																				BgL_pairz00_3608 = BgL_arg2372z00_3607;
																			}
																		else
																			{
																				obj_t BgL_auxz00_7496;

																				BgL_auxz00_7496 =
																					BGl_typezd2errorzd2zz__errorz00
																					(BGl_string3036z00zz__evmodulez00,
																					BINT(19284L),
																					BGl_string3139z00zz__evmodulez00,
																					BGl_string3038z00zz__evmodulez00,
																					BgL_arg2372z00_3607);
																				FAILURE(BgL_auxz00_7496, BFALSE,
																					BFALSE);
																			}
																		BgL_arg2370z00_3606 = CDR(BgL_pairz00_3608);
																	}
																}
																BGL_EXITD_PROTECT_SET(BgL_exitd1058z00_1829,
																	BgL_arg2370z00_3606);
																BUNSPEC;
															}
														else
															{	/* Eval/evmodule.scm 489 */
																BFALSE;
															}
													}
													BGL_ENV_ERROR_HANDLER_SET(BgL_env1057z00_4338,
														BgL_ohs1049z00_1827);
													BUNSPEC;
													BgL_res1064z00_1826 = BgL_tmp1059z00_1831;
												}
											}
										}
									}
								}
							}
							POP_ENV_EXIT(BgL_env1057z00_4338);
							return BgL_res1064z00_1826;
						}
					}
				}
		}

	}



/* &evmodule-check-unbound */
	obj_t BGl_z62evmodulezd2checkzd2unboundz62zz__evmodulez00(obj_t
		BgL_envz00_4248, obj_t BgL_modz00_4249, obj_t BgL_locz00_4250)
	{
		{	/* Eval/evmodule.scm 470 */
			return
				BGl_evmodulezd2checkzd2unboundz00zz__evmodulez00(BgL_modz00_4249,
				BgL_locz00_4250);
		}

	}



/* &global-check-unbound */
	obj_t BGl_z62globalzd2checkzd2unboundz62zz__evmodulez00(obj_t BgL_envz00_4251,
		obj_t BgL_kz00_4254, obj_t BgL_gz00_4255)
	{
		{	/* Eval/evmodule.scm 484 */
			{	/* Eval/evmodule.scm 480 */
				obj_t BgL_lz00_4252;
				obj_t BgL_modz00_4253;

				BgL_lz00_4252 = PROCEDURE_REF(BgL_envz00_4251, (int) (0L));
				BgL_modz00_4253 = PROCEDURE_REF(BgL_envz00_4251, (int) (1L));
				{	/* Eval/evmodule.scm 480 */
					bool_t BgL_test3760z00_7509;

					{	/* Eval/evmodule.scm 230 */
						bool_t BgL_test3761z00_7510;

						if (VECTORP(BgL_gz00_4255))
							{	/* Eval/evmodule.scm 230 */
								BgL_test3761z00_7510 = (VECTOR_LENGTH(BgL_gz00_4255) == 5L);
							}
						else
							{	/* Eval/evmodule.scm 230 */
								BgL_test3761z00_7510 = ((bool_t) 0);
							}
						if (BgL_test3761z00_7510)
							{	/* Eval/evmodule.scm 230 */
								int BgL_arg1395z00_5331;

								{	/* Eval/evmodule.scm 230 */
									int BgL_res2400z00_5332;

									{	/* Eval/evmodule.scm 230 */
										obj_t BgL_tmpz00_7515;

										{	/* Eval/evmodule.scm 230 */
											obj_t BgL_aux2796z00_5333;

											BgL_aux2796z00_5333 = VECTOR_REF(BgL_gz00_4255, 0L);
											if (INTEGERP(BgL_aux2796z00_5333))
												{	/* Eval/evmodule.scm 230 */
													BgL_tmpz00_7515 = BgL_aux2796z00_5333;
												}
											else
												{
													obj_t BgL_auxz00_7519;

													BgL_auxz00_7519 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3036z00zz__evmodulez00, BINT(8966L),
														BGl_string3141z00zz__evmodulez00,
														BGl_string3062z00zz__evmodulez00,
														BgL_aux2796z00_5333);
													FAILURE(BgL_auxz00_7519, BFALSE, BFALSE);
												}
										}
										BgL_res2400z00_5332 = CINT(BgL_tmpz00_7515);
									}
									BgL_arg1395z00_5331 = BgL_res2400z00_5332;
								}
								BgL_test3760z00_7509 = ((long) (BgL_arg1395z00_5331) == 6L);
							}
						else
							{	/* Eval/evmodule.scm 230 */
								BgL_test3760z00_7509 = ((bool_t) 0);
							}
					}
					if (BgL_test3760z00_7509)
						{	/* Eval/evmodule.scm 480 */
							return BFALSE;
						}
					else
						{	/* Eval/evmodule.scm 481 */
							int BgL_tagz00_5334;

							{	/* Eval/evmodule.scm 481 */
								int BgL_res2401z00_5335;

								{	/* Eval/evmodule.scm 481 */
									obj_t BgL_evalzd2globalzd2_5336;

									if (VECTORP(BgL_gz00_4255))
										{	/* Eval/evmodule.scm 481 */
											BgL_evalzd2globalzd2_5336 = BgL_gz00_4255;
										}
									else
										{
											obj_t BgL_auxz00_7528;

											BgL_auxz00_7528 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3036z00zz__evmodulez00, BINT(19035L),
												BGl_string3141z00zz__evmodulez00,
												BGl_string3060z00zz__evmodulez00, BgL_gz00_4255);
											FAILURE(BgL_auxz00_7528, BFALSE, BFALSE);
										}
									{	/* Eval/evmodule.scm 481 */
										obj_t BgL_tmpz00_7532;

										{	/* Eval/evmodule.scm 481 */
											obj_t BgL_aux2799z00_5337;

											BgL_aux2799z00_5337 =
												VECTOR_REF(BgL_evalzd2globalzd2_5336, 0L);
											if (INTEGERP(BgL_aux2799z00_5337))
												{	/* Eval/evmodule.scm 481 */
													BgL_tmpz00_7532 = BgL_aux2799z00_5337;
												}
											else
												{
													obj_t BgL_auxz00_7536;

													BgL_auxz00_7536 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3036z00zz__evmodulez00, BINT(19018L),
														BGl_string3141z00zz__evmodulez00,
														BGl_string3062z00zz__evmodulez00,
														BgL_aux2799z00_5337);
													FAILURE(BgL_auxz00_7536, BFALSE, BFALSE);
												}
										}
										BgL_res2401z00_5335 = CINT(BgL_tmpz00_7532);
									}
								}
								BgL_tagz00_5334 = BgL_res2401z00_5335;
							}
							{	/* Eval/evmodule.scm 482 */
								bool_t BgL_test3766z00_7541;

								{	/* Eval/evmodule.scm 482 */
									bool_t BgL_test3767z00_7542;

									{	/* Eval/evmodule.scm 482 */
										obj_t BgL_arg1720z00_5338;

										{	/* Eval/evmodule.scm 482 */
											obj_t BgL_vectorz00_5339;

											if (VECTORP(BgL_gz00_4255))
												{	/* Eval/evmodule.scm 482 */
													BgL_vectorz00_5339 = BgL_gz00_4255;
												}
											else
												{
													obj_t BgL_auxz00_7545;

													BgL_auxz00_7545 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3036z00zz__evmodulez00, BINT(19064L),
														BGl_string3141z00zz__evmodulez00,
														BGl_string3060z00zz__evmodulez00, BgL_gz00_4255);
													FAILURE(BgL_auxz00_7545, BFALSE, BFALSE);
												}
											BgL_arg1720z00_5338 = VECTOR_REF(BgL_vectorz00_5339, 3L);
										}
										BgL_test3767z00_7542 =
											(BgL_arg1720z00_5338 == BgL_modz00_4253);
									}
									if (BgL_test3767z00_7542)
										{	/* Eval/evmodule.scm 483 */
											bool_t BgL__ortest_1048z00_5340;

											BgL__ortest_1048z00_5340 =
												((long) (BgL_tagz00_5334) == 3L);
											if (BgL__ortest_1048z00_5340)
												{	/* Eval/evmodule.scm 483 */
													BgL_test3766z00_7541 = BgL__ortest_1048z00_5340;
												}
											else
												{	/* Eval/evmodule.scm 483 */
													BgL_test3766z00_7541 =
														((long) (BgL_tagz00_5334) == 4L);
										}}
									else
										{	/* Eval/evmodule.scm 482 */
											BgL_test3766z00_7541 = ((bool_t) 0);
										}
								}
								if (BgL_test3766z00_7541)
									{	/* Eval/evmodule.scm 484 */
										obj_t BgL_auxz00_5341;

										BgL_auxz00_5341 =
											MAKE_YOUNG_PAIR(BgL_gz00_4255,
											BGL_UNSAFE_CELL_REF(BgL_lz00_4252));
										return BGL_UNSAFE_CELL_SET(BgL_lz00_4252, BgL_auxz00_5341);
									}
								else
									{	/* Eval/evmodule.scm 482 */
										return BFALSE;
									}
							}
						}
				}
			}
		}

	}



/* evmodule-load */
	obj_t BGl_evmodulezd2loadzd2zz__evmodulez00(obj_t BgL_modz00_97,
		obj_t BgL_identz00_98, obj_t BgL_pathsz00_99, obj_t BgL_locz00_100)
	{
		{	/* Eval/evmodule.scm 505 */
			{

				{	/* Eval/evmodule.scm 519 */
					obj_t BgL_loadz00_1889;

					{	/* Eval/evmodule.scm 519 */
						obj_t BgL__ortest_1066z00_1898;

						{	/* Eval/evmodule.scm 508 */
							obj_t BgL_procz00_1910;

							BgL_procz00_1910 = BGl_bigloozd2loadzd2modulez00zz__paramz00();
							if (PROCEDUREP(BgL_procz00_1910))
								{	/* Eval/evmodule.scm 509 */
									if (PROCEDURE_CORRECT_ARITYP(BgL_procz00_1910, (int) (2L)))
										{	/* Eval/evmodule.scm 511 */
											BgL__ortest_1066z00_1898 = BgL_procz00_1910;
										}
									else
										{	/* Eval/evmodule.scm 511 */
											if (PROCEDURE_CORRECT_ARITYP(BgL_procz00_1910,
													(int) (1L)))
												{	/* Eval/evmodule.scm 514 */
													obj_t BgL_zc3z04anonymousza31742ze3z87_4259;

													BgL_zc3z04anonymousza31742ze3z87_4259 =
														MAKE_FX_PROCEDURE
														(BGl_z62zc3z04anonymousza31742ze3ze5zz__evmodulez00,
														(int) (2L), (int) (1L));
													PROCEDURE_SET(BgL_zc3z04anonymousza31742ze3z87_4259,
														(int) (0L), BgL_procz00_1910);
													BgL__ortest_1066z00_1898 =
														BgL_zc3z04anonymousza31742ze3z87_4259;
												}
											else
												{	/* Eval/evmodule.scm 513 */
													BgL__ortest_1066z00_1898 =
														BGl_errorz00zz__errorz00
														(BGl_string3142z00zz__evmodulez00,
														BGl_string3143z00zz__evmodulez00, BgL_procz00_1910);
												}
										}
								}
							else
								{	/* Eval/evmodule.scm 509 */
									BgL__ortest_1066z00_1898 = BFALSE;
								}
						}
						if (CBOOL(BgL__ortest_1066z00_1898))
							{	/* Eval/evmodule.scm 519 */
								BgL_loadz00_1889 = BgL__ortest_1066z00_1898;
							}
						else
							{	/* Eval/evmodule.scm 519 */
								BgL_loadz00_1889 = BGl_evmodulezd2loadqzd2envz00zz__evmodulez00;
							}
					}
					{
						obj_t BgL_l1168z00_1891;

						BgL_l1168z00_1891 = BgL_pathsz00_99;
					BgL_zc3z04anonymousza31725ze3z87_1892:
						if (PAIRP(BgL_l1168z00_1891))
							{	/* Eval/evmodule.scm 520 */
								{	/* Eval/evmodule.scm 520 */
									obj_t BgL_pz00_1894;

									BgL_pz00_1894 = CAR(BgL_l1168z00_1891);
									{	/* Eval/evmodule.scm 520 */
										obj_t BgL_tmpfunz00_7581;

										{	/* Eval/evmodule.scm 520 */
											bool_t BgL_test2803z00_4734;

											BgL_test2803z00_4734 = PROCEDUREP(BgL_loadz00_1889);
											if (BgL_test2803z00_4734)
												{	/* Eval/evmodule.scm 520 */
													BgL_tmpfunz00_7581 = BgL_loadz00_1889;
												}
											else
												{
													obj_t BgL_auxz00_7584;

													BgL_auxz00_7584 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3036z00zz__evmodulez00, BINT(20276L),
														BGl_string3144z00zz__evmodulez00,
														BGl_string3145z00zz__evmodulez00, BgL_loadz00_1889);
													FAILURE(BgL_auxz00_7584, BFALSE, BFALSE);
												}
										}
										(VA_PROCEDUREP(BgL_tmpfunz00_7581) ? ((obj_t(*)(obj_t,
														...))
												PROCEDURE_ENTRY(BgL_tmpfunz00_7581)) (BgL_loadz00_1889,
												BgL_pz00_1894, BgL_modz00_97, BEOA) : ((obj_t(*)(obj_t,
														obj_t,
														obj_t))
												PROCEDURE_ENTRY(BgL_tmpfunz00_7581)) (BgL_loadz00_1889,
												BgL_pz00_1894, BgL_modz00_97));
									}
								}
								{
									obj_t BgL_l1168z00_7588;

									BgL_l1168z00_7588 = CDR(BgL_l1168z00_1891);
									BgL_l1168z00_1891 = BgL_l1168z00_7588;
									goto BgL_zc3z04anonymousza31725ze3z87_1892;
								}
							}
						else
							{	/* Eval/evmodule.scm 520 */
								if (NULLP(BgL_l1168z00_1891))
									{	/* Eval/evmodule.scm 520 */
										BTRUE;
									}
								else
									{	/* Eval/evmodule.scm 520 */
										BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00
											(BGl_string3079z00zz__evmodulez00,
											BGl_string3069z00zz__evmodulez00, BgL_l1168z00_1891,
											BGl_string3036z00zz__evmodulez00, BINT(20254L));
									}
							}
					}
				}
				{	/* Eval/evmodule.scm 522 */
					obj_t BgL_mz00_1899;

					{	/* Eval/evmodule.scm 522 */
						obj_t BgL_idz00_3629;

						if (SYMBOLP(BgL_identz00_98))
							{	/* Eval/evmodule.scm 522 */
								BgL_idz00_3629 = BgL_identz00_98;
							}
						else
							{
								obj_t BgL_auxz00_7596;

								BgL_auxz00_7596 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3036z00zz__evmodulez00, BINT(20332L),
									BGl_string3142z00zz__evmodulez00,
									BGl_string3040z00zz__evmodulez00, BgL_identz00_98);
								FAILURE(BgL_auxz00_7596, BFALSE, BFALSE);
							}
						if (BGl_hashtablezf3zf3zz__hashz00
							(BGl_za2moduleszd2tableza2zd2zz__evmodulez00))
							{	/* Eval/evmodule.scm 224 */
								obj_t BgL_auxz00_7602;

								{	/* Eval/evmodule.scm 224 */
									obj_t BgL_aux2806z00_4737;

									BgL_aux2806z00_4737 =
										BGl_za2moduleszd2tableza2zd2zz__evmodulez00;
									if (STRUCTP(BgL_aux2806z00_4737))
										{	/* Eval/evmodule.scm 224 */
											BgL_auxz00_7602 = BgL_aux2806z00_4737;
										}
									else
										{
											obj_t BgL_auxz00_7605;

											BgL_auxz00_7605 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3036z00zz__evmodulez00, BINT(8670L),
												BGl_string3142z00zz__evmodulez00,
												BGl_string3042z00zz__evmodulez00, BgL_aux2806z00_4737);
											FAILURE(BgL_auxz00_7605, BFALSE, BFALSE);
										}
								}
								BgL_mz00_1899 =
									BGl_hashtablezd2getzd2zz__hashz00(BgL_auxz00_7602,
									BgL_idz00_3629);
							}
						else
							{	/* Eval/evmodule.scm 223 */
								BgL_mz00_1899 = BFALSE;
							}
					}
					{	/* Eval/evmodule.scm 523 */
						bool_t BgL_test3780z00_7610;

						{	/* Eval/evmodule.scm 135 */
							bool_t BgL_test3781z00_7611;

							if (STRUCTP(BgL_mz00_1899))
								{	/* Eval/evmodule.scm 129 */
									obj_t BgL_tmpz00_7614;

									{	/* Eval/evmodule.scm 129 */
										obj_t BgL_res2403z00_3636;

										{	/* Eval/evmodule.scm 129 */
											obj_t BgL_aux2808z00_4739;

											BgL_aux2808z00_4739 = STRUCT_KEY(BgL_mz00_1899);
											if (SYMBOLP(BgL_aux2808z00_4739))
												{	/* Eval/evmodule.scm 129 */
													BgL_res2403z00_3636 = BgL_aux2808z00_4739;
												}
											else
												{
													obj_t BgL_auxz00_7618;

													BgL_auxz00_7618 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3036z00zz__evmodulez00, BINT(4439L),
														BGl_string3142z00zz__evmodulez00,
														BGl_string3040z00zz__evmodulez00,
														BgL_aux2808z00_4739);
													FAILURE(BgL_auxz00_7618, BFALSE, BFALSE);
												}
										}
										BgL_tmpz00_7614 = BgL_res2403z00_3636;
									}
									BgL_test3781z00_7611 =
										(BgL_tmpz00_7614 == BGl_symbol3034z00zz__evmodulez00);
								}
							else
								{	/* Eval/evmodule.scm 129 */
									BgL_test3781z00_7611 = ((bool_t) 0);
								}
							if (BgL_test3781z00_7611)
								{	/* Eval/evmodule.scm 135 */
									BgL_test3780z00_7610 =
										(STRUCT_REF(BgL_mz00_1899,
											(int) (0L)) ==
										BGl_makezd2z52evmodulezd2envz52zz__evmodulez00);
								}
							else
								{	/* Eval/evmodule.scm 135 */
									BgL_test3780z00_7610 = ((bool_t) 0);
								}
						}
						if (BgL_test3780z00_7610)
							{	/* Eval/evmodule.scm 523 */
								BGl_evmodulezd2checkzd2unboundz00zz__evmodulez00(BgL_mz00_1899,
									BgL_locz00_100);
								return BgL_mz00_1899;
							}
						else
							{	/* Eval/evmodule.scm 528 */
								obj_t BgL_arg1730z00_1901;
								obj_t BgL_arg1731z00_1902;

								{	/* Eval/evmodule.scm 528 */
									obj_t BgL_arg1732z00_1903;

									{	/* Eval/evmodule.scm 528 */
										obj_t BgL_res2404z00_3640;

										if (BGl_evmodulezf3zf3zz__evmodulez00(BgL_modz00_97))
											{	/* Eval/evmodule.scm 129 */
												obj_t BgL_sz00_3639;

												if (STRUCTP(BgL_modz00_97))
													{	/* Eval/evmodule.scm 129 */
														BgL_sz00_3639 = BgL_modz00_97;
													}
												else
													{
														obj_t BgL_auxz00_7631;

														BgL_auxz00_7631 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3036z00zz__evmodulez00, BINT(4439L),
															BGl_string3142z00zz__evmodulez00,
															BGl_string3042z00zz__evmodulez00, BgL_modz00_97);
														FAILURE(BgL_auxz00_7631, BFALSE, BFALSE);
													}
												{	/* Eval/evmodule.scm 129 */
													obj_t BgL_aux2812z00_4743;

													BgL_aux2812z00_4743 =
														STRUCT_REF(BgL_sz00_3639, (int) (1L));
													if (SYMBOLP(BgL_aux2812z00_4743))
														{	/* Eval/evmodule.scm 129 */
															BgL_res2404z00_3640 = BgL_aux2812z00_4743;
														}
													else
														{
															obj_t BgL_auxz00_7639;

															BgL_auxz00_7639 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string3036z00zz__evmodulez00, BINT(4439L),
																BGl_string3142z00zz__evmodulez00,
																BGl_string3040z00zz__evmodulez00,
																BgL_aux2812z00_4743);
															FAILURE(BgL_auxz00_7639, BFALSE, BFALSE);
														}
												}
											}
										else
											{	/* Eval/evmodule.scm 143 */
												obj_t BgL_aux2814z00_4745;

												BgL_aux2814z00_4745 =
													BGl_bigloozd2typezd2errorz00zz__errorz00
													(BGl_string3041z00zz__evmodulez00,
													BGl_symbol3043z00zz__evmodulez00, BgL_modz00_97);
												if (SYMBOLP(BgL_aux2814z00_4745))
													{	/* Eval/evmodule.scm 143 */
														BgL_res2404z00_3640 = BgL_aux2814z00_4745;
													}
												else
													{
														obj_t BgL_auxz00_7646;

														BgL_auxz00_7646 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3036z00zz__evmodulez00, BINT(5128L),
															BGl_string3142z00zz__evmodulez00,
															BGl_string3040z00zz__evmodulez00,
															BgL_aux2814z00_4745);
														FAILURE(BgL_auxz00_7646, BFALSE, BFALSE);
													}
											}
										BgL_arg1732z00_1903 = BgL_res2404z00_3640;
									}
									{	/* Eval/evmodule.scm 528 */
										obj_t BgL_list1733z00_1904;

										{	/* Eval/evmodule.scm 528 */
											obj_t BgL_arg1734z00_1905;

											BgL_arg1734z00_1905 =
												MAKE_YOUNG_PAIR(BgL_identz00_98, BNIL);
											BgL_list1733z00_1904 =
												MAKE_YOUNG_PAIR(BgL_arg1732z00_1903,
												BgL_arg1734z00_1905);
										}
										BgL_arg1730z00_1901 =
											BGl_formatz00zz__r4_output_6_10_3z00
											(BGl_string3146z00zz__evmodulez00, BgL_list1733z00_1904);
									}
								}
								{	/* Eval/evmodule.scm 529 */
									bool_t BgL_test3788z00_7653;

									{	/* Eval/evmodule.scm 529 */
										obj_t BgL_tmpz00_7654;

										{	/* Eval/evmodule.scm 529 */
											obj_t BgL_pairz00_3641;

											if (PAIRP(BgL_pathsz00_99))
												{	/* Eval/evmodule.scm 529 */
													BgL_pairz00_3641 = BgL_pathsz00_99;
												}
											else
												{
													obj_t BgL_auxz00_7657;

													BgL_auxz00_7657 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3036z00zz__evmodulez00, BINT(20546L),
														BGl_string3142z00zz__evmodulez00,
														BGl_string3038z00zz__evmodulez00, BgL_pathsz00_99);
													FAILURE(BgL_auxz00_7657, BFALSE, BFALSE);
												}
											BgL_tmpz00_7654 = CDR(BgL_pairz00_3641);
										}
										BgL_test3788z00_7653 = PAIRP(BgL_tmpz00_7654);
									}
									if (BgL_test3788z00_7653)
										{	/* Eval/evmodule.scm 529 */
											BgL_arg1731z00_1902 = BgL_pathsz00_99;
										}
									else
										{	/* Eval/evmodule.scm 531 */
											obj_t BgL_pairz00_3642;

											if (PAIRP(BgL_pathsz00_99))
												{	/* Eval/evmodule.scm 531 */
													BgL_pairz00_3642 = BgL_pathsz00_99;
												}
											else
												{
													obj_t BgL_auxz00_7665;

													BgL_auxz00_7665 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3036z00zz__evmodulez00, BINT(20571L),
														BGl_string3142z00zz__evmodulez00,
														BGl_string3038z00zz__evmodulez00, BgL_pathsz00_99);
													FAILURE(BgL_auxz00_7665, BFALSE, BFALSE);
												}
											BgL_arg1731z00_1902 = CAR(BgL_pairz00_3642);
										}
								}
								BGL_TAIL return
									BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_100,
									BGl_string3072z00zz__evmodulez00, BgL_arg1730z00_1901,
									BgL_arg1731z00_1902);
							}
					}
				}
			}
		}

	}



/* &<@anonymous:1742> */
	obj_t BGl_z62zc3z04anonymousza31742ze3ze5zz__evmodulez00(obj_t
		BgL_envz00_4260, obj_t BgL_pathz00_4262, obj_t BgL__z00_4263)
	{
		{	/* Eval/evmodule.scm 514 */
			{	/* Eval/evmodule.scm 514 */
				obj_t BgL_procz00_4261;

				BgL_procz00_4261 = PROCEDURE_REF(BgL_envz00_4260, (int) (0L));
				{	/* Eval/evmodule.scm 514 */
					obj_t BgL_tmpfunz00_7676;

					{	/* Eval/evmodule.scm 514 */
						bool_t BgL_test2821z00_5342;

						BgL_test2821z00_5342 = PROCEDUREP(BgL_procz00_4261);
						if (BgL_test2821z00_5342)
							{	/* Eval/evmodule.scm 514 */
								BgL_tmpfunz00_7676 = BgL_procz00_4261;
							}
						else
							{
								obj_t BgL_auxz00_7679;

								BgL_auxz00_7679 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3036z00zz__evmodulez00, BINT(20092L),
									BGl_string3147z00zz__evmodulez00,
									BGl_string3145z00zz__evmodulez00, BgL_procz00_4261);
								FAILURE(BgL_auxz00_7679, BFALSE, BFALSE);
							}
					}
					return
						(VA_PROCEDUREP(BgL_tmpfunz00_7676) ? ((obj_t(*)(obj_t,
									...)) PROCEDURE_ENTRY(BgL_tmpfunz00_7676)) (BgL_procz00_4261,
							BgL_pathz00_4262, BEOA) : ((obj_t(*)(obj_t,
									obj_t))
							PROCEDURE_ENTRY(BgL_tmpfunz00_7676)) (BgL_procz00_4261,
							BgL_pathz00_4262));
				}
			}
		}

	}



/* &evmodule-loadq */
	obj_t BGl_z62evmodulezd2loadqzb0zz__evmodulez00(obj_t BgL_envz00_4264,
		obj_t BgL_filez00_4265, obj_t BgL_modz00_4266)
	{
		{	/* Eval/evmodule.scm 541 */
			{	/* Eval/evmodule.scm 542 */
				obj_t BgL_pathz00_5343;

				{	/* Eval/evmodule.scm 542 */
					obj_t BgL_auxz00_7683;

					if (STRINGP(BgL_filez00_4265))
						{	/* Eval/evmodule.scm 542 */
							BgL_auxz00_7683 = BgL_filez00_4265;
						}
					else
						{
							obj_t BgL_auxz00_7686;

							BgL_auxz00_7686 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3036z00zz__evmodulez00, BINT(21136L),
								BGl_string3148z00zz__evmodulez00,
								BGl_string3050z00zz__evmodulez00, BgL_filez00_4265);
							FAILURE(BgL_auxz00_7686, BFALSE, BFALSE);
						}
					BgL_pathz00_5343 =
						BGl_filezd2namezd2unixzd2canonicaliza7ez75zz__osz00
						(BgL_auxz00_7683);
				}
				{	/* Eval/evmodule.scm 542 */
					obj_t BgL_cvz00_5344;

					{	/* Eval/evmodule.scm 543 */
						obj_t BgL_tmpz00_7691;

						BgL_tmpz00_7691 =
							BGl_gensymz00zz__r4_symbols_6_4z00
							(BGl_symbol3149z00zz__evmodulez00);
						BgL_cvz00_5344 = bgl_make_condvar(BgL_tmpz00_7691);
					}
					{	/* Eval/evmodule.scm 543 */
						obj_t BgL_cellz00_5345;

						BgL_cellz00_5345 =
							MAKE_YOUNG_PAIR(BgL_pathz00_5343, BgL_cvz00_5344);
						{	/* Eval/evmodule.scm 544 */

							{

							BgL_loopz00_5346:
								{	/* Eval/evmodule.scm 546 */
									obj_t BgL_top3794z00_7696;

									BgL_top3794z00_7696 = BGL_EXITD_TOP_AS_OBJ();
									BGL_MUTEX_LOCK(BGl_za2loadqzd2mutexza2zd2zz__evmodulez00);
									BGL_EXITD_PUSH_PROTECT(BgL_top3794z00_7696,
										BGl_za2loadqzd2mutexza2zd2zz__evmodulez00);
									BUNSPEC;
									{	/* Eval/evmodule.scm 546 */
										obj_t BgL_tmp3793z00_7695;

										{	/* Eval/evmodule.scm 547 */
											obj_t BgL_cz00_5347;

											BgL_cz00_5347 =
												BGl_assocz00zz__r4_pairs_and_lists_6_3z00
												(BgL_pathz00_5343,
												BGl_za2loadingzd2listza2zd2zz__evmodulez00);
											if (PAIRP(BgL_cz00_5347))
												{	/* Eval/evmodule.scm 549 */
													{	/* Eval/evmodule.scm 553 */
														obj_t BgL_arg1745z00_5348;

														BgL_arg1745z00_5348 = CDR(BgL_cz00_5347);
														{	/* Eval/evmodule.scm 553 */
															obj_t BgL_g1233z00_5349;

															BgL_g1233z00_5349 =
																BGl_za2loadqzd2mutexza2zd2zz__evmodulez00;
															{	/* Eval/evmodule.scm 553 */

																{	/* Eval/evmodule.scm 553 */
																	obj_t BgL_cz00_5350;

																	if (BGL_CONDVARP(BgL_arg1745z00_5348))
																		{	/* Eval/evmodule.scm 553 */
																			BgL_cz00_5350 = BgL_arg1745z00_5348;
																		}
																	else
																		{
																			obj_t BgL_auxz00_7706;

																			BgL_auxz00_7706 =
																				BGl_typezd2errorzd2zz__errorz00
																				(BGl_string3150z00zz__evmodulez00,
																				BINT(8736L),
																				BGl_string3151z00zz__evmodulez00,
																				BGl_string3152z00zz__evmodulez00,
																				BgL_arg1745z00_5348);
																			FAILURE(BgL_auxz00_7706, BFALSE, BFALSE);
																		}
																	BGL_CONDVAR_WAIT(BgL_cz00_5350,
																		BgL_g1233z00_5349);
																}
															}
														}
													}
													goto BgL_loopz00_5346;
												}
											else
												{	/* Eval/evmodule.scm 549 */
													BgL_tmp3793z00_7695 =
														(BGl_za2loadingzd2listza2zd2zz__evmodulez00 =
														MAKE_YOUNG_PAIR(BgL_cellz00_5345,
															BGl_za2loadingzd2listza2zd2zz__evmodulez00),
														BUNSPEC);
												}
										}
										BGL_EXITD_POP_PROTECT(BgL_top3794z00_7696);
										BUNSPEC;
										BGL_MUTEX_UNLOCK(BGl_za2loadqzd2mutexza2zd2zz__evmodulez00);
										BgL_tmp3793z00_7695;
									}
								}
							}
							{	/* Eval/evmodule.scm 557 */
								obj_t BgL_exitd1067z00_5351;

								BgL_exitd1067z00_5351 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evmodule.scm 559 */
									obj_t BgL_zc3z04anonymousza31746ze3z87_5352;

									BgL_zc3z04anonymousza31746ze3z87_5352 =
										MAKE_FX_PROCEDURE
										(BGl_z62zc3z04anonymousza31746ze3ze5zz__evmodulez00,
										(int) (0L), (int) (2L));
									PROCEDURE_SET(BgL_zc3z04anonymousza31746ze3z87_5352,
										(int) (0L), BgL_cellz00_5345);
									PROCEDURE_SET(BgL_zc3z04anonymousza31746ze3z87_5352,
										(int) (1L), BgL_cvz00_5344);
									{	/* Eval/evmodule.scm 557 */
										obj_t BgL_arg2375z00_5353;

										{	/* Eval/evmodule.scm 557 */
											obj_t BgL_arg2376z00_5354;

											BgL_arg2376z00_5354 =
												BGL_EXITD_PROTECT(BgL_exitd1067z00_5351);
											BgL_arg2375z00_5353 =
												MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31746ze3z87_5352,
												BgL_arg2376z00_5354);
										}
										BGL_EXITD_PROTECT_SET(BgL_exitd1067z00_5351,
											BgL_arg2375z00_5353);
										BUNSPEC;
									}
									{	/* Eval/evmodule.scm 558 */
										obj_t BgL_tmp1069z00_5355;

										{	/* Eval/evmodule.scm 559 */
											obj_t BgL_envz00_5356;

											BgL_envz00_5356 =
												BGl_defaultzd2environmentzd2zz__evalz00();
											{	/* Eval/evmodule.scm 559 */

												BgL_tmp1069z00_5355 =
													BGl_loadqz00zz__evalz00(BgL_pathz00_5343,
													BgL_envz00_5356);
										}}
										{	/* Eval/evmodule.scm 557 */
											bool_t BgL_test3797z00_7727;

											{	/* Eval/evmodule.scm 557 */
												obj_t BgL_arg2373z00_5357;

												BgL_arg2373z00_5357 =
													BGL_EXITD_PROTECT(BgL_exitd1067z00_5351);
												BgL_test3797z00_7727 = PAIRP(BgL_arg2373z00_5357);
											}
											if (BgL_test3797z00_7727)
												{	/* Eval/evmodule.scm 557 */
													obj_t BgL_arg2370z00_5358;

													{	/* Eval/evmodule.scm 557 */
														obj_t BgL_arg2372z00_5359;

														BgL_arg2372z00_5359 =
															BGL_EXITD_PROTECT(BgL_exitd1067z00_5351);
														{	/* Eval/evmodule.scm 557 */
															obj_t BgL_pairz00_5360;

															if (PAIRP(BgL_arg2372z00_5359))
																{	/* Eval/evmodule.scm 557 */
																	BgL_pairz00_5360 = BgL_arg2372z00_5359;
																}
															else
																{
																	obj_t BgL_auxz00_7733;

																	BgL_auxz00_7733 =
																		BGl_typezd2errorzd2zz__errorz00
																		(BGl_string3036z00zz__evmodulez00,
																		BINT(21609L),
																		BGl_string3148z00zz__evmodulez00,
																		BGl_string3038z00zz__evmodulez00,
																		BgL_arg2372z00_5359);
																	FAILURE(BgL_auxz00_7733, BFALSE, BFALSE);
																}
															BgL_arg2370z00_5358 = CDR(BgL_pairz00_5360);
														}
													}
													BGL_EXITD_PROTECT_SET(BgL_exitd1067z00_5351,
														BgL_arg2370z00_5358);
													BUNSPEC;
												}
											else
												{	/* Eval/evmodule.scm 557 */
													BFALSE;
												}
										}
										BGl_z62zc3z04anonymousza31746ze3ze5zz__evmodulez00
											(BgL_zc3z04anonymousza31746ze3z87_5352);
										return BgL_tmp1069z00_5355;
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:1746> */
	obj_t BGl_z62zc3z04anonymousza31746ze3ze5zz__evmodulez00(obj_t
		BgL_envz00_4268)
	{
		{	/* Eval/evmodule.scm 557 */
			{	/* Eval/evmodule.scm 559 */
				obj_t BgL_cellz00_4269;
				obj_t BgL_cvz00_4270;

				BgL_cellz00_4269 = ((obj_t) PROCEDURE_REF(BgL_envz00_4268, (int) (0L)));
				BgL_cvz00_4270 = ((obj_t) PROCEDURE_REF(BgL_envz00_4268, (int) (1L)));
				{	/* Eval/evmodule.scm 559 */
					bool_t BgL_tmpz00_7746;

					{	/* Eval/evmodule.scm 559 */
						obj_t BgL_top3800z00_7748;

						BgL_top3800z00_7748 = BGL_EXITD_TOP_AS_OBJ();
						BGL_MUTEX_LOCK(BGl_za2loadqzd2mutexza2zd2zz__evmodulez00);
						BGL_EXITD_PUSH_PROTECT(BgL_top3800z00_7748,
							BGl_za2loadqzd2mutexza2zd2zz__evmodulez00);
						BUNSPEC;
						{	/* Eval/evmodule.scm 559 */
							bool_t BgL_tmp3799z00_7747;

							BGl_za2loadingzd2listza2zd2zz__evmodulez00 =
								bgl_remq_bang(BgL_cellz00_4269,
								BGl_za2loadingzd2listza2zd2zz__evmodulez00);
							BgL_tmp3799z00_7747 = BGL_CONDVAR_SIGNAL(BgL_cvz00_4270);
							BGL_EXITD_POP_PROTECT(BgL_top3800z00_7748);
							BUNSPEC;
							BGL_MUTEX_UNLOCK(BGl_za2loadqzd2mutexza2zd2zz__evmodulez00);
							BgL_tmpz00_7746 = BgL_tmp3799z00_7747;
					}}
					return BBOOL(BgL_tmpz00_7746);
				}
			}
		}

	}



/* evmodule-import! */
	obj_t BGl_evmodulezd2importz12zc0zz__evmodulez00(obj_t BgL_modz00_103,
		obj_t BgL_identz00_104, obj_t BgL_pathz00_105, obj_t BgL_setz00_106,
		obj_t BgL_abasez00_107, obj_t BgL_locz00_108)
	{
		{	/* Eval/evmodule.scm 566 */
			{	/* Eval/evmodule.scm 588 */
				obj_t BgL_mod2z00_1939;

				{	/* Eval/evmodule.scm 588 */
					obj_t BgL_idz00_3678;

					if (SYMBOLP(BgL_identz00_104))
						{	/* Eval/evmodule.scm 588 */
							BgL_idz00_3678 = BgL_identz00_104;
						}
					else
						{
							obj_t BgL_auxz00_7759;

							BgL_auxz00_7759 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3036z00zz__evmodulez00, BINT(22730L),
								BGl_string3153z00zz__evmodulez00,
								BGl_string3040z00zz__evmodulez00, BgL_identz00_104);
							FAILURE(BgL_auxz00_7759, BFALSE, BFALSE);
						}
					if (BGl_hashtablezf3zf3zz__hashz00
						(BGl_za2moduleszd2tableza2zd2zz__evmodulez00))
						{	/* Eval/evmodule.scm 224 */
							obj_t BgL_auxz00_7765;

							{	/* Eval/evmodule.scm 224 */
								obj_t BgL_aux2830z00_4761;

								BgL_aux2830z00_4761 =
									BGl_za2moduleszd2tableza2zd2zz__evmodulez00;
								if (STRUCTP(BgL_aux2830z00_4761))
									{	/* Eval/evmodule.scm 224 */
										BgL_auxz00_7765 = BgL_aux2830z00_4761;
									}
								else
									{
										obj_t BgL_auxz00_7768;

										BgL_auxz00_7768 =
											BGl_typezd2errorzd2zz__errorz00
											(BGl_string3036z00zz__evmodulez00, BINT(8670L),
											BGl_string3153z00zz__evmodulez00,
											BGl_string3042z00zz__evmodulez00, BgL_aux2830z00_4761);
										FAILURE(BgL_auxz00_7768, BFALSE, BFALSE);
									}
							}
							BgL_mod2z00_1939 =
								BGl_hashtablezd2getzd2zz__hashz00(BgL_auxz00_7765,
								BgL_idz00_3678);
						}
					else
						{	/* Eval/evmodule.scm 223 */
							BgL_mod2z00_1939 = BFALSE;
						}
				}
				{	/* Eval/evmodule.scm 590 */
					bool_t BgL_test3804z00_7773;

					{	/* Eval/evmodule.scm 135 */
						bool_t BgL_test3805z00_7774;

						if (STRUCTP(BgL_mod2z00_1939))
							{	/* Eval/evmodule.scm 129 */
								obj_t BgL_tmpz00_7777;

								{	/* Eval/evmodule.scm 129 */
									obj_t BgL_res2406z00_3685;

									{	/* Eval/evmodule.scm 129 */
										obj_t BgL_aux2832z00_4763;

										BgL_aux2832z00_4763 = STRUCT_KEY(BgL_mod2z00_1939);
										if (SYMBOLP(BgL_aux2832z00_4763))
											{	/* Eval/evmodule.scm 129 */
												BgL_res2406z00_3685 = BgL_aux2832z00_4763;
											}
										else
											{
												obj_t BgL_auxz00_7781;

												BgL_auxz00_7781 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3036z00zz__evmodulez00, BINT(4439L),
													BGl_string3153z00zz__evmodulez00,
													BGl_string3040z00zz__evmodulez00,
													BgL_aux2832z00_4763);
												FAILURE(BgL_auxz00_7781, BFALSE, BFALSE);
											}
									}
									BgL_tmpz00_7777 = BgL_res2406z00_3685;
								}
								BgL_test3805z00_7774 =
									(BgL_tmpz00_7777 == BGl_symbol3034z00zz__evmodulez00);
							}
						else
							{	/* Eval/evmodule.scm 129 */
								BgL_test3805z00_7774 = ((bool_t) 0);
							}
						if (BgL_test3805z00_7774)
							{	/* Eval/evmodule.scm 135 */
								BgL_test3804z00_7773 =
									(STRUCT_REF(BgL_mod2z00_1939,
										(int) (0L)) ==
									BGl_makezd2z52evmodulezd2envz52zz__evmodulez00);
							}
						else
							{	/* Eval/evmodule.scm 135 */
								BgL_test3804z00_7773 = ((bool_t) 0);
							}
					}
					if (BgL_test3804z00_7773)
						{	/* Eval/evmodule.scm 590 */
							return
								BGl_z62importzd2modulezb0zz__evmodulez00(BgL_setz00_106,
								BgL_locz00_108, BgL_modz00_103, BgL_mod2z00_1939);
						}
					else
						{	/* Eval/evmodule.scm 590 */
							if (PAIRP(BgL_pathz00_105))
								{	/* Eval/evmodule.scm 597 */
									bool_t BgL_test3809z00_7792;

									{	/* Eval/evmodule.scm 597 */
										int BgL_arg1756z00_1947;

										BgL_arg1756z00_1947 =
											BGl_bigloozd2debugzd2modulez00zz__paramz00();
										BgL_test3809z00_7792 = ((long) (BgL_arg1756z00_1947) > 0L);
									}
									if (BgL_test3809z00_7792)
										{	/* Eval/evmodule.scm 601 */
											obj_t BgL_zc3z04anonymousza31755ze3z87_4275;

											BgL_zc3z04anonymousza31755ze3z87_4275 =
												MAKE_FX_PROCEDURE
												(BGl_z62zc3z04anonymousza31755ze3ze5zz__evmodulez00,
												(int) (0L), (int) (5L));
											PROCEDURE_SET(BgL_zc3z04anonymousza31755ze3z87_4275,
												(int) (0L), BgL_setz00_106);
											PROCEDURE_SET(BgL_zc3z04anonymousza31755ze3z87_4275,
												(int) (1L), BgL_modz00_103);
											PROCEDURE_SET(BgL_zc3z04anonymousza31755ze3z87_4275,
												(int) (2L), BgL_identz00_104);
											PROCEDURE_SET(BgL_zc3z04anonymousza31755ze3z87_4275,
												(int) (3L), BgL_pathz00_105);
											PROCEDURE_SET(BgL_zc3z04anonymousza31755ze3z87_4275,
												(int) (4L), BgL_locz00_108);
											return
												BGl_z52withzd2tracez80zz__tracez00
												(BGl_symbol3043z00zz__evmodulez00, BgL_identz00_104,
												BgL_zc3z04anonymousza31755ze3z87_4275);
										}
									else
										{	/* Eval/evmodule.scm 597 */
											return
												BGl_z62loadzd2modulezb0zz__evmodulez00(BgL_locz00_108,
												BgL_pathz00_105, BgL_identz00_104, BgL_modz00_103,
												BgL_setz00_106);
										}
								}
							else
								{	/* Eval/evmodule.scm 594 */
									obj_t BgL_arg1757z00_1948;

									{	/* Eval/evmodule.scm 594 */
										obj_t BgL_list1758z00_1949;

										BgL_list1758z00_1949 =
											MAKE_YOUNG_PAIR(BgL_abasez00_107, BNIL);
										BgL_arg1757z00_1948 =
											BGl_formatz00zz__r4_output_6_10_3z00
											(BGl_string3154z00zz__evmodulez00, BgL_list1758z00_1949);
									}
									{	/* Eval/evmodule.scm 569 */
										obj_t BgL_arg1760z00_3688;

										{	/* Eval/evmodule.scm 569 */
											obj_t BgL_arg1761z00_3689;

											BgL_arg1761z00_3689 =
												BGl_evmodulezd2namezd2zz__evmodulez00(BgL_modz00_103);
											{	/* Eval/evmodule.scm 569 */
												obj_t BgL_list1762z00_3690;

												BgL_list1762z00_3690 =
													MAKE_YOUNG_PAIR(BgL_arg1761z00_3689, BNIL);
												BgL_arg1760z00_3688 =
													BGl_formatz00zz__r4_output_6_10_3z00
													(BGl_string3155z00zz__evmodulez00,
													BgL_list1762z00_3690);
											}
										}
										return
											BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_108,
											BgL_arg1760z00_3688, BgL_arg1757z00_1948,
											BgL_identz00_104);
									}
								}
						}
				}
			}
		}

	}



/* &load-module */
	obj_t BGl_z62loadzd2modulezb0zz__evmodulez00(obj_t BgL_locz00_4280,
		obj_t BgL_pathz00_4279, obj_t BgL_identz00_4278, obj_t BgL_modz00_4277,
		obj_t BgL_setz00_4276)
	{
		{	/* Eval/evmodule.scm 586 */
			{	/* Eval/evmodule.scm 584 */
				obj_t BgL_exitd1071z00_1983;

				BgL_exitd1071z00_1983 = BGL_EXITD_TOP_AS_OBJ();
				{	/* Eval/evmodule.scm 586 */
					obj_t BgL_zc3z04anonymousza31780ze3z87_4273;

					BgL_zc3z04anonymousza31780ze3z87_4273 =
						MAKE_FX_PROCEDURE
						(BGl_z62zc3z04anonymousza31780ze3ze5zz__evmodulez00, (int) (0L),
						(int) (1L));
					PROCEDURE_SET(BgL_zc3z04anonymousza31780ze3z87_4273, (int) (0L),
						BgL_modz00_4277);
					{	/* Eval/evmodule.scm 584 */
						obj_t BgL_arg2375z00_3671;

						{	/* Eval/evmodule.scm 584 */
							obj_t BgL_arg2376z00_3672;

							BgL_arg2376z00_3672 = BGL_EXITD_PROTECT(BgL_exitd1071z00_1983);
							BgL_arg2375z00_3671 =
								MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31780ze3z87_4273,
								BgL_arg2376z00_3672);
						}
						BGL_EXITD_PROTECT_SET(BgL_exitd1071z00_1983, BgL_arg2375z00_3671);
						BUNSPEC;
					}
					{	/* Eval/evmodule.scm 585 */
						obj_t BgL_tmp1073z00_1985;

						BgL_tmp1073z00_1985 =
							BGl_z62importzd2modulezb0zz__evmodulez00(BgL_setz00_4276,
							BgL_locz00_4280, BgL_modz00_4277,
							BGl_evmodulezd2loadzd2zz__evmodulez00(BgL_modz00_4277,
								BgL_identz00_4278, BgL_pathz00_4279, BgL_locz00_4280));
						{	/* Eval/evmodule.scm 584 */
							bool_t BgL_test3810z00_7828;

							{	/* Eval/evmodule.scm 584 */
								obj_t BgL_arg2373z00_3674;

								BgL_arg2373z00_3674 = BGL_EXITD_PROTECT(BgL_exitd1071z00_1983);
								BgL_test3810z00_7828 = PAIRP(BgL_arg2373z00_3674);
							}
							if (BgL_test3810z00_7828)
								{	/* Eval/evmodule.scm 584 */
									obj_t BgL_arg2370z00_3675;

									{	/* Eval/evmodule.scm 584 */
										obj_t BgL_arg2372z00_3676;

										BgL_arg2372z00_3676 =
											BGL_EXITD_PROTECT(BgL_exitd1071z00_1983);
										{	/* Eval/evmodule.scm 584 */
											obj_t BgL_pairz00_3677;

											if (PAIRP(BgL_arg2372z00_3676))
												{	/* Eval/evmodule.scm 584 */
													BgL_pairz00_3677 = BgL_arg2372z00_3676;
												}
											else
												{
													obj_t BgL_auxz00_7834;

													BgL_auxz00_7834 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3036z00zz__evmodulez00, BINT(22596L),
														BGl_string3156z00zz__evmodulez00,
														BGl_string3038z00zz__evmodulez00,
														BgL_arg2372z00_3676);
													FAILURE(BgL_auxz00_7834, BFALSE, BFALSE);
												}
											BgL_arg2370z00_3675 = CDR(BgL_pairz00_3677);
										}
									}
									BGL_EXITD_PROTECT_SET(BgL_exitd1071z00_1983,
										BgL_arg2370z00_3675);
									BUNSPEC;
								}
							else
								{	/* Eval/evmodule.scm 584 */
									BFALSE;
								}
						}
						BGL_MODULE_SET(BgL_modz00_4277);
						return BgL_tmp1073z00_1985;
					}
				}
			}
		}

	}



/* &import-module */
	obj_t BGl_z62importzd2modulezb0zz__evmodulez00(obj_t BgL_setz00_4283,
		obj_t BgL_locz00_4282, obj_t BgL_modz00_4281, obj_t BgL_mod2z00_1957)
	{
		{	/* Eval/evmodule.scm 576 */
			{	/* Eval/evmodule.scm 573 */
				obj_t BgL_tz00_1959;

				BgL_tz00_1959 = STRUCT_REF(BgL_modz00_4281, (int) (5L));
				{	/* Eval/evmodule.scm 574 */
					obj_t BgL_arg1764z00_1960;

					{	/* Eval/evmodule.scm 129 */
						obj_t BgL_sz00_3664;

						if (STRUCTP(BgL_mod2z00_1957))
							{	/* Eval/evmodule.scm 129 */
								BgL_sz00_3664 = BgL_mod2z00_1957;
							}
						else
							{
								obj_t BgL_auxz00_7845;

								BgL_auxz00_7845 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3036z00zz__evmodulez00, BINT(4439L),
									BGl_string3157z00zz__evmodulez00,
									BGl_string3042z00zz__evmodulez00, BgL_mod2z00_1957);
								FAILURE(BgL_auxz00_7845, BFALSE, BFALSE);
							}
						BgL_arg1764z00_1960 = STRUCT_REF(BgL_sz00_3664, (int) (5L));
					}
					{	/* Eval/evmodule.scm 576 */
						obj_t BgL_zc3z04anonymousza31766ze3z87_4271;

						BgL_zc3z04anonymousza31766ze3z87_4271 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31766ze3ze5zz__evmodulez00, (int) (2L),
							(int) (1L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31766ze3z87_4271, (int) (0L),
							BgL_tz00_1959);
						{	/* Eval/evmodule.scm 574 */
							obj_t BgL_auxz00_7856;

							if (STRUCTP(BgL_arg1764z00_1960))
								{	/* Eval/evmodule.scm 574 */
									BgL_auxz00_7856 = BgL_arg1764z00_1960;
								}
							else
								{
									obj_t BgL_auxz00_7859;

									BgL_auxz00_7859 =
										BGl_typezd2errorzd2zz__errorz00
										(BGl_string3036z00zz__evmodulez00, BINT(22316L),
										BGl_string3157z00zz__evmodulez00,
										BGl_string3042z00zz__evmodulez00, BgL_arg1764z00_1960);
									FAILURE(BgL_auxz00_7859, BFALSE, BFALSE);
								}
							BGl_hashtablezd2forzd2eachz00zz__hashz00(BgL_auxz00_7856,
								BgL_zc3z04anonymousza31766ze3z87_4271);
						}
					}
				}
			}
			{	/* Eval/evmodule.scm 578 */
				obj_t BgL_g1172z00_1966;

				{	/* Eval/evmodule.scm 129 */
					obj_t BgL_sz00_3665;

					if (STRUCTP(BgL_mod2z00_1957))
						{	/* Eval/evmodule.scm 129 */
							BgL_sz00_3665 = BgL_mod2z00_1957;
						}
					else
						{
							obj_t BgL_auxz00_7866;

							BgL_auxz00_7866 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3036z00zz__evmodulez00, BINT(4439L),
								BGl_string3157z00zz__evmodulez00,
								BGl_string3042z00zz__evmodulez00, BgL_mod2z00_1957);
							FAILURE(BgL_auxz00_7866, BFALSE, BFALSE);
						}
					BgL_g1172z00_1966 = STRUCT_REF(BgL_sz00_3665, (int) (4L));
				}
				{
					obj_t BgL_l1170z00_1968;

					BgL_l1170z00_1968 = BgL_g1172z00_1966;
				BgL_zc3z04anonymousza31767ze3z87_1969:
					if (PAIRP(BgL_l1170z00_1968))
						{	/* Eval/evmodule.scm 581 */
							{	/* Eval/evmodule.scm 579 */
								obj_t BgL_bz00_1971;

								BgL_bz00_1971 = CAR(BgL_l1170z00_1968);
								{	/* Eval/evmodule.scm 579 */
									bool_t BgL_test3816z00_7875;

									if (NULLP(BgL_setz00_4283))
										{	/* Eval/evmodule.scm 579 */
											BgL_test3816z00_7875 = ((bool_t) 1);
										}
									else
										{	/* Eval/evmodule.scm 579 */
											obj_t BgL_tmpz00_7878;

											{	/* Eval/evmodule.scm 579 */
												obj_t BgL_auxz00_7879;

												{	/* Eval/evmodule.scm 579 */
													obj_t BgL_pairz00_3667;

													if (PAIRP(BgL_bz00_1971))
														{	/* Eval/evmodule.scm 579 */
															BgL_pairz00_3667 = BgL_bz00_1971;
														}
													else
														{
															obj_t BgL_auxz00_7882;

															BgL_auxz00_7882 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string3036z00zz__evmodulez00, BINT(22460L),
																BGl_string3158z00zz__evmodulez00,
																BGl_string3038z00zz__evmodulez00,
																BgL_bz00_1971);
															FAILURE(BgL_auxz00_7882, BFALSE, BFALSE);
														}
													BgL_auxz00_7879 = CAR(BgL_pairz00_3667);
												}
												BgL_tmpz00_7878 =
													BGl_memqz00zz__r4_pairs_and_lists_6_3z00
													(BgL_auxz00_7879, BgL_setz00_4283);
											}
											BgL_test3816z00_7875 = CBOOL(BgL_tmpz00_7878);
										}
									if (BgL_test3816z00_7875)
										{	/* Eval/evmodule.scm 580 */
											obj_t BgL_arg1772z00_1975;
											obj_t BgL_arg1773z00_1976;

											{	/* Eval/evmodule.scm 580 */
												obj_t BgL_pairz00_3668;

												if (PAIRP(BgL_bz00_1971))
													{	/* Eval/evmodule.scm 580 */
														BgL_pairz00_3668 = BgL_bz00_1971;
													}
												else
													{
														obj_t BgL_auxz00_7891;

														BgL_auxz00_7891 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3036z00zz__evmodulez00, BINT(22512L),
															BGl_string3158z00zz__evmodulez00,
															BGl_string3038z00zz__evmodulez00, BgL_bz00_1971);
														FAILURE(BgL_auxz00_7891, BFALSE, BFALSE);
													}
												BgL_arg1772z00_1975 = CAR(BgL_pairz00_3668);
											}
											{	/* Eval/evmodule.scm 580 */
												obj_t BgL_pairz00_3669;

												if (PAIRP(BgL_bz00_1971))
													{	/* Eval/evmodule.scm 580 */
														BgL_pairz00_3669 = BgL_bz00_1971;
													}
												else
													{
														obj_t BgL_auxz00_7898;

														BgL_auxz00_7898 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3036z00zz__evmodulez00, BINT(22525L),
															BGl_string3158z00zz__evmodulez00,
															BGl_string3038z00zz__evmodulez00, BgL_bz00_1971);
														FAILURE(BgL_auxz00_7898, BFALSE, BFALSE);
													}
												BgL_arg1773z00_1976 = CAR(BgL_pairz00_3669);
											}
											BGl_evmodulezd2importzd2bindingz12z12zz__evmodulez00
												(BgL_modz00_4281, BgL_arg1772z00_1975, BgL_mod2z00_1957,
												BgL_arg1773z00_1976, BgL_locz00_4282);
										}
									else
										{	/* Eval/evmodule.scm 579 */
											BFALSE;
										}
								}
							}
							{
								obj_t BgL_l1170z00_7904;

								BgL_l1170z00_7904 = CDR(BgL_l1170z00_1968);
								BgL_l1170z00_1968 = BgL_l1170z00_7904;
								goto BgL_zc3z04anonymousza31767ze3z87_1969;
							}
						}
					else
						{	/* Eval/evmodule.scm 581 */
							if (NULLP(BgL_l1170z00_1968))
								{	/* Eval/evmodule.scm 581 */
									return BTRUE;
								}
							else
								{	/* Eval/evmodule.scm 581 */
									return
										BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00
										(BGl_string3079z00zz__evmodulez00,
										BGl_string3069z00zz__evmodulez00, BgL_l1170z00_1968,
										BGl_string3036z00zz__evmodulez00, BINT(22400L));
								}
						}
				}
			}
		}

	}



/* &<@anonymous:1755> */
	obj_t BGl_z62zc3z04anonymousza31755ze3ze5zz__evmodulez00(obj_t
		BgL_envz00_4284)
	{
		{	/* Eval/evmodule.scm 599 */
			{	/* Eval/evmodule.scm 601 */
				obj_t BgL_setz00_4285;
				obj_t BgL_modz00_4286;
				obj_t BgL_identz00_4287;
				obj_t BgL_pathz00_4288;
				obj_t BgL_locz00_4289;

				BgL_setz00_4285 = ((obj_t) PROCEDURE_REF(BgL_envz00_4284, (int) (0L)));
				BgL_modz00_4286 = ((obj_t) PROCEDURE_REF(BgL_envz00_4284, (int) (1L)));
				BgL_identz00_4287 = PROCEDURE_REF(BgL_envz00_4284, (int) (2L));
				BgL_pathz00_4288 = PROCEDURE_REF(BgL_envz00_4284, (int) (3L));
				BgL_locz00_4289 = PROCEDURE_REF(BgL_envz00_4284, (int) (4L));
				return
					BGl_z62loadzd2modulezb0zz__evmodulez00(BgL_locz00_4289,
					BgL_pathz00_4288, BgL_identz00_4287, BgL_modz00_4286,
					BgL_setz00_4285);
			}
		}

	}



/* &<@anonymous:1780> */
	obj_t BGl_z62zc3z04anonymousza31780ze3ze5zz__evmodulez00(obj_t
		BgL_envz00_4290)
	{
		{	/* Eval/evmodule.scm 584 */
			{	/* Eval/evmodule.scm 586 */
				obj_t BgL_modz00_4291;

				BgL_modz00_4291 = ((obj_t) PROCEDURE_REF(BgL_envz00_4290, (int) (0L)));
				return BGL_MODULE_SET(BgL_modz00_4291);
			}
		}

	}



/* &<@anonymous:1766> */
	obj_t BGl_z62zc3z04anonymousza31766ze3ze5zz__evmodulez00(obj_t
		BgL_envz00_4292, obj_t BgL_kz00_4294, obj_t BgL_vz00_4295)
	{
		{	/* Eval/evmodule.scm 575 */
			{	/* Eval/evmodule.scm 576 */
				obj_t BgL_tz00_4293;

				BgL_tz00_4293 = PROCEDURE_REF(BgL_envz00_4292, (int) (0L));
				{	/* Eval/evmodule.scm 576 */
					obj_t BgL_auxz00_7929;

					if (STRUCTP(BgL_tz00_4293))
						{	/* Eval/evmodule.scm 576 */
							BgL_auxz00_7929 = BgL_tz00_4293;
						}
					else
						{
							obj_t BgL_auxz00_7932;

							BgL_auxz00_7932 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3036z00zz__evmodulez00, BINT(22360L),
								BGl_string3159z00zz__evmodulez00,
								BGl_string3042z00zz__evmodulez00, BgL_tz00_4293);
							FAILURE(BgL_auxz00_7932, BFALSE, BFALSE);
						}
					return
						BGl_hashtablezd2putz12zc0zz__hashz00(BgL_auxz00_7929, BgL_kz00_4294,
						BgL_vz00_4295);
				}
			}
		}

	}



/* location-dir */
	obj_t BGl_locationzd2dirzd2zz__evmodulez00(obj_t BgL_locz00_109)
	{
		{	/* Eval/evmodule.scm 607 */
			if (PAIRP(BgL_locz00_109))
				{	/* Eval/evmodule.scm 608 */
					obj_t BgL_cdrzd2869zd2_1997;

					BgL_cdrzd2869zd2_1997 = CDR(((obj_t) BgL_locz00_109));
					if (
						(CAR(((obj_t) BgL_locz00_109)) == BGl_symbol3160z00zz__evmodulez00))
						{	/* Eval/evmodule.scm 608 */
							if (PAIRP(BgL_cdrzd2869zd2_1997))
								{	/* Eval/evmodule.scm 608 */
									obj_t BgL_arg1785z00_2001;

									BgL_arg1785z00_2001 = CAR(BgL_cdrzd2869zd2_1997);
									{	/* Eval/evmodule.scm 609 */
										obj_t BgL_auxz00_7948;

										if (STRINGP(BgL_arg1785z00_2001))
											{	/* Eval/evmodule.scm 609 */
												BgL_auxz00_7948 = BgL_arg1785z00_2001;
											}
										else
											{
												obj_t BgL_auxz00_7951;

												BgL_auxz00_7951 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3036z00zz__evmodulez00, BINT(23390L),
													BGl_string3162z00zz__evmodulez00,
													BGl_string3050z00zz__evmodulez00,
													BgL_arg1785z00_2001);
												FAILURE(BgL_auxz00_7951, BFALSE, BFALSE);
											}
										return BGl_dirnamez00zz__osz00(BgL_auxz00_7948);
									}
								}
							else
								{	/* Eval/evmodule.scm 608 */
									return BFALSE;
								}
						}
					else
						{	/* Eval/evmodule.scm 608 */
							return BFALSE;
						}
				}
			else
				{	/* Eval/evmodule.scm 608 */
					return BFALSE;
				}
		}

	}



/* evmodule-import */
	obj_t BGl_evmodulezd2importzd2zz__evmodulez00(obj_t BgL_modz00_110,
		obj_t BgL_clausez00_111, obj_t BgL_locz00_112)
	{
		{	/* Eval/evmodule.scm 615 */
			{
				obj_t BgL_sz00_2062;
				obj_t BgL_clausez00_2046;
				obj_t BgL_clausez00_2027;
				obj_t BgL_clausez00_2020;

				if (BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_clausez00_111))
					{	/* Eval/evmodule.scm 674 */
						obj_t BgL_g1179z00_2009;

						{	/* Eval/evmodule.scm 674 */
							obj_t BgL_pairz00_3733;

							if (PAIRP(BgL_clausez00_111))
								{	/* Eval/evmodule.scm 674 */
									BgL_pairz00_3733 = BgL_clausez00_111;
								}
							else
								{
									obj_t BgL_auxz00_7960;

									BgL_auxz00_7960 =
										BGl_typezd2errorzd2zz__errorz00
										(BGl_string3036z00zz__evmodulez00, BINT(25418L),
										BGl_string3168z00zz__evmodulez00,
										BGl_string3038z00zz__evmodulez00, BgL_clausez00_111);
									FAILURE(BgL_auxz00_7960, BFALSE, BFALSE);
								}
							BgL_g1179z00_2009 = CDR(BgL_pairz00_3733);
						}
						{
							obj_t BgL_l1177z00_2011;

							BgL_l1177z00_2011 = BgL_g1179z00_2009;
						BgL_zc3z04anonymousza31788ze3z87_2012:
							if (PAIRP(BgL_l1177z00_2011))
								{	/* Eval/evmodule.scm 674 */
									BgL_sz00_2062 = CAR(BgL_l1177z00_2011);
									{	/* Eval/evmodule.scm 647 */
										obj_t BgL_locz00_2064;
										obj_t BgL_abasez00_2065;

										{	/* Eval/evmodule.scm 647 */
											obj_t BgL__ortest_1078z00_2115;

											BgL__ortest_1078z00_2115 =
												BGl_getzd2sourcezd2locationz00zz__readerz00
												(BgL_sz00_2062);
											if (CBOOL(BgL__ortest_1078z00_2115))
												{	/* Eval/evmodule.scm 647 */
													BgL_locz00_2064 = BgL__ortest_1078z00_2115;
												}
											else
												{	/* Eval/evmodule.scm 647 */
													BgL_locz00_2064 = BgL_locz00_112;
												}
										}
										BgL_abasez00_2065 =
											BGl_locationzd2dirzd2zz__evmodulez00(BgL_locz00_112);
										if (SYMBOLP(BgL_sz00_2062))
											{	/* Eval/evmodule.scm 651 */
												obj_t BgL_pathz00_2067;

												{	/* Eval/evmodule.scm 651 */
													obj_t BgL_fun1827z00_2068;

													BgL_fun1827z00_2068 =
														BGl_bigloozd2modulezd2resolverz00zz__modulez00();
													BgL_pathz00_2067 =
														BGL_PROCEDURE_CALL3(BgL_fun1827z00_2068,
														BgL_sz00_2062, BNIL, BgL_abasez00_2065);
												}
												BGl_evmodulezd2importz12zc0zz__evmodulez00
													(BgL_modz00_110, BgL_sz00_2062, BgL_pathz00_2067,
													BNIL, BgL_abasez00_2065, BgL_locz00_2064);
											}
										else
											{	/* Eval/evmodule.scm 653 */
												bool_t BgL_test3832z00_7981;

												if (PAIRP(BgL_sz00_2062))
													{	/* Eval/evmodule.scm 653 */
														if (BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00
															(BgL_sz00_2062))
															{	/* Eval/evmodule.scm 655 */
																bool_t BgL_test3835z00_7986;

																{	/* Eval/evmodule.scm 655 */
																	bool_t BgL_test3836z00_7987;

																	{	/* Eval/evmodule.scm 655 */
																		obj_t BgL_tmpz00_7988;

																		BgL_tmpz00_7988 = CAR(BgL_sz00_2062);
																		BgL_test3836z00_7987 =
																			SYMBOLP(BgL_tmpz00_7988);
																	}
																	if (BgL_test3836z00_7987)
																		{	/* Eval/evmodule.scm 655 */
																			BgL_test3835z00_7986 = ((bool_t) 1);
																		}
																	else
																		{	/* Eval/evmodule.scm 655 */
																			BgL_test3835z00_7986 =
																				BGl_aliaszd2pairzf3z21zz__evmodulez00
																				(CAR(BgL_sz00_2062));
																		}
																}
																if (BgL_test3835z00_7986)
																	{	/* Eval/evmodule.scm 655 */
																		BgL_test3832z00_7981 = ((bool_t) 0);
																	}
																else
																	{	/* Eval/evmodule.scm 655 */
																		BgL_test3832z00_7981 = ((bool_t) 1);
																	}
															}
														else
															{	/* Eval/evmodule.scm 654 */
																BgL_test3832z00_7981 = ((bool_t) 1);
															}
													}
												else
													{	/* Eval/evmodule.scm 653 */
														BgL_test3832z00_7981 = ((bool_t) 1);
													}
												if (BgL_test3832z00_7981)
													{	/* Eval/evmodule.scm 653 */
														BGl_evcompilezd2errorzd2zz__evcompilez00
															(BgL_locz00_112, BGl_string3072z00zz__evmodulez00,
															BGl_string3166z00zz__evmodulez00, BgL_sz00_2062);
													}
												else
													{	/* Eval/evmodule.scm 658 */
														obj_t BgL_filesz00_2080;
														obj_t BgL_imodz00_2081;
														obj_t BgL_importsz00_2082;
														obj_t BgL_aliasesz00_2083;
														obj_t BgL_dirz00_2084;

														BgL_clausez00_2020 = BgL_sz00_2062;
													BgL_zc3z04anonymousza31794ze3z87_2021:
														if (NULLP(BgL_clausez00_2020))
															{	/* Eval/evmodule.scm 622 */
																BgL_filesz00_2080 = BNIL;
															}
														else
															{	/* Eval/evmodule.scm 623 */
																bool_t BgL_test3838z00_7996;

																{	/* Eval/evmodule.scm 623 */
																	obj_t BgL_tmpz00_7997;

																	{	/* Eval/evmodule.scm 623 */
																		obj_t BgL_pairz00_3694;

																		if (PAIRP(BgL_clausez00_2020))
																			{	/* Eval/evmodule.scm 623 */
																				BgL_pairz00_3694 = BgL_clausez00_2020;
																			}
																		else
																			{
																				obj_t BgL_auxz00_8000;

																				BgL_auxz00_8000 =
																					BGl_typezd2errorzd2zz__errorz00
																					(BGl_string3036z00zz__evmodulez00,
																					BINT(23874L),
																					BGl_string3163z00zz__evmodulez00,
																					BGl_string3038z00zz__evmodulez00,
																					BgL_clausez00_2020);
																				FAILURE(BgL_auxz00_8000, BFALSE,
																					BFALSE);
																			}
																		BgL_tmpz00_7997 = CAR(BgL_pairz00_3694);
																	}
																	BgL_test3838z00_7996 =
																		STRINGP(BgL_tmpz00_7997);
																}
																if (BgL_test3838z00_7996)
																	{	/* Eval/evmodule.scm 623 */
																		BgL_filesz00_2080 = BgL_clausez00_2020;
																	}
																else
																	{
																		obj_t BgL_clausez00_8006;

																		{	/* Eval/evmodule.scm 624 */
																			obj_t BgL_pairz00_3695;

																			if (PAIRP(BgL_clausez00_2020))
																				{	/* Eval/evmodule.scm 624 */
																					BgL_pairz00_3695 = BgL_clausez00_2020;
																				}
																			else
																				{
																					obj_t BgL_auxz00_8009;

																					BgL_auxz00_8009 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string3036z00zz__evmodulez00,
																						BINT(23923L),
																						BGl_string3163z00zz__evmodulez00,
																						BGl_string3038z00zz__evmodulez00,
																						BgL_clausez00_2020);
																					FAILURE(BgL_auxz00_8009, BFALSE,
																						BFALSE);
																				}
																			BgL_clausez00_8006 =
																				CDR(BgL_pairz00_3695);
																		}
																		BgL_clausez00_2020 = BgL_clausez00_8006;
																		goto BgL_zc3z04anonymousza31794ze3z87_2021;
																	}
															}
														{
															obj_t BgL_list1174z00_2100;

															BgL_list1174z00_2100 = BgL_sz00_2062;
														BgL_zc3z04anonymousza31848ze3z87_2101:
															if (PAIRP(BgL_list1174z00_2100))
																{	/* Eval/evmodule.scm 659 */
																	bool_t BgL_test3842z00_8016;

																	{	/* Eval/evmodule.scm 659 */
																		obj_t BgL_tmpz00_8017;

																		BgL_tmpz00_8017 = CAR(BgL_list1174z00_2100);
																		BgL_test3842z00_8016 =
																			SYMBOLP(BgL_tmpz00_8017);
																	}
																	if (BgL_test3842z00_8016)
																		{	/* Eval/evmodule.scm 659 */
																			BgL_imodz00_2081 =
																				CAR(BgL_list1174z00_2100);
																		}
																	else
																		{
																			obj_t BgL_list1174z00_8021;

																			BgL_list1174z00_8021 =
																				CDR(BgL_list1174z00_2100);
																			BgL_list1174z00_2100 =
																				BgL_list1174z00_8021;
																			goto
																				BgL_zc3z04anonymousza31848ze3z87_2101;
																		}
																}
															else
																{	/* Eval/evmodule.scm 659 */
																	BgL_imodz00_2081 = BFALSE;
																}
														}
														BgL_clausez00_2027 = BgL_sz00_2062;
														{	/* Eval/evmodule.scm 627 */
															obj_t BgL_lz00_2029;

															{	/* Eval/evmodule.scm 627 */
																obj_t BgL_auxz00_8023;

																{	/* Eval/evmodule.scm 627 */
																	bool_t BgL_test3843z00_8024;

																	if (PAIRP(BgL_clausez00_2027))
																		{	/* Eval/evmodule.scm 627 */
																			BgL_test3843z00_8024 = ((bool_t) 1);
																		}
																	else
																		{	/* Eval/evmodule.scm 627 */
																			BgL_test3843z00_8024 =
																				NULLP(BgL_clausez00_2027);
																		}
																	if (BgL_test3843z00_8024)
																		{	/* Eval/evmodule.scm 627 */
																			BgL_auxz00_8023 = BgL_clausez00_2027;
																		}
																	else
																		{
																			obj_t BgL_auxz00_8028;

																			BgL_auxz00_8028 =
																				BGl_typezd2errorzd2zz__errorz00
																				(BGl_string3036z00zz__evmodulez00,
																				BINT(24010L),
																				BGl_string3164z00zz__evmodulez00,
																				BGl_string3094z00zz__evmodulez00,
																				BgL_clausez00_2027);
																			FAILURE(BgL_auxz00_8028, BFALSE, BFALSE);
																		}
																}
																BgL_lz00_2029 =
																	BGl_findzd2tailzd2zz__r4_pairs_and_lists_6_3z00
																	(BGl_symbolzf3zd2envz21zz__r4_symbols_6_4z00,
																	BgL_auxz00_8023);
															}
															{
																obj_t BgL_lstz00_2032;
																obj_t BgL_resz00_2033;

																BgL_lstz00_2032 = BgL_clausez00_2027;
																BgL_resz00_2033 = BNIL;
															BgL_zc3z04anonymousza31801ze3z87_2034:
																if ((BgL_lstz00_2032 == BgL_lz00_2029))
																	{	/* Eval/evmodule.scm 630 */
																		BgL_importsz00_2082 = BgL_resz00_2033;
																	}
																else
																	{	/* Eval/evmodule.scm 632 */
																		bool_t BgL_test3846z00_8035;

																		{	/* Eval/evmodule.scm 632 */
																			obj_t BgL_auxz00_8036;

																			{	/* Eval/evmodule.scm 632 */
																				obj_t BgL_pairz00_3696;

																				if (PAIRP(BgL_lstz00_2032))
																					{	/* Eval/evmodule.scm 632 */
																						BgL_pairz00_3696 = BgL_lstz00_2032;
																					}
																				else
																					{
																						obj_t BgL_auxz00_8039;

																						BgL_auxz00_8039 =
																							BGl_typezd2errorzd2zz__errorz00
																							(BGl_string3036z00zz__evmodulez00,
																							BINT(24114L),
																							BGl_string3151z00zz__evmodulez00,
																							BGl_string3038z00zz__evmodulez00,
																							BgL_lstz00_2032);
																						FAILURE(BgL_auxz00_8039, BFALSE,
																							BFALSE);
																					}
																				BgL_auxz00_8036 = CAR(BgL_pairz00_3696);
																			}
																			BgL_test3846z00_8035 =
																				BGl_aliaszd2pairzf3z21zz__evmodulez00
																				(BgL_auxz00_8036);
																		}
																		if (BgL_test3846z00_8035)
																			{	/* Eval/evmodule.scm 633 */
																				obj_t BgL_arg1805z00_2037;
																				obj_t BgL_arg1807z00_2038;

																				{	/* Eval/evmodule.scm 633 */
																					obj_t BgL_pairz00_3697;

																					if (PAIRP(BgL_lstz00_2032))
																						{	/* Eval/evmodule.scm 633 */
																							BgL_pairz00_3697 =
																								BgL_lstz00_2032;
																						}
																					else
																						{
																							obj_t BgL_auxz00_8047;

																							BgL_auxz00_8047 =
																								BGl_typezd2errorzd2zz__errorz00
																								(BGl_string3036z00zz__evmodulez00,
																								BINT(24137L),
																								BGl_string3151z00zz__evmodulez00,
																								BGl_string3038z00zz__evmodulez00,
																								BgL_lstz00_2032);
																							FAILURE(BgL_auxz00_8047, BFALSE,
																								BFALSE);
																						}
																					BgL_arg1805z00_2037 =
																						CDR(BgL_pairz00_3697);
																				}
																				{	/* Eval/evmodule.scm 633 */
																					obj_t BgL_arg1808z00_2039;

																					{	/* Eval/evmodule.scm 633 */
																						obj_t BgL_pairz00_3699;

																						{	/* Eval/evmodule.scm 633 */
																							obj_t BgL_pairz00_3698;

																							if (PAIRP(BgL_lstz00_2032))
																								{	/* Eval/evmodule.scm 633 */
																									BgL_pairz00_3698 =
																										BgL_lstz00_2032;
																								}
																							else
																								{
																									obj_t BgL_auxz00_8054;

																									BgL_auxz00_8054 =
																										BGl_typezd2errorzd2zz__errorz00
																										(BGl_string3036z00zz__evmodulez00,
																										BINT(24159L),
																										BGl_string3151z00zz__evmodulez00,
																										BGl_string3038z00zz__evmodulez00,
																										BgL_lstz00_2032);
																									FAILURE(BgL_auxz00_8054,
																										BFALSE, BFALSE);
																								}
																							{	/* Eval/evmodule.scm 633 */
																								obj_t BgL_aux2868z00_4799;

																								BgL_aux2868z00_4799 =
																									CAR(BgL_pairz00_3698);
																								if (PAIRP(BgL_aux2868z00_4799))
																									{	/* Eval/evmodule.scm 633 */
																										BgL_pairz00_3699 =
																											BgL_aux2868z00_4799;
																									}
																								else
																									{
																										obj_t BgL_auxz00_8061;

																										BgL_auxz00_8061 =
																											BGl_typezd2errorzd2zz__errorz00
																											(BGl_string3036z00zz__evmodulez00,
																											BINT(24154L),
																											BGl_string3151z00zz__evmodulez00,
																											BGl_string3038z00zz__evmodulez00,
																											BgL_aux2868z00_4799);
																										FAILURE(BgL_auxz00_8061,
																											BFALSE, BFALSE);
																									}
																							}
																						}
																						{	/* Eval/evmodule.scm 633 */
																							obj_t BgL_pairz00_3702;

																							{	/* Eval/evmodule.scm 633 */
																								obj_t BgL_aux2870z00_4801;

																								BgL_aux2870z00_4801 =
																									CDR(BgL_pairz00_3699);
																								if (PAIRP(BgL_aux2870z00_4801))
																									{	/* Eval/evmodule.scm 633 */
																										BgL_pairz00_3702 =
																											BgL_aux2870z00_4801;
																									}
																								else
																									{
																										obj_t BgL_auxz00_8068;

																										BgL_auxz00_8068 =
																											BGl_typezd2errorzd2zz__errorz00
																											(BGl_string3036z00zz__evmodulez00,
																											BINT(24148L),
																											BGl_string3151z00zz__evmodulez00,
																											BGl_string3038z00zz__evmodulez00,
																											BgL_aux2870z00_4801);
																										FAILURE(BgL_auxz00_8068,
																											BFALSE, BFALSE);
																									}
																							}
																							BgL_arg1808z00_2039 =
																								CAR(BgL_pairz00_3702);
																						}
																					}
																					BgL_arg1807z00_2038 =
																						MAKE_YOUNG_PAIR(BgL_arg1808z00_2039,
																						BgL_resz00_2033);
																				}
																				{
																					obj_t BgL_resz00_8075;
																					obj_t BgL_lstz00_8074;

																					BgL_lstz00_8074 = BgL_arg1805z00_2037;
																					BgL_resz00_8075 = BgL_arg1807z00_2038;
																					BgL_resz00_2033 = BgL_resz00_8075;
																					BgL_lstz00_2032 = BgL_lstz00_8074;
																					goto
																						BgL_zc3z04anonymousza31801ze3z87_2034;
																				}
																			}
																		else
																			{	/* Eval/evmodule.scm 634 */
																				obj_t BgL_arg1811z00_2041;
																				obj_t BgL_arg1812z00_2042;

																				{	/* Eval/evmodule.scm 634 */
																					obj_t BgL_pairz00_3703;

																					if (PAIRP(BgL_lstz00_2032))
																						{	/* Eval/evmodule.scm 634 */
																							BgL_pairz00_3703 =
																								BgL_lstz00_2032;
																						}
																					else
																						{
																							obj_t BgL_auxz00_8078;

																							BgL_auxz00_8078 =
																								BGl_typezd2errorzd2zz__errorz00
																								(BGl_string3036z00zz__evmodulez00,
																								BINT(24188L),
																								BGl_string3151z00zz__evmodulez00,
																								BGl_string3038z00zz__evmodulez00,
																								BgL_lstz00_2032);
																							FAILURE(BgL_auxz00_8078, BFALSE,
																								BFALSE);
																						}
																					BgL_arg1811z00_2041 =
																						CDR(BgL_pairz00_3703);
																				}
																				{	/* Eval/evmodule.scm 634 */
																					obj_t BgL_arg1813z00_2043;

																					{	/* Eval/evmodule.scm 634 */
																						obj_t BgL_pairz00_3704;

																						if (PAIRP(BgL_lstz00_2032))
																							{	/* Eval/evmodule.scm 634 */
																								BgL_pairz00_3704 =
																									BgL_lstz00_2032;
																							}
																						else
																							{
																								obj_t BgL_auxz00_8085;

																								BgL_auxz00_8085 =
																									BGl_typezd2errorzd2zz__errorz00
																									(BGl_string3036z00zz__evmodulez00,
																									BINT(24204L),
																									BGl_string3151z00zz__evmodulez00,
																									BGl_string3038z00zz__evmodulez00,
																									BgL_lstz00_2032);
																								FAILURE(BgL_auxz00_8085, BFALSE,
																									BFALSE);
																							}
																						BgL_arg1813z00_2043 =
																							CAR(BgL_pairz00_3704);
																					}
																					BgL_arg1812z00_2042 =
																						MAKE_YOUNG_PAIR(BgL_arg1813z00_2043,
																						BgL_resz00_2033);
																				}
																				{
																					obj_t BgL_resz00_8092;
																					obj_t BgL_lstz00_8091;

																					BgL_lstz00_8091 = BgL_arg1811z00_2041;
																					BgL_resz00_8092 = BgL_arg1812z00_2042;
																					BgL_resz00_2033 = BgL_resz00_8092;
																					BgL_lstz00_2032 = BgL_lstz00_8091;
																					goto
																						BgL_zc3z04anonymousza31801ze3z87_2034;
																				}
																			}
																	}
															}
														}
														BgL_clausez00_2046 = BgL_sz00_2062;
														{	/* Eval/evmodule.scm 637 */
															obj_t BgL_lz00_2048;

															{	/* Eval/evmodule.scm 637 */
																obj_t BgL_auxz00_8093;

																{	/* Eval/evmodule.scm 637 */
																	bool_t BgL_test3854z00_8094;

																	if (PAIRP(BgL_clausez00_2046))
																		{	/* Eval/evmodule.scm 637 */
																			BgL_test3854z00_8094 = ((bool_t) 1);
																		}
																	else
																		{	/* Eval/evmodule.scm 637 */
																			BgL_test3854z00_8094 =
																				NULLP(BgL_clausez00_2046);
																		}
																	if (BgL_test3854z00_8094)
																		{	/* Eval/evmodule.scm 637 */
																			BgL_auxz00_8093 = BgL_clausez00_2046;
																		}
																	else
																		{
																			obj_t BgL_auxz00_8098;

																			BgL_auxz00_8098 =
																				BGl_typezd2errorzd2zz__errorz00
																				(BGl_string3036z00zz__evmodulez00,
																				BINT(24295L),
																				BGl_string3165z00zz__evmodulez00,
																				BGl_string3094z00zz__evmodulez00,
																				BgL_clausez00_2046);
																			FAILURE(BgL_auxz00_8098, BFALSE, BFALSE);
																		}
																}
																BgL_lz00_2048 =
																	BGl_findzd2tailzd2zz__r4_pairs_and_lists_6_3z00
																	(BGl_symbolzf3zd2envz21zz__r4_symbols_6_4z00,
																	BgL_auxz00_8093);
															}
															{
																obj_t BgL_lstz00_2051;
																obj_t BgL_resz00_2052;

																BgL_lstz00_2051 = BgL_clausez00_2046;
																BgL_resz00_2052 = BNIL;
															BgL_zc3z04anonymousza31816ze3z87_2053:
																if ((BgL_lstz00_2051 == BgL_lz00_2048))
																	{	/* Eval/evmodule.scm 640 */
																		BgL_aliasesz00_2083 = BgL_resz00_2052;
																	}
																else
																	{	/* Eval/evmodule.scm 642 */
																		bool_t BgL_test3857z00_8105;

																		{	/* Eval/evmodule.scm 642 */
																			obj_t BgL_auxz00_8106;

																			{	/* Eval/evmodule.scm 642 */
																				obj_t BgL_pairz00_3705;

																				if (PAIRP(BgL_lstz00_2051))
																					{	/* Eval/evmodule.scm 642 */
																						BgL_pairz00_3705 = BgL_lstz00_2051;
																					}
																				else
																					{
																						obj_t BgL_auxz00_8109;

																						BgL_auxz00_8109 =
																							BGl_typezd2errorzd2zz__errorz00
																							(BGl_string3036z00zz__evmodulez00,
																							BINT(24399L),
																							BGl_string3151z00zz__evmodulez00,
																							BGl_string3038z00zz__evmodulez00,
																							BgL_lstz00_2051);
																						FAILURE(BgL_auxz00_8109, BFALSE,
																							BFALSE);
																					}
																				BgL_auxz00_8106 = CAR(BgL_pairz00_3705);
																			}
																			BgL_test3857z00_8105 =
																				BGl_aliaszd2pairzf3z21zz__evmodulez00
																				(BgL_auxz00_8106);
																		}
																		if (BgL_test3857z00_8105)
																			{	/* Eval/evmodule.scm 643 */
																				obj_t BgL_arg1819z00_2056;
																				obj_t BgL_arg1820z00_2057;

																				{	/* Eval/evmodule.scm 643 */
																					obj_t BgL_pairz00_3706;

																					if (PAIRP(BgL_lstz00_2051))
																						{	/* Eval/evmodule.scm 643 */
																							BgL_pairz00_3706 =
																								BgL_lstz00_2051;
																						}
																					else
																						{
																							obj_t BgL_auxz00_8117;

																							BgL_auxz00_8117 =
																								BGl_typezd2errorzd2zz__errorz00
																								(BGl_string3036z00zz__evmodulez00,
																								BINT(24422L),
																								BGl_string3151z00zz__evmodulez00,
																								BGl_string3038z00zz__evmodulez00,
																								BgL_lstz00_2051);
																							FAILURE(BgL_auxz00_8117, BFALSE,
																								BFALSE);
																						}
																					BgL_arg1819z00_2056 =
																						CDR(BgL_pairz00_3706);
																				}
																				{	/* Eval/evmodule.scm 643 */
																					obj_t BgL_arg1821z00_2058;

																					{	/* Eval/evmodule.scm 643 */
																						obj_t BgL_pairz00_3707;

																						if (PAIRP(BgL_lstz00_2051))
																							{	/* Eval/evmodule.scm 643 */
																								BgL_pairz00_3707 =
																									BgL_lstz00_2051;
																							}
																						else
																							{
																								obj_t BgL_auxz00_8124;

																								BgL_auxz00_8124 =
																									BGl_typezd2errorzd2zz__errorz00
																									(BGl_string3036z00zz__evmodulez00,
																									BINT(24438L),
																									BGl_string3151z00zz__evmodulez00,
																									BGl_string3038z00zz__evmodulez00,
																									BgL_lstz00_2051);
																								FAILURE(BgL_auxz00_8124, BFALSE,
																									BFALSE);
																							}
																						BgL_arg1821z00_2058 =
																							CAR(BgL_pairz00_3707);
																					}
																					BgL_arg1820z00_2057 =
																						MAKE_YOUNG_PAIR(BgL_arg1821z00_2058,
																						BgL_resz00_2052);
																				}
																				{
																					obj_t BgL_resz00_8131;
																					obj_t BgL_lstz00_8130;

																					BgL_lstz00_8130 = BgL_arg1819z00_2056;
																					BgL_resz00_8131 = BgL_arg1820z00_2057;
																					BgL_resz00_2052 = BgL_resz00_8131;
																					BgL_lstz00_2051 = BgL_lstz00_8130;
																					goto
																						BgL_zc3z04anonymousza31816ze3z87_2053;
																				}
																			}
																		else
																			{	/* Eval/evmodule.scm 644 */
																				obj_t BgL_arg1822z00_2059;

																				{	/* Eval/evmodule.scm 644 */
																					obj_t BgL_pairz00_3708;

																					if (PAIRP(BgL_lstz00_2051))
																						{	/* Eval/evmodule.scm 644 */
																							BgL_pairz00_3708 =
																								BgL_lstz00_2051;
																						}
																					else
																						{
																							obj_t BgL_auxz00_8134;

																							BgL_auxz00_8134 =
																								BGl_typezd2errorzd2zz__errorz00
																								(BGl_string3036z00zz__evmodulez00,
																								BINT(24466L),
																								BGl_string3151z00zz__evmodulez00,
																								BGl_string3038z00zz__evmodulez00,
																								BgL_lstz00_2051);
																							FAILURE(BgL_auxz00_8134, BFALSE,
																								BFALSE);
																						}
																					BgL_arg1822z00_2059 =
																						CDR(BgL_pairz00_3708);
																				}
																				{
																					obj_t BgL_lstz00_8139;

																					BgL_lstz00_8139 = BgL_arg1822z00_2059;
																					BgL_lstz00_2051 = BgL_lstz00_8139;
																					goto
																						BgL_zc3z04anonymousza31816ze3z87_2053;
																				}
																			}
																	}
															}
														}
														{	/* Eval/evmodule.scm 662 */
															obj_t BgL__ortest_1079z00_2108;

															BgL__ortest_1079z00_2108 =
																BGl_locationzd2dirzd2zz__evmodulez00
																(BgL_locz00_2064);
															if (CBOOL(BgL__ortest_1079z00_2108))
																{	/* Eval/evmodule.scm 662 */
																	BgL_dirz00_2084 = BgL__ortest_1079z00_2108;
																}
															else
																{	/* Eval/evmodule.scm 662 */
																	BgL_dirz00_2084 = BGl_pwdz00zz__osz00();
																}
														}
														{	/* Eval/evmodule.scm 663 */
															obj_t BgL_pathz00_2085;

															{	/* Eval/evmodule.scm 663 */
																obj_t BgL_fun1847z00_2098;

																BgL_fun1847z00_2098 =
																	BGl_bigloozd2modulezd2resolverz00zz__modulez00
																	();
																BgL_pathz00_2085 =
																	BGL_PROCEDURE_CALL3(BgL_fun1847z00_2098,
																	BgL_imodz00_2081, BgL_filesz00_2080,
																	BgL_dirz00_2084);
															}
															{
																obj_t BgL_l1175z00_2087;

																BgL_l1175z00_2087 = BgL_aliasesz00_2083;
															BgL_zc3z04anonymousza31838ze3z87_2088:
																if (PAIRP(BgL_l1175z00_2087))
																	{	/* Eval/evmodule.scm 664 */
																		{	/* Eval/evmodule.scm 665 */
																			obj_t BgL_apz00_2090;

																			BgL_apz00_2090 = CAR(BgL_l1175z00_2087);
																			{	/* Eval/evmodule.scm 666 */
																				obj_t BgL_arg1840z00_2091;
																				obj_t BgL_arg1841z00_2092;
																				obj_t BgL_arg1842z00_2093;

																				{	/* Eval/evmodule.scm 666 */
																					obj_t BgL_pairz00_3715;

																					if (PAIRP(BgL_apz00_2090))
																						{	/* Eval/evmodule.scm 666 */
																							BgL_pairz00_3715 = BgL_apz00_2090;
																						}
																					else
																						{
																							obj_t BgL_auxz00_8156;

																							BgL_auxz00_8156 =
																								BGl_typezd2errorzd2zz__errorz00
																								(BGl_string3036z00zz__evmodulez00,
																								BINT(25178L),
																								BGl_string3167z00zz__evmodulez00,
																								BGl_string3038z00zz__evmodulez00,
																								BgL_apz00_2090);
																							FAILURE(BgL_auxz00_8156, BFALSE,
																								BFALSE);
																						}
																					BgL_arg1840z00_2091 =
																						CAR(BgL_pairz00_3715);
																				}
																				{	/* Eval/evmodule.scm 667 */
																					obj_t BgL_pairz00_3716;

																					if (PAIRP(BgL_apz00_2090))
																						{	/* Eval/evmodule.scm 667 */
																							BgL_pairz00_3716 = BgL_apz00_2090;
																						}
																					else
																						{
																							obj_t BgL_auxz00_8163;

																							BgL_auxz00_8163 =
																								BGl_typezd2errorzd2zz__errorz00
																								(BGl_string3036z00zz__evmodulez00,
																								BINT(25195L),
																								BGl_string3167z00zz__evmodulez00,
																								BGl_string3038z00zz__evmodulez00,
																								BgL_apz00_2090);
																							FAILURE(BgL_auxz00_8163, BFALSE,
																								BFALSE);
																						}
																					{	/* Eval/evmodule.scm 667 */
																						obj_t BgL_pairz00_3719;

																						{	/* Eval/evmodule.scm 667 */
																							obj_t BgL_aux2890z00_4821;

																							BgL_aux2890z00_4821 =
																								CDR(BgL_pairz00_3716);
																							if (PAIRP(BgL_aux2890z00_4821))
																								{	/* Eval/evmodule.scm 667 */
																									BgL_pairz00_3719 =
																										BgL_aux2890z00_4821;
																								}
																							else
																								{
																									obj_t BgL_auxz00_8170;

																									BgL_auxz00_8170 =
																										BGl_typezd2errorzd2zz__errorz00
																										(BGl_string3036z00zz__evmodulez00,
																										BINT(25189L),
																										BGl_string3167z00zz__evmodulez00,
																										BGl_string3038z00zz__evmodulez00,
																										BgL_aux2890z00_4821);
																									FAILURE(BgL_auxz00_8170,
																										BFALSE, BFALSE);
																								}
																						}
																						BgL_arg1841z00_2092 =
																							CAR(BgL_pairz00_3719);
																					}
																				}
																				{	/* Eval/evmodule.scm 668 */
																					obj_t BgL__ortest_1080z00_2094;

																					BgL__ortest_1080z00_2094 =
																						BGl_getzd2sourcezd2locationz00zz__readerz00
																						(BgL_apz00_2090);
																					if (CBOOL(BgL__ortest_1080z00_2094))
																						{	/* Eval/evmodule.scm 668 */
																							BgL_arg1842z00_2093 =
																								BgL__ortest_1080z00_2094;
																						}
																					else
																						{	/* Eval/evmodule.scm 668 */
																							BgL_arg1842z00_2093 =
																								BgL_locz00_2064;
																						}
																				}
																				{	/* Eval/evmodule.scm 680 */
																					obj_t BgL_az00_3720;

																					{	/* Eval/evmodule.scm 680 */
																						obj_t BgL_idz00_3721;

																						if (SYMBOLP(BgL_arg1840z00_2091))
																							{	/* Eval/evmodule.scm 680 */
																								BgL_idz00_3721 =
																									BgL_arg1840z00_2091;
																							}
																						else
																							{
																								obj_t BgL_auxz00_8180;

																								BgL_auxz00_8180 =
																									BGl_typezd2errorzd2zz__errorz00
																									(BGl_string3036z00zz__evmodulez00,
																									BINT(25732L),
																									BGl_string3167z00zz__evmodulez00,
																									BGl_string3040z00zz__evmodulez00,
																									BgL_arg1840z00_2091);
																								FAILURE(BgL_auxz00_8180, BFALSE,
																									BFALSE);
																							}
																						{	/* Eval/evmodule.scm 680 */
																							obj_t BgL_v1213z00_3722;

																							BgL_v1213z00_3722 =
																								create_vector(5L);
																							VECTOR_SET(BgL_v1213z00_3722, 0L,
																								BINT(2L));
																							VECTOR_SET(BgL_v1213z00_3722, 1L,
																								BgL_idz00_3721);
																							VECTOR_SET(BgL_v1213z00_3722, 2L,
																								BUNSPEC);
																							VECTOR_SET(BgL_v1213z00_3722, 3L,
																								BgL_imodz00_2081);
																							VECTOR_SET(BgL_v1213z00_3722, 4L,
																								BgL_arg1842z00_2093);
																							BgL_az00_3720 = BgL_v1213z00_3722;
																						}
																					}
																					VECTOR_SET(BgL_az00_3720, 0L,
																						BINT(6L));
																					VECTOR_SET(BgL_az00_3720, 2L,
																						BgL_arg1841z00_2092);
																					{	/* Eval/evmodule.scm 683 */
																						obj_t BgL_auxz00_8194;

																						if (SYMBOLP(BgL_arg1840z00_2091))
																							{	/* Eval/evmodule.scm 683 */
																								BgL_auxz00_8194 =
																									BgL_arg1840z00_2091;
																							}
																						else
																							{
																								obj_t BgL_auxz00_8197;

																								BgL_auxz00_8197 =
																									BGl_typezd2errorzd2zz__errorz00
																									(BGl_string3036z00zz__evmodulez00,
																									BINT(25858L),
																									BGl_string3167z00zz__evmodulez00,
																									BGl_string3040z00zz__evmodulez00,
																									BgL_arg1840z00_2091);
																								FAILURE(BgL_auxz00_8197, BFALSE,
																									BFALSE);
																							}
																						BGl_evmodulezd2bindzd2globalz12z12zz__evmodulez00
																							(BgL_modz00_110, BgL_auxz00_8194,
																							BgL_az00_3720,
																							BgL_arg1842z00_2093);
																					}
																				}
																			}
																		}
																		{
																			obj_t BgL_l1175z00_8202;

																			BgL_l1175z00_8202 =
																				CDR(BgL_l1175z00_2087);
																			BgL_l1175z00_2087 = BgL_l1175z00_8202;
																			goto
																				BgL_zc3z04anonymousza31838ze3z87_2088;
																		}
																	}
																else
																	{	/* Eval/evmodule.scm 664 */
																		if (NULLP(BgL_l1175z00_2087))
																			{	/* Eval/evmodule.scm 664 */
																				BTRUE;
																			}
																		else
																			{	/* Eval/evmodule.scm 664 */
																				BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00
																					(BGl_string3079z00zz__evmodulez00,
																					BGl_string3069z00zz__evmodulez00,
																					BgL_l1175z00_2087,
																					BGl_string3036z00zz__evmodulez00,
																					BINT(25117L));
																			}
																	}
															}
															BGl_evmodulezd2importz12zc0zz__evmodulez00
																(BgL_modz00_110, BgL_imodz00_2081,
																BgL_pathz00_2085, BgL_importsz00_2082,
																BgL_abasez00_2065, BgL_locz00_2064);
														}
													}
											}
									}
									{
										obj_t BgL_l1177z00_8210;

										BgL_l1177z00_8210 = CDR(BgL_l1177z00_2011);
										BgL_l1177z00_2011 = BgL_l1177z00_8210;
										goto BgL_zc3z04anonymousza31788ze3z87_2012;
									}
								}
							else
								{	/* Eval/evmodule.scm 674 */
									if (NULLP(BgL_l1177z00_2011))
										{	/* Eval/evmodule.scm 674 */
											return BTRUE;
										}
									else
										{	/* Eval/evmodule.scm 674 */
											return
												BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00
												(BGl_string3079z00zz__evmodulez00,
												BGl_string3069z00zz__evmodulez00, BgL_l1177z00_2011,
												BGl_string3036z00zz__evmodulez00, BINT(25389L));
										}
								}
						}
					}
				else
					{	/* Eval/evmodule.scm 672 */
						return
							BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_112,
							BGl_string3072z00zz__evmodulez00,
							BGl_string3166z00zz__evmodulez00, BgL_clausez00_111);
					}
			}
		}

	}



/* alias-pair? */
	bool_t BGl_aliaszd2pairzf3z21zz__evmodulez00(obj_t BgL_vz00_118)
	{
		{	/* Eval/evmodule.scm 688 */
			if (PAIRP(BgL_vz00_118))
				{	/* Eval/evmodule.scm 689 */
					obj_t BgL_cdrzd2878zd2_2126;

					BgL_cdrzd2878zd2_2126 = CDR(((obj_t) BgL_vz00_118));
					{	/* Eval/evmodule.scm 689 */
						bool_t BgL_test3873z00_8221;

						{	/* Eval/evmodule.scm 689 */
							obj_t BgL_tmpz00_8222;

							BgL_tmpz00_8222 = CAR(((obj_t) BgL_vz00_118));
							BgL_test3873z00_8221 = SYMBOLP(BgL_tmpz00_8222);
						}
						if (BgL_test3873z00_8221)
							{	/* Eval/evmodule.scm 689 */
								if (PAIRP(BgL_cdrzd2878zd2_2126))
									{	/* Eval/evmodule.scm 689 */
										bool_t BgL_test3875z00_8228;

										{	/* Eval/evmodule.scm 689 */
											obj_t BgL_tmpz00_8229;

											BgL_tmpz00_8229 = CAR(BgL_cdrzd2878zd2_2126);
											BgL_test3875z00_8228 = SYMBOLP(BgL_tmpz00_8229);
										}
										if (BgL_test3875z00_8228)
											{	/* Eval/evmodule.scm 689 */
												return NULLP(CDR(BgL_cdrzd2878zd2_2126));
											}
										else
											{	/* Eval/evmodule.scm 689 */
												return ((bool_t) 0);
											}
									}
								else
									{	/* Eval/evmodule.scm 689 */
										return ((bool_t) 0);
									}
							}
						else
							{	/* Eval/evmodule.scm 689 */
								return ((bool_t) 0);
							}
					}
				}
			else
				{	/* Eval/evmodule.scm 689 */
					return ((bool_t) 0);
				}
		}

	}



/* evmodule-from! */
	obj_t BGl_evmodulezd2fromz12zc0zz__evmodulez00(obj_t BgL_modz00_119,
		obj_t BgL_identz00_120, obj_t BgL_pathz00_121, obj_t BgL_setz00_122,
		obj_t BgL_locz00_123)
	{
		{	/* Eval/evmodule.scm 696 */
			{	/* Eval/evmodule.scm 709 */
				obj_t BgL_mod2z00_2139;

				{	/* Eval/evmodule.scm 709 */
					obj_t BgL_idz00_3789;

					if (SYMBOLP(BgL_identz00_120))
						{	/* Eval/evmodule.scm 709 */
							BgL_idz00_3789 = BgL_identz00_120;
						}
					else
						{
							obj_t BgL_auxz00_8236;

							BgL_auxz00_8236 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3036z00zz__evmodulez00, BINT(26917L),
								BGl_string3169z00zz__evmodulez00,
								BGl_string3040z00zz__evmodulez00, BgL_identz00_120);
							FAILURE(BgL_auxz00_8236, BFALSE, BFALSE);
						}
					if (BGl_hashtablezf3zf3zz__hashz00
						(BGl_za2moduleszd2tableza2zd2zz__evmodulez00))
						{	/* Eval/evmodule.scm 224 */
							obj_t BgL_auxz00_8242;

							{	/* Eval/evmodule.scm 224 */
								obj_t BgL_aux2904z00_4835;

								BgL_aux2904z00_4835 =
									BGl_za2moduleszd2tableza2zd2zz__evmodulez00;
								if (STRUCTP(BgL_aux2904z00_4835))
									{	/* Eval/evmodule.scm 224 */
										BgL_auxz00_8242 = BgL_aux2904z00_4835;
									}
								else
									{
										obj_t BgL_auxz00_8245;

										BgL_auxz00_8245 =
											BGl_typezd2errorzd2zz__errorz00
											(BGl_string3036z00zz__evmodulez00, BINT(8670L),
											BGl_string3169z00zz__evmodulez00,
											BGl_string3042z00zz__evmodulez00, BgL_aux2904z00_4835);
										FAILURE(BgL_auxz00_8245, BFALSE, BFALSE);
									}
							}
							BgL_mod2z00_2139 =
								BGl_hashtablezd2getzd2zz__hashz00(BgL_auxz00_8242,
								BgL_idz00_3789);
						}
					else
						{	/* Eval/evmodule.scm 223 */
							BgL_mod2z00_2139 = BFALSE;
						}
				}
				{	/* Eval/evmodule.scm 711 */
					bool_t BgL_test3879z00_8250;

					{	/* Eval/evmodule.scm 135 */
						bool_t BgL_test3880z00_8251;

						if (STRUCTP(BgL_mod2z00_2139))
							{	/* Eval/evmodule.scm 129 */
								obj_t BgL_tmpz00_8254;

								{	/* Eval/evmodule.scm 129 */
									obj_t BgL_res2407z00_3796;

									{	/* Eval/evmodule.scm 129 */
										obj_t BgL_aux2906z00_4837;

										BgL_aux2906z00_4837 = STRUCT_KEY(BgL_mod2z00_2139);
										if (SYMBOLP(BgL_aux2906z00_4837))
											{	/* Eval/evmodule.scm 129 */
												BgL_res2407z00_3796 = BgL_aux2906z00_4837;
											}
										else
											{
												obj_t BgL_auxz00_8258;

												BgL_auxz00_8258 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3036z00zz__evmodulez00, BINT(4439L),
													BGl_string3169z00zz__evmodulez00,
													BGl_string3040z00zz__evmodulez00,
													BgL_aux2906z00_4837);
												FAILURE(BgL_auxz00_8258, BFALSE, BFALSE);
											}
									}
									BgL_tmpz00_8254 = BgL_res2407z00_3796;
								}
								BgL_test3880z00_8251 =
									(BgL_tmpz00_8254 == BGl_symbol3034z00zz__evmodulez00);
							}
						else
							{	/* Eval/evmodule.scm 129 */
								BgL_test3880z00_8251 = ((bool_t) 0);
							}
						if (BgL_test3880z00_8251)
							{	/* Eval/evmodule.scm 135 */
								BgL_test3879z00_8250 =
									(STRUCT_REF(BgL_mod2z00_2139,
										(int) (0L)) ==
									BGl_makezd2z52evmodulezd2envz52zz__evmodulez00);
							}
						else
							{	/* Eval/evmodule.scm 135 */
								BgL_test3879z00_8250 = ((bool_t) 0);
							}
					}
					if (BgL_test3879z00_8250)
						{	/* Eval/evmodule.scm 711 */
							return
								BGl_fromzd2moduleze70z35zz__evmodulez00(BgL_locz00_123,
								BgL_modz00_119, BgL_setz00_122, BgL_mod2z00_2139);
						}
					else
						{	/* Eval/evmodule.scm 711 */
							if (PAIRP(BgL_pathz00_121))
								{	/* Eval/evmodule.scm 713 */
									{	/* Eval/evmodule.scm 716 */
										bool_t BgL_test3884z00_8269;

										{	/* Eval/evmodule.scm 716 */
											int BgL_arg1876z00_2145;

											BgL_arg1876z00_2145 =
												BGl_bigloozd2debugzd2modulez00zz__paramz00();
											BgL_test3884z00_8269 =
												((long) (BgL_arg1876z00_2145) > 0L);
										}
										if (BgL_test3884z00_8269)
											{	/* Eval/evmodule.scm 717 */
												obj_t BgL_port1188z00_2144;

												{	/* Eval/evmodule.scm 717 */
													obj_t BgL_tmpz00_8273;

													BgL_tmpz00_8273 = BGL_CURRENT_DYNAMIC_ENV();
													BgL_port1188z00_2144 =
														BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_8273);
												}
												bgl_display_string(BGl_string3170z00zz__evmodulez00,
													BgL_port1188z00_2144);
												bgl_display_obj(BgL_identz00_120, BgL_port1188z00_2144);
												bgl_display_string(BGl_string3171z00zz__evmodulez00,
													BgL_port1188z00_2144);
												bgl_display_obj(BgL_pathz00_121, BgL_port1188z00_2144);
												bgl_display_string(BGl_string3172z00zz__evmodulez00,
													BgL_port1188z00_2144);
												bgl_display_char(((unsigned char) 10),
													BgL_port1188z00_2144);
											}
										else
											{	/* Eval/evmodule.scm 716 */
												BFALSE;
											}
									}
									{	/* Eval/evmodule.scm 719 */
										obj_t BgL_exitd1081z00_2146;

										BgL_exitd1081z00_2146 = BGL_EXITD_TOP_AS_OBJ();
										{	/* Eval/evmodule.scm 721 */
											obj_t BgL_zc3z04anonymousza31879ze3z87_4298;

											BgL_zc3z04anonymousza31879ze3z87_4298 =
												MAKE_FX_PROCEDURE
												(BGl_z62zc3z04anonymousza31879ze3ze5zz__evmodulez00,
												(int) (0L), (int) (1L));
											PROCEDURE_SET(BgL_zc3z04anonymousza31879ze3z87_4298,
												(int) (0L), BgL_modz00_119);
											{	/* Eval/evmodule.scm 719 */
												obj_t BgL_arg2375z00_3807;

												{	/* Eval/evmodule.scm 719 */
													obj_t BgL_arg2376z00_3808;

													BgL_arg2376z00_3808 =
														BGL_EXITD_PROTECT(BgL_exitd1081z00_2146);
													BgL_arg2375z00_3807 =
														MAKE_YOUNG_PAIR
														(BgL_zc3z04anonymousza31879ze3z87_4298,
														BgL_arg2376z00_3808);
												}
												BGL_EXITD_PROTECT_SET(BgL_exitd1081z00_2146,
													BgL_arg2375z00_3807);
												BUNSPEC;
											}
											{	/* Eval/evmodule.scm 720 */
												obj_t BgL_tmp1083z00_2148;

												BgL_tmp1083z00_2148 =
													BGl_fromzd2moduleze70z35zz__evmodulez00
													(BgL_locz00_123, BgL_modz00_119, BgL_setz00_122,
													BGl_evmodulezd2loadzd2zz__evmodulez00(BgL_modz00_119,
														BgL_identz00_120, BgL_pathz00_121, BgL_locz00_123));
												{	/* Eval/evmodule.scm 719 */
													bool_t BgL_test3885z00_8293;

													{	/* Eval/evmodule.scm 719 */
														obj_t BgL_arg2373z00_3810;

														BgL_arg2373z00_3810 =
															BGL_EXITD_PROTECT(BgL_exitd1081z00_2146);
														BgL_test3885z00_8293 = PAIRP(BgL_arg2373z00_3810);
													}
													if (BgL_test3885z00_8293)
														{	/* Eval/evmodule.scm 719 */
															obj_t BgL_arg2370z00_3811;

															{	/* Eval/evmodule.scm 719 */
																obj_t BgL_arg2372z00_3812;

																BgL_arg2372z00_3812 =
																	BGL_EXITD_PROTECT(BgL_exitd1081z00_2146);
																{	/* Eval/evmodule.scm 719 */
																	obj_t BgL_pairz00_3813;

																	if (PAIRP(BgL_arg2372z00_3812))
																		{	/* Eval/evmodule.scm 719 */
																			BgL_pairz00_3813 = BgL_arg2372z00_3812;
																		}
																	else
																		{
																			obj_t BgL_auxz00_8299;

																			BgL_auxz00_8299 =
																				BGl_typezd2errorzd2zz__errorz00
																				(BGl_string3036z00zz__evmodulez00,
																				BINT(27188L),
																				BGl_string3169z00zz__evmodulez00,
																				BGl_string3038z00zz__evmodulez00,
																				BgL_arg2372z00_3812);
																			FAILURE(BgL_auxz00_8299, BFALSE, BFALSE);
																		}
																	BgL_arg2370z00_3811 = CDR(BgL_pairz00_3813);
																}
															}
															BGL_EXITD_PROTECT_SET(BgL_exitd1081z00_2146,
																BgL_arg2370z00_3811);
															BUNSPEC;
														}
													else
														{	/* Eval/evmodule.scm 719 */
															BFALSE;
														}
												}
												BGL_MODULE_SET(BgL_modz00_119);
												return BgL_tmp1083z00_2148;
											}
										}
									}
								}
							else
								{	/* Eval/evmodule.scm 713 */
									return
										BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_123,
										BGl_string3072z00zz__evmodulez00,
										BGl_string3173z00zz__evmodulez00, BgL_identz00_120);
								}
						}
				}
			}
		}

	}



/* from-module~0 */
	obj_t BGl_fromzd2moduleze70z35zz__evmodulez00(obj_t BgL_locz00_4337,
		obj_t BgL_modz00_4336, obj_t BgL_setz00_4335, obj_t BgL_mod2z00_2155)
	{
		{	/* Eval/evmodule.scm 708 */
			{	/* Eval/evmodule.scm 700 */
				obj_t BgL_exz00_2157;

				{	/* Eval/evmodule.scm 129 */
					obj_t BgL_sz00_3770;

					if (STRUCTP(BgL_mod2z00_2155))
						{	/* Eval/evmodule.scm 129 */
							BgL_sz00_3770 = BgL_mod2z00_2155;
						}
					else
						{
							obj_t BgL_auxz00_8309;

							BgL_auxz00_8309 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3036z00zz__evmodulez00, BINT(4439L),
								BGl_string3174z00zz__evmodulez00,
								BGl_string3042z00zz__evmodulez00, BgL_mod2z00_2155);
							FAILURE(BgL_auxz00_8309, BFALSE, BFALSE);
						}
					BgL_exz00_2157 = STRUCT_REF(BgL_sz00_3770, (int) (4L));
				}
				{	/* Eval/evmodule.scm 700 */
					obj_t BgL_nxz00_2158;

					{	/* Eval/evmodule.scm 704 */
						obj_t BgL_arg1888z00_2169;

						BgL_arg1888z00_2169 = STRUCT_REF(BgL_modz00_4336, (int) (4L));
						{	/* Eval/evmodule.scm 704 */
							obj_t BgL_auxz00_8317;

							{	/* Eval/evmodule.scm 704 */
								bool_t BgL_test3888z00_8318;

								if (PAIRP(BgL_exz00_2157))
									{	/* Eval/evmodule.scm 704 */
										BgL_test3888z00_8318 = ((bool_t) 1);
									}
								else
									{	/* Eval/evmodule.scm 704 */
										BgL_test3888z00_8318 = NULLP(BgL_exz00_2157);
									}
								if (BgL_test3888z00_8318)
									{	/* Eval/evmodule.scm 704 */
										BgL_auxz00_8317 = BgL_exz00_2157;
									}
								else
									{
										obj_t BgL_auxz00_8322;

										BgL_auxz00_8322 =
											BGl_typezd2errorzd2zz__errorz00
											(BGl_string3036z00zz__evmodulez00, BINT(26725L),
											BGl_string3174z00zz__evmodulez00,
											BGl_string3094z00zz__evmodulez00, BgL_exz00_2157);
										FAILURE(BgL_auxz00_8322, BFALSE, BFALSE);
									}
							}
							BgL_nxz00_2158 =
								BGl_appendzd221011zd2zz__evmodulez00(BgL_auxz00_8317,
								BgL_arg1888z00_2169);
						}
					}
					{	/* Eval/evmodule.scm 704 */

						{
							obj_t BgL_l1186z00_2160;

							BgL_l1186z00_2160 = BgL_exz00_2157;
						BgL_zc3z04anonymousza31882ze3z87_2161:
							if (PAIRP(BgL_l1186z00_2160))
								{	/* Eval/evmodule.scm 705 */
									{	/* Eval/evmodule.scm 706 */
										obj_t BgL_bz00_2163;

										BgL_bz00_2163 = CAR(BgL_l1186z00_2160);
										{	/* Eval/evmodule.scm 706 */
											obj_t BgL_arg1884z00_2164;
											obj_t BgL_arg1885z00_2165;

											{	/* Eval/evmodule.scm 706 */
												obj_t BgL_pairz00_3773;

												if (PAIRP(BgL_bz00_2163))
													{	/* Eval/evmodule.scm 706 */
														BgL_pairz00_3773 = BgL_bz00_2163;
													}
												else
													{
														obj_t BgL_auxz00_8332;

														BgL_auxz00_8332 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3036z00zz__evmodulez00, BINT(26822L),
															BGl_string3175z00zz__evmodulez00,
															BGl_string3038z00zz__evmodulez00, BgL_bz00_2163);
														FAILURE(BgL_auxz00_8332, BFALSE, BFALSE);
													}
												BgL_arg1884z00_2164 = CAR(BgL_pairz00_3773);
											}
											{	/* Eval/evmodule.scm 706 */
												obj_t BgL_pairz00_3774;

												if (PAIRP(BgL_bz00_2163))
													{	/* Eval/evmodule.scm 706 */
														BgL_pairz00_3774 = BgL_bz00_2163;
													}
												else
													{
														obj_t BgL_auxz00_8339;

														BgL_auxz00_8339 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3036z00zz__evmodulez00, BINT(26830L),
															BGl_string3175z00zz__evmodulez00,
															BGl_string3038z00zz__evmodulez00, BgL_bz00_2163);
														FAILURE(BgL_auxz00_8339, BFALSE, BFALSE);
													}
												BgL_arg1885z00_2165 = CAR(BgL_pairz00_3774);
											}
											{	/* Eval/evmodule.scm 680 */
												obj_t BgL_az00_3775;

												{	/* Eval/evmodule.scm 680 */
													obj_t BgL_idz00_3776;

													if (SYMBOLP(BgL_arg1884z00_2164))
														{	/* Eval/evmodule.scm 680 */
															BgL_idz00_3776 = BgL_arg1884z00_2164;
														}
													else
														{
															obj_t BgL_auxz00_8346;

															BgL_auxz00_8346 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string3036z00zz__evmodulez00, BINT(25732L),
																BGl_string3175z00zz__evmodulez00,
																BGl_string3040z00zz__evmodulez00,
																BgL_arg1884z00_2164);
															FAILURE(BgL_auxz00_8346, BFALSE, BFALSE);
														}
													{	/* Eval/evmodule.scm 680 */
														obj_t BgL_v1213z00_3777;

														BgL_v1213z00_3777 = create_vector(5L);
														VECTOR_SET(BgL_v1213z00_3777, 0L, BINT(2L));
														VECTOR_SET(BgL_v1213z00_3777, 1L, BgL_idz00_3776);
														VECTOR_SET(BgL_v1213z00_3777, 2L, BUNSPEC);
														VECTOR_SET(BgL_v1213z00_3777, 3L, BgL_mod2z00_2155);
														VECTOR_SET(BgL_v1213z00_3777, 4L, BgL_locz00_4337);
														BgL_az00_3775 = BgL_v1213z00_3777;
													}
												}
												VECTOR_SET(BgL_az00_3775, 0L, BINT(6L));
												VECTOR_SET(BgL_az00_3775, 2L, BgL_arg1885z00_2165);
												{	/* Eval/evmodule.scm 683 */
													obj_t BgL_auxz00_8360;

													if (SYMBOLP(BgL_arg1884z00_2164))
														{	/* Eval/evmodule.scm 683 */
															BgL_auxz00_8360 = BgL_arg1884z00_2164;
														}
													else
														{
															obj_t BgL_auxz00_8363;

															BgL_auxz00_8363 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string3036z00zz__evmodulez00, BINT(25858L),
																BGl_string3175z00zz__evmodulez00,
																BGl_string3040z00zz__evmodulez00,
																BgL_arg1884z00_2164);
															FAILURE(BgL_auxz00_8363, BFALSE, BFALSE);
														}
													BGl_evmodulezd2bindzd2globalz12z12zz__evmodulez00
														(BgL_modz00_4336, BgL_auxz00_8360, BgL_az00_3775,
														BgL_locz00_4337);
												}
											}
										}
									}
									{
										obj_t BgL_l1186z00_8368;

										BgL_l1186z00_8368 = CDR(BgL_l1186z00_2160);
										BgL_l1186z00_2160 = BgL_l1186z00_8368;
										goto BgL_zc3z04anonymousza31882ze3z87_2161;
									}
								}
							else
								{	/* Eval/evmodule.scm 705 */
									if (NULLP(BgL_l1186z00_2160))
										{	/* Eval/evmodule.scm 705 */
											BTRUE;
										}
									else
										{	/* Eval/evmodule.scm 705 */
											BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00
												(BGl_string3079z00zz__evmodulez00,
												BGl_string3069z00zz__evmodulez00, BgL_l1186z00_2160,
												BGl_string3036z00zz__evmodulez00, BINT(26765L));
										}
								}
						}
						{	/* Eval/evmodule.scm 129 */
							obj_t BgL_xz00_4853;

							{	/* Eval/evmodule.scm 129 */
								int BgL_tmpz00_8374;

								BgL_tmpz00_8374 = (int) (4L);
								BgL_xz00_4853 =
									STRUCT_SET(BgL_modz00_4336, BgL_tmpz00_8374, BgL_nxz00_2158);
							}
							return BUNSPEC;
						}
					}
				}
			}
		}

	}



/* &<@anonymous:1879> */
	obj_t BGl_z62zc3z04anonymousza31879ze3ze5zz__evmodulez00(obj_t
		BgL_envz00_4299)
	{
		{	/* Eval/evmodule.scm 719 */
			{	/* Eval/evmodule.scm 721 */
				obj_t BgL_modz00_4300;

				BgL_modz00_4300 = ((obj_t) PROCEDURE_REF(BgL_envz00_4299, (int) (0L)));
				return BGL_MODULE_SET(BgL_modz00_4300);
			}
		}

	}



/* evmodule-from */
	obj_t BGl_evmodulezd2fromzd2zz__evmodulez00(obj_t BgL_modz00_124,
		obj_t BgL_clausez00_125, obj_t BgL_locz00_126)
	{
		{	/* Eval/evmodule.scm 726 */
			{
				obj_t BgL_sz00_2204;

				if (BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_clausez00_125))
					{	/* Eval/evmodule.scm 746 */
						obj_t BgL_g1191z00_2193;

						{	/* Eval/evmodule.scm 746 */
							obj_t BgL_pairz00_3818;

							if (PAIRP(BgL_clausez00_125))
								{	/* Eval/evmodule.scm 746 */
									BgL_pairz00_3818 = BgL_clausez00_125;
								}
							else
								{
									obj_t BgL_auxz00_8385;

									BgL_auxz00_8385 =
										BGl_typezd2errorzd2zz__errorz00
										(BGl_string3036z00zz__evmodulez00, BINT(28203L),
										BGl_string3178z00zz__evmodulez00,
										BGl_string3038z00zz__evmodulez00, BgL_clausez00_125);
									FAILURE(BgL_auxz00_8385, BFALSE, BFALSE);
								}
							BgL_g1191z00_2193 = CDR(BgL_pairz00_3818);
						}
						{
							obj_t BgL_l1189z00_2195;

							BgL_l1189z00_2195 = BgL_g1191z00_2193;
						BgL_zc3z04anonymousza31900ze3z87_2196:
							if (PAIRP(BgL_l1189z00_2195))
								{	/* Eval/evmodule.scm 746 */
									BgL_sz00_2204 = CAR(BgL_l1189z00_2195);
									{	/* Eval/evmodule.scm 732 */
										obj_t BgL_locz00_2206;
										obj_t BgL_abasez00_2207;

										{	/* Eval/evmodule.scm 732 */
											obj_t BgL__ortest_1085z00_2227;

											BgL__ortest_1085z00_2227 =
												BGl_getzd2sourcezd2locationz00zz__readerz00
												(BgL_sz00_2204);
											if (CBOOL(BgL__ortest_1085z00_2227))
												{	/* Eval/evmodule.scm 732 */
													BgL_locz00_2206 = BgL__ortest_1085z00_2227;
												}
											else
												{	/* Eval/evmodule.scm 732 */
													BgL_locz00_2206 = BgL_locz00_126;
												}
										}
										BgL_abasez00_2207 =
											BGl_locationzd2dirzd2zz__evmodulez00(BgL_locz00_126);
										if (SYMBOLP(BgL_sz00_2204))
											{	/* Eval/evmodule.scm 736 */
												obj_t BgL_pathz00_2209;

												{	/* Eval/evmodule.scm 736 */
													obj_t BgL_fun1910z00_2210;

													BgL_fun1910z00_2210 =
														BGl_bigloozd2modulezd2resolverz00zz__modulez00();
													BgL_pathz00_2209 =
														BGL_PROCEDURE_CALL3(BgL_fun1910z00_2210,
														BgL_sz00_2204, BNIL, BgL_abasez00_2207);
												}
												BGl_evmodulezd2fromz12zc0zz__evmodulez00(BgL_modz00_124,
													BgL_sz00_2204, BgL_pathz00_2209, BNIL,
													BgL_locz00_2206);
											}
										else
											{	/* Eval/evmodule.scm 738 */
												bool_t BgL_test3901z00_8406;

												if (PAIRP(BgL_sz00_2204))
													{	/* Eval/evmodule.scm 738 */
														if (BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00
															(BgL_sz00_2204))
															{	/* Eval/evmodule.scm 738 */
																bool_t BgL_test3904z00_8411;

																{	/* Eval/evmodule.scm 738 */
																	obj_t BgL_tmpz00_8412;

																	BgL_tmpz00_8412 = CAR(BgL_sz00_2204);
																	BgL_test3904z00_8411 =
																		SYMBOLP(BgL_tmpz00_8412);
																}
																if (BgL_test3904z00_8411)
																	{	/* Eval/evmodule.scm 738 */
																		BgL_test3901z00_8406 = ((bool_t) 0);
																	}
																else
																	{	/* Eval/evmodule.scm 738 */
																		BgL_test3901z00_8406 = ((bool_t) 1);
																	}
															}
														else
															{	/* Eval/evmodule.scm 738 */
																BgL_test3901z00_8406 = ((bool_t) 1);
															}
													}
												else
													{	/* Eval/evmodule.scm 738 */
														BgL_test3901z00_8406 = ((bool_t) 1);
													}
												if (BgL_test3901z00_8406)
													{	/* Eval/evmodule.scm 738 */
														BGl_evcompilezd2errorzd2zz__evcompilez00
															(BgL_locz00_126, BGl_string3072z00zz__evmodulez00,
															BGl_string3176z00zz__evmodulez00, BgL_sz00_2204);
													}
												else
													{	/* Eval/evmodule.scm 741 */
														obj_t BgL_pathz00_2217;

														{	/* Eval/evmodule.scm 741 */
															obj_t BgL_fun1922z00_2219;

															BgL_fun1922z00_2219 =
																BGl_bigloozd2modulezd2resolverz00zz__modulez00
																();
															{	/* Eval/evmodule.scm 741 */
																obj_t BgL_arg1919z00_2220;
																obj_t BgL_arg1920z00_2221;
																obj_t BgL_arg1921z00_2222;

																{	/* Eval/evmodule.scm 741 */
																	obj_t BgL_pairz00_3815;

																	if (PAIRP(BgL_sz00_2204))
																		{	/* Eval/evmodule.scm 741 */
																			BgL_pairz00_3815 = BgL_sz00_2204;
																		}
																	else
																		{
																			obj_t BgL_auxz00_8419;

																			BgL_auxz00_8419 =
																				BGl_typezd2errorzd2zz__errorz00
																				(BGl_string3036z00zz__evmodulez00,
																				BINT(28041L),
																				BGl_string3177z00zz__evmodulez00,
																				BGl_string3038z00zz__evmodulez00,
																				BgL_sz00_2204);
																			FAILURE(BgL_auxz00_8419, BFALSE, BFALSE);
																		}
																	BgL_arg1919z00_2220 = CAR(BgL_pairz00_3815);
																}
																{	/* Eval/evmodule.scm 741 */
																	obj_t BgL_pairz00_3816;

																	if (PAIRP(BgL_sz00_2204))
																		{	/* Eval/evmodule.scm 741 */
																			BgL_pairz00_3816 = BgL_sz00_2204;
																		}
																	else
																		{
																			obj_t BgL_auxz00_8426;

																			BgL_auxz00_8426 =
																				BGl_typezd2errorzd2zz__errorz00
																				(BGl_string3036z00zz__evmodulez00,
																				BINT(28049L),
																				BGl_string3177z00zz__evmodulez00,
																				BGl_string3038z00zz__evmodulez00,
																				BgL_sz00_2204);
																			FAILURE(BgL_auxz00_8426, BFALSE, BFALSE);
																		}
																	BgL_arg1920z00_2221 = CDR(BgL_pairz00_3816);
																}
																BgL_arg1921z00_2222 = BGl_pwdz00zz__osz00();
																BgL_pathz00_2217 =
																	BGL_PROCEDURE_CALL3(BgL_fun1922z00_2219,
																	BgL_arg1919z00_2220, BgL_arg1920z00_2221,
																	BgL_arg1921z00_2222);
															}
														}
														{	/* Eval/evmodule.scm 742 */
															obj_t BgL_arg1918z00_2218;

															{	/* Eval/evmodule.scm 742 */
																obj_t BgL_pairz00_3817;

																if (PAIRP(BgL_sz00_2204))
																	{	/* Eval/evmodule.scm 742 */
																		BgL_pairz00_3817 = BgL_sz00_2204;
																	}
																else
																	{
																		obj_t BgL_auxz00_8440;

																		BgL_auxz00_8440 =
																			BGl_typezd2errorzd2zz__errorz00
																			(BGl_string3036z00zz__evmodulez00,
																			BINT(28088L),
																			BGl_string3177z00zz__evmodulez00,
																			BGl_string3038z00zz__evmodulez00,
																			BgL_sz00_2204);
																		FAILURE(BgL_auxz00_8440, BFALSE, BFALSE);
																	}
																BgL_arg1918z00_2218 = CAR(BgL_pairz00_3817);
															}
															BGl_evmodulezd2fromz12zc0zz__evmodulez00
																(BgL_modz00_124, BgL_arg1918z00_2218,
																BgL_pathz00_2217, BNIL, BgL_locz00_2206);
														}
													}
											}
									}
									{
										obj_t BgL_l1189z00_8447;

										BgL_l1189z00_8447 = CDR(BgL_l1189z00_2195);
										BgL_l1189z00_2195 = BgL_l1189z00_8447;
										goto BgL_zc3z04anonymousza31900ze3z87_2196;
									}
								}
							else
								{	/* Eval/evmodule.scm 746 */
									if (NULLP(BgL_l1189z00_2195))
										{	/* Eval/evmodule.scm 746 */
											return BTRUE;
										}
									else
										{	/* Eval/evmodule.scm 746 */
											return
												BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00
												(BGl_string3079z00zz__evmodulez00,
												BGl_string3069z00zz__evmodulez00, BgL_l1189z00_2195,
												BGl_string3036z00zz__evmodulez00, BINT(28176L));
										}
								}
						}
					}
				else
					{	/* Eval/evmodule.scm 744 */
						return
							BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_126,
							BGl_string3072z00zz__evmodulez00,
							BGl_string3176z00zz__evmodulez00, BgL_clausez00_125);
					}
			}
		}

	}



/* evmodule-include */
	obj_t BGl_evmodulezd2includezd2zz__evmodulez00(obj_t BgL_modz00_127,
		obj_t BgL_clausesz00_128, obj_t BgL_locz00_129)
	{
		{	/* Eval/evmodule.scm 751 */
			{
				obj_t BgL_filesz00_2296;
				obj_t BgL_pathz00_2297;
				obj_t BgL_filez00_2272;
				obj_t BgL_pathz00_2273;

				{	/* Eval/evmodule.scm 776 */
					obj_t BgL_pathz00_2232;

					{	/* Eval/evmodule.scm 776 */
						bool_t BgL_test3909z00_8454;

						{	/* Eval/evmodule.scm 776 */
							obj_t BgL_tmpz00_8455;

							BgL_tmpz00_8455 = STRUCT_REF(BgL_modz00_127, (int) (2L));
							BgL_test3909z00_8454 = STRINGP(BgL_tmpz00_8455);
						}
						if (BgL_test3909z00_8454)
							{	/* Eval/evmodule.scm 777 */
								obj_t BgL_arg1948z00_2269;

								{	/* Eval/evmodule.scm 777 */
									obj_t BgL_arg1949z00_2270;

									BgL_arg1949z00_2270 = STRUCT_REF(BgL_modz00_127, (int) (2L));
									{	/* Eval/evmodule.scm 777 */
										obj_t BgL_auxz00_8461;

										if (STRINGP(BgL_arg1949z00_2270))
											{	/* Eval/evmodule.scm 777 */
												BgL_auxz00_8461 = BgL_arg1949z00_2270;
											}
										else
											{
												obj_t BgL_auxz00_8464;

												BgL_auxz00_8464 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3036z00zz__evmodulez00, BINT(29333L),
													BGl_string3182z00zz__evmodulez00,
													BGl_string3050z00zz__evmodulez00,
													BgL_arg1949z00_2270);
												FAILURE(BgL_auxz00_8464, BFALSE, BFALSE);
											}
										BgL_arg1948z00_2269 =
											BGl_dirnamez00zz__osz00(BgL_auxz00_8461);
									}
								}
								BgL_pathz00_2232 =
									MAKE_YOUNG_PAIR(BgL_arg1948z00_2269,
									BGl_za2loadzd2pathza2zd2zz__evalz00);
							}
						else
							{	/* Eval/evmodule.scm 776 */
								BgL_pathz00_2232 = BGl_za2loadzd2pathza2zd2zz__evalz00;
							}
					}
					{
						obj_t BgL_clausesz00_2236;
						obj_t BgL_iclausesz00_2237;
						obj_t BgL_iexprsz00_2238;

						BgL_clausesz00_2236 = BgL_clausesz00_128;
						BgL_iclausesz00_2237 = BNIL;
						BgL_iexprsz00_2238 = BNIL;
					BgL_zc3z04anonymousza31924ze3z87_2239:
						if (NULLP(BgL_clausesz00_2236))
							{	/* Eval/evmodule.scm 783 */
								{	/* Eval/evmodule.scm 784 */
									int BgL_tmpz00_8472;

									BgL_tmpz00_8472 = (int) (2L);
									BGL_MVALUES_NUMBER_SET(BgL_tmpz00_8472);
								}
								{	/* Eval/evmodule.scm 784 */
									int BgL_tmpz00_8475;

									BgL_tmpz00_8475 = (int) (1L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_8475, BgL_iexprsz00_2238);
								}
								return BgL_iclausesz00_2237;
							}
						else
							{	/* Eval/evmodule.scm 785 */
								bool_t BgL_test3912z00_8478;

								{	/* Eval/evmodule.scm 785 */
									obj_t BgL_tmpz00_8479;

									{	/* Eval/evmodule.scm 785 */
										obj_t BgL_pairz00_3874;

										if (PAIRP(BgL_clausesz00_2236))
											{	/* Eval/evmodule.scm 785 */
												BgL_pairz00_3874 = BgL_clausesz00_2236;
											}
										else
											{
												obj_t BgL_auxz00_8482;

												BgL_auxz00_8482 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3036z00zz__evmodulez00, BINT(29524L),
													BGl_string3151z00zz__evmodulez00,
													BGl_string3038z00zz__evmodulez00,
													BgL_clausesz00_2236);
												FAILURE(BgL_auxz00_8482, BFALSE, BFALSE);
											}
										BgL_tmpz00_8479 = CAR(BgL_pairz00_3874);
									}
									BgL_test3912z00_8478 = PAIRP(BgL_tmpz00_8479);
								}
								if (BgL_test3912z00_8478)
									{	/* Eval/evmodule.scm 787 */
										bool_t BgL_test3914z00_8488;

										{	/* Eval/evmodule.scm 787 */
											obj_t BgL_tmpz00_8489;

											{	/* Eval/evmodule.scm 787 */
												obj_t BgL_pairz00_3875;

												if (PAIRP(BgL_clausesz00_2236))
													{	/* Eval/evmodule.scm 787 */
														BgL_pairz00_3875 = BgL_clausesz00_2236;
													}
												else
													{
														obj_t BgL_auxz00_8492;

														BgL_auxz00_8492 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3036z00zz__evmodulez00, BINT(29626L),
															BGl_string3151z00zz__evmodulez00,
															BGl_string3038z00zz__evmodulez00,
															BgL_clausesz00_2236);
														FAILURE(BgL_auxz00_8492, BFALSE, BFALSE);
													}
												{	/* Eval/evmodule.scm 787 */
													obj_t BgL_pairz00_3878;

													{	/* Eval/evmodule.scm 787 */
														obj_t BgL_aux2946z00_4878;

														BgL_aux2946z00_4878 = CAR(BgL_pairz00_3875);
														if (PAIRP(BgL_aux2946z00_4878))
															{	/* Eval/evmodule.scm 787 */
																BgL_pairz00_3878 = BgL_aux2946z00_4878;
															}
														else
															{
																obj_t BgL_auxz00_8499;

																BgL_auxz00_8499 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string3036z00zz__evmodulez00,
																	BINT(29620L),
																	BGl_string3151z00zz__evmodulez00,
																	BGl_string3038z00zz__evmodulez00,
																	BgL_aux2946z00_4878);
																FAILURE(BgL_auxz00_8499, BFALSE, BFALSE);
															}
													}
													BgL_tmpz00_8489 = CAR(BgL_pairz00_3878);
												}
											}
											BgL_test3914z00_8488 =
												(BgL_tmpz00_8489 == BGl_symbol3183z00zz__evmodulez00);
										}
										if (BgL_test3914z00_8488)
											{	/* Eval/evmodule.scm 788 */
												obj_t BgL_icz00_2247;

												{	/* Eval/evmodule.scm 789 */
													obj_t BgL_arg1937z00_2257;

													{	/* Eval/evmodule.scm 789 */
														obj_t BgL_pairz00_3879;

														if (PAIRP(BgL_clausesz00_2236))
															{	/* Eval/evmodule.scm 789 */
																BgL_pairz00_3879 = BgL_clausesz00_2236;
															}
														else
															{
																obj_t BgL_auxz00_8507;

																BgL_auxz00_8507 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string3036z00zz__evmodulez00,
																	BINT(29713L),
																	BGl_string3151z00zz__evmodulez00,
																	BGl_string3038z00zz__evmodulez00,
																	BgL_clausesz00_2236);
																FAILURE(BgL_auxz00_8507, BFALSE, BFALSE);
															}
														{	/* Eval/evmodule.scm 789 */
															obj_t BgL_pairz00_3882;

															{	/* Eval/evmodule.scm 789 */
																obj_t BgL_aux2950z00_4882;

																BgL_aux2950z00_4882 = CAR(BgL_pairz00_3879);
																if (PAIRP(BgL_aux2950z00_4882))
																	{	/* Eval/evmodule.scm 789 */
																		BgL_pairz00_3882 = BgL_aux2950z00_4882;
																	}
																else
																	{
																		obj_t BgL_auxz00_8514;

																		BgL_auxz00_8514 =
																			BGl_typezd2errorzd2zz__errorz00
																			(BGl_string3036z00zz__evmodulez00,
																			BINT(29707L),
																			BGl_string3151z00zz__evmodulez00,
																			BGl_string3038z00zz__evmodulez00,
																			BgL_aux2950z00_4882);
																		FAILURE(BgL_auxz00_8514, BFALSE, BFALSE);
																	}
															}
															BgL_arg1937z00_2257 = CDR(BgL_pairz00_3882);
														}
													}
													BgL_filesz00_2296 = BgL_arg1937z00_2257;
													BgL_pathz00_2297 = BgL_pathz00_2232;
													{
														obj_t BgL_filesz00_3848;
														obj_t BgL_iclausesz00_3849;
														obj_t BgL_iexprsz00_3850;

														BgL_filesz00_3848 = BgL_filesz00_2296;
														BgL_iclausesz00_3849 = BNIL;
														BgL_iexprsz00_3850 = BNIL;
													BgL_loopz00_3847:
														if (NULLP(BgL_filesz00_3848))
															{	/* Eval/evmodule.scm 770 */
																{	/* Eval/evmodule.scm 771 */
																	int BgL_tmpz00_8521;

																	BgL_tmpz00_8521 = (int) (2L);
																	BGL_MVALUES_NUMBER_SET(BgL_tmpz00_8521);
																}
																{	/* Eval/evmodule.scm 771 */
																	int BgL_tmpz00_8524;

																	BgL_tmpz00_8524 = (int) (1L);
																	BGL_MVALUES_VAL_SET(BgL_tmpz00_8524,
																		BgL_iexprsz00_3850);
																}
																BgL_icz00_2247 = BgL_iclausesz00_3849;
															}
														else
															{	/* Eval/evmodule.scm 772 */
																obj_t BgL_icz00_3863;

																{	/* Eval/evmodule.scm 773 */
																	obj_t BgL_arg1969z00_3864;

																	{	/* Eval/evmodule.scm 773 */
																		obj_t BgL_pairz00_3869;

																		if (PAIRP(BgL_filesz00_3848))
																			{	/* Eval/evmodule.scm 773 */
																				BgL_pairz00_3869 = BgL_filesz00_3848;
																			}
																		else
																			{
																				obj_t BgL_auxz00_8529;

																				BgL_auxz00_8529 =
																					BGl_typezd2errorzd2zz__errorz00
																					(BGl_string3036z00zz__evmodulez00,
																					BINT(29162L),
																					BGl_string3151z00zz__evmodulez00,
																					BGl_string3038z00zz__evmodulez00,
																					BgL_filesz00_3848);
																				FAILURE(BgL_auxz00_8529, BFALSE,
																					BFALSE);
																			}
																		BgL_arg1969z00_3864 = CAR(BgL_pairz00_3869);
																	}
																	BgL_filez00_2272 = BgL_arg1969z00_3864;
																	BgL_pathz00_2273 = BgL_pathz00_2297;
																	{	/* Eval/evmodule.scm 754 */
																		obj_t BgL_ffilez00_2275;

																		{	/* Eval/evmodule.scm 754 */
																			obj_t BgL_auxz00_8534;

																			if (STRINGP(BgL_filez00_2272))
																				{	/* Eval/evmodule.scm 754 */
																					BgL_auxz00_8534 = BgL_filez00_2272;
																				}
																			else
																				{
																					obj_t BgL_auxz00_8537;

																					BgL_auxz00_8537 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string3036z00zz__evmodulez00,
																						BINT(28562L),
																						BGl_string3179z00zz__evmodulez00,
																						BGl_string3050z00zz__evmodulez00,
																						BgL_filez00_2272);
																					FAILURE(BgL_auxz00_8537, BFALSE,
																						BFALSE);
																				}
																			BgL_ffilez00_2275 =
																				BGl_findzd2filezf2pathz20zz__osz00
																				(BgL_auxz00_8534, BgL_pathz00_2273);
																		}
																		if (STRINGP(BgL_ffilez00_2275))
																			{	/* Eval/evmodule.scm 755 */
																				BgL_icz00_3863 =
																					BGl_callzd2withzd2inputzd2filezd2zz__r4_ports_6_10_1z00
																					(BgL_ffilez00_2275,
																					BGl_proc3180z00zz__evmodulez00);
																			}
																		else
																			{	/* Eval/evmodule.scm 763 */
																				obj_t BgL_arg1961z00_2294;

																				{	/* Eval/evmodule.scm 763 */
																					obj_t BgL_list1962z00_2295;

																					BgL_list1962z00_2295 =
																						MAKE_YOUNG_PAIR(BgL_filez00_2272,
																						BNIL);
																					BgL_arg1961z00_2294 =
																						BGl_formatz00zz__r4_output_6_10_3z00
																						(BGl_string3181z00zz__evmodulez00,
																						BgL_list1962z00_2295);
																				}
																				BgL_icz00_3863 =
																					BGl_evcompilezd2errorzd2zz__evcompilez00
																					(BgL_locz00_129,
																					BGl_string3072z00zz__evmodulez00,
																					BgL_arg1961z00_2294,
																					BgL_pathz00_2273);
																			}
																	}
																}
																{	/* Eval/evmodule.scm 773 */
																	obj_t BgL_iez00_3865;

																	{	/* Eval/evmodule.scm 774 */
																		obj_t BgL_tmpz00_3870;

																		{	/* Eval/evmodule.scm 774 */
																			int BgL_tmpz00_8548;

																			BgL_tmpz00_8548 = (int) (1L);
																			BgL_tmpz00_3870 =
																				BGL_MVALUES_VAL(BgL_tmpz00_8548);
																		}
																		{	/* Eval/evmodule.scm 774 */
																			int BgL_tmpz00_8551;

																			BgL_tmpz00_8551 = (int) (1L);
																			BGL_MVALUES_VAL_SET(BgL_tmpz00_8551,
																				BUNSPEC);
																		}
																		BgL_iez00_3865 = BgL_tmpz00_3870;
																	}
																	{	/* Eval/evmodule.scm 774 */
																		obj_t BgL_arg1966z00_3866;
																		obj_t BgL_arg1967z00_3867;
																		obj_t BgL_arg1968z00_3868;

																		{	/* Eval/evmodule.scm 774 */
																			obj_t BgL_pairz00_3871;

																			if (PAIRP(BgL_filesz00_3848))
																				{	/* Eval/evmodule.scm 774 */
																					BgL_pairz00_3871 = BgL_filesz00_3848;
																				}
																			else
																				{
																					obj_t BgL_auxz00_8556;

																					BgL_auxz00_8556 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string3036z00zz__evmodulez00,
																						BINT(29188L),
																						BGl_string3151z00zz__evmodulez00,
																						BGl_string3038z00zz__evmodulez00,
																						BgL_filesz00_3848);
																					FAILURE(BgL_auxz00_8556, BFALSE,
																						BFALSE);
																				}
																			BgL_arg1966z00_3866 =
																				CDR(BgL_pairz00_3871);
																		}
																		{	/* Eval/evmodule.scm 774 */
																			obj_t BgL_auxz00_8561;

																			{	/* Eval/evmodule.scm 774 */
																				bool_t BgL_test3924z00_8562;

																				if (PAIRP(BgL_iclausesz00_3849))
																					{	/* Eval/evmodule.scm 774 */
																						BgL_test3924z00_8562 = ((bool_t) 1);
																					}
																				else
																					{	/* Eval/evmodule.scm 774 */
																						BgL_test3924z00_8562 =
																							NULLP(BgL_iclausesz00_3849);
																					}
																				if (BgL_test3924z00_8562)
																					{	/* Eval/evmodule.scm 774 */
																						BgL_auxz00_8561 =
																							BgL_iclausesz00_3849;
																					}
																				else
																					{
																						obj_t BgL_auxz00_8566;

																						BgL_auxz00_8566 =
																							BGl_typezd2errorzd2zz__errorz00
																							(BGl_string3036z00zz__evmodulez00,
																							BINT(29195L),
																							BGl_string3151z00zz__evmodulez00,
																							BGl_string3094z00zz__evmodulez00,
																							BgL_iclausesz00_3849);
																						FAILURE(BgL_auxz00_8566, BFALSE,
																							BFALSE);
																					}
																			}
																			BgL_arg1967z00_3867 =
																				BGl_appendzd221011zd2zz__evmodulez00
																				(BgL_auxz00_8561, BgL_icz00_3863);
																		}
																		{	/* Eval/evmodule.scm 774 */
																			obj_t BgL_auxz00_8571;

																			{	/* Eval/evmodule.scm 774 */
																				bool_t BgL_test3926z00_8572;

																				if (PAIRP(BgL_iexprsz00_3850))
																					{	/* Eval/evmodule.scm 774 */
																						BgL_test3926z00_8572 = ((bool_t) 1);
																					}
																				else
																					{	/* Eval/evmodule.scm 774 */
																						BgL_test3926z00_8572 =
																							NULLP(BgL_iexprsz00_3850);
																					}
																				if (BgL_test3926z00_8572)
																					{	/* Eval/evmodule.scm 774 */
																						BgL_auxz00_8571 =
																							BgL_iexprsz00_3850;
																					}
																				else
																					{
																						obj_t BgL_auxz00_8576;

																						BgL_auxz00_8576 =
																							BGl_typezd2errorzd2zz__errorz00
																							(BGl_string3036z00zz__evmodulez00,
																							BINT(29216L),
																							BGl_string3151z00zz__evmodulez00,
																							BGl_string3094z00zz__evmodulez00,
																							BgL_iexprsz00_3850);
																						FAILURE(BgL_auxz00_8576, BFALSE,
																							BFALSE);
																					}
																			}
																			BgL_arg1968z00_3868 =
																				BGl_appendzd221011zd2zz__evmodulez00
																				(BgL_auxz00_8571, BgL_iez00_3865);
																		}
																		{
																			obj_t BgL_iexprsz00_8583;
																			obj_t BgL_iclausesz00_8582;
																			obj_t BgL_filesz00_8581;

																			BgL_filesz00_8581 = BgL_arg1966z00_3866;
																			BgL_iclausesz00_8582 =
																				BgL_arg1967z00_3867;
																			BgL_iexprsz00_8583 = BgL_arg1968z00_3868;
																			BgL_iexprsz00_3850 = BgL_iexprsz00_8583;
																			BgL_iclausesz00_3849 =
																				BgL_iclausesz00_8582;
																			BgL_filesz00_3848 = BgL_filesz00_8581;
																			goto BgL_loopz00_3847;
																		}
																	}
																}
															}
													}
												}
												{	/* Eval/evmodule.scm 789 */
													obj_t BgL_iez00_2248;

													{	/* Eval/evmodule.scm 790 */
														obj_t BgL_tmpz00_3883;

														{	/* Eval/evmodule.scm 790 */
															int BgL_tmpz00_8584;

															BgL_tmpz00_8584 = (int) (1L);
															BgL_tmpz00_3883 =
																BGL_MVALUES_VAL(BgL_tmpz00_8584);
														}
														{	/* Eval/evmodule.scm 790 */
															int BgL_tmpz00_8587;

															BgL_tmpz00_8587 = (int) (1L);
															BGL_MVALUES_VAL_SET(BgL_tmpz00_8587, BUNSPEC);
														}
														BgL_iez00_2248 = BgL_tmpz00_3883;
													}
													{	/* Eval/evmodule.scm 790 */
														obj_t BgL_ic2z00_2249;

														BgL_ic2z00_2249 =
															BGl_evmodulezd2includezd2zz__evmodulez00
															(BgL_modz00_127, BgL_icz00_2247, BgL_locz00_129);
														{	/* Eval/evmodule.scm 791 */
															obj_t BgL_ie2z00_2250;

															{	/* Eval/evmodule.scm 792 */
																obj_t BgL_tmpz00_3884;

																{	/* Eval/evmodule.scm 792 */
																	int BgL_tmpz00_8591;

																	BgL_tmpz00_8591 = (int) (1L);
																	BgL_tmpz00_3884 =
																		BGL_MVALUES_VAL(BgL_tmpz00_8591);
																}
																{	/* Eval/evmodule.scm 792 */
																	int BgL_tmpz00_8594;

																	BgL_tmpz00_8594 = (int) (1L);
																	BGL_MVALUES_VAL_SET(BgL_tmpz00_8594, BUNSPEC);
																}
																BgL_ie2z00_2250 = BgL_tmpz00_3884;
															}
															{	/* Eval/evmodule.scm 792 */
																obj_t BgL_arg1931z00_2251;
																obj_t BgL_arg1932z00_2252;
																obj_t BgL_arg1933z00_2253;

																{	/* Eval/evmodule.scm 792 */
																	obj_t BgL_pairz00_3885;

																	if (PAIRP(BgL_clausesz00_2236))
																		{	/* Eval/evmodule.scm 792 */
																			BgL_pairz00_3885 = BgL_clausesz00_2236;
																		}
																	else
																		{
																			obj_t BgL_auxz00_8599;

																			BgL_auxz00_8599 =
																				BGl_typezd2errorzd2zz__errorz00
																				(BGl_string3036z00zz__evmodulez00,
																				BINT(29812L),
																				BGl_string3151z00zz__evmodulez00,
																				BGl_string3038z00zz__evmodulez00,
																				BgL_clausesz00_2236);
																			FAILURE(BgL_auxz00_8599, BFALSE, BFALSE);
																		}
																	BgL_arg1931z00_2251 = CDR(BgL_pairz00_3885);
																}
																{	/* Eval/evmodule.scm 793 */
																	obj_t BgL_auxz00_8604;

																	{	/* Eval/evmodule.scm 793 */
																		bool_t BgL_test3929z00_8605;

																		if (PAIRP(BgL_iclausesz00_2237))
																			{	/* Eval/evmodule.scm 793 */
																				BgL_test3929z00_8605 = ((bool_t) 1);
																			}
																		else
																			{	/* Eval/evmodule.scm 793 */
																				BgL_test3929z00_8605 =
																					NULLP(BgL_iclausesz00_2237);
																			}
																		if (BgL_test3929z00_8605)
																			{	/* Eval/evmodule.scm 793 */
																				BgL_auxz00_8604 = BgL_iclausesz00_2237;
																			}
																		else
																			{
																				obj_t BgL_auxz00_8609;

																				BgL_auxz00_8609 =
																					BGl_typezd2errorzd2zz__errorz00
																					(BGl_string3036z00zz__evmodulez00,
																					BINT(29825L),
																					BGl_string3151z00zz__evmodulez00,
																					BGl_string3094z00zz__evmodulez00,
																					BgL_iclausesz00_2237);
																				FAILURE(BgL_auxz00_8609, BFALSE,
																					BFALSE);
																			}
																	}
																	BgL_arg1932z00_2252 =
																		BGl_appendzd221011zd2zz__evmodulez00
																		(BgL_auxz00_8604, BgL_ic2z00_2249);
																}
																{	/* Eval/evmodule.scm 794 */
																	obj_t BgL_list1934z00_2254;

																	{	/* Eval/evmodule.scm 794 */
																		obj_t BgL_arg1935z00_2255;

																		{	/* Eval/evmodule.scm 794 */
																			obj_t BgL_arg1936z00_2256;

																			BgL_arg1936z00_2256 =
																				MAKE_YOUNG_PAIR(BgL_iez00_2248, BNIL);
																			BgL_arg1935z00_2255 =
																				MAKE_YOUNG_PAIR(BgL_ie2z00_2250,
																				BgL_arg1936z00_2256);
																		}
																		BgL_list1934z00_2254 =
																			MAKE_YOUNG_PAIR(BgL_iexprsz00_2238,
																			BgL_arg1935z00_2255);
																	}
																	BgL_arg1933z00_2253 =
																		BGl_appendz00zz__r4_pairs_and_lists_6_3z00
																		(BgL_list1934z00_2254);
																}
																{
																	obj_t BgL_iexprsz00_8620;
																	obj_t BgL_iclausesz00_8619;
																	obj_t BgL_clausesz00_8618;

																	BgL_clausesz00_8618 = BgL_arg1931z00_2251;
																	BgL_iclausesz00_8619 = BgL_arg1932z00_2252;
																	BgL_iexprsz00_8620 = BgL_arg1933z00_2253;
																	BgL_iexprsz00_2238 = BgL_iexprsz00_8620;
																	BgL_iclausesz00_2237 = BgL_iclausesz00_8619;
																	BgL_clausesz00_2236 = BgL_clausesz00_8618;
																	goto BgL_zc3z04anonymousza31924ze3z87_2239;
																}
															}
														}
													}
												}
											}
										else
											{	/* Eval/evmodule.scm 796 */
												obj_t BgL_arg1938z00_2258;
												obj_t BgL_arg1939z00_2259;

												{	/* Eval/evmodule.scm 796 */
													obj_t BgL_pairz00_3886;

													if (PAIRP(BgL_clausesz00_2236))
														{	/* Eval/evmodule.scm 796 */
															BgL_pairz00_3886 = BgL_clausesz00_2236;
														}
													else
														{
															obj_t BgL_auxz00_8623;

															BgL_auxz00_8623 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string3036z00zz__evmodulez00, BINT(29906L),
																BGl_string3151z00zz__evmodulez00,
																BGl_string3038z00zz__evmodulez00,
																BgL_clausesz00_2236);
															FAILURE(BgL_auxz00_8623, BFALSE, BFALSE);
														}
													BgL_arg1938z00_2258 = CDR(BgL_pairz00_3886);
												}
												{	/* Eval/evmodule.scm 797 */
													obj_t BgL_arg1940z00_2260;

													{	/* Eval/evmodule.scm 797 */
														obj_t BgL_arg1941z00_2261;

														{	/* Eval/evmodule.scm 797 */
															obj_t BgL_pairz00_3887;

															if (PAIRP(BgL_clausesz00_2236))
																{	/* Eval/evmodule.scm 797 */
																	BgL_pairz00_3887 = BgL_clausesz00_2236;
																}
															else
																{
																	obj_t BgL_auxz00_8630;

																	BgL_auxz00_8630 =
																		BGl_typezd2errorzd2zz__errorz00
																		(BGl_string3036z00zz__evmodulez00,
																		BINT(29948L),
																		BGl_string3151z00zz__evmodulez00,
																		BGl_string3038z00zz__evmodulez00,
																		BgL_clausesz00_2236);
																	FAILURE(BgL_auxz00_8630, BFALSE, BFALSE);
																}
															BgL_arg1941z00_2261 = CAR(BgL_pairz00_3887);
														}
														{	/* Eval/evmodule.scm 797 */
															obj_t BgL_list1942z00_2262;

															BgL_list1942z00_2262 =
																MAKE_YOUNG_PAIR(BgL_arg1941z00_2261, BNIL);
															BgL_arg1940z00_2260 = BgL_list1942z00_2262;
														}
													}
													{	/* Eval/evmodule.scm 797 */
														obj_t BgL_auxz00_8636;

														{	/* Eval/evmodule.scm 797 */
															bool_t BgL_test3933z00_8637;

															if (PAIRP(BgL_iclausesz00_2237))
																{	/* Eval/evmodule.scm 797 */
																	BgL_test3933z00_8637 = ((bool_t) 1);
																}
															else
																{	/* Eval/evmodule.scm 797 */
																	BgL_test3933z00_8637 =
																		NULLP(BgL_iclausesz00_2237);
																}
															if (BgL_test3933z00_8637)
																{	/* Eval/evmodule.scm 797 */
																	BgL_auxz00_8636 = BgL_iclausesz00_2237;
																}
															else
																{
																	obj_t BgL_auxz00_8641;

																	BgL_auxz00_8641 =
																		BGl_typezd2errorzd2zz__errorz00
																		(BGl_string3036z00zz__evmodulez00,
																		BINT(29920L),
																		BGl_string3151z00zz__evmodulez00,
																		BGl_string3094z00zz__evmodulez00,
																		BgL_iclausesz00_2237);
																	FAILURE(BgL_auxz00_8641, BFALSE, BFALSE);
																}
														}
														BgL_arg1939z00_2259 =
															BGl_appendzd221011zd2zz__evmodulez00
															(BgL_auxz00_8636, BgL_arg1940z00_2260);
													}
												}
												{
													obj_t BgL_iclausesz00_8647;
													obj_t BgL_clausesz00_8646;

													BgL_clausesz00_8646 = BgL_arg1938z00_2258;
													BgL_iclausesz00_8647 = BgL_arg1939z00_2259;
													BgL_iclausesz00_2237 = BgL_iclausesz00_8647;
													BgL_clausesz00_2236 = BgL_clausesz00_8646;
													goto BgL_zc3z04anonymousza31924ze3z87_2239;
												}
											}
									}
								else
									{	/* Eval/evmodule.scm 786 */
										obj_t BgL_arg1944z00_2264;

										{	/* Eval/evmodule.scm 786 */
											obj_t BgL_pairz00_3889;

											if (PAIRP(BgL_clausesz00_2236))
												{	/* Eval/evmodule.scm 786 */
													BgL_pairz00_3889 = BgL_clausesz00_2236;
												}
											else
												{
													obj_t BgL_auxz00_8650;

													BgL_auxz00_8650 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3036z00zz__evmodulez00, BINT(29598L),
														BGl_string3151z00zz__evmodulez00,
														BGl_string3038z00zz__evmodulez00,
														BgL_clausesz00_2236);
													FAILURE(BgL_auxz00_8650, BFALSE, BFALSE);
												}
											BgL_arg1944z00_2264 = CAR(BgL_pairz00_3889);
										}
										return
											BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_129,
											BGl_string3072z00zz__evmodulez00,
											BGl_string3185z00zz__evmodulez00, BgL_arg1944z00_2264);
									}
							}
					}
				}
			}
		}

	}



/* &<@anonymous:1954> */
	obj_t BGl_z62zc3z04anonymousza31954ze3ze5zz__evmodulez00(obj_t
		BgL_envz00_4305, obj_t BgL_pz00_4306)
	{
		{	/* Eval/evmodule.scm 757 */
			{	/* Eval/evmodule.scm 758 */
				obj_t BgL_e0z00_5368;

				{	/* Eval/evmodule.scm 758 */

					{	/* Eval/evmodule.scm 758 */
						obj_t BgL_iportz00_5369;

						if (INPUT_PORTP(BgL_pz00_4306))
							{	/* Eval/evmodule.scm 758 */
								BgL_iportz00_5369 = BgL_pz00_4306;
							}
						else
							{
								obj_t BgL_auxz00_8658;

								BgL_auxz00_8658 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3036z00zz__evmodulez00, BINT(28660L),
									BGl_string3186z00zz__evmodulez00,
									BGl_string3187z00zz__evmodulez00, BgL_pz00_4306);
								FAILURE(BgL_auxz00_8658, BFALSE, BFALSE);
							}
						{	/* Eval/evmodule.scm 758 */

							BgL_e0z00_5368 =
								BGl_readz00zz__readerz00(BgL_iportz00_5369, BFALSE);
						}
					}
				}
				{	/* Eval/evmodule.scm 759 */
					bool_t BgL_test3937z00_8663;

					if (PAIRP(BgL_e0z00_5368))
						{	/* Eval/evmodule.scm 759 */
							BgL_test3937z00_8663 =
								(CAR(BgL_e0z00_5368) == BGl_symbol3188z00zz__evmodulez00);
						}
					else
						{	/* Eval/evmodule.scm 759 */
							BgL_test3937z00_8663 = ((bool_t) 0);
						}
					if (BgL_test3937z00_8663)
						{	/* Eval/evmodule.scm 760 */
							obj_t BgL_val0_1192z00_5370;
							obj_t BgL_val1_1193z00_5371;

							BgL_val0_1192z00_5370 = CDR(BgL_e0z00_5368);
							{	/* Eval/evmodule.scm 760 */
								obj_t BgL_auxz00_8669;

								if (INPUT_PORTP(BgL_pz00_4306))
									{	/* Eval/evmodule.scm 760 */
										BgL_auxz00_8669 = BgL_pz00_4306;
									}
								else
									{
										obj_t BgL_auxz00_8672;

										BgL_auxz00_8672 =
											BGl_typezd2errorzd2zz__errorz00
											(BGl_string3036z00zz__evmodulez00, BINT(28766L),
											BGl_string3186z00zz__evmodulez00,
											BGl_string3187z00zz__evmodulez00, BgL_pz00_4306);
										FAILURE(BgL_auxz00_8672, BFALSE, BFALSE);
									}
								BgL_val1_1193z00_5371 =
									BGl_portzd2ze3listz31zz__readerz00
									(BGl_readzd2envzd2zz__readerz00, BgL_auxz00_8669);
							}
							{	/* Eval/evmodule.scm 760 */
								int BgL_tmpz00_8677;

								BgL_tmpz00_8677 = (int) (2L);
								BGL_MVALUES_NUMBER_SET(BgL_tmpz00_8677);
							}
							{	/* Eval/evmodule.scm 760 */
								int BgL_tmpz00_8680;

								BgL_tmpz00_8680 = (int) (1L);
								BGL_MVALUES_VAL_SET(BgL_tmpz00_8680, BgL_val1_1193z00_5371);
							}
							return BgL_val0_1192z00_5370;
						}
					else
						{	/* Eval/evmodule.scm 761 */
							obj_t BgL_val1_1195z00_5372;

							{	/* Eval/evmodule.scm 761 */
								obj_t BgL_arg1959z00_5373;

								{	/* Eval/evmodule.scm 761 */
									obj_t BgL_auxz00_8683;

									if (INPUT_PORTP(BgL_pz00_4306))
										{	/* Eval/evmodule.scm 761 */
											BgL_auxz00_8683 = BgL_pz00_4306;
										}
									else
										{
											obj_t BgL_auxz00_8686;

											BgL_auxz00_8686 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3036z00zz__evmodulez00, BINT(28813L),
												BGl_string3186z00zz__evmodulez00,
												BGl_string3187z00zz__evmodulez00, BgL_pz00_4306);
											FAILURE(BgL_auxz00_8686, BFALSE, BFALSE);
										}
									BgL_arg1959z00_5373 =
										BGl_portzd2ze3listz31zz__readerz00
										(BGl_readzd2envzd2zz__readerz00, BgL_auxz00_8683);
								}
								BgL_val1_1195z00_5372 =
									MAKE_YOUNG_PAIR(BgL_e0z00_5368, BgL_arg1959z00_5373);
							}
							{	/* Eval/evmodule.scm 761 */
								int BgL_tmpz00_8692;

								BgL_tmpz00_8692 = (int) (2L);
								BGL_MVALUES_NUMBER_SET(BgL_tmpz00_8692);
							}
							{	/* Eval/evmodule.scm 761 */
								int BgL_tmpz00_8695;

								BgL_tmpz00_8695 = (int) (1L);
								BGL_MVALUES_VAL_SET(BgL_tmpz00_8695, BgL_val1_1195z00_5372);
							}
							return BNIL;
						}
				}
			}
		}

	}



/* evmodule-step1 */
	obj_t BGl_evmodulezd2step1zd2zz__evmodulez00(obj_t BgL_modz00_130,
		obj_t BgL_clausesz00_131, obj_t BgL_locz00_132)
	{
		{	/* Eval/evmodule.scm 803 */
			{
				obj_t BgL_l1200z00_2319;

				BgL_l1200z00_2319 = BgL_clausesz00_131;
			BgL_zc3z04anonymousza31970ze3z87_2320:
				if (PAIRP(BgL_l1200z00_2319))
					{	/* Eval/evmodule.scm 804 */
						{	/* Eval/evmodule.scm 805 */
							obj_t BgL_clausez00_2322;

							BgL_clausez00_2322 = CAR(BgL_l1200z00_2319);
							BGL_MODULE_SET(BgL_modz00_130);
							{	/* Eval/evmodule.scm 806 */
								obj_t BgL_locz00_2323;

								{	/* Eval/evmodule.scm 806 */
									obj_t BgL__ortest_1091z00_2331;

									BgL__ortest_1091z00_2331 =
										BGl_getzd2sourcezd2locationz00zz__readerz00
										(BgL_clausez00_2322);
									if (CBOOL(BgL__ortest_1091z00_2331))
										{	/* Eval/evmodule.scm 806 */
											BgL_locz00_2323 = BgL__ortest_1091z00_2331;
										}
									else
										{	/* Eval/evmodule.scm 806 */
											BgL_locz00_2323 = BgL_locz00_132;
										}
								}
								{	/* Eval/evmodule.scm 807 */
									obj_t BgL_casezd2valuezd2_2324;

									{	/* Eval/evmodule.scm 807 */
										obj_t BgL_pairz00_3891;

										if (PAIRP(BgL_clausez00_2322))
											{	/* Eval/evmodule.scm 807 */
												BgL_pairz00_3891 = BgL_clausez00_2322;
											}
										else
											{
												obj_t BgL_auxz00_8707;

												BgL_auxz00_8707 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3036z00zz__evmodulez00, BINT(30366L),
													BGl_string3190z00zz__evmodulez00,
													BGl_string3038z00zz__evmodulez00, BgL_clausez00_2322);
												FAILURE(BgL_auxz00_8707, BFALSE, BFALSE);
											}
										BgL_casezd2valuezd2_2324 = CAR(BgL_pairz00_3891);
									}
									if (
										(BgL_casezd2valuezd2_2324 ==
											BGl_symbol3191z00zz__evmodulez00))
										{	/* Eval/evmodule.scm 807 */
											BGl_evmodulezd2libraryzd2zz__evmodulez00
												(BgL_clausez00_2322, BgL_locz00_2323);
										}
									else
										{	/* Eval/evmodule.scm 807 */
											if (
												(BgL_casezd2valuezd2_2324 ==
													BGl_symbol3193z00zz__evmodulez00))
												{	/* Eval/evmodule.scm 807 */
													BGl_evmodulezd2staticzd2zz__evmodulez00
														(BgL_modz00_130, BgL_clausez00_2322,
														BgL_locz00_2323, ((bool_t) 0));
												}
											else
												{	/* Eval/evmodule.scm 807 */
													if (
														(BgL_casezd2valuezd2_2324 ==
															BGl_symbol3195z00zz__evmodulez00))
														{	/* Eval/evmodule.scm 807 */
															BGl_evmodulezd2exportzd2zz__evmodulez00
																(BgL_modz00_130, BgL_clausez00_2322,
																BgL_locz00_2323, ((bool_t) 0));
														}
													else
														{	/* Eval/evmodule.scm 807 */
															if (
																(BgL_casezd2valuezd2_2324 ==
																	BGl_symbol3197z00zz__evmodulez00))
																{	/* Eval/evmodule.scm 807 */
																	BGl_evmodulezd2importzd2zz__evmodulez00
																		(BgL_modz00_130, BgL_clausez00_2322,
																		BgL_locz00_2323);
																}
															else
																{	/* Eval/evmodule.scm 807 */
																	if (
																		(BgL_casezd2valuezd2_2324 ==
																			BGl_symbol3080z00zz__evmodulez00))
																		{	/* Eval/evmodule.scm 807 */
																			BGl_evmodulezd2optionzd2zz__evmodulez00
																				(BgL_clausez00_2322, BgL_locz00_2323);
																		}
																	else
																		{	/* Eval/evmodule.scm 807 */
																			BUNSPEC;
																		}
																}
														}
												}
										}
								}
							}
						}
						{
							obj_t BgL_l1200z00_8727;

							BgL_l1200z00_8727 = CDR(BgL_l1200z00_2319);
							BgL_l1200z00_2319 = BgL_l1200z00_8727;
							goto BgL_zc3z04anonymousza31970ze3z87_2320;
						}
					}
				else
					{	/* Eval/evmodule.scm 804 */
						if (NULLP(BgL_l1200z00_2319))
							{	/* Eval/evmodule.scm 804 */
								return BTRUE;
							}
						else
							{	/* Eval/evmodule.scm 804 */
								return
									BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00
									(BGl_string3079z00zz__evmodulez00,
									BGl_string3069z00zz__evmodulez00, BgL_l1200z00_2319,
									BGl_string3036z00zz__evmodulez00, BINT(30244L));
							}
					}
			}
		}

	}



/* evmodule-step2 */
	obj_t BGl_evmodulezd2step2zd2zz__evmodulez00(obj_t BgL_modz00_133,
		obj_t BgL_clausesz00_134, obj_t BgL_locz00_135)
	{
		{	/* Eval/evmodule.scm 823 */
			{
				obj_t BgL_l1202z00_2336;

				BgL_l1202z00_2336 = BgL_clausesz00_134;
			BgL_zc3z04anonymousza31979ze3z87_2337:
				if (PAIRP(BgL_l1202z00_2336))
					{	/* Eval/evmodule.scm 824 */
						{	/* Eval/evmodule.scm 825 */
							obj_t BgL_clausez00_2339;

							BgL_clausez00_2339 = CAR(BgL_l1202z00_2336);
							BGL_MODULE_SET(BgL_modz00_133);
							{	/* Eval/evmodule.scm 826 */
								obj_t BgL_locz00_2340;

								{	/* Eval/evmodule.scm 826 */
									obj_t BgL__ortest_1092z00_2347;

									BgL__ortest_1092z00_2347 =
										BGl_getzd2sourcezd2locationz00zz__readerz00
										(BgL_clausez00_2339);
									if (CBOOL(BgL__ortest_1092z00_2347))
										{	/* Eval/evmodule.scm 826 */
											BgL_locz00_2340 = BgL__ortest_1092z00_2347;
										}
									else
										{	/* Eval/evmodule.scm 826 */
											BgL_locz00_2340 = BgL_locz00_135;
										}
								}
								{	/* Eval/evmodule.scm 827 */
									obj_t BgL_casezd2valuezd2_2341;

									{	/* Eval/evmodule.scm 827 */
										obj_t BgL_pairz00_3899;

										if (PAIRP(BgL_clausez00_2339))
											{	/* Eval/evmodule.scm 827 */
												BgL_pairz00_3899 = BgL_clausez00_2339;
											}
										else
											{
												obj_t BgL_auxz00_8742;

												BgL_auxz00_8742 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3036z00zz__evmodulez00, BINT(31085L),
													BGl_string3199z00zz__evmodulez00,
													BGl_string3038z00zz__evmodulez00, BgL_clausez00_2339);
												FAILURE(BgL_auxz00_8742, BFALSE, BFALSE);
											}
										BgL_casezd2valuezd2_2341 = CAR(BgL_pairz00_3899);
									}
									{	/* Eval/evmodule.scm 827 */
										bool_t BgL_test3953z00_8747;

										{	/* Eval/evmodule.scm 827 */
											bool_t BgL__ortest_1093z00_2345;

											BgL__ortest_1093z00_2345 =
												(BgL_casezd2valuezd2_2341 ==
												BGl_symbol3200z00zz__evmodulez00);
											if (BgL__ortest_1093z00_2345)
												{	/* Eval/evmodule.scm 827 */
													BgL_test3953z00_8747 = BgL__ortest_1093z00_2345;
												}
											else
												{	/* Eval/evmodule.scm 827 */
													bool_t BgL__ortest_1094z00_2346;

													BgL__ortest_1094z00_2346 =
														(BgL_casezd2valuezd2_2341 ==
														BGl_symbol3202z00zz__evmodulez00);
													if (BgL__ortest_1094z00_2346)
														{	/* Eval/evmodule.scm 827 */
															BgL_test3953z00_8747 = BgL__ortest_1094z00_2346;
														}
													else
														{	/* Eval/evmodule.scm 827 */
															BgL_test3953z00_8747 =
																(BgL_casezd2valuezd2_2341 ==
																BGl_symbol3204z00zz__evmodulez00);
														}
												}
										}
										if (BgL_test3953z00_8747)
											{	/* Eval/evmodule.scm 827 */
												BGl_evmodulezd2importzd2zz__evmodulez00(BgL_modz00_133,
													BgL_clausez00_2339, BgL_locz00_2340);
											}
										else
											{	/* Eval/evmodule.scm 827 */
												if (
													(BgL_casezd2valuezd2_2341 ==
														BGl_symbol3206z00zz__evmodulez00))
													{	/* Eval/evmodule.scm 827 */
														BGl_evmodulezd2fromzd2zz__evmodulez00
															(BgL_modz00_133, BgL_clausez00_2339,
															BgL_locz00_2340);
													}
												else
													{	/* Eval/evmodule.scm 827 */
														BUNSPEC;
													}
											}
									}
								}
							}
						}
						{
							obj_t BgL_l1202z00_8757;

							BgL_l1202z00_8757 = CDR(BgL_l1202z00_2336);
							BgL_l1202z00_2336 = BgL_l1202z00_8757;
							goto BgL_zc3z04anonymousza31979ze3z87_2337;
						}
					}
				else
					{	/* Eval/evmodule.scm 824 */
						if (NULLP(BgL_l1202z00_2336))
							{	/* Eval/evmodule.scm 824 */
								return BTRUE;
							}
						else
							{	/* Eval/evmodule.scm 824 */
								return
									BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00
									(BGl_string3079z00zz__evmodulez00,
									BGl_string3069z00zz__evmodulez00, BgL_l1202z00_2336,
									BGl_string3036z00zz__evmodulez00, BINT(30963L));
							}
					}
			}
		}

	}



/* evmodule-step3 */
	obj_t BGl_evmodulezd2step3zd2zz__evmodulez00(obj_t BgL_modz00_136,
		obj_t BgL_clausesz00_137, obj_t BgL_locz00_138)
	{
		{	/* Eval/evmodule.scm 837 */
			{
				obj_t BgL_l1204z00_2352;

				BgL_l1204z00_2352 = BgL_clausesz00_137;
			BgL_zc3z04anonymousza31984ze3z87_2353:
				if (PAIRP(BgL_l1204z00_2352))
					{	/* Eval/evmodule.scm 838 */
						{	/* Eval/evmodule.scm 839 */
							obj_t BgL_clausez00_2355;

							BgL_clausez00_2355 = CAR(BgL_l1204z00_2352);
							BGL_MODULE_SET(BgL_modz00_136);
							{	/* Eval/evmodule.scm 840 */
								obj_t BgL_locz00_2356;

								{	/* Eval/evmodule.scm 840 */
									obj_t BgL__ortest_1095z00_2358;

									BgL__ortest_1095z00_2358 =
										BGl_getzd2sourcezd2locationz00zz__readerz00
										(BgL_clausez00_2355);
									if (CBOOL(BgL__ortest_1095z00_2358))
										{	/* Eval/evmodule.scm 840 */
											BgL_locz00_2356 = BgL__ortest_1095z00_2358;
										}
									else
										{	/* Eval/evmodule.scm 840 */
											BgL_locz00_2356 = BgL_locz00_138;
										}
								}
								{	/* Eval/evmodule.scm 841 */
									obj_t BgL_casezd2valuezd2_2357;

									{	/* Eval/evmodule.scm 841 */
										obj_t BgL_pairz00_3902;

										if (PAIRP(BgL_clausez00_2355))
											{	/* Eval/evmodule.scm 841 */
												BgL_pairz00_3902 = BgL_clausez00_2355;
											}
										else
											{
												obj_t BgL_auxz00_8772;

												BgL_auxz00_8772 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3036z00zz__evmodulez00, BINT(31628L),
													BGl_string3208z00zz__evmodulez00,
													BGl_string3038z00zz__evmodulez00, BgL_clausez00_2355);
												FAILURE(BgL_auxz00_8772, BFALSE, BFALSE);
											}
										BgL_casezd2valuezd2_2357 = CAR(BgL_pairz00_3902);
									}
									if (
										(BgL_casezd2valuezd2_2357 ==
											BGl_symbol3193z00zz__evmodulez00))
										{	/* Eval/evmodule.scm 841 */
											BGl_evmodulezd2staticzd2zz__evmodulez00(BgL_modz00_136,
												BgL_clausez00_2355, BgL_locz00_2356, ((bool_t) 1));
										}
									else
										{	/* Eval/evmodule.scm 841 */
											if (
												(BgL_casezd2valuezd2_2357 ==
													BGl_symbol3195z00zz__evmodulez00))
												{	/* Eval/evmodule.scm 841 */
													BGl_evmodulezd2exportzd2zz__evmodulez00
														(BgL_modz00_136, BgL_clausez00_2355,
														BgL_locz00_2356, ((bool_t) 1));
												}
											else
												{	/* Eval/evmodule.scm 841 */
													BUNSPEC;
												}
										}
								}
							}
						}
						{
							obj_t BgL_l1204z00_8783;

							BgL_l1204z00_8783 = CDR(BgL_l1204z00_2352);
							BgL_l1204z00_2352 = BgL_l1204z00_8783;
							goto BgL_zc3z04anonymousza31984ze3z87_2353;
						}
					}
				else
					{	/* Eval/evmodule.scm 838 */
						if (NULLP(BgL_l1204z00_2352))
							{	/* Eval/evmodule.scm 838 */
								return BTRUE;
							}
						else
							{	/* Eval/evmodule.scm 838 */
								return
									BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00
									(BGl_string3079z00zz__evmodulez00,
									BGl_string3069z00zz__evmodulez00, BgL_l1204z00_2352,
									BGl_string3036z00zz__evmodulez00, BINT(31506L));
							}
					}
			}
		}

	}



/* loop~0 */
	obj_t BGl_loopze70ze7zz__evmodulez00(obj_t BgL_c0z00_4330,
		obj_t BgL_locz00_4329, obj_t BgL_cz00_2375)
	{
		{	/* Eval/evmodule.scm 854 */
		BGl_loopze70ze7zz__evmodulez00:
			{	/* Eval/evmodule.scm 856 */
				bool_t BgL_test3964z00_8789;

				if (PAIRP(BgL_cz00_2375))
					{	/* Eval/evmodule.scm 856 */
						if (BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_cz00_2375))
							{	/* Eval/evmodule.scm 856 */
								obj_t BgL_tmpz00_8794;

								BgL_tmpz00_8794 = CAR(BgL_cz00_2375);
								BgL_test3964z00_8789 = SYMBOLP(BgL_tmpz00_8794);
							}
						else
							{	/* Eval/evmodule.scm 856 */
								BgL_test3964z00_8789 = ((bool_t) 0);
							}
					}
				else
					{	/* Eval/evmodule.scm 856 */
						BgL_test3964z00_8789 = ((bool_t) 0);
					}
				if (BgL_test3964z00_8789)
					{	/* Eval/evmodule.scm 856 */
						if ((CAR(BgL_cz00_2375) == BGl_symbol3209z00zz__evmodulez00))
							{	/* Eval/evmodule.scm 860 */
								obj_t BgL_ncz00_2383;

								BgL_ncz00_2383 =
									BGl_expandzd2oncezd2zz__expandz00(BgL_cz00_2375);
								if (PAIRP(BgL_ncz00_2383))
									{	/* Eval/evmodule.scm 862 */
										if (
											(CAR(BgL_ncz00_2383) == BGl_symbol3211z00zz__evmodulez00))
											{	/* Eval/evmodule.scm 863 */
												BGL_TAIL return
													BGl_zc3z04anonymousza32007ze3ze70z60zz__evmodulez00
													(BgL_c0z00_4330, BgL_locz00_4329,
													CDR(BgL_ncz00_2383));
											}
										else
											{
												obj_t BgL_cz00_8808;

												BgL_cz00_8808 = BgL_ncz00_2383;
												BgL_cz00_2375 = BgL_cz00_8808;
												goto BGl_loopze70ze7zz__evmodulez00;
											}
									}
								else
									{	/* Eval/evmodule.scm 862 */
										if ((BgL_ncz00_2383 == BUNSPEC))
											{	/* Eval/evmodule.scm 866 */
												return BNIL;
											}
										else
											{	/* Eval/evmodule.scm 869 */
												obj_t BgL_list2017z00_2398;

												BgL_list2017z00_2398 =
													MAKE_YOUNG_PAIR(BgL_ncz00_2383, BNIL);
												return BgL_list2017z00_2398;
											}
									}
							}
						else
							{	/* Eval/evmodule.scm 871 */
								obj_t BgL_list2018z00_2399;

								BgL_list2018z00_2399 = MAKE_YOUNG_PAIR(BgL_cz00_2375, BNIL);
								return BgL_list2018z00_2399;
							}
					}
				else
					{	/* Eval/evmodule.scm 857 */
						obj_t BgL_locz00_2401;

						{	/* Eval/evmodule.scm 857 */
							obj_t BgL__ortest_1096z00_2402;

							BgL__ortest_1096z00_2402 =
								BGl_getzd2sourcezd2locationz00zz__readerz00(BgL_cz00_2375);
							if (CBOOL(BgL__ortest_1096z00_2402))
								{	/* Eval/evmodule.scm 857 */
									BgL_locz00_2401 = BgL__ortest_1096z00_2402;
								}
							else
								{	/* Eval/evmodule.scm 857 */
									BgL_locz00_2401 = BgL_locz00_4329;
								}
						}
						return
							BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_2401,
							BGl_string3072z00zz__evmodulez00,
							BGl_string3185z00zz__evmodulez00, BgL_c0z00_4330);
					}
			}
		}

	}



/* <@anonymous:2007>~0 */
	obj_t BGl_zc3z04anonymousza32007ze3ze70z60zz__evmodulez00(obj_t
		BgL_c0z00_4332, obj_t BgL_locz00_4331, obj_t BgL_l1207z00_2389)
	{
		{	/* Eval/evmodule.scm 864 */
			if (NULLP(BgL_l1207z00_2389))
				{	/* Eval/evmodule.scm 864 */
					return BNIL;
				}
			else
				{	/* Eval/evmodule.scm 864 */
					obj_t BgL_arg2009z00_2392;
					obj_t BgL_arg2011z00_2393;

					{	/* Eval/evmodule.scm 864 */
						obj_t BgL_arg2012z00_2394;

						{	/* Eval/evmodule.scm 864 */
							obj_t BgL_pairz00_3908;

							if (PAIRP(BgL_l1207z00_2389))
								{	/* Eval/evmodule.scm 864 */
									BgL_pairz00_3908 = BgL_l1207z00_2389;
								}
							else
								{
									obj_t BgL_auxz00_8821;

									BgL_auxz00_8821 =
										BGl_typezd2errorzd2zz__errorz00
										(BGl_string3036z00zz__evmodulez00, BINT(32446L),
										BGl_string3213z00zz__evmodulez00,
										BGl_string3038z00zz__evmodulez00, BgL_l1207z00_2389);
									FAILURE(BgL_auxz00_8821, BFALSE, BFALSE);
								}
							BgL_arg2012z00_2394 = CAR(BgL_pairz00_3908);
						}
						BgL_arg2009z00_2392 =
							BGl_loopze70ze7zz__evmodulez00(BgL_c0z00_4332, BgL_locz00_4331,
							BgL_arg2012z00_2394);
					}
					{	/* Eval/evmodule.scm 864 */
						obj_t BgL_arg2013z00_2395;

						{	/* Eval/evmodule.scm 864 */
							obj_t BgL_pairz00_3909;

							if (PAIRP(BgL_l1207z00_2389))
								{	/* Eval/evmodule.scm 864 */
									BgL_pairz00_3909 = BgL_l1207z00_2389;
								}
							else
								{
									obj_t BgL_auxz00_8829;

									BgL_auxz00_8829 =
										BGl_typezd2errorzd2zz__errorz00
										(BGl_string3036z00zz__evmodulez00, BINT(32446L),
										BGl_string3213z00zz__evmodulez00,
										BGl_string3038z00zz__evmodulez00, BgL_l1207z00_2389);
									FAILURE(BgL_auxz00_8829, BFALSE, BFALSE);
								}
							BgL_arg2013z00_2395 = CDR(BgL_pairz00_3909);
						}
						BgL_arg2011z00_2393 =
							BGl_zc3z04anonymousza32007ze3ze70z60zz__evmodulez00
							(BgL_c0z00_4332, BgL_locz00_4331, BgL_arg2013z00_2395);
					}
					{	/* Eval/evmodule.scm 864 */
						obj_t BgL_auxz00_8835;

						{	/* Eval/evmodule.scm 864 */
							bool_t BgL_test3975z00_8836;

							if (PAIRP(BgL_arg2009z00_2392))
								{	/* Eval/evmodule.scm 864 */
									BgL_test3975z00_8836 = ((bool_t) 1);
								}
							else
								{	/* Eval/evmodule.scm 864 */
									BgL_test3975z00_8836 = NULLP(BgL_arg2009z00_2392);
								}
							if (BgL_test3975z00_8836)
								{	/* Eval/evmodule.scm 864 */
									BgL_auxz00_8835 = BgL_arg2009z00_2392;
								}
							else
								{
									obj_t BgL_auxz00_8840;

									BgL_auxz00_8840 =
										BGl_typezd2errorzd2zz__errorz00
										(BGl_string3036z00zz__evmodulez00, BINT(32446L),
										BGl_string3213z00zz__evmodulez00,
										BGl_string3094z00zz__evmodulez00, BgL_arg2009z00_2392);
									FAILURE(BgL_auxz00_8840, BFALSE, BFALSE);
								}
						}
						return bgl_append2(BgL_auxz00_8835, BgL_arg2011z00_2393);
					}
				}
		}

	}



/* evmodule-cond-expand-clause~0 */
	obj_t BGl_evmodulezd2condzd2expandzd2clauseze70z35zz__evmodulez00(obj_t
		BgL_locz00_4333, obj_t BgL_c0z00_2372)
	{
		{	/* Eval/evmodule.scm 871 */
			return
				BGl_loopze70ze7zz__evmodulez00(BgL_c0z00_2372, BgL_locz00_4333,
				BgL_c0z00_2372);
		}

	}



/* <@anonymous:1989>~0 */
	obj_t BGl_zc3z04anonymousza31989ze3ze70z60zz__evmodulez00(obj_t
		BgL_locz00_4334, obj_t BgL_l1210z00_2364)
	{
		{	/* Eval/evmodule.scm 873 */
			if (NULLP(BgL_l1210z00_2364))
				{	/* Eval/evmodule.scm 873 */
					return BNIL;
				}
			else
				{	/* Eval/evmodule.scm 873 */
					obj_t BgL_arg1991z00_2367;
					obj_t BgL_arg1992z00_2368;

					{	/* Eval/evmodule.scm 873 */
						obj_t BgL_arg1993z00_2369;

						{	/* Eval/evmodule.scm 873 */
							obj_t BgL_pairz00_3912;

							if (PAIRP(BgL_l1210z00_2364))
								{	/* Eval/evmodule.scm 873 */
									BgL_pairz00_3912 = BgL_l1210z00_2364;
								}
							else
								{
									obj_t BgL_auxz00_8850;

									BgL_auxz00_8850 =
										BGl_typezd2errorzd2zz__errorz00
										(BGl_string3036z00zz__evmodulez00, BINT(32578L),
										BGl_string3214z00zz__evmodulez00,
										BGl_string3038z00zz__evmodulez00, BgL_l1210z00_2364);
									FAILURE(BgL_auxz00_8850, BFALSE, BFALSE);
								}
							BgL_arg1993z00_2369 = CAR(BgL_pairz00_3912);
						}
						BgL_arg1991z00_2367 =
							BGl_evmodulezd2condzd2expandzd2clauseze70z35zz__evmodulez00
							(BgL_locz00_4334, BgL_arg1993z00_2369);
					}
					{	/* Eval/evmodule.scm 873 */
						obj_t BgL_arg1994z00_2370;

						{	/* Eval/evmodule.scm 873 */
							obj_t BgL_pairz00_3913;

							if (PAIRP(BgL_l1210z00_2364))
								{	/* Eval/evmodule.scm 873 */
									BgL_pairz00_3913 = BgL_l1210z00_2364;
								}
							else
								{
									obj_t BgL_auxz00_8858;

									BgL_auxz00_8858 =
										BGl_typezd2errorzd2zz__errorz00
										(BGl_string3036z00zz__evmodulez00, BINT(32578L),
										BGl_string3214z00zz__evmodulez00,
										BGl_string3038z00zz__evmodulez00, BgL_l1210z00_2364);
									FAILURE(BgL_auxz00_8858, BFALSE, BFALSE);
								}
							BgL_arg1994z00_2370 = CDR(BgL_pairz00_3913);
						}
						BgL_arg1992z00_2368 =
							BGl_zc3z04anonymousza31989ze3ze70z60zz__evmodulez00
							(BgL_locz00_4334, BgL_arg1994z00_2370);
					}
					{	/* Eval/evmodule.scm 873 */
						obj_t BgL_auxz00_8864;

						{	/* Eval/evmodule.scm 873 */
							bool_t BgL_test3980z00_8865;

							if (PAIRP(BgL_arg1991z00_2367))
								{	/* Eval/evmodule.scm 873 */
									BgL_test3980z00_8865 = ((bool_t) 1);
								}
							else
								{	/* Eval/evmodule.scm 873 */
									BgL_test3980z00_8865 = NULLP(BgL_arg1991z00_2367);
								}
							if (BgL_test3980z00_8865)
								{	/* Eval/evmodule.scm 873 */
									BgL_auxz00_8864 = BgL_arg1991z00_2367;
								}
							else
								{
									obj_t BgL_auxz00_8869;

									BgL_auxz00_8869 =
										BGl_typezd2errorzd2zz__errorz00
										(BGl_string3036z00zz__evmodulez00, BINT(32578L),
										BGl_string3214z00zz__evmodulez00,
										BGl_string3094z00zz__evmodulez00, BgL_arg1991z00_2367);
									FAILURE(BgL_auxz00_8869, BFALSE, BFALSE);
								}
						}
						return bgl_append2(BgL_auxz00_8864, BgL_arg1992z00_2368);
					}
				}
		}

	}



/* evmodule */
	BGL_EXPORTED_DEF obj_t BGl_evmodulez00zz__evmodulez00(obj_t BgL_expz00_145,
		obj_t BgL_locz00_146)
	{
		{	/* Eval/evmodule.scm 899 */
			{	/* Eval/evmodule.scm 900 */
				obj_t BgL_locz00_2411;

				{	/* Eval/evmodule.scm 900 */
					obj_t BgL__ortest_1097z00_2439;

					BgL__ortest_1097z00_2439 =
						BGl_getzd2sourcezd2locationz00zz__readerz00(BgL_expz00_145);
					if (CBOOL(BgL__ortest_1097z00_2439))
						{	/* Eval/evmodule.scm 900 */
							BgL_locz00_2411 = BgL__ortest_1097z00_2439;
						}
					else
						{	/* Eval/evmodule.scm 900 */
							BgL_locz00_2411 = BgL_locz00_146;
						}
				}
				{	/* Eval/evmodule.scm 900 */
					obj_t BgL_hdlz00_2412;

					BgL_hdlz00_2412 =
						BGl_bigloozd2modulezd2extensionzd2handlerzd2zz__paramz00();
					{	/* Eval/evmodule.scm 901 */

						if (NULLP(BgL_expz00_145))
							{	/* Eval/evmodule.scm 902 */
								return
									BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_2411,
									BGl_string3072z00zz__evmodulez00,
									BGl_string3215z00zz__evmodulez00, BgL_expz00_145);
							}
						else
							{	/* Eval/evmodule.scm 902 */
								obj_t BgL_cdrzd2889zd2_2419;

								{	/* Eval/evmodule.scm 902 */
									obj_t BgL_pairz00_3930;

									BgL_pairz00_3930 = BgL_expz00_145;
									BgL_cdrzd2889zd2_2419 = CDR(BgL_pairz00_3930);
								}
								{	/* Eval/evmodule.scm 902 */
									bool_t BgL_test3984z00_8882;

									{	/* Eval/evmodule.scm 902 */
										obj_t BgL_tmpz00_8883;

										{	/* Eval/evmodule.scm 902 */
											obj_t BgL_pairz00_3931;

											BgL_pairz00_3931 = BgL_expz00_145;
											BgL_tmpz00_8883 = CAR(BgL_pairz00_3931);
										}
										BgL_test3984z00_8882 =
											(BgL_tmpz00_8883 == BGl_symbol3043z00zz__evmodulez00);
									}
									if (BgL_test3984z00_8882)
										{	/* Eval/evmodule.scm 902 */
											if (PAIRP(BgL_cdrzd2889zd2_2419))
												{	/* Eval/evmodule.scm 902 */
													obj_t BgL_carzd2892zd2_2423;

													BgL_carzd2892zd2_2423 = CAR(BgL_cdrzd2889zd2_2419);
													if (SYMBOLP(BgL_carzd2892zd2_2423))
														{	/* Eval/evmodule.scm 902 */
															return
																BGl_TAGzd2881ze70z35zz__evmodulez00
																(BgL_expz00_145, BgL_hdlz00_2412,
																BgL_locz00_2411, BgL_carzd2892zd2_2423,
																CDR(BgL_cdrzd2889zd2_2419));
														}
													else
														{	/* Eval/evmodule.scm 902 */
															return
																BGl_evcompilezd2errorzd2zz__evcompilez00
																(BgL_locz00_2411,
																BGl_string3072z00zz__evmodulez00,
																BGl_string3215z00zz__evmodulez00,
																BgL_expz00_145);
														}
												}
											else
												{	/* Eval/evmodule.scm 902 */
													return
														BGl_evcompilezd2errorzd2zz__evcompilez00
														(BgL_locz00_2411, BGl_string3072z00zz__evmodulez00,
														BGl_string3215z00zz__evmodulez00, BgL_expz00_145);
												}
										}
									else
										{	/* Eval/evmodule.scm 902 */
											return
												BGl_evcompilezd2errorzd2zz__evcompilez00
												(BgL_locz00_2411, BGl_string3072z00zz__evmodulez00,
												BGl_string3215z00zz__evmodulez00, BgL_expz00_145);
										}
								}
							}
					}
				}
			}
		}

	}



/* TAG-881~0 */
	obj_t BGl_TAGzd2881ze70z35zz__evmodulez00(obj_t BgL_expz00_4328,
		obj_t BgL_hdlz00_4327, obj_t BgL_locz00_4326, obj_t BgL_namez00_2413,
		obj_t BgL_clausesz00_2414)
	{
		{	/* Eval/evmodule.scm 902 */
			if (BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_clausesz00_2414))
				{	/* Eval/evmodule.scm 906 */
					obj_t BgL_pathz00_2428;

					{	/* Eval/evmodule.scm 906 */
						obj_t BgL__ortest_1098z00_2438;

						BgL__ortest_1098z00_2438 =
							BGl_evcompilezd2loczd2filenamez00zz__evcompilez00
							(BgL_locz00_4326);
						if (CBOOL(BgL__ortest_1098z00_2438))
							{	/* Eval/evmodule.scm 906 */
								BgL_pathz00_2428 = BgL__ortest_1098z00_2438;
							}
						else
							{	/* Eval/evmodule.scm 906 */
								BgL_pathz00_2428 = BGl_string3217z00zz__evmodulez00;
							}
					}
					{	/* Eval/evmodule.scm 906 */
						obj_t BgL_modz00_2429;

						BgL_modz00_2429 =
							BGl_makezd2evmodulezd2zz__evmodulez00(BgL_namez00_2413,
							BgL_pathz00_2428, BgL_locz00_4326);
						{	/* Eval/evmodule.scm 907 */

							{	/* Eval/evmodule.scm 908 */
								obj_t BgL_arg2030z00_2430;

								{	/* Eval/evmodule.scm 908 */
									obj_t BgL_auxz00_8902;

									if (STRINGP(BgL_pathz00_2428))
										{	/* Eval/evmodule.scm 908 */
											BgL_auxz00_8902 = BgL_pathz00_2428;
										}
									else
										{
											obj_t BgL_auxz00_8905;

											BgL_auxz00_8905 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3036z00zz__evmodulez00, BINT(34341L),
												BGl_string3218z00zz__evmodulez00,
												BGl_string3050z00zz__evmodulez00, BgL_pathz00_2428);
											FAILURE(BgL_auxz00_8905, BFALSE, BFALSE);
										}
									BgL_arg2030z00_2430 =
										BGl_dirnamez00zz__osz00(BgL_auxz00_8902);
								}
								BGl_modulezd2loadzd2accesszd2filezd2zz__modulez00
									(BgL_arg2030z00_2430);
							}
							if (PROCEDUREP(BgL_hdlz00_4327))
								{	/* Eval/evmodule.scm 910 */
									obj_t BgL_arg2032z00_2432;

									{	/* Eval/evmodule.scm 910 */
										obj_t BgL_tmpfunz00_8916;

										{	/* Eval/evmodule.scm 910 */
											obj_t BgL_aux2994z00_4926;

											BgL_aux2994z00_4926 = BgL_hdlz00_4327;
											{	/* Eval/evmodule.scm 910 */
												bool_t BgL_test2995z00_4927;

												BgL_test2995z00_4927 = PROCEDUREP(BgL_aux2994z00_4926);
												if (BgL_test2995z00_4927)
													{	/* Eval/evmodule.scm 910 */
														BgL_tmpfunz00_8916 = BgL_aux2994z00_4926;
													}
												else
													{
														obj_t BgL_auxz00_8919;

														BgL_auxz00_8919 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3036z00zz__evmodulez00, BINT(34409L),
															BGl_string3218z00zz__evmodulez00,
															BGl_string3145z00zz__evmodulez00,
															BgL_aux2994z00_4926);
														FAILURE(BgL_auxz00_8919, BFALSE, BFALSE);
													}
											}
										}
										BgL_arg2032z00_2432 =
											(VA_PROCEDUREP(BgL_tmpfunz00_8916) ? ((obj_t(*)(obj_t,
														...))
												PROCEDURE_ENTRY(BgL_tmpfunz00_8916)) (BgL_hdlz00_4327,
												BgL_expz00_4328, BEOA) : ((obj_t(*)(obj_t,
														obj_t))
												PROCEDURE_ENTRY(BgL_tmpfunz00_8916)) (BgL_hdlz00_4327,
												BgL_expz00_4328));
									}
									{	/* Eval/evmodule.scm 129 */
										int BgL_tmpz00_8923;

										BgL_tmpz00_8923 = (int) (6L);
										STRUCT_SET(BgL_modz00_2429, BgL_tmpz00_8923,
											BgL_arg2032z00_2432);
								}}
							else
								{	/* Eval/evmodule.scm 909 */
									BFALSE;
								}
							{	/* Eval/evmodule.scm 911 */
								obj_t BgL_exitd1099z00_2433;

								BgL_exitd1099z00_2433 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Eval/evmodule.scm 913 */
									obj_t BgL_zc3z04anonymousza32033ze3z87_4307;

									BgL_zc3z04anonymousza32033ze3z87_4307 =
										MAKE_FX_PROCEDURE
										(BGl_z62zc3z04anonymousza32033ze3ze5zz__evmodulez00,
										(int) (0L), (int) (1L));
									PROCEDURE_SET(BgL_zc3z04anonymousza32033ze3z87_4307,
										(int) (0L), BgL_modz00_2429);
									{	/* Eval/evmodule.scm 911 */
										obj_t BgL_arg2375z00_3919;

										{	/* Eval/evmodule.scm 911 */
											obj_t BgL_arg2376z00_3920;

											BgL_arg2376z00_3920 =
												BGL_EXITD_PROTECT(BgL_exitd1099z00_2433);
											BgL_arg2375z00_3919 =
												MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza32033ze3z87_4307,
												BgL_arg2376z00_3920);
										}
										BGL_EXITD_PROTECT_SET(BgL_exitd1099z00_2433,
											BgL_arg2375z00_3919);
										BUNSPEC;
									}
									{	/* Eval/evmodule.scm 912 */
										obj_t BgL_tmp1101z00_2435;

										{	/* Eval/evmodule.scm 880 */
											obj_t BgL_mclausesz00_3921;

											BgL_mclausesz00_3921 =
												BGl_zc3z04anonymousza31989ze3ze70z60zz__evmodulez00
												(BgL_locz00_4326, BgL_clausesz00_2414);
											{	/* Eval/evmodule.scm 881 */
												obj_t BgL_iclausesz00_3922;

												BgL_iclausesz00_3922 =
													BGl_evmodulezd2includezd2zz__evmodulez00
													(BgL_modz00_2429, BgL_mclausesz00_3921,
													BgL_locz00_4326);
												{	/* Eval/evmodule.scm 882 */
													obj_t BgL_iexprsz00_3923;

													{	/* Eval/evmodule.scm 886 */
														obj_t BgL_tmpz00_3924;

														{	/* Eval/evmodule.scm 886 */
															int BgL_tmpz00_8937;

															BgL_tmpz00_8937 = (int) (1L);
															BgL_tmpz00_3924 =
																BGL_MVALUES_VAL(BgL_tmpz00_8937);
														}
														{	/* Eval/evmodule.scm 886 */
															int BgL_tmpz00_8940;

															BgL_tmpz00_8940 = (int) (1L);
															BGL_MVALUES_VAL_SET(BgL_tmpz00_8940, BUNSPEC);
														}
														BgL_iexprsz00_3923 = BgL_tmpz00_3924;
													}
													BGl_evmodulezd2step1zd2zz__evmodulez00
														(BgL_modz00_2429, BgL_iclausesz00_3922,
														BgL_locz00_4326);
													BGl_evmodulezd2step2zd2zz__evmodulez00
														(BgL_modz00_2429, BgL_iclausesz00_3922,
														BgL_locz00_4326);
													BGl_evmodulezd2step3zd2zz__evmodulez00
														(BgL_modz00_2429, BgL_iclausesz00_3922,
														BgL_locz00_4326);
													BgL_tmp1101z00_2435 =
														MAKE_YOUNG_PAIR(BGl_symbol3211z00zz__evmodulez00,
														BgL_iexprsz00_3923);
										}}}
										{	/* Eval/evmodule.scm 911 */
											bool_t BgL_test3992z00_8947;

											{	/* Eval/evmodule.scm 911 */
												obj_t BgL_arg2373z00_3926;

												BgL_arg2373z00_3926 =
													BGL_EXITD_PROTECT(BgL_exitd1099z00_2433);
												BgL_test3992z00_8947 = PAIRP(BgL_arg2373z00_3926);
											}
											if (BgL_test3992z00_8947)
												{	/* Eval/evmodule.scm 911 */
													obj_t BgL_arg2370z00_3927;

													{	/* Eval/evmodule.scm 911 */
														obj_t BgL_arg2372z00_3928;

														BgL_arg2372z00_3928 =
															BGL_EXITD_PROTECT(BgL_exitd1099z00_2433);
														{	/* Eval/evmodule.scm 911 */
															obj_t BgL_pairz00_3929;

															if (PAIRP(BgL_arg2372z00_3928))
																{	/* Eval/evmodule.scm 911 */
																	BgL_pairz00_3929 = BgL_arg2372z00_3928;
																}
															else
																{
																	obj_t BgL_auxz00_8953;

																	BgL_auxz00_8953 =
																		BGl_typezd2errorzd2zz__errorz00
																		(BGl_string3036z00zz__evmodulez00,
																		BINT(34424L),
																		BGl_string3218z00zz__evmodulez00,
																		BGl_string3038z00zz__evmodulez00,
																		BgL_arg2372z00_3928);
																	FAILURE(BgL_auxz00_8953, BFALSE, BFALSE);
																}
															BgL_arg2370z00_3927 = CDR(BgL_pairz00_3929);
														}
													}
													BGL_EXITD_PROTECT_SET(BgL_exitd1099z00_2433,
														BgL_arg2370z00_3927);
													BUNSPEC;
												}
											else
												{	/* Eval/evmodule.scm 911 */
													BFALSE;
												}
										}
										BGL_MODULE_SET(BgL_modz00_2429);
										return BgL_tmp1101z00_2435;
									}
								}
							}
						}
					}
				}
			else
				{	/* Eval/evmodule.scm 904 */
					return
						BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_4326,
						BGl_string3072z00zz__evmodulez00, BGl_string3219z00zz__evmodulez00,
						BgL_clausesz00_2414);
				}
		}

	}



/* &evmodule */
	obj_t BGl_z62evmodulez62zz__evmodulez00(obj_t BgL_envz00_4308,
		obj_t BgL_expz00_4309, obj_t BgL_locz00_4310)
	{
		{	/* Eval/evmodule.scm 899 */
			{	/* Eval/evmodule.scm 900 */
				obj_t BgL_auxz00_8961;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_expz00_4309))
					{	/* Eval/evmodule.scm 900 */
						BgL_auxz00_8961 = BgL_expz00_4309;
					}
				else
					{
						obj_t BgL_auxz00_8964;

						BgL_auxz00_8964 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string3036z00zz__evmodulez00,
							BINT(33942L), BGl_string3220z00zz__evmodulez00,
							BGl_string3094z00zz__evmodulez00, BgL_expz00_4309);
						FAILURE(BgL_auxz00_8964, BFALSE, BFALSE);
					}
				return BGl_evmodulez00zz__evmodulez00(BgL_auxz00_8961, BgL_locz00_4310);
			}
		}

	}



/* &<@anonymous:2033> */
	obj_t BGl_z62zc3z04anonymousza32033ze3ze5zz__evmodulez00(obj_t
		BgL_envz00_4311)
	{
		{	/* Eval/evmodule.scm 911 */
			{	/* Eval/evmodule.scm 913 */
				obj_t BgL_modz00_4312;

				BgL_modz00_4312 = ((obj_t) PROCEDURE_REF(BgL_envz00_4311, (int) (0L)));
				return BGL_MODULE_SET(BgL_modz00_4312);
			}
		}

	}



/* evmodule-comp! */
	BGL_EXPORTED_DEF obj_t BGl_evmodulezd2compz12zc0zz__evmodulez00(obj_t
		BgL_idz00_147, obj_t BgL_pathz00_148, obj_t BgL_locz00_149,
		obj_t BgL_exportsz00_150)
	{
		{	/* Eval/evmodule.scm 920 */
			{	/* Eval/evmodule.scm 921 */
				obj_t BgL_modz00_2440;

				BgL_modz00_2440 =
					BGl_makezd2evmodulezd2zz__evmodulez00(BgL_idz00_147, BgL_pathz00_148,
					BgL_locz00_149);
				{
					obj_t BgL_l1211z00_2442;

					BgL_l1211z00_2442 = BgL_exportsz00_150;
				BgL_zc3z04anonymousza32034ze3z87_2443:
					if (PAIRP(BgL_l1211z00_2442))
						{	/* Eval/evmodule.scm 922 */
							{	/* Eval/evmodule.scm 923 */
								obj_t BgL_gz00_2445;

								BgL_gz00_2445 = CAR(BgL_l1211z00_2442);
								{	/* Eval/evmodule.scm 923 */
									obj_t BgL_idz00_2446;
									obj_t BgL_valz00_2447;

									{	/* Eval/evmodule.scm 923 */
										obj_t BgL_evalzd2globalzd2_3935;

										if (VECTORP(BgL_gz00_2445))
											{	/* Eval/evmodule.scm 923 */
												BgL_evalzd2globalzd2_3935 = BgL_gz00_2445;
											}
										else
											{
												obj_t BgL_auxz00_8979;

												BgL_auxz00_8979 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3036z00zz__evmodulez00, BINT(34965L),
													BGl_string3221z00zz__evmodulez00,
													BGl_string3060z00zz__evmodulez00, BgL_gz00_2445);
												FAILURE(BgL_auxz00_8979, BFALSE, BFALSE);
											}
										BgL_idz00_2446 = VECTOR_REF(BgL_evalzd2globalzd2_3935, 1L);
									}
									{	/* Eval/evmodule.scm 924 */
										obj_t BgL_evalzd2globalzd2_3937;

										if (VECTORP(BgL_gz00_2445))
											{	/* Eval/evmodule.scm 924 */
												BgL_evalzd2globalzd2_3937 = BgL_gz00_2445;
											}
										else
											{
												obj_t BgL_auxz00_8986;

												BgL_auxz00_8986 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3036z00zz__evmodulez00, BINT(34997L),
													BGl_string3221z00zz__evmodulez00,
													BGl_string3060z00zz__evmodulez00, BgL_gz00_2445);
												FAILURE(BgL_auxz00_8986, BFALSE, BFALSE);
											}
										BgL_valz00_2447 = VECTOR_REF(BgL_evalzd2globalzd2_3937, 2L);
									}
									if (BGl_classzf3zf3zz__objectz00(BgL_valz00_2447))
										{	/* Eval/evmodule.scm 925 */
											{	/* Eval/evmodule.scm 926 */
												obj_t BgL_auxz00_8993;

												if (BGl_classzf3zf3zz__objectz00(BgL_valz00_2447))
													{	/* Eval/evmodule.scm 926 */
														BgL_auxz00_8993 = BgL_valz00_2447;
													}
												else
													{
														obj_t BgL_auxz00_8996;

														BgL_auxz00_8996 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3036z00zz__evmodulez00, BINT(35058L),
															BGl_string3221z00zz__evmodulez00,
															BGl_string3092z00zz__evmodulez00,
															BgL_valz00_2447);
														FAILURE(BgL_auxz00_8996, BFALSE, BFALSE);
													}
												BGl_evalzd2expandzd2instantiatez00zz__evobjectz00
													(BgL_auxz00_8993);
											}
											{	/* Eval/evmodule.scm 927 */
												obj_t BgL_auxz00_9001;

												if (BGl_classzf3zf3zz__objectz00(BgL_valz00_2447))
													{	/* Eval/evmodule.scm 927 */
														BgL_auxz00_9001 = BgL_valz00_2447;
													}
												else
													{
														obj_t BgL_auxz00_9004;

														BgL_auxz00_9004 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3036z00zz__evmodulez00, BINT(35090L),
															BGl_string3221z00zz__evmodulez00,
															BGl_string3092z00zz__evmodulez00,
															BgL_valz00_2447);
														FAILURE(BgL_auxz00_9004, BFALSE, BFALSE);
													}
												BGl_evalzd2expandzd2duplicatez00zz__evobjectz00
													(BgL_auxz00_9001);
											}
											{	/* Eval/evmodule.scm 928 */
												obj_t BgL_auxz00_9009;

												if (BGl_classzf3zf3zz__objectz00(BgL_valz00_2447))
													{	/* Eval/evmodule.scm 928 */
														BgL_auxz00_9009 = BgL_valz00_2447;
													}
												else
													{
														obj_t BgL_auxz00_9012;

														BgL_auxz00_9012 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3036z00zz__evmodulez00, BINT(35124L),
															BGl_string3221z00zz__evmodulez00,
															BGl_string3092z00zz__evmodulez00,
															BgL_valz00_2447);
														FAILURE(BgL_auxz00_9012, BFALSE, BFALSE);
													}
												BGl_evalzd2expandzd2withzd2accesszd2zz__evobjectz00
													(BgL_auxz00_9009);
											}
										}
									else
										{	/* Eval/evmodule.scm 925 */
											BFALSE;
										}
									{	/* Eval/evmodule.scm 381 */
										obj_t BgL_arg1512z00_3939;

										{	/* Eval/evmodule.scm 381 */
											obj_t BgL_arg1513z00_3940;
											obj_t BgL_arg1514z00_3941;

											BgL_arg1513z00_3940 =
												MAKE_YOUNG_PAIR(BgL_idz00_2446, BgL_gz00_2445);
											BgL_arg1514z00_3941 =
												STRUCT_REF(BgL_modz00_2440, (int) (4L));
											BgL_arg1512z00_3939 =
												MAKE_YOUNG_PAIR(BgL_arg1513z00_3940,
												BgL_arg1514z00_3941);
										}
										{	/* Eval/evmodule.scm 129 */
											int BgL_tmpz00_9021;

											BgL_tmpz00_9021 = (int) (4L);
											STRUCT_SET(BgL_modz00_2440, BgL_tmpz00_9021,
												BgL_arg1512z00_3939);
									}}
									{	/* Eval/evmodule.scm 930 */
										obj_t BgL_idz00_3944;

										if (SYMBOLP(BgL_idz00_2446))
											{	/* Eval/evmodule.scm 930 */
												BgL_idz00_3944 = BgL_idz00_2446;
											}
										else
											{
												obj_t BgL_auxz00_9026;

												BgL_auxz00_9026 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3036z00zz__evmodulez00, BINT(35201L),
													BGl_string3221z00zz__evmodulez00,
													BGl_string3040z00zz__evmodulez00, BgL_idz00_2446);
												FAILURE(BgL_auxz00_9026, BFALSE, BFALSE);
											}
										if (CBOOL(BGl_getzd2evalzd2expanderz00zz__macroz00
												(BgL_idz00_3944)))
											{	/* Eval/evmodule.scm 262 */
												obj_t BgL_msgz00_3946;

												{	/* Eval/evmodule.scm 262 */
													obj_t BgL_arg1411z00_3947;

													{	/* Eval/evmodule.scm 262 */
														obj_t BgL_arg2189z00_3952;

														BgL_arg2189z00_3952 =
															SYMBOL_TO_STRING(BgL_idz00_3944);
														BgL_arg1411z00_3947 =
															BGl_stringzd2copyzd2zz__r4_strings_6_7z00
															(BgL_arg2189z00_3952);
													}
													BgL_msgz00_3946 =
														string_append_3(BGl_string3064z00zz__evmodulez00,
														BgL_arg1411z00_3947,
														BGl_string3065z00zz__evmodulez00);
												}
												{	/* Eval/evmodule.scm 264 */
													obj_t BgL_list1410z00_3948;

													BgL_list1410z00_3948 =
														MAKE_YOUNG_PAIR(BgL_msgz00_3946, BNIL);
													BGl_evwarningz00zz__everrorz00(BgL_locz00_149,
														BgL_list1410z00_3948);
												}
											}
										else
											{	/* Eval/evmodule.scm 261 */
												BFALSE;
											}
										if (BGl_evmodulezf3zf3zz__evmodulez00(BgL_modz00_2440))
											{	/* Eval/evmodule.scm 266 */
												obj_t BgL_arg1413z00_3950;

												BgL_arg1413z00_3950 =
													STRUCT_REF(BgL_modz00_2440, (int) (3L));
												{	/* Eval/evmodule.scm 266 */
													obj_t BgL_auxz00_9042;

													if (STRUCTP(BgL_arg1413z00_3950))
														{	/* Eval/evmodule.scm 266 */
															BgL_auxz00_9042 = BgL_arg1413z00_3950;
														}
													else
														{
															obj_t BgL_auxz00_9045;

															BgL_auxz00_9045 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string3036z00zz__evmodulez00, BINT(10468L),
																BGl_string3221z00zz__evmodulez00,
																BGl_string3042z00zz__evmodulez00,
																BgL_arg1413z00_3950);
															FAILURE(BgL_auxz00_9045, BFALSE, BFALSE);
														}
													BGl_hashtablezd2putz12zc0zz__hashz00(BgL_auxz00_9042,
														BgL_idz00_3944, BgL_gz00_2445);
												}
											}
										else
											{	/* Eval/evmodule.scm 267 */
												obj_t BgL_auxz00_9050;

												if (VECTORP(BgL_gz00_2445))
													{	/* Eval/evmodule.scm 267 */
														BgL_auxz00_9050 = BgL_gz00_2445;
													}
												else
													{
														obj_t BgL_auxz00_9053;

														BgL_auxz00_9053 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3036z00zz__evmodulez00, BINT(10507L),
															BGl_string3221z00zz__evmodulez00,
															BGl_string3060z00zz__evmodulez00, BgL_gz00_2445);
														FAILURE(BgL_auxz00_9053, BFALSE, BFALSE);
													}
												BGl_bindzd2evalzd2globalz12z12zz__evenvz00
													(BgL_idz00_3944, BgL_auxz00_9050);
											}
									}
								}
							}
							{
								obj_t BgL_l1211z00_9058;

								BgL_l1211z00_9058 = CDR(BgL_l1211z00_2442);
								BgL_l1211z00_2442 = BgL_l1211z00_9058;
								goto BgL_zc3z04anonymousza32034ze3z87_2443;
							}
						}
					else
						{	/* Eval/evmodule.scm 922 */
							if (NULLP(BgL_l1211z00_2442))
								{	/* Eval/evmodule.scm 922 */
									BTRUE;
								}
							else
								{	/* Eval/evmodule.scm 922 */
									BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00
										(BGl_string3079z00zz__evmodulez00,
										BGl_string3069z00zz__evmodulez00, BgL_l1211z00_2442,
										BGl_string3036z00zz__evmodulez00, BINT(34910L));
								}
						}
				}
				return BFALSE;
			}
		}

	}



/* &evmodule-comp! */
	obj_t BGl_z62evmodulezd2compz12za2zz__evmodulez00(obj_t BgL_envz00_4313,
		obj_t BgL_idz00_4314, obj_t BgL_pathz00_4315, obj_t BgL_locz00_4316,
		obj_t BgL_exportsz00_4317)
	{
		{	/* Eval/evmodule.scm 920 */
			{	/* Eval/evmodule.scm 921 */
				obj_t BgL_auxz00_9071;
				obj_t BgL_auxz00_9064;

				if (PAIRP(BgL_pathz00_4315))
					{	/* Eval/evmodule.scm 921 */
						BgL_auxz00_9071 = BgL_pathz00_4315;
					}
				else
					{
						obj_t BgL_auxz00_9074;

						BgL_auxz00_9074 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string3036z00zz__evmodulez00,
							BINT(34863L), BGl_string3222z00zz__evmodulez00,
							BGl_string3038z00zz__evmodulez00, BgL_pathz00_4315);
						FAILURE(BgL_auxz00_9074, BFALSE, BFALSE);
					}
				if (SYMBOLP(BgL_idz00_4314))
					{	/* Eval/evmodule.scm 921 */
						BgL_auxz00_9064 = BgL_idz00_4314;
					}
				else
					{
						obj_t BgL_auxz00_9067;

						BgL_auxz00_9067 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string3036z00zz__evmodulez00,
							BINT(34863L), BGl_string3222z00zz__evmodulez00,
							BGl_string3040z00zz__evmodulez00, BgL_idz00_4314);
						FAILURE(BgL_auxz00_9067, BFALSE, BFALSE);
					}
				return
					BGl_evmodulezd2compz12zc0zz__evmodulez00(BgL_auxz00_9064,
					BgL_auxz00_9071, BgL_locz00_4316, BgL_exportsz00_4317);
			}
		}

	}



/* evmodule-static-class */
	BGL_EXPORTED_DEF obj_t BGl_evmodulezd2staticzd2classz00zz__evmodulez00(obj_t
		BgL_xz00_151)
	{
		{	/* Eval/evmodule.scm 937 */
			{	/* Eval/evmodule.scm 938 */
				obj_t BgL_modz00_2452;

				BgL_modz00_2452 = BGL_MODULE();
				{	/* Eval/evmodule.scm 938 */
					obj_t BgL_restz00_2453;

					{	/* Eval/evmodule.scm 939 */
						obj_t BgL_pairz00_3955;

						if (NULLP(BgL_xz00_151))
							{
								obj_t BgL_auxz00_9082;

								BgL_auxz00_9082 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3036z00zz__evmodulez00, BINT(35536L),
									BGl_string3223z00zz__evmodulez00,
									BGl_string3038z00zz__evmodulez00, BgL_xz00_151);
								FAILURE(BgL_auxz00_9082, BFALSE, BFALSE);
							}
						else
							{	/* Eval/evmodule.scm 939 */
								BgL_pairz00_3955 = BgL_xz00_151;
							}
						BgL_restz00_2453 = CDR(BgL_pairz00_3955);
					}
					{	/* Eval/evmodule.scm 939 */
						obj_t BgL_clausez00_2454;

						{	/* Eval/evmodule.scm 940 */
							obj_t BgL_casezd2valuezd2_2456;

							{	/* Eval/evmodule.scm 940 */
								obj_t BgL_pairz00_3956;

								if (NULLP(BgL_xz00_151))
									{
										obj_t BgL_auxz00_9089;

										BgL_auxz00_9089 =
											BGl_typezd2errorzd2zz__errorz00
											(BGl_string3036z00zz__evmodulez00, BINT(35562L),
											BGl_string3223z00zz__evmodulez00,
											BGl_string3038z00zz__evmodulez00, BgL_xz00_151);
										FAILURE(BgL_auxz00_9089, BFALSE, BFALSE);
									}
								else
									{	/* Eval/evmodule.scm 940 */
										BgL_pairz00_3956 = BgL_xz00_151;
									}
								BgL_casezd2valuezd2_2456 = CAR(BgL_pairz00_3956);
							}
							if (
								(BgL_casezd2valuezd2_2456 == BGl_symbol3224z00zz__evmodulez00))
								{	/* Eval/evmodule.scm 942 */
									obj_t BgL_arg2041z00_2458;

									{	/* Eval/evmodule.scm 942 */
										obj_t BgL_arg2042z00_2459;

										{	/* Eval/evmodule.scm 942 */
											obj_t BgL_arg2043z00_2460;

											BgL_arg2043z00_2460 =
												MAKE_YOUNG_PAIR(BGl_symbol3091z00zz__evmodulez00,
												BgL_restz00_2453);
											BgL_arg2042z00_2459 =
												MAKE_YOUNG_PAIR(BgL_arg2043z00_2460, BNIL);
										}
										BgL_arg2041z00_2458 =
											MAKE_YOUNG_PAIR(BGl_symbol3193z00zz__evmodulez00,
											BgL_arg2042z00_2459);
									}
									BgL_clausez00_2454 =
										BGl_evepairifyz00zz__prognz00(BgL_arg2041z00_2458,
										BgL_xz00_151);
								}
							else
								{	/* Eval/evmodule.scm 940 */
									if (
										(BgL_casezd2valuezd2_2456 ==
											BGl_symbol3226z00zz__evmodulez00))
										{	/* Eval/evmodule.scm 944 */
											obj_t BgL_arg2045z00_2462;

											{	/* Eval/evmodule.scm 944 */
												obj_t BgL_arg2046z00_2463;

												{	/* Eval/evmodule.scm 944 */
													obj_t BgL_arg2047z00_2464;

													BgL_arg2047z00_2464 =
														MAKE_YOUNG_PAIR(BGl_symbol3095z00zz__evmodulez00,
														BgL_restz00_2453);
													BgL_arg2046z00_2463 =
														MAKE_YOUNG_PAIR(BgL_arg2047z00_2464, BNIL);
												}
												BgL_arg2045z00_2462 =
													MAKE_YOUNG_PAIR(BGl_symbol3193z00zz__evmodulez00,
													BgL_arg2046z00_2463);
											}
											BgL_clausez00_2454 =
												BGl_evepairifyz00zz__prognz00(BgL_arg2045z00_2462,
												BgL_xz00_151);
										}
									else
										{	/* Eval/evmodule.scm 940 */
											if (
												(BgL_casezd2valuezd2_2456 ==
													BGl_symbol3228z00zz__evmodulez00))
												{	/* Eval/evmodule.scm 946 */
													obj_t BgL_arg2049z00_2466;

													{	/* Eval/evmodule.scm 946 */
														obj_t BgL_arg2050z00_2467;

														{	/* Eval/evmodule.scm 946 */
															obj_t BgL_arg2051z00_2468;

															BgL_arg2051z00_2468 =
																MAKE_YOUNG_PAIR
																(BGl_symbol3097z00zz__evmodulez00,
																BgL_restz00_2453);
															BgL_arg2050z00_2467 =
																MAKE_YOUNG_PAIR(BgL_arg2051z00_2468, BNIL);
														}
														BgL_arg2049z00_2466 =
															MAKE_YOUNG_PAIR(BGl_symbol3193z00zz__evmodulez00,
															BgL_arg2050z00_2467);
													}
													BgL_clausez00_2454 =
														BGl_evepairifyz00zz__prognz00(BgL_arg2049z00_2466,
														BgL_xz00_151);
												}
											else
												{	/* Eval/evmodule.scm 940 */
													BgL_clausez00_2454 = BUNSPEC;
												}
										}
								}
						}
						{	/* Eval/evmodule.scm 940 */

							return
								BGl_evmodulezd2staticzd2zz__evmodulez00(BgL_modz00_2452,
								BgL_clausez00_2454,
								BGl_getzd2sourcezd2locationz00zz__readerz00(BgL_xz00_151),
								((bool_t) 1));
						}
					}
				}
			}
		}

	}



/* &evmodule-static-class */
	obj_t BGl_z62evmodulezd2staticzd2classz62zz__evmodulez00(obj_t
		BgL_envz00_4318, obj_t BgL_xz00_4319)
	{
		{	/* Eval/evmodule.scm 937 */
			{	/* Eval/evmodule.scm 938 */
				obj_t BgL_auxz00_9114;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_xz00_4319))
					{	/* Eval/evmodule.scm 938 */
						BgL_auxz00_9114 = BgL_xz00_4319;
					}
				else
					{
						obj_t BgL_auxz00_9117;

						BgL_auxz00_9117 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string3036z00zz__evmodulez00,
							BINT(35495L), BGl_string3230z00zz__evmodulez00,
							BGl_string3094z00zz__evmodulez00, BgL_xz00_4319);
						FAILURE(BgL_auxz00_9117, BFALSE, BFALSE);
					}
				return BGl_evmodulezd2staticzd2classz00zz__evmodulez00(BgL_auxz00_9114);
			}
		}

	}



/* call-with-eval-module */
	BGL_EXPORTED_DEF obj_t BGl_callzd2withzd2evalzd2modulezd2zz__evmodulez00(obj_t
		BgL_newmz00_152, obj_t BgL_procz00_153)
	{
		{	/* Eval/evmodule.scm 952 */
			{	/* Eval/evmodule.scm 953 */
				obj_t BgL_oldmz00_3960;

				BgL_oldmz00_3960 = BGL_MODULE();
				BGl_evalzd2modulezd2setz12z12zz__evmodulez00(BgL_newmz00_152);
				{	/* Eval/evmodule.scm 955 */
					obj_t BgL_exitd1103z00_3961;

					BgL_exitd1103z00_3961 = BGL_EXITD_TOP_AS_OBJ();
					{	/* Eval/evmodule.scm 957 */
						obj_t BgL_zc3z04anonymousza32052ze3z87_4320;

						BgL_zc3z04anonymousza32052ze3z87_4320 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza32052ze3ze5zz__evmodulez00, (int) (0L),
							(int) (1L));
						PROCEDURE_SET(BgL_zc3z04anonymousza32052ze3z87_4320, (int) (0L),
							BgL_oldmz00_3960);
						{	/* Eval/evmodule.scm 955 */
							obj_t BgL_arg2375z00_3964;

							{	/* Eval/evmodule.scm 955 */
								obj_t BgL_arg2376z00_3965;

								BgL_arg2376z00_3965 = BGL_EXITD_PROTECT(BgL_exitd1103z00_3961);
								BgL_arg2375z00_3964 =
									MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza32052ze3z87_4320,
									BgL_arg2376z00_3965);
							}
							BGL_EXITD_PROTECT_SET(BgL_exitd1103z00_3961, BgL_arg2375z00_3964);
							BUNSPEC;
						}
						{	/* Eval/evmodule.scm 956 */
							obj_t BgL_tmp1105z00_3963;

							BgL_tmp1105z00_3963 = BGL_PROCEDURE_CALL0(BgL_procz00_153);
							{	/* Eval/evmodule.scm 955 */
								bool_t BgL_test4016z00_9136;

								{	/* Eval/evmodule.scm 955 */
									obj_t BgL_arg2373z00_3967;

									BgL_arg2373z00_3967 =
										BGL_EXITD_PROTECT(BgL_exitd1103z00_3961);
									BgL_test4016z00_9136 = PAIRP(BgL_arg2373z00_3967);
								}
								if (BgL_test4016z00_9136)
									{	/* Eval/evmodule.scm 955 */
										obj_t BgL_arg2370z00_3968;

										{	/* Eval/evmodule.scm 955 */
											obj_t BgL_arg2372z00_3969;

											BgL_arg2372z00_3969 =
												BGL_EXITD_PROTECT(BgL_exitd1103z00_3961);
											{	/* Eval/evmodule.scm 955 */
												obj_t BgL_pairz00_3970;

												if (PAIRP(BgL_arg2372z00_3969))
													{	/* Eval/evmodule.scm 955 */
														BgL_pairz00_3970 = BgL_arg2372z00_3969;
													}
												else
													{
														obj_t BgL_auxz00_9142;

														BgL_auxz00_9142 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3036z00zz__evmodulez00, BINT(36210L),
															BGl_string3231z00zz__evmodulez00,
															BGl_string3038z00zz__evmodulez00,
															BgL_arg2372z00_3969);
														FAILURE(BgL_auxz00_9142, BFALSE, BFALSE);
													}
												BgL_arg2370z00_3968 = CDR(BgL_pairz00_3970);
											}
										}
										BGL_EXITD_PROTECT_SET(BgL_exitd1103z00_3961,
											BgL_arg2370z00_3968);
										BUNSPEC;
									}
								else
									{	/* Eval/evmodule.scm 955 */
										BFALSE;
									}
							}
							BGl_evalzd2modulezd2setz12z12zz__evmodulez00(BgL_oldmz00_3960);
							return BgL_tmp1105z00_3963;
						}
					}
				}
			}
		}

	}



/* &call-with-eval-module */
	obj_t BGl_z62callzd2withzd2evalzd2modulezb0zz__evmodulez00(obj_t
		BgL_envz00_4321, obj_t BgL_newmz00_4322, obj_t BgL_procz00_4323)
	{
		{	/* Eval/evmodule.scm 952 */
			{	/* Eval/evmodule.scm 953 */
				obj_t BgL_auxz00_9149;

				if (PROCEDUREP(BgL_procz00_4323))
					{	/* Eval/evmodule.scm 953 */
						BgL_auxz00_9149 = BgL_procz00_4323;
					}
				else
					{
						obj_t BgL_auxz00_9152;

						BgL_auxz00_9152 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string3036z00zz__evmodulez00,
							BINT(36146L), BGl_string3232z00zz__evmodulez00,
							BGl_string3145z00zz__evmodulez00, BgL_procz00_4323);
						FAILURE(BgL_auxz00_9152, BFALSE, BFALSE);
					}
				return
					BGl_callzd2withzd2evalzd2modulezd2zz__evmodulez00(BgL_newmz00_4322,
					BgL_auxz00_9149);
			}
		}

	}



/* &<@anonymous:2052> */
	obj_t BGl_z62zc3z04anonymousza32052ze3ze5zz__evmodulez00(obj_t
		BgL_envz00_4324)
	{
		{	/* Eval/evmodule.scm 955 */
			return
				BGl_evalzd2modulezd2setz12z12zz__evmodulez00(PROCEDURE_REF
				(BgL_envz00_4324, (int) (0L)));
		}

	}



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

	}



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

	}



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

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zz__evmodulez00(void)
	{
		{	/* Eval/evmodule.scm 15 */
			BGl_modulezd2initializa7ationz75zz__typez00(393254000L,
				BSTRING_TO_STRING(BGl_string3233z00zz__evmodulez00));
			BGl_modulezd2initializa7ationz75zz__errorz00(88804785L,
				BSTRING_TO_STRING(BGl_string3233z00zz__evmodulez00));
			BGl_modulezd2initializa7ationz75zz__biglooz00(348684831L,
				BSTRING_TO_STRING(BGl_string3233z00zz__evmodulez00));
			BGl_modulezd2initializa7ationz75zz__modulez00(416350269L,
				BSTRING_TO_STRING(BGl_string3233z00zz__evmodulez00));
			BGl_modulezd2initializa7ationz75zz__tvectorz00(135276775L,
				BSTRING_TO_STRING(BGl_string3233z00zz__evmodulez00));
			BGl_modulezd2initializa7ationz75zz__structurez00(128205792L,
				BSTRING_TO_STRING(BGl_string3233z00zz__evmodulez00));
			BGl_modulezd2initializa7ationz75zz__bexitz00(443005284L,
				BSTRING_TO_STRING(BGl_string3233z00zz__evmodulez00));
			BGl_modulezd2initializa7ationz75zz__bignumz00(289561787L,
				BSTRING_TO_STRING(BGl_string3233z00zz__evmodulez00));
			BGl_modulezd2initializa7ationz75zz__osz00(310000171L,
				BSTRING_TO_STRING(BGl_string3233z00zz__evmodulez00));
			BGl_modulezd2initializa7ationz75zz__bitz00(377164741L,
				BSTRING_TO_STRING(BGl_string3233z00zz__evmodulez00));
			BGl_modulezd2initializa7ationz75zz__paramz00(453939141L,
				BSTRING_TO_STRING(BGl_string3233z00zz__evmodulez00));
			BGl_modulezd2initializa7ationz75zz__objectz00(475449627L,
				BSTRING_TO_STRING(BGl_string3233z00zz__evmodulez00));
			BGl_modulezd2initializa7ationz75zz__hashz00(254893342L,
				BSTRING_TO_STRING(BGl_string3233z00zz__evmodulez00));
			BGl_modulezd2initializa7ationz75zz__readerz00(220648206L,
				BSTRING_TO_STRING(BGl_string3233z00zz__evmodulez00));
			BGl_modulezd2initializa7ationz75zz__expandz00(414007149L,
				BSTRING_TO_STRING(BGl_string3233z00zz__evmodulez00));
			BGl_modulezd2initializa7ationz75zz__tracez00(81989385L,
				BSTRING_TO_STRING(BGl_string3233z00zz__evmodulez00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(26840973L,
				BSTRING_TO_STRING(BGl_string3233z00zz__evmodulez00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(457511469L,
				BSTRING_TO_STRING(BGl_string3233z00zz__evmodulez00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(362050511L,
				BSTRING_TO_STRING(BGl_string3233z00zz__evmodulez00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonum_dtoaz00
				(268155843L, BSTRING_TO_STRING(BGl_string3233z00zz__evmodulez00));
			BGl_modulezd2initializa7ationz75zz__r4_characters_6_6z00(198620800L,
				BSTRING_TO_STRING(BGl_string3233z00zz__evmodulez00));
			BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(111613887L,
				BSTRING_TO_STRING(BGl_string3233z00zz__evmodulez00));
			BGl_modulezd2initializa7ationz75zz__r4_booleans_6_1z00(459519430L,
				BSTRING_TO_STRING(BGl_string3233z00zz__evmodulez00));
			BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(115192690L,
				BSTRING_TO_STRING(BGl_string3233z00zz__evmodulez00));
			BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00((-44273703L),
				BSTRING_TO_STRING(BGl_string3233z00zz__evmodulez00));
			BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(9614678L,
				BSTRING_TO_STRING(BGl_string3233z00zz__evmodulez00));
			BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(376927882L,
				BSTRING_TO_STRING(BGl_string3233z00zz__evmodulez00));
			BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(43892022L,
				BSTRING_TO_STRING(BGl_string3233z00zz__evmodulez00));
			BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(185672289L,
				BSTRING_TO_STRING(BGl_string3233z00zz__evmodulez00));
			BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(86988580L,
				BSTRING_TO_STRING(BGl_string3233z00zz__evmodulez00));
			BGl_modulezd2initializa7ationz75zz__r5_control_features_6_4z00(228151370L,
				BSTRING_TO_STRING(BGl_string3233z00zz__evmodulez00));
			BGl_modulezd2initializa7ationz75zz__prognz00(177147622L,
				BSTRING_TO_STRING(BGl_string3233z00zz__evmodulez00));
			BGl_modulezd2initializa7ationz75zz__threadz00(149516032L,
				BSTRING_TO_STRING(BGl_string3233z00zz__evmodulez00));
			BGl_modulezd2initializa7ationz75zz__evalz00(35539458L,
				BSTRING_TO_STRING(BGl_string3233z00zz__evmodulez00));
			BGl_modulezd2initializa7ationz75zz__evenvz00(528345299L,
				BSTRING_TO_STRING(BGl_string3233z00zz__evmodulez00));
			BGl_modulezd2initializa7ationz75zz__everrorz00(375872221L,
				BSTRING_TO_STRING(BGl_string3233z00zz__evmodulez00));
			BGl_modulezd2initializa7ationz75zz__evcompilez00(492754569L,
				BSTRING_TO_STRING(BGl_string3233z00zz__evmodulez00));
			return BGl_modulezd2initializa7ationz75zz__evobjectz00(481718039L,
				BSTRING_TO_STRING(BGl_string3233z00zz__evmodulez00));
		}

	}

#ifdef __cplusplus
}
#endif
