/*===========================================================================*/
/*   (Expand/garith.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/garith.scm)*/
/* GC selection */
#define THE_GC BOEHM_GC

#include <bigloo.h>

BGL_IMPORT bool_t BGl_2zd3zd3zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_IMPORT bool_t BGl_2ze3ze3zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzexpand_garithmetiquez00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(long, char *);
BGL_IMPORT obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_expandzd2gzc3zd3zc2zzexpand_garithmetiquez00(obj_t, obj_t);
BGL_IMPORT obj_t open_input_string(obj_t);
BGL_IMPORT bool_t BGl_2zc3zd3z10zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_expandzd2gze3zd3ze2zzexpand_garithmetiquez00(obj_t, obj_t);
BGL_IMPORT bool_t BGl_2ze3zd3z30zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_expandzd2gza2z70zzexpand_garithmetiquez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_expandzd2gzb2z60zzexpand_garithmetiquez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_expandzd2gzd2z00zzexpand_garithmetiquez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_expandzd2gzf2z20zzexpand_garithmetiquez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_expandzd2gzc3z11zzexpand_garithmetiquez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_expandzd2gzd3z01zzexpand_garithmetiquez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_expandzd2gze3z31zzexpand_garithmetiquez00(obj_t, obj_t);
static obj_t BGl__expandzd2gze3zd3ze2zzexpand_garithmetiquez00(obj_t, obj_t, obj_t);
static obj_t BGl__expandzd2gze3z31zzexpand_garithmetiquez00(obj_t, obj_t, obj_t);
static obj_t BGl__expandzd2gzd3z01zzexpand_garithmetiquez00(obj_t, obj_t, obj_t);
static obj_t BGl__expandzd2gzc3z11zzexpand_garithmetiquez00(obj_t, obj_t, obj_t);
static obj_t BGl__expandzd2gzc3zd3zc2zzexpand_garithmetiquez00(obj_t, obj_t, obj_t);
static obj_t BGl__expandzd2gzf2z20zzexpand_garithmetiquez00(obj_t, obj_t, obj_t);
static obj_t BGl__expandzd2gzd2z00zzexpand_garithmetiquez00(obj_t, obj_t, obj_t);
static obj_t BGl__expandzd2gzb2z60zzexpand_garithmetiquez00(obj_t, obj_t, obj_t);
static obj_t BGl__expandzd2gza2z70zzexpand_garithmetiquez00(obj_t, obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zzexpand_garithmetiquez00();
static obj_t BGl_requirezd2initializa7ationz75zzexpand_garithmetiquez00 = BUNSPEC;
static obj_t BGl_libraryzd2moduleszd2initz00zzexpand_garithmetiquez00();
BGL_IMPORT obj_t BGl_2za2za2zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_2zb2zb2zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_2zd2zd2zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_2zf2zf2zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_IMPORT bool_t BGl_2zc3zc3zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t __cnst[ 18 ] ;


DEFINE_EXPORT_PROCEDURE( BGl_expandzd2gzf2zd2envzf2zzexpand_garithmetiquez00, BgL_bgl__expandza7d2gza7f2za720za7za7expand_garithmetiqueza7001991z00, BGl__expandzd2gzf2z20zzexpand_garithmetiquez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2gze3zd2envze3zzexpand_garithmetiquez00, BgL_bgl__expandza7d2gza7e3za731za7za7expand_garithmetiqueza7001992z00, BGl__expandzd2gze3z31zzexpand_garithmetiquez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2gzd2zd2envzd2zzexpand_garithmetiquez00, BgL_bgl__expandza7d2gza7d2za700za7za7expand_garithmetiqueza7001993z00, BGl__expandzd2gzd2z00zzexpand_garithmetiquez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2gzd3zd2envzd3zzexpand_garithmetiquez00, BgL_bgl__expandza7d2gza7d3za701za7za7expand_garithmetiqueza7001994z00, BGl__expandzd2gzd3z01zzexpand_garithmetiquez00, 0L, 2 );
DEFINE_STRING( BGl_string1967z00zzexpand_garithmetiquez00, BgL_bgl_string1967za700za7za7expand_garithmetiqueza7001995z00, ">= 2>= <= 2<= > 2> < 2< = and 2= 2/ * 2* 2- - + 2+ ", 51 );
DEFINE_STRING( BGl_string1966z00zzexpand_garithmetiquez00, BgL_bgl_string1966za700za7za7expand_garithmetiqueza7001996z00, ">=", 2 );
DEFINE_STRING( BGl_string1965z00zzexpand_garithmetiquez00, BgL_bgl_string1965za700za7za7expand_garithmetiqueza7001997z00, "<=", 2 );
DEFINE_STRING( BGl_string1964z00zzexpand_garithmetiquez00, BgL_bgl_string1964za700za7za7expand_garithmetiqueza7001998z00, ">", 1 );
DEFINE_STRING( BGl_string1963z00zzexpand_garithmetiquez00, BgL_bgl_string1963za700za7za7expand_garithmetiqueza7001999z00, "<", 1 );
DEFINE_STRING( BGl_string1962z00zzexpand_garithmetiquez00, BgL_bgl_string1962za700za7za7expand_garithmetiqueza7002000z00, "Illegal form", 12 );
DEFINE_STRING( BGl_string1961z00zzexpand_garithmetiquez00, BgL_bgl_string1961za700za7za7expand_garithmetiqueza7002001z00, "=", 1 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2gze3zd3zd2envz30zzexpand_garithmetiquez00, BgL_bgl__expandza7d2gza7e3za7d3za7e2za7za7expand_garithmetiqueza7002002za7, BGl__expandzd2gze3zd3ze2zzexpand_garithmetiquez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2gzc3zd2envzc3zzexpand_garithmetiquez00, BgL_bgl__expandza7d2gza7c3za711za7za7expand_garithmetiqueza7002003z00, BGl__expandzd2gzc3z11zzexpand_garithmetiquez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2gzb2zd2envzb2zzexpand_garithmetiquez00, BgL_bgl__expandza7d2gza7b2za760za7za7expand_garithmetiqueza7002004z00, BGl__expandzd2gzb2z60zzexpand_garithmetiquez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2gzc3zd3zd2envz10zzexpand_garithmetiquez00, BgL_bgl__expandza7d2gza7c3za7d3za7c2za7za7expand_garithmetiqueza7002005za7, BGl__expandzd2gzc3zd3zc2zzexpand_garithmetiquez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2gza2zd2envza2zzexpand_garithmetiquez00, BgL_bgl__expandza7d2gza7a2za770za7za7expand_garithmetiqueza7002006z00, BGl__expandzd2gza2z70zzexpand_garithmetiquez00, 0L, 2 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzexpand_garithmetiquez00(long BgL_checksumz00_757, char * BgL_fromz00_758)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzexpand_garithmetiquez00))
{ 
BGl_requirezd2initializa7ationz75zzexpand_garithmetiquez00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzexpand_garithmetiquez00(); 
BGl_cnstzd2initzd2zzexpand_garithmetiquez00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzexpand_garithmetiquez00()
{ AN_OBJECT;
{ /* ./Expand/garith.scm 15 */
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(((long)0), "expand_garithmetique"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "expand_garithmetique"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "expand_garithmetique"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzexpand_garithmetiquez00()
{ AN_OBJECT;
{ /* ./Expand/garith.scm 15 */
{ /* ./Expand/garith.scm 15 */
obj_t BgL_cportz00_750;
BgL_cportz00_750 = 
open_input_string(BGl_string1967z00zzexpand_garithmetiquez00); 
{ 
long BgL_iz00_751;
BgL_iz00_751 = ((long)17); 
BgL_loopz00_752:
{ /* ./Expand/garith.scm 15 */
bool_t BgL_test1969z00_753;
BgL_test1969z00_753 = 
(BgL_iz00_751==((long)-1)); 
if(BgL_test1969z00_753)
{ /* ./Expand/garith.scm 15 */
return BUNSPEC;}  else 
{ /* ./Expand/garith.scm 15 */
{ /* ./Expand/garith.scm 15 */
obj_t BgL_arg1971z00_754;
{ /* ./Expand/garith.scm 15 */
obj_t BgL_list1974z00_755;
BgL_list1974z00_755 = 
MAKE_PAIR(BgL_cportz00_750, BNIL); 
BgL_arg1971z00_754 = 
BGl_readz00zz__readerz00(BgL_list1974z00_755); } 
{ /* ./Expand/garith.scm 15 */
int BgL_auxz00_772;
BgL_auxz00_772 = 
(int)(BgL_iz00_751); 
CNST_TABLE_SET(BgL_auxz00_772, BgL_arg1971z00_754); } } 
{ /* ./Expand/garith.scm 15 */
int BgL_auxz00_756;
{ /* ./Expand/garith.scm 15 */
long BgL_auxz00_775;
BgL_auxz00_775 = 
(BgL_iz00_751-((long)1)); 
BgL_auxz00_756 = 
(int)(BgL_auxz00_775); } 
{ 
long BgL_iz00_778;
BgL_iz00_778 = 
(long)(BgL_auxz00_756); 
BgL_iz00_751 = BgL_iz00_778; 
goto BgL_loopz00_752;} } } } } } } 
}



/* expand-g+ */
BGL_EXPORTED_DEF obj_t BGl_expandzd2gzb2z60zzexpand_garithmetiquez00(obj_t BgL_xz00_1, obj_t BgL_ez00_2)
{ AN_OBJECT;
{ /* ./Expand/garith.scm 29 */
{ 
obj_t BgL_xz00_25;obj_t BgL_yz00_26;obj_t BgL_xz00_22;obj_t BgL_yz00_23;
{ /* ./Expand/garith.scm 30 */
bool_t BgL_test1003z00_29;
BgL_test1003z00_29 = 
PAIRP(BgL_xz00_1); 
if(BgL_test1003z00_29)
{ /* ./Expand/garith.scm 30 */
bool_t BgL_test1004z00_30;
{ /* ./Expand/garith.scm 30 */
obj_t BgL_auxz00_782;
BgL_auxz00_782 = 
CDR(BgL_xz00_1); 
BgL_test1004z00_30 = 
NULLP(BgL_auxz00_782); } 
if(BgL_test1004z00_30)
{ /* ./Expand/garith.scm 30 */
return 
BINT(((long)0));}  else 
{ /* ./Expand/garith.scm 30 */
obj_t BgL_cdrzd2114zd2_31;
BgL_cdrzd2114zd2_31 = 
CDR(BgL_xz00_1); 
{ /* ./Expand/garith.scm 30 */
bool_t BgL_test1006z00_32;
BgL_test1006z00_32 = 
PAIRP(BgL_cdrzd2114zd2_31); 
if(BgL_test1006z00_32)
{ /* ./Expand/garith.scm 30 */
bool_t BgL_test1007z00_33;
{ /* ./Expand/garith.scm 30 */
obj_t BgL_auxz00_790;
BgL_auxz00_790 = 
CDR(BgL_cdrzd2114zd2_31); 
BgL_test1007z00_33 = 
NULLP(BgL_auxz00_790); } 
if(BgL_test1007z00_33)
{ /* ./Expand/garith.scm 30 */
obj_t BgL_arg1009z00_34;
BgL_arg1009z00_34 = 
CAR(BgL_cdrzd2114zd2_31); 
return 
PROCEDURE_ENTRY(BgL_ez00_2)(BgL_ez00_2, BgL_arg1009z00_34, BgL_ez00_2, BEOA);}  else 
{ /* ./Expand/garith.scm 30 */
obj_t BgL_cdrzd2130zd2_36;
BgL_cdrzd2130zd2_36 = 
CDR(BgL_cdrzd2114zd2_31); 
{ /* ./Expand/garith.scm 30 */
bool_t BgL_test1012z00_37;
BgL_test1012z00_37 = 
PAIRP(BgL_cdrzd2130zd2_36); 
if(BgL_test1012z00_37)
{ /* ./Expand/garith.scm 30 */
bool_t BgL_test1013z00_38;
{ /* ./Expand/garith.scm 30 */
obj_t BgL_auxz00_800;
BgL_auxz00_800 = 
CDR(BgL_cdrzd2130zd2_36); 
BgL_test1013z00_38 = 
NULLP(BgL_auxz00_800); } 
if(BgL_test1013z00_38)
{ /* ./Expand/garith.scm 30 */
obj_t BgL_arg1015z00_39;obj_t BgL_arg1016z00_40;
BgL_arg1015z00_39 = 
CAR(BgL_cdrzd2114zd2_31); 
BgL_arg1016z00_40 = 
CAR(BgL_cdrzd2130zd2_36); 
BgL_xz00_22 = BgL_arg1015z00_39; 
BgL_yz00_23 = BgL_arg1016z00_40; 
{ /* ./Expand/garith.scm 37 */
bool_t BgL_test1053z00_50;
{ /* ./Expand/garith.scm 37 */
bool_t BgL_testz00_806;
if(
INTEGERP(BgL_xz00_22))
{ /* ./Expand/garith.scm 37 */
BgL_testz00_806 = ((bool_t)1)
; }  else 
{ /* ./Expand/garith.scm 37 */
BgL_testz00_806 = 
REALP(BgL_xz00_22)
; } 
if(BgL_testz00_806)
{ /* ./Expand/garith.scm 37 */
if(
INTEGERP(BgL_yz00_23))
{ /* ./Expand/garith.scm 37 */
BgL_test1053z00_50 = ((bool_t)1); }  else 
{ /* ./Expand/garith.scm 37 */
BgL_test1053z00_50 = 
REALP(BgL_yz00_23); } }  else 
{ /* ./Expand/garith.scm 37 */
BgL_test1053z00_50 = ((bool_t)0); } } 
if(BgL_test1053z00_50)
{ /* ./Expand/garith.scm 37 */
return 
BGl_2zb2zb2zz__r4_numbers_6_5z00(BgL_xz00_22, BgL_yz00_23);}  else 
{ /* ./Expand/garith.scm 37 */
{ /* ./Expand/garith.scm 40 */
obj_t BgL_arg1058z00_51;
{ /* ./Expand/garith.scm 40 */
obj_t BgL_arg1061z00_52;obj_t BgL_arg1064z00_53;
BgL_arg1061z00_52 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./Expand/garith.scm 40 */
obj_t BgL_arg1067z00_54;
BgL_arg1067z00_54 = 
MAKE_PAIR(BgL_yz00_23, BNIL); 
BgL_arg1064z00_53 = 
MAKE_PAIR(BgL_xz00_22, BgL_arg1067z00_54); } 
BgL_arg1058z00_51 = 
MAKE_PAIR(BgL_arg1061z00_52, BgL_arg1064z00_53); } 
return 
PROCEDURE_ENTRY(BgL_ez00_2)(BgL_ez00_2, BgL_arg1058z00_51, BgL_ez00_2, BEOA);} } } }  else 
{ /* ./Expand/garith.scm 30 */
obj_t BgL_arg1021z00_42;obj_t BgL_arg1022z00_43;
BgL_arg1021z00_42 = 
CAR(BgL_cdrzd2114zd2_31); 
BgL_arg1022z00_43 = 
CDR(BgL_cdrzd2114zd2_31); 
BgL_xz00_25 = BgL_arg1021z00_42; 
BgL_yz00_26 = BgL_arg1022z00_43; 
BgL_tagzd2104zd2_27:
{ /* ./Expand/garith.scm 42 */
obj_t BgL_arg1075z00_56;
{ /* ./Expand/garith.scm 42 */
obj_t BgL_arg1079z00_57;obj_t BgL_arg1080z00_58;
BgL_arg1079z00_57 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./Expand/garith.scm 42 */
obj_t BgL_arg1084z00_59;
{ /* ./Expand/garith.scm 42 */
obj_t BgL_arg1087z00_60;
{ /* ./Expand/garith.scm 42 */
obj_t BgL_arg1091z00_62;obj_t BgL_arg1092z00_63;
BgL_arg1091z00_62 = 
CNST_TABLE_REF(((long)1)); 
BgL_arg1092z00_63 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_yz00_26, BNIL); 
BgL_arg1087z00_60 = 
MAKE_PAIR(BgL_arg1091z00_62, BgL_arg1092z00_63); } 
BgL_arg1084z00_59 = 
MAKE_PAIR(BgL_arg1087z00_60, BNIL); } 
BgL_arg1080z00_58 = 
MAKE_PAIR(BgL_xz00_25, BgL_arg1084z00_59); } 
BgL_arg1075z00_56 = 
MAKE_PAIR(BgL_arg1079z00_57, BgL_arg1080z00_58); } 
return 
PROCEDURE_ENTRY(BgL_ez00_2)(BgL_ez00_2, BgL_arg1075z00_56, BgL_ez00_2, BEOA);} } }  else 
{ /* ./Expand/garith.scm 30 */
obj_t BgL_arg1032z00_46;obj_t BgL_arg1033z00_47;
BgL_arg1032z00_46 = 
CAR(BgL_cdrzd2114zd2_31); 
BgL_arg1033z00_47 = 
CDR(BgL_cdrzd2114zd2_31); 
{ 
obj_t BgL_yz00_835;obj_t BgL_xz00_834;
BgL_xz00_834 = BgL_arg1032z00_46; 
BgL_yz00_835 = BgL_arg1033z00_47; 
BgL_yz00_26 = BgL_yz00_835; 
BgL_xz00_25 = BgL_xz00_834; 
goto BgL_tagzd2104zd2_27;} } } } }  else 
{ /* ./Expand/garith.scm 30 */
return BFALSE;} } } }  else 
{ /* ./Expand/garith.scm 30 */
return BFALSE;} } } } 
}



/* _expand-g+ */
obj_t BGl__expandzd2gzb2z60zzexpand_garithmetiquez00(obj_t BgL_envz00_723, obj_t BgL_xz00_724, obj_t BgL_ez00_725)
{ AN_OBJECT;
{ /* ./Expand/garith.scm 29 */
return 
BGl_expandzd2gzb2z60zzexpand_garithmetiquez00(BgL_xz00_724, BgL_ez00_725);} 
}



/* expand-g- */
BGL_EXPORTED_DEF obj_t BGl_expandzd2gzd2z00zzexpand_garithmetiquez00(obj_t BgL_xz00_3, obj_t BgL_ez00_4)
{ AN_OBJECT;
{ /* ./Expand/garith.scm 47 */
{ 
obj_t BgL_xz00_69;obj_t BgL_yz00_70;obj_t BgL_xz00_66;obj_t BgL_yz00_67;obj_t BgL_xz00_64;
{ /* ./Expand/garith.scm 48 */
bool_t BgL_test1095z00_73;
BgL_test1095z00_73 = 
PAIRP(BgL_xz00_3); 
if(BgL_test1095z00_73)
{ /* ./Expand/garith.scm 48 */
obj_t BgL_cdrzd2194zd2_74;
BgL_cdrzd2194zd2_74 = 
CDR(BgL_xz00_3); 
{ /* ./Expand/garith.scm 48 */
bool_t BgL_test1096z00_75;
BgL_test1096z00_75 = 
PAIRP(BgL_cdrzd2194zd2_74); 
if(BgL_test1096z00_75)
{ /* ./Expand/garith.scm 48 */
bool_t BgL_test1097z00_76;
{ /* ./Expand/garith.scm 48 */
obj_t BgL_auxz00_842;
BgL_auxz00_842 = 
CDR(BgL_cdrzd2194zd2_74); 
BgL_test1097z00_76 = 
NULLP(BgL_auxz00_842); } 
if(BgL_test1097z00_76)
{ /* ./Expand/garith.scm 48 */
obj_t BgL_arg1099z00_77;
BgL_arg1099z00_77 = 
CAR(BgL_cdrzd2194zd2_74); 
BgL_xz00_64 = BgL_arg1099z00_77; 
{ /* ./Expand/garith.scm 51 */
bool_t BgL_test1138z00_92;
BgL_test1138z00_92 = 
INTEGERP(BgL_xz00_64); 
if(BgL_test1138z00_92)
{ /* ./Expand/garith.scm 51 */
{ /* ./Expand/garith.scm 52 */
long BgL_auxz00_849;
{ /* ./Expand/garith.scm 52 */
long BgL_auxz00_850;
BgL_auxz00_850 = 
(long)CINT(BgL_xz00_64); 
BgL_auxz00_849 = 
NEG(BgL_auxz00_850); } 
return 
BINT(BgL_auxz00_849);} }  else 
{ /* ./Expand/garith.scm 53 */
bool_t BgL_test1140z00_93;
if(BgL_test1138z00_92)
{ /* ./Expand/garith.scm 53 */
BgL_test1140z00_93 = ((bool_t)1); }  else 
{ /* ./Expand/garith.scm 53 */
BgL_test1140z00_93 = 
REALP(BgL_xz00_64); } 
if(BgL_test1140z00_93)
{ /* ./Expand/garith.scm 53 */
{ /* ./Expand/garith.scm 54 */
double BgL_auxz00_857;
{ /* ./Expand/garith.scm 54 */
double BgL_auxz00_858;
BgL_auxz00_858 = 
REAL_TO_DOUBLE(BgL_xz00_64); 
BgL_auxz00_857 = 
NEG(BgL_auxz00_858); } 
return 
DOUBLE_TO_REAL(BgL_auxz00_857);} }  else 
{ /* ./Expand/garith.scm 53 */
{ /* ./Expand/garith.scm 56 */
obj_t BgL_arg1144z00_94;obj_t BgL_arg1147z00_95;
BgL_arg1144z00_94 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./Expand/garith.scm 56 */
obj_t BgL_arg1150z00_96;
BgL_arg1150z00_96 = 
PROCEDURE_ENTRY(BgL_ez00_4)(BgL_ez00_4, BgL_xz00_64, BgL_ez00_4, BEOA); 
BgL_arg1147z00_95 = 
MAKE_PAIR(BgL_arg1150z00_96, BNIL); } 
return 
MAKE_PAIR(BgL_arg1144z00_94, BgL_arg1147z00_95);} } } } }  else 
{ /* ./Expand/garith.scm 48 */
obj_t BgL_cdrzd2210zd2_79;
BgL_cdrzd2210zd2_79 = 
CDR(BgL_cdrzd2194zd2_74); 
{ /* ./Expand/garith.scm 48 */
bool_t BgL_test1102z00_80;
BgL_test1102z00_80 = 
PAIRP(BgL_cdrzd2210zd2_79); 
if(BgL_test1102z00_80)
{ /* ./Expand/garith.scm 48 */
bool_t BgL_test1103z00_81;
{ /* ./Expand/garith.scm 48 */
obj_t BgL_auxz00_870;
BgL_auxz00_870 = 
CDR(BgL_cdrzd2210zd2_79); 
BgL_test1103z00_81 = 
NULLP(BgL_auxz00_870); } 
if(BgL_test1103z00_81)
{ /* ./Expand/garith.scm 48 */
obj_t BgL_arg1105z00_82;obj_t BgL_arg1106z00_83;
BgL_arg1105z00_82 = 
CAR(BgL_cdrzd2194zd2_74); 
BgL_arg1106z00_83 = 
CAR(BgL_cdrzd2210zd2_79); 
BgL_xz00_66 = BgL_arg1105z00_82; 
BgL_yz00_67 = BgL_arg1106z00_83; 
{ /* ./Expand/garith.scm 59 */
bool_t BgL_test1156z00_98;
{ /* ./Expand/garith.scm 59 */
bool_t BgL_testz00_876;
if(
INTEGERP(BgL_xz00_66))
{ /* ./Expand/garith.scm 59 */
BgL_testz00_876 = ((bool_t)1)
; }  else 
{ /* ./Expand/garith.scm 59 */
BgL_testz00_876 = 
REALP(BgL_xz00_66)
; } 
if(BgL_testz00_876)
{ /* ./Expand/garith.scm 59 */
if(
INTEGERP(BgL_yz00_67))
{ /* ./Expand/garith.scm 59 */
BgL_test1156z00_98 = ((bool_t)1); }  else 
{ /* ./Expand/garith.scm 59 */
BgL_test1156z00_98 = 
REALP(BgL_yz00_67); } }  else 
{ /* ./Expand/garith.scm 59 */
BgL_test1156z00_98 = ((bool_t)0); } } 
if(BgL_test1156z00_98)
{ /* ./Expand/garith.scm 59 */
return 
BGl_2zd2zd2zz__r4_numbers_6_5z00(BgL_xz00_66, BgL_yz00_67);}  else 
{ /* ./Expand/garith.scm 59 */
{ /* ./Expand/garith.scm 62 */
obj_t BgL_arg1160z00_99;
{ /* ./Expand/garith.scm 62 */
obj_t BgL_arg1163z00_100;obj_t BgL_arg1164z00_101;
BgL_arg1163z00_100 = 
CNST_TABLE_REF(((long)3)); 
{ /* ./Expand/garith.scm 62 */
obj_t BgL_arg1169z00_102;
BgL_arg1169z00_102 = 
MAKE_PAIR(BgL_yz00_67, BNIL); 
BgL_arg1164z00_101 = 
MAKE_PAIR(BgL_xz00_66, BgL_arg1169z00_102); } 
BgL_arg1160z00_99 = 
MAKE_PAIR(BgL_arg1163z00_100, BgL_arg1164z00_101); } 
return 
PROCEDURE_ENTRY(BgL_ez00_4)(BgL_ez00_4, BgL_arg1160z00_99, BgL_ez00_4, BEOA);} } } }  else 
{ /* ./Expand/garith.scm 48 */
obj_t BgL_arg1111z00_85;obj_t BgL_arg1112z00_86;
BgL_arg1111z00_85 = 
CAR(BgL_cdrzd2194zd2_74); 
BgL_arg1112z00_86 = 
CDR(BgL_cdrzd2194zd2_74); 
BgL_xz00_69 = BgL_arg1111z00_85; 
BgL_yz00_70 = BgL_arg1112z00_86; 
BgL_tagzd2188zd2_71:
{ /* ./Expand/garith.scm 64 */
obj_t BgL_arg1177z00_104;
{ /* ./Expand/garith.scm 64 */
obj_t BgL_arg1180z00_105;obj_t BgL_arg1182z00_106;
BgL_arg1180z00_105 = 
CNST_TABLE_REF(((long)3)); 
{ /* ./Expand/garith.scm 64 */
obj_t BgL_arg1187z00_107;
{ /* ./Expand/garith.scm 64 */
obj_t BgL_arg1191z00_108;
{ /* ./Expand/garith.scm 64 */
obj_t BgL_arg1195z00_110;obj_t BgL_arg1196z00_111;
BgL_arg1195z00_110 = 
CNST_TABLE_REF(((long)1)); 
BgL_arg1196z00_111 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_yz00_70, BNIL); 
BgL_arg1191z00_108 = 
MAKE_PAIR(BgL_arg1195z00_110, BgL_arg1196z00_111); } 
BgL_arg1187z00_107 = 
MAKE_PAIR(BgL_arg1191z00_108, BNIL); } 
BgL_arg1182z00_106 = 
MAKE_PAIR(BgL_xz00_69, BgL_arg1187z00_107); } 
BgL_arg1177z00_104 = 
MAKE_PAIR(BgL_arg1180z00_105, BgL_arg1182z00_106); } 
return 
PROCEDURE_ENTRY(BgL_ez00_4)(BgL_ez00_4, BgL_arg1177z00_104, BgL_ez00_4, BEOA);} } }  else 
{ /* ./Expand/garith.scm 48 */
obj_t BgL_arg1122z00_89;obj_t BgL_arg1123z00_90;
BgL_arg1122z00_89 = 
CAR(BgL_cdrzd2194zd2_74); 
BgL_arg1123z00_90 = 
CDR(BgL_cdrzd2194zd2_74); 
{ 
obj_t BgL_yz00_905;obj_t BgL_xz00_904;
BgL_xz00_904 = BgL_arg1122z00_89; 
BgL_yz00_905 = BgL_arg1123z00_90; 
BgL_yz00_70 = BgL_yz00_905; 
BgL_xz00_69 = BgL_xz00_904; 
goto BgL_tagzd2188zd2_71;} } } } }  else 
{ /* ./Expand/garith.scm 48 */
return BFALSE;} } }  else 
{ /* ./Expand/garith.scm 48 */
return BFALSE;} } } } 
}



