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

#include <bigloo.h>


/* Object type definitions */
typedef struct BgL_ccompz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_producerz00;
   obj_t BgL_consumerz00;
   obj_t BgL_finaliza7erza7;
} *BgL_ccompz00_bglt;


static obj_t BGl_structzb2objectzd2ze3objectzd2ccomp1059z51zzmodule_modulez00(obj_t, obj_t, obj_t);
BGL_IMPORT bool_t BGl_2ze3ze3zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzmodule_modulez00(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_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzheap_restorez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzmodule_mainz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzmodule_statexpz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzmodule_impusez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzmodule_includez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzmodule_withz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzmodule_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzmodule_foreignz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzmodule_javaz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzmodule_evalz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzmodule_loadz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzmodule_pragmaz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzmodule_checksumz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzmodule_optionz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzmodule_alibraryz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_envz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__osz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(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_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long, char *);
extern obj_t BGl_makezd2pragmazd2compilerz00zzmodule_pragmaz00();
BGL_EXPORTED_DECL obj_t BGl_modulezd2checksumzd2objectz00zzmodule_modulez00();
BGL_IMPORT double BGl_roundflz00zz__r4_numbers_6_5_flonumz00(double);
static obj_t BGl_methodzd2initzd2zzmodule_modulez00();
extern obj_t BGl_verbosez00zztools_speekz00(obj_t, obj_t);
BGL_IMPORT obj_t close_output_port(obj_t);
extern obj_t BGl_userzd2errorzd2zztools_errorz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__modulezd2checksumzd2objectz00zzmodule_modulez00(obj_t);
BGL_EXPORTED_DEF obj_t BGl_za2modulezd2checksumza2zd2zzmodule_modulez00 = BUNSPEC;
static obj_t BGl__allocatezd2ccompzd2zzmodule_modulez00(obj_t);
BGL_IMPORT obj_t open_input_string(obj_t);
static obj_t BGl_checksumzd2modulezd2zzmodule_modulez00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_producezd2modulezd2clausez12z12zzmodule_modulez00(obj_t);
extern obj_t BGl_za2srczd2filesza2zd2zzengine_paramz00;
BGL_IMPORT long BGl_classzd2numzd2zz__objectz00(obj_t);
extern obj_t BGl_makezd2importzd2compilerz00zzmodule_impusez00();
BGL_EXPORTED_DECL BgL_ccompz00_bglt BGl_makezd2ccompzd2zzmodule_modulez00(obj_t, obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
extern obj_t BGl_makezd2foreignzd2compilerz00zzmodule_foreignz00();
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
BGL_IMPORT obj_t string_append(obj_t, obj_t);
static obj_t BGl__makezd2ccompzd2zzmodule_modulez00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_restorezd2additionalzd2heapsz00zzheap_restorez00();
static obj_t BGl__modulezd2initializa7ationzd2idza7zzmodule_modulez00(obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_ccompz00zzmodule_modulez00 = BUNSPEC;
static obj_t BGl__consumezd2modulezd2clausez12z12zzmodule_modulez00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_objectz00zz__objectz00;
BGL_EXPORTED_DECL BgL_ccompz00_bglt BGl_allocatezd2ccompzd2zzmodule_modulez00();
BGL_EXPORTED_DECL obj_t BGl_consumezd2modulezd2clausez12z12zzmodule_modulez00(obj_t, obj_t);
static obj_t BGl_producezd2libraryzd2clausesz00zzmodule_modulez00(obj_t);
BGL_IMPORT obj_t BGl_registerzd2classz12zc0zz__objectz00(obj_t, obj_t, obj_t, obj_t, long, obj_t, obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_za2moduleza2z00zzmodule_modulez00 = BUNSPEC;
BGL_IMPORT obj_t string_to_bstring(char *);
BGL_EXPORTED_DEF obj_t BGl_za2mainza2z00zzmodule_modulez00 = BUNSPEC;
static obj_t BGl_findzd2clausezd2producerz00zzmodule_modulez00(obj_t, obj_t);
extern obj_t BGl_makezd2fromzd2compilerz00zzmodule_impusez00();
BGL_EXPORTED_DEF obj_t BGl_za2modulezd2locationza2zd2zzmodule_modulez00 = BUNSPEC;
static obj_t BGl_findzd2clausezd2consumerz00zzmodule_modulez00(obj_t, obj_t);
extern obj_t BGl_za2destza2z00zzengine_paramz00;
extern obj_t BGl_makezd2typezd2compilerz00zzmodule_typez00();
BGL_IMPORT obj_t BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl__fillzd2ccompz12zc0zzmodule_modulez00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_IMPORT obj_t display_string(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_consumezd2modulez12zc0zzmodule_modulez00(obj_t, obj_t);
extern obj_t BGl_za2passza2z00zzengine_paramz00;
extern obj_t BGl_internalzd2errorzd2zztools_errorz00(obj_t, obj_t, obj_t);
extern obj_t BGl_makezd2includezd2compilerz00zzmodule_includez00();
extern obj_t BGl_makezd2staticzd2compilerz00zzmodule_statexpz00();
BGL_IMPORT obj_t BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationzd2idza7zzmodule_modulez00(obj_t);
extern obj_t BGl_makezd2evalzd2compilerz00zzmodule_evalz00();
BGL_IMPORT obj_t open_output_file(obj_t);
extern obj_t BGl_makezd2mainzd2compilerz00zzmodule_mainz00();
static obj_t BGl_cnstzd2initzd2zzmodule_modulez00();
BGL_EXPORTED_DECL obj_t BGl_producezd2modulez12zc0zzmodule_modulez00(obj_t);
BGL_IMPORT bool_t fexists(char *);
BGL_IMPORT obj_t close_input_port(obj_t);
BGL_EXPORTED_DEF obj_t BGl_za2modulezd2clauseza2zd2zzmodule_modulez00 = BUNSPEC;
extern obj_t BGl_makezd2externzd2compilerz00zzmodule_foreignz00();
BGL_EXPORTED_DECL bool_t BGl_ccompzf3zf3zzmodule_modulez00(obj_t);
extern obj_t BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00;
static obj_t BGl_objectzd2ze3structzd2ccomp1057ze3zzmodule_modulez00(obj_t, obj_t);
static obj_t BGl__producezd2modulez12zc0zzmodule_modulez00(obj_t, obj_t);
BGL_IMPORT obj_t bgl_append2(obj_t, 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_installzd2clauseszd2compilerz12z12zzmodule_modulez00();
extern obj_t BGl_makezd2exportzd2compilerz00zzmodule_statexpz00();
BGL_IMPORT obj_t BGl_stringzd2appendzd2zz__r4_strings_6_7z00(obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzmodule_modulez00();
static obj_t BGl_objectzd2initzd2zzmodule_modulez00();
BGL_IMPORT obj_t make_struct(obj_t, int, obj_t);
extern obj_t BGl_earlyzd2withzd2clausesz00zzmodule_withz00();
static obj_t BGl_requirezd2initializa7ationz75zzmodule_modulez00 = BUNSPEC;
static obj_t BGl_za2clausezd2compilersza2zd2zzmodule_modulez00 = BUNSPEC;
static obj_t BGl__consumezd2modulez12zc0zzmodule_modulez00(obj_t, obj_t, obj_t);
extern obj_t BGl_makezd2usezd2compilerz00zzmodule_impusez00();
BGL_IMPORT obj_t BGl_appendz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_finaliza7ezd2clausezd2compilationsza7zzmodule_modulez00();
extern obj_t BGl_makezd2loadzd2compilerz00zzmodule_loadz00();
extern obj_t BGl_makezd2optionzd2compilerz00zzmodule_optionz00();
BGL_IMPORT obj_t BGl_prefixz00zz__osz00(obj_t);
extern obj_t BGl_makezd2withzd2compilerz00zzmodule_withz00();
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_exitz00zz__errorz00(obj_t);
static obj_t BGl_unknownzd2clausezd2consumerz00zzmodule_modulez00(obj_t, obj_t, obj_t);
extern obj_t BGl_makezd2javazd2compilerz00zzmodule_javaz00();
static obj_t BGl_unknownzd2clausezd2producerz00zzmodule_modulez00(obj_t, obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzmodule_modulez00();
BGL_EXPORTED_DECL BgL_ccompz00_bglt BGl_fillzd2ccompz12zc0zzmodule_modulez00(BgL_ccompz00_bglt, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__ccompzf3zf3zzmodule_modulez00(obj_t, obj_t);
static obj_t BGl__producezd2modulezd2clausez12z12zzmodule_modulez00(obj_t, obj_t);
extern long BGl_modulezd2checksumzd2zzmodule_checksumz00(obj_t);
static obj_t BGl_toplevelzd2initzd2zzmodule_modulez00();
extern obj_t BGl_makezd2alibraryzd2compilerz00zzmodule_alibraryz00();
static obj_t __cnst[ 10 ] ;


extern obj_t BGl_additionalzd2heapzd2restorezd2globalsz12zd2envz12zzast_envz00;
DEFINE_EXPORT_PROCEDURE( BGl_makezd2ccompzd2envz00zzmodule_modulez00, BgL_bgl__makeza7d2ccompza7d2za7za7module_moduleza7002035za7, BGl__makezd2ccompzd2zzmodule_modulez00, 0L, 4 );
DEFINE_EXPORT_PROCEDURE( BGl_producezd2modulezd2clausez12zd2envzc0zzmodule_modulez00, BgL_bgl__produceza7d2moduleza7d2clauseza712za712za7za7module_moduleza7002036za7, BGl__producezd2modulezd2clausez12z12zzmodule_modulez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_modulezd2checksumzd2objectzd2envzd2zzmodule_modulez00, BgL_bgl__moduleza7d2checksumza7d2objectza700za7za7module_moduleza7002037z00, BGl__modulezd2checksumzd2objectz00zzmodule_modulez00, 0L, 0 );
DEFINE_STATIC_PROCEDURE( BGl_proc1995z00zzmodule_modulez00, BgL_bgl_objectza7d2za7e3structza7d2ccomp1057za7e3za7za7module_moduleza7002038za7, BGl_objectzd2ze3structzd2ccomp1057ze3zzmodule_modulez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc1996z00zzmodule_modulez00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2ccomp1059za751za7za7module_moduleza7002039z00, BGl_structzb2objectzd2ze3objectzd2ccomp1059z51zzmodule_modulez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2ccompzd2envz00zzmodule_modulez00, BgL_bgl__allocateza7d2ccompza7d2za7za7module_moduleza7002040za7, BGl__allocatezd2ccompzd2zzmodule_modulez00, 0L, 0 );
BGL_IMPORT obj_t BGl_objectzd2ze3structzd2envze3zz__objectz00;
DEFINE_STRING( BGl_string1997z00zzmodule_modulez00, BgL_bgl_string1997za700za7za7module_moduleza7002041z00, "ccomp mco module-initialization (library _) library module (additional-heap-restore-globals!) (eval foreign t) main pass-started ", 129 );
DEFINE_STRING( BGl_string1994z00zzmodule_modulez00, BgL_bgl_string1994za700za7za7module_moduleza7002042z00, "Can't open file for input", 25 );
DEFINE_STRING( BGl_string1993z00zzmodule_modulez00, BgL_bgl_string1993za700za7za7module_moduleza7002043z00, "Can't open file for output", 26 );
DEFINE_STRING( BGl_string1992z00zzmodule_modulez00, BgL_bgl_string1992za700za7za7module_moduleza7002044z00, "module checksum", 15 );
DEFINE_STRING( BGl_string1991z00zzmodule_modulez00, BgL_bgl_string1991za700za7za7module_moduleza7002045z00, ".mco", 4 );
DEFINE_STRING( BGl_string1990z00zzmodule_modulez00, BgL_bgl_string1990za700za7za7module_moduleza7002046z00, "Module checksum object", 22 );
DEFINE_STRING( BGl_string1989z00zzmodule_modulez00, BgL_bgl_string1989za700za7za7module_moduleza7002047z00, "Module declaration", 18 );
DEFINE_STRING( BGl_string1988z00zzmodule_modulez00, BgL_bgl_string1988za700za7za7module_moduleza7002048z00, "conflict in module's name: ", 27 );
DEFINE_STRING( BGl_string1987z00zzmodule_modulez00, BgL_bgl_string1987za700za7za7module_moduleza7002049z00, " vs ", 4 );
DEFINE_STRING( BGl_string1986z00zzmodule_modulez00, BgL_bgl_string1986za700za7za7module_moduleza7002050z00, "Unknown module clause", 21 );
DEFINE_STRING( BGl_string1985z00zzmodule_modulez00, BgL_bgl_string1985za700za7za7module_moduleza7002051z00, "Illegal module clause", 21 );
DEFINE_STRING( BGl_string1984z00zzmodule_modulez00, BgL_bgl_string1984za700za7za7module_moduleza7002052z00, "Illegal module declaration", 26 );
DEFINE_STRING( BGl_string1983z00zzmodule_modulez00, BgL_bgl_string1983za700za7za7module_moduleza7002053z00, "Illegal module name", 19 );
DEFINE_STRING( BGl_string1982z00zzmodule_modulez00, BgL_bgl_string1982za700za7za7module_moduleza7002054z00, "Parse error", 11 );
DEFINE_STRING( BGl_string1981z00zzmodule_modulez00, BgL_bgl_string1981za700za7za7module_moduleza7002055z00, "failure during postlude hook", 28 );
DEFINE_STRING( BGl_string1980z00zzmodule_modulez00, BgL_bgl_string1980za700za7za7module_moduleza7002056z00, " occured, ending ...", 20 );
DEFINE_STRING( BGl_string1979z00zzmodule_modulez00, BgL_bgl_string1979za700za7za7module_moduleza7002057z00, " error", 6 );
DEFINE_STRING( BGl_string1978z00zzmodule_modulez00, BgL_bgl_string1978za700za7za7module_moduleza7002058z00, "failure during prelude hook", 27 );
DEFINE_STRING( BGl_string1977z00zzmodule_modulez00, BgL_bgl_string1977za700za7za7module_moduleza7002059z00, "   . ", 5 );
DEFINE_STRING( BGl_string1976z00zzmodule_modulez00, BgL_bgl_string1976za700za7za7module_moduleza7002060z00, "Module", 6 );
DEFINE_EXPORT_PROCEDURE( BGl_consumezd2modulezd2clausez12zd2envzc0zzmodule_modulez00, BgL_bgl__consumeza7d2moduleza7d2clauseza712za712za7za7module_moduleza7002061za7, BGl__consumezd2modulezd2clausez12z12zzmodule_modulez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_consumezd2modulez12zd2envz12zzmodule_modulez00, BgL_bgl__consumeza7d2moduleza712za7c0za7za7module_moduleza7002062z00, BGl__consumezd2modulez12zc0zzmodule_modulez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2ccompz12zd2envz12zzmodule_modulez00, BgL_bgl__fillza7d2ccompza712za7c0za7za7module_moduleza7002063z00, BGl__fillzd2ccompz12zc0zzmodule_modulez00, 0L, 5 );
DEFINE_EXPORT_PROCEDURE( BGl_ccompzf3zd2envz21zzmodule_modulez00, BgL_bgl__ccompza7f3za7f3za7za7module_moduleza7002064za7, BGl__ccompzf3zf3zzmodule_modulez00, 0L, 1 );
BGL_IMPORT obj_t BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00;
DEFINE_EXPORT_PROCEDURE( BGl_modulezd2initializa7ationzd2idzd2envz75zzmodule_modulez00, BgL_bgl__moduleza7d2initializa7a7ationza7d2idza7a7za7za7module_moduleza7002065za7, BGl__modulezd2initializa7ationzd2idza7zzmodule_modulez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_producezd2modulez12zd2envz12zzmodule_modulez00, BgL_bgl__produceza7d2moduleza712za7c0za7za7module_moduleza7002066z00, BGl__producezd2modulez12zc0zzmodule_modulez00, 0L, 1 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzmodule_modulez00(long BgL_checksumz00_715, char * BgL_fromz00_716)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzmodule_modulez00))
{ 
BGl_requirezd2initializa7ationz75zzmodule_modulez00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzmodule_modulez00(); 
BGl_cnstzd2initzd2zzmodule_modulez00(); 
BGl_importedzd2moduleszd2initz00zzmodule_modulez00(); 
BGl_objectzd2initzd2zzmodule_modulez00(); 
BGl_methodzd2initzd2zzmodule_modulez00(); 
BGl_toplevelzd2initzd2zzmodule_modulez00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzmodule_modulez00()
{ AN_OBJECT;
{ /* ./Module/module.scm 15 */
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(((long)0), "module_module"); 
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(((long)0), "module_module"); 
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "module_module"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "module_module"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "module_module"); 
BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(((long)0), "module_module"); 
BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(((long)0), "module_module"); 
BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(((long)0), "module_module"); 
BGl_modulezd2initializa7ationz75zz__osz00(((long)0), "module_module"); 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)0), "module_module"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzmodule_modulez00()
{ AN_OBJECT;
{ /* ./Module/module.scm 15 */
{ /* ./Module/module.scm 15 */
obj_t BgL_cportz00_682;
BgL_cportz00_682 = 
open_input_string(BGl_string1997z00zzmodule_modulez00); 
{ 
long BgL_iz00_683;
BgL_iz00_683 = ((long)9); 
BgL_loopz00_684:
{ /* ./Module/module.scm 15 */
bool_t BgL_test1999z00_685;
BgL_test1999z00_685 = 
(BgL_iz00_683==((long)-1)); 
if(BgL_test1999z00_685)
{ /* ./Module/module.scm 15 */
return BUNSPEC;}  else 
{ /* ./Module/module.scm 15 */
{ /* ./Module/module.scm 15 */
obj_t BgL_arg2001z00_686;
{ /* ./Module/module.scm 15 */
obj_t BgL_list2004z00_687;
BgL_list2004z00_687 = 
MAKE_PAIR(BgL_cportz00_682, BNIL); 
BgL_arg2001z00_686 = 
BGl_readz00zz__readerz00(BgL_list2004z00_687); } 
{ /* ./Module/module.scm 15 */
int BgL_auxz00_741;
BgL_auxz00_741 = 
(int)(BgL_iz00_683); 
CNST_TABLE_SET(BgL_auxz00_741, BgL_arg2001z00_686); } } 
{ /* ./Module/module.scm 15 */
int BgL_auxz00_688;
{ /* ./Module/module.scm 15 */
long BgL_auxz00_744;
BgL_auxz00_744 = 
(BgL_iz00_683-((long)1)); 
BgL_auxz00_688 = 
(int)(BgL_auxz00_744); } 
{ 
long BgL_iz00_747;
BgL_iz00_747 = 
(long)(BgL_auxz00_688); 
BgL_iz00_683 = BgL_iz00_747; 
goto BgL_loopz00_684;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzmodule_modulez00()
{ AN_OBJECT;
{ /* ./Module/module.scm 15 */
BGl_za2moduleza2z00zzmodule_modulez00 = BFALSE; 
BGl_za2modulezd2clauseza2zd2zzmodule_modulez00 = BFALSE; 
BGl_za2mainza2z00zzmodule_modulez00 = BFALSE; 
BGl_za2modulezd2checksumza2zd2zzmodule_modulez00 = BFALSE; 
BGl_za2modulezd2locationza2zd2zzmodule_modulez00 = BFALSE; 
return ( 
BGl_za2clausezd2compilersza2zd2zzmodule_modulez00 = BNIL, BUNSPEC) ;} 
}



/* produce-module! */
BGL_EXPORTED_DEF obj_t BGl_producezd2modulez12zc0zzmodule_modulez00(obj_t BgL_mclausez00_19)
{ AN_OBJECT;
{ /* ./Module/module.scm 86 */
{ /* ./Module/module.scm 87 */
obj_t BgL_list1101z00_60;
{ /* ./Module/module.scm 87 */
obj_t BgL_arg1104z00_62;
{ /* ./Module/module.scm 87 */
obj_t BgL_arg1108z00_64;
{ /* ./Module/module.scm 87 */
obj_t BgL_auxz00_749;
BgL_auxz00_749 = 
BCHAR(((unsigned char)'\n')); 
BgL_arg1108z00_64 = 
MAKE_PAIR(BgL_auxz00_749, BNIL); } 
BgL_arg1104z00_62 = 
MAKE_PAIR(BGl_string1976z00zzmodule_modulez00, BgL_arg1108z00_64); } 
BgL_list1101z00_60 = 
MAKE_PAIR(BGl_string1977z00zzmodule_modulez00, BgL_arg1104z00_62); } 
BGl_verbosez00zztools_speekz00(
BINT(((long)1)), BgL_list1101z00_60); } 
BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00 = 
BINT(((long)0)); 
BGl_za2currentzd2passza2zd2zzengine_passz00 = BGl_string1976z00zzmodule_modulez00; 
{ 
obj_t BgL_hooksz00_65;obj_t BgL_hnamesz00_66;
{ /* ./Module/module.scm 87 */
obj_t BgL_arg1112z00_68;
BgL_arg1112z00_68 = BNIL; 
BgL_hooksz00_65 = BgL_arg1112z00_68; 
BgL_hnamesz00_66 = BNIL; 
BgL_loopz00_67:
{ /* ./Module/module.scm 87 */
bool_t BgL_test1117z00_71;
BgL_test1117z00_71 = 
NULLP(BgL_hooksz00_65); 
if(BgL_test1117z00_71)
{ /* ./Module/module.scm 87 */
CNST_TABLE_REF(((long)0)); }  else 
{ /* ./Module/module.scm 87 */
bool_t BgL_test1118z00_72;
{ /* ./Module/module.scm 87 */
obj_t BgL_fun1133z00_78;
BgL_fun1133z00_78 = 
CAR(BgL_hooksz00_65); 
{ /* ./Module/module.scm 87 */
obj_t BgL_auxz00_761;
BgL_auxz00_761 = 
PROCEDURE_ENTRY(BgL_fun1133z00_78)(BgL_fun1133z00_78, BEOA); 
BgL_test1118z00_72 = 
CBOOL(BgL_auxz00_761); } } 
if(BgL_test1118z00_72)
{ /* ./Module/module.scm 87 */
{ /* ./Module/module.scm 87 */
obj_t BgL_arg1120z00_73;obj_t BgL_arg1121z00_74;
BgL_arg1120z00_73 = 
CDR(BgL_hooksz00_65); 
BgL_arg1121z00_74 = 
CDR(BgL_hnamesz00_66); 
{ 
obj_t BgL_hnamesz00_769;obj_t BgL_hooksz00_768;
BgL_hooksz00_768 = BgL_arg1120z00_73; 
BgL_hnamesz00_769 = BgL_arg1121z00_74; 
BgL_hnamesz00_66 = BgL_hnamesz00_769; 
BgL_hooksz00_65 = BgL_hooksz00_768; 
goto BgL_loopz00_67;} } }  else 
{ /* ./Module/module.scm 87 */
{ /* ./Module/module.scm 87 */
obj_t BgL_arg1128z00_77;
BgL_arg1128z00_77 = 
CAR(BgL_hnamesz00_66); 
BGl_internalzd2errorzd2zztools_errorz00(BGl_string1976z00zzmodule_modulez00, BGl_string1978z00zzmodule_modulez00, BgL_arg1128z00_77); } } } } } } 
{ 
obj_t BgL_namez00_79;obj_t BgL_clausesz00_80;
{ /* ./Module/module.scm 88 */
bool_t BgL_test1136z00_84;
BgL_test1136z00_84 = 
PAIRP(BgL_mclausez00_19); 
if(BgL_test1136z00_84)
{ /* ./Module/module.scm 88 */
obj_t BgL_cdrzd2109zd2_85;
BgL_cdrzd2109zd2_85 = 
CDR(BgL_mclausez00_19); 
{ /* ./Module/module.scm 88 */
bool_t BgL_test1137z00_86;
{ /* ./Module/module.scm 88 */
obj_t BgL_auxz00_777;obj_t BgL_auxz00_775;
BgL_auxz00_777 = 
CNST_TABLE_REF(((long)4)); 
BgL_auxz00_775 = 
CAR(BgL_mclausez00_19); 
BgL_test1137z00_86 = 
(BgL_auxz00_775==BgL_auxz00_777); } 
if(BgL_test1137z00_86)
{ /* ./Module/module.scm 88 */
bool_t BgL_test1138z00_87;
BgL_test1138z00_87 = 
PAIRP(BgL_cdrzd2109zd2_85); 
if(BgL_test1138z00_87)
{ /* ./Module/module.scm 88 */
obj_t BgL_carzd2112zd2_88;
BgL_carzd2112zd2_88 = 
CAR(BgL_cdrzd2109zd2_85); 
{ /* ./Module/module.scm 88 */
bool_t BgL_test1139z00_89;
BgL_test1139z00_89 = 
SYMBOLP(BgL_carzd2112zd2_88); 
if(BgL_test1139z00_89)
{ /* ./Module/module.scm 88 */
obj_t BgL_arg1141z00_90;
BgL_arg1141z00_90 = 
CDR(BgL_cdrzd2109zd2_85); 
BgL_namez00_79 = BgL_carzd2112zd2_88; 
BgL_clausesz00_80 = BgL_arg1141z00_90; 
{ /* ./Module/module.scm 90 */
obj_t BgL_clausesz00_93;
{ /* ./Module/module.scm 90 */
obj_t BgL_arg1233z00_123;obj_t BgL_arg1234z00_124;
BgL_arg1233z00_123 = 
BGl_earlyzd2withzd2clausesz00zzmodule_withz00(); 
{ /* ./Module/module.scm 91 */
bool_t BgL_test1237z00_125;
{ /* ./Module/module.scm 91 */
obj_t BgL_objz00_432;
BgL_objz00_432 = BGl_za2mainza2z00zzmodule_modulez00; 
BgL_test1237z00_125 = 
SYMBOLP(BgL_objz00_432); } 
if(BgL_test1237z00_125)
{ /* ./Module/module.scm 92 */
obj_t BgL_arg1240z00_126;
{ /* ./Module/module.scm 92 */
obj_t BgL_arg1243z00_127;obj_t BgL_arg1244z00_128;
BgL_arg1243z00_127 = 
CNST_TABLE_REF(((long)1)); 
BgL_arg1244z00_128 = 
MAKE_PAIR(BGl_za2mainza2z00zzmodule_modulez00, BNIL); 
BgL_arg1240z00_126 = 
MAKE_PAIR(BgL_arg1243z00_127, BgL_arg1244z00_128); } 
BgL_arg1234z00_124 = 
MAKE_PAIR(BgL_arg1240z00_126, BgL_clausesz00_80); }  else 
{ /* ./Module/module.scm 91 */
BgL_arg1234z00_124 = BgL_clausesz00_80; } } 
BgL_clausesz00_93 = 
MAKE_PAIR(BgL_arg1233z00_123, BgL_arg1234z00_124); } 
{ /* ./Module/module.scm 94 */
bool_t BgL_test1159z00_94;
{ /* ./Module/module.scm 94 */
bool_t BgL_testz00_795;
{ /* ./Module/module.scm 94 */
obj_t BgL_auxz00_796;
BgL_auxz00_796 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_namez00_79, 
CNST_TABLE_REF(((long)2))); 
BgL_testz00_795 = 
CBOOL(BgL_auxz00_796); } 
if(BgL_testz00_795)
{ /* ./Module/module.scm 94 */
BgL_test1159z00_94 = ((bool_t)0); }  else 
{ /* ./Module/module.scm 94 */
BgL_test1159z00_94 = ((bool_t)1); } } 
if(BgL_test1159z00_94)
{ /* ./Module/module.scm 94 */
BGl_za2moduleza2z00zzmodule_modulez00 = BgL_namez00_79; 
BGl_za2modulezd2clauseza2zd2zzmodule_modulez00 = BgL_mclausez00_19; 
{ /* ./Module/module.scm 101 */
bool_t BgL_test1160z00_95;
BgL_test1160z00_95 = 
EXTENDED_PAIRP(BgL_mclausez00_19); 
if(BgL_test1160z00_95)
{ /* ./Module/module.scm 101 */
BGl_za2modulezd2locationza2zd2zzmodule_modulez00 = 
CER(BgL_mclausez00_19); }  else 
{ /* ./Module/module.scm 101 */
BGl_za2modulezd2locationza2zd2zzmodule_modulez00 = BFALSE; } } 
BGl_installzd2clauseszd2compilerz12z12zzmodule_modulez00(); 
{ /* ./Module/module.scm 105 */
obj_t BgL_clausesz00_96;
BgL_clausesz00_96 = 
BGl_producezd2libraryzd2clausesz00zzmodule_modulez00(BgL_clausesz00_93); 
BGl_restorezd2additionalzd2heapsz00zzheap_restorez00(); 
{ 
obj_t BgL_l1043z00_97;
BgL_l1043z00_97 = BgL_clausesz00_96; 
BgL_forzd2each1044zd2_98:
{ /* ./Module/module.scm 110 */
bool_t BgL_test1166z00_99;
BgL_test1166z00_99 = 
PAIRP(BgL_l1043z00_97); 
if(BgL_test1166z00_99)
{ /* ./Module/module.scm 110 */
{ /* ./Module/module.scm 110 */
obj_t BgL_arg1169z00_100;
BgL_arg1169z00_100 = 
CAR(BgL_l1043z00_97); 
BGl_producezd2modulezd2clausez12z12zzmodule_modulez00(BgL_arg1169z00_100); } 
{ /* ./Module/module.scm 110 */
obj_t BgL_arg1177z00_101;
BgL_arg1177z00_101 = 
CDR(BgL_l1043z00_97); 
{ 
obj_t BgL_l1043z00_812;
BgL_l1043z00_812 = BgL_arg1177z00_101; 
BgL_l1043z00_97 = BgL_l1043z00_812; 
goto BgL_forzd2each1044zd2_98;} } }  else 
{ /* ./Module/module.scm 110 */((bool_t)1); } } } 
BGl_za2modulezd2checksumza2zd2zzmodule_modulez00 = 
BGl_checksumzd2modulezd2zzmodule_modulez00(BgL_mclausez00_19); 
{ /* ./Module/module.scm 112 */
obj_t BgL_valuez00_102;
BgL_valuez00_102 = 
BGl_finaliza7ezd2clausezd2compilationsza7zzmodule_modulez00(); 
{ /* ./Module/module.scm 112 */
bool_t BgL_test1182z00_103;
{ /* ./Module/module.scm 112 */
long BgL_n1z00_440;
BgL_n1z00_440 = 
(long)CINT(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00); 
BgL_test1182z00_103 = 
(BgL_n1z00_440>((long)0)); } 
if(BgL_test1182z00_103)
{ /* ./Module/module.scm 112 */
{ /* ./Module/module.scm 112 */
obj_t BgL_port1045z00_104;
BgL_port1045z00_104 = 
BGL_CURRENT_ERROR_PORT(); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00, BgL_port1045z00_104); 
display_string(BGl_string1979z00zzmodule_modulez00, BgL_port1045z00_104); 
{ /* ./Module/module.scm 112 */
char * BgL_arg1187z00_105;
{ /* ./Module/module.scm 112 */
bool_t BgL_test1189z00_106;
{ /* ./Module/module.scm 112 */
bool_t BgL_test1190z00_107;
{ /* ./Module/module.scm 112 */
bool_t BgL_res1817z00_448;
{ /* ./Module/module.scm 112 */
obj_t BgL_objz00_442;
BgL_objz00_442 = BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00; 
{ /* ./Module/module.scm 112 */
bool_t BgL_test1396z00_443;
BgL_test1396z00_443 = 
INTEGERP(BgL_objz00_442); 
if(BgL_test1396z00_443)
{ /* ./Module/module.scm 112 */
BgL_res1817z00_448 = ((bool_t)1); }  else 
{ /* ./Module/module.scm 112 */
bool_t BgL_test1397z00_444;
BgL_test1397z00_444 = 
REALP(BgL_objz00_442); 
if(BgL_test1397z00_444)
{ /* ./Module/module.scm 112 */
double BgL_arg1399z00_445;
BgL_arg1399z00_445 = 
BGl_roundflz00zz__r4_numbers_6_5_flonumz00(
REAL_TO_DOUBLE(BgL_objz00_442)); 
{ /* ./Module/module.scm 112 */
double BgL_auxz00_827;
BgL_auxz00_827 = 
REAL_TO_DOUBLE(BgL_objz00_442); 
BgL_res1817z00_448 = 
(BgL_auxz00_827==BgL_arg1399z00_445); } }  else 
{ /* ./Module/module.scm 112 */
BgL_res1817z00_448 = ((bool_t)0); } } } } 
BgL_test1190z00_107 = BgL_res1817z00_448; } 
if(BgL_test1190z00_107)
{ /* ./Module/module.scm 112 */
BgL_test1189z00_106 = 
BGl_2ze3ze3zz__r4_numbers_6_5z00(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00, 
BINT(((long)1))); }  else 
{ /* ./Module/module.scm 112 */
BgL_test1189z00_106 = ((bool_t)0); } } 
if(BgL_test1189z00_106)
{ /* ./Module/module.scm 112 */
BgL_arg1187z00_105 = "s"; }  else 
{ /* ./Module/module.scm 112 */
BgL_arg1187z00_105 = ""; } } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(
string_to_bstring(BgL_arg1187z00_105), BgL_port1045z00_104); } 
display_string(BGl_string1980z00zzmodule_modulez00, BgL_port1045z00_104); 
WRITE_CHAR(((unsigned char)'\n'), BgL_port1045z00_104); } 
{ /* ./Module/module.scm 112 */
obj_t BgL_list1197z00_108;
{ /* ./Module/module.scm 112 */
obj_t BgL_auxz00_838;
BgL_auxz00_838 = 
BINT(((long)-1)); 
BgL_list1197z00_108 = 
MAKE_PAIR(BgL_auxz00_838, BNIL); } 
return 
BGl_exitz00zz__errorz00(BgL_list1197z00_108);} }  else 
{ 
obj_t BgL_hooksz00_109;obj_t BgL_hnamesz00_110;
{ /* ./Module/module.scm 112 */
obj_t BgL_arg1200z00_112;obj_t BgL_arg1201z00_113;
{ /* ./Module/module.scm 112 */
obj_t BgL_list1204z00_114;
BgL_list1204z00_114 = 
MAKE_PAIR(BGl_additionalzd2heapzd2restorezd2globalsz12zd2envz12zzast_envz00, BNIL); 
BgL_arg1200z00_112 = BgL_list1204z00_114; } 
BgL_arg1201z00_113 = 
CNST_TABLE_REF(((long)3)); 
BgL_hooksz00_109 = BgL_arg1200z00_112; 
BgL_hnamesz00_110 = BgL_arg1201z00_113; 
BgL_loopz00_111:
{ /* ./Module/module.scm 112 */
bool_t BgL_test1206z00_115;
BgL_test1206z00_115 = 
NULLP(BgL_hooksz00_109); 
if(BgL_test1206z00_115)
{ /* ./Module/module.scm 112 */
return BgL_valuez00_102;}  else 
{ /* ./Module/module.scm 112 */
bool_t BgL_test1207z00_116;
{ /* ./Module/module.scm 112 */
obj_t BgL_fun1222z00_121;
BgL_fun1222z00_121 = 
CAR(BgL_hooksz00_109); 
{ /* ./Module/module.scm 112 */
obj_t BgL_auxz00_847;
BgL_auxz00_847 = 
PROCEDURE_ENTRY(BgL_fun1222z00_121)(BgL_fun1222z00_121, BEOA); 
BgL_test1207z00_116 = 
CBOOL(BgL_auxz00_847); } } 
if(BgL_test1207z00_116)
{ /* ./Module/module.scm 112 */
{ /* ./Module/module.scm 112 */
obj_t BgL_arg1210z00_117;obj_t BgL_arg1211z00_118;
BgL_arg1210z00_117 = 
CDR(BgL_hooksz00_109); 
BgL_arg1211z00_118 = 
CDR(BgL_hnamesz00_110); 
{ 
obj_t BgL_hnamesz00_855;obj_t BgL_hooksz00_854;
BgL_hooksz00_854 = BgL_arg1210z00_117; 
BgL_hnamesz00_855 = BgL_arg1211z00_118; 
BgL_hnamesz00_110 = BgL_hnamesz00_855; 
BgL_hooksz00_109 = BgL_hooksz00_854; 
goto BgL_loopz00_111;} } }  else 
{ /* ./Module/module.scm 112 */
{ /* ./Module/module.scm 112 */
obj_t BgL_arg1217z00_120;
BgL_arg1217z00_120 = 
CAR(BgL_hnamesz00_110); 
return 
BGl_internalzd2errorzd2zztools_errorz00(BGl_za2currentzd2passza2zd2zzengine_passz00, BGl_string1981z00zzmodule_modulez00, BgL_arg1217z00_120);} } } } } } } } } }  else 
{ /* ./Module/module.scm 94 */
return 
BGl_userzd2errorzd2zztools_errorz00(BGl_string1982z00zzmodule_modulez00, BGl_string1983z00zzmodule_modulez00, BgL_mclausez00_19, BNIL);} } } }  else 
{ /* ./Module/module.scm 88 */
BgL_tagzd2102zd2_82:
return 
BGl_userzd2errorzd2zztools_errorz00(BGl_string1982z00zzmodule_modulez00, BGl_string1984z00zzmodule_modulez00, BgL_mclausez00_19, BNIL);} } }  else 
{ /* ./Module/module.scm 88 */
goto BgL_tagzd2102zd2_82;} }  else 
{ /* ./Module/module.scm 88 */
goto BgL_tagzd2102zd2_82;} } }  else 
{ /* ./Module/module.scm 88 */
goto BgL_tagzd2102zd2_82;} } } } 
}



/* _produce-module! */
obj_t BGl__producezd2modulez12zc0zzmodule_modulez00(obj_t BgL_envz00_632, obj_t BgL_mclausez00_633)
{ AN_OBJECT;
{ /* ./Module/module.scm 86 */
return 
BGl_producezd2modulez12zc0zzmodule_modulez00(BgL_mclausez00_633);} 
}



/* produce-library-clauses */
obj_t BGl_producezd2libraryzd2clausesz00zzmodule_modulez00(obj_t BgL_clausesz00_20)
{ AN_OBJECT;
{ /* ./Module/module.scm 122 */
{ /* ./Module/module.scm 123 */
obj_t BgL_producerz00_130;
BgL_producerz00_130 = 
BGl_findzd2clausezd2producerz00zzmodule_modulez00(
CNST_TABLE_REF(((long)5)), 
CNST_TABLE_REF(((long)6))); 
{ 
obj_t BgL_clausesz00_131;obj_t BgL_resz00_132;
BgL_clausesz00_131 = BgL_clausesz00_20; 
BgL_resz00_132 = BNIL; 
BgL_loopz00_133:
{ /* ./Module/module.scm 127 */
bool_t BgL_test1251z00_134;
BgL_test1251z00_134 = 
NULLP(BgL_clausesz00_131); 
if(BgL_test1251z00_134)
{ /* ./Module/module.scm 127 */
return 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_resz00_132);}  else 
{ /* ./Module/module.scm 127 */
{ /* ./Module/module.scm 130 */
obj_t BgL_clausez00_135;
BgL_clausez00_135 = 
CAR(BgL_clausesz00_131); 
{ 

{ /* ./Module/module.scm 131 */
bool_t BgL_test1253z00_139;
BgL_test1253z00_139 = 
PAIRP(BgL_clausez00_135); 
if(BgL_test1253z00_139)
{ /* ./Module/module.scm 131 */
bool_t BgL_test1254z00_140;
{ /* ./Module/module.scm 131 */
obj_t BgL_auxz00_872;obj_t BgL_auxz00_870;
BgL_auxz00_872 = 
CNST_TABLE_REF(((long)5)); 
BgL_auxz00_870 = 
CAR(BgL_clausez00_135); 
BgL_test1254z00_140 = 
(BgL_auxz00_870==BgL_auxz00_872); } 
if(BgL_test1254z00_140)
{ /* ./Module/module.scm 131 */
PROCEDURE_ENTRY(BgL_producerz00_130)(BgL_producerz00_130, BgL_clausez00_135, BEOA); 
{ /* ./Module/module.scm 134 */
obj_t BgL_arg1266z00_143;
BgL_arg1266z00_143 = 
CDR(BgL_clausesz00_131); 
{ 
obj_t BgL_clausesz00_879;
BgL_clausesz00_879 = BgL_arg1266z00_143; 
BgL_clausesz00_131 = BgL_clausesz00_879; 
goto BgL_loopz00_133;} } }  else 
{ /* ./Module/module.scm 131 */
BgL_tagzd2119zd2_137:
{ /* ./Module/module.scm 136 */
obj_t BgL_arg1270z00_144;obj_t BgL_arg1273z00_145;
BgL_arg1270z00_144 = 
CDR(BgL_clausesz00_131); 
BgL_arg1273z00_145 = 
MAKE_PAIR(BgL_clausez00_135, BgL_resz00_132); 
{ 
obj_t BgL_resz00_883;obj_t BgL_clausesz00_882;
BgL_clausesz00_882 = BgL_arg1270z00_144; 
BgL_resz00_883 = BgL_arg1273z00_145; 
BgL_resz00_132 = BgL_resz00_883; 
BgL_clausesz00_131 = BgL_clausesz00_882; 
goto BgL_loopz00_133;} } } }  else 
{ /* ./Module/module.scm 131 */
goto BgL_tagzd2119zd2_137;} } } } } } } } } 
}



/* finalize-clause-compilations */
obj_t BGl_finaliza7ezd2clausezd2compilationsza7zzmodule_modulez00()
{ AN_OBJECT;
{ /* ./Module/module.scm 141 */
{ 
obj_t BgL_ccz00_146;obj_t BgL_unitsz00_147;
BgL_ccz00_146 = BGl_za2clausezd2compilersza2zd2zzmodule_modulez00; 
BgL_unitsz00_147 = BNIL; 
BgL_loopz00_148:
{ /* ./Module/module.scm 144 */
bool_t BgL_test1281z00_149;
BgL_test1281z00_149 = 
NULLP(BgL_ccz00_146); 
if(BgL_test1281z00_149)
{ /* ./Module/module.scm 144 */
return BgL_unitsz00_147;}  else 
{ /* ./Module/module.scm 146 */
obj_t BgL_finaliza7erza7_150;
{ /* ./Module/module.scm 146 */
BgL_ccompz00_bglt BgL_obj1006z00_465;
{ /* ./Module/module.scm 146 */
obj_t BgL_auxz00_886;
BgL_auxz00_886 = 
CAR(BgL_ccz00_146); 
BgL_obj1006z00_465 = 
(BgL_ccompz00_bglt)(BgL_auxz00_886); } 
BgL_finaliza7erza7_150 = 
(((BgL_ccompz00_bglt)CREF(BgL_obj1006z00_465))->BgL_finaliza7erza7); } 
{ /* ./Module/module.scm 146 */
obj_t BgL_finalresz00_151;
BgL_finalresz00_151 = 
PROCEDURE_ENTRY(BgL_finaliza7erza7_150)(BgL_finaliza7erza7_150, BEOA); 
{ /* ./Module/module.scm 147 */

{ /* ./Module/module.scm 148 */
obj_t BgL_arg1283z00_152;obj_t BgL_arg1284z00_153;
BgL_arg1283z00_152 = 
CDR(BgL_ccz00_146); 
if(
PAIRP(BgL_finalresz00_151))
{ /* ./Module/module.scm 149 */
BgL_arg1284z00_153 = 
bgl_append2(BgL_finalresz00_151, BgL_unitsz00_147); }  else 
{ /* ./Module/module.scm 149 */
BgL_arg1284z00_153 = BgL_unitsz00_147; } 
{ 
obj_t BgL_unitsz00_897;obj_t BgL_ccz00_896;
BgL_ccz00_896 = BgL_arg1283z00_152; 
BgL_unitsz00_897 = BgL_arg1284z00_153; 
BgL_unitsz00_147 = BgL_unitsz00_897; 
BgL_ccz00_146 = BgL_ccz00_896; 
goto BgL_loopz00_148;} } } } } } } } 
}



/* produce-module-clause! */
BGL_EXPORTED_DEF obj_t BGl_producezd2modulezd2clausez12z12zzmodule_modulez00(obj_t BgL_clausez00_21)
{ AN_OBJECT;
{ /* ./Module/module.scm 156 */
{ 

{ /* ./Module/module.scm 157 */
bool_t BgL_test1296z00_160;
BgL_test1296z00_160 = 
PAIRP(BgL_clausez00_21); 
if(BgL_test1296z00_160)
{ /* ./Module/module.scm 157 */
obj_t BgL_carzd2128zd2_161;
BgL_carzd2128zd2_161 = 
CAR(BgL_clausez00_21); 
{ /* ./Module/module.scm 157 */
bool_t BgL_test1297z00_162;
BgL_test1297z00_162 = 
SYMBOLP(BgL_carzd2128zd2_161); 
if(BgL_test1297z00_162)
{ /* ./Module/module.scm 157 */
obj_t BgL_fun1306z00_472;
BgL_fun1306z00_472 = 
BGl_findzd2clausezd2producerz00zzmodule_modulez00(BgL_carzd2128zd2_161, BgL_clausez00_21); 
return 
PROCEDURE_ENTRY(BgL_fun1306z00_472)(BgL_fun1306z00_472, BgL_clausez00_21, BEOA);}  else 
{ /* ./Module/module.scm 157 */
BgL_tagzd2124zd2_158:
{ /* ./Module/module.scm 161 */
obj_t BgL_list1309z00_164;
BgL_list1309z00_164 = 
MAKE_PAIR(BNIL, BNIL); 
return 
BGl_userzd2errorzd2zztools_errorz00(BGl_string1982z00zzmodule_modulez00, BGl_string1985z00zzmodule_modulez00, BgL_clausez00_21, BgL_list1309z00_164);} } } }  else 
{ /* ./Module/module.scm 157 */
goto BgL_tagzd2124zd2_158;} } } } 
}



/* _produce-module-clause! */
obj_t BGl__producezd2modulezd2clausez12z12zzmodule_modulez00(obj_t BgL_envz00_635, obj_t BgL_clausez00_636)
{ AN_OBJECT;
{ /* ./Module/module.scm 156 */
return 
BGl_producezd2modulezd2clausez12z12zzmodule_modulez00(BgL_clausez00_636);} 
}



/* install-clauses-compiler! */
obj_t BGl_installzd2clauseszd2compilerz12z12zzmodule_modulez00()
{ AN_OBJECT;
{ /* ./Module/module.scm 174 */
{ /* ./Module/module.scm 177 */
obj_t BgL_arg1312z00_165;obj_t BgL_arg1313z00_166;obj_t BgL_arg1314z00_167;obj_t BgL_arg1315z00_168;obj_t BgL_arg1316z00_169;obj_t BgL_arg1317z00_170;obj_t BgL_arg1318z00_171;obj_t BgL_arg1319z00_172;obj_t BgL_arg1320z00_173;obj_t BgL_arg1321z00_174;obj_t BgL_arg1322z00_175;obj_t BgL_arg1323z00_176;obj_t BgL_arg1324z00_177;obj_t BgL_arg1326z00_178;obj_t BgL_arg1327z00_179;obj_t BgL_arg1328z00_180;obj_t BgL_arg1329z00_181;
BgL_arg1312z00_165 = 
BGl_makezd2evalzd2compilerz00zzmodule_evalz00(); 
BgL_arg1313z00_166 = 
BGl_makezd2mainzd2compilerz00zzmodule_mainz00(); 
BgL_arg1314z00_167 = 
BGl_makezd2loadzd2compilerz00zzmodule_loadz00(); 
BgL_arg1315z00_168 = 
BGl_makezd2usezd2compilerz00zzmodule_impusez00(); 
BgL_arg1316z00_169 = 
BGl_makezd2importzd2compilerz00zzmodule_impusez00(); 
BgL_arg1317z00_170 = 
BGl_makezd2fromzd2compilerz00zzmodule_impusez00(); 
BgL_arg1318z00_171 = 
BGl_makezd2javazd2compilerz00zzmodule_javaz00(); 
BgL_arg1319z00_172 = 
BGl_makezd2staticzd2compilerz00zzmodule_statexpz00(); 
BgL_arg1320z00_173 = 
BGl_makezd2exportzd2compilerz00zzmodule_statexpz00(); 
BgL_arg1321z00_174 = 
BGl_makezd2includezd2compilerz00zzmodule_includez00(); 
BgL_arg1322z00_175 = 
BGl_makezd2withzd2compilerz00zzmodule_withz00(); 
BgL_arg1323z00_176 = 
BGl_makezd2foreignzd2compilerz00zzmodule_foreignz00(); 
BgL_arg1324z00_177 = 
BGl_makezd2externzd2compilerz00zzmodule_foreignz00(); 
BgL_arg1326z00_178 = 
BGl_makezd2typezd2compilerz00zzmodule_typez00(); 
BgL_arg1327z00_179 = 
BGl_makezd2pragmazd2compilerz00zzmodule_pragmaz00(); 
BgL_arg1328z00_180 = 
BGl_makezd2optionzd2compilerz00zzmodule_optionz00(); 
BgL_arg1329z00_181 = 
BGl_makezd2alibraryzd2compilerz00zzmodule_alibraryz00(); 
{ /* ./Module/module.scm 177 */
obj_t BgL_list1331z00_182;
{ /* ./Module/module.scm 177 */
obj_t BgL_arg1333z00_183;
{ /* ./Module/module.scm 177 */
obj_t BgL_arg1336z00_184;
{ /* ./Module/module.scm 177 */
obj_t BgL_arg1340z00_185;
{ /* ./Module/module.scm 177 */
obj_t BgL_arg1343z00_186;
{ /* ./Module/module.scm 177 */
obj_t BgL_arg1346z00_187;
{ /* ./Module/module.scm 177 */
obj_t BgL_arg1349z00_188;
{ /* ./Module/module.scm 177 */
obj_t BgL_arg1352z00_189;
{ /* ./Module/module.scm 177 */
obj_t BgL_arg1355z00_190;
{ /* ./Module/module.scm 177 */
obj_t BgL_arg1358z00_191;
{ /* ./Module/module.scm 177 */
obj_t BgL_arg1361z00_192;
{ /* ./Module/module.scm 177 */
obj_t BgL_arg1364z00_193;
{ /* ./Module/module.scm 177 */
obj_t BgL_arg1368z00_194;
{ /* ./Module/module.scm 177 */
obj_t BgL_arg1371z00_195;
{ /* ./Module/module.scm 177 */
obj_t BgL_arg1374z00_196;
{ /* ./Module/module.scm 177 */
obj_t BgL_arg1377z00_197;
{ /* ./Module/module.scm 177 */
obj_t BgL_arg1382z00_198;
BgL_arg1382z00_198 = 
MAKE_PAIR(BgL_arg1329z00_181, BNIL); 
BgL_arg1377z00_197 = 
MAKE_PAIR(BgL_arg1328z00_180, BgL_arg1382z00_198); } 
BgL_arg1374z00_196 = 
MAKE_PAIR(BgL_arg1327z00_179, BgL_arg1377z00_197); } 
BgL_arg1371z00_195 = 
MAKE_PAIR(BgL_arg1326z00_178, BgL_arg1374z00_196); } 
BgL_arg1368z00_194 = 
MAKE_PAIR(BgL_arg1324z00_177, BgL_arg1371z00_195); } 
BgL_arg1364z00_193 = 
MAKE_PAIR(BgL_arg1323z00_176, BgL_arg1368z00_194); } 
BgL_arg1361z00_192 = 
MAKE_PAIR(BgL_arg1322z00_175, BgL_arg1364z00_193); } 
BgL_arg1358z00_191 = 
MAKE_PAIR(BgL_arg1321z00_174, BgL_arg1361z00_192); } 
BgL_arg1355z00_190 = 
MAKE_PAIR(BgL_arg1320z00_173, BgL_arg1358z00_191); } 
BgL_arg1352z00_189 = 
MAKE_PAIR(BgL_arg1319z00_172, BgL_arg1355z00_190); } 
BgL_arg1349z00_188 = 
MAKE_PAIR(BgL_arg1318z00_171, BgL_arg1352z00_189); } 
BgL_arg1346z00_187 = 
MAKE_PAIR(BgL_arg1317z00_170, BgL_arg1349z00_188); } 
BgL_arg1343z00_186 = 
MAKE_PAIR(BgL_arg1316z00_169, BgL_arg1346z00_187); } 
BgL_arg1340z00_185 = 
MAKE_PAIR(BgL_arg1315z00_168, BgL_arg1343z00_186); } 
BgL_arg1336z00_184 = 
MAKE_PAIR(BgL_arg1314z00_167, BgL_arg1340z00_185); } 
BgL_arg1333z00_183 = 
MAKE_PAIR(BgL_arg1313z00_166, BgL_arg1336z00_184); } 
BgL_list1331z00_182 = 
MAKE_PAIR(BgL_arg1312z00_165, BgL_arg1333z00_183); } 
return ( 
BGl_za2clausezd2compilersza2zd2zzmodule_modulez00 = BgL_list1331z00_182, BUNSPEC) ;} } } 
}



/* find-clause-producer */
obj_t BGl_findzd2clausezd2producerz00zzmodule_modulez00(obj_t BgL_keywordz00_22, obj_t BgL_clausez00_23)
{ AN_OBJECT;
{ /* ./Module/module.scm 198 */
{ /* ./Module/module.scm 200 */
obj_t BgL_unknownzd2clausezd2producerz00_637;
{ 
int BgL_auxz00_945;int BgL_auxz00_943;
BgL_auxz00_945 = 
(int)(((long)1)); 
BgL_auxz00_943 = 
(int)(((long)1)); 
BgL_unknownzd2clausezd2producerz00_637 = 
make_fx_procedure(BGl_unknownzd2clausezd2producerz00zzmodule_modulez00, BgL_auxz00_943, BgL_auxz00_945); } 
{ /* ./Module/module.scm 200 */
int BgL_auxz00_948;
BgL_auxz00_948 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_unknownzd2clausezd2producerz00_637, BgL_auxz00_948, BgL_clausez00_23); } 
{ 
obj_t BgL_ccz00_200;
BgL_ccz00_200 = BGl_za2clausezd2compilersza2zd2zzmodule_modulez00; 
BgL_loopz00_201:
if(
NULLP(BgL_ccz00_200))
{ /* ./Module/module.scm 206 */
return BgL_unknownzd2clausezd2producerz00_637;}  else 
{ /* ./Module/module.scm 208 */
bool_t BgL_testz00_953;
{ /* ./Module/module.scm 208 */
obj_t BgL_auxz00_954;
{ /* ./Module/module.scm 208 */
BgL_ccompz00_bglt BgL_obj1003z00_478;
{ /* ./Module/module.scm 208 */
obj_t BgL_auxz00_955;
BgL_auxz00_955 = 
CAR(BgL_ccz00_200); 
BgL_obj1003z00_478 = 
(BgL_ccompz00_bglt)(BgL_auxz00_955); } 
BgL_auxz00_954 = 
(((BgL_ccompz00_bglt)CREF(BgL_obj1003z00_478))->BgL_idz00); } 
BgL_testz00_953 = 
(BgL_auxz00_954==BgL_keywordz00_22); } 
if(BgL_testz00_953)
{ /* ./Module/module.scm 208 */
{ /* ./Module/module.scm 209 */
BgL_ccompz00_bglt BgL_obj1004z00_480;
{ /* ./Module/module.scm 209 */
obj_t BgL_auxz00_960;
BgL_auxz00_960 = 
CAR(BgL_ccz00_200); 
BgL_obj1004z00_480 = 
(BgL_ccompz00_bglt)(BgL_auxz00_960); } 
return 
(((BgL_ccompz00_bglt)CREF(BgL_obj1004z00_480))->BgL_producerz00);} }  else 
{ /* ./Module/module.scm 208 */
{ 
obj_t BgL_ccz00_964;
BgL_ccz00_964 = 
CDR(BgL_ccz00_200); 
BgL_ccz00_200 = BgL_ccz00_964; 
goto BgL_loopz00_201;} } } } } } 
}



/* unknown-clause-producer */
obj_t BGl_unknownzd2clausezd2producerz00zzmodule_modulez00(obj_t BgL_envz00_638, obj_t BgL_valuesz00_640)
{ AN_OBJECT;
{ /* ./Module/module.scm 203 */
{ /* ./Module/module.scm 200 */
obj_t BgL_clausez00_639;
{ /* ./Module/module.scm 200 */
int BgL_auxz00_966;
BgL_auxz00_966 = 
(int)(((long)0)); 
BgL_clausez00_639 = 
PROCEDURE_REF(BgL_envz00_638, BgL_auxz00_966); } 
{ 
obj_t BgL_valuesz00_208;
BgL_valuesz00_208 = BgL_valuesz00_640; 
{ /* ./Module/module.scm 200 */
obj_t BgL_list1425z00_210;
BgL_list1425z00_210 = 
MAKE_PAIR(BNIL, BNIL); 
return 
BGl_userzd2errorzd2zztools_errorz00(BGl_string1982z00zzmodule_modulez00, BGl_string1986z00zzmodule_modulez00, BgL_clausez00_639, BgL_list1425z00_210);} } } } 
}



/* module-initialization-id */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationzd2idza7zzmodule_modulez00(obj_t BgL_idz00_24)
{ AN_OBJECT;
{ /* ./Module/module.scm 216 */
return 
CNST_TABLE_REF(((long)7));} 
}



/* _module-initialization-id */
obj_t BGl__modulezd2initializa7ationzd2idza7zzmodule_modulez00(obj_t BgL_envz00_641, obj_t BgL_idz00_642)
{ AN_OBJECT;
{ /* ./Module/module.scm 216 */
{ /* ./Module/module.scm 217 */
obj_t BgL_res2013z00_690;
BgL_res2013z00_690 = 
CNST_TABLE_REF(((long)7)); 
return BgL_res2013z00_690;} } 
}



/* consume-module! */
BGL_EXPORTED_DEF obj_t BGl_consumezd2modulez12zc0zzmodule_modulez00(obj_t BgL_pnamez00_25, obj_t BgL_mclausez00_26)
{ AN_OBJECT;
{ /* ./Module/module.scm 222 */
{ 
obj_t BgL_namez00_212;obj_t BgL_clausesz00_213;
{ /* ./Module/module.scm 223 */
bool_t BgL_test1427z00_217;
BgL_test1427z00_217 = 
PAIRP(BgL_mclausez00_26); 
if(BgL_test1427z00_217)
{ /* ./Module/module.scm 223 */
obj_t BgL_cdrzd2141zd2_218;
BgL_cdrzd2141zd2_218 = 
CDR(BgL_mclausez00_26); 
{ /* ./Module/module.scm 223 */
bool_t BgL_test1428z00_219;
{ /* ./Module/module.scm 223 */
obj_t BgL_auxz00_978;obj_t BgL_auxz00_976;
BgL_auxz00_978 = 
CNST_TABLE_REF(((long)4)); 
BgL_auxz00_976 = 
CAR(BgL_mclausez00_26); 
BgL_test1428z00_219 = 
(BgL_auxz00_976==BgL_auxz00_978); } 
if(BgL_test1428z00_219)
{ /* ./Module/module.scm 223 */
bool_t BgL_test1429z00_220;
BgL_test1429z00_220 = 
PAIRP(BgL_cdrzd2141zd2_218); 
if(BgL_test1429z00_220)
{ /* ./Module/module.scm 223 */
obj_t BgL_carzd2144zd2_221;
BgL_carzd2144zd2_221 = 
CAR(BgL_cdrzd2141zd2_218); 
{ /* ./Module/module.scm 223 */
bool_t BgL_test1430z00_222;
BgL_test1430z00_222 = 
SYMBOLP(BgL_carzd2144zd2_221); 
if(BgL_test1430z00_222)
{ /* ./Module/module.scm 223 */
obj_t BgL_arg1432z00_223;
BgL_arg1432z00_223 = 
CDR(BgL_cdrzd2141zd2_218); 
BgL_namez00_212 = BgL_carzd2144zd2_221; 
BgL_clausesz00_213 = BgL_arg1432z00_223; 
{ /* ./Module/module.scm 226 */
bool_t BgL_test1452z00_226;
{ /* ./Module/module.scm 226 */
bool_t BgL_testz00_988;
{ /* ./Module/module.scm 226 */
obj_t BgL_auxz00_989;
BgL_auxz00_989 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_namez00_212, 
CNST_TABLE_REF(((long)2))); 
BgL_testz00_988 = 
CBOOL(BgL_auxz00_989); } 
if(BgL_testz00_988)
{ /* ./Module/module.scm 226 */
BgL_test1452z00_226 = ((bool_t)0); }  else 
{ /* ./Module/module.scm 226 */
BgL_test1452z00_226 = ((bool_t)1); } } 
if(BgL_test1452z00_226)
{ /* ./Module/module.scm 228 */
bool_t BgL_test1453z00_227;
BgL_test1453z00_227 = 
(BgL_pnamez00_25==BgL_namez00_212); 
if(BgL_test1453z00_227)
{ /* ./Module/module.scm 228 */
{ /* ./Module/module.scm 236 */
obj_t BgL_runner1475z00_240;
{ /* ./Module/module.scm 236 */
bool_t BgL_test1454z00_229;
BgL_test1454z00_229 = 
NULLP(BgL_clausesz00_213); 
if(BgL_test1454z00_229)
{ /* ./Module/module.scm 236 */
BgL_runner1475z00_240 = BNIL; }  else 
{ /* ./Module/module.scm 236 */
obj_t BgL_head1048z00_230;
BgL_head1048z00_230 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1046z00_231;obj_t BgL_tail1049z00_232;
BgL_l1046z00_231 = BgL_clausesz00_213; 
BgL_tail1049z00_232 = BgL_head1048z00_230; 
BgL_map1047z00_233:
{ /* ./Module/module.scm 236 */
bool_t BgL_test1456z00_234;
BgL_test1456z00_234 = 
NULLP(BgL_l1046z00_231); 
if(BgL_test1456z00_234)
{ /* ./Module/module.scm 236 */
BgL_runner1475z00_240 = 
CDR(BgL_head1048z00_230); }  else 
{ /* ./Module/module.scm 236 */
obj_t BgL_newtail1050z00_235;
{ /* ./Module/module.scm 236 */
obj_t BgL_arg1466z00_237;
{ /* ./Module/module.scm 236 */
obj_t BgL_cz00_239;
BgL_cz00_239 = 
CAR(BgL_l1046z00_231); 
BgL_arg1466z00_237 = 
BGl_consumezd2modulezd2clausez12z12zzmodule_modulez00(BgL_namez00_212, BgL_cz00_239); } 
BgL_newtail1050z00_235 = 
MAKE_PAIR(BgL_arg1466z00_237, BNIL); } 
SET_CDR(BgL_tail1049z00_232, BgL_newtail1050z00_235); 
{ /* ./Module/module.scm 236 */
obj_t BgL_arg1461z00_236;
BgL_arg1461z00_236 = 
CDR(BgL_l1046z00_231); 
{ 
obj_t BgL_tail1049z00_1008;obj_t BgL_l1046z00_1007;
BgL_l1046z00_1007 = BgL_arg1461z00_236; 
BgL_tail1049z00_1008 = BgL_newtail1050z00_235; 
BgL_tail1049z00_232 = BgL_tail1049z00_1008; 
BgL_l1046z00_231 = BgL_l1046z00_1007; 
goto BgL_map1047z00_233;} } } } } } } 
return 
BGl_appendz00zz__r4_pairs_and_lists_6_3z00(BgL_runner1475z00_240);} }  else 
{ /* ./Module/module.scm 228 */
{ /* ./Module/module.scm 229 */
obj_t BgL_arg1478z00_242;
{ /* ./Module/module.scm 230 */
obj_t BgL_arg1487z00_246;obj_t BgL_arg1490z00_248;
BgL_arg1487z00_246 = 
SYMBOL_TO_STRING(BgL_namez00_212); 
BgL_arg1490z00_248 = 
SYMBOL_TO_STRING(BgL_pnamez00_25); 
{ /* ./Module/module.scm 230 */
obj_t BgL_list1492z00_249;
{ /* ./Module/module.scm 230 */
obj_t BgL_arg1494z00_250;
{ /* ./Module/module.scm 230 */
obj_t BgL_arg1497z00_251;
{ /* ./Module/module.scm 230 */
obj_t BgL_arg1500z00_252;
BgL_arg1500z00_252 = 
MAKE_PAIR(BgL_arg1490z00_248, BNIL); 
BgL_arg1497z00_251 = 
MAKE_PAIR(BGl_string1987z00zzmodule_modulez00, BgL_arg1500z00_252); } 
BgL_arg1494z00_250 = 
MAKE_PAIR(BgL_arg1487z00_246, BgL_arg1497z00_251); } 
BgL_list1492z00_249 = 
MAKE_PAIR(BGl_string1988z00zzmodule_modulez00, BgL_arg1494z00_250); } 
BgL_arg1478z00_242 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1492z00_249); } } 
{ /* ./Module/module.scm 229 */
obj_t BgL_list1482z00_244;
BgL_list1482z00_244 = 
MAKE_PAIR(BNIL, BNIL); 
return 
BGl_userzd2errorzd2zztools_errorz00(BGl_string1989z00zzmodule_modulez00, BgL_arg1478z00_242, BgL_mclausez00_26, BgL_list1482z00_244);} } } }  else 
{ /* ./Module/module.scm 226 */
{ /* ./Module/module.scm 227 */
obj_t BgL_list1507z00_253;
BgL_list1507z00_253 = 
MAKE_PAIR(BNIL, BNIL); 
return 
BGl_userzd2errorzd2zztools_errorz00(BGl_string1982z00zzmodule_modulez00, BGl_string1983z00zzmodule_modulez00, BgL_mclausez00_26, BgL_list1507z00_253);} } } }  else 
{ /* ./Module/module.scm 223 */
BgL_tagzd2134zd2_215:
{ /* ./Module/module.scm 239 */
obj_t BgL_list1511z00_254;
BgL_list1511z00_254 = 
MAKE_PAIR(BNIL, BNIL); 
return 
BGl_userzd2errorzd2zztools_errorz00(BGl_string1982z00zzmodule_modulez00, BGl_string1984z00zzmodule_modulez00, BgL_mclausez00_26, BgL_list1511z00_254);} } } }  else 
{ /* ./Module/module.scm 223 */
goto BgL_tagzd2134zd2_215;} }  else 
{ /* ./Module/module.scm 223 */
goto BgL_tagzd2134zd2_215;} } }  else 
{ /* ./Module/module.scm 223 */
goto BgL_tagzd2134zd2_215;} } } } 
}



/* _consume-module! */
obj_t BGl__consumezd2modulez12zc0zzmodule_modulez00(obj_t BgL_envz00_643, obj_t BgL_pnamez00_644, obj_t BgL_mclausez00_645)
{ AN_OBJECT;
{ /* ./Module/module.scm 222 */
return 
BGl_consumezd2modulez12zc0zzmodule_modulez00(BgL_pnamez00_644, BgL_mclausez00_645);} 
}



/* consume-module-clause! */
BGL_EXPORTED_DEF obj_t BGl_consumezd2modulezd2clausez12z12zzmodule_modulez00(obj_t BgL_modulez00_27, obj_t BgL_clausez00_28)
{ AN_OBJECT;
{ /* ./Module/module.scm 247 */
{ 

{ /* ./Module/module.scm 248 */
bool_t BgL_test1513z00_260;
BgL_test1513z00_260 = 
PAIRP(BgL_clausez00_28); 
if(BgL_test1513z00_260)
{ /* ./Module/module.scm 248 */
obj_t BgL_carzd2157zd2_261;
BgL_carzd2157zd2_261 = 
CAR(BgL_clausez00_28); 
{ /* ./Module/module.scm 248 */
bool_t BgL_test1514z00_262;
BgL_test1514z00_262 = 
SYMBOLP(BgL_carzd2157zd2_261); 
if(BgL_test1514z00_262)
{ /* ./Module/module.scm 248 */
obj_t BgL_fun1526z00_510;
BgL_fun1526z00_510 = 
BGl_findzd2clausezd2consumerz00zzmodule_modulez00(BgL_carzd2157zd2_261, BgL_clausez00_28); 
return 
PROCEDURE_ENTRY(BgL_fun1526z00_510)(BgL_fun1526z00_510, BgL_modulez00_27, BgL_clausez00_28, BEOA);}  else 
{ /* ./Module/module.scm 248 */
BgL_tagzd2151zd2_258:
{ /* ./Module/module.scm 252 */
obj_t BgL_list1529z00_265;
BgL_list1529z00_265 = 
MAKE_PAIR(BNIL, BNIL); 
return 
BGl_userzd2errorzd2zztools_errorz00(BGl_string1982z00zzmodule_modulez00, BGl_string1985z00zzmodule_modulez00, BgL_clausez00_28, BgL_list1529z00_265);} } } }  else 
{ /* ./Module/module.scm 248 */
goto BgL_tagzd2151zd2_258;} } } } 
}



/* _consume-module-clause! */
obj_t BGl__consumezd2modulezd2clausez12z12zzmodule_modulez00(obj_t BgL_envz00_646, obj_t BgL_modulez00_647, obj_t BgL_clausez00_648)
{ AN_OBJECT;
{ /* ./Module/module.scm 247 */
return 
BGl_consumezd2modulezd2clausez12z12zzmodule_modulez00(BgL_modulez00_647, BgL_clausez00_648);} 
}



/* find-clause-consumer */
obj_t BGl_findzd2clausezd2consumerz00zzmodule_modulez00(obj_t BgL_keywordz00_29, obj_t BgL_clausez00_30)
{ AN_OBJECT;
{ /* ./Module/module.scm 260 */
{ /* ./Module/module.scm 262 */
obj_t BgL_unknownzd2clausezd2consumerz00_649;
{ 
int BgL_auxz00_1037;int BgL_auxz00_1035;
BgL_auxz00_1037 = 
(int)(((long)1)); 
BgL_auxz00_1035 = 
(int)(((long)2)); 
BgL_unknownzd2clausezd2consumerz00_649 = 
make_fx_procedure(BGl_unknownzd2clausezd2consumerz00zzmodule_modulez00, BgL_auxz00_1035, BgL_auxz00_1037); } 
{ /* ./Module/module.scm 262 */
int BgL_auxz00_1040;
BgL_auxz00_1040 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_unknownzd2clausezd2consumerz00_649, BgL_auxz00_1040, BgL_clausez00_30); } 
{ 
obj_t BgL_ccz00_267;
BgL_ccz00_267 = BGl_za2clausezd2compilersza2zd2zzmodule_modulez00; 
BgL_loopz00_268:
if(
NULLP(BgL_ccz00_267))
{ /* ./Module/module.scm 268 */
return BgL_unknownzd2clausezd2consumerz00_649;}  else 
{ /* ./Module/module.scm 270 */
bool_t BgL_testz00_1045;
{ /* ./Module/module.scm 270 */
obj_t BgL_auxz00_1046;
{ /* ./Module/module.scm 270 */
BgL_ccompz00_bglt BgL_obj1003z00_514;
{ /* ./Module/module.scm 270 */
obj_t BgL_auxz00_1047;
BgL_auxz00_1047 = 
CAR(BgL_ccz00_267); 
BgL_obj1003z00_514 = 
(BgL_ccompz00_bglt)(BgL_auxz00_1047); } 
BgL_auxz00_1046 = 
(((BgL_ccompz00_bglt)CREF(BgL_obj1003z00_514))->BgL_idz00); } 
BgL_testz00_1045 = 
(BgL_auxz00_1046==BgL_keywordz00_29); } 
if(BgL_testz00_1045)
{ /* ./Module/module.scm 270 */
{ /* ./Module/module.scm 271 */
BgL_ccompz00_bglt BgL_obj1005z00_516;
{ /* ./Module/module.scm 271 */
obj_t BgL_auxz00_1052;
BgL_auxz00_1052 = 
CAR(BgL_ccz00_267); 
BgL_obj1005z00_516 = 
(BgL_ccompz00_bglt)(BgL_auxz00_1052); } 
return 
(((BgL_ccompz00_bglt)CREF(BgL_obj1005z00_516))->BgL_consumerz00);} }  else 
{ /* ./Module/module.scm 270 */
{ 
obj_t BgL_ccz00_1056;
BgL_ccz00_1056 = 
CDR(BgL_ccz00_267); 
BgL_ccz00_267 = BgL_ccz00_1056; 
goto BgL_loopz00_268;} } } } } } 
}



/* unknown-clause-consumer */
obj_t BGl_unknownzd2clausezd2consumerz00zzmodule_modulez00(obj_t BgL_envz00_650, obj_t BgL_modulez00_652, obj_t BgL_valuesz00_653)
{ AN_OBJECT;
{ /* ./Module/module.scm 265 */
{ /* ./Module/module.scm 262 */
obj_t BgL_clausez00_651;
{ /* ./Module/module.scm 262 */
int BgL_auxz00_1058;
BgL_auxz00_1058 = 
(int)(((long)0)); 
BgL_clausez00_651 = 
PROCEDURE_REF(BgL_envz00_650, BgL_auxz00_1058); } 
{ 
obj_t BgL_modulez00_275;obj_t BgL_valuesz00_276;
BgL_modulez00_275 = BgL_modulez00_652; 
BgL_valuesz00_276 = BgL_valuesz00_653; 
{ /* ./Module/module.scm 262 */
obj_t BgL_list1554z00_518;
BgL_list1554z00_518 = 
MAKE_PAIR(BNIL, BNIL); 
return 
BGl_userzd2errorzd2zztools_errorz00(BGl_string1982z00zzmodule_modulez00, BGl_string1986z00zzmodule_modulez00, BgL_clausez00_651, BgL_list1554z00_518);} } } } 
}



/* checksum-module */
obj_t BGl_checksumzd2modulezd2zzmodule_modulez00(obj_t BgL_mclausez00_32)
{ AN_OBJECT;
{ /* ./Module/module.scm 284 */
{ 
obj_t BgL_namez00_281;obj_t BgL_clausesz00_282;
{ /* ./Module/module.scm 285 */
bool_t BgL_test1558z00_286;
BgL_test1558z00_286 = 
PAIRP(BgL_mclausez00_32); 
if(BgL_test1558z00_286)
{ /* ./Module/module.scm 285 */
obj_t BgL_cdrzd2171zd2_287;
BgL_cdrzd2171zd2_287 = 
CDR(BgL_mclausez00_32); 
{ /* ./Module/module.scm 285 */
bool_t BgL_test1559z00_288;
{ /* ./Module/module.scm 285 */
obj_t BgL_auxz00_1068;obj_t BgL_auxz00_1066;
BgL_auxz00_1068 = 
CNST_TABLE_REF(((long)4)); 
BgL_auxz00_1066 = 
CAR(BgL_mclausez00_32); 
BgL_test1559z00_288 = 
(BgL_auxz00_1066==BgL_auxz00_1068); } 
if(BgL_test1559z00_288)
{ /* ./Module/module.scm 285 */
bool_t BgL_test1560z00_289;
BgL_test1560z00_289 = 
PAIRP(BgL_cdrzd2171zd2_287); 
if(BgL_test1560z00_289)
{ /* ./Module/module.scm 285 */
obj_t BgL_carzd2174zd2_290;
BgL_carzd2174zd2_290 = 
CAR(BgL_cdrzd2171zd2_287); 
{ /* ./Module/module.scm 285 */
bool_t BgL_test1561z00_291;
BgL_test1561z00_291 = 
SYMBOLP(BgL_carzd2174zd2_290); 
if(BgL_test1561z00_291)
{ /* ./Module/module.scm 285 */
obj_t BgL_arg1564z00_292;
BgL_arg1564z00_292 = 
CDR(BgL_cdrzd2171zd2_287); 
BgL_namez00_281 = BgL_carzd2174zd2_290; 
BgL_clausesz00_282 = BgL_arg1564z00_292; 
{ /* ./Module/module.scm 288 */
bool_t BgL_test1582z00_295;
{ /* ./Module/module.scm 288 */
bool_t BgL_testz00_1078;
{ /* ./Module/module.scm 288 */
obj_t BgL_auxz00_1079;
BgL_auxz00_1079 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_namez00_281, 
CNST_TABLE_REF(((long)2))); 
BgL_testz00_1078 = 
CBOOL(BgL_auxz00_1079); } 
if(BgL_testz00_1078)
{ /* ./Module/module.scm 288 */
BgL_test1582z00_295 = ((bool_t)0); }  else 
{ /* ./Module/module.scm 288 */
BgL_test1582z00_295 = ((bool_t)1); } } 
if(BgL_test1582z00_295)
{ /* ./Module/module.scm 288 */
{ /* ./Module/module.scm 291 */
long BgL_auxz00_1084;
BgL_auxz00_1084 = 
BGl_modulezd2checksumzd2zzmodule_checksumz00(BgL_mclausez00_32); 
return 
BINT(BgL_auxz00_1084);} }  else 
{ /* ./Module/module.scm 288 */
{ /* ./Module/module.scm 289 */
obj_t BgL_list1585z00_296;
BgL_list1585z00_296 = 
MAKE_PAIR(BNIL, BNIL); 
return 
BGl_userzd2errorzd2zztools_errorz00(BGl_string1982z00zzmodule_modulez00, BGl_string1983z00zzmodule_modulez00, BgL_mclausez00_32, BgL_list1585z00_296);} } } }  else 
{ /* ./Module/module.scm 285 */
BgL_tagzd2164zd2_284:
{ /* ./Module/module.scm 293 */
obj_t BgL_list1589z00_297;
BgL_list1589z00_297 = 
MAKE_PAIR(BNIL, BNIL); 
return 
BGl_userzd2errorzd2zztools_errorz00(BGl_string1982z00zzmodule_modulez00, BGl_string1984z00zzmodule_modulez00, BgL_mclausez00_32, BgL_list1589z00_297);} } } }  else 
{ /* ./Module/module.scm 285 */
goto BgL_tagzd2164zd2_284;} }  else 
{ /* ./Module/module.scm 285 */
goto BgL_tagzd2164zd2_284;} } }  else 
{ /* ./Module/module.scm 285 */
goto BgL_tagzd2164zd2_284;} } } } 
}



/* module-checksum-object */
BGL_EXPORTED_DEF obj_t BGl_modulezd2checksumzd2objectz00zzmodule_modulez00()
{ AN_OBJECT;
{ /* ./Module/module.scm 301 */
{ /* ./Module/module.scm 302 */
obj_t BgL_list1592z00_298;
{ /* ./Module/module.scm 302 */
obj_t BgL_arg1596z00_300;
{ /* ./Module/module.scm 302 */
obj_t BgL_arg1600z00_302;
{ /* ./Module/module.scm 302 */
obj_t BgL_auxz00_1091;
BgL_auxz00_1091 = 
BCHAR(((unsigned char)'\n')); 
BgL_arg1600z00_302 = 
MAKE_PAIR(BgL_auxz00_1091, BNIL); } 
BgL_arg1596z00_300 = 
MAKE_PAIR(BGl_string1990z00zzmodule_modulez00, BgL_arg1600z00_302); } 
BgL_list1592z00_298 = 
MAKE_PAIR(BGl_string1977z00zzmodule_modulez00, BgL_arg1596z00_300); } 
BGl_verbosez00zztools_speekz00(
BINT(((long)1)), BgL_list1592z00_298); } 
BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00 = 
BINT(((long)0)); 
BGl_za2currentzd2passza2zd2zzengine_passz00 = BGl_string1990z00zzmodule_modulez00; 
{ 
obj_t BgL_hooksz00_303;obj_t BgL_hnamesz00_304;
{ /* ./Module/module.scm 302 */
obj_t BgL_arg1604z00_306;
BgL_arg1604z00_306 = BNIL; 
BgL_hooksz00_303 = BgL_arg1604z00_306; 
BgL_hnamesz00_304 = BNIL; 
BgL_loopz00_305:
{ /* ./Module/module.scm 302 */
bool_t BgL_test1610z00_309;
BgL_test1610z00_309 = 
NULLP(BgL_hooksz00_303); 
if(BgL_test1610z00_309)
{ /* ./Module/module.scm 302 */
CNST_TABLE_REF(((long)0)); }  else 
{ /* ./Module/module.scm 302 */
bool_t BgL_test1611z00_310;
{ /* ./Module/module.scm 302 */
obj_t BgL_fun1627z00_316;
BgL_fun1627z00_316 = 
CAR(BgL_hooksz00_303); 
{ /* ./Module/module.scm 302 */
obj_t BgL_auxz00_1103;
BgL_auxz00_1103 = 
PROCEDURE_ENTRY(BgL_fun1627z00_316)(BgL_fun1627z00_316, BEOA); 
BgL_test1611z00_310 = 
CBOOL(BgL_auxz00_1103); } } 
if(BgL_test1611z00_310)
{ /* ./Module/module.scm 302 */
{ /* ./Module/module.scm 302 */
obj_t BgL_arg1613z00_311;obj_t BgL_arg1614z00_312;
BgL_arg1613z00_311 = 
CDR(BgL_hooksz00_303); 
BgL_arg1614z00_312 = 
CDR(BgL_hnamesz00_304); 
{ 
obj_t BgL_hnamesz00_1111;obj_t BgL_hooksz00_1110;
BgL_hooksz00_1110 = BgL_arg1613z00_311; 
BgL_hnamesz00_1111 = BgL_arg1614z00_312; 
BgL_hnamesz00_304 = BgL_hnamesz00_1111; 
BgL_hooksz00_303 = BgL_hooksz00_1110; 
goto BgL_loopz00_305;} } }  else 
{ /* ./Module/module.scm 302 */
{ /* ./Module/module.scm 302 */
obj_t BgL_arg1622z00_315;
BgL_arg1622z00_315 = 
CAR(BgL_hnamesz00_304); 
BGl_internalzd2errorzd2zztools_errorz00(BGl_string1990z00zzmodule_modulez00, BGl_string1978z00zzmodule_modulez00, BgL_arg1622z00_315); } } } } } } 
{ /* ./Module/module.scm 303 */
obj_t BgL_checksumz00_317;obj_t BgL_destz00_318;
BgL_checksumz00_317 = BGl_za2modulezd2checksumza2zd2zzmodule_modulez00; 
{ /* ./Module/module.scm 304 */
bool_t BgL_test1662z00_336;
{ /* ./Module/module.scm 304 */
obj_t BgL_objz00_536;
BgL_objz00_536 = BGl_za2destza2z00zzengine_paramz00; 
BgL_test1662z00_336 = 
STRINGP(BgL_objz00_536); } 
if(BgL_test1662z00_336)
{ /* ./Module/module.scm 309 */
bool_t BgL_test1663z00_337;
{ /* ./Module/module.scm 309 */
obj_t BgL_auxz00_1116;
BgL_auxz00_1116 = 
CNST_TABLE_REF(((long)8)); 
BgL_test1663z00_337 = 
(BGl_za2passza2z00zzengine_paramz00==BgL_auxz00_1116); } 
if(BgL_test1663z00_337)
{ /* ./Module/module.scm 309 */
BgL_destz00_318 = BGl_za2destza2z00zzengine_paramz00; }  else 
{ /* ./Module/module.scm 311 */
obj_t BgL_arg1666z00_338;
BgL_arg1666z00_338 = 
BGl_prefixz00zz__osz00(BGl_za2destza2z00zzengine_paramz00); 
BgL_destz00_318 = 
string_append(BgL_arg1666z00_338, BGl_string1991z00zzmodule_modulez00); } }  else 
{ /* ./Module/module.scm 305 */
bool_t BgL_test1671z00_340;
{ /* ./Module/module.scm 305 */
bool_t BgL_test1681z00_344;
{ /* ./Module/module.scm 305 */
obj_t BgL_objz00_537;
BgL_objz00_537 = BGl_za2srczd2filesza2zd2zzengine_paramz00; 
BgL_test1681z00_344 = 
PAIRP(BgL_objz00_537); } 
if(BgL_test1681z00_344)
{ /* ./Module/module.scm 306 */
obj_t BgL_arg1683z00_345;
{ /* ./Module/module.scm 306 */
obj_t BgL_pairz00_538;
BgL_pairz00_538 = BGl_za2srczd2filesza2zd2zzengine_paramz00; 
BgL_arg1683z00_345 = 
CAR(BgL_pairz00_538); } 
BgL_test1671z00_340 = 
STRINGP(BgL_arg1683z00_345); }  else 
{ /* ./Module/module.scm 305 */
BgL_test1671z00_340 = ((bool_t)0); } } 
if(BgL_test1671z00_340)
{ /* ./Module/module.scm 307 */
obj_t BgL_arg1673z00_341;
{ /* ./Module/module.scm 307 */
obj_t BgL_arg1678z00_343;
{ /* ./Module/module.scm 307 */
obj_t BgL_pairz00_540;
BgL_pairz00_540 = BGl_za2srczd2filesza2zd2zzengine_paramz00; 
BgL_arg1678z00_343 = 
CAR(BgL_pairz00_540); } 
BgL_arg1673z00_341 = 
BGl_prefixz00zz__osz00(BgL_arg1678z00_343); } 
BgL_destz00_318 = 
string_append(BgL_arg1673z00_341, BGl_string1991z00zzmodule_modulez00); }  else 
{ /* ./Module/module.scm 305 */
BgL_destz00_318 = BFALSE; } } } 
{ 

{ /* ./Module/module.scm 324 */
bool_t BgL_test1630z00_320;
{ /* ./Module/module.scm 324 */
bool_t BgL_test1646z00_328;
BgL_test1646z00_328 = 
STRINGP(BgL_destz00_318); 
if(BgL_test1646z00_328)
{ /* ./Module/module.scm 324 */
char * BgL_namez00_542;
BgL_namez00_542 = 
BSTRING_TO_STRING(BgL_destz00_318); 
BgL_test1630z00_320 = 
fexists(BgL_namez00_542); }  else 
{ /* ./Module/module.scm 324 */
BgL_test1630z00_320 = ((bool_t)0); } } 
if(BgL_test1630z00_320)
{ /* ./Module/module.scm 327 */
obj_t BgL_iportz00_321;
BgL_iportz00_321 = 
BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00(BgL_destz00_318, BNIL); 
{ /* ./Module/module.scm 328 */
bool_t BgL_test1631z00_322;
BgL_test1631z00_322 = 
INPUT_PORTP(BgL_iportz00_321); 
if(BgL_test1631z00_322)
{ /* ./Module/module.scm 332 */
obj_t BgL_csz00_323;
{ /* ./Module/module.scm 332 */
obj_t BgL_list1638z00_325;
BgL_list1638z00_325 = 
MAKE_PAIR(BgL_iportz00_321, BNIL); 
BgL_csz00_323 = 
BGl_readz00zz__readerz00(BgL_list1638z00_325); } 
close_input_port(BgL_iportz00_321); 
{ /* ./Module/module.scm 334 */
bool_t BgL_test1633z00_324;
{ /* ./Module/module.scm 334 */
long BgL_auxz00_1143;long BgL_auxz00_1141;
BgL_auxz00_1143 = 
(long)CINT(BgL_checksumz00_317); 
BgL_auxz00_1141 = 
(long)CINT(BgL_csz00_323); 
BgL_test1633z00_324 = 
(BgL_auxz00_1141==BgL_auxz00_1143); } 
if(BgL_test1633z00_324)
{ /* ./Module/module.scm 334 */BFALSE; }  else 
{ /* ./Module/module.scm 334 */
{ /* ./Module/module.scm 336 */
char * BgL_stringz00_547;
BgL_stringz00_547 = 
BSTRING_TO_STRING(BgL_destz00_318); 
unlink(BgL_stringz00_547); } 
BgL_zc3anonymousza31649ze3z83_329:
{ /* ./Module/module.scm 313 */
bool_t BgL_test1650z00_330;
BgL_test1650z00_330 = 
STRINGP(BgL_destz00_318); 
if(BgL_test1650z00_330)
{ /* ./Module/module.scm 314 */
obj_t BgL_oportz00_331;
BgL_oportz00_331 = 
open_output_file(BgL_destz00_318); 
{ /* ./Module/module.scm 315 */
bool_t BgL_test1651z00_332;
BgL_test1651z00_332 = 
OUTPUT_PORTP(BgL_oportz00_331); 
if(BgL_test1651z00_332)
{ /* ./Module/module.scm 315 */
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_checksumz00_317, BgL_oportz00_331); 
WRITE_CHAR(((unsigned char)'\n'), BgL_oportz00_331); 
close_output_port(BgL_oportz00_331); }  else 
{ /* ./Module/module.scm 315 */
FAILURE(BGl_string1992z00zzmodule_modulez00,BGl_string1993z00zzmodule_modulez00,BgL_destz00_318);} } }  else 
{ /* ./Module/module.scm 322 */
obj_t BgL_port1052z00_334;
BgL_port1052z00_334 = 
BGL_CURRENT_OUTPUT_PORT(); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_checksumz00_317, BgL_port1052z00_334); 
WRITE_CHAR(((unsigned char)'\n'), BgL_port1052z00_334); } } } } }  else 
{ /* ./Module/module.scm 328 */
BGl_userzd2errorzd2zztools_errorz00(BGl_string1992z00zzmodule_modulez00, BGl_string1994z00zzmodule_modulez00, BgL_destz00_318, BNIL); } } }  else 
{ /* ./Module/module.scm 324 */
goto BgL_zc3anonymousza31649ze3z83_329;} } } } 
{ /* ./Module/module.scm 340 */
bool_t BgL_test1688z00_347;
{ /* ./Module/module.scm 340 */
long BgL_n1z00_557;
BgL_n1z00_557 = 
(long)CINT(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00); 
BgL_test1688z00_347 = 
(BgL_n1z00_557>((long)0)); } 
if(BgL_test1688z00_347)
{ /* ./Module/module.scm 340 */
{ /* ./Module/module.scm 340 */
obj_t BgL_port1053z00_348;
BgL_port1053z00_348 = 
BGL_CURRENT_ERROR_PORT(); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00, BgL_port1053z00_348); 
display_string(BGl_string1979z00zzmodule_modulez00, BgL_port1053z00_348); 
{ /* ./Module/module.scm 340 */
char * BgL_arg1692z00_349;
{ /* ./Module/module.scm 340 */
bool_t BgL_test1694z00_350;
{ /* ./Module/module.scm 340 */
bool_t BgL_test1695z00_351;
{ /* ./Module/module.scm 340 */
bool_t BgL_res1821z00_565;
{ /* ./Module/module.scm 340 */
obj_t BgL_objz00_559;
BgL_objz00_559 = BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00; 
{ /* ./Module/module.scm 340 */
bool_t BgL_test1396z00_560;
BgL_test1396z00_560 = 
INTEGERP(BgL_objz00_559); 
if(BgL_test1396z00_560)
{ /* ./Module/module.scm 340 */
BgL_res1821z00_565 = ((bool_t)1); }  else 
{ /* ./Module/module.scm 340 */
bool_t BgL_test1397z00_561;
BgL_test1397z00_561 = 
REALP(BgL_objz00_559); 
if(BgL_test1397z00_561)
{ /* ./Module/module.scm 340 */
double BgL_arg1399z00_562;
BgL_arg1399z00_562 = 
BGl_roundflz00zz__r4_numbers_6_5_flonumz00(
REAL_TO_DOUBLE(BgL_objz00_559)); 
{ /* ./Module/module.scm 340 */
double BgL_auxz00_1174;
BgL_auxz00_1174 = 
REAL_TO_DOUBLE(BgL_objz00_559); 
BgL_res1821z00_565 = 
(BgL_auxz00_1174==BgL_arg1399z00_562); } }  else 
{ /* ./Module/module.scm 340 */
BgL_res1821z00_565 = ((bool_t)0); } } } } 
BgL_test1695z00_351 = BgL_res1821z00_565; } 
if(BgL_test1695z00_351)
{ /* ./Module/module.scm 340 */
BgL_test1694z00_350 = 
BGl_2ze3ze3zz__r4_numbers_6_5z00(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00, 
BINT(((long)1))); }  else 
{ /* ./Module/module.scm 340 */
BgL_test1694z00_350 = ((bool_t)0); } } 
if(BgL_test1694z00_350)
{ /* ./Module/module.scm 340 */
BgL_arg1692z00_349 = "s"; }  else 
{ /* ./Module/module.scm 340 */
BgL_arg1692z00_349 = ""; } } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(
string_to_bstring(BgL_arg1692z00_349), BgL_port1053z00_348); } 
display_string(BGl_string1980z00zzmodule_modulez00, BgL_port1053z00_348); 
WRITE_CHAR(((unsigned char)'\n'), BgL_port1053z00_348); } 
{ /* ./Module/module.scm 340 */
obj_t BgL_list1702z00_352;
{ /* ./Module/module.scm 340 */
obj_t BgL_auxz00_1185;
BgL_auxz00_1185 = 
BINT(((long)-1)); 
BgL_list1702z00_352 = 
MAKE_PAIR(BgL_auxz00_1185, BNIL); } 
return 
BGl_exitz00zz__errorz00(BgL_list1702z00_352);} }  else 
{ 
obj_t BgL_hooksz00_353;obj_t BgL_hnamesz00_354;
{ /* ./Module/module.scm 340 */
obj_t BgL_arg1705z00_356;
BgL_arg1705z00_356 = BNIL; 
BgL_hooksz00_353 = BgL_arg1705z00_356; 
BgL_hnamesz00_354 = BNIL; 
BgL_loopz00_355:
{ /* ./Module/module.scm 340 */
bool_t BgL_test1711z00_359;
BgL_test1711z00_359 = 
NULLP(BgL_hooksz00_353); 
if(BgL_test1711z00_359)
{ /* ./Module/module.scm 340 */
return BTRUE;}  else 
{ /* ./Module/module.scm 340 */
bool_t BgL_test1713z00_360;
{ /* ./Module/module.scm 340 */
obj_t BgL_fun1727z00_365;
BgL_fun1727z00_365 = 
CAR(BgL_hooksz00_353); 
{ /* ./Module/module.scm 340 */
obj_t BgL_auxz00_1192;
BgL_auxz00_1192 = 
PROCEDURE_ENTRY(BgL_fun1727z00_365)(BgL_fun1727z00_365, BEOA); 
BgL_test1713z00_360 = 
CBOOL(BgL_auxz00_1192); } } 
if(BgL_test1713z00_360)
{ /* ./Module/module.scm 340 */
{ /* ./Module/module.scm 340 */
obj_t BgL_arg1715z00_361;obj_t BgL_arg1716z00_362;
BgL_arg1715z00_361 = 
CDR(BgL_hooksz00_353); 
BgL_arg1716z00_362 = 
CDR(BgL_hnamesz00_354); 
{ 
obj_t BgL_hnamesz00_1200;obj_t BgL_hooksz00_1199;
BgL_hooksz00_1199 = BgL_arg1715z00_361; 
BgL_hnamesz00_1200 = BgL_arg1716z00_362; 
BgL_hnamesz00_354 = BgL_hnamesz00_1200; 
BgL_hooksz00_353 = BgL_hooksz00_1199; 
goto BgL_loopz00_355;} } }  else 
{ /* ./Module/module.scm 340 */
{ /* ./Module/module.scm 340 */
obj_t BgL_arg1722z00_364;
BgL_arg1722z00_364 = 
CAR(BgL_hnamesz00_354); 
return 
BGl_internalzd2errorzd2zztools_errorz00(BGl_za2currentzd2passza2zd2zzengine_passz00, BGl_string1981z00zzmodule_modulez00, BgL_arg1722z00_364);} } } } } } } } 
}



/* _module-checksum-object */
obj_t BGl__modulezd2checksumzd2objectz00zzmodule_modulez00(obj_t BgL_envz00_654)
{ AN_OBJECT;
{ /* ./Module/module.scm 301 */
return 
BGl_modulezd2checksumzd2objectz00zzmodule_modulez00();} 
}



/* object-init */
obj_t BGl_objectzd2initzd2zzmodule_modulez00()
{ AN_OBJECT;
{ /* ./Module/module.scm 15 */
{ /* ./Module/module.scm 40 */
obj_t BgL_arg1732z00_366;obj_t BgL_arg1733z00_367;obj_t BgL_arg1737z00_371;
BgL_arg1732z00_366 = 
CNST_TABLE_REF(((long)9)); 
BgL_arg1733z00_367 = BGl_objectz00zz__objectz00; 
{ /* ./Module/module.scm 40 */
obj_t BgL_v1054z00_372;
{ 
int BgL_auxz00_1205;
BgL_auxz00_1205 = 
(int)(((long)0)); 
BgL_v1054z00_372 = 
create_vector(BgL_auxz00_1205); } 
BgL_arg1737z00_371 = BgL_v1054z00_372; } 
BGl_ccompz00zzmodule_modulez00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg1732z00_366, BgL_arg1733z00_367, BFALSE, BGl_allocatezd2ccompzd2envz00zzmodule_modulez00, ((long)25620), BNIL, BFALSE, BgL_arg1737z00_371); } 
return BUNSPEC;} 
}



/* ccomp? */
BGL_EXPORTED_DEF bool_t BGl_ccompzf3zf3zzmodule_modulez00(obj_t BgL_obj1042z00_33)
{ AN_OBJECT;
{ /* ./Module/module.scm 40 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1042z00_33, BGl_ccompz00zzmodule_modulez00);} 
}



/* _ccomp? */
obj_t BGl__ccompzf3zf3zzmodule_modulez00(obj_t BgL_envz00_656, obj_t BgL_obj1042z00_657)
{ AN_OBJECT;
{ /* ./Module/module.scm 40 */
{ /* ./Module/module.scm 40 */
bool_t BgL_auxz00_1210;
BgL_auxz00_1210 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1042z00_657, BGl_ccompz00zzmodule_modulez00); 
return 
BBOOL(BgL_auxz00_1210);} } 
}



/* make-ccomp */
BGL_EXPORTED_DEF BgL_ccompz00_bglt BGl_makezd2ccompzd2zzmodule_modulez00(obj_t BgL_id1007z00_37, obj_t BgL_producer1008z00_38, obj_t BgL_consumer1009z00_39, obj_t BgL_finaliza7er1010za7_40)
{ AN_OBJECT;
{ /* ./Module/module.scm 40 */
{ /* ./Module/module.scm 40 */
BgL_ccompz00_bglt BgL_new1011z00_574;
{ /* ./Module/module.scm 40 */
BgL_ccompz00_bglt BgL_res1823z00_580;
{ /* ./Module/module.scm 40 */
BgL_ccompz00_bglt BgL_new1023z00_575;
BgL_new1023z00_575 = 
((BgL_ccompz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_ccompz00_bgl) ))); 
{ /* ./Module/module.scm 40 */
long BgL_arg1744z00_576;
BgL_arg1744z00_576 = 
BGl_classzd2numzd2zz__objectz00(BGl_ccompz00zzmodule_modulez00); 
{ /* ./Module/module.scm 40 */
BgL_objectz00_bglt BgL_objz00_577;
BgL_objz00_577 = 
(BgL_objectz00_bglt)(BgL_new1023z00_575); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_577, BgL_arg1744z00_576); } } 
{ /* ./Module/module.scm 40 */
BgL_objectz00_bglt BgL_auxz00_1217;
BgL_auxz00_1217 = 
(BgL_objectz00_bglt)(BgL_new1023z00_575); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_1217, BFALSE); } 
{ /* ./Module/module.scm 40 */
obj_t BgL_objz00_579;
BgL_objz00_579 = 
(obj_t)(BgL_new1023z00_575); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_579); BUNSPEC; } 
BgL_res1823z00_580 = BgL_new1023z00_575; } 
BgL_new1011z00_574 = BgL_res1823z00_580; } 
{ /* ./Module/module.scm 40 */
BgL_ccompz00_bglt BgL_res1824z00_590;
{ /* ./Module/module.scm 40 */
BgL_ccompz00_bglt BgL_new1017z00_581;
BgL_new1017z00_581 = BgL_new1011z00_574; 
{ /* ./Module/module.scm 40 */
obj_t BgL_id1013z00_586;obj_t BgL_producer1014z00_587;obj_t BgL_consumer1015z00_588;obj_t BgL_finaliza7er1016za7_589;
BgL_id1013z00_586 = BgL_id1007z00_37; 
BgL_producer1014z00_587 = BgL_producer1008z00_38; 
BgL_consumer1015z00_588 = BgL_consumer1009z00_39; 
BgL_finaliza7er1016za7_589 = BgL_finaliza7er1010za7_40; 
((((BgL_ccompz00_bglt)CREF(BgL_new1017z00_581))->BgL_idz00) = ((obj_t)BgL_id1013z00_586), BUNSPEC); 
((((BgL_ccompz00_bglt)CREF(BgL_new1017z00_581))->BgL_producerz00) = ((obj_t)BgL_producer1014z00_587), BUNSPEC); 
((((BgL_ccompz00_bglt)CREF(BgL_new1017z00_581))->BgL_consumerz00) = ((obj_t)BgL_consumer1015z00_588), BUNSPEC); 
((((BgL_ccompz00_bglt)CREF(BgL_new1017z00_581))->BgL_finaliza7erza7) = ((obj_t)BgL_finaliza7er1016za7_589), BUNSPEC); 
BgL_res1824z00_590 = BgL_new1017z00_581; } } BgL_res1824z00_590; } 
return BgL_new1011z00_574;} } 
}



