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

#include <bigloo.h>

BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zztools_prognz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_miscz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_locationz00(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_EXPORTED_DECL obj_t BGl_normaliza7ezd2prognz75zztools_prognz00(obj_t);
BGL_IMPORT obj_t open_input_string(obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
static obj_t BGl__emapz00zztools_prognz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_normaliza7ezd2prognzf2locz87zztools_prognz00(obj_t, obj_t);
static obj_t BGl__normaliza7ezd2prognzf2locz87zztools_prognz00(obj_t, obj_t, obj_t);
static obj_t BGl_loopz00zztools_prognz00(obj_t, obj_t);
extern obj_t BGl_internalzd2errorzd2zztools_errorz00(obj_t, obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zztools_prognz00();
static obj_t BGl_loopz72z72zztools_prognz00(obj_t);
static obj_t BGl__normaliza7ezd2prognz75zztools_prognz00(obj_t, obj_t);
BGL_IMPORT obj_t bgl_append2(obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zztools_prognz00();
static obj_t BGl_requirezd2initializa7ationz75zztools_prognz00 = BUNSPEC;
static obj_t BGl_libraryzd2moduleszd2initz00zztools_prognz00();
static obj_t BGl_toplevelzd2initzd2zztools_prognz00();
BGL_EXPORTED_DECL obj_t BGl_emapz00zztools_prognz00(obj_t, obj_t);
static obj_t __cnst[ 1 ] ;


DEFINE_EXPORT_PROCEDURE( BGl_normaliza7ezd2prognzf2loczd2envz55zztools_prognz00, BgL_bgl__normaliza7a7eza7d2prognza7f2locza787za7za7tools_prognza7001259za7, BGl__normaliza7ezd2prognzf2locz87zztools_prognz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_normaliza7ezd2prognzd2envza7zztools_prognz00, BgL_bgl__normaliza7a7eza7d2prognza775za7za7tools_prognza7001260z00, BGl__normaliza7ezd2prognz75zztools_prognz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_emapzd2envzd2zztools_prognz00, BgL_bgl__emapza700za7za7tools_prognza7001261z00, BGl__emapz00zztools_prognz00, 0L, 2 );
DEFINE_STRING( BGl_string1234z00zztools_prognz00, BgL_bgl_string1234za700za7za7tools_prognza7001262z00, "begin ", 6 );
DEFINE_STRING( BGl_string1233z00zztools_prognz00, BgL_bgl_string1233za700za7za7tools_prognza7001263z00, "Illegal expression", 18 );
DEFINE_STRING( BGl_string1232z00zztools_prognz00, BgL_bgl_string1232za700za7za7tools_prognza7001264z00, "normalize-progn", 15 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zztools_prognz00(long BgL_checksumz00_209, char * BgL_fromz00_210)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zztools_prognz00))
{ 
BGl_requirezd2initializa7ationz75zztools_prognz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zztools_prognz00(); 
BGl_cnstzd2initzd2zztools_prognz00(); 
BGl_importedzd2moduleszd2initz00zztools_prognz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zztools_prognz00()
{ AN_OBJECT;
{ /* ./Tools/progn.scm 15 */
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "tools_progn"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "tools_progn"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zztools_prognz00()
{ AN_OBJECT;
{ /* ./Tools/progn.scm 15 */
{ /* ./Tools/progn.scm 15 */
obj_t BgL_cportz00_200;
BgL_cportz00_200 = 
open_input_string(BGl_string1234z00zztools_prognz00); 
{ 
long BgL_iz00_201;
BgL_iz00_201 = ((long)0); 
BgL_loopz00_202:
{ /* ./Tools/progn.scm 15 */
bool_t BgL_test1236z00_203;
BgL_test1236z00_203 = 
(BgL_iz00_201==((long)-1)); 
if(BgL_test1236z00_203)
{ /* ./Tools/progn.scm 15 */
return BUNSPEC;}  else 
{ /* ./Tools/progn.scm 15 */
{ /* ./Tools/progn.scm 15 */
obj_t BgL_arg1238z00_204;
{ /* ./Tools/progn.scm 15 */
obj_t BgL_list1241z00_205;
BgL_list1241z00_205 = 
MAKE_PAIR(BgL_cportz00_200, BNIL); 
BgL_arg1238z00_204 = 
BGl_readz00zz__readerz00(BgL_list1241z00_205); } 
{ /* ./Tools/progn.scm 15 */
int BgL_auxz00_224;
BgL_auxz00_224 = 
(int)(BgL_iz00_201); 
CNST_TABLE_SET(BgL_auxz00_224, BgL_arg1238z00_204); } } 
{ /* ./Tools/progn.scm 15 */
int BgL_auxz00_206;
{ /* ./Tools/progn.scm 15 */
long BgL_auxz00_227;
BgL_auxz00_227 = 
(BgL_iz00_201-((long)1)); 
BgL_auxz00_206 = 
(int)(BgL_auxz00_227); } 
{ 
long BgL_iz00_230;
BgL_iz00_230 = 
(long)(BgL_auxz00_206); 
BgL_iz00_201 = BgL_iz00_230; 
goto BgL_loopz00_202;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zztools_prognz00()
{ AN_OBJECT;
{ /* ./Tools/progn.scm 15 */
return BUNSPEC;} 
}



/* normalize-progn */
BGL_EXPORTED_DEF obj_t BGl_normaliza7ezd2prognz75zztools_prognz00(obj_t BgL_bodyza2za2_15)
{ AN_OBJECT;
{ /* ./Tools/progn.scm 28 */
BGl_normaliza7ezd2prognz75zztools_prognz00:
{ /* ./Tools/progn.scm 30 */
bool_t BgL_test1036z00_30;
BgL_test1036z00_30 = 
PAIRP(BgL_bodyza2za2_15); 
if(BgL_test1036z00_30)
{ /* ./Tools/progn.scm 32 */
bool_t BgL_test1037z00_31;
{ /* ./Tools/progn.scm 32 */
obj_t BgL_auxz00_234;
BgL_auxz00_234 = 
CDR(BgL_bodyza2za2_15); 
BgL_test1037z00_31 = 
NULLP(BgL_auxz00_234); } 
if(BgL_test1037z00_31)
{ /* ./Tools/progn.scm 32 */
{ /* ./Tools/progn.scm 33 */
obj_t BgL_ezd2105zd2_38;
BgL_ezd2105zd2_38 = 
CAR(BgL_bodyza2za2_15); 
{ /* ./Tools/progn.scm 33 */
bool_t BgL_test1038z00_39;
BgL_test1038z00_39 = 
PAIRP(BgL_ezd2105zd2_38); 
if(BgL_test1038z00_39)
{ /* ./Tools/progn.scm 33 */
bool_t BgL_test1039z00_40;
{ /* ./Tools/progn.scm 33 */
obj_t BgL_auxz00_243;obj_t BgL_auxz00_241;
BgL_auxz00_243 = 
CNST_TABLE_REF(((long)0)); 
BgL_auxz00_241 = 
CAR(BgL_ezd2105zd2_38); 
BgL_test1039z00_40 = 
(BgL_auxz00_241==BgL_auxz00_243); } 
if(BgL_test1039z00_40)
{ /* ./Tools/progn.scm 33 */
bool_t BgL_test1040z00_41;
{ /* ./Tools/progn.scm 33 */
obj_t BgL_auxz00_247;
BgL_auxz00_247 = 
CDR(BgL_ezd2105zd2_38); 
BgL_test1040z00_41 = 
NULLP(BgL_auxz00_247); } 
if(BgL_test1040z00_41)
{ /* ./Tools/progn.scm 33 */
return BUNSPEC;}  else 
{ /* ./Tools/progn.scm 33 */
obj_t BgL_cdrzd2112zd2_42;
BgL_cdrzd2112zd2_42 = 
CDR(BgL_ezd2105zd2_38); 
{ /* ./Tools/progn.scm 33 */
bool_t BgL_test1042z00_43;
BgL_test1042z00_43 = 
PAIRP(BgL_cdrzd2112zd2_42); 
if(BgL_test1042z00_43)
{ /* ./Tools/progn.scm 33 */
bool_t BgL_test1043z00_44;
{ /* ./Tools/progn.scm 33 */
obj_t BgL_auxz00_254;
BgL_auxz00_254 = 
CDR(BgL_cdrzd2112zd2_42); 
BgL_test1043z00_44 = 
NULLP(BgL_auxz00_254); } 
if(BgL_test1043z00_44)
{ /* ./Tools/progn.scm 33 */
return BgL_ezd2105zd2_38;}  else 
{ 
obj_t BgL_bodyza2za2_258;
BgL_bodyza2za2_258 = BgL_cdrzd2112zd2_42; 
BgL_bodyza2za2_15 = BgL_bodyza2za2_258; 
goto BGl_normaliza7ezd2prognz75zztools_prognz00;} }  else 
{ 
obj_t BgL_bodyza2za2_259;
BgL_bodyza2za2_259 = BgL_cdrzd2112zd2_42; 
BgL_bodyza2za2_15 = BgL_bodyza2za2_259; 
goto BGl_normaliza7ezd2prognz75zztools_prognz00;} } } }  else 
{ /* ./Tools/progn.scm 33 */
return BgL_ezd2105zd2_38;} }  else 
{ /* ./Tools/progn.scm 33 */
return BgL_ezd2105zd2_38;} } } }  else 
{ /* ./Tools/progn.scm 32 */
{ /* ./Tools/progn.scm 43 */
obj_t BgL_subz00_52;
{ /* ./Tools/progn.scm 43 */
obj_t BgL_arg1093z00_58;
{ /* ./Tools/progn.scm 43 */
bool_t BgL_testz00_260;
{ /* ./Tools/progn.scm 43 */
obj_t BgL_auxz00_263;obj_t BgL_auxz00_261;
BgL_auxz00_263 = 
CNST_TABLE_REF(((long)0)); 
BgL_auxz00_261 = 
CAR(BgL_bodyza2za2_15); 
BgL_testz00_260 = 
(BgL_auxz00_261==BgL_auxz00_263); } 
if(BgL_testz00_260)
{ /* ./Tools/progn.scm 43 */
BgL_arg1093z00_58 = 
CDR(BgL_bodyza2za2_15); }  else 
{ /* ./Tools/progn.scm 43 */
BgL_arg1093z00_58 = BgL_bodyza2za2_15; } } 
BgL_subz00_52 = 
BGl_loopz72z72zztools_prognz00(BgL_arg1093z00_58); } 
{ /* ./Tools/progn.scm 65 */
bool_t BgL_test1084z00_53;
BgL_test1084z00_53 = 
EXTENDED_PAIRP(BgL_bodyza2za2_15); 
if(BgL_test1084z00_53)
{ /* ./Tools/progn.scm 66 */
obj_t BgL_arg1086z00_54;obj_t BgL_arg1087z00_55;
BgL_arg1086z00_54 = 
CNST_TABLE_REF(((long)0)); 
BgL_arg1087z00_55 = 
CER(BgL_bodyza2za2_15); 
{ /* ./Tools/progn.scm 66 */
obj_t BgL_res1221z00_164;
BgL_res1221z00_164 = 
MAKE_EXTENDED_PAIR(BgL_arg1086z00_54, BgL_subz00_52, BgL_arg1087z00_55); 
return BgL_res1221z00_164;} }  else 
{ /* ./Tools/progn.scm 67 */
obj_t BgL_auxz00_273;
BgL_auxz00_273 = 
CNST_TABLE_REF(((long)0)); 
return 
MAKE_PAIR(BgL_auxz00_273, BgL_subz00_52);} } } } }  else 
{ /* ./Tools/progn.scm 30 */
return 
BGl_internalzd2errorzd2zztools_errorz00(BGl_string1232z00zztools_prognz00, BGl_string1233z00zztools_prognz00, BgL_bodyza2za2_15);} } } 
}



/* loop' */
obj_t BGl_loopz72z72zztools_prognz00(obj_t BgL_bodyza2za2_56)
{ AN_OBJECT;
{ /* ./Tools/progn.scm 43 */
{ /* ./Tools/progn.scm 46 */
bool_t BgL_test1102z00_62;
BgL_test1102z00_62 = 
NULLP(BgL_bodyza2za2_56); 
if(BgL_test1102z00_62)
{ /* ./Tools/progn.scm 46 */
return BNIL;}  else 
{ /* ./Tools/progn.scm 48 */
obj_t BgL_exprz00_63;
BgL_exprz00_63 = 
CAR(BgL_bodyza2za2_56); 
{ /* ./Tools/progn.scm 49 */
bool_t BgL_test1103z00_64;
if(
PAIRP(BgL_exprz00_63))
{ /* ./Tools/progn.scm 50 */
obj_t BgL_auxz00_284;obj_t BgL_auxz00_282;
BgL_auxz00_284 = 
CNST_TABLE_REF(((long)0)); 
BgL_auxz00_282 = 
CAR(BgL_exprz00_63); 
BgL_test1103z00_64 = 
(BgL_auxz00_282==BgL_auxz00_284); }  else 
{ /* ./Tools/progn.scm 49 */
BgL_test1103z00_64 = ((bool_t)0); } 
if(BgL_test1103z00_64)
{ /* ./Tools/progn.scm 51 */
obj_t BgL_arg1105z00_65;obj_t BgL_arg1106z00_66;
BgL_arg1105z00_65 = 
CDR(BgL_exprz00_63); 
{ /* ./Tools/progn.scm 52 */
obj_t BgL_arg1110z00_67;
BgL_arg1110z00_67 = 
CDR(BgL_bodyza2za2_56); 
BgL_arg1106z00_66 = 
BGl_loopz72z72zztools_prognz00(BgL_arg1110z00_67); } 
return 
bgl_append2(BgL_arg1105z00_65, BgL_arg1106z00_66);}  else 
{ /* ./Tools/progn.scm 53 */
bool_t BgL_test1113z00_68;
BgL_test1113z00_68 = 
EXTENDED_PAIRP(BgL_exprz00_63); 
if(BgL_test1113z00_68)
{ /* ./Tools/progn.scm 53 */
{ /* ./Tools/progn.scm 60 */
obj_t BgL_arg1115z00_69;obj_t BgL_arg1117z00_70;
{ /* ./Tools/progn.scm 60 */
obj_t BgL_arg1120z00_71;
BgL_arg1120z00_71 = 
CDR(BgL_bodyza2za2_56); 
BgL_arg1115z00_69 = 
BGl_loopz72z72zztools_prognz00(BgL_arg1120z00_71); } 
BgL_arg1117z00_70 = 
CER(BgL_exprz00_63); 
{ /* ./Tools/progn.scm 59 */
obj_t BgL_res1219z00_150;
BgL_res1219z00_150 = 
MAKE_EXTENDED_PAIR(BgL_exprz00_63, BgL_arg1115z00_69, BgL_arg1117z00_70); 
return BgL_res1219z00_150;} } }  else 
{ /* ./Tools/progn.scm 62 */
bool_t BgL_test1125z00_72;
BgL_test1125z00_72 = 
EXTENDED_PAIRP(BgL_bodyza2za2_56); 
if(BgL_test1125z00_72)
{ /* ./Tools/progn.scm 62 */
{ /* ./Tools/progn.scm 60 */
obj_t BgL_arg1127z00_73;obj_t BgL_arg1128z00_74;
{ /* ./Tools/progn.scm 60 */
obj_t BgL_arg1131z00_75;
BgL_arg1131z00_75 = 
CDR(BgL_bodyza2za2_56); 
BgL_arg1127z00_73 = 
BGl_loopz72z72zztools_prognz00(BgL_arg1131z00_75); } 
BgL_arg1128z00_74 = 
CER(BgL_bodyza2za2_56); 
{ /* ./Tools/progn.scm 59 */
obj_t BgL_res1220z00_157;
BgL_res1220z00_157 = 
MAKE_EXTENDED_PAIR(BgL_exprz00_63, BgL_arg1127z00_73, BgL_arg1128z00_74); 
return BgL_res1220z00_157;} } }  else 
{ /* ./Tools/progn.scm 62 */
{ /* ./Tools/progn.scm 64 */
obj_t BgL_arg1136z00_76;
{ /* ./Tools/progn.scm 64 */
obj_t BgL_arg1140z00_77;
BgL_arg1140z00_77 = 
CDR(BgL_bodyza2za2_56); 
BgL_arg1136z00_76 = 
BGl_loopz72z72zztools_prognz00(BgL_arg1140z00_77); } 
return 
MAKE_PAIR(BgL_exprz00_63, BgL_arg1136z00_76);} } } } } } } } 
}



/* _normalize-progn */
obj_t BGl__normaliza7ezd2prognz75zztools_prognz00(obj_t BgL_envz00_190, obj_t BgL_bodyza2za2_191)
{ AN_OBJECT;
{ /* ./Tools/progn.scm 28 */
return 
BGl_normaliza7ezd2prognz75zztools_prognz00(BgL_bodyza2za2_191);} 
}



/* normalize-progn/loc */
BGL_EXPORTED_DEF obj_t BGl_normaliza7ezd2prognzf2locz87zztools_prognz00(obj_t BgL_bodyza2za2_16, obj_t BgL_locz00_17)
{ AN_OBJECT;
{ /* ./Tools/progn.scm 72 */
{ /* ./Tools/progn.scm 73 */
obj_t BgL_nbodyz00_82;
BgL_nbodyz00_82 = 
BGl_normaliza7ezd2prognz75zztools_prognz00(BgL_bodyza2za2_16); 
if(
CBOOL(BgL_locz00_17))
{ /* ./Tools/progn.scm 77 */
bool_t BgL_test1160z00_83;
BgL_test1160z00_83 = 
EXTENDED_PAIRP(BgL_nbodyz00_82); 
if(BgL_test1160z00_83)
{ /* ./Tools/progn.scm 77 */
return BgL_nbodyz00_82;}  else 
{ /* ./Tools/progn.scm 79 */
bool_t BgL_test1161z00_84;
BgL_test1161z00_84 = 
PAIRP(BgL_nbodyz00_82); 
if(BgL_test1161z00_84)
{ /* ./Tools/progn.scm 79 */
{ /* ./Tools/progn.scm 80 */
obj_t BgL_arg1163z00_85;obj_t BgL_arg1164z00_86;
BgL_arg1163z00_85 = 
CAR(BgL_nbodyz00_82); 
BgL_arg1164z00_86 = 
CDR(BgL_nbodyz00_82); 
{ /* ./Tools/progn.scm 80 */
obj_t BgL_res1222z00_172;
BgL_res1222z00_172 = 
MAKE_EXTENDED_PAIR(BgL_arg1163z00_85, BgL_arg1164z00_86, BgL_locz00_17); 
return BgL_res1222z00_172;} } }  else 
{ /* ./Tools/progn.scm 79 */
{ /* ./Tools/progn.scm 82 */
obj_t BgL_arg1169z00_87;obj_t BgL_arg1171z00_88;
BgL_arg1169z00_87 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./Tools/progn.scm 82 */
obj_t BgL_list1174z00_89;
BgL_list1174z00_89 = 
MAKE_PAIR(BgL_nbodyz00_82, BNIL); 
BgL_arg1171z00_88 = BgL_list1174z00_89; } 
{ /* ./Tools/progn.scm 82 */
obj_t BgL_res1224z00_178;
BgL_res1224z00_178 = 
MAKE_EXTENDED_PAIR(BgL_arg1169z00_87, BgL_arg1171z00_88, BgL_locz00_17); 
return BgL_res1224z00_178;} } } } }  else 
{ /* ./Tools/progn.scm 75 */
return BgL_nbodyz00_82;} } } 
}



/* _normalize-progn/loc */
obj_t BGl__normaliza7ezd2prognzf2locz87zztools_prognz00(obj_t BgL_envz00_192, obj_t BgL_bodyza2za2_193, obj_t BgL_locz00_194)
{ AN_OBJECT;
{ /* ./Tools/progn.scm 72 */
return 
BGl_normaliza7ezd2prognzf2locz87zztools_prognz00(BgL_bodyza2za2_193, BgL_locz00_194);} 
}



/* emap */
BGL_EXPORTED_DEF obj_t BGl_emapz00zztools_prognz00(obj_t BgL_fz00_18, obj_t BgL_lz00_19)
{ AN_OBJECT;
{ /* ./Tools/progn.scm 87 */
return 
BGl_loopz00zztools_prognz00(BgL_fz00_18, BgL_lz00_19);} 
}



/* loop */
obj_t BGl_loopz00zztools_prognz00(obj_t BgL_fz00_198, obj_t BgL_lz00_90)
{ AN_OBJECT;
{ /* ./Tools/progn.scm 88 */
{ /* ./Tools/progn.scm 90 */
bool_t BgL_test1180z00_92;
BgL_test1180z00_92 = 
NULLP(BgL_lz00_90); 
if(BgL_test1180z00_92)
{ /* ./Tools/progn.scm 90 */
return BNIL;}  else 
{ /* ./Tools/progn.scm 92 */
bool_t BgL_test1181z00_93;
BgL_test1181z00_93 = 
EXTENDED_PAIRP(BgL_lz00_90); 
if(BgL_test1181z00_93)
{ /* ./Tools/progn.scm 92 */
{ /* ./Tools/progn.scm 93 */
obj_t BgL_arg1183z00_94;obj_t BgL_arg1187z00_95;obj_t BgL_arg1188z00_96;
{ /* ./Tools/progn.scm 93 */
obj_t BgL_arg1191z00_97;
BgL_arg1191z00_97 = 
CAR(BgL_lz00_90); 
BgL_arg1183z00_94 = 
PROCEDURE_ENTRY(BgL_fz00_198)(BgL_fz00_198, BgL_arg1191z00_97, BEOA); } 
{ /* ./Tools/progn.scm 93 */
obj_t BgL_arg1195z00_98;
BgL_arg1195z00_98 = 
CDR(BgL_lz00_90); 
BgL_arg1187z00_95 = 
BGl_loopz00zztools_prognz00(BgL_fz00_198, BgL_arg1195z00_98); } 
BgL_arg1188z00_96 = 
CER(BgL_lz00_90); 
{ /* ./Tools/progn.scm 93 */
obj_t BgL_res1225z00_187;
BgL_res1225z00_187 = 
MAKE_EXTENDED_PAIR(BgL_arg1183z00_94, BgL_arg1187z00_95, BgL_arg1188z00_96); 
return BgL_res1225z00_187;} } }  else 
{ /* ./Tools/progn.scm 92 */
{ /* ./Tools/progn.scm 95 */
obj_t BgL_arg1200z00_99;obj_t BgL_arg1201z00_100;
{ /* ./Tools/progn.scm 95 */
obj_t BgL_arg1204z00_101;
BgL_arg1204z00_101 = 
CAR(BgL_lz00_90); 
BgL_arg1200z00_99 = 
PROCEDURE_ENTRY(BgL_fz00_198)(BgL_fz00_198, BgL_arg1204z00_101, BEOA); } 
{ /* ./Tools/progn.scm 95 */
obj_t BgL_arg1210z00_102;
BgL_arg1210z00_102 = 
CDR(BgL_lz00_90); 
BgL_arg1201z00_100 = 
BGl_loopz00zztools_prognz00(BgL_fz00_198, BgL_arg1210z00_102); } 
return 
MAKE_PAIR(BgL_arg1200z00_99, BgL_arg1201z00_100);} } } } } 
}



/* _emap */
obj_t BGl__emapz00zztools_prognz00(obj_t BgL_envz00_195, obj_t BgL_fz00_196, obj_t BgL_lz00_197)
{ AN_OBJECT;
{ /* ./Tools/progn.scm 87 */
return 
BGl_loopz00zztools_prognz00(BgL_fz00_196, BgL_lz00_197);} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zztools_prognz00()
{ AN_OBJECT;
{ /* ./Tools/progn.scm 15 */
BGl_modulezd2initializa7ationz75zztools_miscz00(((long)64117), "tools_progn"); 
BGl_modulezd2initializa7ationz75zztools_errorz00(((long)25566), "tools_progn"); 
return 
BGl_modulezd2initializa7ationz75zztools_locationz00(((long)32118), "tools_progn");} 
}

