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

#include <bigloo.h>


/* Object type definitions */
typedef struct BgL_typez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_namez00;
   obj_t BgL_siza7eza7;
   obj_t BgL_classz00;
   obj_t BgL_coercezd2tozd2;
   obj_t BgL_parentsz00;
   bool_t BgL_initzf3zf3;
   bool_t BgL_magiczf3zf3;
   obj_t BgL_z42z42;
   obj_t BgL_aliasz00;
   obj_t BgL_pointedzd2tozd2byz00;
   obj_t BgL_tvectorz00;
   obj_t BgL_locationz00;
   obj_t BgL_importzd2locationzd2;
} *BgL_typez00_bglt;


BGL_IMPORT bool_t BGl_2ze3ze3zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzexpand_epsz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_tracez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_speekz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzengine_passz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_prognz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_miscz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_identz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzexpand_expanderz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_locationz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__bexitz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__macroz00(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_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long, char *);
static obj_t BGl_handlerz00zzexpand_epsz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31359ze3z83zzexpand_epsz00(obj_t);
BGL_IMPORT double BGl_roundflz00zz__r4_numbers_6_5_flonumz00(double);
static obj_t BGl_methodzd2initzd2zzexpand_epsz00();
static obj_t BGl_zc3exitza31348ze3z83zzexpand_epsz00(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_verbosez00zztools_speekz00(obj_t, obj_t);
extern obj_t BGl_userzd2errorzd2zztools_errorz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31363ze3z83zzexpand_epsz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_IMPORT obj_t open_input_string(obj_t);
static obj_t BGl_zc3anonymousza31366ze3z83zzexpand_epsz00(obj_t);
BGL_IMPORT obj_t BGl_dynamiczd2windzd2zz__r4_control_features_6_9z00(obj_t, obj_t, obj_t);
static obj_t BGl_escape_1610z00zzexpand_epsz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
static obj_t BGl_escape_1621z00zzexpand_epsz00(obj_t, obj_t);
extern obj_t BGl_findzd2Ozd2expanderz00zzexpand_expanderz00(obj_t);
static obj_t BGl__za2identifierzd2expanderza2zd2zzexpand_epsz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_unwindzd2untilz12zc0zz__bexitz00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31524ze3z83zzexpand_epsz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t string_to_bstring(char *);
static obj_t BGl__initialzd2expanderzd2zzexpand_epsz00(obj_t, obj_t, obj_t);
static obj_t BGl_za2identifierzd2expanderza2zd2zzexpand_epsz00(obj_t, obj_t);
extern obj_t BGl_findzd2Gzd2expanderz00zzexpand_expanderz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_addzd2macrozd2aliasz12z12zzexpand_epsz00(obj_t, obj_t);
static obj_t BGl__addzd2macrozd2definitionz12z12zzexpand_epsz00(obj_t, obj_t);
static obj_t BGl__comptimezd2expandzd2zzexpand_epsz00(obj_t, obj_t);
extern obj_t BGl_fastzd2idzd2ofzd2idzd2zzast_identz00(obj_t, obj_t);
static obj_t BGl_za2lexicalzd2stackza2zd2zzexpand_epsz00 = BUNSPEC;
BGL_IMPORT obj_t BGl_putpropz12z12zz__r4_symbols_6_4z00(obj_t, obj_t, obj_t);
extern obj_t BGl_findzd2locationzd2zztools_locationz00(obj_t);
static obj_t BGl_escapez00zzexpand_epsz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_getpropz00zz__r4_symbols_6_4z00(obj_t, obj_t);
BGL_IMPORT obj_t display_string(obj_t, obj_t);
BGL_IMPORT obj_t BGl_getzd2evalzd2expanderz00zz__macroz00(obj_t);
static obj_t BGl_loopz00zzexpand_epsz00(obj_t, obj_t, obj_t);
extern obj_t BGl_internalzd2errorzd2zztools_errorz00(obj_t, obj_t, obj_t);
static obj_t BGl__addzd2macrozd2aliasz121587z12zzexpand_epsz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31401ze3z83zzexpand_epsz00(obj_t);
BGL_IMPORT obj_t BGl_removezd2errorzd2handlerz12z12zz__errorz00();
static obj_t BGl_zc3anonymousza31392ze3z83zzexpand_epsz00(obj_t);
BGL_IMPORT obj_t BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_IMPORT obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_zc3exitza31381ze3z83zzexpand_epsz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__za2applicationzd2expanderza2zd2zzexpand_epsz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31330ze3z83zzexpand_epsz00(obj_t);
static obj_t BGl_zc3anonymousza31394ze3z83zzexpand_epsz00(obj_t);
static obj_t BGl_za2applicationzd2expanderza2zd2zzexpand_epsz00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31332ze3z83zzexpand_epsz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_expandzd2unitszd2zzexpand_epsz00(obj_t);
static obj_t BGl_cnstzd2initzd2zzexpand_epsz00();
static obj_t BGl_zc3exitza31322ze3z83zzexpand_epsz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__comptimezd2expandzd2oncez00zzexpand_epsz00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31398ze3z83zzexpand_epsz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31472ze3z83zzexpand_epsz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31336ze3z83zzexpand_epsz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__withzd2lexicalzd2zzexpand_epsz00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00;
static obj_t BGl_initialzd2expanderzd2zzexpand_epsz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_addzd2macrozd2definitionz12z12zzexpand_epsz00(obj_t);
BGL_IMPORT obj_t bgl_append2(obj_t, obj_t);
BGL_IMPORT obj_t BGl_getzd2compilerzd2expanderz00zz__macroz00(obj_t);
static obj_t BGl_zc3anonymousza31339ze3z83zzexpand_epsz00(obj_t);
BGL_IMPORT obj_t BGl_displayzd22zd2zz__r4_output_6_10_3z00(obj_t, obj_t);
extern obj_t BGl_za2currentzd2passza2zd2zzengine_passz00;
static obj_t BGl_importedzd2moduleszd2initz00zzexpand_epsz00();
BGL_EXPORTED_DECL obj_t BGl_comptimezd2expandzd2oncez00zzexpand_epsz00(obj_t);
static obj_t BGl_za2macroza2z00zzexpand_epsz00 = BUNSPEC;
static obj_t BGl_requirezd2initializa7ationz75zzexpand_epsz00 = BUNSPEC;
static obj_t BGl__expandzd2unitszd2zzexpand_epsz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_lexicalzd2stackzd2zzexpand_epsz00();
BGL_IMPORT obj_t BGl_exitz00zz__errorz00(obj_t);
static obj_t BGl__lexicalzd2stackzd2zzexpand_epsz00(obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzexpand_epsz00();
BGL_EXPORTED_DECL obj_t BGl_comptimezd2expandzd2zzexpand_epsz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_withzd2lexicalzd2zzexpand_epsz00(obj_t, obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_addzd2errorzd2handlerz12z12zz__errorz00(obj_t, obj_t);
static obj_t BGl_toplevelzd2initzd2zzexpand_epsz00();
static obj_t BGl_zc3anonymousza31357ze3z83zzexpand_epsz00(obj_t);
static obj_t __cnst[ 6 ] ;


DEFINE_STATIC_PROCEDURE( BGl_initialzd2expanderzd2envz00zzexpand_epsz00, BgL_bgl__initialza7d2expanderza7d2za7za7expand_epsza7001818za7, BGl__initialzd2expanderzd2zzexpand_epsz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2unitszd2envz00zzexpand_epsz00, BgL_bgl__expandza7d2unitsza7d2za7za7expand_epsza7001819za7, BGl__expandzd2unitszd2zzexpand_epsz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_za2applicationzd2expanderza2zd2envz00zzexpand_epsz00, BgL_bgl__za7a2applicationza7d2expanderza7a2za7d2za7za7expand_epsza7001820za7, BGl__za2applicationzd2expanderza2zd2zzexpand_epsz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_comptimezd2expandzd2oncezd2envzd2zzexpand_epsz00, BgL_bgl__comptimeza7d2expandza7d2onceza700za7za7expand_epsza7001821z00, BGl__comptimezd2expandzd2oncez00zzexpand_epsz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_withzd2lexicalzd2envz00zzexpand_epsz00, BgL_bgl__withza7d2lexicalza7d2za7za7expand_epsza7001822za7, BGl__withzd2lexicalzd2zzexpand_epsz00, 0L, 4 );
DEFINE_EXPORT_PROCEDURE( BGl_addzd2macrozd2aliasz12zd2envzc0zzexpand_epsz00, BgL_bgl__addza7d2macroza7d2aliasza7121587za712za7za7expand_epsza7001823za7, BGl__addzd2macrozd2aliasz121587z12zzexpand_epsz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_za2identifierzd2expanderza2zd2envz00zzexpand_epsz00, BgL_bgl__za7a2identifierza7d2expanderza7a2za7d2za7za7expand_epsza7001824za7, BGl__za2identifierzd2expanderza2zd2zzexpand_epsz00, 0L, 2 );
DEFINE_STRING( BGl_string1784z00zzexpand_epsz00, BgL_bgl_string1784za700za7za7expand_epsza7001825z00, "(quote ()) define-expander define-macro nothing pass-started macro-alias-key ", 77 );
DEFINE_STRING( BGl_string1783z00zzexpand_epsz00, BgL_bgl_string1783za700za7za7expand_epsza7001826z00, "Illegal application form", 24 );
DEFINE_EXPORT_PROCEDURE( BGl_comptimezd2expandzd2envz00zzexpand_epsz00, BgL_bgl__comptimeza7d2expandza7d2za7za7expand_epsza7001827za7, BGl__comptimezd2expandzd2zzexpand_epsz00, 0L, 1 );
DEFINE_STRING( BGl_string1781z00zzexpand_epsz00, BgL_bgl_string1781za700za7za7expand_epsza7001828z00, "Illegal form", 12 );
DEFINE_STRING( BGl_string1779z00zzexpand_epsz00, BgL_bgl_string1779za700za7za7expand_epsza7001829z00, "failure during postlude hook", 28 );
DEFINE_STRING( BGl_string1778z00zzexpand_epsz00, BgL_bgl_string1778za700za7za7expand_epsza7001830z00, " occured, ending ...", 20 );
DEFINE_STRING( BGl_string1777z00zzexpand_epsz00, BgL_bgl_string1777za700za7za7expand_epsza7001831z00, " error", 6 );
DEFINE_STRING( BGl_string1776z00zzexpand_epsz00, BgL_bgl_string1776za700za7za7expand_epsza7001832z00, "failure during prelude hook", 27 );
DEFINE_STRING( BGl_string1775z00zzexpand_epsz00, BgL_bgl_string1775za700za7za7expand_epsza7001833z00, "   . ", 5 );
DEFINE_STRING( BGl_string1774z00zzexpand_epsz00, BgL_bgl_string1774za700za7za7expand_epsza7001834z00, "Expand", 6 );
DEFINE_EXPORT_PROCEDURE( BGl_addzd2macrozd2definitionz12zd2envzc0zzexpand_epsz00, BgL_bgl__addza7d2macroza7d2definitionza712za712za7za7expand_epsza7001835za7, BGl__addzd2macrozd2definitionz12z12zzexpand_epsz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_lexicalzd2stackzd2envz00zzexpand_epsz00, BgL_bgl__lexicalza7d2stackza7d2za7za7expand_epsza7001836za7, BGl__lexicalzd2stackzd2zzexpand_epsz00, 0L, 0 );
DEFINE_STATIC_PROCEDURE( BGl_proc1773z00zzexpand_epsz00, BgL_bgl_handlerza700za7za7expand_epsza7001837z00, BGl_handlerz00zzexpand_epsz00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc1780z00zzexpand_epsz00, BgL_bgl_za7c3anonymousza7a31472za7e3za783za7za7expand_epsza7001838za7, BGl_zc3anonymousza31472ze3z83zzexpand_epsz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc1782z00zzexpand_epsz00, BgL_bgl_za7c3anonymousza7a31524za7e3za783za7za7expand_epsza7001839za7, BGl_zc3anonymousza31524ze3z83zzexpand_epsz00, 0L, 2 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzexpand_epsz00(long BgL_checksumz00_671, char * BgL_fromz00_672)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzexpand_epsz00))
{ 
BGl_requirezd2initializa7ationz75zzexpand_epsz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzexpand_epsz00(); 
BGl_cnstzd2initzd2zzexpand_epsz00(); 
BGl_importedzd2moduleszd2initz00zzexpand_epsz00(); 
BGl_toplevelzd2initzd2zzexpand_epsz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzexpand_epsz00()
{ AN_OBJECT;
{ /* ./Expand/eps.scm 17 */
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(((long)0), "expand_eps"); 
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(((long)0), "expand_eps"); 
BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(((long)0), "expand_eps"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "expand_eps"); 
BGl_modulezd2initializa7ationz75zz__bexitz00(((long)0), "expand_eps"); 
BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(((long)0), "expand_eps"); 
BGl_modulezd2initializa7ationz75zz__macroz00(((long)0), "expand_eps"); 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)0), "expand_eps"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "expand_eps"); 
BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(((long)0), "expand_eps"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzexpand_epsz00()
{ AN_OBJECT;
{ /* ./Expand/eps.scm 17 */
{ /* ./Expand/eps.scm 17 */
obj_t BgL_cportz00_660;
BgL_cportz00_660 = 
open_input_string(BGl_string1784z00zzexpand_epsz00); 
{ 
long BgL_iz00_661;
BgL_iz00_661 = ((long)5); 
BgL_loopz00_662:
{ /* ./Expand/eps.scm 17 */
bool_t BgL_test1786z00_663;
BgL_test1786z00_663 = 
(BgL_iz00_661==((long)-1)); 
if(BgL_test1786z00_663)
{ /* ./Expand/eps.scm 17 */
return BUNSPEC;}  else 
{ /* ./Expand/eps.scm 17 */
{ /* ./Expand/eps.scm 17 */
obj_t BgL_arg1788z00_664;
{ /* ./Expand/eps.scm 17 */
obj_t BgL_list1791z00_665;
BgL_list1791z00_665 = 
MAKE_PAIR(BgL_cportz00_660, BNIL); 
BgL_arg1788z00_664 = 
BGl_readz00zz__readerz00(BgL_list1791z00_665); } 
{ /* ./Expand/eps.scm 17 */
int BgL_auxz00_695;
BgL_auxz00_695 = 
(int)(BgL_iz00_661); 
CNST_TABLE_SET(BgL_auxz00_695, BgL_arg1788z00_664); } } 
{ /* ./Expand/eps.scm 17 */
int BgL_auxz00_666;
{ /* ./Expand/eps.scm 17 */
long BgL_auxz00_698;
BgL_auxz00_698 = 
(BgL_iz00_661-((long)1)); 
BgL_auxz00_666 = 
(int)(BgL_auxz00_698); } 
{ 
long BgL_iz00_701;
BgL_iz00_701 = 
(long)(BgL_auxz00_666); 
BgL_iz00_661 = BgL_iz00_701; 
goto BgL_loopz00_662;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzexpand_epsz00()
{ AN_OBJECT;
{ /* ./Expand/eps.scm 17 */
BGl_za2macroza2z00zzexpand_epsz00 = BNIL; 
return ( 
BGl_za2lexicalzd2stackza2zd2zzexpand_epsz00 = BNIL, BUNSPEC) ;} 
}



/* add-macro-definition! */
BGL_EXPORTED_DEF obj_t BGl_addzd2macrozd2definitionz12z12zzexpand_epsz00(obj_t BgL_formz00_29)
{ AN_OBJECT;
{ /* ./Expand/eps.scm 46 */
return ( 
BGl_za2macroza2z00zzexpand_epsz00 = 
MAKE_PAIR(BgL_formz00_29, BGl_za2macroza2z00zzexpand_epsz00), BUNSPEC) ;} 
}



/* _add-macro-definition! */
obj_t BGl__addzd2macrozd2definitionz12z12zzexpand_epsz00(obj_t BgL_envz00_515, obj_t BgL_formz00_516)
{ AN_OBJECT;
{ /* ./Expand/eps.scm 46 */
return 
BGl_addzd2macrozd2definitionz12z12zzexpand_epsz00(BgL_formz00_516);} 
}



/* add-macro-alias! */
BGL_EXPORTED_DEF obj_t BGl_addzd2macrozd2aliasz12z12zzexpand_epsz00(obj_t BgL_sym1z00_30, obj_t BgL_sym2z00_31)
{ AN_OBJECT;
{ /* ./Expand/eps.scm 52 */
return 
BGl_putpropz12z12zz__r4_symbols_6_4z00(BgL_sym1z00_30, 
CNST_TABLE_REF(((long)0)), BgL_sym2z00_31);} 
}



/* _add-macro-alias!1587 */
obj_t BGl__addzd2macrozd2aliasz121587z12zzexpand_epsz00(obj_t BgL_envz00_517, obj_t BgL_sym1z00_518, obj_t BgL_sym2z00_519)
{ AN_OBJECT;
{ /* ./Expand/eps.scm 52 */
return 
BGl_addzd2macrozd2aliasz12z12zzexpand_epsz00(BgL_sym1z00_518, BgL_sym2z00_519);} 
}



/* lexical-stack */
BGL_EXPORTED_DEF obj_t BGl_lexicalzd2stackzd2zzexpand_epsz00()
{ AN_OBJECT;
{ /* ./Expand/eps.scm 68 */
return BGl_za2lexicalzd2stackza2zd2zzexpand_epsz00;} 
}



/* _lexical-stack */
obj_t BGl__lexicalzd2stackzd2zzexpand_epsz00(obj_t BgL_envz00_520)
{ AN_OBJECT;
{ /* ./Expand/eps.scm 68 */
return BGl_za2lexicalzd2stackza2zd2zzexpand_epsz00;} 
}



/* with-lexical */
BGL_EXPORTED_DEF obj_t BGl_withzd2lexicalzd2zzexpand_epsz00(obj_t BgL_newz00_32, obj_t BgL_markz00_33, obj_t BgL_locz00_34, obj_t BgL_thunkz00_35)
{ AN_OBJECT;
{ /* ./Expand/eps.scm 74 */
{ /* ./Expand/eps.scm 75 */
obj_t BgL_newzd2idzd2_121;obj_t BgL_oldzd2lexicalzd2stackz00_122;
{ /* ./Expand/eps.scm 75 */
bool_t BgL_test1219z00_138;
BgL_test1219z00_138 = 
NULLP(BgL_newz00_32); 
if(BgL_test1219z00_138)
{ /* ./Expand/eps.scm 75 */
BgL_newzd2idzd2_121 = BNIL; }  else 
{ /* ./Expand/eps.scm 75 */
obj_t BgL_head1091z00_139;
BgL_head1091z00_139 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1089z00_140;obj_t BgL_tail1092z00_141;
BgL_l1089z00_140 = BgL_newz00_32; 
BgL_tail1092z00_141 = BgL_head1091z00_139; 
BgL_map1090z00_142:
{ /* ./Expand/eps.scm 75 */
bool_t BgL_test1221z00_143;
BgL_test1221z00_143 = 
NULLP(BgL_l1089z00_140); 
if(BgL_test1221z00_143)
{ /* ./Expand/eps.scm 75 */
BgL_newzd2idzd2_121 = 
CDR(BgL_head1091z00_139); }  else 
{ /* ./Expand/eps.scm 75 */
obj_t BgL_newtail1093z00_144;
{ /* ./Expand/eps.scm 75 */
obj_t BgL_arg1229z00_146;
{ /* ./Expand/eps.scm 75 */
obj_t BgL_az00_148;
BgL_az00_148 = 
CAR(BgL_l1089z00_140); 
BgL_arg1229z00_146 = 
BGl_fastzd2idzd2ofzd2idzd2zzast_identz00(BgL_az00_148, BgL_locz00_34); } 
BgL_newtail1093z00_144 = 
MAKE_PAIR(BgL_arg1229z00_146, BNIL); } 
SET_CDR(BgL_tail1092z00_141, BgL_newtail1093z00_144); 
{ /* ./Expand/eps.scm 75 */
obj_t BgL_arg1225z00_145;
BgL_arg1225z00_145 = 
CDR(BgL_l1089z00_140); 
{ 
obj_t BgL_tail1092z00_720;obj_t BgL_l1089z00_719;
BgL_l1089z00_719 = BgL_arg1225z00_145; 
BgL_tail1092z00_720 = BgL_newtail1093z00_144; 
BgL_tail1092z00_141 = BgL_tail1092z00_720; 
BgL_l1089z00_140 = BgL_l1089z00_719; 
goto BgL_map1090z00_142;} } } } } } } 
BgL_oldzd2lexicalzd2stackz00_122 = BGl_za2lexicalzd2stackza2zd2zzexpand_epsz00; 
{ /* ./Expand/eps.scm 78 */
obj_t BgL_arg1198z00_123;
{ /* ./Expand/eps.scm 78 */
bool_t BgL_test1200z00_125;
BgL_test1200z00_125 = 
NULLP(BgL_newzd2idzd2_121); 
if(BgL_test1200z00_125)
{ /* ./Expand/eps.scm 78 */
BgL_arg1198z00_123 = BNIL; }  else 
{ /* ./Expand/eps.scm 78 */
obj_t BgL_head1096z00_126;
BgL_head1096z00_126 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1094z00_127;obj_t BgL_tail1097z00_128;
BgL_l1094z00_127 = BgL_newzd2idzd2_121; 
BgL_tail1097z00_128 = BgL_head1096z00_126; 
BgL_map1095z00_129:
{ /* ./Expand/eps.scm 78 */
bool_t BgL_test1202z00_130;
BgL_test1202z00_130 = 
NULLP(BgL_l1094z00_127); 
if(BgL_test1202z00_130)
{ /* ./Expand/eps.scm 78 */
BgL_arg1198z00_123 = 
CDR(BgL_head1096z00_126); }  else 
{ /* ./Expand/eps.scm 78 */
obj_t BgL_newtail1098z00_131;
{ /* ./Expand/eps.scm 78 */
obj_t BgL_arg1210z00_133;
{ /* ./Expand/eps.scm 78 */
obj_t BgL_oz00_135;
BgL_oz00_135 = 
CAR(BgL_l1094z00_127); 
BgL_arg1210z00_133 = 
MAKE_PAIR(BgL_oz00_135, BgL_markz00_33); } 
BgL_newtail1098z00_131 = 
MAKE_PAIR(BgL_arg1210z00_133, BNIL); } 
SET_CDR(BgL_tail1097z00_128, BgL_newtail1098z00_131); 
{ /* ./Expand/eps.scm 78 */
obj_t BgL_arg1206z00_132;
BgL_arg1206z00_132 = 
CDR(BgL_l1094z00_127); 
{ 
obj_t BgL_tail1097z00_733;obj_t BgL_l1094z00_732;
BgL_l1094z00_732 = BgL_arg1206z00_132; 
BgL_tail1097z00_733 = BgL_newtail1098z00_131; 
BgL_tail1097z00_128 = BgL_tail1097z00_733; 
BgL_l1094z00_127 = BgL_l1094z00_732; 
goto BgL_map1095z00_129;} } } } } } } 
BGl_za2lexicalzd2stackza2zd2zzexpand_epsz00 = 
bgl_append2(BgL_arg1198z00_123, BGl_za2lexicalzd2stackza2zd2zzexpand_epsz00); } 
{ /* ./Expand/eps.scm 79 */
obj_t BgL_resz00_136;
BgL_resz00_136 = 
PROCEDURE_ENTRY(BgL_thunkz00_35)(BgL_thunkz00_35, BEOA); 
BGl_za2lexicalzd2stackza2zd2zzexpand_epsz00 = BgL_oldzd2lexicalzd2stackz00_122; 
return BgL_resz00_136;} } } 
}



/* _with-lexical */
obj_t BGl__withzd2lexicalzd2zzexpand_epsz00(obj_t BgL_envz00_521, obj_t BgL_newz00_522, obj_t BgL_markz00_523, obj_t BgL_locz00_524, obj_t BgL_thunkz00_525)
{ AN_OBJECT;
{ /* ./Expand/eps.scm 74 */
return 
BGl_withzd2lexicalzd2zzexpand_epsz00(BgL_newz00_522, BgL_markz00_523, BgL_locz00_524, BgL_thunkz00_525);} 
}



/* expand-units */
BGL_EXPORTED_DEF obj_t BGl_expandzd2unitszd2zzexpand_epsz00(obj_t BgL_unitsz00_36)
{ AN_OBJECT;
{ /* ./Expand/eps.scm 88 */
{ /* ./Expand/eps.scm 89 */
obj_t BgL_list1238z00_150;
{ /* ./Expand/eps.scm 89 */
obj_t BgL_arg1241z00_152;
{ /* ./Expand/eps.scm 89 */
obj_t BgL_arg1245z00_154;
{ /* ./Expand/eps.scm 89 */
obj_t BgL_auxz00_738;
BgL_auxz00_738 = 
BCHAR(((unsigned char)'\n')); 
BgL_arg1245z00_154 = 
MAKE_PAIR(BgL_auxz00_738, BNIL); } 
BgL_arg1241z00_152 = 
MAKE_PAIR(BGl_string1774z00zzexpand_epsz00, BgL_arg1245z00_154); } 
BgL_list1238z00_150 = 
MAKE_PAIR(BGl_string1775z00zzexpand_epsz00, BgL_arg1241z00_152); } 
BGl_verbosez00zztools_speekz00(
BINT(((long)1)), BgL_list1238z00_150); } 
BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00 = 
BINT(((long)0)); 
BGl_za2currentzd2passza2zd2zzengine_passz00 = BGl_string1774z00zzexpand_epsz00; 
{ 
obj_t BgL_hooksz00_155;obj_t BgL_hnamesz00_156;
{ /* ./Expand/eps.scm 89 */
obj_t BgL_arg1249z00_158;
BgL_arg1249z00_158 = BNIL; 
BgL_hooksz00_155 = BgL_arg1249z00_158; 
BgL_hnamesz00_156 = BNIL; 
BgL_loopz00_157:
{ /* ./Expand/eps.scm 89 */
bool_t BgL_test1254z00_161;
BgL_test1254z00_161 = 
NULLP(BgL_hooksz00_155); 
if(BgL_test1254z00_161)
{ /* ./Expand/eps.scm 89 */
CNST_TABLE_REF(((long)1)); }  else 
{ /* ./Expand/eps.scm 89 */
bool_t BgL_test1255z00_162;
{ /* ./Expand/eps.scm 89 */
obj_t BgL_fun1272z00_168;
BgL_fun1272z00_168 = 
CAR(BgL_hooksz00_155); 
{ /* ./Expand/eps.scm 89 */
obj_t BgL_auxz00_750;
BgL_auxz00_750 = 
PROCEDURE_ENTRY(BgL_fun1272z00_168)(BgL_fun1272z00_168, BEOA); 
BgL_test1255z00_162 = 
CBOOL(BgL_auxz00_750); } } 
if(BgL_test1255z00_162)
{ /* ./Expand/eps.scm 89 */
{ /* ./Expand/eps.scm 89 */
obj_t BgL_arg1258z00_163;obj_t BgL_arg1259z00_164;
BgL_arg1258z00_163 = 
CDR(BgL_hooksz00_155); 
BgL_arg1259z00_164 = 
CDR(BgL_hnamesz00_156); 
{ 
obj_t BgL_hnamesz00_758;obj_t BgL_hooksz00_757;
BgL_hooksz00_757 = BgL_arg1258z00_163; 
BgL_hnamesz00_758 = BgL_arg1259z00_164; 
BgL_hnamesz00_156 = BgL_hnamesz00_758; 
BgL_hooksz00_155 = BgL_hooksz00_757; 
goto BgL_loopz00_157;} } }  else 
{ /* ./Expand/eps.scm 89 */
{ /* ./Expand/eps.scm 89 */
obj_t BgL_arg1267z00_167;
BgL_arg1267z00_167 = 
CAR(BgL_hnamesz00_156); 
BGl_internalzd2errorzd2zztools_errorz00(BGl_string1774z00zzexpand_epsz00, BGl_string1776z00zzexpand_epsz00, BgL_arg1267z00_167); } } } } } } 
{ 
obj_t BgL_l1099z00_169;
{ /* ./Expand/eps.scm 91 */
obj_t BgL_arg1276z00_171;
BgL_arg1276z00_171 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BGl_za2macroza2z00zzexpand_epsz00); 
BgL_l1099z00_169 = BgL_arg1276z00_171; 
BgL_forzd2each1100zd2_170:
{ /* ./Expand/eps.scm 91 */
bool_t BgL_test1279z00_172;
BgL_test1279z00_172 = 
PAIRP(BgL_l1099z00_169); 
if(BgL_test1279z00_172)
{ /* ./Expand/eps.scm 91 */
{ /* ./Expand/eps.scm 91 */
obj_t BgL_arg1282z00_173;
BgL_arg1282z00_173 = 
CAR(BgL_l1099z00_169); 
BGl_initialzd2expanderzd2zzexpand_epsz00(BgL_arg1282z00_173, BGl_initialzd2expanderzd2envz00zzexpand_epsz00); } 
{ /* ./Expand/eps.scm 91 */
obj_t BgL_arg1286z00_174;
BgL_arg1286z00_174 = 
CDR(BgL_l1099z00_169); 
{ 
obj_t BgL_l1099z00_767;
BgL_l1099z00_767 = BgL_arg1286z00_174; 
BgL_l1099z00_169 = BgL_l1099z00_767; 
goto BgL_forzd2each1100zd2_170;} } }  else 
{ /* ./Expand/eps.scm 91 */((bool_t)1); } } } } 
{ 
obj_t BgL_l1101z00_175;
BgL_l1101z00_175 = BgL_unitsz00_36; 
BgL_forzd2each1102zd2_176:
{ /* ./Expand/eps.scm 98 */
bool_t BgL_test1291z00_177;
BgL_test1291z00_177 = 
PAIRP(BgL_l1101z00_175); 
if(BgL_test1291z00_177)
{ /* ./Expand/eps.scm 98 */
{ /* ./Expand/eps.scm 99 */
obj_t BgL_unitz00_178;
BgL_unitz00_178 = 
CAR(BgL_l1101z00_175); 
{ /* ./Expand/eps.scm 99 */
bool_t BgL_test1292z00_179;
{ /* ./Expand/eps.scm 99 */
obj_t BgL_auxz00_771;
{ /* ./Expand/eps.scm 99 */
int BgL_auxz00_772;
BgL_auxz00_772 = 
(int)(((long)2)); 
BgL_auxz00_771 = 
STRUCT_REF(BgL_unitz00_178, BgL_auxz00_772); } 
BgL_test1292z00_179 = 
PROCEDUREP(BgL_auxz00_771); } 
if(BgL_test1292z00_179)
{ /* ./Expand/eps.scm 99 */
CNST_TABLE_REF(((long)2)); }  else 
{ 
obj_t BgL_srcz00_180;obj_t BgL_resz00_181;
{ /* ./Expand/eps.scm 103 */
obj_t BgL_arg1294z00_183;
{ /* ./Expand/eps.scm 103 */
int BgL_auxz00_778;
BgL_auxz00_778 = 
(int)(((long)2)); 
BgL_arg1294z00_183 = 
STRUCT_REF(BgL_unitz00_178, BgL_auxz00_778); } 
BgL_srcz00_180 = BgL_arg1294z00_183; 
BgL_resz00_181 = BNIL; 
BgL_loopz00_182:
{ /* ./Expand/eps.scm 105 */
bool_t BgL_test1298z00_185;
BgL_test1298z00_185 = 
NULLP(BgL_srcz00_180); 
if(BgL_test1298z00_185)
{ /* ./Expand/eps.scm 106 */
obj_t BgL_arg1300z00_186;
BgL_arg1300z00_186 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_resz00_181); 
{ /* ./Expand/eps.scm 106 */
int BgL_kz00_438;
BgL_kz00_438 = 
(int)(((long)2)); 
{ /* ./Expand/eps.scm 106 */
obj_t BgL_xz00_658;
BgL_xz00_658 = 
STRUCT_SET(BgL_unitz00_178, BgL_kz00_438, BgL_arg1300z00_186); BUNSPEC; } } }  else 
{ 

{ /* ./Expand/eps.scm 107 */
obj_t BgL_ezd2123zd2_190;
BgL_ezd2123zd2_190 = 
CAR(BgL_srcz00_180); 
{ /* ./Expand/eps.scm 107 */
bool_t BgL_test1303z00_191;
BgL_test1303z00_191 = 
PAIRP(BgL_ezd2123zd2_190); 
if(BgL_test1303z00_191)
{ /* ./Expand/eps.scm 107 */
bool_t BgL_test1304z00_192;
{ /* ./Expand/eps.scm 107 */
obj_t BgL_auxz00_791;obj_t BgL_auxz00_789;
BgL_auxz00_791 = 
CNST_TABLE_REF(((long)3)); 
BgL_auxz00_789 = 
CAR(BgL_ezd2123zd2_190); 
BgL_test1304z00_192 = 
(BgL_auxz00_789==BgL_auxz00_791); } 
if(BgL_test1304z00_192)
{ /* ./Expand/eps.scm 107 */
{ /* ./Expand/eps.scm 109 */
obj_t BgL_armed1106z00_198;obj_t BgL_handler1103z00_199;
BgL_armed1106z00_198 = 
MAKE_CELL(BUNSPEC); 
BgL_handler1103z00_199 = 
MAKE_CELL(BUNSPEC); 
{ /* ./Expand/eps.scm 109 */
obj_t BgL_zc3anonymousza31339ze3z83_540;obj_t BgL_zc3anonymousza31336ze3z83_542;
{ 
int BgL_auxz00_797;int BgL_auxz00_795;
BgL_auxz00_797 = 
(int)(((long)1)); 
BgL_auxz00_795 = 
(int)(((long)0)); 
BgL_zc3anonymousza31339ze3z83_540 = 
make_fx_procedure(BGl_zc3anonymousza31339ze3z83zzexpand_epsz00, BgL_auxz00_795, BgL_auxz00_797); } 
{ 
int BgL_auxz00_802;int BgL_auxz00_800;
BgL_auxz00_802 = 
(int)(((long)2)); 
BgL_auxz00_800 = 
(int)(((long)4)); 
BgL_zc3anonymousza31336ze3z83_542 = 
make_fx_procedure(BGl_zc3anonymousza31336ze3z83zzexpand_epsz00, BgL_auxz00_800, BgL_auxz00_802); } 
{ /* ./Expand/eps.scm 109 */
int BgL_auxz00_805;
BgL_auxz00_805 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31339ze3z83_540, BgL_auxz00_805, BgL_srcz00_180); } 
{ /* ./Expand/eps.scm 109 */
int BgL_auxz00_808;
BgL_auxz00_808 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31336ze3z83_542, BgL_auxz00_808, BgL_armed1106z00_198); } 
{ /* ./Expand/eps.scm 109 */
int BgL_auxz00_811;
BgL_auxz00_811 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31336ze3z83_542, BgL_auxz00_811, BgL_handler1103z00_199); } 
CELL_SET(BgL_handler1103z00_199, BGl_proc1773z00zzexpand_epsz00); 
CELL_SET(BgL_armed1106z00_198, BTRUE); 
BGl_zc3exitza31322ze3z83zzexpand_epsz00(BgL_zc3anonymousza31339ze3z83_540, BgL_zc3anonymousza31336ze3z83_542, BgL_handler1103z00_199, BgL_armed1106z00_198); } } 
{ /* ./Expand/eps.scm 110 */
obj_t BgL_arg1345z00_223;
BgL_arg1345z00_223 = 
CDR(BgL_srcz00_180); 
{ 
obj_t BgL_srcz00_816;
BgL_srcz00_816 = BgL_arg1345z00_223; 
BgL_srcz00_180 = BgL_srcz00_816; 
goto BgL_loopz00_182;} } }  else 
{ /* ./Expand/eps.scm 107 */
bool_t BgL_test1306z00_193;
{ /* ./Expand/eps.scm 107 */
obj_t BgL_auxz00_819;obj_t BgL_auxz00_817;
BgL_auxz00_819 = 
CNST_TABLE_REF(((long)4)); 
BgL_auxz00_817 = 
CAR(BgL_ezd2123zd2_190); 
BgL_test1306z00_193 = 
(BgL_auxz00_817==BgL_auxz00_819); } 
if(BgL_test1306z00_193)
{ /* ./Expand/eps.scm 107 */
{ /* ./Expand/eps.scm 112 */
obj_t BgL_armed1114z00_224;obj_t BgL_handler1111z00_225;
BgL_armed1114z00_224 = 
MAKE_CELL(BUNSPEC); 
BgL_handler1111z00_225 = 
MAKE_CELL(BUNSPEC); 
{ /* ./Expand/eps.scm 112 */
obj_t BgL_zc3anonymousza31366ze3z83_535;obj_t BgL_zc3anonymousza31363ze3z83_537;
{ 
int BgL_auxz00_825;int BgL_auxz00_823;
BgL_auxz00_825 = 
(int)(((long)1)); 
BgL_auxz00_823 = 
(int)(((long)0)); 
BgL_zc3anonymousza31366ze3z83_535 = 
make_fx_procedure(BGl_zc3anonymousza31366ze3z83zzexpand_epsz00, BgL_auxz00_823, BgL_auxz00_825); } 
{ 
int BgL_auxz00_830;int BgL_auxz00_828;
BgL_auxz00_830 = 
(int)(((long)2)); 
BgL_auxz00_828 = 
(int)(((long)4)); 
BgL_zc3anonymousza31363ze3z83_537 = 
make_fx_procedure(BGl_zc3anonymousza31363ze3z83zzexpand_epsz00, BgL_auxz00_828, BgL_auxz00_830); } 
{ /* ./Expand/eps.scm 112 */
int BgL_auxz00_833;
BgL_auxz00_833 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31366ze3z83_535, BgL_auxz00_833, BgL_srcz00_180); } 
{ /* ./Expand/eps.scm 112 */
int BgL_auxz00_836;
BgL_auxz00_836 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31363ze3z83_537, BgL_auxz00_836, BgL_armed1114z00_224); } 
{ /* ./Expand/eps.scm 112 */
int BgL_auxz00_839;
BgL_auxz00_839 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31363ze3z83_537, BgL_auxz00_839, BgL_handler1111z00_225); } 
CELL_SET(BgL_handler1111z00_225, BGl_proc1773z00zzexpand_epsz00); 
CELL_SET(BgL_armed1114z00_224, BTRUE); 
BGl_zc3exitza31348ze3z83zzexpand_epsz00(BgL_zc3anonymousza31366ze3z83_535, BgL_zc3anonymousza31363ze3z83_537, BgL_handler1111z00_225, BgL_armed1114z00_224); } } 
{ /* ./Expand/eps.scm 113 */
obj_t BgL_arg1372z00_249;
BgL_arg1372z00_249 = 
CDR(BgL_srcz00_180); 
{ 
obj_t BgL_srcz00_844;
BgL_srcz00_844 = BgL_arg1372z00_249; 
BgL_srcz00_180 = BgL_srcz00_844; 
goto BgL_loopz00_182;} } }  else 
{ /* ./Expand/eps.scm 107 */
BgL_tagzd2122zd2_189:
{ /* ./Expand/eps.scm 115 */
obj_t BgL_obodyz00_250;
BgL_obodyz00_250 = 
CAR(BgL_srcz00_180); 
{ /* ./Expand/eps.scm 115 */
obj_t BgL_nbodyz00_251;
{ /* ./Expand/eps.scm 116 */
obj_t BgL_armed1122z00_254;obj_t BgL_handler1119z00_255;
BgL_armed1122z00_254 = 
MAKE_CELL(BUNSPEC); 
BgL_handler1119z00_255 = 
MAKE_CELL(BUNSPEC); 
{ /* ./Expand/eps.scm 116 */
obj_t BgL_zc3anonymousza31401ze3z83_527;obj_t BgL_zc3anonymousza31398ze3z83_532;
{ 
int BgL_auxz00_848;int BgL_auxz00_846;
BgL_auxz00_848 = 
(int)(((long)1)); 
BgL_auxz00_846 = 
(int)(((long)0)); 
BgL_zc3anonymousza31401ze3z83_527 = 
make_fx_procedure(BGl_zc3anonymousza31401ze3z83zzexpand_epsz00, BgL_auxz00_846, BgL_auxz00_848); } 
{ 
int BgL_auxz00_853;int BgL_auxz00_851;
BgL_auxz00_853 = 
(int)(((long)2)); 
BgL_auxz00_851 = 
(int)(((long)4)); 
BgL_zc3anonymousza31398ze3z83_532 = 
make_fx_procedure(BGl_zc3anonymousza31398ze3z83zzexpand_epsz00, BgL_auxz00_851, BgL_auxz00_853); } 
{ /* ./Expand/eps.scm 116 */
int BgL_auxz00_856;
BgL_auxz00_856 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31401ze3z83_527, BgL_auxz00_856, BgL_obodyz00_250); } 
{ /* ./Expand/eps.scm 116 */
int BgL_auxz00_859;
BgL_auxz00_859 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31398ze3z83_532, BgL_auxz00_859, BgL_armed1122z00_254); } 
{ /* ./Expand/eps.scm 116 */
int BgL_auxz00_862;
BgL_auxz00_862 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31398ze3z83_532, BgL_auxz00_862, BgL_handler1119z00_255); } 
CELL_SET(BgL_handler1119z00_255, BGl_proc1773z00zzexpand_epsz00); 
CELL_SET(BgL_armed1122z00_254, BTRUE); 
BgL_nbodyz00_251 = 
BGl_zc3exitza31381ze3z83zzexpand_epsz00(BgL_zc3anonymousza31401ze3z83_527, BgL_zc3anonymousza31398ze3z83_532, BgL_handler1119z00_255, BgL_armed1122z00_254); } } 
{ /* ./Expand/eps.scm 116 */

{ /* ./Expand/eps.scm 118 */
obj_t BgL_arg1376z00_252;obj_t BgL_arg1377z00_253;
BgL_arg1376z00_252 = 
CDR(BgL_srcz00_180); 
BgL_arg1377z00_253 = 
MAKE_PAIR(BgL_nbodyz00_251, BgL_resz00_181); 
{ 
obj_t BgL_resz00_869;obj_t BgL_srcz00_868;
BgL_srcz00_868 = BgL_arg1376z00_252; 
BgL_resz00_869 = BgL_arg1377z00_253; 
BgL_resz00_181 = BgL_resz00_869; 
BgL_srcz00_180 = BgL_srcz00_868; 
goto BgL_loopz00_182;} } } } } } } }  else 
{ /* ./Expand/eps.scm 107 */
goto BgL_tagzd2122zd2_189;} } } } } } } } } 
{ /* ./Expand/eps.scm 98 */
obj_t BgL_arg1412z00_279;
BgL_arg1412z00_279 = 
CDR(BgL_l1101z00_175); 
{ 
obj_t BgL_l1101z00_871;
BgL_l1101z00_871 = BgL_arg1412z00_279; 
BgL_l1101z00_175 = BgL_l1101z00_871; 
goto BgL_forzd2each1102zd2_176;} } }  else 
{ /* ./Expand/eps.scm 98 */((bool_t)1); } } } 
{ /* ./Expand/eps.scm 120 */
bool_t BgL_test1416z00_281;
{ /* ./Expand/eps.scm 120 */
long BgL_n1z00_454;
BgL_n1z00_454 = 
(long)CINT(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00); 
BgL_test1416z00_281 = 
(BgL_n1z00_454>((long)0)); } 
if(BgL_test1416z00_281)
{ /* ./Expand/eps.scm 120 */
{ /* ./Expand/eps.scm 120 */
obj_t BgL_port1127z00_282;
BgL_port1127z00_282 = 
BGL_CURRENT_ERROR_PORT(); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00, BgL_port1127z00_282); 
display_string(BGl_string1777z00zzexpand_epsz00, BgL_port1127z00_282); 
{ /* ./Expand/eps.scm 120 */
char * BgL_arg1420z00_283;
{ /* ./Expand/eps.scm 120 */
bool_t BgL_test1422z00_284;
{ /* ./Expand/eps.scm 120 */
bool_t BgL_test1423z00_285;
{ /* ./Expand/eps.scm 120 */
bool_t BgL_res1582z00_462;
{ /* ./Expand/eps.scm 120 */
obj_t BgL_objz00_456;
BgL_objz00_456 = BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00; 
{ /* ./Expand/eps.scm 120 */
bool_t BgL_test1396z00_457;
BgL_test1396z00_457 = 
INTEGERP(BgL_objz00_456); 
if(BgL_test1396z00_457)
{ /* ./Expand/eps.scm 120 */
BgL_res1582z00_462 = ((bool_t)1); }  else 
{ /* ./Expand/eps.scm 120 */
bool_t BgL_test1397z00_458;
BgL_test1397z00_458 = 
REALP(BgL_objz00_456); 
if(BgL_test1397z00_458)
{ /* ./Expand/eps.scm 120 */
double BgL_arg1399z00_459;
BgL_arg1399z00_459 = 
BGl_roundflz00zz__r4_numbers_6_5_flonumz00(
REAL_TO_DOUBLE(BgL_objz00_456)); 
{ /* ./Expand/eps.scm 120 */
double BgL_auxz00_884;
BgL_auxz00_884 = 
REAL_TO_DOUBLE(BgL_objz00_456); 
BgL_res1582z00_462 = 
(BgL_auxz00_884==BgL_arg1399z00_459); } }  else 
{ /* ./Expand/eps.scm 120 */
BgL_res1582z00_462 = ((bool_t)0); } } } } 
BgL_test1423z00_285 = BgL_res1582z00_462; } 
if(BgL_test1423z00_285)
{ /* ./Expand/eps.scm 120 */
BgL_test1422z00_284 = 
BGl_2ze3ze3zz__r4_numbers_6_5z00(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00, 
BINT(((long)1))); }  else 
{ /* ./Expand/eps.scm 120 */
BgL_test1422z00_284 = ((bool_t)0); } } 
if(BgL_test1422z00_284)
{ /* ./Expand/eps.scm 120 */
BgL_arg1420z00_283 = "s"; }  else 
{ /* ./Expand/eps.scm 120 */
BgL_arg1420z00_283 = ""; } } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(
string_to_bstring(BgL_arg1420z00_283), BgL_port1127z00_282); } 
display_string(BGl_string1778z00zzexpand_epsz00, BgL_port1127z00_282); 
WRITE_CHAR(((unsigned char)'\n'), BgL_port1127z00_282); } 
{ /* ./Expand/eps.scm 120 */
obj_t BgL_list1430z00_286;
{ /* ./Expand/eps.scm 120 */
obj_t BgL_auxz00_895;
BgL_auxz00_895 = 
BINT(((long)-1)); 
BgL_list1430z00_286 = 
MAKE_PAIR(BgL_auxz00_895, BNIL); } 
return 
BGl_exitz00zz__errorz00(BgL_list1430z00_286);} }  else 
{ 
obj_t BgL_hooksz00_287;obj_t BgL_hnamesz00_288;
{ /* ./Expand/eps.scm 120 */
obj_t BgL_arg1433z00_290;
BgL_arg1433z00_290 = BNIL; 
BgL_hooksz00_287 = BgL_arg1433z00_290; 
BgL_hnamesz00_288 = BNIL; 
BgL_loopz00_289:
{ /* ./Expand/eps.scm 120 */
bool_t BgL_test1438z00_293;
BgL_test1438z00_293 = 
NULLP(BgL_hooksz00_287); 
if(BgL_test1438z00_293)
{ /* ./Expand/eps.scm 120 */
return BgL_unitsz00_36;}  else 
{ /* ./Expand/eps.scm 120 */
bool_t BgL_test1439z00_294;
{ /* ./Expand/eps.scm 120 */
obj_t BgL_fun1456z00_299;
BgL_fun1456z00_299 = 
CAR(BgL_hooksz00_287); 
{ /* ./Expand/eps.scm 120 */
obj_t BgL_auxz00_902;
BgL_auxz00_902 = 
PROCEDURE_ENTRY(BgL_fun1456z00_299)(BgL_fun1456z00_299, BEOA); 
BgL_test1439z00_294 = 
CBOOL(BgL_auxz00_902); } } 
if(BgL_test1439z00_294)
{ /* ./Expand/eps.scm 120 */
{ /* ./Expand/eps.scm 120 */
obj_t BgL_arg1441z00_295;obj_t BgL_arg1444z00_296;
BgL_arg1441z00_295 = 
CDR(BgL_hooksz00_287); 
BgL_arg1444z00_296 = 
CDR(BgL_hnamesz00_288); 
{ 
obj_t BgL_hnamesz00_910;obj_t BgL_hooksz00_909;
BgL_hooksz00_909 = BgL_arg1441z00_295; 
BgL_hnamesz00_910 = BgL_arg1444z00_296; 
BgL_hnamesz00_288 = BgL_hnamesz00_910; 
BgL_hooksz00_287 = BgL_hooksz00_909; 
goto BgL_loopz00_289;} } }  else 
{ /* ./Expand/eps.scm 120 */
{ /* ./Expand/eps.scm 120 */
obj_t BgL_arg1451z00_298;
BgL_arg1451z00_298 = 
CAR(BgL_hnamesz00_288); 
return 
BGl_internalzd2errorzd2zztools_errorz00(BGl_za2currentzd2passza2zd2zzengine_passz00, BGl_string1779z00zzexpand_epsz00, BgL_arg1451z00_298);} } } } } } } } 
}