/* _make-ccomp */
obj_t BGl__makezd2ccompzd2zzmodule_modulez00(obj_t BgL_envz00_658, obj_t BgL_id1007z00_659, obj_t BgL_producer1008z00_660, obj_t BgL_consumer1009z00_661, obj_t BgL_finaliza7er1010za7_662)
{ AN_OBJECT;
{ /* ./Module/module.scm 40 */
{ /* ./Module/module.scm 40 */
BgL_ccompz00_bglt BgL_auxz00_1226;
BgL_auxz00_1226 = 
BGl_makezd2ccompzd2zzmodule_modulez00(BgL_id1007z00_659, BgL_producer1008z00_660, BgL_consumer1009z00_661, BgL_finaliza7er1010za7_662); 
return 
(obj_t)(BgL_auxz00_1226);} } 
}



/* fill-ccomp! */
BGL_EXPORTED_DEF BgL_ccompz00_bglt BGl_fillzd2ccompz12zc0zzmodule_modulez00(BgL_ccompz00_bglt BgL_new1017z00_41, obj_t BgL_id1013z00_42, obj_t BgL_producer1014z00_43, obj_t BgL_consumer1015z00_44, obj_t BgL_finaliza7er1016za7_45)
{ AN_OBJECT;
{ /* ./Module/module.scm 40 */
{ /* ./Module/module.scm 40 */
obj_t BgL_id1013z00_692;obj_t BgL_producer1014z00_693;obj_t BgL_consumer1015z00_694;obj_t BgL_finaliza7er1016za7_695;
BgL_id1013z00_692 = BgL_id1013z00_42; 
BgL_producer1014z00_693 = BgL_producer1014z00_43; 
BgL_consumer1015z00_694 = BgL_consumer1015z00_44; 
BgL_finaliza7er1016za7_695 = BgL_finaliza7er1016za7_45; 
((((BgL_ccompz00_bglt)CREF(BgL_new1017z00_41))->BgL_idz00) = ((obj_t)BgL_id1013z00_692), BUNSPEC); 
((((BgL_ccompz00_bglt)CREF(BgL_new1017z00_41))->BgL_producerz00) = ((obj_t)BgL_producer1014z00_693), BUNSPEC); 
((((BgL_ccompz00_bglt)CREF(BgL_new1017z00_41))->BgL_consumerz00) = ((obj_t)BgL_consumer1015z00_694), BUNSPEC); 
((((BgL_ccompz00_bglt)CREF(BgL_new1017z00_41))->BgL_finaliza7erza7) = ((obj_t)BgL_finaliza7er1016za7_695), BUNSPEC); 
return BgL_new1017z00_41;} } 
}