/* _expand-g- */
obj_t BGl__expandzd2gzd2z00zzexpand_garithmetiquez00(obj_t BgL_envz00_726, obj_t BgL_xz00_727, obj_t BgL_ez00_728)
{ AN_OBJECT;
{ /* ./Expand/garith.scm 47 */
return 
BGl_expandzd2gzd2z00zzexpand_garithmetiquez00(BgL_xz00_727, BgL_ez00_728);} 
}



/* expand-g* */
BGL_EXPORTED_DEF obj_t BGl_expandzd2gza2z70zzexpand_garithmetiquez00(obj_t BgL_xz00_5, obj_t BgL_ez00_6)
{ AN_OBJECT;
{ /* ./Expand/garith.scm 69 */
{ 
obj_t BgL_xz00_118;obj_t BgL_yz00_119;obj_t BgL_xz00_115;obj_t BgL_yz00_116;
{ /* ./Expand/garith.scm 70 */
bool_t BgL_test1199z00_122;
BgL_test1199z00_122 = 
PAIRP(BgL_xz00_5); 
if(BgL_test1199z00_122)
{ /* ./Expand/garith.scm 70 */
bool_t BgL_test1200z00_123;
{ /* ./Expand/garith.scm 70 */
obj_t BgL_auxz00_909;
BgL_auxz00_909 = 
CDR(BgL_xz00_5); 
BgL_test1200z00_123 = 
NULLP(BgL_auxz00_909); } 
if(BgL_test1200z00_123)
{ /* ./Expand/garith.scm 70 */
return 
BINT(((long)1));}  else 
{ /* ./Expand/garith.scm 70 */
obj_t BgL_cdrzd2276zd2_124;
BgL_cdrzd2276zd2_124 = 
CDR(BgL_xz00_5); 
{ /* ./Expand/garith.scm 70 */
bool_t BgL_test1202z00_125;
BgL_test1202z00_125 = 
PAIRP(BgL_cdrzd2276zd2_124); 
if(BgL_test1202z00_125)
{ /* ./Expand/garith.scm 70 */
bool_t BgL_test1203z00_126;
{ /* ./Expand/garith.scm 70 */
obj_t BgL_auxz00_917;
BgL_auxz00_917 = 
CDR(BgL_cdrzd2276zd2_124); 
BgL_test1203z00_126 = 
NULLP(BgL_auxz00_917); } 
if(BgL_test1203z00_126)
{ /* ./Expand/garith.scm 70 */
obj_t BgL_arg1205z00_127;
BgL_arg1205z00_127 = 
CAR(BgL_cdrzd2276zd2_124); 
return 
PROCEDURE_ENTRY(BgL_ez00_6)(BgL_ez00_6, BgL_arg1205z00_127, BgL_ez00_6, BEOA);}  else 
{ /* ./Expand/garith.scm 70 */
obj_t BgL_cdrzd2292zd2_129;
BgL_cdrzd2292zd2_129 = 
CDR(BgL_cdrzd2276zd2_124); 
{ /* ./Expand/garith.scm 70 */
bool_t BgL_test1208z00_130;
BgL_test1208z00_130 = 
PAIRP(BgL_cdrzd2292zd2_129); 
if(BgL_test1208z00_130)
{ /* ./Expand/garith.scm 70 */
bool_t BgL_test1209z00_131;
{ /* ./Expand/garith.scm 70 */
obj_t BgL_auxz00_927;
BgL_auxz00_927 = 
CDR(BgL_cdrzd2292zd2_129); 
BgL_test1209z00_131 = 
NULLP(BgL_auxz00_927); } 
if(BgL_test1209z00_131)
{ /* ./Expand/garith.scm 70 */
obj_t BgL_arg1211z00_132;obj_t BgL_arg1212z00_133;
BgL_arg1211z00_132 = 
CAR(BgL_cdrzd2276zd2_124); 
BgL_arg1212z00_133 = 
CAR(BgL_cdrzd2292zd2_129); 
BgL_xz00_115 = BgL_arg1211z00_132; 
BgL_yz00_116 = BgL_arg1212z00_133; 
{ /* ./Expand/garith.scm 77 */
bool_t BgL_test1251z00_143;
{ /* ./Expand/garith.scm 77 */
bool_t BgL_testz00_933;
if(
INTEGERP(BgL_xz00_115))
{ /* ./Expand/garith.scm 77 */
BgL_testz00_933 = ((bool_t)1)
; }  else 
{ /* ./Expand/garith.scm 77 */
BgL_testz00_933 = 
REALP(BgL_xz00_115)
; } 
if(BgL_testz00_933)
{ /* ./Expand/garith.scm 77 */
if(
INTEGERP(BgL_yz00_116))
{ /* ./Expand/garith.scm 77 */
BgL_test1251z00_143 = ((bool_t)1); }  else 
{ /* ./Expand/garith.scm 77 */
BgL_test1251z00_143 = 
REALP(BgL_yz00_116); } }  else 
{ /* ./Expand/garith.scm 77 */
BgL_test1251z00_143 = ((bool_t)0); } } 
if(BgL_test1251z00_143)
{ /* ./Expand/garith.scm 77 */
return 
BGl_2za2za2zz__r4_numbers_6_5z00(BgL_xz00_115, BgL_yz00_116);}  else 
{ /* ./Expand/garith.scm 77 */
{ /* ./Expand/garith.scm 80 */
obj_t BgL_arg1256z00_144;
{ /* ./Expand/garith.scm 80 */
obj_t BgL_arg1259z00_145;obj_t BgL_arg1260z00_146;
BgL_arg1259z00_145 = 
CNST_TABLE_REF(((long)4)); 
{ /* ./Expand/garith.scm 80 */
obj_t BgL_arg1265z00_147;
BgL_arg1265z00_147 = 
MAKE_PAIR(BgL_yz00_116, BNIL); 
BgL_arg1260z00_146 = 
MAKE_PAIR(BgL_xz00_115, BgL_arg1265z00_147); } 
BgL_arg1256z00_144 = 
MAKE_PAIR(BgL_arg1259z00_145, BgL_arg1260z00_146); } 
return 
PROCEDURE_ENTRY(BgL_ez00_6)(BgL_ez00_6, BgL_arg1256z00_144, BgL_ez00_6, BEOA);} } } }  else 
{ /* ./Expand/garith.scm 70 */
obj_t BgL_arg1217z00_135;obj_t BgL_arg1218z00_136;
BgL_arg1217z00_135 = 
CAR(BgL_cdrzd2276zd2_124); 
BgL_arg1218z00_136 = 
CDR(BgL_cdrzd2276zd2_124); 
BgL_xz00_118 = BgL_arg1217z00_135; 
BgL_yz00_119 = BgL_arg1218z00_136; 
BgL_tagzd2266zd2_120:
{ /* ./Expand/garith.scm 82 */
obj_t BgL_arg1273z00_149;
{ /* ./Expand/garith.scm 82 */
obj_t BgL_arg1276z00_150;obj_t BgL_arg1277z00_151;
BgL_arg1276z00_150 = 
CNST_TABLE_REF(((long)4)); 
{ /* ./Expand/garith.scm 82 */
obj_t BgL_arg1282z00_152;
{ /* ./Expand/garith.scm 82 */
obj_t BgL_arg1285z00_153;
{ /* ./Expand/garith.scm 82 */
obj_t BgL_arg1289z00_155;obj_t BgL_arg1290z00_156;
BgL_arg1289z00_155 = 
CNST_TABLE_REF(((long)5)); 
BgL_arg1290z00_156 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_yz00_119, BNIL); 
BgL_arg1285z00_153 = 
MAKE_PAIR(BgL_arg1289z00_155, BgL_arg1290z00_156); } 
BgL_arg1282z00_152 = 
MAKE_PAIR(BgL_arg1285z00_153, BNIL); } 
BgL_arg1277z00_151 = 
MAKE_PAIR(BgL_xz00_118, BgL_arg1282z00_152); } 
BgL_arg1273z00_149 = 
MAKE_PAIR(BgL_arg1276z00_150, BgL_arg1277z00_151); } 
return 
PROCEDURE_ENTRY(BgL_ez00_6)(BgL_ez00_6, BgL_arg1273z00_149, BgL_ez00_6, BEOA);} } }  else 
{ /* ./Expand/garith.scm 70 */
obj_t BgL_arg1229z00_139;obj_t BgL_arg1230z00_140;
BgL_arg1229z00_139 = 
CAR(BgL_cdrzd2276zd2_124); 
BgL_arg1230z00_140 = 
CDR(BgL_cdrzd2276zd2_124); 
{ 
obj_t BgL_yz00_962;obj_t BgL_xz00_961;
BgL_xz00_961 = BgL_arg1229z00_139; 
BgL_yz00_962 = BgL_arg1230z00_140; 
BgL_yz00_119 = BgL_yz00_962; 
BgL_xz00_118 = BgL_xz00_961; 
goto BgL_tagzd2266zd2_120;} } } } }  else 
{ /* ./Expand/garith.scm 70 */
return BFALSE;} } } }  else 
{ /* ./Expand/garith.scm 70 */
return BFALSE;} } } } 
}