/* <exit:1322> */
obj_t BGl_zc3exitza31322ze3z83zzexpand_epsz00(obj_t BgL_zc3anonymousza31339ze3z83_647, obj_t BgL_zc3anonymousza31336ze3z83_646, obj_t BgL_handler1103z00_645, obj_t BgL_armed1106z00_644)
{ AN_OBJECT;
{ /* ./Expand/eps.scm 109 */
jmp_buf jmpbuf; 
obj_t BgL_an_exit1107z00_203;
if( SET_EXIT(BgL_an_exit1107z00_203) ) { 
return 
_exit_value_;
} else {
BgL_an_exit1107z00_203 = 
(obj_t)jmpbuf; 
{ /* ./Expand/eps.scm 109 */

PUSH_EXIT(BgL_an_exit1107z00_203, ((bool_t)1)); 
{ /* ./Expand/eps.scm 109 */
obj_t BgL_an_exitd1108z00_204;
BgL_an_exitd1108z00_204 = 
BGL_EXITD_TOP(); 
{ /* ./Expand/eps.scm 109 */
obj_t BgL_escapez00_541;
{ 
int BgL_auxz00_919;int BgL_auxz00_917;
BgL_auxz00_919 = 
(int)(((long)1)); 
BgL_auxz00_917 = 
(int)(((long)1)); 
BgL_escapez00_541 = 
make_fx_procedure(BGl_escape_1621z00zzexpand_epsz00, BgL_auxz00_917, BgL_auxz00_919); } 
{ /* ./Expand/eps.scm 109 */
int BgL_auxz00_922;
BgL_auxz00_922 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_escapez00_541, BgL_auxz00_922, BgL_an_exitd1108z00_204); } 
{ /* ./Expand/eps.scm 109 */
obj_t BgL_res1110z00_207;
{ /* ./Expand/eps.scm 109 */
obj_t BgL_zc3anonymousza31332ze3z83_539;obj_t BgL_zc3anonymousza31330ze3z83_543;
{ 
int BgL_auxz00_927;int BgL_auxz00_925;
BgL_auxz00_927 = 
(int)(((long)1)); 
BgL_auxz00_925 = 
(int)(((long)0)); 
BgL_zc3anonymousza31332ze3z83_539 = 
make_fx_procedure(BGl_zc3anonymousza31332ze3z83zzexpand_epsz00, BgL_auxz00_925, BgL_auxz00_927); } 
{ 
int BgL_auxz00_932;int BgL_auxz00_930;
BgL_auxz00_932 = 
(int)(((long)5)); 
BgL_auxz00_930 = 
(int)(((long)0)); 
BgL_zc3anonymousza31330ze3z83_543 = 
make_fx_procedure(BGl_zc3anonymousza31330ze3z83zzexpand_epsz00, BgL_auxz00_930, BgL_auxz00_932); } 
{ /* ./Expand/eps.scm 109 */
int BgL_auxz00_935;
BgL_auxz00_935 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31332ze3z83_539, BgL_auxz00_935, BgL_armed1106z00_644); } 
{ /* ./Expand/eps.scm 109 */
int BgL_auxz00_938;
BgL_auxz00_938 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31330ze3z83_543, BgL_auxz00_938, BgL_an_exitd1108z00_204); } 
{ /* ./Expand/eps.scm 109 */
int BgL_auxz00_941;
BgL_auxz00_941 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31330ze3z83_543, BgL_auxz00_941, BgL_armed1106z00_644); } 
{ /* ./Expand/eps.scm 109 */
int BgL_auxz00_944;
BgL_auxz00_944 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31330ze3z83_543, BgL_auxz00_944, BgL_handler1103z00_645); } 
{ /* ./Expand/eps.scm 109 */
int BgL_auxz00_947;
BgL_auxz00_947 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza31330ze3z83_543, BgL_auxz00_947, BgL_zc3anonymousza31336ze3z83_646); } 
{ /* ./Expand/eps.scm 109 */
int BgL_auxz00_950;
BgL_auxz00_950 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_zc3anonymousza31330ze3z83_543, BgL_auxz00_950, BgL_escapez00_541); } 
BgL_res1110z00_207 = 
BGl_dynamiczd2windzd2zz__r4_control_features_6_9z00(BgL_zc3anonymousza31330ze3z83_543, BgL_zc3anonymousza31339ze3z83_647, BgL_zc3anonymousza31332ze3z83_539); } 
POP_EXIT(); 
return BgL_res1110z00_207;} } } } 
} } 
}



