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

#include <bigloo.h>


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

typedef struct BgL_valuez00_bgl {
   header_t header;
   obj_t widening;
} *BgL_valuez00_bglt;

typedef struct BgL_variablez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_namez00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_valuez00_bgl * BgL_valuez00;
   obj_t BgL_accessz00;
   obj_t BgL_fastzd2alphazd2;
   obj_t BgL_removablez00;
   long BgL_occurrencez00;
} *BgL_variablez00_bglt;

typedef struct BgL_globalz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_namez00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_valuez00_bgl * BgL_valuez00;
   obj_t BgL_accessz00;
   obj_t BgL_fastzd2alphazd2;
   obj_t BgL_removablez00;
   long BgL_occurrencez00;
   obj_t BgL_modulez00;
   obj_t BgL_importz00;
   bool_t BgL_evaluablezf3zf3;
   bool_t BgL_libraryzf3zf3;
   bool_t BgL_userzf3zf3;
   obj_t BgL_pragmaz00;
   obj_t BgL_srcz00;
   obj_t BgL_jvmzd2typezd2namez00;
} *BgL_globalz00_bglt;

typedef struct BgL_localz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_namez00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_valuez00_bgl * BgL_valuez00;
   obj_t BgL_accessz00;
   obj_t BgL_fastzd2alphazd2;
   obj_t BgL_removablez00;
   long BgL_occurrencez00;
   bool_t BgL_userzf3zf3;
   long BgL_keyz00;
} *BgL_localz00_bglt;

typedef struct BgL_funz00_bgl {
   header_t header;
   obj_t widening;
   long BgL_arityz00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_predicatezd2ofzd2;
   obj_t BgL_stackzd2allocatorzd2;
   bool_t BgL_topzf3zf3;
   obj_t BgL_thezd2closurezd2;
   obj_t BgL_effectz00;
} *BgL_funz00_bglt;

typedef struct BgL_sfunz00_bgl {
   header_t header;
   obj_t widening;
   long BgL_arityz00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_predicatezd2ofzd2;
   obj_t BgL_stackzd2allocatorzd2;
   bool_t BgL_topzf3zf3;
   obj_t BgL_thezd2closurezd2;
   obj_t BgL_effectz00;
   obj_t BgL_propertyz00;
   obj_t BgL_argsz00;
   obj_t BgL_bodyz00;
   obj_t BgL_classz00;
   obj_t BgL_dssslzd2keywordszd2;
   obj_t BgL_locz00;
} *BgL_sfunz00_bglt;

typedef struct BgL_cfunz00_bgl {
   header_t header;
   obj_t widening;
   long BgL_arityz00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_predicatezd2ofzd2;
   obj_t BgL_stackzd2allocatorzd2;
   bool_t BgL_topzf3zf3;
   obj_t BgL_thezd2closurezd2;
   obj_t BgL_effectz00;
   obj_t BgL_argszd2typezd2;
   bool_t BgL_macrozf3zf3;
   bool_t BgL_infixzf3zf3;
   obj_t BgL_methodz00;
} *BgL_cfunz00_bglt;

typedef struct BgL_svarz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
} *BgL_svarz00_bglt;

typedef struct BgL_scnstz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_nodez00;
   obj_t BgL_classz00;
   obj_t BgL_locz00;
} *BgL_scnstz00_bglt;

typedef struct BgL_cvarz00_bgl {
   header_t header;
   obj_t widening;
   bool_t BgL_macrozf3zf3;
} *BgL_cvarz00_bglt;

typedef struct BgL_sexitz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_handlerz00;
   bool_t BgL_detachedzf3zf3;
} *BgL_sexitz00_bglt;

typedef struct BgL_feffectz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_readz00;
   obj_t BgL_writez00;
} *BgL_feffectz00_bglt;

typedef struct BgL_nodez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
} *BgL_nodez00_bglt;

typedef struct BgL_nodezf2effectzf2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
} *BgL_nodezf2effectzf2_bglt;

typedef struct BgL_atomz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_valuez00;
} *BgL_atomz00_bglt;

typedef struct BgL_varz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_variablez00_bgl * BgL_variablez00;
} *BgL_varz00_bglt;

typedef struct BgL_closurez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_variablez00_bgl * BgL_variablez00;
} *BgL_closurez00_bglt;

typedef struct BgL_kwotez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_valuez00;
} *BgL_kwotez00_bglt;

typedef struct BgL_sequencez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_nodesz00;
} *BgL_sequencez00_bglt;

typedef struct BgL_appz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_varz00_bgl * BgL_funz00;
   obj_t BgL_argsz00;
} *BgL_appz00_bglt;

typedef struct BgL_appzd2lyzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_nodez00_bgl * BgL_funz00;
   struct BgL_nodez00_bgl * BgL_argz00;
} *BgL_appzd2lyzd2_bglt;

typedef struct BgL_funcallz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_nodez00_bgl * BgL_funz00;
   obj_t BgL_argsz00;
   obj_t BgL_strengthz00;
} *BgL_funcallz00_bglt;

typedef struct BgL_externz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
} *BgL_externz00_bglt;

typedef struct BgL_pragmaz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_formatz00;
} *BgL_pragmaz00_bglt;

typedef struct BgL_getfieldz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_fnamez00;
   struct BgL_typez00_bgl * BgL_ftypez00;
   struct BgL_typez00_bgl * BgL_otypez00;
} *BgL_getfieldz00_bglt;

typedef struct BgL_setfieldz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_fnamez00;
   struct BgL_typez00_bgl * BgL_ftypez00;
   struct BgL_typez00_bgl * BgL_otypez00;
} *BgL_setfieldz00_bglt;

typedef struct BgL_newz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
} *BgL_newz00_bglt;