/* _expand-g* */
obj_t BGl__expandzd2gza2z70zzexpand_garithmetiquez00(obj_t BgL_envz00_729, obj_t BgL_xz00_730, obj_t BgL_ez00_731)
{ AN_OBJECT;
{ /* ./Expand/garith.scm 69 */
return 
BGl_expandzd2gza2z70zzexpand_garithmetiquez00(BgL_xz00_730, BgL_ez00_731);} 
}



/* expand-g/ */
BGL_EXPORTED_DEF obj_t BGl_expandzd2gzf2z20zzexpand_garithmetiquez00(obj_t BgL_xz00_7, obj_t BgL_ez00_8)
{ AN_OBJECT;
{ /* ./Expand/garith.scm 87 */
{ 
obj_t BgL_xz00_162;obj_t BgL_yz00_163;obj_t BgL_xz00_159;obj_t BgL_yz00_160;obj_t BgL_xz00_157;
{ /* ./Expand/garith.scm 88 */
bool_t BgL_test1293z00_166;
BgL_test1293z00_166 = 
PAIRP(BgL_xz00_7); 
if(BgL_test1293z00_166)
{ /* ./Expand/garith.scm 88 */
obj_t BgL_cdrzd2356zd2_167;
BgL_cdrzd2356zd2_167 = 
CDR(BgL_xz00_7); 
{ /* ./Expand/garith.scm 88 */
bool_t BgL_test1294z00_168;
BgL_test1294z00_168 = 
PAIRP(BgL_cdrzd2356zd2_167); 
if(BgL_test1294z00_168)
{ /* ./Expand/garith.scm 88 */
bool_t BgL_test1295z00_169;
{ /* ./Expand/garith.scm 88 */
obj_t BgL_auxz00_969;
BgL_auxz00_969 = 
CDR(BgL_cdrzd2356zd2_167); 
BgL_test1295z00_169 = 
NULLP(BgL_auxz00_969); } 
if(BgL_test1295z00_169)
{ /* ./Expand/garith.scm 88 */
obj_t BgL_arg1297z00_170;
BgL_arg1297z00_170 = 
CAR(BgL_cdrzd2356zd2_167); 
BgL_xz00_157 = BgL_arg1297z00_170; 
{ /* ./Expand/garith.scm 90 */
obj_t BgL_arg1338z00_185;obj_t BgL_arg1340z00_186;
BgL_arg1338z00_185 = 
CNST_TABLE_REF(((long)6)); 
{ /* ./Expand/garith.scm 90 */
obj_t BgL_arg1344z00_188;
{ /* ./Expand/garith.scm 90 */
obj_t BgL_arg1347z00_189;
BgL_arg1347z00_189 = 
PROCEDURE_ENTRY(BgL_ez00_8)(BgL_ez00_8, BgL_xz00_157, BgL_ez00_8, BEOA); 
BgL_arg1344z00_188 = 
MAKE_PAIR(BgL_arg1347z00_189, BNIL); } 
{ /* ./Expand/garith.scm 90 */
obj_t BgL_auxz00_978;
BgL_auxz00_978 = 
BINT(((long)1)); 
BgL_arg1340z00_186 = 
MAKE_PAIR(BgL_auxz00_978, BgL_arg1344z00_188); } } 
return 
MAKE_PAIR(BgL_arg1338z00_185, BgL_arg1340z00_186);} }  else 
{ /* ./Expand/garith.scm 88 */
obj_t BgL_cdrzd2372zd2_172;
BgL_cdrzd2372zd2_172 = 
CDR(BgL_cdrzd2356zd2_167); 
{ /* ./Expand/garith.scm 88 */
bool_t BgL_test1300z00_173;
BgL_test1300z00_173 = 
PAIRP(BgL_cdrzd2372zd2_172); 
if(BgL_test1300z00_173)
{ /* ./Expand/garith.scm 88 */
bool_t BgL_test1302z00_174;
{ /* ./Expand/garith.scm 88 */
obj_t BgL_auxz00_985;
BgL_auxz00_985 = 
CDR(BgL_cdrzd2372zd2_172); 
BgL_test1302z00_174 = 
NULLP(BgL_auxz00_985); } 
if(BgL_test1302z00_174)
{ /* ./Expand/garith.scm 88 */
obj_t BgL_arg1304z00_175;obj_t BgL_arg1305z00_176;
BgL_arg1304z00_175 = 
CAR(BgL_cdrzd2356zd2_167); 
BgL_arg1305z00_176 = 
CAR(BgL_cdrzd2372zd2_172); 
BgL_xz00_159 = BgL_arg1304z00_175; 
BgL_yz00_160 = BgL_arg1305z00_176; 
{ /* ./Expand/garith.scm 93 */
bool_t BgL_test1351z00_191;
{ /* ./Expand/garith.scm 93 */
bool_t BgL_testz00_991;
if(
INTEGERP(BgL_xz00_159))
{ /* ./Expand/garith.scm 93 */
BgL_testz00_991 = ((bool_t)1)
; }  else 
{ /* ./Expand/garith.scm 93 */
BgL_testz00_991 = 
REALP(BgL_xz00_159)
; } 
if(BgL_testz00_991)
{ /* ./Expand/garith.scm 93 */
if(
INTEGERP(BgL_yz00_160))
{ /* ./Expand/garith.scm 93 */
BgL_test1351z00_191 = ((bool_t)1); }  else 
{ /* ./Expand/garith.scm 93 */
BgL_test1351z00_191 = 
REALP(BgL_yz00_160); } }  else 
{ /* ./Expand/garith.scm 93 */
BgL_test1351z00_191 = ((bool_t)0); } } 
if(BgL_test1351z00_191)
{ /* ./Expand/garith.scm 93 */
return 
BGl_2zf2zf2zz__r4_numbers_6_5z00(BgL_xz00_159, BgL_yz00_160);}  else 
{ /* ./Expand/garith.scm 93 */
{ /* ./Expand/garith.scm 96 */
obj_t BgL_arg1354z00_192;
{ /* ./Expand/garith.scm 96 */
obj_t BgL_arg1358z00_193;obj_t BgL_arg1359z00_194;
BgL_arg1358z00_193 = 
CNST_TABLE_REF(((long)6)); 
{ /* ./Expand/garith.scm 96 */
obj_t BgL_arg1362z00_195;
BgL_arg1362z00_195 = 
MAKE_PAIR(BgL_yz00_160, BNIL); 
BgL_arg1359z00_194 = 
MAKE_PAIR(BgL_xz00_159, BgL_arg1362z00_195); } 
BgL_arg1354z00_192 = 
MAKE_PAIR(BgL_arg1358z00_193, BgL_arg1359z00_194); } 
return 
PROCEDURE_ENTRY(BgL_ez00_8)(BgL_ez00_8, BgL_arg1354z00_192, BgL_ez00_8, BEOA);} } } }  else 
{ /* ./Expand/garith.scm 88 */
obj_t BgL_arg1310z00_178;obj_t BgL_arg1311z00_179;
BgL_arg1310z00_178 = 
CAR(BgL_cdrzd2356zd2_167); 
BgL_arg1311z00_179 = 
CDR(BgL_cdrzd2356zd2_167); 
BgL_xz00_162 = BgL_arg1310z00_178; 
BgL_yz00_163 = BgL_arg1311z00_179; 
BgL_tagzd2350zd2_164:
{ /* ./Expand/garith.scm 98 */
obj_t BgL_arg1370z00_197;
{ /* ./Expand/garith.scm 98 */
obj_t BgL_arg1374z00_198;obj_t BgL_arg1375z00_199;
BgL_arg1374z00_198 = 
CNST_TABLE_REF(((long)6)); 
{ /* ./Expand/garith.scm 98 */
obj_t BgL_arg1378z00_200;
{ /* ./Expand/garith.scm 98 */
obj_t BgL_arg1382z00_201;
{ /* ./Expand/garith.scm 98 */
obj_t BgL_arg1388z00_203;obj_t BgL_arg1390z00_204;
BgL_arg1388z00_203 = 
CNST_TABLE_REF(((long)5)); 
BgL_arg1390z00_204 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_yz00_163, BNIL); 
BgL_arg1382z00_201 = 
MAKE_PAIR(BgL_arg1388z00_203, BgL_arg1390z00_204); } 
BgL_arg1378z00_200 = 
MAKE_PAIR(BgL_arg1382z00_201, BNIL); } 
BgL_arg1375z00_199 = 
MAKE_PAIR(BgL_xz00_162, BgL_arg1378z00_200); } 
BgL_arg1370z00_197 = 
MAKE_PAIR(BgL_arg1374z00_198, BgL_arg1375z00_199); } 
return 
PROCEDURE_ENTRY(BgL_ez00_8)(BgL_ez00_8, BgL_arg1370z00_197, BgL_ez00_8, BEOA);} } }  else 
{ /* ./Expand/garith.scm 88 */
obj_t BgL_arg1321z00_182;obj_t BgL_arg1322z00_183;
BgL_arg1321z00_182 = 
CAR(BgL_cdrzd2356zd2_167); 
BgL_arg1322z00_183 = 
CDR(BgL_cdrzd2356zd2_167); 
{ 
obj_t BgL_yz00_1020;obj_t BgL_xz00_1019;
BgL_xz00_1019 = BgL_arg1321z00_182; 
BgL_yz00_1020 = BgL_arg1322z00_183; 
BgL_yz00_163 = BgL_yz00_1020; 
BgL_xz00_162 = BgL_xz00_1019; 
goto BgL_tagzd2350zd2_164;} } } } }  else 
{ /* ./Expand/garith.scm 88 */
return BFALSE;} } }  else 
{ /* ./Expand/garith.scm 88 */
return BFALSE;} } } } 
}



