/*===========================================================================*/
/*   (Eval/evcompile.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/evcompile.scm -indent -o objs/obj_u/Eval/evcompile.c)*/
/* GC selection */
#define THE_GC BOEHM_GC

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

static obj_t BGl_symbol4099z00zz__evcompilez00 = BUNSPEC;
static obj_t BGl_loopz00zz__evcompilez00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol4098z00zz__evcompilez00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__evcompilez00(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__dssslz00(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__evenvz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__evalz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__expandz00(long, char *);
static obj_t BGl_symbol4097z00zz__evcompilez00 = BUNSPEC;
static obj_t BGl_symbol4096z00zz__evcompilez00 = BUNSPEC;
static obj_t BGl_symbol4095z00zz__evcompilez00 = BUNSPEC;
static obj_t BGl_symbol4094z00zz__evcompilez00 = BUNSPEC;
static obj_t BGl_symbol4093z00zz__evcompilez00 = BUNSPEC;
extern obj_t BGl_expandz00zz__expandz00(obj_t);
static obj_t BGl_symbol4102z00zz__evcompilez00 = BUNSPEC;
static obj_t BGl_symbol4092z00zz__evcompilez00 = BUNSPEC;
static obj_t BGl_symbol4091z00zz__evcompilez00 = BUNSPEC;
static obj_t BGl_symbol4090z00zz__evcompilez00 = BUNSPEC;
static obj_t BGl_symbol4087z00zz__evcompilez00 = BUNSPEC;
static obj_t BGl_symbol4083z00zz__evcompilez00 = BUNSPEC;
extern obj_t BGl_makezd2dssslzd2functionzd2preludezd2zz__dssslz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__evcompilez00zz__evcompilez00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_nullzd2environmentzd2zz__evalz00(obj_t);
extern long bgl_list_length(obj_t);
static obj_t BGl__loop_z00zz__evcompilez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_findzd2loczd2zz__evcompilez00(obj_t, obj_t);
static obj_t BGl_evcompilezd2cnstzd2zz__evcompilez00(obj_t, obj_t);
extern obj_t BGl_schemezd2reportzd2environmentz00zz__evalz00(obj_t);
static obj_t BGl_cnstzd2initzd2zz__evcompilez00();
extern obj_t string_to_symbol(char *);
static obj_t BGl__findzd2loczd2zz__evcompilez00(obj_t, obj_t, obj_t);
static obj_t BGl_evcompilezd2errorzd2zz__evcompilez00(obj_t, obj_t, obj_t, obj_t);
extern obj_t c_substring(obj_t, int, int);
static obj_t BGl_evcompilezd2lambdazd2zz__evcompilez00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_makezd2promisezd2zz__r4_control_features_6_9z00(obj_t);
extern obj_t BGl_interactionzd2environmentzd2zz__evalz00();
static obj_t BGl_zc3anonymousza31969ze3z83zz__evcompilez00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_evcompilezd2refzd2zz__evcompilez00(obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zz__evcompilez00();
static obj_t BGl_evcompilezd2compiledzd2applicationz00zz__evcompilez00(obj_t, obj_t, obj_t);
extern obj_t BGl_evalzd2lookupzd2zz__evenvz00(obj_t);
static obj_t BGl_requirezd2initializa7ationz75zz__evcompilez00 = BUNSPEC;
extern obj_t BGl_modulezd2declarationz12zc0zz__evalz00(obj_t);
extern obj_t BGl_errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_untypezd2identzd2zz__evcompilez00(obj_t);
extern obj_t BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(obj_t);
static obj_t BGl_zc3anonymousza31977ze3z83zz__evcompilez00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_evcompilezd2beginzd2zz__evcompilez00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31842ze3z83zz__evcompilez00(obj_t);
static obj_t BGl_evcompilezd2globalzd2applicationz00zz__evcompilez00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_evcompilez00zz__evcompilez00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_variablez00zz__evcompilez00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_untypezd2identza2z70zz__evcompilez00(obj_t);
extern obj_t BGl_dssslzd2formalszd2ze3schemezd2formalsz31zz__dssslz00(obj_t, obj_t);
static obj_t BGl_evcompilezd2setzd2zz__evcompilez00(obj_t, obj_t, obj_t);
static obj_t BGl_evcompilezd2applicationzd2zz__evcompilez00(obj_t, obj_t, obj_t, obj_t);
static obj_t *__cnst;


DEFINE_EXPORT_PROCEDURE( BGl_findzd2loczd2envz00zz__evcompilez00, BgL_bgl__findza7d2locza7d2za7za7__evcompileza7004108za7, BGl__findzd2loczd2zz__evcompilez00, 0L, 2 );
DEFINE_STRING( BGl_string4101z00zz__evcompilez00, BgL_bgl_string4101za700za7za7__evcompileza7004109z00, "Illegal `set!' expression", 25 );
DEFINE_STRING( BGl_string4100z00zz__evcompilez00, BgL_bgl_string4100za700za7za7__evcompileza7004110z00, "Unbound variable", 16 );
DEFINE_STRING( BGl_string4089z00zz__evcompilez00, BgL_bgl_string4089za700za7za7__evcompileza7004111z00, "Illegal expression", 18 );
DEFINE_STRING( BGl_string4088z00zz__evcompilez00, BgL_bgl_string4088za700za7za7__evcompileza7004112z00, "Not a procedure", 15 );
DEFINE_STRING( BGl_string4086z00zz__evcompilez00, BgL_bgl_string4086za700za7za7__evcompileza7004113z00, "Illegal form", 12 );
DEFINE_STRING( BGl_string4085z00zz__evcompilez00, BgL_bgl_string4085za700za7za7__evcompileza7004114z00, "set!", 4 );
DEFINE_STRING( BGl_string4084z00zz__evcompilez00, BgL_bgl_string4084za700za7za7__evcompileza7004115z00, "Illegal define form (sealed environment)", 40 );
DEFINE_STRING( BGl_string4082z00zz__evcompilez00, BgL_bgl_string4082za700za7za7__evcompileza7004116z00, "Illegal expression (should be quoted)", 37 );
DEFINE_STRING( BGl_string4081z00zz__evcompilez00, BgL_bgl_string4081za700za7za7__evcompileza7004117z00, "eval", 4 );
DEFINE_EXPORT_PROCEDURE( BGl_evcompilezd2envzd2zz__evcompilez00, BgL_bgl__evcompileza700za7za7__evcompileza7004118z00, BGl__evcompilez00zz__evcompilez00, 0L, 6 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__evcompilez00(long BgL_checksumz00_3029, char * BgL_fromz00_3030)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__evcompilez00))
{ 
BGl_requirezd2initializa7ationz75zz__evcompilez00 = 
BBOOL(((bool_t)0)); 
BGl_cnstzd2initzd2zz__evcompilez00(); 
BGl_importedzd2moduleszd2initz00zz__evcompilez00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__evcompilez00()
{ AN_OBJECT;
{ /* ./Eval/evcompile.scm 15 */
BGl_symbol4083z00zz__evcompilez00 = 
string_to_symbol("nowhere"); 
BGl_symbol4087z00zz__evcompilez00 = 
string_to_symbol("lambda"); 
BGl_symbol4090z00zz__evcompilez00 = 
string_to_symbol("module"); 
BGl_symbol4091z00zz__evcompilez00 = 
string_to_symbol("assert"); 
BGl_symbol4092z00zz__evcompilez00 = 
string_to_symbol("quote"); 
BGl_symbol4093z00zz__evcompilez00 = 
string_to_symbol("if"); 
BGl_symbol4094z00zz__evcompilez00 = 
string_to_symbol("begin"); 
BGl_symbol4095z00zz__evcompilez00 = 
string_to_symbol("define"); 
BGl_symbol4096z00zz__evcompilez00 = 
string_to_symbol("set!"); 
BGl_symbol4097z00zz__evcompilez00 = 
string_to_symbol("bind-exit"); 
BGl_symbol4098z00zz__evcompilez00 = 
string_to_symbol("unwind-protect"); 
BGl_symbol4099z00zz__evcompilez00 = 
string_to_symbol("dynamic"); 
return ( 
BGl_symbol4102z00zz__evcompilez00 = 
string_to_symbol("at"), BUNSPEC) ;} 
}



/* find-loc */
BGL_EXPORTED_DEF obj_t BGl_findzd2loczd2zz__evcompilez00(obj_t BgL_expz00_1, obj_t BgL_defaultz00_2)
{ AN_OBJECT;
{ /* ./Eval/evcompile.scm 53 */
{ /* ./Eval/evcompile.scm 54 */
bool_t BgL_test1097z00_1405;
BgL_test1097z00_1405 = 
EXTENDED_PAIRP(BgL_expz00_1); 
if(BgL_test1097z00_1405)
{ /* ./Eval/evcompile.scm 54 */
return 
CER(BgL_expz00_1);}  else 
{ /* ./Eval/evcompile.scm 54 */
return BgL_defaultz00_2;} } } 
}



/* _find-loc */
obj_t BGl__findzd2loczd2zz__evcompilez00(obj_t BgL_envz00_2990, obj_t BgL_expz00_2991, obj_t BgL_defaultz00_2992)
{ AN_OBJECT;
{ /* ./Eval/evcompile.scm 53 */
return 
BGl_findzd2loczd2zz__evcompilez00(BgL_expz00_2991, BgL_defaultz00_2992);} 
}



/* untype-ident */
obj_t BGl_untypezd2identzd2zz__evcompilez00(obj_t BgL_idz00_3)
{ AN_OBJECT;
{ /* ./Eval/evcompile.scm 61 */
if(
SYMBOLP(BgL_idz00_3))
{ /* ./Eval/evcompile.scm 64 */
obj_t BgL_stringz00_422;
BgL_stringz00_422 = 
SYMBOL_TO_STRING(BgL_idz00_3); 
{ /* ./Eval/evcompile.scm 64 */
int BgL_lenz00_423;
BgL_lenz00_423 = 
STRING_LENGTH(BgL_stringz00_422); 
{ /* ./Eval/evcompile.scm 65 */

{ 
long BgL_walkerz00_424;
BgL_walkerz00_424 = ((long)0); 
BgL_loopz00_425:
{ /* ./Eval/evcompile.scm 68 */
bool_t BgL_testz00_3057;
{ /* ./Eval/evcompile.scm 68 */
long BgL_auxz00_3058;
BgL_auxz00_3058 = 
(long)(BgL_lenz00_423); 
BgL_testz00_3057 = 
(BgL_walkerz00_424==BgL_auxz00_3058); } 
if(BgL_testz00_3057)
{ /* ./Eval/evcompile.scm 68 */
return BgL_idz00_3;}  else 
{ /* ./Eval/evcompile.scm 70 */
bool_t BgL_test1103z00_427;
{ /* ./Eval/evcompile.scm 70 */
bool_t BgL_testz00_3061;
{ /* ./Eval/evcompile.scm 70 */
unsigned char BgL_auxz00_3062;
{ /* ./Eval/evcompile.scm 70 */
int BgL_auxz00_3063;
BgL_auxz00_3063 = 
(int)(BgL_walkerz00_424); 
BgL_auxz00_3062 = 
STRING_REF(BgL_stringz00_422, BgL_auxz00_3063); } 
BgL_testz00_3061 = 
(BgL_auxz00_3062==((unsigned char)':')); } 
if(BgL_testz00_3061)
{ /* ./Eval/evcompile.scm 71 */
bool_t BgL_testz00_3067;
{ /* ./Eval/evcompile.scm 71 */
long BgL_auxz00_3068;
{ /* ./Eval/evcompile.scm 71 */
long BgL_auxz00_3069;
BgL_auxz00_3069 = 
(long)(BgL_lenz00_423); 
BgL_auxz00_3068 = 
(BgL_auxz00_3069-((long)1)); } 
BgL_testz00_3067 = 
(BgL_walkerz00_424<BgL_auxz00_3068); } 
if(BgL_testz00_3067)
{ /* ./Eval/evcompile.scm 72 */
unsigned char BgL_auxz00_3073;
{ /* ./Eval/evcompile.scm 72 */
int BgL_auxz00_3074;
{ /* ./Eval/evcompile.scm 72 */
long BgL_auxz00_3075;
BgL_auxz00_3075 = 
(BgL_walkerz00_424+((long)1)); 
BgL_auxz00_3074 = 
(int)(BgL_auxz00_3075); } 
BgL_auxz00_3073 = 
STRING_REF(BgL_stringz00_422, BgL_auxz00_3074); } 
BgL_test1103z00_427 = 
(BgL_auxz00_3073==((unsigned char)':')); }  else 
{ /* ./Eval/evcompile.scm 71 */
BgL_test1103z00_427 = ((bool_t)0); } }  else 
{ /* ./Eval/evcompile.scm 70 */
BgL_test1103z00_427 = ((bool_t)0); } } 
if(BgL_test1103z00_427)
{ /* ./Eval/evcompile.scm 70 */
{ /* ./Eval/evcompile.scm 73 */
obj_t BgL_arg1105z00_428;
{ /* ./Eval/evcompile.scm 73 */
int BgL_auxz00_3083;int BgL_auxz00_3081;
BgL_auxz00_3083 = 
(int)(BgL_walkerz00_424); 
BgL_auxz00_3081 = 
(int)(((long)0)); 
BgL_arg1105z00_428 = 
c_substring(BgL_stringz00_422, BgL_auxz00_3081, BgL_auxz00_3083); } 
{ /* ./Eval/evcompile.scm 73 */
char * BgL_auxz00_3086;
BgL_auxz00_3086 = 
BSTRING_TO_STRING(BgL_arg1105z00_428); 
return 
string_to_symbol(BgL_auxz00_3086);} } }  else 
{ /* ./Eval/evcompile.scm 70 */
{ 
long BgL_walkerz00_3089;
BgL_walkerz00_3089 = 
(BgL_walkerz00_424+((long)1)); 
BgL_walkerz00_424 = BgL_walkerz00_3089; 
goto BgL_loopz00_425;} } } } } } } }  else 
{ /* ./Eval/evcompile.scm 62 */
return BgL_idz00_3;} } 
}



/* untype-ident* */
obj_t BGl_untypezd2identza2z70zz__evcompilez00(obj_t BgL_identsz00_4)
{ AN_OBJECT;
{ /* ./Eval/evcompile.scm 80 */
if(
NULLP(BgL_identsz00_4))
{ /* ./Eval/evcompile.scm 82 */
return BNIL;}  else 
{ /* ./Eval/evcompile.scm 82 */
if(
PAIRP(BgL_identsz00_4))
{ /* ./Eval/evcompile.scm 84 */
{ /* ./Eval/evcompile.scm 85 */
obj_t BgL_auxz00_3098;obj_t BgL_auxz00_3095;
BgL_auxz00_3098 = 
BGl_untypezd2identza2z70zz__evcompilez00(
CDR(BgL_identsz00_4)); 
BgL_auxz00_3095 = 
BGl_untypezd2identzd2zz__evcompilez00(
CAR(BgL_identsz00_4)); 
return 
MAKE_PAIR(BgL_auxz00_3095, BgL_auxz00_3098);} }  else 
{ /* ./Eval/evcompile.scm 84 */
return 
BGl_untypezd2identzd2zz__evcompilez00(BgL_identsz00_4);} } } 
}



/* evcompile */
BGL_EXPORTED_DEF obj_t BGl_evcompilez00zz__evcompilez00(obj_t BgL_expz00_5, obj_t BgL_envz00_6, obj_t BgL_genvz00_7, obj_t BgL_wherez00_8, obj_t BgL_namedzf3zf3_9, obj_t BgL_locz00_10)
{ AN_OBJECT;
{ /* ./Eval/evcompile.scm 95 */
{ 
obj_t BgL_funz00_475;obj_t BgL_argsz00_476;obj_t BgL_funz00_472;obj_t BgL_argsz00_473;obj_t BgL_formalsz00_469;obj_t BgL_bodyz00_470;obj_t BgL_bodyz00_466;obj_t BgL_protectz00_467;obj_t BgL_escapez00_463;obj_t BgL_bodyz00_464;obj_t BgL_varz00_459;obj_t BgL_valz00_460;obj_t BgL_varz00_456;obj_t BgL_valz00_457;obj_t BgL_siz00_450;obj_t BgL_alorsz00_451;obj_t BgL_sinonz00_452;obj_t BgL_atomz00_446;
if(
NULLP(BgL_expz00_5))
{ /* ./Eval/evcompile.scm 96 */
return 
BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_10, BGl_string4081z00zz__evcompilez00, BGl_string4089z00zz__evcompilez00, BNIL);}  else 
{ /* ./Eval/evcompile.scm 96 */
if(
PAIRP(BgL_expz00_5))
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_cdrzd2150zd2_482;
BgL_cdrzd2150zd2_482 = 
CDR(BgL_expz00_5); 
{ /* ./Eval/evcompile.scm 96 */
bool_t BgL_testz00_3109;
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_auxz00_3110;
BgL_auxz00_3110 = 
CAR(BgL_expz00_5); 
BgL_testz00_3109 = 
(BgL_auxz00_3110==BGl_symbol4090z00zz__evcompilez00); } 
if(BgL_testz00_3109)
{ /* ./Eval/evcompile.scm 96 */
if(
PAIRP(BgL_cdrzd2150zd2_482))
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_arg1156z00_485;
BgL_arg1156z00_485 = 
CDR(BgL_cdrzd2150zd2_482); 
BGl_modulezd2declarationz12zc0zz__evalz00(BgL_arg1156z00_485); 
return BUNSPEC;}  else 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_carzd2280zd2_486;
BgL_carzd2280zd2_486 = 
CAR(BgL_expz00_5); 
if(
PAIRP(BgL_carzd2280zd2_486))
{ /* ./Eval/evcompile.scm 96 */
BgL_funz00_475 = BgL_carzd2280zd2_486; 
BgL_argsz00_476 = BgL_cdrzd2150zd2_482; 
BgL_tagzd2115zd2_477:
{ /* ./Eval/evcompile.scm 229 */
obj_t BgL_locz00_858;obj_t BgL_actualsz00_859;obj_t BgL_procz00_860;
{ /* ./Eval/evcompile.scm 229 */
bool_t BgL_test1097z00_1991;
BgL_test1097z00_1991 = 
EXTENDED_PAIRP(BgL_expz00_5); 
if(BgL_test1097z00_1991)
{ /* ./Eval/evcompile.scm 229 */
BgL_locz00_858 = 
CER(BgL_expz00_5); }  else 
{ /* ./Eval/evcompile.scm 229 */
BgL_locz00_858 = BgL_locz00_10; } } 
if(
NULLP(BgL_argsz00_476))
{ /* ./Eval/evcompile.scm 230 */
BgL_actualsz00_859 = BNIL; }  else 
{ /* ./Eval/evcompile.scm 230 */
obj_t BgL_head1020z00_863;
BgL_head1020z00_863 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1018z00_864;obj_t BgL_tail1021z00_865;
BgL_l1018z00_864 = BgL_argsz00_476; 
BgL_tail1021z00_865 = BgL_head1020z00_863; 
BgL_map1019z00_866:
if(
NULLP(BgL_l1018z00_864))
{ /* ./Eval/evcompile.scm 230 */
BgL_actualsz00_859 = 
CDR(BgL_head1020z00_863); }  else 
{ /* ./Eval/evcompile.scm 230 */
obj_t BgL_newtail1022z00_868;
{ /* ./Eval/evcompile.scm 230 */
obj_t BgL_auxz00_3129;
BgL_auxz00_3129 = 
BGl_evcompilez00zz__evcompilez00(
CAR(BgL_l1018z00_864), BgL_envz00_6, BgL_genvz00_7, BgL_wherez00_8, BFALSE, BgL_locz00_10); 
BgL_newtail1022z00_868 = 
MAKE_PAIR(BgL_auxz00_3129, BNIL); } 
SET_CDR(BgL_tail1021z00_865, BgL_newtail1022z00_868); 
{ 
obj_t BgL_tail1021z00_3136;obj_t BgL_l1018z00_3134;
BgL_l1018z00_3134 = 
CDR(BgL_l1018z00_864); 
BgL_tail1021z00_3136 = BgL_newtail1022z00_868; 
BgL_tail1021z00_865 = BgL_tail1021z00_3136; 
BgL_l1018z00_864 = BgL_l1018z00_3134; 
goto BgL_map1019z00_866;} } } } 
BgL_procz00_860 = 
BGl_evcompilez00zz__evcompilez00(BgL_funz00_475, BgL_envz00_6, BgL_genvz00_7, BgL_wherez00_8, BFALSE, BgL_locz00_10); 
return 
BGl_evcompilezd2applicationzd2zz__evcompilez00(BgL_funz00_475, BgL_procz00_860, BgL_actualsz00_859, BgL_locz00_858);} }  else 
{ /* ./Eval/evcompile.scm 96 */
BgL_funz00_472 = BgL_carzd2280zd2_486; 
BgL_argsz00_473 = BgL_cdrzd2150zd2_482; 
BgL_tagzd2114zd2_474:
{ /* ./Eval/evcompile.scm 207 */
obj_t BgL_locz00_831;
{ /* ./Eval/evcompile.scm 207 */
bool_t BgL_test1097z00_1954;
BgL_test1097z00_1954 = 
EXTENDED_PAIRP(BgL_expz00_5); 
if(BgL_test1097z00_1954)
{ /* ./Eval/evcompile.scm 207 */
BgL_locz00_831 = 
CER(BgL_expz00_5); }  else 
{ /* ./Eval/evcompile.scm 207 */
BgL_locz00_831 = BgL_locz00_10; } } 
{ /* ./Eval/evcompile.scm 207 */
obj_t BgL_actualsz00_832;
if(
NULLP(BgL_argsz00_473))
{ /* ./Eval/evcompile.scm 208 */
BgL_actualsz00_832 = BNIL; }  else 
{ /* ./Eval/evcompile.scm 208 */
obj_t BgL_head1014z00_848;
BgL_head1014z00_848 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1012z00_849;obj_t BgL_tail1015z00_850;
BgL_l1012z00_849 = BgL_argsz00_473; 
BgL_tail1015z00_850 = BgL_head1014z00_848; 
BgL_map1013z00_851:
if(
NULLP(BgL_l1012z00_849))
{ /* ./Eval/evcompile.scm 208 */
BgL_actualsz00_832 = 
CDR(BgL_head1014z00_848); }  else 
{ /* ./Eval/evcompile.scm 208 */
obj_t BgL_newtail1016z00_853;
{ /* ./Eval/evcompile.scm 208 */
obj_t BgL_auxz00_3148;
BgL_auxz00_3148 = 
BGl_evcompilez00zz__evcompilez00(
CAR(BgL_l1012z00_849), BgL_envz00_6, BgL_genvz00_7, BgL_wherez00_8, BFALSE, BgL_locz00_831); 
BgL_newtail1016z00_853 = 
MAKE_PAIR(BgL_auxz00_3148, BNIL); } 
SET_CDR(BgL_tail1015z00_850, BgL_newtail1016z00_853); 
{ 
obj_t BgL_tail1015z00_3155;obj_t BgL_l1012z00_3153;
BgL_l1012z00_3153 = 
CDR(BgL_l1012z00_849); 
BgL_tail1015z00_3155 = BgL_newtail1016z00_853; 
BgL_tail1015z00_850 = BgL_tail1015z00_3155; 
BgL_l1012z00_849 = BgL_l1012z00_3153; 
goto BgL_map1013z00_851;} } } } 
{ /* ./Eval/evcompile.scm 208 */

if(
SYMBOLP(BgL_funz00_472))
{ /* ./Eval/evcompile.scm 211 */
{ /* ./Eval/evcompile.scm 212 */
obj_t BgL_procz00_834;
BgL_procz00_834 = 
BGl_variablez00zz__evcompilez00(BgL_locz00_831, BgL_funz00_472, BgL_envz00_6, BgL_genvz00_7); 
{ /* ./Eval/evcompile.scm 214 */
bool_t BgL_test1981z00_835;
if(
VECTORP(BgL_procz00_834))
{ /* ./Eval/evcompile.scm 214 */
int BgL_arg3004z00_1971;
BgL_arg3004z00_1971 = 
VECTOR_LENGTH(BgL_procz00_834); 
{ /* ./Eval/evcompile.scm 214 */
long BgL_auxz00_3162;
BgL_auxz00_3162 = 
(long)(BgL_arg3004z00_1971); 
BgL_test1981z00_835 = 
(BgL_auxz00_3162==((long)3)); } }  else 
{ /* ./Eval/evcompile.scm 214 */
BgL_test1981z00_835 = ((bool_t)0); } 
if(BgL_test1981z00_835)
{ /* ./Eval/evcompile.scm 214 */
return 
BGl_evcompilezd2globalzd2applicationz00zz__evcompilez00(BgL_procz00_834, BgL_actualsz00_832, BgL_locz00_831);}  else 
{ /* ./Eval/evcompile.scm 214 */
return 
BGl_evcompilezd2applicationzd2zz__evcompilez00(BgL_funz00_472, 
BGl_evcompilezd2refzd2zz__evcompilez00(BgL_procz00_834, BgL_locz00_831), BgL_actualsz00_832, BgL_locz00_831);} } } }  else 
{ /* ./Eval/evcompile.scm 211 */
if(
PROCEDUREP(BgL_funz00_472))
{ /* ./Eval/evcompile.scm 221 */
return 
BGl_evcompilezd2compiledzd2applicationz00zz__evcompilez00(BgL_funz00_472, BgL_actualsz00_832, BgL_locz00_831);}  else 
{ /* ./Eval/evcompile.scm 221 */
BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_831, BGl_string4081z00zz__evcompilez00, BGl_string4088z00zz__evcompilez00, BgL_funz00_472); 
{ /* ./Eval/evcompile.scm 225 */
obj_t BgL_v1017z00_838;
{ 
int BgL_auxz00_3173;
BgL_auxz00_3173 = 
(int)(((long)3)); 
BgL_v1017z00_838 = 
create_vector(BgL_auxz00_3173); } 
{ /* ./Eval/evcompile.scm 225 */
obj_t BgL_arg1994z00_840;
{ /* ./Eval/evcompile.scm 227 */
obj_t BgL_list1997z00_841;
{ /* ./Eval/evcompile.scm 227 */
obj_t BgL_arg2001z00_843;
{ /* ./Eval/evcompile.scm 227 */
obj_t BgL_arg2005z00_845;
BgL_arg2005z00_845 = 
MAKE_PAIR(BgL_funz00_472, BNIL); 
BgL_arg2001z00_843 = 
MAKE_PAIR(BGl_string4088z00zz__evcompilez00, BgL_arg2005z00_845); } 
BgL_list1997z00_841 = 
MAKE_PAIR(BGl_string4081z00zz__evcompilez00, BgL_arg2001z00_843); } 
BgL_arg1994z00_840 = BgL_list1997z00_841; } 
{ 
int BgL_auxz00_3179;
BgL_auxz00_3179 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1017z00_838,BgL_auxz00_3179,BgL_arg1994z00_840); } } 
{ 
int BgL_auxz00_3182;
BgL_auxz00_3182 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1017z00_838,BgL_auxz00_3182,BgL_locz00_831); } 
{ 
obj_t BgL_auxz00_3187;int BgL_auxz00_3185;
BgL_auxz00_3187 = 
BINT(((long)-2)); 
BgL_auxz00_3185 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1017z00_838,BgL_auxz00_3185,BgL_auxz00_3187); } 
return BgL_v1017z00_838;} } } } } } } } }  else 
{ /* ./Eval/evcompile.scm 96 */
bool_t BgL_testz00_3190;
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_auxz00_3191;
BgL_auxz00_3191 = 
CAR(BgL_expz00_5); 
BgL_testz00_3190 = 
(BgL_auxz00_3191==BGl_symbol4091z00zz__evcompilez00); } 
if(BgL_testz00_3190)
{ /* ./Eval/evcompile.scm 96 */
return BUNSPEC;}  else 
{ /* ./Eval/evcompile.scm 96 */
bool_t BgL_testz00_3194;
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_auxz00_3195;
BgL_auxz00_3195 = 
CAR(BgL_expz00_5); 
BgL_testz00_3194 = 
(BgL_auxz00_3195==BGl_symbol4092z00zz__evcompilez00); } 
if(BgL_testz00_3194)
{ /* ./Eval/evcompile.scm 96 */
if(
PAIRP(BgL_cdrzd2150zd2_482))
{ /* ./Eval/evcompile.scm 96 */
bool_t BgL_testz00_3200;
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_auxz00_3201;
BgL_auxz00_3201 = 
CDR(BgL_cdrzd2150zd2_482); 
BgL_testz00_3200 = 
NULLP(BgL_auxz00_3201); } 
if(BgL_testz00_3200)
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_arg1181z00_496;
BgL_arg1181z00_496 = 
CAR(BgL_cdrzd2150zd2_482); 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_arg1802z00_1459;
{ /* ./Eval/evcompile.scm 96 */
bool_t BgL_test1097z00_1462;
BgL_test1097z00_1462 = 
EXTENDED_PAIRP(BgL_expz00_5); 
if(BgL_test1097z00_1462)
{ /* ./Eval/evcompile.scm 96 */
BgL_arg1802z00_1459 = 
CER(BgL_expz00_5); }  else 
{ /* ./Eval/evcompile.scm 96 */
BgL_arg1802z00_1459 = BgL_locz00_10; } } 
return 
BGl_evcompilezd2cnstzd2zz__evcompilez00(BgL_arg1181z00_496, BgL_arg1802z00_1459);} }  else 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_carzd2431zd2_497;
BgL_carzd2431zd2_497 = 
CAR(BgL_expz00_5); 
if(
PAIRP(BgL_carzd2431zd2_497))
{ 
obj_t BgL_argsz00_3213;obj_t BgL_funz00_3212;
BgL_funz00_3212 = BgL_carzd2431zd2_497; 
BgL_argsz00_3213 = 
CDR(BgL_expz00_5); 
BgL_argsz00_476 = BgL_argsz00_3213; 
BgL_funz00_475 = BgL_funz00_3212; 
goto BgL_tagzd2115zd2_477;}  else 
{ 
obj_t BgL_argsz00_3216;obj_t BgL_funz00_3215;
BgL_funz00_3215 = BgL_carzd2431zd2_497; 
BgL_argsz00_3216 = 
CDR(BgL_expz00_5); 
BgL_argsz00_473 = BgL_argsz00_3216; 
BgL_funz00_472 = BgL_funz00_3215; 
goto BgL_tagzd2114zd2_474;} } }  else 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_carzd2528zd2_503;
BgL_carzd2528zd2_503 = 
CAR(BgL_expz00_5); 
if(
PAIRP(BgL_carzd2528zd2_503))
{ 
obj_t BgL_argsz00_3222;obj_t BgL_funz00_3221;
BgL_funz00_3221 = BgL_carzd2528zd2_503; 
BgL_argsz00_3222 = 
CDR(BgL_expz00_5); 
BgL_argsz00_476 = BgL_argsz00_3222; 
BgL_funz00_475 = BgL_funz00_3221; 
goto BgL_tagzd2115zd2_477;}  else 
{ 
obj_t BgL_argsz00_3225;obj_t BgL_funz00_3224;
BgL_funz00_3224 = BgL_carzd2528zd2_503; 
BgL_argsz00_3225 = 
CDR(BgL_expz00_5); 
BgL_argsz00_473 = BgL_argsz00_3225; 
BgL_funz00_472 = BgL_funz00_3224; 
goto BgL_tagzd2114zd2_474;} } }  else 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_cdrzd2560zd2_508;
BgL_cdrzd2560zd2_508 = 
CDR(BgL_expz00_5); 
{ /* ./Eval/evcompile.scm 96 */
bool_t BgL_testz00_3228;
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_auxz00_3229;
BgL_auxz00_3229 = 
CAR(BgL_expz00_5); 
BgL_testz00_3228 = 
(BgL_auxz00_3229==BGl_symbol4093z00zz__evcompilez00); } 
if(BgL_testz00_3228)
{ /* ./Eval/evcompile.scm 96 */
if(
PAIRP(BgL_cdrzd2560zd2_508))
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_cdrzd2565zd2_511;
BgL_cdrzd2565zd2_511 = 
CDR(BgL_cdrzd2560zd2_508); 
if(
PAIRP(BgL_cdrzd2565zd2_511))
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_cdrzd2570zd2_513;
BgL_cdrzd2570zd2_513 = 
CDR(BgL_cdrzd2565zd2_511); 
if(
PAIRP(BgL_cdrzd2570zd2_513))
{ /* ./Eval/evcompile.scm 96 */
bool_t BgL_testz00_3240;
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_auxz00_3241;
BgL_auxz00_3241 = 
CDR(BgL_cdrzd2570zd2_513); 
BgL_testz00_3240 = 
NULLP(BgL_auxz00_3241); } 
if(BgL_testz00_3240)
{ /* ./Eval/evcompile.scm 96 */
BgL_siz00_450 = 
CAR(BgL_cdrzd2560zd2_508); 
BgL_alorsz00_451 = 
CAR(BgL_cdrzd2565zd2_511); 
BgL_sinonz00_452 = 
CAR(BgL_cdrzd2570zd2_513); 
{ /* ./Eval/evcompile.scm 119 */
obj_t BgL_locz00_748;
{ /* ./Eval/evcompile.scm 119 */
bool_t BgL_test1097z00_1732;
BgL_test1097z00_1732 = 
EXTENDED_PAIRP(BgL_expz00_5); 
if(BgL_test1097z00_1732)
{ /* ./Eval/evcompile.scm 119 */
BgL_locz00_748 = 
CER(BgL_expz00_5); }  else 
{ /* ./Eval/evcompile.scm 119 */
BgL_locz00_748 = BgL_locz00_10; } } 
{ /* ./Eval/evcompile.scm 121 */
obj_t BgL_arg1806z00_749;obj_t BgL_arg1807z00_750;obj_t BgL_arg1809z00_751;
{ /* ./Eval/evcompile.scm 121 */
obj_t BgL_arg1812z00_752;
{ /* ./Eval/evcompile.scm 121 */
bool_t BgL_test1097z00_1737;
BgL_test1097z00_1737 = 
EXTENDED_PAIRP(BgL_siz00_450); 
if(BgL_test1097z00_1737)
{ /* ./Eval/evcompile.scm 121 */
BgL_arg1812z00_752 = 
CER(BgL_siz00_450); }  else 
{ /* ./Eval/evcompile.scm 121 */
BgL_arg1812z00_752 = BgL_locz00_748; } } 
BgL_arg1806z00_749 = 
BGl_evcompilez00zz__evcompilez00(BgL_siz00_450, BgL_envz00_6, BgL_genvz00_7, BgL_wherez00_8, BFALSE, BgL_arg1812z00_752); } 
{ /* ./Eval/evcompile.scm 123 */
obj_t BgL_arg1816z00_753;
{ /* ./Eval/evcompile.scm 123 */
bool_t BgL_test1097z00_1742;
BgL_test1097z00_1742 = 
EXTENDED_PAIRP(BgL_alorsz00_451); 
if(BgL_test1097z00_1742)
{ /* ./Eval/evcompile.scm 123 */
BgL_arg1816z00_753 = 
CER(BgL_alorsz00_451); }  else 
{ /* ./Eval/evcompile.scm 123 */
BgL_arg1816z00_753 = BgL_locz00_748; } } 
BgL_arg1807z00_750 = 
BGl_evcompilez00zz__evcompilez00(BgL_alorsz00_451, BgL_envz00_6, BgL_genvz00_7, BgL_wherez00_8, BgL_namedzf3zf3_9, BgL_arg1816z00_753); } 
{ /* ./Eval/evcompile.scm 125 */
obj_t BgL_arg1821z00_754;
{ /* ./Eval/evcompile.scm 125 */
bool_t BgL_test1097z00_1747;
BgL_test1097z00_1747 = 
EXTENDED_PAIRP(BgL_sinonz00_452); 
if(BgL_test1097z00_1747)
{ /* ./Eval/evcompile.scm 125 */
BgL_arg1821z00_754 = 
CER(BgL_sinonz00_452); }  else 
{ /* ./Eval/evcompile.scm 125 */
BgL_arg1821z00_754 = BgL_locz00_748; } } 
BgL_arg1809z00_751 = 
BGl_evcompilez00zz__evcompilez00(BgL_sinonz00_452, BgL_envz00_6, BgL_genvz00_7, BgL_wherez00_8, BgL_namedzf3zf3_9, BgL_arg1821z00_754); } 
{ /* ./Eval/evcompile.scm 120 */
obj_t BgL_v1036z00_1754;
{ 
int BgL_auxz00_3259;
BgL_auxz00_3259 = 
(int)(((long)3)); 
BgL_v1036z00_1754 = 
create_vector(BgL_auxz00_3259); } 
{ /* ./Eval/evcompile.scm 120 */
obj_t BgL_arg2143z00_1756;
{ /* ./Eval/evcompile.scm 120 */
obj_t BgL_v1037z00_1757;
{ 
int BgL_auxz00_3262;
BgL_auxz00_3262 = 
(int)(((long)3)); 
BgL_v1037z00_1757 = 
create_vector(BgL_auxz00_3262); } 
{ 
int BgL_auxz00_3265;
BgL_auxz00_3265 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1037z00_1757,BgL_auxz00_3265,BgL_arg1809z00_751); } 
{ 
int BgL_auxz00_3268;
BgL_auxz00_3268 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1037z00_1757,BgL_auxz00_3268,BgL_arg1807z00_750); } 
{ 
int BgL_auxz00_3271;
BgL_auxz00_3271 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1037z00_1757,BgL_auxz00_3271,BgL_arg1806z00_749); } 
BgL_arg2143z00_1756 = BgL_v1037z00_1757; } 
{ 
int BgL_auxz00_3274;
BgL_auxz00_3274 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1036z00_1754,BgL_auxz00_3274,BgL_arg2143z00_1756); } } 
{ 
int BgL_auxz00_3277;
BgL_auxz00_3277 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1036z00_1754,BgL_auxz00_3277,BgL_locz00_748); } 
{ 
obj_t BgL_auxz00_3282;int BgL_auxz00_3280;
BgL_auxz00_3282 = 
BINT(((long)15)); 
BgL_auxz00_3280 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1036z00_1754,BgL_auxz00_3280,BgL_auxz00_3282); } 
return BgL_v1036z00_1754;} } } }  else 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_carzd2642zd2_519;
BgL_carzd2642zd2_519 = 
CAR(BgL_expz00_5); 
if(
PAIRP(BgL_carzd2642zd2_519))
{ 
obj_t BgL_argsz00_3292;obj_t BgL_funz00_3291;
BgL_funz00_3291 = BgL_carzd2642zd2_519; 
BgL_argsz00_3292 = BgL_cdrzd2560zd2_508; 
BgL_argsz00_476 = BgL_argsz00_3292; 
BgL_funz00_475 = BgL_funz00_3291; 
goto BgL_tagzd2115zd2_477;}  else 
{ 
obj_t BgL_argsz00_3294;obj_t BgL_funz00_3293;
BgL_funz00_3293 = BgL_carzd2642zd2_519; 
BgL_argsz00_3294 = BgL_cdrzd2560zd2_508; 
BgL_argsz00_473 = BgL_argsz00_3294; 
BgL_funz00_472 = BgL_funz00_3293; 
goto BgL_tagzd2114zd2_474;} } }  else 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_carzd2724zd2_525;
BgL_carzd2724zd2_525 = 
CAR(BgL_expz00_5); 
if(
PAIRP(BgL_carzd2724zd2_525))
{ 
obj_t BgL_argsz00_3299;obj_t BgL_funz00_3298;
BgL_funz00_3298 = BgL_carzd2724zd2_525; 
BgL_argsz00_3299 = BgL_cdrzd2560zd2_508; 
BgL_argsz00_476 = BgL_argsz00_3299; 
BgL_funz00_475 = BgL_funz00_3298; 
goto BgL_tagzd2115zd2_477;}  else 
{ 
obj_t BgL_argsz00_3301;obj_t BgL_funz00_3300;
BgL_funz00_3300 = BgL_carzd2724zd2_525; 
BgL_argsz00_3301 = BgL_cdrzd2560zd2_508; 
BgL_argsz00_473 = BgL_argsz00_3301; 
BgL_funz00_472 = BgL_funz00_3300; 
goto BgL_tagzd2114zd2_474;} } }  else 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_carzd2806zd2_530;
BgL_carzd2806zd2_530 = 
CAR(BgL_expz00_5); 
if(
PAIRP(BgL_carzd2806zd2_530))
{ 
obj_t BgL_argsz00_3306;obj_t BgL_funz00_3305;
BgL_funz00_3305 = BgL_carzd2806zd2_530; 
BgL_argsz00_3306 = BgL_cdrzd2560zd2_508; 
BgL_argsz00_476 = BgL_argsz00_3306; 
BgL_funz00_475 = BgL_funz00_3305; 
goto BgL_tagzd2115zd2_477;}  else 
{ 
obj_t BgL_argsz00_3308;obj_t BgL_funz00_3307;
BgL_funz00_3307 = BgL_carzd2806zd2_530; 
BgL_argsz00_3308 = BgL_cdrzd2560zd2_508; 
BgL_argsz00_473 = BgL_argsz00_3308; 
BgL_funz00_472 = BgL_funz00_3307; 
goto BgL_tagzd2114zd2_474;} } }  else 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_carzd2888zd2_535;
BgL_carzd2888zd2_535 = 
CAR(BgL_expz00_5); 
if(
PAIRP(BgL_carzd2888zd2_535))
{ 
obj_t BgL_argsz00_3313;obj_t BgL_funz00_3312;
BgL_funz00_3312 = BgL_carzd2888zd2_535; 
BgL_argsz00_3313 = BgL_cdrzd2560zd2_508; 
BgL_argsz00_476 = BgL_argsz00_3313; 
BgL_funz00_475 = BgL_funz00_3312; 
goto BgL_tagzd2115zd2_477;}  else 
{ 
obj_t BgL_argsz00_3315;obj_t BgL_funz00_3314;
BgL_funz00_3314 = BgL_carzd2888zd2_535; 
BgL_argsz00_3315 = BgL_cdrzd2560zd2_508; 
BgL_argsz00_473 = BgL_argsz00_3315; 
BgL_funz00_472 = BgL_funz00_3314; 
goto BgL_tagzd2114zd2_474;} } }  else 
{ /* ./Eval/evcompile.scm 96 */
bool_t BgL_testz00_3316;
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_auxz00_3317;
BgL_auxz00_3317 = 
CAR(BgL_expz00_5); 
BgL_testz00_3316 = 
(BgL_auxz00_3317==BGl_symbol4094z00zz__evcompilez00); } 
if(BgL_testz00_3316)
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_arg1826z00_1510;
{ /* ./Eval/evcompile.scm 96 */
bool_t BgL_test1097z00_1513;
BgL_test1097z00_1513 = 
EXTENDED_PAIRP(BgL_expz00_5); 
if(BgL_test1097z00_1513)
{ /* ./Eval/evcompile.scm 96 */
BgL_arg1826z00_1510 = 
CER(BgL_expz00_5); }  else 
{ /* ./Eval/evcompile.scm 96 */
BgL_arg1826z00_1510 = BgL_locz00_10; } } 
return 
BGl_evcompilezd2beginzd2zz__evcompilez00(BgL_cdrzd2560zd2_508, BgL_envz00_6, BgL_genvz00_7, BgL_wherez00_8, BgL_namedzf3zf3_9, BgL_arg1826z00_1510);}  else 
{ /* ./Eval/evcompile.scm 96 */
bool_t BgL_testz00_3324;
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_auxz00_3325;
BgL_auxz00_3325 = 
CAR(BgL_expz00_5); 
BgL_testz00_3324 = 
(BgL_auxz00_3325==BGl_symbol4095z00zz__evcompilez00); } 
if(BgL_testz00_3324)
{ /* ./Eval/evcompile.scm 96 */
if(
PAIRP(BgL_cdrzd2560zd2_508))
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_cdrzd2935zd2_545;
BgL_cdrzd2935zd2_545 = 
CDR(BgL_cdrzd2560zd2_508); 
if(
PAIRP(BgL_cdrzd2935zd2_545))
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_carzd2938zd2_547;
BgL_carzd2938zd2_547 = 
CAR(BgL_cdrzd2935zd2_545); 
if(
PAIRP(BgL_carzd2938zd2_547))
{ /* ./Eval/evcompile.scm 96 */
bool_t BgL_testz00_3336;
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_auxz00_3337;
BgL_auxz00_3337 = 
CAR(BgL_carzd2938zd2_547); 
BgL_testz00_3336 = 
(BgL_auxz00_3337==BGl_symbol4087z00zz__evcompilez00); } 
if(BgL_testz00_3336)
{ /* ./Eval/evcompile.scm 96 */
bool_t BgL_testz00_3340;
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_auxz00_3341;
BgL_auxz00_3341 = 
CDR(BgL_cdrzd2935zd2_545); 
BgL_testz00_3340 = 
NULLP(BgL_auxz00_3341); } 
if(BgL_testz00_3340)
{ /* ./Eval/evcompile.scm 96 */
BgL_varz00_456 = 
CAR(BgL_cdrzd2560zd2_508); 
BgL_valz00_457 = BgL_carzd2938zd2_547; 
BgL_tagzd2108zd2_458:
{ /* ./Eval/evcompile.scm 131 */
bool_t BgL_test1829z00_756;
if(
(BgL_wherez00_8==BGl_symbol4083z00zz__evcompilez00))
{ /* ./Eval/evcompile.scm 132 */
bool_t BgL__ortest_1010z00_766;
{ /* ./Eval/evcompile.scm 132 */
obj_t BgL_auxz00_3346;
BgL_auxz00_3346 = 
BGl_schemezd2reportzd2environmentz00zz__evalz00(
BINT(((long)5))); 
BgL__ortest_1010z00_766 = 
(BgL_genvz00_7==BgL_auxz00_3346); } 
if(BgL__ortest_1010z00_766)
{ /* ./Eval/evcompile.scm 133 */
BgL_test1829z00_756 = BgL__ortest_1010z00_766; }  else 
{ /* ./Eval/evcompile.scm 133 */
obj_t BgL_auxz00_3351;
BgL_auxz00_3351 = 
BGl_nullzd2environmentzd2zz__evalz00(
BINT(((long)5))); 
BgL_test1829z00_756 = 
(BgL_genvz00_7==BgL_auxz00_3351); } }  else 
{ /* ./Eval/evcompile.scm 131 */
BgL_test1829z00_756 = ((bool_t)0); } 
if(BgL_test1829z00_756)
{ /* ./Eval/evcompile.scm 131 */
return 
BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_10, BGl_string4081z00zz__evcompilez00, BGl_string4084z00zz__evcompilez00, BgL_expz00_5);}  else 
{ /* ./Eval/evcompile.scm 138 */
obj_t BgL_locz00_757;
{ /* ./Eval/evcompile.scm 138 */
bool_t BgL_test1097z00_1784;
BgL_test1097z00_1784 = 
EXTENDED_PAIRP(BgL_expz00_5); 
if(BgL_test1097z00_1784)
{ /* ./Eval/evcompile.scm 138 */
BgL_locz00_757 = 
CER(BgL_expz00_5); }  else 
{ /* ./Eval/evcompile.scm 138 */
BgL_locz00_757 = BgL_locz00_10; } } 
{ /* ./Eval/evcompile.scm 139 */
obj_t BgL_arg1833z00_758;obj_t BgL_arg1836z00_759;
BgL_arg1833z00_758 = 
BGl_untypezd2identzd2zz__evcompilez00(BgL_varz00_456); 
{ /* ./Eval/evcompile.scm 140 */
obj_t BgL_zc3anonymousza31842ze3z83_2995;
{ 
int BgL_auxz00_3363;int BgL_auxz00_3361;
BgL_auxz00_3363 = 
(int)(((long)5)); 
BgL_auxz00_3361 = 
(int)(((long)0)); 
BgL_zc3anonymousza31842ze3z83_2995 = 
make_fx_procedure(BGl_zc3anonymousza31842ze3z83zz__evcompilez00, BgL_auxz00_3361, BgL_auxz00_3363); } 
{ /* ./Eval/evcompile.scm 140 */
int BgL_auxz00_3366;
BgL_auxz00_3366 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31842ze3z83_2995, BgL_auxz00_3366, BgL_expz00_5); } 
{ /* ./Eval/evcompile.scm 140 */
int BgL_auxz00_3369;
BgL_auxz00_3369 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31842ze3z83_2995, BgL_auxz00_3369, BgL_locz00_757); } 
{ /* ./Eval/evcompile.scm 140 */
int BgL_auxz00_3372;
BgL_auxz00_3372 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31842ze3z83_2995, BgL_auxz00_3372, BgL_valz00_457); } 
{ /* ./Eval/evcompile.scm 140 */
int BgL_auxz00_3375;
BgL_auxz00_3375 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza31842ze3z83_2995, BgL_auxz00_3375, BgL_genvz00_7); } 
{ /* ./Eval/evcompile.scm 140 */
int BgL_auxz00_3378;
BgL_auxz00_3378 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_zc3anonymousza31842ze3z83_2995, BgL_auxz00_3378, BgL_varz00_456); } 
BgL_arg1836z00_759 = 
BGl_makezd2promisezd2zz__r4_control_features_6_9z00(BgL_zc3anonymousza31842ze3z83_2995); } 
{ /* ./Eval/evcompile.scm 139 */
obj_t BgL_v1039z00_1795;
{ 
int BgL_auxz00_3382;
BgL_auxz00_3382 = 
(int)(((long)3)); 
BgL_v1039z00_1795 = 
create_vector(BgL_auxz00_3382); } 
{ /* ./Eval/evcompile.scm 139 */
obj_t BgL_arg2217z00_1797;
BgL_arg2217z00_1797 = 
MAKE_PAIR(BgL_arg1833z00_758, BgL_arg1836z00_759); 
{ 
int BgL_auxz00_3386;
BgL_auxz00_3386 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1039z00_1795,BgL_auxz00_3386,BgL_arg2217z00_1797); } } 
{ 
int BgL_auxz00_3389;
BgL_auxz00_3389 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1039z00_1795,BgL_auxz00_3389,BgL_locz00_757); } 
{ 
obj_t BgL_auxz00_3394;int BgL_auxz00_3392;
BgL_auxz00_3394 = 
BINT(((long)17)); 
BgL_auxz00_3392 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1039z00_1795,BgL_auxz00_3392,BgL_auxz00_3394); } 
return BgL_v1039z00_1795;} } } } }  else 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_carzd2990zd2_552;
BgL_carzd2990zd2_552 = 
CAR(BgL_expz00_5); 
if(
PAIRP(BgL_carzd2990zd2_552))
{ 
obj_t BgL_argsz00_3402;obj_t BgL_funz00_3401;
BgL_funz00_3401 = BgL_carzd2990zd2_552; 
BgL_argsz00_3402 = 
CDR(BgL_expz00_5); 
BgL_argsz00_476 = BgL_argsz00_3402; 
BgL_funz00_475 = BgL_funz00_3401; 
goto BgL_tagzd2115zd2_477;}  else 
{ 
obj_t BgL_argsz00_3405;obj_t BgL_funz00_3404;
BgL_funz00_3404 = BgL_carzd2990zd2_552; 
BgL_argsz00_3405 = 
CDR(BgL_expz00_5); 
BgL_argsz00_473 = BgL_argsz00_3405; 
BgL_funz00_472 = BgL_funz00_3404; 
goto BgL_tagzd2114zd2_474;} } }  else 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_cdrzd21010zd2_558;
BgL_cdrzd21010zd2_558 = 
CDR(BgL_expz00_5); 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_cdrzd21015zd2_559;
BgL_cdrzd21015zd2_559 = 
CDR(BgL_cdrzd21010zd2_558); 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_carzd21019zd2_560;
BgL_carzd21019zd2_560 = 
CAR(BgL_cdrzd21015zd2_559); 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_cdrzd21023zd2_561;
BgL_cdrzd21023zd2_561 = 
CDR(BgL_carzd21019zd2_560); 
{ /* ./Eval/evcompile.scm 96 */
bool_t BgL_testz00_3411;
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_auxz00_3412;
BgL_auxz00_3412 = 
CAR(BgL_carzd21019zd2_560); 
BgL_testz00_3411 = 
(BgL_auxz00_3412==BGl_symbol4094z00zz__evcompilez00); } 
if(BgL_testz00_3411)
{ /* ./Eval/evcompile.scm 96 */
if(
PAIRP(BgL_cdrzd21023zd2_561))
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_carzd21025zd2_564;
BgL_carzd21025zd2_564 = 
CAR(BgL_cdrzd21023zd2_561); 
if(
PAIRP(BgL_carzd21025zd2_564))
{ /* ./Eval/evcompile.scm 96 */
bool_t BgL_testz00_3420;
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_auxz00_3421;
BgL_auxz00_3421 = 
CAR(BgL_carzd21025zd2_564); 
BgL_testz00_3420 = 
(BgL_auxz00_3421==BGl_symbol4087z00zz__evcompilez00); } 
if(BgL_testz00_3420)
{ /* ./Eval/evcompile.scm 96 */
bool_t BgL_testz00_3424;
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_auxz00_3425;
BgL_auxz00_3425 = 
CDR(BgL_cdrzd21023zd2_561); 
BgL_testz00_3424 = 
NULLP(BgL_auxz00_3425); } 
if(BgL_testz00_3424)
{ /* ./Eval/evcompile.scm 96 */
bool_t BgL_testz00_3428;
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_auxz00_3429;
BgL_auxz00_3429 = 
CDR(BgL_cdrzd21015zd2_559); 
BgL_testz00_3428 = 
NULLP(BgL_auxz00_3429); } 
if(BgL_testz00_3428)
{ 
obj_t BgL_valz00_3434;obj_t BgL_varz00_3432;
BgL_varz00_3432 = 
CAR(BgL_cdrzd21010zd2_558); 
BgL_valz00_3434 = BgL_carzd21025zd2_564; 
BgL_valz00_457 = BgL_valz00_3434; 
BgL_varz00_456 = BgL_varz00_3432; 
goto BgL_tagzd2108zd2_458;}  else 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_carzd21074zd2_570;
BgL_carzd21074zd2_570 = 
CAR(BgL_expz00_5); 
if(
PAIRP(BgL_carzd21074zd2_570))
{ 
obj_t BgL_argsz00_3439;obj_t BgL_funz00_3438;
BgL_funz00_3438 = BgL_carzd21074zd2_570; 
BgL_argsz00_3439 = BgL_cdrzd21010zd2_558; 
BgL_argsz00_476 = BgL_argsz00_3439; 
BgL_funz00_475 = BgL_funz00_3438; 
goto BgL_tagzd2115zd2_477;}  else 
{ 
obj_t BgL_argsz00_3441;obj_t BgL_funz00_3440;
BgL_funz00_3440 = BgL_carzd21074zd2_570; 
BgL_argsz00_3441 = BgL_cdrzd21010zd2_558; 
BgL_argsz00_473 = BgL_argsz00_3441; 
BgL_funz00_472 = BgL_funz00_3440; 
goto BgL_tagzd2114zd2_474;} } }  else 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_cdrzd21107zd2_577;
BgL_cdrzd21107zd2_577 = 
CDR(BgL_cdrzd21010zd2_558); 
{ /* ./Eval/evcompile.scm 96 */
bool_t BgL_testz00_3443;
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_auxz00_3444;
BgL_auxz00_3444 = 
CDR(BgL_cdrzd21107zd2_577); 
BgL_testz00_3443 = 
NULLP(BgL_auxz00_3444); } 
if(BgL_testz00_3443)
{ /* ./Eval/evcompile.scm 96 */
BgL_varz00_459 = 
CAR(BgL_cdrzd21010zd2_558); 
BgL_valz00_460 = 
CAR(BgL_cdrzd21107zd2_577); 
BgL_tagzd2109zd2_461:
{ /* ./Eval/evcompile.scm 144 */
bool_t BgL_test1860z00_769;
if(
(BgL_wherez00_8==BGl_symbol4083z00zz__evcompilez00))
{ /* ./Eval/evcompile.scm 145 */
bool_t BgL__ortest_1011z00_776;
{ /* ./Eval/evcompile.scm 145 */
obj_t BgL_auxz00_3449;
BgL_auxz00_3449 = 
BGl_schemezd2reportzd2environmentz00zz__evalz00(
BINT(((long)5))); 
BgL__ortest_1011z00_776 = 
(BgL_genvz00_7==BgL_auxz00_3449); } 
if(BgL__ortest_1011z00_776)
{ /* ./Eval/evcompile.scm 146 */
BgL_test1860z00_769 = BgL__ortest_1011z00_776; }  else 
{ /* ./Eval/evcompile.scm 146 */
obj_t BgL_auxz00_3454;
BgL_auxz00_3454 = 
BGl_nullzd2environmentzd2zz__evalz00(
BINT(((long)5))); 
BgL_test1860z00_769 = 
(BgL_genvz00_7==BgL_auxz00_3454); } }  else 
{ /* ./Eval/evcompile.scm 144 */
BgL_test1860z00_769 = ((bool_t)0); } 
if(BgL_test1860z00_769)
{ /* ./Eval/evcompile.scm 144 */
return 
BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_10, BGl_string4081z00zz__evcompilez00, BGl_string4084z00zz__evcompilez00, BgL_expz00_5);}  else 
{ /* ./Eval/evcompile.scm 151 */
obj_t BgL_locz00_770;
{ /* ./Eval/evcompile.scm 151 */
bool_t BgL_test1097z00_1809;
BgL_test1097z00_1809 = 
EXTENDED_PAIRP(BgL_expz00_5); 
if(BgL_test1097z00_1809)
{ /* ./Eval/evcompile.scm 151 */
BgL_locz00_770 = 
CER(BgL_expz00_5); }  else 
{ /* ./Eval/evcompile.scm 151 */
BgL_locz00_770 = BgL_locz00_10; } } 
{ /* ./Eval/evcompile.scm 152 */
obj_t BgL_arg1864z00_771;obj_t BgL_arg1865z00_772;
BgL_arg1864z00_771 = 
BGl_untypezd2identzd2zz__evcompilez00(BgL_varz00_459); 
{ /* ./Eval/evcompile.scm 153 */
obj_t BgL_arg1870z00_774;
{ /* ./Eval/evcompile.scm 154 */
bool_t BgL_test1097z00_1814;
BgL_test1097z00_1814 = 
EXTENDED_PAIRP(BgL_valz00_460); 
if(BgL_test1097z00_1814)
{ /* ./Eval/evcompile.scm 154 */
BgL_arg1870z00_774 = 
CER(BgL_valz00_460); }  else 
{ /* ./Eval/evcompile.scm 154 */
BgL_arg1870z00_774 = BgL_locz00_770; } } 
BgL_arg1865z00_772 = 
BGl_evcompilez00zz__evcompilez00(BgL_valz00_460, BNIL, BgL_genvz00_7, BgL_wherez00_8, BgL_namedzf3zf3_9, BgL_arg1870z00_774); } 
{ /* ./Eval/evcompile.scm 152 */
obj_t BgL_v1040z00_1820;
{ 
int BgL_auxz00_3468;
BgL_auxz00_3468 = 
(int)(((long)3)); 
BgL_v1040z00_1820 = 
create_vector(BgL_auxz00_3468); } 
{ /* ./Eval/evcompile.scm 152 */
obj_t BgL_arg2225z00_1822;
BgL_arg2225z00_1822 = 
MAKE_PAIR(BgL_arg1864z00_771, BgL_arg1865z00_772); 
{ 
int BgL_auxz00_3472;
BgL_auxz00_3472 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1040z00_1820,BgL_auxz00_3472,BgL_arg2225z00_1822); } } 
{ 
int BgL_auxz00_3475;
BgL_auxz00_3475 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1040z00_1820,BgL_auxz00_3475,BgL_locz00_770); } 
{ 
obj_t BgL_auxz00_3480;int BgL_auxz00_3478;
BgL_auxz00_3480 = 
BINT(((long)63)); 
BgL_auxz00_3478 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1040z00_1820,BgL_auxz00_3478,BgL_auxz00_3480); } 
return BgL_v1040z00_1820;} } } } }  else 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_carzd21145zd2_581;
BgL_carzd21145zd2_581 = 
CAR(BgL_expz00_5); 
if(
PAIRP(BgL_carzd21145zd2_581))
{ 
obj_t BgL_argsz00_3489;obj_t BgL_funz00_3488;
BgL_funz00_3488 = BgL_carzd21145zd2_581; 
BgL_argsz00_3489 = 
CDR(BgL_expz00_5); 
BgL_argsz00_476 = BgL_argsz00_3489; 
BgL_funz00_475 = BgL_funz00_3488; 
goto BgL_tagzd2115zd2_477;}  else 
{ 
obj_t BgL_argsz00_3492;obj_t BgL_funz00_3491;
BgL_funz00_3491 = BgL_carzd21145zd2_581; 
BgL_argsz00_3492 = 
CDR(BgL_expz00_5); 
BgL_argsz00_473 = BgL_argsz00_3492; 
BgL_funz00_472 = BgL_funz00_3491; 
goto BgL_tagzd2114zd2_474;} } } } }  else 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_cdrzd21178zd2_589;
BgL_cdrzd21178zd2_589 = 
CDR(BgL_cdrzd21010zd2_558); 
{ /* ./Eval/evcompile.scm 96 */
bool_t BgL_testz00_3495;
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_auxz00_3496;
BgL_auxz00_3496 = 
CDR(BgL_cdrzd21178zd2_589); 
BgL_testz00_3495 = 
NULLP(BgL_auxz00_3496); } 
if(BgL_testz00_3495)
{ 
obj_t BgL_valz00_3501;obj_t BgL_varz00_3499;
BgL_varz00_3499 = 
CAR(BgL_cdrzd21010zd2_558); 
BgL_valz00_3501 = 
CAR(BgL_cdrzd21178zd2_589); 
BgL_valz00_460 = BgL_valz00_3501; 
BgL_varz00_459 = BgL_varz00_3499; 
goto BgL_tagzd2109zd2_461;}  else 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_carzd21216zd2_593;
BgL_carzd21216zd2_593 = 
CAR(BgL_expz00_5); 
if(
PAIRP(BgL_carzd21216zd2_593))
{ 
obj_t BgL_argsz00_3507;obj_t BgL_funz00_3506;
BgL_funz00_3506 = BgL_carzd21216zd2_593; 
BgL_argsz00_3507 = 
CDR(BgL_expz00_5); 
BgL_argsz00_476 = BgL_argsz00_3507; 
BgL_funz00_475 = BgL_funz00_3506; 
goto BgL_tagzd2115zd2_477;}  else 
{ 
obj_t BgL_argsz00_3510;obj_t BgL_funz00_3509;
BgL_funz00_3509 = BgL_carzd21216zd2_593; 
BgL_argsz00_3510 = 
CDR(BgL_expz00_5); 
BgL_argsz00_473 = BgL_argsz00_3510; 
BgL_funz00_472 = BgL_funz00_3509; 
goto BgL_tagzd2114zd2_474;} } } } }  else 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_cdrzd21249zd2_602;
BgL_cdrzd21249zd2_602 = 
CDR(BgL_cdrzd21010zd2_558); 
{ /* ./Eval/evcompile.scm 96 */
bool_t BgL_testz00_3513;
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_auxz00_3514;
BgL_auxz00_3514 = 
CDR(BgL_cdrzd21249zd2_602); 
BgL_testz00_3513 = 
NULLP(BgL_auxz00_3514); } 
if(BgL_testz00_3513)
{ 
obj_t BgL_valz00_3519;obj_t BgL_varz00_3517;
BgL_varz00_3517 = 
CAR(BgL_cdrzd21010zd2_558); 
BgL_valz00_3519 = 
CAR(BgL_cdrzd21249zd2_602); 
BgL_valz00_460 = BgL_valz00_3519; 
BgL_varz00_459 = BgL_varz00_3517; 
goto BgL_tagzd2109zd2_461;}  else 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_carzd21287zd2_606;
BgL_carzd21287zd2_606 = 
CAR(BgL_expz00_5); 
if(
PAIRP(BgL_carzd21287zd2_606))
{ 
obj_t BgL_argsz00_3525;obj_t BgL_funz00_3524;
BgL_funz00_3524 = BgL_carzd21287zd2_606; 
BgL_argsz00_3525 = 
CDR(BgL_expz00_5); 
BgL_argsz00_476 = BgL_argsz00_3525; 
BgL_funz00_475 = BgL_funz00_3524; 
goto BgL_tagzd2115zd2_477;}  else 
{ 
obj_t BgL_argsz00_3528;obj_t BgL_funz00_3527;
BgL_funz00_3527 = BgL_carzd21287zd2_606; 
BgL_argsz00_3528 = 
CDR(BgL_expz00_5); 
BgL_argsz00_473 = BgL_argsz00_3528; 
BgL_funz00_472 = BgL_funz00_3527; 
goto BgL_tagzd2114zd2_474;} } } } }  else 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_cdrzd21320zd2_613;
BgL_cdrzd21320zd2_613 = 
CDR(BgL_cdrzd21010zd2_558); 
{ /* ./Eval/evcompile.scm 96 */
bool_t BgL_testz00_3531;
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_auxz00_3532;
BgL_auxz00_3532 = 
CDR(BgL_cdrzd21320zd2_613); 
BgL_testz00_3531 = 
NULLP(BgL_auxz00_3532); } 
if(BgL_testz00_3531)
{ 
obj_t BgL_valz00_3537;obj_t BgL_varz00_3535;
BgL_varz00_3535 = 
CAR(BgL_cdrzd21010zd2_558); 
BgL_valz00_3537 = 
CAR(BgL_cdrzd21320zd2_613); 
BgL_valz00_460 = BgL_valz00_3537; 
BgL_varz00_459 = BgL_varz00_3535; 
goto BgL_tagzd2109zd2_461;}  else 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_carzd21358zd2_617;
BgL_carzd21358zd2_617 = 
CAR(BgL_expz00_5); 
if(
PAIRP(BgL_carzd21358zd2_617))
{ 
obj_t BgL_argsz00_3543;obj_t BgL_funz00_3542;
BgL_funz00_3542 = BgL_carzd21358zd2_617; 
BgL_argsz00_3543 = 
CDR(BgL_expz00_5); 
BgL_argsz00_476 = BgL_argsz00_3543; 
BgL_funz00_475 = BgL_funz00_3542; 
goto BgL_tagzd2115zd2_477;}  else 
{ 
obj_t BgL_argsz00_3546;obj_t BgL_funz00_3545;
BgL_funz00_3545 = BgL_carzd21358zd2_617; 
BgL_argsz00_3546 = 
CDR(BgL_expz00_5); 
BgL_argsz00_473 = BgL_argsz00_3546; 
BgL_funz00_472 = BgL_funz00_3545; 
goto BgL_tagzd2114zd2_474;} } } } }  else 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_cdrzd21391zd2_624;
BgL_cdrzd21391zd2_624 = 
CDR(BgL_cdrzd21010zd2_558); 
{ /* ./Eval/evcompile.scm 96 */
bool_t BgL_testz00_3549;
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_auxz00_3550;
BgL_auxz00_3550 = 
CDR(BgL_cdrzd21391zd2_624); 
BgL_testz00_3549 = 
NULLP(BgL_auxz00_3550); } 
if(BgL_testz00_3549)
{ 
obj_t BgL_valz00_3555;obj_t BgL_varz00_3553;
BgL_varz00_3553 = 
CAR(BgL_cdrzd21010zd2_558); 
BgL_valz00_3555 = 
CAR(BgL_cdrzd21391zd2_624); 
BgL_valz00_460 = BgL_valz00_3555; 
BgL_varz00_459 = BgL_varz00_3553; 
goto BgL_tagzd2109zd2_461;}  else 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_carzd21429zd2_628;
BgL_carzd21429zd2_628 = 
CAR(BgL_expz00_5); 
if(
PAIRP(BgL_carzd21429zd2_628))
{ 
obj_t BgL_argsz00_3561;obj_t BgL_funz00_3560;
BgL_funz00_3560 = BgL_carzd21429zd2_628; 
BgL_argsz00_3561 = 
CDR(BgL_expz00_5); 
BgL_argsz00_476 = BgL_argsz00_3561; 
BgL_funz00_475 = BgL_funz00_3560; 
goto BgL_tagzd2115zd2_477;}  else 
{ 
obj_t BgL_argsz00_3564;obj_t BgL_funz00_3563;
BgL_funz00_3563 = BgL_carzd21429zd2_628; 
BgL_argsz00_3564 = 
CDR(BgL_expz00_5); 
BgL_argsz00_473 = BgL_argsz00_3564; 
BgL_funz00_472 = BgL_funz00_3563; 
goto BgL_tagzd2114zd2_474;} } } } } } } } } }  else 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_cdrzd21460zd2_638;
BgL_cdrzd21460zd2_638 = 
CDR(BgL_expz00_5); 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_cdrzd21465zd2_639;
BgL_cdrzd21465zd2_639 = 
CDR(BgL_cdrzd21460zd2_638); 
{ /* ./Eval/evcompile.scm 96 */
bool_t BgL_testz00_3568;
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_auxz00_3569;
BgL_auxz00_3569 = 
CDR(BgL_cdrzd21465zd2_639); 
BgL_testz00_3568 = 
NULLP(BgL_auxz00_3569); } 
if(BgL_testz00_3568)
{ 
obj_t BgL_valz00_3574;obj_t BgL_varz00_3572;
BgL_varz00_3572 = 
CAR(BgL_cdrzd21460zd2_638); 
BgL_valz00_3574 = 
CAR(BgL_cdrzd21465zd2_639); 
BgL_valz00_460 = BgL_valz00_3574; 
BgL_varz00_459 = BgL_varz00_3572; 
goto BgL_tagzd2109zd2_461;}  else 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_carzd21503zd2_643;
BgL_carzd21503zd2_643 = 
CAR(BgL_expz00_5); 
if(
PAIRP(BgL_carzd21503zd2_643))
{ 
obj_t BgL_argsz00_3580;obj_t BgL_funz00_3579;
BgL_funz00_3579 = BgL_carzd21503zd2_643; 
BgL_argsz00_3580 = BgL_cdrzd21460zd2_638; 
BgL_argsz00_476 = BgL_argsz00_3580; 
BgL_funz00_475 = BgL_funz00_3579; 
goto BgL_tagzd2115zd2_477;}  else 
{ 
obj_t BgL_argsz00_3582;obj_t BgL_funz00_3581;
BgL_funz00_3581 = BgL_carzd21503zd2_643; 
BgL_argsz00_3582 = BgL_cdrzd21460zd2_638; 
BgL_argsz00_473 = BgL_argsz00_3582; 
BgL_funz00_472 = BgL_funz00_3581; 
goto BgL_tagzd2114zd2_474;} } } } } }  else 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_carzd21564zd2_649;
BgL_carzd21564zd2_649 = 
CAR(BgL_expz00_5); 
if(
PAIRP(BgL_carzd21564zd2_649))
{ 
obj_t BgL_argsz00_3587;obj_t BgL_funz00_3586;
BgL_funz00_3586 = BgL_carzd21564zd2_649; 
BgL_argsz00_3587 = 
CDR(BgL_expz00_5); 
BgL_argsz00_476 = BgL_argsz00_3587; 
BgL_funz00_475 = BgL_funz00_3586; 
goto BgL_tagzd2115zd2_477;}  else 
{ 
obj_t BgL_argsz00_3590;obj_t BgL_funz00_3589;
BgL_funz00_3589 = BgL_carzd21564zd2_649; 
BgL_argsz00_3590 = 
CDR(BgL_expz00_5); 
BgL_argsz00_473 = BgL_argsz00_3590; 
BgL_funz00_472 = BgL_funz00_3589; 
goto BgL_tagzd2114zd2_474;} } }  else 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_carzd21623zd2_654;
BgL_carzd21623zd2_654 = 
CAR(BgL_expz00_5); 
if(
PAIRP(BgL_carzd21623zd2_654))
{ 
obj_t BgL_argsz00_3596;obj_t BgL_funz00_3595;
BgL_funz00_3595 = BgL_carzd21623zd2_654; 
BgL_argsz00_3596 = 
CDR(BgL_expz00_5); 
BgL_argsz00_476 = BgL_argsz00_3596; 
BgL_funz00_475 = BgL_funz00_3595; 
goto BgL_tagzd2115zd2_477;}  else 
{ 
obj_t BgL_argsz00_3599;obj_t BgL_funz00_3598;
BgL_funz00_3598 = BgL_carzd21623zd2_654; 
BgL_argsz00_3599 = 
CDR(BgL_expz00_5); 
BgL_argsz00_473 = BgL_argsz00_3599; 
BgL_funz00_472 = BgL_funz00_3598; 
goto BgL_tagzd2114zd2_474;} } }  else 
{ /* ./Eval/evcompile.scm 96 */
bool_t BgL_testz00_3601;
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_auxz00_3602;
BgL_auxz00_3602 = 
CAR(BgL_expz00_5); 
BgL_testz00_3601 = 
(BgL_auxz00_3602==BGl_symbol4096z00zz__evcompilez00); } 
if(BgL_testz00_3601)
{ /* ./Eval/evcompile.scm 96 */
if(
PAIRP(BgL_expz00_5))
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_cdrzd21954zd2_785;
BgL_cdrzd21954zd2_785 = 
CDR(BgL_expz00_5); 
if(
PAIRP(BgL_cdrzd21954zd2_785))
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_carzd21957zd2_787;obj_t BgL_cdrzd21958zd2_788;
BgL_carzd21957zd2_787 = 
CAR(BgL_cdrzd21954zd2_785); 
BgL_cdrzd21958zd2_788 = 
CDR(BgL_cdrzd21954zd2_785); 
if(
SYMBOLP(BgL_carzd21957zd2_787))
{ /* ./Eval/evcompile.scm 96 */
if(
PAIRP(BgL_cdrzd21958zd2_788))
{ /* ./Eval/evcompile.scm 96 */
bool_t BgL_testz00_3616;
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_auxz00_3617;
BgL_auxz00_3617 = 
CDR(BgL_cdrzd21958zd2_788); 
BgL_testz00_3616 = 
NULLP(BgL_auxz00_3617); } 
if(BgL_testz00_3616)
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_arg1890z00_792;
BgL_arg1890z00_792 = 
CAR(BgL_cdrzd21958zd2_788); 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_locz00_1844;
{ /* ./Eval/evcompile.scm 96 */
bool_t BgL_test1097z00_1850;
BgL_test1097z00_1850 = 
EXTENDED_PAIRP(BgL_expz00_5); 
if(BgL_test1097z00_1850)
{ /* ./Eval/evcompile.scm 96 */
BgL_locz00_1844 = 
CER(BgL_expz00_5); }  else 
{ /* ./Eval/evcompile.scm 96 */
BgL_locz00_1844 = BgL_locz00_10; } } 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_arg1910z00_1845;obj_t BgL_arg1911z00_1846;
BgL_arg1910z00_1845 = 
BGl_variablez00zz__evcompilez00(BgL_locz00_1844, BgL_carzd21957zd2_787, BgL_envz00_6, BgL_genvz00_7); 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_arg1915z00_1847;
{ /* ./Eval/evcompile.scm 96 */
bool_t BgL_test1097z00_1855;
BgL_test1097z00_1855 = 
EXTENDED_PAIRP(BgL_arg1890z00_792); 
if(BgL_test1097z00_1855)
{ /* ./Eval/evcompile.scm 96 */
BgL_arg1915z00_1847 = 
CER(BgL_arg1890z00_792); }  else 
{ /* ./Eval/evcompile.scm 96 */
BgL_arg1915z00_1847 = BgL_locz00_1844; } } 
BgL_arg1911z00_1846 = 
BGl_evcompilez00zz__evcompilez00(BgL_arg1890z00_792, BgL_envz00_6, BgL_genvz00_7, BgL_carzd21957zd2_787, BTRUE, BgL_arg1915z00_1847); } 
return 
BGl_evcompilezd2setzd2zz__evcompilez00(BgL_arg1910z00_1845, BgL_arg1911z00_1846, BgL_locz00_1844);} } }  else 
{ /* ./Eval/evcompile.scm 96 */
FAILURE(BGl_string4085z00zz__evcompilez00,BGl_string4086z00zz__evcompilez00,BgL_expz00_5);} }  else 
{ /* ./Eval/evcompile.scm 96 */
FAILURE(BGl_string4085z00zz__evcompilez00,BGl_string4086z00zz__evcompilez00,BgL_expz00_5);} }  else 
{ /* ./Eval/evcompile.scm 96 */
FAILURE(BGl_string4085z00zz__evcompilez00,BGl_string4086z00zz__evcompilez00,BgL_expz00_5);} }  else 
{ /* ./Eval/evcompile.scm 96 */
FAILURE(BGl_string4085z00zz__evcompilez00,BGl_string4086z00zz__evcompilez00,BgL_expz00_5);} }  else 
{ /* ./Eval/evcompile.scm 96 */
FAILURE(BGl_string4085z00zz__evcompilez00,BGl_string4086z00zz__evcompilez00,BgL_expz00_5);} }  else 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_cdrzd21668zd2_660;
BgL_cdrzd21668zd2_660 = 
CDR(BgL_expz00_5); 
{ /* ./Eval/evcompile.scm 96 */
bool_t BgL_testz00_3636;
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_auxz00_3637;
BgL_auxz00_3637 = 
CAR(BgL_expz00_5); 
BgL_testz00_3636 = 
(BgL_auxz00_3637==BGl_symbol4097z00zz__evcompilez00); } 
if(BgL_testz00_3636)
{ /* ./Eval/evcompile.scm 96 */
if(
PAIRP(BgL_cdrzd21668zd2_660))
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_cdrzd21672zd2_663;
BgL_cdrzd21672zd2_663 = 
CDR(BgL_cdrzd21668zd2_660); 
if(
PAIRP(BgL_cdrzd21672zd2_663))
{ /* ./Eval/evcompile.scm 96 */
bool_t BgL_testz00_3645;
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_auxz00_3646;
BgL_auxz00_3646 = 
CDR(BgL_cdrzd21672zd2_663); 
BgL_testz00_3645 = 
NULLP(BgL_auxz00_3646); } 
if(BgL_testz00_3645)
{ /* ./Eval/evcompile.scm 96 */
BgL_escapez00_463 = 
CAR(BgL_cdrzd21668zd2_660); 
BgL_bodyz00_464 = 
CAR(BgL_cdrzd21672zd2_663); 
{ /* ./Eval/evcompile.scm 166 */
obj_t BgL_locz00_798;
{ /* ./Eval/evcompile.scm 166 */
bool_t BgL_test1097z00_1892;
BgL_test1097z00_1892 = 
EXTENDED_PAIRP(BgL_expz00_5); 
if(BgL_test1097z00_1892)
{ /* ./Eval/evcompile.scm 166 */
BgL_locz00_798 = 
CER(BgL_expz00_5); }  else 
{ /* ./Eval/evcompile.scm 166 */
BgL_locz00_798 = BgL_locz00_10; } } 
{ /* ./Eval/evcompile.scm 167 */
obj_t BgL_arg1921z00_799;
{ /* ./Eval/evcompile.scm 167 */
obj_t BgL_arg1924z00_800;obj_t BgL_arg1925z00_801;
{ /* ./Eval/evcompile.scm 167 */
obj_t BgL_arg1928z00_802;obj_t BgL_arg1930z00_803;
BgL_arg1928z00_802 = BGl_symbol4087z00zz__evcompilez00; 
{ /* ./Eval/evcompile.scm 167 */
obj_t BgL_arg1933z00_804;
BgL_arg1933z00_804 = 
MAKE_PAIR(BgL_bodyz00_464, BNIL); 
BgL_arg1930z00_803 = 
MAKE_PAIR(BgL_escapez00_463, BgL_arg1933z00_804); } 
BgL_arg1924z00_800 = 
MAKE_PAIR(BgL_arg1928z00_802, BgL_arg1930z00_803); } 
{ /* ./Eval/evcompile.scm 172 */
bool_t BgL_test1097z00_1897;
BgL_test1097z00_1897 = 
EXTENDED_PAIRP(BgL_bodyz00_464); 
if(BgL_test1097z00_1897)
{ /* ./Eval/evcompile.scm 172 */
BgL_arg1925z00_801 = 
CER(BgL_bodyz00_464); }  else 
{ /* ./Eval/evcompile.scm 172 */
BgL_arg1925z00_801 = BgL_locz00_798; } } 
BgL_arg1921z00_799 = 
BGl_evcompilez00zz__evcompilez00(BgL_arg1924z00_800, BgL_envz00_6, BgL_genvz00_7, BgL_escapez00_463, BTRUE, BgL_arg1925z00_801); } 
{ /* ./Eval/evcompile.scm 167 */
obj_t BgL_v1041z00_1902;
{ 
int BgL_auxz00_3659;
BgL_auxz00_3659 = 
(int)(((long)3)); 
BgL_v1041z00_1902 = 
create_vector(BgL_auxz00_3659); } 
{ 
int BgL_auxz00_3662;
BgL_auxz00_3662 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1041z00_1902,BgL_auxz00_3662,BgL_arg1921z00_799); } 
{ 
int BgL_auxz00_3665;
BgL_auxz00_3665 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1041z00_1902,BgL_auxz00_3665,BgL_locz00_798); } 
{ 
obj_t BgL_auxz00_3670;int BgL_auxz00_3668;
BgL_auxz00_3670 = 
BINT(((long)18)); 
BgL_auxz00_3668 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1041z00_1902,BgL_auxz00_3668,BgL_auxz00_3670); } 
return BgL_v1041z00_1902;} } } }  else 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_carzd21695zd2_668;
BgL_carzd21695zd2_668 = 
CAR(BgL_expz00_5); 
if(
PAIRP(BgL_carzd21695zd2_668))
{ 
obj_t BgL_argsz00_3679;obj_t BgL_funz00_3678;
BgL_funz00_3678 = BgL_carzd21695zd2_668; 
BgL_argsz00_3679 = BgL_cdrzd21668zd2_660; 
BgL_argsz00_476 = BgL_argsz00_3679; 
BgL_funz00_475 = BgL_funz00_3678; 
goto BgL_tagzd2115zd2_477;}  else 
{ 
obj_t BgL_argsz00_3681;obj_t BgL_funz00_3680;
BgL_funz00_3680 = BgL_carzd21695zd2_668; 
BgL_argsz00_3681 = BgL_cdrzd21668zd2_660; 
BgL_argsz00_473 = BgL_argsz00_3681; 
BgL_funz00_472 = BgL_funz00_3680; 
goto BgL_tagzd2114zd2_474;} } }  else 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_carzd21728zd2_674;
BgL_carzd21728zd2_674 = 
CAR(BgL_expz00_5); 
if(
PAIRP(BgL_carzd21728zd2_674))
{ 
obj_t BgL_argsz00_3686;obj_t BgL_funz00_3685;
BgL_funz00_3685 = BgL_carzd21728zd2_674; 
BgL_argsz00_3686 = BgL_cdrzd21668zd2_660; 
BgL_argsz00_476 = BgL_argsz00_3686; 
BgL_funz00_475 = BgL_funz00_3685; 
goto BgL_tagzd2115zd2_477;}  else 
{ 
obj_t BgL_argsz00_3688;obj_t BgL_funz00_3687;
BgL_funz00_3687 = BgL_carzd21728zd2_674; 
BgL_argsz00_3688 = BgL_cdrzd21668zd2_660; 
BgL_argsz00_473 = BgL_argsz00_3688; 
BgL_funz00_472 = BgL_funz00_3687; 
goto BgL_tagzd2114zd2_474;} } }  else 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_carzd21761zd2_679;
BgL_carzd21761zd2_679 = 
CAR(BgL_expz00_5); 
if(
PAIRP(BgL_carzd21761zd2_679))
{ 
obj_t BgL_argsz00_3693;obj_t BgL_funz00_3692;
BgL_funz00_3692 = BgL_carzd21761zd2_679; 
BgL_argsz00_3693 = BgL_cdrzd21668zd2_660; 
BgL_argsz00_476 = BgL_argsz00_3693; 
BgL_funz00_475 = BgL_funz00_3692; 
goto BgL_tagzd2115zd2_477;}  else 
{ 
obj_t BgL_argsz00_3695;obj_t BgL_funz00_3694;
BgL_funz00_3694 = BgL_carzd21761zd2_679; 
BgL_argsz00_3695 = BgL_cdrzd21668zd2_660; 
BgL_argsz00_473 = BgL_argsz00_3695; 
BgL_funz00_472 = BgL_funz00_3694; 
goto BgL_tagzd2114zd2_474;} } }  else 
{ /* ./Eval/evcompile.scm 96 */
bool_t BgL_testz00_3696;
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_auxz00_3697;
BgL_auxz00_3697 = 
CAR(BgL_expz00_5); 
BgL_testz00_3696 = 
(BgL_auxz00_3697==BGl_symbol4098z00zz__evcompilez00); } 
if(BgL_testz00_3696)
{ /* ./Eval/evcompile.scm 96 */
if(
PAIRP(BgL_cdrzd21668zd2_660))
{ /* ./Eval/evcompile.scm 96 */
BgL_bodyz00_466 = 
CAR(BgL_cdrzd21668zd2_660); 
BgL_protectz00_467 = 
CDR(BgL_cdrzd21668zd2_660); 
{ /* ./Eval/evcompile.scm 175 */
obj_t BgL_locz00_805;
{ /* ./Eval/evcompile.scm 175 */
bool_t BgL_test1097z00_1914;
BgL_test1097z00_1914 = 
EXTENDED_PAIRP(BgL_expz00_5); 
if(BgL_test1097z00_1914)
{ /* ./Eval/evcompile.scm 175 */
BgL_locz00_805 = 
CER(BgL_expz00_5); }  else 
{ /* ./Eval/evcompile.scm 175 */
BgL_locz00_805 = BgL_locz00_10; } } 
{ /* ./Eval/evcompile.scm 177 */
obj_t BgL_arg1939z00_806;obj_t BgL_arg1941z00_807;
{ /* ./Eval/evcompile.scm 177 */
obj_t BgL_arg1945z00_808;
{ /* ./Eval/evcompile.scm 177 */
bool_t BgL_test1097z00_1919;
BgL_test1097z00_1919 = 
EXTENDED_PAIRP(BgL_bodyz00_466); 
if(BgL_test1097z00_1919)
{ /* ./Eval/evcompile.scm 177 */
BgL_arg1945z00_808 = 
CER(BgL_bodyz00_466); }  else 
{ /* ./Eval/evcompile.scm 177 */
BgL_arg1945z00_808 = BgL_locz00_805; } } 
BgL_arg1939z00_806 = 
BGl_evcompilez00zz__evcompilez00(BgL_bodyz00_466, BgL_envz00_6, BgL_genvz00_7, BgL_wherez00_8, BgL_namedzf3zf3_9, BgL_arg1945z00_808); } 
{ /* ./Eval/evcompile.scm 180 */
obj_t BgL_arg1949z00_809;
{ /* ./Eval/evcompile.scm 180 */
bool_t BgL_test1097z00_1924;
BgL_test1097z00_1924 = 
EXTENDED_PAIRP(BgL_protectz00_467); 
if(BgL_test1097z00_1924)
{ /* ./Eval/evcompile.scm 180 */
BgL_arg1949z00_809 = 
CER(BgL_protectz00_467); }  else 
{ /* ./Eval/evcompile.scm 180 */
BgL_arg1949z00_809 = BgL_locz00_805; } } 
BgL_arg1941z00_807 = 
BGl_evcompilezd2beginzd2zz__evcompilez00(BgL_protectz00_467, BgL_envz00_6, BgL_genvz00_7, BgL_wherez00_8, BgL_namedzf3zf3_9, BgL_arg1949z00_809); } 
{ /* ./Eval/evcompile.scm 176 */
obj_t BgL_v1042z00_1930;
{ 
int BgL_auxz00_3713;
BgL_auxz00_3713 = 
(int)(((long)3)); 
BgL_v1042z00_1930 = 
create_vector(BgL_auxz00_3713); } 
{ /* ./Eval/evcompile.scm 176 */
obj_t BgL_arg2237z00_1932;
BgL_arg2237z00_1932 = 
MAKE_PAIR(BgL_arg1939z00_806, BgL_arg1941z00_807); 
{ 
int BgL_auxz00_3717;
BgL_auxz00_3717 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1042z00_1930,BgL_auxz00_3717,BgL_arg2237z00_1932); } } 
{ 
int BgL_auxz00_3720;
BgL_auxz00_3720 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1042z00_1930,BgL_auxz00_3720,BgL_locz00_805); } 
{ 
obj_t BgL_auxz00_3725;int BgL_auxz00_3723;
BgL_auxz00_3725 = 
BINT(((long)64)); 
BgL_auxz00_3723 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1042z00_1930,BgL_auxz00_3723,BgL_auxz00_3725); } 
return BgL_v1042z00_1930;} } } }  else 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_carzd21802zd2_689;
BgL_carzd21802zd2_689 = 
CAR(BgL_expz00_5); 
if(
PAIRP(BgL_carzd21802zd2_689))
{ 
obj_t BgL_argsz00_3734;obj_t BgL_funz00_3733;
BgL_funz00_3733 = BgL_carzd21802zd2_689; 
BgL_argsz00_3734 = 
CDR(BgL_expz00_5); 
BgL_argsz00_476 = BgL_argsz00_3734; 
BgL_funz00_475 = BgL_funz00_3733; 
goto BgL_tagzd2115zd2_477;}  else 
{ 
obj_t BgL_argsz00_3737;obj_t BgL_funz00_3736;
BgL_funz00_3736 = BgL_carzd21802zd2_689; 
BgL_argsz00_3737 = 
CDR(BgL_expz00_5); 
BgL_argsz00_473 = BgL_argsz00_3737; 
BgL_funz00_472 = BgL_funz00_3736; 
goto BgL_tagzd2114zd2_474;} } }  else 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_cdrzd21825zd2_694;
BgL_cdrzd21825zd2_694 = 
CDR(BgL_expz00_5); 
{ /* ./Eval/evcompile.scm 96 */
bool_t BgL_testz00_3740;
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_auxz00_3741;
BgL_auxz00_3741 = 
CAR(BgL_expz00_5); 
BgL_testz00_3740 = 
(BgL_auxz00_3741==BGl_symbol4087z00zz__evcompilez00); } 
if(BgL_testz00_3740)
{ /* ./Eval/evcompile.scm 96 */
if(
PAIRP(BgL_cdrzd21825zd2_694))
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_cdrzd21829zd2_697;
BgL_cdrzd21829zd2_697 = 
CDR(BgL_cdrzd21825zd2_694); 
if(
PAIRP(BgL_cdrzd21829zd2_697))
{ /* ./Eval/evcompile.scm 96 */
bool_t BgL_testz00_3749;
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_auxz00_3750;
BgL_auxz00_3750 = 
CDR(BgL_cdrzd21829zd2_697); 
BgL_testz00_3749 = 
NULLP(BgL_auxz00_3750); } 
if(BgL_testz00_3749)
{ /* ./Eval/evcompile.scm 96 */
BgL_formalsz00_469 = 
CAR(BgL_cdrzd21825zd2_694); 
BgL_bodyz00_470 = 
CAR(BgL_cdrzd21829zd2_697); 
{ /* ./Eval/evcompile.scm 183 */
obj_t BgL_locz00_810;
{ /* ./Eval/evcompile.scm 183 */
bool_t BgL_test1097z00_1944;
BgL_test1097z00_1944 = 
EXTENDED_PAIRP(BgL_expz00_5); 
if(BgL_test1097z00_1944)
{ /* ./Eval/evcompile.scm 183 */
BgL_locz00_810 = 
CER(BgL_expz00_5); }  else 
{ /* ./Eval/evcompile.scm 183 */
BgL_locz00_810 = BgL_locz00_10; } } 
{ /* ./Eval/evcompile.scm 183 */
obj_t BgL_scmzd2formalszd2_811;
{ /* ./Eval/evcompile.scm 187 */
obj_t BgL_zc3anonymousza31977ze3z83_2994;
{ 
int BgL_auxz00_3758;int BgL_auxz00_3756;
BgL_auxz00_3758 = 
(int)(((long)1)); 
BgL_auxz00_3756 = 
(int)(((long)3)); 
BgL_zc3anonymousza31977ze3z83_2994 = 
make_fx_procedure(BGl_zc3anonymousza31977ze3z83zz__evcompilez00, BgL_auxz00_3756, BgL_auxz00_3758); } 
{ /* ./Eval/evcompile.scm 187 */
int BgL_auxz00_3761;
BgL_auxz00_3761 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31977ze3z83_2994, BgL_auxz00_3761, BgL_locz00_810); } 
BgL_scmzd2formalszd2_811 = 
BGl_dssslzd2formalszd2ze3schemezd2formalsz31zz__dssslz00(BgL_formalsz00_469, BgL_zc3anonymousza31977ze3z83_2994); } 
{ /* ./Eval/evcompile.scm 184 */
obj_t BgL_untypedzd2scmzd2formalsz00_812;
BgL_untypedzd2scmzd2formalsz00_812 = 
BGl_untypezd2identza2z70zz__evcompilez00(BgL_scmzd2formalszd2_811); 
{ /* ./Eval/evcompile.scm 188 */

{ /* ./Eval/evcompile.scm 196 */
obj_t BgL_arg1954z00_813;
{ /* ./Eval/evcompile.scm 196 */
obj_t BgL_arg1957z00_814;obj_t BgL_arg1958z00_815;obj_t BgL_arg1960z00_816;
{ /* ./Eval/evcompile.scm 196 */
obj_t BgL_arg1963z00_817;
{ /* ./Eval/evcompile.scm 196 */
obj_t BgL_zc3anonymousza31969ze3z83_2993;
{ 
int BgL_auxz00_3768;int BgL_auxz00_3766;
BgL_auxz00_3768 = 
(int)(((long)1)); 
BgL_auxz00_3766 = 
(int)(((long)3)); 
BgL_zc3anonymousza31969ze3z83_2993 = 
make_fx_procedure(BGl_zc3anonymousza31969ze3z83zz__evcompilez00, BgL_auxz00_3766, BgL_auxz00_3768); } 
{ /* ./Eval/evcompile.scm 196 */
int BgL_auxz00_3771;
BgL_auxz00_3771 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31969ze3z83_2993, BgL_auxz00_3771, BgL_locz00_810); } 
BgL_arg1963z00_817 = 
BGl_makezd2dssslzd2functionzd2preludezd2zz__dssslz00(BgL_expz00_5, BgL_formalsz00_469, BgL_bodyz00_470, BgL_zc3anonymousza31969ze3z83_2993, BNIL); } 
BgL_arg1957z00_814 = 
BGl_expandz00zz__expandz00(BgL_arg1963z00_817); } 
BgL_arg1958z00_815 = 
BGl__loop_z00zz__evcompilez00(BgL_envz00_6, BgL_untypedzd2scmzd2formalsz00_812); 
{ /* ./Eval/evcompile.scm 203 */
bool_t BgL_test1097z00_1949;
BgL_test1097z00_1949 = 
EXTENDED_PAIRP(BgL_bodyz00_470); 
if(BgL_test1097z00_1949)
{ /* ./Eval/evcompile.scm 203 */
BgL_arg1960z00_816 = 
CER(BgL_bodyz00_470); }  else 
{ /* ./Eval/evcompile.scm 203 */
BgL_arg1960z00_816 = BgL_locz00_810; } } 
BgL_arg1954z00_813 = 
BGl_evcompilez00zz__evcompilez00(BgL_arg1957z00_814, BgL_arg1958z00_815, BgL_genvz00_7, BgL_wherez00_8, BFALSE, BgL_arg1960z00_816); } 
return 
BGl_evcompilezd2lambdazd2zz__evcompilez00(BgL_untypedzd2scmzd2formalsz00_812, BgL_arg1954z00_813, BgL_wherez00_8, BgL_namedzf3zf3_9, BgL_locz00_810);} } } } } }  else 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_carzd21839zd2_702;
BgL_carzd21839zd2_702 = 
CAR(BgL_expz00_5); 
if(
PAIRP(BgL_carzd21839zd2_702))
{ 
obj_t BgL_argsz00_3788;obj_t BgL_funz00_3787;
BgL_funz00_3787 = BgL_carzd21839zd2_702; 
BgL_argsz00_3788 = BgL_cdrzd21825zd2_694; 
BgL_argsz00_476 = BgL_argsz00_3788; 
BgL_funz00_475 = BgL_funz00_3787; 
goto BgL_tagzd2115zd2_477;}  else 
{ 
obj_t BgL_argsz00_3790;obj_t BgL_funz00_3789;
BgL_funz00_3789 = BgL_carzd21839zd2_702; 
BgL_argsz00_3790 = BgL_cdrzd21825zd2_694; 
BgL_argsz00_473 = BgL_argsz00_3790; 
BgL_funz00_472 = BgL_funz00_3789; 
goto BgL_tagzd2114zd2_474;} } }  else 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_carzd21859zd2_708;
BgL_carzd21859zd2_708 = 
CAR(BgL_expz00_5); 
if(
PAIRP(BgL_carzd21859zd2_708))
{ 
obj_t BgL_argsz00_3795;obj_t BgL_funz00_3794;
BgL_funz00_3794 = BgL_carzd21859zd2_708; 
BgL_argsz00_3795 = BgL_cdrzd21825zd2_694; 
BgL_argsz00_476 = BgL_argsz00_3795; 
BgL_funz00_475 = BgL_funz00_3794; 
goto BgL_tagzd2115zd2_477;}  else 
{ 
obj_t BgL_argsz00_3797;obj_t BgL_funz00_3796;
BgL_funz00_3796 = BgL_carzd21859zd2_708; 
BgL_argsz00_3797 = BgL_cdrzd21825zd2_694; 
BgL_argsz00_473 = BgL_argsz00_3797; 
BgL_funz00_472 = BgL_funz00_3796; 
goto BgL_tagzd2114zd2_474;} } }  else 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_carzd21879zd2_713;
BgL_carzd21879zd2_713 = 
CAR(BgL_expz00_5); 
if(
PAIRP(BgL_carzd21879zd2_713))
{ 
obj_t BgL_argsz00_3802;obj_t BgL_funz00_3801;
BgL_funz00_3801 = BgL_carzd21879zd2_713; 
BgL_argsz00_3802 = BgL_cdrzd21825zd2_694; 
BgL_argsz00_476 = BgL_argsz00_3802; 
BgL_funz00_475 = BgL_funz00_3801; 
goto BgL_tagzd2115zd2_477;}  else 
{ 
obj_t BgL_argsz00_3804;obj_t BgL_funz00_3803;
BgL_funz00_3803 = BgL_carzd21879zd2_713; 
BgL_argsz00_3804 = BgL_cdrzd21825zd2_694; 
BgL_argsz00_473 = BgL_argsz00_3804; 
BgL_funz00_472 = BgL_funz00_3803; 
goto BgL_tagzd2114zd2_474;} } }  else 
{ /* ./Eval/evcompile.scm 96 */
obj_t BgL_carzd21899zd2_718;
BgL_carzd21899zd2_718 = 
CAR(BgL_expz00_5); 
if(
PAIRP(BgL_carzd21899zd2_718))
{ 
obj_t BgL_argsz00_3809;obj_t BgL_funz00_3808;
BgL_funz00_3808 = BgL_carzd21899zd2_718; 
BgL_argsz00_3809 = BgL_cdrzd21825zd2_694; 
BgL_argsz00_476 = BgL_argsz00_3809; 
BgL_funz00_475 = BgL_funz00_3808; 
goto BgL_tagzd2115zd2_477;}  else 
{ 
obj_t BgL_argsz00_3811;obj_t BgL_funz00_3810;
BgL_funz00_3810 = BgL_carzd21899zd2_718; 
BgL_argsz00_3811 = BgL_cdrzd21825zd2_694; 
BgL_argsz00_473 = BgL_argsz00_3811; 
BgL_funz00_472 = BgL_funz00_3810; 
goto BgL_tagzd2114zd2_474;} } } } } } } } } } } } } } } }  else 
{ /* ./Eval/evcompile.scm 96 */
BgL_atomz00_446 = BgL_expz00_5; 
if(
SYMBOLP(BgL_atomz00_446))
{ /* ./Eval/evcompile.scm 106 */
return 
BGl_evcompilezd2refzd2zz__evcompilez00(
BGl_variablez00zz__evcompilez00(BgL_locz00_10, BgL_atomz00_446, BgL_envz00_6, BgL_genvz00_7), BgL_locz00_10);}  else 
{ /* ./Eval/evcompile.scm 108 */
bool_t BgL_test1794z00_745;
if(
VECTORP(BgL_atomz00_446))
{ /* ./Eval/evcompile.scm 108 */
BgL_test1794z00_745 = ((bool_t)1); }  else 
{ /* ./Eval/evcompile.scm 108 */
BgL_test1794z00_745 = 
STRUCTP(BgL_atomz00_446); } 
if(BgL_test1794z00_745)
{ /* ./Eval/evcompile.scm 108 */
return 
BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_10, BGl_string4081z00zz__evcompilez00, BGl_string4082z00zz__evcompilez00, BgL_expz00_5);}  else 
{ /* ./Eval/evcompile.scm 108 */
if(
VECTORP(BgL_atomz00_446))
{ /* ./Eval/evcompile.scm 115 */
{ /* ./Eval/evcompile.scm 115 */
obj_t BgL_v1023z00_1699;
{ 
int BgL_auxz00_3823;
BgL_auxz00_3823 = 
(int)(((long)3)); 
BgL_v1023z00_1699 = 
create_vector(BgL_auxz00_3823); } 
{ 
int BgL_auxz00_3826;
BgL_auxz00_3826 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1023z00_1699,BgL_auxz00_3826,BgL_atomz00_446); } 
{ 
int BgL_auxz00_3829;
BgL_auxz00_3829 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1023z00_1699,BgL_auxz00_3829,BgL_locz00_10); } 
{ 
obj_t BgL_auxz00_3834;int BgL_auxz00_3832;
BgL_auxz00_3834 = 
BINT(((long)-1)); 
BgL_auxz00_3832 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1023z00_1699,BgL_auxz00_3832,BgL_auxz00_3834); } 
return BgL_v1023z00_1699;} }  else 
{ /* ./Eval/evcompile.scm 115 */
return BgL_atomz00_446;} } } } } } } 
}