typedef struct BgL_vallocz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_czd2heapzd2formatz00;
   struct BgL_typez00_bgl * BgL_ftypez00;
   struct BgL_typez00_bgl * BgL_otypez00;
} *BgL_vallocz00_bglt;

typedef struct BgL_vrefz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_czd2formatzd2;
   struct BgL_typez00_bgl * BgL_ftypez00;
   struct BgL_typez00_bgl * BgL_otypez00;
   struct BgL_typez00_bgl * BgL_vtypez00;
} *BgL_vrefz00_bglt;

typedef struct BgL_vsetz12z12_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_czd2formatzd2;
   struct BgL_typez00_bgl * BgL_ftypez00;
   struct BgL_typez00_bgl * BgL_otypez00;
   struct BgL_typez00_bgl * BgL_vtypez00;
} *BgL_vsetz12z12_bglt;

typedef struct BgL_vlengthz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_czd2formatzd2;
   struct BgL_typez00_bgl * BgL_vtypez00;
} *BgL_vlengthz00_bglt;

typedef struct BgL_isaz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   struct BgL_typez00_bgl * BgL_classz00;
} *BgL_isaz00_bglt;

typedef struct BgL_castz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_nodez00_bgl * BgL_argz00;
} *BgL_castz00_bglt;

typedef struct BgL_setqz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_varz00_bgl * BgL_varz00;
   struct BgL_nodez00_bgl * BgL_valuez00;
} *BgL_setqz00_bglt;

typedef struct BgL_conditionalz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_nodez00_bgl * BgL_testz00;
   struct BgL_nodez00_bgl * BgL_truez00;
   struct BgL_nodez00_bgl * BgL_falsez00;
} *BgL_conditionalz00_bglt;

typedef struct BgL_failz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_nodez00_bgl * BgL_procz00;
   struct BgL_nodez00_bgl * BgL_msgz00;
   struct BgL_nodez00_bgl * BgL_objz00;
} *BgL_failz00_bglt;

typedef struct BgL_selectz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_nodez00_bgl * BgL_testz00;
   obj_t BgL_clausesz00;
   struct BgL_typez00_bgl * BgL_itemzd2typezd2;
} *BgL_selectz00_bglt;

typedef struct BgL_letzd2funzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_localsz00;
   struct BgL_nodez00_bgl * BgL_bodyz00;
} *BgL_letzd2funzd2_bglt;

typedef struct BgL_letzd2varzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_bindingsz00;
   struct BgL_nodez00_bgl * BgL_bodyz00;
   bool_t BgL_removablezf3zf3;
} *BgL_letzd2varzd2_bglt;

typedef struct BgL_setzd2exzd2itz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_varz00_bgl * BgL_varz00;
   struct BgL_nodez00_bgl * BgL_bodyz00;
} *BgL_setzd2exzd2itz00_bglt;

typedef struct BgL_jumpzd2exzd2itz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_nodez00_bgl * BgL_exitz00;
   struct BgL_nodez00_bgl * BgL_valuez00;
} *BgL_jumpzd2exzd2itz00_bglt;

typedef struct BgL_makezd2boxzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_nodez00_bgl * BgL_valuez00;
} *BgL_makezd2boxzd2_bglt;

typedef struct BgL_boxzd2refzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_varz00_bgl * BgL_varz00;
} *BgL_boxzd2refzd2_bglt;

typedef struct BgL_boxzd2setz12zc0_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_varz00_bgl * BgL_varz00;
   struct BgL_nodez00_bgl * BgL_valuez00;
} *BgL_boxzd2setz12zc0_bglt;

typedef struct BgL_sfunzf2ginfozf2_bgl {
   bool_t BgL_gzf3zf3;
   obj_t BgL_cfromz00;
   obj_t BgL_cfromza2za2;
   obj_t BgL_ctoz00;
   obj_t BgL_ctoza2za2;
   obj_t BgL_cfunctionz00;
   obj_t BgL_integratorz00;
   obj_t BgL_imarkz00;
   obj_t BgL_ownerz00;
   obj_t BgL_integratedz00;
   obj_t BgL_pluggedzd2inzd2;
   long BgL_markz00;
   obj_t BgL_freezd2markzd2;
   obj_t BgL_thezd2globalzd2;
   obj_t BgL_kapturedz00;
   obj_t BgL_newzd2bodyzd2;
   long BgL_bmarkz00;
   long BgL_umarkz00;
   obj_t BgL_freez00;
   obj_t BgL_boundz00;
} *BgL_sfunzf2ginfozf2_bglt;

typedef struct BgL_svarzf2ginfozf2_bgl {
   bool_t BgL_kapturedzf3zf3;
   long BgL_freezd2markzd2;
   long BgL_markz00;
   bool_t BgL_celledzf3zf3;
} *BgL_svarzf2ginfozf2_bglt;

typedef struct BgL_sexitzf2ginfozf2_bgl {
   bool_t BgL_gzf3zf3;
   bool_t BgL_kapturedzf3zf3;
   long BgL_freezd2markzd2;
   long BgL_markz00;
} *BgL_sexitzf2ginfozf2_bglt;

typedef struct BgL_localzf2ginfozf2_bgl {
   bool_t BgL_escapezf3zf3;
} *BgL_localzf2ginfozf2_bglt;

typedef struct BgL_globalzf2ginfozf2_bgl {
   bool_t BgL_escapezf3zf3;
   obj_t BgL_globalzd2closurezd2;
} *BgL_globalzf2ginfozf2_bglt;