/* _expand-g/ */
obj_t BGl__expandzd2gzf2z20zzexpand_garithmetiquez00(obj_t BgL_envz00_732, obj_t BgL_xz00_733, obj_t BgL_ez00_734)
{ AN_OBJECT;
{ /* ./Expand/garith.scm 87 */
return 
BGl_expandzd2gzf2z20zzexpand_garithmetiquez00(BgL_xz00_733, BgL_ez00_734);} 
}



/* expand-g= */
BGL_EXPORTED_DEF obj_t BGl_expandzd2gzd3z01zzexpand_garithmetiquez00(obj_t BgL_xz00_9, obj_t BgL_ez00_10)
{ AN_OBJECT;
{ /* ./Expand/garith.scm 103 */
{ 
obj_t BgL_xz00_209;obj_t BgL_yz00_210;obj_t BgL_xz00_205;obj_t BgL_yz00_206;
{ /* ./Expand/garith.scm 104 */
bool_t BgL_test1393z00_213;
BgL_test1393z00_213 = 
PAIRP(BgL_xz00_9); 
if(BgL_test1393z00_213)
{ /* ./Expand/garith.scm 104 */
obj_t BgL_cdrzd2434zd2_214;
BgL_cdrzd2434zd2_214 = 
CDR(BgL_xz00_9); 
{ /* ./Expand/garith.scm 104 */
bool_t BgL_test1394z00_215;
BgL_test1394z00_215 = 
PAIRP(BgL_cdrzd2434zd2_214); 
if(BgL_test1394z00_215)
{ /* ./Expand/garith.scm 104 */
obj_t BgL_cdrzd2438zd2_216;
BgL_cdrzd2438zd2_216 = 
CDR(BgL_cdrzd2434zd2_214); 
{ /* ./Expand/garith.scm 104 */
bool_t BgL_test1395z00_217;
BgL_test1395z00_217 = 
PAIRP(BgL_cdrzd2438zd2_216); 
if(BgL_test1395z00_217)
{ /* ./Expand/garith.scm 104 */
bool_t BgL_test1398z00_218;
{ /* ./Expand/garith.scm 104 */
obj_t BgL_auxz00_1030;
BgL_auxz00_1030 = 
CDR(BgL_cdrzd2438zd2_216); 
BgL_test1398z00_218 = 
NULLP(BgL_auxz00_1030); } 
if(BgL_test1398z00_218)
{ /* ./Expand/garith.scm 104 */
obj_t BgL_arg1400z00_219;obj_t BgL_arg1401z00_220;
BgL_arg1400z00_219 = 
CAR(BgL_cdrzd2434zd2_214); 
BgL_arg1401z00_220 = 
CAR(BgL_cdrzd2438zd2_216); 
BgL_xz00_205 = BgL_arg1400z00_219; 
BgL_yz00_206 = BgL_arg1401z00_220; 
{ /* ./Expand/garith.scm 107 */
bool_t BgL_test1437z00_231;
{ /* ./Expand/garith.scm 107 */
bool_t BgL_testz00_1036;
if(
INTEGERP(BgL_xz00_205))
{ /* ./Expand/garith.scm 107 */
BgL_testz00_1036 = ((bool_t)1)
; }  else 
{ /* ./Expand/garith.scm 107 */
BgL_testz00_1036 = 
REALP(BgL_xz00_205)
; } 
if(BgL_testz00_1036)
{ /* ./Expand/garith.scm 107 */
if(
INTEGERP(BgL_yz00_206))
{ /* ./Expand/garith.scm 107 */
BgL_test1437z00_231 = ((bool_t)1); }  else 
{ /* ./Expand/garith.scm 107 */
BgL_test1437z00_231 = 
REALP(BgL_yz00_206); } }  else 
{ /* ./Expand/garith.scm 107 */
BgL_test1437z00_231 = ((bool_t)0); } } 
if(BgL_test1437z00_231)
{ /* ./Expand/garith.scm 107 */
{ /* ./Expand/garith.scm 108 */
bool_t BgL_auxz00_1044;
BgL_auxz00_1044 = 
BGl_2zd3zd3zz__r4_numbers_6_5z00(BgL_xz00_205, BgL_yz00_206); 
return 
BBOOL(BgL_auxz00_1044);} }  else 
{ /* ./Expand/garith.scm 107 */
{ /* ./Expand/garith.scm 110 */
obj_t BgL_arg1440z00_232;
{ /* ./Expand/garith.scm 110 */
obj_t BgL_arg1444z00_233;obj_t BgL_arg1446z00_234;
BgL_arg1444z00_233 = 
CNST_TABLE_REF(((long)7)); 
{ /* ./Expand/garith.scm 110 */
obj_t BgL_arg1450z00_235;
BgL_arg1450z00_235 = 
MAKE_PAIR(BgL_yz00_206, BNIL); 
BgL_arg1446z00_234 = 
MAKE_PAIR(BgL_xz00_205, BgL_arg1450z00_235); } 
BgL_arg1440z00_232 = 
MAKE_PAIR(BgL_arg1444z00_233, BgL_arg1446z00_234); } 
return 
PROCEDURE_ENTRY(BgL_ez00_10)(BgL_ez00_10, BgL_arg1440z00_232, BgL_ez00_10, BEOA);} } } }  else 
{ /* ./Expand/garith.scm 104 */
obj_t BgL_arg1406z00_222;obj_t BgL_arg1407z00_223;
BgL_arg1406z00_222 = 
CAR(BgL_cdrzd2434zd2_214); 
BgL_arg1407z00_223 = 
CDR(BgL_cdrzd2434zd2_214); 
BgL_xz00_209 = BgL_arg1406z00_222; 
BgL_yz00_210 = BgL_arg1407z00_223; 
BgL_tagzd2427zd2_211:
{ /* ./Expand/garith.scm 114 */
obj_t BgL_arg1458z00_237;
{ /* ./Expand/garith.scm 114 */
obj_t BgL_arg1461z00_238;obj_t BgL_arg1463z00_239;
BgL_arg1461z00_238 = 
CNST_TABLE_REF(((long)8)); 
{ /* ./Expand/garith.scm 114 */
obj_t BgL_arg1466z00_240;obj_t BgL_arg1468z00_241;
{ /* ./Expand/garith.scm 114 */
obj_t BgL_arg1471z00_242;obj_t BgL_arg1474z00_243;
BgL_arg1471z00_242 = 
CNST_TABLE_REF(((long)7)); 
{ /* ./Expand/garith.scm 114 */
obj_t BgL_arg1477z00_244;
{ /* ./Expand/garith.scm 114 */
obj_t BgL_arg1480z00_245;
BgL_arg1480z00_245 = 
CAR(BgL_yz00_210); 
BgL_arg1477z00_244 = 
MAKE_PAIR(BgL_arg1480z00_245, BNIL); } 
BgL_arg1474z00_243 = 
MAKE_PAIR(BgL_xz00_209, BgL_arg1477z00_244); } 
BgL_arg1466z00_240 = 
MAKE_PAIR(BgL_arg1471z00_242, BgL_arg1474z00_243); } 
{ /* ./Expand/garith.scm 114 */
obj_t BgL_arg1486z00_247;
{ /* ./Expand/garith.scm 114 */
obj_t BgL_arg1490z00_249;obj_t BgL_arg1491z00_250;
BgL_arg1490z00_249 = 
CNST_TABLE_REF(((long)9)); 
BgL_arg1491z00_250 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_yz00_210, BNIL); 
BgL_arg1486z00_247 = 
MAKE_PAIR(BgL_arg1490z00_249, BgL_arg1491z00_250); } 
BgL_arg1468z00_241 = 
MAKE_PAIR(BgL_arg1486z00_247, BNIL); } 
BgL_arg1463z00_239 = 
MAKE_PAIR(BgL_arg1466z00_240, BgL_arg1468z00_241); } 
BgL_arg1458z00_237 = 
MAKE_PAIR(BgL_arg1461z00_238, BgL_arg1463z00_239); } 
return 
PROCEDURE_ENTRY(BgL_ez00_10)(BgL_ez00_10, BgL_arg1458z00_237, BgL_ez00_10, BEOA);} } }  else 
{ /* ./Expand/garith.scm 104 */
bool_t BgL_test1416z00_225;
{ /* ./Expand/garith.scm 104 */
obj_t BgL_auxz00_1069;
BgL_auxz00_1069 = 
CDR(BgL_cdrzd2434zd2_214); 
BgL_test1416z00_225 = 
NULLP(BgL_auxz00_1069); } 
if(BgL_test1416z00_225)
{ /* ./Expand/garith.scm 104 */
FAILURE(BGl_string1961z00zzexpand_garithmetiquez00,BGl_string1962z00zzexpand_garithmetiquez00,BgL_xz00_9);}  else 
{ /* ./Expand/garith.scm 104 */
obj_t BgL_arg1419z00_227;obj_t BgL_arg1420z00_228;
BgL_arg1419z00_227 = 
CAR(BgL_cdrzd2434zd2_214); 
BgL_arg1420z00_228 = 
CDR(BgL_cdrzd2434zd2_214); 
{ 
obj_t BgL_yz00_1077;obj_t BgL_xz00_1076;
BgL_xz00_1076 = BgL_arg1419z00_227; 
BgL_yz00_1077 = BgL_arg1420z00_228; 
BgL_yz00_210 = BgL_yz00_1077; 
BgL_xz00_209 = BgL_xz00_1076; 
goto BgL_tagzd2427zd2_211;} } } } }  else 
{ /* ./Expand/garith.scm 104 */
return BFALSE;} } }  else 
{ /* ./Expand/garith.scm 104 */
return BFALSE;} } } } 
}



