/*===========================================================================*/
/*   (Eval/evmeaning.scm)                                                    */
/*   Bigloo (2.6b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Mon Dec 15 12:14:36 CET 2003        */
/*===========================================================================*/
/* COMPILATION: (/users/serrano/prgm/project/bigloo/bin/bigloo -O4 -mklib -cc gcc-2.95 -fsharing -q -s -copt -DBGL_NO_PIC -unsafe -c Eval/evmeaning.scm -indent -o objs/obj_u/Eval/evmeaning.c)*/
/* GC selection */
#define THE_GC BOEHM_GC

#include <bigloo.h>
#include <signal.h>

static obj_t BGl_zc3anonymousza31777ze3z83zz__evmeaningz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__evmeaningz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__biglooz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__tvectorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__structurez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__bexitz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__osz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_characters_6_6z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_booleans_6_1z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_input_6_10_2z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__prognz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__evenvz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__evcompilez00(long, char *);
extern obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31989ze3z83zz__evmeaningz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__loop_z00zz__evmeaningz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31784ze3z83zz__evmeaningz00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31857ze3z83zz__evmeaningz00(obj_t, obj_t, obj_t);
extern obj_t string_to_symbol(char *);
static obj_t BGl_evmeaningzd2warningzd2zz__evmeaningz00(obj_t, obj_t);
static obj_t BGl_symbol3605z00zz__evmeaningz00 = BUNSPEC;
static obj_t BGl___dummy__z00zz__evmeaningz00(obj_t, obj_t);
static obj_t BGl_evmeaningzd2errorzd2zz__evmeaningz00(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_errorzf2locationzd2filez20zz__errorz00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31937ze3z83zz__evmeaningz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__evmeaningz00zz__evmeaningz00(obj_t, obj_t, obj_t);
static obj_t BGl__evmeaningzd2resetzd2errorz12z12zz__evmeaningz00(obj_t);
static obj_t BGl_zc3anonymousza32039ze3z83zz__evmeaningz00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31794ze3z83zz__evmeaningz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31868ze3z83zz__evmeaningz00(obj_t, obj_t, obj_t, obj_t);
extern obj_t eval_apply(obj_t, obj_t);
extern obj_t BGl_unwindzd2untilz12zc0zz__bexitz00(obj_t, obj_t);
extern obj_t BGl_errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31807ze3z83zz__evmeaningz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_za2currentzd2bcodeza2zd2zz__evmeaningz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza31882ze3z83zz__evmeaningz00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_initzd2thezd2globalzd2environmentz12zc0zz__evenvz00();
static obj_t BGl_zc3anonymousza31957ze3z83zz__evmeaningz00(obj_t, obj_t);
extern obj_t BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_zc3exitza31319ze3z83zz__evmeaningz00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31824ze3z83zz__evmeaningz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zz__evmeaningz00();
static obj_t BGl__evmeaningzd2locationzd2zz__evmeaningz00(obj_t);
static obj_t BGl_zc3anonymousza31965ze3z83zz__evmeaningz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_evmeaningz00zz__evmeaningz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_evmeaningzd2resetzd2errorz12z12zz__evmeaningz00();
static obj_t BGl_importedzd2moduleszd2initz00zz__evmeaningz00();
static obj_t BGl_zc3anonymousza32007ze3z83zz__evmeaningz00(obj_t, obj_t);
extern obj_t BGl_warningz00zz__errorz00(obj_t);
extern obj_t BGl_evalzd2lookupzd2zz__evenvz00(obj_t);
static obj_t BGl_zc3anonymousza31898ze3z83zz__evmeaningz00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31908ze3z83zz__evmeaningz00(obj_t, obj_t, obj_t);
static obj_t BGl__loop_z72z72zz__evmeaningz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zz__evmeaningz00 = BUNSPEC;
extern obj_t BGl_warningzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31976ze3z83zz__evmeaningz00(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_bindzd2evalzd2globalz12z12zz__evenvz00(obj_t, obj_t);
extern obj_t BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_evmeaningzd2locationzd2zz__evmeaningz00();
extern obj_t BGl_notifyzd2errorzd2zz__errorz00(obj_t, obj_t, obj_t);
extern obj_t eval_funcall_4(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t eval_funcall_3(obj_t, obj_t, obj_t, obj_t);
extern obj_t eval_funcall_2(obj_t, obj_t, obj_t);
extern obj_t eval_funcall_1(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31845ze3z83zz__evmeaningz00(obj_t);
extern obj_t eval_funcall_0(obj_t);
static obj_t BGl_zc3exitza31342ze3z83zz__evmeaningz00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31921ze3z83zz__evmeaningz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_toplevelzd2initzd2zz__evmeaningz00();
BGL_EXPORTED_DECL obj_t BGl_evmeaningzd2notifyzd2errorz00zz__evmeaningz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31850ze3z83zz__evmeaningz00(obj_t, obj_t);
static obj_t BGl__evmeaningzd2notifyzd2errorz00zz__evmeaningz00(obj_t, obj_t, obj_t, obj_t);
static obj_t *__cnst;


DEFINE_STRING( BGl_string3599z00zz__evmeaningz00, BgL_bgl_string3599za700za7za7__evmeaningza7003612z00, "Not a procedure", 15 );
DEFINE_STRING( BGl_string3598z00zz__evmeaningz00, BgL_bgl_string3598za700za7za7__evmeaningza7003613z00, "Wrong number of argument", 24 );
DEFINE_STRING( BGl_string3597z00zz__evmeaningz00, BgL_bgl_string3597za700za7za7__evmeaningza7003614z00, "redefinition of variable -- ", 28 );
DEFINE_STRING( BGl_string3596z00zz__evmeaningz00, BgL_bgl_string3596za700za7za7__evmeaningza7003615z00, "Unbound variable", 16 );
DEFINE_STRING( BGl_string3595z00zz__evmeaningz00, BgL_bgl_string3595za700za7za7__evmeaningza7003616z00, "eval", 4 );
DEFINE_STRING( BGl_string3604z00zz__evmeaningz00, BgL_bgl_string3604za700za7za7__evmeaningza7003617z00, "Too few arguments provided", 26 );
DEFINE_STRING( BGl_string3603z00zz__evmeaningz00, BgL_bgl_string3603za700za7za7__evmeaningza7003618z00, "Too many arguments provided", 27 );
DEFINE_STRING( BGl_string3602z00zz__evmeaningz00, BgL_bgl_string3602za700za7za7__evmeaningza7003619z00, "unknown byte-code", 17 );
DEFINE_STRING( BGl_string3601z00zz__evmeaningz00, BgL_bgl_string3601za700za7za7__evmeaningza7003620z00, "evmeaning (internal error)", 26 );
DEFINE_STRING( BGl_string3600z00zz__evmeaningz00, BgL_bgl_string3600za700za7za7__evmeaningza7003621z00, "apply", 5 );
DEFINE_EXPORT_PROCEDURE( BGl_evmeaningzd2resetzd2errorz12zd2envzc0zz__evmeaningz00, BgL_bgl__evmeaningza7d2resetza7d2errorza712za712za7za7__evmeaningza7003622za7, BGl__evmeaningzd2resetzd2errorz12z12zz__evmeaningz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_evmeaningzd2locationzd2envz00zz__evmeaningz00, BgL_bgl__evmeaningza7d2locationza7d2za7za7__evmeaningza7003623za7, BGl__evmeaningzd2locationzd2zz__evmeaningz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_evmeaningzd2notifyzd2errorzd2envzd2zz__evmeaningz00, BgL_bgl__evmeaningza7d2notifyza7d2errorza700za7za7__evmeaningza7003624z00, BGl__evmeaningzd2notifyzd2errorz00zz__evmeaningz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_evmeaningzd2envzd2zz__evmeaningz00, BgL_bgl__evmeaningza700za7za7__evmeaningza7003625z00, BGl__evmeaningz00zz__evmeaningz00, 0L, 2 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__evmeaningz00(long BgL_checksumz00_2906, char * BgL_fromz00_2907)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__evmeaningz00))
{ 
BGl_requirezd2initializa7ationz75zz__evmeaningz00 = 
BBOOL(((bool_t)0)); 
BGl_cnstzd2initzd2zz__evmeaningz00(); 
BGl_importedzd2moduleszd2initz00zz__evmeaningz00(); 
BGl_toplevelzd2initzd2zz__evmeaningz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__evmeaningz00()
{ AN_OBJECT;
{ /* ./Eval/evmeaning.scm 14 */
return ( 
BGl_symbol3605z00zz__evmeaningz00 = 
string_to_symbol("at"), BUNSPEC) ;} 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zz__evmeaningz00()
{ AN_OBJECT;
{ /* ./Eval/evmeaning.scm 14 */
BGl_za2currentzd2bcodeza2zd2zz__evmeaningz00 = BFALSE; 
return 
BGl_initzd2thezd2globalzd2environmentz12zc0zz__evenvz00();} 
}



/* evmeaning */
BGL_EXPORTED_DEF obj_t BGl_evmeaningz00zz__evmeaningz00(obj_t BgL_expz00_1, obj_t BgL_stackz00_2)
{ AN_OBJECT;
{ /* ./Eval/evmeaning.scm 83 */
BGl_evmeaningz00zz__evmeaningz00:
if(
VECTORP(BgL_expz00_1))
{ /* ./Eval/evmeaning.scm 84 */
BGl_za2currentzd2bcodeza2zd2zz__evmeaningz00 = BgL_expz00_1; 
{ /* ./Eval/evmeaning.scm 89 */
obj_t BgL_aux1011z00_393;
{ 
int BgL_auxz00_2918;
BgL_auxz00_2918 = 
(int)(((long)0)); 
BgL_aux1011z00_393 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_2918); } 
if(
INTEGERP(BgL_aux1011z00_393))
{ /* ./Eval/evmeaning.scm 89 */
switch( 
(long)CINT(BgL_aux1011z00_393)) { case ((long)-2) : 

{ /* ./Eval/evmeaning.scm 91 */
obj_t BgL_arg1033z00_395;obj_t BgL_arg1034z00_396;obj_t BgL_arg1035z00_397;
{ /* ./Eval/evmeaning.scm 91 */
obj_t BgL_auxz00_2923;
{ 
int BgL_auxz00_2924;
BgL_auxz00_2924 = 
(int)(((long)2)); 
BgL_auxz00_2923 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_2924); } 
BgL_arg1033z00_395 = 
CAR(BgL_auxz00_2923); } 
{ /* ./Eval/evmeaning.scm 92 */
obj_t BgL_arg1042z00_399;
{ 
int BgL_auxz00_2928;
BgL_auxz00_2928 = 
(int)(((long)2)); 
BgL_arg1042z00_399 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_2928); } 
{ /* ./Eval/evmeaning.scm 92 */
obj_t BgL_auxz00_2931;
BgL_auxz00_2931 = 
CDR(BgL_arg1042z00_399); 
BgL_arg1034z00_396 = 
CAR(BgL_auxz00_2931); } } 
{ /* ./Eval/evmeaning.scm 93 */
obj_t BgL_arg1046z00_400;
{ 
int BgL_auxz00_2934;
BgL_auxz00_2934 = 
(int)(((long)2)); 
BgL_arg1046z00_400 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_2934); } 
{ /* ./Eval/evmeaning.scm 93 */
obj_t BgL_auxz00_2937;
{ /* ./Eval/evmeaning.scm 93 */
obj_t BgL_auxz00_2938;
BgL_auxz00_2938 = 
CDR(BgL_arg1046z00_400); 
BgL_auxz00_2937 = 
CDR(BgL_auxz00_2938); } 
BgL_arg1035z00_397 = 
CAR(BgL_auxz00_2937); } } 
return 
BGl_evmeaningzd2errorzd2zz__evmeaningz00(BgL_expz00_1, BgL_arg1033z00_395, BgL_arg1034z00_396, BgL_arg1035z00_397);} break;case ((long)-1) : 

{ 
int BgL_auxz00_2943;
BgL_auxz00_2943 = 
(int)(((long)2)); 
return 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_2943);} break;case ((long)0) : 

return 
CAR(BgL_stackz00_2);break;case ((long)1) : 

{ /* ./Eval/evmeaning.scm 102 */
obj_t BgL_auxz00_2947;
BgL_auxz00_2947 = 
CDR(BgL_stackz00_2); 
return 
CAR(BgL_auxz00_2947);} break;case ((long)2) : 

{ /* ./Eval/evmeaning.scm 105 */
obj_t BgL_auxz00_2950;
{ /* ./Eval/evmeaning.scm 105 */
obj_t BgL_auxz00_2951;
BgL_auxz00_2951 = 
CDR(BgL_stackz00_2); 
BgL_auxz00_2950 = 
CDR(BgL_auxz00_2951); } 
return 
CAR(BgL_auxz00_2950);} break;case ((long)3) : 

{ /* ./Eval/evmeaning.scm 108 */
obj_t BgL_auxz00_2955;
{ /* ./Eval/evmeaning.scm 108 */
obj_t BgL_auxz00_2956;
{ /* ./Eval/evmeaning.scm 108 */
obj_t BgL_auxz00_2957;
BgL_auxz00_2957 = 
CDR(BgL_stackz00_2); 
BgL_auxz00_2956 = 
CDR(BgL_auxz00_2957); } 
BgL_auxz00_2955 = 
CDR(BgL_auxz00_2956); } 
return 
CAR(BgL_auxz00_2955);} break;case ((long)4) : 

{ /* ./Eval/evmeaning.scm 111 */
obj_t BgL_offsetz00_401;
{ 
int BgL_auxz00_2962;
BgL_auxz00_2962 = 
(int)(((long)2)); 
BgL_offsetz00_401 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_2962); } 
{ 
long BgL_iz00_1285;obj_t BgL_envz00_1286;
BgL_iz00_1285 = ((long)4); 
{ /* ./Eval/evmeaning.scm 113 */
obj_t BgL_auxz00_2974;
{ /* ./Eval/evmeaning.scm 113 */
obj_t BgL_auxz00_2975;
{ /* ./Eval/evmeaning.scm 113 */
obj_t BgL_auxz00_2976;
BgL_auxz00_2976 = 
CDR(BgL_stackz00_2); 
BgL_auxz00_2975 = 
CDR(BgL_auxz00_2976); } 
BgL_auxz00_2974 = 
CDR(BgL_auxz00_2975); } 
BgL_envz00_1286 = 
CDR(BgL_auxz00_2974); } 
BgL_dozd2loopzd2zd21012zd2_1284:
{ /* ./Eval/evmeaning.scm 112 */
bool_t BgL_testz00_2965;
{ /* ./Eval/evmeaning.scm 112 */
long BgL_auxz00_2966;
BgL_auxz00_2966 = 
(long)CINT(BgL_offsetz00_401); 
BgL_testz00_2965 = 
(BgL_iz00_1285==BgL_auxz00_2966); } 
if(BgL_testz00_2965)
{ /* ./Eval/evmeaning.scm 112 */
return 
CAR(BgL_envz00_1286);}  else 
{ /* ./Eval/evmeaning.scm 112 */
{ 
obj_t BgL_envz00_2972;long BgL_iz00_2970;
BgL_iz00_2970 = 
(BgL_iz00_1285+((long)1)); 
BgL_envz00_2972 = 
CDR(BgL_envz00_1286); 
BgL_envz00_1286 = BgL_envz00_2972; 
BgL_iz00_1285 = BgL_iz00_2970; 
goto BgL_dozd2loopzd2zd21012zd2_1284;} } } } } break;case ((long)5) : 

{ /* ./Eval/evmeaning.scm 117 */
obj_t BgL_auxz00_2981;
{ 
int BgL_auxz00_2986;obj_t BgL_auxz00_2982;
BgL_auxz00_2986 = 
(int)(((long)2)); 
{ 
int BgL_auxz00_2983;
BgL_auxz00_2983 = 
(int)(((long)2)); 
BgL_auxz00_2982 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_2983); } 
BgL_auxz00_2981 = 
VECTOR_REF(BgL_auxz00_2982,BgL_auxz00_2986); } 
return 
__EVMEANING_ADDRESS_REF(BgL_auxz00_2981);} break;case ((long)6) : 

{ 
int BgL_auxz00_2994;obj_t BgL_auxz00_2990;
BgL_auxz00_2994 = 
(int)(((long)2)); 
{ 
int BgL_auxz00_2991;
BgL_auxz00_2991 = 
(int)(((long)2)); 
BgL_auxz00_2990 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_2991); } 
return 
VECTOR_REF(BgL_auxz00_2990,BgL_auxz00_2994);} break;case ((long)7) : 

{ /* ./Eval/evmeaning.scm 124 */
obj_t BgL_namez00_415;
{ 
int BgL_auxz00_2997;
BgL_auxz00_2997 = 
(int)(((long)2)); 
BgL_namez00_415 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_2997); } 
{ /* ./Eval/evmeaning.scm 124 */
obj_t BgL_globalz00_416;
BgL_globalz00_416 = 
BGl_evalzd2lookupzd2zz__evenvz00(BgL_namez00_415); 
{ /* ./Eval/evmeaning.scm 125 */

{ /* ./Eval/evmeaning.scm 126 */
bool_t BgL_test1083z00_417;
if(
VECTORP(BgL_globalz00_416))
{ /* ./Eval/evmeaning.scm 126 */
int BgL_arg2393z00_1333;
BgL_arg2393z00_1333 = 
VECTOR_LENGTH(BgL_globalz00_416); 
{ /* ./Eval/evmeaning.scm 126 */
long BgL_auxz00_3004;
BgL_auxz00_3004 = 
(long)(BgL_arg2393z00_1333); 
BgL_test1083z00_417 = 
(BgL_auxz00_3004==((long)3)); } }  else 
{ /* ./Eval/evmeaning.scm 126 */
BgL_test1083z00_417 = ((bool_t)0); } 
if(BgL_test1083z00_417)
{ /* ./Eval/evmeaning.scm 126 */
{ 
obj_t BgL_auxz00_3010;int BgL_auxz00_3008;
BgL_auxz00_3010 = 
BINT(((long)6)); 
BgL_auxz00_3008 = 
(int)(((long)0)); 
VECTOR_SET(BgL_expz00_1,BgL_auxz00_3008,BgL_auxz00_3010); } 
{ 
int BgL_auxz00_3013;
BgL_auxz00_3013 = 
(int)(((long)2)); 
VECTOR_SET(BgL_expz00_1,BgL_auxz00_3013,BgL_globalz00_416); } 
{ 
int BgL_auxz00_3016;
BgL_auxz00_3016 = 
(int)(((long)2)); 
return 
VECTOR_REF(BgL_globalz00_416,BgL_auxz00_3016);} }  else 
{ /* ./Eval/evmeaning.scm 126 */
return 
BGl_evmeaningzd2errorzd2zz__evmeaningz00(BgL_expz00_1, BGl_string3595z00zz__evmeaningz00, BGl_string3596z00zz__evmeaningz00, BgL_namez00_415);} } } } } break;case ((long)8) : 

{ /* ./Eval/evmeaning.scm 139 */
obj_t BgL_varz00_418;obj_t BgL_valz00_419;
{ /* ./Eval/evmeaning.scm 139 */
obj_t BgL_auxz00_3020;
{ 
int BgL_auxz00_3021;
BgL_auxz00_3021 = 
(int)(((long)2)); 
BgL_auxz00_3020 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_3021); } 
BgL_varz00_418 = 
CAR(BgL_auxz00_3020); } 
{ /* ./Eval/evmeaning.scm 140 */
obj_t BgL_auxz00_3025;
{ /* ./Eval/evmeaning.scm 140 */
obj_t BgL_auxz00_3026;
{ 
int BgL_auxz00_3027;
BgL_auxz00_3027 = 
(int)(((long)2)); 
BgL_auxz00_3026 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_3027); } 
BgL_auxz00_3025 = 
CDR(BgL_auxz00_3026); } 
BgL_valz00_419 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3025, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 141 */
bool_t BgL_testz00_3032;
{ /* ./Eval/evmeaning.scm 141 */
obj_t BgL_auxz00_3037;obj_t BgL_auxz00_3033;
BgL_auxz00_3037 = 
BINT(((long)1)); 
{ 
int BgL_auxz00_3034;
BgL_auxz00_3034 = 
(int)(((long)0)); 
BgL_auxz00_3033 = 
VECTOR_REF(BgL_varz00_418,BgL_auxz00_3034); } 
BgL_testz00_3032 = 
(BgL_auxz00_3033==BgL_auxz00_3037); } 
if(BgL_testz00_3032)
{ /* ./Eval/evmeaning.scm 141 */
obj_t BgL_auxz00_3040;
{ 
int BgL_auxz00_3041;
BgL_auxz00_3041 = 
(int)(((long)2)); 
BgL_auxz00_3040 = 
VECTOR_REF(BgL_varz00_418,BgL_auxz00_3041); } 
__EVMEANING_ADDRESS_SET(BgL_auxz00_3040, BgL_valz00_419); }  else 
{ 
int BgL_auxz00_3045;
BgL_auxz00_3045 = 
(int)(((long)2)); 
VECTOR_SET(BgL_varz00_418,BgL_auxz00_3045,BgL_valz00_419); } } 
{ 
int BgL_auxz00_3048;
BgL_auxz00_3048 = 
(int)(((long)1)); 
VECTOR_REF(BgL_varz00_418,BgL_auxz00_3048); } 
return BUNSPEC;} break;case ((long)9) : 

{ /* ./Eval/evmeaning.scm 144 */
obj_t BgL_namez00_423;
{ /* ./Eval/evmeaning.scm 144 */
obj_t BgL_auxz00_3051;
{ 
int BgL_auxz00_3052;
BgL_auxz00_3052 = 
(int)(((long)2)); 
BgL_auxz00_3051 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_3052); } 
BgL_namez00_423 = 
CAR(BgL_auxz00_3051); } 
{ /* ./Eval/evmeaning.scm 144 */
obj_t BgL_valuez00_424;
{ /* ./Eval/evmeaning.scm 145 */
obj_t BgL_auxz00_3056;
{ 
int BgL_auxz00_3057;
BgL_auxz00_3057 = 
(int)(((long)2)); 
BgL_auxz00_3056 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_3057); } 
BgL_valuez00_424 = 
CDR(BgL_auxz00_3056); } 
{ /* ./Eval/evmeaning.scm 145 */
obj_t BgL_globalz00_425;
BgL_globalz00_425 = 
BGl_evalzd2lookupzd2zz__evenvz00(BgL_namez00_423); 
{ /* ./Eval/evmeaning.scm 146 */

{ /* ./Eval/evmeaning.scm 147 */
bool_t BgL_test1104z00_426;
if(
VECTORP(BgL_globalz00_425))
{ /* ./Eval/evmeaning.scm 147 */
int BgL_arg2393z00_1383;
BgL_arg2393z00_1383 = 
VECTOR_LENGTH(BgL_globalz00_425); 
{ /* ./Eval/evmeaning.scm 147 */
long BgL_auxz00_3065;
BgL_auxz00_3065 = 
(long)(BgL_arg2393z00_1383); 
BgL_test1104z00_426 = 
(BgL_auxz00_3065==((long)3)); } }  else 
{ /* ./Eval/evmeaning.scm 147 */
BgL_test1104z00_426 = ((bool_t)0); } 
if(BgL_test1104z00_426)
{ /* ./Eval/evmeaning.scm 147 */
{ 
obj_t BgL_auxz00_3071;int BgL_auxz00_3069;
BgL_auxz00_3071 = 
BINT(((long)8)); 
BgL_auxz00_3069 = 
(int)(((long)0)); 
VECTOR_SET(BgL_expz00_1,BgL_auxz00_3069,BgL_auxz00_3071); } 
{ /* ./Eval/evmeaning.scm 150 */
obj_t BgL_arg1108z00_428;
BgL_arg1108z00_428 = 
MAKE_PAIR(BgL_globalz00_425, BgL_valuez00_424); 
{ 
int BgL_auxz00_3075;
BgL_auxz00_3075 = 
(int)(((long)2)); 
VECTOR_SET(BgL_expz00_1,BgL_auxz00_3075,BgL_arg1108z00_428); } } 
{ 

goto BGl_evmeaningz00zz__evmeaningz00;} }  else 
{ /* ./Eval/evmeaning.scm 147 */
return 
BGl_evmeaningzd2errorzd2zz__evmeaningz00(BgL_expz00_1, BGl_string3595z00zz__evmeaningz00, BGl_string3596z00zz__evmeaningz00, BgL_namez00_423);} } } } } } break;case ((long)10) : 

{ /* ./Eval/evmeaning.scm 158 */
obj_t BgL_auxz00_3079;
{ /* ./Eval/evmeaning.scm 158 */
obj_t BgL_auxz00_3080;
{ 
int BgL_auxz00_3081;
BgL_auxz00_3081 = 
(int)(((long)2)); 
BgL_auxz00_3080 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_3081); } 
BgL_auxz00_3079 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3080, BgL_stackz00_2); } 
SET_CAR(BgL_stackz00_2, BgL_auxz00_3079); } 
return BUNSPEC;break;case ((long)11) : 

{ /* ./Eval/evmeaning.scm 162 */
obj_t BgL_auxz00_3088;obj_t BgL_auxz00_3086;
{ /* ./Eval/evmeaning.scm 162 */
obj_t BgL_auxz00_3089;
{ 
int BgL_auxz00_3090;
BgL_auxz00_3090 = 
(int)(((long)2)); 
BgL_auxz00_3089 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_3090); } 
BgL_auxz00_3088 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3089, BgL_stackz00_2); } 
BgL_auxz00_3086 = 
CDR(BgL_stackz00_2); 
SET_CAR(BgL_auxz00_3086, BgL_auxz00_3088); } 
return BUNSPEC;break;case ((long)12) : 

{ /* ./Eval/evmeaning.scm 166 */
obj_t BgL_auxz00_3099;obj_t BgL_auxz00_3095;
{ /* ./Eval/evmeaning.scm 167 */
obj_t BgL_auxz00_3100;
{ 
int BgL_auxz00_3101;
BgL_auxz00_3101 = 
(int)(((long)2)); 
BgL_auxz00_3100 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_3101); } 
BgL_auxz00_3099 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3100, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 166 */
obj_t BgL_auxz00_3096;
BgL_auxz00_3096 = 
CDR(BgL_stackz00_2); 
BgL_auxz00_3095 = 
CDR(BgL_auxz00_3096); } 
SET_CAR(BgL_auxz00_3095, BgL_auxz00_3099); } 
return BUNSPEC;break;case ((long)13) : 

{ /* ./Eval/evmeaning.scm 171 */
obj_t BgL_auxz00_3112;obj_t BgL_auxz00_3106;
{ /* ./Eval/evmeaning.scm 172 */
obj_t BgL_auxz00_3113;
{ 
int BgL_auxz00_3114;
BgL_auxz00_3114 = 
(int)(((long)2)); 
BgL_auxz00_3113 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_3114); } 
BgL_auxz00_3112 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3113, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 171 */
obj_t BgL_auxz00_3107;
{ /* ./Eval/evmeaning.scm 171 */
obj_t BgL_auxz00_3108;
BgL_auxz00_3108 = 
CDR(BgL_stackz00_2); 
BgL_auxz00_3107 = 
CDR(BgL_auxz00_3108); } 
BgL_auxz00_3106 = 
CDR(BgL_auxz00_3107); } 
SET_CAR(BgL_auxz00_3106, BgL_auxz00_3112); } 
return BUNSPEC;break;case ((long)14) : 

{ /* ./Eval/evmeaning.scm 176 */
obj_t BgL_offsetz00_442;obj_t BgL_valuez00_443;
{ /* ./Eval/evmeaning.scm 176 */
obj_t BgL_auxz00_3119;
{ 
int BgL_auxz00_3120;
BgL_auxz00_3120 = 
(int)(((long)2)); 
BgL_auxz00_3119 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_3120); } 
BgL_offsetz00_442 = 
CAR(BgL_auxz00_3119); } 
{ /* ./Eval/evmeaning.scm 177 */
obj_t BgL_auxz00_3124;
{ /* ./Eval/evmeaning.scm 177 */
obj_t BgL_auxz00_3125;
{ 
int BgL_auxz00_3126;
BgL_auxz00_3126 = 
(int)(((long)2)); 
BgL_auxz00_3125 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_3126); } 
BgL_auxz00_3124 = 
CDR(BgL_auxz00_3125); } 
BgL_valuez00_443 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3124, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 178 */
obj_t BgL_arg1166z00_446;
{ /* ./Eval/evmeaning.scm 179 */
obj_t BgL_auxz00_3131;
{ /* ./Eval/evmeaning.scm 179 */
obj_t BgL_auxz00_3132;
{ /* ./Eval/evmeaning.scm 179 */
obj_t BgL_auxz00_3133;
BgL_auxz00_3133 = 
CDR(BgL_stackz00_2); 
BgL_auxz00_3132 = 
CDR(BgL_auxz00_3133); } 
BgL_auxz00_3131 = 
CDR(BgL_auxz00_3132); } 
BgL_arg1166z00_446 = 
CDR(BgL_auxz00_3131); } 
{ 
long BgL_iz00_1441;obj_t BgL_envz00_1442;
BgL_iz00_1441 = ((long)4); 
BgL_envz00_1442 = BgL_arg1166z00_446; 
BgL_dozd2loopzd2zd21013zd2_1440:
{ /* ./Eval/evmeaning.scm 178 */
bool_t BgL_testz00_3138;
{ /* ./Eval/evmeaning.scm 178 */
long BgL_auxz00_3139;
BgL_auxz00_3139 = 
(long)CINT(BgL_offsetz00_442); 
BgL_testz00_3138 = 
(BgL_iz00_1441==BgL_auxz00_3139); } 
if(BgL_testz00_3138)
{ /* ./Eval/evmeaning.scm 178 */
SET_CAR(BgL_envz00_1442, BgL_valuez00_443); }  else 
{ /* ./Eval/evmeaning.scm 178 */
{ 
obj_t BgL_envz00_3145;long BgL_iz00_3143;
BgL_iz00_3143 = 
(BgL_iz00_1441+((long)1)); 
BgL_envz00_3145 = 
CDR(BgL_envz00_1442); 
BgL_envz00_1442 = BgL_envz00_3145; 
BgL_iz00_1441 = BgL_iz00_3143; 
goto BgL_dozd2loopzd2zd21013zd2_1440;} } } } } 
return BUNSPEC;} break;case ((long)15) : 