/* <exit:1348> */
obj_t BGl_zc3exitza31348ze3z83zzexpand_epsz00(obj_t BgL_zc3anonymousza31366ze3z83_651, obj_t BgL_zc3anonymousza31363ze3z83_650, obj_t BgL_handler1111z00_649, obj_t BgL_armed1114z00_648)
{ AN_OBJECT;
{ /* ./Expand/eps.scm 112 */
jmp_buf jmpbuf; 
obj_t BgL_an_exit1115z00_229;
if( SET_EXIT(BgL_an_exit1115z00_229) ) { 
return 
_exit_value_;
} else {
BgL_an_exit1115z00_229 = 
(obj_t)jmpbuf; 
{ /* ./Expand/eps.scm 112 */

PUSH_EXIT(BgL_an_exit1115z00_229, ((bool_t)1)); 
{ /* ./Expand/eps.scm 112 */
obj_t BgL_an_exitd1116z00_230;
BgL_an_exitd1116z00_230 = 
BGL_EXITD_TOP(); 
{ /* ./Expand/eps.scm 112 */
obj_t BgL_escapez00_536;
{ 
int BgL_auxz00_961;int BgL_auxz00_959;
BgL_auxz00_961 = 
(int)(((long)1)); 
BgL_auxz00_959 = 
(int)(((long)1)); 
BgL_escapez00_536 = 
make_fx_procedure(BGl_escape_1610z00zzexpand_epsz00, BgL_auxz00_959, BgL_auxz00_961); } 
{ /* ./Expand/eps.scm 112 */
int BgL_auxz00_964;
BgL_auxz00_964 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_escapez00_536, BgL_auxz00_964, BgL_an_exitd1116z00_230); } 
{ /* ./Expand/eps.scm 112 */
obj_t BgL_res1118z00_233;
{ /* ./Expand/eps.scm 112 */
obj_t BgL_zc3anonymousza31359ze3z83_534;obj_t BgL_zc3anonymousza31357ze3z83_538;
{ 
int BgL_auxz00_969;int BgL_auxz00_967;
BgL_auxz00_969 = 
(int)(((long)1)); 
BgL_auxz00_967 = 
(int)(((long)0)); 
BgL_zc3anonymousza31359ze3z83_534 = 
make_fx_procedure(BGl_zc3anonymousza31359ze3z83zzexpand_epsz00, BgL_auxz00_967, BgL_auxz00_969); } 
{ 
int BgL_auxz00_974;int BgL_auxz00_972;
BgL_auxz00_974 = 
(int)(((long)5)); 
BgL_auxz00_972 = 
(int)(((long)0)); 
BgL_zc3anonymousza31357ze3z83_538 = 
make_fx_procedure(BGl_zc3anonymousza31357ze3z83zzexpand_epsz00, BgL_auxz00_972, BgL_auxz00_974); } 
{ /* ./Expand/eps.scm 112 */
int BgL_auxz00_977;
BgL_auxz00_977 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31359ze3z83_534, BgL_auxz00_977, BgL_armed1114z00_648); } 
{ /* ./Expand/eps.scm 112 */
int BgL_auxz00_980;
BgL_auxz00_980 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31357ze3z83_538, BgL_auxz00_980, BgL_an_exitd1116z00_230); } 
{ /* ./Expand/eps.scm 112 */
int BgL_auxz00_983;
BgL_auxz00_983 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31357ze3z83_538, BgL_auxz00_983, BgL_armed1114z00_648); } 
{ /* ./Expand/eps.scm 112 */
int BgL_auxz00_986;
BgL_auxz00_986 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31357ze3z83_538, BgL_auxz00_986, BgL_handler1111z00_649); } 
{ /* ./Expand/eps.scm 112 */
int BgL_auxz00_989;
BgL_auxz00_989 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza31357ze3z83_538, BgL_auxz00_989, BgL_zc3anonymousza31363ze3z83_650); } 
{ /* ./Expand/eps.scm 112 */
int BgL_auxz00_992;
BgL_auxz00_992 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_zc3anonymousza31357ze3z83_538, BgL_auxz00_992, BgL_escapez00_536); } 
BgL_res1118z00_233 = 
BGl_dynamiczd2windzd2zz__r4_control_features_6_9z00(BgL_zc3anonymousza31357ze3z83_538, BgL_zc3anonymousza31366ze3z83_651, BgL_zc3anonymousza31359ze3z83_534); } 
POP_EXIT(); 
return BgL_res1118z00_233;} } } } 
} } 
}