/* _expand-g= */
obj_t BGl__expandzd2gzd3z01zzexpand_garithmetiquez00(obj_t BgL_envz00_735, obj_t BgL_xz00_736, obj_t BgL_ez00_737)
{ AN_OBJECT;
{ /* ./Expand/garith.scm 103 */
return 
BGl_expandzd2gzd3z01zzexpand_garithmetiquez00(BgL_xz00_736, BgL_ez00_737);} 
}



/* expand-g< */
BGL_EXPORTED_DEF obj_t BGl_expandzd2gzc3z11zzexpand_garithmetiquez00(obj_t BgL_xz00_11, obj_t BgL_ez00_12)
{ AN_OBJECT;
{ /* ./Expand/garith.scm 119 */
{ 
obj_t BgL_xz00_255;obj_t BgL_yz00_256;obj_t BgL_xz00_251;obj_t BgL_yz00_252;
{ /* ./Expand/garith.scm 120 */
bool_t BgL_test1494z00_259;
BgL_test1494z00_259 = 
PAIRP(BgL_xz00_11); 
if(BgL_test1494z00_259)
{ /* ./Expand/garith.scm 120 */
obj_t BgL_cdrzd2503zd2_260;
BgL_cdrzd2503zd2_260 = 
CDR(BgL_xz00_11); 
{ /* ./Expand/garith.scm 120 */
bool_t BgL_test1495z00_261;
BgL_test1495z00_261 = 
PAIRP(BgL_cdrzd2503zd2_260); 
if(BgL_test1495z00_261)
{ /* ./Expand/garith.scm 120 */
obj_t BgL_cdrzd2507zd2_262;
BgL_cdrzd2507zd2_262 = 
CDR(BgL_cdrzd2503zd2_260); 
{ /* ./Expand/garith.scm 120 */
bool_t BgL_test1496z00_263;
BgL_test1496z00_263 = 
PAIRP(BgL_cdrzd2507zd2_262); 
if(BgL_test1496z00_263)
{ /* ./Expand/garith.scm 120 */
bool_t BgL_test1497z00_264;
{ /* ./Expand/garith.scm 120 */
obj_t BgL_auxz00_1087;
BgL_auxz00_1087 = 
CDR(BgL_cdrzd2507zd2_262); 
BgL_test1497z00_264 = 
NULLP(BgL_auxz00_1087); } 
if(BgL_test1497z00_264)
{ /* ./Expand/garith.scm 120 */
obj_t BgL_arg1500z00_265;obj_t BgL_arg1501z00_266;
BgL_arg1500z00_265 = 
CAR(BgL_cdrzd2503zd2_260); 
BgL_arg1501z00_266 = 
CAR(BgL_cdrzd2507zd2_262); 
BgL_xz00_251 = BgL_arg1500z00_265; 
BgL_yz00_252 = BgL_arg1501z00_266; 
{ /* ./Expand/garith.scm 123 */
bool_t BgL_test1538z00_277;
{ /* ./Expand/garith.scm 123 */
bool_t BgL_testz00_1093;
if(
INTEGERP(BgL_xz00_251))
{ /* ./Expand/garith.scm 123 */
BgL_testz00_1093 = ((bool_t)1)
; }  else 
{ /* ./Expand/garith.scm 123 */
BgL_testz00_1093 = 
REALP(BgL_xz00_251)
; } 
if(BgL_testz00_1093)
{ /* ./Expand/garith.scm 123 */
if(
INTEGERP(BgL_yz00_252))
{ /* ./Expand/garith.scm 123 */
BgL_test1538z00_277 = ((bool_t)1); }  else 
{ /* ./Expand/garith.scm 123 */
BgL_test1538z00_277 = 
REALP(BgL_yz00_252); } }  else 
{ /* ./Expand/garith.scm 123 */
BgL_test1538z00_277 = ((bool_t)0); } } 
if(BgL_test1538z00_277)
{ /* ./Expand/garith.scm 123 */
{ /* ./Expand/garith.scm 124 */
bool_t BgL_auxz00_1101;
BgL_auxz00_1101 = 
BGl_2zc3zc3zz__r4_numbers_6_5z00(BgL_xz00_251, BgL_yz00_252); 
return 
BBOOL(BgL_auxz00_1101);} }  else 
{ /* ./Expand/garith.scm 123 */
{ /* ./Expand/garith.scm 126 */
obj_t BgL_arg1541z00_278;
{ /* ./Expand/garith.scm 126 */
obj_t BgL_arg1545z00_279;obj_t BgL_arg1547z00_280;
BgL_arg1545z00_279 = 
CNST_TABLE_REF(((long)10)); 
{ /* ./Expand/garith.scm 126 */
obj_t BgL_arg1551z00_281;
BgL_arg1551z00_281 = 
MAKE_PAIR(BgL_yz00_252, BNIL); 
BgL_arg1547z00_280 = 
MAKE_PAIR(BgL_xz00_251, BgL_arg1551z00_281); } 
BgL_arg1541z00_278 = 
MAKE_PAIR(BgL_arg1545z00_279, BgL_arg1547z00_280); } 
return 
PROCEDURE_ENTRY(BgL_ez00_12)(BgL_ez00_12, BgL_arg1541z00_278, BgL_ez00_12, BEOA);} } } }  else 
{ /* ./Expand/garith.scm 120 */
obj_t BgL_arg1506z00_268;obj_t BgL_arg1507z00_269;
BgL_arg1506z00_268 = 
CAR(BgL_cdrzd2503zd2_260); 
BgL_arg1507z00_269 = 
CDR(BgL_cdrzd2503zd2_260); 
BgL_xz00_255 = BgL_arg1506z00_268; 
BgL_yz00_256 = BgL_arg1507z00_269; 
BgL_tagzd2496zd2_257:
{ /* ./Expand/garith.scm 130 */
obj_t BgL_arg1559z00_283;
{ /* ./Expand/garith.scm 130 */
obj_t BgL_arg1562z00_284;obj_t BgL_arg1564z00_285;
BgL_arg1562z00_284 = 
CNST_TABLE_REF(((long)8)); 
{ /* ./Expand/garith.scm 130 */
obj_t BgL_arg1568z00_286;obj_t BgL_arg1569z00_287;
{ /* ./Expand/garith.scm 130 */
obj_t BgL_arg1572z00_288;obj_t BgL_arg1573z00_289;
BgL_arg1572z00_288 = 
CNST_TABLE_REF(((long)10)); 
{ /* ./Expand/garith.scm 130 */
obj_t BgL_arg1576z00_290;
{ /* ./Expand/garith.scm 130 */
obj_t BgL_arg1579z00_291;
BgL_arg1579z00_291 = 
CAR(BgL_yz00_256); 
BgL_arg1576z00_290 = 
MAKE_PAIR(BgL_arg1579z00_291, BNIL); } 
BgL_arg1573z00_289 = 
MAKE_PAIR(BgL_xz00_255, BgL_arg1576z00_290); } 
BgL_arg1568z00_286 = 
MAKE_PAIR(BgL_arg1572z00_288, BgL_arg1573z00_289); } 
{ /* ./Expand/garith.scm 130 */
obj_t BgL_arg1586z00_293;
{ /* ./Expand/garith.scm 130 */
obj_t BgL_arg1590z00_295;obj_t BgL_arg1591z00_296;
BgL_arg1590z00_295 = 
CNST_TABLE_REF(((long)11)); 
BgL_arg1591z00_296 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_yz00_256, BNIL); 
BgL_arg1586z00_293 = 
MAKE_PAIR(BgL_arg1590z00_295, BgL_arg1591z00_296); } 
BgL_arg1569z00_287 = 
MAKE_PAIR(BgL_arg1586z00_293, BNIL); } 
BgL_arg1564z00_285 = 
MAKE_PAIR(BgL_arg1568z00_286, BgL_arg1569z00_287); } 
BgL_arg1559z00_283 = 
MAKE_PAIR(BgL_arg1562z00_284, BgL_arg1564z00_285); } 
return 
PROCEDURE_ENTRY(BgL_ez00_12)(BgL_ez00_12, BgL_arg1559z00_283, BgL_ez00_12, BEOA);} } }  else 
{ /* ./Expand/garith.scm 120 */
bool_t BgL_test1516z00_271;
{ /* ./Expand/garith.scm 120 */
obj_t BgL_auxz00_1126;
BgL_auxz00_1126 = 
CDR(BgL_cdrzd2503zd2_260); 
BgL_test1516z00_271 = 
NULLP(BgL_auxz00_1126); } 
if(BgL_test1516z00_271)
{ /* ./Expand/garith.scm 120 */
FAILURE(BGl_string1963z00zzexpand_garithmetiquez00,BGl_string1962z00zzexpand_garithmetiquez00,BgL_xz00_11);}  else 
{ /* ./Expand/garith.scm 120 */
obj_t BgL_arg1520z00_273;obj_t BgL_arg1521z00_274;
BgL_arg1520z00_273 = 
CAR(BgL_cdrzd2503zd2_260); 
BgL_arg1521z00_274 = 
CDR(BgL_cdrzd2503zd2_260); 
{ 
obj_t BgL_yz00_1134;obj_t BgL_xz00_1133;
BgL_xz00_1133 = BgL_arg1520z00_273; 
BgL_yz00_1134 = BgL_arg1521z00_274; 
BgL_yz00_256 = BgL_yz00_1134; 
BgL_xz00_255 = BgL_xz00_1133; 
goto BgL_tagzd2496zd2_257;} } } } }  else 
{ /* ./Expand/garith.scm 120 */
return BFALSE;} } }  else 
{ /* ./Expand/garith.scm 120 */
return BFALSE;} } } } 
}