/* _evcompile */
obj_t BGl__evcompilez00zz__evcompilez00(obj_t BgL_envz00_2996, obj_t BgL_expz00_2997, obj_t BgL_envz00_2998, obj_t BgL_genvz00_2999, obj_t BgL_wherez00_3000, obj_t BgL_namedzf3zf3_3001, obj_t BgL_locz00_3002)
{ AN_OBJECT;
{ /* ./Eval/evcompile.scm 95 */
return 
BGl_evcompilez00zz__evcompilez00(BgL_expz00_2997, BgL_envz00_2998, BgL_genvz00_2999, BgL_wherez00_3000, BgL_namedzf3zf3_3001, BgL_locz00_3002);} 
}



/* <anonymous:1969> */
obj_t BGl_zc3anonymousza31969ze3z83zz__evcompilez00(obj_t BgL_envz00_3003, obj_t BgL_procz00_3005, obj_t BgL_msgz00_3006, obj_t BgL_objz00_3007)
{ AN_OBJECT;
{ /* ./Eval/evcompile.scm 195 */
{ /* ./Eval/evcompile.scm 196 */
obj_t BgL_locz00_3004;
{ /* ./Eval/evcompile.scm 196 */
int BgL_auxz00_3838;
BgL_auxz00_3838 = 
(int)(((long)0)); 
BgL_locz00_3004 = 
PROCEDURE_REF(BgL_envz00_3003, BgL_auxz00_3838); } 
{ 
obj_t BgL_procz00_820;obj_t BgL_msgz00_821;obj_t BgL_objz00_822;
BgL_procz00_820 = BgL_procz00_3005; 
BgL_msgz00_821 = BgL_msgz00_3006; 
BgL_objz00_822 = BgL_objz00_3007; 
return 
BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_3004, BgL_procz00_820, BgL_msgz00_821, BgL_objz00_822);} } } 
}



