/*===========================================================================*/
/*   (Globalize/gn.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/gn.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_gnza7();
BGL_IMPORT obj_t open_input_string(obj_t);
static obj_t BGl_Ezd2setq3090zd2zzglobaliza7e_gnza7(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_Ezd2setzd2exzd2it3103zd2zzglobaliza7e_gnza7(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_letzd2funzd2zzast_nodez00;
static obj_t BGl_Ez00zzglobaliza7e_gnza7(BgL_nodez00_bglt, BgL_variablez00_bglt, obj_t);
static obj_t BGl_Ezd2jumpzd2exzd2it3105zd2zzglobaliza7e_gnza7(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__Ezd2default3067zd2zzglobaliza7e_gnza7(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);
BGL_IMPORT obj_t BGl_addzd2genericz12zc0zz__objectz00(obj_t, obj_t);
extern obj_t BGl_letzd2varzd2zzast_nodez00;
extern obj_t BGl_kwotez00zzast_nodez00;
static obj_t BGl_Ezd2letzd2fun3099z00zzglobaliza7e_gnza7(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_globalz00zzast_varz00;
static obj_t BGl_Ezd2closure3076zd2zzglobaliza7e_gnza7(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_castz00zzast_nodez00;
static obj_t BGl_Ezd2letzd2var3101z00zzglobaliza7e_gnza7(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_boxzd2refzd2zzast_nodez00;
extern obj_t BGl_varz00zzast_nodez00;
static obj_t BGl_cnstzd2initzd2zzglobaliza7e_gnza7();
extern obj_t BGl_atomz00zzast_nodez00;
static obj_t BGl_Ezd2boxzd2ref3109z00zzglobaliza7e_gnza7(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_failz00zzast_nodez00;
extern obj_t BGl_funcallz00zzast_nodez00;
static obj_t BGl_Ezd2cast3088zd2zzglobaliza7e_gnza7(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__Gnz124025z12zzglobaliza7e_gnza7(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_Ezd2extern3086zd2zzglobaliza7e_gnza7(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzglobaliza7e_gnza7();
extern obj_t BGl_makezd2boxzd2zzast_nodez00;
static obj_t BGl_savezd2funz12zc0zzglobaliza7e_gnza7(BgL_variablez00_bglt, BgL_variablez00_bglt);
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
static obj_t BGl_savezd2appz12zc0zzglobaliza7e_gnza7(obj_t, BgL_variablez00_bglt);
extern obj_t BGl_selectz00zzast_nodez00;
static obj_t BGl_toplevelzd2initzd2zzglobaliza7e_gnza7();
extern obj_t BGl_appzd2lyzd2zzast_nodez00;
static obj_t BGl_Ezd2app3080zd2zzglobaliza7e_gnza7(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_Gzd2fromzd2ctoz00zzglobaliza7e_gnza7(obj_t);
extern obj_t BGl_boxzd2setz12zc0zzast_nodez00;
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzglobaliza7e_gnza7(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_tracez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(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_globaliza7ez00(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 *);
static obj_t BGl_Ezd2boxzd2setz123111z12zzglobaliza7e_gnza7(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_Ezd2appzd2ly3082z00zzglobaliza7e_gnza7(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_Gnz12z12zzglobaliza7e_gnza7(obj_t, BgL_nodez00_bglt, BgL_variablez00_bglt, obj_t);
static obj_t BGl_Ezd2kwote3072zd2zzglobaliza7e_gnza7(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_setzd2exzd2itz00zzast_nodez00;
static obj_t BGl_Ezd2fail3094zd2zzglobaliza7e_gnza7(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_Ezd2conditional3092zd2zzglobaliza7e_gnza7(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_Ezd2sequence3078zd2zzglobaliza7e_gnza7(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_Eza2za2zzglobaliza7e_gnza7(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern obj_t BGl_jumpzd2exzd2itz00zzast_nodez00;
extern obj_t BGl_externz00zzast_nodez00;
extern obj_t BGl_conditionalz00zzast_nodez00;
extern obj_t BGl_sequencez00zzast_nodez00;
static obj_t BGl_Ezd2funcall3084zd2zzglobaliza7e_gnza7(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_appz00zzast_nodez00;
extern obj_t BGl_localz00zzast_varz00;
extern obj_t BGl_closurez00zzast_nodez00;
BGL_IMPORT obj_t bgl_append2(obj_t, obj_t);
static obj_t BGl_Ezd2atom3070zd2zzglobaliza7e_gnza7(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzglobaliza7e_gnza7 = BUNSPEC;
static obj_t BGl__Ez00zzglobaliza7e_gnza7(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_Ezd2select3096zd2zzglobaliza7e_gnza7(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzglobaliza7e_gnza7();
static obj_t BGl_Ezd2var3074zd2zzglobaliza7e_gnza7(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_Ezd2default3067zd2zzglobaliza7e_gnza7(BgL_nodez00_bglt, BgL_variablez00_bglt, obj_t);
extern obj_t BGl_za2Eza2z00zzglobaliza7e_globaliza7ez00;
extern obj_t BGl_za2G0za2z00zzglobaliza7e_globaliza7ez00;
extern obj_t BGl_za2G1za2z00zzglobaliza7e_globaliza7ez00;
extern obj_t BGl_setqz00zzast_nodez00;
static obj_t BGl_Ezd2makezd2box3107z00zzglobaliza7e_gnza7(obj_t, obj_t, obj_t, obj_t);
static obj_t __cnst[ 2 ] ;


DEFINE_STATIC_GENERIC( BGl_Ezd2envzd2zzglobaliza7e_gnza7, BgL_bgl__eza700za7za7globaliza7a7e_gnza7a74556za7, BGl__Ez00zzglobaliza7e_gnza7, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4507z00zzglobaliza7e_gnza7, BgL_bgl_eza7d2atom3070za7d2za7za7globaliza7a7e_gnza7a74557z00, BGl_Ezd2atom3070zd2zzglobaliza7e_gnza7, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4508z00zzglobaliza7e_gnza7, BgL_bgl_eza7d2kwote3072za7d2za7za7globaliza7a7e_gnza7a74558z00, BGl_Ezd2kwote3072zd2zzglobaliza7e_gnza7, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4510z00zzglobaliza7e_gnza7, BgL_bgl_eza7d2closure3076za7d2za7za7globaliza7a7e_gnza7a74559z00, BGl_Ezd2closure3076zd2zzglobaliza7e_gnza7, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4509z00zzglobaliza7e_gnza7, BgL_bgl_eza7d2var3074za7d2za7za7globaliza7a7e_gnza7a74560z00, BGl_Ezd2var3074zd2zzglobaliza7e_gnza7, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4511z00zzglobaliza7e_gnza7, BgL_bgl_eza7d2sequence3078za7d2za7za7globaliza7a7e_gnza7a74561z00, BGl_Ezd2sequence3078zd2zzglobaliza7e_gnza7, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4512z00zzglobaliza7e_gnza7, BgL_bgl_eza7d2app3080za7d2za7za7globaliza7a7e_gnza7a74562z00, BGl_Ezd2app3080zd2zzglobaliza7e_gnza7, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4513z00zzglobaliza7e_gnza7, BgL_bgl_eza7d2appza7d2ly3082za700za7za7globaliza7a7e_gnza7a74563za7, BGl_Ezd2appzd2ly3082z00zzglobaliza7e_gnza7, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4514z00zzglobaliza7e_gnza7, BgL_bgl_eza7d2funcall3084za7d2za7za7globaliza7a7e_gnza7a74564z00, BGl_Ezd2funcall3084zd2zzglobaliza7e_gnza7, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4515z00zzglobaliza7e_gnza7, BgL_bgl_eza7d2extern3086za7d2za7za7globaliza7a7e_gnza7a74565z00, BGl_Ezd2extern3086zd2zzglobaliza7e_gnza7, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4516z00zzglobaliza7e_gnza7, BgL_bgl_eza7d2cast3088za7d2za7za7globaliza7a7e_gnza7a74566z00, BGl_Ezd2cast3088zd2zzglobaliza7e_gnza7, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4517z00zzglobaliza7e_gnza7, BgL_bgl_eza7d2setq3090za7d2za7za7globaliza7a7e_gnza7a74567z00, BGl_Ezd2setq3090zd2zzglobaliza7e_gnza7, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4518z00zzglobaliza7e_gnza7, BgL_bgl_eza7d2conditional3092za7d2za7za7globaliza7a7e_gnza7a74568z00, BGl_Ezd2conditional3092zd2zzglobaliza7e_gnza7, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4520z00zzglobaliza7e_gnza7, BgL_bgl_eza7d2select3096za7d2za7za7globaliza7a7e_gnza7a74569z00, BGl_Ezd2select3096zd2zzglobaliza7e_gnza7, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4519z00zzglobaliza7e_gnza7, BgL_bgl_eza7d2fail3094za7d2za7za7globaliza7a7e_gnza7a74570z00, BGl_Ezd2fail3094zd2zzglobaliza7e_gnza7, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4521z00zzglobaliza7e_gnza7, BgL_bgl_eza7d2letza7d2fun3099za700za7za7globaliza7a7e_gnza7a74571za7, BGl_Ezd2letzd2fun3099z00zzglobaliza7e_gnza7, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4522z00zzglobaliza7e_gnza7, BgL_bgl_eza7d2letza7d2var3101za700za7za7globaliza7a7e_gnza7a74572za7, BGl_Ezd2letzd2var3101z00zzglobaliza7e_gnza7, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4523z00zzglobaliza7e_gnza7, BgL_bgl_eza7d2setza7d2exza7d2it3103za7d2za7za7globaliza7a7e_gnza7a74573z00, BGl_Ezd2setzd2exzd2it3103zd2zzglobaliza7e_gnza7, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4524z00zzglobaliza7e_gnza7, BgL_bgl_eza7d2jumpza7d2exza7d2it3105za7d2za7za7globaliza7a7e_gnza7a74574z00, BGl_Ezd2jumpzd2exzd2it3105zd2zzglobaliza7e_gnza7, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4525z00zzglobaliza7e_gnza7, BgL_bgl_eza7d2makeza7d2box3107za700za7za7globaliza7a7e_gnza7a74575za7, BGl_Ezd2makezd2box3107z00zzglobaliza7e_gnza7, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4526z00zzglobaliza7e_gnza7, BgL_bgl_eza7d2boxza7d2ref3109za700za7za7globaliza7a7e_gnza7a74576za7, BGl_Ezd2boxzd2ref3109z00zzglobaliza7e_gnza7, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4527z00zzglobaliza7e_gnza7, BgL_bgl_eza7d2boxza7d2setza7123111za712za7za7globaliza7a7e_gnza7a74577z00, BGl_Ezd2boxzd2setz123111z12zzglobaliza7e_gnza7, 0L, 3 );
DEFINE_STRING( BGl_string4529z00zzglobaliza7e_gnza7, BgL_bgl_string4529za700za7za7globaliza7a7e_gnza7a74578za7, "E-default3067 done ", 19 );
DEFINE_STRING( BGl_string4528z00zzglobaliza7e_gnza7, BgL_bgl_string4528za700za7za7globaliza7a7e_gnza7a74579za7, "No method for this object", 25 );
DEFINE_EXPORT_PROCEDURE( BGl_Gnz12zd2envzc0zzglobaliza7e_gnza7, BgL_bgl__gnza7124025za712za7za7globaliza7a7e_gnza7a74580z00, BGl__Gnz124025z12zzglobaliza7e_gnza7, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_Ezd2default3067zd2envz00zzglobaliza7e_gnza7, BgL_bgl__eza7d2default3067za7d2za7za7globaliza7a7e_gnza7a74581z00, BGl__Ezd2default3067zd2zzglobaliza7e_gnza7, 0L, 3 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzglobaliza7e_gnza7(long BgL_checksumz00_2568, char * BgL_fromz00_2569)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzglobaliza7e_gnza7))
{ 
BGl_requirezd2initializa7ationz75zzglobaliza7e_gnza7 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzglobaliza7e_gnza7(); 
BGl_cnstzd2initzd2zzglobaliza7e_gnza7(); 
BGl_importedzd2moduleszd2initz00zzglobaliza7e_gnza7(); 
BGl_methodzd2initzd2zzglobaliza7e_gnza7(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzglobaliza7e_gnza7()
{ AN_OBJECT;
{ /* ./Globalize/gn.scm 23 */
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "globalize_gn"); 
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "globalize_gn"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "globalize_gn"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzglobaliza7e_gnza7()
{ AN_OBJECT;
{ /* ./Globalize/gn.scm 23 */
{ /* ./Globalize/gn.scm 23 */
obj_t BgL_cportz00_2552;
BgL_cportz00_2552 = 
open_input_string(BGl_string4529z00zzglobaliza7e_gnza7); 
{ 
long BgL_iz00_2553;
BgL_iz00_2553 = ((long)1); 
BgL_loopz00_2554:
{ /* ./Globalize/gn.scm 23 */
bool_t BgL_test4531z00_2555;
BgL_test4531z00_2555 = 
(BgL_iz00_2553==((long)-1)); 
if(BgL_test4531z00_2555)
{ /* ./Globalize/gn.scm 23 */
return BUNSPEC;}  else 
{ /* ./Globalize/gn.scm 23 */
{ /* ./Globalize/gn.scm 23 */
obj_t BgL_arg4533z00_2556;
{ /* ./Globalize/gn.scm 23 */
obj_t BgL_list4536z00_2557;
BgL_list4536z00_2557 = 
MAKE_PAIR(BgL_cportz00_2552, BNIL); 
BgL_arg4533z00_2556 = 
BGl_readz00zz__readerz00(BgL_list4536z00_2557); } 
{ /* ./Globalize/gn.scm 23 */
int BgL_auxz00_2585;
BgL_auxz00_2585 = 
(int)(BgL_iz00_2553); 
CNST_TABLE_SET(BgL_auxz00_2585, BgL_arg4533z00_2556); } } 
{ /* ./Globalize/gn.scm 23 */
int BgL_auxz00_2558;
{ /* ./Globalize/gn.scm 23 */
long BgL_auxz00_2588;
BgL_auxz00_2588 = 
(BgL_iz00_2553-((long)1)); 
BgL_auxz00_2558 = 
(int)(BgL_auxz00_2588); } 
{ 
long BgL_iz00_2591;
BgL_iz00_2591 = 
(long)(BgL_auxz00_2558); 
BgL_iz00_2553 = BgL_iz00_2591; 
goto BgL_loopz00_2554;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzglobaliza7e_gnza7()
{ AN_OBJECT;
{ /* ./Globalize/gn.scm 23 */
return BUNSPEC;} 
}



/* Gn! */
BGL_EXPORTED_DEF obj_t BGl_Gnz12z12zzglobaliza7e_gnza7(obj_t BgL_argsz00_1, BgL_nodez00_bglt BgL_nodez00_2, BgL_variablez00_bglt BgL_callerz00_3, obj_t BgL_gz00_4)
{ AN_OBJECT;
{ /* ./Globalize/gn.scm 41 */
{ /* ./Globalize/gn.scm 42 */
obj_t BgL_method3068z00_1559;
{ /* ./Globalize/gn.scm 42 */
BgL_objectz00_bglt BgL_objz00_1560;
BgL_objz00_1560 = 
(BgL_objectz00_bglt)(BgL_nodez00_2); 
{ /* ./Globalize/gn.scm 42 */
long BgL_objzd2classzd2numz00_1561;
BgL_objzd2classzd2numz00_1561 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1560); 
{ /* ./Globalize/gn.scm 42 */
obj_t BgL_arg2017z00_1562;
{ /* ./Globalize/gn.scm 42 */
int BgL_auxz00_2595;
BgL_auxz00_2595 = 
(int)(((long)1)); 
BgL_arg2017z00_1562 = 
PROCEDURE_REF(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BgL_auxz00_2595); } 
{ /* ./Globalize/gn.scm 42 */
int BgL_offsetz00_1565;
BgL_offsetz00_1565 = 
(int)(BgL_objzd2classzd2numz00_1561); 
{ /* ./Globalize/gn.scm 42 */
long BgL_offsetz00_1566;
{ /* ./Globalize/gn.scm 42 */
long BgL_auxz00_2599;
BgL_auxz00_2599 = 
(long)(BgL_offsetz00_1565); 
BgL_offsetz00_1566 = 
(BgL_auxz00_2599-OBJECT_TYPE); } 
{ /* ./Globalize/gn.scm 42 */
long BgL_modz00_1567;
{ /* ./Globalize/gn.scm 42 */
int BgL_arg2028z00_1568;
BgL_arg2028z00_1568 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 42 */
long BgL_n2z00_1576;
BgL_n2z00_1576 = 
(long)(BgL_arg2028z00_1568); 
BgL_modz00_1567 = 
(BgL_offsetz00_1566/BgL_n2z00_1576); } } 
{ /* ./Globalize/gn.scm 42 */
long BgL_restz00_1569;
{ /* ./Globalize/gn.scm 42 */
int BgL_arg2024z00_1570;
BgL_arg2024z00_1570 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 42 */
long BgL_n2z00_1579;
BgL_n2z00_1579 = 
(long)(BgL_arg2024z00_1570); 
BgL_restz00_1569 = 
(BgL_offsetz00_1566%BgL_n2z00_1579); } } 
{ /* ./Globalize/gn.scm 42 */

{ /* ./Globalize/gn.scm 42 */
obj_t BgL_bucketz00_1571;
{ /* ./Globalize/gn.scm 42 */
int BgL_kz00_1581;
BgL_kz00_1581 = 
(int)(BgL_modz00_1567); 
BgL_bucketz00_1571 = 
VECTOR_REF(BgL_arg2017z00_1562,BgL_kz00_1581); } 
{ /* ./Globalize/gn.scm 42 */
int BgL_kz00_1583;
BgL_kz00_1583 = 
(int)(BgL_restz00_1569); 
BgL_method3068z00_1559 = 
VECTOR_REF(BgL_bucketz00_1571,BgL_kz00_1583); } } } } } } } } } } 
BGl_za2Eza2z00zzglobaliza7e_globaliza7ez00 = 
PROCEDURE_ENTRY(BgL_method3068z00_1559)(BgL_method3068z00_1559, 
(obj_t)(BgL_nodez00_2), 
(obj_t)(BgL_callerz00_3), BgL_gz00_4, BEOA); } 
{ 
obj_t BgL_gz00_873;obj_t BgL_g1z00_874;
BgL_gz00_873 = BGl_za2Eza2z00zzglobaliza7e_globaliza7ez00; 
BgL_g1z00_874 = BNIL; 
BgL_loopz00_875:
{ /* ./Globalize/gn.scm 45 */
bool_t BgL_test3114z00_876;
BgL_test3114z00_876 = 
NULLP(BgL_gz00_873); 
if(BgL_test3114z00_876)
{ /* ./Globalize/gn.scm 45 */
BGl_za2G0za2z00zzglobaliza7e_globaliza7ez00 = 
bgl_append2(BGl_za2Eza2z00zzglobaliza7e_globaliza7ez00, BgL_g1z00_874); 
return ( 
BGl_za2G1za2z00zzglobaliza7e_globaliza7ez00 = BgL_g1z00_874, BUNSPEC) ;}  else 
{ /* ./Globalize/gn.scm 49 */
obj_t BgL_newzd2gzd2_877;
{ /* ./Globalize/gn.scm 49 */
obj_t BgL_arg3126z00_881;
BgL_arg3126z00_881 = 
CAR(BgL_gz00_873); 
BgL_newzd2gzd2_877 = 
BGl_Gzd2fromzd2ctoz00zzglobaliza7e_gnza7(BgL_arg3126z00_881); } 
{ /* ./Globalize/gn.scm 50 */
obj_t BgL_arg3117z00_878;obj_t BgL_arg3118z00_879;
BgL_arg3117z00_878 = 
bgl_append2(BgL_newzd2gzd2_877, 
CDR(BgL_gz00_873)); 
BgL_arg3118z00_879 = 
bgl_append2(BgL_newzd2gzd2_877, BgL_g1z00_874); 
{ 
obj_t BgL_g1z00_2625;obj_t BgL_gz00_2624;
BgL_gz00_2624 = BgL_arg3117z00_878; 
BgL_g1z00_2625 = BgL_arg3118z00_879; 
BgL_g1z00_874 = BgL_g1z00_2625; 
BgL_gz00_873 = BgL_gz00_2624; 
goto BgL_loopz00_875;} } } } } } 
}



/* _Gn!4025 */
obj_t BGl__Gnz124025z12zzglobaliza7e_gnza7(obj_t BgL_envz00_2434, obj_t BgL_argsz00_2435, obj_t BgL_nodez00_2436, obj_t BgL_callerz00_2437, obj_t BgL_gz00_2438)
{ AN_OBJECT;
{ /* ./Globalize/gn.scm 41 */
return 
BGl_Gnz12z12zzglobaliza7e_gnza7(BgL_argsz00_2435, 
(BgL_nodez00_bglt)(BgL_nodez00_2436), 
(BgL_variablez00_bglt)(BgL_callerz00_2437), BgL_gz00_2438);} 
}



/* E* */
obj_t BGl_Eza2za2zzglobaliza7e_gnza7(obj_t BgL_nodeza2za2_74, obj_t BgL_callerz00_75, obj_t BgL_gz00_76)
{ AN_OBJECT;
{ /* ./Globalize/gn.scm 229 */
{ 
obj_t BgL_nodeza2za2_882;obj_t BgL_gz00_883;
BgL_nodeza2za2_882 = BgL_nodeza2za2_74; 
BgL_gz00_883 = BgL_gz00_76; 
BgL_loopz00_884:
{ /* ./Globalize/gn.scm 232 */
bool_t BgL_test3131z00_885;
BgL_test3131z00_885 = 
NULLP(BgL_nodeza2za2_882); 
if(BgL_test3131z00_885)
{ /* ./Globalize/gn.scm 232 */
return BgL_gz00_883;}  else 
{ /* ./Globalize/gn.scm 234 */
obj_t BgL_arg3133z00_886;obj_t BgL_arg3134z00_887;
BgL_arg3133z00_886 = 
CDR(BgL_nodeza2za2_882); 
{ /* ./Globalize/gn.scm 235 */
obj_t BgL_arg3138z00_888;
BgL_arg3138z00_888 = 
CAR(BgL_nodeza2za2_882); 
{ /* ./Globalize/gn.scm 235 */
BgL_nodez00_bglt BgL_nodez00_1590;BgL_variablez00_bglt BgL_callerz00_1591;
BgL_nodez00_1590 = 
(BgL_nodez00_bglt)(BgL_arg3138z00_888); 
BgL_callerz00_1591 = 
(BgL_variablez00_bglt)(BgL_callerz00_75); 
{ /* ./Globalize/gn.scm 235 */
obj_t BgL_method3068z00_1593;
{ /* ./Globalize/gn.scm 235 */
BgL_objectz00_bglt BgL_objz00_1594;
BgL_objz00_1594 = 
(BgL_objectz00_bglt)(BgL_nodez00_1590); 
{ /* ./Globalize/gn.scm 235 */
long BgL_objzd2classzd2numz00_1595;
BgL_objzd2classzd2numz00_1595 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1594); 
{ /* ./Globalize/gn.scm 235 */
obj_t BgL_arg2017z00_1596;
{ /* ./Globalize/gn.scm 235 */
int BgL_auxz00_2637;
BgL_auxz00_2637 = 
(int)(((long)1)); 
BgL_arg2017z00_1596 = 
PROCEDURE_REF(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BgL_auxz00_2637); } 
{ /* ./Globalize/gn.scm 235 */
int BgL_offsetz00_1599;
BgL_offsetz00_1599 = 
(int)(BgL_objzd2classzd2numz00_1595); 
{ /* ./Globalize/gn.scm 235 */
long BgL_offsetz00_1600;
{ /* ./Globalize/gn.scm 235 */
long BgL_auxz00_2641;
BgL_auxz00_2641 = 
(long)(BgL_offsetz00_1599); 
BgL_offsetz00_1600 = 
(BgL_auxz00_2641-OBJECT_TYPE); } 
{ /* ./Globalize/gn.scm 235 */
long BgL_modz00_1601;
{ /* ./Globalize/gn.scm 235 */
int BgL_arg2028z00_1602;
BgL_arg2028z00_1602 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 235 */
long BgL_n2z00_1610;
BgL_n2z00_1610 = 
(long)(BgL_arg2028z00_1602); 
BgL_modz00_1601 = 
(BgL_offsetz00_1600/BgL_n2z00_1610); } } 
{ /* ./Globalize/gn.scm 235 */
long BgL_restz00_1603;
{ /* ./Globalize/gn.scm 235 */
int BgL_arg2024z00_1604;
BgL_arg2024z00_1604 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 235 */
long BgL_n2z00_1613;
BgL_n2z00_1613 = 
(long)(BgL_arg2024z00_1604); 
BgL_restz00_1603 = 
(BgL_offsetz00_1600%BgL_n2z00_1613); } } 
{ /* ./Globalize/gn.scm 235 */

{ /* ./Globalize/gn.scm 235 */
obj_t BgL_bucketz00_1605;
{ /* ./Globalize/gn.scm 235 */
int BgL_kz00_1615;
BgL_kz00_1615 = 
(int)(BgL_modz00_1601); 
BgL_bucketz00_1605 = 
VECTOR_REF(BgL_arg2017z00_1596,BgL_kz00_1615); } 
{ /* ./Globalize/gn.scm 235 */
int BgL_kz00_1617;
BgL_kz00_1617 = 
(int)(BgL_restz00_1603); 
BgL_method3068z00_1593 = 
VECTOR_REF(BgL_bucketz00_1605,BgL_kz00_1617); } } } } } } } } } } 
BgL_arg3134z00_887 = 
PROCEDURE_ENTRY(BgL_method3068z00_1593)(BgL_method3068z00_1593, 
(obj_t)(BgL_nodez00_1590), 
(obj_t)(BgL_callerz00_1591), BgL_gz00_883, BEOA); } } } 
{ 
obj_t BgL_gz00_2659;obj_t BgL_nodeza2za2_2658;
BgL_nodeza2za2_2658 = BgL_arg3133z00_886; 
BgL_gz00_2659 = BgL_arg3134z00_887; 
BgL_gz00_883 = BgL_gz00_2659; 
BgL_nodeza2za2_882 = BgL_nodeza2za2_2658; 
goto BgL_loopz00_884;} } } } } 
}



/* save-app! */
obj_t BGl_savezd2appz12zc0zzglobaliza7e_gnza7(obj_t BgL_callerz00_77, BgL_variablez00_bglt BgL_calleez00_78)
{ AN_OBJECT;
{ /* ./Globalize/gn.scm 240 */
{ /* ./Globalize/gn.scm 241 */
bool_t BgL_test3142z00_889;
{ /* ./Globalize/gn.scm 241 */
obj_t BgL_obj1240z00_1618;
BgL_obj1240z00_1618 = 
(obj_t)(BgL_calleez00_78); 
BgL_test3142z00_889 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1240z00_1618, BGl_globalz00zzast_varz00); } 
if(BgL_test3142z00_889)
{ /* ./Globalize/gn.scm 241 */
return 
CNST_TABLE_REF(((long)0));}  else 
{ /* ./Globalize/gn.scm 243 */
BgL_valuez00_bglt BgL_calleezd2infozd2_890;
BgL_calleezd2infozd2_890 = 
(((BgL_variablez00_bglt)CREF(BgL_calleez00_78))->BgL_valuez00); 
{ /* ./Globalize/gn.scm 244 */
bool_t BgL_test3143z00_891;
{ /* ./Globalize/gn.scm 244 */
obj_t BgL_auxz00_2665;
{ /* ./Globalize/gn.scm 244 */
obj_t BgL_auxz00_2666;
{ /* ./Globalize/gn.scm 244 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2743z00_1620;
BgL_obj2743z00_1620 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_calleezd2infozd2_890); 
{ 
obj_t BgL_auxz00_2668;
{ /* ./Globalize/gn.scm 244 */
BgL_objectz00_bglt BgL_auxz00_2669;
BgL_auxz00_2669 = 
(BgL_objectz00_bglt)(BgL_obj2743z00_1620); 
BgL_auxz00_2668 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2669); } 
BgL_auxz00_2666 = 
(((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_2668))->BgL_cfromz00); } } 
BgL_auxz00_2665 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_callerz00_77, BgL_auxz00_2666); } 
BgL_test3143z00_891 = 
CBOOL(BgL_auxz00_2665); } 
if(BgL_test3143z00_891)
{ /* ./Globalize/gn.scm 244 */BFALSE; }  else 
{ /* ./Globalize/gn.scm 244 */
{ /* ./Globalize/gn.scm 248 */
obj_t BgL_arg3145z00_892;
{ /* ./Globalize/gn.scm 248 */
obj_t BgL_arg3148z00_893;
{ /* ./Globalize/gn.scm 248 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2743z00_1621;
BgL_obj2743z00_1621 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_calleezd2infozd2_890); 
{ 
obj_t BgL_auxz00_2677;
{ /* ./Globalize/gn.scm 248 */
BgL_objectz00_bglt BgL_auxz00_2678;
BgL_auxz00_2678 = 
(BgL_objectz00_bglt)(BgL_obj2743z00_1621); 
BgL_auxz00_2677 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2678); } 
BgL_arg3148z00_893 = 
(((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_2677))->BgL_cfromz00); } } 
BgL_arg3145z00_892 = 
MAKE_PAIR(BgL_callerz00_77, BgL_arg3148z00_893); } 
{ /* ./Globalize/gn.scm 246 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2745z00_1622;obj_t BgL_val2744z00_1623;
BgL_obj2745z00_1622 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_calleezd2infozd2_890); 
BgL_val2744z00_1623 = BgL_arg3145z00_892; 
{ 
obj_t BgL_auxz00_2684;
{ /* ./Globalize/gn.scm 246 */
BgL_objectz00_bglt BgL_auxz00_2685;
BgL_auxz00_2685 = 
(BgL_objectz00_bglt)(BgL_obj2745z00_1622); 
BgL_auxz00_2684 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2685); } 
((((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_2684))->BgL_cfromz00) = ((obj_t)BgL_val2744z00_1623), BUNSPEC); } } } 
{ /* ./Globalize/gn.scm 249 */
bool_t BgL_test3151z00_894;
BgL_test3151z00_894 = 
BGl_iszd2azf3z21zz__objectz00(BgL_callerz00_77, BGl_localz00zzast_varz00); 
if(BgL_test3151z00_894)
{ /* ./Globalize/gn.scm 250 */
BgL_valuez00_bglt BgL_callerzd2infozd2_895;
{ /* ./Globalize/gn.scm 250 */
BgL_variablez00_bglt BgL_obj1100z00_1625;
BgL_obj1100z00_1625 = 
(BgL_variablez00_bglt)(BgL_callerz00_77); 
BgL_callerzd2infozd2_895 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1625))->BgL_valuez00); } 
{ /* ./Globalize/gn.scm 253 */
obj_t BgL_arg3153z00_896;
{ /* ./Globalize/gn.scm 253 */
obj_t BgL_arg3156z00_897;
{ /* ./Globalize/gn.scm 253 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2750z00_1626;
BgL_obj2750z00_1626 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_callerzd2infozd2_895); 
{ 
obj_t BgL_auxz00_2694;
{ /* ./Globalize/gn.scm 253 */
BgL_objectz00_bglt BgL_auxz00_2695;
BgL_auxz00_2695 = 
(BgL_objectz00_bglt)(BgL_obj2750z00_1626); 
BgL_auxz00_2694 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2695); } 
BgL_arg3156z00_897 = 
(((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_2694))->BgL_ctoz00); } } 
{ /* ./Globalize/gn.scm 252 */
obj_t BgL_auxz00_2699;
BgL_auxz00_2699 = 
(obj_t)(BgL_calleez00_78); 
BgL_arg3153z00_896 = 
MAKE_PAIR(BgL_auxz00_2699, BgL_arg3156z00_897); } } 
{ /* ./Globalize/gn.scm 251 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2752z00_1627;obj_t BgL_val2751z00_1628;
BgL_obj2752z00_1627 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_callerzd2infozd2_895); 
BgL_val2751z00_1628 = BgL_arg3153z00_896; 
{ 
obj_t BgL_auxz00_2703;
{ /* ./Globalize/gn.scm 251 */
BgL_objectz00_bglt BgL_auxz00_2704;
BgL_auxz00_2704 = 
(BgL_objectz00_bglt)(BgL_obj2752z00_1627); 
BgL_auxz00_2703 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2704); } 
((((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_2703))->BgL_ctoz00) = ((obj_t)BgL_val2751z00_1628), BUNSPEC); } } } }  else 
{ /* ./Globalize/gn.scm 249 */BFALSE; } } } } 
return 
CNST_TABLE_REF(((long)0));} } } 
}



