/*===========================================================================*/
/*   (Module/include.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/include.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__resetzd2includezd2consumedzd2codez12zc0zzmodule_includez00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzmodule_includez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzmodule_modulez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzread_includez00(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 *);
static obj_t BGl__includezd2consumerzd2zzmodule_includez00(obj_t, obj_t, obj_t);
static obj_t BGl__includezd2producerzd2zzmodule_includez00(obj_t, obj_t);
static obj_t BGl_methodzd2initzd2zzmodule_includez00();
extern obj_t BGl_userzd2errorzd2zztools_errorz00(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_readzd2includezd2zzread_includez00(obj_t);
BGL_IMPORT obj_t open_input_string(obj_t);
extern obj_t BGl_producezd2modulezd2clausez12z12zzmodule_modulez00(obj_t);
static obj_t BGl__getzd2includezd2consumedzd2directivezd2zzmodule_includez00(obj_t);
static obj_t BGl__getzd2includezd2consumedzd2codezd2zzmodule_includez00(obj_t);
extern BgL_ccompz00_bglt BGl_makezd2ccompzd2zzmodule_modulez00(obj_t, obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
static obj_t BGl_za2consumedzd2directiveza2zd2zzmodule_includez00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_getzd2toplevelzd2unitzd2weightzd2zzmodule_includez00();
extern obj_t BGl_consumezd2modulezd2clausez12z12zzmodule_modulez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_getzd2toplevelzd2unitz00zzmodule_includez00();
BGL_EXPORTED_DECL obj_t BGl_resetzd2includezd2consumedzd2codez12zc0zzmodule_includez00();
BGL_EXPORTED_DECL obj_t BGl_makezd2includezd2compilerz00zzmodule_includez00();
BGL_EXPORTED_DECL obj_t BGl_getzd2includezd2consumedzd2directivezd2zzmodule_includez00();
BGL_IMPORT obj_t create_struct(obj_t, int);
static obj_t BGl_includezd2finaliza7erz75zzmodule_includez00();
BGL_IMPORT obj_t BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl__getzd2toplevelzd2unitzd2weightzd2zzmodule_includez00(obj_t);
static obj_t BGl__makezd2includezd2compilerz00zzmodule_includez00(obj_t);
static obj_t BGl_cnstzd2initzd2zzmodule_includez00();
BGL_EXPORTED_DECL obj_t BGl_getzd2includezd2consumedzd2codezd2zzmodule_includez00();
BGL_IMPORT obj_t bgl_append2(obj_t, obj_t);
static obj_t BGl_za2producedzd2codeza2zd2zzmodule_includez00 = BUNSPEC;
static obj_t BGl_importedzd2moduleszd2initz00zzmodule_includez00();
static obj_t BGl_za2toplevelzd2unitza2zd2zzmodule_includez00 = BUNSPEC;
static obj_t BGl_requirezd2initializa7ationz75zzmodule_includez00 = BUNSPEC;
static obj_t BGl__resetzd2includezd2consumedzd2directivez12zc0zzmodule_includez00(obj_t);
static obj_t BGl__includezd2finaliza7erz75zzmodule_includez00(obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzmodule_includez00();
static obj_t BGl_includezd2producerzd2zzmodule_includez00(obj_t);
static obj_t BGl_includezd2consumerzd2zzmodule_includez00(obj_t, obj_t);
static obj_t BGl__getzd2toplevelzd2unitz00zzmodule_includez00(obj_t);
static obj_t BGl_za2consumedzd2codeza2zd2zzmodule_includez00 = BUNSPEC;
static obj_t BGl_toplevelzd2initzd2zzmodule_includez00();
BGL_EXPORTED_DECL obj_t BGl_resetzd2includezd2consumedzd2directivez12zc0zzmodule_includez00();
static obj_t __cnst[ 3 ] ;


DEFINE_EXPORT_PROCEDURE( BGl_resetzd2includezd2consumedzd2directivez12zd2envz12zzmodule_includez00, BgL_bgl__resetza7d2includeza7d2consumedza7d2directiveza712za7c0za7za7module_includeza7001239z00, BGl__resetzd2includezd2consumedzd2directivez12zc0zzmodule_includez00, 0L, 0 );
DEFINE_STATIC_PROCEDURE( BGl_includezd2finaliza7erzd2envza7zzmodule_includez00, BgL_bgl__includeza7d2finaliza7a7erza775za7za7module_includeza7001240z00, BGl__includezd2finaliza7erz75zzmodule_includez00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_getzd2includezd2consumedzd2directivezd2envz00zzmodule_includez00, BgL_bgl__getza7d2includeza7d2consumedza7d2directiveza7d2za7za7module_includeza7001241za7, BGl__getzd2includezd2consumedzd2directivezd2zzmodule_includez00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_getzd2toplevelzd2unitzd2envzd2zzmodule_includez00, BgL_bgl__getza7d2toplevelza7d2unitza700za7za7module_includeza7001242z00, BGl__getzd2toplevelzd2unitz00zzmodule_includez00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_getzd2toplevelzd2unitzd2weightzd2envz00zzmodule_includez00, BgL_bgl__getza7d2toplevelza7d2unitza7d2weightza7d2za7za7module_includeza7001243za7, BGl__getzd2toplevelzd2unitzd2weightzd2zzmodule_includez00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2includezd2compilerzd2envzd2zzmodule_includez00, BgL_bgl__makeza7d2includeza7d2compilerza700za7za7module_includeza7001244z00, BGl__makezd2includezd2compilerz00zzmodule_includez00, 0L, 0 );
DEFINE_STATIC_PROCEDURE( BGl_includezd2consumerzd2envz00zzmodule_includez00, BgL_bgl__includeza7d2consumerza7d2za7za7module_includeza7001245za7, BGl__includezd2consumerzd2zzmodule_includez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_getzd2includezd2consumedzd2codezd2envz00zzmodule_includez00, BgL_bgl__getza7d2includeza7d2consumedza7d2codeza7d2za7za7module_includeza7001246za7, BGl__getzd2includezd2consumedzd2codezd2zzmodule_includez00, 0L, 0 );
DEFINE_STRING( BGl_string1213z00zzmodule_includez00, BgL_bgl_string1213za700za7za7module_includeza7001247z00, "unit toplevel include ", 22 );
DEFINE_STRING( BGl_string1212z00zzmodule_includez00, BgL_bgl_string1212za700za7za7module_includeza7001248z00, "Illegal `include' clause", 24 );
DEFINE_STRING( BGl_string1211z00zzmodule_includez00, BgL_bgl_string1211za700za7za7module_includeza7001249z00, "Parse error", 11 );
DEFINE_EXPORT_PROCEDURE( BGl_resetzd2includezd2consumedzd2codez12zd2envz12zzmodule_includez00, BgL_bgl__resetza7d2includeza7d2consumedza7d2codeza712za7c0za7za7module_includeza7001250z00, BGl__resetzd2includezd2consumedzd2codez12zc0zzmodule_includez00, 0L, 0 );
DEFINE_STATIC_PROCEDURE( BGl_includezd2producerzd2envz00zzmodule_includez00, BgL_bgl__includeza7d2producerza7d2za7za7module_includeza7001251za7, BGl__includezd2producerzd2zzmodule_includez00, 0L, 1 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzmodule_includez00(long BgL_checksumz00_210, char * BgL_fromz00_211)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzmodule_includez00))
{ 
BGl_requirezd2initializa7ationz75zzmodule_includez00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzmodule_includez00(); 
BGl_cnstzd2initzd2zzmodule_includez00(); 
BGl_importedzd2moduleszd2initz00zzmodule_includez00(); 
BGl_toplevelzd2initzd2zzmodule_includez00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzmodule_includez00()
{ AN_OBJECT;
{ /* ./Module/include.scm 15 */
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "module_include"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "module_include"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzmodule_includez00()
{ AN_OBJECT;
{ /* ./Module/include.scm 15 */
{ /* ./Module/include.scm 15 */
obj_t BgL_cportz00_203;
BgL_cportz00_203 = 
open_input_string(BGl_string1213z00zzmodule_includez00); 
{ 
long BgL_iz00_204;
BgL_iz00_204 = ((long)2); 
BgL_loopz00_205:
{ /* ./Module/include.scm 15 */
bool_t BgL_test1215z00_206;
BgL_test1215z00_206 = 
(BgL_iz00_204==((long)-1)); 
if(BgL_test1215z00_206)
{ /* ./Module/include.scm 15 */
return BUNSPEC;}  else 
{ /* ./Module/include.scm 15 */
{ /* ./Module/include.scm 15 */
obj_t BgL_arg1217z00_207;
{ /* ./Module/include.scm 15 */
obj_t BgL_list1220z00_208;
BgL_list1220z00_208 = 
MAKE_PAIR(BgL_cportz00_203, BNIL); 
BgL_arg1217z00_207 = 
BGl_readz00zz__readerz00(BgL_list1220z00_208); } 
{ /* ./Module/include.scm 15 */
int BgL_auxz00_226;
BgL_auxz00_226 = 
(int)(BgL_iz00_204); 
CNST_TABLE_SET(BgL_auxz00_226, BgL_arg1217z00_207); } } 
{ /* ./Module/include.scm 15 */
int BgL_auxz00_209;
{ /* ./Module/include.scm 15 */
long BgL_auxz00_229;
BgL_auxz00_229 = 
(BgL_iz00_204-((long)1)); 
BgL_auxz00_209 = 
(int)(BgL_auxz00_229); } 
{ 
long BgL_iz00_232;
BgL_iz00_232 = 
(long)(BgL_auxz00_209); 
BgL_iz00_204 = BgL_iz00_232; 
goto BgL_loopz00_205;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzmodule_includez00()
{ AN_OBJECT;
{ /* ./Module/include.scm 15 */
BGl_za2producedzd2codeza2zd2zzmodule_includez00 = BNIL; 
BGl_za2consumedzd2directiveza2zd2zzmodule_includez00 = BNIL; 
BGl_za2consumedzd2codeza2zd2zzmodule_includez00 = BNIL; 
return ( 
BGl_za2toplevelzd2unitza2zd2zzmodule_includez00 = BFALSE, BUNSPEC) ;} 
}



/* make-include-compiler */
BGL_EXPORTED_DEF obj_t BGl_makezd2includezd2compilerz00zzmodule_includez00()
{ AN_OBJECT;
{ /* ./Module/include.scm 31 */
{ /* ./Module/include.scm 32 */
obj_t BgL_arg1065z00_42;obj_t BgL_arg1066z00_43;obj_t BgL_arg1067z00_44;obj_t BgL_arg1068z00_45;
BgL_arg1065z00_42 = 
CNST_TABLE_REF(((long)0)); 
BgL_arg1066z00_43 = BGl_includezd2producerzd2envz00zzmodule_includez00; 
BgL_arg1067z00_44 = BGl_includezd2consumerzd2envz00zzmodule_includez00; 
BgL_arg1068z00_45 = BGl_includezd2finaliza7erzd2envza7zzmodule_includez00; 
{ /* ./Module/include.scm 32 */
BgL_ccompz00_bglt BgL_auxz00_235;
BgL_auxz00_235 = 
BGl_makezd2ccompzd2zzmodule_modulez00(BgL_arg1065z00_42, BgL_arg1066z00_43, BgL_arg1067z00_44, BgL_arg1068z00_45); 
return 
(obj_t)(BgL_auxz00_235);} } } 
}



/* _make-include-compiler */
obj_t BGl__makezd2includezd2compilerz00zzmodule_includez00(obj_t BgL_envz00_189)
{ AN_OBJECT;
{ /* ./Module/include.scm 31 */
return 
BGl_makezd2includezd2compilerz00zzmodule_includez00();} 
}



/* include-producer */
obj_t BGl_includezd2producerzd2zzmodule_includez00(obj_t BgL_clausez00_19)
{ AN_OBJECT;
{ /* ./Module/include.scm 45 */
{ 

{ 
obj_t BgL_filesz00_47;
{ /* ./Module/include.scm 48 */
obj_t BgL_arg1075z00_49;
BgL_arg1075z00_49 = 
CDR(BgL_clausez00_19); 
BgL_filesz00_47 = BgL_arg1075z00_49; 
BgL_loopz00_48:
{ /* ./Module/include.scm 50 */
bool_t BgL_test1078z00_50;
BgL_test1078z00_50 = 
NULLP(BgL_filesz00_47); 
if(BgL_test1078z00_50)
{ /* ./Module/include.scm 50 */
return BNIL;}  else 
{ /* ./Module/include.scm 52 */
bool_t BgL_test1079z00_51;
BgL_test1079z00_51 = 
PAIRP(BgL_filesz00_47); 
if(BgL_test1079z00_51)
{ /* ./Module/include.scm 52 */
{ /* ./Module/include.scm 55 */
obj_t BgL_filez00_52;
BgL_filez00_52 = 
CAR(BgL_filesz00_47); 
{ /* ./Module/include.scm 56 */
bool_t BgL_test1081z00_53;
BgL_test1081z00_53 = 
STRINGP(BgL_filez00_52); 
if(BgL_test1081z00_53)
{ /* ./Module/include.scm 58 */
obj_t BgL_srcz00_54;
BgL_srcz00_54 = 
BGl_readzd2includezd2zzread_includez00(BgL_filez00_52); 
{ /* ./Module/include.scm 58 */
obj_t BgL_directivez00_55;
BgL_directivez00_55 = 
CAR(BgL_srcz00_54); 
{ /* ./Module/include.scm 59 */
obj_t BgL_srczd2codezd2_56;
{ /* ./Module/include.scm 60 */
obj_t BgL_arg1104z00_65;
BgL_arg1104z00_65 = 
CDR(BgL_srcz00_54); 
BgL_srczd2codezd2_56 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_arg1104z00_65); } 
{ /* ./Module/include.scm 60 */

{ /* ./Module/include.scm 62 */
bool_t BgL_test1082z00_57;
BgL_test1082z00_57 = 
PAIRP(BgL_directivez00_55); 
if(BgL_test1082z00_57)
{ 
obj_t BgL_l1024z00_58;
{ /* ./Module/include.scm 63 */
obj_t BgL_arg1084z00_60;
BgL_arg1084z00_60 = 
CDR(BgL_directivez00_55); 
BgL_l1024z00_58 = BgL_arg1084z00_60; 
BgL_forzd2each1025zd2_59:
{ /* ./Module/include.scm 63 */
bool_t BgL_test1087z00_61;
BgL_test1087z00_61 = 
PAIRP(BgL_l1024z00_58); 
if(BgL_test1087z00_61)
{ /* ./Module/include.scm 63 */
{ /* ./Module/include.scm 63 */
obj_t BgL_arg1089z00_62;
BgL_arg1089z00_62 = 
CAR(BgL_l1024z00_58); 
BGl_producezd2modulezd2clausez12z12zzmodule_modulez00(BgL_arg1089z00_62); } 
{ /* ./Module/include.scm 63 */
obj_t BgL_arg1093z00_63;
BgL_arg1093z00_63 = 
CDR(BgL_l1024z00_58); 
{ 
obj_t BgL_l1024z00_259;
BgL_l1024z00_259 = BgL_arg1093z00_63; 
BgL_l1024z00_58 = BgL_l1024z00_259; 
goto BgL_forzd2each1025zd2_59;} } }  else 
{ /* ./Module/include.scm 63 */((bool_t)1); } } } }  else 
{ /* ./Module/include.scm 62 */((bool_t)0); } } 
BGl_za2producedzd2codeza2zd2zzmodule_includez00 = 
bgl_append2(BgL_srczd2codezd2_56, BGl_za2producedzd2codeza2zd2zzmodule_includez00); 
{ /* ./Module/include.scm 65 */
obj_t BgL_arg1100z00_64;
BgL_arg1100z00_64 = 
CDR(BgL_filesz00_47); 
{ 
obj_t BgL_filesz00_262;
BgL_filesz00_262 = BgL_arg1100z00_64; 
BgL_filesz00_47 = BgL_filesz00_262; 
goto BgL_loopz00_48;} } } } } }  else 
{ /* ./Module/include.scm 56 */
BgL_zc3anonymousza31115ze3z83_66:
{ /* ./Module/include.scm 47 */
obj_t BgL_list1117z00_67;
BgL_list1117z00_67 = 
MAKE_PAIR(BNIL, BNIL); 
return 
BGl_userzd2errorzd2zztools_errorz00(BGl_string1211z00zzmodule_includez00, BGl_string1212z00zzmodule_includez00, BgL_clausez00_19, BgL_list1117z00_67);} } } } }  else 
{ /* ./Module/include.scm 52 */
goto BgL_zc3anonymousza31115ze3z83_66;} } } } } } } 
}



/* _include-producer */
obj_t BGl__includezd2producerzd2zzmodule_includez00(obj_t BgL_envz00_190, obj_t BgL_clausez00_191)
{ AN_OBJECT;
{ /* ./Module/include.scm 45 */
return 
BGl_includezd2producerzd2zzmodule_includez00(BgL_clausez00_191);} 
}



/* get-include-consumed-directive */
BGL_EXPORTED_DEF obj_t BGl_getzd2includezd2consumedzd2directivezd2zzmodule_includez00()
{ AN_OBJECT;
{ /* ./Module/include.scm 75 */
return BGl_za2consumedzd2directiveza2zd2zzmodule_includez00;} 
}



/* _get-include-consumed-directive */
obj_t BGl__getzd2includezd2consumedzd2directivezd2zzmodule_includez00(obj_t BgL_envz00_196)
{ AN_OBJECT;
{ /* ./Module/include.scm 75 */
return BGl_za2consumedzd2directiveza2zd2zzmodule_includez00;} 
}



/* reset-include-consumed-directive! */
BGL_EXPORTED_DEF obj_t BGl_resetzd2includezd2consumedzd2directivez12zc0zzmodule_includez00()
{ AN_OBJECT;
{ /* ./Module/include.scm 81 */
return ( 
BGl_za2consumedzd2directiveza2zd2zzmodule_includez00 = BNIL, BUNSPEC) ;} 
}



/* _reset-include-consumed-directive! */
obj_t BGl__resetzd2includezd2consumedzd2directivez12zc0zzmodule_includez00(obj_t BgL_envz00_197)
{ AN_OBJECT;
{ /* ./Module/include.scm 81 */
return 
BGl_resetzd2includezd2consumedzd2directivez12zc0zzmodule_includez00();} 
}



/* get-include-consumed-code */
BGL_EXPORTED_DEF obj_t BGl_getzd2includezd2consumedzd2codezd2zzmodule_includez00()
{ AN_OBJECT;
{ /* ./Module/include.scm 92 */
return BGl_za2consumedzd2codeza2zd2zzmodule_includez00;} 
}



/* _get-include-consumed-code */
obj_t BGl__getzd2includezd2consumedzd2codezd2zzmodule_includez00(obj_t BgL_envz00_198)
{ AN_OBJECT;
{ /* ./Module/include.scm 92 */
return BGl_za2consumedzd2codeza2zd2zzmodule_includez00;} 
}



/* reset-include-consumed-code! */
BGL_EXPORTED_DEF obj_t BGl_resetzd2includezd2consumedzd2codez12zc0zzmodule_includez00()
{ AN_OBJECT;
{ /* ./Module/include.scm 98 */
return ( 
BGl_za2consumedzd2codeza2zd2zzmodule_includez00 = BNIL, BUNSPEC) ;} 
}



/* _reset-include-consumed-code! */
obj_t BGl__resetzd2includezd2consumedzd2codez12zc0zzmodule_includez00(obj_t BgL_envz00_199)
{ AN_OBJECT;
{ /* ./Module/include.scm 98 */
return 
BGl_resetzd2includezd2consumedzd2codez12zc0zzmodule_includez00();} 
}



/* include-consumer */
obj_t BGl_includezd2consumerzd2zzmodule_includez00(obj_t BgL_modulez00_20, obj_t BgL_clausez00_21)
{ AN_OBJECT;
{ /* ./Module/include.scm 104 */
{ 

{ 
obj_t BgL_filesz00_70;
{ /* ./Module/include.scm 107 */
obj_t BgL_arg1120z00_72;
BgL_arg1120z00_72 = 
CDR(BgL_clausez00_21); 
BgL_filesz00_70 = BgL_arg1120z00_72; 
BgL_loopz00_71:
{ /* ./Module/include.scm 109 */
bool_t BgL_test1123z00_73;
BgL_test1123z00_73 = 
NULLP(BgL_filesz00_70); 
if(BgL_test1123z00_73)
{ /* ./Module/include.scm 109 */
return BNIL;}  else 
{ /* ./Module/include.scm 111 */
bool_t BgL_test1125z00_74;
BgL_test1125z00_74 = 
PAIRP(BgL_filesz00_70); 
if(BgL_test1125z00_74)
{ /* ./Module/include.scm 111 */
{ /* ./Module/include.scm 114 */
obj_t BgL_filez00_75;
BgL_filez00_75 = 
CAR(BgL_filesz00_70); 
{ /* ./Module/include.scm 115 */
bool_t BgL_test1126z00_76;
BgL_test1126z00_76 = 
STRINGP(BgL_filez00_75); 
if(BgL_test1126z00_76)
{ /* ./Module/include.scm 117 */
obj_t BgL_srcz00_77;
BgL_srcz00_77 = 
BGl_readzd2includezd2zzread_includez00(BgL_filez00_75); 
{ /* ./Module/include.scm 117 */
obj_t BgL_directivez00_78;
BgL_directivez00_78 = 
CAR(BgL_srcz00_77); 
{ /* ./Module/include.scm 118 */
obj_t BgL_srczd2codezd2_79;
BgL_srczd2codezd2_79 = 
CDR(BgL_srcz00_77); 
{ /* ./Module/include.scm 119 */

{ /* ./Module/include.scm 122 */
bool_t BgL_test1127z00_80;
BgL_test1127z00_80 = 
PAIRP(BgL_directivez00_78); 
if(BgL_test1127z00_80)
{ 
obj_t BgL_l1026z00_81;
{ /* ./Module/include.scm 128 */
obj_t BgL_arg1130z00_83;
BgL_arg1130z00_83 = 
CDR(BgL_directivez00_78); 
BgL_l1026z00_81 = BgL_arg1130z00_83; 
BgL_forzd2each1027zd2_82:
{ /* ./Module/include.scm 123 */
bool_t BgL_test1133z00_84;
BgL_test1133z00_84 = 
PAIRP(BgL_l1026z00_81); 
if(BgL_test1133z00_84)
{ /* ./Module/include.scm 123 */
{ /* ./Module/include.scm 125 */
obj_t BgL_dz00_85;
BgL_dz00_85 = 
CAR(BgL_l1026z00_81); 
{ /* ./Module/include.scm 126 */
obj_t BgL_arg1135z00_86;
BgL_arg1135z00_86 = 
BGl_consumezd2modulezd2clausez12z12zzmodule_modulez00(BgL_modulez00_20, BgL_dz00_85); 
BGl_za2consumedzd2directiveza2zd2zzmodule_includez00 = 
bgl_append2(BgL_arg1135z00_86, BGl_za2consumedzd2directiveza2zd2zzmodule_includez00); } } 
{ /* ./Module/include.scm 123 */
obj_t BgL_arg1140z00_87;
BgL_arg1140z00_87 = 
CDR(BgL_l1026z00_81); 
{ 
obj_t BgL_l1026z00_288;
BgL_l1026z00_288 = BgL_arg1140z00_87; 
BgL_l1026z00_81 = BgL_l1026z00_288; 
goto BgL_forzd2each1027zd2_82;} } }  else 
{ /* ./Module/include.scm 123 */((bool_t)1); } } } }  else 
{ /* ./Module/include.scm 122 */((bool_t)0); } } 
BGl_za2consumedzd2codeza2zd2zzmodule_includez00 = 
bgl_append2(BgL_srczd2codezd2_79, BGl_za2consumedzd2codeza2zd2zzmodule_includez00); 
{ /* ./Module/include.scm 130 */
obj_t BgL_arg1147z00_88;
BgL_arg1147z00_88 = 
CDR(BgL_filesz00_70); 
{ 
obj_t BgL_filesz00_291;
BgL_filesz00_291 = BgL_arg1147z00_88; 
BgL_filesz00_70 = BgL_filesz00_291; 
goto BgL_loopz00_71;} } } } } }  else 
{ /* ./Module/include.scm 115 */
BgL_zc3anonymousza31159ze3z83_89:
{ /* ./Module/include.scm 106 */
obj_t BgL_list1161z00_90;
BgL_list1161z00_90 = 
MAKE_PAIR(BNIL, BNIL); 
return 
BGl_userzd2errorzd2zztools_errorz00(BGl_string1211z00zzmodule_includez00, BGl_string1212z00zzmodule_includez00, BgL_clausez00_21, BgL_list1161z00_90);} } } } }  else 
{ /* ./Module/include.scm 111 */
goto BgL_zc3anonymousza31159ze3z83_89;} } } } } } } 
}



/* _include-consumer */
obj_t BGl__includezd2consumerzd2zzmodule_includez00(obj_t BgL_envz00_192, obj_t BgL_modulez00_193, obj_t BgL_clausez00_194)
{ AN_OBJECT;
{ /* ./Module/include.scm 104 */
return 
BGl_includezd2consumerzd2zzmodule_includez00(BgL_modulez00_193, BgL_clausez00_194);} 
}



/* get-toplevel-unit */
BGL_EXPORTED_DEF obj_t BGl_getzd2toplevelzd2unitz00zzmodule_includez00()
{ AN_OBJECT;
{ /* ./Module/include.scm 140 */
return BGl_za2toplevelzd2unitza2zd2zzmodule_includez00;} 
}



/* _get-toplevel-unit */
obj_t BGl__getzd2toplevelzd2unitz00zzmodule_includez00(obj_t BgL_envz00_200)
{ AN_OBJECT;
{ /* ./Module/include.scm 140 */
return 
BGl_getzd2toplevelzd2unitz00zzmodule_includez00();} 
}



/* get-toplevel-unit-weight */
BGL_EXPORTED_DEF obj_t BGl_getzd2toplevelzd2unitzd2weightzd2zzmodule_includez00()
{ AN_OBJECT;
{ /* ./Module/include.scm 147 */
return 
BINT(((long)100));} 
}



/* _get-toplevel-unit-weight */
obj_t BGl__getzd2toplevelzd2unitzd2weightzd2zzmodule_includez00(obj_t BgL_envz00_201)
{ AN_OBJECT;
{ /* ./Module/include.scm 147 */
return 
BGl_getzd2toplevelzd2unitzd2weightzd2zzmodule_includez00();} 
}



/* include-finalizer */
obj_t BGl_includezd2finaliza7erz75zzmodule_includez00()
{ AN_OBJECT;
{ /* ./Module/include.scm 153 */
{ /* ./Module/include.scm 154 */
obj_t BgL_arg1164z00_92;long BgL_arg1165z00_93;obj_t BgL_arg1166z00_94;
BgL_arg1164z00_92 = 
CNST_TABLE_REF(((long)1)); 
BgL_arg1165z00_93 = ((long)100); 
BgL_arg1166z00_94 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BGl_za2producedzd2codeza2zd2zzmodule_includez00); 
{ /* ./Module/include.scm 154 */
obj_t BgL_newz00_166;
{ /* ./Module/include.scm 154 */
int BgL_auxz00_302;obj_t BgL_auxz00_300;
BgL_auxz00_302 = 
(int)(((long)4)); 
BgL_auxz00_300 = 
CNST_TABLE_REF(((long)2)); 
BgL_newz00_166 = 
create_struct(BgL_auxz00_300, BgL_auxz00_302); } 
{ /* ./Module/include.scm 154 */
int BgL_kz00_170;
BgL_kz00_170 = 
(int)(((long)3)); 
STRUCT_SET(BgL_newz00_166, BgL_kz00_170, BTRUE); } 
{ /* ./Module/include.scm 154 */
int BgL_kz00_175;
BgL_kz00_175 = 
(int)(((long)2)); 
STRUCT_SET(BgL_newz00_166, BgL_kz00_175, BgL_arg1166z00_94); } 
{ /* ./Module/include.scm 154 */
int BgL_kz00_180;obj_t BgL_oz00_181;
BgL_kz00_180 = 
(int)(((long)1)); 
BgL_oz00_181 = 
BINT(BgL_arg1165z00_93); 
STRUCT_SET(BgL_newz00_166, BgL_kz00_180, BgL_oz00_181); } 
{ /* ./Module/include.scm 154 */
int BgL_kz00_185;
BgL_kz00_185 = 
(int)(((long)0)); 
STRUCT_SET(BgL_newz00_166, BgL_kz00_185, BgL_arg1164z00_92); } 
BGl_za2toplevelzd2unitza2zd2zzmodule_includez00 = BgL_newz00_166; } } 
{ /* ./Module/include.scm 158 */
obj_t BgL_list1171z00_95;
BgL_list1171z00_95 = 
MAKE_PAIR(BGl_za2toplevelzd2unitza2zd2zzmodule_includez00, BNIL); 
return BgL_list1171z00_95;} } 
}



/* _include-finalizer */
obj_t BGl__includezd2finaliza7erz75zzmodule_includez00(obj_t BgL_envz00_195)
{ AN_OBJECT;
{ /* ./Module/include.scm 153 */
return 
BGl_includezd2finaliza7erz75zzmodule_includez00();} 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzmodule_includez00()
{ AN_OBJECT;
{ /* ./Module/include.scm 15 */
return BUNSPEC;} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzmodule_includez00()
{ AN_OBJECT;
{ /* ./Module/include.scm 15 */
BGl_modulezd2initializa7ationz75zzmodule_modulez00(((long)8699), "module_include"); 
BGl_modulezd2initializa7ationz75zztools_errorz00(((long)25566), "module_include"); 
return 
BGl_modulezd2initializa7ationz75zzread_includez00(((long)31451), "module_include");} 
}