{ /* ./Eval/evmeaning.scm 184 */
obj_t BgL_valuez00_457;
{ 
int BgL_auxz00_3147;
BgL_auxz00_3147 = 
(int)(((long)2)); 
BgL_valuez00_457 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_3147); } 
{ /* ./Eval/evmeaning.scm 185 */
bool_t BgL_test1193z00_458;
{ /* ./Eval/evmeaning.scm 185 */
obj_t BgL_arg1203z00_461;
{ 
int BgL_auxz00_3150;
BgL_auxz00_3150 = 
(int)(((long)0)); 
BgL_arg1203z00_461 = 
VECTOR_REF(BgL_valuez00_457,BgL_auxz00_3150); } 
{ /* ./Eval/evmeaning.scm 185 */
obj_t BgL_auxz00_3153;
BgL_auxz00_3153 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_arg1203z00_461, BgL_stackz00_2); 
BgL_test1193z00_458 = 
CBOOL(BgL_auxz00_3153); } } 
if(BgL_test1193z00_458)
{ 
obj_t BgL_expz00_3157;
{ 
int BgL_auxz00_3158;
BgL_auxz00_3158 = 
(int)(((long)1)); 
BgL_expz00_3157 = 
VECTOR_REF(BgL_valuez00_457,BgL_auxz00_3158); } 
BgL_expz00_1 = BgL_expz00_3157; 
goto BGl_evmeaningz00zz__evmeaningz00;}  else 
{ 
obj_t BgL_expz00_3161;
{ 
int BgL_auxz00_3162;
BgL_auxz00_3162 = 
(int)(((long)2)); 
BgL_expz00_3161 = 
VECTOR_REF(BgL_valuez00_457,BgL_auxz00_3162); } 
BgL_expz00_1 = BgL_expz00_3161; 
goto BGl_evmeaningz00zz__evmeaningz00;} } } break;case ((long)16) : 

{ /* ./Eval/evmeaning.scm 190 */
obj_t BgL_expsz00_462;
{ 
int BgL_auxz00_3165;
BgL_auxz00_3165 = 
(int)(((long)2)); 
BgL_expsz00_462 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_3165); } 
{ /* ./Eval/evmeaning.scm 190 */
long BgL_lenz00_463;
{ /* ./Eval/evmeaning.scm 191 */
int BgL_arg1225z00_471;
BgL_arg1225z00_471 = 
VECTOR_LENGTH(BgL_expsz00_462); 
{ /* ./Eval/evmeaning.scm 191 */
long BgL_auxz00_3169;
BgL_auxz00_3169 = 
(long)(BgL_arg1225z00_471); 
BgL_lenz00_463 = 
(BgL_auxz00_3169-((long)1)); } } 
{ /* ./Eval/evmeaning.scm 191 */

if(
(BgL_lenz00_463==((long)0)))
{ /* ./Eval/evmeaning.scm 192 */
return BUNSPEC;}  else 
{ 
long BgL_iz00_465;
BgL_iz00_465 = ((long)0); 
BgL_loopz00_466:
if(
(BgL_iz00_465==BgL_lenz00_463))
{ 
obj_t BgL_expz00_3176;
{ 
int BgL_auxz00_3177;
BgL_auxz00_3177 = 
(int)(BgL_iz00_465); 
BgL_expz00_3176 = 
VECTOR_REF(BgL_expsz00_462,BgL_auxz00_3177); } 
BgL_expz00_1 = BgL_expz00_3176; 
goto BGl_evmeaningz00zz__evmeaningz00;}  else 
{ /* ./Eval/evmeaning.scm 195 */
{ /* ./Eval/evmeaning.scm 198 */
obj_t BgL_auxz00_3180;
{ 
int BgL_auxz00_3181;
BgL_auxz00_3181 = 
(int)(BgL_iz00_465); 
BgL_auxz00_3180 = 
VECTOR_REF(BgL_expsz00_462,BgL_auxz00_3181); } 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3180, BgL_stackz00_2); } 
{ 
long BgL_iz00_3185;
BgL_iz00_3185 = 
(BgL_iz00_465+((long)1)); 
BgL_iz00_465 = BgL_iz00_3185; 
goto BgL_loopz00_466;} } } } } } break;case ((long)17) : 

{ /* ./Eval/evmeaning.scm 202 */
obj_t BgL_varz00_473;obj_t BgL_valz00_474;
{ /* ./Eval/evmeaning.scm 202 */
obj_t BgL_auxz00_3187;
{ 
int BgL_auxz00_3188;
BgL_auxz00_3188 = 
(int)(((long)2)); 
BgL_auxz00_3187 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_3188); } 
BgL_varz00_473 = 
CAR(BgL_auxz00_3187); } 
{ /* ./Eval/evmeaning.scm 203 */
obj_t BgL_auxz00_3192;
{ 
int BgL_auxz00_3193;
BgL_auxz00_3193 = 
(int)(((long)2)); 
BgL_auxz00_3192 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_3193); } 
BgL_valz00_474 = 
CDR(BgL_auxz00_3192); } 
{ /* ./Eval/evmeaning.scm 204 */
obj_t BgL_cellz00_475;
BgL_cellz00_475 = 
BGl_evalzd2lookupzd2zz__evenvz00(BgL_varz00_473); 
{ /* ./Eval/evmeaning.scm 205 */
bool_t BgL_test1231z00_476;
if(
VECTORP(BgL_cellz00_475))
{ /* ./Eval/evmeaning.scm 205 */
int BgL_arg2393z00_1510;
BgL_arg2393z00_1510 = 
VECTOR_LENGTH(BgL_cellz00_475); 
{ /* ./Eval/evmeaning.scm 205 */
long BgL_auxz00_3201;
BgL_auxz00_3201 = 
(long)(BgL_arg2393z00_1510); 
BgL_test1231z00_476 = 
(BgL_auxz00_3201==((long)3)); } }  else 
{ /* ./Eval/evmeaning.scm 205 */
BgL_test1231z00_476 = ((bool_t)0); } 
if(BgL_test1231z00_476)
{ /* ./Eval/evmeaning.scm 205 */
{ /* ./Eval/evmeaning.scm 207 */
obj_t BgL_list1233z00_477;
{ /* ./Eval/evmeaning.scm 207 */
obj_t BgL_arg1236z00_479;
{ /* ./Eval/evmeaning.scm 207 */
obj_t BgL_arg1240z00_480;
{ /* ./Eval/evmeaning.scm 207 */
obj_t BgL_arg1244z00_482;
BgL_arg1244z00_482 = 
MAKE_PAIR(BgL_varz00_473, BNIL); 
BgL_arg1240z00_480 = 
MAKE_PAIR(BGl_string3597z00zz__evmeaningz00, BgL_arg1244z00_482); } 
{ /* ./Eval/evmeaning.scm 207 */
obj_t BgL_auxz00_3207;
BgL_auxz00_3207 = 
BCHAR(((unsigned char)'\n')); 
BgL_arg1236z00_479 = 
MAKE_PAIR(BgL_auxz00_3207, BgL_arg1240z00_480); } } 
BgL_list1233z00_477 = 
MAKE_PAIR(BGl_string3595z00zz__evmeaningz00, BgL_arg1236z00_479); } 
BGl_evmeaningzd2warningzd2zz__evmeaningz00(BgL_expz00_1, BgL_list1233z00_477); } 
{ /* ./Eval/evmeaning.scm 213 */
obj_t BgL_arg1249z00_483;
{ /* ./Eval/evmeaning.scm 213 */
obj_t BgL_arg1252z00_484;
BgL_arg1252z00_484 = 
PROCEDURE_ENTRY(BgL_valz00_474)(BgL_valz00_474, BEOA); 
BgL_arg1249z00_483 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_arg1252z00_484, BNIL); } 
{ /* ./Eval/evmeaning.scm 212 */
bool_t BgL_testz00_3215;
{ /* ./Eval/evmeaning.scm 212 */
obj_t BgL_auxz00_3220;obj_t BgL_auxz00_3216;
BgL_auxz00_3220 = 
BINT(((long)1)); 
{ 
int BgL_auxz00_3217;
BgL_auxz00_3217 = 
(int)(((long)0)); 
BgL_auxz00_3216 = 
VECTOR_REF(BgL_cellz00_475,BgL_auxz00_3217); } 
BgL_testz00_3215 = 
(BgL_auxz00_3216==BgL_auxz00_3220); } 
if(BgL_testz00_3215)
{ /* ./Eval/evmeaning.scm 212 */
obj_t BgL_auxz00_3223;
{ 
int BgL_auxz00_3224;
BgL_auxz00_3224 = 
(int)(((long)2)); 
BgL_auxz00_3223 = 
VECTOR_REF(BgL_cellz00_475,BgL_auxz00_3224); } 
__EVMEANING_ADDRESS_SET(BgL_auxz00_3223, BgL_arg1249z00_483); }  else 
{ 
int BgL_auxz00_3228;
BgL_auxz00_3228 = 
(int)(((long)2)); 
VECTOR_SET(BgL_cellz00_475,BgL_auxz00_3228,BgL_arg1249z00_483); } } 
{ 
int BgL_auxz00_3231;
BgL_auxz00_3231 = 
(int)(((long)1)); 
VECTOR_REF(BgL_cellz00_475,BgL_auxz00_3231); } } }  else 
{ /* ./Eval/evmeaning.scm 214 */
obj_t BgL_cellz00_486;
{ /* ./Eval/evmeaning.scm 214 */
obj_t BgL_v1014z00_490;
{ 
int BgL_auxz00_3234;
BgL_auxz00_3234 = 
(int)(((long)3)); 
BgL_v1014z00_490 = 
create_vector(BgL_auxz00_3234); } 
{ 
obj_t BgL_auxz00_3239;int BgL_auxz00_3237;
BgL_auxz00_3239 = BUNSPEC; 
BgL_auxz00_3237 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1014z00_490,BgL_auxz00_3237,BgL_auxz00_3239); } 
{ 
int BgL_auxz00_3241;
BgL_auxz00_3241 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1014z00_490,BgL_auxz00_3241,BgL_varz00_473); } 
{ 
obj_t BgL_auxz00_3246;int BgL_auxz00_3244;
BgL_auxz00_3246 = 
BINT(((long)0)); 
BgL_auxz00_3244 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1014z00_490,BgL_auxz00_3244,BgL_auxz00_3246); } 
BgL_cellz00_486 = BgL_v1014z00_490; } 
BGl_bindzd2evalzd2globalz12z12zz__evenvz00(BgL_varz00_473, BgL_cellz00_486); 
{ /* ./Eval/evmeaning.scm 218 */
obj_t BgL_valuez00_487;
{ /* ./Eval/evmeaning.scm 218 */
obj_t BgL_arg1260z00_488;
BgL_arg1260z00_488 = 
PROCEDURE_ENTRY(BgL_valz00_474)(BgL_valz00_474, BEOA); 
BgL_valuez00_487 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_arg1260z00_488, BNIL); } 
{ 
int BgL_auxz00_3253;
BgL_auxz00_3253 = 
(int)(((long)2)); 
VECTOR_SET(BgL_cellz00_486,BgL_auxz00_3253,BgL_valuez00_487); } } } } 
return BgL_varz00_473;} } break;case ((long)63) : 

{ /* ./Eval/evmeaning.scm 223 */
obj_t BgL_varz00_495;
{ /* ./Eval/evmeaning.scm 223 */
obj_t BgL_auxz00_3256;
{ 
int BgL_auxz00_3257;
BgL_auxz00_3257 = 
(int)(((long)2)); 
BgL_auxz00_3256 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_3257); } 
BgL_varz00_495 = 
CAR(BgL_auxz00_3256); } 
{ /* ./Eval/evmeaning.scm 223 */
obj_t BgL_valz00_496;
{ /* ./Eval/evmeaning.scm 224 */
obj_t BgL_auxz00_3261;
{ 
int BgL_auxz00_3262;
BgL_auxz00_3262 = 
(int)(((long)2)); 
BgL_auxz00_3261 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_3262); } 
BgL_valz00_496 = 
CDR(BgL_auxz00_3261); } 
{ /* ./Eval/evmeaning.scm 224 */
obj_t BgL_valuez00_497;
BgL_valuez00_497 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_valz00_496, BNIL); 
{ /* ./Eval/evmeaning.scm 225 */

{ /* ./Eval/evmeaning.scm 226 */
obj_t BgL_cellz00_498;
BgL_cellz00_498 = 
BGl_evalzd2lookupzd2zz__evenvz00(BgL_varz00_495); 
{ /* ./Eval/evmeaning.scm 227 */
bool_t BgL_test1282z00_499;
if(
VECTORP(BgL_cellz00_498))
{ /* ./Eval/evmeaning.scm 227 */
int BgL_arg2393z00_1561;
BgL_arg2393z00_1561 = 
VECTOR_LENGTH(BgL_cellz00_498); 
{ /* ./Eval/evmeaning.scm 227 */
long BgL_auxz00_3271;
BgL_auxz00_3271 = 
(long)(BgL_arg2393z00_1561); 
BgL_test1282z00_499 = 
(BgL_auxz00_3271==((long)3)); } }  else 
{ /* ./Eval/evmeaning.scm 227 */
BgL_test1282z00_499 = ((bool_t)0); } 
if(BgL_test1282z00_499)
{ /* ./Eval/evmeaning.scm 227 */
{ /* ./Eval/evmeaning.scm 229 */
obj_t BgL_list1284z00_500;
{ /* ./Eval/evmeaning.scm 229 */
obj_t BgL_arg1287z00_502;
{ /* ./Eval/evmeaning.scm 229 */
obj_t BgL_arg1290z00_503;
{ /* ./Eval/evmeaning.scm 229 */
obj_t BgL_arg1294z00_505;
BgL_arg1294z00_505 = 
MAKE_PAIR(BgL_varz00_495, BNIL); 
BgL_arg1290z00_503 = 
MAKE_PAIR(BGl_string3597z00zz__evmeaningz00, BgL_arg1294z00_505); } 
{ /* ./Eval/evmeaning.scm 229 */
obj_t BgL_auxz00_3277;
BgL_auxz00_3277 = 
BCHAR(((unsigned char)'\n')); 
BgL_arg1287z00_502 = 
MAKE_PAIR(BgL_auxz00_3277, BgL_arg1290z00_503); } } 
BgL_list1284z00_500 = 
MAKE_PAIR(BGl_string3595z00zz__evmeaningz00, BgL_arg1287z00_502); } 
BGl_evmeaningzd2warningzd2zz__evmeaningz00(BgL_expz00_1, BgL_list1284z00_500); } 
{ /* ./Eval/evmeaning.scm 234 */
bool_t BgL_testz00_3282;
{ /* ./Eval/evmeaning.scm 234 */
obj_t BgL_auxz00_3287;obj_t BgL_auxz00_3283;
BgL_auxz00_3287 = 
BINT(((long)1)); 
{ 
int BgL_auxz00_3284;
BgL_auxz00_3284 = 
(int)(((long)0)); 
BgL_auxz00_3283 = 
VECTOR_REF(BgL_cellz00_498,BgL_auxz00_3284); } 
BgL_testz00_3282 = 
(BgL_auxz00_3283==BgL_auxz00_3287); } 
if(BgL_testz00_3282)
{ /* ./Eval/evmeaning.scm 234 */
obj_t BgL_auxz00_3290;
{ 
int BgL_auxz00_3291;
BgL_auxz00_3291 = 
(int)(((long)2)); 
BgL_auxz00_3290 = 
VECTOR_REF(BgL_cellz00_498,BgL_auxz00_3291); } 
__EVMEANING_ADDRESS_SET(BgL_auxz00_3290, BgL_valuez00_497); }  else 
{ 
int BgL_auxz00_3295;
BgL_auxz00_3295 = 
(int)(((long)2)); 
VECTOR_SET(BgL_cellz00_498,BgL_auxz00_3295,BgL_valuez00_497); } } 
{ 
int BgL_auxz00_3298;
BgL_auxz00_3298 = 
(int)(((long)1)); 
VECTOR_REF(BgL_cellz00_498,BgL_auxz00_3298); } }  else 
{ /* ./Eval/evmeaning.scm 235 */
obj_t BgL_cellz00_506;
{ /* ./Eval/evmeaning.scm 235 */
obj_t BgL_v1015z00_507;
{ 
int BgL_auxz00_3301;
BgL_auxz00_3301 = 
(int)(((long)3)); 
BgL_v1015z00_507 = 
create_vector(BgL_auxz00_3301); } 
{ 
obj_t BgL_auxz00_3306;int BgL_auxz00_3304;
BgL_auxz00_3306 = BUNSPEC; 
BgL_auxz00_3304 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1015z00_507,BgL_auxz00_3304,BgL_auxz00_3306); } 
{ 
int BgL_auxz00_3308;
BgL_auxz00_3308 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1015z00_507,BgL_auxz00_3308,BgL_varz00_495); } 
{ 
obj_t BgL_auxz00_3313;int BgL_auxz00_3311;
BgL_auxz00_3313 = 
BINT(((long)0)); 
BgL_auxz00_3311 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1015z00_507,BgL_auxz00_3311,BgL_auxz00_3313); } 
BgL_cellz00_506 = BgL_v1015z00_507; } 
BGl_bindzd2evalzd2globalz12z12zz__evenvz00(BgL_varz00_495, BgL_cellz00_506); 
{ 
int BgL_auxz00_3317;
BgL_auxz00_3317 = 
(int)(((long)2)); 
VECTOR_SET(BgL_cellz00_506,BgL_auxz00_3317,BgL_valuez00_497); } } } 
return BgL_varz00_495;} } } } } break;case ((long)18) : 

return 
BGl_zc3exitza31319ze3z83zz__evmeaningz00(BgL_stackz00_2, BgL_expz00_1);break;case ((long)64) : 

{ /* ./Eval/evmeaning.scm 248 */
obj_t BgL_bodyz00_520;obj_t BgL_protectz00_521;
{ /* ./Eval/evmeaning.scm 248 */
obj_t BgL_auxz00_3321;
{ 
int BgL_auxz00_3322;
BgL_auxz00_3322 = 
(int)(((long)2)); 
BgL_auxz00_3321 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_3322); } 
BgL_bodyz00_520 = 
CAR(BgL_auxz00_3321); } 
{ /* ./Eval/evmeaning.scm 249 */
obj_t BgL_auxz00_3326;
{ 
int BgL_auxz00_3327;
BgL_auxz00_3327 = 
(int)(((long)2)); 
BgL_auxz00_3326 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_3327); } 
BgL_protectz00_521 = 
CDR(BgL_auxz00_3326); } 
{ /* ./Eval/evmeaning.scm 250 */
obj_t BgL_val1020z00_522;
BgL_val1020z00_522 = 
BGl_zc3exitza31342ze3z83zz__evmeaningz00(BgL_stackz00_2, BgL_bodyz00_520); 
BGl_evmeaningz00zz__evmeaningz00(BgL_protectz00_521, BgL_stackz00_2); 
{ /* ./Eval/evmeaning.scm 251 */
bool_t BgL_testz00_3333;
{ /* ./Eval/evmeaning.scm 251 */
obj_t BgL_auxz00_3334;
BgL_auxz00_3334 = 
BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(BgL_val1020z00_522); 
BgL_testz00_3333 = 
CBOOL(BgL_auxz00_3334); } 
if(BgL_testz00_3333)
{ /* ./Eval/evmeaning.scm 251 */
return 
BGl_unwindzd2untilz12zc0zz__bexitz00(
CAR(BgL_val1020z00_522), 
CDR(BgL_val1020z00_522));}  else 
{ /* ./Eval/evmeaning.scm 251 */
return BgL_val1020z00_522;} } } } break;case ((long)19) : 

{ /* ./Eval/evmeaning.scm 254 */
obj_t BgL_valuez00_531;
{ 
int BgL_auxz00_3340;
BgL_auxz00_3340 = 
(int)(((long)2)); 
BgL_valuez00_531 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_3340); } 
{ /* ./Eval/evmeaning.scm 254 */
obj_t BgL_namez00_532;
{ 
int BgL_auxz00_3343;
BgL_auxz00_3343 = 
(int)(((long)0)); 
BgL_namez00_532 = 
VECTOR_REF(BgL_valuez00_531,BgL_auxz00_3343); } 
{ /* ./Eval/evmeaning.scm 255 */
obj_t BgL_funz00_533;
{ /* ./Eval/evmeaning.scm 256 */
obj_t BgL_auxz00_3346;
{ 
int BgL_auxz00_3351;obj_t BgL_auxz00_3347;
BgL_auxz00_3351 = 
(int)(((long)2)); 
{ 
int BgL_auxz00_3348;
BgL_auxz00_3348 = 
(int)(((long)1)); 
BgL_auxz00_3347 = 
VECTOR_REF(BgL_valuez00_531,BgL_auxz00_3348); } 
BgL_auxz00_3346 = 
VECTOR_REF(BgL_auxz00_3347,BgL_auxz00_3351); } 
BgL_funz00_533 = 
__EVMEANING_ADDRESS_REF(BgL_auxz00_3346); } 
{ /* ./Eval/evmeaning.scm 256 */

if(
PROCEDUREP(BgL_funz00_533))
{ /* ./Eval/evmeaning.scm 258 */
bool_t BgL_testz00_3357;
{ /* ./Eval/evmeaning.scm 258 */
int BgL_auxz00_3358;
BgL_auxz00_3358 = 
(int)(((long)0)); 
BgL_testz00_3357 = 
PROCEDURE_CORRECT_ARITYP(BgL_funz00_533, BgL_auxz00_3358); } 
if(BgL_testz00_3357)
{ /* ./Eval/evmeaning.scm 258 */
return 
eval_funcall_0(BgL_funz00_533);}  else 
{ /* ./Eval/evmeaning.scm 258 */
FAILURE(BGl_string3595z00zz__evmeaningz00,BGl_string3598z00zz__evmeaningz00,BgL_namez00_532);} }  else 
{ /* ./Eval/evmeaning.scm 258 */
FAILURE(BGl_string3595z00zz__evmeaningz00,BGl_string3599z00zz__evmeaningz00,BgL_namez00_532);} } } } } break;case ((long)57) : 

{ /* ./Eval/evmeaning.scm 260 */
obj_t BgL_valuez00_536;
{ 
int BgL_auxz00_3364;
BgL_auxz00_3364 = 
(int)(((long)2)); 
BgL_valuez00_536 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_3364); } 
{ /* ./Eval/evmeaning.scm 260 */
obj_t BgL_namez00_537;
{ 
int BgL_auxz00_3367;
BgL_auxz00_3367 = 
(int)(((long)0)); 
BgL_namez00_537 = 
VECTOR_REF(BgL_valuez00_536,BgL_auxz00_3367); } 
{ /* ./Eval/evmeaning.scm 261 */
obj_t BgL_funz00_538;
{ 
int BgL_auxz00_3374;obj_t BgL_auxz00_3370;
BgL_auxz00_3374 = 
(int)(((long)2)); 
{ 
int BgL_auxz00_3371;
BgL_auxz00_3371 = 
(int)(((long)1)); 
BgL_auxz00_3370 = 
VECTOR_REF(BgL_valuez00_536,BgL_auxz00_3371); } 
BgL_funz00_538 = 
VECTOR_REF(BgL_auxz00_3370,BgL_auxz00_3374); } 
{ /* ./Eval/evmeaning.scm 262 */

if(
PROCEDUREP(BgL_funz00_538))
{ /* ./Eval/evmeaning.scm 263 */
bool_t BgL_testz00_3379;
{ /* ./Eval/evmeaning.scm 263 */
int BgL_auxz00_3380;
BgL_auxz00_3380 = 
(int)(((long)0)); 
BgL_testz00_3379 = 
PROCEDURE_CORRECT_ARITYP(BgL_funz00_538, BgL_auxz00_3380); } 
if(BgL_testz00_3379)
{ /* ./Eval/evmeaning.scm 263 */
return 
eval_funcall_0(BgL_funz00_538);}  else 
{ /* ./Eval/evmeaning.scm 263 */
FAILURE(BGl_string3595z00zz__evmeaningz00,BGl_string3598z00zz__evmeaningz00,BgL_namez00_537);} }  else 
{ /* ./Eval/evmeaning.scm 263 */
FAILURE(BGl_string3595z00zz__evmeaningz00,BGl_string3599z00zz__evmeaningz00,BgL_namez00_537);} } } } } break;case ((long)20) : 

{ /* ./Eval/evmeaning.scm 266 */
obj_t BgL_valuez00_540;
{ 
int BgL_auxz00_3386;
BgL_auxz00_3386 = 
(int)(((long)2)); 
BgL_valuez00_540 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_3386); } 
{ /* ./Eval/evmeaning.scm 266 */
obj_t BgL_namez00_541;
{ 
int BgL_auxz00_3389;
BgL_auxz00_3389 = 
(int)(((long)0)); 
BgL_namez00_541 = 
VECTOR_REF(BgL_valuez00_540,BgL_auxz00_3389); } 
{ /* ./Eval/evmeaning.scm 267 */
obj_t BgL_funz00_542;
{ /* ./Eval/evmeaning.scm 268 */
obj_t BgL_auxz00_3392;
{ 
int BgL_auxz00_3397;obj_t BgL_auxz00_3393;
BgL_auxz00_3397 = 
(int)(((long)2)); 
{ 
int BgL_auxz00_3394;
BgL_auxz00_3394 = 
(int)(((long)1)); 
BgL_auxz00_3393 = 
VECTOR_REF(BgL_valuez00_540,BgL_auxz00_3394); } 
BgL_auxz00_3392 = 
VECTOR_REF(BgL_auxz00_3393,BgL_auxz00_3397); } 
BgL_funz00_542 = 
__EVMEANING_ADDRESS_REF(BgL_auxz00_3392); } 
{ /* ./Eval/evmeaning.scm 268 */
obj_t BgL_a0z00_543;
{ /* ./Eval/evmeaning.scm 270 */
obj_t BgL_auxz00_3401;
{ 
int BgL_auxz00_3402;
BgL_auxz00_3402 = 
(int)(((long)2)); 
BgL_auxz00_3401 = 
VECTOR_REF(BgL_valuez00_540,BgL_auxz00_3402); } 
BgL_a0z00_543 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3401, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 270 */

BGl_za2currentzd2bcodeza2zd2zz__evmeaningz00 = BgL_expz00_1; 
if(
PROCEDUREP(BgL_funz00_542))
{ /* ./Eval/evmeaning.scm 272 */
bool_t BgL_testz00_3408;
{ /* ./Eval/evmeaning.scm 272 */
int BgL_auxz00_3409;
BgL_auxz00_3409 = 
(int)(((long)1)); 
BgL_testz00_3408 = 
PROCEDURE_CORRECT_ARITYP(BgL_funz00_542, BgL_auxz00_3409); } 
if(BgL_testz00_3408)
{ /* ./Eval/evmeaning.scm 272 */
return 
eval_funcall_1(BgL_funz00_542, BgL_a0z00_543);}  else 
{ /* ./Eval/evmeaning.scm 272 */
FAILURE(BGl_string3595z00zz__evmeaningz00,BGl_string3598z00zz__evmeaningz00,BgL_namez00_541);} }  else 
{ /* ./Eval/evmeaning.scm 272 */
FAILURE(BGl_string3595z00zz__evmeaningz00,BGl_string3599z00zz__evmeaningz00,BgL_namez00_541);} } } } } } break;case ((long)58) : 

{ /* ./Eval/evmeaning.scm 274 */
obj_t BgL_valuez00_547;
{ 
int BgL_auxz00_3415;
BgL_auxz00_3415 = 
(int)(((long)2)); 
BgL_valuez00_547 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_3415); } 
{ /* ./Eval/evmeaning.scm 274 */
obj_t BgL_namez00_548;
{ 
int BgL_auxz00_3418;
BgL_auxz00_3418 = 
(int)(((long)0)); 
BgL_namez00_548 = 
VECTOR_REF(BgL_valuez00_547,BgL_auxz00_3418); } 
{ /* ./Eval/evmeaning.scm 275 */
obj_t BgL_funz00_549;
{ 
int BgL_auxz00_3425;obj_t BgL_auxz00_3421;
BgL_auxz00_3425 = 
(int)(((long)2)); 
{ 
int BgL_auxz00_3422;
BgL_auxz00_3422 = 
(int)(((long)1)); 
BgL_auxz00_3421 = 
VECTOR_REF(BgL_valuez00_547,BgL_auxz00_3422); } 
BgL_funz00_549 = 
VECTOR_REF(BgL_auxz00_3421,BgL_auxz00_3425); } 
{ /* ./Eval/evmeaning.scm 276 */
obj_t BgL_a0z00_550;
{ /* ./Eval/evmeaning.scm 277 */
obj_t BgL_auxz00_3428;
{ 
int BgL_auxz00_3429;
BgL_auxz00_3429 = 
(int)(((long)2)); 
BgL_auxz00_3428 = 
VECTOR_REF(BgL_valuez00_547,BgL_auxz00_3429); } 
BgL_a0z00_550 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3428, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 277 */

BGl_za2currentzd2bcodeza2zd2zz__evmeaningz00 = BgL_expz00_1; 
if(
PROCEDUREP(BgL_funz00_549))
{ /* ./Eval/evmeaning.scm 279 */
bool_t BgL_testz00_3435;
{ /* ./Eval/evmeaning.scm 279 */
int BgL_auxz00_3436;
BgL_auxz00_3436 = 
(int)(((long)1)); 
BgL_testz00_3435 = 
PROCEDURE_CORRECT_ARITYP(BgL_funz00_549, BgL_auxz00_3436); } 
if(BgL_testz00_3435)
{ /* ./Eval/evmeaning.scm 279 */
return 
eval_funcall_1(BgL_funz00_549, BgL_a0z00_550);}  else 
{ /* ./Eval/evmeaning.scm 279 */
FAILURE(BGl_string3595z00zz__evmeaningz00,BGl_string3598z00zz__evmeaningz00,BgL_namez00_548);} }  else 
{ /* ./Eval/evmeaning.scm 279 */
FAILURE(BGl_string3595z00zz__evmeaningz00,BGl_string3599z00zz__evmeaningz00,BgL_namez00_548);} } } } } } break;case ((long)21) : 