/* _expand-g< */
obj_t BGl__expandzd2gzc3z11zzexpand_garithmetiquez00(obj_t BgL_envz00_738, obj_t BgL_xz00_739, obj_t BgL_ez00_740)
{ AN_OBJECT;
{ /* ./Expand/garith.scm 119 */
return 
BGl_expandzd2gzc3z11zzexpand_garithmetiquez00(BgL_xz00_739, BgL_ez00_740);} 
}



/* expand-g> */
BGL_EXPORTED_DEF obj_t BGl_expandzd2gze3z31zzexpand_garithmetiquez00(obj_t BgL_xz00_13, obj_t BgL_ez00_14)
{ AN_OBJECT;
{ /* ./Expand/garith.scm 135 */
{ 
obj_t BgL_xz00_301;obj_t BgL_yz00_302;obj_t BgL_xz00_297;obj_t BgL_yz00_298;
{ /* ./Expand/garith.scm 136 */
bool_t BgL_test1594z00_305;
BgL_test1594z00_305 = 
PAIRP(BgL_xz00_13); 
if(BgL_test1594z00_305)
{ /* ./Expand/garith.scm 136 */
obj_t BgL_cdrzd2572zd2_306;
BgL_cdrzd2572zd2_306 = 
CDR(BgL_xz00_13); 
{ /* ./Expand/garith.scm 136 */
bool_t BgL_test1595z00_307;
BgL_test1595z00_307 = 
PAIRP(BgL_cdrzd2572zd2_306); 
if(BgL_test1595z00_307)
{ /* ./Expand/garith.scm 136 */
obj_t BgL_cdrzd2576zd2_308;
BgL_cdrzd2576zd2_308 = 
CDR(BgL_cdrzd2572zd2_306); 
{ /* ./Expand/garith.scm 136 */
bool_t BgL_test1596z00_309;
BgL_test1596z00_309 = 
PAIRP(BgL_cdrzd2576zd2_308); 
if(BgL_test1596z00_309)
{ /* ./Expand/garith.scm 136 */
bool_t BgL_test1597z00_310;
{ /* ./Expand/garith.scm 136 */
obj_t BgL_auxz00_1144;
BgL_auxz00_1144 = 
CDR(BgL_cdrzd2576zd2_308); 
BgL_test1597z00_310 = 
NULLP(BgL_auxz00_1144); } 
if(BgL_test1597z00_310)
{ /* ./Expand/garith.scm 136 */
obj_t BgL_arg1599z00_311;obj_t BgL_arg1600z00_312;
BgL_arg1599z00_311 = 
CAR(BgL_cdrzd2572zd2_306); 
BgL_arg1600z00_312 = 
CAR(BgL_cdrzd2576zd2_308); 
BgL_xz00_297 = BgL_arg1599z00_311; 
BgL_yz00_298 = BgL_arg1600z00_312; 
{ /* ./Expand/garith.scm 139 */
bool_t BgL_test1639z00_323;
{ /* ./Expand/garith.scm 139 */
bool_t BgL_testz00_1150;
if(
INTEGERP(BgL_xz00_297))
{ /* ./Expand/garith.scm 139 */
BgL_testz00_1150 = ((bool_t)1)
; }  else 
{ /* ./Expand/garith.scm 139 */
BgL_testz00_1150 = 
REALP(BgL_xz00_297)
; } 
if(BgL_testz00_1150)
{ /* ./Expand/garith.scm 139 */
if(
INTEGERP(BgL_yz00_298))
{ /* ./Expand/garith.scm 139 */
BgL_test1639z00_323 = ((bool_t)1); }  else 
{ /* ./Expand/garith.scm 139 */
BgL_test1639z00_323 = 
REALP(BgL_yz00_298); } }  else 
{ /* ./Expand/garith.scm 139 */
BgL_test1639z00_323 = ((bool_t)0); } } 
if(BgL_test1639z00_323)
{ /* ./Expand/garith.scm 139 */
{ /* ./Expand/garith.scm 140 */
bool_t BgL_auxz00_1158;
BgL_auxz00_1158 = 
BGl_2ze3ze3zz__r4_numbers_6_5z00(BgL_xz00_297, BgL_yz00_298); 
return 
BBOOL(BgL_auxz00_1158);} }  else 
{ /* ./Expand/garith.scm 139 */
{ /* ./Expand/garith.scm 142 */
obj_t BgL_arg1642z00_324;
{ /* ./Expand/garith.scm 142 */
obj_t BgL_arg1648z00_325;obj_t BgL_arg1650z00_326;
BgL_arg1648z00_325 = 
CNST_TABLE_REF(((long)12)); 
{ /* ./Expand/garith.scm 142 */
obj_t BgL_arg1654z00_327;
BgL_arg1654z00_327 = 
MAKE_PAIR(BgL_yz00_298, BNIL); 
BgL_arg1650z00_326 = 
MAKE_PAIR(BgL_xz00_297, BgL_arg1654z00_327); } 
BgL_arg1642z00_324 = 
MAKE_PAIR(BgL_arg1648z00_325, BgL_arg1650z00_326); } 
return 
PROCEDURE_ENTRY(BgL_ez00_14)(BgL_ez00_14, BgL_arg1642z00_324, BgL_ez00_14, BEOA);} } } }  else 
{ /* ./Expand/garith.scm 136 */
obj_t BgL_arg1606z00_314;obj_t BgL_arg1607z00_315;
BgL_arg1606z00_314 = 
CAR(BgL_cdrzd2572zd2_306); 
BgL_arg1607z00_315 = 
CDR(BgL_cdrzd2572zd2_306); 
BgL_xz00_301 = BgL_arg1606z00_314; 
BgL_yz00_302 = BgL_arg1607z00_315; 
BgL_tagzd2565zd2_303:
{ /* ./Expand/garith.scm 146 */
obj_t BgL_arg1662z00_329;
{ /* ./Expand/garith.scm 146 */
obj_t BgL_arg1666z00_330;obj_t BgL_arg1667z00_331;
BgL_arg1666z00_330 = 
CNST_TABLE_REF(((long)8)); 
{ /* ./Expand/garith.scm 146 */
obj_t BgL_arg1670z00_332;obj_t BgL_arg1671z00_333;
{ /* ./Expand/garith.scm 146 */
obj_t BgL_arg1674z00_334;obj_t BgL_arg1675z00_335;
BgL_arg1674z00_334 = 
CNST_TABLE_REF(((long)12)); 
{ /* ./Expand/garith.scm 146 */
obj_t BgL_arg1678z00_336;
{ /* ./Expand/garith.scm 146 */
obj_t BgL_arg1681z00_337;
BgL_arg1681z00_337 = 
CAR(BgL_yz00_302); 
BgL_arg1678z00_336 = 
MAKE_PAIR(BgL_arg1681z00_337, BNIL); } 
BgL_arg1675z00_335 = 
MAKE_PAIR(BgL_xz00_301, BgL_arg1678z00_336); } 
BgL_arg1670z00_332 = 
MAKE_PAIR(BgL_arg1674z00_334, BgL_arg1675z00_335); } 
{ /* ./Expand/garith.scm 146 */
obj_t BgL_arg1686z00_339;
{ /* ./Expand/garith.scm 146 */
obj_t BgL_arg1690z00_341;obj_t BgL_arg1691z00_342;
BgL_arg1690z00_341 = 
CNST_TABLE_REF(((long)13)); 
BgL_arg1691z00_342 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_yz00_302, BNIL); 
BgL_arg1686z00_339 = 
MAKE_PAIR(BgL_arg1690z00_341, BgL_arg1691z00_342); } 
BgL_arg1671z00_333 = 
MAKE_PAIR(BgL_arg1686z00_339, BNIL); } 
BgL_arg1667z00_331 = 
MAKE_PAIR(BgL_arg1670z00_332, BgL_arg1671z00_333); } 
BgL_arg1662z00_329 = 
MAKE_PAIR(BgL_arg1666z00_330, BgL_arg1667z00_331); } 
return 
PROCEDURE_ENTRY(BgL_ez00_14)(BgL_ez00_14, BgL_arg1662z00_329, BgL_ez00_14, BEOA);} } }  else 
{ /* ./Expand/garith.scm 136 */
bool_t BgL_test1616z00_317;
{ /* ./Expand/garith.scm 136 */
obj_t BgL_auxz00_1183;
BgL_auxz00_1183 = 
CDR(BgL_cdrzd2572zd2_306); 
BgL_test1616z00_317 = 
NULLP(BgL_auxz00_1183); } 
if(BgL_test1616z00_317)
{ /* ./Expand/garith.scm 136 */
FAILURE(BGl_string1964z00zzexpand_garithmetiquez00,BGl_string1962z00zzexpand_garithmetiquez00,BgL_xz00_13);}  else 
{ /* ./Expand/garith.scm 136 */
obj_t BgL_arg1620z00_319;obj_t BgL_arg1621z00_320;
BgL_arg1620z00_319 = 
CAR(BgL_cdrzd2572zd2_306); 
BgL_arg1621z00_320 = 
CDR(BgL_cdrzd2572zd2_306); 
{ 
obj_t BgL_yz00_1191;obj_t BgL_xz00_1190;
BgL_xz00_1190 = BgL_arg1620z00_319; 
BgL_yz00_1191 = BgL_arg1621z00_320; 
BgL_yz00_302 = BgL_yz00_1191; 
BgL_xz00_301 = BgL_xz00_1190; 
goto BgL_tagzd2565zd2_303;} } } } }  else 
{ /* ./Expand/garith.scm 136 */
return BFALSE;} } }  else 
{ /* ./Expand/garith.scm 136 */
return BFALSE;} } } } 
}