/* <anonymous:1977> */
obj_t BGl_zc3anonymousza31977ze3z83zz__evcompilez00(obj_t BgL_envz00_3008, obj_t BgL_procz00_3010, obj_t BgL_msgz00_3011, obj_t BgL_objz00_3012)
{ AN_OBJECT;
{ /* ./Eval/evcompile.scm 186 */
{ /* ./Eval/evcompile.scm 187 */
obj_t BgL_locz00_3009;
{ /* ./Eval/evcompile.scm 187 */
int BgL_auxz00_3842;
BgL_auxz00_3842 = 
(int)(((long)0)); 
BgL_locz00_3009 = 
PROCEDURE_REF(BgL_envz00_3008, BgL_auxz00_3842); } 
{ 
obj_t BgL_procz00_826;obj_t BgL_msgz00_827;obj_t BgL_objz00_828;
BgL_procz00_826 = BgL_procz00_3010; 
BgL_msgz00_827 = BgL_msgz00_3011; 
BgL_objz00_828 = BgL_objz00_3012; 
return 
BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_3009, BgL_procz00_826, BgL_msgz00_827, BgL_objz00_828);} } } 
}



/* <anonymous:1842> */
obj_t BGl_zc3anonymousza31842ze3z83zz__evcompilez00(obj_t BgL_envz00_3013)
{ AN_OBJECT;
{ /* ./Eval/evcompile.scm 140 */
{ /* ./Eval/evcompile.scm 140 */
obj_t BgL_expz00_3014;obj_t BgL_locz00_3015;obj_t BgL_valz00_3016;obj_t BgL_genvz00_3017;obj_t BgL_varz00_3018;
{ /* ./Eval/evcompile.scm 140 */
int BgL_auxz00_3846;
BgL_auxz00_3846 = 
(int)(((long)0)); 
BgL_expz00_3014 = 
PROCEDURE_REF(BgL_envz00_3013, BgL_auxz00_3846); } 
{ /* ./Eval/evcompile.scm 140 */
int BgL_auxz00_3849;
BgL_auxz00_3849 = 
(int)(((long)1)); 
BgL_locz00_3015 = 
PROCEDURE_REF(BgL_envz00_3013, BgL_auxz00_3849); } 
{ /* ./Eval/evcompile.scm 140 */
int BgL_auxz00_3852;
BgL_auxz00_3852 = 
(int)(((long)2)); 
BgL_valz00_3016 = 
PROCEDURE_REF(BgL_envz00_3013, BgL_auxz00_3852); } 
{ /* ./Eval/evcompile.scm 140 */
int BgL_auxz00_3855;
BgL_auxz00_3855 = 
(int)(((long)3)); 
BgL_genvz00_3017 = 
PROCEDURE_REF(BgL_envz00_3013, BgL_auxz00_3855); } 
{ /* ./Eval/evcompile.scm 140 */
int BgL_auxz00_3858;
BgL_auxz00_3858 = 
(int)(((long)4)); 
BgL_varz00_3018 = 
PROCEDURE_REF(BgL_envz00_3013, BgL_auxz00_3858); } 
{ 

{ /* ./Eval/evcompile.scm 140 */
obj_t BgL_arg1846z00_763;
{ /* ./Eval/evcompile.scm 141 */
bool_t BgL_test1097z00_1789;
BgL_test1097z00_1789 = 
EXTENDED_PAIRP(BgL_expz00_3014); 
if(BgL_test1097z00_1789)
{ /* ./Eval/evcompile.scm 141 */
BgL_arg1846z00_763 = 
CER(BgL_expz00_3014); }  else 
{ /* ./Eval/evcompile.scm 141 */
BgL_arg1846z00_763 = BgL_locz00_3015; } } 
return 
BGl_evcompilez00zz__evcompilez00(BgL_valz00_3016, BNIL, BgL_genvz00_3017, BgL_varz00_3018, BTRUE, BgL_arg1846z00_763);} } } } 
}