{ /* ./Eval/evmeaning.scm 282 */
obj_t BgL_valuez00_553;
{ 
int BgL_auxz00_3442;
BgL_auxz00_3442 = 
(int)(((long)2)); 
BgL_valuez00_553 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_3442); } 
{ /* ./Eval/evmeaning.scm 282 */
obj_t BgL_namez00_554;
{ 
int BgL_auxz00_3445;
BgL_auxz00_3445 = 
(int)(((long)0)); 
BgL_namez00_554 = 
VECTOR_REF(BgL_valuez00_553,BgL_auxz00_3445); } 
{ /* ./Eval/evmeaning.scm 283 */
obj_t BgL_funz00_555;
{ /* ./Eval/evmeaning.scm 284 */
obj_t BgL_auxz00_3448;
{ 
int BgL_auxz00_3453;obj_t BgL_auxz00_3449;
BgL_auxz00_3453 = 
(int)(((long)2)); 
{ 
int BgL_auxz00_3450;
BgL_auxz00_3450 = 
(int)(((long)1)); 
BgL_auxz00_3449 = 
VECTOR_REF(BgL_valuez00_553,BgL_auxz00_3450); } 
BgL_auxz00_3448 = 
VECTOR_REF(BgL_auxz00_3449,BgL_auxz00_3453); } 
BgL_funz00_555 = 
__EVMEANING_ADDRESS_REF(BgL_auxz00_3448); } 
{ /* ./Eval/evmeaning.scm 284 */
obj_t BgL_a0z00_556;
{ /* ./Eval/evmeaning.scm 286 */
obj_t BgL_auxz00_3457;
{ 
int BgL_auxz00_3458;
BgL_auxz00_3458 = 
(int)(((long)2)); 
BgL_auxz00_3457 = 
VECTOR_REF(BgL_valuez00_553,BgL_auxz00_3458); } 
BgL_a0z00_556 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3457, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 286 */
obj_t BgL_a1z00_557;
{ /* ./Eval/evmeaning.scm 287 */
obj_t BgL_auxz00_3462;
{ 
int BgL_auxz00_3463;
BgL_auxz00_3463 = 
(int)(((long)3)); 
BgL_auxz00_3462 = 
VECTOR_REF(BgL_valuez00_553,BgL_auxz00_3463); } 
BgL_a1z00_557 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3462, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 287 */

BGl_za2currentzd2bcodeza2zd2zz__evmeaningz00 = BgL_expz00_1; 
if(
PROCEDUREP(BgL_funz00_555))
{ /* ./Eval/evmeaning.scm 289 */
bool_t BgL_testz00_3469;
{ /* ./Eval/evmeaning.scm 289 */
int BgL_auxz00_3470;
BgL_auxz00_3470 = 
(int)(((long)2)); 
BgL_testz00_3469 = 
PROCEDURE_CORRECT_ARITYP(BgL_funz00_555, BgL_auxz00_3470); } 
if(BgL_testz00_3469)
{ /* ./Eval/evmeaning.scm 289 */
return 
eval_funcall_2(BgL_funz00_555, BgL_a0z00_556, BgL_a1z00_557);}  else 
{ /* ./Eval/evmeaning.scm 289 */
FAILURE(BGl_string3595z00zz__evmeaningz00,BGl_string3598z00zz__evmeaningz00,BgL_namez00_554);} }  else 
{ /* ./Eval/evmeaning.scm 289 */
FAILURE(BGl_string3595z00zz__evmeaningz00,BGl_string3599z00zz__evmeaningz00,BgL_namez00_554);} } } } } } } break;case ((long)59) : 

{ /* ./Eval/evmeaning.scm 291 */
obj_t BgL_valuez00_562;
{ 
int BgL_auxz00_3476;
BgL_auxz00_3476 = 
(int)(((long)2)); 
BgL_valuez00_562 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_3476); } 
{ /* ./Eval/evmeaning.scm 291 */
obj_t BgL_namez00_563;
{ 
int BgL_auxz00_3479;
BgL_auxz00_3479 = 
(int)(((long)0)); 
BgL_namez00_563 = 
VECTOR_REF(BgL_valuez00_562,BgL_auxz00_3479); } 
{ /* ./Eval/evmeaning.scm 292 */
obj_t BgL_funz00_564;
{ 
int BgL_auxz00_3486;obj_t BgL_auxz00_3482;
BgL_auxz00_3486 = 
(int)(((long)2)); 
{ 
int BgL_auxz00_3483;
BgL_auxz00_3483 = 
(int)(((long)1)); 
BgL_auxz00_3482 = 
VECTOR_REF(BgL_valuez00_562,BgL_auxz00_3483); } 
BgL_funz00_564 = 
VECTOR_REF(BgL_auxz00_3482,BgL_auxz00_3486); } 
{ /* ./Eval/evmeaning.scm 293 */
obj_t BgL_a0z00_565;
{ /* ./Eval/evmeaning.scm 294 */
obj_t BgL_auxz00_3489;
{ 
int BgL_auxz00_3490;
BgL_auxz00_3490 = 
(int)(((long)2)); 
BgL_auxz00_3489 = 
VECTOR_REF(BgL_valuez00_562,BgL_auxz00_3490); } 
BgL_a0z00_565 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3489, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 294 */
obj_t BgL_a1z00_566;
{ /* ./Eval/evmeaning.scm 295 */
obj_t BgL_auxz00_3494;
{ 
int BgL_auxz00_3495;
BgL_auxz00_3495 = 
(int)(((long)3)); 
BgL_auxz00_3494 = 
VECTOR_REF(BgL_valuez00_562,BgL_auxz00_3495); } 
BgL_a1z00_566 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3494, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 295 */

BGl_za2currentzd2bcodeza2zd2zz__evmeaningz00 = BgL_expz00_1; 
if(
PROCEDUREP(BgL_funz00_564))
{ /* ./Eval/evmeaning.scm 297 */
bool_t BgL_testz00_3501;
{ /* ./Eval/evmeaning.scm 297 */
int BgL_auxz00_3502;
BgL_auxz00_3502 = 
(int)(((long)2)); 
BgL_testz00_3501 = 
PROCEDURE_CORRECT_ARITYP(BgL_funz00_564, BgL_auxz00_3502); } 
if(BgL_testz00_3501)
{ /* ./Eval/evmeaning.scm 297 */
return 
eval_funcall_2(BgL_funz00_564, BgL_a0z00_565, BgL_a1z00_566);}  else 
{ /* ./Eval/evmeaning.scm 297 */
FAILURE(BGl_string3595z00zz__evmeaningz00,BGl_string3598z00zz__evmeaningz00,BgL_namez00_563);} }  else 
{ /* ./Eval/evmeaning.scm 297 */
FAILURE(BGl_string3595z00zz__evmeaningz00,BGl_string3599z00zz__evmeaningz00,BgL_namez00_563);} } } } } } } break;case ((long)22) : 

{ /* ./Eval/evmeaning.scm 300 */
obj_t BgL_valuez00_570;
{ 
int BgL_auxz00_3508;
BgL_auxz00_3508 = 
(int)(((long)2)); 
BgL_valuez00_570 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_3508); } 
{ /* ./Eval/evmeaning.scm 300 */
obj_t BgL_namez00_571;
{ 
int BgL_auxz00_3511;
BgL_auxz00_3511 = 
(int)(((long)0)); 
BgL_namez00_571 = 
VECTOR_REF(BgL_valuez00_570,BgL_auxz00_3511); } 
{ /* ./Eval/evmeaning.scm 301 */
obj_t BgL_funz00_572;
{ /* ./Eval/evmeaning.scm 302 */
obj_t BgL_auxz00_3514;
{ 
int BgL_auxz00_3519;obj_t BgL_auxz00_3515;
BgL_auxz00_3519 = 
(int)(((long)2)); 
{ 
int BgL_auxz00_3516;
BgL_auxz00_3516 = 
(int)(((long)1)); 
BgL_auxz00_3515 = 
VECTOR_REF(BgL_valuez00_570,BgL_auxz00_3516); } 
BgL_auxz00_3514 = 
VECTOR_REF(BgL_auxz00_3515,BgL_auxz00_3519); } 
BgL_funz00_572 = 
__EVMEANING_ADDRESS_REF(BgL_auxz00_3514); } 
{ /* ./Eval/evmeaning.scm 302 */
obj_t BgL_a0z00_573;
{ /* ./Eval/evmeaning.scm 304 */
obj_t BgL_auxz00_3523;
{ 
int BgL_auxz00_3524;
BgL_auxz00_3524 = 
(int)(((long)2)); 
BgL_auxz00_3523 = 
VECTOR_REF(BgL_valuez00_570,BgL_auxz00_3524); } 
BgL_a0z00_573 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3523, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 304 */
obj_t BgL_a1z00_574;
{ /* ./Eval/evmeaning.scm 305 */
obj_t BgL_auxz00_3528;
{ 
int BgL_auxz00_3529;
BgL_auxz00_3529 = 
(int)(((long)3)); 
BgL_auxz00_3528 = 
VECTOR_REF(BgL_valuez00_570,BgL_auxz00_3529); } 
BgL_a1z00_574 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3528, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 305 */
obj_t BgL_a2z00_575;
{ /* ./Eval/evmeaning.scm 306 */
obj_t BgL_auxz00_3533;
{ 
int BgL_auxz00_3534;
BgL_auxz00_3534 = 
(int)(((long)4)); 
BgL_auxz00_3533 = 
VECTOR_REF(BgL_valuez00_570,BgL_auxz00_3534); } 
BgL_a2z00_575 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3533, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 306 */

BGl_za2currentzd2bcodeza2zd2zz__evmeaningz00 = BgL_expz00_1; 
if(
PROCEDUREP(BgL_funz00_572))
{ /* ./Eval/evmeaning.scm 308 */
bool_t BgL_testz00_3540;
{ /* ./Eval/evmeaning.scm 308 */
int BgL_auxz00_3541;
BgL_auxz00_3541 = 
(int)(((long)3)); 
BgL_testz00_3540 = 
PROCEDURE_CORRECT_ARITYP(BgL_funz00_572, BgL_auxz00_3541); } 
if(BgL_testz00_3540)
{ /* ./Eval/evmeaning.scm 308 */
return 
eval_funcall_3(BgL_funz00_572, BgL_a0z00_573, BgL_a1z00_574, BgL_a2z00_575);}  else 
{ /* ./Eval/evmeaning.scm 308 */
FAILURE(BGl_string3595z00zz__evmeaningz00,BGl_string3598z00zz__evmeaningz00,BgL_namez00_571);} }  else 
{ /* ./Eval/evmeaning.scm 308 */
FAILURE(BGl_string3595z00zz__evmeaningz00,BGl_string3599z00zz__evmeaningz00,BgL_namez00_571);} } } } } } } } break;case ((long)60) : 

{ /* ./Eval/evmeaning.scm 310 */
obj_t BgL_valuez00_581;
{ 
int BgL_auxz00_3547;
BgL_auxz00_3547 = 
(int)(((long)2)); 
BgL_valuez00_581 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_3547); } 
{ /* ./Eval/evmeaning.scm 310 */
obj_t BgL_namez00_582;
{ 
int BgL_auxz00_3550;
BgL_auxz00_3550 = 
(int)(((long)0)); 
BgL_namez00_582 = 
VECTOR_REF(BgL_valuez00_581,BgL_auxz00_3550); } 
{ /* ./Eval/evmeaning.scm 311 */
obj_t BgL_funz00_583;
{ 
int BgL_auxz00_3557;obj_t BgL_auxz00_3553;
BgL_auxz00_3557 = 
(int)(((long)2)); 
{ 
int BgL_auxz00_3554;
BgL_auxz00_3554 = 
(int)(((long)1)); 
BgL_auxz00_3553 = 
VECTOR_REF(BgL_valuez00_581,BgL_auxz00_3554); } 
BgL_funz00_583 = 
VECTOR_REF(BgL_auxz00_3553,BgL_auxz00_3557); } 
{ /* ./Eval/evmeaning.scm 312 */
obj_t BgL_a0z00_584;
{ /* ./Eval/evmeaning.scm 313 */
obj_t BgL_auxz00_3560;
{ 
int BgL_auxz00_3561;
BgL_auxz00_3561 = 
(int)(((long)2)); 
BgL_auxz00_3560 = 
VECTOR_REF(BgL_valuez00_581,BgL_auxz00_3561); } 
BgL_a0z00_584 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3560, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 313 */
obj_t BgL_a1z00_585;
{ /* ./Eval/evmeaning.scm 314 */
obj_t BgL_auxz00_3565;
{ 
int BgL_auxz00_3566;
BgL_auxz00_3566 = 
(int)(((long)3)); 
BgL_auxz00_3565 = 
VECTOR_REF(BgL_valuez00_581,BgL_auxz00_3566); } 
BgL_a1z00_585 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3565, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 314 */
obj_t BgL_a2z00_586;
{ /* ./Eval/evmeaning.scm 315 */
obj_t BgL_auxz00_3570;
{ 
int BgL_auxz00_3571;
BgL_auxz00_3571 = 
(int)(((long)4)); 
BgL_auxz00_3570 = 
VECTOR_REF(BgL_valuez00_581,BgL_auxz00_3571); } 
BgL_a2z00_586 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3570, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 315 */

BGl_za2currentzd2bcodeza2zd2zz__evmeaningz00 = BgL_expz00_1; 
if(
PROCEDUREP(BgL_funz00_583))
{ /* ./Eval/evmeaning.scm 317 */
bool_t BgL_testz00_3577;
{ /* ./Eval/evmeaning.scm 317 */
int BgL_auxz00_3578;
BgL_auxz00_3578 = 
(int)(((long)3)); 
BgL_testz00_3577 = 
PROCEDURE_CORRECT_ARITYP(BgL_funz00_583, BgL_auxz00_3578); } 
if(BgL_testz00_3577)
{ /* ./Eval/evmeaning.scm 317 */
return 
eval_funcall_3(BgL_funz00_583, BgL_a0z00_584, BgL_a1z00_585, BgL_a2z00_586);}  else 
{ /* ./Eval/evmeaning.scm 317 */
FAILURE(BGl_string3595z00zz__evmeaningz00,BGl_string3598z00zz__evmeaningz00,BgL_namez00_582);} }  else 
{ /* ./Eval/evmeaning.scm 317 */
FAILURE(BGl_string3595z00zz__evmeaningz00,BGl_string3599z00zz__evmeaningz00,BgL_namez00_582);} } } } } } } } break;case ((long)23) : 

{ /* ./Eval/evmeaning.scm 320 */
obj_t BgL_valuez00_591;
{ 
int BgL_auxz00_3584;
BgL_auxz00_3584 = 
(int)(((long)2)); 
BgL_valuez00_591 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_3584); } 
{ /* ./Eval/evmeaning.scm 320 */
obj_t BgL_namez00_592;
{ 
int BgL_auxz00_3587;
BgL_auxz00_3587 = 
(int)(((long)0)); 
BgL_namez00_592 = 
VECTOR_REF(BgL_valuez00_591,BgL_auxz00_3587); } 
{ /* ./Eval/evmeaning.scm 321 */
obj_t BgL_funz00_593;
{ /* ./Eval/evmeaning.scm 322 */
obj_t BgL_auxz00_3590;
{ 
int BgL_auxz00_3595;obj_t BgL_auxz00_3591;
BgL_auxz00_3595 = 
(int)(((long)2)); 
{ 
int BgL_auxz00_3592;
BgL_auxz00_3592 = 
(int)(((long)1)); 
BgL_auxz00_3591 = 
VECTOR_REF(BgL_valuez00_591,BgL_auxz00_3592); } 
BgL_auxz00_3590 = 
VECTOR_REF(BgL_auxz00_3591,BgL_auxz00_3595); } 
BgL_funz00_593 = 
__EVMEANING_ADDRESS_REF(BgL_auxz00_3590); } 
{ /* ./Eval/evmeaning.scm 322 */
obj_t BgL_a0z00_594;
{ /* ./Eval/evmeaning.scm 324 */
obj_t BgL_auxz00_3599;
{ 
int BgL_auxz00_3600;
BgL_auxz00_3600 = 
(int)(((long)2)); 
BgL_auxz00_3599 = 
VECTOR_REF(BgL_valuez00_591,BgL_auxz00_3600); } 
BgL_a0z00_594 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3599, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 324 */
obj_t BgL_a1z00_595;
{ /* ./Eval/evmeaning.scm 325 */
obj_t BgL_auxz00_3604;
{ 
int BgL_auxz00_3605;
BgL_auxz00_3605 = 
(int)(((long)3)); 
BgL_auxz00_3604 = 
VECTOR_REF(BgL_valuez00_591,BgL_auxz00_3605); } 
BgL_a1z00_595 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3604, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 325 */
obj_t BgL_a2z00_596;
{ /* ./Eval/evmeaning.scm 326 */
obj_t BgL_auxz00_3609;
{ 
int BgL_auxz00_3610;
BgL_auxz00_3610 = 
(int)(((long)4)); 
BgL_auxz00_3609 = 
VECTOR_REF(BgL_valuez00_591,BgL_auxz00_3610); } 
BgL_a2z00_596 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3609, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 326 */
obj_t BgL_a3z00_597;
{ /* ./Eval/evmeaning.scm 327 */
obj_t BgL_auxz00_3614;
{ 
int BgL_auxz00_3615;
BgL_auxz00_3615 = 
(int)(((long)5)); 
BgL_auxz00_3614 = 
VECTOR_REF(BgL_valuez00_591,BgL_auxz00_3615); } 
BgL_a3z00_597 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3614, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 327 */

BGl_za2currentzd2bcodeza2zd2zz__evmeaningz00 = BgL_expz00_1; 
if(
PROCEDUREP(BgL_funz00_593))
{ /* ./Eval/evmeaning.scm 329 */
bool_t BgL_testz00_3621;
{ /* ./Eval/evmeaning.scm 329 */
int BgL_auxz00_3622;
BgL_auxz00_3622 = 
(int)(((long)4)); 
BgL_testz00_3621 = 
PROCEDURE_CORRECT_ARITYP(BgL_funz00_593, BgL_auxz00_3622); } 
if(BgL_testz00_3621)
{ /* ./Eval/evmeaning.scm 329 */
return 
eval_funcall_4(BgL_funz00_593, BgL_a0z00_594, BgL_a1z00_595, BgL_a2z00_596, BgL_a3z00_597);}  else 
{ /* ./Eval/evmeaning.scm 329 */
FAILURE(BGl_string3595z00zz__evmeaningz00,BGl_string3598z00zz__evmeaningz00,BgL_namez00_592);} }  else 
{ /* ./Eval/evmeaning.scm 329 */
FAILURE(BGl_string3595z00zz__evmeaningz00,BGl_string3599z00zz__evmeaningz00,BgL_namez00_592);} } } } } } } } } break;case ((long)61) : 

{ /* ./Eval/evmeaning.scm 331 */
obj_t BgL_valuez00_604;
{ 
int BgL_auxz00_3628;
BgL_auxz00_3628 = 
(int)(((long)2)); 
BgL_valuez00_604 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_3628); } 
{ /* ./Eval/evmeaning.scm 331 */
obj_t BgL_namez00_605;
{ 
int BgL_auxz00_3631;
BgL_auxz00_3631 = 
(int)(((long)0)); 
BgL_namez00_605 = 
VECTOR_REF(BgL_valuez00_604,BgL_auxz00_3631); } 
{ /* ./Eval/evmeaning.scm 332 */
obj_t BgL_funz00_606;
{ 
int BgL_auxz00_3638;obj_t BgL_auxz00_3634;
BgL_auxz00_3638 = 
(int)(((long)2)); 
{ 
int BgL_auxz00_3635;
BgL_auxz00_3635 = 
(int)(((long)1)); 
BgL_auxz00_3634 = 
VECTOR_REF(BgL_valuez00_604,BgL_auxz00_3635); } 
BgL_funz00_606 = 
VECTOR_REF(BgL_auxz00_3634,BgL_auxz00_3638); } 
{ /* ./Eval/evmeaning.scm 333 */
obj_t BgL_a0z00_607;
{ /* ./Eval/evmeaning.scm 334 */
obj_t BgL_auxz00_3641;
{ 
int BgL_auxz00_3642;
BgL_auxz00_3642 = 
(int)(((long)2)); 
BgL_auxz00_3641 = 
VECTOR_REF(BgL_valuez00_604,BgL_auxz00_3642); } 
BgL_a0z00_607 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3641, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 334 */
obj_t BgL_a1z00_608;
{ /* ./Eval/evmeaning.scm 335 */
obj_t BgL_auxz00_3646;
{ 
int BgL_auxz00_3647;
BgL_auxz00_3647 = 
(int)(((long)3)); 
BgL_auxz00_3646 = 
VECTOR_REF(BgL_valuez00_604,BgL_auxz00_3647); } 
BgL_a1z00_608 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3646, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 335 */
obj_t BgL_a2z00_609;
{ /* ./Eval/evmeaning.scm 336 */
obj_t BgL_auxz00_3651;
{ 
int BgL_auxz00_3652;
BgL_auxz00_3652 = 
(int)(((long)4)); 
BgL_auxz00_3651 = 
VECTOR_REF(BgL_valuez00_604,BgL_auxz00_3652); } 
BgL_a2z00_609 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3651, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 336 */
obj_t BgL_a3z00_610;
{ /* ./Eval/evmeaning.scm 337 */
obj_t BgL_auxz00_3656;
{ 
int BgL_auxz00_3657;
BgL_auxz00_3657 = 
(int)(((long)5)); 
BgL_auxz00_3656 = 
VECTOR_REF(BgL_valuez00_604,BgL_auxz00_3657); } 
BgL_a3z00_610 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3656, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 337 */

BGl_za2currentzd2bcodeza2zd2zz__evmeaningz00 = BgL_expz00_1; 
if(
PROCEDUREP(BgL_funz00_606))
{ /* ./Eval/evmeaning.scm 339 */
bool_t BgL_testz00_3663;
{ /* ./Eval/evmeaning.scm 339 */
int BgL_auxz00_3664;
BgL_auxz00_3664 = 
(int)(((long)4)); 
BgL_testz00_3663 = 
PROCEDURE_CORRECT_ARITYP(BgL_funz00_606, BgL_auxz00_3664); } 
if(BgL_testz00_3663)
{ /* ./Eval/evmeaning.scm 339 */
return 
eval_funcall_4(BgL_funz00_606, BgL_a0z00_607, BgL_a1z00_608, BgL_a2z00_609, BgL_a3z00_610);}  else 
{ /* ./Eval/evmeaning.scm 339 */
FAILURE(BGl_string3595z00zz__evmeaningz00,BGl_string3598z00zz__evmeaningz00,BgL_namez00_605);} }  else 
{ /* ./Eval/evmeaning.scm 339 */
FAILURE(BGl_string3595z00zz__evmeaningz00,BGl_string3599z00zz__evmeaningz00,BgL_namez00_605);} } } } } } } } } break;case ((long)24) : 

{ /* ./Eval/evmeaning.scm 342 */
obj_t BgL_valuez00_616;
{ 
int BgL_auxz00_3670;
BgL_auxz00_3670 = 
(int)(((long)2)); 
BgL_valuez00_616 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_3670); } 
{ /* ./Eval/evmeaning.scm 342 */
obj_t BgL_namez00_617;
{ 
int BgL_auxz00_3673;
BgL_auxz00_3673 = 
(int)(((long)0)); 
BgL_namez00_617 = 
VECTOR_REF(BgL_valuez00_616,BgL_auxz00_3673); } 
{ /* ./Eval/evmeaning.scm 343 */
obj_t BgL_funz00_618;
{ /* ./Eval/evmeaning.scm 344 */
obj_t BgL_auxz00_3676;
{ 
int BgL_auxz00_3681;obj_t BgL_auxz00_3677;
BgL_auxz00_3681 = 
(int)(((long)2)); 
{ 
int BgL_auxz00_3678;
BgL_auxz00_3678 = 
(int)(((long)1)); 
BgL_auxz00_3677 = 
VECTOR_REF(BgL_valuez00_616,BgL_auxz00_3678); } 
BgL_auxz00_3676 = 
VECTOR_REF(BgL_auxz00_3677,BgL_auxz00_3681); } 
BgL_funz00_618 = 
__EVMEANING_ADDRESS_REF(BgL_auxz00_3676); } 
{ /* ./Eval/evmeaning.scm 344 */
obj_t BgL_argsz00_619;
{ 
int BgL_auxz00_3685;
BgL_auxz00_3685 = 
(int)(((long)2)); 
BgL_argsz00_619 = 
VECTOR_REF(BgL_valuez00_616,BgL_auxz00_3685); } 
{ /* ./Eval/evmeaning.scm 346 */
obj_t BgL_eargsz00_620;
{ 
obj_t BgL_argsz00_1884;obj_t BgL_resz00_1885;long BgL_lenz00_1886;
BgL_argsz00_1884 = BgL_argsz00_619; 
BgL_resz00_1885 = BNIL; 
BgL_lenz00_1886 = ((long)0); 
BgL_loopz00_1883:
if(
NULLP(BgL_argsz00_1884))
{ /* ./Eval/evmeaning.scm 347 */
obj_t BgL_auxz00_3692;obj_t BgL_auxz00_3690;
BgL_auxz00_3692 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_resz00_1885); 
BgL_auxz00_3690 = 
BINT(BgL_lenz00_1886); 
BgL_eargsz00_620 = 
MAKE_PAIR(BgL_auxz00_3690, BgL_auxz00_3692); }  else 
{ /* ./Eval/evmeaning.scm 347 */
obj_t BgL_arg1532z00_1896;obj_t BgL_arg1533z00_1897;long BgL_arg1534z00_1898;
BgL_arg1532z00_1896 = 
CDR(BgL_argsz00_1884); 
{ /* ./Eval/evmeaning.scm 347 */
obj_t BgL_auxz00_3696;
BgL_auxz00_3696 = 
BGl_evmeaningz00zz__evmeaningz00(
CAR(BgL_argsz00_1884), BgL_stackz00_2); 
BgL_arg1533z00_1897 = 
MAKE_PAIR(BgL_auxz00_3696, BgL_resz00_1885); } 
BgL_arg1534z00_1898 = 
(((long)1)+BgL_lenz00_1886); 
{ 
long BgL_lenz00_3703;obj_t BgL_resz00_3702;obj_t BgL_argsz00_3701;
BgL_argsz00_3701 = BgL_arg1532z00_1896; 
BgL_resz00_3702 = BgL_arg1533z00_1897; 
BgL_lenz00_3703 = BgL_arg1534z00_1898; 
BgL_lenz00_1886 = BgL_lenz00_3703; 
BgL_resz00_1885 = BgL_resz00_3702; 
BgL_argsz00_1884 = BgL_argsz00_3701; 
goto BgL_loopz00_1883;} } } 
{ /* ./Eval/evmeaning.scm 347 */

BGl_za2currentzd2bcodeza2zd2zz__evmeaningz00 = BgL_expz00_1; 
if(
PROCEDUREP(BgL_funz00_618))
{ /* ./Eval/evmeaning.scm 357 */
bool_t BgL_test2351z00_1937;
{ /* ./Eval/evmeaning.scm 357 */
obj_t BgL_arg2358z00_1938;
BgL_arg2358z00_1938 = 
CAR(BgL_eargsz00_620); 
{ /* ./Eval/evmeaning.scm 357 */
int BgL_auxz00_3707;
BgL_auxz00_3707 = 
CINT(BgL_arg2358z00_1938); 
BgL_test2351z00_1937 = 
PROCEDURE_CORRECT_ARITYP(BgL_funz00_618, BgL_auxz00_3707); } } 
if(BgL_test2351z00_1937)
{ /* ./Eval/evmeaning.scm 357 */
{ /* ./Eval/evmeaning.scm 357 */
obj_t BgL_auxz00_3711;
BgL_auxz00_3711 = 
CDR(BgL_eargsz00_620); 
return 
eval_apply(BgL_funz00_618, BgL_auxz00_3711);} }  else 
{ /* ./Eval/evmeaning.scm 357 */
FAILURE(BGl_string3595z00zz__evmeaningz00,BGl_string3598z00zz__evmeaningz00,BgL_namez00_617);} }  else 
{ /* ./Eval/evmeaning.scm 357 */
FAILURE(BGl_string3600z00zz__evmeaningz00,BGl_string3599z00zz__evmeaningz00,BgL_namez00_617);} } } } } } } break;case ((long)62) : 