/* _expand-g> */
obj_t BGl__expandzd2gze3z31zzexpand_garithmetiquez00(obj_t BgL_envz00_741, obj_t BgL_xz00_742, obj_t BgL_ez00_743)
{ AN_OBJECT;
{ /* ./Expand/garith.scm 135 */
return 
BGl_expandzd2gze3z31zzexpand_garithmetiquez00(BgL_xz00_742, BgL_ez00_743);} 
}



/* expand-g<= */
BGL_EXPORTED_DEF obj_t BGl_expandzd2gzc3zd3zc2zzexpand_garithmetiquez00(obj_t BgL_xz00_15, obj_t BgL_ez00_16)
{ AN_OBJECT;
{ /* ./Expand/garith.scm 151 */
{ 
obj_t BgL_xz00_347;obj_t BgL_yz00_348;obj_t BgL_xz00_343;obj_t BgL_yz00_344;
{ /* ./Expand/garith.scm 152 */
bool_t BgL_test1694z00_351;
BgL_test1694z00_351 = 
PAIRP(BgL_xz00_15); 
if(BgL_test1694z00_351)
{ /* ./Expand/garith.scm 152 */
obj_t BgL_cdrzd2641zd2_352;
BgL_cdrzd2641zd2_352 = 
CDR(BgL_xz00_15); 
{ /* ./Expand/garith.scm 152 */
bool_t BgL_test1695z00_353;
BgL_test1695z00_353 = 
PAIRP(BgL_cdrzd2641zd2_352); 
if(BgL_test1695z00_353)
{ /* ./Expand/garith.scm 152 */
obj_t BgL_cdrzd2645zd2_354;
BgL_cdrzd2645zd2_354 = 
CDR(BgL_cdrzd2641zd2_352); 
{ /* ./Expand/garith.scm 152 */
bool_t BgL_test1696z00_355;
BgL_test1696z00_355 = 
PAIRP(BgL_cdrzd2645zd2_354); 
if(BgL_test1696z00_355)
{ /* ./Expand/garith.scm 152 */
bool_t BgL_test1697z00_356;
{ /* ./Expand/garith.scm 152 */
obj_t BgL_auxz00_1201;
BgL_auxz00_1201 = 
CDR(BgL_cdrzd2645zd2_354); 
BgL_test1697z00_356 = 
NULLP(BgL_auxz00_1201); } 
if(BgL_test1697z00_356)
{ /* ./Expand/garith.scm 152 */
obj_t BgL_arg1699z00_357;obj_t BgL_arg1700z00_358;
BgL_arg1699z00_357 = 
CAR(BgL_cdrzd2641zd2_352); 
BgL_arg1700z00_358 = 
CAR(BgL_cdrzd2645zd2_354); 
BgL_xz00_343 = BgL_arg1699z00_357; 
BgL_yz00_344 = BgL_arg1700z00_358; 
{ /* ./Expand/garith.scm 155 */
bool_t BgL_test1736z00_369;
{ /* ./Expand/garith.scm 155 */
bool_t BgL_testz00_1207;
if(
INTEGERP(BgL_xz00_343))
{ /* ./Expand/garith.scm 155 */
BgL_testz00_1207 = ((bool_t)1)
; }  else 
{ /* ./Expand/garith.scm 155 */
BgL_testz00_1207 = 
REALP(BgL_xz00_343)
; } 
if(BgL_testz00_1207)
{ /* ./Expand/garith.scm 155 */
if(
INTEGERP(BgL_yz00_344))
{ /* ./Expand/garith.scm 155 */
BgL_test1736z00_369 = ((bool_t)1); }  else 
{ /* ./Expand/garith.scm 155 */
BgL_test1736z00_369 = 
REALP(BgL_yz00_344); } }  else 
{ /* ./Expand/garith.scm 155 */
BgL_test1736z00_369 = ((bool_t)0); } } 
if(BgL_test1736z00_369)
{ /* ./Expand/garith.scm 155 */
{ /* ./Expand/garith.scm 156 */
bool_t BgL_auxz00_1215;
BgL_auxz00_1215 = 
BGl_2zc3zd3z10zz__r4_numbers_6_5z00(BgL_xz00_343, BgL_yz00_344); 
return 
BBOOL(BgL_auxz00_1215);} }  else 
{ /* ./Expand/garith.scm 155 */
{ /* ./Expand/garith.scm 158 */
obj_t BgL_arg1741z00_370;
{ /* ./Expand/garith.scm 158 */
obj_t BgL_arg1744z00_371;obj_t BgL_arg1748z00_372;
BgL_arg1744z00_371 = 
CNST_TABLE_REF(((long)14)); 
{ /* ./Expand/garith.scm 158 */
obj_t BgL_arg1752z00_373;
BgL_arg1752z00_373 = 
MAKE_PAIR(BgL_yz00_344, BNIL); 
BgL_arg1748z00_372 = 
MAKE_PAIR(BgL_xz00_343, BgL_arg1752z00_373); } 
BgL_arg1741z00_370 = 
MAKE_PAIR(BgL_arg1744z00_371, BgL_arg1748z00_372); } 
return 
PROCEDURE_ENTRY(BgL_ez00_16)(BgL_ez00_16, BgL_arg1741z00_370, BgL_ez00_16, BEOA);} } } }  else 
{ /* ./Expand/garith.scm 152 */
obj_t BgL_arg1705z00_360;obj_t BgL_arg1706z00_361;
BgL_arg1705z00_360 = 
CAR(BgL_cdrzd2641zd2_352); 
BgL_arg1706z00_361 = 
CDR(BgL_cdrzd2641zd2_352); 
BgL_xz00_347 = BgL_arg1705z00_360; 
BgL_yz00_348 = BgL_arg1706z00_361; 
BgL_tagzd2634zd2_349:
{ /* ./Expand/garith.scm 162 */
obj_t BgL_arg1760z00_375;
{ /* ./Expand/garith.scm 162 */
obj_t BgL_arg1766z00_376;obj_t BgL_arg1767z00_377;
BgL_arg1766z00_376 = 
CNST_TABLE_REF(((long)8)); 
{ /* ./Expand/garith.scm 162 */
obj_t BgL_arg1771z00_378;obj_t BgL_arg1772z00_379;
{ /* ./Expand/garith.scm 162 */
obj_t BgL_arg1775z00_380;obj_t BgL_arg1776z00_381;
BgL_arg1775z00_380 = 
CNST_TABLE_REF(((long)14)); 
{ /* ./Expand/garith.scm 162 */
obj_t BgL_arg1779z00_382;
{ /* ./Expand/garith.scm 162 */
obj_t BgL_arg1782z00_383;
BgL_arg1782z00_383 = 
CAR(BgL_yz00_348); 
BgL_arg1779z00_382 = 
MAKE_PAIR(BgL_arg1782z00_383, BNIL); } 
BgL_arg1776z00_381 = 
MAKE_PAIR(BgL_xz00_347, BgL_arg1779z00_382); } 
BgL_arg1771z00_378 = 
MAKE_PAIR(BgL_arg1775z00_380, BgL_arg1776z00_381); } 
{ /* ./Expand/garith.scm 162 */
obj_t BgL_arg1787z00_385;
{ /* ./Expand/garith.scm 162 */
obj_t BgL_arg1791z00_387;obj_t BgL_arg1792z00_388;
BgL_arg1791z00_387 = 
CNST_TABLE_REF(((long)15)); 
BgL_arg1792z00_388 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_yz00_348, BNIL); 
BgL_arg1787z00_385 = 
MAKE_PAIR(BgL_arg1791z00_387, BgL_arg1792z00_388); } 
BgL_arg1772z00_379 = 
MAKE_PAIR(BgL_arg1787z00_385, BNIL); } 
BgL_arg1767z00_377 = 
MAKE_PAIR(BgL_arg1771z00_378, BgL_arg1772z00_379); } 
BgL_arg1760z00_375 = 
MAKE_PAIR(BgL_arg1766z00_376, BgL_arg1767z00_377); } 
return 
PROCEDURE_ENTRY(BgL_ez00_16)(BgL_ez00_16, BgL_arg1760z00_375, BgL_ez00_16, BEOA);} } }  else 
{ /* ./Expand/garith.scm 152 */
bool_t BgL_test1715z00_363;
{ /* ./Expand/garith.scm 152 */
obj_t BgL_auxz00_1240;
BgL_auxz00_1240 = 
CDR(BgL_cdrzd2641zd2_352); 
BgL_test1715z00_363 = 
NULLP(BgL_auxz00_1240); } 
if(BgL_test1715z00_363)
{ /* ./Expand/garith.scm 152 */
FAILURE(BGl_string1965z00zzexpand_garithmetiquez00,BGl_string1962z00zzexpand_garithmetiquez00,BgL_xz00_15);}  else 
{ /* ./Expand/garith.scm 152 */
obj_t BgL_arg1718z00_365;obj_t BgL_arg1719z00_366;
BgL_arg1718z00_365 = 
CAR(BgL_cdrzd2641zd2_352); 
BgL_arg1719z00_366 = 
CDR(BgL_cdrzd2641zd2_352); 
{ 
obj_t BgL_yz00_1248;obj_t BgL_xz00_1247;
BgL_xz00_1247 = BgL_arg1718z00_365; 
BgL_yz00_1248 = BgL_arg1719z00_366; 
BgL_yz00_348 = BgL_yz00_1248; 
BgL_xz00_347 = BgL_xz00_1247; 
goto BgL_tagzd2634zd2_349;} } } } }  else 
{ /* ./Expand/garith.scm 152 */
return BFALSE;} } }  else 
{ /* ./Expand/garith.scm 152 */
return BFALSE;} } } } 
}