/* _fill-ccomp! */
obj_t BGl__fillzd2ccompz12zc0zzmodule_modulez00(obj_t BgL_envz00_663, obj_t BgL_new1017z00_664, obj_t BgL_id1013z00_665, obj_t BgL_producer1014z00_666, obj_t BgL_consumer1015z00_667, obj_t BgL_finaliza7er1016za7_668)
{ AN_OBJECT;
{ /* ./Module/module.scm 40 */
{ /* ./Module/module.scm 40 */
BgL_ccompz00_bglt BgL_auxz00_1233;
{ /* ./Module/module.scm 40 */
BgL_ccompz00_bglt BgL_res2014z00_705;
{ /* ./Module/module.scm 40 */
BgL_ccompz00_bglt BgL_new1017z00_696;
BgL_new1017z00_696 = 
(BgL_ccompz00_bglt)(BgL_new1017z00_664); 
{ /* ./Module/module.scm 40 */
obj_t BgL_id1013z00_701;obj_t BgL_producer1014z00_702;obj_t BgL_consumer1015z00_703;obj_t BgL_finaliza7er1016za7_704;
BgL_id1013z00_701 = BgL_id1013z00_665; 
BgL_producer1014z00_702 = BgL_producer1014z00_666; 
BgL_consumer1015z00_703 = BgL_consumer1015z00_667; 
BgL_finaliza7er1016za7_704 = BgL_finaliza7er1016za7_668; 
((((BgL_ccompz00_bglt)CREF(BgL_new1017z00_696))->BgL_idz00) = ((obj_t)BgL_id1013z00_701), BUNSPEC); 
((((BgL_ccompz00_bglt)CREF(BgL_new1017z00_696))->BgL_producerz00) = ((obj_t)BgL_producer1014z00_702), BUNSPEC); 
((((BgL_ccompz00_bglt)CREF(BgL_new1017z00_696))->BgL_consumerz00) = ((obj_t)BgL_consumer1015z00_703), BUNSPEC); 
((((BgL_ccompz00_bglt)CREF(BgL_new1017z00_696))->BgL_finaliza7erza7) = ((obj_t)BgL_finaliza7er1016za7_704), BUNSPEC); 
BgL_res2014z00_705 = BgL_new1017z00_696; } } 
BgL_auxz00_1233 = BgL_res2014z00_705; } 
return 
(obj_t)(BgL_auxz00_1233);} } 
}