/* evcompile-cnst */
obj_t BGl_evcompilezd2cnstzd2zz__evcompilez00(obj_t BgL_cnstz00_11, obj_t BgL_locz00_12)
{ AN_OBJECT;
{ /* ./Eval/evcompile.scm 240 */
if(
VECTORP(BgL_cnstz00_11))
{ /* ./Eval/evcompile.scm 242 */
{ /* ./Eval/evcompile.scm 242 */
obj_t BgL_v1023z00_2006;
{ 
int BgL_auxz00_3867;
BgL_auxz00_3867 = 
(int)(((long)3)); 
BgL_v1023z00_2006 = 
create_vector(BgL_auxz00_3867); } 
{ 
int BgL_auxz00_3870;
BgL_auxz00_3870 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1023z00_2006,BgL_auxz00_3870,BgL_cnstz00_11); } 
{ 
int BgL_auxz00_3873;
BgL_auxz00_3873 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1023z00_2006,BgL_auxz00_3873,BgL_locz00_12); } 
{ 
obj_t BgL_auxz00_3878;int BgL_auxz00_3876;
BgL_auxz00_3878 = 
BINT(((long)-1)); 
BgL_auxz00_3876 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1023z00_2006,BgL_auxz00_3876,BgL_auxz00_3878); } 
return BgL_v1023z00_2006;} }  else 
{ /* ./Eval/evcompile.scm 242 */
return BgL_cnstz00_11;} } 
}