/* _expand-g<= */
obj_t BGl__expandzd2gzc3zd3zc2zzexpand_garithmetiquez00(obj_t BgL_envz00_744, obj_t BgL_xz00_745, obj_t BgL_ez00_746)
{ AN_OBJECT;
{ /* ./Expand/garith.scm 151 */
return 
BGl_expandzd2gzc3zd3zc2zzexpand_garithmetiquez00(BgL_xz00_745, BgL_ez00_746);} 
}



/* expand-g>= */
BGL_EXPORTED_DEF obj_t BGl_expandzd2gze3zd3ze2zzexpand_garithmetiquez00(obj_t BgL_xz00_17, obj_t BgL_ez00_18)
{ AN_OBJECT;
{ /* ./Expand/garith.scm 167 */
{ 
obj_t BgL_xz00_393;obj_t BgL_yz00_394;obj_t BgL_xz00_389;obj_t BgL_yz00_390;
{ /* ./Expand/garith.scm 168 */
bool_t BgL_test1795z00_397;
BgL_test1795z00_397 = 
PAIRP(BgL_xz00_17); 
if(BgL_test1795z00_397)
{ /* ./Expand/garith.scm 168 */
obj_t BgL_cdrzd2710zd2_398;
BgL_cdrzd2710zd2_398 = 
CDR(BgL_xz00_17); 
{ /* ./Expand/garith.scm 168 */
bool_t BgL_test1796z00_399;
BgL_test1796z00_399 = 
PAIRP(BgL_cdrzd2710zd2_398); 
if(BgL_test1796z00_399)
{ /* ./Expand/garith.scm 168 */
obj_t BgL_cdrzd2714zd2_400;
BgL_cdrzd2714zd2_400 = 
CDR(BgL_cdrzd2710zd2_398); 
{ /* ./Expand/garith.scm 168 */
bool_t BgL_test1797z00_401;
BgL_test1797z00_401 = 
PAIRP(BgL_cdrzd2714zd2_400); 
if(BgL_test1797z00_401)
{ /* ./Expand/garith.scm 168 */
bool_t BgL_test1798z00_402;
{ /* ./Expand/garith.scm 168 */
obj_t BgL_auxz00_1258;
BgL_auxz00_1258 = 
CDR(BgL_cdrzd2714zd2_400); 
BgL_test1798z00_402 = 
NULLP(BgL_auxz00_1258); } 
if(BgL_test1798z00_402)
{ /* ./Expand/garith.scm 168 */
obj_t BgL_arg1800z00_403;obj_t BgL_arg1801z00_404;
BgL_arg1800z00_403 = 
CAR(BgL_cdrzd2710zd2_398); 
BgL_arg1801z00_404 = 
CAR(BgL_cdrzd2714zd2_400); 
BgL_xz00_389 = BgL_arg1800z00_403; 
BgL_yz00_390 = BgL_arg1801z00_404; 
{ /* ./Expand/garith.scm 171 */
bool_t BgL_test1841z00_415;
{ /* ./Expand/garith.scm 171 */
bool_t BgL_testz00_1264;
if(
INTEGERP(BgL_xz00_389))
{ /* ./Expand/garith.scm 171 */
BgL_testz00_1264 = ((bool_t)1)
; }  else 
{ /* ./Expand/garith.scm 171 */
BgL_testz00_1264 = 
REALP(BgL_xz00_389)
; } 
if(BgL_testz00_1264)
{ /* ./Expand/garith.scm 171 */
if(
INTEGERP(BgL_yz00_390))
{ /* ./Expand/garith.scm 171 */
BgL_test1841z00_415 = ((bool_t)1); }  else 
{ /* ./Expand/garith.scm 171 */
BgL_test1841z00_415 = 
REALP(BgL_yz00_390); } }  else 
{ /* ./Expand/garith.scm 171 */
BgL_test1841z00_415 = ((bool_t)0); } } 
if(BgL_test1841z00_415)
{ /* ./Expand/garith.scm 171 */
{ /* ./Expand/garith.scm 172 */
bool_t BgL_auxz00_1272;
BgL_auxz00_1272 = 
BGl_2ze3zd3z30zz__r4_numbers_6_5z00(BgL_xz00_389, BgL_yz00_390); 
return 
BBOOL(BgL_auxz00_1272);} }  else 
{ /* ./Expand/garith.scm 171 */
{ /* ./Expand/garith.scm 174 */
obj_t BgL_arg1845z00_416;
{ /* ./Expand/garith.scm 174 */
obj_t BgL_arg1848z00_417;obj_t BgL_arg1849z00_418;
BgL_arg1848z00_417 = 
CNST_TABLE_REF(((long)16)); 
{ /* ./Expand/garith.scm 174 */
obj_t BgL_arg1853z00_419;
BgL_arg1853z00_419 = 
MAKE_PAIR(BgL_yz00_390, BNIL); 
BgL_arg1849z00_418 = 
MAKE_PAIR(BgL_xz00_389, BgL_arg1853z00_419); } 
BgL_arg1845z00_416 = 
MAKE_PAIR(BgL_arg1848z00_417, BgL_arg1849z00_418); } 
return 
PROCEDURE_ENTRY(BgL_ez00_18)(BgL_ez00_18, BgL_arg1845z00_416, BgL_ez00_18, BEOA);} } } }  else 
{ /* ./Expand/garith.scm 168 */
obj_t BgL_arg1806z00_406;obj_t BgL_arg1807z00_407;
BgL_arg1806z00_406 = 
CAR(BgL_cdrzd2710zd2_398); 
BgL_arg1807z00_407 = 
CDR(BgL_cdrzd2710zd2_398); 
BgL_xz00_393 = BgL_arg1806z00_406; 
BgL_yz00_394 = BgL_arg1807z00_407; 
BgL_tagzd2703zd2_395:
{ /* ./Expand/garith.scm 178 */
obj_t BgL_arg1862z00_421;
{ /* ./Expand/garith.scm 178 */
obj_t BgL_arg1865z00_422;obj_t BgL_arg1866z00_423;
BgL_arg1865z00_422 = 
CNST_TABLE_REF(((long)8)); 
{ /* ./Expand/garith.scm 178 */
obj_t BgL_arg1869z00_424;obj_t BgL_arg1870z00_425;
{ /* ./Expand/garith.scm 178 */
obj_t BgL_arg1873z00_426;obj_t BgL_arg1874z00_427;
BgL_arg1873z00_426 = 
CNST_TABLE_REF(((long)16)); 
{ /* ./Expand/garith.scm 178 */
obj_t BgL_arg1877z00_428;
{ /* ./Expand/garith.scm 178 */
obj_t BgL_arg1880z00_429;
BgL_arg1880z00_429 = 
CAR(BgL_yz00_394); 
BgL_arg1877z00_428 = 
MAKE_PAIR(BgL_arg1880z00_429, BNIL); } 
BgL_arg1874z00_427 = 
MAKE_PAIR(BgL_xz00_393, BgL_arg1877z00_428); } 
BgL_arg1869z00_424 = 
MAKE_PAIR(BgL_arg1873z00_426, BgL_arg1874z00_427); } 
{ /* ./Expand/garith.scm 178 */
obj_t BgL_arg1885z00_431;
{ /* ./Expand/garith.scm 178 */
obj_t BgL_arg1889z00_433;obj_t BgL_arg1890z00_434;
BgL_arg1889z00_433 = 
CNST_TABLE_REF(((long)17)); 
BgL_arg1890z00_434 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_yz00_394, BNIL); 
BgL_arg1885z00_431 = 
MAKE_PAIR(BgL_arg1889z00_433, BgL_arg1890z00_434); } 
BgL_arg1870z00_425 = 
MAKE_PAIR(BgL_arg1885z00_431, BNIL); } 
BgL_arg1866z00_423 = 
MAKE_PAIR(BgL_arg1869z00_424, BgL_arg1870z00_425); } 
BgL_arg1862z00_421 = 
MAKE_PAIR(BgL_arg1865z00_422, BgL_arg1866z00_423); } 
return 
PROCEDURE_ENTRY(BgL_ez00_18)(BgL_ez00_18, BgL_arg1862z00_421, BgL_ez00_18, BEOA);} } }  else 
{ /* ./Expand/garith.scm 168 */
bool_t BgL_test1816z00_409;
{ /* ./Expand/garith.scm 168 */
obj_t BgL_auxz00_1297;
BgL_auxz00_1297 = 
CDR(BgL_cdrzd2710zd2_398); 
BgL_test1816z00_409 = 
NULLP(BgL_auxz00_1297); } 
if(BgL_test1816z00_409)
{ /* ./Expand/garith.scm 168 */
FAILURE(BGl_string1966z00zzexpand_garithmetiquez00,BGl_string1962z00zzexpand_garithmetiquez00,BgL_xz00_17);}  else 
{ /* ./Expand/garith.scm 168 */
obj_t BgL_arg1821z00_411;obj_t BgL_arg1822z00_412;
BgL_arg1821z00_411 = 
CAR(BgL_cdrzd2710zd2_398); 
BgL_arg1822z00_412 = 
CDR(BgL_cdrzd2710zd2_398); 
{ 
obj_t BgL_yz00_1305;obj_t BgL_xz00_1304;
BgL_xz00_1304 = BgL_arg1821z00_411; 
BgL_yz00_1305 = BgL_arg1822z00_412; 
BgL_yz00_394 = BgL_yz00_1305; 
BgL_xz00_393 = BgL_xz00_1304; 
goto BgL_tagzd2703zd2_395;} } } } }  else 
{ /* ./Expand/garith.scm 168 */
return BFALSE;} } }  else 
{ /* ./Expand/garith.scm 168 */
return BFALSE;} } } } 
}



/* _expand-g>= */
obj_t BGl__expandzd2gze3zd3ze2zzexpand_garithmetiquez00(obj_t BgL_envz00_747, obj_t BgL_xz00_748, obj_t BgL_ez00_749)
{ AN_OBJECT;
{ /* ./Expand/garith.scm 167 */
return 
BGl_expandzd2gze3zd3ze2zzexpand_garithmetiquez00(BgL_xz00_748, BgL_ez00_749);} 
}