/* <exit:1381> */
obj_t BGl_zc3exitza31381ze3z83zzexpand_epsz00(obj_t BgL_zc3anonymousza31401ze3z83_655, obj_t BgL_zc3anonymousza31398ze3z83_654, obj_t BgL_handler1119z00_653, obj_t BgL_armed1122z00_652)
{ AN_OBJECT;
{ /* ./Expand/eps.scm 116 */
jmp_buf jmpbuf; 
obj_t BgL_an_exit1123z00_259;
if( SET_EXIT(BgL_an_exit1123z00_259) ) { 
return 
_exit_value_;
} else {
BgL_an_exit1123z00_259 = 
(obj_t)jmpbuf; 
{ /* ./Expand/eps.scm 116 */

PUSH_EXIT(BgL_an_exit1123z00_259, ((bool_t)1)); 
{ /* ./Expand/eps.scm 116 */
obj_t BgL_an_exitd1124z00_260;
BgL_an_exitd1124z00_260 = 
BGL_EXITD_TOP(); 
{ /* ./Expand/eps.scm 116 */
obj_t BgL_escapez00_531;
{ 
int BgL_auxz00_1003;int BgL_auxz00_1001;
BgL_auxz00_1003 = 
(int)(((long)1)); 
BgL_auxz00_1001 = 
(int)(((long)1)); 
BgL_escapez00_531 = 
make_fx_procedure(BGl_escapez00zzexpand_epsz00, BgL_auxz00_1001, BgL_auxz00_1003); } 
{ /* ./Expand/eps.scm 116 */
int BgL_auxz00_1006;
BgL_auxz00_1006 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_escapez00_531, BgL_auxz00_1006, BgL_an_exitd1124z00_260); } 
{ /* ./Expand/eps.scm 116 */
obj_t BgL_res1126z00_263;
{ /* ./Expand/eps.scm 116 */
obj_t BgL_zc3anonymousza31394ze3z83_526;obj_t BgL_zc3anonymousza31392ze3z83_533;
{ 
int BgL_auxz00_1011;int BgL_auxz00_1009;
BgL_auxz00_1011 = 
(int)(((long)1)); 
BgL_auxz00_1009 = 
(int)(((long)0)); 
BgL_zc3anonymousza31394ze3z83_526 = 
make_fx_procedure(BGl_zc3anonymousza31394ze3z83zzexpand_epsz00, BgL_auxz00_1009, BgL_auxz00_1011); } 
{ 
int BgL_auxz00_1016;int BgL_auxz00_1014;
BgL_auxz00_1016 = 
(int)(((long)5)); 
BgL_auxz00_1014 = 
(int)(((long)0)); 
BgL_zc3anonymousza31392ze3z83_533 = 
make_fx_procedure(BGl_zc3anonymousza31392ze3z83zzexpand_epsz00, BgL_auxz00_1014, BgL_auxz00_1016); } 
{ /* ./Expand/eps.scm 116 */
int BgL_auxz00_1019;
BgL_auxz00_1019 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31394ze3z83_526, BgL_auxz00_1019, BgL_armed1122z00_652); } 
{ /* ./Expand/eps.scm 116 */
int BgL_auxz00_1022;
BgL_auxz00_1022 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31392ze3z83_533, BgL_auxz00_1022, BgL_an_exitd1124z00_260); } 
{ /* ./Expand/eps.scm 116 */
int BgL_auxz00_1025;
BgL_auxz00_1025 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31392ze3z83_533, BgL_auxz00_1025, BgL_armed1122z00_652); } 
{ /* ./Expand/eps.scm 116 */
int BgL_auxz00_1028;
BgL_auxz00_1028 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31392ze3z83_533, BgL_auxz00_1028, BgL_handler1119z00_653); } 
{ /* ./Expand/eps.scm 116 */
int BgL_auxz00_1031;
BgL_auxz00_1031 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza31392ze3z83_533, BgL_auxz00_1031, BgL_zc3anonymousza31398ze3z83_654); } 
{ /* ./Expand/eps.scm 116 */
int BgL_auxz00_1034;
BgL_auxz00_1034 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_zc3anonymousza31392ze3z83_533, BgL_auxz00_1034, BgL_escapez00_531); } 
BgL_res1126z00_263 = 
BGl_dynamiczd2windzd2zz__r4_control_features_6_9z00(BgL_zc3anonymousza31392ze3z83_533, BgL_zc3anonymousza31401ze3z83_655, BgL_zc3anonymousza31394ze3z83_526); } 
POP_EXIT(); 
return BgL_res1126z00_263;} } } } 
} } 
}