/* allocate-ccomp */
BGL_EXPORTED_DEF BgL_ccompz00_bglt BGl_allocatezd2ccompzd2zzmodule_modulez00()
{ AN_OBJECT;
{ /* ./Module/module.scm 40 */
{ /* ./Module/module.scm 40 */
BgL_ccompz00_bglt BgL_new1023z00_706;
BgL_new1023z00_706 = 
((BgL_ccompz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_ccompz00_bgl) ))); 
{ /* ./Module/module.scm 40 */
long BgL_arg1744z00_707;
BgL_arg1744z00_707 = 
BGl_classzd2numzd2zz__objectz00(BGl_ccompz00zzmodule_modulez00); 
{ /* ./Module/module.scm 40 */
BgL_objectz00_bglt BgL_objz00_708;
BgL_objz00_708 = 
(BgL_objectz00_bglt)(BgL_new1023z00_706); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_708, BgL_arg1744z00_707); } } 
{ /* ./Module/module.scm 40 */
BgL_objectz00_bglt BgL_auxz00_1244;
BgL_auxz00_1244 = 
(BgL_objectz00_bglt)(BgL_new1023z00_706); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_1244, BFALSE); } 
{ /* ./Module/module.scm 40 */
obj_t BgL_objz00_709;
BgL_objz00_709 = 
(obj_t)(BgL_new1023z00_706); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_709); BUNSPEC; } 
return BgL_new1023z00_706;} } 
}