/* evcompile-ref */
obj_t BGl_evcompilezd2refzd2zz__evcompilez00(obj_t BgL_variablez00_13, obj_t BgL_locz00_14)
{ AN_OBJECT;
{ /* ./Eval/evcompile.scm 250 */
{ /* ./Eval/evcompile.scm 252 */
bool_t BgL_test2060z00_875;
if(
VECTORP(BgL_variablez00_13))
{ /* ./Eval/evcompile.scm 252 */
int BgL_arg3004z00_2019;
BgL_arg3004z00_2019 = 
VECTOR_LENGTH(BgL_variablez00_13); 
{ /* ./Eval/evcompile.scm 252 */
long BgL_auxz00_3884;
BgL_auxz00_3884 = 
(long)(BgL_arg3004z00_2019); 
BgL_test2060z00_875 = 
(BgL_auxz00_3884==((long)3)); } }  else 
{ /* ./Eval/evcompile.scm 252 */
BgL_test2060z00_875 = ((bool_t)0); } 
if(BgL_test2060z00_875)
{ /* ./Eval/evcompile.scm 252 */
{ /* ./Eval/evcompile.scm 253 */
obj_t BgL_v1024z00_876;
{ 
int BgL_auxz00_3888;
BgL_auxz00_3888 = 
(int)(((long)3)); 
BgL_v1024z00_876 = 
create_vector(BgL_auxz00_3888); } 
{ 
int BgL_auxz00_3891;
BgL_auxz00_3891 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1024z00_876,BgL_auxz00_3891,BgL_variablez00_13); } 
{ 
int BgL_auxz00_3894;
BgL_auxz00_3894 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1024z00_876,BgL_auxz00_3894,BgL_locz00_14); } 
{ /* ./Eval/evcompile.scm 253 */
long BgL_arg2065z00_878;
{ /* ./Eval/evcompile.scm 253 */
bool_t BgL_testz00_3897;
{ /* ./Eval/evcompile.scm 253 */
obj_t BgL_auxz00_3902;obj_t BgL_auxz00_3898;
BgL_auxz00_3902 = 
BINT(((long)1)); 
{ 
int BgL_auxz00_3899;
BgL_auxz00_3899 = 
(int)(((long)0)); 
BgL_auxz00_3898 = 
VECTOR_REF(BgL_variablez00_13,BgL_auxz00_3899); } 
BgL_testz00_3897 = 
(BgL_auxz00_3898==BgL_auxz00_3902); } 
if(BgL_testz00_3897)
{ /* ./Eval/evcompile.scm 253 */
BgL_arg2065z00_878 = ((long)5); }  else 
{ /* ./Eval/evcompile.scm 253 */
BgL_arg2065z00_878 = ((long)6); } } 
{ 
obj_t BgL_auxz00_3907;int BgL_auxz00_3905;
BgL_auxz00_3907 = 
BINT(BgL_arg2065z00_878); 
BgL_auxz00_3905 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1024z00_876,BgL_auxz00_3905,BgL_auxz00_3907); } } 
return BgL_v1024z00_876;} }  else 
{ /* ./Eval/evcompile.scm 256 */
bool_t BgL_test2074z00_882;
if(
PAIRP(BgL_variablez00_13))
{ /* ./Eval/evcompile.scm 256 */
obj_t BgL_auxz00_3912;
BgL_auxz00_3912 = 
CAR(BgL_variablez00_13); 
BgL_test2074z00_882 = 
(BgL_auxz00_3912==BGl_symbol4099z00zz__evcompilez00); }  else 
{ /* ./Eval/evcompile.scm 256 */
BgL_test2074z00_882 = ((bool_t)0); } 
if(BgL_test2074z00_882)
{ /* ./Eval/evcompile.scm 256 */
{ /* ./Eval/evcompile.scm 257 */
obj_t BgL_v1025z00_883;
{ 
int BgL_auxz00_3916;
BgL_auxz00_3916 = 
(int)(((long)3)); 
BgL_v1025z00_883 = 
create_vector(BgL_auxz00_3916); } 
{ 
obj_t BgL_auxz00_3921;int BgL_auxz00_3919;
BgL_auxz00_3921 = 
CDR(BgL_variablez00_13); 
BgL_auxz00_3919 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1025z00_883,BgL_auxz00_3919,BgL_auxz00_3921); } 
{ 
int BgL_auxz00_3924;
BgL_auxz00_3924 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1025z00_883,BgL_auxz00_3924,BgL_locz00_14); } 
{ 
obj_t BgL_auxz00_3929;int BgL_auxz00_3927;
BgL_auxz00_3929 = 
BINT(((long)7)); 
BgL_auxz00_3927 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1025z00_883,BgL_auxz00_3927,BgL_auxz00_3929); } 
return BgL_v1025z00_883;} }  else 
{ /* ./Eval/evcompile.scm 256 */
{ 

if(
INTEGERP(BgL_variablez00_13))
{ /* ./Eval/evcompile.scm 259 */
switch( 
(long)CINT(BgL_variablez00_13)) { case ((long)0) : 
case ((long)1) : 
case ((long)2) : 
case ((long)3) : 

{ /* ./Eval/evcompile.scm 261 */
obj_t BgL_v1029z00_889;
{ 
int BgL_auxz00_3934;
BgL_auxz00_3934 = 
(int)(((long)3)); 
BgL_v1029z00_889 = 
create_vector(BgL_auxz00_3934); } 
{ 
int BgL_auxz00_3937;
BgL_auxz00_3937 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1029z00_889,BgL_auxz00_3937,BNIL); } 
{ 
int BgL_auxz00_3940;
BgL_auxz00_3940 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1029z00_889,BgL_auxz00_3940,BgL_locz00_14); } 
{ 
int BgL_auxz00_3943;
BgL_auxz00_3943 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1029z00_889,BgL_auxz00_3943,BgL_variablez00_13); } 
return BgL_v1029z00_889;} break;
default: 
BgL_case_else1027z00_886:
{ /* ./Eval/evcompile.scm 263 */
obj_t BgL_v1026z00_890;
{ 
int BgL_auxz00_3946;
BgL_auxz00_3946 = 
(int)(((long)3)); 
BgL_v1026z00_890 = 
create_vector(BgL_auxz00_3946); } 
{ 
int BgL_auxz00_3949;
BgL_auxz00_3949 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1026z00_890,BgL_auxz00_3949,BgL_variablez00_13); } 
{ 
int BgL_auxz00_3952;
BgL_auxz00_3952 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1026z00_890,BgL_auxz00_3952,BgL_locz00_14); } 
{ 
obj_t BgL_auxz00_3957;int BgL_auxz00_3955;
BgL_auxz00_3957 = 
BINT(((long)4)); 
BgL_auxz00_3955 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1026z00_890,BgL_auxz00_3955,BgL_auxz00_3957); } 
return BgL_v1026z00_890;} } }  else 
{ /* ./Eval/evcompile.scm 259 */
goto BgL_case_else1027z00_886;} } } } } } 
}



/* evcompile-set */
obj_t BGl_evcompilezd2setzd2zz__evcompilez00(obj_t BgL_variablez00_15, obj_t BgL_valuez00_16, obj_t BgL_locz00_17)
{ AN_OBJECT;
{ /* ./Eval/evcompile.scm 268 */
{ /* ./Eval/evcompile.scm 270 */
bool_t BgL_test2097z00_891;
if(
VECTORP(BgL_variablez00_15))
{ /* ./Eval/evcompile.scm 270 */
int BgL_arg3004z00_2074;
BgL_arg3004z00_2074 = 
VECTOR_LENGTH(BgL_variablez00_15); 
{ /* ./Eval/evcompile.scm 270 */
long BgL_auxz00_3965;
BgL_auxz00_3965 = 
(long)(BgL_arg3004z00_2074); 
BgL_test2097z00_891 = 
(BgL_auxz00_3965==((long)3)); } }  else 
{ /* ./Eval/evcompile.scm 270 */
BgL_test2097z00_891 = ((bool_t)0); } 
if(BgL_test2097z00_891)
{ /* ./Eval/evcompile.scm 270 */
{ /* ./Eval/evcompile.scm 271 */
obj_t BgL_v1030z00_892;
{ 
int BgL_auxz00_3969;
BgL_auxz00_3969 = 
(int)(((long)3)); 
BgL_v1030z00_892 = 
create_vector(BgL_auxz00_3969); } 
{ /* ./Eval/evcompile.scm 271 */
obj_t BgL_arg2100z00_894;
BgL_arg2100z00_894 = 
MAKE_PAIR(BgL_variablez00_15, BgL_valuez00_16); 
{ 
int BgL_auxz00_3973;
BgL_auxz00_3973 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1030z00_892,BgL_auxz00_3973,BgL_arg2100z00_894); } } 
{ 
int BgL_auxz00_3976;
BgL_auxz00_3976 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1030z00_892,BgL_auxz00_3976,BgL_locz00_17); } 
{ 
obj_t BgL_auxz00_3981;int BgL_auxz00_3979;
BgL_auxz00_3981 = 
BINT(((long)8)); 
BgL_auxz00_3979 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1030z00_892,BgL_auxz00_3979,BgL_auxz00_3981); } 
return BgL_v1030z00_892;} }  else 
{ /* ./Eval/evcompile.scm 272 */
bool_t BgL_test2106z00_895;
if(
PAIRP(BgL_variablez00_15))
{ /* ./Eval/evcompile.scm 272 */
obj_t BgL_auxz00_3986;
BgL_auxz00_3986 = 
CAR(BgL_variablez00_15); 
BgL_test2106z00_895 = 
(BgL_auxz00_3986==BGl_symbol4099z00zz__evcompilez00); }  else 
{ /* ./Eval/evcompile.scm 272 */
BgL_test2106z00_895 = ((bool_t)0); } 
if(BgL_test2106z00_895)
{ /* ./Eval/evcompile.scm 272 */
{ /* ./Eval/evcompile.scm 273 */
obj_t BgL_v1031z00_896;
{ 
int BgL_auxz00_3990;
BgL_auxz00_3990 = 
(int)(((long)3)); 
BgL_v1031z00_896 = 
create_vector(BgL_auxz00_3990); } 
{ /* ./Eval/evcompile.scm 273 */
obj_t BgL_arg2109z00_898;
{ /* ./Eval/evcompile.scm 273 */
obj_t BgL_auxz00_3993;
BgL_auxz00_3993 = 
CDR(BgL_variablez00_15); 
BgL_arg2109z00_898 = 
MAKE_PAIR(BgL_auxz00_3993, BgL_valuez00_16); } 
{ 
int BgL_auxz00_3996;
BgL_auxz00_3996 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1031z00_896,BgL_auxz00_3996,BgL_arg2109z00_898); } } 
{ 
int BgL_auxz00_3999;
BgL_auxz00_3999 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1031z00_896,BgL_auxz00_3999,BgL_locz00_17); } 
{ 
obj_t BgL_auxz00_4004;int BgL_auxz00_4002;
BgL_auxz00_4004 = 
BINT(((long)9)); 
BgL_auxz00_4002 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1031z00_896,BgL_auxz00_4002,BgL_auxz00_4004); } 
return BgL_v1031z00_896;} }  else 
{ /* ./Eval/evcompile.scm 272 */
{ 

if(
INTEGERP(BgL_variablez00_15))
{ /* ./Eval/evcompile.scm 275 */
switch( 
(long)CINT(BgL_variablez00_15)) { case ((long)0) : 
case ((long)1) : 
case ((long)2) : 
case ((long)3) : 

{ /* ./Eval/evcompile.scm 277 */
obj_t BgL_v1035z00_903;
{ 
int BgL_auxz00_4009;
BgL_auxz00_4009 = 
(int)(((long)3)); 
BgL_v1035z00_903 = 
create_vector(BgL_auxz00_4009); } 
{ 
int BgL_auxz00_4012;
BgL_auxz00_4012 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1035z00_903,BgL_auxz00_4012,BgL_valuez00_16); } 
{ 
int BgL_auxz00_4015;
BgL_auxz00_4015 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1035z00_903,BgL_auxz00_4015,BgL_locz00_17); } 
{ /* ./Eval/evcompile.scm 277 */
long BgL_arg2123z00_905;
{ /* ./Eval/evcompile.scm 277 */
long BgL_auxz00_4018;
BgL_auxz00_4018 = 
(long)CINT(BgL_variablez00_15); 
BgL_arg2123z00_905 = 
(((long)10)+BgL_auxz00_4018); } 
{ 
obj_t BgL_auxz00_4023;int BgL_auxz00_4021;
BgL_auxz00_4023 = 
BINT(BgL_arg2123z00_905); 
BgL_auxz00_4021 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1035z00_903,BgL_auxz00_4021,BgL_auxz00_4023); } } 
return BgL_v1035z00_903;} break;
default: 
BgL_case_else1033z00_900:
{ /* ./Eval/evcompile.scm 279 */
obj_t BgL_v1032z00_906;
{ 
int BgL_auxz00_4026;
BgL_auxz00_4026 = 
(int)(((long)3)); 
BgL_v1032z00_906 = 
create_vector(BgL_auxz00_4026); } 
{ /* ./Eval/evcompile.scm 279 */
obj_t BgL_arg2133z00_908;
BgL_arg2133z00_908 = 
MAKE_PAIR(BgL_variablez00_15, BgL_valuez00_16); 
{ 
int BgL_auxz00_4030;
BgL_auxz00_4030 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1032z00_906,BgL_auxz00_4030,BgL_arg2133z00_908); } } 
{ 
int BgL_auxz00_4033;
BgL_auxz00_4033 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1032z00_906,BgL_auxz00_4033,BgL_locz00_17); } 
{ 
obj_t BgL_auxz00_4038;int BgL_auxz00_4036;
BgL_auxz00_4038 = 
BINT(((long)14)); 
BgL_auxz00_4036 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1032z00_906,BgL_auxz00_4036,BgL_auxz00_4038); } 
return BgL_v1032z00_906;} } }  else 
{ /* ./Eval/evcompile.scm 275 */
goto BgL_case_else1033z00_900;} } } } } } 
}



/* evcompile-begin */
obj_t BGl_evcompilezd2beginzd2zz__evcompilez00(obj_t BgL_bodyz00_22, obj_t BgL_envz00_23, obj_t BgL_genvz00_24, obj_t BgL_wherez00_25, obj_t BgL_namedzf3zf3_26, obj_t BgL_locz00_27)
{ AN_OBJECT;
{ /* ./Eval/evcompile.scm 290 */
if(
NULLP(BgL_bodyz00_22))
{ /* ./Eval/evcompile.scm 292 */
return 
BGl_evcompilez00zz__evcompilez00(BUNSPEC, BgL_envz00_23, BgL_genvz00_24, BgL_wherez00_25, BgL_namedzf3zf3_26, BgL_locz00_27);}  else 
{ /* ./Eval/evcompile.scm 294 */
bool_t BgL_testz00_4046;
{ /* ./Eval/evcompile.scm 294 */
obj_t BgL_auxz00_4047;
BgL_auxz00_4047 = 
CDR(BgL_bodyz00_22); 
BgL_testz00_4046 = 
NULLP(BgL_auxz00_4047); } 
if(BgL_testz00_4046)
{ /* ./Eval/evcompile.scm 294 */
{ /* ./Eval/evcompile.scm 295 */
obj_t BgL_arg2156z00_915;obj_t BgL_arg2157z00_916;
BgL_arg2156z00_915 = 
CAR(BgL_bodyz00_22); 
{ /* ./Eval/evcompile.scm 295 */
obj_t BgL_arg2161z00_917;
BgL_arg2161z00_917 = 
CAR(BgL_bodyz00_22); 
{ /* ./Eval/evcompile.scm 295 */
bool_t BgL_test1097z00_2155;
BgL_test1097z00_2155 = 
EXTENDED_PAIRP(BgL_arg2161z00_917); 
if(BgL_test1097z00_2155)
{ /* ./Eval/evcompile.scm 295 */
BgL_arg2157z00_916 = 
CER(BgL_arg2161z00_917); }  else 
{ /* ./Eval/evcompile.scm 295 */
BgL_arg2157z00_916 = BgL_locz00_27; } } } 
return 
BGl_evcompilez00zz__evcompilez00(BgL_arg2156z00_915, BgL_envz00_23, BgL_genvz00_24, BgL_wherez00_25, BgL_namedzf3zf3_26, BgL_arg2157z00_916);} }  else 
{ /* ./Eval/evcompile.scm 294 */
{ /* ./Eval/evcompile.scm 297 */
obj_t BgL_cbodyz00_918;
BgL_cbodyz00_918 = 
BGl_loopz00zz__evcompilez00(BgL_namedzf3zf3_26, BgL_wherez00_25, BgL_genvz00_24, BgL_envz00_23, BgL_locz00_27, BgL_bodyz00_22); 
{ /* ./Eval/evcompile.scm 309 */
obj_t BgL_v1038z00_919;
{ 
int BgL_auxz00_4057;
BgL_auxz00_4057 = 
(int)(((long)3)); 
BgL_v1038z00_919 = 
create_vector(BgL_auxz00_4057); } 
{ 
obj_t BgL_auxz00_4062;int BgL_auxz00_4060;
BgL_auxz00_4062 = 
BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(BgL_cbodyz00_918); 
BgL_auxz00_4060 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1038z00_919,BgL_auxz00_4060,BgL_auxz00_4062); } 
{ 
int BgL_auxz00_4065;
BgL_auxz00_4065 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1038z00_919,BgL_auxz00_4065,BgL_locz00_27); } 
{ 
obj_t BgL_auxz00_4070;int BgL_auxz00_4068;
BgL_auxz00_4070 = 
BINT(((long)16)); 
BgL_auxz00_4068 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1038z00_919,BgL_auxz00_4068,BgL_auxz00_4070); } 
return BgL_v1038z00_919;} } } } } 
}



/* loop */
obj_t BGl_loopz00zz__evcompilez00(obj_t BgL_namedzf3zf3_3024, obj_t BgL_wherez00_3023, obj_t BgL_genvz00_3022, obj_t BgL_envz00_3021, obj_t BgL_locz00_3020, obj_t BgL_restz00_922)
{ AN_OBJECT;
{ /* ./Eval/evcompile.scm 297 */
if(
NULLP(BgL_restz00_922))
{ /* ./Eval/evcompile.scm 299 */
return BNIL;}  else 
{ /* ./Eval/evcompile.scm 301 */
bool_t BgL_testz00_4075;
{ /* ./Eval/evcompile.scm 301 */
obj_t BgL_auxz00_4076;
BgL_auxz00_4076 = 
CDR(BgL_restz00_922); 
BgL_testz00_4075 = 
NULLP(BgL_auxz00_4076); } 
if(BgL_testz00_4075)
{ /* ./Eval/evcompile.scm 301 */
{ /* ./Eval/evcompile.scm 302 */
obj_t BgL_arg2176z00_926;
{ /* ./Eval/evcompile.scm 302 */
obj_t BgL_arg2180z00_928;obj_t BgL_arg2181z00_929;
BgL_arg2180z00_928 = 
CAR(BgL_restz00_922); 
{ /* ./Eval/evcompile.scm 303 */
obj_t BgL_arg2185z00_930;
BgL_arg2185z00_930 = 
CAR(BgL_restz00_922); 
{ /* ./Eval/evcompile.scm 303 */
bool_t BgL_test1097z00_2165;
BgL_test1097z00_2165 = 
EXTENDED_PAIRP(BgL_arg2185z00_930); 
if(BgL_test1097z00_2165)
{ /* ./Eval/evcompile.scm 303 */
BgL_arg2181z00_929 = 
CER(BgL_arg2185z00_930); }  else 
{ /* ./Eval/evcompile.scm 303 */
BgL_arg2181z00_929 = BgL_locz00_3020; } } } 
BgL_arg2176z00_926 = 
BGl_evcompilez00zz__evcompilez00(BgL_arg2180z00_928, BgL_envz00_3021, BgL_genvz00_3022, BgL_wherez00_3023, BgL_namedzf3zf3_3024, BgL_arg2181z00_929); } 
return 
MAKE_PAIR(BgL_arg2176z00_926, BNIL);} }  else 
{ /* ./Eval/evcompile.scm 301 */
{ /* ./Eval/evcompile.scm 306 */
obj_t BgL_arg2189z00_931;obj_t BgL_arg2190z00_932;
{ /* ./Eval/evcompile.scm 306 */
obj_t BgL_arg2193z00_933;obj_t BgL_arg2194z00_934;
BgL_arg2193z00_933 = 
CAR(BgL_restz00_922); 
{ /* ./Eval/evcompile.scm 307 */
obj_t BgL_arg2198z00_935;
BgL_arg2198z00_935 = 
CAR(BgL_restz00_922); 
{ /* ./Eval/evcompile.scm 307 */
bool_t BgL_test1097z00_2172;
BgL_test1097z00_2172 = 
EXTENDED_PAIRP(BgL_arg2198z00_935); 
if(BgL_test1097z00_2172)
{ /* ./Eval/evcompile.scm 307 */
BgL_arg2194z00_934 = 
CER(BgL_arg2198z00_935); }  else 
{ /* ./Eval/evcompile.scm 307 */
BgL_arg2194z00_934 = BgL_locz00_3020; } } } 
BgL_arg2189z00_931 = 
BGl_evcompilez00zz__evcompilez00(BgL_arg2193z00_933, BgL_envz00_3021, BgL_genvz00_3022, BgL_wherez00_3023, BFALSE, BgL_arg2194z00_934); } 
BgL_arg2190z00_932 = 
BGl_loopz00zz__evcompilez00(BgL_namedzf3zf3_3024, BgL_wherez00_3023, BgL_genvz00_3022, BgL_envz00_3021, BgL_locz00_3020, 
CDR(BgL_restz00_922)); 
return 
MAKE_PAIR(BgL_arg2189z00_931, BgL_arg2190z00_932);} } } } 
}