{ /* ./Eval/evmeaning.scm 359 */
obj_t BgL_valuez00_634;
{ 
int BgL_auxz00_3716;
BgL_auxz00_3716 = 
(int)(((long)2)); 
BgL_valuez00_634 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_3716); } 
{ /* ./Eval/evmeaning.scm 359 */
obj_t BgL_namez00_635;
{ 
int BgL_auxz00_3719;
BgL_auxz00_3719 = 
(int)(((long)0)); 
BgL_namez00_635 = 
VECTOR_REF(BgL_valuez00_634,BgL_auxz00_3719); } 
{ /* ./Eval/evmeaning.scm 360 */
obj_t BgL_funz00_636;
{ 
int BgL_auxz00_3726;obj_t BgL_auxz00_3722;
BgL_auxz00_3726 = 
(int)(((long)2)); 
{ 
int BgL_auxz00_3723;
BgL_auxz00_3723 = 
(int)(((long)1)); 
BgL_auxz00_3722 = 
VECTOR_REF(BgL_valuez00_634,BgL_auxz00_3723); } 
BgL_funz00_636 = 
VECTOR_REF(BgL_auxz00_3722,BgL_auxz00_3726); } 
{ /* ./Eval/evmeaning.scm 361 */
obj_t BgL_argsz00_637;
{ 
int BgL_auxz00_3729;
BgL_auxz00_3729 = 
(int)(((long)2)); 
BgL_argsz00_637 = 
VECTOR_REF(BgL_valuez00_634,BgL_auxz00_3729); } 
{ /* ./Eval/evmeaning.scm 362 */
obj_t BgL_eargsz00_638;
{ 
obj_t BgL_argsz00_1961;obj_t BgL_resz00_1962;long BgL_lenz00_1963;
BgL_argsz00_1961 = BgL_argsz00_637; 
BgL_resz00_1962 = BNIL; 
BgL_lenz00_1963 = ((long)0); 
BgL_loopz00_1960:
if(
NULLP(BgL_argsz00_1961))
{ /* ./Eval/evmeaning.scm 363 */
obj_t BgL_auxz00_3736;obj_t BgL_auxz00_3734;
BgL_auxz00_3736 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_resz00_1962); 
BgL_auxz00_3734 = 
BINT(BgL_lenz00_1963); 
BgL_eargsz00_638 = 
MAKE_PAIR(BgL_auxz00_3734, BgL_auxz00_3736); }  else 
{ /* ./Eval/evmeaning.scm 363 */
obj_t BgL_arg1564z00_1973;obj_t BgL_arg1565z00_1974;long BgL_arg1566z00_1975;
BgL_arg1564z00_1973 = 
CDR(BgL_argsz00_1961); 
{ /* ./Eval/evmeaning.scm 363 */
obj_t BgL_auxz00_3740;
BgL_auxz00_3740 = 
BGl_evmeaningz00zz__evmeaningz00(
CAR(BgL_argsz00_1961), BgL_stackz00_2); 
BgL_arg1565z00_1974 = 
MAKE_PAIR(BgL_auxz00_3740, BgL_resz00_1962); } 
BgL_arg1566z00_1975 = 
(BgL_lenz00_1963+((long)1)); 
{ 
long BgL_lenz00_3747;obj_t BgL_resz00_3746;obj_t BgL_argsz00_3745;
BgL_argsz00_3745 = BgL_arg1564z00_1973; 
BgL_resz00_3746 = BgL_arg1565z00_1974; 
BgL_lenz00_3747 = BgL_arg1566z00_1975; 
BgL_lenz00_1963 = BgL_lenz00_3747; 
BgL_resz00_1962 = BgL_resz00_3746; 
BgL_argsz00_1961 = BgL_argsz00_3745; 
goto BgL_loopz00_1960;} } } 
{ /* ./Eval/evmeaning.scm 363 */

BGl_za2currentzd2bcodeza2zd2zz__evmeaningz00 = BgL_expz00_1; 
if(
PROCEDUREP(BgL_funz00_636))
{ /* ./Eval/evmeaning.scm 373 */
bool_t BgL_test2351z00_2014;
{ /* ./Eval/evmeaning.scm 373 */
obj_t BgL_arg2358z00_2015;
BgL_arg2358z00_2015 = 
CAR(BgL_eargsz00_638); 
{ /* ./Eval/evmeaning.scm 373 */
int BgL_auxz00_3751;
BgL_auxz00_3751 = 
CINT(BgL_arg2358z00_2015); 
BgL_test2351z00_2014 = 
PROCEDURE_CORRECT_ARITYP(BgL_funz00_636, BgL_auxz00_3751); } } 
if(BgL_test2351z00_2014)
{ /* ./Eval/evmeaning.scm 373 */
{ /* ./Eval/evmeaning.scm 373 */
obj_t BgL_auxz00_3755;
BgL_auxz00_3755 = 
CDR(BgL_eargsz00_638); 
return 
eval_apply(BgL_funz00_636, BgL_auxz00_3755);} }  else 
{ /* ./Eval/evmeaning.scm 373 */
FAILURE(BGl_string3595z00zz__evmeaningz00,BGl_string3598z00zz__evmeaningz00,BgL_namez00_635);} }  else 
{ /* ./Eval/evmeaning.scm 373 */
FAILURE(BGl_string3600z00zz__evmeaningz00,BGl_string3599z00zz__evmeaningz00,BgL_namez00_635);} } } } } } } break;case ((long)25) : 

{ /* ./Eval/evmeaning.scm 376 */
obj_t BgL_fun1588z00_651;
{ 
int BgL_auxz00_3760;
BgL_auxz00_3760 = 
(int)(((long)2)); 
BgL_fun1588z00_651 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_3760); } 
return 
PROCEDURE_ENTRY(BgL_fun1588z00_651)(BgL_fun1588z00_651, BEOA);} break;case ((long)26) : 

{ /* ./Eval/evmeaning.scm 379 */
obj_t BgL_valuez00_652;
{ 
int BgL_auxz00_3765;
BgL_auxz00_3765 = 
(int)(((long)2)); 
BgL_valuez00_652 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_3765); } 
{ /* ./Eval/evmeaning.scm 379 */
obj_t BgL_funz00_653;
{ 
int BgL_auxz00_3768;
BgL_auxz00_3768 = 
(int)(((long)0)); 
BgL_funz00_653 = 
VECTOR_REF(BgL_valuez00_652,BgL_auxz00_3768); } 
{ /* ./Eval/evmeaning.scm 380 */

BGl_za2currentzd2bcodeza2zd2zz__evmeaningz00 = BgL_expz00_1; 
{ /* ./Eval/evmeaning.scm 382 */
obj_t BgL_arg1591z00_654;
{ /* ./Eval/evmeaning.scm 382 */
obj_t BgL_auxz00_3771;
{ 
int BgL_auxz00_3772;
BgL_auxz00_3772 = 
(int)(((long)1)); 
BgL_auxz00_3771 = 
VECTOR_REF(BgL_valuez00_652,BgL_auxz00_3772); } 
BgL_arg1591z00_654 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3771, BgL_stackz00_2); } 
return 
PROCEDURE_ENTRY(BgL_funz00_653)(BgL_funz00_653, BgL_arg1591z00_654, BEOA);} } } } break;case ((long)27) : 

{ /* ./Eval/evmeaning.scm 385 */
obj_t BgL_valuez00_656;
{ 
int BgL_auxz00_3778;
BgL_auxz00_3778 = 
(int)(((long)2)); 
BgL_valuez00_656 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_3778); } 
{ /* ./Eval/evmeaning.scm 385 */
obj_t BgL_funz00_657;
{ 
int BgL_auxz00_3781;
BgL_auxz00_3781 = 
(int)(((long)0)); 
BgL_funz00_657 = 
VECTOR_REF(BgL_valuez00_656,BgL_auxz00_3781); } 
{ /* ./Eval/evmeaning.scm 386 */
obj_t BgL_a0z00_658;
{ /* ./Eval/evmeaning.scm 387 */
obj_t BgL_auxz00_3784;
{ 
int BgL_auxz00_3785;
BgL_auxz00_3785 = 
(int)(((long)1)); 
BgL_auxz00_3784 = 
VECTOR_REF(BgL_valuez00_656,BgL_auxz00_3785); } 
BgL_a0z00_658 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3784, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 387 */
obj_t BgL_a1z00_659;
{ /* ./Eval/evmeaning.scm 388 */
obj_t BgL_auxz00_3789;
{ 
int BgL_auxz00_3790;
BgL_auxz00_3790 = 
(int)(((long)2)); 
BgL_auxz00_3789 = 
VECTOR_REF(BgL_valuez00_656,BgL_auxz00_3790); } 
BgL_a1z00_659 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3789, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 388 */

BGl_za2currentzd2bcodeza2zd2zz__evmeaningz00 = BgL_expz00_1; 
return 
PROCEDURE_ENTRY(BgL_funz00_657)(BgL_funz00_657, BgL_a0z00_658, BgL_a1z00_659, BEOA);} } } } } break;case ((long)28) : 

{ /* ./Eval/evmeaning.scm 393 */
obj_t BgL_valuez00_662;
{ 
int BgL_auxz00_3796;
BgL_auxz00_3796 = 
(int)(((long)2)); 
BgL_valuez00_662 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_3796); } 
{ /* ./Eval/evmeaning.scm 393 */
obj_t BgL_funz00_663;
{ 
int BgL_auxz00_3799;
BgL_auxz00_3799 = 
(int)(((long)0)); 
BgL_funz00_663 = 
VECTOR_REF(BgL_valuez00_662,BgL_auxz00_3799); } 
{ /* ./Eval/evmeaning.scm 394 */
obj_t BgL_a0z00_664;
{ /* ./Eval/evmeaning.scm 395 */
obj_t BgL_auxz00_3802;
{ 
int BgL_auxz00_3803;
BgL_auxz00_3803 = 
(int)(((long)1)); 
BgL_auxz00_3802 = 
VECTOR_REF(BgL_valuez00_662,BgL_auxz00_3803); } 
BgL_a0z00_664 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3802, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 395 */
obj_t BgL_a1z00_665;
{ /* ./Eval/evmeaning.scm 396 */
obj_t BgL_auxz00_3807;
{ 
int BgL_auxz00_3808;
BgL_auxz00_3808 = 
(int)(((long)2)); 
BgL_auxz00_3807 = 
VECTOR_REF(BgL_valuez00_662,BgL_auxz00_3808); } 
BgL_a1z00_665 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3807, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 396 */
obj_t BgL_a2z00_666;
{ /* ./Eval/evmeaning.scm 397 */
obj_t BgL_auxz00_3812;
{ 
int BgL_auxz00_3813;
BgL_auxz00_3813 = 
(int)(((long)3)); 
BgL_auxz00_3812 = 
VECTOR_REF(BgL_valuez00_662,BgL_auxz00_3813); } 
BgL_a2z00_666 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3812, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 397 */

BGl_za2currentzd2bcodeza2zd2zz__evmeaningz00 = BgL_expz00_1; 
return 
PROCEDURE_ENTRY(BgL_funz00_663)(BgL_funz00_663, BgL_a0z00_664, BgL_a1z00_665, BgL_a2z00_666, BEOA);} } } } } } break;case ((long)29) : 

{ /* ./Eval/evmeaning.scm 402 */
obj_t BgL_valuez00_670;
{ 
int BgL_auxz00_3819;
BgL_auxz00_3819 = 
(int)(((long)2)); 
BgL_valuez00_670 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_3819); } 
{ /* ./Eval/evmeaning.scm 402 */
obj_t BgL_funz00_671;
{ 
int BgL_auxz00_3822;
BgL_auxz00_3822 = 
(int)(((long)0)); 
BgL_funz00_671 = 
VECTOR_REF(BgL_valuez00_670,BgL_auxz00_3822); } 
{ /* ./Eval/evmeaning.scm 403 */
obj_t BgL_a0z00_672;
{ /* ./Eval/evmeaning.scm 404 */
obj_t BgL_auxz00_3825;
{ 
int BgL_auxz00_3826;
BgL_auxz00_3826 = 
(int)(((long)1)); 
BgL_auxz00_3825 = 
VECTOR_REF(BgL_valuez00_670,BgL_auxz00_3826); } 
BgL_a0z00_672 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3825, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 404 */
obj_t BgL_a1z00_673;
{ /* ./Eval/evmeaning.scm 405 */
obj_t BgL_auxz00_3830;
{ 
int BgL_auxz00_3831;
BgL_auxz00_3831 = 
(int)(((long)2)); 
BgL_auxz00_3830 = 
VECTOR_REF(BgL_valuez00_670,BgL_auxz00_3831); } 
BgL_a1z00_673 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3830, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 405 */
obj_t BgL_a2z00_674;
{ /* ./Eval/evmeaning.scm 406 */
obj_t BgL_auxz00_3835;
{ 
int BgL_auxz00_3836;
BgL_auxz00_3836 = 
(int)(((long)3)); 
BgL_auxz00_3835 = 
VECTOR_REF(BgL_valuez00_670,BgL_auxz00_3836); } 
BgL_a2z00_674 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3835, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 406 */
obj_t BgL_a3z00_675;
{ /* ./Eval/evmeaning.scm 407 */
obj_t BgL_auxz00_3840;
{ 
int BgL_auxz00_3841;
BgL_auxz00_3841 = 
(int)(((long)4)); 
BgL_auxz00_3840 = 
VECTOR_REF(BgL_valuez00_670,BgL_auxz00_3841); } 
BgL_a3z00_675 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3840, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 407 */

BGl_za2currentzd2bcodeza2zd2zz__evmeaningz00 = BgL_expz00_1; 
return 
PROCEDURE_ENTRY(BgL_funz00_671)(BgL_funz00_671, BgL_a0z00_672, BgL_a1z00_673, BgL_a2z00_674, BgL_a3z00_675, BEOA);} } } } } } } break;case ((long)30) : 

{ /* ./Eval/evmeaning.scm 412 */
obj_t BgL_valuez00_680;
{ 
int BgL_auxz00_3847;
BgL_auxz00_3847 = 
(int)(((long)2)); 
BgL_valuez00_680 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_3847); } 
{ /* ./Eval/evmeaning.scm 412 */
obj_t BgL_eargsz00_681;
{ /* ./Eval/evmeaning.scm 413 */
obj_t BgL_l1023z00_682;
BgL_l1023z00_682 = 
CDR(BgL_valuez00_680); 
if(
NULLP(BgL_l1023z00_682))
{ /* ./Eval/evmeaning.scm 413 */
BgL_eargsz00_681 = BNIL; }  else 
{ /* ./Eval/evmeaning.scm 413 */
obj_t BgL_head1025z00_684;
BgL_head1025z00_684 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1023z00_2071;obj_t BgL_tail1026z00_2072;
BgL_l1023z00_2071 = BgL_l1023z00_682; 
BgL_tail1026z00_2072 = BgL_head1025z00_684; 
BgL_map1024z00_2070:
if(
NULLP(BgL_l1023z00_2071))
{ /* ./Eval/evmeaning.scm 413 */
BgL_eargsz00_681 = 
CDR(BgL_head1025z00_684); }  else 
{ /* ./Eval/evmeaning.scm 413 */
obj_t BgL_newtail1027z00_2080;
{ /* ./Eval/evmeaning.scm 413 */
obj_t BgL_auxz00_3857;
BgL_auxz00_3857 = 
BGl_evmeaningz00zz__evmeaningz00(
CAR(BgL_l1023z00_2071), BgL_stackz00_2); 
BgL_newtail1027z00_2080 = 
MAKE_PAIR(BgL_auxz00_3857, BNIL); } 
SET_CDR(BgL_tail1026z00_2072, BgL_newtail1027z00_2080); 
{ 
obj_t BgL_tail1026z00_3864;obj_t BgL_l1023z00_3862;
BgL_l1023z00_3862 = 
CDR(BgL_l1023z00_2071); 
BgL_tail1026z00_3864 = BgL_newtail1027z00_2080; 
BgL_tail1026z00_2072 = BgL_tail1026z00_3864; 
BgL_l1023z00_2071 = BgL_l1023z00_3862; 
goto BgL_map1024z00_2070;} } } } } 
{ /* ./Eval/evmeaning.scm 413 */

BGl_za2currentzd2bcodeza2zd2zz__evmeaningz00 = BgL_expz00_1; 
{ /* ./Eval/evmeaning.scm 417 */
obj_t BgL_funz00_2905;
BgL_funz00_2905 = 
CAR(BgL_valuez00_680); 
return 
apply(BgL_funz00_2905, BgL_eargsz00_681);} } } } break;case ((long)31) : 

{ /* ./Eval/evmeaning.scm 420 */
obj_t BgL_valuez00_694;
{ 
int BgL_auxz00_3868;
BgL_auxz00_3868 = 
(int)(((long)2)); 
BgL_valuez00_694 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_3868); } 
{ /* ./Eval/evmeaning.scm 420 */
obj_t BgL_namez00_695;
BgL_namez00_695 = 
CAR(BgL_valuez00_694); 
{ /* ./Eval/evmeaning.scm 421 */
obj_t BgL_funz00_696;
BgL_funz00_696 = 
BGl_evmeaningz00zz__evmeaningz00(
CDR(BgL_valuez00_694), BgL_stackz00_2); 
{ /* ./Eval/evmeaning.scm 422 */

if(
PROCEDUREP(BgL_funz00_696))
{ /* ./Eval/evmeaning.scm 423 */
bool_t BgL_testz00_3876;
{ /* ./Eval/evmeaning.scm 423 */
int BgL_auxz00_3877;
BgL_auxz00_3877 = 
(int)(((long)0)); 
BgL_testz00_3876 = 
PROCEDURE_CORRECT_ARITYP(BgL_funz00_696, BgL_auxz00_3877); } 
if(BgL_testz00_3876)
{ /* ./Eval/evmeaning.scm 423 */
return 
eval_funcall_0(BgL_funz00_696);}  else 
{ /* ./Eval/evmeaning.scm 423 */
FAILURE(BGl_string3595z00zz__evmeaningz00,BGl_string3598z00zz__evmeaningz00,BgL_namez00_695);} }  else 
{ /* ./Eval/evmeaning.scm 423 */
FAILURE(BGl_string3595z00zz__evmeaningz00,BGl_string3599z00zz__evmeaningz00,BgL_namez00_695);} } } } } break;case ((long)32) : 

{ /* ./Eval/evmeaning.scm 426 */
obj_t BgL_valuez00_698;
{ 
int BgL_auxz00_3883;
BgL_auxz00_3883 = 
(int)(((long)2)); 
BgL_valuez00_698 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_3883); } 
{ /* ./Eval/evmeaning.scm 426 */
obj_t BgL_namez00_699;
{ 
int BgL_auxz00_3886;
BgL_auxz00_3886 = 
(int)(((long)0)); 
BgL_namez00_699 = 
VECTOR_REF(BgL_valuez00_698,BgL_auxz00_3886); } 
{ /* ./Eval/evmeaning.scm 427 */
obj_t BgL_funz00_700;
{ /* ./Eval/evmeaning.scm 428 */
obj_t BgL_auxz00_3889;
{ 
int BgL_auxz00_3890;
BgL_auxz00_3890 = 
(int)(((long)1)); 
BgL_auxz00_3889 = 
VECTOR_REF(BgL_valuez00_698,BgL_auxz00_3890); } 
BgL_funz00_700 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3889, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 428 */
obj_t BgL_a0z00_701;
{ /* ./Eval/evmeaning.scm 429 */
obj_t BgL_auxz00_3894;
{ 
int BgL_auxz00_3895;
BgL_auxz00_3895 = 
(int)(((long)2)); 
BgL_auxz00_3894 = 
VECTOR_REF(BgL_valuez00_698,BgL_auxz00_3895); } 
BgL_a0z00_701 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3894, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 429 */

BGl_za2currentzd2bcodeza2zd2zz__evmeaningz00 = BgL_expz00_1; 
if(
PROCEDUREP(BgL_funz00_700))
{ /* ./Eval/evmeaning.scm 431 */
bool_t BgL_testz00_3901;
{ /* ./Eval/evmeaning.scm 431 */
int BgL_auxz00_3902;
BgL_auxz00_3902 = 
(int)(((long)1)); 
BgL_testz00_3901 = 
PROCEDURE_CORRECT_ARITYP(BgL_funz00_700, BgL_auxz00_3902); } 
if(BgL_testz00_3901)
{ /* ./Eval/evmeaning.scm 431 */
return 
eval_funcall_1(BgL_funz00_700, BgL_a0z00_701);}  else 
{ /* ./Eval/evmeaning.scm 431 */
FAILURE(BGl_string3595z00zz__evmeaningz00,BGl_string3598z00zz__evmeaningz00,BgL_namez00_699);} }  else 
{ /* ./Eval/evmeaning.scm 431 */
FAILURE(BGl_string3595z00zz__evmeaningz00,BGl_string3599z00zz__evmeaningz00,BgL_namez00_699);} } } } } } break;case ((long)33) : 

{ /* ./Eval/evmeaning.scm 434 */
obj_t BgL_valuez00_704;
{ 
int BgL_auxz00_3908;
BgL_auxz00_3908 = 
(int)(((long)2)); 
BgL_valuez00_704 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_3908); } 
{ /* ./Eval/evmeaning.scm 434 */
obj_t BgL_namez00_705;
{ 
int BgL_auxz00_3911;
BgL_auxz00_3911 = 
(int)(((long)0)); 
BgL_namez00_705 = 
VECTOR_REF(BgL_valuez00_704,BgL_auxz00_3911); } 
{ /* ./Eval/evmeaning.scm 435 */
obj_t BgL_funz00_706;
{ /* ./Eval/evmeaning.scm 436 */
obj_t BgL_auxz00_3914;
{ 
int BgL_auxz00_3915;
BgL_auxz00_3915 = 
(int)(((long)1)); 
BgL_auxz00_3914 = 
VECTOR_REF(BgL_valuez00_704,BgL_auxz00_3915); } 
BgL_funz00_706 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3914, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 436 */
obj_t BgL_a0z00_707;
{ /* ./Eval/evmeaning.scm 437 */
obj_t BgL_auxz00_3919;
{ 
int BgL_auxz00_3920;
BgL_auxz00_3920 = 
(int)(((long)2)); 
BgL_auxz00_3919 = 
VECTOR_REF(BgL_valuez00_704,BgL_auxz00_3920); } 
BgL_a0z00_707 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3919, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 437 */
obj_t BgL_a1z00_708;
{ /* ./Eval/evmeaning.scm 438 */
obj_t BgL_auxz00_3924;
{ 
int BgL_auxz00_3925;
BgL_auxz00_3925 = 
(int)(((long)3)); 
BgL_auxz00_3924 = 
VECTOR_REF(BgL_valuez00_704,BgL_auxz00_3925); } 
BgL_a1z00_708 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3924, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 438 */

BGl_za2currentzd2bcodeza2zd2zz__evmeaningz00 = BgL_expz00_1; 
if(
PROCEDUREP(BgL_funz00_706))
{ /* ./Eval/evmeaning.scm 440 */
bool_t BgL_testz00_3931;
{ /* ./Eval/evmeaning.scm 440 */
int BgL_auxz00_3932;
BgL_auxz00_3932 = 
(int)(((long)2)); 
BgL_testz00_3931 = 
PROCEDURE_CORRECT_ARITYP(BgL_funz00_706, BgL_auxz00_3932); } 
if(BgL_testz00_3931)
{ /* ./Eval/evmeaning.scm 440 */
return 
eval_funcall_2(BgL_funz00_706, BgL_a0z00_707, BgL_a1z00_708);}  else 
{ /* ./Eval/evmeaning.scm 440 */
FAILURE(BGl_string3595z00zz__evmeaningz00,BGl_string3598z00zz__evmeaningz00,BgL_namez00_705);} }  else 
{ /* ./Eval/evmeaning.scm 440 */
FAILURE(BGl_string3595z00zz__evmeaningz00,BGl_string3599z00zz__evmeaningz00,BgL_namez00_705);} } } } } } } break;case ((long)34) : 

{ /* ./Eval/evmeaning.scm 443 */
obj_t BgL_valuez00_712;
{ 
int BgL_auxz00_3938;
BgL_auxz00_3938 = 
(int)(((long)2)); 
BgL_valuez00_712 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_3938); } 
{ /* ./Eval/evmeaning.scm 443 */
obj_t BgL_namez00_713;
{ 
int BgL_auxz00_3941;
BgL_auxz00_3941 = 
(int)(((long)0)); 
BgL_namez00_713 = 
VECTOR_REF(BgL_valuez00_712,BgL_auxz00_3941); } 
{ /* ./Eval/evmeaning.scm 444 */
obj_t BgL_funz00_714;
{ /* ./Eval/evmeaning.scm 445 */
obj_t BgL_auxz00_3944;
{ 
int BgL_auxz00_3945;
BgL_auxz00_3945 = 
(int)(((long)1)); 
BgL_auxz00_3944 = 
VECTOR_REF(BgL_valuez00_712,BgL_auxz00_3945); } 
BgL_funz00_714 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3944, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 445 */
obj_t BgL_a0z00_715;
{ /* ./Eval/evmeaning.scm 446 */
obj_t BgL_auxz00_3949;
{ 
int BgL_auxz00_3950;
BgL_auxz00_3950 = 
(int)(((long)2)); 
BgL_auxz00_3949 = 
VECTOR_REF(BgL_valuez00_712,BgL_auxz00_3950); } 
BgL_a0z00_715 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3949, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 446 */
obj_t BgL_a1z00_716;
{ /* ./Eval/evmeaning.scm 447 */
obj_t BgL_auxz00_3954;
{ 
int BgL_auxz00_3955;
BgL_auxz00_3955 = 
(int)(((long)3)); 
BgL_auxz00_3954 = 
VECTOR_REF(BgL_valuez00_712,BgL_auxz00_3955); } 
BgL_a1z00_716 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3954, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 447 */
obj_t BgL_a2z00_717;
{ /* ./Eval/evmeaning.scm 448 */
obj_t BgL_auxz00_3959;
{ 
int BgL_auxz00_3960;
BgL_auxz00_3960 = 
(int)(((long)4)); 
BgL_auxz00_3959 = 
VECTOR_REF(BgL_valuez00_712,BgL_auxz00_3960); } 
BgL_a2z00_717 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3959, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 448 */

BGl_za2currentzd2bcodeza2zd2zz__evmeaningz00 = BgL_expz00_1; 
if(
PROCEDUREP(BgL_funz00_714))
{ /* ./Eval/evmeaning.scm 450 */
bool_t BgL_testz00_3966;
{ /* ./Eval/evmeaning.scm 450 */
int BgL_auxz00_3967;
BgL_auxz00_3967 = 
(int)(((long)3)); 
BgL_testz00_3966 = 
PROCEDURE_CORRECT_ARITYP(BgL_funz00_714, BgL_auxz00_3967); } 
if(BgL_testz00_3966)
{ /* ./Eval/evmeaning.scm 450 */
return 
eval_funcall_3(BgL_funz00_714, BgL_a0z00_715, BgL_a1z00_716, BgL_a2z00_717);}  else 
{ /* ./Eval/evmeaning.scm 450 */
FAILURE(BGl_string3595z00zz__evmeaningz00,BGl_string3598z00zz__evmeaningz00,BgL_namez00_713);} }  else 
{ /* ./Eval/evmeaning.scm 450 */
FAILURE(BGl_string3595z00zz__evmeaningz00,BGl_string3599z00zz__evmeaningz00,BgL_namez00_713);} } } } } } } } break;case ((long)35) : 

{ /* ./Eval/evmeaning.scm 453 */
obj_t BgL_valuez00_722;
{ 
int BgL_auxz00_3973;
BgL_auxz00_3973 = 
(int)(((long)2)); 
BgL_valuez00_722 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_3973); } 
{ /* ./Eval/evmeaning.scm 453 */
obj_t BgL_namez00_723;
{ 
int BgL_auxz00_3976;
BgL_auxz00_3976 = 
(int)(((long)0)); 
BgL_namez00_723 = 
VECTOR_REF(BgL_valuez00_722,BgL_auxz00_3976); } 
{ /* ./Eval/evmeaning.scm 454 */
obj_t BgL_funz00_724;
{ /* ./Eval/evmeaning.scm 455 */
obj_t BgL_auxz00_3979;
{ 
int BgL_auxz00_3980;
BgL_auxz00_3980 = 
(int)(((long)1)); 
BgL_auxz00_3979 = 
VECTOR_REF(BgL_valuez00_722,BgL_auxz00_3980); } 
BgL_funz00_724 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3979, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 455 */
obj_t BgL_a0z00_725;
{ /* ./Eval/evmeaning.scm 456 */
obj_t BgL_auxz00_3984;
{ 
int BgL_auxz00_3985;
BgL_auxz00_3985 = 
(int)(((long)2)); 
BgL_auxz00_3984 = 
VECTOR_REF(BgL_valuez00_722,BgL_auxz00_3985); } 
BgL_a0z00_725 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3984, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 456 */
obj_t BgL_a1z00_726;
{ /* ./Eval/evmeaning.scm 457 */
obj_t BgL_auxz00_3989;
{ 
int BgL_auxz00_3990;
BgL_auxz00_3990 = 
(int)(((long)3)); 
BgL_auxz00_3989 = 
VECTOR_REF(BgL_valuez00_722,BgL_auxz00_3990); } 
BgL_a1z00_726 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3989, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 457 */
obj_t BgL_a2z00_727;
{ /* ./Eval/evmeaning.scm 458 */
obj_t BgL_auxz00_3994;
{ 
int BgL_auxz00_3995;
BgL_auxz00_3995 = 
(int)(((long)4)); 
BgL_auxz00_3994 = 
VECTOR_REF(BgL_valuez00_722,BgL_auxz00_3995); } 
BgL_a2z00_727 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3994, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 458 */
obj_t BgL_a3z00_728;
{ /* ./Eval/evmeaning.scm 459 */
obj_t BgL_auxz00_3999;
{ 
int BgL_auxz00_4000;
BgL_auxz00_4000 = 
(int)(((long)5)); 
BgL_auxz00_3999 = 
VECTOR_REF(BgL_valuez00_722,BgL_auxz00_4000); } 
BgL_a3z00_728 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_3999, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 459 */

BGl_za2currentzd2bcodeza2zd2zz__evmeaningz00 = BgL_expz00_1; 
if(
PROCEDUREP(BgL_funz00_724))
{ /* ./Eval/evmeaning.scm 461 */
bool_t BgL_testz00_4006;
{ /* ./Eval/evmeaning.scm 461 */
int BgL_auxz00_4007;
BgL_auxz00_4007 = 
(int)(((long)4)); 
BgL_testz00_4006 = 
PROCEDURE_CORRECT_ARITYP(BgL_funz00_724, BgL_auxz00_4007); } 
if(BgL_testz00_4006)
{ /* ./Eval/evmeaning.scm 461 */
return 
eval_funcall_4(BgL_funz00_724, BgL_a0z00_725, BgL_a1z00_726, BgL_a2z00_727, BgL_a3z00_728);}  else 
{ /* ./Eval/evmeaning.scm 461 */
FAILURE(BGl_string3595z00zz__evmeaningz00,BGl_string3598z00zz__evmeaningz00,BgL_namez00_723);} }  else 
{ /* ./Eval/evmeaning.scm 461 */
FAILURE(BGl_string3595z00zz__evmeaningz00,BGl_string3599z00zz__evmeaningz00,BgL_namez00_723);} } } } } } } } } break;case ((long)36) : 