/* _allocate-ccomp */
obj_t BGl__allocatezd2ccompzd2zzmodule_modulez00(obj_t BgL_envz00_655)
{ AN_OBJECT;
{ /* ./Module/module.scm 40 */
{ /* ./Module/module.scm 40 */
BgL_ccompz00_bglt BgL_auxz00_1249;
{ /* ./Module/module.scm 40 */
BgL_ccompz00_bglt BgL_res2015z00_714;
{ /* ./Module/module.scm 40 */
BgL_ccompz00_bglt BgL_new1023z00_710;
BgL_new1023z00_710 = 
((BgL_ccompz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_ccompz00_bgl) ))); 
{ /* ./Module/module.scm 40 */
long BgL_arg1744z00_711;
BgL_arg1744z00_711 = 
BGl_classzd2numzd2zz__objectz00(BGl_ccompz00zzmodule_modulez00); 
{ /* ./Module/module.scm 40 */
BgL_objectz00_bglt BgL_objz00_712;
BgL_objz00_712 = 
(BgL_objectz00_bglt)(BgL_new1023z00_710); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_712, BgL_arg1744z00_711); } } 
{ /* ./Module/module.scm 40 */
BgL_objectz00_bglt BgL_auxz00_1254;
BgL_auxz00_1254 = 
(BgL_objectz00_bglt)(BgL_new1023z00_710); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_1254, BFALSE); } 
{ /* ./Module/module.scm 40 */
obj_t BgL_objz00_713;
BgL_objz00_713 = 
(obj_t)(BgL_new1023z00_710); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_713); BUNSPEC; } 
BgL_res2015z00_714 = BgL_new1023z00_710; } 
BgL_auxz00_1249 = BgL_res2015z00_714; } 
return 
(obj_t)(BgL_auxz00_1249);} } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzmodule_modulez00()
{ AN_OBJECT;
{ /* ./Module/module.scm 15 */
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_ccompz00zzmodule_modulez00, BGl_proc1995z00zzmodule_modulez00); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_ccompz00zzmodule_modulez00, BGl_proc1996z00zzmodule_modulez00);} 
}