/* _expand-units */
obj_t BGl__expandzd2unitszd2zzexpand_epsz00(obj_t BgL_envz00_545, obj_t BgL_unitsz00_546)
{ AN_OBJECT;
{ /* ./Expand/eps.scm 88 */
return 
BGl_expandzd2unitszd2zzexpand_epsz00(BgL_unitsz00_546);} 
}



/* <anonymous:1394> */
obj_t BGl_zc3anonymousza31394ze3z83zzexpand_epsz00(obj_t BgL_envz00_547)
{ AN_OBJECT;
{ /* ./Expand/eps.scm 116 */
{ /* ./Expand/eps.scm 116 */
obj_t BgL_armed1122z00_548;
{ /* ./Expand/eps.scm 116 */
int BgL_auxz00_1040;
BgL_auxz00_1040 = 
(int)(((long)0)); 
BgL_armed1122z00_548 = 
PROCEDURE_REF(BgL_envz00_547, BgL_auxz00_1040); } 
{ 

{ /* ./Expand/eps.scm 116 */
bool_t BgL_testz00_1043;
{ /* ./Expand/eps.scm 116 */
obj_t BgL_auxz00_1044;
BgL_auxz00_1044 = 
CELL_REF(BgL_armed1122z00_548); 
BgL_testz00_1043 = 
CBOOL(BgL_auxz00_1044); } 
if(BgL_testz00_1043)
{ /* ./Expand/eps.scm 116 */
CELL_SET(BgL_armed1122z00_548, BFALSE); 
return 
BGl_removezd2errorzd2handlerz12z12zz__errorz00();}  else 
{ /* ./Expand/eps.scm 116 */
return BFALSE;} } } } } 
}



