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

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

static obj_t BGl_loopz00zz__expander_boolz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__expander_boolz00(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__r4_numbers_6_5z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_characters_6_6z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_booleans_6_1z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_input_6_10_2z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__prognz00(long, char *);
extern obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern obj_t BGl_replacez12z12zz__prognz00(obj_t, obj_t);
static obj_t BGl__expandzd2andzd2zz__expander_boolz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_expandzd2andzd2zz__expander_boolz00(obj_t);
extern long bgl_list_length(obj_t);
static obj_t BGl__expandzd2condzd2zz__expander_boolz00(obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zz__expander_boolz00();
static obj_t BGl_loopz72z72zz__expander_boolz00(obj_t, obj_t);
extern obj_t BGl_normaliza7ezd2bodyz75zz__prognz00(obj_t);
extern obj_t string_to_symbol(char *);
BGL_EXPORTED_DECL obj_t BGl_expandzd2orzd2zz__expander_boolz00(obj_t);
static obj_t BGl_symbol2190z00zz__expander_boolz00 = BUNSPEC;
static obj_t BGl_symbol2189z00zz__expander_boolz00 = BUNSPEC;
static obj_t BGl_symbol2188z00zz__expander_boolz00 = BUNSPEC;
static obj_t BGl_symbol2187z00zz__expander_boolz00 = BUNSPEC;
static obj_t BGl_symbol2185z00zz__expander_boolz00 = BUNSPEC;
static obj_t BGl_symbol2184z00zz__expander_boolz00 = BUNSPEC;
static obj_t BGl_symbol2183z00zz__expander_boolz00 = BUNSPEC;
static obj_t BGl_symbol2181z00zz__expander_boolz00 = BUNSPEC;
static obj_t BGl_symbol2177z00zz__expander_boolz00 = BUNSPEC;
static obj_t BGl_symbol2176z00zz__expander_boolz00 = BUNSPEC;
static obj_t BGl_symbol2175z00zz__expander_boolz00 = BUNSPEC;
static obj_t BGl_importedzd2moduleszd2initz00zz__expander_boolz00();
static obj_t BGl__expandzd2orzd2zz__expander_boolz00(obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zz__expander_boolz00 = BUNSPEC;
extern bool_t BGl_equalzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
static obj_t BGl_list2180z00zz__expander_boolz00 = BUNSPEC;
extern obj_t BGl_gensymz00zz__r4_symbols_6_4z00;
BGL_EXPORTED_DECL obj_t BGl_expandzd2condzd2zz__expander_boolz00(obj_t);
extern obj_t BGl_putpropz12z12zz__r4_symbols_6_4z00(obj_t, obj_t, obj_t);
extern obj_t string_append_3(obj_t, obj_t, obj_t);
static obj_t *__cnst;


DEFINE_EXPORT_PROCEDURE( BGl_expandzd2condzd2envz00zz__expander_boolz00, BgL_bgl__expandza7d2condza7d2za7za7__expander_boolza7002196za7, BGl__expandzd2condzd2zz__expander_boolz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2orzd2envz00zz__expander_boolz00, BgL_bgl__expandza7d2orza7d2za7za7__expander_boolza7002197za7, BGl__expandzd2orzd2zz__expander_boolz00, 0L, 1 );
DEFINE_STRING( BGl_string2186z00zz__expander_boolz00, BgL_bgl_string2186za700za7za7__expander_boolza7002198z00, "cd", 2 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2andzd2envz00zz__expander_boolz00, BgL_bgl__expandza7d2andza7d2za7za7__expander_boolza7002199za7, BGl__expandzd2andzd2zz__expander_boolz00, 0L, 1 );
DEFINE_STRING( BGl_string2182z00zz__expander_boolz00, BgL_bgl_string2182za700za7za7__expander_boolza7002200z00, "cond-clause", 11 );
DEFINE_STRING( BGl_string2179z00zz__expander_boolz00, BgL_bgl_string2179za700za7za7__expander_boolza7002201z00, "and", 3 );
DEFINE_STRING( BGl_string2178z00zz__expander_boolz00, BgL_bgl_string2178za700za7za7__expander_boolza7002202z00, "Illegal form", 12 );
DEFINE_STRING( BGl_string2174z00zz__expander_boolz00, BgL_bgl_string2174za700za7za7__expander_boolza7002203z00, "test_", 5 );
DEFINE_STRING( BGl_string2173z00zz__expander_boolz00, BgL_bgl_string2173za700za7za7__expander_boolza7002204z00, "or", 2 );
DEFINE_STRING( BGl_string2172z00zz__expander_boolz00, BgL_bgl_string2172za700za7za7__expander_boolza7002205z00, "_", 1 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__expander_boolz00(long BgL_checksumz00_876, char * BgL_fromz00_877)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__expander_boolz00))
{ 
BGl_requirezd2initializa7ationz75zz__expander_boolz00 = 
BBOOL(((bool_t)0)); 
BGl_cnstzd2initzd2zz__expander_boolz00(); 
BGl_importedzd2moduleszd2initz00zz__expander_boolz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__expander_boolz00()
{ AN_OBJECT;
{ /* ./Eval/expdbool.scm 14 */
BGl_symbol2175z00zz__expander_boolz00 = 
string_to_symbol("non-user"); 
BGl_symbol2176z00zz__expander_boolz00 = 
string_to_symbol("let"); 
BGl_symbol2177z00zz__expander_boolz00 = 
string_to_symbol("if"); 
BGl_symbol2181z00zz__expander_boolz00 = 
string_to_symbol("else"); 
BGl_list2180z00zz__expander_boolz00 = 
MAKE_PAIR(BGl_symbol2181z00zz__expander_boolz00, BNIL); 
BGl_symbol2183z00zz__expander_boolz00 = 
string_to_symbol("or"); 
BGl_symbol2184z00zz__expander_boolz00 = 
string_to_symbol("cond"); 
BGl_symbol2185z00zz__expander_boolz00 = 
string_to_symbol("=>"); 
BGl_symbol2187z00zz__expander_boolz00 = 
string_to_symbol("test-result"); 
BGl_symbol2188z00zz__expander_boolz00 = 
string_to_symbol("thunk2"); 
BGl_symbol2189z00zz__expander_boolz00 = 
string_to_symbol("lambda"); 
return ( 
BGl_symbol2190z00zz__expander_boolz00 = 
string_to_symbol("thunk3"), BUNSPEC) ;} 
}



/* expand-or */
BGL_EXPORTED_DEF obj_t BGl_expandzd2orzd2zz__expander_boolz00(obj_t BgL_expz00_2)
{ AN_OBJECT;
{ /* ./Eval/expdbool.scm 62 */
return 
BGl_replacez12z12zz__prognz00(BgL_expz00_2, 
BGl_loopz72z72zz__expander_boolz00(BgL_expz00_2, 
CDR(BgL_expz00_2)));} 
}



/* loop' */
obj_t BGl_loopz72z72zz__expander_boolz00(obj_t BgL_expz00_875, obj_t BgL_sorz00_360)
{ AN_OBJECT;
{ /* ./Eval/expdbool.scm 63 */
if(
NULLP(BgL_sorz00_360))
{ /* ./Eval/expdbool.scm 65 */
return BFALSE;}  else 
{ /* ./Eval/expdbool.scm 65 */
if(
PAIRP(BgL_sorz00_360))
{ /* ./Eval/expdbool.scm 69 */
bool_t BgL_testz00_902;
{ /* ./Eval/expdbool.scm 69 */
obj_t BgL_auxz00_903;
BgL_auxz00_903 = 
CDR(BgL_sorz00_360); 
BgL_testz00_902 = 
NULLP(BgL_auxz00_903); } 
if(BgL_testz00_902)
{ /* ./Eval/expdbool.scm 69 */
return 
CAR(BgL_sorz00_360);}  else 
{ /* ./Eval/expdbool.scm 69 */
{ /* ./Eval/expdbool.scm 72 */
obj_t BgL_testz00_366;
{ /* ./Eval/expdbool.scm 72 */
obj_t BgL_symbolz00_712;
{ /* ./Eval/expdbool.scm 72 */
obj_t BgL_arg1006z00_713;
BgL_arg1006z00_713 = 
string_append_3(BGl_string2172z00zz__expander_boolz00, BGl_string2173z00zz__expander_boolz00, BGl_string2174z00zz__expander_boolz00); 
BgL_symbolz00_712 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BgL_arg1006z00_713, BEOA); } 
BGl_putpropz12z12zz__r4_symbols_6_4z00(BgL_symbolz00_712, BGl_symbol2175z00zz__expander_boolz00, BTRUE); 
BgL_testz00_366 = BgL_symbolz00_712; } 
{ /* ./Eval/expdbool.scm 72 */
obj_t BgL_resz00_367;
{ /* ./Eval/expdbool.scm 73 */
obj_t BgL_arg1036z00_374;obj_t BgL_arg1037z00_375;
BgL_arg1036z00_374 = BGl_symbol2176z00zz__expander_boolz00; 
{ /* ./Eval/expdbool.scm 73 */
obj_t BgL_arg1041z00_376;obj_t BgL_arg1042z00_377;
{ /* ./Eval/expdbool.scm 73 */
obj_t BgL_arg1045z00_378;
{ /* ./Eval/expdbool.scm 73 */
obj_t BgL_arg1049z00_380;
{ /* ./Eval/expdbool.scm 73 */
obj_t BgL_auxz00_911;
BgL_auxz00_911 = 
CAR(BgL_sorz00_360); 
BgL_arg1049z00_380 = 
MAKE_PAIR(BgL_auxz00_911, BNIL); } 
BgL_arg1045z00_378 = 
MAKE_PAIR(BgL_testz00_366, BgL_arg1049z00_380); } 
BgL_arg1041z00_376 = 
MAKE_PAIR(BgL_arg1045z00_378, BNIL); } 
{ /* ./Eval/expdbool.scm 74 */
obj_t BgL_arg1058z00_383;
{ /* ./Eval/expdbool.scm 74 */
obj_t BgL_arg1064z00_385;obj_t BgL_arg1065z00_386;
BgL_arg1064z00_385 = BGl_symbol2177z00zz__expander_boolz00; 
{ /* ./Eval/expdbool.scm 74 */
obj_t BgL_arg1068z00_387;
{ /* ./Eval/expdbool.scm 74 */
obj_t BgL_arg1073z00_388;
{ /* ./Eval/expdbool.scm 74 */
obj_t BgL_auxz00_916;
BgL_auxz00_916 = 
BGl_loopz72z72zz__expander_boolz00(BgL_expz00_875, 
CDR(BgL_sorz00_360)); 
BgL_arg1073z00_388 = 
MAKE_PAIR(BgL_auxz00_916, BNIL); } 
BgL_arg1068z00_387 = 
MAKE_PAIR(BgL_testz00_366, BgL_arg1073z00_388); } 
BgL_arg1065z00_386 = 
MAKE_PAIR(BgL_testz00_366, BgL_arg1068z00_387); } 
BgL_arg1058z00_383 = 
MAKE_PAIR(BgL_arg1064z00_385, BgL_arg1065z00_386); } 
BgL_arg1042z00_377 = 
MAKE_PAIR(BgL_arg1058z00_383, BNIL); } 
BgL_arg1037z00_375 = 
MAKE_PAIR(BgL_arg1041z00_376, BgL_arg1042z00_377); } 
BgL_resz00_367 = 
MAKE_PAIR(BgL_arg1036z00_374, BgL_arg1037z00_375); } 
{ /* ./Eval/expdbool.scm 73 */

{ /* ./Eval/expdbool.scm 76 */
bool_t BgL_test1018z00_368;
{ /* ./Eval/expdbool.scm 76 */
obj_t BgL_auxz00_926;
BgL_auxz00_926 = 
CAR(BgL_sorz00_360); 
BgL_test1018z00_368 = 
EXTENDED_PAIRP(BgL_auxz00_926); } 
if(BgL_test1018z00_368)
{ /* ./Eval/expdbool.scm 76 */
{ /* ./Eval/expdbool.scm 77 */
obj_t BgL_arg1020z00_369;obj_t BgL_arg1021z00_370;obj_t BgL_arg1022z00_371;
BgL_arg1020z00_369 = 
CAR(BgL_resz00_367); 
BgL_arg1021z00_370 = 
CDR(BgL_resz00_367); 
{ /* ./Eval/expdbool.scm 77 */
obj_t BgL_auxz00_932;
BgL_auxz00_932 = 
CAR(BgL_sorz00_360); 
BgL_arg1022z00_371 = 
CER(BgL_auxz00_932); } 
{ /* ./Eval/expdbool.scm 77 */
obj_t BgL_res2138z00_725;
BgL_res2138z00_725 = 
MAKE_EXTENDED_PAIR(BgL_arg1020z00_369, BgL_arg1021z00_370, BgL_arg1022z00_371); 
return BgL_res2138z00_725;} } }  else 
{ /* ./Eval/expdbool.scm 76 */
return BgL_resz00_367;} } } } } } }  else 
{ /* ./Eval/expdbool.scm 67 */
FAILURE(BGl_string2173z00zz__expander_boolz00,BGl_string2178z00zz__expander_boolz00,BgL_expz00_875);} } } 
}



/* _expand-or */
obj_t BGl__expandzd2orzd2zz__expander_boolz00(obj_t BgL_envz00_868, obj_t BgL_expz00_869)
{ AN_OBJECT;
{ /* ./Eval/expdbool.scm 62 */
return 
BGl_expandzd2orzd2zz__expander_boolz00(BgL_expz00_869);} 
}



/* expand-and */
BGL_EXPORTED_DEF obj_t BGl_expandzd2andzd2zz__expander_boolz00(obj_t BgL_expz00_3)
{ AN_OBJECT;
{ /* ./Eval/expdbool.scm 85 */
return 
BGl_replacez12z12zz__prognz00(BgL_expz00_3, 
BGl_loopz00zz__expander_boolz00(BgL_expz00_3, 
CDR(BgL_expz00_3)));} 
}



/* loop */
obj_t BGl_loopz00zz__expander_boolz00(obj_t BgL_expz00_874, obj_t BgL_sandz00_394)
{ AN_OBJECT;
{ /* ./Eval/expdbool.scm 86 */
if(
NULLP(BgL_sandz00_394))
{ /* ./Eval/expdbool.scm 88 */
return BTRUE;}  else 
{ /* ./Eval/expdbool.scm 88 */
if(
PAIRP(BgL_sandz00_394))
{ /* ./Eval/expdbool.scm 92 */
bool_t BgL_testz00_945;
{ /* ./Eval/expdbool.scm 92 */
obj_t BgL_auxz00_946;
BgL_auxz00_946 = 
CDR(BgL_sandz00_394); 
BgL_testz00_945 = 
NULLP(BgL_auxz00_946); } 
if(BgL_testz00_945)
{ /* ./Eval/expdbool.scm 92 */
return 
CAR(BgL_sandz00_394);}  else 
{ /* ./Eval/expdbool.scm 92 */
{ /* ./Eval/expdbool.scm 95 */
obj_t BgL_testz00_400;
{ /* ./Eval/expdbool.scm 95 */
obj_t BgL_symbolz00_736;
{ /* ./Eval/expdbool.scm 95 */
obj_t BgL_arg1006z00_737;
BgL_arg1006z00_737 = 
string_append_3(BGl_string2172z00zz__expander_boolz00, BGl_string2179z00zz__expander_boolz00, BGl_string2174z00zz__expander_boolz00); 
BgL_symbolz00_736 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BgL_arg1006z00_737, BEOA); } 
BGl_putpropz12z12zz__r4_symbols_6_4z00(BgL_symbolz00_736, BGl_symbol2175z00zz__expander_boolz00, BTRUE); 
BgL_testz00_400 = BgL_symbolz00_736; } 
{ /* ./Eval/expdbool.scm 95 */
obj_t BgL_resz00_401;
{ /* ./Eval/expdbool.scm 96 */
obj_t BgL_arg1121z00_408;obj_t BgL_arg1122z00_409;
BgL_arg1121z00_408 = BGl_symbol2176z00zz__expander_boolz00; 
{ /* ./Eval/expdbool.scm 96 */
obj_t BgL_arg1125z00_410;obj_t BgL_arg1126z00_411;
{ /* ./Eval/expdbool.scm 96 */
obj_t BgL_arg1130z00_412;
{ /* ./Eval/expdbool.scm 96 */
obj_t BgL_arg1134z00_414;
{ /* ./Eval/expdbool.scm 96 */
obj_t BgL_auxz00_954;
BgL_auxz00_954 = 
CAR(BgL_sandz00_394); 
BgL_arg1134z00_414 = 
MAKE_PAIR(BgL_auxz00_954, BNIL); } 
BgL_arg1130z00_412 = 
MAKE_PAIR(BgL_testz00_400, BgL_arg1134z00_414); } 
BgL_arg1125z00_410 = 
MAKE_PAIR(BgL_arg1130z00_412, BNIL); } 
{ /* ./Eval/expdbool.scm 97 */
obj_t BgL_arg1142z00_417;
{ /* ./Eval/expdbool.scm 97 */
obj_t BgL_arg1147z00_419;obj_t BgL_arg1148z00_420;
BgL_arg1147z00_419 = BGl_symbol2177z00zz__expander_boolz00; 
{ /* ./Eval/expdbool.scm 97 */
obj_t BgL_arg1151z00_421;
{ /* ./Eval/expdbool.scm 97 */
obj_t BgL_arg1154z00_422;obj_t BgL_arg1155z00_423;
BgL_arg1154z00_422 = 
BGl_loopz00zz__expander_boolz00(BgL_expz00_874, 
CDR(BgL_sandz00_394)); 
BgL_arg1155z00_423 = 
MAKE_PAIR(BFALSE, BNIL); 
BgL_arg1151z00_421 = 
MAKE_PAIR(BgL_arg1154z00_422, BgL_arg1155z00_423); } 
BgL_arg1148z00_420 = 
MAKE_PAIR(BgL_testz00_400, BgL_arg1151z00_421); } 
BgL_arg1142z00_417 = 
MAKE_PAIR(BgL_arg1147z00_419, BgL_arg1148z00_420); } 
BgL_arg1126z00_411 = 
MAKE_PAIR(BgL_arg1142z00_417, BNIL); } 
BgL_arg1122z00_409 = 
MAKE_PAIR(BgL_arg1125z00_410, BgL_arg1126z00_411); } 
BgL_resz00_401 = 
MAKE_PAIR(BgL_arg1121z00_408, BgL_arg1122z00_409); } 
{ /* ./Eval/expdbool.scm 96 */

{ /* ./Eval/expdbool.scm 99 */
bool_t BgL_test1103z00_402;
{ /* ./Eval/expdbool.scm 99 */
obj_t BgL_auxz00_968;
BgL_auxz00_968 = 
CAR(BgL_sandz00_394); 
BgL_test1103z00_402 = 
EXTENDED_PAIRP(BgL_auxz00_968); } 
if(BgL_test1103z00_402)
{ /* ./Eval/expdbool.scm 99 */
{ /* ./Eval/expdbool.scm 100 */
obj_t BgL_arg1105z00_403;obj_t BgL_arg1106z00_404;obj_t BgL_arg1107z00_405;
BgL_arg1105z00_403 = 
CAR(BgL_resz00_401); 
BgL_arg1106z00_404 = 
CDR(BgL_resz00_401); 
{ /* ./Eval/expdbool.scm 100 */
obj_t BgL_auxz00_974;
BgL_auxz00_974 = 
CAR(BgL_sandz00_394); 
BgL_arg1107z00_405 = 
CER(BgL_auxz00_974); } 
{ /* ./Eval/expdbool.scm 100 */
obj_t BgL_res2139z00_749;
BgL_res2139z00_749 = 
MAKE_EXTENDED_PAIR(BgL_arg1105z00_403, BgL_arg1106z00_404, BgL_arg1107z00_405); 
return BgL_res2139z00_749;} } }  else 
{ /* ./Eval/expdbool.scm 99 */
return BgL_resz00_401;} } } } } } }  else 
{ /* ./Eval/expdbool.scm 90 */
FAILURE(BGl_string2179z00zz__expander_boolz00,BGl_string2178z00zz__expander_boolz00,BgL_expz00_874);} } } 
}



/* _expand-and */
obj_t BGl__expandzd2andzd2zz__expander_boolz00(obj_t BgL_envz00_870, obj_t BgL_expz00_871)
{ AN_OBJECT;
{ /* ./Eval/expdbool.scm 85 */
return 
BGl_expandzd2andzd2zz__expander_boolz00(BgL_expz00_871);} 
}



/* expand-cond */
BGL_EXPORTED_DEF obj_t BGl_expandzd2condzd2zz__expander_boolz00(obj_t BgL_expz00_4)
{ AN_OBJECT;
{ /* ./Eval/expdbool.scm 108 */
{ /* ./Eval/expdbool.scm 109 */
obj_t BgL_clausesz00_426;
BgL_clausesz00_426 = 
CDR(BgL_expz00_4); 
{ /* ./Eval/expdbool.scm 109 */
obj_t BgL_clause1z00_427;
if(
PAIRP(BgL_clausesz00_426))
{ /* ./Eval/expdbool.scm 110 */
BgL_clause1z00_427 = 
CAR(BgL_clausesz00_426); }  else 
{ /* ./Eval/expdbool.scm 110 */
BgL_clause1z00_427 = BNIL; } 
{ /* ./Eval/expdbool.scm 110 */
obj_t BgL_clause2zb2zb2_428;
if(
PAIRP(BgL_clause1z00_427))
{ /* ./Eval/expdbool.scm 113 */
BgL_clause2zb2zb2_428 = 
CDR(BgL_clausesz00_426); }  else 
{ /* ./Eval/expdbool.scm 113 */
BgL_clause2zb2zb2_428 = BFALSE; } 
{ /* ./Eval/expdbool.scm 113 */

if(
NULLP(BgL_clause1z00_427))
{ /* ./Eval/expdbool.scm 117 */
return BFALSE;}  else 
{ /* ./Eval/expdbool.scm 119 */
bool_t BgL_test1171z00_430;
if(
PAIRP(BgL_clause1z00_427))
{ /* ./Eval/expdbool.scm 119 */
BgL_test1171z00_430 = 
BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_clause1z00_427, BGl_list2180z00zz__expander_boolz00); }  else 
{ /* ./Eval/expdbool.scm 119 */
BgL_test1171z00_430 = ((bool_t)1); } 
if(BgL_test1171z00_430)
{ /* ./Eval/expdbool.scm 119 */
FAILURE(BGl_string2182z00zz__expander_boolz00,BGl_string2178z00zz__expander_boolz00,BgL_expz00_4);}  else 
{ /* ./Eval/expdbool.scm 121 */
bool_t BgL_testz00_994;
{ /* ./Eval/expdbool.scm 121 */
obj_t BgL_auxz00_995;
BgL_auxz00_995 = 
CDR(BgL_clause1z00_427); 
BgL_testz00_994 = 
NULLP(BgL_auxz00_995); } 
if(BgL_testz00_994)
{ /* ./Eval/expdbool.scm 121 */
{ /* ./Eval/expdbool.scm 122 */
obj_t BgL_resz00_432;
{ /* ./Eval/expdbool.scm 122 */
obj_t BgL_arg1193z00_439;obj_t BgL_arg1194z00_440;
BgL_arg1193z00_439 = BGl_symbol2183z00zz__expander_boolz00; 
{ /* ./Eval/expdbool.scm 122 */
obj_t BgL_arg1197z00_441;obj_t BgL_arg1198z00_442;
BgL_arg1197z00_441 = 
CAR(BgL_clause1z00_427); 
{ /* ./Eval/expdbool.scm 122 */
obj_t BgL_arg1202z00_443;
{ /* ./Eval/expdbool.scm 122 */
obj_t BgL_auxz00_999;
BgL_auxz00_999 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_clause2zb2zb2_428, BNIL); 
BgL_arg1202z00_443 = 
MAKE_PAIR(BGl_symbol2184z00zz__expander_boolz00, BgL_auxz00_999); } 
BgL_arg1198z00_442 = 
MAKE_PAIR(BgL_arg1202z00_443, BNIL); } 
BgL_arg1194z00_440 = 
MAKE_PAIR(BgL_arg1197z00_441, BgL_arg1198z00_442); } 
BgL_resz00_432 = 
MAKE_PAIR(BgL_arg1193z00_439, BgL_arg1194z00_440); } 
{ /* ./Eval/expdbool.scm 123 */
bool_t BgL_test1174z00_433;
{ /* ./Eval/expdbool.scm 123 */
obj_t BgL_auxz00_1005;
BgL_auxz00_1005 = 
CAR(BgL_clause1z00_427); 
BgL_test1174z00_433 = 
EXTENDED_PAIRP(BgL_auxz00_1005); } 
if(BgL_test1174z00_433)
{ /* ./Eval/expdbool.scm 124 */
obj_t BgL_arg1177z00_434;obj_t BgL_arg1178z00_435;obj_t BgL_arg1179z00_436;
BgL_arg1177z00_434 = 
CAR(BgL_resz00_432); 
BgL_arg1178z00_435 = 
CDR(BgL_resz00_432); 
{ /* ./Eval/expdbool.scm 124 */
obj_t BgL_auxz00_1011;
BgL_auxz00_1011 = 
CAR(BgL_clause1z00_427); 
BgL_arg1179z00_436 = 
CER(BgL_auxz00_1011); } 
{ /* ./Eval/expdbool.scm 124 */
obj_t BgL_res2140z00_775;
BgL_res2140z00_775 = 
MAKE_EXTENDED_PAIR(BgL_arg1177z00_434, BgL_arg1178z00_435, BgL_arg1179z00_436); 
return BgL_res2140z00_775;} }  else 
{ /* ./Eval/expdbool.scm 123 */
return 
BGl_replacez12z12zz__prognz00(BgL_expz00_4, BgL_resz00_432);} } } }  else 
{ /* ./Eval/expdbool.scm 126 */
bool_t BgL_test1210z00_447;
{ /* ./Eval/expdbool.scm 126 */
bool_t BgL_testz00_1016;
{ /* ./Eval/expdbool.scm 126 */
obj_t BgL_auxz00_1017;
{ /* ./Eval/expdbool.scm 126 */
obj_t BgL_auxz00_1018;
BgL_auxz00_1018 = 
CDR(BgL_clause1z00_427); 
BgL_auxz00_1017 = 
CAR(BgL_auxz00_1018); } 
BgL_testz00_1016 = 
(BgL_auxz00_1017==BGl_symbol2185z00zz__expander_boolz00); } 
if(BgL_testz00_1016)
{ /* ./Eval/expdbool.scm 126 */
long BgL_auxz00_1022;
BgL_auxz00_1022 = 
bgl_list_length(BgL_clause1z00_427); 
BgL_test1210z00_447 = 
(BgL_auxz00_1022==((long)3)); }  else 
{ /* ./Eval/expdbool.scm 126 */
BgL_test1210z00_447 = ((bool_t)0); } } 
if(BgL_test1210z00_447)
{ /* ./Eval/expdbool.scm 126 */
{ /* ./Eval/expdbool.scm 127 */
obj_t BgL_auxz00_448;
{ /* ./Eval/expdbool.scm 127 */
obj_t BgL_symbolz00_783;
{ /* ./Eval/expdbool.scm 127 */
obj_t BgL_arg1006z00_784;
BgL_arg1006z00_784 = 
string_append_3(BGl_string2172z00zz__expander_boolz00, BGl_string2186z00zz__expander_boolz00, BGl_string2174z00zz__expander_boolz00); 
BgL_symbolz00_783 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BgL_arg1006z00_784, BEOA); } 
BGl_putpropz12z12zz__r4_symbols_6_4z00(BgL_symbolz00_783, BGl_symbol2175z00zz__expander_boolz00, BTRUE); 
BgL_auxz00_448 = BgL_symbolz00_783; } 
{ /* ./Eval/expdbool.scm 127 */
obj_t BgL_resz00_449;
{ /* ./Eval/expdbool.scm 128 */
obj_t BgL_arg1229z00_456;obj_t BgL_arg1230z00_457;
BgL_arg1229z00_456 = BGl_symbol2176z00zz__expander_boolz00; 
{ /* ./Eval/expdbool.scm 128 */
obj_t BgL_arg1233z00_458;obj_t BgL_arg1234z00_459;
{ /* ./Eval/expdbool.scm 128 */
obj_t BgL_arg1237z00_460;obj_t BgL_arg1238z00_461;
{ /* ./Eval/expdbool.scm 128 */
obj_t BgL_arg1241z00_462;obj_t BgL_arg1243z00_463;
BgL_arg1241z00_462 = BGl_symbol2187z00zz__expander_boolz00; 
{ /* ./Eval/expdbool.scm 128 */
obj_t BgL_auxz00_1030;
BgL_auxz00_1030 = 
CAR(BgL_clause1z00_427); 
BgL_arg1243z00_463 = 
MAKE_PAIR(BgL_auxz00_1030, BNIL); } 
BgL_arg1237z00_460 = 
MAKE_PAIR(BgL_arg1241z00_462, BgL_arg1243z00_463); } 
{ /* ./Eval/expdbool.scm 129 */
obj_t BgL_arg1254z00_466;obj_t BgL_arg1255z00_467;
{ /* ./Eval/expdbool.scm 129 */
obj_t BgL_arg1258z00_468;obj_t BgL_arg1259z00_469;
BgL_arg1258z00_468 = BGl_symbol2188z00zz__expander_boolz00; 
{ /* ./Eval/expdbool.scm 129 */
obj_t BgL_arg1262z00_470;
{ /* ./Eval/expdbool.scm 129 */
obj_t BgL_arg1268z00_472;obj_t BgL_arg1269z00_473;
BgL_arg1268z00_472 = BGl_symbol2189z00zz__expander_boolz00; 
{ /* ./Eval/expdbool.scm 129 */
obj_t BgL_arg1273z00_474;obj_t BgL_arg1274z00_475;
BgL_arg1273z00_474 = 
MAKE_PAIR(BgL_auxz00_448, BNIL); 
{ /* ./Eval/expdbool.scm 129 */
obj_t BgL_arg1278z00_476;
{ /* ./Eval/expdbool.scm 129 */
obj_t BgL_arg1282z00_478;obj_t BgL_arg1283z00_479;
{ /* ./Eval/expdbool.scm 129 */
obj_t BgL_auxz00_1035;
{ /* ./Eval/expdbool.scm 129 */
obj_t BgL_auxz00_1036;
BgL_auxz00_1036 = 
CDR(BgL_clause1z00_427); 
BgL_auxz00_1035 = 
CDR(BgL_auxz00_1036); } 
BgL_arg1282z00_478 = 
CAR(BgL_auxz00_1035); } 
BgL_arg1283z00_479 = 
MAKE_PAIR(BgL_auxz00_448, BNIL); 
BgL_arg1278z00_476 = 
MAKE_PAIR(BgL_arg1282z00_478, BgL_arg1283z00_479); } 
BgL_arg1274z00_475 = 
MAKE_PAIR(BgL_arg1278z00_476, BNIL); } 
BgL_arg1269z00_473 = 
MAKE_PAIR(BgL_arg1273z00_474, BgL_arg1274z00_475); } 
BgL_arg1262z00_470 = 
MAKE_PAIR(BgL_arg1268z00_472, BgL_arg1269z00_473); } 
BgL_arg1259z00_469 = 
MAKE_PAIR(BgL_arg1262z00_470, BNIL); } 
BgL_arg1254z00_466 = 
MAKE_PAIR(BgL_arg1258z00_468, BgL_arg1259z00_469); } 
{ /* ./Eval/expdbool.scm 130 */
obj_t BgL_arg1288z00_480;
{ /* ./Eval/expdbool.scm 130 */
obj_t BgL_arg1292z00_482;obj_t BgL_arg1293z00_483;
BgL_arg1292z00_482 = BGl_symbol2190z00zz__expander_boolz00; 
{ /* ./Eval/expdbool.scm 130 */
obj_t BgL_arg1296z00_484;
{ /* ./Eval/expdbool.scm 130 */
obj_t BgL_arg1300z00_486;obj_t BgL_arg1301z00_487;
BgL_arg1300z00_486 = BGl_symbol2189z00zz__expander_boolz00; 
{ /* ./Eval/expdbool.scm 130 */
obj_t BgL_arg1305z00_489;
{ /* ./Eval/expdbool.scm 130 */
obj_t BgL_arg1308z00_490;
{ /* ./Eval/expdbool.scm 130 */
obj_t BgL_auxz00_1047;
BgL_auxz00_1047 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_clause2zb2zb2_428, BNIL); 
BgL_arg1308z00_490 = 
MAKE_PAIR(BGl_symbol2184z00zz__expander_boolz00, BgL_auxz00_1047); } 
BgL_arg1305z00_489 = 
MAKE_PAIR(BgL_arg1308z00_490, BNIL); } 
BgL_arg1301z00_487 = 
MAKE_PAIR(BNIL, BgL_arg1305z00_489); } 
BgL_arg1296z00_484 = 
MAKE_PAIR(BgL_arg1300z00_486, BgL_arg1301z00_487); } 
BgL_arg1293z00_483 = 
MAKE_PAIR(BgL_arg1296z00_484, BNIL); } 
BgL_arg1288z00_480 = 
MAKE_PAIR(BgL_arg1292z00_482, BgL_arg1293z00_483); } 
BgL_arg1255z00_467 = 
MAKE_PAIR(BgL_arg1288z00_480, BNIL); } 
BgL_arg1238z00_461 = 
MAKE_PAIR(BgL_arg1254z00_466, BgL_arg1255z00_467); } 
BgL_arg1233z00_458 = 
MAKE_PAIR(BgL_arg1237z00_460, BgL_arg1238z00_461); } 
{ /* ./Eval/expdbool.scm 131 */
obj_t BgL_arg1317z00_494;
{ /* ./Eval/expdbool.scm 131 */
obj_t BgL_arg1321z00_496;obj_t BgL_arg1322z00_497;
BgL_arg1321z00_496 = BGl_symbol2177z00zz__expander_boolz00; 
{ /* ./Eval/expdbool.scm 131 */
obj_t BgL_arg1326z00_498;obj_t BgL_arg1327z00_499;
BgL_arg1326z00_498 = BGl_symbol2187z00zz__expander_boolz00; 
{ /* ./Eval/expdbool.scm 131 */
obj_t BgL_arg1330z00_500;obj_t BgL_arg1331z00_501;
{ /* ./Eval/expdbool.scm 131 */
obj_t BgL_arg1334z00_502;obj_t BgL_arg1335z00_503;
BgL_arg1334z00_502 = BGl_symbol2188z00zz__expander_boolz00; 
BgL_arg1335z00_503 = 
MAKE_PAIR(BGl_symbol2187z00zz__expander_boolz00, BNIL); 
BgL_arg1330z00_500 = 
MAKE_PAIR(BgL_arg1334z00_502, BgL_arg1335z00_503); } 
{ /* ./Eval/expdbool.scm 131 */
obj_t BgL_arg1340z00_504;
BgL_arg1340z00_504 = 
MAKE_PAIR(BGl_symbol2190z00zz__expander_boolz00, BNIL); 
BgL_arg1331z00_501 = 
MAKE_PAIR(BgL_arg1340z00_504, BNIL); } 
BgL_arg1327z00_499 = 
MAKE_PAIR(BgL_arg1330z00_500, BgL_arg1331z00_501); } 
BgL_arg1322z00_497 = 
MAKE_PAIR(BgL_arg1326z00_498, BgL_arg1327z00_499); } 
BgL_arg1317z00_494 = 
MAKE_PAIR(BgL_arg1321z00_496, BgL_arg1322z00_497); } 
BgL_arg1234z00_459 = 
MAKE_PAIR(BgL_arg1317z00_494, BNIL); } 
BgL_arg1230z00_457 = 
MAKE_PAIR(BgL_arg1233z00_458, BgL_arg1234z00_459); } 
BgL_resz00_449 = 
MAKE_PAIR(BgL_arg1229z00_456, BgL_arg1230z00_457); } 
{ /* ./Eval/expdbool.scm 128 */

{ /* ./Eval/expdbool.scm 132 */
bool_t BgL_test1211z00_450;
{ /* ./Eval/expdbool.scm 132 */
obj_t BgL_auxz00_1068;
BgL_auxz00_1068 = 
CAR(BgL_clause1z00_427); 
BgL_test1211z00_450 = 
EXTENDED_PAIRP(BgL_auxz00_1068); } 
if(BgL_test1211z00_450)
{ /* ./Eval/expdbool.scm 133 */
obj_t BgL_arg1213z00_451;obj_t BgL_arg1214z00_452;obj_t BgL_arg1215z00_453;
BgL_arg1213z00_451 = 
CAR(BgL_resz00_449); 
BgL_arg1214z00_452 = 
CDR(BgL_resz00_449); 
{ /* ./Eval/expdbool.scm 133 */
obj_t BgL_auxz00_1074;
BgL_auxz00_1074 = 
CAR(BgL_clause1z00_427); 
BgL_arg1215z00_453 = 
CER(BgL_auxz00_1074); } 
{ /* ./Eval/expdbool.scm 133 */
obj_t BgL_res2141z00_801;
BgL_res2141z00_801 = 
MAKE_EXTENDED_PAIR(BgL_arg1213z00_451, BgL_arg1214z00_452, BgL_arg1215z00_453); 
return BgL_res2141z00_801;} }  else 
{ /* ./Eval/expdbool.scm 132 */
return 
BGl_replacez12z12zz__prognz00(BgL_expz00_4, BgL_resz00_449);} } } } } }  else 
{ /* ./Eval/expdbool.scm 135 */
bool_t BgL_testz00_1079;
{ /* ./Eval/expdbool.scm 135 */
obj_t BgL_auxz00_1080;
BgL_auxz00_1080 = 
CAR(BgL_clause1z00_427); 
BgL_testz00_1079 = 
(BgL_auxz00_1080==BGl_symbol2181z00zz__expander_boolz00); } 
if(BgL_testz00_1079)
{ /* ./Eval/expdbool.scm 135 */
return 
BGl_normaliza7ezd2bodyz75zz__prognz00(
CDR(BgL_clause1z00_427));}  else 
{ /* ./Eval/expdbool.scm 135 */
{ /* ./Eval/expdbool.scm 138 */
obj_t BgL_ncondz00_508;
{ /* ./Eval/expdbool.scm 138 */
obj_t BgL_ncz00_535;
{ /* ./Eval/expdbool.scm 138 */
obj_t BgL_auxz00_1085;
BgL_auxz00_1085 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_clause2zb2zb2_428, BNIL); 
BgL_ncz00_535 = 
MAKE_PAIR(BGl_symbol2184z00zz__expander_boolz00, BgL_auxz00_1085); } 
{ /* ./Eval/expdbool.scm 140 */
bool_t BgL_test1420z00_536;
if(
PAIRP(BgL_clause2zb2zb2_428))
{ /* ./Eval/expdbool.scm 140 */
obj_t BgL_auxz00_1090;
BgL_auxz00_1090 = 
CAR(BgL_clause2zb2zb2_428); 
BgL_test1420z00_536 = 
EXTENDED_PAIRP(BgL_auxz00_1090); }  else 
{ /* ./Eval/expdbool.scm 140 */
BgL_test1420z00_536 = ((bool_t)0); } 
if(BgL_test1420z00_536)
{ /* ./Eval/expdbool.scm 140 */
{ /* ./Eval/expdbool.scm 141 */
obj_t BgL_arg1422z00_537;obj_t BgL_arg1423z00_538;obj_t BgL_arg1424z00_539;
BgL_arg1422z00_537 = 
CAR(BgL_ncz00_535); 
BgL_arg1423z00_538 = 
CDR(BgL_ncz00_535); 
{ /* ./Eval/expdbool.scm 141 */
obj_t BgL_auxz00_1096;
BgL_auxz00_1096 = 
CAR(BgL_clause2zb2zb2_428); 
BgL_arg1424z00_539 = 
CER(BgL_auxz00_1096); } 
{ /* ./Eval/expdbool.scm 141 */
obj_t BgL_res2142z00_814;
BgL_res2142z00_814 = 
MAKE_EXTENDED_PAIR(BgL_arg1422z00_537, BgL_arg1423z00_538, BgL_arg1424z00_539); 
BgL_ncondz00_508 = BgL_res2142z00_814; } } }  else 
{ /* ./Eval/expdbool.scm 140 */
BgL_ncondz00_508 = BgL_ncz00_535; } } } 
{ /* ./Eval/expdbool.scm 138 */
obj_t BgL_resz00_509;
{ /* ./Eval/expdbool.scm 144 */
obj_t BgL_arg1401z00_528;obj_t BgL_arg1402z00_529;
BgL_arg1401z00_528 = BGl_symbol2177z00zz__expander_boolz00; 
{ /* ./Eval/expdbool.scm 144 */
obj_t BgL_arg1406z00_530;obj_t BgL_arg1407z00_531;
BgL_arg1406z00_530 = 
CAR(BgL_clause1z00_427); 
{ /* ./Eval/expdbool.scm 145 */
obj_t BgL_arg1412z00_532;obj_t BgL_arg1413z00_533;
BgL_arg1412z00_532 = 
BGl_normaliza7ezd2bodyz75zz__prognz00(
CDR(BgL_clause1z00_427)); 
BgL_arg1413z00_533 = 
MAKE_PAIR(BgL_ncondz00_508, BNIL); 
BgL_arg1407z00_531 = 
MAKE_PAIR(BgL_arg1412z00_532, BgL_arg1413z00_533); } 
BgL_arg1402z00_529 = 
MAKE_PAIR(BgL_arg1406z00_530, BgL_arg1407z00_531); } 
BgL_resz00_509 = 
MAKE_PAIR(BgL_arg1401z00_528, BgL_arg1402z00_529); } 
{ /* ./Eval/expdbool.scm 144 */

{ /* ./Eval/expdbool.scm 148 */
bool_t BgL_test1350z00_510;
{ /* ./Eval/expdbool.scm 148 */
obj_t BgL_auxz00_1107;
BgL_auxz00_1107 = 
CAR(BgL_clause1z00_427); 
BgL_test1350z00_510 = 
EXTENDED_PAIRP(BgL_auxz00_1107); } 
if(BgL_test1350z00_510)
{ /* ./Eval/expdbool.scm 148 */
{ /* ./Eval/expdbool.scm 149 */
obj_t BgL_arg1352z00_511;obj_t BgL_arg1354z00_512;obj_t BgL_arg1355z00_513;
BgL_arg1352z00_511 = 
CAR(BgL_resz00_509); 
BgL_arg1354z00_512 = 
CDR(BgL_resz00_509); 
{ /* ./Eval/expdbool.scm 149 */
obj_t BgL_auxz00_1113;
BgL_auxz00_1113 = 
CAR(BgL_clause1z00_427); 
BgL_arg1355z00_513 = 
CER(BgL_auxz00_1113); } 
{ /* ./Eval/expdbool.scm 149 */
obj_t BgL_res2143z00_826;
BgL_res2143z00_826 = 
MAKE_EXTENDED_PAIR(BgL_arg1352z00_511, BgL_arg1354z00_512, BgL_arg1355z00_513); 
return BgL_res2143z00_826;} } }  else 
{ /* ./Eval/expdbool.scm 150 */
bool_t BgL_test1363z00_515;
BgL_test1363z00_515 = 
EXTENDED_PAIRP(BgL_clause1z00_427); 
if(BgL_test1363z00_515)
{ /* ./Eval/expdbool.scm 150 */
{ /* ./Eval/expdbool.scm 151 */
obj_t BgL_arg1365z00_516;obj_t BgL_arg1366z00_517;obj_t BgL_arg1368z00_518;
BgL_arg1365z00_516 = 
CAR(BgL_resz00_509); 
BgL_arg1366z00_517 = 
CDR(BgL_resz00_509); 
BgL_arg1368z00_518 = 
CER(BgL_clause1z00_427); 
{ /* ./Eval/expdbool.scm 151 */
obj_t BgL_res2144z00_834;
BgL_res2144z00_834 = 
MAKE_EXTENDED_PAIR(BgL_arg1365z00_516, BgL_arg1366z00_517, BgL_arg1368z00_518); 
return BgL_res2144z00_834;} } }  else 
{ /* ./Eval/expdbool.scm 152 */
bool_t BgL_test1373z00_519;
{ /* ./Eval/expdbool.scm 152 */
bool_t BgL_testz00_1123;
{ /* ./Eval/expdbool.scm 152 */
obj_t BgL_auxz00_1124;
BgL_auxz00_1124 = 
CDR(BgL_clause1z00_427); 
BgL_testz00_1123 = 
PAIRP(BgL_auxz00_1124); } 
if(BgL_testz00_1123)
{ /* ./Eval/expdbool.scm 152 */
obj_t BgL_auxz00_1127;
{ /* ./Eval/expdbool.scm 152 */
obj_t BgL_auxz00_1128;
BgL_auxz00_1128 = 
CDR(BgL_clause1z00_427); 
BgL_auxz00_1127 = 
CAR(BgL_auxz00_1128); } 
BgL_test1373z00_519 = 
EXTENDED_PAIRP(BgL_auxz00_1127); }  else 
{ /* ./Eval/expdbool.scm 152 */
BgL_test1373z00_519 = ((bool_t)0); } } 
if(BgL_test1373z00_519)
{ /* ./Eval/expdbool.scm 152 */
{ /* ./Eval/expdbool.scm 153 */
obj_t BgL_arg1375z00_520;obj_t BgL_arg1376z00_521;obj_t BgL_arg1377z00_522;
BgL_arg1375z00_520 = 
CAR(BgL_resz00_509); 
BgL_arg1376z00_521 = 
CDR(BgL_resz00_509); 
{ /* ./Eval/expdbool.scm 153 */
obj_t BgL_auxz00_1135;
{ /* ./Eval/expdbool.scm 153 */
obj_t BgL_auxz00_1136;
BgL_auxz00_1136 = 
CDR(BgL_clause1z00_427); 
BgL_auxz00_1135 = 
CAR(BgL_auxz00_1136); } 
BgL_arg1377z00_522 = 
CER(BgL_auxz00_1135); } 
{ /* ./Eval/expdbool.scm 153 */
obj_t BgL_res2145z00_852;
BgL_res2145z00_852 = 
MAKE_EXTENDED_PAIR(BgL_arg1375z00_520, BgL_arg1376z00_521, BgL_arg1377z00_522); 
return BgL_res2145z00_852;} } }  else 
{ /* ./Eval/expdbool.scm 152 */
return 
BGl_replacez12z12zz__prognz00(BgL_expz00_4, BgL_resz00_509);} } } } } } } } } } } } } } } } } 
}



/* _expand-cond */
obj_t BGl__expandzd2condzd2zz__expander_boolz00(obj_t BgL_envz00_872, obj_t BgL_expz00_873)
{ AN_OBJECT;
{ /* ./Eval/expdbool.scm 108 */
return 
BGl_expandzd2condzd2zz__expander_boolz00(BgL_expz00_873);} 
}



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