{ /* ./Eval/evmeaning.scm 464 */
obj_t BgL_valuez00_734;
{ 
int BgL_auxz00_4013;
BgL_auxz00_4013 = 
(int)(((long)2)); 
BgL_valuez00_734 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_4013); } 
{ /* ./Eval/evmeaning.scm 464 */
obj_t BgL_namez00_735;
{ 
int BgL_auxz00_4016;
BgL_auxz00_4016 = 
(int)(((long)0)); 
BgL_namez00_735 = 
VECTOR_REF(BgL_valuez00_734,BgL_auxz00_4016); } 
{ /* ./Eval/evmeaning.scm 465 */
obj_t BgL_funz00_736;
{ /* ./Eval/evmeaning.scm 466 */
obj_t BgL_auxz00_4019;
{ 
int BgL_auxz00_4020;
BgL_auxz00_4020 = 
(int)(((long)1)); 
BgL_auxz00_4019 = 
VECTOR_REF(BgL_valuez00_734,BgL_auxz00_4020); } 
BgL_funz00_736 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_4019, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 466 */
obj_t BgL_eargsz00_737;
{ /* ./Eval/evmeaning.scm 467 */
obj_t BgL_arg1743z00_742;
{ 
int BgL_auxz00_4024;
BgL_auxz00_4024 = 
(int)(((long)2)); 
BgL_arg1743z00_742 = 
VECTOR_REF(BgL_valuez00_734,BgL_auxz00_4024); } 
{ 
obj_t BgL_argsz00_2246;obj_t BgL_newz00_2247;long BgL_lenz00_2248;
BgL_argsz00_2246 = BgL_arg1743z00_742; 
BgL_newz00_2247 = BNIL; 
BgL_lenz00_2248 = ((long)0); 
BgL_loopz00_2245:
if(
NULLP(BgL_argsz00_2246))
{ /* ./Eval/evmeaning.scm 467 */
obj_t BgL_auxz00_4031;obj_t BgL_auxz00_4029;
BgL_auxz00_4031 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_newz00_2247); 
BgL_auxz00_4029 = 
BINT(BgL_lenz00_2248); 
BgL_eargsz00_737 = 
MAKE_PAIR(BgL_auxz00_4029, BgL_auxz00_4031); }  else 
{ /* ./Eval/evmeaning.scm 467 */
obj_t BgL_arg1755z00_2258;obj_t BgL_arg1756z00_2259;long BgL_arg1757z00_2260;
BgL_arg1755z00_2258 = 
CDR(BgL_argsz00_2246); 
{ /* ./Eval/evmeaning.scm 467 */
obj_t BgL_auxz00_4035;
BgL_auxz00_4035 = 
BGl_evmeaningz00zz__evmeaningz00(
CAR(BgL_argsz00_2246), BgL_stackz00_2); 
BgL_arg1756z00_2259 = 
MAKE_PAIR(BgL_auxz00_4035, BgL_newz00_2247); } 
BgL_arg1757z00_2260 = 
(((long)1)+BgL_lenz00_2248); 
{ 
long BgL_lenz00_4042;obj_t BgL_newz00_4041;obj_t BgL_argsz00_4040;
BgL_argsz00_4040 = BgL_arg1755z00_2258; 
BgL_newz00_4041 = BgL_arg1756z00_2259; 
BgL_lenz00_4042 = BgL_arg1757z00_2260; 
BgL_lenz00_2248 = BgL_lenz00_4042; 
BgL_newz00_2247 = BgL_newz00_4041; 
BgL_argsz00_2246 = BgL_argsz00_4040; 
goto BgL_loopz00_2245;} } } } 
{ /* ./Eval/evmeaning.scm 467 */

BGl_za2currentzd2bcodeza2zd2zz__evmeaningz00 = BgL_expz00_1; 
if(
PROCEDUREP(BgL_funz00_736))
{ /* ./Eval/evmeaning.scm 477 */
bool_t BgL_test2351z00_2299;
{ /* ./Eval/evmeaning.scm 477 */
obj_t BgL_arg2358z00_2300;
BgL_arg2358z00_2300 = 
CAR(BgL_eargsz00_737); 
{ /* ./Eval/evmeaning.scm 477 */
int BgL_auxz00_4046;
BgL_auxz00_4046 = 
CINT(BgL_arg2358z00_2300); 
BgL_test2351z00_2299 = 
PROCEDURE_CORRECT_ARITYP(BgL_funz00_736, BgL_auxz00_4046); } } 
if(BgL_test2351z00_2299)
{ /* ./Eval/evmeaning.scm 477 */
{ /* ./Eval/evmeaning.scm 477 */
obj_t BgL_auxz00_4050;
BgL_auxz00_4050 = 
CDR(BgL_eargsz00_737); 
return 
eval_apply(BgL_funz00_736, BgL_auxz00_4050);} }  else 
{ /* ./Eval/evmeaning.scm 477 */
FAILURE(BGl_string3595z00zz__evmeaningz00,BGl_string3598z00zz__evmeaningz00,BgL_namez00_735);} }  else 
{ /* ./Eval/evmeaning.scm 477 */
FAILURE(BGl_string3600z00zz__evmeaningz00,BGl_string3599z00zz__evmeaningz00,BgL_namez00_735);} } } } } } break;case ((long)37) : 

{ /* ./Eval/evmeaning.scm 480 */
obj_t BgL_valuez00_753;
{ 
int BgL_auxz00_4055;
BgL_auxz00_4055 = 
(int)(((long)2)); 
BgL_valuez00_753 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_4055); } 
{ /* ./Eval/evmeaning.scm 480 */
obj_t BgL_wherez00_754;
BgL_wherez00_754 = 
CAR(BgL_valuez00_753); 
{ /* ./Eval/evmeaning.scm 481 */
obj_t BgL_bodyz00_755;
BgL_bodyz00_755 = 
CDR(BgL_valuez00_753); 
{ /* ./Eval/evmeaning.scm 482 */

{ /* ./Eval/evmeaning.scm 483 */
obj_t BgL_zc3anonymousza31777ze3z83_2759;
{ 
int BgL_auxz00_4062;int BgL_auxz00_4060;
BgL_auxz00_4062 = 
(int)(((long)3)); 
BgL_auxz00_4060 = 
(int)(((long)0)); 
BgL_zc3anonymousza31777ze3z83_2759 = 
make_fx_procedure(BGl_zc3anonymousza31777ze3z83zz__evmeaningz00, BgL_auxz00_4060, BgL_auxz00_4062); } 
{ /* ./Eval/evmeaning.scm 483 */
int BgL_auxz00_4065;
BgL_auxz00_4065 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31777ze3z83_2759, BgL_auxz00_4065, BgL_wherez00_754); } 
{ /* ./Eval/evmeaning.scm 483 */
int BgL_auxz00_4068;
BgL_auxz00_4068 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31777ze3z83_2759, BgL_auxz00_4068, BgL_bodyz00_755); } 
{ /* ./Eval/evmeaning.scm 483 */
int BgL_auxz00_4071;
BgL_auxz00_4071 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31777ze3z83_2759, BgL_auxz00_4071, BgL_stackz00_2); } 
return BgL_zc3anonymousza31777ze3z83_2759;} } } } } break;case ((long)38) : 

{ /* ./Eval/evmeaning.scm 500 */
obj_t BgL_valuez00_759;
{ 
int BgL_auxz00_4074;
BgL_auxz00_4074 = 
(int)(((long)2)); 
BgL_valuez00_759 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_4074); } 
{ /* ./Eval/evmeaning.scm 500 */
obj_t BgL_wherez00_760;
BgL_wherez00_760 = 
CAR(BgL_valuez00_759); 
{ /* ./Eval/evmeaning.scm 501 */
obj_t BgL_bodyz00_761;
BgL_bodyz00_761 = 
CDR(BgL_valuez00_759); 
{ /* ./Eval/evmeaning.scm 502 */

{ /* ./Eval/evmeaning.scm 503 */
obj_t BgL_zc3anonymousza31784ze3z83_2758;
{ 
int BgL_auxz00_4081;int BgL_auxz00_4079;
BgL_auxz00_4081 = 
(int)(((long)3)); 
BgL_auxz00_4079 = 
(int)(((long)1)); 
BgL_zc3anonymousza31784ze3z83_2758 = 
make_fx_procedure(BGl_zc3anonymousza31784ze3z83zz__evmeaningz00, BgL_auxz00_4079, BgL_auxz00_4081); } 
{ /* ./Eval/evmeaning.scm 503 */
int BgL_auxz00_4084;
BgL_auxz00_4084 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31784ze3z83_2758, BgL_auxz00_4084, BgL_wherez00_760); } 
{ /* ./Eval/evmeaning.scm 503 */
int BgL_auxz00_4087;
BgL_auxz00_4087 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31784ze3z83_2758, BgL_auxz00_4087, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 503 */
int BgL_auxz00_4090;
BgL_auxz00_4090 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31784ze3z83_2758, BgL_auxz00_4090, BgL_bodyz00_761); } 
return BgL_zc3anonymousza31784ze3z83_2758;} } } } } break;case ((long)39) : 

{ /* ./Eval/evmeaning.scm 513 */
obj_t BgL_valuez00_767;
{ 
int BgL_auxz00_4093;
BgL_auxz00_4093 = 
(int)(((long)2)); 
BgL_valuez00_767 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_4093); } 
{ /* ./Eval/evmeaning.scm 513 */
obj_t BgL_wherez00_768;
BgL_wherez00_768 = 
CAR(BgL_valuez00_767); 
{ /* ./Eval/evmeaning.scm 514 */
obj_t BgL_bodyz00_769;
BgL_bodyz00_769 = 
CDR(BgL_valuez00_767); 
{ /* ./Eval/evmeaning.scm 515 */

{ /* ./Eval/evmeaning.scm 516 */
obj_t BgL_zc3anonymousza31794ze3z83_2757;
{ 
int BgL_auxz00_4100;int BgL_auxz00_4098;
BgL_auxz00_4100 = 
(int)(((long)3)); 
BgL_auxz00_4098 = 
(int)(((long)2)); 
BgL_zc3anonymousza31794ze3z83_2757 = 
make_fx_procedure(BGl_zc3anonymousza31794ze3z83zz__evmeaningz00, BgL_auxz00_4098, BgL_auxz00_4100); } 
{ /* ./Eval/evmeaning.scm 516 */
int BgL_auxz00_4103;
BgL_auxz00_4103 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31794ze3z83_2757, BgL_auxz00_4103, BgL_wherez00_768); } 
{ /* ./Eval/evmeaning.scm 516 */
int BgL_auxz00_4106;
BgL_auxz00_4106 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31794ze3z83_2757, BgL_auxz00_4106, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 516 */
int BgL_auxz00_4109;
BgL_auxz00_4109 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31794ze3z83_2757, BgL_auxz00_4109, BgL_bodyz00_769); } 
return BgL_zc3anonymousza31794ze3z83_2757;} } } } } break;case ((long)40) : 

{ /* ./Eval/evmeaning.scm 526 */
obj_t BgL_valuez00_777;
{ 
int BgL_auxz00_4112;
BgL_auxz00_4112 = 
(int)(((long)2)); 
BgL_valuez00_777 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_4112); } 
{ /* ./Eval/evmeaning.scm 526 */
obj_t BgL_wherez00_778;
BgL_wherez00_778 = 
CAR(BgL_valuez00_777); 
{ /* ./Eval/evmeaning.scm 527 */
obj_t BgL_bodyz00_779;
BgL_bodyz00_779 = 
CDR(BgL_valuez00_777); 
{ /* ./Eval/evmeaning.scm 528 */

{ /* ./Eval/evmeaning.scm 529 */
obj_t BgL_zc3anonymousza31807ze3z83_2756;
{ 
int BgL_auxz00_4119;int BgL_auxz00_4117;
BgL_auxz00_4119 = 
(int)(((long)3)); 
BgL_auxz00_4117 = 
(int)(((long)3)); 
BgL_zc3anonymousza31807ze3z83_2756 = 
make_fx_procedure(BGl_zc3anonymousza31807ze3z83zz__evmeaningz00, BgL_auxz00_4117, BgL_auxz00_4119); } 
{ /* ./Eval/evmeaning.scm 529 */
int BgL_auxz00_4122;
BgL_auxz00_4122 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31807ze3z83_2756, BgL_auxz00_4122, BgL_wherez00_778); } 
{ /* ./Eval/evmeaning.scm 529 */
int BgL_auxz00_4125;
BgL_auxz00_4125 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31807ze3z83_2756, BgL_auxz00_4125, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 529 */
int BgL_auxz00_4128;
BgL_auxz00_4128 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31807ze3z83_2756, BgL_auxz00_4128, BgL_bodyz00_779); } 
return BgL_zc3anonymousza31807ze3z83_2756;} } } } } break;case ((long)41) : 

{ /* ./Eval/evmeaning.scm 542 */
obj_t BgL_valuez00_789;
{ 
int BgL_auxz00_4131;
BgL_auxz00_4131 = 
(int)(((long)2)); 
BgL_valuez00_789 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_4131); } 
{ /* ./Eval/evmeaning.scm 542 */
obj_t BgL_wherez00_790;
BgL_wherez00_790 = 
CAR(BgL_valuez00_789); 
{ /* ./Eval/evmeaning.scm 543 */
obj_t BgL_bodyz00_791;
BgL_bodyz00_791 = 
CDR(BgL_valuez00_789); 
{ /* ./Eval/evmeaning.scm 544 */

{ /* ./Eval/evmeaning.scm 545 */
obj_t BgL_zc3anonymousza31824ze3z83_2755;
{ 
int BgL_auxz00_4138;int BgL_auxz00_4136;
BgL_auxz00_4138 = 
(int)(((long)3)); 
BgL_auxz00_4136 = 
(int)(((long)4)); 
BgL_zc3anonymousza31824ze3z83_2755 = 
make_fx_procedure(BGl_zc3anonymousza31824ze3z83zz__evmeaningz00, BgL_auxz00_4136, BgL_auxz00_4138); } 
{ /* ./Eval/evmeaning.scm 545 */
int BgL_auxz00_4141;
BgL_auxz00_4141 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31824ze3z83_2755, BgL_auxz00_4141, BgL_wherez00_790); } 
{ /* ./Eval/evmeaning.scm 545 */
int BgL_auxz00_4144;
BgL_auxz00_4144 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31824ze3z83_2755, BgL_auxz00_4144, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 545 */
int BgL_auxz00_4147;
BgL_auxz00_4147 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31824ze3z83_2755, BgL_auxz00_4147, BgL_bodyz00_791); } 
return BgL_zc3anonymousza31824ze3z83_2755;} } } } } break;case ((long)42) : 

{ /* ./Eval/evmeaning.scm 561 */
obj_t BgL_zc3anonymousza31845ze3z83_2754;
{ 
int BgL_auxz00_4152;int BgL_auxz00_4150;
BgL_auxz00_4152 = 
(int)(((long)2)); 
BgL_auxz00_4150 = 
(int)(((long)0)); 
BgL_zc3anonymousza31845ze3z83_2754 = 
make_fx_procedure(BGl_zc3anonymousza31845ze3z83zz__evmeaningz00, BgL_auxz00_4150, BgL_auxz00_4152); } 
{ /* ./Eval/evmeaning.scm 561 */
int BgL_auxz00_4155;
BgL_auxz00_4155 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31845ze3z83_2754, BgL_auxz00_4155, BgL_expz00_1); } 
{ /* ./Eval/evmeaning.scm 561 */
int BgL_auxz00_4158;
BgL_auxz00_4158 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31845ze3z83_2754, BgL_auxz00_4158, BgL_stackz00_2); } 
return BgL_zc3anonymousza31845ze3z83_2754;} break;case ((long)43) : 

{ /* ./Eval/evmeaning.scm 566 */
obj_t BgL_zc3anonymousza31850ze3z83_2753;
{ 
int BgL_auxz00_4163;int BgL_auxz00_4161;
BgL_auxz00_4163 = 
(int)(((long)2)); 
BgL_auxz00_4161 = 
(int)(((long)1)); 
BgL_zc3anonymousza31850ze3z83_2753 = 
make_fx_procedure(BGl_zc3anonymousza31850ze3z83zz__evmeaningz00, BgL_auxz00_4161, BgL_auxz00_4163); } 
{ /* ./Eval/evmeaning.scm 566 */
int BgL_auxz00_4166;
BgL_auxz00_4166 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31850ze3z83_2753, BgL_auxz00_4166, BgL_expz00_1); } 
{ /* ./Eval/evmeaning.scm 566 */
int BgL_auxz00_4169;
BgL_auxz00_4169 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31850ze3z83_2753, BgL_auxz00_4169, BgL_stackz00_2); } 
return BgL_zc3anonymousza31850ze3z83_2753;} break;case ((long)44) : 

{ /* ./Eval/evmeaning.scm 571 */
obj_t BgL_zc3anonymousza31857ze3z83_2752;
{ 
int BgL_auxz00_4174;int BgL_auxz00_4172;
BgL_auxz00_4174 = 
(int)(((long)2)); 
BgL_auxz00_4172 = 
(int)(((long)2)); 
BgL_zc3anonymousza31857ze3z83_2752 = 
make_fx_procedure(BGl_zc3anonymousza31857ze3z83zz__evmeaningz00, BgL_auxz00_4172, BgL_auxz00_4174); } 
{ /* ./Eval/evmeaning.scm 571 */
int BgL_auxz00_4177;
BgL_auxz00_4177 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31857ze3z83_2752, BgL_auxz00_4177, BgL_expz00_1); } 
{ /* ./Eval/evmeaning.scm 571 */
int BgL_auxz00_4180;
BgL_auxz00_4180 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31857ze3z83_2752, BgL_auxz00_4180, BgL_stackz00_2); } 
return BgL_zc3anonymousza31857ze3z83_2752;} break;case ((long)45) : 

{ /* ./Eval/evmeaning.scm 576 */
obj_t BgL_zc3anonymousza31868ze3z83_2751;
{ 
int BgL_auxz00_4185;int BgL_auxz00_4183;
BgL_auxz00_4185 = 
(int)(((long)2)); 
BgL_auxz00_4183 = 
(int)(((long)3)); 
BgL_zc3anonymousza31868ze3z83_2751 = 
make_fx_procedure(BGl_zc3anonymousza31868ze3z83zz__evmeaningz00, BgL_auxz00_4183, BgL_auxz00_4185); } 
{ /* ./Eval/evmeaning.scm 576 */
int BgL_auxz00_4188;
BgL_auxz00_4188 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31868ze3z83_2751, BgL_auxz00_4188, BgL_expz00_1); } 
{ /* ./Eval/evmeaning.scm 576 */
int BgL_auxz00_4191;
BgL_auxz00_4191 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31868ze3z83_2751, BgL_auxz00_4191, BgL_stackz00_2); } 
return BgL_zc3anonymousza31868ze3z83_2751;} break;case ((long)46) : 

{ /* ./Eval/evmeaning.scm 581 */
obj_t BgL_zc3anonymousza31882ze3z83_2750;
{ 
int BgL_auxz00_4196;int BgL_auxz00_4194;
BgL_auxz00_4196 = 
(int)(((long)2)); 
BgL_auxz00_4194 = 
(int)(((long)4)); 
BgL_zc3anonymousza31882ze3z83_2750 = 
make_fx_procedure(BGl_zc3anonymousza31882ze3z83zz__evmeaningz00, BgL_auxz00_4194, BgL_auxz00_4196); } 
{ /* ./Eval/evmeaning.scm 581 */
int BgL_auxz00_4199;
BgL_auxz00_4199 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31882ze3z83_2750, BgL_auxz00_4199, BgL_expz00_1); } 
{ /* ./Eval/evmeaning.scm 581 */
int BgL_auxz00_4202;
BgL_auxz00_4202 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31882ze3z83_2750, BgL_auxz00_4202, BgL_stackz00_2); } 
return BgL_zc3anonymousza31882ze3z83_2750;} break;case ((long)47) : 

{ /* ./Eval/evmeaning.scm 586 */
obj_t BgL_valuez00_833;
{ 
int BgL_auxz00_4205;
BgL_auxz00_4205 = 
(int)(((long)2)); 
BgL_valuez00_833 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_4205); } 
{ /* ./Eval/evmeaning.scm 586 */
obj_t BgL_wherez00_834;
BgL_wherez00_834 = 
CAR(BgL_valuez00_833); 
{ /* ./Eval/evmeaning.scm 587 */
obj_t BgL_bodyz00_835;
BgL_bodyz00_835 = 
CDR(BgL_valuez00_833); 
{ /* ./Eval/evmeaning.scm 588 */

{ /* ./Eval/evmeaning.scm 589 */
obj_t BgL_zc3anonymousza31898ze3z83_2749;
{ 
int BgL_auxz00_4212;int BgL_auxz00_4210;
BgL_auxz00_4212 = 
(int)(((long)3)); 
BgL_auxz00_4210 = 
(int)(((long)-1)); 
BgL_zc3anonymousza31898ze3z83_2749 = 
make_va_procedure(BGl_zc3anonymousza31898ze3z83zz__evmeaningz00, BgL_auxz00_4210, BgL_auxz00_4212); } 
{ /* ./Eval/evmeaning.scm 589 */
int BgL_auxz00_4215;
BgL_auxz00_4215 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31898ze3z83_2749, BgL_auxz00_4215, BgL_wherez00_834); } 
{ /* ./Eval/evmeaning.scm 589 */
int BgL_auxz00_4218;
BgL_auxz00_4218 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31898ze3z83_2749, BgL_auxz00_4218, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 589 */
int BgL_auxz00_4221;
BgL_auxz00_4221 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31898ze3z83_2749, BgL_auxz00_4221, BgL_bodyz00_835); } 
return BgL_zc3anonymousza31898ze3z83_2749;} } } } } break;case ((long)48) : 

{ /* ./Eval/evmeaning.scm 599 */
obj_t BgL_valuez00_841;
{ 
int BgL_auxz00_4224;
BgL_auxz00_4224 = 
(int)(((long)2)); 
BgL_valuez00_841 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_4224); } 
{ /* ./Eval/evmeaning.scm 599 */
obj_t BgL_wherez00_842;
BgL_wherez00_842 = 
CAR(BgL_valuez00_841); 
{ /* ./Eval/evmeaning.scm 600 */
obj_t BgL_bodyz00_843;
BgL_bodyz00_843 = 
CDR(BgL_valuez00_841); 
{ /* ./Eval/evmeaning.scm 601 */

{ /* ./Eval/evmeaning.scm 602 */
obj_t BgL_zc3anonymousza31908ze3z83_2748;
{ 
int BgL_auxz00_4231;int BgL_auxz00_4229;
BgL_auxz00_4231 = 
(int)(((long)3)); 
BgL_auxz00_4229 = 
(int)(((long)-2)); 
BgL_zc3anonymousza31908ze3z83_2748 = 
make_va_procedure(BGl_zc3anonymousza31908ze3z83zz__evmeaningz00, BgL_auxz00_4229, BgL_auxz00_4231); } 
{ /* ./Eval/evmeaning.scm 602 */
int BgL_auxz00_4234;
BgL_auxz00_4234 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31908ze3z83_2748, BgL_auxz00_4234, BgL_wherez00_842); } 
{ /* ./Eval/evmeaning.scm 602 */
int BgL_auxz00_4237;
BgL_auxz00_4237 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31908ze3z83_2748, BgL_auxz00_4237, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 602 */
int BgL_auxz00_4240;
BgL_auxz00_4240 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31908ze3z83_2748, BgL_auxz00_4240, BgL_bodyz00_843); } 
return BgL_zc3anonymousza31908ze3z83_2748;} } } } } break;case ((long)49) : 

{ /* ./Eval/evmeaning.scm 612 */
obj_t BgL_valuez00_851;
{ 
int BgL_auxz00_4243;
BgL_auxz00_4243 = 
(int)(((long)2)); 
BgL_valuez00_851 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_4243); } 
{ /* ./Eval/evmeaning.scm 612 */
obj_t BgL_wherez00_852;
BgL_wherez00_852 = 
CAR(BgL_valuez00_851); 
{ /* ./Eval/evmeaning.scm 613 */
obj_t BgL_bodyz00_853;
BgL_bodyz00_853 = 
CDR(BgL_valuez00_851); 
{ /* ./Eval/evmeaning.scm 614 */

{ /* ./Eval/evmeaning.scm 615 */
obj_t BgL_zc3anonymousza31921ze3z83_2747;
{ 
int BgL_auxz00_4250;int BgL_auxz00_4248;
BgL_auxz00_4250 = 
(int)(((long)3)); 
BgL_auxz00_4248 = 
(int)(((long)-3)); 
BgL_zc3anonymousza31921ze3z83_2747 = 
make_va_procedure(BGl_zc3anonymousza31921ze3z83zz__evmeaningz00, BgL_auxz00_4248, BgL_auxz00_4250); } 
{ /* ./Eval/evmeaning.scm 615 */
int BgL_auxz00_4253;
BgL_auxz00_4253 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31921ze3z83_2747, BgL_auxz00_4253, BgL_wherez00_852); } 
{ /* ./Eval/evmeaning.scm 615 */
int BgL_auxz00_4256;
BgL_auxz00_4256 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31921ze3z83_2747, BgL_auxz00_4256, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 615 */
int BgL_auxz00_4259;
BgL_auxz00_4259 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31921ze3z83_2747, BgL_auxz00_4259, BgL_bodyz00_853); } 
return BgL_zc3anonymousza31921ze3z83_2747;} } } } } break;case ((long)50) : 

{ /* ./Eval/evmeaning.scm 628 */
obj_t BgL_valuez00_863;
{ 
int BgL_auxz00_4262;
BgL_auxz00_4262 = 
(int)(((long)2)); 
BgL_valuez00_863 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_4262); } 
{ /* ./Eval/evmeaning.scm 628 */
obj_t BgL_wherez00_864;
BgL_wherez00_864 = 
CAR(BgL_valuez00_863); 
{ /* ./Eval/evmeaning.scm 629 */
obj_t BgL_bodyz00_865;
BgL_bodyz00_865 = 
CDR(BgL_valuez00_863); 
{ /* ./Eval/evmeaning.scm 630 */

{ /* ./Eval/evmeaning.scm 631 */
obj_t BgL_zc3anonymousza31937ze3z83_2746;
{ 
int BgL_auxz00_4269;int BgL_auxz00_4267;
BgL_auxz00_4269 = 
(int)(((long)3)); 
BgL_auxz00_4267 = 
(int)(((long)-4)); 
BgL_zc3anonymousza31937ze3z83_2746 = 
make_va_procedure(BGl_zc3anonymousza31937ze3z83zz__evmeaningz00, BgL_auxz00_4267, BgL_auxz00_4269); } 
{ /* ./Eval/evmeaning.scm 631 */
int BgL_auxz00_4272;
BgL_auxz00_4272 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31937ze3z83_2746, BgL_auxz00_4272, BgL_wherez00_864); } 
{ /* ./Eval/evmeaning.scm 631 */
int BgL_auxz00_4275;
BgL_auxz00_4275 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31937ze3z83_2746, BgL_auxz00_4275, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 631 */
int BgL_auxz00_4278;
BgL_auxz00_4278 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31937ze3z83_2746, BgL_auxz00_4278, BgL_bodyz00_865); } 
return BgL_zc3anonymousza31937ze3z83_2746;} } } } } break;case ((long)51) : 

{ /* ./Eval/evmeaning.scm 647 */
obj_t BgL_zc3anonymousza31957ze3z83_2745;
{ 
int BgL_auxz00_4283;int BgL_auxz00_4281;
BgL_auxz00_4283 = 
(int)(((long)2)); 
BgL_auxz00_4281 = 
(int)(((long)-1)); 
BgL_zc3anonymousza31957ze3z83_2745 = 
make_va_procedure(BGl_zc3anonymousza31957ze3z83zz__evmeaningz00, BgL_auxz00_4281, BgL_auxz00_4283); } 
{ /* ./Eval/evmeaning.scm 647 */
int BgL_auxz00_4286;
BgL_auxz00_4286 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31957ze3z83_2745, BgL_auxz00_4286, BgL_expz00_1); } 
{ /* ./Eval/evmeaning.scm 647 */
int BgL_auxz00_4289;
BgL_auxz00_4289 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31957ze3z83_2745, BgL_auxz00_4289, BgL_stackz00_2); } 
return BgL_zc3anonymousza31957ze3z83_2745;} break;case ((long)52) : 

{ /* ./Eval/evmeaning.scm 652 */
obj_t BgL_zc3anonymousza31965ze3z83_2744;
{ 
int BgL_auxz00_4294;int BgL_auxz00_4292;
BgL_auxz00_4294 = 
(int)(((long)2)); 
BgL_auxz00_4292 = 
(int)(((long)-2)); 
BgL_zc3anonymousza31965ze3z83_2744 = 
make_va_procedure(BGl_zc3anonymousza31965ze3z83zz__evmeaningz00, BgL_auxz00_4292, BgL_auxz00_4294); } 
{ /* ./Eval/evmeaning.scm 652 */
int BgL_auxz00_4297;
BgL_auxz00_4297 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31965ze3z83_2744, BgL_auxz00_4297, BgL_expz00_1); } 
{ /* ./Eval/evmeaning.scm 652 */
int BgL_auxz00_4300;
BgL_auxz00_4300 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31965ze3z83_2744, BgL_auxz00_4300, BgL_stackz00_2); } 
return BgL_zc3anonymousza31965ze3z83_2744;} break;case ((long)53) : 

{ /* ./Eval/evmeaning.scm 657 */
obj_t BgL_zc3anonymousza31976ze3z83_2743;
{ 
int BgL_auxz00_4305;int BgL_auxz00_4303;
BgL_auxz00_4305 = 
(int)(((long)2)); 
BgL_auxz00_4303 = 
(int)(((long)-3)); 
BgL_zc3anonymousza31976ze3z83_2743 = 
make_va_procedure(BGl_zc3anonymousza31976ze3z83zz__evmeaningz00, BgL_auxz00_4303, BgL_auxz00_4305); } 
{ /* ./Eval/evmeaning.scm 657 */
int BgL_auxz00_4308;
BgL_auxz00_4308 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31976ze3z83_2743, BgL_auxz00_4308, BgL_expz00_1); } 
{ /* ./Eval/evmeaning.scm 657 */
int BgL_auxz00_4311;
BgL_auxz00_4311 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31976ze3z83_2743, BgL_auxz00_4311, BgL_stackz00_2); } 
return BgL_zc3anonymousza31976ze3z83_2743;} break;case ((long)54) : 