/* save-fun! */
obj_t BGl_savezd2funz12zc0zzglobaliza7e_gnza7(BgL_variablez00_bglt BgL_callerz00_79, BgL_variablez00_bglt BgL_calleez00_80)
{ AN_OBJECT;
{ /* ./Globalize/gn.scm 260 */
{ /* ./Globalize/gn.scm 261 */
bool_t BgL_test3167z00_899;
{ /* ./Globalize/gn.scm 261 */
bool_t BgL_test3181z00_905;
{ /* ./Globalize/gn.scm 261 */
obj_t BgL_obj1240z00_1629;
BgL_obj1240z00_1629 = 
(obj_t)(BgL_callerz00_79); 
BgL_test3181z00_905 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1240z00_1629, BGl_globalz00zzast_varz00); } 
if(BgL_test3181z00_905)
{ /* ./Globalize/gn.scm 261 */
BgL_test3167z00_899 = ((bool_t)1); }  else 
{ /* ./Globalize/gn.scm 261 */
obj_t BgL_obj1240z00_1630;
BgL_obj1240z00_1630 = 
(obj_t)(BgL_calleez00_80); 
BgL_test3167z00_899 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1240z00_1630, BGl_globalz00zzast_varz00); } } 
if(BgL_test3167z00_899)
{ /* ./Globalize/gn.scm 261 */
return 
CNST_TABLE_REF(((long)0));}  else 
{ /* ./Globalize/gn.scm 263 */
BgL_valuez00_bglt BgL_callerzd2infozd2_900;
BgL_callerzd2infozd2_900 = 
(((BgL_variablez00_bglt)CREF(BgL_callerz00_79))->BgL_valuez00); 
{ /* ./Globalize/gn.scm 267 */
bool_t BgL_test3168z00_901;
{ /* ./Globalize/gn.scm 267 */
obj_t BgL_auxz00_2717;
{ /* ./Globalize/gn.scm 267 */
obj_t BgL_auxz00_2718;
{ /* ./Globalize/gn.scm 267 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2757z00_1632;
BgL_obj2757z00_1632 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_callerzd2infozd2_900); 
{ 
obj_t BgL_auxz00_2721;
{ /* ./Globalize/gn.scm 267 */
BgL_objectz00_bglt BgL_auxz00_2722;
BgL_auxz00_2722 = 
(BgL_objectz00_bglt)(BgL_obj2757z00_1632); 
BgL_auxz00_2721 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2722); } 
BgL_auxz00_2718 = 
(((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_2721))->BgL_cfunctionz00); } } 
BgL_auxz00_2717 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
(obj_t)(BgL_calleez00_80), BgL_auxz00_2718); } 
BgL_test3168z00_901 = 
CBOOL(BgL_auxz00_2717); } 
if(BgL_test3168z00_901)
{ /* ./Globalize/gn.scm 267 */BFALSE; }  else 
{ /* ./Globalize/gn.scm 270 */
obj_t BgL_arg3170z00_902;
{ /* ./Globalize/gn.scm 270 */
obj_t BgL_arg3173z00_903;
{ /* ./Globalize/gn.scm 270 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2757z00_1633;
BgL_obj2757z00_1633 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_callerzd2infozd2_900); 
{ 
obj_t BgL_auxz00_2730;
{ /* ./Globalize/gn.scm 270 */
BgL_objectz00_bglt BgL_auxz00_2731;
BgL_auxz00_2731 = 
(BgL_objectz00_bglt)(BgL_obj2757z00_1633); 
BgL_auxz00_2730 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2731); } 
BgL_arg3173z00_903 = 
(((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_2730))->BgL_cfunctionz00); } } 
{ /* ./Globalize/gn.scm 269 */
obj_t BgL_auxz00_2735;
BgL_auxz00_2735 = 
(obj_t)(BgL_calleez00_80); 
BgL_arg3170z00_902 = 
MAKE_PAIR(BgL_auxz00_2735, BgL_arg3173z00_903); } } 
{ /* ./Globalize/gn.scm 268 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2759z00_1634;obj_t BgL_val2758z00_1635;
BgL_obj2759z00_1634 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_callerzd2infozd2_900); 
BgL_val2758z00_1635 = BgL_arg3170z00_902; 
{ 
obj_t BgL_auxz00_2739;
{ /* ./Globalize/gn.scm 268 */
BgL_objectz00_bglt BgL_auxz00_2740;
BgL_auxz00_2740 = 
(BgL_objectz00_bglt)(BgL_obj2759z00_1634); 
BgL_auxz00_2739 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2740); } 
((((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_2739))->BgL_cfunctionz00) = ((obj_t)BgL_val2758z00_1635), BUNSPEC); } } } } 
return 
CNST_TABLE_REF(((long)0));} } } 
}



/* G-from-cto */
obj_t BGl_Gzd2fromzd2ctoz00zzglobaliza7e_gnza7(obj_t BgL_localz00_81)
{ AN_OBJECT;
{ /* ./Globalize/gn.scm 277 */
{ 
obj_t BgL_ctoz00_906;obj_t BgL_gz00_907;
{ /* ./Globalize/gn.scm 278 */
obj_t BgL_arg3185z00_909;
{ /* ./Globalize/gn.scm 278 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2750z00_1637;
{ /* ./Globalize/gn.scm 278 */
BgL_valuez00_bglt BgL_auxz00_2745;
{ /* ./Globalize/gn.scm 278 */
BgL_variablez00_bglt BgL_obj1100z00_1636;
BgL_obj1100z00_1636 = 
(BgL_variablez00_bglt)(BgL_localz00_81); 
BgL_auxz00_2745 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1636))->BgL_valuez00); } 
BgL_obj2750z00_1637 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_auxz00_2745); } 
{ 
obj_t BgL_auxz00_2749;
{ /* ./Globalize/gn.scm 278 */
BgL_objectz00_bglt BgL_auxz00_2750;
BgL_auxz00_2750 = 
(BgL_objectz00_bglt)(BgL_obj2750z00_1637); 
BgL_auxz00_2749 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2750); } 
BgL_arg3185z00_909 = 
(((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_2749))->BgL_ctoz00); } } 
BgL_ctoz00_906 = BgL_arg3185z00_909; 
BgL_gz00_907 = BNIL; 
BgL_loopz00_908:
{ /* ./Globalize/gn.scm 281 */
bool_t BgL_test3192z00_912;
BgL_test3192z00_912 = 
NULLP(BgL_ctoz00_906); 
if(BgL_test3192z00_912)
{ /* ./Globalize/gn.scm 281 */
return BgL_gz00_907;}  else 
{ /* ./Globalize/gn.scm 283 */
bool_t BgL_test3193z00_913;
{ /* ./Globalize/gn.scm 283 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2740z00_1641;
{ /* ./Globalize/gn.scm 283 */
BgL_valuez00_bglt BgL_auxz00_2756;
{ /* ./Globalize/gn.scm 283 */
BgL_variablez00_bglt BgL_obj1100z00_1640;
{ /* ./Globalize/gn.scm 283 */
obj_t BgL_auxz00_2757;
BgL_auxz00_2757 = 
CAR(BgL_ctoz00_906); 
BgL_obj1100z00_1640 = 
(BgL_variablez00_bglt)(BgL_auxz00_2757); } 
BgL_auxz00_2756 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1640))->BgL_valuez00); } 
BgL_obj2740z00_1641 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_auxz00_2756); } 
{ 
obj_t BgL_auxz00_2762;
{ /* ./Globalize/gn.scm 283 */
BgL_objectz00_bglt BgL_auxz00_2763;
BgL_auxz00_2763 = 
(BgL_objectz00_bglt)(BgL_obj2740z00_1641); 
BgL_auxz00_2762 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2763); } 
BgL_test3193z00_913 = 
(((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_2762))->BgL_gzf3zf3); } } 
if(BgL_test3193z00_913)
{ /* ./Globalize/gn.scm 283 */
{ /* ./Globalize/gn.scm 284 */
obj_t BgL_arg3195z00_914;
BgL_arg3195z00_914 = 
CDR(BgL_ctoz00_906); 
{ 
obj_t BgL_ctoz00_2769;
BgL_ctoz00_2769 = BgL_arg3195z00_914; 
BgL_ctoz00_906 = BgL_ctoz00_2769; 
goto BgL_loopz00_908;} } }  else 
{ /* ./Globalize/gn.scm 283 */
{ /* ./Globalize/gn.scm 286 */
BgL_valuez00_bglt BgL_arg3199z00_915;
{ /* ./Globalize/gn.scm 286 */
BgL_variablez00_bglt BgL_obj1100z00_1644;
{ /* ./Globalize/gn.scm 286 */
obj_t BgL_auxz00_2770;
BgL_auxz00_2770 = 
CAR(BgL_ctoz00_906); 
BgL_obj1100z00_1644 = 
(BgL_variablez00_bglt)(BgL_auxz00_2770); } 
BgL_arg3199z00_915 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1644))->BgL_valuez00); } 
{ /* ./Globalize/gn.scm 286 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2742z00_1645;bool_t BgL_val2741z00_1646;
BgL_obj2742z00_1645 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_arg3199z00_915); 
BgL_val2741z00_1646 = ((bool_t)1); 
{ 
obj_t BgL_auxz00_2775;
{ /* ./Globalize/gn.scm 286 */
BgL_objectz00_bglt BgL_auxz00_2776;
BgL_auxz00_2776 = 
(BgL_objectz00_bglt)(BgL_obj2742z00_1645); 
BgL_auxz00_2775 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2776); } 
((((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_2775))->BgL_gzf3zf3) = ((bool_t)BgL_val2741z00_1646), BUNSPEC); } } } 
{ /* ./Globalize/gn.scm 287 */
obj_t BgL_arg3206z00_917;obj_t BgL_arg3207z00_918;
BgL_arg3206z00_917 = 
CDR(BgL_ctoz00_906); 
{ /* ./Globalize/gn.scm 287 */
obj_t BgL_arg3211z00_919;
BgL_arg3211z00_919 = 
CAR(BgL_ctoz00_906); 
BgL_arg3207z00_918 = 
MAKE_PAIR(BgL_arg3211z00_919, BgL_gz00_907); } 
{ 
obj_t BgL_gz00_2784;obj_t BgL_ctoz00_2783;
BgL_ctoz00_2783 = BgL_arg3206z00_917; 
BgL_gz00_2784 = BgL_arg3207z00_918; 
BgL_gz00_907 = BgL_gz00_2784; 
BgL_ctoz00_906 = BgL_ctoz00_2783; 
goto BgL_loopz00_908;} } } } } } } } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzglobaliza7e_gnza7()
{ AN_OBJECT;
{ /* ./Globalize/gn.scm 23 */
BGl_addzd2genericz12zc0zz__objectz00(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BGl_Ezd2default3067zd2envz00zzglobaliza7e_gnza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BGl_atomz00zzast_nodez00, BGl_proc4507z00zzglobaliza7e_gnza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BGl_kwotez00zzast_nodez00, BGl_proc4508z00zzglobaliza7e_gnza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BGl_varz00zzast_nodez00, BGl_proc4509z00zzglobaliza7e_gnza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BGl_closurez00zzast_nodez00, BGl_proc4510z00zzglobaliza7e_gnza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BGl_sequencez00zzast_nodez00, BGl_proc4511z00zzglobaliza7e_gnza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BGl_appz00zzast_nodez00, BGl_proc4512z00zzglobaliza7e_gnza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BGl_appzd2lyzd2zzast_nodez00, BGl_proc4513z00zzglobaliza7e_gnza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BGl_funcallz00zzast_nodez00, BGl_proc4514z00zzglobaliza7e_gnza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BGl_externz00zzast_nodez00, BGl_proc4515z00zzglobaliza7e_gnza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BGl_castz00zzast_nodez00, BGl_proc4516z00zzglobaliza7e_gnza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BGl_setqz00zzast_nodez00, BGl_proc4517z00zzglobaliza7e_gnza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BGl_conditionalz00zzast_nodez00, BGl_proc4518z00zzglobaliza7e_gnza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BGl_failz00zzast_nodez00, BGl_proc4519z00zzglobaliza7e_gnza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BGl_selectz00zzast_nodez00, BGl_proc4520z00zzglobaliza7e_gnza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BGl_letzd2funzd2zzast_nodez00, BGl_proc4521z00zzglobaliza7e_gnza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BGl_letzd2varzd2zzast_nodez00, BGl_proc4522z00zzglobaliza7e_gnza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BGl_setzd2exzd2itz00zzast_nodez00, BGl_proc4523z00zzglobaliza7e_gnza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BGl_jumpzd2exzd2itz00zzast_nodez00, BGl_proc4524z00zzglobaliza7e_gnza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BGl_makezd2boxzd2zzast_nodez00, BGl_proc4525z00zzglobaliza7e_gnza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BGl_boxzd2refzd2zzast_nodez00, BGl_proc4526z00zzglobaliza7e_gnza7); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BGl_boxzd2setz12zc0zzast_nodez00, BGl_proc4527z00zzglobaliza7e_gnza7);} 
}



