/*===========================================================================*/
/*   (Module/type.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/type.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;

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

typedef struct BgL_tvecz00_bgl {
   struct BgL_typez00_bgl * BgL_itemzd2typezd2;
} *BgL_tvecz00_bglt;


BGL_EXPORTED_DECL obj_t BGl_tvectorzd2finaliza7erz75zzmodule_typez00();
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzmodule_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_tracez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzmodule_modulez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_envz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_coercionz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztvector_tvectorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztvector_accessz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_locationz00(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_symbols_6_4z00(long, char *);
static obj_t BGl_methodzd2initzd2zzmodule_typez00();
extern obj_t BGl_userzd2errorzd2zztools_errorz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_za2tvectorzd2accessesza2zd2zzmodule_typez00 = BUNSPEC;
extern obj_t BGl_makezd2tvectorzd2accessesz00zztvector_accessz00(BgL_tvecz00_bglt, obj_t);
BGL_IMPORT obj_t open_input_string(obj_t);
extern obj_t BGl_addzd2coercionz12zc0zztype_coercionz00(BgL_typez00_bglt, BgL_typez00_bglt, obj_t, obj_t);
static obj_t BGl__typezd2finaliza7erz75zzmodule_typez00(obj_t);
extern BgL_typez00_bglt BGl_findzd2typezd2zztype_envz00(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);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
extern BgL_typez00_bglt BGl_usezd2typez12zc0zztype_envz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_typezd2parserzd2zzmodule_typez00(obj_t, obj_t);
extern BgL_typez00_bglt BGl_declarezd2subtypez12zc0zztype_envz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_typezd2producerzf2consumerz20zzmodule_typez00(obj_t);
BGL_IMPORT obj_t BGl_gensymz00zz__r4_symbols_6_4z00;
static obj_t BGl__tvectorzd2finaliza7erz75zzmodule_typez00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_makezd2typezd2compilerz00zzmodule_typez00();
extern obj_t BGl_findzd2locationzd2zztools_locationz00(obj_t);
extern obj_t BGl_typez00zztype_typez00;
BGL_IMPORT obj_t create_struct(obj_t, int);
BGL_IMPORT obj_t BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_cnstzd2initzd2zzmodule_typez00();
static obj_t BGl__typezd2producerzf2consumerz20zzmodule_typez00(obj_t, obj_t);
static obj_t BGl__makezd2typezd2compilerz00zzmodule_typez00(obj_t);
extern BgL_tvecz00_bglt BGl_declarezd2tvectorzd2typez12z12zztvector_tvectorz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t bgl_append2(obj_t, obj_t);
static obj_t BGl_typezd2finaliza7erz75zzmodule_typez00();
static obj_t BGl_importedzd2moduleszd2initz00zzmodule_typez00();
extern BgL_typez00_bglt BGl_declarezd2typez12zc0zztype_envz00(obj_t, obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzmodule_typez00 = BUNSPEC;
static obj_t BGl_libraryzd2moduleszd2initz00zzmodule_typez00();
static obj_t BGl_zc3anonymousza31218ze3z83zzmodule_typez00(obj_t, obj_t, obj_t);
static obj_t BGl_toplevelzd2initzd2zzmodule_typez00();
static obj_t BGl__typezd2parserzd2zzmodule_typez00(obj_t, obj_t, obj_t);
static obj_t __cnst[ 9 ] ;


DEFINE_EXPORT_PROCEDURE( BGl_typezd2parserzd2envz00zzmodule_typez00, BgL_bgl__typeza7d2parserza7d2za7za7module_typeza7003215za7, BGl__typezd2parserzd2zzmodule_typez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_typezd2producerzf2consumerzd2envzf2zzmodule_typez00, BgL_bgl__typeza7d2producerza7f2consumerza720za7za7module_typeza7003216z00, BGl__typezd2producerzf2consumerz20zzmodule_typez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_typezd2finaliza7erzd2envza7zzmodule_typez00, BgL_bgl__typeza7d2finaliza7a7erza775za7za7module_typeza7003217z00, BGl__typezd2finaliza7erz75zzmodule_typez00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2typezd2compilerzd2envzd2zzmodule_typez00, BgL_bgl__makeza7d2typeza7d2compilerza700za7za7module_typeza7003218z00, BGl__makezd2typezd2compilerz00zzmodule_typez00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_tvectorzd2finaliza7erzd2envza7zzmodule_typez00, BgL_bgl__tvectorza7d2finaliza7a7erza775za7za7module_typeza7003219z00, BGl__tvectorzd2finaliza7erz75zzmodule_typez00, 0L, 0 );
DEFINE_STATIC_PROCEDURE( BGl_proc3176z00zzmodule_typez00, BgL_bgl_za7c3anonymousza7a31218za7e3za783za7za7module_typeza7003220za7, BGl_zc3anonymousza31218ze3z83zzmodule_typez00, 0L, 2 );
DEFINE_STRING( BGl_string3187z00zzmodule_typez00, BgL_bgl_string3187za700za7za7module_typeza7003221z00, "void unit tvector coerce subtype magic bigloo lambda type ", 58 );
DEFINE_STRING( BGl_string3186z00zzmodule_typez00, BgL_bgl_string3186za700za7za7module_typeza7003222z00, "Unknow type", 11 );
DEFINE_STRING( BGl_string3185z00zzmodule_typez00, BgL_bgl_string3185za700za7za7module_typeza7003223z00, "type coercion", 13 );
DEFINE_STRING( BGl_string3184z00zzmodule_typez00, BgL_bgl_string3184za700za7za7module_typeza7003224z00, "Illegal clause", 14 );
DEFINE_STRING( BGl_string3183z00zzmodule_typez00, BgL_bgl_string3183za700za7za7module_typeza7003225z00, "Coercion", 8 );
DEFINE_STRING( BGl_string3182z00zzmodule_typez00, BgL_bgl_string3182za700za7za7module_typeza7003226z00, "Illegal type declaration", 24 );
DEFINE_STRING( BGl_string3181z00zzmodule_typez00, BgL_bgl_string3181za700za7za7module_typeza7003227z00, "Unknow parent type", 18 );
DEFINE_STRING( BGl_string3180z00zzmodule_typez00, BgL_bgl_string3180za700za7za7module_typeza7003228z00, "Parents are of different classes", 32 );
DEFINE_STRING( BGl_string3179z00zzmodule_typez00, BgL_bgl_string3179za700za7za7module_typeza7003229z00, "Subtype", 7 );
DEFINE_STRING( BGl_string3178z00zzmodule_typez00, BgL_bgl_string3178za700za7za7module_typeza7003230z00, "Illegal `type' clause", 21 );
DEFINE_STRING( BGl_string3177z00zzmodule_typez00, BgL_bgl_string3177za700za7za7module_typeza7003231z00, "Parse error", 11 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzmodule_typez00(long BgL_checksumz00_1904, char * BgL_fromz00_1905)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzmodule_typez00))
{ 
BGl_requirezd2initializa7ationz75zzmodule_typez00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzmodule_typez00(); 
BGl_cnstzd2initzd2zzmodule_typez00(); 
BGl_importedzd2moduleszd2initz00zzmodule_typez00(); 
BGl_toplevelzd2initzd2zzmodule_typez00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzmodule_typez00()
{ AN_OBJECT;
{ /* ./Module/type.scm 15 */
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "module_type"); 
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "module_type"); 
BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(((long)0), "module_type"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "module_type"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzmodule_typez00()
{ AN_OBJECT;
{ /* ./Module/type.scm 15 */
{ /* ./Module/type.scm 15 */
obj_t BgL_cportz00_1895;
BgL_cportz00_1895 = 
open_input_string(BGl_string3187z00zzmodule_typez00); 
{ 
long BgL_iz00_1896;
BgL_iz00_1896 = ((long)8); 
BgL_loopz00_1897:
{ /* ./Module/type.scm 15 */
bool_t BgL_test3189z00_1898;
BgL_test3189z00_1898 = 
(BgL_iz00_1896==((long)-1)); 
if(BgL_test3189z00_1898)
{ /* ./Module/type.scm 15 */
return BUNSPEC;}  else 
{ /* ./Module/type.scm 15 */
{ /* ./Module/type.scm 15 */
obj_t BgL_arg3191z00_1899;
{ /* ./Module/type.scm 15 */
obj_t BgL_list3194z00_1900;
BgL_list3194z00_1900 = 
MAKE_PAIR(BgL_cportz00_1895, BNIL); 
BgL_arg3191z00_1899 = 
BGl_readz00zz__readerz00(BgL_list3194z00_1900); } 
{ /* ./Module/type.scm 15 */
int BgL_auxz00_1922;
BgL_auxz00_1922 = 
(int)(BgL_iz00_1896); 
CNST_TABLE_SET(BgL_auxz00_1922, BgL_arg3191z00_1899); } } 
{ /* ./Module/type.scm 15 */
int BgL_auxz00_1901;
{ /* ./Module/type.scm 15 */
long BgL_auxz00_1925;
BgL_auxz00_1925 = 
(BgL_iz00_1896-((long)1)); 
BgL_auxz00_1901 = 
(int)(BgL_auxz00_1925); } 
{ 
long BgL_iz00_1928;
BgL_iz00_1928 = 
(long)(BgL_auxz00_1901); 
BgL_iz00_1896 = BgL_iz00_1928; 
goto BgL_loopz00_1897;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzmodule_typez00()
{ AN_OBJECT;
{ /* ./Module/type.scm 15 */
return ( 
BGl_za2tvectorzd2accessesza2zd2zzmodule_typez00 = BNIL, BUNSPEC) ;} 
}



/* make-type-compiler */
BGL_EXPORTED_DEF obj_t BGl_makezd2typezd2compilerz00zzmodule_typez00()
{ AN_OBJECT;
{ /* ./Module/type.scm 33 */
{ /* ./Module/type.scm 34 */
obj_t BgL_arg1213z00_102;obj_t BgL_arg1214z00_103;obj_t BgL_arg1216z00_105;
BgL_arg1213z00_102 = 
CNST_TABLE_REF(((long)0)); 
BgL_arg1214z00_103 = BGl_typezd2producerzf2consumerzd2envzf2zzmodule_typez00; 
BgL_arg1216z00_105 = BGl_typezd2finaliza7erzd2envza7zzmodule_typez00; 
{ /* ./Module/type.scm 34 */
BgL_ccompz00_bglt BgL_auxz00_1931;
BgL_auxz00_1931 = 
BGl_makezd2ccompzd2zzmodule_modulez00(BgL_arg1213z00_102, BgL_arg1214z00_103, BGl_proc3176z00zzmodule_typez00, BgL_arg1216z00_105); 
return 
(obj_t)(BgL_auxz00_1931);} } } 
}



/* _make-type-compiler */
obj_t BGl__makezd2typezd2compilerz00zzmodule_typez00(obj_t BgL_envz00_1883)
{ AN_OBJECT;
{ /* ./Module/type.scm 33 */
return 
BGl_makezd2typezd2compilerz00zzmodule_typez00();} 
}



/* <anonymous:1218> */
obj_t BGl_zc3anonymousza31218ze3z83zzmodule_typez00(obj_t BgL_envz00_1884, obj_t BgL_mz00_1885, obj_t BgL_cz00_1886)
{ AN_OBJECT;
{ /* ./Module/type.scm 36 */
return 
BGl_typezd2producerzf2consumerz20zzmodule_typez00(BgL_cz00_1886);} 
}



/* type-producer/consumer */
obj_t BGl_typezd2producerzf2consumerz20zzmodule_typez00(obj_t BgL_clausez00_19)
{ AN_OBJECT;
{ /* ./Module/type.scm 42 */
{ 
obj_t BgL_protosz00_110;
{ /* ./Module/type.scm 43 */
bool_t BgL_test1220z00_114;
BgL_test1220z00_114 = 
PAIRP(BgL_clausez00_19); 
if(BgL_test1220z00_114)
{ /* ./Module/type.scm 43 */
obj_t BgL_arg1222z00_115;
BgL_arg1222z00_115 = 
CDR(BgL_clausez00_19); 
BgL_protosz00_110 = BgL_arg1222z00_115; 
{ 
obj_t BgL_l1173z00_116;
BgL_l1173z00_116 = BgL_protosz00_110; 
BgL_forzd2each1174zd2_117:
{ /* ./Module/type.scm 45 */
bool_t BgL_test1228z00_118;
BgL_test1228z00_118 = 
PAIRP(BgL_l1173z00_116); 
if(BgL_test1228z00_118)
{ /* ./Module/type.scm 45 */
{ /* ./Module/type.scm 45 */
obj_t BgL_protoz00_119;
BgL_protoz00_119 = 
CAR(BgL_l1173z00_116); 
BGl_typezd2parserzd2zzmodule_typez00(BgL_protoz00_119, BgL_clausez00_19); } 
{ /* ./Module/type.scm 45 */
obj_t BgL_arg1233z00_120;
BgL_arg1233z00_120 = 
CDR(BgL_l1173z00_116); 
{ 
obj_t BgL_l1173z00_1944;
BgL_l1173z00_1944 = BgL_arg1233z00_120; 
BgL_l1173z00_116 = BgL_l1173z00_1944; 
goto BgL_forzd2each1174zd2_117;} } }  else 
{ /* ./Module/type.scm 45 */((bool_t)1); } } } 
return BNIL;}  else 
{ /* ./Module/type.scm 43 */
{ /* ./Module/type.scm 48 */
obj_t BgL_list1238z00_121;
BgL_list1238z00_121 = 
MAKE_PAIR(BNIL, BNIL); 
return 
BGl_userzd2errorzd2zztools_errorz00(BGl_string3177z00zzmodule_typez00, BGl_string3178z00zzmodule_typez00, BgL_clausez00_19, BgL_list1238z00_121);} } } } } 
}



/* _type-producer/consumer */
obj_t BGl__typezd2producerzf2consumerz20zzmodule_typez00(obj_t BgL_envz00_1887, obj_t BgL_clausez00_1888)
{ AN_OBJECT;
{ /* ./Module/type.scm 42 */
return 
BGl_typezd2producerzf2consumerz20zzmodule_typez00(BgL_clausez00_1888);} 
}



/* type-parser */
BGL_EXPORTED_DEF obj_t BGl_typezd2parserzd2zzmodule_typez00(obj_t BgL_clausez00_20, obj_t BgL_clausesz00_21)
{ AN_OBJECT;
{ /* ./Module/type.scm 53 */
{ 
obj_t BgL_fromz00_140;obj_t BgL_toz00_141;obj_t BgL_checkz00_142;obj_t BgL_coercez00_143;obj_t BgL_idz00_137;obj_t BgL_itemzd2typezd2_138;obj_t BgL_childz00_133;obj_t BgL_namez00_134;obj_t BgL_parentz00_135;
{ /* ./Module/type.scm 55 */
bool_t BgL_test1240z00_147;
BgL_test1240z00_147 = 
PAIRP(BgL_clausez00_20); 
if(BgL_test1240z00_147)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd2148zd2_148;obj_t BgL_cdrzd2149zd2_149;
BgL_carzd2148zd2_148 = 
CAR(BgL_clausez00_20); 
BgL_cdrzd2149zd2_149 = 
CDR(BgL_clausez00_20); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1241z00_150;
BgL_test1241z00_150 = 
SYMBOLP(BgL_carzd2148zd2_148); 
if(BgL_test1241z00_150)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1242z00_151;
BgL_test1242z00_151 = 
PAIRP(BgL_cdrzd2149zd2_149); 
if(BgL_test1242z00_151)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd2153zd2_152;
BgL_carzd2153zd2_152 = 
CAR(BgL_cdrzd2149zd2_149); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1243z00_153;
BgL_test1243z00_153 = 
STRINGP(BgL_carzd2153zd2_152); 
if(BgL_test1243z00_153)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1244z00_154;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_1959;
BgL_auxz00_1959 = 
CDR(BgL_cdrzd2149zd2_149); 
BgL_test1244z00_154 = 
NULLP(BgL_auxz00_1959); } 
if(BgL_test1244z00_154)
{ /* ./Module/type.scm 55 */
BgL_typez00_bglt BgL_auxz00_1963;
BgL_auxz00_1963 = 
BGl_declarezd2typez12zc0zztype_envz00(BgL_carzd2148zd2_148, BgL_carzd2153zd2_152, 
CNST_TABLE_REF(((long)2))); 
return 
(obj_t)(BgL_auxz00_1963);}  else 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1246z00_157;
BgL_test1246z00_157 = 
SYMBOLP(BgL_carzd2148zd2_148); 
if(BgL_test1246z00_157)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd2181zd2_158;obj_t BgL_cdrzd2182zd2_159;
BgL_carzd2181zd2_158 = 
CAR(BgL_cdrzd2149zd2_149); 
BgL_cdrzd2182zd2_159 = 
CDR(BgL_cdrzd2149zd2_149); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1247z00_160;
BgL_test1247z00_160 = 
STRINGP(BgL_carzd2181zd2_158); 
if(BgL_test1247z00_160)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1248z00_161;
BgL_test1248z00_161 = 
PAIRP(BgL_cdrzd2182zd2_159); 
if(BgL_test1248z00_161)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd2188zd2_162;
BgL_carzd2188zd2_162 = 
CAR(BgL_cdrzd2182zd2_159); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1249z00_163;
BgL_test1249z00_163 = 
SYMBOLP(BgL_carzd2188zd2_162); 
if(BgL_test1249z00_163)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1250z00_164;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_1978;
BgL_auxz00_1978 = 
CDR(BgL_cdrzd2182zd2_159); 
BgL_test1250z00_164 = 
NULLP(BgL_auxz00_1978); } 
if(BgL_test1250z00_164)
{ /* ./Module/type.scm 55 */
BgL_typez00_bglt BgL_auxz00_1982;
BgL_auxz00_1982 = 
BGl_declarezd2typez12zc0zztype_envz00(BgL_carzd2148zd2_148, BgL_carzd2181zd2_158, BgL_carzd2188zd2_162); 
return 
(obj_t)(BgL_auxz00_1982);}  else 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1252z00_166;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_1987;obj_t BgL_auxz00_1985;
BgL_auxz00_1987 = 
CNST_TABLE_REF(((long)3)); 
BgL_auxz00_1985 = 
CAR(BgL_clausez00_20); 
BgL_test1252z00_166 = 
(BgL_auxz00_1985==BgL_auxz00_1987); } 
if(BgL_test1252z00_166)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd2214zd2_167;obj_t BgL_cdrzd2215zd2_168;
BgL_carzd2214zd2_167 = 
CAR(BgL_cdrzd2149zd2_149); 
BgL_cdrzd2215zd2_168 = 
CDR(BgL_cdrzd2149zd2_149); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1253z00_169;
BgL_test1253z00_169 = 
SYMBOLP(BgL_carzd2214zd2_167); 
if(BgL_test1253z00_169)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd2223zd2_170;obj_t BgL_cdrzd2224zd2_171;
BgL_carzd2223zd2_170 = 
CAR(BgL_cdrzd2215zd2_168); 
BgL_cdrzd2224zd2_171 = 
CDR(BgL_cdrzd2215zd2_168); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1254z00_172;
BgL_test1254z00_172 = 
STRINGP(BgL_carzd2223zd2_170); 
if(BgL_test1254z00_172)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1255z00_173;
BgL_test1255z00_173 = 
PAIRP(BgL_cdrzd2224zd2_171); 
if(BgL_test1255z00_173)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd2230zd2_174;
BgL_carzd2230zd2_174 = 
CAR(BgL_cdrzd2224zd2_171); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1256z00_175;
BgL_test1256z00_175 = 
SYMBOLP(BgL_carzd2230zd2_174); 
if(BgL_test1256z00_175)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1257z00_176;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2004;
BgL_auxz00_2004 = 
CDR(BgL_cdrzd2224zd2_171); 
BgL_test1257z00_176 = 
NULLP(BgL_auxz00_2004); } 
if(BgL_test1257z00_176)
{ /* ./Module/type.scm 55 */
BgL_typez00_bglt BgL_typez00_1095;
BgL_typez00_1095 = 
BGl_declarezd2typez12zc0zztype_envz00(BgL_carzd2214zd2_167, BgL_carzd2223zd2_170, BgL_carzd2230zd2_174); 
{ /* ./Module/type.scm 55 */
BgL_typez00_bglt BgL_obj1044z00_1096;bool_t BgL_val1043z00_1097;
BgL_obj1044z00_1096 = BgL_typez00_1095; 
BgL_val1043z00_1097 = ((bool_t)1); 
((((BgL_typez00_bglt)CREF(BgL_obj1044z00_1096))->BgL_magiczf3zf3) = ((bool_t)BgL_val1043z00_1097), BUNSPEC); } 
return 
(obj_t)(BgL_typez00_1095);}  else 
{ /* ./Module/type.scm 55 */
BgL_tagzd2134zd2_145:
{ /* ./Module/type.scm 129 */
obj_t BgL_list3056z00_975;
BgL_list3056z00_975 = 
MAKE_PAIR(BNIL, BNIL); 
return 
BGl_userzd2errorzd2zztools_errorz00(BGl_string3177z00zzmodule_typez00, BGl_string3182z00zzmodule_typez00, BgL_clausez00_20, BgL_list3056z00_975);} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1281z00_179;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2015;obj_t BgL_auxz00_2013;
BgL_auxz00_2015 = 
CNST_TABLE_REF(((long)4)); 
BgL_auxz00_2013 = 
CAR(BgL_clausez00_20); 
BgL_test1281z00_179 = 
(BgL_auxz00_2013==BgL_auxz00_2015); } 
if(BgL_test1281z00_179)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd2395zd2_180;obj_t BgL_cdrzd2396zd2_181;
BgL_carzd2395zd2_180 = 
CAR(BgL_cdrzd2149zd2_149); 
BgL_cdrzd2396zd2_181 = 
CDR(BgL_cdrzd2149zd2_149); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1282z00_182;
BgL_test1282z00_182 = 
SYMBOLP(BgL_carzd2395zd2_180); 
if(BgL_test1282z00_182)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd2405zd2_183;obj_t BgL_cdrzd2406zd2_184;
BgL_carzd2405zd2_183 = 
CAR(BgL_cdrzd2396zd2_181); 
BgL_cdrzd2406zd2_184 = 
CDR(BgL_cdrzd2396zd2_181); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1283z00_185;
BgL_test1283z00_185 = 
STRINGP(BgL_carzd2405zd2_183); 
if(BgL_test1283z00_185)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1284z00_186;
BgL_test1284z00_186 = 
PAIRP(BgL_cdrzd2406zd2_184); 
if(BgL_test1284z00_186)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd2412zd2_187;
BgL_carzd2412zd2_187 = 
CAR(BgL_cdrzd2406zd2_184); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1285z00_188;
BgL_test1285z00_188 = 
PAIRP(BgL_carzd2412zd2_187); 
if(BgL_test1285z00_188)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1286z00_189;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2032;
BgL_auxz00_2032 = 
CDR(BgL_cdrzd2406zd2_184); 
BgL_test1286z00_189 = 
NULLP(BgL_auxz00_2032); } 
if(BgL_test1286z00_189)
{ /* ./Module/type.scm 55 */
BgL_childz00_133 = BgL_carzd2395zd2_180; 
BgL_namez00_134 = BgL_carzd2405zd2_183; 
BgL_parentz00_135 = BgL_carzd2412zd2_187; 
BgL_tagzd2131zd2_136:
{ 
obj_t BgL_walkz00_918;obj_t BgL_classz00_919;
BgL_walkz00_918 = BgL_parentz00_135; 
BgL_classz00_919 = BUNSPEC; 
BgL_loopz00_920:
{ /* ./Module/type.scm 74 */
bool_t BgL_test2944z00_921;
BgL_test2944z00_921 = 
NULLP(BgL_walkz00_918); 
if(BgL_test2944z00_921)
{ /* ./Module/type.scm 74 */
{ /* ./Module/type.scm 75 */
BgL_typez00_bglt BgL_auxz00_2038;
BgL_auxz00_2038 = 
BGl_declarezd2subtypez12zc0zztype_envz00(BgL_childz00_133, BgL_namez00_134, BgL_parentz00_135, BgL_classz00_919); 
return 
(obj_t)(BgL_auxz00_2038);} }  else 
{ /* ./Module/type.scm 76 */
bool_t BgL_test2946z00_922;
{ /* ./Module/type.scm 76 */
obj_t BgL_auxz00_2041;
BgL_auxz00_2041 = 
CAR(BgL_walkz00_918); 
BgL_test2946z00_922 = 
SYMBOLP(BgL_auxz00_2041); } 
if(BgL_test2946z00_922)
{ /* ./Module/type.scm 76 */
{ /* ./Module/type.scm 79 */
BgL_typez00_bglt BgL_tparentz00_923;
{ /* ./Module/type.scm 79 */
obj_t BgL_arg2968z00_933;
BgL_arg2968z00_933 = 
CAR(BgL_walkz00_918); 
BgL_tparentz00_923 = 
BGl_findzd2typezd2zztype_envz00(BgL_arg2968z00_933); } 
{ /* ./Module/type.scm 81 */
bool_t BgL_test2947z00_924;
{ /* ./Module/type.scm 81 */
obj_t BgL_obj1108z00_1824;
BgL_obj1108z00_1824 = 
(obj_t)(BgL_tparentz00_923); 
BgL_test2947z00_924 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1108z00_1824, BGl_typez00zztype_typez00); } 
if(BgL_test2947z00_924)
{ /* ./Module/type.scm 83 */
bool_t BgL_test2948z00_925;
if(
SYMBOLP(BgL_classz00_919))
{ /* ./Module/type.scm 84 */
bool_t BgL_testz00_2052;
{ /* ./Module/type.scm 84 */
obj_t BgL_auxz00_2053;
BgL_auxz00_2053 = 
(((BgL_typez00_bglt)CREF(BgL_tparentz00_923))->BgL_classz00); 
BgL_testz00_2052 = 
(BgL_classz00_919==BgL_auxz00_2053); } 
if(BgL_testz00_2052)
{ /* ./Module/type.scm 84 */
BgL_test2948z00_925 = ((bool_t)0); }  else 
{ /* ./Module/type.scm 84 */
BgL_test2948z00_925 = ((bool_t)1); } }  else 
{ /* ./Module/type.scm 83 */
BgL_test2948z00_925 = ((bool_t)0); } 
if(BgL_test2948z00_925)
{ /* ./Module/type.scm 83 */
return 
BGl_userzd2errorzd2zztools_errorz00(BGl_string3179z00zzmodule_typez00, BGl_string3180z00zzmodule_typez00, BgL_clausez00_20, BNIL);}  else 
{ /* ./Module/type.scm 83 */
{ /* ./Module/type.scm 89 */
obj_t BgL_arg2952z00_927;obj_t BgL_arg2953z00_928;
BgL_arg2952z00_927 = 
CDR(BgL_walkz00_918); 
BgL_arg2953z00_928 = 
(((BgL_typez00_bglt)CREF(BgL_tparentz00_923))->BgL_classz00); 
{ 
obj_t BgL_classz00_2061;obj_t BgL_walkz00_2060;
BgL_walkz00_2060 = BgL_arg2952z00_927; 
BgL_classz00_2061 = BgL_arg2953z00_928; 
BgL_classz00_919 = BgL_classz00_2061; 
BgL_walkz00_918 = BgL_walkz00_2060; 
goto BgL_loopz00_920;} } } }  else 
{ /* ./Module/type.scm 81 */
return 
BGl_userzd2errorzd2zztools_errorz00(BGl_string3179z00zzmodule_typez00, BGl_string3181z00zzmodule_typez00, BgL_clausez00_20, BNIL);} } } }  else 
{ /* ./Module/type.scm 76 */
return 
BGl_userzd2errorzd2zztools_errorz00(BGl_string3177z00zzmodule_typez00, BGl_string3182z00zzmodule_typez00, BgL_clausez00_20, BNIL);} } } } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
obj_t BgL_cdrzd2516zd2_191;
BgL_cdrzd2516zd2_191 = 
CDR(BgL_clausez00_20); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1306z00_192;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2067;obj_t BgL_auxz00_2065;
BgL_auxz00_2067 = 
CNST_TABLE_REF(((long)5)); 
BgL_auxz00_2065 = 
CAR(BgL_clausez00_20); 
BgL_test1306z00_192 = 
(BgL_auxz00_2065==BgL_auxz00_2067); } 
if(BgL_test1306z00_192)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd2523zd2_193;obj_t BgL_cdrzd2524zd2_194;
BgL_carzd2523zd2_193 = 
CAR(BgL_cdrzd2516zd2_191); 
BgL_cdrzd2524zd2_194 = 
CDR(BgL_cdrzd2516zd2_191); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1307z00_195;
BgL_test1307z00_195 = 
SYMBOLP(BgL_carzd2523zd2_193); 
if(BgL_test1307z00_195)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd2534zd2_196;obj_t BgL_cdrzd2535zd2_197;
BgL_carzd2534zd2_196 = 
CAR(BgL_cdrzd2524zd2_194); 
BgL_cdrzd2535zd2_197 = 
CDR(BgL_cdrzd2524zd2_194); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1308z00_198;
BgL_test1308z00_198 = 
SYMBOLP(BgL_carzd2534zd2_196); 
if(BgL_test1308z00_198)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1309z00_199;
BgL_test1309z00_199 = 
PAIRP(BgL_cdrzd2535zd2_197); 
if(BgL_test1309z00_199)
{ /* ./Module/type.scm 55 */
obj_t BgL_cdrzd2544zd2_200;
BgL_cdrzd2544zd2_200 = 
CDR(BgL_cdrzd2535zd2_197); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1310z00_201;
BgL_test1310z00_201 = 
PAIRP(BgL_cdrzd2544zd2_200); 
if(BgL_test1310z00_201)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1311z00_202;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2084;
BgL_auxz00_2084 = 
CDR(BgL_cdrzd2544zd2_200); 
BgL_test1311z00_202 = 
NULLP(BgL_auxz00_2084); } 
if(BgL_test1311z00_202)
{ /* ./Module/type.scm 55 */
obj_t BgL_arg1313z00_203;obj_t BgL_arg1314z00_204;
BgL_arg1313z00_203 = 
CAR(BgL_cdrzd2535zd2_197); 
BgL_arg1314z00_204 = 
CAR(BgL_cdrzd2544zd2_200); 
BgL_fromz00_140 = BgL_carzd2523zd2_193; 
BgL_toz00_141 = BgL_carzd2534zd2_196; 
BgL_checkz00_142 = BgL_arg1313z00_203; 
BgL_coercez00_143 = BgL_arg1314z00_204; 
BgL_tagzd2133zd2_144:
{ /* ./Module/type.scm 98 */
bool_t BgL_test2983z00_938;
{ /* ./Module/type.scm 98 */
bool_t BgL_test2998z00_946;
{ 
obj_t BgL_checkz00_968;
{ /* ./Module/type.scm 98 */
obj_t BgL_auxz00_2090;
BgL_checkz00_968 = BgL_checkz00_142; 
BgL_loopz00_969:
{ /* ./Module/type.scm 100 */
bool_t BgL_test3041z00_970;
BgL_test3041z00_970 = 
NULLP(BgL_checkz00_968); 
if(BgL_test3041z00_970)
{ /* ./Module/type.scm 100 */
BgL_auxz00_2090 = BTRUE; }  else 
{ /* ./Module/type.scm 102 */
bool_t BgL_test3042z00_971;
{ /* ./Module/type.scm 102 */
obj_t BgL_auxz00_2093;
BgL_auxz00_2093 = 
CAR(BgL_checkz00_968); 
BgL_test3042z00_971 = 
SYMBOLP(BgL_auxz00_2093); } 
if(BgL_test3042z00_971)
{ /* ./Module/type.scm 102 */
{ /* ./Module/type.scm 105 */
obj_t BgL_arg3044z00_972;
BgL_arg3044z00_972 = 
CDR(BgL_checkz00_968); 
{ 
obj_t BgL_checkz00_2098;
BgL_checkz00_2098 = BgL_arg3044z00_972; 
BgL_checkz00_968 = BgL_checkz00_2098; 
goto BgL_loopz00_969;} } }  else 
{ /* ./Module/type.scm 102 */
{ /* ./Module/type.scm 103 */
obj_t BgL_list3048z00_973;
BgL_list3048z00_973 = 
MAKE_PAIR(BFALSE, BNIL); 
BgL_auxz00_2090 = 
BGl_userzd2errorzd2zztools_errorz00(BGl_string3183z00zzmodule_typez00, BGl_string3184z00zzmodule_typez00, BgL_clausez00_20, BgL_list3048z00_973); } } } } 
BgL_test2998z00_946 = 
CBOOL(BgL_auxz00_2090); } } 
if(BgL_test2998z00_946)
{ 
obj_t BgL_coercez00_947;
{ /* ./Module/type.scm 106 */
obj_t BgL_auxz00_2103;
BgL_coercez00_947 = BgL_coercez00_143; 
BgL_loopz00_948:
{ /* ./Module/type.scm 108 */
bool_t BgL_test3000z00_949;
BgL_test3000z00_949 = 
NULLP(BgL_coercez00_947); 
if(BgL_test3000z00_949)
{ /* ./Module/type.scm 108 */
BgL_auxz00_2103 = BTRUE; }  else 
{ /* ./Module/type.scm 110 */
bool_t BgL_test3001z00_950;
{ /* ./Module/type.scm 110 */
obj_t BgL_ezd25649zd2_956;
BgL_ezd25649zd2_956 = 
CAR(BgL_coercez00_947); 
if(
SYMBOLP(BgL_ezd25649zd2_956))
{ /* ./Module/type.scm 110 */
BgL_test3001z00_950 = ((bool_t)0); }  else 
{ /* ./Module/type.scm 110 */
if(
PAIRP(BgL_ezd25649zd2_956))
{ /* ./Module/type.scm 110 */
obj_t BgL_cdrzd25651zd2_959;
BgL_cdrzd25651zd2_959 = 
CDR(BgL_ezd25649zd2_956); 
{ /* ./Module/type.scm 110 */
bool_t BgL_testz00_2112;
{ /* ./Module/type.scm 110 */
obj_t BgL_auxz00_2115;obj_t BgL_auxz00_2113;
BgL_auxz00_2115 = 
CNST_TABLE_REF(((long)1)); 
BgL_auxz00_2113 = 
CAR(BgL_ezd25649zd2_956); 
BgL_testz00_2112 = 
(BgL_auxz00_2113==BgL_auxz00_2115); } 
if(BgL_testz00_2112)
{ /* ./Module/type.scm 110 */
if(
PAIRP(BgL_cdrzd25651zd2_959))
{ /* ./Module/type.scm 110 */
obj_t BgL_carzd25652zd2_962;
BgL_carzd25652zd2_962 = 
CAR(BgL_cdrzd25651zd2_959); 
if(
PAIRP(BgL_carzd25652zd2_962))
{ /* ./Module/type.scm 110 */
bool_t BgL_testz00_2123;
{ /* ./Module/type.scm 110 */
obj_t BgL_auxz00_2124;
BgL_auxz00_2124 = 
CDR(BgL_carzd25652zd2_962); 
BgL_testz00_2123 = 
NULLP(BgL_auxz00_2124); } 
if(BgL_testz00_2123)
{ /* ./Module/type.scm 110 */
BgL_test3001z00_950 = ((bool_t)0); }  else 
{ /* ./Module/type.scm 110 */
BgL_test3001z00_950 = ((bool_t)1); } }  else 
{ /* ./Module/type.scm 110 */
BgL_test3001z00_950 = ((bool_t)1); } }  else 
{ /* ./Module/type.scm 110 */
BgL_test3001z00_950 = ((bool_t)1); } }  else 
{ /* ./Module/type.scm 110 */
BgL_test3001z00_950 = ((bool_t)1); } } }  else 
{ /* ./Module/type.scm 110 */
BgL_test3001z00_950 = ((bool_t)1); } } } 
if(BgL_test3001z00_950)
{ /* ./Module/type.scm 110 */
{ /* ./Module/type.scm 114 */
obj_t BgL_list3003z00_951;
BgL_list3003z00_951 = 
MAKE_PAIR(BFALSE, BNIL); 
BgL_auxz00_2103 = 
BGl_userzd2errorzd2zztools_errorz00(BGl_string3183z00zzmodule_typez00, BGl_string3184z00zzmodule_typez00, BgL_clausez00_20, BgL_list3003z00_951); } }  else 
{ /* ./Module/type.scm 110 */
{ /* ./Module/type.scm 116 */
obj_t BgL_arg3007z00_952;
BgL_arg3007z00_952 = 
CDR(BgL_coercez00_947); 
{ 
obj_t BgL_coercez00_2131;
BgL_coercez00_2131 = BgL_arg3007z00_952; 
BgL_coercez00_947 = BgL_coercez00_2131; 
goto BgL_loopz00_948;} } } } } 
BgL_test2983z00_938 = 
CBOOL(BgL_auxz00_2103); } }  else 
{ /* ./Module/type.scm 98 */
BgL_test2983z00_938 = ((bool_t)0); } } 
if(BgL_test2983z00_938)
{ /* ./Module/type.scm 117 */
obj_t BgL_locz00_939;
BgL_locz00_939 = 
BGl_findzd2locationzd2zztools_locationz00(BgL_clausez00_20); 
{ /* ./Module/type.scm 117 */
BgL_typez00_bglt BgL_tfromz00_940;
BgL_tfromz00_940 = 
BGl_usezd2typez12zc0zztype_envz00(BgL_fromz00_140, BgL_locz00_939); 
{ /* ./Module/type.scm 118 */
BgL_typez00_bglt BgL_ttoz00_941;
BgL_ttoz00_941 = 
BGl_usezd2typez12zc0zztype_envz00(BgL_toz00_141, BgL_locz00_939); 
{ /* ./Module/type.scm 119 */

{ /* ./Module/type.scm 121 */
bool_t BgL_test2984z00_942;
{ /* ./Module/type.scm 121 */
obj_t BgL_obj1108z00_1845;
BgL_obj1108z00_1845 = 
(obj_t)(BgL_tfromz00_940); 
BgL_test2984z00_942 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1108z00_1845, BGl_typez00zztype_typez00); } 
if(BgL_test2984z00_942)
{ /* ./Module/type.scm 123 */
bool_t BgL_test2985z00_943;
{ /* ./Module/type.scm 123 */
obj_t BgL_obj1108z00_1846;
BgL_obj1108z00_1846 = 
(obj_t)(BgL_ttoz00_941); 
BgL_test2985z00_943 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1108z00_1846, BGl_typez00zztype_typez00); } 
if(BgL_test2985z00_943)
{ /* ./Module/type.scm 123 */
return 
BGl_addzd2coercionz12zc0zztype_coercionz00(BgL_tfromz00_940, BgL_ttoz00_941, BgL_checkz00_142, BgL_coercez00_143);}  else 
{ /* ./Module/type.scm 123 */
{ /* ./Module/type.scm 124 */
obj_t BgL_list2988z00_944;
BgL_list2988z00_944 = 
MAKE_PAIR(BNIL, BNIL); 
return 
BGl_userzd2errorzd2zztools_errorz00(BGl_string3185z00zzmodule_typez00, BGl_string3186z00zzmodule_typez00, BgL_toz00_141, BgL_list2988z00_944);} } }  else 
{ /* ./Module/type.scm 121 */
{ /* ./Module/type.scm 122 */
obj_t BgL_list2992z00_945;
BgL_list2992z00_945 = 
MAKE_PAIR(BNIL, BNIL); 
return 
BGl_userzd2errorzd2zztools_errorz00(BGl_string3185z00zzmodule_typez00, BGl_string3186z00zzmodule_typez00, BgL_fromz00_140, BgL_list2992z00_945);} } } } } } }  else 
{ /* ./Module/type.scm 98 */
return BNIL;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } } } } }  else 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1363z00_214;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2150;obj_t BgL_auxz00_2148;
BgL_auxz00_2150 = 
CNST_TABLE_REF(((long)3)); 
BgL_auxz00_2148 = 
CAR(BgL_clausez00_20); 
BgL_test1363z00_214 = 
(BgL_auxz00_2148==BgL_auxz00_2150); } 
if(BgL_test1363z00_214)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd2572zd2_215;obj_t BgL_cdrzd2573zd2_216;
BgL_carzd2572zd2_215 = 
CAR(BgL_cdrzd2149zd2_149); 
BgL_cdrzd2573zd2_216 = 
CDR(BgL_cdrzd2149zd2_149); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1364z00_217;
BgL_test1364z00_217 = 
SYMBOLP(BgL_carzd2572zd2_215); 
if(BgL_test1364z00_217)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd2581zd2_218;obj_t BgL_cdrzd2582zd2_219;
BgL_carzd2581zd2_218 = 
CAR(BgL_cdrzd2573zd2_216); 
BgL_cdrzd2582zd2_219 = 
CDR(BgL_cdrzd2573zd2_216); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1365z00_220;
BgL_test1365z00_220 = 
STRINGP(BgL_carzd2581zd2_218); 
if(BgL_test1365z00_220)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1366z00_221;
BgL_test1366z00_221 = 
PAIRP(BgL_cdrzd2582zd2_219); 
if(BgL_test1366z00_221)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd2588zd2_222;
BgL_carzd2588zd2_222 = 
CAR(BgL_cdrzd2582zd2_219); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1367z00_223;
BgL_test1367z00_223 = 
SYMBOLP(BgL_carzd2588zd2_222); 
if(BgL_test1367z00_223)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1368z00_224;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2167;
BgL_auxz00_2167 = 
CDR(BgL_cdrzd2582zd2_219); 
BgL_test1368z00_224 = 
NULLP(BgL_auxz00_2167); } 
if(BgL_test1368z00_224)
{ /* ./Module/type.scm 55 */
BgL_typez00_bglt BgL_typez00_1142;
BgL_typez00_1142 = 
BGl_declarezd2typez12zc0zztype_envz00(BgL_carzd2572zd2_215, BgL_carzd2581zd2_218, BgL_carzd2588zd2_222); 
{ /* ./Module/type.scm 55 */
BgL_typez00_bglt BgL_obj1044z00_1143;bool_t BgL_val1043z00_1144;
BgL_obj1044z00_1143 = BgL_typez00_1142; 
BgL_val1043z00_1144 = ((bool_t)1); 
((((BgL_typez00_bglt)CREF(BgL_obj1044z00_1143))->BgL_magiczf3zf3) = ((bool_t)BgL_val1043z00_1144), BUNSPEC); } 
return 
(obj_t)(BgL_typez00_1142);}  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1388z00_227;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2176;obj_t BgL_auxz00_2174;
BgL_auxz00_2176 = 
CNST_TABLE_REF(((long)4)); 
BgL_auxz00_2174 = 
CAR(BgL_clausez00_20); 
BgL_test1388z00_227 = 
(BgL_auxz00_2174==BgL_auxz00_2176); } 
if(BgL_test1388z00_227)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd2753zd2_228;obj_t BgL_cdrzd2754zd2_229;
BgL_carzd2753zd2_228 = 
CAR(BgL_cdrzd2149zd2_149); 
BgL_cdrzd2754zd2_229 = 
CDR(BgL_cdrzd2149zd2_149); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1389z00_230;
BgL_test1389z00_230 = 
SYMBOLP(BgL_carzd2753zd2_228); 
if(BgL_test1389z00_230)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd2763zd2_231;obj_t BgL_cdrzd2764zd2_232;
BgL_carzd2763zd2_231 = 
CAR(BgL_cdrzd2754zd2_229); 
BgL_cdrzd2764zd2_232 = 
CDR(BgL_cdrzd2754zd2_229); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1390z00_233;
BgL_test1390z00_233 = 
STRINGP(BgL_carzd2763zd2_231); 
if(BgL_test1390z00_233)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1391z00_234;
BgL_test1391z00_234 = 
PAIRP(BgL_cdrzd2764zd2_232); 
if(BgL_test1391z00_234)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd2770zd2_235;
BgL_carzd2770zd2_235 = 
CAR(BgL_cdrzd2764zd2_232); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1392z00_236;
BgL_test1392z00_236 = 
PAIRP(BgL_carzd2770zd2_235); 
if(BgL_test1392z00_236)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1393z00_237;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2193;
BgL_auxz00_2193 = 
CDR(BgL_cdrzd2764zd2_232); 
BgL_test1393z00_237 = 
NULLP(BgL_auxz00_2193); } 
if(BgL_test1393z00_237)
{ 
obj_t BgL_parentz00_2199;obj_t BgL_namez00_2198;obj_t BgL_childz00_2197;
BgL_childz00_2197 = BgL_carzd2753zd2_228; 
BgL_namez00_2198 = BgL_carzd2763zd2_231; 
BgL_parentz00_2199 = BgL_carzd2770zd2_235; 
BgL_parentz00_135 = BgL_parentz00_2199; 
BgL_namez00_134 = BgL_namez00_2198; 
BgL_childz00_133 = BgL_childz00_2197; 
goto BgL_tagzd2131zd2_136;}  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
obj_t BgL_cdrzd2864zd2_239;
BgL_cdrzd2864zd2_239 = 
CDR(BgL_clausez00_20); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1413z00_240;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2203;obj_t BgL_auxz00_2201;
BgL_auxz00_2203 = 
CNST_TABLE_REF(((long)6)); 
BgL_auxz00_2201 = 
CAR(BgL_clausez00_20); 
BgL_test1413z00_240 = 
(BgL_auxz00_2201==BgL_auxz00_2203); } 
if(BgL_test1413z00_240)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd2868zd2_241;obj_t BgL_cdrzd2869zd2_242;
BgL_carzd2868zd2_241 = 
CAR(BgL_cdrzd2864zd2_239); 
BgL_cdrzd2869zd2_242 = 
CDR(BgL_cdrzd2864zd2_239); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1414z00_243;
BgL_test1414z00_243 = 
SYMBOLP(BgL_carzd2868zd2_241); 
if(BgL_test1414z00_243)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd2876zd2_244;
BgL_carzd2876zd2_244 = 
CAR(BgL_cdrzd2869zd2_242); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1415z00_245;
BgL_test1415z00_245 = 
PAIRP(BgL_carzd2876zd2_244); 
if(BgL_test1415z00_245)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd2879zd2_246;
BgL_carzd2879zd2_246 = 
CAR(BgL_carzd2876zd2_244); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1416z00_247;
BgL_test1416z00_247 = 
SYMBOLP(BgL_carzd2879zd2_246); 
if(BgL_test1416z00_247)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1417z00_248;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2217;
BgL_auxz00_2217 = 
CDR(BgL_carzd2876zd2_244); 
BgL_test1417z00_248 = 
NULLP(BgL_auxz00_2217); } 
if(BgL_test1417z00_248)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1419z00_249;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2221;
BgL_auxz00_2221 = 
CDR(BgL_cdrzd2869zd2_242); 
BgL_test1419z00_249 = 
NULLP(BgL_auxz00_2221); } 
if(BgL_test1419z00_249)
{ /* ./Module/type.scm 55 */
BgL_tvecz00_bglt BgL_auxz00_2225;
BgL_idz00_137 = BgL_carzd2868zd2_241; 
BgL_itemzd2typezd2_138 = BgL_carzd2879zd2_246; 
BgL_tagzd2132zd2_139:
{ /* ./Module/type.scm 92 */
BgL_tvecz00_bglt BgL_tvecz00_936;
BgL_tvecz00_936 = 
BGl_declarezd2tvectorzd2typez12z12zztvector_tvectorz00(BgL_idz00_137, BgL_itemzd2typezd2_138, BgL_clausez00_20); 
{ /* ./Module/type.scm 94 */
obj_t BgL_arg2979z00_937;
BgL_arg2979z00_937 = 
BGl_makezd2tvectorzd2accessesz00zztvector_accessz00(BgL_tvecz00_936, BgL_clausez00_20); 
BGl_za2tvectorzd2accessesza2zd2zzmodule_typez00 = 
bgl_append2(BgL_arg2979z00_937, BGl_za2tvectorzd2accessesza2zd2zzmodule_typez00); } 
BgL_auxz00_2225 = BgL_tvecz00_936; } 
return 
(obj_t)(BgL_auxz00_2225);}  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1441z00_253;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2232;obj_t BgL_auxz00_2230;
BgL_auxz00_2232 = 
CNST_TABLE_REF(((long)5)); 
BgL_auxz00_2230 = 
CAR(BgL_clausez00_20); 
BgL_test1441z00_253 = 
(BgL_auxz00_2230==BgL_auxz00_2232); } 
if(BgL_test1441z00_253)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd2942zd2_254;obj_t BgL_cdrzd2943zd2_255;
BgL_carzd2942zd2_254 = 
CAR(BgL_cdrzd2864zd2_239); 
BgL_cdrzd2943zd2_255 = 
CDR(BgL_cdrzd2864zd2_239); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1442z00_256;
BgL_test1442z00_256 = 
SYMBOLP(BgL_carzd2942zd2_254); 
if(BgL_test1442z00_256)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd2953zd2_257;obj_t BgL_cdrzd2954zd2_258;
BgL_carzd2953zd2_257 = 
CAR(BgL_cdrzd2943zd2_255); 
BgL_cdrzd2954zd2_258 = 
CDR(BgL_cdrzd2943zd2_255); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1443z00_259;
BgL_test1443z00_259 = 
SYMBOLP(BgL_carzd2953zd2_257); 
if(BgL_test1443z00_259)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1444z00_260;
BgL_test1444z00_260 = 
PAIRP(BgL_cdrzd2954zd2_258); 
if(BgL_test1444z00_260)
{ /* ./Module/type.scm 55 */
obj_t BgL_cdrzd2963zd2_261;
BgL_cdrzd2963zd2_261 = 
CDR(BgL_cdrzd2954zd2_258); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1445z00_262;
BgL_test1445z00_262 = 
PAIRP(BgL_cdrzd2963zd2_261); 
if(BgL_test1445z00_262)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1446z00_263;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2249;
BgL_auxz00_2249 = 
CDR(BgL_cdrzd2963zd2_261); 
BgL_test1446z00_263 = 
NULLP(BgL_auxz00_2249); } 
if(BgL_test1446z00_263)
{ /* ./Module/type.scm 55 */
obj_t BgL_arg1448z00_264;obj_t BgL_arg1450z00_265;
BgL_arg1448z00_264 = 
CAR(BgL_cdrzd2954zd2_258); 
BgL_arg1450z00_265 = 
CAR(BgL_cdrzd2963zd2_261); 
{ 
obj_t BgL_coercez00_2258;obj_t BgL_checkz00_2257;obj_t BgL_toz00_2256;obj_t BgL_fromz00_2255;
BgL_fromz00_2255 = BgL_carzd2942zd2_254; 
BgL_toz00_2256 = BgL_carzd2953zd2_257; 
BgL_checkz00_2257 = BgL_arg1448z00_264; 
BgL_coercez00_2258 = BgL_arg1450z00_265; 
BgL_coercez00_143 = BgL_coercez00_2258; 
BgL_checkz00_142 = BgL_checkz00_2257; 
BgL_toz00_141 = BgL_toz00_2256; 
BgL_fromz00_140 = BgL_fromz00_2255; 
goto BgL_tagzd2133zd2_144;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } } } } } } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1505z00_276;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2261;obj_t BgL_auxz00_2259;
BgL_auxz00_2261 = 
CNST_TABLE_REF(((long)3)); 
BgL_auxz00_2259 = 
CAR(BgL_clausez00_20); 
BgL_test1505z00_276 = 
(BgL_auxz00_2259==BgL_auxz00_2261); } 
if(BgL_test1505z00_276)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd21034zd2_277;obj_t BgL_cdrzd21035zd2_278;
BgL_carzd21034zd2_277 = 
CAR(BgL_cdrzd2149zd2_149); 
BgL_cdrzd21035zd2_278 = 
CDR(BgL_cdrzd2149zd2_149); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1506z00_279;
BgL_test1506z00_279 = 
SYMBOLP(BgL_carzd21034zd2_277); 
if(BgL_test1506z00_279)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1507z00_280;
BgL_test1507z00_280 = 
PAIRP(BgL_cdrzd21035zd2_278); 
if(BgL_test1507z00_280)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd21042zd2_281;obj_t BgL_cdrzd21043zd2_282;
BgL_carzd21042zd2_281 = 
CAR(BgL_cdrzd21035zd2_278); 
BgL_cdrzd21043zd2_282 = 
CDR(BgL_cdrzd21035zd2_278); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1508z00_283;
BgL_test1508z00_283 = 
STRINGP(BgL_carzd21042zd2_281); 
if(BgL_test1508z00_283)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1509z00_284;
BgL_test1509z00_284 = 
PAIRP(BgL_cdrzd21043zd2_282); 
if(BgL_test1509z00_284)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd21047zd2_285;
BgL_carzd21047zd2_285 = 
CAR(BgL_cdrzd21043zd2_282); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1510z00_286;
BgL_test1510z00_286 = 
SYMBOLP(BgL_carzd21047zd2_285); 
if(BgL_test1510z00_286)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1511z00_287;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2280;
BgL_auxz00_2280 = 
CDR(BgL_cdrzd21043zd2_282); 
BgL_test1511z00_287 = 
NULLP(BgL_auxz00_2280); } 
if(BgL_test1511z00_287)
{ /* ./Module/type.scm 55 */
BgL_typez00_bglt BgL_typez00_1203;
BgL_typez00_1203 = 
BGl_declarezd2typez12zc0zztype_envz00(BgL_carzd21034zd2_277, BgL_carzd21042zd2_281, BgL_carzd21047zd2_285); 
{ /* ./Module/type.scm 55 */
BgL_typez00_bglt BgL_obj1044z00_1204;bool_t BgL_val1043z00_1205;
BgL_obj1044z00_1204 = BgL_typez00_1203; 
BgL_val1043z00_1205 = ((bool_t)1); 
((((BgL_typez00_bglt)CREF(BgL_obj1044z00_1204))->BgL_magiczf3zf3) = ((bool_t)BgL_val1043z00_1205), BUNSPEC); } 
return 
(obj_t)(BgL_typez00_1203);}  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1534z00_290;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2289;obj_t BgL_auxz00_2287;
BgL_auxz00_2289 = 
CNST_TABLE_REF(((long)4)); 
BgL_auxz00_2287 = 
CAR(BgL_clausez00_20); 
BgL_test1534z00_290 = 
(BgL_auxz00_2287==BgL_auxz00_2289); } 
if(BgL_test1534z00_290)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd21238zd2_291;obj_t BgL_cdrzd21239zd2_292;
BgL_carzd21238zd2_291 = 
CAR(BgL_cdrzd2149zd2_149); 
BgL_cdrzd21239zd2_292 = 
CDR(BgL_cdrzd2149zd2_149); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1535z00_293;
BgL_test1535z00_293 = 
SYMBOLP(BgL_carzd21238zd2_291); 
if(BgL_test1535z00_293)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1536z00_294;
BgL_test1536z00_294 = 
PAIRP(BgL_cdrzd21239zd2_292); 
if(BgL_test1536z00_294)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd21247zd2_295;obj_t BgL_cdrzd21248zd2_296;
BgL_carzd21247zd2_295 = 
CAR(BgL_cdrzd21239zd2_292); 
BgL_cdrzd21248zd2_296 = 
CDR(BgL_cdrzd21239zd2_292); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1537z00_297;
BgL_test1537z00_297 = 
STRINGP(BgL_carzd21247zd2_295); 
if(BgL_test1537z00_297)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1538z00_298;
BgL_test1538z00_298 = 
PAIRP(BgL_cdrzd21248zd2_296); 
if(BgL_test1538z00_298)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd21252zd2_299;
BgL_carzd21252zd2_299 = 
CAR(BgL_cdrzd21248zd2_296); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1539z00_300;
BgL_test1539z00_300 = 
PAIRP(BgL_carzd21252zd2_299); 
if(BgL_test1539z00_300)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1540z00_301;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2308;
BgL_auxz00_2308 = 
CDR(BgL_cdrzd21248zd2_296); 
BgL_test1540z00_301 = 
NULLP(BgL_auxz00_2308); } 
if(BgL_test1540z00_301)
{ 
obj_t BgL_parentz00_2314;obj_t BgL_namez00_2313;obj_t BgL_childz00_2312;
BgL_childz00_2312 = BgL_carzd21238zd2_291; 
BgL_namez00_2313 = BgL_carzd21247zd2_295; 
BgL_parentz00_2314 = BgL_carzd21252zd2_299; 
BgL_parentz00_135 = BgL_parentz00_2314; 
BgL_namez00_134 = BgL_namez00_2313; 
BgL_childz00_133 = BgL_childz00_2312; 
goto BgL_tagzd2131zd2_136;}  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
obj_t BgL_cdrzd21362zd2_303;
BgL_cdrzd21362zd2_303 = 
CDR(BgL_clausez00_20); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1563z00_304;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2318;obj_t BgL_auxz00_2316;
BgL_auxz00_2318 = 
CNST_TABLE_REF(((long)6)); 
BgL_auxz00_2316 = 
CAR(BgL_clausez00_20); 
BgL_test1563z00_304 = 
(BgL_auxz00_2316==BgL_auxz00_2318); } 
if(BgL_test1563z00_304)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd21366zd2_305;obj_t BgL_cdrzd21367zd2_306;
BgL_carzd21366zd2_305 = 
CAR(BgL_cdrzd21362zd2_303); 
BgL_cdrzd21367zd2_306 = 
CDR(BgL_cdrzd21362zd2_303); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1564z00_307;
BgL_test1564z00_307 = 
SYMBOLP(BgL_carzd21366zd2_305); 
if(BgL_test1564z00_307)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1565z00_308;
BgL_test1565z00_308 = 
PAIRP(BgL_cdrzd21367zd2_306); 
if(BgL_test1565z00_308)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd21374zd2_309;
BgL_carzd21374zd2_309 = 
CAR(BgL_cdrzd21367zd2_306); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1566z00_310;
BgL_test1566z00_310 = 
PAIRP(BgL_carzd21374zd2_309); 
if(BgL_test1566z00_310)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd21377zd2_311;
BgL_carzd21377zd2_311 = 
CAR(BgL_carzd21374zd2_309); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1567z00_312;
BgL_test1567z00_312 = 
SYMBOLP(BgL_carzd21377zd2_311); 
if(BgL_test1567z00_312)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1568z00_313;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2334;
BgL_auxz00_2334 = 
CDR(BgL_carzd21374zd2_309); 
BgL_test1568z00_313 = 
NULLP(BgL_auxz00_2334); } 
if(BgL_test1568z00_313)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1569z00_314;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2338;
BgL_auxz00_2338 = 
CDR(BgL_cdrzd21367zd2_306); 
BgL_test1569z00_314 = 
NULLP(BgL_auxz00_2338); } 
if(BgL_test1569z00_314)
{ /* ./Module/type.scm 55 */
BgL_tvecz00_bglt BgL_auxz00_2342;
{ 
obj_t BgL_itemzd2typezd2_2344;obj_t BgL_idz00_2343;
BgL_idz00_2343 = BgL_carzd21366zd2_305; 
BgL_itemzd2typezd2_2344 = BgL_carzd21377zd2_311; 
BgL_itemzd2typezd2_138 = BgL_itemzd2typezd2_2344; 
BgL_idz00_137 = BgL_idz00_2343; 
goto BgL_tagzd2132zd2_139;} 
return 
(obj_t)(BgL_auxz00_2342);}  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1593z00_318;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2348;obj_t BgL_auxz00_2346;
BgL_auxz00_2348 = 
CNST_TABLE_REF(((long)5)); 
BgL_auxz00_2346 = 
CAR(BgL_clausez00_20); 
BgL_test1593z00_318 = 
(BgL_auxz00_2346==BgL_auxz00_2348); } 
if(BgL_test1593z00_318)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd21446zd2_319;obj_t BgL_cdrzd21447zd2_320;
BgL_carzd21446zd2_319 = 
CAR(BgL_cdrzd21362zd2_303); 
BgL_cdrzd21447zd2_320 = 
CDR(BgL_cdrzd21362zd2_303); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1594z00_321;
BgL_test1594z00_321 = 
SYMBOLP(BgL_carzd21446zd2_319); 
if(BgL_test1594z00_321)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1595z00_322;
BgL_test1595z00_322 = 
PAIRP(BgL_cdrzd21447zd2_320); 
if(BgL_test1595z00_322)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd21456zd2_323;obj_t BgL_cdrzd21457zd2_324;
BgL_carzd21456zd2_323 = 
CAR(BgL_cdrzd21447zd2_320); 
BgL_cdrzd21457zd2_324 = 
CDR(BgL_cdrzd21447zd2_320); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1596z00_325;
BgL_test1596z00_325 = 
SYMBOLP(BgL_carzd21456zd2_323); 
if(BgL_test1596z00_325)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1597z00_326;
BgL_test1597z00_326 = 
PAIRP(BgL_cdrzd21457zd2_324); 
if(BgL_test1597z00_326)
{ /* ./Module/type.scm 55 */
obj_t BgL_cdrzd21464zd2_327;
BgL_cdrzd21464zd2_327 = 
CDR(BgL_cdrzd21457zd2_324); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1598z00_328;
BgL_test1598z00_328 = 
PAIRP(BgL_cdrzd21464zd2_327); 
if(BgL_test1598z00_328)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1599z00_329;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2367;
BgL_auxz00_2367 = 
CDR(BgL_cdrzd21464zd2_327); 
BgL_test1599z00_329 = 
NULLP(BgL_auxz00_2367); } 
if(BgL_test1599z00_329)
{ /* ./Module/type.scm 55 */
obj_t BgL_arg1601z00_330;obj_t BgL_arg1603z00_331;
BgL_arg1601z00_330 = 
CAR(BgL_cdrzd21457zd2_324); 
BgL_arg1603z00_331 = 
CAR(BgL_cdrzd21464zd2_327); 
{ 
obj_t BgL_coercez00_2376;obj_t BgL_checkz00_2375;obj_t BgL_toz00_2374;obj_t BgL_fromz00_2373;
BgL_fromz00_2373 = BgL_carzd21446zd2_319; 
BgL_toz00_2374 = BgL_carzd21456zd2_323; 
BgL_checkz00_2375 = BgL_arg1601z00_330; 
BgL_coercez00_2376 = BgL_arg1603z00_331; 
BgL_coercez00_143 = BgL_coercez00_2376; 
BgL_checkz00_142 = BgL_checkz00_2375; 
BgL_toz00_141 = BgL_toz00_2374; 
BgL_fromz00_140 = BgL_fromz00_2373; 
goto BgL_tagzd2133zd2_144;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } } } } } } }  else 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1664z00_342;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2379;obj_t BgL_auxz00_2377;
BgL_auxz00_2379 = 
CNST_TABLE_REF(((long)3)); 
BgL_auxz00_2377 = 
CAR(BgL_clausez00_20); 
BgL_test1664z00_342 = 
(BgL_auxz00_2377==BgL_auxz00_2379); } 
if(BgL_test1664z00_342)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd21490zd2_343;obj_t BgL_cdrzd21491zd2_344;
BgL_carzd21490zd2_343 = 
CAR(BgL_cdrzd2149zd2_149); 
BgL_cdrzd21491zd2_344 = 
CDR(BgL_cdrzd2149zd2_149); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1665z00_345;
BgL_test1665z00_345 = 
SYMBOLP(BgL_carzd21490zd2_343); 
if(BgL_test1665z00_345)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1666z00_346;
BgL_test1666z00_346 = 
PAIRP(BgL_cdrzd21491zd2_344); 
if(BgL_test1666z00_346)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd21498zd2_347;obj_t BgL_cdrzd21499zd2_348;
BgL_carzd21498zd2_347 = 
CAR(BgL_cdrzd21491zd2_344); 
BgL_cdrzd21499zd2_348 = 
CDR(BgL_cdrzd21491zd2_344); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1667z00_349;
BgL_test1667z00_349 = 
STRINGP(BgL_carzd21498zd2_347); 
if(BgL_test1667z00_349)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1668z00_350;
BgL_test1668z00_350 = 
PAIRP(BgL_cdrzd21499zd2_348); 
if(BgL_test1668z00_350)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd21503zd2_351;
BgL_carzd21503zd2_351 = 
CAR(BgL_cdrzd21499zd2_348); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1669z00_352;
BgL_test1669z00_352 = 
SYMBOLP(BgL_carzd21503zd2_351); 
if(BgL_test1669z00_352)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1670z00_353;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2398;
BgL_auxz00_2398 = 
CDR(BgL_cdrzd21499zd2_348); 
BgL_test1670z00_353 = 
NULLP(BgL_auxz00_2398); } 
if(BgL_test1670z00_353)
{ /* ./Module/type.scm 55 */
BgL_typez00_bglt BgL_typez00_1267;
BgL_typez00_1267 = 
BGl_declarezd2typez12zc0zztype_envz00(BgL_carzd21490zd2_343, BgL_carzd21498zd2_347, BgL_carzd21503zd2_351); 
{ /* ./Module/type.scm 55 */
BgL_typez00_bglt BgL_obj1044z00_1268;bool_t BgL_val1043z00_1269;
BgL_obj1044z00_1268 = BgL_typez00_1267; 
BgL_val1043z00_1269 = ((bool_t)1); 
((((BgL_typez00_bglt)CREF(BgL_obj1044z00_1268))->BgL_magiczf3zf3) = ((bool_t)BgL_val1043z00_1269), BUNSPEC); } 
return 
(obj_t)(BgL_typez00_1267);}  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1692z00_356;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2407;obj_t BgL_auxz00_2405;
BgL_auxz00_2407 = 
CNST_TABLE_REF(((long)4)); 
BgL_auxz00_2405 = 
CAR(BgL_clausez00_20); 
BgL_test1692z00_356 = 
(BgL_auxz00_2405==BgL_auxz00_2407); } 
if(BgL_test1692z00_356)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd21694zd2_357;obj_t BgL_cdrzd21695zd2_358;
BgL_carzd21694zd2_357 = 
CAR(BgL_cdrzd2149zd2_149); 
BgL_cdrzd21695zd2_358 = 
CDR(BgL_cdrzd2149zd2_149); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1693z00_359;
BgL_test1693z00_359 = 
SYMBOLP(BgL_carzd21694zd2_357); 
if(BgL_test1693z00_359)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1694z00_360;
BgL_test1694z00_360 = 
PAIRP(BgL_cdrzd21695zd2_358); 
if(BgL_test1694z00_360)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd21703zd2_361;obj_t BgL_cdrzd21704zd2_362;
BgL_carzd21703zd2_361 = 
CAR(BgL_cdrzd21695zd2_358); 
BgL_cdrzd21704zd2_362 = 
CDR(BgL_cdrzd21695zd2_358); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1695z00_363;
BgL_test1695z00_363 = 
STRINGP(BgL_carzd21703zd2_361); 
if(BgL_test1695z00_363)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1696z00_364;
BgL_test1696z00_364 = 
PAIRP(BgL_cdrzd21704zd2_362); 
if(BgL_test1696z00_364)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd21708zd2_365;
BgL_carzd21708zd2_365 = 
CAR(BgL_cdrzd21704zd2_362); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1697z00_366;
BgL_test1697z00_366 = 
PAIRP(BgL_carzd21708zd2_365); 
if(BgL_test1697z00_366)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1698z00_367;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2426;
BgL_auxz00_2426 = 
CDR(BgL_cdrzd21704zd2_362); 
BgL_test1698z00_367 = 
NULLP(BgL_auxz00_2426); } 
if(BgL_test1698z00_367)
{ 
obj_t BgL_parentz00_2432;obj_t BgL_namez00_2431;obj_t BgL_childz00_2430;
BgL_childz00_2430 = BgL_carzd21694zd2_357; 
BgL_namez00_2431 = BgL_carzd21703zd2_361; 
BgL_parentz00_2432 = BgL_carzd21708zd2_365; 
BgL_parentz00_135 = BgL_parentz00_2432; 
BgL_namez00_134 = BgL_namez00_2431; 
BgL_childz00_133 = BgL_childz00_2430; 
goto BgL_tagzd2131zd2_136;}  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
obj_t BgL_cdrzd21818zd2_369;
BgL_cdrzd21818zd2_369 = 
CDR(BgL_clausez00_20); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1721z00_370;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2436;obj_t BgL_auxz00_2434;
BgL_auxz00_2436 = 
CNST_TABLE_REF(((long)6)); 
BgL_auxz00_2434 = 
CAR(BgL_clausez00_20); 
BgL_test1721z00_370 = 
(BgL_auxz00_2434==BgL_auxz00_2436); } 
if(BgL_test1721z00_370)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd21822zd2_371;obj_t BgL_cdrzd21823zd2_372;
BgL_carzd21822zd2_371 = 
CAR(BgL_cdrzd21818zd2_369); 
BgL_cdrzd21823zd2_372 = 
CDR(BgL_cdrzd21818zd2_369); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1723z00_373;
BgL_test1723z00_373 = 
SYMBOLP(BgL_carzd21822zd2_371); 
if(BgL_test1723z00_373)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1725z00_374;
BgL_test1725z00_374 = 
PAIRP(BgL_cdrzd21823zd2_372); 
if(BgL_test1725z00_374)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd21830zd2_375;
BgL_carzd21830zd2_375 = 
CAR(BgL_cdrzd21823zd2_372); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1726z00_376;
BgL_test1726z00_376 = 
PAIRP(BgL_carzd21830zd2_375); 
if(BgL_test1726z00_376)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd21833zd2_377;
BgL_carzd21833zd2_377 = 
CAR(BgL_carzd21830zd2_375); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1727z00_378;
BgL_test1727z00_378 = 
SYMBOLP(BgL_carzd21833zd2_377); 
if(BgL_test1727z00_378)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1728z00_379;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2452;
BgL_auxz00_2452 = 
CDR(BgL_carzd21830zd2_375); 
BgL_test1728z00_379 = 
NULLP(BgL_auxz00_2452); } 
if(BgL_test1728z00_379)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1729z00_380;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2456;
BgL_auxz00_2456 = 
CDR(BgL_cdrzd21823zd2_372); 
BgL_test1729z00_380 = 
NULLP(BgL_auxz00_2456); } 
if(BgL_test1729z00_380)
{ /* ./Module/type.scm 55 */
BgL_tvecz00_bglt BgL_auxz00_2460;
{ 
obj_t BgL_itemzd2typezd2_2462;obj_t BgL_idz00_2461;
BgL_idz00_2461 = BgL_carzd21822zd2_371; 
BgL_itemzd2typezd2_2462 = BgL_carzd21833zd2_377; 
BgL_itemzd2typezd2_138 = BgL_itemzd2typezd2_2462; 
BgL_idz00_137 = BgL_idz00_2461; 
goto BgL_tagzd2132zd2_139;} 
return 
(obj_t)(BgL_auxz00_2460);}  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1753z00_384;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2466;obj_t BgL_auxz00_2464;
BgL_auxz00_2466 = 
CNST_TABLE_REF(((long)5)); 
BgL_auxz00_2464 = 
CAR(BgL_clausez00_20); 
BgL_test1753z00_384 = 
(BgL_auxz00_2464==BgL_auxz00_2466); } 
if(BgL_test1753z00_384)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd21902zd2_385;obj_t BgL_cdrzd21903zd2_386;
BgL_carzd21902zd2_385 = 
CAR(BgL_cdrzd21818zd2_369); 
BgL_cdrzd21903zd2_386 = 
CDR(BgL_cdrzd21818zd2_369); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1754z00_387;
BgL_test1754z00_387 = 
SYMBOLP(BgL_carzd21902zd2_385); 
if(BgL_test1754z00_387)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1755z00_388;
BgL_test1755z00_388 = 
PAIRP(BgL_cdrzd21903zd2_386); 
if(BgL_test1755z00_388)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd21912zd2_389;obj_t BgL_cdrzd21913zd2_390;
BgL_carzd21912zd2_389 = 
CAR(BgL_cdrzd21903zd2_386); 
BgL_cdrzd21913zd2_390 = 
CDR(BgL_cdrzd21903zd2_386); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1756z00_391;
BgL_test1756z00_391 = 
SYMBOLP(BgL_carzd21912zd2_389); 
if(BgL_test1756z00_391)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1757z00_392;
BgL_test1757z00_392 = 
PAIRP(BgL_cdrzd21913zd2_390); 
if(BgL_test1757z00_392)
{ /* ./Module/type.scm 55 */
obj_t BgL_cdrzd21920zd2_393;
BgL_cdrzd21920zd2_393 = 
CDR(BgL_cdrzd21913zd2_390); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1758z00_394;
BgL_test1758z00_394 = 
PAIRP(BgL_cdrzd21920zd2_393); 
if(BgL_test1758z00_394)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1759z00_395;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2485;
BgL_auxz00_2485 = 
CDR(BgL_cdrzd21920zd2_393); 
BgL_test1759z00_395 = 
NULLP(BgL_auxz00_2485); } 
if(BgL_test1759z00_395)
{ /* ./Module/type.scm 55 */
obj_t BgL_arg1761z00_396;obj_t BgL_arg1762z00_397;
BgL_arg1761z00_396 = 
CAR(BgL_cdrzd21913zd2_390); 
BgL_arg1762z00_397 = 
CAR(BgL_cdrzd21920zd2_393); 
{ 
obj_t BgL_coercez00_2494;obj_t BgL_checkz00_2493;obj_t BgL_toz00_2492;obj_t BgL_fromz00_2491;
BgL_fromz00_2491 = BgL_carzd21902zd2_385; 
BgL_toz00_2492 = BgL_carzd21912zd2_389; 
BgL_checkz00_2493 = BgL_arg1761z00_396; 
BgL_coercez00_2494 = BgL_arg1762z00_397; 
BgL_coercez00_143 = BgL_coercez00_2494; 
BgL_checkz00_142 = BgL_checkz00_2493; 
BgL_toz00_141 = BgL_toz00_2492; 
BgL_fromz00_140 = BgL_fromz00_2491; 
goto BgL_tagzd2133zd2_144;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } } } } } } }  else 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1818z00_410;
BgL_test1818z00_410 = 
SYMBOLP(BgL_carzd2148zd2_148); 
if(BgL_test1818z00_410)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd21950zd2_411;obj_t BgL_cdrzd21951zd2_412;
BgL_carzd21950zd2_411 = 
CAR(BgL_cdrzd2149zd2_149); 
BgL_cdrzd21951zd2_412 = 
CDR(BgL_cdrzd2149zd2_149); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1819z00_413;
BgL_test1819z00_413 = 
STRINGP(BgL_carzd21950zd2_411); 
if(BgL_test1819z00_413)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1820z00_414;
BgL_test1820z00_414 = 
PAIRP(BgL_cdrzd21951zd2_412); 
if(BgL_test1820z00_414)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd21957zd2_415;
BgL_carzd21957zd2_415 = 
CAR(BgL_cdrzd21951zd2_412); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1821z00_416;
BgL_test1821z00_416 = 
SYMBOLP(BgL_carzd21957zd2_415); 
if(BgL_test1821z00_416)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1822z00_417;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2506;
BgL_auxz00_2506 = 
CDR(BgL_cdrzd21951zd2_412); 
BgL_test1822z00_417 = 
NULLP(BgL_auxz00_2506); } 
if(BgL_test1822z00_417)
{ /* ./Module/type.scm 55 */
BgL_typez00_bglt BgL_auxz00_2510;
BgL_auxz00_2510 = 
BGl_declarezd2typez12zc0zztype_envz00(BgL_carzd2148zd2_148, BgL_carzd21950zd2_411, BgL_carzd21957zd2_415); 
return 
(obj_t)(BgL_auxz00_2510);}  else 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1824z00_419;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2515;obj_t BgL_auxz00_2513;
BgL_auxz00_2515 = 
CNST_TABLE_REF(((long)3)); 
BgL_auxz00_2513 = 
CAR(BgL_clausez00_20); 
BgL_test1824z00_419 = 
(BgL_auxz00_2513==BgL_auxz00_2515); } 
if(BgL_test1824z00_419)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd21983zd2_420;obj_t BgL_cdrzd21984zd2_421;
BgL_carzd21983zd2_420 = 
CAR(BgL_cdrzd2149zd2_149); 
BgL_cdrzd21984zd2_421 = 
CDR(BgL_cdrzd2149zd2_149); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1825z00_422;
BgL_test1825z00_422 = 
SYMBOLP(BgL_carzd21983zd2_420); 
if(BgL_test1825z00_422)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd21992zd2_423;obj_t BgL_cdrzd21993zd2_424;
BgL_carzd21992zd2_423 = 
CAR(BgL_cdrzd21984zd2_421); 
BgL_cdrzd21993zd2_424 = 
CDR(BgL_cdrzd21984zd2_421); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1827z00_425;
BgL_test1827z00_425 = 
STRINGP(BgL_carzd21992zd2_423); 
if(BgL_test1827z00_425)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1828z00_426;
BgL_test1828z00_426 = 
PAIRP(BgL_cdrzd21993zd2_424); 
if(BgL_test1828z00_426)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd21999zd2_427;
BgL_carzd21999zd2_427 = 
CAR(BgL_cdrzd21993zd2_424); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1830z00_428;
BgL_test1830z00_428 = 
SYMBOLP(BgL_carzd21999zd2_427); 
if(BgL_test1830z00_428)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1831z00_429;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2532;
BgL_auxz00_2532 = 
CDR(BgL_cdrzd21993zd2_424); 
BgL_test1831z00_429 = 
NULLP(BgL_auxz00_2532); } 
if(BgL_test1831z00_429)
{ /* ./Module/type.scm 55 */
BgL_typez00_bglt BgL_typez00_1344;
BgL_typez00_1344 = 
BGl_declarezd2typez12zc0zztype_envz00(BgL_carzd21983zd2_420, BgL_carzd21992zd2_423, BgL_carzd21999zd2_427); 
{ /* ./Module/type.scm 55 */
BgL_typez00_bglt BgL_obj1044z00_1345;bool_t BgL_val1043z00_1346;
BgL_obj1044z00_1345 = BgL_typez00_1344; 
BgL_val1043z00_1346 = ((bool_t)1); 
((((BgL_typez00_bglt)CREF(BgL_obj1044z00_1345))->BgL_magiczf3zf3) = ((bool_t)BgL_val1043z00_1346), BUNSPEC); } 
return 
(obj_t)(BgL_typez00_1344);}  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1852z00_432;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2541;obj_t BgL_auxz00_2539;
BgL_auxz00_2541 = 
CNST_TABLE_REF(((long)4)); 
BgL_auxz00_2539 = 
CAR(BgL_clausez00_20); 
BgL_test1852z00_432 = 
(BgL_auxz00_2539==BgL_auxz00_2541); } 
if(BgL_test1852z00_432)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd22164zd2_433;obj_t BgL_cdrzd22165zd2_434;
BgL_carzd22164zd2_433 = 
CAR(BgL_cdrzd2149zd2_149); 
BgL_cdrzd22165zd2_434 = 
CDR(BgL_cdrzd2149zd2_149); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1853z00_435;
BgL_test1853z00_435 = 
SYMBOLP(BgL_carzd22164zd2_433); 
if(BgL_test1853z00_435)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd22174zd2_436;obj_t BgL_cdrzd22175zd2_437;
BgL_carzd22174zd2_436 = 
CAR(BgL_cdrzd22165zd2_434); 
BgL_cdrzd22175zd2_437 = 
CDR(BgL_cdrzd22165zd2_434); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1855z00_438;
BgL_test1855z00_438 = 
STRINGP(BgL_carzd22174zd2_436); 
if(BgL_test1855z00_438)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1856z00_439;
BgL_test1856z00_439 = 
PAIRP(BgL_cdrzd22175zd2_437); 
if(BgL_test1856z00_439)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd22181zd2_440;
BgL_carzd22181zd2_440 = 
CAR(BgL_cdrzd22175zd2_437); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1857z00_441;
BgL_test1857z00_441 = 
PAIRP(BgL_carzd22181zd2_440); 
if(BgL_test1857z00_441)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1858z00_442;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2558;
BgL_auxz00_2558 = 
CDR(BgL_cdrzd22175zd2_437); 
BgL_test1858z00_442 = 
NULLP(BgL_auxz00_2558); } 
if(BgL_test1858z00_442)
{ 
obj_t BgL_parentz00_2564;obj_t BgL_namez00_2563;obj_t BgL_childz00_2562;
BgL_childz00_2562 = BgL_carzd22164zd2_433; 
BgL_namez00_2563 = BgL_carzd22174zd2_436; 
BgL_parentz00_2564 = BgL_carzd22181zd2_440; 
BgL_parentz00_135 = BgL_parentz00_2564; 
BgL_namez00_134 = BgL_namez00_2563; 
BgL_childz00_133 = BgL_childz00_2562; 
goto BgL_tagzd2131zd2_136;}  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
obj_t BgL_cdrzd22285zd2_444;
BgL_cdrzd22285zd2_444 = 
CDR(BgL_clausez00_20); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1878z00_445;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2568;obj_t BgL_auxz00_2566;
BgL_auxz00_2568 = 
CNST_TABLE_REF(((long)5)); 
BgL_auxz00_2566 = 
CAR(BgL_clausez00_20); 
BgL_test1878z00_445 = 
(BgL_auxz00_2566==BgL_auxz00_2568); } 
if(BgL_test1878z00_445)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd22292zd2_446;obj_t BgL_cdrzd22293zd2_447;
BgL_carzd22292zd2_446 = 
CAR(BgL_cdrzd22285zd2_444); 
BgL_cdrzd22293zd2_447 = 
CDR(BgL_cdrzd22285zd2_444); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1879z00_448;
BgL_test1879z00_448 = 
SYMBOLP(BgL_carzd22292zd2_446); 
if(BgL_test1879z00_448)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd22303zd2_449;obj_t BgL_cdrzd22304zd2_450;
BgL_carzd22303zd2_449 = 
CAR(BgL_cdrzd22293zd2_447); 
BgL_cdrzd22304zd2_450 = 
CDR(BgL_cdrzd22293zd2_447); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1880z00_451;
BgL_test1880z00_451 = 
SYMBOLP(BgL_carzd22303zd2_449); 
if(BgL_test1880z00_451)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1881z00_452;
BgL_test1881z00_452 = 
PAIRP(BgL_cdrzd22304zd2_450); 
if(BgL_test1881z00_452)
{ /* ./Module/type.scm 55 */
obj_t BgL_cdrzd22313zd2_453;
BgL_cdrzd22313zd2_453 = 
CDR(BgL_cdrzd22304zd2_450); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1882z00_454;
BgL_test1882z00_454 = 
PAIRP(BgL_cdrzd22313zd2_453); 
if(BgL_test1882z00_454)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1884z00_455;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2585;
BgL_auxz00_2585 = 
CDR(BgL_cdrzd22313zd2_453); 
BgL_test1884z00_455 = 
NULLP(BgL_auxz00_2585); } 
if(BgL_test1884z00_455)
{ /* ./Module/type.scm 55 */
obj_t BgL_arg1886z00_456;obj_t BgL_arg1887z00_457;
BgL_arg1886z00_456 = 
CAR(BgL_cdrzd22304zd2_450); 
BgL_arg1887z00_457 = 
CAR(BgL_cdrzd22313zd2_453); 
{ 
obj_t BgL_coercez00_2594;obj_t BgL_checkz00_2593;obj_t BgL_toz00_2592;obj_t BgL_fromz00_2591;
BgL_fromz00_2591 = BgL_carzd22292zd2_446; 
BgL_toz00_2592 = BgL_carzd22303zd2_449; 
BgL_checkz00_2593 = BgL_arg1886z00_456; 
BgL_coercez00_2594 = BgL_arg1887z00_457; 
BgL_coercez00_143 = BgL_coercez00_2594; 
BgL_checkz00_142 = BgL_checkz00_2593; 
BgL_toz00_141 = BgL_toz00_2592; 
BgL_fromz00_140 = BgL_fromz00_2591; 
goto BgL_tagzd2133zd2_144;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } } } } }  else 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1938z00_467;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2597;obj_t BgL_auxz00_2595;
BgL_auxz00_2597 = 
CNST_TABLE_REF(((long)3)); 
BgL_auxz00_2595 = 
CAR(BgL_clausez00_20); 
BgL_test1938z00_467 = 
(BgL_auxz00_2595==BgL_auxz00_2597); } 
if(BgL_test1938z00_467)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd22341zd2_468;obj_t BgL_cdrzd22342zd2_469;
BgL_carzd22341zd2_468 = 
CAR(BgL_cdrzd2149zd2_149); 
BgL_cdrzd22342zd2_469 = 
CDR(BgL_cdrzd2149zd2_149); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1940z00_470;
BgL_test1940z00_470 = 
SYMBOLP(BgL_carzd22341zd2_468); 
if(BgL_test1940z00_470)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd22350zd2_471;obj_t BgL_cdrzd22351zd2_472;
BgL_carzd22350zd2_471 = 
CAR(BgL_cdrzd22342zd2_469); 
BgL_cdrzd22351zd2_472 = 
CDR(BgL_cdrzd22342zd2_469); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1941z00_473;
BgL_test1941z00_473 = 
STRINGP(BgL_carzd22350zd2_471); 
if(BgL_test1941z00_473)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1942z00_474;
BgL_test1942z00_474 = 
PAIRP(BgL_cdrzd22351zd2_472); 
if(BgL_test1942z00_474)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd22357zd2_475;
BgL_carzd22357zd2_475 = 
CAR(BgL_cdrzd22351zd2_472); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1943z00_476;
BgL_test1943z00_476 = 
SYMBOLP(BgL_carzd22357zd2_475); 
if(BgL_test1943z00_476)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1944z00_477;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2614;
BgL_auxz00_2614 = 
CDR(BgL_cdrzd22351zd2_472); 
BgL_test1944z00_477 = 
NULLP(BgL_auxz00_2614); } 
if(BgL_test1944z00_477)
{ /* ./Module/type.scm 55 */
BgL_typez00_bglt BgL_typez00_1391;
BgL_typez00_1391 = 
BGl_declarezd2typez12zc0zztype_envz00(BgL_carzd22341zd2_468, BgL_carzd22350zd2_471, BgL_carzd22357zd2_475); 
{ /* ./Module/type.scm 55 */
BgL_typez00_bglt BgL_obj1044z00_1392;bool_t BgL_val1043z00_1393;
BgL_obj1044z00_1392 = BgL_typez00_1391; 
BgL_val1043z00_1393 = ((bool_t)1); 
((((BgL_typez00_bglt)CREF(BgL_obj1044z00_1392))->BgL_magiczf3zf3) = ((bool_t)BgL_val1043z00_1393), BUNSPEC); } 
return 
(obj_t)(BgL_typez00_1391);}  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1964z00_480;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2623;obj_t BgL_auxz00_2621;
BgL_auxz00_2623 = 
CNST_TABLE_REF(((long)4)); 
BgL_auxz00_2621 = 
CAR(BgL_clausez00_20); 
BgL_test1964z00_480 = 
(BgL_auxz00_2621==BgL_auxz00_2623); } 
if(BgL_test1964z00_480)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd22522zd2_481;obj_t BgL_cdrzd22523zd2_482;
BgL_carzd22522zd2_481 = 
CAR(BgL_cdrzd2149zd2_149); 
BgL_cdrzd22523zd2_482 = 
CDR(BgL_cdrzd2149zd2_149); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1965z00_483;
BgL_test1965z00_483 = 
SYMBOLP(BgL_carzd22522zd2_481); 
if(BgL_test1965z00_483)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd22532zd2_484;obj_t BgL_cdrzd22533zd2_485;
BgL_carzd22532zd2_484 = 
CAR(BgL_cdrzd22523zd2_482); 
BgL_cdrzd22533zd2_485 = 
CDR(BgL_cdrzd22523zd2_482); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1966z00_486;
BgL_test1966z00_486 = 
STRINGP(BgL_carzd22532zd2_484); 
if(BgL_test1966z00_486)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1967z00_487;
BgL_test1967z00_487 = 
PAIRP(BgL_cdrzd22533zd2_485); 
if(BgL_test1967z00_487)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd22539zd2_488;
BgL_carzd22539zd2_488 = 
CAR(BgL_cdrzd22533zd2_485); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1968z00_489;
BgL_test1968z00_489 = 
PAIRP(BgL_carzd22539zd2_488); 
if(BgL_test1968z00_489)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1969z00_490;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2640;
BgL_auxz00_2640 = 
CDR(BgL_cdrzd22533zd2_485); 
BgL_test1969z00_490 = 
NULLP(BgL_auxz00_2640); } 
if(BgL_test1969z00_490)
{ 
obj_t BgL_parentz00_2646;obj_t BgL_namez00_2645;obj_t BgL_childz00_2644;
BgL_childz00_2644 = BgL_carzd22522zd2_481; 
BgL_namez00_2645 = BgL_carzd22532zd2_484; 
BgL_parentz00_2646 = BgL_carzd22539zd2_488; 
BgL_parentz00_135 = BgL_parentz00_2646; 
BgL_namez00_134 = BgL_namez00_2645; 
BgL_childz00_133 = BgL_childz00_2644; 
goto BgL_tagzd2131zd2_136;}  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
obj_t BgL_cdrzd22633zd2_492;
BgL_cdrzd22633zd2_492 = 
CDR(BgL_clausez00_20); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1989z00_493;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2650;obj_t BgL_auxz00_2648;
BgL_auxz00_2650 = 
CNST_TABLE_REF(((long)6)); 
BgL_auxz00_2648 = 
CAR(BgL_clausez00_20); 
BgL_test1989z00_493 = 
(BgL_auxz00_2648==BgL_auxz00_2650); } 
if(BgL_test1989z00_493)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd22637zd2_494;obj_t BgL_cdrzd22638zd2_495;
BgL_carzd22637zd2_494 = 
CAR(BgL_cdrzd22633zd2_492); 
BgL_cdrzd22638zd2_495 = 
CDR(BgL_cdrzd22633zd2_492); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1990z00_496;
BgL_test1990z00_496 = 
SYMBOLP(BgL_carzd22637zd2_494); 
if(BgL_test1990z00_496)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd22645zd2_497;
BgL_carzd22645zd2_497 = 
CAR(BgL_cdrzd22638zd2_495); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1991z00_498;
BgL_test1991z00_498 = 
PAIRP(BgL_carzd22645zd2_497); 
if(BgL_test1991z00_498)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd22648zd2_499;
BgL_carzd22648zd2_499 = 
CAR(BgL_carzd22645zd2_497); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test1992z00_500;
BgL_test1992z00_500 = 
SYMBOLP(BgL_carzd22648zd2_499); 
if(BgL_test1992z00_500)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1993z00_501;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2664;
BgL_auxz00_2664 = 
CDR(BgL_carzd22645zd2_497); 
BgL_test1993z00_501 = 
NULLP(BgL_auxz00_2664); } 
if(BgL_test1993z00_501)
{ /* ./Module/type.scm 55 */
bool_t BgL_test1994z00_502;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2668;
BgL_auxz00_2668 = 
CDR(BgL_cdrzd22638zd2_495); 
BgL_test1994z00_502 = 
NULLP(BgL_auxz00_2668); } 
if(BgL_test1994z00_502)
{ /* ./Module/type.scm 55 */
BgL_tvecz00_bglt BgL_auxz00_2672;
{ 
obj_t BgL_itemzd2typezd2_2674;obj_t BgL_idz00_2673;
BgL_idz00_2673 = BgL_carzd22637zd2_494; 
BgL_itemzd2typezd2_2674 = BgL_carzd22648zd2_499; 
BgL_itemzd2typezd2_138 = BgL_itemzd2typezd2_2674; 
BgL_idz00_137 = BgL_idz00_2673; 
goto BgL_tagzd2132zd2_139;} 
return 
(obj_t)(BgL_auxz00_2672);}  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2018z00_506;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2678;obj_t BgL_auxz00_2676;
BgL_auxz00_2678 = 
CNST_TABLE_REF(((long)5)); 
BgL_auxz00_2676 = 
CAR(BgL_clausez00_20); 
BgL_test2018z00_506 = 
(BgL_auxz00_2676==BgL_auxz00_2678); } 
if(BgL_test2018z00_506)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd22711zd2_507;obj_t BgL_cdrzd22712zd2_508;
BgL_carzd22711zd2_507 = 
CAR(BgL_cdrzd22633zd2_492); 
BgL_cdrzd22712zd2_508 = 
CDR(BgL_cdrzd22633zd2_492); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2019z00_509;
BgL_test2019z00_509 = 
SYMBOLP(BgL_carzd22711zd2_507); 
if(BgL_test2019z00_509)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd22722zd2_510;obj_t BgL_cdrzd22723zd2_511;
BgL_carzd22722zd2_510 = 
CAR(BgL_cdrzd22712zd2_508); 
BgL_cdrzd22723zd2_511 = 
CDR(BgL_cdrzd22712zd2_508); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2020z00_512;
BgL_test2020z00_512 = 
SYMBOLP(BgL_carzd22722zd2_510); 
if(BgL_test2020z00_512)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2021z00_513;
BgL_test2021z00_513 = 
PAIRP(BgL_cdrzd22723zd2_511); 
if(BgL_test2021z00_513)
{ /* ./Module/type.scm 55 */
obj_t BgL_cdrzd22732zd2_514;
BgL_cdrzd22732zd2_514 = 
CDR(BgL_cdrzd22723zd2_511); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2022z00_515;
BgL_test2022z00_515 = 
PAIRP(BgL_cdrzd22732zd2_514); 
if(BgL_test2022z00_515)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2024z00_516;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2695;
BgL_auxz00_2695 = 
CDR(BgL_cdrzd22732zd2_514); 
BgL_test2024z00_516 = 
NULLP(BgL_auxz00_2695); } 
if(BgL_test2024z00_516)
{ /* ./Module/type.scm 55 */
obj_t BgL_arg2026z00_517;obj_t BgL_arg2027z00_518;
BgL_arg2026z00_517 = 
CAR(BgL_cdrzd22723zd2_511); 
BgL_arg2027z00_518 = 
CAR(BgL_cdrzd22732zd2_514); 
{ 
obj_t BgL_coercez00_2704;obj_t BgL_checkz00_2703;obj_t BgL_toz00_2702;obj_t BgL_fromz00_2701;
BgL_fromz00_2701 = BgL_carzd22711zd2_507; 
BgL_toz00_2702 = BgL_carzd22722zd2_510; 
BgL_checkz00_2703 = BgL_arg2026z00_517; 
BgL_coercez00_2704 = BgL_arg2027z00_518; 
BgL_coercez00_143 = BgL_coercez00_2704; 
BgL_checkz00_142 = BgL_checkz00_2703; 
BgL_toz00_141 = BgL_toz00_2702; 
BgL_fromz00_140 = BgL_fromz00_2701; 
goto BgL_tagzd2133zd2_144;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } } } } } } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2078z00_529;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2707;obj_t BgL_auxz00_2705;
BgL_auxz00_2707 = 
CNST_TABLE_REF(((long)3)); 
BgL_auxz00_2705 = 
CAR(BgL_clausez00_20); 
BgL_test2078z00_529 = 
(BgL_auxz00_2705==BgL_auxz00_2707); } 
if(BgL_test2078z00_529)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd22803zd2_530;obj_t BgL_cdrzd22804zd2_531;
BgL_carzd22803zd2_530 = 
CAR(BgL_cdrzd2149zd2_149); 
BgL_cdrzd22804zd2_531 = 
CDR(BgL_cdrzd2149zd2_149); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2079z00_532;
BgL_test2079z00_532 = 
SYMBOLP(BgL_carzd22803zd2_530); 
if(BgL_test2079z00_532)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2080z00_533;
BgL_test2080z00_533 = 
PAIRP(BgL_cdrzd22804zd2_531); 
if(BgL_test2080z00_533)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd22811zd2_534;obj_t BgL_cdrzd22812zd2_535;
BgL_carzd22811zd2_534 = 
CAR(BgL_cdrzd22804zd2_531); 
BgL_cdrzd22812zd2_535 = 
CDR(BgL_cdrzd22804zd2_531); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2081z00_536;
BgL_test2081z00_536 = 
STRINGP(BgL_carzd22811zd2_534); 
if(BgL_test2081z00_536)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2082z00_537;
BgL_test2082z00_537 = 
PAIRP(BgL_cdrzd22812zd2_535); 
if(BgL_test2082z00_537)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd22816zd2_538;
BgL_carzd22816zd2_538 = 
CAR(BgL_cdrzd22812zd2_535); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2083z00_539;
BgL_test2083z00_539 = 
SYMBOLP(BgL_carzd22816zd2_538); 
if(BgL_test2083z00_539)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2084z00_540;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2726;
BgL_auxz00_2726 = 
CDR(BgL_cdrzd22812zd2_535); 
BgL_test2084z00_540 = 
NULLP(BgL_auxz00_2726); } 
if(BgL_test2084z00_540)
{ /* ./Module/type.scm 55 */
BgL_typez00_bglt BgL_typez00_1452;
BgL_typez00_1452 = 
BGl_declarezd2typez12zc0zztype_envz00(BgL_carzd22803zd2_530, BgL_carzd22811zd2_534, BgL_carzd22816zd2_538); 
{ /* ./Module/type.scm 55 */
BgL_typez00_bglt BgL_obj1044z00_1453;bool_t BgL_val1043z00_1454;
BgL_obj1044z00_1453 = BgL_typez00_1452; 
BgL_val1043z00_1454 = ((bool_t)1); 
((((BgL_typez00_bglt)CREF(BgL_obj1044z00_1453))->BgL_magiczf3zf3) = ((bool_t)BgL_val1043z00_1454), BUNSPEC); } 
return 
(obj_t)(BgL_typez00_1452);}  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2106z00_543;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2735;obj_t BgL_auxz00_2733;
BgL_auxz00_2735 = 
CNST_TABLE_REF(((long)4)); 
BgL_auxz00_2733 = 
CAR(BgL_clausez00_20); 
BgL_test2106z00_543 = 
(BgL_auxz00_2733==BgL_auxz00_2735); } 
if(BgL_test2106z00_543)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd23007zd2_544;obj_t BgL_cdrzd23008zd2_545;
BgL_carzd23007zd2_544 = 
CAR(BgL_cdrzd2149zd2_149); 
BgL_cdrzd23008zd2_545 = 
CDR(BgL_cdrzd2149zd2_149); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2108z00_546;
BgL_test2108z00_546 = 
SYMBOLP(BgL_carzd23007zd2_544); 
if(BgL_test2108z00_546)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2109z00_547;
BgL_test2109z00_547 = 
PAIRP(BgL_cdrzd23008zd2_545); 
if(BgL_test2109z00_547)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd23016zd2_548;obj_t BgL_cdrzd23017zd2_549;
BgL_carzd23016zd2_548 = 
CAR(BgL_cdrzd23008zd2_545); 
BgL_cdrzd23017zd2_549 = 
CDR(BgL_cdrzd23008zd2_545); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2110z00_550;
BgL_test2110z00_550 = 
STRINGP(BgL_carzd23016zd2_548); 
if(BgL_test2110z00_550)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2111z00_551;
BgL_test2111z00_551 = 
PAIRP(BgL_cdrzd23017zd2_549); 
if(BgL_test2111z00_551)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd23021zd2_552;
BgL_carzd23021zd2_552 = 
CAR(BgL_cdrzd23017zd2_549); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2112z00_553;
BgL_test2112z00_553 = 
PAIRP(BgL_carzd23021zd2_552); 
if(BgL_test2112z00_553)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2113z00_554;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2754;
BgL_auxz00_2754 = 
CDR(BgL_cdrzd23017zd2_549); 
BgL_test2113z00_554 = 
NULLP(BgL_auxz00_2754); } 
if(BgL_test2113z00_554)
{ 
obj_t BgL_parentz00_2760;obj_t BgL_namez00_2759;obj_t BgL_childz00_2758;
BgL_childz00_2758 = BgL_carzd23007zd2_544; 
BgL_namez00_2759 = BgL_carzd23016zd2_548; 
BgL_parentz00_2760 = BgL_carzd23021zd2_552; 
BgL_parentz00_135 = BgL_parentz00_2760; 
BgL_namez00_134 = BgL_namez00_2759; 
BgL_childz00_133 = BgL_childz00_2758; 
goto BgL_tagzd2131zd2_136;}  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
obj_t BgL_cdrzd23131zd2_556;
BgL_cdrzd23131zd2_556 = 
CDR(BgL_clausez00_20); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2136z00_557;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2764;obj_t BgL_auxz00_2762;
BgL_auxz00_2764 = 
CNST_TABLE_REF(((long)6)); 
BgL_auxz00_2762 = 
CAR(BgL_clausez00_20); 
BgL_test2136z00_557 = 
(BgL_auxz00_2762==BgL_auxz00_2764); } 
if(BgL_test2136z00_557)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd23135zd2_558;obj_t BgL_cdrzd23136zd2_559;
BgL_carzd23135zd2_558 = 
CAR(BgL_cdrzd23131zd2_556); 
BgL_cdrzd23136zd2_559 = 
CDR(BgL_cdrzd23131zd2_556); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2137z00_560;
BgL_test2137z00_560 = 
SYMBOLP(BgL_carzd23135zd2_558); 
if(BgL_test2137z00_560)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2138z00_561;
BgL_test2138z00_561 = 
PAIRP(BgL_cdrzd23136zd2_559); 
if(BgL_test2138z00_561)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd23143zd2_562;
BgL_carzd23143zd2_562 = 
CAR(BgL_cdrzd23136zd2_559); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2139z00_563;
BgL_test2139z00_563 = 
PAIRP(BgL_carzd23143zd2_562); 
if(BgL_test2139z00_563)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd23146zd2_564;
BgL_carzd23146zd2_564 = 
CAR(BgL_carzd23143zd2_562); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2140z00_565;
BgL_test2140z00_565 = 
SYMBOLP(BgL_carzd23146zd2_564); 
if(BgL_test2140z00_565)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2141z00_566;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2780;
BgL_auxz00_2780 = 
CDR(BgL_carzd23143zd2_562); 
BgL_test2141z00_566 = 
NULLP(BgL_auxz00_2780); } 
if(BgL_test2141z00_566)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2142z00_567;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2784;
BgL_auxz00_2784 = 
CDR(BgL_cdrzd23136zd2_559); 
BgL_test2142z00_567 = 
NULLP(BgL_auxz00_2784); } 
if(BgL_test2142z00_567)
{ /* ./Module/type.scm 55 */
BgL_tvecz00_bglt BgL_auxz00_2788;
{ 
obj_t BgL_itemzd2typezd2_2790;obj_t BgL_idz00_2789;
BgL_idz00_2789 = BgL_carzd23135zd2_558; 
BgL_itemzd2typezd2_2790 = BgL_carzd23146zd2_564; 
BgL_itemzd2typezd2_138 = BgL_itemzd2typezd2_2790; 
BgL_idz00_137 = BgL_idz00_2789; 
goto BgL_tagzd2132zd2_139;} 
return 
(obj_t)(BgL_auxz00_2788);}  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2166z00_571;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2794;obj_t BgL_auxz00_2792;
BgL_auxz00_2794 = 
CNST_TABLE_REF(((long)5)); 
BgL_auxz00_2792 = 
CAR(BgL_clausez00_20); 
BgL_test2166z00_571 = 
(BgL_auxz00_2792==BgL_auxz00_2794); } 
if(BgL_test2166z00_571)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd23215zd2_572;obj_t BgL_cdrzd23216zd2_573;
BgL_carzd23215zd2_572 = 
CAR(BgL_cdrzd23131zd2_556); 
BgL_cdrzd23216zd2_573 = 
CDR(BgL_cdrzd23131zd2_556); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2167z00_574;
BgL_test2167z00_574 = 
SYMBOLP(BgL_carzd23215zd2_572); 
if(BgL_test2167z00_574)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2168z00_575;
BgL_test2168z00_575 = 
PAIRP(BgL_cdrzd23216zd2_573); 
if(BgL_test2168z00_575)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd23225zd2_576;obj_t BgL_cdrzd23226zd2_577;
BgL_carzd23225zd2_576 = 
CAR(BgL_cdrzd23216zd2_573); 
BgL_cdrzd23226zd2_577 = 
CDR(BgL_cdrzd23216zd2_573); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2169z00_578;
BgL_test2169z00_578 = 
SYMBOLP(BgL_carzd23225zd2_576); 
if(BgL_test2169z00_578)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2170z00_579;
BgL_test2170z00_579 = 
PAIRP(BgL_cdrzd23226zd2_577); 
if(BgL_test2170z00_579)
{ /* ./Module/type.scm 55 */
obj_t BgL_cdrzd23233zd2_580;
BgL_cdrzd23233zd2_580 = 
CDR(BgL_cdrzd23226zd2_577); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2171z00_581;
BgL_test2171z00_581 = 
PAIRP(BgL_cdrzd23233zd2_580); 
if(BgL_test2171z00_581)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2172z00_582;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2813;
BgL_auxz00_2813 = 
CDR(BgL_cdrzd23233zd2_580); 
BgL_test2172z00_582 = 
NULLP(BgL_auxz00_2813); } 
if(BgL_test2172z00_582)
{ /* ./Module/type.scm 55 */
obj_t BgL_arg2174z00_583;obj_t BgL_arg2175z00_584;
BgL_arg2174z00_583 = 
CAR(BgL_cdrzd23226zd2_577); 
BgL_arg2175z00_584 = 
CAR(BgL_cdrzd23233zd2_580); 
{ 
obj_t BgL_coercez00_2822;obj_t BgL_checkz00_2821;obj_t BgL_toz00_2820;obj_t BgL_fromz00_2819;
BgL_fromz00_2819 = BgL_carzd23215zd2_572; 
BgL_toz00_2820 = BgL_carzd23225zd2_576; 
BgL_checkz00_2821 = BgL_arg2174z00_583; 
BgL_coercez00_2822 = BgL_arg2175z00_584; 
BgL_coercez00_143 = BgL_coercez00_2822; 
BgL_checkz00_142 = BgL_checkz00_2821; 
BgL_toz00_141 = BgL_toz00_2820; 
BgL_fromz00_140 = BgL_fromz00_2819; 
goto BgL_tagzd2133zd2_144;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } } } } } } }  else 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2228z00_595;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2825;obj_t BgL_auxz00_2823;
BgL_auxz00_2825 = 
CNST_TABLE_REF(((long)3)); 
BgL_auxz00_2823 = 
CAR(BgL_clausez00_20); 
BgL_test2228z00_595 = 
(BgL_auxz00_2823==BgL_auxz00_2825); } 
if(BgL_test2228z00_595)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd23259zd2_596;obj_t BgL_cdrzd23260zd2_597;
BgL_carzd23259zd2_596 = 
CAR(BgL_cdrzd2149zd2_149); 
BgL_cdrzd23260zd2_597 = 
CDR(BgL_cdrzd2149zd2_149); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2229z00_598;
BgL_test2229z00_598 = 
SYMBOLP(BgL_carzd23259zd2_596); 
if(BgL_test2229z00_598)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2230z00_599;
BgL_test2230z00_599 = 
PAIRP(BgL_cdrzd23260zd2_597); 
if(BgL_test2230z00_599)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd23267zd2_600;obj_t BgL_cdrzd23268zd2_601;
BgL_carzd23267zd2_600 = 
CAR(BgL_cdrzd23260zd2_597); 
BgL_cdrzd23268zd2_601 = 
CDR(BgL_cdrzd23260zd2_597); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2231z00_602;
BgL_test2231z00_602 = 
STRINGP(BgL_carzd23267zd2_600); 
if(BgL_test2231z00_602)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2232z00_603;
BgL_test2232z00_603 = 
PAIRP(BgL_cdrzd23268zd2_601); 
if(BgL_test2232z00_603)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd23272zd2_604;
BgL_carzd23272zd2_604 = 
CAR(BgL_cdrzd23268zd2_601); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2233z00_605;
BgL_test2233z00_605 = 
SYMBOLP(BgL_carzd23272zd2_604); 
if(BgL_test2233z00_605)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2234z00_606;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2844;
BgL_auxz00_2844 = 
CDR(BgL_cdrzd23268zd2_601); 
BgL_test2234z00_606 = 
NULLP(BgL_auxz00_2844); } 
if(BgL_test2234z00_606)
{ /* ./Module/type.scm 55 */
BgL_typez00_bglt BgL_typez00_1516;
BgL_typez00_1516 = 
BGl_declarezd2typez12zc0zztype_envz00(BgL_carzd23259zd2_596, BgL_carzd23267zd2_600, BgL_carzd23272zd2_604); 
{ /* ./Module/type.scm 55 */
BgL_typez00_bglt BgL_obj1044z00_1517;bool_t BgL_val1043z00_1518;
BgL_obj1044z00_1517 = BgL_typez00_1516; 
BgL_val1043z00_1518 = ((bool_t)1); 
((((BgL_typez00_bglt)CREF(BgL_obj1044z00_1517))->BgL_magiczf3zf3) = ((bool_t)BgL_val1043z00_1518), BUNSPEC); } 
return 
(obj_t)(BgL_typez00_1516);}  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2256z00_609;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2853;obj_t BgL_auxz00_2851;
BgL_auxz00_2853 = 
CNST_TABLE_REF(((long)4)); 
BgL_auxz00_2851 = 
CAR(BgL_clausez00_20); 
BgL_test2256z00_609 = 
(BgL_auxz00_2851==BgL_auxz00_2853); } 
if(BgL_test2256z00_609)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd23463zd2_610;obj_t BgL_cdrzd23464zd2_611;
BgL_carzd23463zd2_610 = 
CAR(BgL_cdrzd2149zd2_149); 
BgL_cdrzd23464zd2_611 = 
CDR(BgL_cdrzd2149zd2_149); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2257z00_612;
BgL_test2257z00_612 = 
SYMBOLP(BgL_carzd23463zd2_610); 
if(BgL_test2257z00_612)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2258z00_613;
BgL_test2258z00_613 = 
PAIRP(BgL_cdrzd23464zd2_611); 
if(BgL_test2258z00_613)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd23472zd2_614;obj_t BgL_cdrzd23473zd2_615;
BgL_carzd23472zd2_614 = 
CAR(BgL_cdrzd23464zd2_611); 
BgL_cdrzd23473zd2_615 = 
CDR(BgL_cdrzd23464zd2_611); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2259z00_616;
BgL_test2259z00_616 = 
STRINGP(BgL_carzd23472zd2_614); 
if(BgL_test2259z00_616)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2260z00_617;
BgL_test2260z00_617 = 
PAIRP(BgL_cdrzd23473zd2_615); 
if(BgL_test2260z00_617)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd23477zd2_618;
BgL_carzd23477zd2_618 = 
CAR(BgL_cdrzd23473zd2_615); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2261z00_619;
BgL_test2261z00_619 = 
PAIRP(BgL_carzd23477zd2_618); 
if(BgL_test2261z00_619)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2262z00_620;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2872;
BgL_auxz00_2872 = 
CDR(BgL_cdrzd23473zd2_615); 
BgL_test2262z00_620 = 
NULLP(BgL_auxz00_2872); } 
if(BgL_test2262z00_620)
{ 
obj_t BgL_parentz00_2878;obj_t BgL_namez00_2877;obj_t BgL_childz00_2876;
BgL_childz00_2876 = BgL_carzd23463zd2_610; 
BgL_namez00_2877 = BgL_carzd23472zd2_614; 
BgL_parentz00_2878 = BgL_carzd23477zd2_618; 
BgL_parentz00_135 = BgL_parentz00_2878; 
BgL_namez00_134 = BgL_namez00_2877; 
BgL_childz00_133 = BgL_childz00_2876; 
goto BgL_tagzd2131zd2_136;}  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
obj_t BgL_cdrzd23587zd2_622;
BgL_cdrzd23587zd2_622 = 
CDR(BgL_clausez00_20); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2284z00_623;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2882;obj_t BgL_auxz00_2880;
BgL_auxz00_2882 = 
CNST_TABLE_REF(((long)6)); 
BgL_auxz00_2880 = 
CAR(BgL_clausez00_20); 
BgL_test2284z00_623 = 
(BgL_auxz00_2880==BgL_auxz00_2882); } 
if(BgL_test2284z00_623)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd23591zd2_624;obj_t BgL_cdrzd23592zd2_625;
BgL_carzd23591zd2_624 = 
CAR(BgL_cdrzd23587zd2_622); 
BgL_cdrzd23592zd2_625 = 
CDR(BgL_cdrzd23587zd2_622); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2285z00_626;
BgL_test2285z00_626 = 
SYMBOLP(BgL_carzd23591zd2_624); 
if(BgL_test2285z00_626)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2286z00_627;
BgL_test2286z00_627 = 
PAIRP(BgL_cdrzd23592zd2_625); 
if(BgL_test2286z00_627)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd23599zd2_628;
BgL_carzd23599zd2_628 = 
CAR(BgL_cdrzd23592zd2_625); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2287z00_629;
BgL_test2287z00_629 = 
PAIRP(BgL_carzd23599zd2_628); 
if(BgL_test2287z00_629)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd23602zd2_630;
BgL_carzd23602zd2_630 = 
CAR(BgL_carzd23599zd2_628); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2288z00_631;
BgL_test2288z00_631 = 
SYMBOLP(BgL_carzd23602zd2_630); 
if(BgL_test2288z00_631)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2289z00_632;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2898;
BgL_auxz00_2898 = 
CDR(BgL_carzd23599zd2_628); 
BgL_test2289z00_632 = 
NULLP(BgL_auxz00_2898); } 
if(BgL_test2289z00_632)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2290z00_633;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2902;
BgL_auxz00_2902 = 
CDR(BgL_cdrzd23592zd2_625); 
BgL_test2290z00_633 = 
NULLP(BgL_auxz00_2902); } 
if(BgL_test2290z00_633)
{ /* ./Module/type.scm 55 */
BgL_tvecz00_bglt BgL_auxz00_2906;
{ 
obj_t BgL_itemzd2typezd2_2908;obj_t BgL_idz00_2907;
BgL_idz00_2907 = BgL_carzd23591zd2_624; 
BgL_itemzd2typezd2_2908 = BgL_carzd23602zd2_630; 
BgL_itemzd2typezd2_138 = BgL_itemzd2typezd2_2908; 
BgL_idz00_137 = BgL_idz00_2907; 
goto BgL_tagzd2132zd2_139;} 
return 
(obj_t)(BgL_auxz00_2906);}  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2314z00_637;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2912;obj_t BgL_auxz00_2910;
BgL_auxz00_2912 = 
CNST_TABLE_REF(((long)5)); 
BgL_auxz00_2910 = 
CAR(BgL_clausez00_20); 
BgL_test2314z00_637 = 
(BgL_auxz00_2910==BgL_auxz00_2912); } 
if(BgL_test2314z00_637)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd23671zd2_638;obj_t BgL_cdrzd23672zd2_639;
BgL_carzd23671zd2_638 = 
CAR(BgL_cdrzd23587zd2_622); 
BgL_cdrzd23672zd2_639 = 
CDR(BgL_cdrzd23587zd2_622); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2315z00_640;
BgL_test2315z00_640 = 
SYMBOLP(BgL_carzd23671zd2_638); 
if(BgL_test2315z00_640)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2316z00_641;
BgL_test2316z00_641 = 
PAIRP(BgL_cdrzd23672zd2_639); 
if(BgL_test2316z00_641)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd23681zd2_642;obj_t BgL_cdrzd23682zd2_643;
BgL_carzd23681zd2_642 = 
CAR(BgL_cdrzd23672zd2_639); 
BgL_cdrzd23682zd2_643 = 
CDR(BgL_cdrzd23672zd2_639); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2317z00_644;
BgL_test2317z00_644 = 
SYMBOLP(BgL_carzd23681zd2_642); 
if(BgL_test2317z00_644)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2318z00_645;
BgL_test2318z00_645 = 
PAIRP(BgL_cdrzd23682zd2_643); 
if(BgL_test2318z00_645)
{ /* ./Module/type.scm 55 */
obj_t BgL_cdrzd23689zd2_646;
BgL_cdrzd23689zd2_646 = 
CDR(BgL_cdrzd23682zd2_643); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2319z00_647;
BgL_test2319z00_647 = 
PAIRP(BgL_cdrzd23689zd2_646); 
if(BgL_test2319z00_647)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2320z00_648;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2931;
BgL_auxz00_2931 = 
CDR(BgL_cdrzd23689zd2_646); 
BgL_test2320z00_648 = 
NULLP(BgL_auxz00_2931); } 
if(BgL_test2320z00_648)
{ /* ./Module/type.scm 55 */
obj_t BgL_arg2322z00_649;obj_t BgL_arg2323z00_650;
BgL_arg2322z00_649 = 
CAR(BgL_cdrzd23682zd2_643); 
BgL_arg2323z00_650 = 
CAR(BgL_cdrzd23689zd2_646); 
{ 
obj_t BgL_coercez00_2940;obj_t BgL_checkz00_2939;obj_t BgL_toz00_2938;obj_t BgL_fromz00_2937;
BgL_fromz00_2937 = BgL_carzd23671zd2_638; 
BgL_toz00_2938 = BgL_carzd23681zd2_642; 
BgL_checkz00_2939 = BgL_arg2322z00_649; 
BgL_coercez00_2940 = BgL_arg2323z00_650; 
BgL_coercez00_143 = BgL_coercez00_2940; 
BgL_checkz00_142 = BgL_checkz00_2939; 
BgL_toz00_141 = BgL_toz00_2938; 
BgL_fromz00_140 = BgL_fromz00_2937; 
goto BgL_tagzd2133zd2_144;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } } } } } } } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2379z00_662;
BgL_test2379z00_662 = 
SYMBOLP(BgL_carzd2148zd2_148); 
if(BgL_test2379z00_662)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2380z00_663;
BgL_test2380z00_663 = 
PAIRP(BgL_cdrzd2149zd2_149); 
if(BgL_test2380z00_663)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd23772zd2_664;obj_t BgL_cdrzd23773zd2_665;
BgL_carzd23772zd2_664 = 
CAR(BgL_cdrzd2149zd2_149); 
BgL_cdrzd23773zd2_665 = 
CDR(BgL_cdrzd2149zd2_149); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2381z00_666;
BgL_test2381z00_666 = 
STRINGP(BgL_carzd23772zd2_664); 
if(BgL_test2381z00_666)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2382z00_667;
BgL_test2382z00_667 = 
PAIRP(BgL_cdrzd23773zd2_665); 
if(BgL_test2382z00_667)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd23777zd2_668;
BgL_carzd23777zd2_668 = 
CAR(BgL_cdrzd23773zd2_665); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2383z00_669;
BgL_test2383z00_669 = 
SYMBOLP(BgL_carzd23777zd2_668); 
if(BgL_test2383z00_669)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2384z00_670;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2954;
BgL_auxz00_2954 = 
CDR(BgL_cdrzd23773zd2_665); 
BgL_test2384z00_670 = 
NULLP(BgL_auxz00_2954); } 
if(BgL_test2384z00_670)
{ /* ./Module/type.scm 55 */
BgL_typez00_bglt BgL_auxz00_2958;
BgL_auxz00_2958 = 
BGl_declarezd2typez12zc0zztype_envz00(BgL_carzd2148zd2_148, BgL_carzd23772zd2_664, BgL_carzd23777zd2_668); 
return 
(obj_t)(BgL_auxz00_2958);}  else 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2386z00_672;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2963;obj_t BgL_auxz00_2961;
BgL_auxz00_2963 = 
CNST_TABLE_REF(((long)3)); 
BgL_auxz00_2961 = 
CAR(BgL_clausez00_20); 
BgL_test2386z00_672 = 
(BgL_auxz00_2961==BgL_auxz00_2963); } 
if(BgL_test2386z00_672)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd23803zd2_673;obj_t BgL_cdrzd23804zd2_674;
BgL_carzd23803zd2_673 = 
CAR(BgL_cdrzd2149zd2_149); 
BgL_cdrzd23804zd2_674 = 
CDR(BgL_cdrzd2149zd2_149); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2387z00_675;
BgL_test2387z00_675 = 
SYMBOLP(BgL_carzd23803zd2_673); 
if(BgL_test2387z00_675)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd23812zd2_676;obj_t BgL_cdrzd23813zd2_677;
BgL_carzd23812zd2_676 = 
CAR(BgL_cdrzd23804zd2_674); 
BgL_cdrzd23813zd2_677 = 
CDR(BgL_cdrzd23804zd2_674); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2388z00_678;
BgL_test2388z00_678 = 
STRINGP(BgL_carzd23812zd2_676); 
if(BgL_test2388z00_678)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2389z00_679;
BgL_test2389z00_679 = 
PAIRP(BgL_cdrzd23813zd2_677); 
if(BgL_test2389z00_679)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd23819zd2_680;
BgL_carzd23819zd2_680 = 
CAR(BgL_cdrzd23813zd2_677); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2390z00_681;
BgL_test2390z00_681 = 
SYMBOLP(BgL_carzd23819zd2_680); 
if(BgL_test2390z00_681)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2391z00_682;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2980;
BgL_auxz00_2980 = 
CDR(BgL_cdrzd23813zd2_677); 
BgL_test2391z00_682 = 
NULLP(BgL_auxz00_2980); } 
if(BgL_test2391z00_682)
{ /* ./Module/type.scm 55 */
BgL_typez00_bglt BgL_typez00_1594;
BgL_typez00_1594 = 
BGl_declarezd2typez12zc0zztype_envz00(BgL_carzd23803zd2_673, BgL_carzd23812zd2_676, BgL_carzd23819zd2_680); 
{ /* ./Module/type.scm 55 */
BgL_typez00_bglt BgL_obj1044z00_1595;bool_t BgL_val1043z00_1596;
BgL_obj1044z00_1595 = BgL_typez00_1594; 
BgL_val1043z00_1596 = ((bool_t)1); 
((((BgL_typez00_bglt)CREF(BgL_obj1044z00_1595))->BgL_magiczf3zf3) = ((bool_t)BgL_val1043z00_1596), BUNSPEC); } 
return 
(obj_t)(BgL_typez00_1594);}  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2411z00_685;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_2989;obj_t BgL_auxz00_2987;
BgL_auxz00_2989 = 
CNST_TABLE_REF(((long)4)); 
BgL_auxz00_2987 = 
CAR(BgL_clausez00_20); 
BgL_test2411z00_685 = 
(BgL_auxz00_2987==BgL_auxz00_2989); } 
if(BgL_test2411z00_685)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd23984zd2_686;obj_t BgL_cdrzd23985zd2_687;
BgL_carzd23984zd2_686 = 
CAR(BgL_cdrzd2149zd2_149); 
BgL_cdrzd23985zd2_687 = 
CDR(BgL_cdrzd2149zd2_149); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2412z00_688;
BgL_test2412z00_688 = 
SYMBOLP(BgL_carzd23984zd2_686); 
if(BgL_test2412z00_688)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd23994zd2_689;obj_t BgL_cdrzd23995zd2_690;
BgL_carzd23994zd2_689 = 
CAR(BgL_cdrzd23985zd2_687); 
BgL_cdrzd23995zd2_690 = 
CDR(BgL_cdrzd23985zd2_687); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2413z00_691;
BgL_test2413z00_691 = 
STRINGP(BgL_carzd23994zd2_689); 
if(BgL_test2413z00_691)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2414z00_692;
BgL_test2414z00_692 = 
PAIRP(BgL_cdrzd23995zd2_690); 
if(BgL_test2414z00_692)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd24001zd2_693;
BgL_carzd24001zd2_693 = 
CAR(BgL_cdrzd23995zd2_690); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2415z00_694;
BgL_test2415z00_694 = 
PAIRP(BgL_carzd24001zd2_693); 
if(BgL_test2415z00_694)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2416z00_695;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_3006;
BgL_auxz00_3006 = 
CDR(BgL_cdrzd23995zd2_690); 
BgL_test2416z00_695 = 
NULLP(BgL_auxz00_3006); } 
if(BgL_test2416z00_695)
{ 
obj_t BgL_parentz00_3012;obj_t BgL_namez00_3011;obj_t BgL_childz00_3010;
BgL_childz00_3010 = BgL_carzd23984zd2_686; 
BgL_namez00_3011 = BgL_carzd23994zd2_689; 
BgL_parentz00_3012 = BgL_carzd24001zd2_693; 
BgL_parentz00_135 = BgL_parentz00_3012; 
BgL_namez00_134 = BgL_namez00_3011; 
BgL_childz00_133 = BgL_childz00_3010; 
goto BgL_tagzd2131zd2_136;}  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
obj_t BgL_cdrzd24105zd2_697;
BgL_cdrzd24105zd2_697 = 
CDR(BgL_clausez00_20); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2436z00_698;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_3016;obj_t BgL_auxz00_3014;
BgL_auxz00_3016 = 
CNST_TABLE_REF(((long)5)); 
BgL_auxz00_3014 = 
CAR(BgL_clausez00_20); 
BgL_test2436z00_698 = 
(BgL_auxz00_3014==BgL_auxz00_3016); } 
if(BgL_test2436z00_698)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd24112zd2_699;obj_t BgL_cdrzd24113zd2_700;
BgL_carzd24112zd2_699 = 
CAR(BgL_cdrzd24105zd2_697); 
BgL_cdrzd24113zd2_700 = 
CDR(BgL_cdrzd24105zd2_697); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2437z00_701;
BgL_test2437z00_701 = 
SYMBOLP(BgL_carzd24112zd2_699); 
if(BgL_test2437z00_701)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd24123zd2_702;obj_t BgL_cdrzd24124zd2_703;
BgL_carzd24123zd2_702 = 
CAR(BgL_cdrzd24113zd2_700); 
BgL_cdrzd24124zd2_703 = 
CDR(BgL_cdrzd24113zd2_700); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2438z00_704;
BgL_test2438z00_704 = 
SYMBOLP(BgL_carzd24123zd2_702); 
if(BgL_test2438z00_704)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2439z00_705;
BgL_test2439z00_705 = 
PAIRP(BgL_cdrzd24124zd2_703); 
if(BgL_test2439z00_705)
{ /* ./Module/type.scm 55 */
obj_t BgL_cdrzd24133zd2_706;
BgL_cdrzd24133zd2_706 = 
CDR(BgL_cdrzd24124zd2_703); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2440z00_707;
BgL_test2440z00_707 = 
PAIRP(BgL_cdrzd24133zd2_706); 
if(BgL_test2440z00_707)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2441z00_708;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_3033;
BgL_auxz00_3033 = 
CDR(BgL_cdrzd24133zd2_706); 
BgL_test2441z00_708 = 
NULLP(BgL_auxz00_3033); } 
if(BgL_test2441z00_708)
{ /* ./Module/type.scm 55 */
obj_t BgL_arg2443z00_709;obj_t BgL_arg2444z00_710;
BgL_arg2443z00_709 = 
CAR(BgL_cdrzd24124zd2_703); 
BgL_arg2444z00_710 = 
CAR(BgL_cdrzd24133zd2_706); 
{ 
obj_t BgL_coercez00_3042;obj_t BgL_checkz00_3041;obj_t BgL_toz00_3040;obj_t BgL_fromz00_3039;
BgL_fromz00_3039 = BgL_carzd24112zd2_699; 
BgL_toz00_3040 = BgL_carzd24123zd2_702; 
BgL_checkz00_3041 = BgL_arg2443z00_709; 
BgL_coercez00_3042 = BgL_arg2444z00_710; 
BgL_coercez00_143 = BgL_coercez00_3042; 
BgL_checkz00_142 = BgL_checkz00_3041; 
BgL_toz00_141 = BgL_toz00_3040; 
BgL_fromz00_140 = BgL_fromz00_3039; 
goto BgL_tagzd2133zd2_144;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } } } } }  else 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2489z00_720;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_3045;obj_t BgL_auxz00_3043;
BgL_auxz00_3045 = 
CNST_TABLE_REF(((long)3)); 
BgL_auxz00_3043 = 
CAR(BgL_clausez00_20); 
BgL_test2489z00_720 = 
(BgL_auxz00_3043==BgL_auxz00_3045); } 
if(BgL_test2489z00_720)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd24161zd2_721;obj_t BgL_cdrzd24162zd2_722;
BgL_carzd24161zd2_721 = 
CAR(BgL_cdrzd2149zd2_149); 
BgL_cdrzd24162zd2_722 = 
CDR(BgL_cdrzd2149zd2_149); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2490z00_723;
BgL_test2490z00_723 = 
SYMBOLP(BgL_carzd24161zd2_721); 
if(BgL_test2490z00_723)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd24170zd2_724;obj_t BgL_cdrzd24171zd2_725;
BgL_carzd24170zd2_724 = 
CAR(BgL_cdrzd24162zd2_722); 
BgL_cdrzd24171zd2_725 = 
CDR(BgL_cdrzd24162zd2_722); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2491z00_726;
BgL_test2491z00_726 = 
STRINGP(BgL_carzd24170zd2_724); 
if(BgL_test2491z00_726)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2492z00_727;
BgL_test2492z00_727 = 
PAIRP(BgL_cdrzd24171zd2_725); 
if(BgL_test2492z00_727)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd24177zd2_728;
BgL_carzd24177zd2_728 = 
CAR(BgL_cdrzd24171zd2_725); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2493z00_729;
BgL_test2493z00_729 = 
SYMBOLP(BgL_carzd24177zd2_728); 
if(BgL_test2493z00_729)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2494z00_730;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_3062;
BgL_auxz00_3062 = 
CDR(BgL_cdrzd24171zd2_725); 
BgL_test2494z00_730 = 
NULLP(BgL_auxz00_3062); } 
if(BgL_test2494z00_730)
{ /* ./Module/type.scm 55 */
BgL_typez00_bglt BgL_typez00_1641;
BgL_typez00_1641 = 
BGl_declarezd2typez12zc0zztype_envz00(BgL_carzd24161zd2_721, BgL_carzd24170zd2_724, BgL_carzd24177zd2_728); 
{ /* ./Module/type.scm 55 */
BgL_typez00_bglt BgL_obj1044z00_1642;bool_t BgL_val1043z00_1643;
BgL_obj1044z00_1642 = BgL_typez00_1641; 
BgL_val1043z00_1643 = ((bool_t)1); 
((((BgL_typez00_bglt)CREF(BgL_obj1044z00_1642))->BgL_magiczf3zf3) = ((bool_t)BgL_val1043z00_1643), BUNSPEC); } 
return 
(obj_t)(BgL_typez00_1641);}  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2514z00_733;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_3071;obj_t BgL_auxz00_3069;
BgL_auxz00_3071 = 
CNST_TABLE_REF(((long)4)); 
BgL_auxz00_3069 = 
CAR(BgL_clausez00_20); 
BgL_test2514z00_733 = 
(BgL_auxz00_3069==BgL_auxz00_3071); } 
if(BgL_test2514z00_733)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd24342zd2_734;obj_t BgL_cdrzd24343zd2_735;
BgL_carzd24342zd2_734 = 
CAR(BgL_cdrzd2149zd2_149); 
BgL_cdrzd24343zd2_735 = 
CDR(BgL_cdrzd2149zd2_149); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2515z00_736;
BgL_test2515z00_736 = 
SYMBOLP(BgL_carzd24342zd2_734); 
if(BgL_test2515z00_736)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd24352zd2_737;obj_t BgL_cdrzd24353zd2_738;
BgL_carzd24352zd2_737 = 
CAR(BgL_cdrzd24343zd2_735); 
BgL_cdrzd24353zd2_738 = 
CDR(BgL_cdrzd24343zd2_735); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2516z00_739;
BgL_test2516z00_739 = 
STRINGP(BgL_carzd24352zd2_737); 
if(BgL_test2516z00_739)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2517z00_740;
BgL_test2517z00_740 = 
PAIRP(BgL_cdrzd24353zd2_738); 
if(BgL_test2517z00_740)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd24359zd2_741;
BgL_carzd24359zd2_741 = 
CAR(BgL_cdrzd24353zd2_738); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2518z00_742;
BgL_test2518z00_742 = 
PAIRP(BgL_carzd24359zd2_741); 
if(BgL_test2518z00_742)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2519z00_743;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_3088;
BgL_auxz00_3088 = 
CDR(BgL_cdrzd24353zd2_738); 
BgL_test2519z00_743 = 
NULLP(BgL_auxz00_3088); } 
if(BgL_test2519z00_743)
{ 
obj_t BgL_parentz00_3094;obj_t BgL_namez00_3093;obj_t BgL_childz00_3092;
BgL_childz00_3092 = BgL_carzd24342zd2_734; 
BgL_namez00_3093 = BgL_carzd24352zd2_737; 
BgL_parentz00_3094 = BgL_carzd24359zd2_741; 
BgL_parentz00_135 = BgL_parentz00_3094; 
BgL_namez00_134 = BgL_namez00_3093; 
BgL_childz00_133 = BgL_childz00_3092; 
goto BgL_tagzd2131zd2_136;}  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
obj_t BgL_cdrzd24453zd2_745;
BgL_cdrzd24453zd2_745 = 
CDR(BgL_clausez00_20); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2539z00_746;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_3098;obj_t BgL_auxz00_3096;
BgL_auxz00_3098 = 
CNST_TABLE_REF(((long)6)); 
BgL_auxz00_3096 = 
CAR(BgL_clausez00_20); 
BgL_test2539z00_746 = 
(BgL_auxz00_3096==BgL_auxz00_3098); } 
if(BgL_test2539z00_746)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd24457zd2_747;obj_t BgL_cdrzd24458zd2_748;
BgL_carzd24457zd2_747 = 
CAR(BgL_cdrzd24453zd2_745); 
BgL_cdrzd24458zd2_748 = 
CDR(BgL_cdrzd24453zd2_745); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2540z00_749;
BgL_test2540z00_749 = 
SYMBOLP(BgL_carzd24457zd2_747); 
if(BgL_test2540z00_749)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd24465zd2_750;
BgL_carzd24465zd2_750 = 
CAR(BgL_cdrzd24458zd2_748); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2541z00_751;
BgL_test2541z00_751 = 
PAIRP(BgL_carzd24465zd2_750); 
if(BgL_test2541z00_751)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd24468zd2_752;
BgL_carzd24468zd2_752 = 
CAR(BgL_carzd24465zd2_750); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2542z00_753;
BgL_test2542z00_753 = 
SYMBOLP(BgL_carzd24468zd2_752); 
if(BgL_test2542z00_753)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2543z00_754;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_3112;
BgL_auxz00_3112 = 
CDR(BgL_carzd24465zd2_750); 
BgL_test2543z00_754 = 
NULLP(BgL_auxz00_3112); } 
if(BgL_test2543z00_754)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2544z00_755;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_3116;
BgL_auxz00_3116 = 
CDR(BgL_cdrzd24458zd2_748); 
BgL_test2544z00_755 = 
NULLP(BgL_auxz00_3116); } 
if(BgL_test2544z00_755)
{ /* ./Module/type.scm 55 */
BgL_tvecz00_bglt BgL_auxz00_3120;
{ 
obj_t BgL_itemzd2typezd2_3122;obj_t BgL_idz00_3121;
BgL_idz00_3121 = BgL_carzd24457zd2_747; 
BgL_itemzd2typezd2_3122 = BgL_carzd24468zd2_752; 
BgL_itemzd2typezd2_138 = BgL_itemzd2typezd2_3122; 
BgL_idz00_137 = BgL_idz00_3121; 
goto BgL_tagzd2132zd2_139;} 
return 
(obj_t)(BgL_auxz00_3120);}  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2566z00_759;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_3126;obj_t BgL_auxz00_3124;
BgL_auxz00_3126 = 
CNST_TABLE_REF(((long)5)); 
BgL_auxz00_3124 = 
CAR(BgL_clausez00_20); 
BgL_test2566z00_759 = 
(BgL_auxz00_3124==BgL_auxz00_3126); } 
if(BgL_test2566z00_759)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd24531zd2_760;obj_t BgL_cdrzd24532zd2_761;
BgL_carzd24531zd2_760 = 
CAR(BgL_cdrzd24453zd2_745); 
BgL_cdrzd24532zd2_761 = 
CDR(BgL_cdrzd24453zd2_745); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2567z00_762;
BgL_test2567z00_762 = 
SYMBOLP(BgL_carzd24531zd2_760); 
if(BgL_test2567z00_762)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd24542zd2_763;obj_t BgL_cdrzd24543zd2_764;
BgL_carzd24542zd2_763 = 
CAR(BgL_cdrzd24532zd2_761); 
BgL_cdrzd24543zd2_764 = 
CDR(BgL_cdrzd24532zd2_761); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2568z00_765;
BgL_test2568z00_765 = 
SYMBOLP(BgL_carzd24542zd2_763); 
if(BgL_test2568z00_765)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2569z00_766;
BgL_test2569z00_766 = 
PAIRP(BgL_cdrzd24543zd2_764); 
if(BgL_test2569z00_766)
{ /* ./Module/type.scm 55 */
obj_t BgL_cdrzd24552zd2_767;
BgL_cdrzd24552zd2_767 = 
CDR(BgL_cdrzd24543zd2_764); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2570z00_768;
BgL_test2570z00_768 = 
PAIRP(BgL_cdrzd24552zd2_767); 
if(BgL_test2570z00_768)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2571z00_769;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_3143;
BgL_auxz00_3143 = 
CDR(BgL_cdrzd24552zd2_767); 
BgL_test2571z00_769 = 
NULLP(BgL_auxz00_3143); } 
if(BgL_test2571z00_769)
{ /* ./Module/type.scm 55 */
obj_t BgL_arg2573z00_770;obj_t BgL_arg2574z00_771;
BgL_arg2573z00_770 = 
CAR(BgL_cdrzd24543zd2_764); 
BgL_arg2574z00_771 = 
CAR(BgL_cdrzd24552zd2_767); 
{ 
obj_t BgL_coercez00_3152;obj_t BgL_checkz00_3151;obj_t BgL_toz00_3150;obj_t BgL_fromz00_3149;
BgL_fromz00_3149 = BgL_carzd24531zd2_760; 
BgL_toz00_3150 = BgL_carzd24542zd2_763; 
BgL_checkz00_3151 = BgL_arg2573z00_770; 
BgL_coercez00_3152 = BgL_arg2574z00_771; 
BgL_coercez00_143 = BgL_coercez00_3152; 
BgL_checkz00_142 = BgL_checkz00_3151; 
BgL_toz00_141 = BgL_toz00_3150; 
BgL_fromz00_140 = BgL_fromz00_3149; 
goto BgL_tagzd2133zd2_144;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } } } } } } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2625z00_782;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_3155;obj_t BgL_auxz00_3153;
BgL_auxz00_3155 = 
CNST_TABLE_REF(((long)3)); 
BgL_auxz00_3153 = 
CAR(BgL_clausez00_20); 
BgL_test2625z00_782 = 
(BgL_auxz00_3153==BgL_auxz00_3155); } 
if(BgL_test2625z00_782)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd24623zd2_783;obj_t BgL_cdrzd24624zd2_784;
BgL_carzd24623zd2_783 = 
CAR(BgL_cdrzd2149zd2_149); 
BgL_cdrzd24624zd2_784 = 
CDR(BgL_cdrzd2149zd2_149); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2626z00_785;
BgL_test2626z00_785 = 
SYMBOLP(BgL_carzd24623zd2_783); 
if(BgL_test2626z00_785)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2627z00_786;
BgL_test2627z00_786 = 
PAIRP(BgL_cdrzd24624zd2_784); 
if(BgL_test2627z00_786)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd24631zd2_787;obj_t BgL_cdrzd24632zd2_788;
BgL_carzd24631zd2_787 = 
CAR(BgL_cdrzd24624zd2_784); 
BgL_cdrzd24632zd2_788 = 
CDR(BgL_cdrzd24624zd2_784); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2628z00_789;
BgL_test2628z00_789 = 
STRINGP(BgL_carzd24631zd2_787); 
if(BgL_test2628z00_789)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2629z00_790;
BgL_test2629z00_790 = 
PAIRP(BgL_cdrzd24632zd2_788); 
if(BgL_test2629z00_790)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd24636zd2_791;
BgL_carzd24636zd2_791 = 
CAR(BgL_cdrzd24632zd2_788); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2630z00_792;
BgL_test2630z00_792 = 
SYMBOLP(BgL_carzd24636zd2_791); 
if(BgL_test2630z00_792)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2631z00_793;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_3174;
BgL_auxz00_3174 = 
CDR(BgL_cdrzd24632zd2_788); 
BgL_test2631z00_793 = 
NULLP(BgL_auxz00_3174); } 
if(BgL_test2631z00_793)
{ /* ./Module/type.scm 55 */
BgL_typez00_bglt BgL_typez00_1702;
BgL_typez00_1702 = 
BGl_declarezd2typez12zc0zztype_envz00(BgL_carzd24623zd2_783, BgL_carzd24631zd2_787, BgL_carzd24636zd2_791); 
{ /* ./Module/type.scm 55 */
BgL_typez00_bglt BgL_obj1044z00_1703;bool_t BgL_val1043z00_1704;
BgL_obj1044z00_1703 = BgL_typez00_1702; 
BgL_val1043z00_1704 = ((bool_t)1); 
((((BgL_typez00_bglt)CREF(BgL_obj1044z00_1703))->BgL_magiczf3zf3) = ((bool_t)BgL_val1043z00_1704), BUNSPEC); } 
return 
(obj_t)(BgL_typez00_1702);}  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2653z00_796;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_3183;obj_t BgL_auxz00_3181;
BgL_auxz00_3183 = 
CNST_TABLE_REF(((long)4)); 
BgL_auxz00_3181 = 
CAR(BgL_clausez00_20); 
BgL_test2653z00_796 = 
(BgL_auxz00_3181==BgL_auxz00_3183); } 
if(BgL_test2653z00_796)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd24827zd2_797;obj_t BgL_cdrzd24828zd2_798;
BgL_carzd24827zd2_797 = 
CAR(BgL_cdrzd2149zd2_149); 
BgL_cdrzd24828zd2_798 = 
CDR(BgL_cdrzd2149zd2_149); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2654z00_799;
BgL_test2654z00_799 = 
SYMBOLP(BgL_carzd24827zd2_797); 
if(BgL_test2654z00_799)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2655z00_800;
BgL_test2655z00_800 = 
PAIRP(BgL_cdrzd24828zd2_798); 
if(BgL_test2655z00_800)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd24836zd2_801;obj_t BgL_cdrzd24837zd2_802;
BgL_carzd24836zd2_801 = 
CAR(BgL_cdrzd24828zd2_798); 
BgL_cdrzd24837zd2_802 = 
CDR(BgL_cdrzd24828zd2_798); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2656z00_803;
BgL_test2656z00_803 = 
STRINGP(BgL_carzd24836zd2_801); 
if(BgL_test2656z00_803)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2657z00_804;
BgL_test2657z00_804 = 
PAIRP(BgL_cdrzd24837zd2_802); 
if(BgL_test2657z00_804)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd24841zd2_805;
BgL_carzd24841zd2_805 = 
CAR(BgL_cdrzd24837zd2_802); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2658z00_806;
BgL_test2658z00_806 = 
PAIRP(BgL_carzd24841zd2_805); 
if(BgL_test2658z00_806)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2659z00_807;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_3202;
BgL_auxz00_3202 = 
CDR(BgL_cdrzd24837zd2_802); 
BgL_test2659z00_807 = 
NULLP(BgL_auxz00_3202); } 
if(BgL_test2659z00_807)
{ 
obj_t BgL_parentz00_3208;obj_t BgL_namez00_3207;obj_t BgL_childz00_3206;
BgL_childz00_3206 = BgL_carzd24827zd2_797; 
BgL_namez00_3207 = BgL_carzd24836zd2_801; 
BgL_parentz00_3208 = BgL_carzd24841zd2_805; 
BgL_parentz00_135 = BgL_parentz00_3208; 
BgL_namez00_134 = BgL_namez00_3207; 
BgL_childz00_133 = BgL_childz00_3206; 
goto BgL_tagzd2131zd2_136;}  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
obj_t BgL_cdrzd24951zd2_809;
BgL_cdrzd24951zd2_809 = 
CDR(BgL_clausez00_20); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2681z00_810;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_3212;obj_t BgL_auxz00_3210;
BgL_auxz00_3212 = 
CNST_TABLE_REF(((long)6)); 
BgL_auxz00_3210 = 
CAR(BgL_clausez00_20); 
BgL_test2681z00_810 = 
(BgL_auxz00_3210==BgL_auxz00_3212); } 
if(BgL_test2681z00_810)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd24955zd2_811;obj_t BgL_cdrzd24956zd2_812;
BgL_carzd24955zd2_811 = 
CAR(BgL_cdrzd24951zd2_809); 
BgL_cdrzd24956zd2_812 = 
CDR(BgL_cdrzd24951zd2_809); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2682z00_813;
BgL_test2682z00_813 = 
SYMBOLP(BgL_carzd24955zd2_811); 
if(BgL_test2682z00_813)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2683z00_814;
BgL_test2683z00_814 = 
PAIRP(BgL_cdrzd24956zd2_812); 
if(BgL_test2683z00_814)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd24963zd2_815;
BgL_carzd24963zd2_815 = 
CAR(BgL_cdrzd24956zd2_812); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2684z00_816;
BgL_test2684z00_816 = 
PAIRP(BgL_carzd24963zd2_815); 
if(BgL_test2684z00_816)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd24966zd2_817;
BgL_carzd24966zd2_817 = 
CAR(BgL_carzd24963zd2_815); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2685z00_818;
BgL_test2685z00_818 = 
SYMBOLP(BgL_carzd24966zd2_817); 
if(BgL_test2685z00_818)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2686z00_819;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_3228;
BgL_auxz00_3228 = 
CDR(BgL_carzd24963zd2_815); 
BgL_test2686z00_819 = 
NULLP(BgL_auxz00_3228); } 
if(BgL_test2686z00_819)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2687z00_820;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_3232;
BgL_auxz00_3232 = 
CDR(BgL_cdrzd24956zd2_812); 
BgL_test2687z00_820 = 
NULLP(BgL_auxz00_3232); } 
if(BgL_test2687z00_820)
{ /* ./Module/type.scm 55 */
BgL_tvecz00_bglt BgL_auxz00_3236;
{ 
obj_t BgL_itemzd2typezd2_3238;obj_t BgL_idz00_3237;
BgL_idz00_3237 = BgL_carzd24955zd2_811; 
BgL_itemzd2typezd2_3238 = BgL_carzd24966zd2_817; 
BgL_itemzd2typezd2_138 = BgL_itemzd2typezd2_3238; 
BgL_idz00_137 = BgL_idz00_3237; 
goto BgL_tagzd2132zd2_139;} 
return 
(obj_t)(BgL_auxz00_3236);}  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2711z00_824;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_3242;obj_t BgL_auxz00_3240;
BgL_auxz00_3242 = 
CNST_TABLE_REF(((long)5)); 
BgL_auxz00_3240 = 
CAR(BgL_clausez00_20); 
BgL_test2711z00_824 = 
(BgL_auxz00_3240==BgL_auxz00_3242); } 
if(BgL_test2711z00_824)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd25035zd2_825;obj_t BgL_cdrzd25036zd2_826;
BgL_carzd25035zd2_825 = 
CAR(BgL_cdrzd24951zd2_809); 
BgL_cdrzd25036zd2_826 = 
CDR(BgL_cdrzd24951zd2_809); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2712z00_827;
BgL_test2712z00_827 = 
SYMBOLP(BgL_carzd25035zd2_825); 
if(BgL_test2712z00_827)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2713z00_828;
BgL_test2713z00_828 = 
PAIRP(BgL_cdrzd25036zd2_826); 
if(BgL_test2713z00_828)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd25045zd2_829;obj_t BgL_cdrzd25046zd2_830;
BgL_carzd25045zd2_829 = 
CAR(BgL_cdrzd25036zd2_826); 
BgL_cdrzd25046zd2_830 = 
CDR(BgL_cdrzd25036zd2_826); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2714z00_831;
BgL_test2714z00_831 = 
SYMBOLP(BgL_carzd25045zd2_829); 
if(BgL_test2714z00_831)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2715z00_832;
BgL_test2715z00_832 = 
PAIRP(BgL_cdrzd25046zd2_830); 
if(BgL_test2715z00_832)
{ /* ./Module/type.scm 55 */
obj_t BgL_cdrzd25053zd2_833;
BgL_cdrzd25053zd2_833 = 
CDR(BgL_cdrzd25046zd2_830); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2716z00_834;
BgL_test2716z00_834 = 
PAIRP(BgL_cdrzd25053zd2_833); 
if(BgL_test2716z00_834)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2717z00_835;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_3261;
BgL_auxz00_3261 = 
CDR(BgL_cdrzd25053zd2_833); 
BgL_test2717z00_835 = 
NULLP(BgL_auxz00_3261); } 
if(BgL_test2717z00_835)
{ /* ./Module/type.scm 55 */
obj_t BgL_arg2719z00_836;obj_t BgL_arg2720z00_837;
BgL_arg2719z00_836 = 
CAR(BgL_cdrzd25046zd2_830); 
BgL_arg2720z00_837 = 
CAR(BgL_cdrzd25053zd2_833); 
{ 
obj_t BgL_coercez00_3270;obj_t BgL_checkz00_3269;obj_t BgL_toz00_3268;obj_t BgL_fromz00_3267;
BgL_fromz00_3267 = BgL_carzd25035zd2_825; 
BgL_toz00_3268 = BgL_carzd25045zd2_829; 
BgL_checkz00_3269 = BgL_arg2719z00_836; 
BgL_coercez00_3270 = BgL_arg2720z00_837; 
BgL_coercez00_143 = BgL_coercez00_3270; 
BgL_checkz00_142 = BgL_checkz00_3269; 
BgL_toz00_141 = BgL_toz00_3268; 
BgL_fromz00_140 = BgL_fromz00_3267; 
goto BgL_tagzd2133zd2_144;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } } } } } } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2774z00_848;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_3273;obj_t BgL_auxz00_3271;
BgL_auxz00_3273 = 
CNST_TABLE_REF(((long)3)); 
BgL_auxz00_3271 = 
CAR(BgL_clausez00_20); 
BgL_test2774z00_848 = 
(BgL_auxz00_3271==BgL_auxz00_3273); } 
if(BgL_test2774z00_848)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2775z00_849;
BgL_test2775z00_849 = 
PAIRP(BgL_cdrzd2149zd2_149); 
if(BgL_test2775z00_849)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd25118zd2_850;obj_t BgL_cdrzd25119zd2_851;
BgL_carzd25118zd2_850 = 
CAR(BgL_cdrzd2149zd2_149); 
BgL_cdrzd25119zd2_851 = 
CDR(BgL_cdrzd2149zd2_149); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2776z00_852;
BgL_test2776z00_852 = 
SYMBOLP(BgL_carzd25118zd2_850); 
if(BgL_test2776z00_852)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2777z00_853;
BgL_test2777z00_853 = 
PAIRP(BgL_cdrzd25119zd2_851); 
if(BgL_test2777z00_853)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd25124zd2_854;obj_t BgL_cdrzd25125zd2_855;
BgL_carzd25124zd2_854 = 
CAR(BgL_cdrzd25119zd2_851); 
BgL_cdrzd25125zd2_855 = 
CDR(BgL_cdrzd25119zd2_851); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2778z00_856;
BgL_test2778z00_856 = 
STRINGP(BgL_carzd25124zd2_854); 
if(BgL_test2778z00_856)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2779z00_857;
BgL_test2779z00_857 = 
PAIRP(BgL_cdrzd25125zd2_855); 
if(BgL_test2779z00_857)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd25129zd2_858;
BgL_carzd25129zd2_858 = 
CAR(BgL_cdrzd25125zd2_855); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2780z00_859;
BgL_test2780z00_859 = 
SYMBOLP(BgL_carzd25129zd2_858); 
if(BgL_test2780z00_859)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2781z00_860;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_3294;
BgL_auxz00_3294 = 
CDR(BgL_cdrzd25125zd2_855); 
BgL_test2781z00_860 = 
NULLP(BgL_auxz00_3294); } 
if(BgL_test2781z00_860)
{ /* ./Module/type.scm 55 */
BgL_typez00_bglt BgL_typez00_1767;
BgL_typez00_1767 = 
BGl_declarezd2typez12zc0zztype_envz00(BgL_carzd25118zd2_850, BgL_carzd25124zd2_854, BgL_carzd25129zd2_858); 
{ /* ./Module/type.scm 55 */
BgL_typez00_bglt BgL_obj1044z00_1768;bool_t BgL_val1043z00_1769;
BgL_obj1044z00_1768 = BgL_typez00_1767; 
BgL_val1043z00_1769 = ((bool_t)1); 
((((BgL_typez00_bglt)CREF(BgL_obj1044z00_1768))->BgL_magiczf3zf3) = ((bool_t)BgL_val1043z00_1769), BUNSPEC); } 
return 
(obj_t)(BgL_typez00_1767);}  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2805z00_863;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_3303;obj_t BgL_auxz00_3301;
BgL_auxz00_3303 = 
CNST_TABLE_REF(((long)4)); 
BgL_auxz00_3301 = 
CAR(BgL_clausez00_20); 
BgL_test2805z00_863 = 
(BgL_auxz00_3301==BgL_auxz00_3303); } 
if(BgL_test2805z00_863)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2806z00_864;
BgL_test2806z00_864 = 
PAIRP(BgL_cdrzd2149zd2_149); 
if(BgL_test2806z00_864)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd25346zd2_865;obj_t BgL_cdrzd25347zd2_866;
BgL_carzd25346zd2_865 = 
CAR(BgL_cdrzd2149zd2_149); 
BgL_cdrzd25347zd2_866 = 
CDR(BgL_cdrzd2149zd2_149); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2807z00_867;
BgL_test2807z00_867 = 
SYMBOLP(BgL_carzd25346zd2_865); 
if(BgL_test2807z00_867)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2808z00_868;
BgL_test2808z00_868 = 
PAIRP(BgL_cdrzd25347zd2_866); 
if(BgL_test2808z00_868)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd25353zd2_869;obj_t BgL_cdrzd25354zd2_870;
BgL_carzd25353zd2_869 = 
CAR(BgL_cdrzd25347zd2_866); 
BgL_cdrzd25354zd2_870 = 
CDR(BgL_cdrzd25347zd2_866); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2809z00_871;
BgL_test2809z00_871 = 
STRINGP(BgL_carzd25353zd2_869); 
if(BgL_test2809z00_871)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2810z00_872;
BgL_test2810z00_872 = 
PAIRP(BgL_cdrzd25354zd2_870); 
if(BgL_test2810z00_872)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd25358zd2_873;
BgL_carzd25358zd2_873 = 
CAR(BgL_cdrzd25354zd2_870); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2811z00_874;
BgL_test2811z00_874 = 
PAIRP(BgL_carzd25358zd2_873); 
if(BgL_test2811z00_874)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2812z00_875;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_3324;
BgL_auxz00_3324 = 
CDR(BgL_cdrzd25354zd2_870); 
BgL_test2812z00_875 = 
NULLP(BgL_auxz00_3324); } 
if(BgL_test2812z00_875)
{ 
obj_t BgL_parentz00_3330;obj_t BgL_namez00_3329;obj_t BgL_childz00_3328;
BgL_childz00_3328 = BgL_carzd25346zd2_865; 
BgL_namez00_3329 = BgL_carzd25353zd2_869; 
BgL_parentz00_3330 = BgL_carzd25358zd2_873; 
BgL_parentz00_135 = BgL_parentz00_3330; 
BgL_namez00_134 = BgL_namez00_3329; 
BgL_childz00_133 = BgL_childz00_3328; 
goto BgL_tagzd2131zd2_136;}  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
obj_t BgL_cdrzd25483zd2_877;
BgL_cdrzd25483zd2_877 = 
CDR(BgL_clausez00_20); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2836z00_878;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_3334;obj_t BgL_auxz00_3332;
BgL_auxz00_3334 = 
CNST_TABLE_REF(((long)6)); 
BgL_auxz00_3332 = 
CAR(BgL_clausez00_20); 
BgL_test2836z00_878 = 
(BgL_auxz00_3332==BgL_auxz00_3334); } 
if(BgL_test2836z00_878)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2837z00_879;
BgL_test2837z00_879 = 
PAIRP(BgL_cdrzd25483zd2_877); 
if(BgL_test2837z00_879)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd25486zd2_880;obj_t BgL_cdrzd25487zd2_881;
BgL_carzd25486zd2_880 = 
CAR(BgL_cdrzd25483zd2_877); 
BgL_cdrzd25487zd2_881 = 
CDR(BgL_cdrzd25483zd2_877); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2838z00_882;
BgL_test2838z00_882 = 
SYMBOLP(BgL_carzd25486zd2_880); 
if(BgL_test2838z00_882)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2839z00_883;
BgL_test2839z00_883 = 
PAIRP(BgL_cdrzd25487zd2_881); 
if(BgL_test2839z00_883)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd25492zd2_884;
BgL_carzd25492zd2_884 = 
CAR(BgL_cdrzd25487zd2_881); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2840z00_885;
BgL_test2840z00_885 = 
PAIRP(BgL_carzd25492zd2_884); 
if(BgL_test2840z00_885)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd25495zd2_886;
BgL_carzd25495zd2_886 = 
CAR(BgL_carzd25492zd2_884); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2841z00_887;
BgL_test2841z00_887 = 
SYMBOLP(BgL_carzd25495zd2_886); 
if(BgL_test2841z00_887)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2842z00_888;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_3352;
BgL_auxz00_3352 = 
CDR(BgL_carzd25492zd2_884); 
BgL_test2842z00_888 = 
NULLP(BgL_auxz00_3352); } 
if(BgL_test2842z00_888)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2843z00_889;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_3356;
BgL_auxz00_3356 = 
CDR(BgL_cdrzd25487zd2_881); 
BgL_test2843z00_889 = 
NULLP(BgL_auxz00_3356); } 
if(BgL_test2843z00_889)
{ /* ./Module/type.scm 55 */
BgL_tvecz00_bglt BgL_auxz00_3360;
{ 
obj_t BgL_itemzd2typezd2_3362;obj_t BgL_idz00_3361;
BgL_idz00_3361 = BgL_carzd25486zd2_880; 
BgL_itemzd2typezd2_3362 = BgL_carzd25495zd2_886; 
BgL_itemzd2typezd2_138 = BgL_itemzd2typezd2_3362; 
BgL_idz00_137 = BgL_idz00_3361; 
goto BgL_tagzd2132zd2_139;} 
return 
(obj_t)(BgL_auxz00_3360);}  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2869z00_893;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_3366;obj_t BgL_auxz00_3364;
BgL_auxz00_3366 = 
CNST_TABLE_REF(((long)5)); 
BgL_auxz00_3364 = 
CAR(BgL_clausez00_20); 
BgL_test2869z00_893 = 
(BgL_auxz00_3364==BgL_auxz00_3366); } 
if(BgL_test2869z00_893)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2870z00_894;
BgL_test2870z00_894 = 
PAIRP(BgL_cdrzd25483zd2_877); 
if(BgL_test2870z00_894)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd25570zd2_895;obj_t BgL_cdrzd25571zd2_896;
BgL_carzd25570zd2_895 = 
CAR(BgL_cdrzd25483zd2_877); 
BgL_cdrzd25571zd2_896 = 
CDR(BgL_cdrzd25483zd2_877); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2871z00_897;
BgL_test2871z00_897 = 
SYMBOLP(BgL_carzd25570zd2_895); 
if(BgL_test2871z00_897)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2872z00_898;
BgL_test2872z00_898 = 
PAIRP(BgL_cdrzd25571zd2_896); 
if(BgL_test2872z00_898)
{ /* ./Module/type.scm 55 */
obj_t BgL_carzd25578zd2_899;obj_t BgL_cdrzd25579zd2_900;
BgL_carzd25578zd2_899 = 
CAR(BgL_cdrzd25571zd2_896); 
BgL_cdrzd25579zd2_900 = 
CDR(BgL_cdrzd25571zd2_896); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2873z00_901;
BgL_test2873z00_901 = 
SYMBOLP(BgL_carzd25578zd2_899); 
if(BgL_test2873z00_901)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2874z00_902;
BgL_test2874z00_902 = 
PAIRP(BgL_cdrzd25579zd2_900); 
if(BgL_test2874z00_902)
{ /* ./Module/type.scm 55 */
obj_t BgL_cdrzd25586zd2_903;
BgL_cdrzd25586zd2_903 = 
CDR(BgL_cdrzd25579zd2_900); 
{ /* ./Module/type.scm 55 */
bool_t BgL_test2875z00_904;
BgL_test2875z00_904 = 
PAIRP(BgL_cdrzd25586zd2_903); 
if(BgL_test2875z00_904)
{ /* ./Module/type.scm 55 */
bool_t BgL_test2876z00_905;
{ /* ./Module/type.scm 55 */
obj_t BgL_auxz00_3387;
BgL_auxz00_3387 = 
CDR(BgL_cdrzd25586zd2_903); 
BgL_test2876z00_905 = 
NULLP(BgL_auxz00_3387); } 
if(BgL_test2876z00_905)
{ /* ./Module/type.scm 55 */
obj_t BgL_arg2878z00_906;obj_t BgL_arg2879z00_907;
BgL_arg2878z00_906 = 
CAR(BgL_cdrzd25579zd2_900); 
BgL_arg2879z00_907 = 
CAR(BgL_cdrzd25586zd2_903); 
{ 
obj_t BgL_coercez00_3396;obj_t BgL_checkz00_3395;obj_t BgL_toz00_3394;obj_t BgL_fromz00_3393;
BgL_fromz00_3393 = BgL_carzd25570zd2_895; 
BgL_toz00_3394 = BgL_carzd25578zd2_899; 
BgL_checkz00_3395 = BgL_arg2878z00_906; 
BgL_coercez00_3396 = BgL_arg2879z00_907; 
BgL_coercez00_143 = BgL_coercez00_3396; 
BgL_checkz00_142 = BgL_checkz00_3395; 
BgL_toz00_141 = BgL_toz00_3394; 
BgL_fromz00_140 = BgL_fromz00_3393; 
goto BgL_tagzd2133zd2_144;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } } } } } } } }  else 
{ /* ./Module/type.scm 55 */
goto BgL_tagzd2134zd2_145;} } } } 
}