{ /* ./Eval/evmeaning.scm 662 */
obj_t BgL_zc3anonymousza31989ze3z83_2742;
{ 
int BgL_auxz00_4316;int BgL_auxz00_4314;
BgL_auxz00_4316 = 
(int)(((long)2)); 
BgL_auxz00_4314 = 
(int)(((long)-4)); 
BgL_zc3anonymousza31989ze3z83_2742 = 
make_va_procedure(BGl_zc3anonymousza31989ze3z83zz__evmeaningz00, BgL_auxz00_4314, BgL_auxz00_4316); } 
{ /* ./Eval/evmeaning.scm 662 */
int BgL_auxz00_4319;
BgL_auxz00_4319 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31989ze3z83_2742, BgL_auxz00_4319, BgL_expz00_1); } 
{ /* ./Eval/evmeaning.scm 662 */
int BgL_auxz00_4322;
BgL_auxz00_4322 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31989ze3z83_2742, BgL_auxz00_4322, BgL_stackz00_2); } 
return BgL_zc3anonymousza31989ze3z83_2742;} break;case ((long)55) : 

{ /* ./Eval/evmeaning.scm 667 */
obj_t BgL_valuez00_905;
{ 
int BgL_auxz00_4325;
BgL_auxz00_4325 = 
(int)(((long)2)); 
BgL_valuez00_905 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_4325); } 
{ /* ./Eval/evmeaning.scm 667 */
obj_t BgL_wherez00_906;
{ 
int BgL_auxz00_4328;
BgL_auxz00_4328 = 
(int)(((long)0)); 
BgL_wherez00_906 = 
VECTOR_REF(BgL_valuez00_905,BgL_auxz00_4328); } 
{ /* ./Eval/evmeaning.scm 668 */
obj_t BgL_bodyz00_907;
{ 
int BgL_auxz00_4331;
BgL_auxz00_4331 = 
(int)(((long)1)); 
BgL_bodyz00_907 = 
VECTOR_REF(BgL_valuez00_905,BgL_auxz00_4331); } 
{ /* ./Eval/evmeaning.scm 669 */
obj_t BgL_formalsz00_908;
{ 
int BgL_auxz00_4334;
BgL_auxz00_4334 = 
(int)(((long)2)); 
BgL_formalsz00_908 = 
VECTOR_REF(BgL_valuez00_905,BgL_auxz00_4334); } 
{ /* ./Eval/evmeaning.scm 670 */

{ /* ./Eval/evmeaning.scm 671 */
obj_t BgL_zc3anonymousza32007ze3z83_2741;
{ 
int BgL_auxz00_4339;int BgL_auxz00_4337;
BgL_auxz00_4339 = 
(int)(((long)5)); 
BgL_auxz00_4337 = 
(int)(((long)-1)); 
BgL_zc3anonymousza32007ze3z83_2741 = 
make_va_procedure(BGl_zc3anonymousza32007ze3z83zz__evmeaningz00, BgL_auxz00_4337, BgL_auxz00_4339); } 
{ /* ./Eval/evmeaning.scm 671 */
int BgL_auxz00_4342;
BgL_auxz00_4342 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32007ze3z83_2741, BgL_auxz00_4342, BgL_wherez00_906); } 
{ /* ./Eval/evmeaning.scm 671 */
int BgL_auxz00_4345;
BgL_auxz00_4345 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32007ze3z83_2741, BgL_auxz00_4345, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 671 */
int BgL_auxz00_4348;
BgL_auxz00_4348 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza32007ze3z83_2741, BgL_auxz00_4348, BgL_expz00_1); } 
{ /* ./Eval/evmeaning.scm 671 */
int BgL_auxz00_4351;
BgL_auxz00_4351 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza32007ze3z83_2741, BgL_auxz00_4351, BgL_formalsz00_908); } 
{ /* ./Eval/evmeaning.scm 671 */
int BgL_auxz00_4354;
BgL_auxz00_4354 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_zc3anonymousza32007ze3z83_2741, BgL_auxz00_4354, BgL_bodyz00_907); } 
return BgL_zc3anonymousza32007ze3z83_2741;} } } } } } break;case ((long)56) : 

{ /* ./Eval/evmeaning.scm 704 */
obj_t BgL_valuez00_925;
{ 
int BgL_auxz00_4357;
BgL_auxz00_4357 = 
(int)(((long)2)); 
BgL_valuez00_925 = 
VECTOR_REF(BgL_expz00_1,BgL_auxz00_4357); } 
{ /* ./Eval/evmeaning.scm 704 */
obj_t BgL_bodyz00_926;
BgL_bodyz00_926 = 
CAR(BgL_valuez00_925); 
{ /* ./Eval/evmeaning.scm 705 */
obj_t BgL_formalsz00_927;
BgL_formalsz00_927 = 
CDR(BgL_valuez00_925); 
{ /* ./Eval/evmeaning.scm 706 */

{ /* ./Eval/evmeaning.scm 707 */
obj_t BgL_zc3anonymousza32039ze3z83_2740;
{ 
int BgL_auxz00_4364;int BgL_auxz00_4362;
BgL_auxz00_4364 = 
(int)(((long)4)); 
BgL_auxz00_4362 = 
(int)(((long)-1)); 
BgL_zc3anonymousza32039ze3z83_2740 = 
make_va_procedure(BGl_zc3anonymousza32039ze3z83zz__evmeaningz00, BgL_auxz00_4362, BgL_auxz00_4364); } 
{ /* ./Eval/evmeaning.scm 707 */
int BgL_auxz00_4367;
BgL_auxz00_4367 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32039ze3z83_2740, BgL_auxz00_4367, BgL_stackz00_2); } 
{ /* ./Eval/evmeaning.scm 707 */
int BgL_auxz00_4370;
BgL_auxz00_4370 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32039ze3z83_2740, BgL_auxz00_4370, BgL_expz00_1); } 
{ /* ./Eval/evmeaning.scm 707 */
int BgL_auxz00_4373;
BgL_auxz00_4373 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza32039ze3z83_2740, BgL_auxz00_4373, BgL_formalsz00_927); } 
{ /* ./Eval/evmeaning.scm 707 */
int BgL_auxz00_4376;
BgL_auxz00_4376 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza32039ze3z83_2740, BgL_auxz00_4376, BgL_bodyz00_926); } 
return BgL_zc3anonymousza32039ze3z83_2740;} } } } } break;
default: 
return 
BGl_evmeaningzd2errorzd2zz__evmeaningz00(BgL_expz00_1, BGl_string3601z00zz__evmeaningz00, BGl_string3602z00zz__evmeaningz00, BgL_expz00_1);} }  else 
{ /* ./Eval/evmeaning.scm 89 */
return 
BGl_evmeaningzd2errorzd2zz__evmeaningz00(BgL_expz00_1, BGl_string3601z00zz__evmeaningz00, BGl_string3602z00zz__evmeaningz00, BgL_expz00_1);} } }  else 
{ /* ./Eval/evmeaning.scm 84 */
return BgL_expz00_1;} } 
}



/* <exit:1319> */
obj_t BGl_zc3exitza31319ze3z83zz__evmeaningz00(obj_t BgL_stackz00_2894, obj_t BgL_expz00_2893)
{ AN_OBJECT;
{ /* ./Eval/evmeaning.scm 243 */
jmp_buf jmpbuf; 
obj_t BgL_an_exit1016z00_513;
if( SET_EXIT(BgL_an_exit1016z00_513) ) { 
return 
_exit_value_;
} else {
BgL_an_exit1016z00_513 = 
(obj_t)jmpbuf; 
{ /* ./Eval/evmeaning.scm 243 */

PUSH_EXIT(BgL_an_exit1016z00_513, ((bool_t)1)); 
{ /* ./Eval/evmeaning.scm 243 */
obj_t BgL_an_exitd1017z00_514;
BgL_an_exitd1017z00_514 = 
BGL_EXITD_TOP(); 
{ /* ./Eval/evmeaning.scm 243 */
obj_t BgL___dummy__z00_2760;
{ 
int BgL_auxz00_4389;int BgL_auxz00_4387;
BgL_auxz00_4389 = 
(int)(((long)1)); 
BgL_auxz00_4387 = 
(int)(((long)1)); 
BgL___dummy__z00_2760 = 
make_fx_procedure(BGl___dummy__z00zz__evmeaningz00, BgL_auxz00_4387, BgL_auxz00_4389); } 
{ /* ./Eval/evmeaning.scm 243 */
int BgL_auxz00_4392;
BgL_auxz00_4392 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL___dummy__z00_2760, BgL_auxz00_4392, BgL_an_exitd1017z00_514); } 
{ /* ./Eval/evmeaning.scm 243 */
obj_t BgL_res1019z00_517;
{ /* ./Eval/evmeaning.scm 244 */
obj_t BgL_fun1329z00_519;
{ /* ./Eval/evmeaning.scm 244 */
obj_t BgL_auxz00_4395;
{ 
int BgL_auxz00_4396;
BgL_auxz00_4396 = 
(int)(((long)2)); 
BgL_auxz00_4395 = 
VECTOR_REF(BgL_expz00_2893,BgL_auxz00_4396); } 
BgL_fun1329z00_519 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_4395, BgL_stackz00_2894); } 
BgL_res1019z00_517 = 
PROCEDURE_ENTRY(BgL_fun1329z00_519)(BgL_fun1329z00_519, BgL___dummy__z00_2760, BEOA); } 
POP_EXIT(); 
return BgL_res1019z00_517;} } } } 
} } 
}



/* <exit:1342> */
obj_t BGl_zc3exitza31342ze3z83zz__evmeaningz00(obj_t BgL_stackz00_2896, obj_t BgL_bodyz00_2895)
{ AN_OBJECT;
{ /* ./Eval/evmeaning.scm 251 */
jmp_buf jmpbuf; 
obj_t BgL_an_exit1021z00_527;
if( SET_EXIT(BgL_an_exit1021z00_527) ) { 
return 
_exit_value_;
} else {
BgL_an_exit1021z00_527 = 
(obj_t)jmpbuf; 
{ /* ./Eval/evmeaning.scm 251 */

PUSH_EXIT(BgL_an_exit1021z00_527, ((bool_t)0)); 
{ /* ./Eval/evmeaning.scm 250 */
obj_t BgL_val1022z00_528;
BgL_val1022z00_528 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_bodyz00_2895, BgL_stackz00_2896); 
POP_EXIT(); 
return BgL_val1022z00_528;} } 
} } 
}



/* _evmeaning */
obj_t BGl__evmeaningz00zz__evmeaningz00(obj_t BgL_envz00_2761, obj_t BgL_expz00_2762, obj_t BgL_stackz00_2763)
{ AN_OBJECT;
{ /* ./Eval/evmeaning.scm 83 */
return 
BGl_evmeaningz00zz__evmeaningz00(BgL_expz00_2762, BgL_stackz00_2763);} 
}



/* <anonymous:2039> */
obj_t BGl_zc3anonymousza32039ze3z83zz__evmeaningz00(obj_t BgL_envz00_2764, obj_t BgL_xz00_2769)
{ AN_OBJECT;
{ /* ./Eval/evmeaning.scm 707 */
{ /* ./Eval/evmeaning.scm 708 */
obj_t BgL_stackz00_2765;obj_t BgL_expz00_2766;obj_t BgL_formalsz00_2767;obj_t BgL_bodyz00_2768;
{ /* ./Eval/evmeaning.scm 708 */
int BgL_auxz00_4409;
BgL_auxz00_4409 = 
(int)(((long)0)); 
BgL_stackz00_2765 = 
PROCEDURE_REF(BgL_envz00_2764, BgL_auxz00_4409); } 
{ /* ./Eval/evmeaning.scm 708 */
int BgL_auxz00_4412;
BgL_auxz00_4412 = 
(int)(((long)1)); 
BgL_expz00_2766 = 
PROCEDURE_REF(BgL_envz00_2764, BgL_auxz00_4412); } 
{ /* ./Eval/evmeaning.scm 708 */
int BgL_auxz00_4415;
BgL_auxz00_4415 = 
(int)(((long)2)); 
BgL_formalsz00_2767 = 
PROCEDURE_REF(BgL_envz00_2764, BgL_auxz00_4415); } 
{ /* ./Eval/evmeaning.scm 708 */
int BgL_auxz00_4418;
BgL_auxz00_4418 = 
(int)(((long)3)); 
BgL_bodyz00_2768 = 
PROCEDURE_REF(BgL_envz00_2764, BgL_auxz00_4418); } 
{ 
obj_t BgL_xz00_928;
BgL_xz00_928 = BgL_xz00_2769; 
return 
BGl_evmeaningz00zz__evmeaningz00(BgL_bodyz00_2768, 
BGl__loop_z72z72zz__evmeaningz00(BgL_expz00_2766, BgL_stackz00_2765, BgL_xz00_928, BgL_formalsz00_2767));} } } 
}



/* _loop_' */
obj_t BGl__loop_z72z72zz__evmeaningz00(obj_t BgL_expz00_2892, obj_t BgL_stackz00_2891, obj_t BgL_actualsz00_931, obj_t BgL_formalsz00_932)
{ AN_OBJECT;
{ /* ./Eval/evmeaning.scm 708 */
if(
NULLP(BgL_formalsz00_932))
{ /* ./Eval/evmeaning.scm 711 */
if(
NULLP(BgL_actualsz00_931))
{ /* ./Eval/evmeaning.scm 712 */
return BgL_stackz00_2891;}  else 
{ /* ./Eval/evmeaning.scm 712 */
return 
BGl_evmeaningzd2errorzd2zz__evmeaningz00(BgL_expz00_2892, BGl_string3595z00zz__evmeaningz00, BGl_string3603z00zz__evmeaningz00, BgL_actualsz00_931);} }  else 
{ /* ./Eval/evmeaning.scm 711 */
if(
PAIRP(BgL_formalsz00_932))
{ /* ./Eval/evmeaning.scm 719 */
if(
NULLP(BgL_actualsz00_931))
{ /* ./Eval/evmeaning.scm 721 */
return 
BGl_evmeaningzd2errorzd2zz__evmeaningz00(BgL_expz00_2892, BGl_string3595z00zz__evmeaningz00, BGl_string3604z00zz__evmeaningz00, BgL_formalsz00_932);}  else 
{ /* ./Eval/evmeaning.scm 721 */
{ /* ./Eval/evmeaning.scm 728 */
obj_t BgL_auxz00_4435;obj_t BgL_auxz00_4433;
BgL_auxz00_4435 = 
BGl__loop_z72z72zz__evmeaningz00(BgL_expz00_2892, BgL_stackz00_2891, 
CDR(BgL_actualsz00_931), 
CDR(BgL_formalsz00_932)); 
BgL_auxz00_4433 = 
CAR(BgL_actualsz00_931); 
return 
MAKE_PAIR(BgL_auxz00_4433, BgL_auxz00_4435);} } }  else 
{ /* ./Eval/evmeaning.scm 719 */
return 
MAKE_PAIR(BgL_actualsz00_931, BgL_stackz00_2891);} } } 
}



/* <anonymous:2007> */
obj_t BGl_zc3anonymousza32007ze3z83zz__evmeaningz00(obj_t BgL_envz00_2770, obj_t BgL_xz00_2776)
{ AN_OBJECT;
{ /* ./Eval/evmeaning.scm 671 */
{ /* ./Eval/evmeaning.scm 672 */
obj_t BgL_wherez00_2771;obj_t BgL_stackz00_2772;obj_t BgL_expz00_2773;obj_t BgL_formalsz00_2774;obj_t BgL_bodyz00_2775;
{ /* ./Eval/evmeaning.scm 672 */
int BgL_auxz00_4441;
BgL_auxz00_4441 = 
(int)(((long)0)); 
BgL_wherez00_2771 = 
PROCEDURE_REF(BgL_envz00_2770, BgL_auxz00_4441); } 
{ /* ./Eval/evmeaning.scm 672 */
int BgL_auxz00_4444;
BgL_auxz00_4444 = 
(int)(((long)1)); 
BgL_stackz00_2772 = 
PROCEDURE_REF(BgL_envz00_2770, BgL_auxz00_4444); } 
{ /* ./Eval/evmeaning.scm 672 */
int BgL_auxz00_4447;
BgL_auxz00_4447 = 
(int)(((long)2)); 
BgL_expz00_2773 = 
PROCEDURE_REF(BgL_envz00_2770, BgL_auxz00_4447); } 
{ /* ./Eval/evmeaning.scm 672 */
int BgL_auxz00_4450;
BgL_auxz00_4450 = 
(int)(((long)3)); 
BgL_formalsz00_2774 = 
PROCEDURE_REF(BgL_envz00_2770, BgL_auxz00_4450); } 
{ /* ./Eval/evmeaning.scm 672 */
int BgL_auxz00_4453;
BgL_auxz00_4453 = 
(int)(((long)4)); 
BgL_bodyz00_2775 = 
PROCEDURE_REF(BgL_envz00_2770, BgL_auxz00_4453); } 
{ 
obj_t BgL_xz00_909;
BgL_xz00_909 = BgL_xz00_2776; 
{ /* ./Eval/evmeaning.scm 672 */
obj_t BgL_wherez00_911;
BgL_wherez00_911 = BgL_wherez00_2771; 
{ /* ./Eval/evmeaning.scm 673 */

PUSH_TRACE(BgL_wherez00_911); BUNSPEC; 
{ /* ./Eval/evmeaning.scm 676 */
obj_t BgL_newzd2envzd2_912;
BgL_newzd2envzd2_912 = 
BGl__loop_z00zz__evmeaningz00(BgL_expz00_2773, BgL_stackz00_2772, BgL_xz00_909, BgL_formalsz00_2774); 
{ /* ./Eval/evmeaning.scm 699 */
obj_t BgL_resz00_913;
BgL_resz00_913 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_bodyz00_2775, BgL_newzd2envzd2_912); 
POP_TRACE(); 
return BgL_resz00_913;} } } } } } } 
}



/* _loop_ */
obj_t BGl__loop_z00zz__evmeaningz00(obj_t BgL_expz00_2890, obj_t BgL_stackz00_2889, obj_t BgL_actualsz00_914, obj_t BgL_formalsz00_915)
{ AN_OBJECT;
{ /* ./Eval/evmeaning.scm 676 */
if(
NULLP(BgL_formalsz00_915))
{ /* ./Eval/evmeaning.scm 679 */
if(
NULLP(BgL_actualsz00_914))
{ /* ./Eval/evmeaning.scm 680 */
return BgL_stackz00_2889;}  else 
{ /* ./Eval/evmeaning.scm 680 */
return 
BGl_evmeaningzd2errorzd2zz__evmeaningz00(BgL_expz00_2890, BGl_string3595z00zz__evmeaningz00, BGl_string3603z00zz__evmeaningz00, BgL_actualsz00_914);} }  else 
{ /* ./Eval/evmeaning.scm 679 */
if(
PAIRP(BgL_formalsz00_915))
{ /* ./Eval/evmeaning.scm 687 */
if(
NULLP(BgL_actualsz00_914))
{ /* ./Eval/evmeaning.scm 689 */
return 
BGl_evmeaningzd2errorzd2zz__evmeaningz00(BgL_expz00_2890, BGl_string3595z00zz__evmeaningz00, BGl_string3604z00zz__evmeaningz00, BgL_formalsz00_915);}  else 
{ /* ./Eval/evmeaning.scm 689 */
{ /* ./Eval/evmeaning.scm 696 */
obj_t BgL_auxz00_4472;obj_t BgL_auxz00_4470;
BgL_auxz00_4472 = 
BGl__loop_z00zz__evmeaningz00(BgL_expz00_2890, BgL_stackz00_2889, 
CDR(BgL_actualsz00_914), 
CDR(BgL_formalsz00_915)); 
BgL_auxz00_4470 = 
CAR(BgL_actualsz00_914); 
return 
MAKE_PAIR(BgL_auxz00_4470, BgL_auxz00_4472);} } }  else 
{ /* ./Eval/evmeaning.scm 687 */
return 
MAKE_PAIR(BgL_actualsz00_914, BgL_stackz00_2889);} } } 
}



/* <anonymous:1989> */
obj_t BGl_zc3anonymousza31989ze3z83zz__evmeaningz00(obj_t BgL_envz00_2777, obj_t BgL_xz00_2780, obj_t BgL_yz00_2781, obj_t BgL_za7za7_2782, obj_t BgL_tz00_2783)
{ AN_OBJECT;
{ /* ./Eval/evmeaning.scm 662 */
{ /* ./Eval/evmeaning.scm 664 */
obj_t BgL_expz00_2778;obj_t BgL_stackz00_2779;
{ /* ./Eval/evmeaning.scm 664 */
int BgL_auxz00_4478;
BgL_auxz00_4478 = 
(int)(((long)0)); 
BgL_expz00_2778 = 
PROCEDURE_REF(BgL_envz00_2777, BgL_auxz00_4478); } 
{ /* ./Eval/evmeaning.scm 664 */
int BgL_auxz00_4481;
BgL_auxz00_4481 = 
(int)(((long)1)); 
BgL_stackz00_2779 = 
PROCEDURE_REF(BgL_envz00_2777, BgL_auxz00_4481); } 
{ 
obj_t BgL_xz00_895;obj_t BgL_yz00_896;obj_t BgL_za7za7_897;obj_t BgL_tz00_898;
BgL_xz00_895 = BgL_xz00_2780; 
BgL_yz00_896 = BgL_yz00_2781; 
BgL_za7za7_897 = BgL_za7za7_2782; 
BgL_tz00_898 = BgL_tz00_2783; 
{ /* ./Eval/evmeaning.scm 664 */
obj_t BgL_arg1991z00_2423;obj_t BgL_arg1992z00_2424;
{ 
int BgL_auxz00_4484;
BgL_auxz00_4484 = 
(int)(((long)2)); 
BgL_arg1991z00_2423 = 
VECTOR_REF(BgL_expz00_2778,BgL_auxz00_4484); } 
{ /* ./Eval/evmeaning.scm 664 */
obj_t BgL_arg1996z00_2425;
{ /* ./Eval/evmeaning.scm 664 */
obj_t BgL_arg2000z00_2426;
{ /* ./Eval/evmeaning.scm 664 */
obj_t BgL_arg2004z00_2427;
BgL_arg2004z00_2427 = 
MAKE_PAIR(BgL_tz00_898, BgL_stackz00_2779); 
BgL_arg2000z00_2426 = 
MAKE_PAIR(BgL_za7za7_897, BgL_arg2004z00_2427); } 
BgL_arg1996z00_2425 = 
MAKE_PAIR(BgL_yz00_896, BgL_arg2000z00_2426); } 
BgL_arg1992z00_2424 = 
MAKE_PAIR(BgL_xz00_895, BgL_arg1996z00_2425); } 
return 
BGl_evmeaningz00zz__evmeaningz00(BgL_arg1991z00_2423, BgL_arg1992z00_2424);} } } } 
}



/* <anonymous:1976> */
obj_t BGl_zc3anonymousza31976ze3z83zz__evmeaningz00(obj_t BgL_envz00_2784, obj_t BgL_xz00_2787, obj_t BgL_yz00_2788, obj_t BgL_za7za7_2789)
{ AN_OBJECT;
{ /* ./Eval/evmeaning.scm 657 */
{ /* ./Eval/evmeaning.scm 659 */
obj_t BgL_expz00_2785;obj_t BgL_stackz00_2786;
{ /* ./Eval/evmeaning.scm 659 */
int BgL_auxz00_4492;
BgL_auxz00_4492 = 
(int)(((long)0)); 
BgL_expz00_2785 = 
PROCEDURE_REF(BgL_envz00_2784, BgL_auxz00_4492); } 
{ /* ./Eval/evmeaning.scm 659 */
int BgL_auxz00_4495;
BgL_auxz00_4495 = 
(int)(((long)1)); 
BgL_stackz00_2786 = 
PROCEDURE_REF(BgL_envz00_2784, BgL_auxz00_4495); } 
{ 
obj_t BgL_xz00_887;obj_t BgL_yz00_888;obj_t BgL_za7za7_889;
BgL_xz00_887 = BgL_xz00_2787; 
BgL_yz00_888 = BgL_yz00_2788; 
BgL_za7za7_889 = BgL_za7za7_2789; 
{ /* ./Eval/evmeaning.scm 659 */
obj_t BgL_arg1978z00_2417;obj_t BgL_arg1979z00_2418;
{ 
int BgL_auxz00_4498;
BgL_auxz00_4498 = 
(int)(((long)2)); 
BgL_arg1978z00_2417 = 
VECTOR_REF(BgL_expz00_2785,BgL_auxz00_4498); } 
{ /* ./Eval/evmeaning.scm 659 */
obj_t BgL_arg1983z00_2419;
{ /* ./Eval/evmeaning.scm 659 */
obj_t BgL_arg1986z00_2420;
BgL_arg1986z00_2420 = 
MAKE_PAIR(BgL_za7za7_889, BgL_stackz00_2786); 
BgL_arg1983z00_2419 = 
MAKE_PAIR(BgL_yz00_888, BgL_arg1986z00_2420); } 
BgL_arg1979z00_2418 = 
MAKE_PAIR(BgL_xz00_887, BgL_arg1983z00_2419); } 
return 
BGl_evmeaningz00zz__evmeaningz00(BgL_arg1978z00_2417, BgL_arg1979z00_2418);} } } } 
}



/* <anonymous:1965> */
obj_t BGl_zc3anonymousza31965ze3z83zz__evmeaningz00(obj_t BgL_envz00_2790, obj_t BgL_xz00_2793, obj_t BgL_yz00_2794)
{ AN_OBJECT;
{ /* ./Eval/evmeaning.scm 652 */
{ /* ./Eval/evmeaning.scm 654 */
obj_t BgL_expz00_2791;obj_t BgL_stackz00_2792;
{ /* ./Eval/evmeaning.scm 654 */
int BgL_auxz00_4505;
BgL_auxz00_4505 = 
(int)(((long)0)); 
BgL_expz00_2791 = 
PROCEDURE_REF(BgL_envz00_2790, BgL_auxz00_4505); } 
{ /* ./Eval/evmeaning.scm 654 */
int BgL_auxz00_4508;
BgL_auxz00_4508 = 
(int)(((long)1)); 
BgL_stackz00_2792 = 
PROCEDURE_REF(BgL_envz00_2790, BgL_auxz00_4508); } 
{ 
obj_t BgL_xz00_881;obj_t BgL_yz00_882;
BgL_xz00_881 = BgL_xz00_2793; 
BgL_yz00_882 = BgL_yz00_2794; 
{ /* ./Eval/evmeaning.scm 654 */
obj_t BgL_arg1967z00_2412;obj_t BgL_arg1968z00_2413;
{ 
int BgL_auxz00_4511;
BgL_auxz00_4511 = 
(int)(((long)2)); 
BgL_arg1967z00_2412 = 
VECTOR_REF(BgL_expz00_2791,BgL_auxz00_4511); } 
{ /* ./Eval/evmeaning.scm 654 */
obj_t BgL_arg1973z00_2414;
BgL_arg1973z00_2414 = 
MAKE_PAIR(BgL_yz00_882, BgL_stackz00_2792); 
BgL_arg1968z00_2413 = 
MAKE_PAIR(BgL_xz00_881, BgL_arg1973z00_2414); } 
return 
BGl_evmeaningz00zz__evmeaningz00(BgL_arg1967z00_2412, BgL_arg1968z00_2413);} } } } 
}



/* <anonymous:1957> */
obj_t BGl_zc3anonymousza31957ze3z83zz__evmeaningz00(obj_t BgL_envz00_2795, obj_t BgL_xz00_2798)
{ AN_OBJECT;
{ /* ./Eval/evmeaning.scm 647 */
{ /* ./Eval/evmeaning.scm 648 */
obj_t BgL_expz00_2796;obj_t BgL_stackz00_2797;
{ /* ./Eval/evmeaning.scm 648 */
int BgL_auxz00_4517;
BgL_auxz00_4517 = 
(int)(((long)0)); 
BgL_expz00_2796 = 
PROCEDURE_REF(BgL_envz00_2795, BgL_auxz00_4517); } 
{ /* ./Eval/evmeaning.scm 648 */
int BgL_auxz00_4520;
BgL_auxz00_4520 = 
(int)(((long)1)); 
BgL_stackz00_2797 = 
PROCEDURE_REF(BgL_envz00_2795, BgL_auxz00_4520); } 
{ 
obj_t BgL_xz00_877;
BgL_xz00_877 = BgL_xz00_2798; 
{ /* ./Eval/evmeaning.scm 648 */
obj_t BgL_arg1960z00_2408;obj_t BgL_arg1961z00_2409;
{ 
int BgL_auxz00_4523;
BgL_auxz00_4523 = 
(int)(((long)2)); 
BgL_arg1960z00_2408 = 
VECTOR_REF(BgL_expz00_2796,BgL_auxz00_4523); } 
BgL_arg1961z00_2409 = 
MAKE_PAIR(BgL_xz00_877, BgL_stackz00_2797); 
return 
BGl_evmeaningz00zz__evmeaningz00(BgL_arg1960z00_2408, BgL_arg1961z00_2409);} } } } 
}