/* E-box-set!3111 */
obj_t BGl_Ezd2boxzd2setz123111z12zzglobaliza7e_gnza7(obj_t BgL_envz00_2464, obj_t BgL_nodez00_2465, obj_t BgL_callerz00_2466, obj_t BgL_gz00_2467)
{ AN_OBJECT;
{ /* ./Globalize/gn.scm 222 */
{ 
BgL_boxzd2setz12zc0_bglt BgL_nodez00_1544;obj_t BgL_callerz00_1545;obj_t BgL_gz00_1546;
BgL_nodez00_1544 = 
(BgL_boxzd2setz12zc0_bglt)(BgL_nodez00_2465); 
BgL_callerz00_1545 = BgL_callerz00_2466; 
BgL_gz00_1546 = BgL_gz00_2467; 
{ /* ./Globalize/gn.scm 223 */
BgL_varz00_bglt BgL_arg3948z00_2345;obj_t BgL_arg3949z00_2346;
BgL_arg3948z00_2345 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1544))->BgL_varz00); 
{ /* ./Globalize/gn.scm 223 */
BgL_nodez00_bglt BgL_arg3953z00_2347;
BgL_arg3953z00_2347 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1544))->BgL_valuez00); 
{ /* ./Globalize/gn.scm 223 */
BgL_variablez00_bglt BgL_callerz00_2351;
BgL_callerz00_2351 = 
(BgL_variablez00_bglt)(BgL_callerz00_1545); 
{ /* ./Globalize/gn.scm 223 */
obj_t BgL_method3068z00_2353;
{ /* ./Globalize/gn.scm 223 */
BgL_objectz00_bglt BgL_objz00_2354;
BgL_objz00_2354 = 
(BgL_objectz00_bglt)(BgL_arg3953z00_2347); 
{ /* ./Globalize/gn.scm 223 */
long BgL_objzd2classzd2numz00_2355;
BgL_objzd2classzd2numz00_2355 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2354); 
{ /* ./Globalize/gn.scm 223 */
obj_t BgL_arg2017z00_2356;
{ /* ./Globalize/gn.scm 223 */
int BgL_auxz00_2812;
BgL_auxz00_2812 = 
(int)(((long)1)); 
BgL_arg2017z00_2356 = 
PROCEDURE_REF(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BgL_auxz00_2812); } 
{ /* ./Globalize/gn.scm 223 */
int BgL_offsetz00_2359;
BgL_offsetz00_2359 = 
(int)(BgL_objzd2classzd2numz00_2355); 
{ /* ./Globalize/gn.scm 223 */
long BgL_offsetz00_2360;
{ /* ./Globalize/gn.scm 223 */
long BgL_auxz00_2816;
BgL_auxz00_2816 = 
(long)(BgL_offsetz00_2359); 
BgL_offsetz00_2360 = 
(BgL_auxz00_2816-OBJECT_TYPE); } 
{ /* ./Globalize/gn.scm 223 */
long BgL_modz00_2361;
{ /* ./Globalize/gn.scm 223 */
int BgL_arg2028z00_2362;
BgL_arg2028z00_2362 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 223 */
long BgL_n2z00_2370;
BgL_n2z00_2370 = 
(long)(BgL_arg2028z00_2362); 
BgL_modz00_2361 = 
(BgL_offsetz00_2360/BgL_n2z00_2370); } } 
{ /* ./Globalize/gn.scm 223 */
long BgL_restz00_2363;
{ /* ./Globalize/gn.scm 223 */
int BgL_arg2024z00_2364;
BgL_arg2024z00_2364 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 223 */
long BgL_n2z00_2373;
BgL_n2z00_2373 = 
(long)(BgL_arg2024z00_2364); 
BgL_restz00_2363 = 
(BgL_offsetz00_2360%BgL_n2z00_2373); } } 
{ /* ./Globalize/gn.scm 223 */

{ /* ./Globalize/gn.scm 223 */
obj_t BgL_bucketz00_2365;
{ /* ./Globalize/gn.scm 223 */
int BgL_kz00_2375;
BgL_kz00_2375 = 
(int)(BgL_modz00_2361); 
BgL_bucketz00_2365 = 
VECTOR_REF(BgL_arg2017z00_2356,BgL_kz00_2375); } 
{ /* ./Globalize/gn.scm 223 */
int BgL_kz00_2377;
BgL_kz00_2377 = 
(int)(BgL_restz00_2363); 
BgL_method3068z00_2353 = 
VECTOR_REF(BgL_bucketz00_2365,BgL_kz00_2377); } } } } } } } } } } 
BgL_arg3949z00_2346 = 
PROCEDURE_ENTRY(BgL_method3068z00_2353)(BgL_method3068z00_2353, 
(obj_t)(BgL_arg3953z00_2347), 
(obj_t)(BgL_callerz00_2351), BgL_gz00_1546, BEOA); } } } 
{ /* ./Globalize/gn.scm 223 */
BgL_nodez00_bglt BgL_nodez00_2378;BgL_variablez00_bglt BgL_callerz00_2379;
BgL_nodez00_2378 = 
(BgL_nodez00_bglt)(BgL_arg3948z00_2345); 
BgL_callerz00_2379 = 
(BgL_variablez00_bglt)(BgL_callerz00_1545); 
{ /* ./Globalize/gn.scm 223 */
obj_t BgL_method3068z00_2381;
{ /* ./Globalize/gn.scm 223 */
BgL_objectz00_bglt BgL_objz00_2382;
BgL_objz00_2382 = 
(BgL_objectz00_bglt)(BgL_nodez00_2378); 
{ /* ./Globalize/gn.scm 223 */
long BgL_objzd2classzd2numz00_2383;
BgL_objzd2classzd2numz00_2383 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2382); 
{ /* ./Globalize/gn.scm 223 */
obj_t BgL_arg2017z00_2384;
{ /* ./Globalize/gn.scm 223 */
int BgL_auxz00_2837;
BgL_auxz00_2837 = 
(int)(((long)1)); 
BgL_arg2017z00_2384 = 
PROCEDURE_REF(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BgL_auxz00_2837); } 
{ /* ./Globalize/gn.scm 223 */
int BgL_offsetz00_2387;
BgL_offsetz00_2387 = 
(int)(BgL_objzd2classzd2numz00_2383); 
{ /* ./Globalize/gn.scm 223 */
long BgL_offsetz00_2388;
{ /* ./Globalize/gn.scm 223 */
long BgL_auxz00_2841;
BgL_auxz00_2841 = 
(long)(BgL_offsetz00_2387); 
BgL_offsetz00_2388 = 
(BgL_auxz00_2841-OBJECT_TYPE); } 
{ /* ./Globalize/gn.scm 223 */
long BgL_modz00_2389;
{ /* ./Globalize/gn.scm 223 */
int BgL_arg2028z00_2390;
BgL_arg2028z00_2390 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 223 */
long BgL_n2z00_2398;
BgL_n2z00_2398 = 
(long)(BgL_arg2028z00_2390); 
BgL_modz00_2389 = 
(BgL_offsetz00_2388/BgL_n2z00_2398); } } 
{ /* ./Globalize/gn.scm 223 */
long BgL_restz00_2391;
{ /* ./Globalize/gn.scm 223 */
int BgL_arg2024z00_2392;
BgL_arg2024z00_2392 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 223 */
long BgL_n2z00_2401;
BgL_n2z00_2401 = 
(long)(BgL_arg2024z00_2392); 
BgL_restz00_2391 = 
(BgL_offsetz00_2388%BgL_n2z00_2401); } } 
{ /* ./Globalize/gn.scm 223 */

{ /* ./Globalize/gn.scm 223 */
obj_t BgL_bucketz00_2393;
{ /* ./Globalize/gn.scm 223 */
int BgL_kz00_2403;
BgL_kz00_2403 = 
(int)(BgL_modz00_2389); 
BgL_bucketz00_2393 = 
VECTOR_REF(BgL_arg2017z00_2384,BgL_kz00_2403); } 
{ /* ./Globalize/gn.scm 223 */
int BgL_kz00_2405;
BgL_kz00_2405 = 
(int)(BgL_restz00_2391); 
BgL_method3068z00_2381 = 
VECTOR_REF(BgL_bucketz00_2393,BgL_kz00_2405); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3068z00_2381)(BgL_method3068z00_2381, 
(obj_t)(BgL_nodez00_2378), 
(obj_t)(BgL_callerz00_2379), BgL_arg3949z00_2346, BEOA);} } } } } 
}



/* E-box-ref3109 */
obj_t BGl_Ezd2boxzd2ref3109z00zzglobaliza7e_gnza7(obj_t BgL_envz00_2468, obj_t BgL_nodez00_2469, obj_t BgL_callerz00_2470, obj_t BgL_gz00_2471)
{ AN_OBJECT;
{ /* ./Globalize/gn.scm 215 */
{ 
BgL_boxzd2refzd2_bglt BgL_nodez00_1535;obj_t BgL_callerz00_1536;obj_t BgL_gz00_1537;
BgL_nodez00_1535 = 
(BgL_boxzd2refzd2_bglt)(BgL_nodez00_2469); 
BgL_callerz00_1536 = BgL_callerz00_2470; 
BgL_gz00_1537 = BgL_gz00_2471; 
{ /* ./Globalize/gn.scm 216 */
BgL_varz00_bglt BgL_arg3938z00_2314;
BgL_arg3938z00_2314 = 
(((BgL_boxzd2refzd2_bglt)CREF(BgL_nodez00_1535))->BgL_varz00); 
{ /* ./Globalize/gn.scm 216 */
BgL_nodez00_bglt BgL_nodez00_2316;BgL_variablez00_bglt BgL_callerz00_2317;
BgL_nodez00_2316 = 
(BgL_nodez00_bglt)(BgL_arg3938z00_2314); 
BgL_callerz00_2317 = 
(BgL_variablez00_bglt)(BgL_callerz00_1536); 
{ /* ./Globalize/gn.scm 216 */
obj_t BgL_method3068z00_2319;
{ /* ./Globalize/gn.scm 216 */
BgL_objectz00_bglt BgL_objz00_2320;
BgL_objz00_2320 = 
(BgL_objectz00_bglt)(BgL_nodez00_2316); 
{ /* ./Globalize/gn.scm 216 */
long BgL_objzd2classzd2numz00_2321;
BgL_objzd2classzd2numz00_2321 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2320); 
{ /* ./Globalize/gn.scm 216 */
obj_t BgL_arg2017z00_2322;
{ /* ./Globalize/gn.scm 216 */
int BgL_auxz00_2864;
BgL_auxz00_2864 = 
(int)(((long)1)); 
BgL_arg2017z00_2322 = 
PROCEDURE_REF(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BgL_auxz00_2864); } 
{ /* ./Globalize/gn.scm 216 */
int BgL_offsetz00_2325;
BgL_offsetz00_2325 = 
(int)(BgL_objzd2classzd2numz00_2321); 
{ /* ./Globalize/gn.scm 216 */
long BgL_offsetz00_2326;
{ /* ./Globalize/gn.scm 216 */
long BgL_auxz00_2868;
BgL_auxz00_2868 = 
(long)(BgL_offsetz00_2325); 
BgL_offsetz00_2326 = 
(BgL_auxz00_2868-OBJECT_TYPE); } 
{ /* ./Globalize/gn.scm 216 */
long BgL_modz00_2327;
{ /* ./Globalize/gn.scm 216 */
int BgL_arg2028z00_2328;
BgL_arg2028z00_2328 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 216 */
long BgL_n2z00_2336;
BgL_n2z00_2336 = 
(long)(BgL_arg2028z00_2328); 
BgL_modz00_2327 = 
(BgL_offsetz00_2326/BgL_n2z00_2336); } } 
{ /* ./Globalize/gn.scm 216 */
long BgL_restz00_2329;
{ /* ./Globalize/gn.scm 216 */
int BgL_arg2024z00_2330;
BgL_arg2024z00_2330 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 216 */
long BgL_n2z00_2339;
BgL_n2z00_2339 = 
(long)(BgL_arg2024z00_2330); 
BgL_restz00_2329 = 
(BgL_offsetz00_2326%BgL_n2z00_2339); } } 
{ /* ./Globalize/gn.scm 216 */

{ /* ./Globalize/gn.scm 216 */
obj_t BgL_bucketz00_2331;
{ /* ./Globalize/gn.scm 216 */
int BgL_kz00_2341;
BgL_kz00_2341 = 
(int)(BgL_modz00_2327); 
BgL_bucketz00_2331 = 
VECTOR_REF(BgL_arg2017z00_2322,BgL_kz00_2341); } 
{ /* ./Globalize/gn.scm 216 */
int BgL_kz00_2343;
BgL_kz00_2343 = 
(int)(BgL_restz00_2329); 
BgL_method3068z00_2319 = 
VECTOR_REF(BgL_bucketz00_2331,BgL_kz00_2343); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3068z00_2319)(BgL_method3068z00_2319, 
(obj_t)(BgL_nodez00_2316), 
(obj_t)(BgL_callerz00_2317), BgL_gz00_1537, BEOA);} } } } } 
}



/* E-make-box3107 */
obj_t BGl_Ezd2makezd2box3107z00zzglobaliza7e_gnza7(obj_t BgL_envz00_2472, obj_t BgL_nodez00_2473, obj_t BgL_callerz00_2474, obj_t BgL_gz00_2475)
{ AN_OBJECT;
{ /* ./Globalize/gn.scm 208 */
{ 
BgL_makezd2boxzd2_bglt BgL_nodez00_1526;obj_t BgL_callerz00_1527;obj_t BgL_gz00_1528;
BgL_nodez00_1526 = 
(BgL_makezd2boxzd2_bglt)(BgL_nodez00_2473); 
BgL_callerz00_1527 = BgL_callerz00_2474; 
BgL_gz00_1528 = BgL_gz00_2475; 
{ /* ./Globalize/gn.scm 209 */
BgL_nodez00_bglt BgL_arg3928z00_2283;
BgL_arg3928z00_2283 = 
(((BgL_makezd2boxzd2_bglt)CREF(BgL_nodez00_1526))->BgL_valuez00); 
{ /* ./Globalize/gn.scm 209 */
BgL_variablez00_bglt BgL_callerz00_2286;
BgL_callerz00_2286 = 
(BgL_variablez00_bglt)(BgL_callerz00_1527); 
{ /* ./Globalize/gn.scm 209 */
obj_t BgL_method3068z00_2288;
{ /* ./Globalize/gn.scm 209 */
BgL_objectz00_bglt BgL_objz00_2289;
BgL_objz00_2289 = 
(BgL_objectz00_bglt)(BgL_arg3928z00_2283); 
{ /* ./Globalize/gn.scm 209 */
long BgL_objzd2classzd2numz00_2290;
BgL_objzd2classzd2numz00_2290 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2289); 
{ /* ./Globalize/gn.scm 209 */
obj_t BgL_arg2017z00_2291;
{ /* ./Globalize/gn.scm 209 */
int BgL_auxz00_2890;
BgL_auxz00_2890 = 
(int)(((long)1)); 
BgL_arg2017z00_2291 = 
PROCEDURE_REF(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BgL_auxz00_2890); } 
{ /* ./Globalize/gn.scm 209 */
int BgL_offsetz00_2294;
BgL_offsetz00_2294 = 
(int)(BgL_objzd2classzd2numz00_2290); 
{ /* ./Globalize/gn.scm 209 */
long BgL_offsetz00_2295;
{ /* ./Globalize/gn.scm 209 */
long BgL_auxz00_2894;
BgL_auxz00_2894 = 
(long)(BgL_offsetz00_2294); 
BgL_offsetz00_2295 = 
(BgL_auxz00_2894-OBJECT_TYPE); } 
{ /* ./Globalize/gn.scm 209 */
long BgL_modz00_2296;
{ /* ./Globalize/gn.scm 209 */
int BgL_arg2028z00_2297;
BgL_arg2028z00_2297 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 209 */
long BgL_n2z00_2305;
BgL_n2z00_2305 = 
(long)(BgL_arg2028z00_2297); 
BgL_modz00_2296 = 
(BgL_offsetz00_2295/BgL_n2z00_2305); } } 
{ /* ./Globalize/gn.scm 209 */
long BgL_restz00_2298;
{ /* ./Globalize/gn.scm 209 */
int BgL_arg2024z00_2299;
BgL_arg2024z00_2299 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 209 */
long BgL_n2z00_2308;
BgL_n2z00_2308 = 
(long)(BgL_arg2024z00_2299); 
BgL_restz00_2298 = 
(BgL_offsetz00_2295%BgL_n2z00_2308); } } 
{ /* ./Globalize/gn.scm 209 */

{ /* ./Globalize/gn.scm 209 */
obj_t BgL_bucketz00_2300;
{ /* ./Globalize/gn.scm 209 */
int BgL_kz00_2310;
BgL_kz00_2310 = 
(int)(BgL_modz00_2296); 
BgL_bucketz00_2300 = 
VECTOR_REF(BgL_arg2017z00_2291,BgL_kz00_2310); } 
{ /* ./Globalize/gn.scm 209 */
int BgL_kz00_2312;
BgL_kz00_2312 = 
(int)(BgL_restz00_2298); 
BgL_method3068z00_2288 = 
VECTOR_REF(BgL_bucketz00_2300,BgL_kz00_2312); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3068z00_2288)(BgL_method3068z00_2288, 
(obj_t)(BgL_arg3928z00_2283), 
(obj_t)(BgL_callerz00_2286), BgL_gz00_1528, BEOA);} } } } } 
}



/* E-jump-ex-it3105 */
obj_t BGl_Ezd2jumpzd2exzd2it3105zd2zzglobaliza7e_gnza7(obj_t BgL_envz00_2476, obj_t BgL_nodez00_2477, obj_t BgL_callerz00_2478, obj_t BgL_gz00_2479)
{ AN_OBJECT;
{ /* ./Globalize/gn.scm 201 */
{ 
BgL_jumpzd2exzd2itz00_bglt BgL_nodez00_1515;obj_t BgL_callerz00_1516;obj_t BgL_gz00_1517;
BgL_nodez00_1515 = 
(BgL_jumpzd2exzd2itz00_bglt)(BgL_nodez00_2477); 
BgL_callerz00_1516 = BgL_callerz00_2478; 
BgL_gz00_1517 = BgL_gz00_2479; 
{ /* ./Globalize/gn.scm 202 */
BgL_nodez00_bglt BgL_arg3913z00_2221;obj_t BgL_arg3914z00_2222;
BgL_arg3913z00_2221 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1515))->BgL_exitz00); 
{ /* ./Globalize/gn.scm 202 */
BgL_nodez00_bglt BgL_arg3918z00_2223;
BgL_arg3918z00_2223 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1515))->BgL_valuez00); 
{ /* ./Globalize/gn.scm 202 */
BgL_variablez00_bglt BgL_callerz00_2227;
BgL_callerz00_2227 = 
(BgL_variablez00_bglt)(BgL_callerz00_1516); 
{ /* ./Globalize/gn.scm 202 */
obj_t BgL_method3068z00_2229;
{ /* ./Globalize/gn.scm 202 */
BgL_objectz00_bglt BgL_objz00_2230;
BgL_objz00_2230 = 
(BgL_objectz00_bglt)(BgL_arg3918z00_2223); 
{ /* ./Globalize/gn.scm 202 */
long BgL_objzd2classzd2numz00_2231;
BgL_objzd2classzd2numz00_2231 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2230); 
{ /* ./Globalize/gn.scm 202 */
obj_t BgL_arg2017z00_2232;
{ /* ./Globalize/gn.scm 202 */
int BgL_auxz00_2917;
BgL_auxz00_2917 = 
(int)(((long)1)); 
BgL_arg2017z00_2232 = 
PROCEDURE_REF(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BgL_auxz00_2917); } 
{ /* ./Globalize/gn.scm 202 */
int BgL_offsetz00_2235;
BgL_offsetz00_2235 = 
(int)(BgL_objzd2classzd2numz00_2231); 
{ /* ./Globalize/gn.scm 202 */
long BgL_offsetz00_2236;
{ /* ./Globalize/gn.scm 202 */
long BgL_auxz00_2921;
BgL_auxz00_2921 = 
(long)(BgL_offsetz00_2235); 
BgL_offsetz00_2236 = 
(BgL_auxz00_2921-OBJECT_TYPE); } 
{ /* ./Globalize/gn.scm 202 */
long BgL_modz00_2237;
{ /* ./Globalize/gn.scm 202 */
int BgL_arg2028z00_2238;
BgL_arg2028z00_2238 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 202 */
long BgL_n2z00_2246;
BgL_n2z00_2246 = 
(long)(BgL_arg2028z00_2238); 
BgL_modz00_2237 = 
(BgL_offsetz00_2236/BgL_n2z00_2246); } } 
{ /* ./Globalize/gn.scm 202 */
long BgL_restz00_2239;
{ /* ./Globalize/gn.scm 202 */
int BgL_arg2024z00_2240;
BgL_arg2024z00_2240 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 202 */
long BgL_n2z00_2249;
BgL_n2z00_2249 = 
(long)(BgL_arg2024z00_2240); 
BgL_restz00_2239 = 
(BgL_offsetz00_2236%BgL_n2z00_2249); } } 
{ /* ./Globalize/gn.scm 202 */

{ /* ./Globalize/gn.scm 202 */
obj_t BgL_bucketz00_2241;
{ /* ./Globalize/gn.scm 202 */
int BgL_kz00_2251;
BgL_kz00_2251 = 
(int)(BgL_modz00_2237); 
BgL_bucketz00_2241 = 
VECTOR_REF(BgL_arg2017z00_2232,BgL_kz00_2251); } 
{ /* ./Globalize/gn.scm 202 */
int BgL_kz00_2253;
BgL_kz00_2253 = 
(int)(BgL_restz00_2239); 
BgL_method3068z00_2229 = 
VECTOR_REF(BgL_bucketz00_2241,BgL_kz00_2253); } } } } } } } } } } 
BgL_arg3914z00_2222 = 
PROCEDURE_ENTRY(BgL_method3068z00_2229)(BgL_method3068z00_2229, 
(obj_t)(BgL_arg3918z00_2223), 
(obj_t)(BgL_callerz00_2227), BgL_gz00_1517, BEOA); } } } 
{ /* ./Globalize/gn.scm 202 */
BgL_variablez00_bglt BgL_callerz00_2255;
BgL_callerz00_2255 = 
(BgL_variablez00_bglt)(BgL_callerz00_1516); 
{ /* ./Globalize/gn.scm 202 */
obj_t BgL_method3068z00_2257;
{ /* ./Globalize/gn.scm 202 */
BgL_objectz00_bglt BgL_objz00_2258;
BgL_objz00_2258 = 
(BgL_objectz00_bglt)(BgL_arg3913z00_2221); 
{ /* ./Globalize/gn.scm 202 */
long BgL_objzd2classzd2numz00_2259;
BgL_objzd2classzd2numz00_2259 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2258); 
{ /* ./Globalize/gn.scm 202 */
obj_t BgL_arg2017z00_2260;
{ /* ./Globalize/gn.scm 202 */
int BgL_auxz00_2941;
BgL_auxz00_2941 = 
(int)(((long)1)); 
BgL_arg2017z00_2260 = 
PROCEDURE_REF(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BgL_auxz00_2941); } 
{ /* ./Globalize/gn.scm 202 */
int BgL_offsetz00_2263;
BgL_offsetz00_2263 = 
(int)(BgL_objzd2classzd2numz00_2259); 
{ /* ./Globalize/gn.scm 202 */
long BgL_offsetz00_2264;
{ /* ./Globalize/gn.scm 202 */
long BgL_auxz00_2945;
BgL_auxz00_2945 = 
(long)(BgL_offsetz00_2263); 
BgL_offsetz00_2264 = 
(BgL_auxz00_2945-OBJECT_TYPE); } 
{ /* ./Globalize/gn.scm 202 */
long BgL_modz00_2265;
{ /* ./Globalize/gn.scm 202 */
int BgL_arg2028z00_2266;
BgL_arg2028z00_2266 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 202 */
long BgL_n2z00_2274;
BgL_n2z00_2274 = 
(long)(BgL_arg2028z00_2266); 
BgL_modz00_2265 = 
(BgL_offsetz00_2264/BgL_n2z00_2274); } } 
{ /* ./Globalize/gn.scm 202 */
long BgL_restz00_2267;
{ /* ./Globalize/gn.scm 202 */
int BgL_arg2024z00_2268;
BgL_arg2024z00_2268 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 202 */
long BgL_n2z00_2277;
BgL_n2z00_2277 = 
(long)(BgL_arg2024z00_2268); 
BgL_restz00_2267 = 
(BgL_offsetz00_2264%BgL_n2z00_2277); } } 
{ /* ./Globalize/gn.scm 202 */

{ /* ./Globalize/gn.scm 202 */
obj_t BgL_bucketz00_2269;
{ /* ./Globalize/gn.scm 202 */
int BgL_kz00_2279;
BgL_kz00_2279 = 
(int)(BgL_modz00_2265); 
BgL_bucketz00_2269 = 
VECTOR_REF(BgL_arg2017z00_2260,BgL_kz00_2279); } 
{ /* ./Globalize/gn.scm 202 */
int BgL_kz00_2281;
BgL_kz00_2281 = 
(int)(BgL_restz00_2267); 
BgL_method3068z00_2257 = 
VECTOR_REF(BgL_bucketz00_2269,BgL_kz00_2281); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3068z00_2257)(BgL_method3068z00_2257, 
(obj_t)(BgL_arg3913z00_2221), 
(obj_t)(BgL_callerz00_2255), BgL_arg3914z00_2222, BEOA);} } } } } 
}



/* E-set-ex-it3103 */
obj_t BGl_Ezd2setzd2exzd2it3103zd2zzglobaliza7e_gnza7(obj_t BgL_envz00_2480, obj_t BgL_nodez00_2481, obj_t BgL_callerz00_2482, obj_t BgL_gz00_2483)
{ AN_OBJECT;
{ /* ./Globalize/gn.scm 194 */
{ 
BgL_setzd2exzd2itz00_bglt BgL_nodez00_1506;obj_t BgL_callerz00_1507;obj_t BgL_gz00_1508;
BgL_nodez00_1506 = 
(BgL_setzd2exzd2itz00_bglt)(BgL_nodez00_2481); 
BgL_callerz00_1507 = BgL_callerz00_2482; 
BgL_gz00_1508 = BgL_gz00_2483; 
{ /* ./Globalize/gn.scm 195 */
BgL_nodez00_bglt BgL_arg3903z00_2190;
BgL_arg3903z00_2190 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1506))->BgL_bodyz00); 
{ /* ./Globalize/gn.scm 195 */
BgL_variablez00_bglt BgL_callerz00_2193;
BgL_callerz00_2193 = 
(BgL_variablez00_bglt)(BgL_callerz00_1507); 
{ /* ./Globalize/gn.scm 195 */
obj_t BgL_method3068z00_2195;
{ /* ./Globalize/gn.scm 195 */
BgL_objectz00_bglt BgL_objz00_2196;
BgL_objz00_2196 = 
(BgL_objectz00_bglt)(BgL_arg3903z00_2190); 
{ /* ./Globalize/gn.scm 195 */
long BgL_objzd2classzd2numz00_2197;
BgL_objzd2classzd2numz00_2197 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2196); 
{ /* ./Globalize/gn.scm 195 */
obj_t BgL_arg2017z00_2198;
{ /* ./Globalize/gn.scm 195 */
int BgL_auxz00_2967;
BgL_auxz00_2967 = 
(int)(((long)1)); 
BgL_arg2017z00_2198 = 
PROCEDURE_REF(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BgL_auxz00_2967); } 
{ /* ./Globalize/gn.scm 195 */
int BgL_offsetz00_2201;
BgL_offsetz00_2201 = 
(int)(BgL_objzd2classzd2numz00_2197); 
{ /* ./Globalize/gn.scm 195 */
long BgL_offsetz00_2202;
{ /* ./Globalize/gn.scm 195 */
long BgL_auxz00_2971;
BgL_auxz00_2971 = 
(long)(BgL_offsetz00_2201); 
BgL_offsetz00_2202 = 
(BgL_auxz00_2971-OBJECT_TYPE); } 
{ /* ./Globalize/gn.scm 195 */
long BgL_modz00_2203;
{ /* ./Globalize/gn.scm 195 */
int BgL_arg2028z00_2204;
BgL_arg2028z00_2204 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 195 */
long BgL_n2z00_2212;
BgL_n2z00_2212 = 
(long)(BgL_arg2028z00_2204); 
BgL_modz00_2203 = 
(BgL_offsetz00_2202/BgL_n2z00_2212); } } 
{ /* ./Globalize/gn.scm 195 */
long BgL_restz00_2205;
{ /* ./Globalize/gn.scm 195 */
int BgL_arg2024z00_2206;
BgL_arg2024z00_2206 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 195 */
long BgL_n2z00_2215;
BgL_n2z00_2215 = 
(long)(BgL_arg2024z00_2206); 
BgL_restz00_2205 = 
(BgL_offsetz00_2202%BgL_n2z00_2215); } } 
{ /* ./Globalize/gn.scm 195 */

{ /* ./Globalize/gn.scm 195 */
obj_t BgL_bucketz00_2207;
{ /* ./Globalize/gn.scm 195 */
int BgL_kz00_2217;
BgL_kz00_2217 = 
(int)(BgL_modz00_2203); 
BgL_bucketz00_2207 = 
VECTOR_REF(BgL_arg2017z00_2198,BgL_kz00_2217); } 
{ /* ./Globalize/gn.scm 195 */
int BgL_kz00_2219;
BgL_kz00_2219 = 
(int)(BgL_restz00_2205); 
BgL_method3068z00_2195 = 
VECTOR_REF(BgL_bucketz00_2207,BgL_kz00_2219); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3068z00_2195)(BgL_method3068z00_2195, 
(obj_t)(BgL_arg3903z00_2190), 
(obj_t)(BgL_callerz00_2193), BgL_gz00_1508, BEOA);} } } } } 
}



/* E-let-var3101 */
obj_t BGl_Ezd2letzd2var3101z00zzglobaliza7e_gnza7(obj_t BgL_envz00_2484, obj_t BgL_nodez00_2485, obj_t BgL_callerz00_2486, obj_t BgL_gz00_2487)
{ AN_OBJECT;
{ /* ./Globalize/gn.scm 182 */
{ 
BgL_letzd2varzd2_bglt BgL_nodez00_1488;obj_t BgL_callerz00_1489;obj_t BgL_gz00_1490;
BgL_nodez00_1488 = 
(BgL_letzd2varzd2_bglt)(BgL_nodez00_2485); 
BgL_callerz00_1489 = BgL_callerz00_2486; 
BgL_gz00_1490 = BgL_gz00_2487; 
{ 
obj_t BgL_bindingsz00_1494;obj_t BgL_gz00_1495;
{ /* ./Globalize/gn.scm 184 */
obj_t BgL_arg3874z00_1497;
BgL_arg3874z00_1497 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1488))->BgL_bindingsz00); 
BgL_bindingsz00_1494 = BgL_arg3874z00_1497; 
BgL_gz00_1495 = BgL_gz00_1490; 
BgL_loopz00_1496:
{ /* ./Globalize/gn.scm 186 */
bool_t BgL_test3877z00_1498;
BgL_test3877z00_1498 = 
NULLP(BgL_bindingsz00_1494); 
if(BgL_test3877z00_1498)
{ /* ./Globalize/gn.scm 187 */
BgL_nodez00_bglt BgL_arg3879z00_1499;
BgL_arg3879z00_1499 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1488))->BgL_bodyz00); 
{ /* ./Globalize/gn.scm 187 */
BgL_variablez00_bglt BgL_callerz00_2131;
BgL_callerz00_2131 = 
(BgL_variablez00_bglt)(BgL_callerz00_1489); 
{ /* ./Globalize/gn.scm 187 */
obj_t BgL_method3068z00_2133;
{ /* ./Globalize/gn.scm 187 */
BgL_objectz00_bglt BgL_objz00_2134;
BgL_objz00_2134 = 
(BgL_objectz00_bglt)(BgL_arg3879z00_1499); 
{ /* ./Globalize/gn.scm 187 */
long BgL_objzd2classzd2numz00_2135;
BgL_objzd2classzd2numz00_2135 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2134); 
{ /* ./Globalize/gn.scm 187 */
obj_t BgL_arg2017z00_2136;
{ /* ./Globalize/gn.scm 187 */
int BgL_auxz00_2996;
BgL_auxz00_2996 = 
(int)(((long)1)); 
BgL_arg2017z00_2136 = 
PROCEDURE_REF(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BgL_auxz00_2996); } 
{ /* ./Globalize/gn.scm 187 */
int BgL_offsetz00_2139;
BgL_offsetz00_2139 = 
(int)(BgL_objzd2classzd2numz00_2135); 
{ /* ./Globalize/gn.scm 187 */
long BgL_offsetz00_2140;
{ /* ./Globalize/gn.scm 187 */
long BgL_auxz00_3000;
BgL_auxz00_3000 = 
(long)(BgL_offsetz00_2139); 
BgL_offsetz00_2140 = 
(BgL_auxz00_3000-OBJECT_TYPE); } 
{ /* ./Globalize/gn.scm 187 */
long BgL_modz00_2141;
{ /* ./Globalize/gn.scm 187 */
int BgL_arg2028z00_2142;
BgL_arg2028z00_2142 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 187 */
long BgL_n2z00_2150;
BgL_n2z00_2150 = 
(long)(BgL_arg2028z00_2142); 
BgL_modz00_2141 = 
(BgL_offsetz00_2140/BgL_n2z00_2150); } } 
{ /* ./Globalize/gn.scm 187 */
long BgL_restz00_2143;
{ /* ./Globalize/gn.scm 187 */
int BgL_arg2024z00_2144;
BgL_arg2024z00_2144 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 187 */
long BgL_n2z00_2153;
BgL_n2z00_2153 = 
(long)(BgL_arg2024z00_2144); 
BgL_restz00_2143 = 
(BgL_offsetz00_2140%BgL_n2z00_2153); } } 
{ /* ./Globalize/gn.scm 187 */

{ /* ./Globalize/gn.scm 187 */
obj_t BgL_bucketz00_2145;
{ /* ./Globalize/gn.scm 187 */
int BgL_kz00_2155;
BgL_kz00_2155 = 
(int)(BgL_modz00_2141); 
BgL_bucketz00_2145 = 
VECTOR_REF(BgL_arg2017z00_2136,BgL_kz00_2155); } 
{ /* ./Globalize/gn.scm 187 */
int BgL_kz00_2157;
BgL_kz00_2157 = 
(int)(BgL_restz00_2143); 
BgL_method3068z00_2133 = 
VECTOR_REF(BgL_bucketz00_2145,BgL_kz00_2157); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3068z00_2133)(BgL_method3068z00_2133, 
(obj_t)(BgL_arg3879z00_1499), 
(obj_t)(BgL_callerz00_2131), BgL_gz00_1495, BEOA);} } }  else 
{ /* ./Globalize/gn.scm 188 */
obj_t BgL_arg3883z00_1500;obj_t BgL_arg3885z00_1501;
BgL_arg3883z00_1500 = 
CDR(BgL_bindingsz00_1494); 
{ /* ./Globalize/gn.scm 189 */
obj_t BgL_arg3889z00_1502;
{ /* ./Globalize/gn.scm 189 */
obj_t BgL_auxz00_3018;
BgL_auxz00_3018 = 
CAR(BgL_bindingsz00_1494); 
BgL_arg3889z00_1502 = 
CDR(BgL_auxz00_3018); } 
{ /* ./Globalize/gn.scm 189 */
BgL_nodez00_bglt BgL_nodez00_2161;BgL_variablez00_bglt BgL_callerz00_2162;
BgL_nodez00_2161 = 
(BgL_nodez00_bglt)(BgL_arg3889z00_1502); 
BgL_callerz00_2162 = 
(BgL_variablez00_bglt)(BgL_callerz00_1489); 
{ /* ./Globalize/gn.scm 189 */
obj_t BgL_method3068z00_2164;
{ /* ./Globalize/gn.scm 189 */
BgL_objectz00_bglt BgL_objz00_2165;
BgL_objz00_2165 = 
(BgL_objectz00_bglt)(BgL_nodez00_2161); 
{ /* ./Globalize/gn.scm 189 */
long BgL_objzd2classzd2numz00_2166;
BgL_objzd2classzd2numz00_2166 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2165); 
{ /* ./Globalize/gn.scm 189 */
obj_t BgL_arg2017z00_2167;
{ /* ./Globalize/gn.scm 189 */
int BgL_auxz00_3025;
BgL_auxz00_3025 = 
(int)(((long)1)); 
BgL_arg2017z00_2167 = 
PROCEDURE_REF(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BgL_auxz00_3025); } 
{ /* ./Globalize/gn.scm 189 */
int BgL_offsetz00_2170;
BgL_offsetz00_2170 = 
(int)(BgL_objzd2classzd2numz00_2166); 
{ /* ./Globalize/gn.scm 189 */
long BgL_offsetz00_2171;
{ /* ./Globalize/gn.scm 189 */
long BgL_auxz00_3029;
BgL_auxz00_3029 = 
(long)(BgL_offsetz00_2170); 
BgL_offsetz00_2171 = 
(BgL_auxz00_3029-OBJECT_TYPE); } 
{ /* ./Globalize/gn.scm 189 */
long BgL_modz00_2172;
{ /* ./Globalize/gn.scm 189 */
int BgL_arg2028z00_2173;
BgL_arg2028z00_2173 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 189 */
long BgL_n2z00_2181;
BgL_n2z00_2181 = 
(long)(BgL_arg2028z00_2173); 
BgL_modz00_2172 = 
(BgL_offsetz00_2171/BgL_n2z00_2181); } } 
{ /* ./Globalize/gn.scm 189 */
long BgL_restz00_2174;
{ /* ./Globalize/gn.scm 189 */
int BgL_arg2024z00_2175;
BgL_arg2024z00_2175 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 189 */
long BgL_n2z00_2184;
BgL_n2z00_2184 = 
(long)(BgL_arg2024z00_2175); 
BgL_restz00_2174 = 
(BgL_offsetz00_2171%BgL_n2z00_2184); } } 
{ /* ./Globalize/gn.scm 189 */

{ /* ./Globalize/gn.scm 189 */
obj_t BgL_bucketz00_2176;
{ /* ./Globalize/gn.scm 189 */
int BgL_kz00_2186;
BgL_kz00_2186 = 
(int)(BgL_modz00_2172); 
BgL_bucketz00_2176 = 
VECTOR_REF(BgL_arg2017z00_2167,BgL_kz00_2186); } 
{ /* ./Globalize/gn.scm 189 */
int BgL_kz00_2188;
BgL_kz00_2188 = 
(int)(BgL_restz00_2174); 
BgL_method3068z00_2164 = 
VECTOR_REF(BgL_bucketz00_2176,BgL_kz00_2188); } } } } } } } } } } 
BgL_arg3885z00_1501 = 
PROCEDURE_ENTRY(BgL_method3068z00_2164)(BgL_method3068z00_2164, 
(obj_t)(BgL_nodez00_2161), 
(obj_t)(BgL_callerz00_2162), BgL_gz00_1495, BEOA); } } } 
{ 
obj_t BgL_gz00_3047;obj_t BgL_bindingsz00_3046;
BgL_bindingsz00_3046 = BgL_arg3883z00_1500; 
BgL_gz00_3047 = BgL_arg3885z00_1501; 
BgL_gz00_1495 = BgL_gz00_3047; 
BgL_bindingsz00_1494 = BgL_bindingsz00_3046; 
goto BgL_loopz00_1496;} } } } } } } 
}



/* E-let-fun3099 */
obj_t BGl_Ezd2letzd2fun3099z00zzglobaliza7e_gnza7(obj_t BgL_envz00_2488, obj_t BgL_nodez00_2489, obj_t BgL_callerz00_2490, obj_t BgL_gz00_2491)
{ AN_OBJECT;
{ /* ./Globalize/gn.scm 168 */
{ 
BgL_letzd2funzd2_bglt BgL_nodez00_1468;obj_t BgL_callerz00_1469;obj_t BgL_gz00_1470;
BgL_nodez00_1468 = 
(BgL_letzd2funzd2_bglt)(BgL_nodez00_2489); 
BgL_callerz00_1469 = BgL_callerz00_2490; 
BgL_gz00_1470 = BgL_gz00_2491; 
{ 
obj_t BgL_localsz00_1474;obj_t BgL_gz00_1475;
{ /* ./Globalize/gn.scm 170 */
obj_t BgL_arg3841z00_1477;
BgL_arg3841z00_1477 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1468))->BgL_localsz00); 
BgL_localsz00_1474 = BgL_arg3841z00_1477; 
BgL_gz00_1475 = BgL_gz00_1470; 
BgL_loopz00_1476:
{ /* ./Globalize/gn.scm 172 */
bool_t BgL_test3844z00_1478;
BgL_test3844z00_1478 = 
NULLP(BgL_localsz00_1474); 
if(BgL_test3844z00_1478)
{ /* ./Globalize/gn.scm 173 */
BgL_nodez00_bglt BgL_arg3846z00_1479;
BgL_arg3846z00_1479 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1468))->BgL_bodyz00); 
{ /* ./Globalize/gn.scm 173 */
BgL_variablez00_bglt BgL_callerz00_2067;
BgL_callerz00_2067 = 
(BgL_variablez00_bglt)(BgL_callerz00_1469); 
{ /* ./Globalize/gn.scm 173 */
obj_t BgL_method3068z00_2069;
{ /* ./Globalize/gn.scm 173 */
BgL_objectz00_bglt BgL_objz00_2070;
BgL_objz00_2070 = 
(BgL_objectz00_bglt)(BgL_arg3846z00_1479); 
{ /* ./Globalize/gn.scm 173 */
long BgL_objzd2classzd2numz00_2071;
BgL_objzd2classzd2numz00_2071 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2070); 
{ /* ./Globalize/gn.scm 173 */
obj_t BgL_arg2017z00_2072;
{ /* ./Globalize/gn.scm 173 */
int BgL_auxz00_3056;
BgL_auxz00_3056 = 
(int)(((long)1)); 
BgL_arg2017z00_2072 = 
PROCEDURE_REF(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BgL_auxz00_3056); } 
{ /* ./Globalize/gn.scm 173 */
int BgL_offsetz00_2075;
BgL_offsetz00_2075 = 
(int)(BgL_objzd2classzd2numz00_2071); 
{ /* ./Globalize/gn.scm 173 */
long BgL_offsetz00_2076;
{ /* ./Globalize/gn.scm 173 */
long BgL_auxz00_3060;
BgL_auxz00_3060 = 
(long)(BgL_offsetz00_2075); 
BgL_offsetz00_2076 = 
(BgL_auxz00_3060-OBJECT_TYPE); } 
{ /* ./Globalize/gn.scm 173 */
long BgL_modz00_2077;
{ /* ./Globalize/gn.scm 173 */
int BgL_arg2028z00_2078;
BgL_arg2028z00_2078 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 173 */
long BgL_n2z00_2086;
BgL_n2z00_2086 = 
(long)(BgL_arg2028z00_2078); 
BgL_modz00_2077 = 
(BgL_offsetz00_2076/BgL_n2z00_2086); } } 
{ /* ./Globalize/gn.scm 173 */
long BgL_restz00_2079;
{ /* ./Globalize/gn.scm 173 */
int BgL_arg2024z00_2080;
BgL_arg2024z00_2080 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 173 */
long BgL_n2z00_2089;
BgL_n2z00_2089 = 
(long)(BgL_arg2024z00_2080); 
BgL_restz00_2079 = 
(BgL_offsetz00_2076%BgL_n2z00_2089); } } 
{ /* ./Globalize/gn.scm 173 */

{ /* ./Globalize/gn.scm 173 */
obj_t BgL_bucketz00_2081;
{ /* ./Globalize/gn.scm 173 */
int BgL_kz00_2091;
BgL_kz00_2091 = 
(int)(BgL_modz00_2077); 
BgL_bucketz00_2081 = 
VECTOR_REF(BgL_arg2017z00_2072,BgL_kz00_2091); } 
{ /* ./Globalize/gn.scm 173 */
int BgL_kz00_2093;
BgL_kz00_2093 = 
(int)(BgL_restz00_2079); 
BgL_method3068z00_2069 = 
VECTOR_REF(BgL_bucketz00_2081,BgL_kz00_2093); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3068z00_2069)(BgL_method3068z00_2069, 
(obj_t)(BgL_arg3846z00_1479), 
(obj_t)(BgL_callerz00_2067), BgL_gz00_1475, BEOA);} } }  else 
{ /* ./Globalize/gn.scm 174 */
obj_t BgL_arg3850z00_1480;obj_t BgL_arg3851z00_1481;
BgL_arg3850z00_1480 = 
CDR(BgL_localsz00_1474); 
{ /* ./Globalize/gn.scm 175 */
obj_t BgL_arg3855z00_1482;obj_t BgL_arg3856z00_1483;
{ /* ./Globalize/gn.scm 175 */
BgL_sfunz00_bglt BgL_obj1370z00_2097;
{ /* ./Globalize/gn.scm 175 */
BgL_valuez00_bglt BgL_auxz00_3078;
{ /* ./Globalize/gn.scm 175 */
BgL_variablez00_bglt BgL_obj1100z00_2096;
{ /* ./Globalize/gn.scm 175 */
obj_t BgL_auxz00_3079;
BgL_auxz00_3079 = 
CAR(BgL_localsz00_1474); 
BgL_obj1100z00_2096 = 
(BgL_variablez00_bglt)(BgL_auxz00_3079); } 
BgL_auxz00_3078 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_2096))->BgL_valuez00); } 
BgL_obj1370z00_2097 = 
(BgL_sfunz00_bglt)(BgL_auxz00_3078); } 
BgL_arg3855z00_1482 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_2097))->BgL_bodyz00); } 
BgL_arg3856z00_1483 = 
CAR(BgL_localsz00_1474); 
{ /* ./Globalize/gn.scm 175 */
BgL_nodez00_bglt BgL_nodez00_2099;BgL_variablez00_bglt BgL_callerz00_2100;
BgL_nodez00_2099 = 
(BgL_nodez00_bglt)(BgL_arg3855z00_1482); 
BgL_callerz00_2100 = 
(BgL_variablez00_bglt)(BgL_arg3856z00_1483); 
{ /* ./Globalize/gn.scm 175 */
obj_t BgL_method3068z00_2102;
{ /* ./Globalize/gn.scm 175 */
BgL_objectz00_bglt BgL_objz00_2103;
BgL_objz00_2103 = 
(BgL_objectz00_bglt)(BgL_nodez00_2099); 
{ /* ./Globalize/gn.scm 175 */
long BgL_objzd2classzd2numz00_2104;
BgL_objzd2classzd2numz00_2104 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2103); 
{ /* ./Globalize/gn.scm 175 */
obj_t BgL_arg2017z00_2105;
{ /* ./Globalize/gn.scm 175 */
int BgL_auxz00_3090;
BgL_auxz00_3090 = 
(int)(((long)1)); 
BgL_arg2017z00_2105 = 
PROCEDURE_REF(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BgL_auxz00_3090); } 
{ /* ./Globalize/gn.scm 175 */
int BgL_offsetz00_2108;
BgL_offsetz00_2108 = 
(int)(BgL_objzd2classzd2numz00_2104); 
{ /* ./Globalize/gn.scm 175 */
long BgL_offsetz00_2109;
{ /* ./Globalize/gn.scm 175 */
long BgL_auxz00_3094;
BgL_auxz00_3094 = 
(long)(BgL_offsetz00_2108); 
BgL_offsetz00_2109 = 
(BgL_auxz00_3094-OBJECT_TYPE); } 
{ /* ./Globalize/gn.scm 175 */
long BgL_modz00_2110;
{ /* ./Globalize/gn.scm 175 */
int BgL_arg2028z00_2111;
BgL_arg2028z00_2111 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 175 */
long BgL_n2z00_2119;
BgL_n2z00_2119 = 
(long)(BgL_arg2028z00_2111); 
BgL_modz00_2110 = 
(BgL_offsetz00_2109/BgL_n2z00_2119); } } 
{ /* ./Globalize/gn.scm 175 */
long BgL_restz00_2112;
{ /* ./Globalize/gn.scm 175 */
int BgL_arg2024z00_2113;
BgL_arg2024z00_2113 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 175 */
long BgL_n2z00_2122;
BgL_n2z00_2122 = 
(long)(BgL_arg2024z00_2113); 
BgL_restz00_2112 = 
(BgL_offsetz00_2109%BgL_n2z00_2122); } } 
{ /* ./Globalize/gn.scm 175 */

{ /* ./Globalize/gn.scm 175 */
obj_t BgL_bucketz00_2114;
{ /* ./Globalize/gn.scm 175 */
int BgL_kz00_2124;
BgL_kz00_2124 = 
(int)(BgL_modz00_2110); 
BgL_bucketz00_2114 = 
VECTOR_REF(BgL_arg2017z00_2105,BgL_kz00_2124); } 
{ /* ./Globalize/gn.scm 175 */
int BgL_kz00_2126;
BgL_kz00_2126 = 
(int)(BgL_restz00_2112); 
BgL_method3068z00_2102 = 
VECTOR_REF(BgL_bucketz00_2114,BgL_kz00_2126); } } } } } } } } } } 
BgL_arg3851z00_1481 = 
PROCEDURE_ENTRY(BgL_method3068z00_2102)(BgL_method3068z00_2102, 
(obj_t)(BgL_nodez00_2099), 
(obj_t)(BgL_callerz00_2100), BgL_gz00_1475, BEOA); } } } 
{ 
obj_t BgL_gz00_3112;obj_t BgL_localsz00_3111;
BgL_localsz00_3111 = BgL_arg3850z00_1480; 
BgL_gz00_3112 = BgL_arg3851z00_1481; 
BgL_gz00_1475 = BgL_gz00_3112; 
BgL_localsz00_1474 = BgL_localsz00_3111; 
goto BgL_loopz00_1476;} } } } } } } 
}



/* E-select3096 */
obj_t BGl_Ezd2select3096zd2zzglobaliza7e_gnza7(obj_t BgL_envz00_2492, obj_t BgL_nodez00_2493, obj_t BgL_callerz00_2494, obj_t BgL_gz00_2495)
{ AN_OBJECT;
{ /* ./Globalize/gn.scm 157 */
{ 
BgL_selectz00_bglt BgL_nodez00_1450;obj_t BgL_callerz00_1451;obj_t BgL_gz00_1452;
BgL_nodez00_1450 = 
(BgL_selectz00_bglt)(BgL_nodez00_2493); 
BgL_callerz00_1451 = BgL_callerz00_2494; 
BgL_gz00_1452 = BgL_gz00_2495; 
{ 
obj_t BgL_clausesz00_1456;obj_t BgL_gz00_1457;
{ /* ./Globalize/gn.scm 159 */
obj_t BgL_arg3813z00_1459;
BgL_arg3813z00_1459 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1450))->BgL_clausesz00); 
BgL_clausesz00_1456 = BgL_arg3813z00_1459; 
BgL_gz00_1457 = BgL_gz00_1452; 
BgL_loopz00_1458:
{ /* ./Globalize/gn.scm 161 */
bool_t BgL_test3816z00_1460;
BgL_test3816z00_1460 = 
NULLP(BgL_clausesz00_1456); 
if(BgL_test3816z00_1460)
{ /* ./Globalize/gn.scm 162 */
BgL_nodez00_bglt BgL_arg3818z00_1461;
BgL_arg3818z00_1461 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1450))->BgL_testz00); 
{ /* ./Globalize/gn.scm 162 */
BgL_variablez00_bglt BgL_callerz00_2005;
BgL_callerz00_2005 = 
(BgL_variablez00_bglt)(BgL_callerz00_1451); 
{ /* ./Globalize/gn.scm 162 */
obj_t BgL_method3068z00_2007;
{ /* ./Globalize/gn.scm 162 */
BgL_objectz00_bglt BgL_objz00_2008;
BgL_objz00_2008 = 
(BgL_objectz00_bglt)(BgL_arg3818z00_1461); 
{ /* ./Globalize/gn.scm 162 */
long BgL_objzd2classzd2numz00_2009;
BgL_objzd2classzd2numz00_2009 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2008); 
{ /* ./Globalize/gn.scm 162 */
obj_t BgL_arg2017z00_2010;
{ /* ./Globalize/gn.scm 162 */
int BgL_auxz00_3121;
BgL_auxz00_3121 = 
(int)(((long)1)); 
BgL_arg2017z00_2010 = 
PROCEDURE_REF(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BgL_auxz00_3121); } 
{ /* ./Globalize/gn.scm 162 */
int BgL_offsetz00_2013;
BgL_offsetz00_2013 = 
(int)(BgL_objzd2classzd2numz00_2009); 
{ /* ./Globalize/gn.scm 162 */
long BgL_offsetz00_2014;
{ /* ./Globalize/gn.scm 162 */
long BgL_auxz00_3125;
BgL_auxz00_3125 = 
(long)(BgL_offsetz00_2013); 
BgL_offsetz00_2014 = 
(BgL_auxz00_3125-OBJECT_TYPE); } 
{ /* ./Globalize/gn.scm 162 */
long BgL_modz00_2015;
{ /* ./Globalize/gn.scm 162 */
int BgL_arg2028z00_2016;
BgL_arg2028z00_2016 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 162 */
long BgL_n2z00_2024;
BgL_n2z00_2024 = 
(long)(BgL_arg2028z00_2016); 
BgL_modz00_2015 = 
(BgL_offsetz00_2014/BgL_n2z00_2024); } } 
{ /* ./Globalize/gn.scm 162 */
long BgL_restz00_2017;
{ /* ./Globalize/gn.scm 162 */
int BgL_arg2024z00_2018;
BgL_arg2024z00_2018 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 162 */
long BgL_n2z00_2027;
BgL_n2z00_2027 = 
(long)(BgL_arg2024z00_2018); 
BgL_restz00_2017 = 
(BgL_offsetz00_2014%BgL_n2z00_2027); } } 
{ /* ./Globalize/gn.scm 162 */

{ /* ./Globalize/gn.scm 162 */
obj_t BgL_bucketz00_2019;
{ /* ./Globalize/gn.scm 162 */
int BgL_kz00_2029;
BgL_kz00_2029 = 
(int)(BgL_modz00_2015); 
BgL_bucketz00_2019 = 
VECTOR_REF(BgL_arg2017z00_2010,BgL_kz00_2029); } 
{ /* ./Globalize/gn.scm 162 */
int BgL_kz00_2031;
BgL_kz00_2031 = 
(int)(BgL_restz00_2017); 
BgL_method3068z00_2007 = 
VECTOR_REF(BgL_bucketz00_2019,BgL_kz00_2031); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3068z00_2007)(BgL_method3068z00_2007, 
(obj_t)(BgL_arg3818z00_1461), 
(obj_t)(BgL_callerz00_2005), BgL_gz00_1457, BEOA);} } }  else 
{ /* ./Globalize/gn.scm 163 */
obj_t BgL_arg3822z00_1462;obj_t BgL_arg3823z00_1463;
BgL_arg3822z00_1462 = 
CDR(BgL_clausesz00_1456); 
{ /* ./Globalize/gn.scm 163 */
obj_t BgL_arg3827z00_1464;
{ /* ./Globalize/gn.scm 163 */
obj_t BgL_auxz00_3143;
BgL_auxz00_3143 = 
CAR(BgL_clausesz00_1456); 
BgL_arg3827z00_1464 = 
CDR(BgL_auxz00_3143); } 
{ /* ./Globalize/gn.scm 163 */
BgL_nodez00_bglt BgL_nodez00_2035;BgL_variablez00_bglt BgL_callerz00_2036;
BgL_nodez00_2035 = 
(BgL_nodez00_bglt)(BgL_arg3827z00_1464); 
BgL_callerz00_2036 = 
(BgL_variablez00_bglt)(BgL_callerz00_1451); 
{ /* ./Globalize/gn.scm 163 */
obj_t BgL_method3068z00_2038;
{ /* ./Globalize/gn.scm 163 */
BgL_objectz00_bglt BgL_objz00_2039;
BgL_objz00_2039 = 
(BgL_objectz00_bglt)(BgL_nodez00_2035); 
{ /* ./Globalize/gn.scm 163 */
long BgL_objzd2classzd2numz00_2040;
BgL_objzd2classzd2numz00_2040 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2039); 
{ /* ./Globalize/gn.scm 163 */
obj_t BgL_arg2017z00_2041;
{ /* ./Globalize/gn.scm 163 */
int BgL_auxz00_3150;
BgL_auxz00_3150 = 
(int)(((long)1)); 
BgL_arg2017z00_2041 = 
PROCEDURE_REF(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BgL_auxz00_3150); } 
{ /* ./Globalize/gn.scm 163 */
int BgL_offsetz00_2044;
BgL_offsetz00_2044 = 
(int)(BgL_objzd2classzd2numz00_2040); 
{ /* ./Globalize/gn.scm 163 */
long BgL_offsetz00_2045;
{ /* ./Globalize/gn.scm 163 */
long BgL_auxz00_3154;
BgL_auxz00_3154 = 
(long)(BgL_offsetz00_2044); 
BgL_offsetz00_2045 = 
(BgL_auxz00_3154-OBJECT_TYPE); } 
{ /* ./Globalize/gn.scm 163 */
long BgL_modz00_2046;
{ /* ./Globalize/gn.scm 163 */
int BgL_arg2028z00_2047;
BgL_arg2028z00_2047 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 163 */
long BgL_n2z00_2055;
BgL_n2z00_2055 = 
(long)(BgL_arg2028z00_2047); 
BgL_modz00_2046 = 
(BgL_offsetz00_2045/BgL_n2z00_2055); } } 
{ /* ./Globalize/gn.scm 163 */
long BgL_restz00_2048;
{ /* ./Globalize/gn.scm 163 */
int BgL_arg2024z00_2049;
BgL_arg2024z00_2049 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 163 */
long BgL_n2z00_2058;
BgL_n2z00_2058 = 
(long)(BgL_arg2024z00_2049); 
BgL_restz00_2048 = 
(BgL_offsetz00_2045%BgL_n2z00_2058); } } 
{ /* ./Globalize/gn.scm 163 */

{ /* ./Globalize/gn.scm 163 */
obj_t BgL_bucketz00_2050;
{ /* ./Globalize/gn.scm 163 */
int BgL_kz00_2060;
BgL_kz00_2060 = 
(int)(BgL_modz00_2046); 
BgL_bucketz00_2050 = 
VECTOR_REF(BgL_arg2017z00_2041,BgL_kz00_2060); } 
{ /* ./Globalize/gn.scm 163 */
int BgL_kz00_2062;
BgL_kz00_2062 = 
(int)(BgL_restz00_2048); 
BgL_method3068z00_2038 = 
VECTOR_REF(BgL_bucketz00_2050,BgL_kz00_2062); } } } } } } } } } } 
BgL_arg3823z00_1463 = 
PROCEDURE_ENTRY(BgL_method3068z00_2038)(BgL_method3068z00_2038, 
(obj_t)(BgL_nodez00_2035), 
(obj_t)(BgL_callerz00_2036), BgL_gz00_1457, BEOA); } } } 
{ 
obj_t BgL_gz00_3172;obj_t BgL_clausesz00_3171;
BgL_clausesz00_3171 = BgL_arg3822z00_1462; 
BgL_gz00_3172 = BgL_arg3823z00_1463; 
BgL_gz00_1457 = BgL_gz00_3172; 
BgL_clausesz00_1456 = BgL_clausesz00_3171; 
goto BgL_loopz00_1458;} } } } } } } 
}