/* struct+object->object-ccomp1059 */
obj_t BGl_structzb2objectzd2ze3objectzd2ccomp1059z51zzmodule_modulez00(obj_t BgL_envz00_671, obj_t BgL_oz00_672, obj_t BgL_sz00_673)
{ AN_OBJECT;
{ /* ./Module/module.scm 40 */
{ 
BgL_ccompz00_bglt BgL_oz00_394;obj_t BgL_sz00_395;
{ /* ./Module/module.scm 40 */
BgL_ccompz00_bglt BgL_auxz00_1262;
BgL_oz00_394 = 
(BgL_ccompz00_bglt)(BgL_oz00_672); 
BgL_sz00_395 = BgL_sz00_673; 
{ /* ./Module/module.scm 40 */
obj_t BgL_arg1783z00_398;
{ /* ./Module/module.scm 40 */
int BgL_auxz00_1263;
BgL_auxz00_1263 = 
(int)(((long)0)); 
BgL_arg1783z00_398 = 
STRUCT_REF(BgL_sz00_395, BgL_auxz00_1263); } 
{ /* ./Module/module.scm 40 */
BgL_objectz00_bglt BgL_auxz00_1266;
BgL_auxz00_1266 = 
(BgL_objectz00_bglt)(BgL_oz00_394); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_1266, BgL_arg1783z00_398); } } 
{ /* ./Module/module.scm 40 */
obj_t BgL_v1028z00_399;
{ /* ./Module/module.scm 40 */
int BgL_auxz00_1269;
BgL_auxz00_1269 = 
(int)(((long)1)); 
BgL_v1028z00_399 = 
STRUCT_REF(BgL_sz00_395, BgL_auxz00_1269); } 
((((BgL_ccompz00_bglt)CREF(BgL_oz00_394))->BgL_idz00) = ((obj_t)BgL_v1028z00_399), BUNSPEC); } 
{ /* ./Module/module.scm 40 */
obj_t BgL_v1032z00_400;
{ /* ./Module/module.scm 40 */
int BgL_auxz00_1273;
BgL_auxz00_1273 = 
(int)(((long)2)); 
BgL_v1032z00_400 = 
STRUCT_REF(BgL_sz00_395, BgL_auxz00_1273); } 
((((BgL_ccompz00_bglt)CREF(BgL_oz00_394))->BgL_producerz00) = ((obj_t)BgL_v1032z00_400), BUNSPEC); } 
{ /* ./Module/module.scm 40 */
obj_t BgL_v1036z00_401;
{ /* ./Module/module.scm 40 */
int BgL_auxz00_1277;
BgL_auxz00_1277 = 
(int)(((long)3)); 
BgL_v1036z00_401 = 
STRUCT_REF(BgL_sz00_395, BgL_auxz00_1277); } 
((((BgL_ccompz00_bglt)CREF(BgL_oz00_394))->BgL_consumerz00) = ((obj_t)BgL_v1036z00_401), BUNSPEC); } 
{ /* ./Module/module.scm 40 */
obj_t BgL_v1040z00_402;
{ /* ./Module/module.scm 40 */
int BgL_auxz00_1281;
BgL_auxz00_1281 = 
(int)(((long)4)); 
BgL_v1040z00_402 = 
STRUCT_REF(BgL_sz00_395, BgL_auxz00_1281); } 
((((BgL_ccompz00_bglt)CREF(BgL_oz00_394))->BgL_finaliza7erza7) = ((obj_t)BgL_v1040z00_402), BUNSPEC); } 
BgL_auxz00_1262 = BgL_oz00_394; 
return 
(obj_t)(BgL_auxz00_1262);} } } 
}