static obj_t BGl_methodzd2initzd2zzglobaliza7e_globaliza7ez00();
extern obj_t BGl_za2verboseza2z00zzengine_paramz00;
extern BgL_globalz00_bglt BGl_localzd2ze3globalz31zzglobaliza7e_localzd2ze3globalz96(BgL_localz00_bglt);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_globaliza7ez12zb5zzglobaliza7e_globaliza7ez00(BgL_globalz00_bglt);
static obj_t BGl_importedzd2moduleszd2initz00zzglobaliza7e_globaliza7ez00();
extern BgL_globalz00_bglt BGl_globalzd2closurezd2zzglobaliza7e_globalzd2closurez75(BgL_globalz00_bglt, obj_t);
static obj_t BGl__globaliza7ez123674zb5zzglobaliza7e_globaliza7ez00(obj_t, obj_t);
static obj_t BGl_toplevelzd2initzd2zzglobaliza7e_globaliza7ez00();
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzglobaliza7e_globaliza7ez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_tracez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_speekz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzglobaliza7e_ginfoza7(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzglobaliza7e_nodeza7(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzglobaliza7e_freeza7(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzglobaliza7e_kaptureza7(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzglobaliza7e_gnza7(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzglobaliza7e_integrationza7(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzglobaliza7e_newzd2bodyz75(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzglobaliza7e_localzd2ze3globalz96(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzglobaliza7e_globalzd2closurez75(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_numbers_6_5z00(long, char *);
extern BgL_nodez00_bglt BGl_nodezd2globaliza7ez12z67zzglobaliza7e_nodeza7(BgL_nodez00_bglt, BgL_variablez00_bglt, obj_t);
extern obj_t BGl_verbosez00zztools_speekz00(obj_t, obj_t);
BGL_IMPORT bool_t BGl_zc3zd3z10zz__r4_numbers_6_5z00(obj_t, obj_t, obj_t);
extern obj_t BGl_Gnz12z12zzglobaliza7e_gnza7(obj_t, BgL_nodez00_bglt, BgL_variablez00_bglt, obj_t);
extern obj_t BGl_shapez00zztools_shapez00(obj_t);
extern obj_t BGl_setzd2integrationz12zc0zzglobaliza7e_integrationza7();
static bool_t BGl_verbzd2globaliza7ationz75zzglobaliza7e_globaliza7ez00();
extern obj_t BGl_localz00zzast_varz00;
static obj_t BGl_requirezd2initializa7ationz75zzglobaliza7e_globaliza7ez00 = BUNSPEC;
extern obj_t BGl_setzd2kapturedz12zc0zzglobaliza7e_kaptureza7(obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzglobaliza7e_globaliza7ez00();
BGL_EXPORTED_DEF obj_t BGl_za2Eza2z00zzglobaliza7e_globaliza7ez00 = BUNSPEC;
BGL_EXPORTED_DEF obj_t BGl_za2G0za2z00zzglobaliza7e_globaliza7ez00 = BUNSPEC;
extern obj_t BGl_setzd2globaliza7edzd2newzd2bodiesz12z67zzglobaliza7e_newzd2bodyz75(BgL_globalz00_bglt, obj_t);
BGL_EXPORTED_DEF obj_t BGl_za2G1za2z00zzglobaliza7e_globaliza7ez00 = BUNSPEC;
static obj_t *__cnst;


DEFINE_STRING( BGl_string3730z00zzglobaliza7e_globaliza7ez00, BgL_bgl_string3730za700za7za7globaliza7a7e_globaliza7a7eza7003741z00, " -->", 4 );
DEFINE_STRING( BGl_string3729z00zzglobaliza7e_globaliza7ez00, BgL_bgl_string3729za700za7za7globaliza7a7e_globaliza7a7eza7003742z00, " --> ", 5 );
DEFINE_STRING( BGl_string3728z00zzglobaliza7e_globaliza7ez00, BgL_bgl_string3728za700za7za7globaliza7a7e_globaliza7a7eza7003743z00, "           ", 11 );
DEFINE_STRING( BGl_string3727z00zzglobaliza7e_globaliza7ez00, BgL_bgl_string3727za700za7za7globaliza7a7e_globaliza7a7eza7003744z00, " ==>", 4 );
DEFINE_STRING( BGl_string3726z00zzglobaliza7e_globaliza7ez00, BgL_bgl_string3726za700za7za7globaliza7a7e_globaliza7a7eza7003745z00, "        ", 8 );
DEFINE_STRING( BGl_string3725z00zzglobaliza7e_globaliza7ez00, BgL_bgl_string3725za700za7za7globaliza7a7e_globaliza7a7eza7003746z00, " : ", 3 );
DEFINE_EXPORT_PROCEDURE( BGl_globaliza7ez12zd2envz67zzglobaliza7e_globaliza7ez00, BgL_bgl__globaliza7a7eza7123674za7b5za7za7globaliza7a7e_globaliza7a7eza7003747z00, BGl__globaliza7ez123674zb5zzglobaliza7e_globaliza7ez00, 0L, 1 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzglobaliza7e_globaliza7ez00(long BgL_checksumz00_1320, char * BgL_fromz00_1321)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzglobaliza7e_globaliza7ez00))
{ 
BGl_requirezd2initializa7ationz75zzglobaliza7e_globaliza7ez00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzglobaliza7e_globaliza7ez00(); 
BGl_importedzd2moduleszd2initz00zzglobaliza7e_globaliza7ez00(); 
BGl_toplevelzd2initzd2zzglobaliza7e_globaliza7ez00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzglobaliza7e_globaliza7ez00()
{ AN_OBJECT;
{ /* ./Globalize/globalize.scm 15 */
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "globalize_globalize"); 
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(((long)0), "globalize_globalize"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "globalize_globalize"); 
return BUNSPEC;} 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzglobaliza7e_globaliza7ez00()
{ AN_OBJECT;
{ /* ./Globalize/globalize.scm 15 */
BGl_za2Eza2z00zzglobaliza7e_globaliza7ez00 = BNIL; 
BGl_za2G0za2z00zzglobaliza7e_globaliza7ez00 = BNIL; 
return ( 
BGl_za2G1za2z00zzglobaliza7e_globaliza7ez00 = BNIL, BUNSPEC) ;} 
}



/* globalize! */
BGL_EXPORTED_DEF obj_t BGl_globaliza7ez12zb5zzglobaliza7e_globaliza7ez00(BgL_globalz00_bglt BgL_globalz00_1)
{ AN_OBJECT;
{ /* ./Globalize/globalize.scm 47 */
{ /* ./Globalize/globalize.scm 54 */
bool_t BgL_test3043z00_794;
BgL_test3043z00_794 = 
BGl_zc3zd3z10zz__r4_numbers_6_5z00(
BINT(((long)3)), BGl_za2verboseza2z00zzengine_paramz00, BNIL); 
if(BgL_test3043z00_794)
{ /* ./Globalize/globalize.scm 54 */
obj_t BgL_arg3047z00_796;
BgL_arg3047z00_796 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_globalz00_1)); 
{ /* ./Globalize/globalize.scm 54 */
obj_t BgL_list3050z00_798;
{ /* ./Globalize/globalize.scm 54 */
obj_t BgL_arg3052z00_799;
{ /* ./Globalize/globalize.scm 54 */
obj_t BgL_arg3055z00_800;
{ /* ./Globalize/globalize.scm 54 */
obj_t BgL_arg3058z00_801;
{ /* ./Globalize/globalize.scm 54 */
obj_t BgL_auxz00_1336;
BgL_auxz00_1336 = 
BCHAR(((unsigned char)'\n')); 
BgL_arg3058z00_801 = 
MAKE_PAIR(BgL_auxz00_1336, BNIL); } 
BgL_arg3055z00_800 = 
MAKE_PAIR(BGl_string3725z00zzglobaliza7e_globaliza7ez00, BgL_arg3058z00_801); } 
BgL_arg3052z00_799 = 
MAKE_PAIR(BgL_arg3047z00_796, BgL_arg3055z00_800); } 
BgL_list3050z00_798 = 
MAKE_PAIR(BGl_string3726z00zzglobaliza7e_globaliza7ez00, BgL_arg3052z00_799); } 
BGl_verbosez00zztools_speekz00(
BINT(((long)3)), BgL_list3050z00_798); } }  else 
{ /* ./Globalize/globalize.scm 54 */BUNSPEC; } } 
{ /* ./Globalize/globalize.scm 55 */
BgL_valuez00_bglt BgL_funz00_803;
{ /* ./Globalize/globalize.scm 55 */
BgL_variablez00_bglt BgL_obj1100z00_1284;
BgL_obj1100z00_1284 = 
(BgL_variablez00_bglt)(BgL_globalz00_1); 
BgL_funz00_803 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1284))->BgL_valuez00); } 
BGl_za2Eza2z00zzglobaliza7e_globaliza7ez00 = BNIL; 
BGl_za2G0za2z00zzglobaliza7e_globaliza7ez00 = BNIL; 
BGl_za2G1za2z00zzglobaliza7e_globaliza7ez00 = BNIL; 
{ /* ./Globalize/globalize.scm 59 */
obj_t BgL_arg3065z00_804;obj_t BgL_arg3066z00_805;
{ /* ./Globalize/globalize.scm 59 */
BgL_sfunz00_bglt BgL_obj1367z00_1285;
BgL_obj1367z00_1285 = 
(BgL_sfunz00_bglt)(BgL_funz00_803); 
BgL_arg3065z00_804 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1367z00_1285))->BgL_argsz00); } 
{ /* ./Globalize/globalize.scm 59 */
BgL_sfunz00_bglt BgL_obj1370z00_1286;
BgL_obj1370z00_1286 = 
(BgL_sfunz00_bglt)(BgL_funz00_803); 
BgL_arg3066z00_805 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_1286))->BgL_bodyz00); } 
BGl_Gnz12z12zzglobaliza7e_gnza7(BgL_arg3065z00_804, 
(BgL_nodez00_bglt)(BgL_arg3066z00_805), 
(BgL_variablez00_bglt)(BgL_globalz00_1), BNIL); } 
BGl_setzd2integrationz12zc0zzglobaliza7e_integrationza7(); 
{ /* ./Globalize/globalize.scm 70 */
obj_t BgL_gz00_807;
{ 
obj_t BgL_g1z00_827;obj_t BgL_gz00_828;
BgL_g1z00_827 = BGl_za2G1za2z00zzglobaliza7e_globaliza7ez00; 
BgL_gz00_828 = BGl_za2Eza2z00zzglobaliza7e_globaliza7ez00; 
BgL_loopz00_829:
{ /* ./Globalize/globalize.scm 73 */
bool_t BgL_test3119z00_830;
BgL_test3119z00_830 = 
NULLP(BgL_g1z00_827); 
if(BgL_test3119z00_830)
{ /* ./Globalize/globalize.scm 73 */
BgL_gz00_807 = BgL_gz00_828; }  else 
{ /* ./Globalize/globalize.scm 76 */
bool_t BgL_test3120z00_831;
{ /* ./Globalize/globalize.scm 76 */
obj_t BgL_arg3136z00_836;
{ /* ./Globalize/globalize.scm 76 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2760z00_1290;
{ /* ./Globalize/globalize.scm 76 */
BgL_valuez00_bglt BgL_auxz00_1356;
{ /* ./Globalize/globalize.scm 76 */
BgL_variablez00_bglt BgL_obj1100z00_1289;
{ /* ./Globalize/globalize.scm 76 */
obj_t BgL_auxz00_1357;
BgL_auxz00_1357 = 
CAR(BgL_g1z00_827); 
BgL_obj1100z00_1289 = 
(BgL_variablez00_bglt)(BgL_auxz00_1357); } 
BgL_auxz00_1356 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1289))->BgL_valuez00); } 
BgL_obj2760z00_1290 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_auxz00_1356); } 
{ 
obj_t BgL_auxz00_1362;
{ /* ./Globalize/globalize.scm 76 */
BgL_objectz00_bglt BgL_auxz00_1363;
BgL_auxz00_1363 = 
(BgL_objectz00_bglt)(BgL_obj2760z00_1290); 
BgL_auxz00_1362 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1363); } 
BgL_arg3136z00_836 = 
(((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_1362))->BgL_integratorz00); } } 
BgL_test3120z00_831 = 
BGl_iszd2azf3z21zz__objectz00(BgL_arg3136z00_836, BGl_localz00zzast_varz00); } 
if(BgL_test3120z00_831)
{ /* ./Globalize/globalize.scm 76 */
{ /* ./Globalize/globalize.scm 77 */
obj_t BgL_arg3122z00_832;
BgL_arg3122z00_832 = 
CDR(BgL_g1z00_827); 
{ 
obj_t BgL_g1z00_1370;
BgL_g1z00_1370 = BgL_arg3122z00_832; 
BgL_g1z00_827 = BgL_g1z00_1370; 
goto BgL_loopz00_829;} } }  else 
{ /* ./Globalize/globalize.scm 76 */
{ /* ./Globalize/globalize.scm 79 */
obj_t BgL_arg3126z00_833;obj_t BgL_arg3128z00_834;
BgL_arg3126z00_833 = 
CDR(BgL_g1z00_827); 
{ /* ./Globalize/globalize.scm 79 */
obj_t BgL_arg3132z00_835;
BgL_arg3132z00_835 = 
CAR(BgL_g1z00_827); 
BgL_arg3128z00_834 = 
MAKE_PAIR(BgL_arg3132z00_835, BgL_gz00_828); } 
{ 
obj_t BgL_gz00_1375;obj_t BgL_g1z00_1374;
BgL_g1z00_1374 = BgL_arg3126z00_833; 
BgL_gz00_1375 = BgL_arg3128z00_834; 
BgL_gz00_828 = BgL_gz00_1375; 
BgL_g1z00_827 = BgL_g1z00_1374; 
goto BgL_loopz00_829;} } } } } } 
BGl_verbzd2globaliza7ationz75zzglobaliza7e_globaliza7ez00(); 
BGl_setzd2globaliza7edzd2newzd2bodiesz12z67zzglobaliza7e_newzd2bodyz75(BgL_globalz00_1, BgL_gz00_807); 
BGl_setzd2kapturedz12zc0zzglobaliza7e_kaptureza7(BgL_gz00_807); 
{ 
obj_t BgL_gz00_808;obj_t BgL_newzd2gzd2_809;
{ /* ./Globalize/globalize.scm 89 */
obj_t BgL_arg3076z00_811;
{ /* ./Globalize/globalize.scm 89 */
bool_t BgL_test3078z00_812;
{ /* ./Globalize/globalize.scm 89 */
BgL_globalzf2ginfozf2_bglt BgL_obj2980z00_1295;
BgL_obj2980z00_1295 = 
(BgL_globalzf2ginfozf2_bglt)(BgL_globalz00_1); 
{ 
obj_t BgL_auxz00_1380;
{ /* ./Globalize/globalize.scm 89 */
BgL_objectz00_bglt BgL_auxz00_1381;
BgL_auxz00_1381 = 
(BgL_objectz00_bglt)(BgL_obj2980z00_1295); 
BgL_auxz00_1380 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1381); } 
BgL_test3078z00_812 = 
(((BgL_globalzf2ginfozf2_bglt)CREF(BgL_auxz00_1380))->BgL_escapezf3zf3); } } 
if(BgL_test3078z00_812)
{ /* ./Globalize/globalize.scm 92 */
BgL_globalz00_bglt BgL_arg3080z00_813;
{ /* ./Globalize/globalize.scm 92 */
obj_t BgL_arg3088z00_816;
{ /* ./Globalize/globalize.scm 91 */
BgL_nodez00_bglt BgL_obj1560z00_1297;
{ /* ./Globalize/globalize.scm 92 */
obj_t BgL_auxz00_1386;
{ /* ./Globalize/globalize.scm 92 */
BgL_sfunz00_bglt BgL_obj1370z00_1296;
BgL_obj1370z00_1296 = 
(BgL_sfunz00_bglt)(BgL_funz00_803); 
BgL_auxz00_1386 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_1296))->BgL_bodyz00); } 
BgL_obj1560z00_1297 = 
(BgL_nodez00_bglt)(BgL_auxz00_1386); } 
BgL_arg3088z00_816 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_1297))->BgL_locz00); } 
BgL_arg3080z00_813 = 
BGl_globalzd2closurezd2zzglobaliza7e_globalzd2closurez75(BgL_globalz00_1, BgL_arg3088z00_816); } 
{ /* ./Globalize/globalize.scm 90 */
obj_t BgL_list3082z00_814;
{ /* ./Globalize/globalize.scm 90 */
obj_t BgL_arg3084z00_815;
{ /* ./Globalize/globalize.scm 90 */
obj_t BgL_auxz00_1392;
BgL_auxz00_1392 = 
(obj_t)(BgL_globalz00_1); 
BgL_arg3084z00_815 = 
MAKE_PAIR(BgL_auxz00_1392, BNIL); } 
{ /* ./Globalize/globalize.scm 90 */
obj_t BgL_auxz00_1395;
BgL_auxz00_1395 = 
(obj_t)(BgL_arg3080z00_813); 
BgL_list3082z00_814 = 
MAKE_PAIR(BgL_auxz00_1395, BgL_arg3084z00_815); } } 
BgL_arg3076z00_811 = BgL_list3082z00_814; } }  else 
{ /* ./Globalize/globalize.scm 94 */
obj_t BgL_list3095z00_818;
{ /* ./Globalize/globalize.scm 94 */
obj_t BgL_auxz00_1398;
BgL_auxz00_1398 = 
(obj_t)(BgL_globalz00_1); 
BgL_list3095z00_818 = 
MAKE_PAIR(BgL_auxz00_1398, BNIL); } 
BgL_arg3076z00_811 = BgL_list3095z00_818; } } 
BgL_gz00_808 = BgL_gz00_807; 
BgL_newzd2gzd2_809 = BgL_arg3076z00_811; 
BgL_loopz00_810:
{ /* ./Globalize/globalize.scm 95 */
bool_t BgL_test3098z00_819;
BgL_test3098z00_819 = 
NULLP(BgL_gz00_808); 
if(BgL_test3098z00_819)
{ /* ./Globalize/globalize.scm 97 */
BgL_nodez00_bglt BgL_bodyz00_820;
{ /* ./Globalize/globalize.scm 97 */
obj_t BgL_arg3101z00_821;
{ /* ./Globalize/globalize.scm 97 */
BgL_sfunz00_bglt BgL_obj1370z00_1303;
BgL_obj1370z00_1303 = 
(BgL_sfunz00_bglt)(BgL_funz00_803); 
BgL_arg3101z00_821 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_1303))->BgL_bodyz00); } 
BgL_bodyz00_820 = 
BGl_nodezd2globaliza7ez12z67zzglobaliza7e_nodeza7(
(BgL_nodez00_bglt)(BgL_arg3101z00_821), 
(BgL_variablez00_bglt)(BgL_globalz00_1), BNIL); } 
{ /* ./Globalize/globalize.scm 98 */
BgL_sfunz00_bglt BgL_obj1373z00_1304;obj_t BgL_val1371z00_1305;
BgL_obj1373z00_1304 = 
(BgL_sfunz00_bglt)(BgL_funz00_803); 
BgL_val1371z00_1305 = 
(obj_t)(BgL_bodyz00_820); 
((((BgL_sfunz00_bglt)CREF(BgL_obj1373z00_1304))->BgL_bodyz00) = ((obj_t)BgL_val1371z00_1305), BUNSPEC); } 
return BgL_newzd2gzd2_809;}  else 
{ /* ./Globalize/globalize.scm 101 */
obj_t BgL_arg3106z00_823;obj_t BgL_arg3107z00_824;
BgL_arg3106z00_823 = 
CDR(BgL_gz00_808); 
{ /* ./Globalize/globalize.scm 102 */
BgL_globalz00_bglt BgL_arg3111z00_825;
{ /* ./Globalize/globalize.scm 102 */
obj_t BgL_arg3114z00_826;
BgL_arg3114z00_826 = 
CAR(BgL_gz00_808); 
BgL_arg3111z00_825 = 
BGl_localzd2ze3globalz31zzglobaliza7e_localzd2ze3globalz96(
(BgL_localz00_bglt)(BgL_arg3114z00_826)); } 
{ /* ./Globalize/globalize.scm 102 */
obj_t BgL_auxz00_1415;
BgL_auxz00_1415 = 
(obj_t)(BgL_arg3111z00_825); 
BgL_arg3107z00_824 = 
MAKE_PAIR(BgL_auxz00_1415, BgL_newzd2gzd2_809); } } 
{ 
obj_t BgL_newzd2gzd2_1419;obj_t BgL_gz00_1418;
BgL_gz00_1418 = BgL_arg3106z00_823; 
BgL_newzd2gzd2_1419 = BgL_arg3107z00_824; 
BgL_newzd2gzd2_809 = BgL_newzd2gzd2_1419; 
BgL_gz00_808 = BgL_gz00_1418; 
goto BgL_loopz00_810;} } } } } } } } 
}