/* <anonymous:1937> */
obj_t BGl_zc3anonymousza31937ze3z83zz__evmeaningz00(obj_t BgL_envz00_2799, obj_t BgL_xz00_2803, obj_t BgL_yz00_2804, obj_t BgL_za7za7_2805, obj_t BgL_tz00_2806)
{ AN_OBJECT;
{ /* ./Eval/evmeaning.scm 631 */
{ /* ./Eval/evmeaning.scm 632 */
obj_t BgL_wherez00_2800;obj_t BgL_stackz00_2801;obj_t BgL_bodyz00_2802;
{ /* ./Eval/evmeaning.scm 632 */
int BgL_auxz00_4528;
BgL_auxz00_4528 = 
(int)(((long)0)); 
BgL_wherez00_2800 = 
PROCEDURE_REF(BgL_envz00_2799, BgL_auxz00_4528); } 
{ /* ./Eval/evmeaning.scm 632 */
int BgL_auxz00_4531;
BgL_auxz00_4531 = 
(int)(((long)1)); 
BgL_stackz00_2801 = 
PROCEDURE_REF(BgL_envz00_2799, BgL_auxz00_4531); } 
{ /* ./Eval/evmeaning.scm 632 */
int BgL_auxz00_4534;
BgL_auxz00_4534 = 
(int)(((long)2)); 
BgL_bodyz00_2802 = 
PROCEDURE_REF(BgL_envz00_2799, BgL_auxz00_4534); } 
{ 
obj_t BgL_xz00_866;obj_t BgL_yz00_867;obj_t BgL_za7za7_868;obj_t BgL_tz00_869;
BgL_xz00_866 = BgL_xz00_2803; 
BgL_yz00_867 = BgL_yz00_2804; 
BgL_za7za7_868 = BgL_za7za7_2805; 
BgL_tz00_869 = BgL_tz00_2806; 
{ /* ./Eval/evmeaning.scm 632 */
obj_t BgL_wherez00_2402;
BgL_wherez00_2402 = BgL_wherez00_2800; 
{ /* ./Eval/evmeaning.scm 632 */

PUSH_TRACE(BgL_wherez00_2402); BUNSPEC; 
{ /* ./Eval/evmeaning.scm 632 */
obj_t BgL_resz00_2403;
{ /* ./Eval/evmeaning.scm 632 */
obj_t BgL_arg1941z00_2404;
{ /* ./Eval/evmeaning.scm 632 */
obj_t BgL_arg1945z00_2405;
{ /* ./Eval/evmeaning.scm 632 */
obj_t BgL_arg1948z00_2406;
{ /* ./Eval/evmeaning.scm 632 */
obj_t BgL_arg1951z00_2407;
BgL_arg1951z00_2407 = 
MAKE_PAIR(BgL_tz00_869, BgL_stackz00_2801); 
BgL_arg1948z00_2406 = 
MAKE_PAIR(BgL_za7za7_868, BgL_arg1951z00_2407); } 
BgL_arg1945z00_2405 = 
MAKE_PAIR(BgL_yz00_867, BgL_arg1948z00_2406); } 
BgL_arg1941z00_2404 = 
MAKE_PAIR(BgL_xz00_866, BgL_arg1945z00_2405); } 
BgL_resz00_2403 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_bodyz00_2802, BgL_arg1941z00_2404); } 
POP_TRACE(); 
return BgL_resz00_2403;} } } } } } 
}



/* <anonymous:1921> */
obj_t BGl_zc3anonymousza31921ze3z83zz__evmeaningz00(obj_t BgL_envz00_2807, obj_t BgL_xz00_2811, obj_t BgL_yz00_2812, obj_t BgL_za7za7_2813)
{ AN_OBJECT;
{ /* ./Eval/evmeaning.scm 615 */
{ /* ./Eval/evmeaning.scm 616 */
obj_t BgL_wherez00_2808;obj_t BgL_stackz00_2809;obj_t BgL_bodyz00_2810;
{ /* ./Eval/evmeaning.scm 616 */
int BgL_auxz00_4544;
BgL_auxz00_4544 = 
(int)(((long)0)); 
BgL_wherez00_2808 = 
PROCEDURE_REF(BgL_envz00_2807, BgL_auxz00_4544); } 
{ /* ./Eval/evmeaning.scm 616 */
int BgL_auxz00_4547;
BgL_auxz00_4547 = 
(int)(((long)1)); 
BgL_stackz00_2809 = 
PROCEDURE_REF(BgL_envz00_2807, BgL_auxz00_4547); } 
{ /* ./Eval/evmeaning.scm 616 */
int BgL_auxz00_4550;
BgL_auxz00_4550 = 
(int)(((long)2)); 
BgL_bodyz00_2810 = 
PROCEDURE_REF(BgL_envz00_2807, BgL_auxz00_4550); } 
{ 
obj_t BgL_xz00_854;obj_t BgL_yz00_855;obj_t BgL_za7za7_856;
BgL_xz00_854 = BgL_xz00_2811; 
BgL_yz00_855 = BgL_yz00_2812; 
BgL_za7za7_856 = BgL_za7za7_2813; 
{ /* ./Eval/evmeaning.scm 616 */
obj_t BgL_wherez00_2393;
BgL_wherez00_2393 = BgL_wherez00_2808; 
{ /* ./Eval/evmeaning.scm 616 */

PUSH_TRACE(BgL_wherez00_2393); BUNSPEC; 
{ /* ./Eval/evmeaning.scm 616 */
obj_t BgL_resz00_2394;
{ /* ./Eval/evmeaning.scm 616 */
obj_t BgL_arg1925z00_2395;
{ /* ./Eval/evmeaning.scm 616 */
obj_t BgL_arg1928z00_2396;
{ /* ./Eval/evmeaning.scm 616 */
obj_t BgL_arg1931z00_2397;
BgL_arg1931z00_2397 = 
MAKE_PAIR(BgL_za7za7_856, BgL_stackz00_2809); 
BgL_arg1928z00_2396 = 
MAKE_PAIR(BgL_yz00_855, BgL_arg1931z00_2397); } 
BgL_arg1925z00_2395 = 
MAKE_PAIR(BgL_xz00_854, BgL_arg1928z00_2396); } 
BgL_resz00_2394 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_bodyz00_2810, BgL_arg1925z00_2395); } 
POP_TRACE(); 
return BgL_resz00_2394;} } } } } } 
}



/* <anonymous:1908> */
obj_t BGl_zc3anonymousza31908ze3z83zz__evmeaningz00(obj_t BgL_envz00_2814, obj_t BgL_xz00_2818, obj_t BgL_yz00_2819)
{ AN_OBJECT;
{ /* ./Eval/evmeaning.scm 602 */
{ /* ./Eval/evmeaning.scm 603 */
obj_t BgL_wherez00_2815;obj_t BgL_stackz00_2816;obj_t BgL_bodyz00_2817;
{ /* ./Eval/evmeaning.scm 603 */
int BgL_auxz00_4559;
BgL_auxz00_4559 = 
(int)(((long)0)); 
BgL_wherez00_2815 = 
PROCEDURE_REF(BgL_envz00_2814, BgL_auxz00_4559); } 
{ /* ./Eval/evmeaning.scm 603 */
int BgL_auxz00_4562;
BgL_auxz00_4562 = 
(int)(((long)1)); 
BgL_stackz00_2816 = 
PROCEDURE_REF(BgL_envz00_2814, BgL_auxz00_4562); } 
{ /* ./Eval/evmeaning.scm 603 */
int BgL_auxz00_4565;
BgL_auxz00_4565 = 
(int)(((long)2)); 
BgL_bodyz00_2817 = 
PROCEDURE_REF(BgL_envz00_2814, BgL_auxz00_4565); } 
{ 
obj_t BgL_xz00_844;obj_t BgL_yz00_845;
BgL_xz00_844 = BgL_xz00_2818; 
BgL_yz00_845 = BgL_yz00_2819; 
{ /* ./Eval/evmeaning.scm 603 */
obj_t BgL_wherez00_2385;
BgL_wherez00_2385 = BgL_wherez00_2815; 
{ /* ./Eval/evmeaning.scm 603 */

PUSH_TRACE(BgL_wherez00_2385); BUNSPEC; 
{ /* ./Eval/evmeaning.scm 603 */
obj_t BgL_resz00_2386;
{ /* ./Eval/evmeaning.scm 603 */
obj_t BgL_arg1912z00_2387;
{ /* ./Eval/evmeaning.scm 603 */
obj_t BgL_arg1915z00_2388;
BgL_arg1915z00_2388 = 
MAKE_PAIR(BgL_yz00_845, BgL_stackz00_2816); 
BgL_arg1912z00_2387 = 
MAKE_PAIR(BgL_xz00_844, BgL_arg1915z00_2388); } 
BgL_resz00_2386 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_bodyz00_2817, BgL_arg1912z00_2387); } 
POP_TRACE(); 
return BgL_resz00_2386;} } } } } } 
}



/* <anonymous:1898> */
obj_t BGl_zc3anonymousza31898ze3z83zz__evmeaningz00(obj_t BgL_envz00_2820, obj_t BgL_xz00_2824)
{ AN_OBJECT;
{ /* ./Eval/evmeaning.scm 589 */
{ /* ./Eval/evmeaning.scm 590 */
obj_t BgL_wherez00_2821;obj_t BgL_stackz00_2822;obj_t BgL_bodyz00_2823;
{ /* ./Eval/evmeaning.scm 590 */
int BgL_auxz00_4573;
BgL_auxz00_4573 = 
(int)(((long)0)); 
BgL_wherez00_2821 = 
PROCEDURE_REF(BgL_envz00_2820, BgL_auxz00_4573); } 
{ /* ./Eval/evmeaning.scm 590 */
int BgL_auxz00_4576;
BgL_auxz00_4576 = 
(int)(((long)1)); 
BgL_stackz00_2822 = 
PROCEDURE_REF(BgL_envz00_2820, BgL_auxz00_4576); } 
{ /* ./Eval/evmeaning.scm 590 */
int BgL_auxz00_4579;
BgL_auxz00_4579 = 
(int)(((long)2)); 
BgL_bodyz00_2823 = 
PROCEDURE_REF(BgL_envz00_2820, BgL_auxz00_4579); } 
{ 
obj_t BgL_xz00_836;
BgL_xz00_836 = BgL_xz00_2824; 
{ /* ./Eval/evmeaning.scm 590 */
obj_t BgL_wherez00_2378;
BgL_wherez00_2378 = BgL_wherez00_2821; 
{ /* ./Eval/evmeaning.scm 590 */

PUSH_TRACE(BgL_wherez00_2378); BUNSPEC; 
{ /* ./Eval/evmeaning.scm 590 */
obj_t BgL_resz00_2379;
{ /* ./Eval/evmeaning.scm 590 */
obj_t BgL_arg1902z00_2380;
BgL_arg1902z00_2380 = 
MAKE_PAIR(BgL_xz00_836, BgL_stackz00_2822); 
BgL_resz00_2379 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_bodyz00_2823, BgL_arg1902z00_2380); } 
POP_TRACE(); 
return BgL_resz00_2379;} } } } } } 
}



/* <anonymous:1882> */
obj_t BGl_zc3anonymousza31882ze3z83zz__evmeaningz00(obj_t BgL_envz00_2825, obj_t BgL_xz00_2828, obj_t BgL_yz00_2829, obj_t BgL_za7za7_2830, obj_t BgL_tz00_2831)
{ AN_OBJECT;
{ /* ./Eval/evmeaning.scm 581 */
{ /* ./Eval/evmeaning.scm 583 */
obj_t BgL_expz00_2826;obj_t BgL_stackz00_2827;
{ /* ./Eval/evmeaning.scm 583 */
int BgL_auxz00_4586;
BgL_auxz00_4586 = 
(int)(((long)0)); 
BgL_expz00_2826 = 
PROCEDURE_REF(BgL_envz00_2825, BgL_auxz00_4586); } 
{ /* ./Eval/evmeaning.scm 583 */
int BgL_auxz00_4589;
BgL_auxz00_4589 = 
(int)(((long)1)); 
BgL_stackz00_2827 = 
PROCEDURE_REF(BgL_envz00_2825, BgL_auxz00_4589); } 
{ 
obj_t BgL_xz00_823;obj_t BgL_yz00_824;obj_t BgL_za7za7_825;obj_t BgL_tz00_826;
BgL_xz00_823 = BgL_xz00_2828; 
BgL_yz00_824 = BgL_yz00_2829; 
BgL_za7za7_825 = BgL_za7za7_2830; 
BgL_tz00_826 = BgL_tz00_2831; 
{ /* ./Eval/evmeaning.scm 583 */
obj_t BgL_arg1884z00_2367;obj_t BgL_arg1885z00_2368;
{ 
int BgL_auxz00_4592;
BgL_auxz00_4592 = 
(int)(((long)2)); 
BgL_arg1884z00_2367 = 
VECTOR_REF(BgL_expz00_2826,BgL_auxz00_4592); } 
{ /* ./Eval/evmeaning.scm 583 */
obj_t BgL_arg1889z00_2369;
{ /* ./Eval/evmeaning.scm 583 */
obj_t BgL_arg1892z00_2370;
{ /* ./Eval/evmeaning.scm 583 */
obj_t BgL_arg1895z00_2371;
BgL_arg1895z00_2371 = 
MAKE_PAIR(BgL_tz00_826, BgL_stackz00_2827); 
BgL_arg1892z00_2370 = 
MAKE_PAIR(BgL_za7za7_825, BgL_arg1895z00_2371); } 
BgL_arg1889z00_2369 = 
MAKE_PAIR(BgL_yz00_824, BgL_arg1892z00_2370); } 
BgL_arg1885z00_2368 = 
MAKE_PAIR(BgL_xz00_823, BgL_arg1889z00_2369); } 
return 
BGl_evmeaningz00zz__evmeaningz00(BgL_arg1884z00_2367, BgL_arg1885z00_2368);} } } } 
}



/* <anonymous:1868> */
obj_t BGl_zc3anonymousza31868ze3z83zz__evmeaningz00(obj_t BgL_envz00_2832, obj_t BgL_xz00_2835, obj_t BgL_yz00_2836, obj_t BgL_za7za7_2837)
{ AN_OBJECT;
{ /* ./Eval/evmeaning.scm 576 */
{ /* ./Eval/evmeaning.scm 578 */
obj_t BgL_expz00_2833;obj_t BgL_stackz00_2834;
{ /* ./Eval/evmeaning.scm 578 */
int BgL_auxz00_4600;
BgL_auxz00_4600 = 
(int)(((long)0)); 
BgL_expz00_2833 = 
PROCEDURE_REF(BgL_envz00_2832, BgL_auxz00_4600); } 
{ /* ./Eval/evmeaning.scm 578 */
int BgL_auxz00_4603;
BgL_auxz00_4603 = 
(int)(((long)1)); 
BgL_stackz00_2834 = 
PROCEDURE_REF(BgL_envz00_2832, BgL_auxz00_4603); } 
{ 
obj_t BgL_xz00_815;obj_t BgL_yz00_816;obj_t BgL_za7za7_817;
BgL_xz00_815 = BgL_xz00_2835; 
BgL_yz00_816 = BgL_yz00_2836; 
BgL_za7za7_817 = BgL_za7za7_2837; 
{ /* ./Eval/evmeaning.scm 578 */
obj_t BgL_arg1870z00_2361;obj_t BgL_arg1872z00_2362;
{ 
int BgL_auxz00_4606;
BgL_auxz00_4606 = 
(int)(((long)2)); 
BgL_arg1870z00_2361 = 
VECTOR_REF(BgL_expz00_2833,BgL_auxz00_4606); } 
{ /* ./Eval/evmeaning.scm 578 */
obj_t BgL_arg1876z00_2363;
{ /* ./Eval/evmeaning.scm 578 */
obj_t BgL_arg1879z00_2364;
BgL_arg1879z00_2364 = 
MAKE_PAIR(BgL_za7za7_817, BgL_stackz00_2834); 
BgL_arg1876z00_2363 = 
MAKE_PAIR(BgL_yz00_816, BgL_arg1879z00_2364); } 
BgL_arg1872z00_2362 = 
MAKE_PAIR(BgL_xz00_815, BgL_arg1876z00_2363); } 
return 
BGl_evmeaningz00zz__evmeaningz00(BgL_arg1870z00_2361, BgL_arg1872z00_2362);} } } } 
}



/* <anonymous:1857> */
obj_t BGl_zc3anonymousza31857ze3z83zz__evmeaningz00(obj_t BgL_envz00_2838, obj_t BgL_xz00_2841, obj_t BgL_yz00_2842)
{ AN_OBJECT;
{ /* ./Eval/evmeaning.scm 571 */
{ /* ./Eval/evmeaning.scm 573 */
obj_t BgL_expz00_2839;obj_t BgL_stackz00_2840;
{ /* ./Eval/evmeaning.scm 573 */
int BgL_auxz00_4613;
BgL_auxz00_4613 = 
(int)(((long)0)); 
BgL_expz00_2839 = 
PROCEDURE_REF(BgL_envz00_2838, BgL_auxz00_4613); } 
{ /* ./Eval/evmeaning.scm 573 */
int BgL_auxz00_4616;
BgL_auxz00_4616 = 
(int)(((long)1)); 
BgL_stackz00_2840 = 
PROCEDURE_REF(BgL_envz00_2838, BgL_auxz00_4616); } 
{ 
obj_t BgL_xz00_809;obj_t BgL_yz00_810;
BgL_xz00_809 = BgL_xz00_2841; 
BgL_yz00_810 = BgL_yz00_2842; 
{ /* ./Eval/evmeaning.scm 573 */
obj_t BgL_arg1859z00_2356;obj_t BgL_arg1861z00_2357;
{ 
int BgL_auxz00_4619;
BgL_auxz00_4619 = 
(int)(((long)2)); 
BgL_arg1859z00_2356 = 
VECTOR_REF(BgL_expz00_2839,BgL_auxz00_4619); } 
{ /* ./Eval/evmeaning.scm 573 */
obj_t BgL_arg1865z00_2358;
BgL_arg1865z00_2358 = 
MAKE_PAIR(BgL_yz00_810, BgL_stackz00_2840); 
BgL_arg1861z00_2357 = 
MAKE_PAIR(BgL_xz00_809, BgL_arg1865z00_2358); } 
return 
BGl_evmeaningz00zz__evmeaningz00(BgL_arg1859z00_2356, BgL_arg1861z00_2357);} } } } 
}



/* <anonymous:1850> */
obj_t BGl_zc3anonymousza31850ze3z83zz__evmeaningz00(obj_t BgL_envz00_2843, obj_t BgL_xz00_2846)
{ AN_OBJECT;
{ /* ./Eval/evmeaning.scm 566 */
{ /* ./Eval/evmeaning.scm 567 */
obj_t BgL_expz00_2844;obj_t BgL_stackz00_2845;
{ /* ./Eval/evmeaning.scm 567 */
int BgL_auxz00_4625;
BgL_auxz00_4625 = 
(int)(((long)0)); 
BgL_expz00_2844 = 
PROCEDURE_REF(BgL_envz00_2843, BgL_auxz00_4625); } 
{ /* ./Eval/evmeaning.scm 567 */
int BgL_auxz00_4628;
BgL_auxz00_4628 = 
(int)(((long)1)); 
BgL_stackz00_2845 = 
PROCEDURE_REF(BgL_envz00_2843, BgL_auxz00_4628); } 
{ 
obj_t BgL_xz00_805;
BgL_xz00_805 = BgL_xz00_2846; 
{ /* ./Eval/evmeaning.scm 567 */
obj_t BgL_arg1852z00_2352;obj_t BgL_arg1853z00_2353;
{ 
int BgL_auxz00_4631;
BgL_auxz00_4631 = 
(int)(((long)2)); 
BgL_arg1852z00_2352 = 
VECTOR_REF(BgL_expz00_2844,BgL_auxz00_4631); } 
BgL_arg1853z00_2353 = 
MAKE_PAIR(BgL_xz00_805, BgL_stackz00_2845); 
return 
BGl_evmeaningz00zz__evmeaningz00(BgL_arg1852z00_2352, BgL_arg1853z00_2353);} } } } 
}



/* <anonymous:1845> */
obj_t BGl_zc3anonymousza31845ze3z83zz__evmeaningz00(obj_t BgL_envz00_2847)
{ AN_OBJECT;
{ /* ./Eval/evmeaning.scm 561 */
{ /* ./Eval/evmeaning.scm 562 */
obj_t BgL_expz00_2848;obj_t BgL_stackz00_2849;
{ /* ./Eval/evmeaning.scm 562 */
int BgL_auxz00_4636;
BgL_auxz00_4636 = 
(int)(((long)0)); 
BgL_expz00_2848 = 
PROCEDURE_REF(BgL_envz00_2847, BgL_auxz00_4636); } 
{ /* ./Eval/evmeaning.scm 562 */
int BgL_auxz00_4639;
BgL_auxz00_4639 = 
(int)(((long)1)); 
BgL_stackz00_2849 = 
PROCEDURE_REF(BgL_envz00_2847, BgL_auxz00_4639); } 
{ 

{ /* ./Eval/evmeaning.scm 562 */
obj_t BgL_auxz00_4642;
{ 
int BgL_auxz00_4643;
BgL_auxz00_4643 = 
(int)(((long)2)); 
BgL_auxz00_4642 = 
VECTOR_REF(BgL_expz00_2848,BgL_auxz00_4643); } 
return 
BGl_evmeaningz00zz__evmeaningz00(BgL_auxz00_4642, BgL_stackz00_2849);} } } } 
}



/* <anonymous:1824> */
obj_t BGl_zc3anonymousza31824ze3z83zz__evmeaningz00(obj_t BgL_envz00_2850, obj_t BgL_xz00_2854, obj_t BgL_yz00_2855, obj_t BgL_za7za7_2856, obj_t BgL_tz00_2857)
{ AN_OBJECT;
{ /* ./Eval/evmeaning.scm 545 */
{ /* ./Eval/evmeaning.scm 546 */
obj_t BgL_wherez00_2851;obj_t BgL_stackz00_2852;obj_t BgL_bodyz00_2853;
{ /* ./Eval/evmeaning.scm 546 */
int BgL_auxz00_4647;
BgL_auxz00_4647 = 
(int)(((long)0)); 
BgL_wherez00_2851 = 
PROCEDURE_REF(BgL_envz00_2850, BgL_auxz00_4647); } 
{ /* ./Eval/evmeaning.scm 546 */
int BgL_auxz00_4650;
BgL_auxz00_4650 = 
(int)(((long)1)); 
BgL_stackz00_2852 = 
PROCEDURE_REF(BgL_envz00_2850, BgL_auxz00_4650); } 
{ /* ./Eval/evmeaning.scm 546 */
int BgL_auxz00_4653;
BgL_auxz00_4653 = 
(int)(((long)2)); 
BgL_bodyz00_2853 = 
PROCEDURE_REF(BgL_envz00_2850, BgL_auxz00_4653); } 
{ 
obj_t BgL_xz00_792;obj_t BgL_yz00_793;obj_t BgL_za7za7_794;obj_t BgL_tz00_795;
BgL_xz00_792 = BgL_xz00_2854; 
BgL_yz00_793 = BgL_yz00_2855; 
BgL_za7za7_794 = BgL_za7za7_2856; 
BgL_tz00_795 = BgL_tz00_2857; 
{ /* ./Eval/evmeaning.scm 546 */
obj_t BgL_wherez00_2343;
BgL_wherez00_2343 = BgL_wherez00_2851; 
{ /* ./Eval/evmeaning.scm 546 */

PUSH_TRACE(BgL_wherez00_2343); BUNSPEC; 
{ /* ./Eval/evmeaning.scm 546 */
obj_t BgL_resz00_2344;
{ /* ./Eval/evmeaning.scm 546 */
obj_t BgL_arg1829z00_2345;
{ /* ./Eval/evmeaning.scm 546 */
obj_t BgL_arg1833z00_2346;
{ /* ./Eval/evmeaning.scm 546 */
obj_t BgL_arg1836z00_2347;
{ /* ./Eval/evmeaning.scm 546 */
obj_t BgL_arg1839z00_2348;
BgL_arg1839z00_2348 = 
MAKE_PAIR(BgL_tz00_795, BgL_stackz00_2852); 
BgL_arg1836z00_2347 = 
MAKE_PAIR(BgL_za7za7_794, BgL_arg1839z00_2348); } 
BgL_arg1833z00_2346 = 
MAKE_PAIR(BgL_yz00_793, BgL_arg1836z00_2347); } 
BgL_arg1829z00_2345 = 
MAKE_PAIR(BgL_xz00_792, BgL_arg1833z00_2346); } 
BgL_resz00_2344 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_bodyz00_2853, BgL_arg1829z00_2345); } 
POP_TRACE(); 
return BgL_resz00_2344;} } } } } } 
}



/* <anonymous:1807> */
obj_t BGl_zc3anonymousza31807ze3z83zz__evmeaningz00(obj_t BgL_envz00_2858, obj_t BgL_xz00_2862, obj_t BgL_yz00_2863, obj_t BgL_za7za7_2864)
{ AN_OBJECT;
{ /* ./Eval/evmeaning.scm 529 */
{ /* ./Eval/evmeaning.scm 530 */
obj_t BgL_wherez00_2859;obj_t BgL_stackz00_2860;obj_t BgL_bodyz00_2861;
{ /* ./Eval/evmeaning.scm 530 */
int BgL_auxz00_4663;
BgL_auxz00_4663 = 
(int)(((long)0)); 
BgL_wherez00_2859 = 
PROCEDURE_REF(BgL_envz00_2858, BgL_auxz00_4663); } 
{ /* ./Eval/evmeaning.scm 530 */
int BgL_auxz00_4666;
BgL_auxz00_4666 = 
(int)(((long)1)); 
BgL_stackz00_2860 = 
PROCEDURE_REF(BgL_envz00_2858, BgL_auxz00_4666); } 
{ /* ./Eval/evmeaning.scm 530 */
int BgL_auxz00_4669;
BgL_auxz00_4669 = 
(int)(((long)2)); 
BgL_bodyz00_2861 = 
PROCEDURE_REF(BgL_envz00_2858, BgL_auxz00_4669); } 
{ 
obj_t BgL_xz00_780;obj_t BgL_yz00_781;obj_t BgL_za7za7_782;
BgL_xz00_780 = BgL_xz00_2862; 
BgL_yz00_781 = BgL_yz00_2863; 
BgL_za7za7_782 = BgL_za7za7_2864; 
{ /* ./Eval/evmeaning.scm 530 */
obj_t BgL_wherez00_2334;
BgL_wherez00_2334 = BgL_wherez00_2859; 
{ /* ./Eval/evmeaning.scm 530 */

PUSH_TRACE(BgL_wherez00_2334); BUNSPEC; 
{ /* ./Eval/evmeaning.scm 530 */
obj_t BgL_resz00_2335;
{ /* ./Eval/evmeaning.scm 530 */
obj_t BgL_arg1811z00_2336;
{ /* ./Eval/evmeaning.scm 530 */
obj_t BgL_arg1815z00_2337;
{ /* ./Eval/evmeaning.scm 530 */
obj_t BgL_arg1818z00_2338;
BgL_arg1818z00_2338 = 
MAKE_PAIR(BgL_za7za7_782, BgL_stackz00_2860); 
BgL_arg1815z00_2337 = 
MAKE_PAIR(BgL_yz00_781, BgL_arg1818z00_2338); } 
BgL_arg1811z00_2336 = 
MAKE_PAIR(BgL_xz00_780, BgL_arg1815z00_2337); } 
BgL_resz00_2335 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_bodyz00_2861, BgL_arg1811z00_2336); } 
POP_TRACE(); 
return BgL_resz00_2335;} } } } } } 
}



/* <anonymous:1794> */
obj_t BGl_zc3anonymousza31794ze3z83zz__evmeaningz00(obj_t BgL_envz00_2865, obj_t BgL_xz00_2869, obj_t BgL_yz00_2870)
{ AN_OBJECT;
{ /* ./Eval/evmeaning.scm 516 */
{ /* ./Eval/evmeaning.scm 517 */
obj_t BgL_wherez00_2866;obj_t BgL_stackz00_2867;obj_t BgL_bodyz00_2868;
{ /* ./Eval/evmeaning.scm 517 */
int BgL_auxz00_4678;
BgL_auxz00_4678 = 
(int)(((long)0)); 
BgL_wherez00_2866 = 
PROCEDURE_REF(BgL_envz00_2865, BgL_auxz00_4678); } 
{ /* ./Eval/evmeaning.scm 517 */
int BgL_auxz00_4681;
BgL_auxz00_4681 = 
(int)(((long)1)); 
BgL_stackz00_2867 = 
PROCEDURE_REF(BgL_envz00_2865, BgL_auxz00_4681); } 
{ /* ./Eval/evmeaning.scm 517 */
int BgL_auxz00_4684;
BgL_auxz00_4684 = 
(int)(((long)2)); 
BgL_bodyz00_2868 = 
PROCEDURE_REF(BgL_envz00_2865, BgL_auxz00_4684); } 
{ 
obj_t BgL_xz00_770;obj_t BgL_yz00_771;
BgL_xz00_770 = BgL_xz00_2869; 
BgL_yz00_771 = BgL_yz00_2870; 
{ /* ./Eval/evmeaning.scm 517 */
obj_t BgL_wherez00_2326;
BgL_wherez00_2326 = BgL_wherez00_2866; 
{ /* ./Eval/evmeaning.scm 517 */

PUSH_TRACE(BgL_wherez00_2326); BUNSPEC; 
{ /* ./Eval/evmeaning.scm 517 */
obj_t BgL_resz00_2327;
{ /* ./Eval/evmeaning.scm 517 */
obj_t BgL_arg1798z00_2328;
{ /* ./Eval/evmeaning.scm 517 */
obj_t BgL_arg1801z00_2329;
BgL_arg1801z00_2329 = 
MAKE_PAIR(BgL_yz00_771, BgL_stackz00_2867); 
BgL_arg1798z00_2328 = 
MAKE_PAIR(BgL_xz00_770, BgL_arg1801z00_2329); } 
BgL_resz00_2327 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_bodyz00_2868, BgL_arg1798z00_2328); } 
POP_TRACE(); 
return BgL_resz00_2327;} } } } } } 
}