/* object->struct-ccomp1057 */
obj_t BGl_objectzd2ze3structzd2ccomp1057ze3zzmodule_modulez00(obj_t BgL_envz00_674, obj_t BgL_obj1024z00_675)
{ AN_OBJECT;
{ /* ./Module/module.scm 40 */
{ 
BgL_ccompz00_bglt BgL_obj1024z00_380;
BgL_obj1024z00_380 = 
(BgL_ccompz00_bglt)(BgL_obj1024z00_675); 
{ /* ./Module/module.scm 40 */
obj_t BgL_res1025z00_383;
{ /* ./Module/module.scm 40 */
obj_t BgL_keyz00_600;int BgL_lenz00_601;
BgL_keyz00_600 = 
CNST_TABLE_REF(((long)9)); 
BgL_lenz00_601 = 
(int)(((long)5)); 
BgL_res1025z00_383 = 
make_struct(BgL_keyz00_600, BgL_lenz00_601, BUNSPEC); } 
{ /* ./Module/module.scm 40 */
int BgL_kz00_604;
BgL_kz00_604 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res1025z00_383, BgL_kz00_604, BFALSE); } 
{ /* ./Module/module.scm 40 */
obj_t BgL_arg1755z00_385;
BgL_arg1755z00_385 = 
(((BgL_ccompz00_bglt)CREF(BgL_obj1024z00_380))->BgL_idz00); 
{ /* ./Module/module.scm 40 */
int BgL_kz00_608;
BgL_kz00_608 = 
(int)(((long)1)); 
STRUCT_SET(BgL_res1025z00_383, BgL_kz00_608, BgL_arg1755z00_385); } } 
{ /* ./Module/module.scm 40 */
obj_t BgL_arg1761z00_387;
BgL_arg1761z00_387 = 
(((BgL_ccompz00_bglt)CREF(BgL_obj1024z00_380))->BgL_producerz00); 
{ /* ./Module/module.scm 40 */
int BgL_kz00_612;
BgL_kz00_612 = 
(int)(((long)2)); 
STRUCT_SET(BgL_res1025z00_383, BgL_kz00_612, BgL_arg1761z00_387); } } 
{ /* ./Module/module.scm 40 */
obj_t BgL_arg1767z00_389;
BgL_arg1767z00_389 = 
(((BgL_ccompz00_bglt)CREF(BgL_obj1024z00_380))->BgL_consumerz00); 
{ /* ./Module/module.scm 40 */
int BgL_kz00_616;
BgL_kz00_616 = 
(int)(((long)3)); 
STRUCT_SET(BgL_res1025z00_383, BgL_kz00_616, BgL_arg1767z00_389); } } 
{ /* ./Module/module.scm 40 */
obj_t BgL_arg1772z00_391;
BgL_arg1772z00_391 = 
(((BgL_ccompz00_bglt)CREF(BgL_obj1024z00_380))->BgL_finaliza7erza7); 
{ /* ./Module/module.scm 40 */
int BgL_kz00_620;
BgL_kz00_620 = 
(int)(((long)4)); 
STRUCT_SET(BgL_res1025z00_383, BgL_kz00_620, BgL_arg1772z00_391); } } 
return BgL_res1025z00_383;} } } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzmodule_modulez00()
{ AN_OBJECT;
{ /* ./Module/module.scm 15 */
BGl_modulezd2initializa7ationz75zztools_speekz00(((long)23537), "module_module"); 
BGl_modulezd2initializa7ationz75zztools_errorz00(((long)25566), "module_module"); 
BGl_modulezd2initializa7ationz75zzengine_passz00(((long)10268), "module_module"); 
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long)14260), "module_module"); 
BGl_modulezd2initializa7ationz75zzheap_restorez00(((long)18765), "module_module"); 
BGl_modulezd2initializa7ationz75zzmodule_mainz00(((long)56492), "module_module"); 
BGl_modulezd2initializa7ationz75zzmodule_statexpz00(((long)3188), "module_module"); 
BGl_modulezd2initializa7ationz75zzmodule_impusez00(((long)12782), "module_module"); 
BGl_modulezd2initializa7ationz75zzmodule_includez00(((long)1783), "module_module"); 
BGl_modulezd2initializa7ationz75zzmodule_withz00(((long)38925), "module_module"); 
BGl_modulezd2initializa7ationz75zzmodule_typez00(((long)45778), "module_module"); 
BGl_modulezd2initializa7ationz75zzmodule_foreignz00(((long)23376), "module_module"); 
BGl_modulezd2initializa7ationz75zzmodule_javaz00(((long)4304), "module_module"); 
BGl_modulezd2initializa7ationz75zzmodule_evalz00(((long)12722), "module_module"); 
BGl_modulezd2initializa7ationz75zzmodule_loadz00(((long)28236), "module_module"); 
BGl_modulezd2initializa7ationz75zzmodule_pragmaz00(((long)28507), "module_module"); 
BGl_modulezd2initializa7ationz75zzmodule_checksumz00(((long)54092), "module_module"); 
BGl_modulezd2initializa7ationz75zzmodule_optionz00(((long)44948), "module_module"); 
BGl_modulezd2initializa7ationz75zzmodule_alibraryz00(((long)22575), "module_module"); 
return 
BGl_modulezd2initializa7ationz75zzast_envz00(((long)62031), "module_module");} 
}