/* _globalize!3674 */
obj_t BGl__globaliza7ez123674zb5zzglobaliza7e_globaliza7ez00(obj_t BgL_envz00_1318, obj_t BgL_globalz00_1319)
{ AN_OBJECT;
{ /* ./Globalize/globalize.scm 47 */
return 
BGl_globaliza7ez12zb5zzglobaliza7e_globaliza7ez00(
(BgL_globalz00_bglt)(BgL_globalz00_1319));} 
}



/* verb-globalization */
bool_t BGl_verbzd2globaliza7ationz75zzglobaliza7e_globaliza7ez00()
{ AN_OBJECT;
{ /* ./Globalize/globalize.scm 107 */
{ 
obj_t BgL_l3036z00_839;
BgL_l3036z00_839 = BGl_za2Eza2z00zzglobaliza7e_globaliza7ez00; 
BgL_forzd2each3037zd2_840:
{ /* ./Globalize/globalize.scm 108 */
bool_t BgL_test3148z00_841;
BgL_test3148z00_841 = 
PAIRP(BgL_l3036z00_839); 
if(BgL_test3148z00_841)
{ /* ./Globalize/globalize.scm 108 */
{ /* ./Globalize/globalize.scm 109 */
obj_t BgL_localz00_842;
BgL_localz00_842 = 
CAR(BgL_l3036z00_839); 
{ /* ./Globalize/globalize.scm 109 */
bool_t BgL_test3149z00_844;
BgL_test3149z00_844 = 
BGl_zc3zd3z10zz__r4_numbers_6_5z00(
BINT(((long)3)), BGl_za2verboseza2z00zzengine_paramz00, BNIL); 
if(BgL_test3149z00_844)
{ /* ./Globalize/globalize.scm 109 */
obj_t BgL_arg3152z00_846;
BgL_arg3152z00_846 = 
BGl_shapez00zztools_shapez00(BgL_localz00_842); 
{ /* ./Globalize/globalize.scm 109 */
obj_t BgL_list3155z00_848;
{ /* ./Globalize/globalize.scm 109 */
obj_t BgL_arg3157z00_849;
{ /* ./Globalize/globalize.scm 109 */
obj_t BgL_arg3160z00_850;
{ /* ./Globalize/globalize.scm 109 */
obj_t BgL_arg3163z00_851;
{ /* ./Globalize/globalize.scm 109 */
obj_t BgL_auxz00_1429;
BgL_auxz00_1429 = 
BCHAR(((unsigned char)'\n')); 
BgL_arg3163z00_851 = 
MAKE_PAIR(BgL_auxz00_1429, BNIL); } 
BgL_arg3160z00_850 = 
MAKE_PAIR(BGl_string3727z00zzglobaliza7e_globaliza7ez00, BgL_arg3163z00_851); } 
BgL_arg3157z00_849 = 
MAKE_PAIR(BgL_arg3152z00_846, BgL_arg3160z00_850); } 
BgL_list3155z00_848 = 
MAKE_PAIR(BGl_string3728z00zzglobaliza7e_globaliza7ez00, BgL_arg3157z00_849); } 
BGl_verbosez00zztools_speekz00(
BINT(((long)3)), BgL_list3155z00_848); } }  else 
{ /* ./Globalize/globalize.scm 109 */BUNSPEC; } } } 
{ /* ./Globalize/globalize.scm 108 */
obj_t BgL_arg3171z00_853;
BgL_arg3171z00_853 = 
CDR(BgL_l3036z00_839); 
{ 
obj_t BgL_l3036z00_1438;
BgL_l3036z00_1438 = BgL_arg3171z00_853; 
BgL_l3036z00_839 = BgL_l3036z00_1438; 
goto BgL_forzd2each3037zd2_840;} } }  else 
{ /* ./Globalize/globalize.scm 108 */((bool_t)1); } } } 
{ 
obj_t BgL_l3039z00_854;
BgL_l3039z00_854 = BGl_za2G1za2z00zzglobaliza7e_globaliza7ez00; 
BgL_forzd2each3040zd2_855:
{ /* ./Globalize/globalize.scm 111 */
bool_t BgL_test3176z00_856;
BgL_test3176z00_856 = 
PAIRP(BgL_l3039z00_854); 
if(BgL_test3176z00_856)
{ /* ./Globalize/globalize.scm 111 */
{ /* ./Globalize/globalize.scm 112 */
obj_t BgL_localz00_857;
BgL_localz00_857 = 
CAR(BgL_l3039z00_854); 
{ /* ./Globalize/globalize.scm 112 */
BgL_valuez00_bglt BgL_sfunzf2ginfozf2_858;
{ /* ./Globalize/globalize.scm 112 */
BgL_variablez00_bglt BgL_obj1100z00_1313;
BgL_obj1100z00_1313 = 
(BgL_variablez00_bglt)(BgL_localz00_857); 
BgL_sfunzf2ginfozf2_858 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1313))->BgL_valuez00); } 
{ /* ./Globalize/globalize.scm 113 */
bool_t BgL_test3177z00_859;
{ /* ./Globalize/globalize.scm 113 */
obj_t BgL_arg3230z00_883;
{ /* ./Globalize/globalize.scm 113 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2760z00_1314;
BgL_obj2760z00_1314 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_sfunzf2ginfozf2_858); 
{ 
obj_t BgL_auxz00_1445;
{ /* ./Globalize/globalize.scm 113 */
BgL_objectz00_bglt BgL_auxz00_1446;
BgL_auxz00_1446 = 
(BgL_objectz00_bglt)(BgL_obj2760z00_1314); 
BgL_auxz00_1445 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1446); } 
BgL_arg3230z00_883 = 
(((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_1445))->BgL_integratorz00); } } 
BgL_test3177z00_859 = 
BGl_iszd2azf3z21zz__objectz00(BgL_arg3230z00_883, BGl_localz00zzast_varz00); } 
if(BgL_test3177z00_859)
{ /* ./Globalize/globalize.scm 114 */
bool_t BgL_test3178z00_861;
BgL_test3178z00_861 = 
BGl_zc3zd3z10zz__r4_numbers_6_5z00(
BINT(((long)3)), BGl_za2verboseza2z00zzengine_paramz00, BNIL); 
if(BgL_test3178z00_861)
{ /* ./Globalize/globalize.scm 114 */
obj_t BgL_arg3181z00_863;obj_t BgL_arg3184z00_865;
BgL_arg3181z00_863 = 
BGl_shapez00zztools_shapez00(BgL_localz00_857); 
{ /* ./Globalize/globalize.scm 117 */
obj_t BgL_arg3202z00_871;
{ /* ./Globalize/globalize.scm 117 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2760z00_1316;
BgL_obj2760z00_1316 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_sfunzf2ginfozf2_858); 
{ 
obj_t BgL_auxz00_1457;
{ /* ./Globalize/globalize.scm 117 */
BgL_objectz00_bglt BgL_auxz00_1458;
BgL_auxz00_1458 = 
(BgL_objectz00_bglt)(BgL_obj2760z00_1316); 
BgL_auxz00_1457 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1458); } 
BgL_arg3202z00_871 = 
(((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_1457))->BgL_integratorz00); } } 
BgL_arg3184z00_865 = 
BGl_shapez00zztools_shapez00(BgL_arg3202z00_871); } 
{ /* ./Globalize/globalize.scm 114 */
obj_t BgL_list3186z00_866;
{ /* ./Globalize/globalize.scm 114 */
obj_t BgL_arg3188z00_867;
{ /* ./Globalize/globalize.scm 114 */
obj_t BgL_arg3191z00_868;
{ /* ./Globalize/globalize.scm 114 */
obj_t BgL_arg3194z00_869;
{ /* ./Globalize/globalize.scm 114 */
obj_t BgL_arg3197z00_870;
{ /* ./Globalize/globalize.scm 114 */
obj_t BgL_auxz00_1463;
BgL_auxz00_1463 = 
BCHAR(((unsigned char)'\n')); 
BgL_arg3197z00_870 = 
MAKE_PAIR(BgL_auxz00_1463, BNIL); } 
BgL_arg3194z00_869 = 
MAKE_PAIR(BgL_arg3184z00_865, BgL_arg3197z00_870); } 
BgL_arg3191z00_868 = 
MAKE_PAIR(BGl_string3729z00zzglobaliza7e_globaliza7ez00, BgL_arg3194z00_869); } 
BgL_arg3188z00_867 = 
MAKE_PAIR(BgL_arg3181z00_863, BgL_arg3191z00_868); } 
BgL_list3186z00_866 = 
MAKE_PAIR(BGl_string3728z00zzglobaliza7e_globaliza7ez00, BgL_arg3188z00_867); } 
BGl_verbosez00zztools_speekz00(
BINT(((long)3)), BgL_list3186z00_866); } }  else 
{ /* ./Globalize/globalize.scm 114 */BUNSPEC; } }  else 
{ /* ./Globalize/globalize.scm 119 */
bool_t BgL_test3207z00_874;
BgL_test3207z00_874 = 
BGl_zc3zd3z10zz__r4_numbers_6_5z00(
BINT(((long)3)), BGl_za2verboseza2z00zzengine_paramz00, BNIL); 
if(BgL_test3207z00_874)
{ /* ./Globalize/globalize.scm 119 */
obj_t BgL_arg3211z00_876;
BgL_arg3211z00_876 = 
BGl_shapez00zztools_shapez00(BgL_localz00_857); 
{ /* ./Globalize/globalize.scm 119 */
obj_t BgL_list3215z00_878;
{ /* ./Globalize/globalize.scm 119 */
obj_t BgL_arg3217z00_879;
{ /* ./Globalize/globalize.scm 119 */
obj_t BgL_arg3220z00_880;
{ /* ./Globalize/globalize.scm 119 */
obj_t BgL_arg3223z00_881;
{ /* ./Globalize/globalize.scm 119 */
obj_t BgL_auxz00_1476;
BgL_auxz00_1476 = 
BCHAR(((unsigned char)'\n')); 
BgL_arg3223z00_881 = 
MAKE_PAIR(BgL_auxz00_1476, BNIL); } 
BgL_arg3220z00_880 = 
MAKE_PAIR(BGl_string3730z00zzglobaliza7e_globaliza7ez00, BgL_arg3223z00_881); } 
BgL_arg3217z00_879 = 
MAKE_PAIR(BgL_arg3211z00_876, BgL_arg3220z00_880); } 
BgL_list3215z00_878 = 
MAKE_PAIR(BGl_string3728z00zzglobaliza7e_globaliza7ez00, BgL_arg3217z00_879); } 
BGl_verbosez00zztools_speekz00(
BINT(((long)3)), BgL_list3215z00_878); } }  else 
{ /* ./Globalize/globalize.scm 119 */BUNSPEC; } } } } } 
{ /* ./Globalize/globalize.scm 111 */
obj_t BgL_arg3236z00_884;
BgL_arg3236z00_884 = 
CDR(BgL_l3039z00_854); 
{ 
obj_t BgL_l3039z00_1485;
BgL_l3039z00_1485 = BgL_arg3236z00_884; 
BgL_l3039z00_854 = BgL_l3039z00_1485; 
goto BgL_forzd2each3040zd2_855;} } }  else 
{ /* ./Globalize/globalize.scm 111 */
return ((bool_t)1);} } } } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzglobaliza7e_globaliza7ez00()
{ AN_OBJECT;
{ /* ./Globalize/globalize.scm 15 */
return BUNSPEC;} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzglobaliza7e_globaliza7ez00()
{ AN_OBJECT;
{ /* ./Globalize/globalize.scm 15 */
BGl_modulezd2initializa7ationz75zztools_tracez00(((long)59211), "globalize_globalize"); 
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long)14260), "globalize_globalize"); 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "globalize_globalize"); 
BGl_modulezd2initializa7ationz75zztools_speekz00(((long)23537), "globalize_globalize"); 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "globalize_globalize"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "globalize_globalize"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "globalize_globalize"); 
BGl_modulezd2initializa7ationz75zzglobaliza7e_ginfoza7(((long)0), "globalize_globalize"); 
BGl_modulezd2initializa7ationz75zzglobaliza7e_nodeza7(((long)60835), "globalize_globalize"); 
BGl_modulezd2initializa7ationz75zzglobaliza7e_freeza7(((long)30276), "globalize_globalize"); 
BGl_modulezd2initializa7ationz75zzglobaliza7e_kaptureza7(((long)59660), "globalize_globalize"); 
BGl_modulezd2initializa7ationz75zzglobaliza7e_gnza7(((long)29835), "globalize_globalize"); 
BGl_modulezd2initializa7ationz75zzglobaliza7e_integrationza7(((long)11815), "globalize_globalize"); 
BGl_modulezd2initializa7ationz75zzglobaliza7e_newzd2bodyz75(((long)7193), "globalize_globalize"); 
BGl_modulezd2initializa7ationz75zzglobaliza7e_localzd2ze3globalz96(((long)42216), "globalize_globalize"); 
return 
BGl_modulezd2initializa7ationz75zzglobaliza7e_globalzd2closurez75(((long)53871), "globalize_globalize");} 
}

