/*===========================================================================*/
/*   (Expand/if.scm)                                                         */
/*   Bigloo (2.6b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Mon Dec 15 12:14:36 CET 2003        */
/*===========================================================================*/
/* COMPILATION: (/users/serrano/prgm/project/bigloo/bin/bigloo -q -afile .afile -fsharing -fno-reflection -cc gcc-2.95 -lib-dir /users/serrano/prgm/project/bigloo/lib/2.6b -unsafev -no-hello -O2 -rm -unsafe -s -indent Expand/if.scm)*/
/* GC selection */
#define THE_GC BOEHM_GC

#include <bigloo.h>

BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzexpand_ifz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_tracez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_miscz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__evalz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long, char *);
BGL_IMPORT obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern obj_t BGl_epairifyzd2reczd2zztools_miscz00(obj_t, obj_t);
static obj_t BGl_expandzd2orzf2boolz20zzexpand_ifz00(obj_t);
BGL_IMPORT obj_t open_input_string(obj_t);
BGL_EXPORTED_DECL obj_t BGl_expandzd2notzd2zzexpand_ifz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
static obj_t BGl_newzd2ezd2zzexpand_ifz00(obj_t, obj_t);
static obj_t BGl_findzd2casezd2expz00zzexpand_ifz00(obj_t);
static obj_t BGl_makezd2clausezd2zzexpand_ifz00(obj_t, obj_t, obj_t);
static obj_t BGl__expandzd2testzd2zzexpand_ifz00(obj_t, obj_t, obj_t);
static obj_t BGl__expandzd2ifzd2zzexpand_ifz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_gensymz00zz__r4_symbols_6_4z00;
BGL_IMPORT obj_t BGl_za2nilza2z00zz__evalz00;
static obj_t BGl__expandzd2notzd2zzexpand_ifz00(obj_t, obj_t, obj_t);
static bool_t BGl_za2casezd2enabledzf3za2z21zzexpand_ifz00;
static obj_t BGl_loopz00zzexpand_ifz00(obj_t, obj_t);
extern obj_t BGl_replacez12z12zztools_miscz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_expandzd2ifzd2zzexpand_ifz00(obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zzexpand_ifz00();
static obj_t BGl_loopz72z72zzexpand_ifz00(obj_t, obj_t);
static obj_t BGl_iszd2casezf3z21zzexpand_ifz00(obj_t);
static obj_t BGl_expandzd2ifzd2withz00zzexpand_ifz00(obj_t, obj_t, obj_t, bool_t);
static obj_t BGl_expandzd2testzd2zzexpand_ifz00(obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzexpand_ifz00();
static obj_t BGl_requirezd2initializa7ationz75zzexpand_ifz00 = BUNSPEC;
static obj_t BGl_ifzd2ze3casez12z23zzexpand_ifz00(obj_t);
static bool_t BGl_iszd2azd2validzd2constantzf3z21zzexpand_ifz00(obj_t);
static obj_t BGl_expandzd2andzf2boolz20zzexpand_ifz00(obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzexpand_ifz00();
static obj_t BGl_toplevelzd2initzd2zzexpand_ifz00();
static obj_t __cnst[ 13 ] ;


DEFINE_EXPORT_PROCEDURE( BGl_expandzd2notzd2envz00zzexpand_ifz00, BgL_bgl__expandza7d2notza7d2za7za7expand_ifza7002023za7, BGl__expandzd2notzd2zzexpand_ifz00, 0L, 2 );
DEFINE_STRING( BGl_string1996z00zzexpand_ifz00, BgL_bgl_string1996za700za7za7expand_ifza7002024z00, "else case quote memq char=? =fx eq? and or null? let test if ", 61 );
DEFINE_STRING( BGl_string1995z00zzexpand_ifz00, BgL_bgl_string1995za700za7za7expand_ifza7002025z00, "Illegal `not' form", 18 );
DEFINE_STRING( BGl_string1994z00zzexpand_ifz00, BgL_bgl_string1994za700za7za7expand_ifza7002026z00, "Illegal `if' form", 17 );
DEFINE_STRING( BGl_string1993z00zzexpand_ifz00, BgL_bgl_string1993za700za7za7expand_ifza7002027z00, "Illegal form", 12 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2ifzd2envz00zzexpand_ifz00, BgL_bgl__expandza7d2ifza7d2za7za7expand_ifza7002028za7, BGl__expandzd2ifzd2zzexpand_ifz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_expandzd2testzd2envz00zzexpand_ifz00, BgL_bgl__expandza7d2testza7d2za7za7expand_ifza7002029za7, BGl__expandzd2testzd2zzexpand_ifz00, 0L, 2 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzexpand_ifz00(long BgL_checksumz00_754, char * BgL_fromz00_755)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzexpand_ifz00))
{ 
BGl_requirezd2initializa7ationz75zzexpand_ifz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzexpand_ifz00(); 
BGl_cnstzd2initzd2zzexpand_ifz00(); 
BGl_importedzd2moduleszd2initz00zzexpand_ifz00(); 
BGl_toplevelzd2initzd2zzexpand_ifz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzexpand_ifz00()
{ AN_OBJECT;
{ /* ./Expand/if.scm 15 */
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "expand_if"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "expand_if"); 
BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(((long)0), "expand_if"); 
BGl_modulezd2initializa7ationz75zz__evalz00(((long)0), "expand_if"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzexpand_ifz00()
{ AN_OBJECT;
{ /* ./Expand/if.scm 15 */
{ /* ./Expand/if.scm 15 */
obj_t BgL_cportz00_747;
BgL_cportz00_747 = 
open_input_string(BGl_string1996z00zzexpand_ifz00); 
{ 
long BgL_iz00_748;
BgL_iz00_748 = ((long)12); 
BgL_loopz00_749:
{ /* ./Expand/if.scm 15 */
bool_t BgL_test1998z00_750;
BgL_test1998z00_750 = 
(BgL_iz00_748==((long)-1)); 
if(BgL_test1998z00_750)
{ /* ./Expand/if.scm 15 */
return BUNSPEC;}  else 
{ /* ./Expand/if.scm 15 */
{ /* ./Expand/if.scm 15 */
obj_t BgL_arg2000z00_751;
{ /* ./Expand/if.scm 15 */
obj_t BgL_list2003z00_752;
BgL_list2003z00_752 = 
MAKE_PAIR(BgL_cportz00_747, BNIL); 
BgL_arg2000z00_751 = 
BGl_readz00zz__readerz00(BgL_list2003z00_752); } 
{ /* ./Expand/if.scm 15 */
int BgL_auxz00_772;
BgL_auxz00_772 = 
(int)(BgL_iz00_748); 
CNST_TABLE_SET(BgL_auxz00_772, BgL_arg2000z00_751); } } 
{ /* ./Expand/if.scm 15 */
int BgL_auxz00_753;
{ /* ./Expand/if.scm 15 */
long BgL_auxz00_775;
BgL_auxz00_775 = 
(BgL_iz00_748-((long)1)); 
BgL_auxz00_753 = 
(int)(BgL_auxz00_775); } 
{ 
long BgL_iz00_778;
BgL_iz00_778 = 
(long)(BgL_auxz00_753); 
BgL_iz00_748 = BgL_iz00_778; 
goto BgL_loopz00_749;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzexpand_ifz00()
{ AN_OBJECT;
{ /* ./Expand/if.scm 15 */
return ( 
BGl_za2casezd2enabledzf3za2z21zzexpand_ifz00 = ((bool_t)1), BUNSPEC) ;} 
}



/* expand-or/bool */
obj_t BGl_expandzd2orzf2boolz20zzexpand_ifz00(obj_t BgL_expz00_1)
{ AN_OBJECT;
{ /* ./Expand/if.scm 25 */
{ /* ./Expand/if.scm 26 */
obj_t BgL_resz00_20;
{ /* ./Expand/if.scm 26 */
obj_t BgL_arg1008z00_23;
BgL_arg1008z00_23 = 
CDR(BgL_expz00_1); 
BgL_resz00_20 = 
BGl_loopz72z72zzexpand_ifz00(BgL_expz00_1, BgL_arg1008z00_23); } 
return 
BGl_replacez12z12zztools_miscz00(BgL_expz00_1, BgL_resz00_20);} } 
}



/* loop' */
obj_t BGl_loopz72z72zzexpand_ifz00(obj_t BgL_expz00_746, obj_t BgL_sorz00_21)
{ AN_OBJECT;
{ /* ./Expand/if.scm 26 */
{ /* ./Expand/if.scm 28 */
bool_t BgL_test1011z00_24;
BgL_test1011z00_24 = 
NULLP(BgL_sorz00_21); 
if(BgL_test1011z00_24)
{ /* ./Expand/if.scm 28 */
return BFALSE;}  else 
{ /* ./Expand/if.scm 30 */
bool_t BgL_test1012z00_25;
BgL_test1012z00_25 = 
PAIRP(BgL_sorz00_21); 
if(BgL_test1012z00_25)
{ /* ./Expand/if.scm 32 */
bool_t BgL_test1013z00_26;
{ /* ./Expand/if.scm 32 */
obj_t BgL_auxz00_787;
BgL_auxz00_787 = 
CDR(BgL_sorz00_21); 
BgL_test1013z00_26 = 
NULLP(BgL_auxz00_787); } 
if(BgL_test1013z00_26)
{ /* ./Expand/if.scm 32 */
return 
CAR(BgL_sorz00_21);}  else 
{ /* ./Expand/if.scm 32 */
{ /* ./Expand/if.scm 35 */
obj_t BgL_resz00_27;
{ /* ./Expand/if.scm 35 */
obj_t BgL_arg1032z00_34;obj_t BgL_arg1033z00_35;
BgL_arg1032z00_34 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./Expand/if.scm 35 */
obj_t BgL_arg1036z00_36;obj_t BgL_arg1037z00_37;
BgL_arg1036z00_36 = 
CAR(BgL_sorz00_21); 
{ /* ./Expand/if.scm 35 */
obj_t BgL_arg1041z00_38;
{ /* ./Expand/if.scm 35 */
obj_t BgL_arg1044z00_39;
{ /* ./Expand/if.scm 35 */
obj_t BgL_arg1048z00_41;
BgL_arg1048z00_41 = 
CDR(BgL_sorz00_21); 
BgL_arg1044z00_39 = 
BGl_loopz72z72zzexpand_ifz00(BgL_expz00_746, BgL_arg1048z00_41); } 
BgL_arg1041z00_38 = 
MAKE_PAIR(BgL_arg1044z00_39, BNIL); } 
BgL_arg1037z00_37 = 
MAKE_PAIR(BTRUE, BgL_arg1041z00_38); } 
BgL_arg1033z00_35 = 
MAKE_PAIR(BgL_arg1036z00_36, BgL_arg1037z00_37); } 
BgL_resz00_27 = 
MAKE_PAIR(BgL_arg1032z00_34, BgL_arg1033z00_35); } 
{ /* ./Expand/if.scm 37 */
bool_t BgL_test1015z00_28;
{ /* ./Expand/if.scm 37 */
obj_t BgL_arg1028z00_33;
BgL_arg1028z00_33 = 
CAR(BgL_sorz00_21); 
BgL_test1015z00_28 = 
EXTENDED_PAIRP(BgL_arg1028z00_33); } 
if(BgL_test1015z00_28)
{ /* ./Expand/if.scm 37 */
{ /* ./Expand/if.scm 38 */
obj_t BgL_arg1017z00_29;obj_t BgL_arg1018z00_30;obj_t BgL_arg1019z00_31;
BgL_arg1017z00_29 = 
CAR(BgL_resz00_27); 
BgL_arg1018z00_30 = 
CDR(BgL_resz00_27); 
{ /* ./Expand/if.scm 38 */
obj_t BgL_auxz00_805;
BgL_auxz00_805 = 
CAR(BgL_sorz00_21); 
BgL_arg1019z00_31 = 
CER(BgL_auxz00_805); } 
{ /* ./Expand/if.scm 38 */
obj_t BgL_res1918z00_464;
BgL_res1918z00_464 = 
MAKE_EXTENDED_PAIR(BgL_arg1017z00_29, BgL_arg1018z00_30, BgL_arg1019z00_31); 
return BgL_res1918z00_464;} } }  else 
{ /* ./Expand/if.scm 37 */
return BgL_resz00_27;} } } } }  else 
{ /* ./Expand/if.scm 30 */
FAILURE(BFALSE,BGl_string1993z00zzexpand_ifz00,BgL_expz00_746);} } } } 
}



/* expand-and/bool */
obj_t BGl_expandzd2andzf2boolz20zzexpand_ifz00(obj_t BgL_expz00_2)
{ AN_OBJECT;
{ /* ./Expand/if.scm 46 */
{ /* ./Expand/if.scm 47 */
obj_t BgL_resz00_43;
{ /* ./Expand/if.scm 47 */
obj_t BgL_arg1061z00_46;
BgL_arg1061z00_46 = 
CDR(BgL_expz00_2); 
BgL_resz00_43 = 
BGl_loopz00zzexpand_ifz00(BgL_expz00_2, BgL_arg1061z00_46); } 
return 
BGl_replacez12z12zztools_miscz00(BgL_expz00_2, BgL_resz00_43);} } 
}



/* loop */
obj_t BGl_loopz00zzexpand_ifz00(obj_t BgL_expz00_745, obj_t BgL_sandz00_44)
{ AN_OBJECT;
{ /* ./Expand/if.scm 47 */
{ /* ./Expand/if.scm 49 */
bool_t BgL_test1064z00_47;
BgL_test1064z00_47 = 
NULLP(BgL_sandz00_44); 
if(BgL_test1064z00_47)
{ /* ./Expand/if.scm 49 */
return BTRUE;}  else 
{ /* ./Expand/if.scm 51 */
bool_t BgL_test1065z00_48;
BgL_test1065z00_48 = 
PAIRP(BgL_sandz00_44); 
if(BgL_test1065z00_48)
{ /* ./Expand/if.scm 53 */
bool_t BgL_test1066z00_49;
{ /* ./Expand/if.scm 53 */
obj_t BgL_auxz00_817;
BgL_auxz00_817 = 
CDR(BgL_sandz00_44); 
BgL_test1066z00_49 = 
NULLP(BgL_auxz00_817); } 
if(BgL_test1066z00_49)
{ /* ./Expand/if.scm 53 */
return 
CAR(BgL_sandz00_44);}  else 
{ /* ./Expand/if.scm 53 */
{ /* ./Expand/if.scm 56 */
obj_t BgL_resz00_50;
{ /* ./Expand/if.scm 56 */
obj_t BgL_arg1092z00_57;obj_t BgL_arg1093z00_58;
BgL_arg1092z00_57 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./Expand/if.scm 56 */
obj_t BgL_arg1096z00_59;obj_t BgL_arg1097z00_60;
BgL_arg1096z00_59 = 
CAR(BgL_sandz00_44); 
{ /* ./Expand/if.scm 56 */
obj_t BgL_arg1101z00_61;obj_t BgL_arg1102z00_62;
{ /* ./Expand/if.scm 56 */
obj_t BgL_arg1105z00_63;
BgL_arg1105z00_63 = 
CDR(BgL_sandz00_44); 
BgL_arg1101z00_61 = 
BGl_loopz00zzexpand_ifz00(BgL_expz00_745, BgL_arg1105z00_63); } 
BgL_arg1102z00_62 = 
MAKE_PAIR(BFALSE, BNIL); 
BgL_arg1097z00_60 = 
MAKE_PAIR(BgL_arg1101z00_61, BgL_arg1102z00_62); } 
BgL_arg1093z00_58 = 
MAKE_PAIR(BgL_arg1096z00_59, BgL_arg1097z00_60); } 
BgL_resz00_50 = 
MAKE_PAIR(BgL_arg1092z00_57, BgL_arg1093z00_58); } 
{ /* ./Expand/if.scm 58 */
bool_t BgL_test1068z00_51;
{ /* ./Expand/if.scm 58 */
obj_t BgL_arg1088z00_56;
BgL_arg1088z00_56 = 
CAR(BgL_sandz00_44); 
BgL_test1068z00_51 = 
EXTENDED_PAIRP(BgL_arg1088z00_56); } 
if(BgL_test1068z00_51)
{ /* ./Expand/if.scm 58 */
{ /* ./Expand/if.scm 59 */
obj_t BgL_arg1075z00_52;obj_t BgL_arg1076z00_53;obj_t BgL_arg1079z00_54;
BgL_arg1075z00_52 = 
CAR(BgL_resz00_50); 
BgL_arg1076z00_53 = 
CDR(BgL_resz00_50); 
{ /* ./Expand/if.scm 59 */
obj_t BgL_auxz00_835;
BgL_auxz00_835 = 
CAR(BgL_sandz00_44); 
BgL_arg1079z00_54 = 
CER(BgL_auxz00_835); } 
{ /* ./Expand/if.scm 59 */
obj_t BgL_res1919z00_485;
BgL_res1919z00_485 = 
MAKE_EXTENDED_PAIR(BgL_arg1075z00_52, BgL_arg1076z00_53, BgL_arg1079z00_54); 
return BgL_res1919z00_485;} } }  else 
{ /* ./Expand/if.scm 58 */
return BgL_resz00_50;} } } } }  else 
{ /* ./Expand/if.scm 51 */
FAILURE(BFALSE,BGl_string1993z00zzexpand_ifz00,BgL_expz00_745);} } } } 
}



/* expand-test */
obj_t BGl_expandzd2testzd2zzexpand_ifz00(obj_t BgL_xz00_3, obj_t BgL_ez00_4)
{ AN_OBJECT;
{ /* ./Expand/if.scm 67 */
if(
CBOOL(BGl_za2nilza2z00zz__evalz00))
{ /* ./Expand/if.scm 77 */
obj_t BgL_resz00_66;
BgL_resz00_66 = 
BGl_newzd2ezd2zzexpand_ifz00(BgL_xz00_3, BgL_ez00_4); 
{ /* ./Expand/if.scm 78 */
bool_t BgL_test1116z00_67;
if(
PAIRP(BgL_xz00_3))
{ /* ./Expand/if.scm 78 */
BgL_test1116z00_67 = 
PAIRP(BgL_resz00_66); }  else 
{ /* ./Expand/if.scm 78 */
BgL_test1116z00_67 = ((bool_t)0); } 
if(BgL_test1116z00_67)
{ /* ./Expand/if.scm 78 */
return 
BGl_replacez12z12zztools_miscz00(BgL_xz00_3, BgL_resz00_66);}  else 
{ /* ./Expand/if.scm 78 */
return BgL_resz00_66;} } }  else 
{ /* ./Expand/if.scm 81 */
obj_t BgL_auxz00_69;
BgL_auxz00_69 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)1)), BEOA); 
{ /* ./Expand/if.scm 82 */
obj_t BgL_arg1123z00_70;obj_t BgL_arg1124z00_71;
BgL_arg1123z00_70 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./Expand/if.scm 82 */
obj_t BgL_arg1127z00_72;obj_t BgL_arg1128z00_73;
{ /* ./Expand/if.scm 82 */
obj_t BgL_arg1131z00_74;
{ /* ./Expand/if.scm 82 */
obj_t BgL_arg1135z00_76;
{ /* ./Expand/if.scm 82 */
obj_t BgL_arg1138z00_77;
{ /* ./Expand/if.scm 82 */
obj_t BgL_resz00_79;
BgL_resz00_79 = 
BGl_newzd2ezd2zzexpand_ifz00(BgL_xz00_3, BgL_ez00_4); 
{ /* ./Expand/if.scm 86 */
bool_t BgL_test1143z00_80;
BgL_test1143z00_80 = 
PAIRP(BgL_resz00_79); 
if(BgL_test1143z00_80)
{ /* ./Expand/if.scm 87 */
obj_t BgL_arg1147z00_81;obj_t BgL_arg1148z00_82;
BgL_arg1147z00_81 = 
CAR(BgL_resz00_79); 
BgL_arg1148z00_82 = 
CDR(BgL_resz00_79); 
BgL_arg1138z00_77 = 
MAKE_PAIR(BgL_arg1147z00_81, BgL_arg1148z00_82); }  else 
{ /* ./Expand/if.scm 86 */
BgL_arg1138z00_77 = BgL_resz00_79; } } } 
BgL_arg1135z00_76 = 
MAKE_PAIR(BgL_arg1138z00_77, BNIL); } 
BgL_arg1131z00_74 = 
MAKE_PAIR(BgL_auxz00_69, BgL_arg1135z00_76); } 
BgL_arg1127z00_72 = 
MAKE_PAIR(BgL_arg1131z00_74, BNIL); } 
{ /* ./Expand/if.scm 89 */
obj_t BgL_arg1155z00_83;
{ /* ./Expand/if.scm 89 */
obj_t BgL_arg1160z00_85;obj_t BgL_arg1162z00_86;
BgL_arg1160z00_85 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./Expand/if.scm 90 */
obj_t BgL_arg1165z00_87;
{ /* ./Expand/if.scm 90 */
obj_t BgL_arg1169z00_88;obj_t BgL_arg1171z00_89;
{ /* ./Expand/if.scm 90 */
obj_t BgL_arg1177z00_90;obj_t BgL_arg1178z00_91;
BgL_arg1177z00_90 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./Expand/if.scm 90 */
obj_t BgL_arg1182z00_92;obj_t BgL_arg1183z00_93;
{ /* ./Expand/if.scm 90 */
obj_t BgL_arg1187z00_94;obj_t BgL_arg1188z00_95;
BgL_arg1187z00_94 = 
CNST_TABLE_REF(((long)3)); 
BgL_arg1188z00_95 = 
MAKE_PAIR(BgL_auxz00_69, BNIL); 
BgL_arg1182z00_92 = 
MAKE_PAIR(BgL_arg1187z00_94, BgL_arg1188z00_95); } 
{ /* ./Expand/if.scm 90 */
obj_t BgL_arg1192z00_96;
BgL_arg1192z00_96 = 
MAKE_PAIR(BTRUE, BNIL); 
BgL_arg1183z00_93 = 
MAKE_PAIR(BFALSE, BgL_arg1192z00_96); } 
BgL_arg1178z00_91 = 
MAKE_PAIR(BgL_arg1182z00_92, BgL_arg1183z00_93); } 
BgL_arg1169z00_88 = 
MAKE_PAIR(BgL_arg1177z00_90, BgL_arg1178z00_91); } 
BgL_arg1171z00_89 = 
MAKE_PAIR(BFALSE, BNIL); 
BgL_arg1165z00_87 = 
MAKE_PAIR(BgL_arg1169z00_88, BgL_arg1171z00_89); } 
BgL_arg1162z00_86 = 
MAKE_PAIR(BgL_auxz00_69, BgL_arg1165z00_87); } 
BgL_arg1155z00_83 = 
MAKE_PAIR(BgL_arg1160z00_85, BgL_arg1162z00_86); } 
BgL_arg1128z00_73 = 
MAKE_PAIR(BgL_arg1155z00_83, BNIL); } 
BgL_arg1124z00_71 = 
MAKE_PAIR(BgL_arg1127z00_72, BgL_arg1128z00_73); } 
return 
MAKE_PAIR(BgL_arg1123z00_70, BgL_arg1124z00_71);} } } 
}



/* new-e */
obj_t BGl_newzd2ezd2zzexpand_ifz00(obj_t BgL_xz00_97, obj_t BgL_ez00_98)
{ AN_OBJECT;
{ /* ./Expand/if.scm 68 */
BGl_newzd2ezd2zzexpand_ifz00:
{ 

{ /* ./Expand/if.scm 68 */
bool_t BgL_test1198z00_104;
BgL_test1198z00_104 = 
PAIRP(BgL_xz00_97); 
if(BgL_test1198z00_104)
{ /* ./Expand/if.scm 68 */
bool_t BgL_test1199z00_105;
{ /* ./Expand/if.scm 68 */
obj_t BgL_auxz00_881;obj_t BgL_auxz00_879;
BgL_auxz00_881 = 
CNST_TABLE_REF(((long)4)); 
BgL_auxz00_879 = 
CAR(BgL_xz00_97); 
BgL_test1199z00_105 = 
(BgL_auxz00_879==BgL_auxz00_881); } 
if(BgL_test1199z00_105)
{ /* ./Expand/if.scm 68 */
{ /* ./Expand/if.scm 71 */
obj_t BgL_arg1217z00_111;
BgL_arg1217z00_111 = 
BGl_expandzd2orzf2boolz20zzexpand_ifz00(BgL_xz00_97); 
{ 
obj_t BgL_xz00_886;
BgL_xz00_886 = BgL_arg1217z00_111; 
BgL_xz00_97 = BgL_xz00_886; 
goto BGl_newzd2ezd2zzexpand_ifz00;} } }  else 
{ /* ./Expand/if.scm 68 */
bool_t BgL_test1201z00_106;
{ /* ./Expand/if.scm 68 */
obj_t BgL_auxz00_889;obj_t BgL_auxz00_887;
BgL_auxz00_889 = 
CNST_TABLE_REF(((long)5)); 
BgL_auxz00_887 = 
CAR(BgL_xz00_97); 
BgL_test1201z00_106 = 
(BgL_auxz00_887==BgL_auxz00_889); } 
if(BgL_test1201z00_106)
{ /* ./Expand/if.scm 68 */
{ /* ./Expand/if.scm 73 */
obj_t BgL_arg1222z00_112;
BgL_arg1222z00_112 = 
BGl_expandzd2andzf2boolz20zzexpand_ifz00(BgL_xz00_97); 
{ 
obj_t BgL_xz00_894;
BgL_xz00_894 = BgL_arg1222z00_112; 
BgL_xz00_97 = BgL_xz00_894; 
goto BGl_newzd2ezd2zzexpand_ifz00;} } }  else 
{ /* ./Expand/if.scm 68 */
BgL_tagzd2122zd2_102:
return 
PROCEDURE_ENTRY(BgL_ez00_98)(BgL_ez00_98, BgL_xz00_97, BgL_ez00_98, BEOA);} } }  else 
{ /* ./Expand/if.scm 68 */
goto BgL_tagzd2122zd2_102;} } } } 
}



/* _expand-test */
obj_t BGl__expandzd2testzd2zzexpand_ifz00(obj_t BgL_envz00_736, obj_t BgL_xz00_737, obj_t BgL_ez00_738)
{ AN_OBJECT;
{ /* ./Expand/if.scm 67 */
return 
BGl_expandzd2testzd2zzexpand_ifz00(BgL_xz00_737, BgL_ez00_738);} 
}



/* expand-if */
BGL_EXPORTED_DEF obj_t BGl_expandzd2ifzd2zzexpand_ifz00(obj_t BgL_xz00_5, obj_t BgL_ez00_6)
{ AN_OBJECT;
{ /* ./Expand/if.scm 101 */
{ 
obj_t BgL_testz00_124;obj_t BgL_alorsz00_125;obj_t BgL_testz00_120;obj_t BgL_alorsz00_121;obj_t BgL_sinonz00_122;
{ /* ./Expand/if.scm 102 */
bool_t BgL_test1226z00_129;
BgL_test1226z00_129 = 
PAIRP(BgL_xz00_5); 
if(BgL_test1226z00_129)
{ /* ./Expand/if.scm 102 */
obj_t BgL_cdrzd2140zd2_130;
BgL_cdrzd2140zd2_130 = 
CDR(BgL_xz00_5); 
{ /* ./Expand/if.scm 102 */
bool_t BgL_test1227z00_131;
BgL_test1227z00_131 = 
PAIRP(BgL_cdrzd2140zd2_130); 
if(BgL_test1227z00_131)
{ /* ./Expand/if.scm 102 */
obj_t BgL_cdrzd2144zd2_132;
BgL_cdrzd2144zd2_132 = 
CDR(BgL_cdrzd2140zd2_130); 
{ /* ./Expand/if.scm 102 */
bool_t BgL_test1228z00_133;
{ /* ./Expand/if.scm 102 */
obj_t BgL_auxz00_904;
BgL_auxz00_904 = 
CAR(BgL_cdrzd2140zd2_130); 
BgL_test1228z00_133 = 
(BgL_auxz00_904==BTRUE); } 
if(BgL_test1228z00_133)
{ /* ./Expand/if.scm 102 */
bool_t BgL_test1229z00_134;
BgL_test1229z00_134 = 
PAIRP(BgL_cdrzd2144zd2_132); 
if(BgL_test1229z00_134)
{ /* ./Expand/if.scm 102 */
obj_t BgL_cdrzd2148zd2_135;
BgL_cdrzd2148zd2_135 = 
CDR(BgL_cdrzd2144zd2_132); 
{ /* ./Expand/if.scm 102 */
bool_t BgL_test1230z00_136;
BgL_test1230z00_136 = 
PAIRP(BgL_cdrzd2148zd2_135); 
if(BgL_test1230z00_136)
{ /* ./Expand/if.scm 102 */
bool_t BgL_test1231z00_137;
{ /* ./Expand/if.scm 102 */
obj_t BgL_auxz00_913;
BgL_auxz00_913 = 
CDR(BgL_cdrzd2148zd2_135); 
BgL_test1231z00_137 = 
NULLP(BgL_auxz00_913); } 
if(BgL_test1231z00_137)
{ /* ./Expand/if.scm 102 */
obj_t BgL_arg1233z00_138;
BgL_arg1233z00_138 = 
CAR(BgL_cdrzd2144zd2_132); 
{ /* ./Expand/if.scm 102 */
obj_t BgL_arg1352z00_511;
BgL_arg1352z00_511 = 
PROCEDURE_ENTRY(BgL_ez00_6)(BgL_ez00_6, BgL_arg1233z00_138, BgL_ez00_6, BEOA); 
return 
BGl_replacez12z12zztools_miscz00(BgL_xz00_5, BgL_arg1352z00_511);} }  else 
{ /* ./Expand/if.scm 102 */
BgL_tagzd2132zd2_127:
FAILURE(BFALSE,BGl_string1994z00zzexpand_ifz00,BgL_xz00_5);} }  else 
{ /* ./Expand/if.scm 102 */
obj_t BgL_cdrzd2195zd2_142;
BgL_cdrzd2195zd2_142 = 
CDR(BgL_cdrzd2140zd2_130); 
{ /* ./Expand/if.scm 102 */
bool_t BgL_test1243z00_143;
{ /* ./Expand/if.scm 102 */
obj_t BgL_auxz00_923;
BgL_auxz00_923 = 
CDR(BgL_cdrzd2195zd2_142); 
BgL_test1243z00_143 = 
NULLP(BgL_auxz00_923); } 
if(BgL_test1243z00_143)
{ /* ./Expand/if.scm 102 */
obj_t BgL_arg1245z00_144;obj_t BgL_arg1246z00_145;
BgL_arg1245z00_144 = 
CAR(BgL_cdrzd2140zd2_130); 
BgL_arg1246z00_145 = 
CAR(BgL_cdrzd2195zd2_142); 
BgL_testz00_124 = BgL_arg1245z00_144; 
BgL_alorsz00_125 = BgL_arg1246z00_145; 
BgL_tagzd2131zd2_126:
{ /* ./Expand/if.scm 129 */
obj_t BgL_resz00_208;
{ /* ./Expand/if.scm 129 */
obj_t BgL_arg1415z00_209;obj_t BgL_arg1416z00_210;
BgL_arg1415z00_209 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./Expand/if.scm 129 */
obj_t BgL_arg1419z00_211;obj_t BgL_arg1420z00_212;
BgL_arg1419z00_211 = 
BGl_expandzd2ifzd2withz00zzexpand_ifz00(BGl_expandzd2testzd2envz00zzexpand_ifz00, BgL_testz00_124, BgL_ez00_6, ((bool_t)1)); 
{ /* ./Expand/if.scm 130 */
obj_t BgL_arg1424z00_213;obj_t BgL_arg1425z00_214;
BgL_arg1424z00_213 = 
BGl_expandzd2ifzd2withz00zzexpand_ifz00(BgL_ez00_6, BgL_alorsz00_125, BgL_ez00_6, ((bool_t)1)); 
BgL_arg1425z00_214 = 
MAKE_PAIR(BFALSE, BNIL); 
BgL_arg1420z00_212 = 
MAKE_PAIR(BgL_arg1424z00_213, BgL_arg1425z00_214); } 
BgL_arg1416z00_210 = 
MAKE_PAIR(BgL_arg1419z00_211, BgL_arg1420z00_212); } 
BgL_resz00_208 = 
MAKE_PAIR(BgL_arg1415z00_209, BgL_arg1416z00_210); } 
return 
BGl_epairifyzd2reczd2zztools_miscz00(BgL_resz00_208, BgL_xz00_5);} }  else 
{ /* ./Expand/if.scm 102 */
goto BgL_tagzd2132zd2_127;} } } } }  else 
{ /* ./Expand/if.scm 102 */
goto BgL_tagzd2132zd2_127;} }  else 
{ /* ./Expand/if.scm 102 */
obj_t BgL_cdrzd2228zd2_148;
BgL_cdrzd2228zd2_148 = 
CDR(BgL_cdrzd2140zd2_130); 
{ /* ./Expand/if.scm 102 */
bool_t BgL_test1261z00_149;
{ /* ./Expand/if.scm 102 */
obj_t BgL_auxz00_938;
BgL_auxz00_938 = 
CAR(BgL_cdrzd2140zd2_130); 
BgL_test1261z00_149 = 
(BgL_auxz00_938==BFALSE); } 
if(BgL_test1261z00_149)
{ /* ./Expand/if.scm 102 */
bool_t BgL_test1262z00_150;
BgL_test1262z00_150 = 
PAIRP(BgL_cdrzd2228zd2_148); 
if(BgL_test1262z00_150)
{ /* ./Expand/if.scm 102 */
obj_t BgL_cdrzd2232zd2_151;
BgL_cdrzd2232zd2_151 = 
CDR(BgL_cdrzd2228zd2_148); 
{ /* ./Expand/if.scm 102 */
bool_t BgL_test1263z00_152;
BgL_test1263z00_152 = 
PAIRP(BgL_cdrzd2232zd2_151); 
if(BgL_test1263z00_152)
{ /* ./Expand/if.scm 102 */
bool_t BgL_test1264z00_153;
{ /* ./Expand/if.scm 102 */
obj_t BgL_auxz00_947;
BgL_auxz00_947 = 
CDR(BgL_cdrzd2232zd2_151); 
BgL_test1264z00_153 = 
NULLP(BgL_auxz00_947); } 
if(BgL_test1264z00_153)
{ /* ./Expand/if.scm 102 */
obj_t BgL_arg1267z00_155;
BgL_arg1267z00_155 = 
CAR(BgL_cdrzd2232zd2_151); 
{ /* ./Expand/if.scm 102 */
obj_t BgL_arg1356z00_530;
BgL_arg1356z00_530 = 
PROCEDURE_ENTRY(BgL_ez00_6)(BgL_ez00_6, BgL_arg1267z00_155, BgL_ez00_6, BEOA); 
return 
BGl_replacez12z12zztools_miscz00(BgL_xz00_5, BgL_arg1356z00_530);} }  else 
{ /* ./Expand/if.scm 102 */
goto BgL_tagzd2132zd2_127;} }  else 
{ /* ./Expand/if.scm 102 */
obj_t BgL_cdrzd2269zd2_158;
BgL_cdrzd2269zd2_158 = 
CDR(BgL_cdrzd2140zd2_130); 
{ /* ./Expand/if.scm 102 */
bool_t BgL_test1276z00_159;
{ /* ./Expand/if.scm 102 */
obj_t BgL_auxz00_956;
BgL_auxz00_956 = 
CDR(BgL_cdrzd2269zd2_158); 
BgL_test1276z00_159 = 
NULLP(BgL_auxz00_956); } 
if(BgL_test1276z00_159)
{ /* ./Expand/if.scm 102 */
obj_t BgL_arg1278z00_160;obj_t BgL_arg1279z00_161;
BgL_arg1278z00_160 = 
CAR(BgL_cdrzd2140zd2_130); 
BgL_arg1279z00_161 = 
CAR(BgL_cdrzd2269zd2_158); 
{ 
obj_t BgL_alorsz00_963;obj_t BgL_testz00_962;
BgL_testz00_962 = BgL_arg1278z00_160; 
BgL_alorsz00_963 = BgL_arg1279z00_161; 
BgL_alorsz00_125 = BgL_alorsz00_963; 
BgL_testz00_124 = BgL_testz00_962; 
goto BgL_tagzd2131zd2_126;} }  else 
{ /* ./Expand/if.scm 102 */
goto BgL_tagzd2132zd2_127;} } } } }  else 
{ /* ./Expand/if.scm 102 */
goto BgL_tagzd2132zd2_127;} }  else 
{ /* ./Expand/if.scm 102 */
obj_t BgL_cdrzd2299zd2_164;
BgL_cdrzd2299zd2_164 = 
CDR(BgL_cdrzd2140zd2_130); 
{ /* ./Expand/if.scm 102 */
bool_t BgL_test1294z00_165;
BgL_test1294z00_165 = 
PAIRP(BgL_cdrzd2299zd2_164); 
if(BgL_test1294z00_165)
{ /* ./Expand/if.scm 102 */
obj_t BgL_cdrzd2304zd2_166;
BgL_cdrzd2304zd2_166 = 
CDR(BgL_cdrzd2299zd2_164); 
{ /* ./Expand/if.scm 102 */
bool_t BgL_test1295z00_167;
BgL_test1295z00_167 = 
PAIRP(BgL_cdrzd2304zd2_166); 
if(BgL_test1295z00_167)
{ /* ./Expand/if.scm 102 */
bool_t BgL_test1296z00_168;
{ /* ./Expand/if.scm 102 */
obj_t BgL_auxz00_970;
BgL_auxz00_970 = 
CDR(BgL_cdrzd2304zd2_166); 
BgL_test1296z00_168 = 
NULLP(BgL_auxz00_970); } 
if(BgL_test1296z00_168)
{ /* ./Expand/if.scm 102 */
obj_t BgL_arg1298z00_169;obj_t BgL_arg1299z00_170;obj_t BgL_arg1300z00_171;
BgL_arg1298z00_169 = 
CAR(BgL_cdrzd2140zd2_130); 
BgL_arg1299z00_170 = 
CAR(BgL_cdrzd2299zd2_164); 
BgL_arg1300z00_171 = 
CAR(BgL_cdrzd2304zd2_166); 
BgL_testz00_120 = BgL_arg1298z00_169; 
BgL_alorsz00_121 = BgL_arg1299z00_170; 
BgL_sinonz00_122 = BgL_arg1300z00_171; 
{ /* ./Expand/if.scm 108 */
obj_t BgL_newzd2testzd2_185;obj_t BgL_newzd2thenzd2_186;obj_t BgL_newzd2elsezd2_187;
{ /* ./Expand/if.scm 108 */
obj_t BgL_arg1402z00_205;
BgL_arg1402z00_205 = 
BGl_expandzd2ifzd2withz00zzexpand_ifz00(BGl_expandzd2testzd2envz00zzexpand_ifz00, BgL_testz00_120, BgL_ez00_6, ((bool_t)1)); 
BgL_newzd2testzd2_185 = 
BGl_replacez12z12zztools_miscz00(BgL_testz00_120, BgL_arg1402z00_205); } 
{ /* ./Expand/if.scm 109 */
obj_t BgL_arg1406z00_206;
BgL_arg1406z00_206 = 
BGl_expandzd2ifzd2withz00zzexpand_ifz00(BgL_ez00_6, BgL_alorsz00_121, BgL_ez00_6, ((bool_t)1)); 
BgL_newzd2thenzd2_186 = 
BGl_replacez12z12zztools_miscz00(BgL_alorsz00_121, BgL_arg1406z00_206); } 
{ /* ./Expand/if.scm 110 */
obj_t BgL_arg1410z00_207;
BgL_arg1410z00_207 = 
BGl_expandzd2ifzd2withz00zzexpand_ifz00(BgL_ez00_6, BgL_sinonz00_122, BgL_ez00_6, ((bool_t)0)); 
BgL_newzd2elsezd2_187 = 
BGl_replacez12z12zztools_miscz00(BgL_sinonz00_122, BgL_arg1410z00_207); } 
{ /* ./Expand/if.scm 111 */
obj_t BgL_resz00_188;
{ /* ./Expand/if.scm 111 */
obj_t BgL_exp0z00_189;
{ /* ./Expand/if.scm 111 */
obj_t BgL_arg1390z00_201;obj_t BgL_arg1392z00_202;
BgL_arg1390z00_201 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./Expand/if.scm 111 */
obj_t BgL_arg1395z00_203;
{ /* ./Expand/if.scm 111 */
obj_t BgL_arg1398z00_204;
BgL_arg1398z00_204 = 
MAKE_PAIR(BgL_newzd2elsezd2_187, BNIL); 
BgL_arg1395z00_203 = 
MAKE_PAIR(BgL_newzd2thenzd2_186, BgL_arg1398z00_204); } 
BgL_arg1392z00_202 = 
MAKE_PAIR(BgL_newzd2testzd2_185, BgL_arg1395z00_203); } 
BgL_exp0z00_189 = 
MAKE_PAIR(BgL_arg1390z00_201, BgL_arg1392z00_202); } 
{ /* ./Expand/if.scm 111 */
obj_t BgL_exp1z00_190;
BgL_exp1z00_190 = 
BGl_epairifyzd2reczd2zztools_miscz00(BgL_exp0z00_189, BgL_xz00_5); 
{ /* ./Expand/if.scm 112 */
obj_t BgL_expz00_191;
{ /* ./Expand/if.scm 113 */
obj_t BgL_arg1382z00_199;obj_t BgL_arg1383z00_200;
BgL_arg1382z00_199 = 
CAR(BgL_exp1z00_190); 
BgL_arg1383z00_200 = 
CDR(BgL_exp1z00_190); 
BgL_expz00_191 = 
MAKE_PAIR(BgL_arg1382z00_199, BgL_arg1383z00_200); } 
{ /* ./Expand/if.scm 113 */

if(BGl_za2casezd2enabledzf3za2z21zzexpand_ifz00)
{ /* ./Expand/if.scm 115 */
obj_t BgL_newzd2expzd2_192;
BgL_newzd2expzd2_192 = 
BGl_findzd2casezd2expz00zzexpand_ifz00(BgL_expz00_191); 
if(
CBOOL(BgL_newzd2expzd2_192))
{ /* ./Expand/if.scm 117 */
obj_t BgL_newzd2newzd2expz00_193;
{ /* ./Expand/if.scm 118 */
obj_t BgL_arg1375z00_198;
BgL_arg1375z00_198 = 
BGl_ifzd2ze3casez12z23zzexpand_ifz00(BgL_newzd2expzd2_192); 
BgL_newzd2newzd2expz00_193 = 
PROCEDURE_ENTRY(BgL_ez00_6)(BgL_ez00_6, BgL_arg1375z00_198, BgL_ez00_6, BEOA); } 
{ /* ./Expand/if.scm 119 */
obj_t BgL_arg1361z00_194;obj_t BgL_arg1362z00_195;
BgL_arg1361z00_194 = 
CAR(BgL_newzd2expzd2_192); 
BgL_arg1362z00_195 = 
CAR(BgL_newzd2newzd2expz00_193); 
SET_CAR(BgL_arg1361z00_194, BgL_arg1362z00_195); } 
{ /* ./Expand/if.scm 121 */
obj_t BgL_arg1368z00_196;obj_t BgL_arg1370z00_197;
BgL_arg1368z00_196 = 
CAR(BgL_newzd2expzd2_192); 
BgL_arg1370z00_197 = 
CDR(BgL_newzd2newzd2expz00_193); 
SET_CDR(BgL_arg1368z00_196, BgL_arg1370z00_197); } 
BgL_resz00_188 = BgL_expz00_191; }  else 
{ /* ./Expand/if.scm 116 */
BgL_resz00_188 = BgL_expz00_191; } }  else 
{ /* ./Expand/if.scm 114 */
BgL_resz00_188 = BgL_expz00_191; } } } } } 
BGl_replacez12z12zztools_miscz00(BgL_xz00_5, BgL_resz00_188); } 
return BgL_xz00_5;} }  else 
{ /* ./Expand/if.scm 102 */
goto BgL_tagzd2132zd2_127;} }  else 
{ /* ./Expand/if.scm 102 */
obj_t BgL_cdrzd2329zd2_174;
BgL_cdrzd2329zd2_174 = 
CDR(BgL_cdrzd2140zd2_130); 
{ /* ./Expand/if.scm 102 */
bool_t BgL_test1310z00_175;
{ /* ./Expand/if.scm 102 */
obj_t BgL_auxz00_1007;
BgL_auxz00_1007 = 
CDR(BgL_cdrzd2329zd2_174); 
BgL_test1310z00_175 = 
NULLP(BgL_auxz00_1007); } 
if(BgL_test1310z00_175)
{ /* ./Expand/if.scm 102 */
obj_t BgL_arg1312z00_176;obj_t BgL_arg1313z00_177;
BgL_arg1312z00_176 = 
CAR(BgL_cdrzd2140zd2_130); 
BgL_arg1313z00_177 = 
CAR(BgL_cdrzd2329zd2_174); 
{ 
obj_t BgL_alorsz00_1014;obj_t BgL_testz00_1013;
BgL_testz00_1013 = BgL_arg1312z00_176; 
BgL_alorsz00_1014 = BgL_arg1313z00_177; 
BgL_alorsz00_125 = BgL_alorsz00_1014; 
BgL_testz00_124 = BgL_testz00_1013; 
goto BgL_tagzd2131zd2_126;} }  else 
{ /* ./Expand/if.scm 102 */
goto BgL_tagzd2132zd2_127;} } } } }  else 
{ /* ./Expand/if.scm 102 */
goto BgL_tagzd2132zd2_127;} } } } } } }  else 
{ /* ./Expand/if.scm 102 */
goto BgL_tagzd2132zd2_127;} } }  else 
{ /* ./Expand/if.scm 102 */
goto BgL_tagzd2132zd2_127;} } } } 
}



/* _expand-if */
obj_t BGl__expandzd2ifzd2zzexpand_ifz00(obj_t BgL_envz00_739, obj_t BgL_xz00_740, obj_t BgL_ez00_741)
{ AN_OBJECT;
{ /* ./Expand/if.scm 101 */
return 
BGl_expandzd2ifzd2zzexpand_ifz00(BgL_xz00_740, BgL_ez00_741);} 
}



/* expand-if-with */
obj_t BGl_expandzd2ifzd2withz00zzexpand_ifz00(obj_t BgL_e1z00_7, obj_t BgL_xz00_8, obj_t BgL_e2z00_9, bool_t BgL_casezf3zf3_10)
{ AN_OBJECT;
{ /* ./Expand/if.scm 144 */
{ /* ./Expand/if.scm 145 */
bool_t BgL_casezd2enabledzf3z21_215;
BgL_casezd2enabledzf3z21_215 = BGl_za2casezd2enabledzf3za2z21zzexpand_ifz00; 
BGl_za2casezd2enabledzf3za2z21zzexpand_ifz00 = BgL_casezf3zf3_10; 
{ /* ./Expand/if.scm 147 */
obj_t BgL_resz00_216;
BgL_resz00_216 = 
PROCEDURE_ENTRY(BgL_e1z00_7)(BgL_e1z00_7, BgL_xz00_8, BgL_e2z00_9, BEOA); 
BGl_za2casezd2enabledzf3za2z21zzexpand_ifz00 = BgL_casezd2enabledzf3z21_215; 
{ /* ./Expand/if.scm 149 */
bool_t BgL_test1430z00_217;
if(
PAIRP(BgL_xz00_8))
{ /* ./Expand/if.scm 149 */
BgL_test1430z00_217 = 
PAIRP(BgL_resz00_216); }  else 
{ /* ./Expand/if.scm 149 */
BgL_test1430z00_217 = ((bool_t)0); } 
if(BgL_test1430z00_217)
{ /* ./Expand/if.scm 149 */
return 
BGl_replacez12z12zztools_miscz00(BgL_xz00_8, BgL_resz00_216);}  else 
{ /* ./Expand/if.scm 149 */
return BgL_resz00_216;} } } } } 
}



/* find-case-exp */
obj_t BGl_findzd2casezd2expz00zzexpand_ifz00(obj_t BgL_expz00_11)
{ AN_OBJECT;
{ /* ./Expand/if.scm 160 */
BGl_findzd2casezd2expz00zzexpand_ifz00:
{ /* ./Expand/if.scm 162 */
obj_t BgL_iszd2casezd2_219;
BgL_iszd2casezd2_219 = 
BGl_iszd2casezf3z21zzexpand_ifz00(BgL_expz00_11); 
if(
CBOOL(BgL_iszd2casezd2_219))
{ /* ./Expand/if.scm 163 */
return BgL_iszd2casezd2_219;}  else 
{ /* ./Expand/if.scm 165 */
bool_t BgL_test1436z00_224;
BgL_test1436z00_224 = 
PAIRP(BgL_expz00_11); 
if(BgL_test1436z00_224)
{ /* ./Expand/if.scm 165 */
obj_t BgL_cdrzd2379zd2_225;
BgL_cdrzd2379zd2_225 = 
CDR(BgL_expz00_11); 
{ /* ./Expand/if.scm 165 */
bool_t BgL_test1437z00_226;
{ /* ./Expand/if.scm 165 */
obj_t BgL_auxz00_1031;obj_t BgL_auxz00_1029;
BgL_auxz00_1031 = 
CNST_TABLE_REF(((long)0)); 
BgL_auxz00_1029 = 
CAR(BgL_expz00_11); 
BgL_test1437z00_226 = 
(BgL_auxz00_1029==BgL_auxz00_1031); } 
if(BgL_test1437z00_226)
{ /* ./Expand/if.scm 165 */
bool_t BgL_test1438z00_227;
BgL_test1438z00_227 = 
PAIRP(BgL_cdrzd2379zd2_225); 
if(BgL_test1438z00_227)
{ /* ./Expand/if.scm 165 */
obj_t BgL_cdrzd2382zd2_228;
BgL_cdrzd2382zd2_228 = 
CDR(BgL_cdrzd2379zd2_225); 
{ /* ./Expand/if.scm 165 */
bool_t BgL_test1439z00_229;
BgL_test1439z00_229 = 
PAIRP(BgL_cdrzd2382zd2_228); 
if(BgL_test1439z00_229)
{ /* ./Expand/if.scm 165 */
obj_t BgL_cdrzd2385zd2_230;
BgL_cdrzd2385zd2_230 = 
CDR(BgL_cdrzd2382zd2_228); 
{ /* ./Expand/if.scm 165 */
bool_t BgL_test1440z00_231;
BgL_test1440z00_231 = 
PAIRP(BgL_cdrzd2385zd2_230); 
if(BgL_test1440z00_231)
{ /* ./Expand/if.scm 165 */
bool_t BgL_test1441z00_232;
{ /* ./Expand/if.scm 165 */
obj_t BgL_auxz00_1043;
BgL_auxz00_1043 = 
CDR(BgL_cdrzd2385zd2_230); 
BgL_test1441z00_232 = 
NULLP(BgL_auxz00_1043); } 
if(BgL_test1441z00_232)
{ /* ./Expand/if.scm 165 */
obj_t BgL_arg1444z00_233;
BgL_arg1444z00_233 = 
CAR(BgL_cdrzd2385zd2_230); 
{ 
obj_t BgL_expz00_1048;
BgL_expz00_1048 = BgL_arg1444z00_233; 
BgL_expz00_11 = BgL_expz00_1048; 
goto BGl_findzd2casezd2expz00zzexpand_ifz00;} }  else 
{ /* ./Expand/if.scm 165 */
return BFALSE;} }  else 
{ /* ./Expand/if.scm 165 */
return BFALSE;} } }  else 
{ /* ./Expand/if.scm 165 */
return BFALSE;} } }  else 
{ /* ./Expand/if.scm 165 */
return BFALSE;} }  else 
{ /* ./Expand/if.scm 165 */
return BFALSE;} } }  else 
{ /* ./Expand/if.scm 165 */
return BFALSE;} } } } 
}



/* is-case? */
obj_t BGl_iszd2casezf3z21zzexpand_ifz00(obj_t BgL_expz00_12)
{ AN_OBJECT;
{ /* ./Expand/if.scm 184 */
{ 
obj_t BgL_varz00_237;obj_t BgL_expz72z72_238;long BgL_nbzd2clauseszd2_239;
BgL_varz00_237 = BNIL; 
BgL_expz72z72_238 = BgL_expz00_12; 
BgL_nbzd2clauseszd2_239 = ((long)1); 
BgL_loopz00_240:
{ 
obj_t BgL_testz00_241;obj_t BgL_sinonz00_242;
{ /* ./Expand/if.scm 185 */
bool_t BgL_test1473z00_246;
BgL_test1473z00_246 = 
PAIRP(BgL_expz72z72_238); 
if(BgL_test1473z00_246)
{ /* ./Expand/if.scm 185 */
obj_t BgL_cdrzd2398zd2_247;
BgL_cdrzd2398zd2_247 = 
CDR(BgL_expz72z72_238); 
{ /* ./Expand/if.scm 185 */
bool_t BgL_test1474z00_248;
{ /* ./Expand/if.scm 185 */
obj_t BgL_auxz00_1054;obj_t BgL_auxz00_1052;
BgL_auxz00_1054 = 
CNST_TABLE_REF(((long)0)); 
BgL_auxz00_1052 = 
CAR(BgL_expz72z72_238); 
BgL_test1474z00_248 = 
(BgL_auxz00_1052==BgL_auxz00_1054); } 
if(BgL_test1474z00_248)
{ /* ./Expand/if.scm 185 */
bool_t BgL_test1475z00_249;
BgL_test1475z00_249 = 
PAIRP(BgL_cdrzd2398zd2_247); 
if(BgL_test1475z00_249)
{ /* ./Expand/if.scm 185 */
obj_t BgL_cdrzd2402zd2_250;
BgL_cdrzd2402zd2_250 = 
CDR(BgL_cdrzd2398zd2_247); 
{ /* ./Expand/if.scm 185 */
bool_t BgL_test1476z00_251;
BgL_test1476z00_251 = 
PAIRP(BgL_cdrzd2402zd2_250); 
if(BgL_test1476z00_251)
{ /* ./Expand/if.scm 185 */
obj_t BgL_cdrzd2406zd2_252;
BgL_cdrzd2406zd2_252 = 
CDR(BgL_cdrzd2402zd2_250); 
{ /* ./Expand/if.scm 185 */
bool_t BgL_test1477z00_253;
BgL_test1477z00_253 = 
PAIRP(BgL_cdrzd2406zd2_252); 
if(BgL_test1477z00_253)
{ /* ./Expand/if.scm 185 */
bool_t BgL_test1478z00_254;
{ /* ./Expand/if.scm 185 */
obj_t BgL_auxz00_1066;
BgL_auxz00_1066 = 
CDR(BgL_cdrzd2406zd2_252); 
BgL_test1478z00_254 = 
NULLP(BgL_auxz00_1066); } 
if(BgL_test1478z00_254)
{ /* ./Expand/if.scm 185 */
obj_t BgL_arg1480z00_255;obj_t BgL_arg1481z00_256;
BgL_arg1480z00_255 = 
CAR(BgL_cdrzd2398zd2_247); 
BgL_arg1481z00_256 = 
CAR(BgL_cdrzd2406zd2_252); 
BgL_testz00_241 = BgL_arg1480z00_255; 
BgL_sinonz00_242 = BgL_arg1481z00_256; 
{ 
obj_t BgL_newzd2varzd2_263;obj_t BgL_exp1z00_264;obj_t BgL_exp1z00_260;obj_t BgL_exp2z00_261;
{ /* ./Expand/if.scm 185 */
bool_t BgL_test1507z00_267;
BgL_test1507z00_267 = 
PAIRP(BgL_testz00_241); 
if(BgL_test1507z00_267)
{ /* ./Expand/if.scm 185 */
obj_t BgL_carzd2419zd2_268;obj_t BgL_cdrzd2420zd2_269;
BgL_carzd2419zd2_268 = 
CAR(BgL_testz00_241); 
BgL_cdrzd2420zd2_269 = 
CDR(BgL_testz00_241); 
{ 

{ /* ./Expand/if.scm 185 */
bool_t BgL_test1508z00_271;
{ /* ./Expand/if.scm 185 */
obj_t BgL_auxz00_1076;
BgL_auxz00_1076 = 
CNST_TABLE_REF(((long)6)); 
BgL_test1508z00_271 = 
(BgL_carzd2419zd2_268==BgL_auxz00_1076); } 
if(BgL_test1508z00_271)
{ /* ./Expand/if.scm 185 */
BgL_kapzd2421zd2_270:
{ /* ./Expand/if.scm 185 */
bool_t BgL_test1564z00_294;
BgL_test1564z00_294 = 
PAIRP(BgL_cdrzd2420zd2_269); 
if(BgL_test1564z00_294)
{ /* ./Expand/if.scm 185 */
obj_t BgL_cdrzd2425zd2_295;
BgL_cdrzd2425zd2_295 = 
CDR(BgL_cdrzd2420zd2_269); 
{ /* ./Expand/if.scm 185 */
bool_t BgL_test1565z00_296;
BgL_test1565z00_296 = 
PAIRP(BgL_cdrzd2425zd2_295); 
if(BgL_test1565z00_296)
{ /* ./Expand/if.scm 185 */
bool_t BgL_test1566z00_297;
{ /* ./Expand/if.scm 185 */
obj_t BgL_auxz00_1085;
BgL_auxz00_1085 = 
CDR(BgL_cdrzd2425zd2_295); 
BgL_test1566z00_297 = 
NULLP(BgL_auxz00_1085); } 
if(BgL_test1566z00_297)
{ /* ./Expand/if.scm 185 */
obj_t BgL_arg1568z00_298;obj_t BgL_arg1569z00_299;
BgL_arg1568z00_298 = 
CAR(BgL_cdrzd2420zd2_269); 
BgL_arg1569z00_299 = 
CAR(BgL_cdrzd2425zd2_295); 
BgL_exp1z00_260 = BgL_arg1568z00_298; 
BgL_exp2z00_261 = BgL_arg1569z00_299; 
{ /* ./Expand/if.scm 193 */
bool_t BgL_test1584z00_301;
BgL_test1584z00_301 = 
BGl_iszd2azd2validzd2constantzf3z21zzexpand_ifz00(BgL_exp1z00_260); 
if(BgL_test1584z00_301)
{ /* ./Expand/if.scm 193 */
{ /* ./Expand/if.scm 195 */
bool_t BgL_test1585z00_302;
BgL_test1585z00_302 = 
NULLP(BgL_varz00_237); 
if(BgL_test1585z00_302)
{ /* ./Expand/if.scm 195 */
{ /* ./Expand/if.scm 196 */
long BgL_arg1587z00_303;
BgL_arg1587z00_303 = 
(BgL_nbzd2clauseszd2_239+((long)1)); 
{ 
long BgL_nbzd2clauseszd2_1098;obj_t BgL_expz72z72_1097;obj_t BgL_varz00_1096;
BgL_varz00_1096 = BgL_exp2z00_261; 
BgL_expz72z72_1097 = BgL_sinonz00_242; 
BgL_nbzd2clauseszd2_1098 = BgL_arg1587z00_303; 
BgL_nbzd2clauseszd2_239 = BgL_nbzd2clauseszd2_1098; 
BgL_expz72z72_238 = BgL_expz72z72_1097; 
BgL_varz00_237 = BgL_varz00_1096; 
goto BgL_loopz00_240;} } }  else 
{ /* ./Expand/if.scm 197 */
bool_t BgL_test1590z00_304;
BgL_test1590z00_304 = 
(BgL_varz00_237==BgL_exp2z00_261); 
if(BgL_test1590z00_304)
{ /* ./Expand/if.scm 197 */
{ /* ./Expand/if.scm 198 */
long BgL_arg1593z00_305;
BgL_arg1593z00_305 = 
(BgL_nbzd2clauseszd2_239+((long)1)); 
{ 
long BgL_nbzd2clauseszd2_1104;obj_t BgL_expz72z72_1103;obj_t BgL_varz00_1102;
BgL_varz00_1102 = BgL_exp2z00_261; 
BgL_expz72z72_1103 = BgL_sinonz00_242; 
BgL_nbzd2clauseszd2_1104 = BgL_arg1593z00_305; 
BgL_nbzd2clauseszd2_239 = BgL_nbzd2clauseszd2_1104; 
BgL_expz72z72_238 = BgL_expz72z72_1103; 
BgL_varz00_237 = BgL_varz00_1102; 
goto BgL_loopz00_240;} } }  else 
{ /* ./Expand/if.scm 197 */
{ /* ./Expand/if.scm 200 */
bool_t BgL_test1596z00_306;
BgL_test1596z00_306 = 
(BgL_nbzd2clauseszd2_239>((long)3)); 
if(BgL_test1596z00_306)
{ /* ./Expand/if.scm 201 */
obj_t BgL_list1598z00_307;
{ /* ./Expand/if.scm 201 */
obj_t BgL_arg1600z00_308;
{ /* ./Expand/if.scm 201 */
obj_t BgL_arg1603z00_309;
BgL_arg1603z00_309 = 
MAKE_PAIR(BgL_expz72z72_238, BNIL); 
BgL_arg1600z00_308 = 
MAKE_PAIR(BgL_varz00_237, BgL_arg1603z00_309); } 
BgL_list1598z00_307 = 
MAKE_PAIR(BgL_expz00_12, BgL_arg1600z00_308); } 
return BgL_list1598z00_307;}  else 
{ /* ./Expand/if.scm 200 */
return BFALSE;} } } } } }  else 
{ /* ./Expand/if.scm 203 */
bool_t BgL_test1609z00_310;
BgL_test1609z00_310 = 
BGl_iszd2azd2validzd2constantzf3z21zzexpand_ifz00(BgL_exp2z00_261); 
if(BgL_test1609z00_310)
{ /* ./Expand/if.scm 203 */
{ /* ./Expand/if.scm 205 */
bool_t BgL_test1610z00_311;
BgL_test1610z00_311 = 
NULLP(BgL_varz00_237); 
if(BgL_test1610z00_311)
{ /* ./Expand/if.scm 205 */
{ /* ./Expand/if.scm 206 */
long BgL_arg1613z00_312;
BgL_arg1613z00_312 = 
(BgL_nbzd2clauseszd2_239+((long)1)); 
{ 
long BgL_nbzd2clauseszd2_1117;obj_t BgL_expz72z72_1116;obj_t BgL_varz00_1115;
BgL_varz00_1115 = BgL_exp1z00_260; 
BgL_expz72z72_1116 = BgL_sinonz00_242; 
BgL_nbzd2clauseszd2_1117 = BgL_arg1613z00_312; 
BgL_nbzd2clauseszd2_239 = BgL_nbzd2clauseszd2_1117; 
BgL_expz72z72_238 = BgL_expz72z72_1116; 
BgL_varz00_237 = BgL_varz00_1115; 
goto BgL_loopz00_240;} } }  else 
{ /* ./Expand/if.scm 207 */
bool_t BgL_test1616z00_313;
BgL_test1616z00_313 = 
(BgL_varz00_237==BgL_exp1z00_260); 
if(BgL_test1616z00_313)
{ /* ./Expand/if.scm 207 */
{ /* ./Expand/if.scm 208 */
long BgL_arg1618z00_314;
BgL_arg1618z00_314 = 
(BgL_nbzd2clauseszd2_239+((long)1)); 
{ 
long BgL_nbzd2clauseszd2_1123;obj_t BgL_expz72z72_1122;obj_t BgL_varz00_1121;
BgL_varz00_1121 = BgL_exp1z00_260; 
BgL_expz72z72_1122 = BgL_sinonz00_242; 
BgL_nbzd2clauseszd2_1123 = BgL_arg1618z00_314; 
BgL_nbzd2clauseszd2_239 = BgL_nbzd2clauseszd2_1123; 
BgL_expz72z72_238 = BgL_expz72z72_1122; 
BgL_varz00_237 = BgL_varz00_1121; 
goto BgL_loopz00_240;} } }  else 
{ /* ./Expand/if.scm 207 */
{ /* ./Expand/if.scm 210 */
bool_t BgL_test1621z00_315;
BgL_test1621z00_315 = 
(BgL_nbzd2clauseszd2_239>((long)3)); 
if(BgL_test1621z00_315)
{ /* ./Expand/if.scm 211 */
obj_t BgL_list1623z00_316;
{ /* ./Expand/if.scm 211 */
obj_t BgL_arg1625z00_317;
{ /* ./Expand/if.scm 211 */
obj_t BgL_arg1628z00_318;
BgL_arg1628z00_318 = 
MAKE_PAIR(BgL_expz72z72_238, BNIL); 
BgL_arg1625z00_317 = 
MAKE_PAIR(BgL_varz00_237, BgL_arg1628z00_318); } 
BgL_list1623z00_316 = 
MAKE_PAIR(BgL_expz00_12, BgL_arg1625z00_317); } 
return BgL_list1623z00_316;}  else 
{ /* ./Expand/if.scm 210 */
return BFALSE;} } } } } }  else 
{ /* ./Expand/if.scm 203 */
return BFALSE;} } } }  else 
{ /* ./Expand/if.scm 185 */
return BFALSE;} }  else 
{ /* ./Expand/if.scm 185 */
return BFALSE;} } }  else 
{ /* ./Expand/if.scm 185 */
return BFALSE;} } }  else 
{ /* ./Expand/if.scm 185 */
bool_t BgL_test1510z00_272;
{ /* ./Expand/if.scm 185 */
obj_t BgL_auxz00_1129;
BgL_auxz00_1129 = 
CNST_TABLE_REF(((long)7)); 
BgL_test1510z00_272 = 
(BgL_carzd2419zd2_268==BgL_auxz00_1129); } 
if(BgL_test1510z00_272)
{ /* ./Expand/if.scm 185 */
goto BgL_kapzd2421zd2_270;}  else 
{ /* ./Expand/if.scm 185 */
bool_t BgL_test1512z00_273;
{ /* ./Expand/if.scm 185 */
obj_t BgL_auxz00_1133;
BgL_auxz00_1133 = 
CNST_TABLE_REF(((long)8)); 
BgL_test1512z00_273 = 
(BgL_carzd2419zd2_268==BgL_auxz00_1133); } 
if(BgL_test1512z00_273)
{ /* ./Expand/if.scm 185 */
goto BgL_kapzd2421zd2_270;}  else 
{ /* ./Expand/if.scm 185 */
bool_t BgL_test1514z00_275;
{ /* ./Expand/if.scm 185 */
obj_t BgL_auxz00_1139;obj_t BgL_auxz00_1137;
BgL_auxz00_1139 = 
CNST_TABLE_REF(((long)9)); 
BgL_auxz00_1137 = 
CAR(BgL_testz00_241); 
BgL_test1514z00_275 = 
(BgL_auxz00_1137==BgL_auxz00_1139); } 
if(BgL_test1514z00_275)
{ /* ./Expand/if.scm 185 */
bool_t BgL_test1515z00_276;
BgL_test1515z00_276 = 
PAIRP(BgL_cdrzd2420zd2_269); 
if(BgL_test1515z00_276)
{ /* ./Expand/if.scm 185 */
obj_t BgL_cdrzd2455zd2_277;
BgL_cdrzd2455zd2_277 = 
CDR(BgL_cdrzd2420zd2_269); 
{ /* ./Expand/if.scm 185 */
bool_t BgL_test1516z00_278;
BgL_test1516z00_278 = 
PAIRP(BgL_cdrzd2455zd2_277); 
if(BgL_test1516z00_278)
{ /* ./Expand/if.scm 185 */
obj_t BgL_carzd2458zd2_279;
BgL_carzd2458zd2_279 = 
CAR(BgL_cdrzd2455zd2_277); 
{ /* ./Expand/if.scm 185 */
bool_t BgL_test1517z00_280;
BgL_test1517z00_280 = 
PAIRP(BgL_carzd2458zd2_279); 
if(BgL_test1517z00_280)
{ /* ./Expand/if.scm 185 */
obj_t BgL_cdrzd2462zd2_281;
BgL_cdrzd2462zd2_281 = 
CDR(BgL_carzd2458zd2_279); 
{ /* ./Expand/if.scm 185 */
bool_t BgL_test1518z00_282;
{ /* ./Expand/if.scm 185 */
obj_t BgL_auxz00_1154;obj_t BgL_auxz00_1152;
BgL_auxz00_1154 = 
CNST_TABLE_REF(((long)10)); 
BgL_auxz00_1152 = 
CAR(BgL_carzd2458zd2_279); 
BgL_test1518z00_282 = 
(BgL_auxz00_1152==BgL_auxz00_1154); } 
if(BgL_test1518z00_282)
{ /* ./Expand/if.scm 185 */
bool_t BgL_test1519z00_283;
BgL_test1519z00_283 = 
PAIRP(BgL_cdrzd2462zd2_281); 
if(BgL_test1519z00_283)
{ /* ./Expand/if.scm 185 */
bool_t BgL_test1520z00_284;
{ /* ./Expand/if.scm 185 */
obj_t BgL_auxz00_1160;
BgL_auxz00_1160 = 
CDR(BgL_cdrzd2462zd2_281); 
BgL_test1520z00_284 = 
NULLP(BgL_auxz00_1160); } 
if(BgL_test1520z00_284)
{ /* ./Expand/if.scm 185 */
bool_t BgL_test1521z00_285;
{ /* ./Expand/if.scm 185 */
obj_t BgL_auxz00_1164;
BgL_auxz00_1164 = 
CDR(BgL_cdrzd2455zd2_277); 
BgL_test1521z00_285 = 
NULLP(BgL_auxz00_1164); } 
if(BgL_test1521z00_285)
{ /* ./Expand/if.scm 185 */
obj_t BgL_arg1524z00_286;obj_t BgL_arg1526z00_287;
BgL_arg1524z00_286 = 
CAR(BgL_cdrzd2420zd2_269); 
BgL_arg1526z00_287 = 
CAR(BgL_cdrzd2462zd2_281); 
BgL_newzd2varzd2_263 = BgL_arg1524z00_286; 
BgL_exp1z00_264 = BgL_arg1526z00_287; 
{ /* ./Expand/if.scm 217 */
bool_t BgL_test1636z00_319;
if(
PAIRP(BgL_exp1z00_264))
{ 
obj_t BgL_exp1z00_333;
BgL_exp1z00_333 = BgL_exp1z00_264; 
BgL_loopz00_334:
if(
NULLP(BgL_exp1z00_333))
{ /* ./Expand/if.scm 220 */
BgL_test1636z00_319 = ((bool_t)1); }  else 
{ /* ./Expand/if.scm 220 */
if(
BGl_iszd2azd2validzd2constantzf3z21zzexpand_ifz00(
CAR(BgL_exp1z00_333)))
{ /* ./Expand/if.scm 222 */
{ 
obj_t BgL_exp1z00_1177;
BgL_exp1z00_1177 = 
CDR(BgL_exp1z00_333); 
BgL_exp1z00_333 = BgL_exp1z00_1177; 
goto BgL_loopz00_334;} }  else 
{ /* ./Expand/if.scm 222 */
BgL_test1636z00_319 = ((bool_t)0); } } }  else 
{ /* ./Expand/if.scm 217 */
BgL_test1636z00_319 = ((bool_t)0); } 
if(BgL_test1636z00_319)
{ /* ./Expand/if.scm 217 */
{ /* ./Expand/if.scm 227 */
bool_t BgL_test1637z00_320;
BgL_test1637z00_320 = 
NULLP(BgL_varz00_237); 
if(BgL_test1637z00_320)
{ /* ./Expand/if.scm 227 */
{ /* ./Expand/if.scm 228 */
long BgL_arg1641z00_321;
BgL_arg1641z00_321 = 
(BgL_nbzd2clauseszd2_239+((long)1)); 
{ 
long BgL_nbzd2clauseszd2_1185;obj_t BgL_expz72z72_1184;obj_t BgL_varz00_1183;
BgL_varz00_1183 = BgL_newzd2varzd2_263; 
BgL_expz72z72_1184 = BgL_sinonz00_242; 
BgL_nbzd2clauseszd2_1185 = BgL_arg1641z00_321; 
BgL_nbzd2clauseszd2_239 = BgL_nbzd2clauseszd2_1185; 
BgL_expz72z72_238 = BgL_expz72z72_1184; 
BgL_varz00_237 = BgL_varz00_1183; 
goto BgL_loopz00_240;} } }  else 
{ /* ./Expand/if.scm 229 */
bool_t BgL_test1644z00_322;
BgL_test1644z00_322 = 
(BgL_newzd2varzd2_263==BgL_varz00_237); 
if(BgL_test1644z00_322)
{ /* ./Expand/if.scm 229 */
{ /* ./Expand/if.scm 230 */
long BgL_arg1648z00_323;
BgL_arg1648z00_323 = 
(BgL_nbzd2clauseszd2_239+((long)1)); 
{ 
long BgL_nbzd2clauseszd2_1191;obj_t BgL_expz72z72_1190;obj_t BgL_varz00_1189;
BgL_varz00_1189 = BgL_newzd2varzd2_263; 
BgL_expz72z72_1190 = BgL_sinonz00_242; 
BgL_nbzd2clauseszd2_1191 = BgL_arg1648z00_323; 
BgL_nbzd2clauseszd2_239 = BgL_nbzd2clauseszd2_1191; 
BgL_expz72z72_238 = BgL_expz72z72_1190; 
BgL_varz00_237 = BgL_varz00_1189; 
goto BgL_loopz00_240;} } }  else 
{ /* ./Expand/if.scm 229 */
{ /* ./Expand/if.scm 232 */
bool_t BgL_test1651z00_324;
BgL_test1651z00_324 = 
(BgL_nbzd2clauseszd2_239>((long)3)); 
if(BgL_test1651z00_324)
{ /* ./Expand/if.scm 233 */
obj_t BgL_list1653z00_325;
{ /* ./Expand/if.scm 233 */
obj_t BgL_arg1655z00_326;
{ /* ./Expand/if.scm 233 */
obj_t BgL_arg1658z00_327;
BgL_arg1658z00_327 = 
MAKE_PAIR(BgL_expz72z72_238, BNIL); 
BgL_arg1655z00_326 = 
MAKE_PAIR(BgL_varz00_237, BgL_arg1658z00_327); } 
BgL_list1653z00_325 = 
MAKE_PAIR(BgL_expz00_12, BgL_arg1655z00_326); } 
return BgL_list1653z00_325;}  else 
{ /* ./Expand/if.scm 232 */
return BFALSE;} } } } } }  else 
{ /* ./Expand/if.scm 217 */
{ /* ./Expand/if.scm 236 */
bool_t BgL_test1664z00_328;
BgL_test1664z00_328 = 
(BgL_nbzd2clauseszd2_239>((long)3)); 
if(BgL_test1664z00_328)
{ /* ./Expand/if.scm 237 */
obj_t BgL_list1666z00_329;
{ /* ./Expand/if.scm 237 */
obj_t BgL_arg1669z00_330;
{ /* ./Expand/if.scm 237 */
obj_t BgL_arg1673z00_331;
BgL_arg1673z00_331 = 
MAKE_PAIR(BgL_expz72z72_238, BNIL); 
BgL_arg1669z00_330 = 
MAKE_PAIR(BgL_varz00_237, BgL_arg1673z00_331); } 
BgL_list1666z00_329 = 
MAKE_PAIR(BgL_expz00_12, BgL_arg1669z00_330); } 
return BgL_list1666z00_329;}  else 
{ /* ./Expand/if.scm 236 */
return BFALSE;} } } } }  else 
{ /* ./Expand/if.scm 185 */
return BFALSE;} }  else 
{ /* ./Expand/if.scm 185 */
return BFALSE;} }  else 
{ /* ./Expand/if.scm 185 */
return BFALSE;} }  else 
{ /* ./Expand/if.scm 185 */
return BFALSE;} } }  else 
{ /* ./Expand/if.scm 185 */
return BFALSE;} } }  else 
{ /* ./Expand/if.scm 185 */
return BFALSE;} } }  else 
{ /* ./Expand/if.scm 185 */
return BFALSE;} }  else 
{ /* ./Expand/if.scm 185 */
return BFALSE;} } } } } } }  else 
{ /* ./Expand/if.scm 185 */
return BFALSE;} } } }  else 
{ /* ./Expand/if.scm 185 */
BgL_tagzd2391zd2_244:
{ /* ./Expand/if.scm 240 */
bool_t BgL_test1692z00_339;
BgL_test1692z00_339 = 
(BgL_nbzd2clauseszd2_239>((long)3)); 
if(BgL_test1692z00_339)
{ /* ./Expand/if.scm 241 */
obj_t BgL_list1694z00_340;
{ /* ./Expand/if.scm 241 */
obj_t BgL_arg1696z00_341;
{ /* ./Expand/if.scm 241 */
obj_t BgL_arg1699z00_342;
BgL_arg1699z00_342 = 
MAKE_PAIR(BgL_expz72z72_238, BNIL); 
BgL_arg1696z00_341 = 
MAKE_PAIR(BgL_varz00_237, BgL_arg1699z00_342); } 
BgL_list1694z00_340 = 
MAKE_PAIR(BgL_expz00_12, BgL_arg1696z00_341); } 
return BgL_list1694z00_340;}  else 
{ /* ./Expand/if.scm 240 */
return BFALSE;} } } }  else 
{ /* ./Expand/if.scm 185 */
goto BgL_tagzd2391zd2_244;} } }  else 
{ /* ./Expand/if.scm 185 */
goto BgL_tagzd2391zd2_244;} } }  else 
{ /* ./Expand/if.scm 185 */
goto BgL_tagzd2391zd2_244;} }  else 
{ /* ./Expand/if.scm 185 */
goto BgL_tagzd2391zd2_244;} } }  else 
{ /* ./Expand/if.scm 185 */
goto BgL_tagzd2391zd2_244;} } } } } 
}



/* is-a-valid-constant? */
bool_t BGl_iszd2azd2validzd2constantzf3z21zzexpand_ifz00(obj_t BgL_cnstz00_13)
{ AN_OBJECT;
{ /* ./Expand/if.scm 249 */
{ /* ./Expand/if.scm 250 */
bool_t BgL__ortest_1003z00_343;
BgL__ortest_1003z00_343 = 
INTEGERP(BgL_cnstz00_13); 
if(BgL__ortest_1003z00_343)
{ /* ./Expand/if.scm 250 */
return BgL__ortest_1003z00_343;}  else 
{ /* ./Expand/if.scm 251 */
bool_t BgL__ortest_1005z00_344;
BgL__ortest_1005z00_344 = 
CHARP(BgL_cnstz00_13); 
if(BgL__ortest_1005z00_344)
{ /* ./Expand/if.scm 251 */
return BgL__ortest_1005z00_344;}  else 
{ /* ./Expand/if.scm 251 */
return 
CNSTP(BgL_cnstz00_13);} } } } 
}



/* if->case! */
obj_t BGl_ifzd2ze3casez12z23zzexpand_ifz00(obj_t BgL_expze2varze2endz00_14)
{ AN_OBJECT;
{ /* ./Expand/if.scm 261 */
{ /* ./Expand/if.scm 263 */
obj_t BgL_expz00_345;
BgL_expz00_345 = 
CAR(BgL_expze2varze2endz00_14); 
{ /* ./Expand/if.scm 263 */
obj_t BgL_varz00_346;
{ /* ./Expand/if.scm 264 */
obj_t BgL_auxz00_1213;
BgL_auxz00_1213 = 
CDR(BgL_expze2varze2endz00_14); 
BgL_varz00_346 = 
CAR(BgL_auxz00_1213); } 
{ /* ./Expand/if.scm 264 */
obj_t BgL_endzd2expzd2_347;
{ /* ./Expand/if.scm 265 */
obj_t BgL_auxz00_1216;
{ /* ./Expand/if.scm 265 */
obj_t BgL_auxz00_1217;
BgL_auxz00_1217 = 
CDR(BgL_expze2varze2endz00_14); 
BgL_auxz00_1216 = 
CDR(BgL_auxz00_1217); } 
BgL_endzd2expzd2_347 = 
CAR(BgL_auxz00_1216); } 
{ /* ./Expand/if.scm 265 */
obj_t BgL_newzd2expzd2_348;
{ /* ./Expand/if.scm 266 */
obj_t BgL_arg1715z00_351;obj_t BgL_arg1716z00_352;
BgL_arg1715z00_351 = 
CNST_TABLE_REF(((long)11)); 
{ /* ./Expand/if.scm 267 */
obj_t BgL_arg1719z00_353;
{ /* ./Expand/if.scm 267 */
obj_t BgL_arg1722z00_354;
{ 
obj_t BgL_expz00_356;obj_t BgL_clausesz00_357;
BgL_expz00_356 = BgL_expz00_345; 
BgL_clausesz00_357 = BNIL; 
BgL_loopz00_358:
{ /* ./Expand/if.scm 272 */
bool_t BgL_test1726z00_359;
BgL_test1726z00_359 = 
(BgL_expz00_356==BgL_endzd2expzd2_347); 
if(BgL_test1726z00_359)
{ /* ./Expand/if.scm 273 */
obj_t BgL_arg1728z00_360;
{ /* ./Expand/if.scm 273 */
obj_t BgL_arg1731z00_361;
{ /* ./Expand/if.scm 273 */
obj_t BgL_arg1734z00_362;obj_t BgL_arg1735z00_363;
BgL_arg1734z00_362 = 
CNST_TABLE_REF(((long)12)); 
BgL_arg1735z00_363 = 
MAKE_PAIR(BgL_endzd2expzd2_347, BNIL); 
BgL_arg1731z00_361 = 
MAKE_PAIR(BgL_arg1734z00_362, BgL_arg1735z00_363); } 
BgL_arg1728z00_360 = 
MAKE_PAIR(BgL_arg1731z00_361, BgL_clausesz00_357); } 
BgL_arg1722z00_354 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_arg1728z00_360); }  else 
{ /* ./Expand/if.scm 274 */
bool_t BgL_test1738z00_369;
BgL_test1738z00_369 = 
PAIRP(BgL_expz00_356); 
if(BgL_test1738z00_369)
{ /* ./Expand/if.scm 274 */
obj_t BgL_cdrzd2480zd2_370;
BgL_cdrzd2480zd2_370 = 
CDR(BgL_expz00_356); 
{ /* ./Expand/if.scm 274 */
bool_t BgL_test1739z00_371;
{ /* ./Expand/if.scm 274 */
obj_t BgL_auxz00_1234;obj_t BgL_auxz00_1232;
BgL_auxz00_1234 = 
CNST_TABLE_REF(((long)0)); 
BgL_auxz00_1232 = 
CAR(BgL_expz00_356); 
BgL_test1739z00_371 = 
(BgL_auxz00_1232==BgL_auxz00_1234); } 
if(BgL_test1739z00_371)
{ /* ./Expand/if.scm 274 */
bool_t BgL_test1740z00_372;
BgL_test1740z00_372 = 
PAIRP(BgL_cdrzd2480zd2_370); 
if(BgL_test1740z00_372)
{ /* ./Expand/if.scm 274 */
obj_t BgL_cdrzd2485zd2_373;
BgL_cdrzd2485zd2_373 = 
CDR(BgL_cdrzd2480zd2_370); 
{ /* ./Expand/if.scm 274 */
bool_t BgL_test1741z00_374;
BgL_test1741z00_374 = 
PAIRP(BgL_cdrzd2485zd2_373); 
if(BgL_test1741z00_374)
{ /* ./Expand/if.scm 274 */
obj_t BgL_cdrzd2490zd2_375;
BgL_cdrzd2490zd2_375 = 
CDR(BgL_cdrzd2485zd2_373); 
{ /* ./Expand/if.scm 274 */
bool_t BgL_test1742z00_376;
BgL_test1742z00_376 = 
PAIRP(BgL_cdrzd2490zd2_375); 
if(BgL_test1742z00_376)
{ /* ./Expand/if.scm 274 */
bool_t BgL_test1744z00_377;
{ /* ./Expand/if.scm 274 */
obj_t BgL_auxz00_1246;
BgL_auxz00_1246 = 
CDR(BgL_cdrzd2490zd2_375); 
BgL_test1744z00_377 = 
NULLP(BgL_auxz00_1246); } 
if(BgL_test1744z00_377)
{ /* ./Expand/if.scm 274 */
obj_t BgL_arg1748z00_378;obj_t BgL_arg1749z00_379;obj_t BgL_arg1750z00_380;
BgL_arg1748z00_378 = 
CAR(BgL_cdrzd2480zd2_370); 
BgL_arg1749z00_379 = 
CAR(BgL_cdrzd2485zd2_373); 
BgL_arg1750z00_380 = 
CAR(BgL_cdrzd2490zd2_375); 
{ /* ./Expand/if.scm 274 */
obj_t BgL_arg1773z00_689;
{ /* ./Expand/if.scm 274 */
obj_t BgL_arg1776z00_690;
BgL_arg1776z00_690 = 
BGl_makezd2clausezd2zzexpand_ifz00(BgL_varz00_346, BgL_arg1748z00_378, BgL_arg1749z00_379); 
BgL_arg1773z00_689 = 
MAKE_PAIR(BgL_arg1776z00_690, BgL_clausesz00_357); } 
{ 
obj_t BgL_clausesz00_1256;obj_t BgL_expz00_1255;
BgL_expz00_1255 = BgL_arg1750z00_380; 
BgL_clausesz00_1256 = BgL_arg1773z00_689; 
BgL_clausesz00_357 = BgL_clausesz00_1256; 
BgL_expz00_356 = BgL_expz00_1255; 
goto BgL_loopz00_358;} } }  else 
{ /* ./Expand/if.scm 274 */
BgL_arg1722z00_354 = BFALSE; } }  else 
{ /* ./Expand/if.scm 274 */
BgL_arg1722z00_354 = BFALSE; } } }  else 
{ /* ./Expand/if.scm 274 */
BgL_arg1722z00_354 = BFALSE; } } }  else 
{ /* ./Expand/if.scm 274 */
BgL_arg1722z00_354 = BFALSE; } }  else 
{ /* ./Expand/if.scm 274 */
BgL_arg1722z00_354 = BFALSE; } } }  else 
{ /* ./Expand/if.scm 274 */
BgL_arg1722z00_354 = BFALSE; } } } } 
BgL_arg1719z00_353 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg1722z00_354, BNIL); } 
BgL_arg1716z00_352 = 
MAKE_PAIR(BgL_varz00_346, BgL_arg1719z00_353); } 
BgL_newzd2expzd2_348 = 
MAKE_PAIR(BgL_arg1715z00_351, BgL_arg1716z00_352); } 
{ /* ./Expand/if.scm 266 */

{ /* ./Expand/if.scm 280 */
obj_t BgL_arg1707z00_349;
BgL_arg1707z00_349 = 
CAR(BgL_newzd2expzd2_348); 
SET_CAR(BgL_expz00_345, BgL_arg1707z00_349); } 
{ /* ./Expand/if.scm 281 */
obj_t BgL_arg1711z00_350;
BgL_arg1711z00_350 = 
CDR(BgL_newzd2expzd2_348); 
SET_CDR(BgL_expz00_345, BgL_arg1711z00_350); } 
return BgL_expz00_345;} } } } } } 
}