/* evcompile-lambda */
obj_t BGl_evcompilezd2lambdazd2zz__evcompilez00(obj_t BgL_formalsz00_39, obj_t BgL_bodyz00_40, obj_t BgL_wherez00_41, obj_t BgL_namedzf3zf3_42, obj_t BgL_locz00_43)
{ AN_OBJECT;
{ /* ./Eval/evcompile.scm 344 */
{ 

if(
NULLP(BgL_formalsz00_39))
{ /* ./Eval/evcompile.scm 345 */
BgL_tagzd21966zd2_949:
if(
CBOOL(BgL_namedzf3zf3_42))
{ /* ./Eval/evcompile.scm 348 */
obj_t BgL_v1043z00_1000;
{ 
int BgL_auxz00_4099;
BgL_auxz00_4099 = 
(int)(((long)3)); 
BgL_v1043z00_1000 = 
create_vector(BgL_auxz00_4099); } 
{ /* ./Eval/evcompile.scm 348 */
obj_t BgL_arg2374z00_1002;
BgL_arg2374z00_1002 = 
MAKE_PAIR(BgL_wherez00_41, BgL_bodyz00_40); 
{ 
int BgL_auxz00_4103;
BgL_auxz00_4103 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1043z00_1000,BgL_auxz00_4103,BgL_arg2374z00_1002); } } 
{ 
int BgL_auxz00_4106;
BgL_auxz00_4106 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1043z00_1000,BgL_auxz00_4106,BgL_locz00_43); } 
{ /* ./Eval/evcompile.scm 348 */
long BgL_arg2381z00_1004;
{ /* ./Eval/evcompile.scm 348 */
long BgL_auxz00_4109;
BgL_auxz00_4109 = 
bgl_list_length(BgL_formalsz00_39); 
BgL_arg2381z00_1004 = 
(BgL_auxz00_4109+((long)37)); } 
{ 
obj_t BgL_auxz00_4114;int BgL_auxz00_4112;
BgL_auxz00_4114 = 
BINT(BgL_arg2381z00_1004); 
BgL_auxz00_4112 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1043z00_1000,BgL_auxz00_4112,BgL_auxz00_4114); } } 
return BgL_v1043z00_1000;}  else 
{ /* ./Eval/evcompile.scm 349 */
obj_t BgL_v1044z00_1007;
{ 
int BgL_auxz00_4117;
BgL_auxz00_4117 = 
(int)(((long)3)); 
BgL_v1044z00_1007 = 
create_vector(BgL_auxz00_4117); } 
{ 
int BgL_auxz00_4120;
BgL_auxz00_4120 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1044z00_1007,BgL_auxz00_4120,BgL_bodyz00_40); } 
{ 
int BgL_auxz00_4123;
BgL_auxz00_4123 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1044z00_1007,BgL_auxz00_4123,BgL_locz00_43); } 
{ /* ./Eval/evcompile.scm 349 */
long BgL_arg2393z00_1009;
{ /* ./Eval/evcompile.scm 349 */
long BgL_auxz00_4126;
BgL_auxz00_4126 = 
bgl_list_length(BgL_formalsz00_39); 
BgL_arg2393z00_1009 = 
(BgL_auxz00_4126+((long)42)); } 
{ 
obj_t BgL_auxz00_4131;int BgL_auxz00_4129;
BgL_auxz00_4131 = 
BINT(BgL_arg2393z00_1009); 
BgL_auxz00_4129 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1044z00_1007,BgL_auxz00_4129,BgL_auxz00_4131); } } 
return BgL_v1044z00_1007;} }  else 
{ /* ./Eval/evcompile.scm 345 */
if(
PAIRP(BgL_formalsz00_39))
{ /* ./Eval/evcompile.scm 345 */
bool_t BgL_testz00_4136;
{ /* ./Eval/evcompile.scm 345 */
obj_t BgL_auxz00_4137;
BgL_auxz00_4137 = 
CDR(BgL_formalsz00_39); 
BgL_testz00_4136 = 
NULLP(BgL_auxz00_4137); } 
if(BgL_testz00_4136)
{ /* ./Eval/evcompile.scm 345 */
goto BgL_tagzd21966zd2_949;}  else 
{ /* ./Eval/evcompile.scm 345 */
obj_t BgL_cdrzd21979zd2_959;
BgL_cdrzd21979zd2_959 = 
CDR(BgL_formalsz00_39); 
if(
PAIRP(BgL_cdrzd21979zd2_959))
{ /* ./Eval/evcompile.scm 345 */
bool_t BgL_testz00_4143;
{ /* ./Eval/evcompile.scm 345 */
obj_t BgL_auxz00_4144;
BgL_auxz00_4144 = 
CDR(BgL_cdrzd21979zd2_959); 
BgL_testz00_4143 = 
NULLP(BgL_auxz00_4144); } 
if(BgL_testz00_4143)
{ /* ./Eval/evcompile.scm 345 */
goto BgL_tagzd21966zd2_949;}  else 
{ /* ./Eval/evcompile.scm 345 */
obj_t BgL_cdrzd21986zd2_962;
BgL_cdrzd21986zd2_962 = 
CDR(BgL_cdrzd21979zd2_959); 
if(
PAIRP(BgL_cdrzd21986zd2_962))
{ /* ./Eval/evcompile.scm 345 */
bool_t BgL_testz00_4150;
{ /* ./Eval/evcompile.scm 345 */
obj_t BgL_auxz00_4151;
BgL_auxz00_4151 = 
CDR(BgL_cdrzd21986zd2_962); 
BgL_testz00_4150 = 
NULLP(BgL_auxz00_4151); } 
if(BgL_testz00_4150)
{ /* ./Eval/evcompile.scm 345 */
goto BgL_tagzd21966zd2_949;}  else 
{ /* ./Eval/evcompile.scm 345 */
obj_t BgL_cdrzd21994zd2_965;
{ /* ./Eval/evcompile.scm 345 */
obj_t BgL_auxz00_4154;
BgL_auxz00_4154 = 
CDR(BgL_cdrzd21979zd2_959); 
BgL_cdrzd21994zd2_965 = 
CDR(BgL_auxz00_4154); } 
if(
PAIRP(BgL_cdrzd21994zd2_965))
{ /* ./Eval/evcompile.scm 345 */
bool_t BgL_testz00_4159;
{ /* ./Eval/evcompile.scm 345 */
obj_t BgL_auxz00_4160;
BgL_auxz00_4160 = 
CDR(BgL_cdrzd21994zd2_965); 
BgL_testz00_4159 = 
NULLP(BgL_auxz00_4160); } 
if(BgL_testz00_4159)
{ /* ./Eval/evcompile.scm 345 */
goto BgL_tagzd21966zd2_949;}  else 
{ /* ./Eval/evcompile.scm 345 */
bool_t BgL_testz00_4163;
{ /* ./Eval/evcompile.scm 345 */
obj_t BgL_auxz00_4164;
BgL_auxz00_4164 = 
CAR(BgL_formalsz00_39); 
BgL_testz00_4163 = 
PAIRP(BgL_auxz00_4164); } 
if(BgL_testz00_4163)
{ /* ./Eval/evcompile.scm 345 */
BgL_tagzd21971zd2_954:
if(
CBOOL(BgL_namedzf3zf3_42))
{ /* ./Eval/evcompile.scm 368 */
obj_t BgL_v1053z00_1028;
{ 
int BgL_auxz00_4169;
BgL_auxz00_4169 = 
(int)(((long)3)); 
BgL_v1053z00_1028 = 
create_vector(BgL_auxz00_4169); } 
{ /* ./Eval/evcompile.scm 368 */
obj_t BgL_arg2452z00_1030;
{ /* ./Eval/evcompile.scm 368 */
obj_t BgL_v1054z00_1031;
{ 
int BgL_auxz00_4172;
BgL_auxz00_4172 = 
(int)(((long)3)); 
BgL_v1054z00_1031 = 
create_vector(BgL_auxz00_4172); } 
{ 
int BgL_auxz00_4175;
BgL_auxz00_4175 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1054z00_1031,BgL_auxz00_4175,BgL_formalsz00_39); } 
{ 
int BgL_auxz00_4178;
BgL_auxz00_4178 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1054z00_1031,BgL_auxz00_4178,BgL_bodyz00_40); } 
{ 
int BgL_auxz00_4181;
BgL_auxz00_4181 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1054z00_1031,BgL_auxz00_4181,BgL_wherez00_41); } 
BgL_arg2452z00_1030 = BgL_v1054z00_1031; } 
{ 
int BgL_auxz00_4184;
BgL_auxz00_4184 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1053z00_1028,BgL_auxz00_4184,BgL_arg2452z00_1030); } } 
{ 
int BgL_auxz00_4187;
BgL_auxz00_4187 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1053z00_1028,BgL_auxz00_4187,BgL_locz00_43); } 
{ 
obj_t BgL_auxz00_4192;int BgL_auxz00_4190;
BgL_auxz00_4192 = 
BINT(((long)55)); 
BgL_auxz00_4190 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1053z00_1028,BgL_auxz00_4190,BgL_auxz00_4192); } 
return BgL_v1053z00_1028;}  else 
{ /* ./Eval/evcompile.scm 369 */
obj_t BgL_v1055z00_1032;
{ 
int BgL_auxz00_4195;
BgL_auxz00_4195 = 
(int)(((long)3)); 
BgL_v1055z00_1032 = 
create_vector(BgL_auxz00_4195); } 
{ /* ./Eval/evcompile.scm 369 */
obj_t BgL_arg2463z00_1034;
BgL_arg2463z00_1034 = 
MAKE_PAIR(BgL_bodyz00_40, BgL_formalsz00_39); 
{ 
int BgL_auxz00_4199;
BgL_auxz00_4199 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1055z00_1032,BgL_auxz00_4199,BgL_arg2463z00_1034); } } 
{ 
int BgL_auxz00_4202;
BgL_auxz00_4202 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1055z00_1032,BgL_auxz00_4202,BgL_locz00_43); } 
{ 
obj_t BgL_auxz00_4207;int BgL_auxz00_4205;
BgL_auxz00_4207 = 
BINT(((long)56)); 
BgL_auxz00_4205 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1055z00_1032,BgL_auxz00_4205,BgL_auxz00_4207); } 
return BgL_v1055z00_1032;} }  else 
{ /* ./Eval/evcompile.scm 345 */
bool_t BgL_testz00_4210;
{ /* ./Eval/evcompile.scm 345 */
obj_t BgL_auxz00_4211;
{ /* ./Eval/evcompile.scm 345 */
obj_t BgL_auxz00_4212;
BgL_auxz00_4212 = 
CDR(BgL_formalsz00_39); 
BgL_auxz00_4211 = 
CAR(BgL_auxz00_4212); } 
BgL_testz00_4210 = 
PAIRP(BgL_auxz00_4211); } 
if(BgL_testz00_4210)
{ /* ./Eval/evcompile.scm 345 */
goto BgL_tagzd21971zd2_954;}  else 
{ /* ./Eval/evcompile.scm 345 */
bool_t BgL_testz00_4216;
{ /* ./Eval/evcompile.scm 345 */
obj_t BgL_auxz00_4217;
{ /* ./Eval/evcompile.scm 345 */
obj_t BgL_auxz00_4218;
{ /* ./Eval/evcompile.scm 345 */
obj_t BgL_auxz00_4219;
BgL_auxz00_4219 = 
CDR(BgL_formalsz00_39); 
BgL_auxz00_4218 = 
CDR(BgL_auxz00_4219); } 
BgL_auxz00_4217 = 
CAR(BgL_auxz00_4218); } 
BgL_testz00_4216 = 
PAIRP(BgL_auxz00_4217); } 
if(BgL_testz00_4216)
{ /* ./Eval/evcompile.scm 345 */
goto BgL_tagzd21971zd2_954;}  else 
{ /* ./Eval/evcompile.scm 345 */
goto BgL_tagzd21971zd2_954;} } } } }  else 
{ /* ./Eval/evcompile.scm 345 */
bool_t BgL_testz00_4224;
{ /* ./Eval/evcompile.scm 345 */
obj_t BgL_auxz00_4225;
BgL_auxz00_4225 = 
CAR(BgL_formalsz00_39); 
BgL_testz00_4224 = 
PAIRP(BgL_auxz00_4225); } 
if(BgL_testz00_4224)
{ /* ./Eval/evcompile.scm 345 */
goto BgL_tagzd21971zd2_954;}  else 
{ /* ./Eval/evcompile.scm 345 */
bool_t BgL_testz00_4228;
{ /* ./Eval/evcompile.scm 345 */
obj_t BgL_auxz00_4229;
{ /* ./Eval/evcompile.scm 345 */
obj_t BgL_auxz00_4230;
BgL_auxz00_4230 = 
CDR(BgL_formalsz00_39); 
BgL_auxz00_4229 = 
CAR(BgL_auxz00_4230); } 
BgL_testz00_4228 = 
PAIRP(BgL_auxz00_4229); } 
if(BgL_testz00_4228)
{ /* ./Eval/evcompile.scm 345 */
goto BgL_tagzd21971zd2_954;}  else 
{ /* ./Eval/evcompile.scm 345 */
bool_t BgL_testz00_4234;
{ /* ./Eval/evcompile.scm 345 */
obj_t BgL_auxz00_4235;
{ /* ./Eval/evcompile.scm 345 */
obj_t BgL_auxz00_4236;
{ /* ./Eval/evcompile.scm 345 */
obj_t BgL_auxz00_4237;
BgL_auxz00_4237 = 
CDR(BgL_formalsz00_39); 
BgL_auxz00_4236 = 
CDR(BgL_auxz00_4237); } 
BgL_auxz00_4235 = 
CAR(BgL_auxz00_4236); } 
BgL_testz00_4234 = 
PAIRP(BgL_auxz00_4235); } 
if(BgL_testz00_4234)
{ /* ./Eval/evcompile.scm 345 */
goto BgL_tagzd21971zd2_954;}  else 
{ /* ./Eval/evcompile.scm 345 */
if(
CBOOL(BgL_namedzf3zf3_42))
{ /* ./Eval/evcompile.scm 364 */
obj_t BgL_v1051z00_1024;
{ 
int BgL_auxz00_4244;
BgL_auxz00_4244 = 
(int)(((long)3)); 
BgL_v1051z00_1024 = 
create_vector(BgL_auxz00_4244); } 
{ /* ./Eval/evcompile.scm 364 */
obj_t BgL_arg2440z00_1026;
BgL_arg2440z00_1026 = 
MAKE_PAIR(BgL_wherez00_41, BgL_bodyz00_40); 
{ 
int BgL_auxz00_4248;
BgL_auxz00_4248 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1051z00_1024,BgL_auxz00_4248,BgL_arg2440z00_1026); } } 
{ 
int BgL_auxz00_4251;
BgL_auxz00_4251 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1051z00_1024,BgL_auxz00_4251,BgL_locz00_43); } 
{ 
obj_t BgL_auxz00_4256;int BgL_auxz00_4254;
BgL_auxz00_4256 = 
BINT(((long)50)); 
BgL_auxz00_4254 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1051z00_1024,BgL_auxz00_4254,BgL_auxz00_4256); } 
return BgL_v1051z00_1024;}  else 
{ /* ./Eval/evcompile.scm 365 */
obj_t BgL_v1052z00_1027;
{ 
int BgL_auxz00_4259;
BgL_auxz00_4259 = 
(int)(((long)3)); 
BgL_v1052z00_1027 = 
create_vector(BgL_auxz00_4259); } 
{ 
int BgL_auxz00_4262;
BgL_auxz00_4262 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1052z00_1027,BgL_auxz00_4262,BgL_bodyz00_40); } 
{ 
int BgL_auxz00_4265;
BgL_auxz00_4265 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1052z00_1027,BgL_auxz00_4265,BgL_locz00_43); } 
{ 
obj_t BgL_auxz00_4270;int BgL_auxz00_4268;
BgL_auxz00_4270 = 
BINT(((long)54)); 
BgL_auxz00_4268 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1052z00_1027,BgL_auxz00_4268,BgL_auxz00_4270); } 
return BgL_v1052z00_1027;} } } } } } }  else 
{ /* ./Eval/evcompile.scm 345 */
bool_t BgL_testz00_4273;
{ /* ./Eval/evcompile.scm 345 */
obj_t BgL_auxz00_4274;
BgL_auxz00_4274 = 
CAR(BgL_formalsz00_39); 
BgL_testz00_4273 = 
PAIRP(BgL_auxz00_4274); } 
if(BgL_testz00_4273)
{ /* ./Eval/evcompile.scm 345 */
goto BgL_tagzd21971zd2_954;}  else 
{ /* ./Eval/evcompile.scm 345 */
bool_t BgL_testz00_4277;
{ /* ./Eval/evcompile.scm 345 */
obj_t BgL_auxz00_4278;
BgL_auxz00_4278 = 
CAR(BgL_cdrzd21979zd2_959); 
BgL_testz00_4277 = 
PAIRP(BgL_auxz00_4278); } 
if(BgL_testz00_4277)
{ /* ./Eval/evcompile.scm 345 */
goto BgL_tagzd21971zd2_954;}  else 
{ /* ./Eval/evcompile.scm 345 */
if(
CBOOL(BgL_namedzf3zf3_42))
{ /* ./Eval/evcompile.scm 360 */
obj_t BgL_v1049z00_1020;
{ 
int BgL_auxz00_4283;
BgL_auxz00_4283 = 
(int)(((long)3)); 
BgL_v1049z00_1020 = 
create_vector(BgL_auxz00_4283); } 
{ /* ./Eval/evcompile.scm 360 */
obj_t BgL_arg2428z00_1022;
BgL_arg2428z00_1022 = 
MAKE_PAIR(BgL_wherez00_41, BgL_bodyz00_40); 
{ 
int BgL_auxz00_4287;
BgL_auxz00_4287 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1049z00_1020,BgL_auxz00_4287,BgL_arg2428z00_1022); } } 
{ 
int BgL_auxz00_4290;
BgL_auxz00_4290 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1049z00_1020,BgL_auxz00_4290,BgL_locz00_43); } 
{ 
obj_t BgL_auxz00_4295;int BgL_auxz00_4293;
BgL_auxz00_4295 = 
BINT(((long)49)); 
BgL_auxz00_4293 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1049z00_1020,BgL_auxz00_4293,BgL_auxz00_4295); } 
return BgL_v1049z00_1020;}  else 
{ /* ./Eval/evcompile.scm 361 */
obj_t BgL_v1050z00_1023;
{ 
int BgL_auxz00_4298;
BgL_auxz00_4298 = 
(int)(((long)3)); 
BgL_v1050z00_1023 = 
create_vector(BgL_auxz00_4298); } 
{ 
int BgL_auxz00_4301;
BgL_auxz00_4301 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1050z00_1023,BgL_auxz00_4301,BgL_bodyz00_40); } 
{ 
int BgL_auxz00_4304;
BgL_auxz00_4304 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1050z00_1023,BgL_auxz00_4304,BgL_locz00_43); } 
{ 
obj_t BgL_auxz00_4309;int BgL_auxz00_4307;
BgL_auxz00_4309 = 
BINT(((long)53)); 
BgL_auxz00_4307 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1050z00_1023,BgL_auxz00_4307,BgL_auxz00_4309); } 
return BgL_v1050z00_1023;} } } } } }  else 
{ /* ./Eval/evcompile.scm 345 */
bool_t BgL_testz00_4312;
{ /* ./Eval/evcompile.scm 345 */
obj_t BgL_auxz00_4313;
BgL_auxz00_4313 = 
CAR(BgL_formalsz00_39); 
BgL_testz00_4312 = 
PAIRP(BgL_auxz00_4313); } 
if(BgL_testz00_4312)
{ /* ./Eval/evcompile.scm 345 */
goto BgL_tagzd21971zd2_954;}  else 
{ /* ./Eval/evcompile.scm 345 */
if(
CBOOL(BgL_namedzf3zf3_42))
{ /* ./Eval/evcompile.scm 356 */
obj_t BgL_v1047z00_1016;
{ 
int BgL_auxz00_4318;
BgL_auxz00_4318 = 
(int)(((long)3)); 
BgL_v1047z00_1016 = 
create_vector(BgL_auxz00_4318); } 
{ /* ./Eval/evcompile.scm 356 */
obj_t BgL_arg2415z00_1018;
BgL_arg2415z00_1018 = 
MAKE_PAIR(BgL_wherez00_41, BgL_bodyz00_40); 
{ 
int BgL_auxz00_4322;
BgL_auxz00_4322 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1047z00_1016,BgL_auxz00_4322,BgL_arg2415z00_1018); } } 
{ 
int BgL_auxz00_4325;
BgL_auxz00_4325 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1047z00_1016,BgL_auxz00_4325,BgL_locz00_43); } 
{ 
obj_t BgL_auxz00_4330;int BgL_auxz00_4328;
BgL_auxz00_4330 = 
BINT(((long)48)); 
BgL_auxz00_4328 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1047z00_1016,BgL_auxz00_4328,BgL_auxz00_4330); } 
return BgL_v1047z00_1016;}  else 
{ /* ./Eval/evcompile.scm 357 */
obj_t BgL_v1048z00_1019;
{ 
int BgL_auxz00_4333;
BgL_auxz00_4333 = 
(int)(((long)3)); 
BgL_v1048z00_1019 = 
create_vector(BgL_auxz00_4333); } 
{ 
int BgL_auxz00_4336;
BgL_auxz00_4336 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1048z00_1019,BgL_auxz00_4336,BgL_bodyz00_40); } 
{ 
int BgL_auxz00_4339;
BgL_auxz00_4339 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1048z00_1019,BgL_auxz00_4339,BgL_locz00_43); } 
{ 
obj_t BgL_auxz00_4344;int BgL_auxz00_4342;
BgL_auxz00_4344 = 
BINT(((long)52)); 
BgL_auxz00_4342 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1048z00_1019,BgL_auxz00_4342,BgL_auxz00_4344); } 
return BgL_v1048z00_1019;} } } } }  else 
{ /* ./Eval/evcompile.scm 345 */
if(
CBOOL(BgL_namedzf3zf3_42))
{ /* ./Eval/evcompile.scm 352 */
obj_t BgL_v1045z00_1012;
{ 
int BgL_auxz00_4349;
BgL_auxz00_4349 = 
(int)(((long)3)); 
BgL_v1045z00_1012 = 
create_vector(BgL_auxz00_4349); } 
{ /* ./Eval/evcompile.scm 352 */
obj_t BgL_arg2403z00_1014;
BgL_arg2403z00_1014 = 
MAKE_PAIR(BgL_wherez00_41, BgL_bodyz00_40); 
{ 
int BgL_auxz00_4353;
BgL_auxz00_4353 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1045z00_1012,BgL_auxz00_4353,BgL_arg2403z00_1014); } } 
{ 
int BgL_auxz00_4356;
BgL_auxz00_4356 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1045z00_1012,BgL_auxz00_4356,BgL_locz00_43); } 
{ 
obj_t BgL_auxz00_4361;int BgL_auxz00_4359;
BgL_auxz00_4361 = 
BINT(((long)47)); 
BgL_auxz00_4359 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1045z00_1012,BgL_auxz00_4359,BgL_auxz00_4361); } 
return BgL_v1045z00_1012;}  else 
{ /* ./Eval/evcompile.scm 353 */
obj_t BgL_v1046z00_1015;
{ 
int BgL_auxz00_4364;
BgL_auxz00_4364 = 
(int)(((long)3)); 
BgL_v1046z00_1015 = 
create_vector(BgL_auxz00_4364); } 
{ 
int BgL_auxz00_4367;
BgL_auxz00_4367 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1046z00_1015,BgL_auxz00_4367,BgL_bodyz00_40); } 
{ 
int BgL_auxz00_4370;
BgL_auxz00_4370 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1046z00_1015,BgL_auxz00_4370,BgL_locz00_43); } 
{ 
obj_t BgL_auxz00_4375;int BgL_auxz00_4373;
BgL_auxz00_4375 = 
BINT(((long)51)); 
BgL_auxz00_4373 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1046z00_1015,BgL_auxz00_4373,BgL_auxz00_4375); } 
return BgL_v1046z00_1015;} } } } } 
}



/* evcompile-global-application */
obj_t BGl_evcompilezd2globalzd2applicationz00zz__evcompilez00(obj_t BgL_procz00_44, obj_t BgL_actualsz00_45, obj_t BgL_locz00_46)
{ AN_OBJECT;
{ /* ./Eval/evcompile.scm 374 */
{ 

{ /* ./Eval/evcompile.scm 375 */
long BgL_aux1059z00_1036;
BgL_aux1059z00_1036 = 
bgl_list_length(BgL_actualsz00_45); 
switch( BgL_aux1059z00_1036) { case ((long)0) : 

{ /* ./Eval/evcompile.scm 377 */
obj_t BgL_v1060z00_1038;
{ 
int BgL_auxz00_4379;
BgL_auxz00_4379 = 
(int)(((long)3)); 
BgL_v1060z00_1038 = 
create_vector(BgL_auxz00_4379); } 
{ /* ./Eval/evcompile.scm 377 */
obj_t BgL_arg2472z00_1040;
{ /* ./Eval/evcompile.scm 379 */
obj_t BgL_v1061z00_1041;
{ 
int BgL_auxz00_4382;
BgL_auxz00_4382 = 
(int)(((long)2)); 
BgL_v1061z00_1041 = 
create_vector(BgL_auxz00_4382); } 
{ 
int BgL_auxz00_4385;
BgL_auxz00_4385 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1061z00_1041,BgL_auxz00_4385,BgL_procz00_44); } 
{ 
obj_t BgL_auxz00_4390;int BgL_auxz00_4388;
{ 
int BgL_auxz00_4391;
BgL_auxz00_4391 = 
(int)(((long)1)); 
BgL_auxz00_4390 = 
VECTOR_REF(BgL_procz00_44,BgL_auxz00_4391); } 
BgL_auxz00_4388 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1061z00_1041,BgL_auxz00_4388,BgL_auxz00_4390); } 
BgL_arg2472z00_1040 = BgL_v1061z00_1041; } 
{ 
int BgL_auxz00_4395;
BgL_auxz00_4395 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1060z00_1038,BgL_auxz00_4395,BgL_arg2472z00_1040); } } 
{ 
int BgL_auxz00_4398;
BgL_auxz00_4398 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1060z00_1038,BgL_auxz00_4398,BgL_locz00_46); } 
{ /* ./Eval/evcompile.scm 377 */
long BgL_arg2484z00_1045;
{ /* ./Eval/evcompile.scm 377 */
bool_t BgL_testz00_4401;
{ /* ./Eval/evcompile.scm 377 */
obj_t BgL_auxz00_4406;obj_t BgL_auxz00_4402;
BgL_auxz00_4406 = 
BINT(((long)1)); 
{ 
int BgL_auxz00_4403;
BgL_auxz00_4403 = 
(int)(((long)0)); 
BgL_auxz00_4402 = 
VECTOR_REF(BgL_procz00_44,BgL_auxz00_4403); } 
BgL_testz00_4401 = 
(BgL_auxz00_4402==BgL_auxz00_4406); } 
if(BgL_testz00_4401)
{ /* ./Eval/evcompile.scm 377 */
BgL_arg2484z00_1045 = ((long)19); }  else 
{ /* ./Eval/evcompile.scm 377 */
BgL_arg2484z00_1045 = ((long)57); } } 
{ 
obj_t BgL_auxz00_4411;int BgL_auxz00_4409;
BgL_auxz00_4411 = 
BINT(BgL_arg2484z00_1045); 
BgL_auxz00_4409 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1060z00_1038,BgL_auxz00_4409,BgL_auxz00_4411); } } 
return BgL_v1060z00_1038;} break;case ((long)1) : 

{ /* ./Eval/evcompile.scm 382 */
obj_t BgL_v1062z00_1049;
{ 
int BgL_auxz00_4414;
BgL_auxz00_4414 = 
(int)(((long)3)); 
BgL_v1062z00_1049 = 
create_vector(BgL_auxz00_4414); } 
{ /* ./Eval/evcompile.scm 382 */
obj_t BgL_arg2495z00_1051;
{ /* ./Eval/evcompile.scm 384 */
obj_t BgL_v1063z00_1052;
{ 
int BgL_auxz00_4417;
BgL_auxz00_4417 = 
(int)(((long)3)); 
BgL_v1063z00_1052 = 
create_vector(BgL_auxz00_4417); } 
{ 
obj_t BgL_auxz00_4422;int BgL_auxz00_4420;
BgL_auxz00_4422 = 
CAR(BgL_actualsz00_45); 
BgL_auxz00_4420 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1063z00_1052,BgL_auxz00_4420,BgL_auxz00_4422); } 
{ 
int BgL_auxz00_4425;
BgL_auxz00_4425 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1063z00_1052,BgL_auxz00_4425,BgL_procz00_44); } 
{ 
obj_t BgL_auxz00_4430;int BgL_auxz00_4428;
{ 
int BgL_auxz00_4431;
BgL_auxz00_4431 = 
(int)(((long)1)); 
BgL_auxz00_4430 = 
VECTOR_REF(BgL_procz00_44,BgL_auxz00_4431); } 
BgL_auxz00_4428 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1063z00_1052,BgL_auxz00_4428,BgL_auxz00_4430); } 
BgL_arg2495z00_1051 = BgL_v1063z00_1052; } 
{ 
int BgL_auxz00_4435;
BgL_auxz00_4435 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1062z00_1049,BgL_auxz00_4435,BgL_arg2495z00_1051); } } 
{ 
int BgL_auxz00_4438;
BgL_auxz00_4438 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1062z00_1049,BgL_auxz00_4438,BgL_locz00_46); } 
{ /* ./Eval/evcompile.scm 382 */
long BgL_arg2512z00_1058;
{ /* ./Eval/evcompile.scm 382 */
bool_t BgL_testz00_4441;
{ /* ./Eval/evcompile.scm 382 */
obj_t BgL_auxz00_4446;obj_t BgL_auxz00_4442;
BgL_auxz00_4446 = 
BINT(((long)1)); 
{ 
int BgL_auxz00_4443;
BgL_auxz00_4443 = 
(int)(((long)0)); 
BgL_auxz00_4442 = 
VECTOR_REF(BgL_procz00_44,BgL_auxz00_4443); } 
BgL_testz00_4441 = 
(BgL_auxz00_4442==BgL_auxz00_4446); } 
if(BgL_testz00_4441)
{ /* ./Eval/evcompile.scm 382 */
BgL_arg2512z00_1058 = ((long)20); }  else 
{ /* ./Eval/evcompile.scm 382 */
BgL_arg2512z00_1058 = ((long)58); } } 
{ 
obj_t BgL_auxz00_4451;int BgL_auxz00_4449;
BgL_auxz00_4451 = 
BINT(BgL_arg2512z00_1058); 
BgL_auxz00_4449 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1062z00_1049,BgL_auxz00_4449,BgL_auxz00_4451); } } 
return BgL_v1062z00_1049;} break;case ((long)2) : 

{ /* ./Eval/evcompile.scm 388 */
obj_t BgL_v1064z00_1062;
{ 
int BgL_auxz00_4454;
BgL_auxz00_4454 = 
(int)(((long)3)); 
BgL_v1064z00_1062 = 
create_vector(BgL_auxz00_4454); } 
{ /* ./Eval/evcompile.scm 388 */
obj_t BgL_arg2523z00_1064;
{ /* ./Eval/evcompile.scm 390 */
obj_t BgL_v1065z00_1065;
{ 
int BgL_auxz00_4457;
BgL_auxz00_4457 = 
(int)(((long)4)); 
BgL_v1065z00_1065 = 
create_vector(BgL_auxz00_4457); } 
{ 
obj_t BgL_auxz00_4462;int BgL_auxz00_4460;
{ /* ./Eval/evcompile.scm 393 */
obj_t BgL_auxz00_4463;
BgL_auxz00_4463 = 
CDR(BgL_actualsz00_45); 
BgL_auxz00_4462 = 
CAR(BgL_auxz00_4463); } 
BgL_auxz00_4460 = 
(int)(((long)3)); 
VECTOR_SET(BgL_v1065z00_1065,BgL_auxz00_4460,BgL_auxz00_4462); } 
{ 
obj_t BgL_auxz00_4469;int BgL_auxz00_4467;
BgL_auxz00_4469 = 
CAR(BgL_actualsz00_45); 
BgL_auxz00_4467 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1065z00_1065,BgL_auxz00_4467,BgL_auxz00_4469); } 
{ 
int BgL_auxz00_4472;
BgL_auxz00_4472 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1065z00_1065,BgL_auxz00_4472,BgL_procz00_44); } 
{ 
obj_t BgL_auxz00_4477;int BgL_auxz00_4475;
{ 
int BgL_auxz00_4478;
BgL_auxz00_4478 = 
(int)(((long)1)); 
BgL_auxz00_4477 = 
VECTOR_REF(BgL_procz00_44,BgL_auxz00_4478); } 
BgL_auxz00_4475 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1065z00_1065,BgL_auxz00_4475,BgL_auxz00_4477); } 
BgL_arg2523z00_1064 = BgL_v1065z00_1065; } 
{ 
int BgL_auxz00_4482;
BgL_auxz00_4482 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1064z00_1062,BgL_auxz00_4482,BgL_arg2523z00_1064); } } 
{ 
int BgL_auxz00_4485;
BgL_auxz00_4485 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1064z00_1062,BgL_auxz00_4485,BgL_locz00_46); } 
{ /* ./Eval/evcompile.scm 388 */
long BgL_arg2545z00_1073;
{ /* ./Eval/evcompile.scm 388 */
bool_t BgL_testz00_4488;
{ /* ./Eval/evcompile.scm 388 */
obj_t BgL_auxz00_4493;obj_t BgL_auxz00_4489;
BgL_auxz00_4493 = 
BINT(((long)1)); 
{ 
int BgL_auxz00_4490;
BgL_auxz00_4490 = 
(int)(((long)0)); 
BgL_auxz00_4489 = 
VECTOR_REF(BgL_procz00_44,BgL_auxz00_4490); } 
BgL_testz00_4488 = 
(BgL_auxz00_4489==BgL_auxz00_4493); } 
if(BgL_testz00_4488)
{ /* ./Eval/evcompile.scm 388 */
BgL_arg2545z00_1073 = ((long)21); }  else 
{ /* ./Eval/evcompile.scm 388 */
BgL_arg2545z00_1073 = ((long)59); } } 
{ 
obj_t BgL_auxz00_4498;int BgL_auxz00_4496;
BgL_auxz00_4498 = 
BINT(BgL_arg2545z00_1073); 
BgL_auxz00_4496 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1064z00_1062,BgL_auxz00_4496,BgL_auxz00_4498); } } 
return BgL_v1064z00_1062;} break;case ((long)3) : 