/* _type-parser */
obj_t BGl__typezd2parserzd2zzmodule_typez00(obj_t BgL_envz00_1890, obj_t BgL_clausez00_1891, obj_t BgL_clausesz00_1892)
{ AN_OBJECT;
{ /* ./Module/type.scm 53 */
return 
BGl_typezd2parserzd2zzmodule_typez00(BgL_clausez00_1891, BgL_clausesz00_1892);} 
}



/* type-finalizer */
obj_t BGl_typezd2finaliza7erz75zzmodule_typez00()
{ AN_OBJECT;
{ /* ./Module/type.scm 134 */
{ /* ./Module/type.scm 135 */
obj_t BgL_tvfz00_976;
BgL_tvfz00_976 = 
BGl_tvectorzd2finaliza7erz75zzmodule_typez00(); 
{ /* ./Module/type.scm 136 */
bool_t BgL_test3058z00_977;
if(
STRUCTP(BgL_tvfz00_976))
{ /* ./Module/type.scm 136 */
obj_t BgL_auxz00_3403;obj_t BgL_auxz00_3401;
BgL_auxz00_3403 = 
CNST_TABLE_REF(((long)7)); 
BgL_auxz00_3401 = 
STRUCT_KEY(BgL_tvfz00_976); 
BgL_test3058z00_977 = 
(BgL_auxz00_3401==BgL_auxz00_3403); }  else 
{ /* ./Module/type.scm 136 */
BgL_test3058z00_977 = ((bool_t)0); } 
if(BgL_test3058z00_977)
{ /* ./Module/type.scm 137 */
obj_t BgL_list3060z00_978;
BgL_list3060z00_978 = 
MAKE_PAIR(BgL_tvfz00_976, BNIL); 
return BgL_list3060z00_978;}  else 
{ /* ./Module/type.scm 136 */
return 
CNST_TABLE_REF(((long)8));} } } } 
}