/* <anonymous:1401> */
obj_t BGl_zc3anonymousza31401ze3z83zzexpand_epsz00(obj_t BgL_envz00_550)
{ AN_OBJECT;
{ /* ./Expand/eps.scm 116 */
{ /* ./Expand/eps.scm 116 */
obj_t BgL_obodyz00_551;
{ /* ./Expand/eps.scm 116 */
int BgL_auxz00_1047;
BgL_auxz00_1047 = 
(int)(((long)0)); 
BgL_obodyz00_551 = 
PROCEDURE_REF(BgL_envz00_550, BgL_auxz00_1047); } 
{ 

return 
BGl_initialzd2expanderzd2zzexpand_epsz00(BgL_obodyz00_551, BGl_initialzd2expanderzd2envz00zzexpand_epsz00);} } } 
}



/* <anonymous:1392> */
obj_t BGl_zc3anonymousza31392ze3z83zzexpand_epsz00(obj_t BgL_envz00_552)
{ AN_OBJECT;
{ /* ./Expand/eps.scm 116 */
{ /* ./Expand/eps.scm 116 */
obj_t BgL_zc3anonymousza31398ze3z83_556;obj_t BgL_escapez00_557;
{ /* ./Expand/eps.scm 116 */
int BgL_auxz00_1051;
BgL_auxz00_1051 = 
(int)(((long)3)); 
BgL_zc3anonymousza31398ze3z83_556 = 
PROCEDURE_REF(BgL_envz00_552, BgL_auxz00_1051); } 
{ /* ./Expand/eps.scm 116 */
int BgL_auxz00_1054;
BgL_auxz00_1054 = 
(int)(((long)4)); 
BgL_escapez00_557 = 
PROCEDURE_REF(BgL_envz00_552, BgL_auxz00_1054); } 
{ 

return 
BGl_addzd2errorzd2handlerz12z12zz__errorz00(BgL_zc3anonymousza31398ze3z83_556, BgL_escapez00_557);} } } 
}



/* escape */
obj_t BGl_escapez00zzexpand_epsz00(obj_t BgL_envz00_558, obj_t BgL_val1125z00_560)
{ AN_OBJECT;
{ /* ./Expand/eps.scm 116 */
{ /* ./Expand/eps.scm 116 */
obj_t BgL_an_exitd1124z00_559;
{ /* ./Expand/eps.scm 116 */
int BgL_auxz00_1058;
BgL_auxz00_1058 = 
(int)(((long)0)); 
BgL_an_exitd1124z00_559 = 
PROCEDURE_REF(BgL_envz00_558, BgL_auxz00_1058); } 
{ 
obj_t BgL_val1125z00_261;
BgL_val1125z00_261 = BgL_val1125z00_560; 
return 
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_an_exitd1124z00_559, BgL_val1125z00_261);} } } 
}



/* <anonymous:1398> */
obj_t BGl_zc3anonymousza31398ze3z83zzexpand_epsz00(obj_t BgL_envz00_561, obj_t BgL_escz00_564, obj_t BgL_objz00_565, obj_t BgL_procz00_566, obj_t BgL_msgz00_567)
{ AN_OBJECT;
{ /* ./Expand/eps.scm 116 */
{ /* ./Expand/eps.scm 116 */
obj_t BgL_armed1122z00_562;obj_t BgL_handler1119z00_563;
{ /* ./Expand/eps.scm 116 */
int BgL_auxz00_1062;
BgL_auxz00_1062 = 
(int)(((long)0)); 
BgL_armed1122z00_562 = 
PROCEDURE_REF(BgL_envz00_561, BgL_auxz00_1062); } 
{ /* ./Expand/eps.scm 116 */
int BgL_auxz00_1065;
BgL_auxz00_1065 = 
(int)(((long)1)); 
BgL_handler1119z00_563 = 
PROCEDURE_REF(BgL_envz00_561, BgL_auxz00_1065); } 
{ 
obj_t BgL_escz00_270;obj_t BgL_objz00_271;obj_t BgL_procz00_272;obj_t BgL_msgz00_273;
BgL_escz00_270 = BgL_escz00_564; 
BgL_objz00_271 = BgL_objz00_565; 
BgL_procz00_272 = BgL_procz00_566; 
BgL_msgz00_273 = BgL_msgz00_567; 
CELL_SET(BgL_armed1122z00_562, BFALSE); 
BGl_removezd2errorzd2handlerz12z12zz__errorz00(); 
{ /* ./Expand/eps.scm 116 */
obj_t BgL_auxz00_1070;
BgL_auxz00_1070 = 
CELL_REF(BgL_handler1119z00_563); 
return 
PROCEDURE_ENTRY(BgL_auxz00_1070)(
CELL_REF(BgL_handler1119z00_563), BgL_escz00_270, BgL_objz00_271, BgL_procz00_272, BgL_msgz00_273, BEOA);} } } } 
}



/* <anonymous:1359> */
obj_t BGl_zc3anonymousza31359ze3z83zzexpand_epsz00(obj_t BgL_envz00_569)
{ AN_OBJECT;
{ /* ./Expand/eps.scm 112 */
{ /* ./Expand/eps.scm 112 */
obj_t BgL_armed1114z00_570;
{ /* ./Expand/eps.scm 112 */
int BgL_auxz00_1071;
BgL_auxz00_1071 = 
(int)(((long)0)); 
BgL_armed1114z00_570 = 
PROCEDURE_REF(BgL_envz00_569, BgL_auxz00_1071); } 
{ 

{ /* ./Expand/eps.scm 112 */
bool_t BgL_testz00_1074;
{ /* ./Expand/eps.scm 112 */
obj_t BgL_auxz00_1075;
BgL_auxz00_1075 = 
CELL_REF(BgL_armed1114z00_570); 
BgL_testz00_1074 = 
CBOOL(BgL_auxz00_1075); } 
if(BgL_testz00_1074)
{ /* ./Expand/eps.scm 112 */
CELL_SET(BgL_armed1114z00_570, BFALSE); 
return 
BGl_removezd2errorzd2handlerz12z12zz__errorz00();}  else 
{ /* ./Expand/eps.scm 112 */
return BFALSE;} } } } } 
}



/* <anonymous:1366> */
obj_t BGl_zc3anonymousza31366ze3z83zzexpand_epsz00(obj_t BgL_envz00_572)
{ AN_OBJECT;
{ /* ./Expand/eps.scm 112 */
{ /* ./Expand/eps.scm 112 */
obj_t BgL_srcz00_573;
{ /* ./Expand/eps.scm 112 */
int BgL_auxz00_1078;
BgL_auxz00_1078 = 
(int)(((long)0)); 
BgL_srcz00_573 = 
PROCEDURE_REF(BgL_envz00_572, BgL_auxz00_1078); } 
{ 

{ /* ./Expand/eps.scm 112 */
obj_t BgL_arg1368z00_246;
BgL_arg1368z00_246 = 
CAR(BgL_srcz00_573); 
return 
BGl_initialzd2expanderzd2zzexpand_epsz00(BgL_arg1368z00_246, BGl_initialzd2expanderzd2envz00zzexpand_epsz00);} } } } 
}



/* <anonymous:1357> */
obj_t BGl_zc3anonymousza31357ze3z83zzexpand_epsz00(obj_t BgL_envz00_574)
{ AN_OBJECT;
{ /* ./Expand/eps.scm 112 */
{ /* ./Expand/eps.scm 112 */
obj_t BgL_zc3anonymousza31363ze3z83_578;obj_t BgL_escapez00_579;
{ /* ./Expand/eps.scm 112 */
int BgL_auxz00_1083;
BgL_auxz00_1083 = 
(int)(((long)3)); 
BgL_zc3anonymousza31363ze3z83_578 = 
PROCEDURE_REF(BgL_envz00_574, BgL_auxz00_1083); } 
{ /* ./Expand/eps.scm 112 */
int BgL_auxz00_1086;
BgL_auxz00_1086 = 
(int)(((long)4)); 
BgL_escapez00_579 = 
PROCEDURE_REF(BgL_envz00_574, BgL_auxz00_1086); } 
{ 

return 
BGl_addzd2errorzd2handlerz12z12zz__errorz00(BgL_zc3anonymousza31363ze3z83_578, BgL_escapez00_579);} } } 
}



/* escape_1610 */
obj_t BGl_escape_1610z00zzexpand_epsz00(obj_t BgL_envz00_580, obj_t BgL_val1117z00_582)
{ AN_OBJECT;
{ /* ./Expand/eps.scm 112 */
{ /* ./Expand/eps.scm 112 */
obj_t BgL_an_exitd1116z00_581;
{ /* ./Expand/eps.scm 112 */
int BgL_auxz00_1090;
BgL_auxz00_1090 = 
(int)(((long)0)); 
BgL_an_exitd1116z00_581 = 
PROCEDURE_REF(BgL_envz00_580, BgL_auxz00_1090); } 
{ 
obj_t BgL_val1117z00_231;
BgL_val1117z00_231 = BgL_val1117z00_582; 
return 
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_an_exitd1116z00_581, BgL_val1117z00_231);} } } 
}



/* <anonymous:1363> */
obj_t BGl_zc3anonymousza31363ze3z83zzexpand_epsz00(obj_t BgL_envz00_583, obj_t BgL_escz00_586, obj_t BgL_objz00_587, obj_t BgL_procz00_588, obj_t BgL_msgz00_589)
{ AN_OBJECT;
{ /* ./Expand/eps.scm 112 */
{ /* ./Expand/eps.scm 112 */
obj_t BgL_armed1114z00_584;obj_t BgL_handler1111z00_585;
{ /* ./Expand/eps.scm 112 */
int BgL_auxz00_1094;
BgL_auxz00_1094 = 
(int)(((long)0)); 
BgL_armed1114z00_584 = 
PROCEDURE_REF(BgL_envz00_583, BgL_auxz00_1094); } 
{ /* ./Expand/eps.scm 112 */
int BgL_auxz00_1097;
BgL_auxz00_1097 = 
(int)(((long)1)); 
BgL_handler1111z00_585 = 
PROCEDURE_REF(BgL_envz00_583, BgL_auxz00_1097); } 
{ 
obj_t BgL_escz00_240;obj_t BgL_objz00_241;obj_t BgL_procz00_242;obj_t BgL_msgz00_243;
BgL_escz00_240 = BgL_escz00_586; 
BgL_objz00_241 = BgL_objz00_587; 
BgL_procz00_242 = BgL_procz00_588; 
BgL_msgz00_243 = BgL_msgz00_589; 
CELL_SET(BgL_armed1114z00_584, BFALSE); 
BGl_removezd2errorzd2handlerz12z12zz__errorz00(); 
{ /* ./Expand/eps.scm 112 */
obj_t BgL_auxz00_1102;
BgL_auxz00_1102 = 
CELL_REF(BgL_handler1111z00_585); 
return 
PROCEDURE_ENTRY(BgL_auxz00_1102)(
CELL_REF(BgL_handler1111z00_585), BgL_escz00_240, BgL_objz00_241, BgL_procz00_242, BgL_msgz00_243, BEOA);} } } } 
}