/* <anonymous:1784> */
obj_t BGl_zc3anonymousza31784ze3z83zz__evmeaningz00(obj_t BgL_envz00_2871, obj_t BgL_xz00_2875)
{ AN_OBJECT;
{ /* ./Eval/evmeaning.scm 503 */
{ /* ./Eval/evmeaning.scm 504 */
obj_t BgL_wherez00_2872;obj_t BgL_stackz00_2873;obj_t BgL_bodyz00_2874;
{ /* ./Eval/evmeaning.scm 504 */
int BgL_auxz00_4692;
BgL_auxz00_4692 = 
(int)(((long)0)); 
BgL_wherez00_2872 = 
PROCEDURE_REF(BgL_envz00_2871, BgL_auxz00_4692); } 
{ /* ./Eval/evmeaning.scm 504 */
int BgL_auxz00_4695;
BgL_auxz00_4695 = 
(int)(((long)1)); 
BgL_stackz00_2873 = 
PROCEDURE_REF(BgL_envz00_2871, BgL_auxz00_4695); } 
{ /* ./Eval/evmeaning.scm 504 */
int BgL_auxz00_4698;
BgL_auxz00_4698 = 
(int)(((long)2)); 
BgL_bodyz00_2874 = 
PROCEDURE_REF(BgL_envz00_2871, BgL_auxz00_4698); } 
{ 
obj_t BgL_xz00_762;
BgL_xz00_762 = BgL_xz00_2875; 
{ /* ./Eval/evmeaning.scm 504 */
obj_t BgL_wherez00_2319;
BgL_wherez00_2319 = BgL_wherez00_2872; 
{ /* ./Eval/evmeaning.scm 504 */

PUSH_TRACE(BgL_wherez00_2319); BUNSPEC; 
{ /* ./Eval/evmeaning.scm 504 */
obj_t BgL_resz00_2320;
{ /* ./Eval/evmeaning.scm 504 */
obj_t BgL_arg1788z00_2321;
BgL_arg1788z00_2321 = 
MAKE_PAIR(BgL_xz00_762, BgL_stackz00_2873); 
BgL_resz00_2320 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_bodyz00_2874, BgL_arg1788z00_2321); } 
POP_TRACE(); 
return BgL_resz00_2320;} } } } } } 
}



/* <anonymous:1777> */
obj_t BGl_zc3anonymousza31777ze3z83zz__evmeaningz00(obj_t BgL_envz00_2876)
{ AN_OBJECT;
{ /* ./Eval/evmeaning.scm 483 */
{ /* ./Eval/evmeaning.scm 484 */
obj_t BgL_wherez00_2877;obj_t BgL_bodyz00_2878;obj_t BgL_stackz00_2879;
{ /* ./Eval/evmeaning.scm 484 */
int BgL_auxz00_4705;
BgL_auxz00_4705 = 
(int)(((long)0)); 
BgL_wherez00_2877 = 
PROCEDURE_REF(BgL_envz00_2876, BgL_auxz00_4705); } 
{ /* ./Eval/evmeaning.scm 484 */
int BgL_auxz00_4708;
BgL_auxz00_4708 = 
(int)(((long)1)); 
BgL_bodyz00_2878 = 
PROCEDURE_REF(BgL_envz00_2876, BgL_auxz00_4708); } 
{ /* ./Eval/evmeaning.scm 484 */
int BgL_auxz00_4711;
BgL_auxz00_4711 = 
(int)(((long)2)); 
BgL_stackz00_2879 = 
PROCEDURE_REF(BgL_envz00_2876, BgL_auxz00_4711); } 
{ 

{ /* ./Eval/evmeaning.scm 484 */
obj_t BgL_wherez00_757;
BgL_wherez00_757 = BgL_wherez00_2877; 
{ /* ./Eval/evmeaning.scm 485 */

PUSH_TRACE(BgL_wherez00_757); BUNSPEC; 
{ /* ./Eval/evmeaning.scm 495 */
obj_t BgL_resz00_758;
BgL_resz00_758 = 
BGl_evmeaningz00zz__evmeaningz00(BgL_bodyz00_2878, BgL_stackz00_2879); 
POP_TRACE(); 
return BgL_resz00_758;} } } } } } 
}



/* __dummy__ */
obj_t BGl___dummy__z00zz__evmeaningz00(obj_t BgL_envz00_2880, obj_t BgL_val1018z00_2882)
{ AN_OBJECT;
{ /* ./Eval/evmeaning.scm 243 */
{ /* ./Eval/evmeaning.scm 243 */
obj_t BgL_an_exitd1017z00_2881;
{ /* ./Eval/evmeaning.scm 243 */
int BgL_auxz00_4717;
BgL_auxz00_4717 = 
(int)(((long)0)); 
BgL_an_exitd1017z00_2881 = 
PROCEDURE_REF(BgL_envz00_2880, BgL_auxz00_4717); } 
{ 
obj_t BgL_val1018z00_515;
BgL_val1018z00_515 = BgL_val1018z00_2882; 
return 
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_an_exitd1017z00_2881, BgL_val1018z00_515);} } } 
}



/* evmeaning-error */
obj_t BGl_evmeaningzd2errorzd2zz__evmeaningz00(obj_t BgL_bcodez00_3, obj_t BgL_procz00_4, obj_t BgL_mesz00_5, obj_t BgL_objz00_6)
{ AN_OBJECT;
{ /* ./Eval/evmeaning.scm 743 */
if(
VECTORP(BgL_bcodez00_3))
{ /* ./Eval/evmeaning.scm 745 */
obj_t BgL_ezd2103zd2_948;
{ 
int BgL_auxz00_4723;
BgL_auxz00_4723 = 
(int)(((long)1)); 
BgL_ezd2103zd2_948 = 
VECTOR_REF(BgL_bcodez00_3,BgL_auxz00_4723); } 
if(
PAIRP(BgL_ezd2103zd2_948))
{ /* ./Eval/evmeaning.scm 745 */
obj_t BgL_cdrzd2111zd2_950;
BgL_cdrzd2111zd2_950 = 
CDR(BgL_ezd2103zd2_948); 
{ /* ./Eval/evmeaning.scm 745 */
bool_t BgL_testz00_4729;
{ /* ./Eval/evmeaning.scm 745 */
obj_t BgL_auxz00_4730;
BgL_auxz00_4730 = 
CAR(BgL_ezd2103zd2_948); 
BgL_testz00_4729 = 
(BgL_auxz00_4730==BGl_symbol3605z00zz__evmeaningz00); } 
if(BgL_testz00_4729)
{ /* ./Eval/evmeaning.scm 745 */
if(
PAIRP(BgL_cdrzd2111zd2_950))
{ /* ./Eval/evmeaning.scm 745 */
obj_t BgL_cdrzd2116zd2_953;
BgL_cdrzd2116zd2_953 = 
CDR(BgL_cdrzd2111zd2_950); 
if(
PAIRP(BgL_cdrzd2116zd2_953))
{ /* ./Eval/evmeaning.scm 745 */
obj_t BgL_cdrzd2121zd2_955;
BgL_cdrzd2121zd2_955 = 
CDR(BgL_cdrzd2116zd2_953); 
if(
PAIRP(BgL_cdrzd2121zd2_955))
{ /* ./Eval/evmeaning.scm 745 */
bool_t BgL_testz00_4741;
{ /* ./Eval/evmeaning.scm 745 */
obj_t BgL_auxz00_4742;
BgL_auxz00_4742 = 
CDR(BgL_cdrzd2121zd2_955); 
BgL_testz00_4741 = 
NULLP(BgL_auxz00_4742); } 
if(BgL_testz00_4741)
{ /* ./Eval/evmeaning.scm 745 */
return 
BGl_errorzf2locationzf2zz__errorz00(BgL_procz00_4, BgL_mesz00_5, BgL_objz00_6, 
CAR(BgL_cdrzd2111zd2_950), 
CAR(BgL_cdrzd2116zd2_953));}  else 
{ /* ./Eval/evmeaning.scm 745 */
FAILURE(BgL_procz00_4,BgL_mesz00_5,BgL_objz00_6);} }  else 
{ /* ./Eval/evmeaning.scm 745 */
FAILURE(BgL_procz00_4,BgL_mesz00_5,BgL_objz00_6);} }  else 
{ /* ./Eval/evmeaning.scm 745 */
FAILURE(BgL_procz00_4,BgL_mesz00_5,BgL_objz00_6);} }  else 
{ /* ./Eval/evmeaning.scm 745 */
FAILURE(BgL_procz00_4,BgL_mesz00_5,BgL_objz00_6);} }  else 
{ /* ./Eval/evmeaning.scm 745 */
FAILURE(BgL_procz00_4,BgL_mesz00_5,BgL_objz00_6);} } }  else 
{ /* ./Eval/evmeaning.scm 745 */
FAILURE(BgL_procz00_4,BgL_mesz00_5,BgL_objz00_6);} }  else 
{ /* ./Eval/evmeaning.scm 744 */
FAILURE(BgL_procz00_4,BgL_mesz00_5,BgL_objz00_6);} } 
}



/* evmeaning-warning */
obj_t BGl_evmeaningzd2warningzd2zz__evmeaningz00(obj_t BgL_bcodez00_7, obj_t BgL_argsz00_8)
{ AN_OBJECT;
{ /* ./Eval/evmeaning.scm 755 */
if(
VECTORP(BgL_bcodez00_7))
{ /* ./Eval/evmeaning.scm 757 */
obj_t BgL_ezd2129zd2_970;
{ 
int BgL_auxz00_4757;
BgL_auxz00_4757 = 
(int)(((long)1)); 
BgL_ezd2129zd2_970 = 
VECTOR_REF(BgL_bcodez00_7,BgL_auxz00_4757); } 
if(
PAIRP(BgL_ezd2129zd2_970))
{ /* ./Eval/evmeaning.scm 757 */
obj_t BgL_cdrzd2137zd2_972;
BgL_cdrzd2137zd2_972 = 
CDR(BgL_ezd2129zd2_970); 
{ /* ./Eval/evmeaning.scm 757 */
bool_t BgL_testz00_4763;
{ /* ./Eval/evmeaning.scm 757 */
obj_t BgL_auxz00_4764;
BgL_auxz00_4764 = 
CAR(BgL_ezd2129zd2_970); 
BgL_testz00_4763 = 
(BgL_auxz00_4764==BGl_symbol3605z00zz__evmeaningz00); } 
if(BgL_testz00_4763)
{ /* ./Eval/evmeaning.scm 757 */
if(
PAIRP(BgL_cdrzd2137zd2_972))
{ /* ./Eval/evmeaning.scm 757 */
obj_t BgL_cdrzd2142zd2_975;
BgL_cdrzd2142zd2_975 = 
CDR(BgL_cdrzd2137zd2_972); 
if(
PAIRP(BgL_cdrzd2142zd2_975))
{ /* ./Eval/evmeaning.scm 757 */
obj_t BgL_cdrzd2147zd2_977;
BgL_cdrzd2147zd2_977 = 
CDR(BgL_cdrzd2142zd2_975); 
if(
PAIRP(BgL_cdrzd2147zd2_977))
{ /* ./Eval/evmeaning.scm 757 */
bool_t BgL_testz00_4775;
{ /* ./Eval/evmeaning.scm 757 */
obj_t BgL_auxz00_4776;
BgL_auxz00_4776 = 
CDR(BgL_cdrzd2147zd2_977); 
BgL_testz00_4775 = 
NULLP(BgL_auxz00_4776); } 
if(BgL_testz00_4775)
{ /* ./Eval/evmeaning.scm 757 */
obj_t BgL_arg2124z00_980;obj_t BgL_arg2125z00_981;
BgL_arg2124z00_980 = 
CAR(BgL_cdrzd2137zd2_972); 
BgL_arg2125z00_981 = 
CAR(BgL_cdrzd2142zd2_975); 
{ /* ./Eval/evmeaning.scm 757 */
obj_t BgL_runner2163z00_2518;
{ /* ./Eval/evmeaning.scm 757 */
obj_t BgL_arg2155z00_2519;
{ /* ./Eval/evmeaning.scm 757 */
obj_t BgL_auxz00_4781;
BgL_auxz00_4781 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_argsz00_8, BNIL); 
BgL_arg2155z00_2519 = 
MAKE_PAIR(BgL_arg2125z00_981, BgL_auxz00_4781); } 
BgL_runner2163z00_2518 = 
MAKE_PAIR(BgL_arg2124z00_980, BgL_arg2155z00_2519); } 
{ /* ./Eval/evmeaning.scm 757 */
obj_t BgL_aux2161z00_2521;
BgL_aux2161z00_2521 = 
CAR(BgL_runner2163z00_2518); 
BgL_runner2163z00_2518 = 
CDR(BgL_runner2163z00_2518); 
{ /* ./Eval/evmeaning.scm 757 */
obj_t BgL_aux2162z00_2522;
BgL_aux2162z00_2522 = 
CAR(BgL_runner2163z00_2518); 
BgL_runner2163z00_2518 = 
CDR(BgL_runner2163z00_2518); 
return 
BGl_warningzf2locationzf2zz__errorz00(BgL_aux2161z00_2521, BgL_aux2162z00_2522, BgL_runner2163z00_2518);} } } }  else 
{ /* ./Eval/evmeaning.scm 757 */
return 
BGl_warningz00zz__errorz00(BgL_argsz00_8);} }  else 
{ /* ./Eval/evmeaning.scm 757 */
return 
BGl_warningz00zz__errorz00(BgL_argsz00_8);} }  else 
{ /* ./Eval/evmeaning.scm 757 */
return 
BGl_warningz00zz__errorz00(BgL_argsz00_8);} }  else 
{ /* ./Eval/evmeaning.scm 757 */
return 
BGl_warningz00zz__errorz00(BgL_argsz00_8);} }  else 
{ /* ./Eval/evmeaning.scm 757 */
return 
BGl_warningz00zz__errorz00(BgL_argsz00_8);} } }  else 
{ /* ./Eval/evmeaning.scm 757 */
return 
BGl_warningz00zz__errorz00(BgL_argsz00_8);} }  else 
{ /* ./Eval/evmeaning.scm 756 */
return 
BGl_warningz00zz__errorz00(BgL_argsz00_8);} } 
}



/* evmeaning-notify-error */
BGL_EXPORTED_DEF obj_t BGl_evmeaningzd2notifyzd2errorz00zz__evmeaningz00(obj_t BgL_procz00_9, obj_t BgL_mesz00_10, obj_t BgL_objz00_11)
{ AN_OBJECT;
{ /* ./Eval/evmeaning.scm 767 */
{ 

{ /* ./Eval/evmeaning.scm 780 */
bool_t BgL_test2171z00_994;
BgL_test2171z00_994 = 
EXTENDED_PAIRP(BgL_objz00_11); 
if(BgL_test2171z00_994)
{ /* ./Eval/evmeaning.scm 781 */
obj_t BgL_ezd2181zd2_1000;
BgL_ezd2181zd2_1000 = 
CER(BgL_objz00_11); 
if(
PAIRP(BgL_ezd2181zd2_1000))
{ /* ./Eval/evmeaning.scm 781 */
obj_t BgL_cdrzd2189zd2_1002;
BgL_cdrzd2189zd2_1002 = 
CDR(BgL_ezd2181zd2_1000); 
{ /* ./Eval/evmeaning.scm 781 */
bool_t BgL_testz00_4803;
{ /* ./Eval/evmeaning.scm 781 */
obj_t BgL_auxz00_4804;
BgL_auxz00_4804 = 
CAR(BgL_ezd2181zd2_1000); 
BgL_testz00_4803 = 
(BgL_auxz00_4804==BGl_symbol3605z00zz__evmeaningz00); } 
if(BgL_testz00_4803)
{ /* ./Eval/evmeaning.scm 781 */
if(
PAIRP(BgL_cdrzd2189zd2_1002))
{ /* ./Eval/evmeaning.scm 781 */
obj_t BgL_cdrzd2194zd2_1005;
BgL_cdrzd2194zd2_1005 = 
CDR(BgL_cdrzd2189zd2_1002); 
if(
PAIRP(BgL_cdrzd2194zd2_1005))
{ /* ./Eval/evmeaning.scm 781 */
obj_t BgL_cdrzd2199zd2_1007;
BgL_cdrzd2199zd2_1007 = 
CDR(BgL_cdrzd2194zd2_1005); 
if(
PAIRP(BgL_cdrzd2199zd2_1007))
{ /* ./Eval/evmeaning.scm 781 */
bool_t BgL_testz00_4815;
{ /* ./Eval/evmeaning.scm 781 */
obj_t BgL_auxz00_4816;
BgL_auxz00_4816 = 
CDR(BgL_cdrzd2199zd2_1007); 
BgL_testz00_4815 = 
NULLP(BgL_auxz00_4816); } 
if(BgL_testz00_4815)
{ /* ./Eval/evmeaning.scm 781 */
obj_t BgL_arg2179z00_1010;obj_t BgL_arg2180z00_1011;
BgL_arg2179z00_1010 = 
CAR(BgL_cdrzd2189zd2_1002); 
BgL_arg2180z00_1011 = 
CAR(BgL_cdrzd2194zd2_1005); 
BGl_za2currentzd2bcodeza2zd2zz__evmeaningz00 = BFALSE; 
{ /* ./Eval/evmeaning.scm 781 */
obj_t BgL_errz00_2561;
BgL_errz00_2561 = 
BGl_errorzf2locationzd2filez20zz__errorz00(BgL_arg2179z00_1010, BgL_arg2180z00_1011); 
if(
PROCEDUREP(BgL_errz00_2561))
{ /* ./Eval/evmeaning.scm 781 */
return 
PROCEDURE_ENTRY(BgL_errz00_2561)(BgL_errz00_2561, BgL_procz00_9, BgL_mesz00_10, BgL_objz00_11, BEOA);}  else 
{ /* ./Eval/evmeaning.scm 781 */
return 
BGl_notifyzd2errorzd2zz__errorz00(BgL_procz00_9, BgL_mesz00_10, BgL_objz00_11);} } }  else 
{ /* ./Eval/evmeaning.scm 781 */
BgL_zc3anonymousza32217ze3z83_1018:
if(
VECTORP(BGl_za2currentzd2bcodeza2zd2zz__evmeaningz00))
{ /* ./Eval/evmeaning.scm 770 */
obj_t BgL_ezd2155zd2_1025;
{ 
int BgL_auxz00_4829;
BgL_auxz00_4829 = 
(int)(((long)1)); 
BgL_ezd2155zd2_1025 = 
VECTOR_REF(BGl_za2currentzd2bcodeza2zd2zz__evmeaningz00,BgL_auxz00_4829); } 
if(
PAIRP(BgL_ezd2155zd2_1025))
{ /* ./Eval/evmeaning.scm 770 */
obj_t BgL_cdrzd2163zd2_1027;
BgL_cdrzd2163zd2_1027 = 
CDR(BgL_ezd2155zd2_1025); 
{ /* ./Eval/evmeaning.scm 770 */
bool_t BgL_testz00_4835;
{ /* ./Eval/evmeaning.scm 770 */
obj_t BgL_auxz00_4836;
BgL_auxz00_4836 = 
CAR(BgL_ezd2155zd2_1025); 
BgL_testz00_4835 = 
(BgL_auxz00_4836==BGl_symbol3605z00zz__evmeaningz00); } 
if(BgL_testz00_4835)
{ /* ./Eval/evmeaning.scm 770 */
if(
PAIRP(BgL_cdrzd2163zd2_1027))
{ /* ./Eval/evmeaning.scm 770 */
obj_t BgL_cdrzd2168zd2_1030;
BgL_cdrzd2168zd2_1030 = 
CDR(BgL_cdrzd2163zd2_1027); 
if(
PAIRP(BgL_cdrzd2168zd2_1030))
{ /* ./Eval/evmeaning.scm 770 */
obj_t BgL_cdrzd2173zd2_1032;
BgL_cdrzd2173zd2_1032 = 
CDR(BgL_cdrzd2168zd2_1030); 
if(
PAIRP(BgL_cdrzd2173zd2_1032))
{ /* ./Eval/evmeaning.scm 770 */
bool_t BgL_testz00_4847;
{ /* ./Eval/evmeaning.scm 770 */
obj_t BgL_auxz00_4848;
BgL_auxz00_4848 = 
CDR(BgL_cdrzd2173zd2_1032); 
BgL_testz00_4847 = 
NULLP(BgL_auxz00_4848); } 
if(BgL_testz00_4847)
{ /* ./Eval/evmeaning.scm 770 */
obj_t BgL_arg2226z00_1035;obj_t BgL_arg2227z00_1036;
BgL_arg2226z00_1035 = 
CAR(BgL_cdrzd2163zd2_1027); 
BgL_arg2227z00_1036 = 
CAR(BgL_cdrzd2168zd2_1030); 
BGl_za2currentzd2bcodeza2zd2zz__evmeaningz00 = BFALSE; 
{ /* ./Eval/evmeaning.scm 770 */
obj_t BgL_errz00_2586;
BgL_errz00_2586 = 
BGl_errorzf2locationzd2filez20zz__errorz00(BgL_arg2226z00_1035, BgL_arg2227z00_1036); 
if(
PROCEDUREP(BgL_errz00_2586))
{ /* ./Eval/evmeaning.scm 770 */
return 
PROCEDURE_ENTRY(BgL_errz00_2586)(BgL_errz00_2586, BgL_procz00_9, BgL_mesz00_10, BgL_objz00_11, BEOA);}  else 
{ /* ./Eval/evmeaning.scm 770 */
return 
BGl_notifyzd2errorzd2zz__errorz00(BgL_procz00_9, BgL_mesz00_10, BgL_objz00_11);} } }  else 
{ /* ./Eval/evmeaning.scm 770 */
return 
BGl_notifyzd2errorzd2zz__errorz00(BgL_procz00_9, BgL_mesz00_10, BgL_objz00_11);} }  else 
{ /* ./Eval/evmeaning.scm 770 */
return 
BGl_notifyzd2errorzd2zz__errorz00(BgL_procz00_9, BgL_mesz00_10, BgL_objz00_11);} }  else 
{ /* ./Eval/evmeaning.scm 770 */
return 
BGl_notifyzd2errorzd2zz__errorz00(BgL_procz00_9, BgL_mesz00_10, BgL_objz00_11);} }  else 
{ /* ./Eval/evmeaning.scm 770 */
return 
BGl_notifyzd2errorzd2zz__errorz00(BgL_procz00_9, BgL_mesz00_10, BgL_objz00_11);} }  else 
{ /* ./Eval/evmeaning.scm 770 */
return 
BGl_notifyzd2errorzd2zz__errorz00(BgL_procz00_9, BgL_mesz00_10, BgL_objz00_11);} } }  else 
{ /* ./Eval/evmeaning.scm 770 */
return 
BGl_notifyzd2errorzd2zz__errorz00(BgL_procz00_9, BgL_mesz00_10, BgL_objz00_11);} }  else 
{ /* ./Eval/evmeaning.scm 769 */
return 
BGl_notifyzd2errorzd2zz__errorz00(BgL_procz00_9, BgL_mesz00_10, BgL_objz00_11);} } }  else 
{ /* ./Eval/evmeaning.scm 781 */
goto BgL_zc3anonymousza32217ze3z83_1018;} }  else 
{ /* ./Eval/evmeaning.scm 781 */
goto BgL_zc3anonymousza32217ze3z83_1018;} }  else 
{ /* ./Eval/evmeaning.scm 781 */
goto BgL_zc3anonymousza32217ze3z83_1018;} }  else 
{ /* ./Eval/evmeaning.scm 781 */
goto BgL_zc3anonymousza32217ze3z83_1018;} } }  else 
{ /* ./Eval/evmeaning.scm 781 */
goto BgL_zc3anonymousza32217ze3z83_1018;} }  else 
{ /* ./Eval/evmeaning.scm 780 */
goto BgL_zc3anonymousza32217ze3z83_1018;} } } } 
}



/* _evmeaning-notify-error */
obj_t BGl__evmeaningzd2notifyzd2errorz00zz__evmeaningz00(obj_t BgL_envz00_2883, obj_t BgL_procz00_2884, obj_t BgL_mesz00_2885, obj_t BgL_objz00_2886)
{ AN_OBJECT;
{ /* ./Eval/evmeaning.scm 767 */
return 
BGl_evmeaningzd2notifyzd2errorz00zz__evmeaningz00(BgL_procz00_2884, BgL_mesz00_2885, BgL_objz00_2886);} 
}



/* evmeaning-location */
BGL_EXPORTED_DEF obj_t BGl_evmeaningzd2locationzd2zz__evmeaningz00()
{ AN_OBJECT;
{ /* ./Eval/evmeaning.scm 795 */
if(
VECTORP(BGl_za2currentzd2bcodeza2zd2zz__evmeaningz00))
{ /* ./Eval/evmeaning.scm 797 */
obj_t BgL_pz00_1045;
{ 
int BgL_auxz00_4869;
BgL_auxz00_4869 = 
(int)(((long)1)); 
BgL_pz00_1045 = 
VECTOR_REF(BGl_za2currentzd2bcodeza2zd2zz__evmeaningz00,BgL_auxz00_4869); } 
if(
PAIRP(BgL_pz00_1045))
{ /* ./Eval/evmeaning.scm 798 */
obj_t BgL_cdrzd2215zd2_1053;
BgL_cdrzd2215zd2_1053 = 
CDR(BgL_pz00_1045); 
{ /* ./Eval/evmeaning.scm 798 */
bool_t BgL_testz00_4875;
{ /* ./Eval/evmeaning.scm 798 */
obj_t BgL_auxz00_4876;
BgL_auxz00_4876 = 
CAR(BgL_pz00_1045); 
BgL_testz00_4875 = 
(BgL_auxz00_4876==BGl_symbol3605z00zz__evmeaningz00); } 
if(BgL_testz00_4875)
{ /* ./Eval/evmeaning.scm 798 */
if(
PAIRP(BgL_cdrzd2215zd2_1053))
{ /* ./Eval/evmeaning.scm 798 */
obj_t BgL_cdrzd2220zd2_1056;
BgL_cdrzd2220zd2_1056 = 
CDR(BgL_cdrzd2215zd2_1053); 
if(
PAIRP(BgL_cdrzd2220zd2_1056))
{ /* ./Eval/evmeaning.scm 798 */
obj_t BgL_cdrzd2225zd2_1058;
BgL_cdrzd2225zd2_1058 = 
CDR(BgL_cdrzd2220zd2_1056); 
if(
PAIRP(BgL_cdrzd2225zd2_1058))
{ /* ./Eval/evmeaning.scm 798 */
bool_t BgL_testz00_4887;
{ /* ./Eval/evmeaning.scm 798 */
obj_t BgL_auxz00_4888;
BgL_auxz00_4888 = 
CDR(BgL_cdrzd2225zd2_1058); 
BgL_testz00_4887 = 
NULLP(BgL_auxz00_4888); } 
if(BgL_testz00_4887)
{ /* ./Eval/evmeaning.scm 798 */
return BgL_pz00_1045;}  else 
{ /* ./Eval/evmeaning.scm 798 */
return BFALSE;} }  else 
{ /* ./Eval/evmeaning.scm 798 */
return BFALSE;} }  else 
{ /* ./Eval/evmeaning.scm 798 */
return BFALSE;} }  else 
{ /* ./Eval/evmeaning.scm 798 */
return BFALSE;} }  else 
{ /* ./Eval/evmeaning.scm 798 */
return BFALSE;} } }  else 
{ /* ./Eval/evmeaning.scm 798 */
return BFALSE;} }  else 
{ /* ./Eval/evmeaning.scm 796 */
return BFALSE;} } 
}



/* _evmeaning-location */
obj_t BGl__evmeaningzd2locationzd2zz__evmeaningz00(obj_t BgL_envz00_2887)
{ AN_OBJECT;
{ /* ./Eval/evmeaning.scm 795 */
return 
BGl_evmeaningzd2locationzd2zz__evmeaningz00();} 
}



/* evmeaning-reset-error! */
BGL_EXPORTED_DEF obj_t BGl_evmeaningzd2resetzd2errorz12z12zz__evmeaningz00()
{ AN_OBJECT;
{ /* ./Eval/evmeaning.scm 808 */
return ( 
BGl_za2currentzd2bcodeza2zd2zz__evmeaningz00 = BFALSE, BUNSPEC) ;} 
}



/* _evmeaning-reset-error! */
obj_t BGl__evmeaningzd2resetzd2errorz12z12zz__evmeaningz00(obj_t BgL_envz00_2888)
{ AN_OBJECT;
{ /* ./Eval/evmeaning.scm 808 */
return 
BGl_evmeaningzd2resetzd2errorz12z12zz__evmeaningz00();} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__evmeaningz00()
{ AN_OBJECT;
{ /* ./Eval/evmeaning.scm 14 */
BGl_modulezd2initializa7ationz75zz__typez00(((long)52864), "__evmeaning"); 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__evmeaning"); 
BGl_modulezd2initializa7ationz75zz__biglooz00(((long)48291), "__evmeaning"); 
BGl_modulezd2initializa7ationz75zz__tvectorz00(((long)57114), "__evmeaning"); 
BGl_modulezd2initializa7ationz75zz__structurez00(((long)53290), "__evmeaning"); 
BGl_modulezd2initializa7ationz75zz__bexitz00(((long)13855), "__evmeaning"); 
BGl_modulezd2initializa7ationz75zz__osz00(((long)63306), "__evmeaning"); 
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(((long)21694), "__evmeaning"); 
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(((long)6615), "__evmeaning"); 
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(((long)49269), "__evmeaning"); 
BGl_modulezd2initializa7ationz75zz__r4_characters_6_6z00(((long)29164), "__evmeaning"); 
BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(((long)51785), "__evmeaning"); 
BGl_modulezd2initializa7ationz75zz__r4_booleans_6_1z00(((long)35070), "__evmeaning"); 
BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(((long)247), "__evmeaning"); 
BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(((long)21875), "__evmeaning"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)104413), "__evmeaning"); 
BGl_modulezd2initializa7ationz75zz__r4_input_6_10_2z00(((long)50132), "__evmeaning"); 
BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(((long)63121), "__evmeaning"); 
BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(((long)13988), "__evmeaning"); 
BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(((long)45566), "__evmeaning"); 
BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(((long)18972), "__evmeaning"); 
BGl_modulezd2initializa7ationz75zz__prognz00(((long)9608), "__evmeaning"); 
BGl_modulezd2initializa7ationz75zz__evenvz00(((long)3930), "__evmeaning"); 
return 
BGl_modulezd2initializa7ationz75zz__evcompilez00(((long)0), "__evmeaning");} 
}