/* _type-finalizer */
obj_t BGl__typezd2finaliza7erz75zzmodule_typez00(obj_t BgL_envz00_1889)
{ AN_OBJECT;
{ /* ./Module/type.scm 134 */
return 
BGl_typezd2finaliza7erz75zzmodule_typez00();} 
}



/* tvector-finalizer */
BGL_EXPORTED_DEF obj_t BGl_tvectorzd2finaliza7erz75zzmodule_typez00()
{ AN_OBJECT;
{ /* ./Module/type.scm 148 */
{ /* ./Module/type.scm 149 */
bool_t BgL_test3064z00_979;
{ /* ./Module/type.scm 149 */
obj_t BgL_objz00_1856;
BgL_objz00_1856 = BGl_za2tvectorzd2accessesza2zd2zzmodule_typez00; 
BgL_test3064z00_979 = 
NULLP(BgL_objz00_1856); } 
if(BgL_test3064z00_979)
{ /* ./Module/type.scm 149 */
return 
CNST_TABLE_REF(((long)8));}  else 
{ /* ./Module/type.scm 151 */
obj_t BgL_resz00_980;
{ /* ./Module/type.scm 151 */
obj_t BgL_arg3066z00_981;obj_t BgL_arg3068z00_983;
BgL_arg3066z00_981 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)6)), BEOA); 
BgL_arg3068z00_983 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BGl_za2tvectorzd2accessesza2zd2zzmodule_typez00); 
{ /* ./Module/type.scm 151 */
obj_t BgL_newz00_1861;
{ /* ./Module/type.scm 151 */
int BgL_auxz00_3419;obj_t BgL_auxz00_3417;
BgL_auxz00_3419 = 
(int)(((long)4)); 
BgL_auxz00_3417 = 
CNST_TABLE_REF(((long)7)); 
BgL_newz00_1861 = 
create_struct(BgL_auxz00_3417, BgL_auxz00_3419); } 
{ /* ./Module/type.scm 151 */
int BgL_kz00_1865;
BgL_kz00_1865 = 
(int)(((long)3)); 
STRUCT_SET(BgL_newz00_1861, BgL_kz00_1865, BTRUE); } 
{ /* ./Module/type.scm 151 */
int BgL_kz00_1870;
BgL_kz00_1870 = 
(int)(((long)2)); 
STRUCT_SET(BgL_newz00_1861, BgL_kz00_1870, BgL_arg3068z00_983); } 
{ /* ./Module/type.scm 151 */
int BgL_kz00_1875;obj_t BgL_oz00_1876;
BgL_kz00_1875 = 
(int)(((long)1)); 
BgL_oz00_1876 = 
BINT(((long)6)); 
STRUCT_SET(BgL_newz00_1861, BgL_kz00_1875, BgL_oz00_1876); } 
{ /* ./Module/type.scm 151 */
int BgL_kz00_1880;
BgL_kz00_1880 = 
(int)(((long)0)); 
STRUCT_SET(BgL_newz00_1861, BgL_kz00_1880, BgL_arg3066z00_981); } 
BgL_resz00_980 = BgL_newz00_1861; } } 
BGl_za2tvectorzd2accessesza2zd2zzmodule_typez00 = BNIL; 
return BgL_resz00_980;} } } 
}



/* _tvector-finalizer */
obj_t BGl__tvectorzd2finaliza7erz75zzmodule_typez00(obj_t BgL_envz00_1893)
{ AN_OBJECT;
{ /* ./Module/type.scm 148 */
return 
BGl_tvectorzd2finaliza7erz75zzmodule_typez00();} 
}



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



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzmodule_typez00()
{ AN_OBJECT;
{ /* ./Module/type.scm 15 */
BGl_modulezd2initializa7ationz75zztools_tracez00(((long)59211), "module_type"); 
BGl_modulezd2initializa7ationz75zzmodule_modulez00(((long)8699), "module_type"); 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "module_type"); 
BGl_modulezd2initializa7ationz75zztype_envz00(((long)25186), "module_type"); 
BGl_modulezd2initializa7ationz75zztype_coercionz00(((long)58912), "module_type"); 
BGl_modulezd2initializa7ationz75zztvector_tvectorz00(((long)32501), "module_type"); 
BGl_modulezd2initializa7ationz75zztvector_accessz00(((long)32110), "module_type"); 
BGl_modulezd2initializa7ationz75zztools_errorz00(((long)25566), "module_type"); 
return 
BGl_modulezd2initializa7ationz75zztools_locationz00(((long)32118), "module_type");} 
}