/* <anonymous:1332> */
obj_t BGl_zc3anonymousza31332ze3z83zzexpand_epsz00(obj_t BgL_envz00_591)
{ AN_OBJECT;
{ /* ./Expand/eps.scm 109 */
{ /* ./Expand/eps.scm 109 */
obj_t BgL_armed1106z00_592;
{ /* ./Expand/eps.scm 109 */
int BgL_auxz00_1103;
BgL_auxz00_1103 = 
(int)(((long)0)); 
BgL_armed1106z00_592 = 
PROCEDURE_REF(BgL_envz00_591, BgL_auxz00_1103); } 
{ 

{ /* ./Expand/eps.scm 109 */
bool_t BgL_testz00_1106;
{ /* ./Expand/eps.scm 109 */
obj_t BgL_auxz00_1107;
BgL_auxz00_1107 = 
CELL_REF(BgL_armed1106z00_592); 
BgL_testz00_1106 = 
CBOOL(BgL_auxz00_1107); } 
if(BgL_testz00_1106)
{ /* ./Expand/eps.scm 109 */
CELL_SET(BgL_armed1106z00_592, BFALSE); 
return 
BGl_removezd2errorzd2handlerz12z12zz__errorz00();}  else 
{ /* ./Expand/eps.scm 109 */
return BFALSE;} } } } } 
}



/* <anonymous:1339> */
obj_t BGl_zc3anonymousza31339ze3z83zzexpand_epsz00(obj_t BgL_envz00_594)
{ AN_OBJECT;
{ /* ./Expand/eps.scm 109 */
{ /* ./Expand/eps.scm 109 */
obj_t BgL_srcz00_595;
{ /* ./Expand/eps.scm 109 */
int BgL_auxz00_1110;
BgL_auxz00_1110 = 
(int)(((long)0)); 
BgL_srcz00_595 = 
PROCEDURE_REF(BgL_envz00_594, BgL_auxz00_1110); } 
{ 

{ /* ./Expand/eps.scm 109 */
obj_t BgL_arg1341z00_220;
BgL_arg1341z00_220 = 
CAR(BgL_srcz00_595); 
return 
BGl_initialzd2expanderzd2zzexpand_epsz00(BgL_arg1341z00_220, BGl_initialzd2expanderzd2envz00zzexpand_epsz00);} } } } 
}



/* <anonymous:1330> */
obj_t BGl_zc3anonymousza31330ze3z83zzexpand_epsz00(obj_t BgL_envz00_596)
{ AN_OBJECT;
{ /* ./Expand/eps.scm 109 */
{ /* ./Expand/eps.scm 109 */
obj_t BgL_zc3anonymousza31336ze3z83_600;obj_t BgL_escapez00_601;
{ /* ./Expand/eps.scm 109 */
int BgL_auxz00_1115;
BgL_auxz00_1115 = 
(int)(((long)3)); 
BgL_zc3anonymousza31336ze3z83_600 = 
PROCEDURE_REF(BgL_envz00_596, BgL_auxz00_1115); } 
{ /* ./Expand/eps.scm 109 */
int BgL_auxz00_1118;
BgL_auxz00_1118 = 
(int)(((long)4)); 
BgL_escapez00_601 = 
PROCEDURE_REF(BgL_envz00_596, BgL_auxz00_1118); } 
{ 

return 
BGl_addzd2errorzd2handlerz12z12zz__errorz00(BgL_zc3anonymousza31336ze3z83_600, BgL_escapez00_601);} } } 
}



/* escape_1621 */
obj_t BGl_escape_1621z00zzexpand_epsz00(obj_t BgL_envz00_602, obj_t BgL_val1109z00_604)
{ AN_OBJECT;
{ /* ./Expand/eps.scm 109 */
{ /* ./Expand/eps.scm 109 */
obj_t BgL_an_exitd1108z00_603;
{ /* ./Expand/eps.scm 109 */
int BgL_auxz00_1122;
BgL_auxz00_1122 = 
(int)(((long)0)); 
BgL_an_exitd1108z00_603 = 
PROCEDURE_REF(BgL_envz00_602, BgL_auxz00_1122); } 
{ 
obj_t BgL_val1109z00_205;
BgL_val1109z00_205 = BgL_val1109z00_604; 
return 
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_an_exitd1108z00_603, BgL_val1109z00_205);} } } 
}



/* <anonymous:1336> */
obj_t BGl_zc3anonymousza31336ze3z83zzexpand_epsz00(obj_t BgL_envz00_605, obj_t BgL_escz00_608, obj_t BgL_objz00_609, obj_t BgL_procz00_610, obj_t BgL_msgz00_611)
{ AN_OBJECT;
{ /* ./Expand/eps.scm 109 */
{ /* ./Expand/eps.scm 109 */
obj_t BgL_armed1106z00_606;obj_t BgL_handler1103z00_607;
{ /* ./Expand/eps.scm 109 */
int BgL_auxz00_1126;
BgL_auxz00_1126 = 
(int)(((long)0)); 
BgL_armed1106z00_606 = 
PROCEDURE_REF(BgL_envz00_605, BgL_auxz00_1126); } 
{ /* ./Expand/eps.scm 109 */
int BgL_auxz00_1129;
BgL_auxz00_1129 = 
(int)(((long)1)); 
BgL_handler1103z00_607 = 
PROCEDURE_REF(BgL_envz00_605, BgL_auxz00_1129); } 
{ 
obj_t BgL_escz00_214;obj_t BgL_objz00_215;obj_t BgL_procz00_216;obj_t BgL_msgz00_217;
BgL_escz00_214 = BgL_escz00_608; 
BgL_objz00_215 = BgL_objz00_609; 
BgL_procz00_216 = BgL_procz00_610; 
BgL_msgz00_217 = BgL_msgz00_611; 
CELL_SET(BgL_armed1106z00_606, BFALSE); 
BGl_removezd2errorzd2handlerz12z12zz__errorz00(); 
{ /* ./Expand/eps.scm 109 */
obj_t BgL_auxz00_1134;
BgL_auxz00_1134 = 
CELL_REF(BgL_handler1103z00_607); 
return 
PROCEDURE_ENTRY(BgL_auxz00_1134)(
CELL_REF(BgL_handler1103z00_607), BgL_escz00_214, BgL_objz00_215, BgL_procz00_216, BgL_msgz00_217, BEOA);} } } } 
}



/* handler */
obj_t BGl_handlerz00zzexpand_epsz00(obj_t BgL_envz00_613, obj_t BgL_escapez00_614, obj_t BgL_procz00_615, obj_t BgL_mesz00_616, obj_t BgL_objz00_617)
{ AN_OBJECT;
{ /* ./Expand/eps.scm 96 */
{ 
obj_t BgL_escapez00_300;obj_t BgL_procz00_301;obj_t BgL_mesz00_302;obj_t BgL_objz00_303;
BgL_escapez00_300 = BgL_escapez00_614; 
BgL_procz00_301 = BgL_procz00_615; 
BgL_mesz00_302 = BgL_mesz00_616; 
BgL_objz00_303 = BgL_objz00_617; 
{ /* ./Expand/eps.scm 96 */
obj_t BgL_arg1463z00_471;
{ /* ./Expand/eps.scm 96 */
obj_t BgL_list1466z00_472;
{ /* ./Expand/eps.scm 96 */
obj_t BgL_auxz00_1135;
BgL_auxz00_1135 = 
CNST_TABLE_REF(((long)5)); 
BgL_list1466z00_472 = 
MAKE_PAIR(BgL_auxz00_1135, BNIL); } 
BgL_arg1463z00_471 = 
BGl_userzd2errorzd2zztools_errorz00(BgL_procz00_301, BgL_mesz00_302, BgL_objz00_303, BgL_list1466z00_472); } 
return 
PROCEDURE_ENTRY(BgL_escapez00_300)(BgL_escapez00_300, BgL_arg1463z00_471, BEOA);} } } 
}



/* comptime-expand */
BGL_EXPORTED_DEF obj_t BGl_comptimezd2expandzd2zzexpand_epsz00(obj_t BgL_xz00_37)
{ AN_OBJECT;
{ /* ./Expand/eps.scm 125 */
return 
BGl_initialzd2expanderzd2zzexpand_epsz00(BgL_xz00_37, BGl_initialzd2expanderzd2envz00zzexpand_epsz00);} 
}



/* _comptime-expand */
obj_t BGl__comptimezd2expandzd2zzexpand_epsz00(obj_t BgL_envz00_624, obj_t BgL_xz00_625)
{ AN_OBJECT;
{ /* ./Expand/eps.scm 125 */
return 
BGl_comptimezd2expandzd2zzexpand_epsz00(BgL_xz00_625);} 
}



/* comptime-expand-once */
BGL_EXPORTED_DEF obj_t BGl_comptimezd2expandzd2oncez00zzexpand_epsz00(obj_t BgL_xz00_38)
{ AN_OBJECT;
{ /* ./Expand/eps.scm 131 */
return 
BGl_initialzd2expanderzd2zzexpand_epsz00(BgL_xz00_38, BGl_proc1780z00zzexpand_epsz00);} 
}



/* _comptime-expand-once */
obj_t BGl__comptimezd2expandzd2oncez00zzexpand_epsz00(obj_t BgL_envz00_627, obj_t BgL_xz00_628)
{ AN_OBJECT;
{ /* ./Expand/eps.scm 131 */
return 
BGl_comptimezd2expandzd2oncez00zzexpand_epsz00(BgL_xz00_628);} 
}



/* <anonymous:1472> */
obj_t BGl_zc3anonymousza31472ze3z83zzexpand_epsz00(obj_t BgL_envz00_629, obj_t BgL_xz00_630, obj_t BgL_ez00_631)
{ AN_OBJECT;
{ /* ./Expand/eps.scm 132 */
return BgL_xz00_630;} 
}