/* E-fail3094 */
obj_t BGl_Ezd2fail3094zd2zzglobaliza7e_gnza7(obj_t BgL_envz00_2496, obj_t BgL_nodez00_2497, obj_t BgL_callerz00_2498, obj_t BgL_gz00_2499)
{ AN_OBJECT;
{ /* ./Globalize/gn.scm 150 */
{ 
BgL_failz00_bglt BgL_nodez00_1437;obj_t BgL_callerz00_1438;obj_t BgL_gz00_1439;
BgL_nodez00_1437 = 
(BgL_failz00_bglt)(BgL_nodez00_2497); 
BgL_callerz00_1438 = BgL_callerz00_2498; 
BgL_gz00_1439 = BgL_gz00_2499; 
{ /* ./Globalize/gn.scm 152 */
BgL_nodez00_bglt BgL_arg3793z00_1443;obj_t BgL_arg3794z00_1444;
BgL_arg3793z00_1443 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1437))->BgL_procz00); 
{ /* ./Globalize/gn.scm 152 */
BgL_nodez00_bglt BgL_arg3798z00_1445;obj_t BgL_arg3799z00_1446;
BgL_arg3798z00_1445 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1437))->BgL_msgz00); 
{ /* ./Globalize/gn.scm 152 */
BgL_nodez00_bglt BgL_arg3803z00_1447;
BgL_arg3803z00_1447 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1437))->BgL_objz00); 
{ /* ./Globalize/gn.scm 152 */
BgL_variablez00_bglt BgL_callerz00_1918;
BgL_callerz00_1918 = 
(BgL_variablez00_bglt)(BgL_callerz00_1438); 
{ /* ./Globalize/gn.scm 152 */
obj_t BgL_method3068z00_1920;
{ /* ./Globalize/gn.scm 152 */
BgL_objectz00_bglt BgL_objz00_1921;
BgL_objz00_1921 = 
(BgL_objectz00_bglt)(BgL_arg3803z00_1447); 
{ /* ./Globalize/gn.scm 152 */
long BgL_objzd2classzd2numz00_1922;
BgL_objzd2classzd2numz00_1922 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1921); 
{ /* ./Globalize/gn.scm 152 */
obj_t BgL_arg2017z00_1923;
{ /* ./Globalize/gn.scm 152 */
int BgL_auxz00_3180;
BgL_auxz00_3180 = 
(int)(((long)1)); 
BgL_arg2017z00_1923 = 
PROCEDURE_REF(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BgL_auxz00_3180); } 
{ /* ./Globalize/gn.scm 152 */
int BgL_offsetz00_1926;
BgL_offsetz00_1926 = 
(int)(BgL_objzd2classzd2numz00_1922); 
{ /* ./Globalize/gn.scm 152 */
long BgL_offsetz00_1927;
{ /* ./Globalize/gn.scm 152 */
long BgL_auxz00_3184;
BgL_auxz00_3184 = 
(long)(BgL_offsetz00_1926); 
BgL_offsetz00_1927 = 
(BgL_auxz00_3184-OBJECT_TYPE); } 
{ /* ./Globalize/gn.scm 152 */
long BgL_modz00_1928;
{ /* ./Globalize/gn.scm 152 */
int BgL_arg2028z00_1929;
BgL_arg2028z00_1929 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 152 */
long BgL_n2z00_1937;
BgL_n2z00_1937 = 
(long)(BgL_arg2028z00_1929); 
BgL_modz00_1928 = 
(BgL_offsetz00_1927/BgL_n2z00_1937); } } 
{ /* ./Globalize/gn.scm 152 */
long BgL_restz00_1930;
{ /* ./Globalize/gn.scm 152 */
int BgL_arg2024z00_1931;
BgL_arg2024z00_1931 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 152 */
long BgL_n2z00_1940;
BgL_n2z00_1940 = 
(long)(BgL_arg2024z00_1931); 
BgL_restz00_1930 = 
(BgL_offsetz00_1927%BgL_n2z00_1940); } } 
{ /* ./Globalize/gn.scm 152 */

{ /* ./Globalize/gn.scm 152 */
obj_t BgL_bucketz00_1932;
{ /* ./Globalize/gn.scm 152 */
int BgL_kz00_1942;
BgL_kz00_1942 = 
(int)(BgL_modz00_1928); 
BgL_bucketz00_1932 = 
VECTOR_REF(BgL_arg2017z00_1923,BgL_kz00_1942); } 
{ /* ./Globalize/gn.scm 152 */
int BgL_kz00_1944;
BgL_kz00_1944 = 
(int)(BgL_restz00_1930); 
BgL_method3068z00_1920 = 
VECTOR_REF(BgL_bucketz00_1932,BgL_kz00_1944); } } } } } } } } } } 
BgL_arg3799z00_1446 = 
PROCEDURE_ENTRY(BgL_method3068z00_1920)(BgL_method3068z00_1920, 
(obj_t)(BgL_arg3803z00_1447), 
(obj_t)(BgL_callerz00_1918), BgL_gz00_1439, BEOA); } } } 
{ /* ./Globalize/gn.scm 152 */
BgL_variablez00_bglt BgL_callerz00_1946;
BgL_callerz00_1946 = 
(BgL_variablez00_bglt)(BgL_callerz00_1438); 
{ /* ./Globalize/gn.scm 152 */
obj_t BgL_method3068z00_1948;
{ /* ./Globalize/gn.scm 152 */
BgL_objectz00_bglt BgL_objz00_1949;
BgL_objz00_1949 = 
(BgL_objectz00_bglt)(BgL_arg3798z00_1445); 
{ /* ./Globalize/gn.scm 152 */
long BgL_objzd2classzd2numz00_1950;
BgL_objzd2classzd2numz00_1950 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1949); 
{ /* ./Globalize/gn.scm 152 */
obj_t BgL_arg2017z00_1951;
{ /* ./Globalize/gn.scm 152 */
int BgL_auxz00_3204;
BgL_auxz00_3204 = 
(int)(((long)1)); 
BgL_arg2017z00_1951 = 
PROCEDURE_REF(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BgL_auxz00_3204); } 
{ /* ./Globalize/gn.scm 152 */
int BgL_offsetz00_1954;
BgL_offsetz00_1954 = 
(int)(BgL_objzd2classzd2numz00_1950); 
{ /* ./Globalize/gn.scm 152 */
long BgL_offsetz00_1955;
{ /* ./Globalize/gn.scm 152 */
long BgL_auxz00_3208;
BgL_auxz00_3208 = 
(long)(BgL_offsetz00_1954); 
BgL_offsetz00_1955 = 
(BgL_auxz00_3208-OBJECT_TYPE); } 
{ /* ./Globalize/gn.scm 152 */
long BgL_modz00_1956;
{ /* ./Globalize/gn.scm 152 */
int BgL_arg2028z00_1957;
BgL_arg2028z00_1957 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 152 */
long BgL_n2z00_1965;
BgL_n2z00_1965 = 
(long)(BgL_arg2028z00_1957); 
BgL_modz00_1956 = 
(BgL_offsetz00_1955/BgL_n2z00_1965); } } 
{ /* ./Globalize/gn.scm 152 */
long BgL_restz00_1958;
{ /* ./Globalize/gn.scm 152 */
int BgL_arg2024z00_1959;
BgL_arg2024z00_1959 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 152 */
long BgL_n2z00_1968;
BgL_n2z00_1968 = 
(long)(BgL_arg2024z00_1959); 
BgL_restz00_1958 = 
(BgL_offsetz00_1955%BgL_n2z00_1968); } } 
{ /* ./Globalize/gn.scm 152 */

{ /* ./Globalize/gn.scm 152 */
obj_t BgL_bucketz00_1960;
{ /* ./Globalize/gn.scm 152 */
int BgL_kz00_1970;
BgL_kz00_1970 = 
(int)(BgL_modz00_1956); 
BgL_bucketz00_1960 = 
VECTOR_REF(BgL_arg2017z00_1951,BgL_kz00_1970); } 
{ /* ./Globalize/gn.scm 152 */
int BgL_kz00_1972;
BgL_kz00_1972 = 
(int)(BgL_restz00_1958); 
BgL_method3068z00_1948 = 
VECTOR_REF(BgL_bucketz00_1960,BgL_kz00_1972); } } } } } } } } } } 
BgL_arg3794z00_1444 = 
PROCEDURE_ENTRY(BgL_method3068z00_1948)(BgL_method3068z00_1948, 
(obj_t)(BgL_arg3798z00_1445), 
(obj_t)(BgL_callerz00_1946), BgL_arg3799z00_1446, BEOA); } } } 
{ /* ./Globalize/gn.scm 152 */
BgL_variablez00_bglt BgL_callerz00_1974;
BgL_callerz00_1974 = 
(BgL_variablez00_bglt)(BgL_callerz00_1438); 
{ /* ./Globalize/gn.scm 152 */
obj_t BgL_method3068z00_1976;
{ /* ./Globalize/gn.scm 152 */
BgL_objectz00_bglt BgL_objz00_1977;
BgL_objz00_1977 = 
(BgL_objectz00_bglt)(BgL_arg3793z00_1443); 
{ /* ./Globalize/gn.scm 152 */
long BgL_objzd2classzd2numz00_1978;
BgL_objzd2classzd2numz00_1978 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1977); 
{ /* ./Globalize/gn.scm 152 */
obj_t BgL_arg2017z00_1979;
{ /* ./Globalize/gn.scm 152 */
int BgL_auxz00_3228;
BgL_auxz00_3228 = 
(int)(((long)1)); 
BgL_arg2017z00_1979 = 
PROCEDURE_REF(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BgL_auxz00_3228); } 
{ /* ./Globalize/gn.scm 152 */
int BgL_offsetz00_1982;
BgL_offsetz00_1982 = 
(int)(BgL_objzd2classzd2numz00_1978); 
{ /* ./Globalize/gn.scm 152 */
long BgL_offsetz00_1983;
{ /* ./Globalize/gn.scm 152 */
long BgL_auxz00_3232;
BgL_auxz00_3232 = 
(long)(BgL_offsetz00_1982); 
BgL_offsetz00_1983 = 
(BgL_auxz00_3232-OBJECT_TYPE); } 
{ /* ./Globalize/gn.scm 152 */
long BgL_modz00_1984;
{ /* ./Globalize/gn.scm 152 */
int BgL_arg2028z00_1985;
BgL_arg2028z00_1985 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 152 */
long BgL_n2z00_1993;
BgL_n2z00_1993 = 
(long)(BgL_arg2028z00_1985); 
BgL_modz00_1984 = 
(BgL_offsetz00_1983/BgL_n2z00_1993); } } 
{ /* ./Globalize/gn.scm 152 */
long BgL_restz00_1986;
{ /* ./Globalize/gn.scm 152 */
int BgL_arg2024z00_1987;
BgL_arg2024z00_1987 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 152 */
long BgL_n2z00_1996;
BgL_n2z00_1996 = 
(long)(BgL_arg2024z00_1987); 
BgL_restz00_1986 = 
(BgL_offsetz00_1983%BgL_n2z00_1996); } } 
{ /* ./Globalize/gn.scm 152 */

{ /* ./Globalize/gn.scm 152 */
obj_t BgL_bucketz00_1988;
{ /* ./Globalize/gn.scm 152 */
int BgL_kz00_1998;
BgL_kz00_1998 = 
(int)(BgL_modz00_1984); 
BgL_bucketz00_1988 = 
VECTOR_REF(BgL_arg2017z00_1979,BgL_kz00_1998); } 
{ /* ./Globalize/gn.scm 152 */
int BgL_kz00_2000;
BgL_kz00_2000 = 
(int)(BgL_restz00_1986); 
BgL_method3068z00_1976 = 
VECTOR_REF(BgL_bucketz00_1988,BgL_kz00_2000); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3068z00_1976)(BgL_method3068z00_1976, 
(obj_t)(BgL_arg3793z00_1443), 
(obj_t)(BgL_callerz00_1974), BgL_arg3794z00_1444, BEOA);} } } } } 
}



/* E-conditional3092 */
obj_t BGl_Ezd2conditional3092zd2zzglobaliza7e_gnza7(obj_t BgL_envz00_2500, obj_t BgL_nodez00_2501, obj_t BgL_callerz00_2502, obj_t BgL_gz00_2503)
{ AN_OBJECT;
{ /* ./Globalize/gn.scm 143 */
{ 
BgL_conditionalz00_bglt BgL_nodez00_1424;obj_t BgL_callerz00_1425;obj_t BgL_gz00_1426;
BgL_nodez00_1424 = 
(BgL_conditionalz00_bglt)(BgL_nodez00_2501); 
BgL_callerz00_1425 = BgL_callerz00_2502; 
BgL_gz00_1426 = BgL_gz00_2503; 
{ /* ./Globalize/gn.scm 145 */
BgL_nodez00_bglt BgL_arg3773z00_1430;obj_t BgL_arg3774z00_1431;
BgL_arg3773z00_1430 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1424))->BgL_testz00); 
{ /* ./Globalize/gn.scm 145 */
BgL_nodez00_bglt BgL_arg3778z00_1432;obj_t BgL_arg3779z00_1433;
BgL_arg3778z00_1432 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1424))->BgL_truez00); 
{ /* ./Globalize/gn.scm 145 */
BgL_nodez00_bglt BgL_arg3783z00_1434;
BgL_arg3783z00_1434 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1424))->BgL_falsez00); 
{ /* ./Globalize/gn.scm 145 */
BgL_variablez00_bglt BgL_callerz00_1831;
BgL_callerz00_1831 = 
(BgL_variablez00_bglt)(BgL_callerz00_1425); 
{ /* ./Globalize/gn.scm 145 */
obj_t BgL_method3068z00_1833;
{ /* ./Globalize/gn.scm 145 */
BgL_objectz00_bglt BgL_objz00_1834;
BgL_objz00_1834 = 
(BgL_objectz00_bglt)(BgL_arg3783z00_1434); 
{ /* ./Globalize/gn.scm 145 */
long BgL_objzd2classzd2numz00_1835;
BgL_objzd2classzd2numz00_1835 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1834); 
{ /* ./Globalize/gn.scm 145 */
obj_t BgL_arg2017z00_1836;
{ /* ./Globalize/gn.scm 145 */
int BgL_auxz00_3256;
BgL_auxz00_3256 = 
(int)(((long)1)); 
BgL_arg2017z00_1836 = 
PROCEDURE_REF(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BgL_auxz00_3256); } 
{ /* ./Globalize/gn.scm 145 */
int BgL_offsetz00_1839;
BgL_offsetz00_1839 = 
(int)(BgL_objzd2classzd2numz00_1835); 
{ /* ./Globalize/gn.scm 145 */
long BgL_offsetz00_1840;
{ /* ./Globalize/gn.scm 145 */
long BgL_auxz00_3260;
BgL_auxz00_3260 = 
(long)(BgL_offsetz00_1839); 
BgL_offsetz00_1840 = 
(BgL_auxz00_3260-OBJECT_TYPE); } 
{ /* ./Globalize/gn.scm 145 */
long BgL_modz00_1841;
{ /* ./Globalize/gn.scm 145 */
int BgL_arg2028z00_1842;
BgL_arg2028z00_1842 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 145 */
long BgL_n2z00_1850;
BgL_n2z00_1850 = 
(long)(BgL_arg2028z00_1842); 
BgL_modz00_1841 = 
(BgL_offsetz00_1840/BgL_n2z00_1850); } } 
{ /* ./Globalize/gn.scm 145 */
long BgL_restz00_1843;
{ /* ./Globalize/gn.scm 145 */
int BgL_arg2024z00_1844;
BgL_arg2024z00_1844 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 145 */
long BgL_n2z00_1853;
BgL_n2z00_1853 = 
(long)(BgL_arg2024z00_1844); 
BgL_restz00_1843 = 
(BgL_offsetz00_1840%BgL_n2z00_1853); } } 
{ /* ./Globalize/gn.scm 145 */

{ /* ./Globalize/gn.scm 145 */
obj_t BgL_bucketz00_1845;
{ /* ./Globalize/gn.scm 145 */
int BgL_kz00_1855;
BgL_kz00_1855 = 
(int)(BgL_modz00_1841); 
BgL_bucketz00_1845 = 
VECTOR_REF(BgL_arg2017z00_1836,BgL_kz00_1855); } 
{ /* ./Globalize/gn.scm 145 */
int BgL_kz00_1857;
BgL_kz00_1857 = 
(int)(BgL_restz00_1843); 
BgL_method3068z00_1833 = 
VECTOR_REF(BgL_bucketz00_1845,BgL_kz00_1857); } } } } } } } } } } 
BgL_arg3779z00_1433 = 
PROCEDURE_ENTRY(BgL_method3068z00_1833)(BgL_method3068z00_1833, 
(obj_t)(BgL_arg3783z00_1434), 
(obj_t)(BgL_callerz00_1831), BgL_gz00_1426, BEOA); } } } 
{ /* ./Globalize/gn.scm 145 */
BgL_variablez00_bglt BgL_callerz00_1859;
BgL_callerz00_1859 = 
(BgL_variablez00_bglt)(BgL_callerz00_1425); 
{ /* ./Globalize/gn.scm 145 */
obj_t BgL_method3068z00_1861;
{ /* ./Globalize/gn.scm 145 */
BgL_objectz00_bglt BgL_objz00_1862;
BgL_objz00_1862 = 
(BgL_objectz00_bglt)(BgL_arg3778z00_1432); 
{ /* ./Globalize/gn.scm 145 */
long BgL_objzd2classzd2numz00_1863;
BgL_objzd2classzd2numz00_1863 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1862); 
{ /* ./Globalize/gn.scm 145 */
obj_t BgL_arg2017z00_1864;
{ /* ./Globalize/gn.scm 145 */
int BgL_auxz00_3280;
BgL_auxz00_3280 = 
(int)(((long)1)); 
BgL_arg2017z00_1864 = 
PROCEDURE_REF(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BgL_auxz00_3280); } 
{ /* ./Globalize/gn.scm 145 */
int BgL_offsetz00_1867;
BgL_offsetz00_1867 = 
(int)(BgL_objzd2classzd2numz00_1863); 
{ /* ./Globalize/gn.scm 145 */
long BgL_offsetz00_1868;
{ /* ./Globalize/gn.scm 145 */
long BgL_auxz00_3284;
BgL_auxz00_3284 = 
(long)(BgL_offsetz00_1867); 
BgL_offsetz00_1868 = 
(BgL_auxz00_3284-OBJECT_TYPE); } 
{ /* ./Globalize/gn.scm 145 */
long BgL_modz00_1869;
{ /* ./Globalize/gn.scm 145 */
int BgL_arg2028z00_1870;
BgL_arg2028z00_1870 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 145 */
long BgL_n2z00_1878;
BgL_n2z00_1878 = 
(long)(BgL_arg2028z00_1870); 
BgL_modz00_1869 = 
(BgL_offsetz00_1868/BgL_n2z00_1878); } } 
{ /* ./Globalize/gn.scm 145 */
long BgL_restz00_1871;
{ /* ./Globalize/gn.scm 145 */
int BgL_arg2024z00_1872;
BgL_arg2024z00_1872 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 145 */
long BgL_n2z00_1881;
BgL_n2z00_1881 = 
(long)(BgL_arg2024z00_1872); 
BgL_restz00_1871 = 
(BgL_offsetz00_1868%BgL_n2z00_1881); } } 
{ /* ./Globalize/gn.scm 145 */

{ /* ./Globalize/gn.scm 145 */
obj_t BgL_bucketz00_1873;
{ /* ./Globalize/gn.scm 145 */
int BgL_kz00_1883;
BgL_kz00_1883 = 
(int)(BgL_modz00_1869); 
BgL_bucketz00_1873 = 
VECTOR_REF(BgL_arg2017z00_1864,BgL_kz00_1883); } 
{ /* ./Globalize/gn.scm 145 */
int BgL_kz00_1885;
BgL_kz00_1885 = 
(int)(BgL_restz00_1871); 
BgL_method3068z00_1861 = 
VECTOR_REF(BgL_bucketz00_1873,BgL_kz00_1885); } } } } } } } } } } 
BgL_arg3774z00_1431 = 
PROCEDURE_ENTRY(BgL_method3068z00_1861)(BgL_method3068z00_1861, 
(obj_t)(BgL_arg3778z00_1432), 
(obj_t)(BgL_callerz00_1859), BgL_arg3779z00_1433, BEOA); } } } 
{ /* ./Globalize/gn.scm 145 */
BgL_variablez00_bglt BgL_callerz00_1887;
BgL_callerz00_1887 = 
(BgL_variablez00_bglt)(BgL_callerz00_1425); 
{ /* ./Globalize/gn.scm 145 */
obj_t BgL_method3068z00_1889;
{ /* ./Globalize/gn.scm 145 */
BgL_objectz00_bglt BgL_objz00_1890;
BgL_objz00_1890 = 
(BgL_objectz00_bglt)(BgL_arg3773z00_1430); 
{ /* ./Globalize/gn.scm 145 */
long BgL_objzd2classzd2numz00_1891;
BgL_objzd2classzd2numz00_1891 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1890); 
{ /* ./Globalize/gn.scm 145 */
obj_t BgL_arg2017z00_1892;
{ /* ./Globalize/gn.scm 145 */
int BgL_auxz00_3304;
BgL_auxz00_3304 = 
(int)(((long)1)); 
BgL_arg2017z00_1892 = 
PROCEDURE_REF(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BgL_auxz00_3304); } 
{ /* ./Globalize/gn.scm 145 */
int BgL_offsetz00_1895;
BgL_offsetz00_1895 = 
(int)(BgL_objzd2classzd2numz00_1891); 
{ /* ./Globalize/gn.scm 145 */
long BgL_offsetz00_1896;
{ /* ./Globalize/gn.scm 145 */
long BgL_auxz00_3308;
BgL_auxz00_3308 = 
(long)(BgL_offsetz00_1895); 
BgL_offsetz00_1896 = 
(BgL_auxz00_3308-OBJECT_TYPE); } 
{ /* ./Globalize/gn.scm 145 */
long BgL_modz00_1897;
{ /* ./Globalize/gn.scm 145 */
int BgL_arg2028z00_1898;
BgL_arg2028z00_1898 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 145 */
long BgL_n2z00_1906;
BgL_n2z00_1906 = 
(long)(BgL_arg2028z00_1898); 
BgL_modz00_1897 = 
(BgL_offsetz00_1896/BgL_n2z00_1906); } } 
{ /* ./Globalize/gn.scm 145 */
long BgL_restz00_1899;
{ /* ./Globalize/gn.scm 145 */
int BgL_arg2024z00_1900;
BgL_arg2024z00_1900 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 145 */
long BgL_n2z00_1909;
BgL_n2z00_1909 = 
(long)(BgL_arg2024z00_1900); 
BgL_restz00_1899 = 
(BgL_offsetz00_1896%BgL_n2z00_1909); } } 
{ /* ./Globalize/gn.scm 145 */

{ /* ./Globalize/gn.scm 145 */
obj_t BgL_bucketz00_1901;
{ /* ./Globalize/gn.scm 145 */
int BgL_kz00_1911;
BgL_kz00_1911 = 
(int)(BgL_modz00_1897); 
BgL_bucketz00_1901 = 
VECTOR_REF(BgL_arg2017z00_1892,BgL_kz00_1911); } 
{ /* ./Globalize/gn.scm 145 */
int BgL_kz00_1913;
BgL_kz00_1913 = 
(int)(BgL_restz00_1899); 
BgL_method3068z00_1889 = 
VECTOR_REF(BgL_bucketz00_1901,BgL_kz00_1913); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3068z00_1889)(BgL_method3068z00_1889, 
(obj_t)(BgL_arg3773z00_1430), 
(obj_t)(BgL_callerz00_1887), BgL_arg3774z00_1431, BEOA);} } } } } 
}



/* E-setq3090 */
obj_t BGl_Ezd2setq3090zd2zzglobaliza7e_gnza7(obj_t BgL_envz00_2504, obj_t BgL_nodez00_2505, obj_t BgL_callerz00_2506, obj_t BgL_gz00_2507)
{ AN_OBJECT;
{ /* ./Globalize/gn.scm 136 */
{ 
BgL_setqz00_bglt BgL_nodez00_1415;obj_t BgL_callerz00_1416;obj_t BgL_gz00_1417;
BgL_nodez00_1415 = 
(BgL_setqz00_bglt)(BgL_nodez00_2505); 
BgL_callerz00_1416 = BgL_callerz00_2506; 
BgL_gz00_1417 = BgL_gz00_2507; 
{ /* ./Globalize/gn.scm 137 */
BgL_nodez00_bglt BgL_arg3763z00_1797;
BgL_arg3763z00_1797 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1415))->BgL_valuez00); 
{ /* ./Globalize/gn.scm 137 */
BgL_variablez00_bglt BgL_callerz00_1800;
BgL_callerz00_1800 = 
(BgL_variablez00_bglt)(BgL_callerz00_1416); 
{ /* ./Globalize/gn.scm 137 */
obj_t BgL_method3068z00_1802;
{ /* ./Globalize/gn.scm 137 */
BgL_objectz00_bglt BgL_objz00_1803;
BgL_objz00_1803 = 
(BgL_objectz00_bglt)(BgL_arg3763z00_1797); 
{ /* ./Globalize/gn.scm 137 */
long BgL_objzd2classzd2numz00_1804;
BgL_objzd2classzd2numz00_1804 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1803); 
{ /* ./Globalize/gn.scm 137 */
obj_t BgL_arg2017z00_1805;
{ /* ./Globalize/gn.scm 137 */
int BgL_auxz00_3330;
BgL_auxz00_3330 = 
(int)(((long)1)); 
BgL_arg2017z00_1805 = 
PROCEDURE_REF(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BgL_auxz00_3330); } 
{ /* ./Globalize/gn.scm 137 */
int BgL_offsetz00_1808;
BgL_offsetz00_1808 = 
(int)(BgL_objzd2classzd2numz00_1804); 
{ /* ./Globalize/gn.scm 137 */
long BgL_offsetz00_1809;
{ /* ./Globalize/gn.scm 137 */
long BgL_auxz00_3334;
BgL_auxz00_3334 = 
(long)(BgL_offsetz00_1808); 
BgL_offsetz00_1809 = 
(BgL_auxz00_3334-OBJECT_TYPE); } 
{ /* ./Globalize/gn.scm 137 */
long BgL_modz00_1810;
{ /* ./Globalize/gn.scm 137 */
int BgL_arg2028z00_1811;
BgL_arg2028z00_1811 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 137 */
long BgL_n2z00_1819;
BgL_n2z00_1819 = 
(long)(BgL_arg2028z00_1811); 
BgL_modz00_1810 = 
(BgL_offsetz00_1809/BgL_n2z00_1819); } } 
{ /* ./Globalize/gn.scm 137 */
long BgL_restz00_1812;
{ /* ./Globalize/gn.scm 137 */
int BgL_arg2024z00_1813;
BgL_arg2024z00_1813 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 137 */
long BgL_n2z00_1822;
BgL_n2z00_1822 = 
(long)(BgL_arg2024z00_1813); 
BgL_restz00_1812 = 
(BgL_offsetz00_1809%BgL_n2z00_1822); } } 
{ /* ./Globalize/gn.scm 137 */

{ /* ./Globalize/gn.scm 137 */
obj_t BgL_bucketz00_1814;
{ /* ./Globalize/gn.scm 137 */
int BgL_kz00_1824;
BgL_kz00_1824 = 
(int)(BgL_modz00_1810); 
BgL_bucketz00_1814 = 
VECTOR_REF(BgL_arg2017z00_1805,BgL_kz00_1824); } 
{ /* ./Globalize/gn.scm 137 */
int BgL_kz00_1826;
BgL_kz00_1826 = 
(int)(BgL_restz00_1812); 
BgL_method3068z00_1802 = 
VECTOR_REF(BgL_bucketz00_1814,BgL_kz00_1826); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3068z00_1802)(BgL_method3068z00_1802, 
(obj_t)(BgL_arg3763z00_1797), 
(obj_t)(BgL_callerz00_1800), BgL_gz00_1417, BEOA);} } } } } 
}



/* E-cast3088 */
obj_t BGl_Ezd2cast3088zd2zzglobaliza7e_gnza7(obj_t BgL_envz00_2508, obj_t BgL_nodez00_2509, obj_t BgL_callerz00_2510, obj_t BgL_gz00_2511)
{ AN_OBJECT;
{ /* ./Globalize/gn.scm 129 */
{ 
BgL_castz00_bglt BgL_nodez00_1406;obj_t BgL_callerz00_1407;obj_t BgL_gz00_1408;
BgL_nodez00_1406 = 
(BgL_castz00_bglt)(BgL_nodez00_2509); 
BgL_callerz00_1407 = BgL_callerz00_2510; 
BgL_gz00_1408 = BgL_gz00_2511; 
{ /* ./Globalize/gn.scm 130 */
BgL_nodez00_bglt BgL_arg3753z00_1766;
BgL_arg3753z00_1766 = 
(((BgL_castz00_bglt)CREF(BgL_nodez00_1406))->BgL_argz00); 
{ /* ./Globalize/gn.scm 130 */
BgL_variablez00_bglt BgL_callerz00_1769;
BgL_callerz00_1769 = 
(BgL_variablez00_bglt)(BgL_callerz00_1407); 
{ /* ./Globalize/gn.scm 130 */
obj_t BgL_method3068z00_1771;
{ /* ./Globalize/gn.scm 130 */
BgL_objectz00_bglt BgL_objz00_1772;
BgL_objz00_1772 = 
(BgL_objectz00_bglt)(BgL_arg3753z00_1766); 
{ /* ./Globalize/gn.scm 130 */
long BgL_objzd2classzd2numz00_1773;
BgL_objzd2classzd2numz00_1773 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1772); 
{ /* ./Globalize/gn.scm 130 */
obj_t BgL_arg2017z00_1774;
{ /* ./Globalize/gn.scm 130 */
int BgL_auxz00_3356;
BgL_auxz00_3356 = 
(int)(((long)1)); 
BgL_arg2017z00_1774 = 
PROCEDURE_REF(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BgL_auxz00_3356); } 
{ /* ./Globalize/gn.scm 130 */
int BgL_offsetz00_1777;
BgL_offsetz00_1777 = 
(int)(BgL_objzd2classzd2numz00_1773); 
{ /* ./Globalize/gn.scm 130 */
long BgL_offsetz00_1778;
{ /* ./Globalize/gn.scm 130 */
long BgL_auxz00_3360;
BgL_auxz00_3360 = 
(long)(BgL_offsetz00_1777); 
BgL_offsetz00_1778 = 
(BgL_auxz00_3360-OBJECT_TYPE); } 
{ /* ./Globalize/gn.scm 130 */
long BgL_modz00_1779;
{ /* ./Globalize/gn.scm 130 */
int BgL_arg2028z00_1780;
BgL_arg2028z00_1780 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 130 */
long BgL_n2z00_1788;
BgL_n2z00_1788 = 
(long)(BgL_arg2028z00_1780); 
BgL_modz00_1779 = 
(BgL_offsetz00_1778/BgL_n2z00_1788); } } 
{ /* ./Globalize/gn.scm 130 */
long BgL_restz00_1781;
{ /* ./Globalize/gn.scm 130 */
int BgL_arg2024z00_1782;
BgL_arg2024z00_1782 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 130 */
long BgL_n2z00_1791;
BgL_n2z00_1791 = 
(long)(BgL_arg2024z00_1782); 
BgL_restz00_1781 = 
(BgL_offsetz00_1778%BgL_n2z00_1791); } } 
{ /* ./Globalize/gn.scm 130 */

{ /* ./Globalize/gn.scm 130 */
obj_t BgL_bucketz00_1783;
{ /* ./Globalize/gn.scm 130 */
int BgL_kz00_1793;
BgL_kz00_1793 = 
(int)(BgL_modz00_1779); 
BgL_bucketz00_1783 = 
VECTOR_REF(BgL_arg2017z00_1774,BgL_kz00_1793); } 
{ /* ./Globalize/gn.scm 130 */
int BgL_kz00_1795;
BgL_kz00_1795 = 
(int)(BgL_restz00_1781); 
BgL_method3068z00_1771 = 
VECTOR_REF(BgL_bucketz00_1783,BgL_kz00_1795); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3068z00_1771)(BgL_method3068z00_1771, 
(obj_t)(BgL_arg3753z00_1766), 
(obj_t)(BgL_callerz00_1769), BgL_gz00_1408, BEOA);} } } } } 
}



/* E-extern3086 */
obj_t BGl_Ezd2extern3086zd2zzglobaliza7e_gnza7(obj_t BgL_envz00_2512, obj_t BgL_nodez00_2513, obj_t BgL_callerz00_2514, obj_t BgL_gz00_2515)
{ AN_OBJECT;
{ /* ./Globalize/gn.scm 122 */
{ 
BgL_externz00_bglt BgL_nodez00_1397;obj_t BgL_callerz00_1398;obj_t BgL_gz00_1399;
BgL_nodez00_1397 = 
(BgL_externz00_bglt)(BgL_nodez00_2513); 
BgL_callerz00_1398 = BgL_callerz00_2514; 
BgL_gz00_1399 = BgL_gz00_2515; 
{ /* ./Globalize/gn.scm 123 */
obj_t BgL_arg3743z00_1763;
BgL_arg3743z00_1763 = 
(((BgL_externz00_bglt)CREF(BgL_nodez00_1397))->BgL_exprza2za2); 
return 
BGl_Eza2za2zzglobaliza7e_gnza7(BgL_arg3743z00_1763, BgL_callerz00_1398, BgL_gz00_1399);} } } 
}



/* E-funcall3084 */
obj_t BGl_Ezd2funcall3084zd2zzglobaliza7e_gnza7(obj_t BgL_envz00_2516, obj_t BgL_nodez00_2517, obj_t BgL_callerz00_2518, obj_t BgL_gz00_2519)
{ AN_OBJECT;
{ /* ./Globalize/gn.scm 115 */
{ 
BgL_funcallz00_bglt BgL_nodez00_1386;obj_t BgL_callerz00_1387;obj_t BgL_gz00_1388;
BgL_nodez00_1386 = 
(BgL_funcallz00_bglt)(BgL_nodez00_2517); 
BgL_callerz00_1387 = BgL_callerz00_2518; 
BgL_gz00_1388 = BgL_gz00_2519; 
{ /* ./Globalize/gn.scm 116 */
BgL_nodez00_bglt BgL_arg3728z00_1729;obj_t BgL_arg3729z00_1730;
BgL_arg3728z00_1729 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1386))->BgL_funz00); 
{ /* ./Globalize/gn.scm 116 */
obj_t BgL_arg3733z00_1731;
BgL_arg3733z00_1731 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1386))->BgL_argsz00); 
BgL_arg3729z00_1730 = 
BGl_Eza2za2zzglobaliza7e_gnza7(BgL_arg3733z00_1731, BgL_callerz00_1387, BgL_gz00_1388); } 
{ /* ./Globalize/gn.scm 116 */
BgL_variablez00_bglt BgL_callerz00_1735;
BgL_callerz00_1735 = 
(BgL_variablez00_bglt)(BgL_callerz00_1387); 
{ /* ./Globalize/gn.scm 116 */
obj_t BgL_method3068z00_1737;
{ /* ./Globalize/gn.scm 116 */
BgL_objectz00_bglt BgL_objz00_1738;
BgL_objz00_1738 = 
(BgL_objectz00_bglt)(BgL_arg3728z00_1729); 
{ /* ./Globalize/gn.scm 116 */
long BgL_objzd2classzd2numz00_1739;
BgL_objzd2classzd2numz00_1739 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1738); 
{ /* ./Globalize/gn.scm 116 */
obj_t BgL_arg2017z00_1740;
{ /* ./Globalize/gn.scm 116 */
int BgL_auxz00_3387;
BgL_auxz00_3387 = 
(int)(((long)1)); 
BgL_arg2017z00_1740 = 
PROCEDURE_REF(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BgL_auxz00_3387); } 
{ /* ./Globalize/gn.scm 116 */
int BgL_offsetz00_1743;
BgL_offsetz00_1743 = 
(int)(BgL_objzd2classzd2numz00_1739); 
{ /* ./Globalize/gn.scm 116 */
long BgL_offsetz00_1744;
{ /* ./Globalize/gn.scm 116 */
long BgL_auxz00_3391;
BgL_auxz00_3391 = 
(long)(BgL_offsetz00_1743); 
BgL_offsetz00_1744 = 
(BgL_auxz00_3391-OBJECT_TYPE); } 
{ /* ./Globalize/gn.scm 116 */
long BgL_modz00_1745;
{ /* ./Globalize/gn.scm 116 */
int BgL_arg2028z00_1746;
BgL_arg2028z00_1746 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 116 */
long BgL_n2z00_1754;
BgL_n2z00_1754 = 
(long)(BgL_arg2028z00_1746); 
BgL_modz00_1745 = 
(BgL_offsetz00_1744/BgL_n2z00_1754); } } 
{ /* ./Globalize/gn.scm 116 */
long BgL_restz00_1747;
{ /* ./Globalize/gn.scm 116 */
int BgL_arg2024z00_1748;
BgL_arg2024z00_1748 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 116 */
long BgL_n2z00_1757;
BgL_n2z00_1757 = 
(long)(BgL_arg2024z00_1748); 
BgL_restz00_1747 = 
(BgL_offsetz00_1744%BgL_n2z00_1757); } } 
{ /* ./Globalize/gn.scm 116 */

{ /* ./Globalize/gn.scm 116 */
obj_t BgL_bucketz00_1749;
{ /* ./Globalize/gn.scm 116 */
int BgL_kz00_1759;
BgL_kz00_1759 = 
(int)(BgL_modz00_1745); 
BgL_bucketz00_1749 = 
VECTOR_REF(BgL_arg2017z00_1740,BgL_kz00_1759); } 
{ /* ./Globalize/gn.scm 116 */
int BgL_kz00_1761;
BgL_kz00_1761 = 
(int)(BgL_restz00_1747); 
BgL_method3068z00_1737 = 
VECTOR_REF(BgL_bucketz00_1749,BgL_kz00_1761); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3068z00_1737)(BgL_method3068z00_1737, 
(obj_t)(BgL_arg3728z00_1729), 
(obj_t)(BgL_callerz00_1735), BgL_arg3729z00_1730, BEOA);} } } } } 
}



/* E-app-ly3082 */
obj_t BGl_Ezd2appzd2ly3082z00zzglobaliza7e_gnza7(obj_t BgL_envz00_2520, obj_t BgL_nodez00_2521, obj_t BgL_callerz00_2522, obj_t BgL_gz00_2523)
{ AN_OBJECT;
{ /* ./Globalize/gn.scm 108 */
{ 
BgL_appzd2lyzd2_bglt BgL_nodez00_1375;obj_t BgL_callerz00_1376;obj_t BgL_gz00_1377;
BgL_nodez00_1375 = 
(BgL_appzd2lyzd2_bglt)(BgL_nodez00_2521); 
BgL_callerz00_1376 = BgL_callerz00_2522; 
BgL_gz00_1377 = BgL_gz00_2523; 
{ /* ./Globalize/gn.scm 109 */
BgL_nodez00_bglt BgL_arg3712z00_1667;obj_t BgL_arg3713z00_1668;
BgL_arg3712z00_1667 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1375))->BgL_funz00); 
{ /* ./Globalize/gn.scm 109 */
BgL_nodez00_bglt BgL_arg3717z00_1669;
BgL_arg3717z00_1669 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1375))->BgL_argz00); 
{ /* ./Globalize/gn.scm 109 */
BgL_variablez00_bglt BgL_callerz00_1673;
BgL_callerz00_1673 = 
(BgL_variablez00_bglt)(BgL_callerz00_1376); 
{ /* ./Globalize/gn.scm 109 */
obj_t BgL_method3068z00_1675;
{ /* ./Globalize/gn.scm 109 */
BgL_objectz00_bglt BgL_objz00_1676;
BgL_objz00_1676 = 
(BgL_objectz00_bglt)(BgL_arg3717z00_1669); 
{ /* ./Globalize/gn.scm 109 */
long BgL_objzd2classzd2numz00_1677;
BgL_objzd2classzd2numz00_1677 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1676); 
{ /* ./Globalize/gn.scm 109 */
obj_t BgL_arg2017z00_1678;
{ /* ./Globalize/gn.scm 109 */
int BgL_auxz00_3414;
BgL_auxz00_3414 = 
(int)(((long)1)); 
BgL_arg2017z00_1678 = 
PROCEDURE_REF(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BgL_auxz00_3414); } 
{ /* ./Globalize/gn.scm 109 */
int BgL_offsetz00_1681;
BgL_offsetz00_1681 = 
(int)(BgL_objzd2classzd2numz00_1677); 
{ /* ./Globalize/gn.scm 109 */
long BgL_offsetz00_1682;
{ /* ./Globalize/gn.scm 109 */
long BgL_auxz00_3418;
BgL_auxz00_3418 = 
(long)(BgL_offsetz00_1681); 
BgL_offsetz00_1682 = 
(BgL_auxz00_3418-OBJECT_TYPE); } 
{ /* ./Globalize/gn.scm 109 */
long BgL_modz00_1683;
{ /* ./Globalize/gn.scm 109 */
int BgL_arg2028z00_1684;
BgL_arg2028z00_1684 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 109 */
long BgL_n2z00_1692;
BgL_n2z00_1692 = 
(long)(BgL_arg2028z00_1684); 
BgL_modz00_1683 = 
(BgL_offsetz00_1682/BgL_n2z00_1692); } } 
{ /* ./Globalize/gn.scm 109 */
long BgL_restz00_1685;
{ /* ./Globalize/gn.scm 109 */
int BgL_arg2024z00_1686;
BgL_arg2024z00_1686 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 109 */
long BgL_n2z00_1695;
BgL_n2z00_1695 = 
(long)(BgL_arg2024z00_1686); 
BgL_restz00_1685 = 
(BgL_offsetz00_1682%BgL_n2z00_1695); } } 
{ /* ./Globalize/gn.scm 109 */

{ /* ./Globalize/gn.scm 109 */
obj_t BgL_bucketz00_1687;
{ /* ./Globalize/gn.scm 109 */
int BgL_kz00_1697;
BgL_kz00_1697 = 
(int)(BgL_modz00_1683); 
BgL_bucketz00_1687 = 
VECTOR_REF(BgL_arg2017z00_1678,BgL_kz00_1697); } 
{ /* ./Globalize/gn.scm 109 */
int BgL_kz00_1699;
BgL_kz00_1699 = 
(int)(BgL_restz00_1685); 
BgL_method3068z00_1675 = 
VECTOR_REF(BgL_bucketz00_1687,BgL_kz00_1699); } } } } } } } } } } 
BgL_arg3713z00_1668 = 
PROCEDURE_ENTRY(BgL_method3068z00_1675)(BgL_method3068z00_1675, 
(obj_t)(BgL_arg3717z00_1669), 
(obj_t)(BgL_callerz00_1673), BgL_gz00_1377, BEOA); } } } 
{ /* ./Globalize/gn.scm 109 */
BgL_variablez00_bglt BgL_callerz00_1701;
BgL_callerz00_1701 = 
(BgL_variablez00_bglt)(BgL_callerz00_1376); 
{ /* ./Globalize/gn.scm 109 */
obj_t BgL_method3068z00_1703;
{ /* ./Globalize/gn.scm 109 */
BgL_objectz00_bglt BgL_objz00_1704;
BgL_objz00_1704 = 
(BgL_objectz00_bglt)(BgL_arg3712z00_1667); 
{ /* ./Globalize/gn.scm 109 */
long BgL_objzd2classzd2numz00_1705;
BgL_objzd2classzd2numz00_1705 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1704); 
{ /* ./Globalize/gn.scm 109 */
obj_t BgL_arg2017z00_1706;
{ /* ./Globalize/gn.scm 109 */
int BgL_auxz00_3438;
BgL_auxz00_3438 = 
(int)(((long)1)); 
BgL_arg2017z00_1706 = 
PROCEDURE_REF(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BgL_auxz00_3438); } 
{ /* ./Globalize/gn.scm 109 */
int BgL_offsetz00_1709;
BgL_offsetz00_1709 = 
(int)(BgL_objzd2classzd2numz00_1705); 
{ /* ./Globalize/gn.scm 109 */
long BgL_offsetz00_1710;
{ /* ./Globalize/gn.scm 109 */
long BgL_auxz00_3442;
BgL_auxz00_3442 = 
(long)(BgL_offsetz00_1709); 
BgL_offsetz00_1710 = 
(BgL_auxz00_3442-OBJECT_TYPE); } 
{ /* ./Globalize/gn.scm 109 */
long BgL_modz00_1711;
{ /* ./Globalize/gn.scm 109 */
int BgL_arg2028z00_1712;
BgL_arg2028z00_1712 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 109 */
long BgL_n2z00_1720;
BgL_n2z00_1720 = 
(long)(BgL_arg2028z00_1712); 
BgL_modz00_1711 = 
(BgL_offsetz00_1710/BgL_n2z00_1720); } } 
{ /* ./Globalize/gn.scm 109 */
long BgL_restz00_1713;
{ /* ./Globalize/gn.scm 109 */
int BgL_arg2024z00_1714;
BgL_arg2024z00_1714 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 109 */
long BgL_n2z00_1723;
BgL_n2z00_1723 = 
(long)(BgL_arg2024z00_1714); 
BgL_restz00_1713 = 
(BgL_offsetz00_1710%BgL_n2z00_1723); } } 
{ /* ./Globalize/gn.scm 109 */

{ /* ./Globalize/gn.scm 109 */
obj_t BgL_bucketz00_1715;
{ /* ./Globalize/gn.scm 109 */
int BgL_kz00_1725;
BgL_kz00_1725 = 
(int)(BgL_modz00_1711); 
BgL_bucketz00_1715 = 
VECTOR_REF(BgL_arg2017z00_1706,BgL_kz00_1725); } 
{ /* ./Globalize/gn.scm 109 */
int BgL_kz00_1727;
BgL_kz00_1727 = 
(int)(BgL_restz00_1713); 
BgL_method3068z00_1703 = 
VECTOR_REF(BgL_bucketz00_1715,BgL_kz00_1727); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3068z00_1703)(BgL_method3068z00_1703, 
(obj_t)(BgL_arg3712z00_1667), 
(obj_t)(BgL_callerz00_1701), BgL_arg3713z00_1668, BEOA);} } } } } 
}



/* E-app3080 */
obj_t BGl_Ezd2app3080zd2zzglobaliza7e_gnza7(obj_t BgL_envz00_2524, obj_t BgL_nodez00_2525, obj_t BgL_callerz00_2526, obj_t BgL_gz00_2527)
{ AN_OBJECT;
{ /* ./Globalize/gn.scm 100 */
{ 
BgL_appz00_bglt BgL_nodez00_1364;obj_t BgL_callerz00_1365;obj_t BgL_gz00_1366;
BgL_nodez00_1364 = 
(BgL_appz00_bglt)(BgL_nodez00_2525); 
BgL_callerz00_1365 = BgL_callerz00_2526; 
BgL_gz00_1366 = BgL_gz00_2527; 
{ /* ./Globalize/gn.scm 101 */
BgL_variablez00_bglt BgL_arg3694z00_1660;
{ /* ./Globalize/gn.scm 101 */
BgL_varz00_bglt BgL_arg3697z00_1661;
BgL_arg3697z00_1661 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1364))->BgL_funz00); 
BgL_arg3694z00_1660 = 
(((BgL_varz00_bglt)CREF(BgL_arg3697z00_1661))->BgL_variablez00); } 
BGl_savezd2appz12zc0zzglobaliza7e_gnza7(BgL_callerz00_1365, BgL_arg3694z00_1660); } 
{ /* ./Globalize/gn.scm 101 */
obj_t BgL_arg3701z00_1662;
BgL_arg3701z00_1662 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1364))->BgL_argsz00); 
return 
BGl_Eza2za2zzglobaliza7e_gnza7(BgL_arg3701z00_1662, BgL_callerz00_1365, BgL_gz00_1366);} } } 
}



/* E-sequence3078 */
obj_t BGl_Ezd2sequence3078zd2zzglobaliza7e_gnza7(obj_t BgL_envz00_2528, obj_t BgL_nodez00_2529, obj_t BgL_callerz00_2530, obj_t BgL_gz00_2531)
{ AN_OBJECT;
{ /* ./Globalize/gn.scm 94 */
{ 
BgL_sequencez00_bglt BgL_nodez00_1356;obj_t BgL_callerz00_1357;obj_t BgL_gz00_1358;
BgL_nodez00_1356 = 
(BgL_sequencez00_bglt)(BgL_nodez00_2529); 
BgL_callerz00_1357 = BgL_callerz00_2530; 
BgL_gz00_1358 = BgL_gz00_2531; 
{ /* ./Globalize/gn.scm 95 */
obj_t BgL_arg3683z00_1657;
BgL_arg3683z00_1657 = 
(((BgL_sequencez00_bglt)CREF(BgL_nodez00_1356))->BgL_nodesz00); 
return 
BGl_Eza2za2zzglobaliza7e_gnza7(BgL_arg3683z00_1657, BgL_callerz00_1357, BgL_gz00_1358);} } } 
}



/* E-closure3076 */
obj_t BGl_Ezd2closure3076zd2zzglobaliza7e_gnza7(obj_t BgL_envz00_2532, obj_t BgL_nodez00_2533, obj_t BgL_callerz00_2534, obj_t BgL_gz00_2535)
{ AN_OBJECT;
{ /* ./Globalize/gn.scm 79 */
{ 
BgL_closurez00_bglt BgL_nodez00_1342;BgL_variablez00_bglt BgL_callerz00_1343;obj_t BgL_gz00_1344;
BgL_nodez00_1342 = 
(BgL_closurez00_bglt)(BgL_nodez00_2533); 
BgL_callerz00_1343 = 
(BgL_variablez00_bglt)(BgL_callerz00_2534); 
BgL_gz00_1344 = BgL_gz00_2535; 
{ /* ./Globalize/gn.scm 80 */
BgL_variablez00_bglt BgL_varz00_1347;
{ /* ./Globalize/gn.scm 80 */
BgL_varz00_bglt BgL_obj1625z00_1649;
BgL_obj1625z00_1649 = 
(BgL_varz00_bglt)(BgL_nodez00_1342); 
BgL_varz00_1347 = 
(((BgL_varz00_bglt)CREF(BgL_obj1625z00_1649))->BgL_variablez00); } 
BGl_savezd2funz12zc0zzglobaliza7e_gnza7(BgL_callerz00_1343, BgL_varz00_1347); 
{ /* ./Globalize/gn.scm 82 */
bool_t BgL_test3660z00_1348;
{ /* ./Globalize/gn.scm 82 */
bool_t BgL_test3666z00_1350;
{ /* ./Globalize/gn.scm 82 */
obj_t BgL_obj1300z00_1650;
BgL_obj1300z00_1650 = 
(obj_t)(BgL_varz00_1347); 
BgL_test3666z00_1350 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1300z00_1650, BGl_localz00zzast_varz00); } 
if(BgL_test3666z00_1350)
{ /* ./Globalize/gn.scm 84 */
bool_t BgL_testz00_3475;
{ /* ./Globalize/gn.scm 84 */
BgL_localzf2ginfozf2_bglt BgL_obj2925z00_1651;
BgL_obj2925z00_1651 = 
(BgL_localzf2ginfozf2_bglt)(BgL_varz00_1347); 
{ 
obj_t BgL_auxz00_3477;
{ /* ./Globalize/gn.scm 84 */
BgL_objectz00_bglt BgL_auxz00_3478;
BgL_auxz00_3478 = 
(BgL_objectz00_bglt)(BgL_obj2925z00_1651); 
BgL_auxz00_3477 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3478); } 
BgL_testz00_3475 = 
(((BgL_localzf2ginfozf2_bglt)CREF(BgL_auxz00_3477))->BgL_escapezf3zf3); } } 
if(BgL_testz00_3475)
{ /* ./Globalize/gn.scm 85 */
bool_t BgL_testz00_3482;
{ /* ./Globalize/gn.scm 85 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2740z00_1653;
{ /* ./Globalize/gn.scm 85 */
BgL_valuez00_bglt BgL_auxz00_3483;
BgL_auxz00_3483 = 
(((BgL_variablez00_bglt)CREF(BgL_varz00_1347))->BgL_valuez00); 
BgL_obj2740z00_1653 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_auxz00_3483); } 
{ 
obj_t BgL_auxz00_3486;
{ /* ./Globalize/gn.scm 85 */
BgL_objectz00_bglt BgL_auxz00_3487;
BgL_auxz00_3487 = 
(BgL_objectz00_bglt)(BgL_obj2740z00_1653); 
BgL_auxz00_3486 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3487); } 
BgL_testz00_3482 = 
(((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_3486))->BgL_gzf3zf3); } } 
if(BgL_testz00_3482)
{ /* ./Globalize/gn.scm 85 */
BgL_test3660z00_1348 = ((bool_t)0); }  else 
{ /* ./Globalize/gn.scm 85 */
BgL_test3660z00_1348 = ((bool_t)1); } }  else 
{ /* ./Globalize/gn.scm 84 */
BgL_test3660z00_1348 = ((bool_t)0); } }  else 
{ /* ./Globalize/gn.scm 82 */
BgL_test3660z00_1348 = ((bool_t)0); } } 
if(BgL_test3660z00_1348)
{ /* ./Globalize/gn.scm 82 */
{ /* ./Globalize/gn.scm 87 */
BgL_valuez00_bglt BgL_arg3662z00_1349;
BgL_arg3662z00_1349 = 
(((BgL_variablez00_bglt)CREF(BgL_varz00_1347))->BgL_valuez00); 
{ /* ./Globalize/gn.scm 87 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2742z00_1655;bool_t BgL_val2741z00_1656;
BgL_obj2742z00_1655 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_arg3662z00_1349); 
BgL_val2741z00_1656 = ((bool_t)1); 
{ 
obj_t BgL_auxz00_3494;
{ /* ./Globalize/gn.scm 87 */
BgL_objectz00_bglt BgL_auxz00_3495;
BgL_auxz00_3495 = 
(BgL_objectz00_bglt)(BgL_obj2742z00_1655); 
BgL_auxz00_3494 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3495); } 
((((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_3494))->BgL_gzf3zf3) = ((bool_t)BgL_val2741z00_1656), BUNSPEC); } } } 
{ /* ./Globalize/gn.scm 88 */
obj_t BgL_auxz00_3499;
BgL_auxz00_3499 = 
(obj_t)(BgL_varz00_1347); 
return 
MAKE_PAIR(BgL_auxz00_3499, BgL_gz00_1344);} }  else 
{ /* ./Globalize/gn.scm 82 */
return BgL_gz00_1344;} } } } } 
}