{ /* ./Eval/evcompile.scm 395 */
obj_t BgL_v1066z00_1077;
{ 
int BgL_auxz00_4501;
BgL_auxz00_4501 = 
(int)(((long)3)); 
BgL_v1066z00_1077 = 
create_vector(BgL_auxz00_4501); } 
{ /* ./Eval/evcompile.scm 395 */
obj_t BgL_arg2556z00_1079;
{ /* ./Eval/evcompile.scm 397 */
obj_t BgL_v1067z00_1080;
{ 
int BgL_auxz00_4504;
BgL_auxz00_4504 = 
(int)(((long)5)); 
BgL_v1067z00_1080 = 
create_vector(BgL_auxz00_4504); } 
{ 
obj_t BgL_auxz00_4509;int BgL_auxz00_4507;
{ /* ./Eval/evcompile.scm 401 */
obj_t BgL_auxz00_4510;
{ /* ./Eval/evcompile.scm 401 */
obj_t BgL_auxz00_4511;
BgL_auxz00_4511 = 
CDR(BgL_actualsz00_45); 
BgL_auxz00_4510 = 
CDR(BgL_auxz00_4511); } 
BgL_auxz00_4509 = 
CAR(BgL_auxz00_4510); } 
BgL_auxz00_4507 = 
(int)(((long)4)); 
VECTOR_SET(BgL_v1067z00_1080,BgL_auxz00_4507,BgL_auxz00_4509); } 
{ 
obj_t BgL_auxz00_4518;int BgL_auxz00_4516;
{ /* ./Eval/evcompile.scm 400 */
obj_t BgL_auxz00_4519;
BgL_auxz00_4519 = 
CDR(BgL_actualsz00_45); 
BgL_auxz00_4518 = 
CAR(BgL_auxz00_4519); } 
BgL_auxz00_4516 = 
(int)(((long)3)); 
VECTOR_SET(BgL_v1067z00_1080,BgL_auxz00_4516,BgL_auxz00_4518); } 
{ 
obj_t BgL_auxz00_4525;int BgL_auxz00_4523;
BgL_auxz00_4525 = 
CAR(BgL_actualsz00_45); 
BgL_auxz00_4523 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1067z00_1080,BgL_auxz00_4523,BgL_auxz00_4525); } 
{ 
int BgL_auxz00_4528;
BgL_auxz00_4528 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1067z00_1080,BgL_auxz00_4528,BgL_procz00_44); } 
{ 
obj_t BgL_auxz00_4533;int BgL_auxz00_4531;
{ 
int BgL_auxz00_4534;
BgL_auxz00_4534 = 
(int)(((long)1)); 
BgL_auxz00_4533 = 
VECTOR_REF(BgL_procz00_44,BgL_auxz00_4534); } 
BgL_auxz00_4531 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1067z00_1080,BgL_auxz00_4531,BgL_auxz00_4533); } 
BgL_arg2556z00_1079 = BgL_v1067z00_1080; } 
{ 
int BgL_auxz00_4538;
BgL_auxz00_4538 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1066z00_1077,BgL_auxz00_4538,BgL_arg2556z00_1079); } } 
{ 
int BgL_auxz00_4541;
BgL_auxz00_4541 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1066z00_1077,BgL_auxz00_4541,BgL_locz00_46); } 
{ /* ./Eval/evcompile.scm 395 */
long BgL_arg2585z00_1090;
{ /* ./Eval/evcompile.scm 395 */
bool_t BgL_testz00_4544;
{ /* ./Eval/evcompile.scm 395 */
obj_t BgL_auxz00_4549;obj_t BgL_auxz00_4545;
BgL_auxz00_4549 = 
BINT(((long)1)); 
{ 
int BgL_auxz00_4546;
BgL_auxz00_4546 = 
(int)(((long)0)); 
BgL_auxz00_4545 = 
VECTOR_REF(BgL_procz00_44,BgL_auxz00_4546); } 
BgL_testz00_4544 = 
(BgL_auxz00_4545==BgL_auxz00_4549); } 
if(BgL_testz00_4544)
{ /* ./Eval/evcompile.scm 395 */
BgL_arg2585z00_1090 = ((long)22); }  else 
{ /* ./Eval/evcompile.scm 395 */
BgL_arg2585z00_1090 = ((long)60); } } 
{ 
obj_t BgL_auxz00_4554;int BgL_auxz00_4552;
BgL_auxz00_4554 = 
BINT(BgL_arg2585z00_1090); 
BgL_auxz00_4552 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1066z00_1077,BgL_auxz00_4552,BgL_auxz00_4554); } } 
return BgL_v1066z00_1077;} break;case ((long)4) : 

{ /* ./Eval/evcompile.scm 403 */
obj_t BgL_v1068z00_1094;
{ 
int BgL_auxz00_4557;
BgL_auxz00_4557 = 
(int)(((long)3)); 
BgL_v1068z00_1094 = 
create_vector(BgL_auxz00_4557); } 
{ /* ./Eval/evcompile.scm 403 */
obj_t BgL_arg2596z00_1096;
{ /* ./Eval/evcompile.scm 405 */
obj_t BgL_v1069z00_1097;
{ 
int BgL_auxz00_4560;
BgL_auxz00_4560 = 
(int)(((long)6)); 
BgL_v1069z00_1097 = 
create_vector(BgL_auxz00_4560); } 
{ 
obj_t BgL_auxz00_4565;int BgL_auxz00_4563;
{ /* ./Eval/evcompile.scm 410 */
obj_t BgL_auxz00_4566;
{ /* ./Eval/evcompile.scm 410 */
obj_t BgL_auxz00_4567;
{ /* ./Eval/evcompile.scm 410 */
obj_t BgL_auxz00_4568;
BgL_auxz00_4568 = 
CDR(BgL_actualsz00_45); 
BgL_auxz00_4567 = 
CDR(BgL_auxz00_4568); } 
BgL_auxz00_4566 = 
CDR(BgL_auxz00_4567); } 
BgL_auxz00_4565 = 
CAR(BgL_auxz00_4566); } 
BgL_auxz00_4563 = 
(int)(((long)5)); 
VECTOR_SET(BgL_v1069z00_1097,BgL_auxz00_4563,BgL_auxz00_4565); } 
{ 
obj_t BgL_auxz00_4576;int BgL_auxz00_4574;
{ /* ./Eval/evcompile.scm 409 */
obj_t BgL_auxz00_4577;
{ /* ./Eval/evcompile.scm 409 */
obj_t BgL_auxz00_4578;
BgL_auxz00_4578 = 
CDR(BgL_actualsz00_45); 
BgL_auxz00_4577 = 
CDR(BgL_auxz00_4578); } 
BgL_auxz00_4576 = 
CAR(BgL_auxz00_4577); } 
BgL_auxz00_4574 = 
(int)(((long)4)); 
VECTOR_SET(BgL_v1069z00_1097,BgL_auxz00_4574,BgL_auxz00_4576); } 
{ 
obj_t BgL_auxz00_4585;int BgL_auxz00_4583;
{ /* ./Eval/evcompile.scm 408 */
obj_t BgL_auxz00_4586;
BgL_auxz00_4586 = 
CDR(BgL_actualsz00_45); 
BgL_auxz00_4585 = 
CAR(BgL_auxz00_4586); } 
BgL_auxz00_4583 = 
(int)(((long)3)); 
VECTOR_SET(BgL_v1069z00_1097,BgL_auxz00_4583,BgL_auxz00_4585); } 
{ 
obj_t BgL_auxz00_4592;int BgL_auxz00_4590;
BgL_auxz00_4592 = 
CAR(BgL_actualsz00_45); 
BgL_auxz00_4590 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1069z00_1097,BgL_auxz00_4590,BgL_auxz00_4592); } 
{ 
int BgL_auxz00_4595;
BgL_auxz00_4595 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1069z00_1097,BgL_auxz00_4595,BgL_procz00_44); } 
{ 
obj_t BgL_auxz00_4600;int BgL_auxz00_4598;
{ 
int BgL_auxz00_4601;
BgL_auxz00_4601 = 
(int)(((long)1)); 
BgL_auxz00_4600 = 
VECTOR_REF(BgL_procz00_44,BgL_auxz00_4601); } 
BgL_auxz00_4598 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1069z00_1097,BgL_auxz00_4598,BgL_auxz00_4600); } 
BgL_arg2596z00_1096 = BgL_v1069z00_1097; } 
{ 
int BgL_auxz00_4605;
BgL_auxz00_4605 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1068z00_1094,BgL_auxz00_4605,BgL_arg2596z00_1096); } } 
{ 
int BgL_auxz00_4608;
BgL_auxz00_4608 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1068z00_1094,BgL_auxz00_4608,BgL_locz00_46); } 
{ /* ./Eval/evcompile.scm 403 */
long BgL_arg2628z00_1109;
{ /* ./Eval/evcompile.scm 403 */
bool_t BgL_testz00_4611;
{ /* ./Eval/evcompile.scm 403 */
obj_t BgL_auxz00_4616;obj_t BgL_auxz00_4612;
BgL_auxz00_4616 = 
BINT(((long)1)); 
{ 
int BgL_auxz00_4613;
BgL_auxz00_4613 = 
(int)(((long)0)); 
BgL_auxz00_4612 = 
VECTOR_REF(BgL_procz00_44,BgL_auxz00_4613); } 
BgL_testz00_4611 = 
(BgL_auxz00_4612==BgL_auxz00_4616); } 
if(BgL_testz00_4611)
{ /* ./Eval/evcompile.scm 403 */
BgL_arg2628z00_1109 = ((long)23); }  else 
{ /* ./Eval/evcompile.scm 403 */
BgL_arg2628z00_1109 = ((long)61); } } 
{ 
obj_t BgL_auxz00_4621;int BgL_auxz00_4619;
BgL_auxz00_4621 = 
BINT(BgL_arg2628z00_1109); 
BgL_auxz00_4619 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1068z00_1094,BgL_auxz00_4619,BgL_auxz00_4621); } } 
return BgL_v1068z00_1094;} break;
default: 
{ /* ./Eval/evcompile.scm 412 */
obj_t BgL_v1056z00_1113;
{ 
int BgL_auxz00_4624;
BgL_auxz00_4624 = 
(int)(((long)3)); 
BgL_v1056z00_1113 = 
create_vector(BgL_auxz00_4624); } 
{ /* ./Eval/evcompile.scm 412 */
obj_t BgL_arg2643z00_1115;
{ /* ./Eval/evcompile.scm 414 */
obj_t BgL_v1057z00_1116;
{ 
int BgL_auxz00_4627;
BgL_auxz00_4627 = 
(int)(((long)3)); 
BgL_v1057z00_1116 = 
create_vector(BgL_auxz00_4627); } 
{ 
int BgL_auxz00_4630;
BgL_auxz00_4630 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1057z00_1116,BgL_auxz00_4630,BgL_actualsz00_45); } 
{ 
int BgL_auxz00_4633;
BgL_auxz00_4633 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1057z00_1116,BgL_auxz00_4633,BgL_procz00_44); } 
{ 
obj_t BgL_auxz00_4638;int BgL_auxz00_4636;
{ 
int BgL_auxz00_4639;
BgL_auxz00_4639 = 
(int)(((long)1)); 
BgL_auxz00_4638 = 
VECTOR_REF(BgL_procz00_44,BgL_auxz00_4639); } 
BgL_auxz00_4636 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1057z00_1116,BgL_auxz00_4636,BgL_auxz00_4638); } 
BgL_arg2643z00_1115 = BgL_v1057z00_1116; } 
{ 
int BgL_auxz00_4643;
BgL_auxz00_4643 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1056z00_1113,BgL_auxz00_4643,BgL_arg2643z00_1115); } } 
{ 
int BgL_auxz00_4646;
BgL_auxz00_4646 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1056z00_1113,BgL_auxz00_4646,BgL_locz00_46); } 
{ /* ./Eval/evcompile.scm 412 */
long BgL_arg2656z00_1120;
{ /* ./Eval/evcompile.scm 412 */
bool_t BgL_testz00_4649;
{ /* ./Eval/evcompile.scm 412 */
obj_t BgL_auxz00_4654;obj_t BgL_auxz00_4650;
BgL_auxz00_4654 = 
BINT(((long)1)); 
{ 
int BgL_auxz00_4651;
BgL_auxz00_4651 = 
(int)(((long)0)); 
BgL_auxz00_4650 = 
VECTOR_REF(BgL_procz00_44,BgL_auxz00_4651); } 
BgL_testz00_4649 = 
(BgL_auxz00_4650==BgL_auxz00_4654); } 
if(BgL_testz00_4649)
{ /* ./Eval/evcompile.scm 412 */
BgL_arg2656z00_1120 = ((long)24); }  else 
{ /* ./Eval/evcompile.scm 412 */
BgL_arg2656z00_1120 = ((long)62); } } 
{ 
obj_t BgL_auxz00_4659;int BgL_auxz00_4657;
BgL_auxz00_4659 = 
BINT(BgL_arg2656z00_1120); 
BgL_auxz00_4657 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1056z00_1113,BgL_auxz00_4657,BgL_auxz00_4659); } } 
return BgL_v1056z00_1113;} } } } } 
}



/* evcompile-compiled-application */
obj_t BGl_evcompilezd2compiledzd2applicationz00zz__evcompilez00(obj_t BgL_procz00_47, obj_t BgL_actualsz00_48, obj_t BgL_locz00_49)
{ AN_OBJECT;
{ /* ./Eval/evcompile.scm 421 */
{ 

{ /* ./Eval/evcompile.scm 422 */
long BgL_aux1072z00_1125;
BgL_aux1072z00_1125 = 
bgl_list_length(BgL_actualsz00_48); 
switch( BgL_aux1072z00_1125) { case ((long)0) : 

{ /* ./Eval/evcompile.scm 424 */
obj_t BgL_v1073z00_1127;
{ 
int BgL_auxz00_4664;
BgL_auxz00_4664 = 
(int)(((long)3)); 
BgL_v1073z00_1127 = 
create_vector(BgL_auxz00_4664); } 
{ 
int BgL_auxz00_4667;
BgL_auxz00_4667 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1073z00_1127,BgL_auxz00_4667,BgL_procz00_47); } 
{ 
int BgL_auxz00_4670;
BgL_auxz00_4670 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1073z00_1127,BgL_auxz00_4670,BgL_locz00_49); } 
{ 
obj_t BgL_auxz00_4675;int BgL_auxz00_4673;
BgL_auxz00_4675 = 
BINT(((long)25)); 
BgL_auxz00_4673 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1073z00_1127,BgL_auxz00_4673,BgL_auxz00_4675); } 
return BgL_v1073z00_1127;} break;case ((long)1) : 

{ /* ./Eval/evcompile.scm 426 */
obj_t BgL_v1074z00_1128;
{ 
int BgL_auxz00_4678;
BgL_auxz00_4678 = 
(int)(((long)3)); 
BgL_v1074z00_1128 = 
create_vector(BgL_auxz00_4678); } 
{ /* ./Eval/evcompile.scm 426 */
obj_t BgL_arg2672z00_1130;
{ /* ./Eval/evcompile.scm 426 */
obj_t BgL_v1075z00_1131;
{ 
int BgL_auxz00_4681;
BgL_auxz00_4681 = 
(int)(((long)2)); 
BgL_v1075z00_1131 = 
create_vector(BgL_auxz00_4681); } 
{ 
obj_t BgL_auxz00_4686;int BgL_auxz00_4684;
BgL_auxz00_4686 = 
CAR(BgL_actualsz00_48); 
BgL_auxz00_4684 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1075z00_1131,BgL_auxz00_4684,BgL_auxz00_4686); } 
{ 
int BgL_auxz00_4689;
BgL_auxz00_4689 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1075z00_1131,BgL_auxz00_4689,BgL_procz00_47); } 
BgL_arg2672z00_1130 = BgL_v1075z00_1131; } 
{ 
int BgL_auxz00_4692;
BgL_auxz00_4692 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1074z00_1128,BgL_auxz00_4692,BgL_arg2672z00_1130); } } 
{ 
int BgL_auxz00_4695;
BgL_auxz00_4695 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1074z00_1128,BgL_auxz00_4695,BgL_locz00_49); } 
{ 
obj_t BgL_auxz00_4700;int BgL_auxz00_4698;
BgL_auxz00_4700 = 
BINT(((long)26)); 
BgL_auxz00_4698 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1074z00_1128,BgL_auxz00_4698,BgL_auxz00_4700); } 
return BgL_v1074z00_1128;} break;case ((long)2) : 

{ /* ./Eval/evcompile.scm 428 */
obj_t BgL_v1076z00_1134;
{ 
int BgL_auxz00_4703;
BgL_auxz00_4703 = 
(int)(((long)3)); 
BgL_v1076z00_1134 = 
create_vector(BgL_auxz00_4703); } 
{ /* ./Eval/evcompile.scm 428 */
obj_t BgL_arg2686z00_1136;
{ /* ./Eval/evcompile.scm 428 */
obj_t BgL_v1077z00_1137;
{ 
int BgL_auxz00_4706;
BgL_auxz00_4706 = 
(int)(((long)3)); 
BgL_v1077z00_1137 = 
create_vector(BgL_auxz00_4706); } 
{ 
obj_t BgL_auxz00_4711;int BgL_auxz00_4709;
{ /* ./Eval/evcompile.scm 429 */
obj_t BgL_auxz00_4712;
BgL_auxz00_4712 = 
CDR(BgL_actualsz00_48); 
BgL_auxz00_4711 = 
CAR(BgL_auxz00_4712); } 
BgL_auxz00_4709 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1077z00_1137,BgL_auxz00_4709,BgL_auxz00_4711); } 
{ 
obj_t BgL_auxz00_4718;int BgL_auxz00_4716;
BgL_auxz00_4718 = 
CAR(BgL_actualsz00_48); 
BgL_auxz00_4716 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1077z00_1137,BgL_auxz00_4716,BgL_auxz00_4718); } 
{ 
int BgL_auxz00_4721;
BgL_auxz00_4721 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1077z00_1137,BgL_auxz00_4721,BgL_procz00_47); } 
BgL_arg2686z00_1136 = BgL_v1077z00_1137; } 
{ 
int BgL_auxz00_4724;
BgL_auxz00_4724 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1076z00_1134,BgL_auxz00_4724,BgL_arg2686z00_1136); } } 
{ 
int BgL_auxz00_4727;
BgL_auxz00_4727 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1076z00_1134,BgL_auxz00_4727,BgL_locz00_49); } 
{ 
obj_t BgL_auxz00_4732;int BgL_auxz00_4730;
BgL_auxz00_4732 = 
BINT(((long)27)); 
BgL_auxz00_4730 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1076z00_1134,BgL_auxz00_4730,BgL_auxz00_4732); } 
return BgL_v1076z00_1134;} break;case ((long)3) : 

{ /* ./Eval/evcompile.scm 431 */
obj_t BgL_v1078z00_1142;
{ 
int BgL_auxz00_4735;
BgL_auxz00_4735 = 
(int)(((long)3)); 
BgL_v1078z00_1142 = 
create_vector(BgL_auxz00_4735); } 
{ /* ./Eval/evcompile.scm 431 */
obj_t BgL_arg2705z00_1144;
{ /* ./Eval/evcompile.scm 431 */
obj_t BgL_v1079z00_1145;
{ 
int BgL_auxz00_4738;
BgL_auxz00_4738 = 
(int)(((long)4)); 
BgL_v1079z00_1145 = 
create_vector(BgL_auxz00_4738); } 
{ 
obj_t BgL_auxz00_4743;int BgL_auxz00_4741;
{ /* ./Eval/evcompile.scm 433 */
obj_t BgL_auxz00_4744;
{ /* ./Eval/evcompile.scm 433 */
obj_t BgL_auxz00_4745;
BgL_auxz00_4745 = 
CDR(BgL_actualsz00_48); 
BgL_auxz00_4744 = 
CDR(BgL_auxz00_4745); } 
BgL_auxz00_4743 = 
CAR(BgL_auxz00_4744); } 
BgL_auxz00_4741 = 
(int)(((long)3)); 
VECTOR_SET(BgL_v1079z00_1145,BgL_auxz00_4741,BgL_auxz00_4743); } 
{ 
obj_t BgL_auxz00_4752;int BgL_auxz00_4750;
{ /* ./Eval/evcompile.scm 432 */
obj_t BgL_auxz00_4753;
BgL_auxz00_4753 = 
CDR(BgL_actualsz00_48); 
BgL_auxz00_4752 = 
CAR(BgL_auxz00_4753); } 
BgL_auxz00_4750 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1079z00_1145,BgL_auxz00_4750,BgL_auxz00_4752); } 
{ 
obj_t BgL_auxz00_4759;int BgL_auxz00_4757;
BgL_auxz00_4759 = 
CAR(BgL_actualsz00_48); 
BgL_auxz00_4757 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1079z00_1145,BgL_auxz00_4757,BgL_auxz00_4759); } 
{ 
int BgL_auxz00_4762;
BgL_auxz00_4762 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1079z00_1145,BgL_auxz00_4762,BgL_procz00_47); } 
BgL_arg2705z00_1144 = BgL_v1079z00_1145; } 
{ 
int BgL_auxz00_4765;
BgL_auxz00_4765 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1078z00_1142,BgL_auxz00_4765,BgL_arg2705z00_1144); } } 
{ 
int BgL_auxz00_4768;
BgL_auxz00_4768 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1078z00_1142,BgL_auxz00_4768,BgL_locz00_49); } 
{ 
obj_t BgL_auxz00_4773;int BgL_auxz00_4771;
BgL_auxz00_4773 = 
BINT(((long)28)); 
BgL_auxz00_4771 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1078z00_1142,BgL_auxz00_4771,BgL_auxz00_4773); } 
return BgL_v1078z00_1142;} break;case ((long)4) : 

{ /* ./Eval/evcompile.scm 435 */
obj_t BgL_v1080z00_1152;
{ 
int BgL_auxz00_4776;
BgL_auxz00_4776 = 
(int)(((long)3)); 
BgL_v1080z00_1152 = 
create_vector(BgL_auxz00_4776); } 
{ /* ./Eval/evcompile.scm 435 */
obj_t BgL_arg2729z00_1154;
{ /* ./Eval/evcompile.scm 435 */
obj_t BgL_v1081z00_1155;
{ 
int BgL_auxz00_4779;
BgL_auxz00_4779 = 
(int)(((long)5)); 
BgL_v1081z00_1155 = 
create_vector(BgL_auxz00_4779); } 
{ 
obj_t BgL_auxz00_4784;int BgL_auxz00_4782;
{ /* ./Eval/evcompile.scm 438 */
obj_t BgL_auxz00_4785;
{ /* ./Eval/evcompile.scm 438 */
obj_t BgL_auxz00_4786;
{ /* ./Eval/evcompile.scm 438 */
obj_t BgL_auxz00_4787;
BgL_auxz00_4787 = 
CDR(BgL_actualsz00_48); 
BgL_auxz00_4786 = 
CDR(BgL_auxz00_4787); } 
BgL_auxz00_4785 = 
CDR(BgL_auxz00_4786); } 
BgL_auxz00_4784 = 
CAR(BgL_auxz00_4785); } 
BgL_auxz00_4782 = 
(int)(((long)4)); 
VECTOR_SET(BgL_v1081z00_1155,BgL_auxz00_4782,BgL_auxz00_4784); } 
{ 
obj_t BgL_auxz00_4795;int BgL_auxz00_4793;
{ /* ./Eval/evcompile.scm 437 */
obj_t BgL_auxz00_4796;
{ /* ./Eval/evcompile.scm 437 */
obj_t BgL_auxz00_4797;
BgL_auxz00_4797 = 
CDR(BgL_actualsz00_48); 
BgL_auxz00_4796 = 
CDR(BgL_auxz00_4797); } 
BgL_auxz00_4795 = 
CAR(BgL_auxz00_4796); } 
BgL_auxz00_4793 = 
(int)(((long)3)); 
VECTOR_SET(BgL_v1081z00_1155,BgL_auxz00_4793,BgL_auxz00_4795); } 
{ 
obj_t BgL_auxz00_4804;int BgL_auxz00_4802;
{ /* ./Eval/evcompile.scm 436 */
obj_t BgL_auxz00_4805;
BgL_auxz00_4805 = 
CDR(BgL_actualsz00_48); 
BgL_auxz00_4804 = 
CAR(BgL_auxz00_4805); } 
BgL_auxz00_4802 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1081z00_1155,BgL_auxz00_4802,BgL_auxz00_4804); } 
{ 
obj_t BgL_auxz00_4811;int BgL_auxz00_4809;
BgL_auxz00_4811 = 
CAR(BgL_actualsz00_48); 
BgL_auxz00_4809 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1081z00_1155,BgL_auxz00_4809,BgL_auxz00_4811); } 
{ 
int BgL_auxz00_4814;
BgL_auxz00_4814 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1081z00_1155,BgL_auxz00_4814,BgL_procz00_47); } 
BgL_arg2729z00_1154 = BgL_v1081z00_1155; } 
{ 
int BgL_auxz00_4817;
BgL_auxz00_4817 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1080z00_1152,BgL_auxz00_4817,BgL_arg2729z00_1154); } } 
{ 
int BgL_auxz00_4820;
BgL_auxz00_4820 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1080z00_1152,BgL_auxz00_4820,BgL_locz00_49); } 
{ 
obj_t BgL_auxz00_4825;int BgL_auxz00_4823;
BgL_auxz00_4825 = 
BINT(((long)29)); 
BgL_auxz00_4823 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1080z00_1152,BgL_auxz00_4823,BgL_auxz00_4825); } 
return BgL_v1080z00_1152;} break;
default: 
{ /* ./Eval/evcompile.scm 440 */
obj_t BgL_v1070z00_1164;
{ 
int BgL_auxz00_4828;
BgL_auxz00_4828 = 
(int)(((long)3)); 
BgL_v1070z00_1164 = 
create_vector(BgL_auxz00_4828); } 
{ /* ./Eval/evcompile.scm 440 */
obj_t BgL_arg2762z00_1166;
BgL_arg2762z00_1166 = 
MAKE_PAIR(BgL_procz00_47, BgL_actualsz00_48); 
{ 
int BgL_auxz00_4832;
BgL_auxz00_4832 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1070z00_1164,BgL_auxz00_4832,BgL_arg2762z00_1166); } } 
{ 
int BgL_auxz00_4835;
BgL_auxz00_4835 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1070z00_1164,BgL_auxz00_4835,BgL_locz00_49); } 
{ 
obj_t BgL_auxz00_4840;int BgL_auxz00_4838;
BgL_auxz00_4840 = 
BINT(((long)30)); 
BgL_auxz00_4838 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1070z00_1164,BgL_auxz00_4838,BgL_auxz00_4840); } 
return BgL_v1070z00_1164;} } } } } 
}