/* make-clause */
obj_t BGl_makezd2clausezd2zzexpand_ifz00(obj_t BgL_varz00_15, obj_t BgL_testz00_16, obj_t BgL_alorsz00_17)
{ AN_OBJECT;
{ /* ./Expand/if.scm 288 */
{ 
obj_t BgL_exp1z00_386;obj_t BgL_exp2z00_387;
{ /* ./Expand/if.scm 289 */
bool_t BgL_test1783z00_392;
BgL_test1783z00_392 = 
PAIRP(BgL_testz00_16); 
if(BgL_test1783z00_392)
{ /* ./Expand/if.scm 289 */
obj_t BgL_carzd2504zd2_393;obj_t BgL_cdrzd2505zd2_394;
BgL_carzd2504zd2_393 = 
CAR(BgL_testz00_16); 
BgL_cdrzd2505zd2_394 = 
CDR(BgL_testz00_16); 
{ 

{ /* ./Expand/if.scm 289 */
bool_t BgL_test1784z00_396;
{ /* ./Expand/if.scm 289 */
obj_t BgL_auxz00_1268;
BgL_auxz00_1268 = 
CNST_TABLE_REF(((long)6)); 
BgL_test1784z00_396 = 
(BgL_carzd2504zd2_393==BgL_auxz00_1268); } 
if(BgL_test1784z00_396)
{ /* ./Expand/if.scm 289 */
BgL_kapzd2506zd2_395:
{ /* ./Expand/if.scm 289 */
bool_t BgL_test1836z00_418;
BgL_test1836z00_418 = 
PAIRP(BgL_cdrzd2505zd2_394); 
if(BgL_test1836z00_418)
{ /* ./Expand/if.scm 289 */
obj_t BgL_cdrzd2510zd2_419;
BgL_cdrzd2510zd2_419 = 
CDR(BgL_cdrzd2505zd2_394); 
{ /* ./Expand/if.scm 289 */
bool_t BgL_test1837z00_420;
BgL_test1837z00_420 = 
PAIRP(BgL_cdrzd2510zd2_419); 
if(BgL_test1837z00_420)
{ /* ./Expand/if.scm 289 */
bool_t BgL_test1838z00_421;
{ /* ./Expand/if.scm 289 */
obj_t BgL_auxz00_1277;
BgL_auxz00_1277 = 
CDR(BgL_cdrzd2510zd2_419); 
BgL_test1838z00_421 = 
NULLP(BgL_auxz00_1277); } 
if(BgL_test1838z00_421)
{ /* ./Expand/if.scm 289 */
obj_t BgL_arg1840z00_422;obj_t BgL_arg1842z00_423;
BgL_arg1840z00_422 = 
CAR(BgL_cdrzd2505zd2_394); 
BgL_arg1842z00_423 = 
CAR(BgL_cdrzd2510zd2_419); 
BgL_exp1z00_386 = BgL_arg1840z00_422; 
BgL_exp2z00_387 = BgL_arg1842z00_423; 
{ /* ./Expand/if.scm 291 */
bool_t BgL_test1857z00_425;
BgL_test1857z00_425 = 
(BgL_exp1z00_386==BgL_varz00_15); 
if(BgL_test1857z00_425)
{ /* ./Expand/if.scm 292 */
obj_t BgL_arg1859z00_426;obj_t BgL_arg1862z00_427;
BgL_arg1859z00_426 = 
MAKE_PAIR(BgL_exp2z00_387, BNIL); 
BgL_arg1862z00_427 = 
MAKE_PAIR(BgL_alorsz00_17, BNIL); 
return 
MAKE_PAIR(BgL_arg1859z00_426, BgL_arg1862z00_427);}  else 
{ /* ./Expand/if.scm 293 */
obj_t BgL_arg1867z00_428;obj_t BgL_arg1868z00_429;
BgL_arg1867z00_428 = 
MAKE_PAIR(BgL_exp1z00_386, BNIL); 
BgL_arg1868z00_429 = 
MAKE_PAIR(BgL_alorsz00_17, BNIL); 
return 
MAKE_PAIR(BgL_arg1867z00_428, BgL_arg1868z00_429);} } }  else 
{ /* ./Expand/if.scm 289 */
return BFALSE;} }  else 
{ /* ./Expand/if.scm 289 */
return BFALSE;} } }  else 
{ /* ./Expand/if.scm 289 */
return BFALSE;} } }  else 
{ /* ./Expand/if.scm 289 */
bool_t BgL_test1786z00_397;
{ /* ./Expand/if.scm 289 */
obj_t BgL_auxz00_1291;
BgL_auxz00_1291 = 
CNST_TABLE_REF(((long)7)); 
BgL_test1786z00_397 = 
(BgL_carzd2504zd2_393==BgL_auxz00_1291); } 
if(BgL_test1786z00_397)
{ /* ./Expand/if.scm 289 */
goto BgL_kapzd2506zd2_395;}  else 
{ /* ./Expand/if.scm 289 */
bool_t BgL_test1788z00_398;
{ /* ./Expand/if.scm 289 */
obj_t BgL_auxz00_1295;
BgL_auxz00_1295 = 
CNST_TABLE_REF(((long)8)); 
BgL_test1788z00_398 = 
(BgL_carzd2504zd2_393==BgL_auxz00_1295); } 
if(BgL_test1788z00_398)
{ /* ./Expand/if.scm 289 */
goto BgL_kapzd2506zd2_395;}  else 
{ /* ./Expand/if.scm 289 */
bool_t BgL_test1790z00_400;
{ /* ./Expand/if.scm 289 */
obj_t BgL_auxz00_1301;obj_t BgL_auxz00_1299;
BgL_auxz00_1301 = 
CNST_TABLE_REF(((long)9)); 
BgL_auxz00_1299 = 
CAR(BgL_testz00_16); 
BgL_test1790z00_400 = 
(BgL_auxz00_1299==BgL_auxz00_1301); } 
if(BgL_test1790z00_400)
{ /* ./Expand/if.scm 289 */
bool_t BgL_test1791z00_401;
BgL_test1791z00_401 = 
PAIRP(BgL_cdrzd2505zd2_394); 
if(BgL_test1791z00_401)
{ /* ./Expand/if.scm 289 */
obj_t BgL_cdrzd2529zd2_402;
BgL_cdrzd2529zd2_402 = 
CDR(BgL_cdrzd2505zd2_394); 
{ /* ./Expand/if.scm 289 */
bool_t BgL_test1795z00_403;
BgL_test1795z00_403 = 
PAIRP(BgL_cdrzd2529zd2_402); 
if(BgL_test1795z00_403)
{ /* ./Expand/if.scm 289 */
obj_t BgL_carzd2531zd2_404;
BgL_carzd2531zd2_404 = 
CAR(BgL_cdrzd2529zd2_402); 
{ /* ./Expand/if.scm 289 */
bool_t BgL_test1796z00_405;
BgL_test1796z00_405 = 
PAIRP(BgL_carzd2531zd2_404); 
if(BgL_test1796z00_405)
{ /* ./Expand/if.scm 289 */
obj_t BgL_cdrzd2535zd2_406;
BgL_cdrzd2535zd2_406 = 
CDR(BgL_carzd2531zd2_404); 
{ /* ./Expand/if.scm 289 */
bool_t BgL_test1797z00_407;
{ /* ./Expand/if.scm 289 */
obj_t BgL_auxz00_1316;obj_t BgL_auxz00_1314;
BgL_auxz00_1316 = 
CNST_TABLE_REF(((long)10)); 
BgL_auxz00_1314 = 
CAR(BgL_carzd2531zd2_404); 
BgL_test1797z00_407 = 
(BgL_auxz00_1314==BgL_auxz00_1316); } 
if(BgL_test1797z00_407)
{ /* ./Expand/if.scm 289 */
bool_t BgL_test1798z00_408;
BgL_test1798z00_408 = 
PAIRP(BgL_cdrzd2535zd2_406); 
if(BgL_test1798z00_408)
{ /* ./Expand/if.scm 289 */
bool_t BgL_test1799z00_409;
{ /* ./Expand/if.scm 289 */
obj_t BgL_auxz00_1322;
BgL_auxz00_1322 = 
CDR(BgL_cdrzd2535zd2_406); 
BgL_test1799z00_409 = 
NULLP(BgL_auxz00_1322); } 
if(BgL_test1799z00_409)
{ /* ./Expand/if.scm 289 */
bool_t BgL_test1800z00_410;
{ /* ./Expand/if.scm 289 */
obj_t BgL_auxz00_1326;
BgL_auxz00_1326 = 
CDR(BgL_cdrzd2529zd2_402); 
BgL_test1800z00_410 = 
NULLP(BgL_auxz00_1326); } 
if(BgL_test1800z00_410)
{ /* ./Expand/if.scm 289 */
obj_t BgL_arg1802z00_411;
BgL_arg1802z00_411 = 
CAR(BgL_cdrzd2535zd2_406); 
{ /* ./Expand/if.scm 289 */
obj_t BgL_arg1874z00_718;
BgL_arg1874z00_718 = 
MAKE_PAIR(BgL_alorsz00_17, BNIL); 
return 
MAKE_PAIR(BgL_arg1802z00_411, BgL_arg1874z00_718);} }  else 
{ /* ./Expand/if.scm 289 */
return BFALSE;} }  else 
{ /* ./Expand/if.scm 289 */
return BFALSE;} }  else 
{ /* ./Expand/if.scm 289 */
return BFALSE;} }  else 
{ /* ./Expand/if.scm 289 */
return BFALSE;} } }  else 
{ /* ./Expand/if.scm 289 */
return BFALSE;} } }  else 
{ /* ./Expand/if.scm 289 */
return BFALSE;} } }  else 
{ /* ./Expand/if.scm 289 */
return BFALSE;} }  else 
{ /* ./Expand/if.scm 289 */
return BFALSE;} } } } } } }  else 
{ /* ./Expand/if.scm 289 */
return BFALSE;} } } } 
}