/* E-var3074 */
obj_t BGl_Ezd2var3074zd2zzglobaliza7e_gnza7(obj_t BgL_envz00_2536, obj_t BgL_nodez00_2537, obj_t BgL_callerz00_2538, obj_t BgL_gz00_2539)
{ AN_OBJECT;
{ /* ./Globalize/gn.scm 73 */
return BgL_gz00_2539;} 
}



/* E-kwote3072 */
obj_t BGl_Ezd2kwote3072zd2zzglobaliza7e_gnza7(obj_t BgL_envz00_2540, obj_t BgL_nodez00_2541, obj_t BgL_callerz00_2542, obj_t BgL_gz00_2543)
{ AN_OBJECT;
{ /* ./Globalize/gn.scm 67 */
return BgL_gz00_2543;} 
}



/* E-atom3070 */
obj_t BGl_Ezd2atom3070zd2zzglobaliza7e_gnza7(obj_t BgL_envz00_2544, obj_t BgL_nodez00_2545, obj_t BgL_callerz00_2546, obj_t BgL_gz00_2547)
{ AN_OBJECT;
{ /* ./Globalize/gn.scm 61 */
return BgL_gz00_2547;} 
}



/* E */
obj_t BGl_Ez00zzglobaliza7e_gnza7(BgL_nodez00_bglt BgL_nodez00_5, BgL_variablez00_bglt BgL_callerz00_6, obj_t BgL_gz00_7)
{ AN_OBJECT;
{ /* ./Globalize/gn.scm 56 */
{ /* ./Globalize/gn.scm 56 */
obj_t BgL_method3068z00_2406;
{ /* ./Globalize/gn.scm 56 */
BgL_objectz00_bglt BgL_objz00_2407;
BgL_objz00_2407 = 
(BgL_objectz00_bglt)(BgL_nodez00_5); 
{ /* ./Globalize/gn.scm 56 */
long BgL_objzd2classzd2numz00_2408;
BgL_objzd2classzd2numz00_2408 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2407); 
{ /* ./Globalize/gn.scm 56 */
obj_t BgL_arg2017z00_2409;
{ /* ./Globalize/gn.scm 56 */
int BgL_auxz00_3506;
BgL_auxz00_3506 = 
(int)(((long)1)); 
BgL_arg2017z00_2409 = 
PROCEDURE_REF(BGl_Ezd2envzd2zzglobaliza7e_gnza7, BgL_auxz00_3506); } 
{ /* ./Globalize/gn.scm 56 */
int BgL_offsetz00_2412;
BgL_offsetz00_2412 = 
(int)(BgL_objzd2classzd2numz00_2408); 
{ /* ./Globalize/gn.scm 56 */
long BgL_offsetz00_2413;
{ /* ./Globalize/gn.scm 56 */
long BgL_auxz00_3510;
BgL_auxz00_3510 = 
(long)(BgL_offsetz00_2412); 
BgL_offsetz00_2413 = 
(BgL_auxz00_3510-OBJECT_TYPE); } 
{ /* ./Globalize/gn.scm 56 */
long BgL_modz00_2414;
{ /* ./Globalize/gn.scm 56 */
int BgL_arg2028z00_2415;
BgL_arg2028z00_2415 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 56 */
long BgL_n2z00_2423;
BgL_n2z00_2423 = 
(long)(BgL_arg2028z00_2415); 
BgL_modz00_2414 = 
(BgL_offsetz00_2413/BgL_n2z00_2423); } } 
{ /* ./Globalize/gn.scm 56 */
long BgL_restz00_2416;
{ /* ./Globalize/gn.scm 56 */
int BgL_arg2024z00_2417;
BgL_arg2024z00_2417 = 
(int)(((long)8)); 
{ /* ./Globalize/gn.scm 56 */
long BgL_n2z00_2426;
BgL_n2z00_2426 = 
(long)(BgL_arg2024z00_2417); 
BgL_restz00_2416 = 
(BgL_offsetz00_2413%BgL_n2z00_2426); } } 
{ /* ./Globalize/gn.scm 56 */

{ /* ./Globalize/gn.scm 56 */
obj_t BgL_bucketz00_2418;
{ /* ./Globalize/gn.scm 56 */
int BgL_kz00_2428;
BgL_kz00_2428 = 
(int)(BgL_modz00_2414); 
BgL_bucketz00_2418 = 
VECTOR_REF(BgL_arg2017z00_2409,BgL_kz00_2428); } 
{ /* ./Globalize/gn.scm 56 */
int BgL_kz00_2430;
BgL_kz00_2430 = 
(int)(BgL_restz00_2416); 
BgL_method3068z00_2406 = 
VECTOR_REF(BgL_bucketz00_2418,BgL_kz00_2430); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3068z00_2406)(BgL_method3068z00_2406, 
(obj_t)(BgL_nodez00_5), 
(obj_t)(BgL_callerz00_6), BgL_gz00_7, BEOA);} } 
}



/* _E */
obj_t BGl__Ez00zzglobaliza7e_gnza7(obj_t BgL_envz00_2439, obj_t BgL_nodez00_2440, obj_t BgL_callerz00_2441, obj_t BgL_gz00_2442)
{ AN_OBJECT;
{ /* ./Globalize/gn.scm 56 */
return 
BGl_Ez00zzglobaliza7e_gnza7(
(BgL_nodez00_bglt)(BgL_nodez00_2440), 
(BgL_variablez00_bglt)(BgL_callerz00_2441), BgL_gz00_2442);} 
}



/* E-default3067 */
obj_t BGl_Ezd2default3067zd2zzglobaliza7e_gnza7(BgL_nodez00_bglt BgL_nodez00_8, BgL_variablez00_bglt BgL_callerz00_9, obj_t BgL_gz00_10)
{ AN_OBJECT;
{ /* ./Globalize/gn.scm 23 */
{ /* ./Globalize/gn.scm 23 */
obj_t BgL_procz00_2431;obj_t BgL_objectz00_2433;
BgL_procz00_2431 = 
CNST_TABLE_REF(((long)1)); 
BgL_objectz00_2433 = 
(obj_t)(BgL_nodez00_8); 
FAILURE(BgL_procz00_2431,BGl_string4528z00zzglobaliza7e_gnza7,BgL_objectz00_2433);} } 
}



/* _E-default3067 */
obj_t BGl__Ezd2default3067zd2zzglobaliza7e_gnza7(obj_t BgL_envz00_2548, obj_t BgL_nodez00_2549, obj_t BgL_callerz00_2550, obj_t BgL_gz00_2551)
{ AN_OBJECT;
{ /* ./Globalize/gn.scm 23 */
return 
BGl_Ezd2default3067zd2zzglobaliza7e_gnza7(
(BgL_nodez00_bglt)(BgL_nodez00_2549), 
(BgL_variablez00_bglt)(BgL_callerz00_2550), BgL_gz00_2551);} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzglobaliza7e_gnza7()
{ AN_OBJECT;
{ /* ./Globalize/gn.scm 23 */
BGl_modulezd2initializa7ationz75zztools_tracez00(((long)59211), "globalize_gn"); 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "globalize_gn"); 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "globalize_gn"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "globalize_gn"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "globalize_gn"); 
BGl_modulezd2initializa7ationz75zzglobaliza7e_ginfoza7(((long)0), "globalize_gn"); 
return 
BGl_modulezd2initializa7ationz75zzglobaliza7e_globaliza7ez00(((long)47811), "globalize_gn");} 
}