/* initial-expander */
obj_t BGl_initialzd2expanderzd2zzexpand_epsz00(obj_t BgL_xz00_39, obj_t BgL_ez00_40)
{ AN_OBJECT;
{ /* ./Expand/eps.scm 137 */
{ /* ./Expand/eps.scm 139 */
obj_t BgL_e1z00_313;
{ /* ./Expand/eps.scm 140 */
bool_t BgL_test1489z00_321;
BgL_test1489z00_321 = 
SYMBOLP(BgL_xz00_39); 
if(BgL_test1489z00_321)
{ /* ./Expand/eps.scm 140 */
BgL_e1z00_313 = BGl_za2identifierzd2expanderza2zd2envz00zzexpand_epsz00; }  else 
{ /* ./Expand/eps.scm 142 */
bool_t BgL_test1490z00_322;
BgL_test1490z00_322 = 
NULLP(BgL_xz00_39); 
if(BgL_test1490z00_322)
{ /* ./Expand/eps.scm 142 */
FAILURE(BFALSE,BGl_string1781z00zzexpand_epsz00,BNIL);}  else 
{ /* ./Expand/eps.scm 144 */
bool_t BgL_test1492z00_323;
BgL_test1492z00_323 = 
PAIRP(BgL_xz00_39); 
if(BgL_test1492z00_323)
{ /* ./Expand/eps.scm 146 */
bool_t BgL_test1493z00_324;
{ /* ./Expand/eps.scm 146 */
obj_t BgL_auxz00_1152;
BgL_auxz00_1152 = 
CAR(BgL_xz00_39); 
BgL_test1493z00_324 = 
SYMBOLP(BgL_auxz00_1152); } 
if(BgL_test1493z00_324)
{ /* ./Expand/eps.scm 146 */
{ /* ./Expand/eps.scm 147 */
obj_t BgL_idz00_325;
{ /* ./Expand/eps.scm 147 */
obj_t BgL_arg1514z00_334;obj_t BgL_arg1516z00_335;
BgL_arg1514z00_334 = 
CAR(BgL_xz00_39); 
BgL_arg1516z00_335 = 
BGl_findzd2locationzd2zztools_locationz00(BgL_xz00_39); 
BgL_idz00_325 = 
BGl_fastzd2idzd2ofzd2idzd2zzast_identz00(BgL_arg1514z00_334, BgL_arg1516z00_335); } 
{ /* ./Expand/eps.scm 149 */
obj_t BgL_bz00_326;
BgL_bz00_326 = BUNSPEC; 
{ /* ./Expand/eps.scm 151 */
bool_t BgL_test1494z00_327;
BgL_bz00_326 = 
BGl_getzd2compilerzd2expanderz00zz__macroz00(BgL_idz00_325); 
BgL_test1494z00_327 = 
CBOOL(BgL_bz00_326); 
if(BgL_test1494z00_327)
{ /* ./Expand/eps.scm 151 */
BgL_e1z00_313 = BgL_bz00_326; }  else 
{ /* ./Expand/eps.scm 155 */
bool_t BgL_test1495z00_328;
BgL_bz00_326 = 
BGl_getzd2evalzd2expanderz00zz__macroz00(BgL_idz00_325); 
BgL_test1495z00_328 = 
CBOOL(BgL_bz00_326); 
if(BgL_test1495z00_328)
{ /* ./Expand/eps.scm 155 */
BgL_e1z00_313 = BgL_bz00_326; }  else 
{ /* ./Expand/eps.scm 159 */
bool_t BgL_test1496z00_329;
{ /* ./Expand/eps.scm 159 */
obj_t BgL_arg1504z00_332;
{ /* ./Expand/eps.scm 159 */
obj_t BgL_arg1507z00_333;
BgL_arg1507z00_333 = BGl_za2lexicalzd2stackza2zd2zzexpand_epsz00; 
BgL_arg1504z00_332 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_idz00_325, BgL_arg1507z00_333); } 
BgL_test1496z00_329 = 
PAIRP(BgL_arg1504z00_332); } 
if(BgL_test1496z00_329)
{ /* ./Expand/eps.scm 159 */
BgL_e1z00_313 = BGl_za2applicationzd2expanderza2zd2envz00zzexpand_epsz00; }  else 
{ /* ./Expand/eps.scm 161 */
bool_t BgL_test1497z00_330;
BgL_bz00_326 = 
BGl_findzd2Ozd2expanderz00zzexpand_expanderz00(BgL_idz00_325); 
BgL_test1497z00_330 = 
CBOOL(BgL_bz00_326); 
if(BgL_test1497z00_330)
{ /* ./Expand/eps.scm 161 */
{ /* ./Expand/eps.scm 164 */
obj_t BgL_sz00_487;
BgL_sz00_487 = BgL_bz00_326; 
{ /* ./Expand/eps.scm 164 */
int BgL_auxz00_1171;
BgL_auxz00_1171 = 
(int)(((long)1)); 
BgL_e1z00_313 = 
STRUCT_REF(BgL_sz00_487, BgL_auxz00_1171); } } }  else 
{ /* ./Expand/eps.scm 165 */
bool_t BgL_test1499z00_331;
BgL_bz00_326 = 
BGl_findzd2Gzd2expanderz00zzexpand_expanderz00(BgL_idz00_325); 
BgL_test1499z00_331 = 
CBOOL(BgL_bz00_326); 
if(BgL_test1499z00_331)
{ /* ./Expand/eps.scm 165 */
{ /* ./Expand/eps.scm 168 */
obj_t BgL_sz00_490;
BgL_sz00_490 = BgL_bz00_326; 
{ /* ./Expand/eps.scm 168 */
int BgL_auxz00_1177;
BgL_auxz00_1177 = 
(int)(((long)1)); 
BgL_e1z00_313 = 
STRUCT_REF(BgL_sz00_490, BgL_auxz00_1177); } } }  else 
{ /* ./Expand/eps.scm 165 */
BgL_e1z00_313 = BGl_za2applicationzd2expanderza2zd2envz00zzexpand_epsz00; } } } } } } } } }  else 
{ /* ./Expand/eps.scm 146 */
BgL_e1z00_313 = BGl_za2applicationzd2expanderza2zd2envz00zzexpand_epsz00; } }  else 
{ /* ./Expand/eps.scm 144 */
BgL_e1z00_313 = BGl_proc1782z00zzexpand_epsz00; } } } } 
{ /* ./Expand/eps.scm 173 */
obj_t BgL_newz00_314;
BgL_newz00_314 = 
PROCEDURE_ENTRY(BgL_e1z00_313)(BgL_e1z00_313, BgL_xz00_39, BgL_ez00_40, BEOA); 
{ /* ./Expand/eps.scm 174 */
bool_t BgL_test1473z00_315;
{ /* ./Expand/eps.scm 174 */
bool_t BgL_test1483z00_319;
BgL_test1483z00_319 = 
PAIRP(BgL_newz00_314); 
if(BgL_test1483z00_319)
{ /* ./Expand/eps.scm 175 */
bool_t BgL_test1484z00_320;
BgL_test1484z00_320 = 
EXTENDED_PAIRP(BgL_newz00_314); 
if(BgL_test1484z00_320)
{ /* ./Expand/eps.scm 175 */
BgL_test1473z00_315 = ((bool_t)0); }  else 
{ /* ./Expand/eps.scm 175 */
BgL_test1473z00_315 = 
EXTENDED_PAIRP(BgL_xz00_39); } }  else 
{ /* ./Expand/eps.scm 174 */
BgL_test1473z00_315 = ((bool_t)0); } } 
if(BgL_test1473z00_315)
{ /* ./Expand/eps.scm 177 */
obj_t BgL_arg1476z00_316;obj_t BgL_arg1477z00_317;obj_t BgL_arg1478z00_318;
BgL_arg1476z00_316 = 
CAR(BgL_newz00_314); 
BgL_arg1477z00_317 = 
CDR(BgL_newz00_314); 
BgL_arg1478z00_318 = 
CER(BgL_xz00_39); 
{ /* ./Expand/eps.scm 177 */
obj_t BgL_res1585z00_502;
BgL_res1585z00_502 = 
MAKE_EXTENDED_PAIR(BgL_arg1476z00_316, BgL_arg1477z00_317, BgL_arg1478z00_318); 
return BgL_res1585z00_502;} }  else 
{ /* ./Expand/eps.scm 174 */
return BgL_newz00_314;} } } } } 
}



/* _initial-expander */
obj_t BGl__initialzd2expanderzd2zzexpand_epsz00(obj_t BgL_envz00_528, obj_t BgL_xz00_529, obj_t BgL_ez00_530)
{ AN_OBJECT;
{ /* ./Expand/eps.scm 137 */
return 
BGl_initialzd2expanderzd2zzexpand_epsz00(BgL_xz00_529, BgL_ez00_530);} 
}



/* <anonymous:1524> */
obj_t BGl_zc3anonymousza31524ze3z83zzexpand_epsz00(obj_t BgL_envz00_633, obj_t BgL_xz00_634, obj_t BgL_ez00_635)
{ AN_OBJECT;
{ /* ./Expand/eps.scm 145 */
return BgL_xz00_634;} 
}



/* *identifier-expander* */
obj_t BGl_za2identifierzd2expanderza2zd2zzexpand_epsz00(obj_t BgL_idz00_41, obj_t BgL_ez00_42)
{ AN_OBJECT;
{ /* ./Expand/eps.scm 183 */
{ /* ./Expand/eps.scm 184 */
bool_t BgL_test1528z00_340;
{ /* ./Expand/eps.scm 184 */
obj_t BgL_arg1533z00_342;
{ /* ./Expand/eps.scm 184 */
obj_t BgL_arg1537z00_343;
BgL_arg1537z00_343 = BGl_za2lexicalzd2stackza2zd2zzexpand_epsz00; 
BgL_arg1533z00_342 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_idz00_41, BgL_arg1537z00_343); } 
BgL_test1528z00_340 = 
PAIRP(BgL_arg1533z00_342); } 
if(BgL_test1528z00_340)
{ /* ./Expand/eps.scm 184 */
return BgL_idz00_41;}  else 
{ /* ./Expand/eps.scm 186 */
obj_t BgL_az00_341;
BgL_az00_341 = 
BGl_getpropz00zz__r4_symbols_6_4z00(BgL_idz00_41, 
CNST_TABLE_REF(((long)0))); 
if(
CBOOL(BgL_az00_341))
{ /* ./Expand/eps.scm 187 */
return 
PROCEDURE_ENTRY(BgL_ez00_42)(BgL_ez00_42, BgL_az00_341, BgL_ez00_42, BEOA);}  else 
{ /* ./Expand/eps.scm 187 */
return BgL_idz00_41;} } } } 
}



/* _*identifier-expander* */
obj_t BGl__za2identifierzd2expanderza2zd2zzexpand_epsz00(obj_t BgL_envz00_636, obj_t BgL_idz00_637, obj_t BgL_ez00_638)
{ AN_OBJECT;
{ /* ./Expand/eps.scm 183 */
return 
BGl_za2identifierzd2expanderza2zd2zzexpand_epsz00(BgL_idz00_637, BgL_ez00_638);} 
}



/* *application-expander* */
obj_t BGl_za2applicationzd2expanderza2zd2zzexpand_epsz00(obj_t BgL_xz00_43, obj_t BgL_ez00_44)
{ AN_OBJECT;
{ /* ./Expand/eps.scm 194 */
return 
BGl_loopz00zzexpand_epsz00(BgL_ez00_44, BgL_xz00_43, BgL_xz00_43);} 
}



/* loop */
obj_t BGl_loopz00zzexpand_epsz00(obj_t BgL_ez00_643, obj_t BgL_xz00_642, obj_t BgL_xza2za2_344)
{ AN_OBJECT;
{ /* ./Expand/eps.scm 195 */
{ /* ./Expand/eps.scm 197 */
bool_t BgL_test1541z00_346;
BgL_test1541z00_346 = 
PAIRP(BgL_xza2za2_344); 
if(BgL_test1541z00_346)
{ /* ./Expand/eps.scm 197 */
{ /* ./Expand/eps.scm 198 */
obj_t BgL_arg1543z00_347;
{ /* ./Expand/eps.scm 198 */
obj_t BgL_arg1547z00_348;
BgL_arg1547z00_348 = 
CAR(BgL_xza2za2_344); 
BgL_arg1543z00_347 = 
PROCEDURE_ENTRY(BgL_ez00_643)(BgL_ez00_643, BgL_arg1547z00_348, BgL_ez00_643, BEOA); } 
SET_CAR(BgL_xza2za2_344, BgL_arg1543z00_347); } 
{ /* ./Expand/eps.scm 199 */
obj_t BgL_arg1551z00_349;
{ /* ./Expand/eps.scm 199 */
obj_t BgL_arg1554z00_350;
BgL_arg1554z00_350 = 
CDR(BgL_xza2za2_344); 
BgL_arg1551z00_349 = 
BGl_loopz00zzexpand_epsz00(BgL_ez00_643, BgL_xz00_642, BgL_arg1554z00_350); } 
SET_CDR(BgL_xza2za2_344, BgL_arg1551z00_349); } 
return BgL_xza2za2_344;}  else 
{ /* ./Expand/eps.scm 201 */
bool_t BgL_test1557z00_351;
BgL_test1557z00_351 = 
NULLP(BgL_xza2za2_344); 
if(BgL_test1557z00_351)
{ /* ./Expand/eps.scm 201 */
return BNIL;}  else 
{ /* ./Expand/eps.scm 201 */
FAILURE(BFALSE,BGl_string1783z00zzexpand_epsz00,BgL_xz00_642);} } } } 
}



/* _*application-expander* */
obj_t BGl__za2applicationzd2expanderza2zd2zzexpand_epsz00(obj_t BgL_envz00_639, obj_t BgL_xz00_640, obj_t BgL_ez00_641)
{ AN_OBJECT;
{ /* ./Expand/eps.scm 194 */
return 
BGl_za2applicationzd2expanderza2zd2zzexpand_epsz00(BgL_xz00_640, BgL_ez00_641);} 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzexpand_epsz00()
{ AN_OBJECT;
{ /* ./Expand/eps.scm 17 */
return BUNSPEC;} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzexpand_epsz00()
{ AN_OBJECT;
{ /* ./Expand/eps.scm 17 */
BGl_modulezd2initializa7ationz75zztools_tracez00(((long)59211), "expand_eps"); 
BGl_modulezd2initializa7ationz75zztools_speekz00(((long)23537), "expand_eps"); 
BGl_modulezd2initializa7ationz75zztools_errorz00(((long)25566), "expand_eps"); 
BGl_modulezd2initializa7ationz75zzengine_passz00(((long)10268), "expand_eps"); 
BGl_modulezd2initializa7ationz75zztools_prognz00(((long)55569), "expand_eps"); 
BGl_modulezd2initializa7ationz75zztools_miscz00(((long)64117), "expand_eps"); 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "expand_eps"); 
BGl_modulezd2initializa7ationz75zzast_identz00(((long)51504), "expand_eps"); 
BGl_modulezd2initializa7ationz75zzexpand_expanderz00(((long)52206), "expand_eps"); 
return 
BGl_modulezd2initializa7ationz75zztools_locationz00(((long)32118), "expand_eps");} 
}