/* expand-not */
BGL_EXPORTED_DEF obj_t BGl_expandzd2notzd2zzexpand_ifz00(obj_t BgL_xz00_18, obj_t BgL_ez00_19)
{ AN_OBJECT;
{ /* ./Expand/if.scm 300 */
{ 
obj_t BgL_expz00_431;
{ /* ./Expand/if.scm 301 */
bool_t BgL_test1877z00_435;
BgL_test1877z00_435 = 
PAIRP(BgL_xz00_18); 
if(BgL_test1877z00_435)
{ /* ./Expand/if.scm 301 */
obj_t BgL_cdrzd2548zd2_436;
BgL_cdrzd2548zd2_436 = 
CDR(BgL_xz00_18); 
{ /* ./Expand/if.scm 301 */
bool_t BgL_test1878z00_437;
BgL_test1878z00_437 = 
PAIRP(BgL_cdrzd2548zd2_436); 
if(BgL_test1878z00_437)
{ /* ./Expand/if.scm 301 */
bool_t BgL_test1879z00_438;
{ /* ./Expand/if.scm 301 */
obj_t BgL_auxz00_1338;
BgL_auxz00_1338 = 
CDR(BgL_cdrzd2548zd2_436); 
BgL_test1879z00_438 = 
NULLP(BgL_auxz00_1338); } 
if(BgL_test1879z00_438)
{ /* ./Expand/if.scm 301 */
obj_t BgL_arg1881z00_439;
BgL_arg1881z00_439 = 
CAR(BgL_cdrzd2548zd2_436); 
BgL_expz00_431 = BgL_arg1881z00_439; 
{ /* ./Expand/if.scm 303 */
obj_t BgL_resz00_441;
{ /* ./Expand/if.scm 303 */
obj_t BgL_arg1896z00_442;
{ /* ./Expand/if.scm 303 */
obj_t BgL_arg1902z00_443;obj_t BgL_arg1904z00_444;
BgL_arg1902z00_443 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./Expand/if.scm 303 */
obj_t BgL_arg1908z00_445;
{ /* ./Expand/if.scm 303 */
obj_t BgL_arg1911z00_446;
BgL_arg1911z00_446 = 
MAKE_PAIR(BTRUE, BNIL); 
BgL_arg1908z00_445 = 
MAKE_PAIR(BFALSE, BgL_arg1911z00_446); } 
BgL_arg1904z00_444 = 
MAKE_PAIR(BgL_expz00_431, BgL_arg1908z00_445); } 
BgL_arg1896z00_442 = 
MAKE_PAIR(BgL_arg1902z00_443, BgL_arg1904z00_444); } 
BgL_resz00_441 = 
PROCEDURE_ENTRY(BgL_ez00_19)(BgL_ez00_19, BgL_arg1896z00_442, BgL_ez00_19, BEOA); } 
return 
BGl_replacez12z12zztools_miscz00(BgL_xz00_18, BgL_resz00_441);} }  else 
{ /* ./Expand/if.scm 301 */
BgL_tagzd2543zd2_433:
FAILURE(BFALSE,BGl_string1995z00zzexpand_ifz00,BgL_xz00_18);} }  else 
{ /* ./Expand/if.scm 301 */
goto BgL_tagzd2543zd2_433;} } }  else 
{ /* ./Expand/if.scm 301 */
goto BgL_tagzd2543zd2_433;} } } } 
}



/* _expand-not */
obj_t BGl__expandzd2notzd2zzexpand_ifz00(obj_t BgL_envz00_742, obj_t BgL_xz00_743, obj_t BgL_ez00_744)
{ AN_OBJECT;
{ /* ./Expand/if.scm 300 */
return 
BGl_expandzd2notzd2zzexpand_ifz00(BgL_xz00_743, BgL_ez00_744);} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzexpand_ifz00()
{ AN_OBJECT;
{ /* ./Expand/if.scm 15 */
BGl_modulezd2initializa7ationz75zztools_tracez00(((long)59211), "expand_if"); 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "expand_if"); 
return 
BGl_modulezd2initializa7ationz75zztools_miscz00(((long)64117), "expand_if");} 
}