/* evcompile-application */
obj_t BGl_evcompilezd2applicationzd2zz__evcompilez00(obj_t BgL_namez00_50, obj_t BgL_procz00_51, obj_t BgL_actualsz00_52, obj_t BgL_locz00_53)
{ AN_OBJECT;
{ /* ./Eval/evcompile.scm 445 */
{ 

{ /* ./Eval/evcompile.scm 446 */
long BgL_aux1085z00_1168;
BgL_aux1085z00_1168 = 
bgl_list_length(BgL_actualsz00_52); 
switch( BgL_aux1085z00_1168) { case ((long)0) : 

{ /* ./Eval/evcompile.scm 448 */
obj_t BgL_v1086z00_1170;
{ 
int BgL_auxz00_4845;
BgL_auxz00_4845 = 
(int)(((long)3)); 
BgL_v1086z00_1170 = 
create_vector(BgL_auxz00_4845); } 
{ /* ./Eval/evcompile.scm 448 */
obj_t BgL_arg2771z00_1172;
BgL_arg2771z00_1172 = 
MAKE_PAIR(BgL_namez00_50, BgL_procz00_51); 
{ 
int BgL_auxz00_4849;
BgL_auxz00_4849 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1086z00_1170,BgL_auxz00_4849,BgL_arg2771z00_1172); } } 
{ 
int BgL_auxz00_4852;
BgL_auxz00_4852 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1086z00_1170,BgL_auxz00_4852,BgL_locz00_53); } 
{ 
obj_t BgL_auxz00_4857;int BgL_auxz00_4855;
BgL_auxz00_4857 = 
BINT(((long)31)); 
BgL_auxz00_4855 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1086z00_1170,BgL_auxz00_4855,BgL_auxz00_4857); } 
return BgL_v1086z00_1170;} break;case ((long)1) : 

{ /* ./Eval/evcompile.scm 450 */
obj_t BgL_v1087z00_1173;
{ 
int BgL_auxz00_4860;
BgL_auxz00_4860 = 
(int)(((long)3)); 
BgL_v1087z00_1173 = 
create_vector(BgL_auxz00_4860); } 
{ /* ./Eval/evcompile.scm 450 */
obj_t BgL_arg2779z00_1175;
{ /* ./Eval/evcompile.scm 450 */
obj_t BgL_v1088z00_1176;
{ 
int BgL_auxz00_4863;
BgL_auxz00_4863 = 
(int)(((long)3)); 
BgL_v1088z00_1176 = 
create_vector(BgL_auxz00_4863); } 
{ 
obj_t BgL_auxz00_4868;int BgL_auxz00_4866;
BgL_auxz00_4868 = 
CAR(BgL_actualsz00_52); 
BgL_auxz00_4866 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1088z00_1176,BgL_auxz00_4866,BgL_auxz00_4868); } 
{ 
int BgL_auxz00_4871;
BgL_auxz00_4871 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1088z00_1176,BgL_auxz00_4871,BgL_procz00_51); } 
{ 
int BgL_auxz00_4874;
BgL_auxz00_4874 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1088z00_1176,BgL_auxz00_4874,BgL_namez00_50); } 
BgL_arg2779z00_1175 = BgL_v1088z00_1176; } 
{ 
int BgL_auxz00_4877;
BgL_auxz00_4877 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1087z00_1173,BgL_auxz00_4877,BgL_arg2779z00_1175); } } 
{ 
int BgL_auxz00_4880;
BgL_auxz00_4880 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1087z00_1173,BgL_auxz00_4880,BgL_locz00_53); } 
{ 
obj_t BgL_auxz00_4885;int BgL_auxz00_4883;
BgL_auxz00_4885 = 
BINT(((long)32)); 
BgL_auxz00_4883 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1087z00_1173,BgL_auxz00_4883,BgL_auxz00_4885); } 
return BgL_v1087z00_1173;} break;case ((long)2) : 

{ /* ./Eval/evcompile.scm 453 */
obj_t BgL_v1089z00_1179;
{ 
int BgL_auxz00_4888;
BgL_auxz00_4888 = 
(int)(((long)3)); 
BgL_v1089z00_1179 = 
create_vector(BgL_auxz00_4888); } 
{ /* ./Eval/evcompile.scm 453 */
obj_t BgL_arg2794z00_1181;
{ /* ./Eval/evcompile.scm 453 */
obj_t BgL_v1090z00_1182;
{ 
int BgL_auxz00_4891;
BgL_auxz00_4891 = 
(int)(((long)4)); 
BgL_v1090z00_1182 = 
create_vector(BgL_auxz00_4891); } 
{ 
obj_t BgL_auxz00_4896;int BgL_auxz00_4894;
{ /* ./Eval/evcompile.scm 455 */
obj_t BgL_auxz00_4897;
BgL_auxz00_4897 = 
CDR(BgL_actualsz00_52); 
BgL_auxz00_4896 = 
CAR(BgL_auxz00_4897); } 
BgL_auxz00_4894 = 
(int)(((long)3)); 
VECTOR_SET(BgL_v1090z00_1182,BgL_auxz00_4894,BgL_auxz00_4896); } 
{ 
obj_t BgL_auxz00_4903;int BgL_auxz00_4901;
BgL_auxz00_4903 = 
CAR(BgL_actualsz00_52); 
BgL_auxz00_4901 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1090z00_1182,BgL_auxz00_4901,BgL_auxz00_4903); } 
{ 
int BgL_auxz00_4906;
BgL_auxz00_4906 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1090z00_1182,BgL_auxz00_4906,BgL_procz00_51); } 
{ 
int BgL_auxz00_4909;
BgL_auxz00_4909 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1090z00_1182,BgL_auxz00_4909,BgL_namez00_50); } 
BgL_arg2794z00_1181 = BgL_v1090z00_1182; } 
{ 
int BgL_auxz00_4912;
BgL_auxz00_4912 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1089z00_1179,BgL_auxz00_4912,BgL_arg2794z00_1181); } } 
{ 
int BgL_auxz00_4915;
BgL_auxz00_4915 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1089z00_1179,BgL_auxz00_4915,BgL_locz00_53); } 
{ 
obj_t BgL_auxz00_4920;int BgL_auxz00_4918;
BgL_auxz00_4920 = 
BINT(((long)33)); 
BgL_auxz00_4918 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1089z00_1179,BgL_auxz00_4918,BgL_auxz00_4920); } 
return BgL_v1089z00_1179;} break;case ((long)3) : 

{ /* ./Eval/evcompile.scm 457 */
obj_t BgL_v1091z00_1187;
{ 
int BgL_auxz00_4923;
BgL_auxz00_4923 = 
(int)(((long)3)); 
BgL_v1091z00_1187 = 
create_vector(BgL_auxz00_4923); } 
{ /* ./Eval/evcompile.scm 457 */
obj_t BgL_arg2814z00_1189;
{ /* ./Eval/evcompile.scm 457 */
obj_t BgL_v1092z00_1190;
{ 
int BgL_auxz00_4926;
BgL_auxz00_4926 = 
(int)(((long)5)); 
BgL_v1092z00_1190 = 
create_vector(BgL_auxz00_4926); } 
{ 
obj_t BgL_auxz00_4931;int BgL_auxz00_4929;
{ /* ./Eval/evcompile.scm 460 */
obj_t BgL_auxz00_4932;
{ /* ./Eval/evcompile.scm 460 */
obj_t BgL_auxz00_4933;
BgL_auxz00_4933 = 
CDR(BgL_actualsz00_52); 
BgL_auxz00_4932 = 
CDR(BgL_auxz00_4933); } 
BgL_auxz00_4931 = 
CAR(BgL_auxz00_4932); } 
BgL_auxz00_4929 = 
(int)(((long)4)); 
VECTOR_SET(BgL_v1092z00_1190,BgL_auxz00_4929,BgL_auxz00_4931); } 
{ 
obj_t BgL_auxz00_4940;int BgL_auxz00_4938;
{ /* ./Eval/evcompile.scm 459 */
obj_t BgL_auxz00_4941;
BgL_auxz00_4941 = 
CDR(BgL_actualsz00_52); 
BgL_auxz00_4940 = 
CAR(BgL_auxz00_4941); } 
BgL_auxz00_4938 = 
(int)(((long)3)); 
VECTOR_SET(BgL_v1092z00_1190,BgL_auxz00_4938,BgL_auxz00_4940); } 
{ 
obj_t BgL_auxz00_4947;int BgL_auxz00_4945;
BgL_auxz00_4947 = 
CAR(BgL_actualsz00_52); 
BgL_auxz00_4945 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1092z00_1190,BgL_auxz00_4945,BgL_auxz00_4947); } 
{ 
int BgL_auxz00_4950;
BgL_auxz00_4950 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1092z00_1190,BgL_auxz00_4950,BgL_procz00_51); } 
{ 
int BgL_auxz00_4953;
BgL_auxz00_4953 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1092z00_1190,BgL_auxz00_4953,BgL_namez00_50); } 
BgL_arg2814z00_1189 = BgL_v1092z00_1190; } 
{ 
int BgL_auxz00_4956;
BgL_auxz00_4956 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1091z00_1187,BgL_auxz00_4956,BgL_arg2814z00_1189); } } 
{ 
int BgL_auxz00_4959;
BgL_auxz00_4959 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1091z00_1187,BgL_auxz00_4959,BgL_locz00_53); } 
{ 
obj_t BgL_auxz00_4964;int BgL_auxz00_4962;
BgL_auxz00_4964 = 
BINT(((long)34)); 
BgL_auxz00_4962 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1091z00_1187,BgL_auxz00_4962,BgL_auxz00_4964); } 
return BgL_v1091z00_1187;} break;case ((long)4) : 

{ /* ./Eval/evcompile.scm 462 */
obj_t BgL_v1093z00_1197;
{ 
int BgL_auxz00_4967;
BgL_auxz00_4967 = 
(int)(((long)3)); 
BgL_v1093z00_1197 = 
create_vector(BgL_auxz00_4967); } 
{ /* ./Eval/evcompile.scm 462 */
obj_t BgL_arg2839z00_1199;
{ /* ./Eval/evcompile.scm 462 */
obj_t BgL_v1094z00_1200;
{ 
int BgL_auxz00_4970;
BgL_auxz00_4970 = 
(int)(((long)6)); 
BgL_v1094z00_1200 = 
create_vector(BgL_auxz00_4970); } 
{ 
obj_t BgL_auxz00_4975;int BgL_auxz00_4973;
{ /* ./Eval/evcompile.scm 466 */
obj_t BgL_auxz00_4976;
{ /* ./Eval/evcompile.scm 466 */
obj_t BgL_auxz00_4977;
{ /* ./Eval/evcompile.scm 466 */
obj_t BgL_auxz00_4978;
BgL_auxz00_4978 = 
CDR(BgL_actualsz00_52); 
BgL_auxz00_4977 = 
CDR(BgL_auxz00_4978); } 
BgL_auxz00_4976 = 
CDR(BgL_auxz00_4977); } 
BgL_auxz00_4975 = 
CAR(BgL_auxz00_4976); } 
BgL_auxz00_4973 = 
(int)(((long)5)); 
VECTOR_SET(BgL_v1094z00_1200,BgL_auxz00_4973,BgL_auxz00_4975); } 
{ 
obj_t BgL_auxz00_4986;int BgL_auxz00_4984;
{ /* ./Eval/evcompile.scm 465 */
obj_t BgL_auxz00_4987;
{ /* ./Eval/evcompile.scm 465 */
obj_t BgL_auxz00_4988;
BgL_auxz00_4988 = 
CDR(BgL_actualsz00_52); 
BgL_auxz00_4987 = 
CDR(BgL_auxz00_4988); } 
BgL_auxz00_4986 = 
CAR(BgL_auxz00_4987); } 
BgL_auxz00_4984 = 
(int)(((long)4)); 
VECTOR_SET(BgL_v1094z00_1200,BgL_auxz00_4984,BgL_auxz00_4986); } 
{ 
obj_t BgL_auxz00_4995;int BgL_auxz00_4993;
{ /* ./Eval/evcompile.scm 464 */
obj_t BgL_auxz00_4996;
BgL_auxz00_4996 = 
CDR(BgL_actualsz00_52); 
BgL_auxz00_4995 = 
CAR(BgL_auxz00_4996); } 
BgL_auxz00_4993 = 
(int)(((long)3)); 
VECTOR_SET(BgL_v1094z00_1200,BgL_auxz00_4993,BgL_auxz00_4995); } 
{ 
obj_t BgL_auxz00_5002;int BgL_auxz00_5000;
BgL_auxz00_5002 = 
CAR(BgL_actualsz00_52); 
BgL_auxz00_5000 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1094z00_1200,BgL_auxz00_5000,BgL_auxz00_5002); } 
{ 
int BgL_auxz00_5005;
BgL_auxz00_5005 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1094z00_1200,BgL_auxz00_5005,BgL_procz00_51); } 
{ 
int BgL_auxz00_5008;
BgL_auxz00_5008 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1094z00_1200,BgL_auxz00_5008,BgL_namez00_50); } 
BgL_arg2839z00_1199 = BgL_v1094z00_1200; } 
{ 
int BgL_auxz00_5011;
BgL_auxz00_5011 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1093z00_1197,BgL_auxz00_5011,BgL_arg2839z00_1199); } } 
{ 
int BgL_auxz00_5014;
BgL_auxz00_5014 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1093z00_1197,BgL_auxz00_5014,BgL_locz00_53); } 
{ 
obj_t BgL_auxz00_5019;int BgL_auxz00_5017;
BgL_auxz00_5019 = 
BINT(((long)35)); 
BgL_auxz00_5017 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1093z00_1197,BgL_auxz00_5017,BgL_auxz00_5019); } 
return BgL_v1093z00_1197;} break;
default: 
{ /* ./Eval/evcompile.scm 468 */
obj_t BgL_v1082z00_1209;
{ 
int BgL_auxz00_5022;
BgL_auxz00_5022 = 
(int)(((long)3)); 
BgL_v1082z00_1209 = 
create_vector(BgL_auxz00_5022); } 
{ /* ./Eval/evcompile.scm 468 */
obj_t BgL_arg2873z00_1211;
{ /* ./Eval/evcompile.scm 468 */
obj_t BgL_v1083z00_1212;
{ 
int BgL_auxz00_5025;
BgL_auxz00_5025 = 
(int)(((long)3)); 
BgL_v1083z00_1212 = 
create_vector(BgL_auxz00_5025); } 
{ 
int BgL_auxz00_5028;
BgL_auxz00_5028 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1083z00_1212,BgL_auxz00_5028,BgL_actualsz00_52); } 
{ 
int BgL_auxz00_5031;
BgL_auxz00_5031 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1083z00_1212,BgL_auxz00_5031,BgL_procz00_51); } 
{ 
int BgL_auxz00_5034;
BgL_auxz00_5034 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1083z00_1212,BgL_auxz00_5034,BgL_namez00_50); } 
BgL_arg2873z00_1211 = BgL_v1083z00_1212; } 
{ 
int BgL_auxz00_5037;
BgL_auxz00_5037 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1082z00_1209,BgL_auxz00_5037,BgL_arg2873z00_1211); } } 
{ 
int BgL_auxz00_5040;
BgL_auxz00_5040 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1082z00_1209,BgL_auxz00_5040,BgL_locz00_53); } 
{ 
obj_t BgL_auxz00_5045;int BgL_auxz00_5043;
BgL_auxz00_5045 = 
BINT(((long)36)); 
BgL_auxz00_5043 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1082z00_1209,BgL_auxz00_5043,BgL_auxz00_5045); } 
return BgL_v1082z00_1209;} } } } } 
}



/* variable */
obj_t BGl_variablez00zz__evcompilez00(obj_t BgL_locz00_54, obj_t BgL_symbolz00_55, obj_t BgL_envz00_56, obj_t BgL_genvz00_57)
{ AN_OBJECT;
{ /* ./Eval/evcompile.scm 474 */
if(
SYMBOLP(BgL_symbolz00_55))
{ /* ./Eval/evcompile.scm 477 */
obj_t BgL_offsetz00_1214;
{ 
obj_t BgL_envz00_2878;long BgL_countz00_2879;
BgL_envz00_2878 = BgL_envz00_56; 
BgL_countz00_2879 = ((long)0); 
BgL_loopz00_2877:
if(
NULLP(BgL_envz00_2878))
{ /* ./Eval/evcompile.scm 477 */
BgL_offsetz00_1214 = BFALSE; }  else 
{ /* ./Eval/evcompile.scm 477 */
bool_t BgL_testz00_5053;
{ /* ./Eval/evcompile.scm 477 */
obj_t BgL_auxz00_5054;
BgL_auxz00_5054 = 
CAR(BgL_envz00_2878); 
BgL_testz00_5053 = 
(BgL_auxz00_5054==BgL_symbolz00_55); } 
if(BgL_testz00_5053)
{ /* ./Eval/evcompile.scm 477 */
BgL_offsetz00_1214 = 
BINT(BgL_countz00_2879); }  else 
{ /* ./Eval/evcompile.scm 477 */
{ 
long BgL_countz00_5060;obj_t BgL_envz00_5058;
BgL_envz00_5058 = 
CDR(BgL_envz00_2878); 
BgL_countz00_5060 = 
(BgL_countz00_2879+((long)1)); 
BgL_countz00_2879 = BgL_countz00_5060; 
BgL_envz00_2878 = BgL_envz00_5058; 
goto BgL_loopz00_2877;} } } } 
if(
CBOOL(BgL_offsetz00_1214))
{ /* ./Eval/evcompile.scm 486 */
return BgL_offsetz00_1214;}  else 
{ /* ./Eval/evcompile.scm 488 */
obj_t BgL_globalz00_1215;
{ /* ./Eval/evcompile.scm 488 */
bool_t BgL_test2890z00_1218;
{ /* ./Eval/evcompile.scm 488 */
bool_t BgL_testz00_5064;
{ /* ./Eval/evcompile.scm 488 */
obj_t BgL_auxz00_5065;
BgL_auxz00_5065 = 
BGl_schemezd2reportzd2environmentz00zz__evalz00(
BINT(((long)5))); 
BgL_testz00_5064 = 
(BgL_genvz00_57==BgL_auxz00_5065); } 
if(BgL_testz00_5064)
{ /* ./Eval/evcompile.scm 488 */
BgL_test2890z00_1218 = ((bool_t)1); }  else 
{ /* ./Eval/evcompile.scm 489 */
obj_t BgL_auxz00_5069;
BgL_auxz00_5069 = 
BGl_interactionzd2environmentzd2zz__evalz00(); 
BgL_test2890z00_1218 = 
(BgL_genvz00_57==BgL_auxz00_5069); } } 
if(BgL_test2890z00_1218)
{ /* ./Eval/evcompile.scm 488 */
BgL_globalz00_1215 = 
BGl_evalzd2lookupzd2zz__evenvz00(BgL_symbolz00_55); }  else 
{ /* ./Eval/evcompile.scm 488 */
BgL_globalz00_1215 = 
BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_54, BGl_string4081z00zz__evcompilez00, BGl_string4100z00zz__evcompilez00, BgL_symbolz00_55); } } 
if(
CBOOL(BgL_globalz00_1215))
{ /* ./Eval/evcompile.scm 495 */
return BgL_globalz00_1215;}  else 
{ /* ./Eval/evcompile.scm 496 */
bool_t BgL_testz00_5077;
{ /* ./Eval/evcompile.scm 496 */
obj_t BgL_auxz00_5078;
BgL_auxz00_5078 = 
BGl_schemezd2reportzd2environmentz00zz__evalz00(
BINT(((long)5))); 
BgL_testz00_5077 = 
(BgL_genvz00_57==BgL_auxz00_5078); } 
if(BgL_testz00_5077)
{ /* ./Eval/evcompile.scm 496 */
return 
BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_54, BGl_string4081z00zz__evcompilez00, BGl_string4100z00zz__evcompilez00, BgL_symbolz00_55);}  else 
{ /* ./Eval/evcompile.scm 496 */
return 
MAKE_PAIR(BGl_symbol4099z00zz__evcompilez00, BgL_symbolz00_55);} } } }  else 
{ /* ./Eval/evcompile.scm 475 */
return 
BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_locz00_54, BGl_string4081z00zz__evcompilez00, BGl_string4101z00zz__evcompilez00, BgL_symbolz00_55);} } 
}



/* _loop_ */
obj_t BGl__loop_z00zz__evcompilez00(obj_t BgL_oldzd2envzd2_3019, obj_t BgL_extendz00_1233)
{ AN_OBJECT;
{ /* ./Eval/evcompile.scm 521 */
if(
NULLP(BgL_extendz00_1233))
{ /* ./Eval/evcompile.scm 523 */
return BgL_oldzd2envzd2_3019;}  else 
{ /* ./Eval/evcompile.scm 523 */
if(
PAIRP(BgL_extendz00_1233))
{ /* ./Eval/evcompile.scm 525 */
{ /* ./Eval/evcompile.scm 528 */
obj_t BgL_auxz00_5091;obj_t BgL_auxz00_5089;
BgL_auxz00_5091 = 
BGl__loop_z00zz__evcompilez00(BgL_oldzd2envzd2_3019, 
CDR(BgL_extendz00_1233)); 
BgL_auxz00_5089 = 
CAR(BgL_extendz00_1233); 
return 
MAKE_PAIR(BgL_auxz00_5089, BgL_auxz00_5091);} }  else 
{ /* ./Eval/evcompile.scm 525 */
return 
MAKE_PAIR(BgL_extendz00_1233, BgL_oldzd2envzd2_3019);} } } 
}



/* evcompile-error */
obj_t BGl_evcompilezd2errorzd2zz__evcompilez00(obj_t BgL_locz00_62, obj_t BgL_procz00_63, obj_t BgL_mesz00_64, obj_t BgL_objz00_65)
{ AN_OBJECT;
{ /* ./Eval/evcompile.scm 533 */
if(
PAIRP(BgL_locz00_62))
{ /* ./Eval/evcompile.scm 534 */
obj_t BgL_cdrzd22110zd2_1246;
BgL_cdrzd22110zd2_1246 = 
CDR(BgL_locz00_62); 
{ /* ./Eval/evcompile.scm 534 */
bool_t BgL_testz00_5099;
{ /* ./Eval/evcompile.scm 534 */
obj_t BgL_auxz00_5100;
BgL_auxz00_5100 = 
CAR(BgL_locz00_62); 
BgL_testz00_5099 = 
(BgL_auxz00_5100==BGl_symbol4102z00zz__evcompilez00); } 
if(BgL_testz00_5099)
{ /* ./Eval/evcompile.scm 534 */
if(
PAIRP(BgL_cdrzd22110zd2_1246))
{ /* ./Eval/evcompile.scm 534 */
obj_t BgL_cdrzd22114zd2_1249;
BgL_cdrzd22114zd2_1249 = 
CDR(BgL_cdrzd22110zd2_1246); 
if(
PAIRP(BgL_cdrzd22114zd2_1249))
{ /* ./Eval/evcompile.scm 534 */
bool_t BgL_testz00_5108;
{ /* ./Eval/evcompile.scm 534 */
obj_t BgL_auxz00_5109;
BgL_auxz00_5109 = 
CDR(BgL_cdrzd22114zd2_1249); 
BgL_testz00_5108 = 
NULLP(BgL_auxz00_5109); } 
if(BgL_testz00_5108)
{ /* ./Eval/evcompile.scm 534 */
return 
BGl_errorzf2locationzf2zz__errorz00(BgL_procz00_63, BgL_mesz00_64, BgL_objz00_65, 
CAR(BgL_cdrzd22110zd2_1246), 
CAR(BgL_cdrzd22114zd2_1249));}  else 
{ /* ./Eval/evcompile.scm 534 */
FAILURE(BgL_procz00_63,BgL_mesz00_64,BgL_objz00_65);} }  else 
{ /* ./Eval/evcompile.scm 534 */
FAILURE(BgL_procz00_63,BgL_mesz00_64,BgL_objz00_65);} }  else 
{ /* ./Eval/evcompile.scm 534 */
FAILURE(BgL_procz00_63,BgL_mesz00_64,BgL_objz00_65);} }  else 
{ /* ./Eval/evcompile.scm 534 */
FAILURE(BgL_procz00_63,BgL_mesz00_64,BgL_objz00_65);} } }  else 
{ /* ./Eval/evcompile.scm 534 */
FAILURE(BgL_procz00_63,BgL_mesz00_64,BgL_objz00_65);} } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__evcompilez00()
{ AN_OBJECT;
{ /* ./Eval/evcompile.scm 15 */
BGl_modulezd2initializa7ationz75zz__typez00(((long)52864), "__evcompile"); 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__evcompile"); 
BGl_modulezd2initializa7ationz75zz__biglooz00(((long)48291), "__evcompile"); 
BGl_modulezd2initializa7ationz75zz__tvectorz00(((long)57114), "__evcompile"); 
BGl_modulezd2initializa7ationz75zz__structurez00(((long)53290), "__evcompile"); 
BGl_modulezd2initializa7ationz75zz__bexitz00(((long)13855), "__evcompile"); 
BGl_modulezd2initializa7ationz75zz__osz00(((long)63306), "__evcompile"); 
BGl_modulezd2initializa7ationz75zz__dssslz00(((long)7663), "__evcompile"); 
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(((long)21694), "__evcompile"); 
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(((long)6615), "__evcompile"); 
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(((long)49269), "__evcompile"); 
BGl_modulezd2initializa7ationz75zz__r4_characters_6_6z00(((long)29164), "__evcompile"); 
BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(((long)51785), "__evcompile"); 
BGl_modulezd2initializa7ationz75zz__r4_booleans_6_1z00(((long)35070), "__evcompile"); 
BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(((long)247), "__evcompile"); 
BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(((long)21875), "__evcompile"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)104413), "__evcompile"); 
BGl_modulezd2initializa7ationz75zz__r4_input_6_10_2z00(((long)50132), "__evcompile"); 
BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(((long)63121), "__evcompile"); 
BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(((long)13988), "__evcompile"); 
BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(((long)45566), "__evcompile"); 
BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(((long)18972), "__evcompile"); 
BGl_modulezd2initializa7ationz75zz__evenvz00(((long)3930), "__evcompile"); 
BGl_modulezd2initializa7ationz75zz__evalz00(((long)51415), "__evcompile"); 
return 
BGl_modulezd2initializa7ationz75zz__expandz00(((long)60776), "__evcompile");} 
}

