/*===========================================================================*/
/*   (Globalize/free.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/free.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_nodezd2freezd2letzd2var3121zd2zzglobaliza7e_freeza7(obj_t, obj_t, obj_t);
static obj_t BGl_methodzd2initzd2zzglobaliza7e_freeza7();
BGL_IMPORT obj_t open_input_string(obj_t);
static obj_t BGl_nodezd2freezd2cast3109z00zzglobaliza7e_freeza7(obj_t, obj_t, obj_t);
BGL_IMPORT long BGl_classzd2numzd2zz__objectz00(obj_t);
extern obj_t BGl_letzd2funzd2zzast_nodez00;
static obj_t BGl_nodezd2freezd2conditional3113z00zzglobaliza7e_freeza7(obj_t, obj_t, obj_t);
extern obj_t BGl_sfunz00zzast_varz00;
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
static obj_t BGl_nodezd2freezd2letzd2fun3119zd2zzglobaliza7e_freeza7(obj_t, obj_t, obj_t);
extern BgL_nodez00_bglt BGl_sexpzd2ze3nodez31zzast_sexpz00(obj_t, obj_t, obj_t, obj_t);
extern BgL_atomz00_bglt BGl_makezd2atomzd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t);
BGL_EXPORTED_DECL obj_t BGl_thezd2closurezd2zzglobaliza7e_freeza7(BgL_variablez00_bglt, obj_t);
static obj_t BGl_nodezd2freezd2makezd2box3127zd2zzglobaliza7e_freeza7(obj_t, obj_t, obj_t);
static obj_t BGl_freezd2variablezf3z21zzglobaliza7e_freeza7(obj_t);
BGL_IMPORT obj_t BGl_addzd2genericz12zc0zz__objectz00(obj_t, obj_t);
extern obj_t BGl_letzd2varzd2zzast_nodez00;
BGL_EXPORTED_DECL obj_t BGl_thezd2globalzd2closurez00zzglobaliza7e_freeza7(BgL_globalz00_bglt, obj_t);
extern obj_t BGl_za2_za2z00zztype_cachez00;
extern obj_t BGl_globalz00zzast_varz00;
extern obj_t BGl_za2procedureza2z00zztype_cachez00;
static obj_t BGl_za2integratorza2z00zzglobaliza7e_freeza7 = BUNSPEC;
extern obj_t BGl_localzf2Ginfozf2zzglobaliza7e_ginfoza7;
extern obj_t BGl_castz00zzast_nodez00;
extern obj_t BGl_boxzd2refzd2zzast_nodez00;
extern obj_t BGl_varz00zzast_nodez00;
static obj_t BGl_cnstzd2initzd2zzglobaliza7e_freeza7();
extern obj_t BGl_sexitzf2Ginfozf2zzglobaliza7e_ginfoza7;
static long BGl_za2roundza2z00zzglobaliza7e_freeza7;
extern obj_t BGl_failz00zzast_nodez00;
extern obj_t BGl_funcallz00zzast_nodez00;
static obj_t BGl_nodezd2freezd2setq3111z00zzglobaliza7e_freeza7(obj_t, obj_t, obj_t);
static obj_t BGl__nodezd2free4280zd2zzglobaliza7e_freeza7(obj_t, obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzglobaliza7e_freeza7();
extern obj_t BGl_makezd2boxzd2zzast_nodez00;
static obj_t BGl_markzd2variablez12zc0zzglobaliza7e_freeza7(BgL_localz00_bglt);
static obj_t BGl_nodezd2freezd2boxzd2setz123132zc0zzglobaliza7e_freeza7(obj_t, obj_t, obj_t);
static obj_t BGl_nodezd2freezd2jumpzd2exzd2it3125z00zzglobaliza7e_freeza7(obj_t, obj_t, obj_t);
static obj_t BGl_thezd2localzd2closurez00zzglobaliza7e_freeza7(obj_t, obj_t);
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
static obj_t BGl_nodezd2freezd2app3101z00zzglobaliza7e_freeza7(obj_t, obj_t, obj_t);
extern obj_t BGl_selectz00zzast_nodez00;
static obj_t BGl_toplevelzd2initzd2zzglobaliza7e_freeza7();
extern obj_t BGl_appzd2lyzd2zzast_nodez00;
static obj_t BGl__thezd2closure4282zd2zzglobaliza7e_freeza7(obj_t, obj_t, obj_t);
extern obj_t BGl_sfunzf2Ginfozf2zzglobaliza7e_ginfoza7;
extern obj_t BGl_boxzd2setz12zc0zzast_nodez00;
static obj_t BGl_nodezd2freezd2zzglobaliza7e_freeza7(BgL_nodez00_bglt, obj_t);
static obj_t BGl_nodezd2freezd2sequence3099z00zzglobaliza7e_freeza7(obj_t, obj_t, obj_t);
extern obj_t BGl_wideningzd2svarzf2Ginfoz20zzglobaliza7e_ginfoza7(bool_t, long, long, bool_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzglobaliza7e_freeza7(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_tracez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_speekz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_cachez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_localz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_sexpz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_glozd2defzd2(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzglobaliza7e_ginfoza7(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzglobaliza7e_nodeza7(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzglobaliza7e_globalzd2closurez75(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long, char *);
static obj_t BGl_nodezd2freeza2z70zzglobaliza7e_freeza7(obj_t, obj_t);
static obj_t BGl_internalzd2getzd2freezd2varsz12zc0zzglobaliza7e_freeza7(BgL_nodez00_bglt, BgL_localz00_bglt);
extern obj_t BGl_setzd2exzd2itz00zzast_nodez00;
static obj_t BGl_nodezd2freezd2boxzd2ref3130zd2zzglobaliza7e_freeza7(obj_t, obj_t, obj_t);
extern obj_t BGl_shapez00zztools_shapez00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_freezd2fromzd2zzglobaliza7e_freeza7(obj_t, BgL_localz00_bglt);
static obj_t BGl__thezd2globalzd2closure4284z00zzglobaliza7e_freeza7(obj_t, obj_t, obj_t);
static obj_t BGl_nodezd2freezd2select3117z00zzglobaliza7e_freeza7(obj_t, obj_t, obj_t);
extern obj_t BGl_jumpzd2exzd2itz00zzast_nodez00;
static obj_t BGl__nodezd2freezd2default3091z00zzglobaliza7e_freeza7(obj_t, obj_t, obj_t);
extern obj_t BGl_externz00zzast_nodez00;
extern obj_t BGl_wideningzd2localzf2Ginfoz20zzglobaliza7e_ginfoza7(bool_t);
extern obj_t BGl_conditionalz00zzast_nodez00;
extern BgL_localz00_bglt BGl_makezd2localzd2svarz00zzast_localz00(obj_t, BgL_typez00_bglt);
extern obj_t BGl_sequencez00zzast_nodez00;
static obj_t BGl_bindzd2variablez12zc0zzglobaliza7e_freeza7(BgL_localz00_bglt, BgL_localz00_bglt);
BGL_EXPORTED_DECL obj_t BGl_getzd2freezd2varsz00zzglobaliza7e_freeza7(BgL_nodez00_bglt, BgL_localz00_bglt);
extern BgL_globalz00_bglt BGl_makezd2globalzd2closurez00zzglobaliza7e_globalzd2closurez75(BgL_globalz00_bglt);
static obj_t BGl_nodezd2freezd2fail3115z00zzglobaliza7e_freeza7(obj_t, obj_t, obj_t);
extern obj_t BGl_appz00zzast_nodez00;
static obj_t BGl__freezd2from4286zd2zzglobaliza7e_freeza7(obj_t, obj_t, obj_t);
extern obj_t BGl_localz00zzast_varz00;
extern BgL_globalz00_bglt BGl_defzd2globalzd2scnstz12z12zzast_glozd2defzd2(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(obj_t);
extern obj_t BGl_closurez00zzast_nodez00;
extern BgL_varz00_bglt BGl_makezd2varzd2zzast_nodez00(obj_t, BgL_typez00_bglt, BgL_variablez00_bglt);
static obj_t BGl_nodezd2freezd2appzd2ly3103zd2zzglobaliza7e_freeza7(obj_t, obj_t, obj_t);
static obj_t BGl_nodezd2freezd2setzd2exzd2it3123z00zzglobaliza7e_freeza7(obj_t, obj_t, obj_t);
static obj_t BGl_nodezd2freezd2extern3107z00zzglobaliza7e_freeza7(obj_t, obj_t, obj_t);
extern obj_t BGl_svarzf2Ginfozf2zzglobaliza7e_ginfoza7;
static obj_t BGl_requirezd2initializa7ationz75zzglobaliza7e_freeza7 = BUNSPEC;
static obj_t BGl_nodezd2freezd2closure3096z00zzglobaliza7e_freeza7(obj_t, obj_t, obj_t);
BGL_IMPORT bool_t BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
static obj_t BGl_nodezd2freezd2funcall3105z00zzglobaliza7e_freeza7(obj_t, obj_t, obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzglobaliza7e_freeza7();
static obj_t BGl__getzd2freezd2vars4278z00zzglobaliza7e_freeza7(obj_t, obj_t, obj_t);
static obj_t BGl_nodezd2freezd2var3094z00zzglobaliza7e_freeza7(obj_t, obj_t, obj_t);
extern obj_t BGl_setqz00zzast_nodez00;
static obj_t __cnst[ 6 ] ;


DEFINE_STATIC_PROCEDURE( BGl_nodezd2freezd2default3091zd2envzd2zzglobaliza7e_freeza7, BgL_bgl__nodeza7d2freeza7d2default3091za700za7za7globaliza7a7e_freeza7a74860za7, BGl__nodezd2freezd2default3091z00zzglobaliza7e_freeza7, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_thezd2closurezd2envz00zzglobaliza7e_freeza7, BgL_bgl__theza7d2closure4282za7d2za7za7globaliza7a7e_freeza7a74861z00, BGl__thezd2closure4282zd2zzglobaliza7e_freeza7, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_thezd2globalzd2closurezd2envzd2zzglobaliza7e_freeza7, BgL_bgl__theza7d2globalza7d2closure4284za700za7za7globaliza7a7e_freeza7a74862za7, BGl__thezd2globalzd2closure4284z00zzglobaliza7e_freeza7, 0L, 2 );
DEFINE_STRING( BGl_string4832z00zzglobaliza7e_freeza7, BgL_bgl_string4832za700za7za7globaliza7a7e_freeza7a74863za7, "sfun sgfun -env::procedure value make-fx-procedure make-va-procedure ", 69 );
DEFINE_STRING( BGl_string4812z00zzglobaliza7e_freeza7, BgL_bgl_string4812za700za7za7globaliza7a7e_freeza7a74864za7, "Unknown variable type", 21 );
DEFINE_STRING( BGl_string4811z00zzglobaliza7e_freeza7, BgL_bgl_string4811za700za7za7globaliza7a7e_freeza7a74865za7, "free-variable?", 14 );
DEFINE_STATIC_GENERIC( BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BgL_bgl__nodeza7d2free4280za7d2za7za7globaliza7a7e_freeza7a74866z00, BGl__nodezd2free4280zd2zzglobaliza7e_freeza7, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_freezd2fromzd2envz00zzglobaliza7e_freeza7, BgL_bgl__freeza7d2from4286za7d2za7za7globaliza7a7e_freeza7a74867z00, BGl__freezd2from4286zd2zzglobaliza7e_freeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4813z00zzglobaliza7e_freeza7, BgL_bgl_nodeza7d2freeza7d2var3094za700za7za7globaliza7a7e_freeza7a74868za7, BGl_nodezd2freezd2var3094z00zzglobaliza7e_freeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4814z00zzglobaliza7e_freeza7, BgL_bgl_nodeza7d2freeza7d2closure3096za700za7za7globaliza7a7e_freeza7a74869za7, BGl_nodezd2freezd2closure3096z00zzglobaliza7e_freeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4815z00zzglobaliza7e_freeza7, BgL_bgl_nodeza7d2freeza7d2sequence3099za700za7za7globaliza7a7e_freeza7a74870za7, BGl_nodezd2freezd2sequence3099z00zzglobaliza7e_freeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4816z00zzglobaliza7e_freeza7, BgL_bgl_nodeza7d2freeza7d2app3101za700za7za7globaliza7a7e_freeza7a74871za7, BGl_nodezd2freezd2app3101z00zzglobaliza7e_freeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4817z00zzglobaliza7e_freeza7, BgL_bgl_nodeza7d2freeza7d2appza7d2ly3103za7d2za7za7globaliza7a7e_freeza7a74872z00, BGl_nodezd2freezd2appzd2ly3103zd2zzglobaliza7e_freeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4818z00zzglobaliza7e_freeza7, BgL_bgl_nodeza7d2freeza7d2funcall3105za700za7za7globaliza7a7e_freeza7a74873za7, BGl_nodezd2freezd2funcall3105z00zzglobaliza7e_freeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4820z00zzglobaliza7e_freeza7, BgL_bgl_nodeza7d2freeza7d2cast3109za700za7za7globaliza7a7e_freeza7a74874za7, BGl_nodezd2freezd2cast3109z00zzglobaliza7e_freeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4819z00zzglobaliza7e_freeza7, BgL_bgl_nodeza7d2freeza7d2extern3107za700za7za7globaliza7a7e_freeza7a74875za7, BGl_nodezd2freezd2extern3107z00zzglobaliza7e_freeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4821z00zzglobaliza7e_freeza7, BgL_bgl_nodeza7d2freeza7d2setq3111za700za7za7globaliza7a7e_freeza7a74876za7, BGl_nodezd2freezd2setq3111z00zzglobaliza7e_freeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4822z00zzglobaliza7e_freeza7, BgL_bgl_nodeza7d2freeza7d2conditional3113za700za7za7globaliza7a7e_freeza7a74877za7, BGl_nodezd2freezd2conditional3113z00zzglobaliza7e_freeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4823z00zzglobaliza7e_freeza7, BgL_bgl_nodeza7d2freeza7d2fail3115za700za7za7globaliza7a7e_freeza7a74878za7, BGl_nodezd2freezd2fail3115z00zzglobaliza7e_freeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4824z00zzglobaliza7e_freeza7, BgL_bgl_nodeza7d2freeza7d2select3117za700za7za7globaliza7a7e_freeza7a74879za7, BGl_nodezd2freezd2select3117z00zzglobaliza7e_freeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4825z00zzglobaliza7e_freeza7, BgL_bgl_nodeza7d2freeza7d2letza7d2fun3119za7d2za7za7globaliza7a7e_freeza7a74880z00, BGl_nodezd2freezd2letzd2fun3119zd2zzglobaliza7e_freeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4826z00zzglobaliza7e_freeza7, BgL_bgl_nodeza7d2freeza7d2letza7d2var3121za7d2za7za7globaliza7a7e_freeza7a74881z00, BGl_nodezd2freezd2letzd2var3121zd2zzglobaliza7e_freeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4827z00zzglobaliza7e_freeza7, BgL_bgl_nodeza7d2freeza7d2setza7d2exza7d2it3123za700za7za7globaliza7a7e_freeza7a74882za7, BGl_nodezd2freezd2setzd2exzd2it3123z00zzglobaliza7e_freeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4828z00zzglobaliza7e_freeza7, BgL_bgl_nodeza7d2freeza7d2jumpza7d2exza7d2it3125za700za7za7globaliza7a7e_freeza7a74883za7, BGl_nodezd2freezd2jumpzd2exzd2it3125z00zzglobaliza7e_freeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4830z00zzglobaliza7e_freeza7, BgL_bgl_nodeza7d2freeza7d2boxza7d2ref3130za7d2za7za7globaliza7a7e_freeza7a74884z00, BGl_nodezd2freezd2boxzd2ref3130zd2zzglobaliza7e_freeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4829z00zzglobaliza7e_freeza7, BgL_bgl_nodeza7d2freeza7d2makeza7d2box3127za7d2za7za7globaliza7a7e_freeza7a74885z00, BGl_nodezd2freezd2makezd2box3127zd2zzglobaliza7e_freeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4831z00zzglobaliza7e_freeza7, BgL_bgl_nodeza7d2freeza7d2boxza7d2setza7123132za7c0za7za7globaliza7a7e_freeza7a74886za7, BGl_nodezd2freezd2boxzd2setz123132zc0zzglobaliza7e_freeza7, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_getzd2freezd2varszd2envzd2zzglobaliza7e_freeza7, BgL_bgl__getza7d2freeza7d2vars4278za700za7za7globaliza7a7e_freeza7a74887za7, BGl__getzd2freezd2vars4278z00zzglobaliza7e_freeza7, 0L, 2 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzglobaliza7e_freeza7(long BgL_checksumz00_2694, char * BgL_fromz00_2695)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzglobaliza7e_freeza7))
{ 
BGl_requirezd2initializa7ationz75zzglobaliza7e_freeza7 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzglobaliza7e_freeza7(); 
BGl_cnstzd2initzd2zzglobaliza7e_freeza7(); 
BGl_importedzd2moduleszd2initz00zzglobaliza7e_freeza7(); 
BGl_methodzd2initzd2zzglobaliza7e_freeza7(); 
BGl_toplevelzd2initzd2zzglobaliza7e_freeza7(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzglobaliza7e_freeza7()
{ AN_OBJECT;
{ /* ./Globalize/free.scm 15 */
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "globalize_free"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "globalize_free"); 
BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(((long)0), "globalize_free"); 
BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(((long)0), "globalize_free"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzglobaliza7e_freeza7()
{ AN_OBJECT;
{ /* ./Globalize/free.scm 15 */
{ /* ./Globalize/free.scm 15 */
obj_t BgL_cportz00_2680;
BgL_cportz00_2680 = 
open_input_string(BGl_string4832z00zzglobaliza7e_freeza7); 
{ 
long BgL_iz00_2681;
BgL_iz00_2681 = ((long)5); 
BgL_loopz00_2682:
{ /* ./Globalize/free.scm 15 */
bool_t BgL_test4834z00_2683;
BgL_test4834z00_2683 = 
(BgL_iz00_2681==((long)-1)); 
if(BgL_test4834z00_2683)
{ /* ./Globalize/free.scm 15 */
return BUNSPEC;}  else 
{ /* ./Globalize/free.scm 15 */
{ /* ./Globalize/free.scm 15 */
obj_t BgL_arg4836z00_2684;
{ /* ./Globalize/free.scm 15 */
obj_t BgL_list4839z00_2685;
BgL_list4839z00_2685 = 
MAKE_PAIR(BgL_cportz00_2680, BNIL); 
BgL_arg4836z00_2684 = 
BGl_readz00zz__readerz00(BgL_list4839z00_2685); } 
{ /* ./Globalize/free.scm 15 */
int BgL_auxz00_2713;
BgL_auxz00_2713 = 
(int)(BgL_iz00_2681); 
CNST_TABLE_SET(BgL_auxz00_2713, BgL_arg4836z00_2684); } } 
{ /* ./Globalize/free.scm 15 */
int BgL_auxz00_2686;
{ /* ./Globalize/free.scm 15 */
long BgL_auxz00_2716;
BgL_auxz00_2716 = 
(BgL_iz00_2681-((long)1)); 
BgL_auxz00_2686 = 
(int)(BgL_auxz00_2716); } 
{ 
long BgL_iz00_2719;
BgL_iz00_2719 = 
(long)(BgL_auxz00_2686); 
BgL_iz00_2681 = BgL_iz00_2719; 
goto BgL_loopz00_2682;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzglobaliza7e_freeza7()
{ AN_OBJECT;
{ /* ./Globalize/free.scm 15 */
BGl_za2roundza2z00zzglobaliza7e_freeza7 = ((long)0); 
BGl_za2integratorza2z00zzglobaliza7e_freeza7 = BUNSPEC; 
return BUNSPEC;} 
}



/* mark-variable! */
obj_t BGl_markzd2variablez12zc0zzglobaliza7e_freeza7(BgL_localz00_bglt BgL_localz00_1)
{ AN_OBJECT;
{ /* ./Globalize/free.scm 43 */
{ /* ./Globalize/free.scm 44 */
BgL_valuez00_bglt BgL_infoz00_852;
{ /* ./Globalize/free.scm 44 */
BgL_variablez00_bglt BgL_obj1100z00_1614;
BgL_obj1100z00_1614 = 
(BgL_variablez00_bglt)(BgL_localz00_1); 
BgL_infoz00_852 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1614))->BgL_valuez00); } 
{ /* ./Globalize/free.scm 46 */
bool_t BgL_test3133z00_853;
{ /* ./Globalize/free.scm 46 */
obj_t BgL_obj2855z00_1615;
BgL_obj2855z00_1615 = 
(obj_t)(BgL_infoz00_852); 
BgL_test3133z00_853 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2855z00_1615, BGl_svarzf2Ginfozf2zzglobaliza7e_ginfoza7); } 
if(BgL_test3133z00_853)
{ /* ./Globalize/free.scm 46 */
{ /* ./Globalize/free.scm 47 */
BgL_svarzf2ginfozf2_bglt BgL_obj2861z00_1616;long BgL_val2860z00_1617;
BgL_obj2861z00_1616 = 
(BgL_svarzf2ginfozf2_bglt)(BgL_infoz00_852); 
BgL_val2860z00_1617 = BGl_za2roundza2z00zzglobaliza7e_freeza7; 
{ 
obj_t BgL_auxz00_2727;
{ /* ./Globalize/free.scm 47 */
BgL_objectz00_bglt BgL_auxz00_2728;
BgL_auxz00_2728 = 
(BgL_objectz00_bglt)(BgL_obj2861z00_1616); 
BgL_auxz00_2727 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2728); } 
return 
((((BgL_svarzf2ginfozf2_bglt)CREF(BgL_auxz00_2727))->BgL_freezd2markzd2) = ((long)BgL_val2860z00_1617), BUNSPEC);} } }  else 
{ /* ./Globalize/free.scm 48 */
bool_t BgL_test3135z00_854;
{ /* ./Globalize/free.scm 48 */
obj_t BgL_obj2739z00_1618;
BgL_obj2739z00_1618 = 
(obj_t)(BgL_infoz00_852); 
BgL_test3135z00_854 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2739z00_1618, BGl_sfunzf2Ginfozf2zzglobaliza7e_ginfoza7); } 
if(BgL_test3135z00_854)
{ /* ./Globalize/free.scm 48 */
{ /* ./Globalize/free.scm 49 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2780z00_1619;obj_t BgL_val2779z00_1620;
BgL_obj2780z00_1619 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_infoz00_852); 
BgL_val2779z00_1620 = 
BINT(BGl_za2roundza2z00zzglobaliza7e_freeza7); 
{ 
obj_t BgL_auxz00_2737;
{ /* ./Globalize/free.scm 49 */
BgL_objectz00_bglt BgL_auxz00_2738;
BgL_auxz00_2738 = 
(BgL_objectz00_bglt)(BgL_obj2780z00_1619); 
BgL_auxz00_2737 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2738); } 
return 
((((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_2737))->BgL_freezd2markzd2) = ((obj_t)BgL_val2779z00_1620), BUNSPEC);} } }  else 
{ /* ./Globalize/free.scm 50 */
bool_t BgL_test3137z00_855;
{ /* ./Globalize/free.scm 50 */
obj_t BgL_obj2888z00_1621;
BgL_obj2888z00_1621 = 
(obj_t)(BgL_infoz00_852); 
BgL_test3137z00_855 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2888z00_1621, BGl_sexitzf2Ginfozf2zzglobaliza7e_ginfoza7); } 
if(BgL_test3137z00_855)
{ /* ./Globalize/free.scm 50 */
{ /* ./Globalize/free.scm 51 */
BgL_sexitzf2ginfozf2_bglt BgL_obj2898z00_1622;long BgL_val2897z00_1623;
BgL_obj2898z00_1622 = 
(BgL_sexitzf2ginfozf2_bglt)(BgL_infoz00_852); 
BgL_val2897z00_1623 = BGl_za2roundza2z00zzglobaliza7e_freeza7; 
{ 
obj_t BgL_auxz00_2746;
{ /* ./Globalize/free.scm 51 */
BgL_objectz00_bglt BgL_auxz00_2747;
BgL_auxz00_2747 = 
(BgL_objectz00_bglt)(BgL_obj2898z00_1622); 
BgL_auxz00_2746 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2747); } 
return 
((((BgL_sexitzf2ginfozf2_bglt)CREF(BgL_auxz00_2746))->BgL_freezd2markzd2) = ((long)BgL_val2897z00_1623), BUNSPEC);} } }  else 
{ /* ./Globalize/free.scm 50 */
return BFALSE;} } } } } } 
}



/* bind-variable! */
obj_t BGl_bindzd2variablez12zc0zzglobaliza7e_freeza7(BgL_localz00_bglt BgL_localz00_2, BgL_localz00_bglt BgL_integratorz00_3)
{ AN_OBJECT;
{ /* ./Globalize/free.scm 56 */
{ /* ./Globalize/free.scm 57 */
BgL_valuez00_bglt BgL_finfoz00_856;
{ /* ./Globalize/free.scm 57 */
BgL_variablez00_bglt BgL_obj1100z00_1624;
BgL_obj1100z00_1624 = 
(BgL_variablez00_bglt)(BgL_integratorz00_3); 
BgL_finfoz00_856 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1624))->BgL_valuez00); } 
{ /* ./Globalize/free.scm 58 */
obj_t BgL_arg3144z00_857;
{ /* ./Globalize/free.scm 58 */
obj_t BgL_arg3147z00_858;
{ /* ./Globalize/free.scm 58 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2799z00_1625;
BgL_obj2799z00_1625 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_finfoz00_856); 
{ 
obj_t BgL_auxz00_2754;
{ /* ./Globalize/free.scm 58 */
BgL_objectz00_bglt BgL_auxz00_2755;
BgL_auxz00_2755 = 
(BgL_objectz00_bglt)(BgL_obj2799z00_1625); 
BgL_auxz00_2754 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2755); } 
BgL_arg3147z00_858 = 
(((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_2754))->BgL_boundz00); } } 
{ /* ./Globalize/free.scm 58 */
obj_t BgL_auxz00_2759;
BgL_auxz00_2759 = 
(obj_t)(BgL_localz00_2); 
BgL_arg3144z00_857 = 
MAKE_PAIR(BgL_auxz00_2759, BgL_arg3147z00_858); } } 
{ /* ./Globalize/free.scm 58 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2801z00_1626;obj_t BgL_val2800z00_1627;
BgL_obj2801z00_1626 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_finfoz00_856); 
BgL_val2800z00_1627 = BgL_arg3144z00_857; 
{ 
obj_t BgL_auxz00_2763;
{ /* ./Globalize/free.scm 58 */
BgL_objectz00_bglt BgL_auxz00_2764;
BgL_auxz00_2764 = 
(BgL_objectz00_bglt)(BgL_obj2801z00_1626); 
BgL_auxz00_2763 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2764); } 
((((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_2763))->BgL_boundz00) = ((obj_t)BgL_val2800z00_1627), BUNSPEC); } } } 
return 
BGl_markzd2variablez12zc0zzglobaliza7e_freeza7(BgL_localz00_2);} } 
}



/* free-variable? */
obj_t BGl_freezd2variablezf3z21zzglobaliza7e_freeza7(obj_t BgL_localz00_4)
{ AN_OBJECT;
{ /* ./Globalize/free.scm 64 */
{ /* ./Globalize/free.scm 65 */
BgL_valuez00_bglt BgL_infoz00_859;
{ /* ./Globalize/free.scm 65 */
BgL_variablez00_bglt BgL_obj1100z00_1628;
BgL_obj1100z00_1628 = 
(BgL_variablez00_bglt)(BgL_localz00_4); 
BgL_infoz00_859 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1628))->BgL_valuez00); } 
{ /* ./Globalize/free.scm 67 */
bool_t BgL_test3152z00_860;
{ /* ./Globalize/free.scm 67 */
obj_t BgL_obj2855z00_1629;
BgL_obj2855z00_1629 = 
(obj_t)(BgL_infoz00_859); 
BgL_test3152z00_860 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2855z00_1629, BGl_svarzf2Ginfozf2zzglobaliza7e_ginfoza7); } 
if(BgL_test3152z00_860)
{ /* ./Globalize/free.scm 67 */
{ /* ./Globalize/free.scm 68 */
bool_t BgL_test3153z00_861;
{ /* ./Globalize/free.scm 68 */
long BgL_arg3156z00_862;
{ /* ./Globalize/free.scm 68 */
BgL_svarzf2ginfozf2_bglt BgL_obj2859z00_1630;
BgL_obj2859z00_1630 = 
(BgL_svarzf2ginfozf2_bglt)(BgL_infoz00_859); 
{ 
obj_t BgL_auxz00_2775;
{ /* ./Globalize/free.scm 68 */
BgL_objectz00_bglt BgL_auxz00_2776;
BgL_auxz00_2776 = 
(BgL_objectz00_bglt)(BgL_obj2859z00_1630); 
BgL_auxz00_2775 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2776); } 
BgL_arg3156z00_862 = 
(((BgL_svarzf2ginfozf2_bglt)CREF(BgL_auxz00_2775))->BgL_freezd2markzd2); } } 
{ /* ./Globalize/free.scm 68 */
long BgL_n2z00_2688;
BgL_n2z00_2688 = BGl_za2roundza2z00zzglobaliza7e_freeza7; 
BgL_test3153z00_861 = 
(BgL_arg3156z00_862==BgL_n2z00_2688); } } 
if(BgL_test3153z00_861)
{ /* ./Globalize/free.scm 68 */
return BFALSE;}  else 
{ /* ./Globalize/free.scm 68 */
return BTRUE;} } }  else 
{ /* ./Globalize/free.scm 69 */
bool_t BgL_test3159z00_863;
{ /* ./Globalize/free.scm 69 */
obj_t BgL_obj2739z00_1631;
BgL_obj2739z00_1631 = 
(obj_t)(BgL_infoz00_859); 
BgL_test3159z00_863 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2739z00_1631, BGl_sfunzf2Ginfozf2zzglobaliza7e_ginfoza7); } 
if(BgL_test3159z00_863)
{ /* ./Globalize/free.scm 69 */
{ /* ./Globalize/free.scm 70 */
bool_t BgL_test3160z00_864;
{ /* ./Globalize/free.scm 70 */
obj_t BgL_arg3162z00_865;
{ /* ./Globalize/free.scm 70 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2778z00_1632;
BgL_obj2778z00_1632 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_infoz00_859); 
{ 
obj_t BgL_auxz00_2786;
{ /* ./Globalize/free.scm 70 */
BgL_objectz00_bglt BgL_auxz00_2787;
BgL_auxz00_2787 = 
(BgL_objectz00_bglt)(BgL_obj2778z00_1632); 
BgL_auxz00_2786 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2787); } 
BgL_arg3162z00_865 = 
(((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_2786))->BgL_freezd2markzd2); } } 
{ /* ./Globalize/free.scm 70 */
obj_t BgL_auxz00_2791;
BgL_auxz00_2791 = 
BINT(BGl_za2roundza2z00zzglobaliza7e_freeza7); 
BgL_test3160z00_864 = 
(BgL_arg3162z00_865==BgL_auxz00_2791); } } 
if(BgL_test3160z00_864)
{ /* ./Globalize/free.scm 70 */
return BFALSE;}  else 
{ /* ./Globalize/free.scm 70 */
return BTRUE;} } }  else 
{ /* ./Globalize/free.scm 71 */
bool_t BgL_test3165z00_866;
{ /* ./Globalize/free.scm 71 */
obj_t BgL_obj2888z00_1633;
BgL_obj2888z00_1633 = 
(obj_t)(BgL_infoz00_859); 
BgL_test3165z00_866 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2888z00_1633, BGl_sexitzf2Ginfozf2zzglobaliza7e_ginfoza7); } 
if(BgL_test3165z00_866)
{ /* ./Globalize/free.scm 71 */
{ /* ./Globalize/free.scm 72 */
bool_t BgL_test3166z00_867;
{ /* ./Globalize/free.scm 72 */
long BgL_arg3168z00_868;
{ /* ./Globalize/free.scm 72 */
BgL_sexitzf2ginfozf2_bglt BgL_obj2896z00_1634;
BgL_obj2896z00_1634 = 
(BgL_sexitzf2ginfozf2_bglt)(BgL_infoz00_859); 
{ 
obj_t BgL_auxz00_2799;
{ /* ./Globalize/free.scm 72 */
BgL_objectz00_bglt BgL_auxz00_2800;
BgL_auxz00_2800 = 
(BgL_objectz00_bglt)(BgL_obj2896z00_1634); 
BgL_auxz00_2799 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2800); } 
BgL_arg3168z00_868 = 
(((BgL_sexitzf2ginfozf2_bglt)CREF(BgL_auxz00_2799))->BgL_freezd2markzd2); } } 
{ /* ./Globalize/free.scm 72 */
long BgL_n2z00_2690;
BgL_n2z00_2690 = BGl_za2roundza2z00zzglobaliza7e_freeza7; 
BgL_test3166z00_867 = 
(BgL_arg3168z00_868==BgL_n2z00_2690); } } 
if(BgL_test3166z00_867)
{ /* ./Globalize/free.scm 72 */
return BFALSE;}  else 
{ /* ./Globalize/free.scm 72 */
return BTRUE;} } }  else 
{ /* ./Globalize/free.scm 71 */
{ /* ./Globalize/free.scm 74 */
obj_t BgL_arg3174z00_871;
{ /* ./Globalize/free.scm 76 */
obj_t BgL_arg3177z00_872;
BgL_arg3177z00_872 = 
BGl_shapez00zztools_shapez00(BgL_localz00_4); 
BgL_arg3174z00_871 = 
MAKE_PAIR(BgL_localz00_4, BgL_arg3177z00_872); } 
FAILURE(BGl_string4811z00zzglobaliza7e_freeza7,BGl_string4812z00zzglobaliza7e_freeza7,BgL_arg3174z00_871);} } } } } } } 
}



/* get-free-vars */
BGL_EXPORTED_DEF obj_t BGl_getzd2freezd2varsz00zzglobaliza7e_freeza7(BgL_nodez00_bglt BgL_nodez00_5, BgL_localz00_bglt BgL_integratorz00_6)
{ AN_OBJECT;
{ /* ./Globalize/free.scm 84 */
{ /* ./Globalize/free.scm 87 */
obj_t BgL_freez00_873;
{ /* ./Globalize/free.scm 87 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2796z00_1639;
{ /* ./Globalize/free.scm 87 */
BgL_valuez00_bglt BgL_auxz00_2809;
{ /* ./Globalize/free.scm 87 */
BgL_variablez00_bglt BgL_obj1100z00_1638;
BgL_obj1100z00_1638 = 
(BgL_variablez00_bglt)(BgL_integratorz00_6); 
BgL_auxz00_2809 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1638))->BgL_valuez00); } 
BgL_obj2796z00_1639 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_auxz00_2809); } 
{ 
obj_t BgL_auxz00_2813;
{ /* ./Globalize/free.scm 87 */
BgL_objectz00_bglt BgL_auxz00_2814;
BgL_auxz00_2814 = 
(BgL_objectz00_bglt)(BgL_obj2796z00_1639); 
BgL_auxz00_2813 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2814); } 
BgL_freez00_873 = 
(((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_2813))->BgL_freez00); } } 
{ /* ./Globalize/free.scm 88 */
bool_t BgL_test3184z00_874;
if(
NULLP(BgL_freez00_873))
{ /* ./Globalize/free.scm 88 */
BgL_test3184z00_874 = ((bool_t)1); }  else 
{ /* ./Globalize/free.scm 88 */
BgL_test3184z00_874 = 
PAIRP(BgL_freez00_873); } 
if(BgL_test3184z00_874)
{ /* ./Globalize/free.scm 88 */
return BgL_freez00_873;}  else 
{ /* ./Globalize/free.scm 90 */
obj_t BgL_freez00_875;
BgL_freez00_875 = 
BGl_internalzd2getzd2freezd2varsz12zc0zzglobaliza7e_freeza7(BgL_nodez00_5, BgL_integratorz00_6); 
{ /* ./Globalize/free.scm 91 */
BgL_valuez00_bglt BgL_arg3186z00_876;
{ /* ./Globalize/free.scm 91 */
BgL_variablez00_bglt BgL_obj1100z00_1642;
BgL_obj1100z00_1642 = 
(BgL_variablez00_bglt)(BgL_integratorz00_6); 
BgL_arg3186z00_876 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1642))->BgL_valuez00); } 
{ /* ./Globalize/free.scm 91 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2798z00_1643;obj_t BgL_val2797z00_1644;
BgL_obj2798z00_1643 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_arg3186z00_876); 
BgL_val2797z00_1644 = BgL_freez00_875; 
{ 
obj_t BgL_auxz00_2826;
{ /* ./Globalize/free.scm 91 */
BgL_objectz00_bglt BgL_auxz00_2827;
BgL_auxz00_2827 = 
(BgL_objectz00_bglt)(BgL_obj2798z00_1643); 
BgL_auxz00_2826 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2827); } 
((((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_2826))->BgL_freez00) = ((obj_t)BgL_val2797z00_1644), BUNSPEC); } } } 
return BgL_freez00_875;} } } } 
}



/* _get-free-vars4278 */
obj_t BGl__getzd2freezd2vars4278z00zzglobaliza7e_freeza7(obj_t BgL_envz00_2586, obj_t BgL_nodez00_2587, obj_t BgL_integratorz00_2588)
{ AN_OBJECT;
{ /* ./Globalize/free.scm 84 */
return 
BGl_getzd2freezd2varsz00zzglobaliza7e_freeza7(
(BgL_nodez00_bglt)(BgL_nodez00_2587), 
(BgL_localz00_bglt)(BgL_integratorz00_2588));} 
}



/* internal-get-free-vars! */
obj_t BGl_internalzd2getzd2freezd2varsz12zc0zzglobaliza7e_freeza7(BgL_nodez00_bglt BgL_nodez00_7, BgL_localz00_bglt BgL_integratorz00_8)
{ AN_OBJECT;
{ /* ./Globalize/free.scm 105 */
{ /* ./Globalize/free.scm 106 */
long BgL_za71za7_1645;
BgL_za71za7_1645 = BGl_za2roundza2z00zzglobaliza7e_freeza7; 
BGl_za2roundza2z00zzglobaliza7e_freeza7 = 
(BgL_za71za7_1645+((long)1)); } 
BGl_za2integratorza2z00zzglobaliza7e_freeza7 = 
(obj_t)(BgL_integratorz00_8); 
BGl_bindzd2variablez12zc0zzglobaliza7e_freeza7(BgL_integratorz00_8, BgL_integratorz00_8); 
{ /* ./Globalize/free.scm 110 */
obj_t BgL_arg3201z00_879;
{ /* ./Globalize/free.scm 110 */
BgL_variablez00_bglt BgL_variablez00_1647;
BgL_variablez00_1647 = 
(BgL_variablez00_bglt)(BgL_integratorz00_8); 
{ /* ./Globalize/free.scm 110 */
bool_t BgL_test3232z00_1649;
{ /* ./Globalize/free.scm 110 */
obj_t BgL_obj1240z00_1650;
BgL_obj1240z00_1650 = 
(obj_t)(BgL_variablez00_1647); 
BgL_test3232z00_1649 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1240z00_1650, BGl_globalz00zzast_varz00); } 
if(BgL_test3232z00_1649)
{ /* ./Globalize/free.scm 110 */
BgL_arg3201z00_879 = 
BGl_thezd2globalzd2closurez00zzglobaliza7e_freeza7(
(BgL_globalz00_bglt)(BgL_variablez00_1647), BFALSE); }  else 
{ /* ./Globalize/free.scm 110 */
BgL_arg3201z00_879 = 
BGl_thezd2localzd2closurez00zzglobaliza7e_freeza7(
(obj_t)(BgL_variablez00_1647), BFALSE); } } } 
BGl_bindzd2variablez12zc0zzglobaliza7e_freeza7(
(BgL_localz00_bglt)(BgL_arg3201z00_879), BgL_integratorz00_8); } 
{ 
obj_t BgL_l3035z00_880;
{ /* ./Globalize/free.scm 112 */
obj_t BgL_arg3205z00_882;
{ /* ./Globalize/free.scm 112 */
BgL_sfunz00_bglt BgL_obj1367z00_1652;
{ /* ./Globalize/free.scm 112 */
BgL_valuez00_bglt BgL_auxz00_2847;
{ /* ./Globalize/free.scm 112 */
BgL_variablez00_bglt BgL_obj1100z00_1651;
BgL_obj1100z00_1651 = 
(BgL_variablez00_bglt)(BgL_integratorz00_8); 
BgL_auxz00_2847 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1651))->BgL_valuez00); } 
BgL_obj1367z00_1652 = 
(BgL_sfunz00_bglt)(BgL_auxz00_2847); } 
BgL_arg3205z00_882 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1367z00_1652))->BgL_argsz00); } 
BgL_l3035z00_880 = BgL_arg3205z00_882; 
BgL_forzd2each3036zd2_881:
{ /* ./Globalize/free.scm 111 */
bool_t BgL_test3211z00_884;
BgL_test3211z00_884 = 
PAIRP(BgL_l3035z00_880); 
if(BgL_test3211z00_884)
{ /* ./Globalize/free.scm 111 */
{ /* ./Globalize/free.scm 111 */
obj_t BgL_lz00_885;
BgL_lz00_885 = 
CAR(BgL_l3035z00_880); 
BGl_bindzd2variablez12zc0zzglobaliza7e_freeza7(
(BgL_localz00_bglt)(BgL_lz00_885), BgL_integratorz00_8); } 
{ /* ./Globalize/free.scm 111 */
obj_t BgL_arg3215z00_886;
BgL_arg3215z00_886 = 
CDR(BgL_l3035z00_880); 
{ 
obj_t BgL_l3035z00_2858;
BgL_l3035z00_2858 = BgL_arg3215z00_886; 
BgL_l3035z00_880 = BgL_l3035z00_2858; 
goto BgL_forzd2each3036zd2_881;} } }  else 
{ /* ./Globalize/free.scm 111 */((bool_t)1); } } } } 
{ /* ./Globalize/free.scm 114 */
obj_t BgL_method3092z00_1658;
{ /* ./Globalize/free.scm 114 */
BgL_objectz00_bglt BgL_objz00_1659;
BgL_objz00_1659 = 
(BgL_objectz00_bglt)(BgL_nodez00_7); 
{ /* ./Globalize/free.scm 114 */
long BgL_objzd2classzd2numz00_1660;
BgL_objzd2classzd2numz00_1660 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1659); 
{ /* ./Globalize/free.scm 114 */
obj_t BgL_arg2017z00_1661;
{ /* ./Globalize/free.scm 114 */
int BgL_auxz00_2861;
BgL_auxz00_2861 = 
(int)(((long)1)); 
BgL_arg2017z00_1661 = 
PROCEDURE_REF(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BgL_auxz00_2861); } 
{ /* ./Globalize/free.scm 114 */
int BgL_offsetz00_1664;
BgL_offsetz00_1664 = 
(int)(BgL_objzd2classzd2numz00_1660); 
{ /* ./Globalize/free.scm 114 */
long BgL_offsetz00_1665;
{ /* ./Globalize/free.scm 114 */
long BgL_auxz00_2865;
BgL_auxz00_2865 = 
(long)(BgL_offsetz00_1664); 
BgL_offsetz00_1665 = 
(BgL_auxz00_2865-OBJECT_TYPE); } 
{ /* ./Globalize/free.scm 114 */
long BgL_modz00_1666;
{ /* ./Globalize/free.scm 114 */
int BgL_arg2028z00_1667;
BgL_arg2028z00_1667 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 114 */
long BgL_n2z00_1675;
BgL_n2z00_1675 = 
(long)(BgL_arg2028z00_1667); 
BgL_modz00_1666 = 
(BgL_offsetz00_1665/BgL_n2z00_1675); } } 
{ /* ./Globalize/free.scm 114 */
long BgL_restz00_1668;
{ /* ./Globalize/free.scm 114 */
int BgL_arg2024z00_1669;
BgL_arg2024z00_1669 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 114 */
long BgL_n2z00_1678;
BgL_n2z00_1678 = 
(long)(BgL_arg2024z00_1669); 
BgL_restz00_1668 = 
(BgL_offsetz00_1665%BgL_n2z00_1678); } } 
{ /* ./Globalize/free.scm 114 */

{ /* ./Globalize/free.scm 114 */
obj_t BgL_bucketz00_1670;
{ /* ./Globalize/free.scm 114 */
int BgL_kz00_1680;
BgL_kz00_1680 = 
(int)(BgL_modz00_1666); 
BgL_bucketz00_1670 = 
VECTOR_REF(BgL_arg2017z00_1661,BgL_kz00_1680); } 
{ /* ./Globalize/free.scm 114 */
int BgL_kz00_1682;
BgL_kz00_1682 = 
(int)(BgL_restz00_1668); 
BgL_method3092z00_1658 = 
VECTOR_REF(BgL_bucketz00_1670,BgL_kz00_1682); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3092z00_1658)(BgL_method3092z00_1658, 
(obj_t)(BgL_nodez00_7), BNIL, BEOA);} } 
}



/* node-free* */
obj_t BGl_nodezd2freeza2z70zzglobaliza7e_freeza7(obj_t BgL_nodeza2za2_51, obj_t BgL_freez00_52)
{ AN_OBJECT;
{ /* ./Globalize/free.scm 312 */
{ 
obj_t BgL_nodeza2za2_887;obj_t BgL_freez00_888;
BgL_nodeza2za2_887 = BgL_nodeza2za2_51; 
BgL_freez00_888 = BgL_freez00_52; 
BgL_loopz00_889:
{ /* ./Globalize/free.scm 315 */
bool_t BgL_test3221z00_890;
BgL_test3221z00_890 = 
NULLP(BgL_nodeza2za2_887); 
if(BgL_test3221z00_890)
{ /* ./Globalize/free.scm 315 */
return BgL_freez00_888;}  else 
{ /* ./Globalize/free.scm 317 */
obj_t BgL_arg3223z00_891;obj_t BgL_arg3224z00_892;
BgL_arg3223z00_891 = 
CDR(BgL_nodeza2za2_887); 
{ /* ./Globalize/free.scm 318 */
obj_t BgL_arg3228z00_893;
BgL_arg3228z00_893 = 
CAR(BgL_nodeza2za2_887); 
{ /* ./Globalize/free.scm 318 */
BgL_nodez00_bglt BgL_nodez00_1686;
BgL_nodez00_1686 = 
(BgL_nodez00_bglt)(BgL_arg3228z00_893); 
{ /* ./Globalize/free.scm 318 */
obj_t BgL_method3092z00_1688;
{ /* ./Globalize/free.scm 318 */
BgL_objectz00_bglt BgL_objz00_1689;
BgL_objz00_1689 = 
(BgL_objectz00_bglt)(BgL_nodez00_1686); 
{ /* ./Globalize/free.scm 318 */
long BgL_objzd2classzd2numz00_1690;
BgL_objzd2classzd2numz00_1690 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1689); 
{ /* ./Globalize/free.scm 318 */
obj_t BgL_arg2017z00_1691;
{ /* ./Globalize/free.scm 318 */
int BgL_auxz00_2888;
BgL_auxz00_2888 = 
(int)(((long)1)); 
BgL_arg2017z00_1691 = 
PROCEDURE_REF(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BgL_auxz00_2888); } 
{ /* ./Globalize/free.scm 318 */
int BgL_offsetz00_1694;
BgL_offsetz00_1694 = 
(int)(BgL_objzd2classzd2numz00_1690); 
{ /* ./Globalize/free.scm 318 */
long BgL_offsetz00_1695;
{ /* ./Globalize/free.scm 318 */
long BgL_auxz00_2892;
BgL_auxz00_2892 = 
(long)(BgL_offsetz00_1694); 
BgL_offsetz00_1695 = 
(BgL_auxz00_2892-OBJECT_TYPE); } 
{ /* ./Globalize/free.scm 318 */
long BgL_modz00_1696;
{ /* ./Globalize/free.scm 318 */
int BgL_arg2028z00_1697;
BgL_arg2028z00_1697 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 318 */
long BgL_n2z00_1705;
BgL_n2z00_1705 = 
(long)(BgL_arg2028z00_1697); 
BgL_modz00_1696 = 
(BgL_offsetz00_1695/BgL_n2z00_1705); } } 
{ /* ./Globalize/free.scm 318 */
long BgL_restz00_1698;
{ /* ./Globalize/free.scm 318 */
int BgL_arg2024z00_1699;
BgL_arg2024z00_1699 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 318 */
long BgL_n2z00_1708;
BgL_n2z00_1708 = 
(long)(BgL_arg2024z00_1699); 
BgL_restz00_1698 = 
(BgL_offsetz00_1695%BgL_n2z00_1708); } } 
{ /* ./Globalize/free.scm 318 */

{ /* ./Globalize/free.scm 318 */
obj_t BgL_bucketz00_1700;
{ /* ./Globalize/free.scm 318 */
int BgL_kz00_1710;
BgL_kz00_1710 = 
(int)(BgL_modz00_1696); 
BgL_bucketz00_1700 = 
VECTOR_REF(BgL_arg2017z00_1691,BgL_kz00_1710); } 
{ /* ./Globalize/free.scm 318 */
int BgL_kz00_1712;
BgL_kz00_1712 = 
(int)(BgL_restz00_1698); 
BgL_method3092z00_1688 = 
VECTOR_REF(BgL_bucketz00_1700,BgL_kz00_1712); } } } } } } } } } } 
BgL_arg3224z00_892 = 
PROCEDURE_ENTRY(BgL_method3092z00_1688)(BgL_method3092z00_1688, 
(obj_t)(BgL_nodez00_1686), BgL_freez00_888, BEOA); } } } 
{ 
obj_t BgL_freez00_2909;obj_t BgL_nodeza2za2_2908;
BgL_nodeza2za2_2908 = BgL_arg3223z00_891; 
BgL_freez00_2909 = BgL_arg3224z00_892; 
BgL_freez00_888 = BgL_freez00_2909; 
BgL_nodeza2za2_887 = BgL_nodeza2za2_2908; 
goto BgL_loopz00_889;} } } } } 
}



/* the-closure */
BGL_EXPORTED_DEF obj_t BGl_thezd2closurezd2zzglobaliza7e_freeza7(BgL_variablez00_bglt BgL_variablez00_53, obj_t BgL_locz00_54)
{ AN_OBJECT;
{ /* ./Globalize/free.scm 323 */
{ /* ./Globalize/free.scm 324 */
bool_t BgL_test3232z00_1713;
{ /* ./Globalize/free.scm 324 */
obj_t BgL_obj1240z00_1714;
BgL_obj1240z00_1714 = 
(obj_t)(BgL_variablez00_53); 
BgL_test3232z00_1713 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1240z00_1714, BGl_globalz00zzast_varz00); } 
if(BgL_test3232z00_1713)
{ /* ./Globalize/free.scm 324 */
return 
BGl_thezd2globalzd2closurez00zzglobaliza7e_freeza7(
(BgL_globalz00_bglt)(BgL_variablez00_53), BgL_locz00_54);}  else 
{ /* ./Globalize/free.scm 324 */
return 
BGl_thezd2localzd2closurez00zzglobaliza7e_freeza7(
(obj_t)(BgL_variablez00_53), BgL_locz00_54);} } } 
}



/* _the-closure4282 */
obj_t BGl__thezd2closure4282zd2zzglobaliza7e_freeza7(obj_t BgL_envz00_2592, obj_t BgL_variablez00_2593, obj_t BgL_locz00_2594)
{ AN_OBJECT;
{ /* ./Globalize/free.scm 323 */
return 
BGl_thezd2closurezd2zzglobaliza7e_freeza7(
(BgL_variablez00_bglt)(BgL_variablez00_2593), BgL_locz00_2594);} 
}



/* the-global-closure */
BGL_EXPORTED_DEF obj_t BGl_thezd2globalzd2closurez00zzglobaliza7e_freeza7(BgL_globalz00_bglt BgL_globalz00_55, obj_t BgL_locz00_56)
{ AN_OBJECT;
{ /* ./Globalize/free.scm 331 */
{ /* ./Globalize/free.scm 332 */
obj_t BgL_closurez00_895;
{ /* ./Globalize/free.scm 332 */
BgL_funz00_bglt BgL_obj1314z00_1716;
{ /* ./Globalize/free.scm 332 */
BgL_valuez00_bglt BgL_auxz00_2919;
{ /* ./Globalize/free.scm 332 */
BgL_variablez00_bglt BgL_obj1100z00_1715;
BgL_obj1100z00_1715 = 
(BgL_variablez00_bglt)(BgL_globalz00_55); 
BgL_auxz00_2919 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1715))->BgL_valuez00); } 
BgL_obj1314z00_1716 = 
(BgL_funz00_bglt)(BgL_auxz00_2919); } 
BgL_closurez00_895 = 
(((BgL_funz00_bglt)CREF(BgL_obj1314z00_1716))->BgL_thezd2closurezd2); } 
{ /* ./Globalize/free.scm 333 */
bool_t BgL_test3236z00_896;
BgL_test3236z00_896 = 
BGl_iszd2azf3z21zz__objectz00(BgL_closurez00_895, BGl_globalz00zzast_varz00); 
if(BgL_test3236z00_896)
{ /* ./Globalize/free.scm 333 */
return BgL_closurez00_895;}  else 
{ /* ./Globalize/free.scm 335 */
BgL_globalz00_bglt BgL_glocloz00_897;
BgL_glocloz00_897 = 
BGl_makezd2globalzd2closurez00zzglobaliza7e_globalzd2closurez75(BgL_globalz00_55); 
{ /* ./Globalize/free.scm 335 */
long BgL_arityz00_898;
{ /* ./Globalize/free.scm 336 */
BgL_funz00_bglt BgL_obj1301z00_1719;
{ /* ./Globalize/free.scm 336 */
BgL_valuez00_bglt BgL_auxz00_2927;
{ /* ./Globalize/free.scm 336 */
BgL_variablez00_bglt BgL_obj1100z00_1718;
BgL_obj1100z00_1718 = 
(BgL_variablez00_bglt)(BgL_globalz00_55); 
BgL_auxz00_2927 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1718))->BgL_valuez00); } 
BgL_obj1301z00_1719 = 
(BgL_funz00_bglt)(BgL_auxz00_2927); } 
BgL_arityz00_898 = 
(((BgL_funz00_bglt)CREF(BgL_obj1301z00_1719))->BgL_arityz00); } 
{ /* ./Globalize/free.scm 336 */
obj_t BgL_makezd2clozd2_899;
if(
(BgL_arityz00_898<((long)0)))
{ /* ./Globalize/free.scm 337 */
BgL_makezd2clozd2_899 = 
CNST_TABLE_REF(((long)0)); }  else 
{ /* ./Globalize/free.scm 337 */
BgL_makezd2clozd2_899 = 
CNST_TABLE_REF(((long)1)); } 
{ /* ./Globalize/free.scm 337 */
BgL_nodez00_bglt BgL_nodez00_900;
{ /* ./Globalize/free.scm 342 */
obj_t BgL_arg3282z00_918;obj_t BgL_arg3284z00_920;
{ /* ./Globalize/free.scm 342 */
obj_t BgL_arg3287z00_921;
{ /* ./Globalize/free.scm 342 */
BgL_varz00_bglt BgL_arg3290z00_922;obj_t BgL_arg3291z00_923;
{ /* ./Globalize/free.scm 342 */
obj_t BgL_arg3294z00_924;obj_t BgL_arg3295z00_925;BgL_globalz00_bglt BgL_arg3296z00_926;
BgL_arg3294z00_924 = BgL_locz00_56; 
BgL_arg3295z00_925 = BGl_za2_za2z00zztype_cachez00; 
BgL_arg3296z00_926 = BgL_glocloz00_897; 
BgL_arg3290z00_922 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3294z00_924, 
(BgL_typez00_bglt)(BgL_arg3295z00_925), 
(BgL_variablez00_bglt)(BgL_arg3296z00_926)); } 
{ /* ./Globalize/free.scm 346 */
BgL_atomz00_bglt BgL_arg3299z00_927;obj_t BgL_arg3300z00_928;
{ /* ./Globalize/free.scm 346 */
obj_t BgL_arg3303z00_929;obj_t BgL_arg3304z00_930;long BgL_arg3305z00_931;
BgL_arg3303z00_929 = BgL_locz00_56; 
BgL_arg3304z00_930 = BGl_za2_za2z00zztype_cachez00; 
BgL_arg3305z00_931 = BgL_arityz00_898; 
BgL_arg3299z00_927 = 
BGl_makezd2atomzd2zzast_nodez00(BgL_arg3303z00_929, 
(BgL_typez00_bglt)(BgL_arg3304z00_930), 
BINT(BgL_arg3305z00_931)); } 
{ /* ./Globalize/free.scm 350 */
BgL_atomz00_bglt BgL_arg3308z00_932;
{ /* ./Globalize/free.scm 350 */
obj_t BgL_arg3312z00_934;obj_t BgL_arg3313z00_935;long BgL_arg3314z00_936;
BgL_arg3312z00_934 = BgL_locz00_56; 
BgL_arg3313z00_935 = BGl_za2_za2z00zztype_cachez00; 
BgL_arg3314z00_936 = ((long)0); 
BgL_arg3308z00_932 = 
BGl_makezd2atomzd2zzast_nodez00(BgL_arg3312z00_934, 
(BgL_typez00_bglt)(BgL_arg3313z00_935), 
BINT(BgL_arg3314z00_936)); } 
{ /* ./Globalize/free.scm 340 */
obj_t BgL_auxz00_2945;
BgL_auxz00_2945 = 
(obj_t)(BgL_arg3308z00_932); 
BgL_arg3300z00_928 = 
MAKE_PAIR(BgL_auxz00_2945, BNIL); } } 
{ /* ./Globalize/free.scm 340 */
obj_t BgL_auxz00_2948;
BgL_auxz00_2948 = 
(obj_t)(BgL_arg3299z00_927); 
BgL_arg3291z00_923 = 
MAKE_PAIR(BgL_auxz00_2948, BgL_arg3300z00_928); } } 
{ /* ./Globalize/free.scm 340 */
obj_t BgL_auxz00_2951;
BgL_auxz00_2951 = 
(obj_t)(BgL_arg3290z00_922); 
BgL_arg3287z00_921 = 
MAKE_PAIR(BgL_auxz00_2951, BgL_arg3291z00_923); } } 
BgL_arg3282z00_918 = 
MAKE_PAIR(BgL_makezd2clozd2_899, BgL_arg3287z00_921); } 
BgL_arg3284z00_920 = 
CNST_TABLE_REF(((long)2)); 
BgL_nodez00_900 = 
BGl_sexpzd2ze3nodez31zzast_sexpz00(BgL_arg3282z00_918, BNIL, BgL_locz00_56, BgL_arg3284z00_920); } 
{ /* ./Globalize/free.scm 340 */
BgL_globalz00_bglt BgL_closurez00_901;
{ /* ./Globalize/free.scm 357 */
obj_t BgL_arg3254z00_906;obj_t BgL_arg3255z00_907;obj_t BgL_arg3257z00_908;
{ /* ./Globalize/free.scm 357 */
obj_t BgL_arg3260z00_909;obj_t BgL_arg3261z00_910;
{ /* ./Globalize/free.scm 357 */
BgL_variablez00_bglt BgL_obj1093z00_1722;
BgL_obj1093z00_1722 = 
(BgL_variablez00_bglt)(BgL_globalz00_55); 
BgL_arg3260z00_909 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1093z00_1722))->BgL_idz00); } 
BgL_arg3261z00_910 = 
CNST_TABLE_REF(((long)3)); 
{ /* ./Globalize/free.scm 356 */
obj_t BgL_list3263z00_911;
{ /* ./Globalize/free.scm 356 */
obj_t BgL_arg3265z00_912;
BgL_arg3265z00_912 = 
MAKE_PAIR(BgL_arg3261z00_910, BNIL); 
BgL_list3263z00_911 = 
MAKE_PAIR(BgL_arg3260z00_909, BgL_arg3265z00_912); } 
BgL_arg3254z00_906 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list3263z00_911); } } 
BgL_arg3255z00_907 = 
(((BgL_globalz00_bglt)CREF(BgL_globalz00_55))->BgL_modulez00); 
{ /* ./Globalize/free.scm 361 */
bool_t BgL_test3270z00_913;
{ /* ./Globalize/free.scm 361 */
BgL_valuez00_bglt BgL_arg3278z00_917;
{ /* ./Globalize/free.scm 361 */
BgL_variablez00_bglt BgL_obj1100z00_1724;
BgL_obj1100z00_1724 = 
(BgL_variablez00_bglt)(BgL_globalz00_55); 
BgL_arg3278z00_917 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1724))->BgL_valuez00); } 
{ /* ./Globalize/free.scm 361 */
obj_t BgL_obj1425z00_1725;
BgL_obj1425z00_1725 = 
(obj_t)(BgL_arg3278z00_917); 
BgL_test3270z00_913 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1425z00_1725, BGl_sfunz00zzast_varz00); } } 
if(BgL_test3270z00_913)
{ /* ./Globalize/free.scm 363 */
bool_t BgL_testz00_2969;
{ /* ./Globalize/free.scm 364 */
obj_t BgL_auxz00_2970;
{ /* ./Globalize/free.scm 362 */
BgL_sfunz00_bglt BgL_obj1374z00_1727;
{ /* ./Globalize/free.scm 362 */
BgL_valuez00_bglt BgL_auxz00_2971;
{ /* ./Globalize/free.scm 362 */
BgL_variablez00_bglt BgL_obj1100z00_1726;
BgL_obj1100z00_1726 = 
(BgL_variablez00_bglt)(BgL_globalz00_55); 
BgL_auxz00_2971 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1726))->BgL_valuez00); } 
BgL_obj1374z00_1727 = 
(BgL_sfunz00_bglt)(BgL_auxz00_2971); } 
BgL_auxz00_2970 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1374z00_1727))->BgL_classz00); } 
BgL_testz00_2969 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_auxz00_2970, 
CNST_TABLE_REF(((long)4))); } 
if(BgL_testz00_2969)
{ /* ./Globalize/free.scm 363 */
BgL_arg3257z00_908 = 
CNST_TABLE_REF(((long)4)); }  else 
{ /* ./Globalize/free.scm 363 */
BgL_arg3257z00_908 = 
CNST_TABLE_REF(((long)5)); } }  else 
{ /* ./Globalize/free.scm 361 */
BgL_arg3257z00_908 = 
CNST_TABLE_REF(((long)5)); } } 
BgL_closurez00_901 = 
BGl_defzd2globalzd2scnstz12z12zzast_glozd2defzd2(BgL_arg3254z00_906, BgL_arg3255z00_907, 
(obj_t)(BgL_nodez00_900), BgL_arg3257z00_908, BgL_locz00_56); } 
{ /* ./Globalize/free.scm 356 */

{ /* ./Globalize/free.scm 369 */
bool_t BgL_arg3238z00_902;
BgL_arg3238z00_902 = 
(((BgL_globalz00_bglt)CREF(BgL_globalz00_55))->BgL_libraryzf3zf3); 
{ /* ./Globalize/free.scm 369 */
BgL_globalz00_bglt BgL_obj1176z00_1729;bool_t BgL_val1175z00_1730;
BgL_obj1176z00_1729 = BgL_closurez00_901; 
BgL_val1175z00_1730 = BgL_arg3238z00_902; 
((((BgL_globalz00_bglt)CREF(BgL_obj1176z00_1729))->BgL_libraryzf3zf3) = ((bool_t)BgL_val1175z00_1730), BUNSPEC); } } 
{ /* ./Globalize/free.scm 370 */
obj_t BgL_arg3242z00_903;
BgL_arg3242z00_903 = 
(((BgL_globalz00_bglt)CREF(BgL_globalz00_55))->BgL_importz00); 
{ /* ./Globalize/free.scm 370 */
BgL_globalz00_bglt BgL_obj1170z00_1732;obj_t BgL_val1169z00_1733;
BgL_obj1170z00_1732 = BgL_closurez00_901; 
BgL_val1169z00_1733 = BgL_arg3242z00_903; 
((((BgL_globalz00_bglt)CREF(BgL_obj1170z00_1732))->BgL_importz00) = ((obj_t)BgL_val1169z00_1733), BUNSPEC); } } 
{ /* ./Globalize/free.scm 371 */
BgL_valuez00_bglt BgL_arg3246z00_904;
{ /* ./Globalize/free.scm 371 */
BgL_variablez00_bglt BgL_obj1100z00_1734;
BgL_obj1100z00_1734 = 
(BgL_variablez00_bglt)(BgL_globalz00_55); 
BgL_arg3246z00_904 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1734))->BgL_valuez00); } 
{ /* ./Globalize/free.scm 371 */
BgL_funz00_bglt BgL_obj1316z00_1735;obj_t BgL_val1315z00_1736;
BgL_obj1316z00_1735 = 
(BgL_funz00_bglt)(BgL_arg3246z00_904); 
BgL_val1315z00_1736 = 
(obj_t)(BgL_closurez00_901); 
((((BgL_funz00_bglt)CREF(BgL_obj1316z00_1735))->BgL_thezd2closurezd2) = ((obj_t)BgL_val1315z00_1736), BUNSPEC); } } 
{ /* ./Globalize/free.scm 375 */
BgL_valuez00_bglt BgL_arg3250z00_905;
{ /* ./Globalize/free.scm 375 */
BgL_variablez00_bglt BgL_obj1100z00_1737;
BgL_obj1100z00_1737 = 
(BgL_variablez00_bglt)(BgL_glocloz00_897); 
BgL_arg3250z00_905 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1737))->BgL_valuez00); } 
{ /* ./Globalize/free.scm 375 */
BgL_funz00_bglt BgL_obj1316z00_1738;obj_t BgL_val1315z00_1739;
BgL_obj1316z00_1738 = 
(BgL_funz00_bglt)(BgL_arg3250z00_905); 
BgL_val1315z00_1739 = 
(obj_t)(BgL_closurez00_901); 
((((BgL_funz00_bglt)CREF(BgL_obj1316z00_1738))->BgL_thezd2closurezd2) = ((obj_t)BgL_val1315z00_1739), BUNSPEC); } } 
return 
(obj_t)(BgL_closurez00_901);} } } } } } } } } 
}



/* _the-global-closure4284 */
obj_t BGl__thezd2globalzd2closure4284z00zzglobaliza7e_freeza7(obj_t BgL_envz00_2595, obj_t BgL_globalz00_2596, obj_t BgL_locz00_2597)
{ AN_OBJECT;
{ /* ./Globalize/free.scm 331 */
return 
BGl_thezd2globalzd2closurez00zzglobaliza7e_freeza7(
(BgL_globalz00_bglt)(BgL_globalz00_2596), BgL_locz00_2597);} 
}



/* the-local-closure */
obj_t BGl_thezd2localzd2closurez00zzglobaliza7e_freeza7(obj_t BgL_localz00_57, obj_t BgL_locz00_58)
{ AN_OBJECT;
{ /* ./Globalize/free.scm 385 */
{ /* ./Globalize/free.scm 386 */
BgL_valuez00_bglt BgL_infoz00_940;
{ /* ./Globalize/free.scm 386 */
BgL_variablez00_bglt BgL_obj1100z00_1740;
BgL_obj1100z00_1740 = 
(BgL_variablez00_bglt)(BgL_localz00_57); 
BgL_infoz00_940 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1740))->BgL_valuez00); } 
{ /* ./Globalize/free.scm 387 */
bool_t BgL_test3328z00_941;
{ /* ./Globalize/free.scm 387 */
obj_t BgL_arg3360z00_951;
{ /* ./Globalize/free.scm 387 */
BgL_funz00_bglt BgL_obj1314z00_1741;
BgL_obj1314z00_1741 = 
(BgL_funz00_bglt)(BgL_infoz00_940); 
BgL_arg3360z00_951 = 
(((BgL_funz00_bglt)CREF(BgL_obj1314z00_1741))->BgL_thezd2closurezd2); } 
BgL_test3328z00_941 = 
BGl_iszd2azf3z21zz__objectz00(BgL_arg3360z00_951, BGl_localz00zzast_varz00); } 
if(BgL_test3328z00_941)
{ /* ./Globalize/free.scm 388 */
BgL_funz00_bglt BgL_obj1314z00_1743;
BgL_obj1314z00_1743 = 
(BgL_funz00_bglt)(BgL_infoz00_940); 
return 
(((BgL_funz00_bglt)CREF(BgL_obj1314z00_1743))->BgL_thezd2closurezd2);}  else 
{ /* ./Globalize/free.scm 389 */
BgL_localz00_bglt BgL_closurez00_942;
{ /* ./Globalize/free.scm 389 */
obj_t BgL_arg3356z00_950;
{ /* ./Globalize/free.scm 389 */
BgL_variablez00_bglt BgL_obj1093z00_1744;
BgL_obj1093z00_1744 = 
(BgL_variablez00_bglt)(BgL_localz00_57); 
BgL_arg3356z00_950 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1093z00_1744))->BgL_idz00); } 
BgL_closurez00_942 = 
BGl_makezd2localzd2svarz00zzast_localz00(BgL_arg3356z00_950, 
(BgL_typez00_bglt)(BGl_za2procedureza2z00zztype_cachez00)); } 
{ /* ./Globalize/free.scm 390 */
bool_t BgL_arg3331z00_943;
{ /* ./Globalize/free.scm 390 */
BgL_localz00_bglt BgL_obj1263z00_1745;
BgL_obj1263z00_1745 = 
(BgL_localz00_bglt)(BgL_localz00_57); 
BgL_arg3331z00_943 = 
(((BgL_localz00_bglt)CREF(BgL_obj1263z00_1745))->BgL_userzf3zf3); } 
{ /* ./Globalize/free.scm 390 */
BgL_localz00_bglt BgL_obj1265z00_1746;bool_t BgL_val1264z00_1747;
BgL_obj1265z00_1746 = BgL_closurez00_942; 
BgL_val1264z00_1747 = BgL_arg3331z00_943; 
((((BgL_localz00_bglt)CREF(BgL_obj1265z00_1746))->BgL_userzf3zf3) = ((bool_t)BgL_val1264z00_1747), BUNSPEC); } } 
{ /* ./Globalize/free.scm 391 */
BgL_svarz00_bglt BgL_obj3082z00_944;
{ 
BgL_svarz00_bglt BgL_auxz00_3015;
{ /* ./Globalize/free.scm 391 */
BgL_valuez00_bglt BgL_auxz00_3016;
{ /* ./Globalize/free.scm 391 */
BgL_variablez00_bglt BgL_obj1100z00_2691;
BgL_obj1100z00_2691 = 
(BgL_variablez00_bglt)(BgL_closurez00_942); 
BgL_auxz00_3016 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_2691))->BgL_valuez00); } 
BgL_auxz00_3015 = 
(BgL_svarz00_bglt)(BgL_auxz00_3016); } 
BgL_obj3082z00_944 = 
((BgL_svarz00_bglt)BgL_auxz00_3015); } 
{ /* ./Globalize/free.scm 391 */
obj_t BgL_arg3335z00_945;
BgL_arg3335z00_945 = 
BGl_wideningzd2svarzf2Ginfoz20zzglobaliza7e_ginfoza7(((bool_t)0), ((long)-10), ((long)-10), ((bool_t)0)); 
{ /* ./Globalize/free.scm 391 */
BgL_objectz00_bglt BgL_auxz00_3022;
BgL_auxz00_3022 = 
(BgL_objectz00_bglt)(BgL_obj3082z00_944); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3022, BgL_arg3335z00_945); } } 
{ /* ./Globalize/free.scm 391 */
long BgL_arg3340z00_946;
BgL_arg3340z00_946 = 
BGl_classzd2numzd2zz__objectz00(BGl_svarzf2Ginfozf2zzglobaliza7e_ginfoza7); 
{ /* ./Globalize/free.scm 391 */
BgL_objectz00_bglt BgL_objz00_1749;
BgL_objz00_1749 = 
(BgL_objectz00_bglt)(BgL_obj3082z00_944); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1749, BgL_arg3340z00_946); } } 
{ /* ./Globalize/free.scm 391 */
obj_t BgL_objz00_1751;
BgL_objz00_1751 = 
(obj_t)(BgL_obj3082z00_944); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_1751); BUNSPEC; } BgL_obj3082z00_944; } 
{ /* ./Globalize/free.scm 392 */
BgL_localz00_bglt BgL_obj3083z00_947;
BgL_obj3083z00_947 = 
((BgL_localz00_bglt)BgL_closurez00_942); 
{ /* ./Globalize/free.scm 392 */
obj_t BgL_arg3346z00_948;
BgL_arg3346z00_948 = 
BGl_wideningzd2localzf2Ginfoz20zzglobaliza7e_ginfoza7(((bool_t)0)); 
{ /* ./Globalize/free.scm 392 */
BgL_objectz00_bglt BgL_auxz00_3032;
BgL_auxz00_3032 = 
(BgL_objectz00_bglt)(BgL_obj3083z00_947); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3032, BgL_arg3346z00_948); } } 
{ /* ./Globalize/free.scm 392 */
long BgL_arg3350z00_949;
BgL_arg3350z00_949 = 
BGl_classzd2numzd2zz__objectz00(BGl_localzf2Ginfozf2zzglobaliza7e_ginfoza7); 
{ /* ./Globalize/free.scm 392 */
BgL_objectz00_bglt BgL_objz00_1752;
BgL_objz00_1752 = 
(BgL_objectz00_bglt)(BgL_obj3083z00_947); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1752, BgL_arg3350z00_949); } } 
{ /* ./Globalize/free.scm 392 */
obj_t BgL_objz00_1754;
BgL_objz00_1754 = 
(obj_t)(BgL_obj3083z00_947); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_1754); BUNSPEC; } BgL_obj3083z00_947; } 
{ /* ./Globalize/free.scm 393 */
BgL_funz00_bglt BgL_obj1316z00_1755;obj_t BgL_val1315z00_1756;
BgL_obj1316z00_1755 = 
(BgL_funz00_bglt)(BgL_infoz00_940); 
BgL_val1315z00_1756 = 
(obj_t)(BgL_closurez00_942); 
((((BgL_funz00_bglt)CREF(BgL_obj1316z00_1755))->BgL_thezd2closurezd2) = ((obj_t)BgL_val1315z00_1756), BUNSPEC); } 
return 
(obj_t)(BgL_closurez00_942);} } } } 
}



/* free-from */
BGL_EXPORTED_DEF obj_t BGl_freezd2fromzd2zzglobaliza7e_freeza7(obj_t BgL_setsz00_59, BgL_localz00_bglt BgL_integratorz00_60)
{ AN_OBJECT;
{ /* ./Globalize/free.scm 399 */
{ /* ./Globalize/free.scm 400 */
long BgL_za71za7_1757;
BgL_za71za7_1757 = BGl_za2roundza2z00zzglobaliza7e_freeza7; 
BGl_za2roundza2z00zzglobaliza7e_freeza7 = 
(BgL_za71za7_1757+((long)1)); } 
{ /* ./Globalize/free.scm 402 */
BgL_valuez00_bglt BgL_finfoz00_952;
{ /* ./Globalize/free.scm 402 */
BgL_variablez00_bglt BgL_obj1100z00_1759;
BgL_obj1100z00_1759 = 
(BgL_variablez00_bglt)(BgL_integratorz00_60); 
BgL_finfoz00_952 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1759))->BgL_valuez00); } 
{ 
obj_t BgL_l3084z00_953;
{ /* ./Globalize/free.scm 409 */
obj_t BgL_arg3366z00_955;
{ /* ./Globalize/free.scm 409 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2799z00_1760;
BgL_obj2799z00_1760 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_finfoz00_952); 
{ 
obj_t BgL_auxz00_3048;
{ /* ./Globalize/free.scm 409 */
BgL_objectz00_bglt BgL_auxz00_3049;
BgL_auxz00_3049 = 
(BgL_objectz00_bglt)(BgL_obj2799z00_1760); 
BgL_auxz00_3048 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3049); } 
BgL_arg3366z00_955 = 
(((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_3048))->BgL_boundz00); } } 
BgL_l3084z00_953 = BgL_arg3366z00_955; 
BgL_forzd2each3085zd2_954:
{ /* ./Globalize/free.scm 409 */
bool_t BgL_test3369z00_956;
BgL_test3369z00_956 = 
PAIRP(BgL_l3084z00_953); 
if(BgL_test3369z00_956)
{ /* ./Globalize/free.scm 409 */
{ /* ./Globalize/free.scm 409 */
obj_t BgL_arg3371z00_957;
BgL_arg3371z00_957 = 
CAR(BgL_l3084z00_953); 
BGl_markzd2variablez12zc0zzglobaliza7e_freeza7(
(BgL_localz00_bglt)(BgL_arg3371z00_957)); } 
{ /* ./Globalize/free.scm 409 */
obj_t BgL_arg3375z00_958;
BgL_arg3375z00_958 = 
CDR(BgL_l3084z00_953); 
{ 
obj_t BgL_l3084z00_3059;
BgL_l3084z00_3059 = BgL_arg3375z00_958; 
BgL_l3084z00_953 = BgL_l3084z00_3059; 
goto BgL_forzd2each3085zd2_954;} } }  else 
{ /* ./Globalize/free.scm 409 */((bool_t)1); } } } } } 
{ /* ./Globalize/free.scm 411 */
bool_t BgL_test3380z00_960;
BgL_test3380z00_960 = 
NULLP(BgL_setsz00_59); 
if(BgL_test3380z00_960)
{ /* ./Globalize/free.scm 411 */
return BNIL;}  else 
{ /* ./Globalize/free.scm 411 */
obj_t BgL_head3088z00_961;
BgL_head3088z00_961 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l3086z00_962;obj_t BgL_tail3089z00_963;
BgL_l3086z00_962 = BgL_setsz00_59; 
BgL_tail3089z00_963 = BgL_head3088z00_961; 
BgL_map3087z00_964:
{ /* ./Globalize/free.scm 411 */
bool_t BgL_test3382z00_965;
BgL_test3382z00_965 = 
NULLP(BgL_l3086z00_962); 
if(BgL_test3382z00_965)
{ /* ./Globalize/free.scm 411 */
return 
CDR(BgL_head3088z00_961);}  else 
{ /* ./Globalize/free.scm 412 */
obj_t BgL_newtail3090z00_966;
{ /* ./Globalize/free.scm 412 */
obj_t BgL_arg3390z00_968;
{ /* ./Globalize/free.scm 412 */
obj_t BgL_setz00_970;
BgL_setz00_970 = 
CAR(BgL_l3086z00_962); 
{ 
obj_t BgL_setz00_971;obj_t BgL_resz00_972;
BgL_setz00_971 = BgL_setz00_970; 
BgL_resz00_972 = BNIL; 
BgL_loopz00_973:
{ /* ./Globalize/free.scm 415 */
bool_t BgL_test3394z00_974;
BgL_test3394z00_974 = 
NULLP(BgL_setz00_971); 
if(BgL_test3394z00_974)
{ /* ./Globalize/free.scm 415 */
BgL_arg3390z00_968 = BgL_resz00_972; }  else 
{ /* ./Globalize/free.scm 417 */
bool_t BgL_test3395z00_975;
{ /* ./Globalize/free.scm 417 */
obj_t BgL_arg3410z00_980;
BgL_arg3410z00_980 = 
CAR(BgL_setz00_971); 
{ /* ./Globalize/free.scm 417 */
obj_t BgL_auxz00_3070;
BgL_auxz00_3070 = 
BGl_freezd2variablezf3z21zzglobaliza7e_freeza7(BgL_arg3410z00_980); 
BgL_test3395z00_975 = 
CBOOL(BgL_auxz00_3070); } } 
if(BgL_test3395z00_975)
{ /* ./Globalize/free.scm 417 */
{ /* ./Globalize/free.scm 418 */
obj_t BgL_arg3397z00_976;obj_t BgL_arg3398z00_977;
BgL_arg3397z00_976 = 
CDR(BgL_setz00_971); 
{ /* ./Globalize/free.scm 418 */
obj_t BgL_arg3402z00_978;
BgL_arg3402z00_978 = 
CAR(BgL_setz00_971); 
BgL_arg3398z00_977 = 
MAKE_PAIR(BgL_arg3402z00_978, BgL_resz00_972); } 
{ 
obj_t BgL_resz00_3078;obj_t BgL_setz00_3077;
BgL_setz00_3077 = BgL_arg3397z00_976; 
BgL_resz00_3078 = BgL_arg3398z00_977; 
BgL_resz00_972 = BgL_resz00_3078; 
BgL_setz00_971 = BgL_setz00_3077; 
goto BgL_loopz00_973;} } }  else 
{ /* ./Globalize/free.scm 417 */
{ /* ./Globalize/free.scm 420 */
obj_t BgL_arg3406z00_979;
BgL_arg3406z00_979 = 
CDR(BgL_setz00_971); 
{ 
obj_t BgL_setz00_3080;
BgL_setz00_3080 = BgL_arg3406z00_979; 
BgL_setz00_971 = BgL_setz00_3080; 
goto BgL_loopz00_973;} } } } } } } 
BgL_newtail3090z00_966 = 
MAKE_PAIR(BgL_arg3390z00_968, BNIL); } 
SET_CDR(BgL_tail3089z00_963, BgL_newtail3090z00_966); 
{ /* ./Globalize/free.scm 411 */
obj_t BgL_arg3386z00_967;
BgL_arg3386z00_967 = 
CDR(BgL_l3086z00_962); 
{ 
obj_t BgL_tail3089z00_3085;obj_t BgL_l3086z00_3084;
BgL_l3086z00_3084 = BgL_arg3386z00_967; 
BgL_tail3089z00_3085 = BgL_newtail3090z00_966; 
BgL_tail3089z00_963 = BgL_tail3089z00_3085; 
BgL_l3086z00_962 = BgL_l3086z00_3084; 
goto BgL_map3087z00_964;} } } } } } } } 
}



/* _free-from4286 */
obj_t BGl__freezd2from4286zd2zzglobaliza7e_freeza7(obj_t BgL_envz00_2598, obj_t BgL_setsz00_2599, obj_t BgL_integratorz00_2600)
{ AN_OBJECT;
{ /* ./Globalize/free.scm 399 */
return 
BGl_freezd2fromzd2zzglobaliza7e_freeza7(BgL_setsz00_2599, 
(BgL_localz00_bglt)(BgL_integratorz00_2600));} 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzglobaliza7e_freeza7()
{ AN_OBJECT;
{ /* ./Globalize/free.scm 15 */
BGl_addzd2genericz12zc0zz__objectz00(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BGl_nodezd2freezd2default3091zd2envzd2zzglobaliza7e_freeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BGl_varz00zzast_nodez00, BGl_proc4813z00zzglobaliza7e_freeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BGl_closurez00zzast_nodez00, BGl_proc4814z00zzglobaliza7e_freeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BGl_sequencez00zzast_nodez00, BGl_proc4815z00zzglobaliza7e_freeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BGl_appz00zzast_nodez00, BGl_proc4816z00zzglobaliza7e_freeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BGl_appzd2lyzd2zzast_nodez00, BGl_proc4817z00zzglobaliza7e_freeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BGl_funcallz00zzast_nodez00, BGl_proc4818z00zzglobaliza7e_freeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BGl_externz00zzast_nodez00, BGl_proc4819z00zzglobaliza7e_freeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BGl_castz00zzast_nodez00, BGl_proc4820z00zzglobaliza7e_freeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BGl_setqz00zzast_nodez00, BGl_proc4821z00zzglobaliza7e_freeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BGl_conditionalz00zzast_nodez00, BGl_proc4822z00zzglobaliza7e_freeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BGl_failz00zzast_nodez00, BGl_proc4823z00zzglobaliza7e_freeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BGl_selectz00zzast_nodez00, BGl_proc4824z00zzglobaliza7e_freeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BGl_letzd2funzd2zzast_nodez00, BGl_proc4825z00zzglobaliza7e_freeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BGl_letzd2varzd2zzast_nodez00, BGl_proc4826z00zzglobaliza7e_freeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BGl_setzd2exzd2itz00zzast_nodez00, BGl_proc4827z00zzglobaliza7e_freeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BGl_jumpzd2exzd2itz00zzast_nodez00, BGl_proc4828z00zzglobaliza7e_freeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BGl_makezd2boxzd2zzast_nodez00, BGl_proc4829z00zzglobaliza7e_freeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BGl_boxzd2refzd2zzast_nodez00, BGl_proc4830z00zzglobaliza7e_freeza7); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BGl_boxzd2setz12zc0zzast_nodez00, BGl_proc4831z00zzglobaliza7e_freeza7);} 
}



/* node-free-box-set!3132 */
obj_t BGl_nodezd2freezd2boxzd2setz123132zc0zzglobaliza7e_freeza7(obj_t BgL_envz00_2620, obj_t BgL_nodez00_2621, obj_t BgL_freez00_2622)
{ AN_OBJECT;
{ /* ./Globalize/free.scm 305 */
{ 
BgL_boxzd2setz12zc0_bglt BgL_nodez00_1603;obj_t BgL_freez00_1604;
BgL_nodez00_1603 = 
(BgL_boxzd2setz12zc0_bglt)(BgL_nodez00_2621); 
BgL_freez00_1604 = BgL_freez00_2622; 
{ /* ./Globalize/free.scm 306 */
BgL_varz00_bglt BgL_arg4193z00_2502;obj_t BgL_arg4194z00_2503;
BgL_arg4193z00_2502 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1603))->BgL_varz00); 
{ /* ./Globalize/free.scm 306 */
BgL_nodez00_bglt BgL_arg4198z00_2504;
BgL_arg4198z00_2504 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1603))->BgL_valuez00); 
{ /* ./Globalize/free.scm 306 */
obj_t BgL_method3092z00_2509;
{ /* ./Globalize/free.scm 306 */
BgL_objectz00_bglt BgL_objz00_2510;
BgL_objz00_2510 = 
(BgL_objectz00_bglt)(BgL_arg4198z00_2504); 
{ /* ./Globalize/free.scm 306 */
long BgL_objzd2classzd2numz00_2511;
BgL_objzd2classzd2numz00_2511 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2510); 
{ /* ./Globalize/free.scm 306 */
obj_t BgL_arg2017z00_2512;
{ /* ./Globalize/free.scm 306 */
int BgL_auxz00_3112;
BgL_auxz00_3112 = 
(int)(((long)1)); 
BgL_arg2017z00_2512 = 
PROCEDURE_REF(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BgL_auxz00_3112); } 
{ /* ./Globalize/free.scm 306 */
int BgL_offsetz00_2515;
BgL_offsetz00_2515 = 
(int)(BgL_objzd2classzd2numz00_2511); 
{ /* ./Globalize/free.scm 306 */
long BgL_offsetz00_2516;
{ /* ./Globalize/free.scm 306 */
long BgL_auxz00_3116;
BgL_auxz00_3116 = 
(long)(BgL_offsetz00_2515); 
BgL_offsetz00_2516 = 
(BgL_auxz00_3116-OBJECT_TYPE); } 
{ /* ./Globalize/free.scm 306 */
long BgL_modz00_2517;
{ /* ./Globalize/free.scm 306 */
int BgL_arg2028z00_2518;
BgL_arg2028z00_2518 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 306 */
long BgL_n2z00_2526;
BgL_n2z00_2526 = 
(long)(BgL_arg2028z00_2518); 
BgL_modz00_2517 = 
(BgL_offsetz00_2516/BgL_n2z00_2526); } } 
{ /* ./Globalize/free.scm 306 */
long BgL_restz00_2519;
{ /* ./Globalize/free.scm 306 */
int BgL_arg2024z00_2520;
BgL_arg2024z00_2520 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 306 */
long BgL_n2z00_2529;
BgL_n2z00_2529 = 
(long)(BgL_arg2024z00_2520); 
BgL_restz00_2519 = 
(BgL_offsetz00_2516%BgL_n2z00_2529); } } 
{ /* ./Globalize/free.scm 306 */

{ /* ./Globalize/free.scm 306 */
obj_t BgL_bucketz00_2521;
{ /* ./Globalize/free.scm 306 */
int BgL_kz00_2531;
BgL_kz00_2531 = 
(int)(BgL_modz00_2517); 
BgL_bucketz00_2521 = 
VECTOR_REF(BgL_arg2017z00_2512,BgL_kz00_2531); } 
{ /* ./Globalize/free.scm 306 */
int BgL_kz00_2533;
BgL_kz00_2533 = 
(int)(BgL_restz00_2519); 
BgL_method3092z00_2509 = 
VECTOR_REF(BgL_bucketz00_2521,BgL_kz00_2533); } } } } } } } } } } 
BgL_arg4194z00_2503 = 
PROCEDURE_ENTRY(BgL_method3092z00_2509)(BgL_method3092z00_2509, 
(obj_t)(BgL_arg4198z00_2504), BgL_freez00_1604, BEOA); } } 
{ /* ./Globalize/free.scm 306 */
BgL_nodez00_bglt BgL_nodez00_2534;
BgL_nodez00_2534 = 
(BgL_nodez00_bglt)(BgL_arg4193z00_2502); 
{ /* ./Globalize/free.scm 306 */
obj_t BgL_method3092z00_2536;
{ /* ./Globalize/free.scm 306 */
BgL_objectz00_bglt BgL_objz00_2537;
BgL_objz00_2537 = 
(BgL_objectz00_bglt)(BgL_nodez00_2534); 
{ /* ./Globalize/free.scm 306 */
long BgL_objzd2classzd2numz00_2538;
BgL_objzd2classzd2numz00_2538 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2537); 
{ /* ./Globalize/free.scm 306 */
obj_t BgL_arg2017z00_2539;
{ /* ./Globalize/free.scm 306 */
int BgL_auxz00_3135;
BgL_auxz00_3135 = 
(int)(((long)1)); 
BgL_arg2017z00_2539 = 
PROCEDURE_REF(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BgL_auxz00_3135); } 
{ /* ./Globalize/free.scm 306 */
int BgL_offsetz00_2542;
BgL_offsetz00_2542 = 
(int)(BgL_objzd2classzd2numz00_2538); 
{ /* ./Globalize/free.scm 306 */
long BgL_offsetz00_2543;
{ /* ./Globalize/free.scm 306 */
long BgL_auxz00_3139;
BgL_auxz00_3139 = 
(long)(BgL_offsetz00_2542); 
BgL_offsetz00_2543 = 
(BgL_auxz00_3139-OBJECT_TYPE); } 
{ /* ./Globalize/free.scm 306 */
long BgL_modz00_2544;
{ /* ./Globalize/free.scm 306 */
int BgL_arg2028z00_2545;
BgL_arg2028z00_2545 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 306 */
long BgL_n2z00_2553;
BgL_n2z00_2553 = 
(long)(BgL_arg2028z00_2545); 
BgL_modz00_2544 = 
(BgL_offsetz00_2543/BgL_n2z00_2553); } } 
{ /* ./Globalize/free.scm 306 */
long BgL_restz00_2546;
{ /* ./Globalize/free.scm 306 */
int BgL_arg2024z00_2547;
BgL_arg2024z00_2547 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 306 */
long BgL_n2z00_2556;
BgL_n2z00_2556 = 
(long)(BgL_arg2024z00_2547); 
BgL_restz00_2546 = 
(BgL_offsetz00_2543%BgL_n2z00_2556); } } 
{ /* ./Globalize/free.scm 306 */

{ /* ./Globalize/free.scm 306 */
obj_t BgL_bucketz00_2548;
{ /* ./Globalize/free.scm 306 */
int BgL_kz00_2558;
BgL_kz00_2558 = 
(int)(BgL_modz00_2544); 
BgL_bucketz00_2548 = 
VECTOR_REF(BgL_arg2017z00_2539,BgL_kz00_2558); } 
{ /* ./Globalize/free.scm 306 */
int BgL_kz00_2560;
BgL_kz00_2560 = 
(int)(BgL_restz00_2546); 
BgL_method3092z00_2536 = 
VECTOR_REF(BgL_bucketz00_2548,BgL_kz00_2560); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3092z00_2536)(BgL_method3092z00_2536, 
(obj_t)(BgL_nodez00_2534), BgL_arg4194z00_2503, BEOA);} } } } } 
}



/* node-free-box-ref3130 */
obj_t BGl_nodezd2freezd2boxzd2ref3130zd2zzglobaliza7e_freeza7(obj_t BgL_envz00_2623, obj_t BgL_nodez00_2624, obj_t BgL_freez00_2625)
{ AN_OBJECT;
{ /* ./Globalize/free.scm 298 */
{ 
BgL_boxzd2refzd2_bglt BgL_nodez00_1595;obj_t BgL_freez00_1596;
BgL_nodez00_1595 = 
(BgL_boxzd2refzd2_bglt)(BgL_nodez00_2624); 
BgL_freez00_1596 = BgL_freez00_2625; 
{ /* ./Globalize/free.scm 299 */
BgL_varz00_bglt BgL_arg4183z00_2472;
BgL_arg4183z00_2472 = 
(((BgL_boxzd2refzd2_bglt)CREF(BgL_nodez00_1595))->BgL_varz00); 
{ /* ./Globalize/free.scm 299 */
BgL_nodez00_bglt BgL_nodez00_2474;
BgL_nodez00_2474 = 
(BgL_nodez00_bglt)(BgL_arg4183z00_2472); 
{ /* ./Globalize/free.scm 299 */
obj_t BgL_method3092z00_2476;
{ /* ./Globalize/free.scm 299 */
BgL_objectz00_bglt BgL_objz00_2477;
BgL_objz00_2477 = 
(BgL_objectz00_bglt)(BgL_nodez00_2474); 
{ /* ./Globalize/free.scm 299 */
long BgL_objzd2classzd2numz00_2478;
BgL_objzd2classzd2numz00_2478 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2477); 
{ /* ./Globalize/free.scm 299 */
obj_t BgL_arg2017z00_2479;
{ /* ./Globalize/free.scm 299 */
int BgL_auxz00_3160;
BgL_auxz00_3160 = 
(int)(((long)1)); 
BgL_arg2017z00_2479 = 
PROCEDURE_REF(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BgL_auxz00_3160); } 
{ /* ./Globalize/free.scm 299 */
int BgL_offsetz00_2482;
BgL_offsetz00_2482 = 
(int)(BgL_objzd2classzd2numz00_2478); 
{ /* ./Globalize/free.scm 299 */
long BgL_offsetz00_2483;
{ /* ./Globalize/free.scm 299 */
long BgL_auxz00_3164;
BgL_auxz00_3164 = 
(long)(BgL_offsetz00_2482); 
BgL_offsetz00_2483 = 
(BgL_auxz00_3164-OBJECT_TYPE); } 
{ /* ./Globalize/free.scm 299 */
long BgL_modz00_2484;
{ /* ./Globalize/free.scm 299 */
int BgL_arg2028z00_2485;
BgL_arg2028z00_2485 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 299 */
long BgL_n2z00_2493;
BgL_n2z00_2493 = 
(long)(BgL_arg2028z00_2485); 
BgL_modz00_2484 = 
(BgL_offsetz00_2483/BgL_n2z00_2493); } } 
{ /* ./Globalize/free.scm 299 */
long BgL_restz00_2486;
{ /* ./Globalize/free.scm 299 */
int BgL_arg2024z00_2487;
BgL_arg2024z00_2487 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 299 */
long BgL_n2z00_2496;
BgL_n2z00_2496 = 
(long)(BgL_arg2024z00_2487); 
BgL_restz00_2486 = 
(BgL_offsetz00_2483%BgL_n2z00_2496); } } 
{ /* ./Globalize/free.scm 299 */

{ /* ./Globalize/free.scm 299 */
obj_t BgL_bucketz00_2488;
{ /* ./Globalize/free.scm 299 */
int BgL_kz00_2498;
BgL_kz00_2498 = 
(int)(BgL_modz00_2484); 
BgL_bucketz00_2488 = 
VECTOR_REF(BgL_arg2017z00_2479,BgL_kz00_2498); } 
{ /* ./Globalize/free.scm 299 */
int BgL_kz00_2500;
BgL_kz00_2500 = 
(int)(BgL_restz00_2486); 
BgL_method3092z00_2476 = 
VECTOR_REF(BgL_bucketz00_2488,BgL_kz00_2500); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3092z00_2476)(BgL_method3092z00_2476, 
(obj_t)(BgL_nodez00_2474), BgL_freez00_1596, BEOA);} } } } } 
}



/* node-free-make-box3127 */
obj_t BGl_nodezd2freezd2makezd2box3127zd2zzglobaliza7e_freeza7(obj_t BgL_envz00_2626, obj_t BgL_nodez00_2627, obj_t BgL_freez00_2628)
{ AN_OBJECT;
{ /* ./Globalize/free.scm 291 */
{ 
BgL_makezd2boxzd2_bglt BgL_nodez00_1587;obj_t BgL_freez00_1588;
BgL_nodez00_1587 = 
(BgL_makezd2boxzd2_bglt)(BgL_nodez00_2627); 
BgL_freez00_1588 = BgL_freez00_2628; 
{ /* ./Globalize/free.scm 292 */
BgL_nodez00_bglt BgL_arg4173z00_2442;
BgL_arg4173z00_2442 = 
(((BgL_makezd2boxzd2_bglt)CREF(BgL_nodez00_1587))->BgL_valuez00); 
{ /* ./Globalize/free.scm 292 */
obj_t BgL_method3092z00_2446;
{ /* ./Globalize/free.scm 292 */
BgL_objectz00_bglt BgL_objz00_2447;
BgL_objz00_2447 = 
(BgL_objectz00_bglt)(BgL_arg4173z00_2442); 
{ /* ./Globalize/free.scm 292 */
long BgL_objzd2classzd2numz00_2448;
BgL_objzd2classzd2numz00_2448 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2447); 
{ /* ./Globalize/free.scm 292 */
obj_t BgL_arg2017z00_2449;
{ /* ./Globalize/free.scm 292 */
int BgL_auxz00_3184;
BgL_auxz00_3184 = 
(int)(((long)1)); 
BgL_arg2017z00_2449 = 
PROCEDURE_REF(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BgL_auxz00_3184); } 
{ /* ./Globalize/free.scm 292 */
int BgL_offsetz00_2452;
BgL_offsetz00_2452 = 
(int)(BgL_objzd2classzd2numz00_2448); 
{ /* ./Globalize/free.scm 292 */
long BgL_offsetz00_2453;
{ /* ./Globalize/free.scm 292 */
long BgL_auxz00_3188;
BgL_auxz00_3188 = 
(long)(BgL_offsetz00_2452); 
BgL_offsetz00_2453 = 
(BgL_auxz00_3188-OBJECT_TYPE); } 
{ /* ./Globalize/free.scm 292 */
long BgL_modz00_2454;
{ /* ./Globalize/free.scm 292 */
int BgL_arg2028z00_2455;
BgL_arg2028z00_2455 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 292 */
long BgL_n2z00_2463;
BgL_n2z00_2463 = 
(long)(BgL_arg2028z00_2455); 
BgL_modz00_2454 = 
(BgL_offsetz00_2453/BgL_n2z00_2463); } } 
{ /* ./Globalize/free.scm 292 */
long BgL_restz00_2456;
{ /* ./Globalize/free.scm 292 */
int BgL_arg2024z00_2457;
BgL_arg2024z00_2457 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 292 */
long BgL_n2z00_2466;
BgL_n2z00_2466 = 
(long)(BgL_arg2024z00_2457); 
BgL_restz00_2456 = 
(BgL_offsetz00_2453%BgL_n2z00_2466); } } 
{ /* ./Globalize/free.scm 292 */

{ /* ./Globalize/free.scm 292 */
obj_t BgL_bucketz00_2458;
{ /* ./Globalize/free.scm 292 */
int BgL_kz00_2468;
BgL_kz00_2468 = 
(int)(BgL_modz00_2454); 
BgL_bucketz00_2458 = 
VECTOR_REF(BgL_arg2017z00_2449,BgL_kz00_2468); } 
{ /* ./Globalize/free.scm 292 */
int BgL_kz00_2470;
BgL_kz00_2470 = 
(int)(BgL_restz00_2456); 
BgL_method3092z00_2446 = 
VECTOR_REF(BgL_bucketz00_2458,BgL_kz00_2470); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3092z00_2446)(BgL_method3092z00_2446, 
(obj_t)(BgL_arg4173z00_2442), BgL_freez00_1588, BEOA);} } } } 
}



/* node-free-jump-ex-it3125 */
obj_t BGl_nodezd2freezd2jumpzd2exzd2it3125z00zzglobaliza7e_freeza7(obj_t BgL_envz00_2629, obj_t BgL_nodez00_2630, obj_t BgL_freez00_2631)
{ AN_OBJECT;
{ /* ./Globalize/free.scm 284 */
{ 
BgL_jumpzd2exzd2itz00_bglt BgL_nodez00_1577;obj_t BgL_freez00_1578;
BgL_nodez00_1577 = 
(BgL_jumpzd2exzd2itz00_bglt)(BgL_nodez00_2630); 
BgL_freez00_1578 = BgL_freez00_2631; 
{ /* ./Globalize/free.scm 285 */
BgL_nodez00_bglt BgL_arg4158z00_2382;obj_t BgL_arg4159z00_2383;
BgL_arg4158z00_2382 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1577))->BgL_exitz00); 
{ /* ./Globalize/free.scm 285 */
BgL_nodez00_bglt BgL_arg4163z00_2384;
BgL_arg4163z00_2384 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1577))->BgL_valuez00); 
{ /* ./Globalize/free.scm 285 */
obj_t BgL_method3092z00_2389;
{ /* ./Globalize/free.scm 285 */
BgL_objectz00_bglt BgL_objz00_2390;
BgL_objz00_2390 = 
(BgL_objectz00_bglt)(BgL_arg4163z00_2384); 
{ /* ./Globalize/free.scm 285 */
long BgL_objzd2classzd2numz00_2391;
BgL_objzd2classzd2numz00_2391 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2390); 
{ /* ./Globalize/free.scm 285 */
obj_t BgL_arg2017z00_2392;
{ /* ./Globalize/free.scm 285 */
int BgL_auxz00_3209;
BgL_auxz00_3209 = 
(int)(((long)1)); 
BgL_arg2017z00_2392 = 
PROCEDURE_REF(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BgL_auxz00_3209); } 
{ /* ./Globalize/free.scm 285 */
int BgL_offsetz00_2395;
BgL_offsetz00_2395 = 
(int)(BgL_objzd2classzd2numz00_2391); 
{ /* ./Globalize/free.scm 285 */
long BgL_offsetz00_2396;
{ /* ./Globalize/free.scm 285 */
long BgL_auxz00_3213;
BgL_auxz00_3213 = 
(long)(BgL_offsetz00_2395); 
BgL_offsetz00_2396 = 
(BgL_auxz00_3213-OBJECT_TYPE); } 
{ /* ./Globalize/free.scm 285 */
long BgL_modz00_2397;
{ /* ./Globalize/free.scm 285 */
int BgL_arg2028z00_2398;
BgL_arg2028z00_2398 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 285 */
long BgL_n2z00_2406;
BgL_n2z00_2406 = 
(long)(BgL_arg2028z00_2398); 
BgL_modz00_2397 = 
(BgL_offsetz00_2396/BgL_n2z00_2406); } } 
{ /* ./Globalize/free.scm 285 */
long BgL_restz00_2399;
{ /* ./Globalize/free.scm 285 */
int BgL_arg2024z00_2400;
BgL_arg2024z00_2400 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 285 */
long BgL_n2z00_2409;
BgL_n2z00_2409 = 
(long)(BgL_arg2024z00_2400); 
BgL_restz00_2399 = 
(BgL_offsetz00_2396%BgL_n2z00_2409); } } 
{ /* ./Globalize/free.scm 285 */

{ /* ./Globalize/free.scm 285 */
obj_t BgL_bucketz00_2401;
{ /* ./Globalize/free.scm 285 */
int BgL_kz00_2411;
BgL_kz00_2411 = 
(int)(BgL_modz00_2397); 
BgL_bucketz00_2401 = 
VECTOR_REF(BgL_arg2017z00_2392,BgL_kz00_2411); } 
{ /* ./Globalize/free.scm 285 */
int BgL_kz00_2413;
BgL_kz00_2413 = 
(int)(BgL_restz00_2399); 
BgL_method3092z00_2389 = 
VECTOR_REF(BgL_bucketz00_2401,BgL_kz00_2413); } } } } } } } } } } 
BgL_arg4159z00_2383 = 
PROCEDURE_ENTRY(BgL_method3092z00_2389)(BgL_method3092z00_2389, 
(obj_t)(BgL_arg4163z00_2384), BgL_freez00_1578, BEOA); } } 
{ /* ./Globalize/free.scm 285 */
obj_t BgL_method3092z00_2416;
{ /* ./Globalize/free.scm 285 */
BgL_objectz00_bglt BgL_objz00_2417;
BgL_objz00_2417 = 
(BgL_objectz00_bglt)(BgL_arg4158z00_2382); 
{ /* ./Globalize/free.scm 285 */
long BgL_objzd2classzd2numz00_2418;
BgL_objzd2classzd2numz00_2418 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2417); 
{ /* ./Globalize/free.scm 285 */
obj_t BgL_arg2017z00_2419;
{ /* ./Globalize/free.scm 285 */
int BgL_auxz00_3231;
BgL_auxz00_3231 = 
(int)(((long)1)); 
BgL_arg2017z00_2419 = 
PROCEDURE_REF(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BgL_auxz00_3231); } 
{ /* ./Globalize/free.scm 285 */
int BgL_offsetz00_2422;
BgL_offsetz00_2422 = 
(int)(BgL_objzd2classzd2numz00_2418); 
{ /* ./Globalize/free.scm 285 */
long BgL_offsetz00_2423;
{ /* ./Globalize/free.scm 285 */
long BgL_auxz00_3235;
BgL_auxz00_3235 = 
(long)(BgL_offsetz00_2422); 
BgL_offsetz00_2423 = 
(BgL_auxz00_3235-OBJECT_TYPE); } 
{ /* ./Globalize/free.scm 285 */
long BgL_modz00_2424;
{ /* ./Globalize/free.scm 285 */
int BgL_arg2028z00_2425;
BgL_arg2028z00_2425 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 285 */
long BgL_n2z00_2433;
BgL_n2z00_2433 = 
(long)(BgL_arg2028z00_2425); 
BgL_modz00_2424 = 
(BgL_offsetz00_2423/BgL_n2z00_2433); } } 
{ /* ./Globalize/free.scm 285 */
long BgL_restz00_2426;
{ /* ./Globalize/free.scm 285 */
int BgL_arg2024z00_2427;
BgL_arg2024z00_2427 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 285 */
long BgL_n2z00_2436;
BgL_n2z00_2436 = 
(long)(BgL_arg2024z00_2427); 
BgL_restz00_2426 = 
(BgL_offsetz00_2423%BgL_n2z00_2436); } } 
{ /* ./Globalize/free.scm 285 */

{ /* ./Globalize/free.scm 285 */
obj_t BgL_bucketz00_2428;
{ /* ./Globalize/free.scm 285 */
int BgL_kz00_2438;
BgL_kz00_2438 = 
(int)(BgL_modz00_2424); 
BgL_bucketz00_2428 = 
VECTOR_REF(BgL_arg2017z00_2419,BgL_kz00_2438); } 
{ /* ./Globalize/free.scm 285 */
int BgL_kz00_2440;
BgL_kz00_2440 = 
(int)(BgL_restz00_2426); 
BgL_method3092z00_2416 = 
VECTOR_REF(BgL_bucketz00_2428,BgL_kz00_2440); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3092z00_2416)(BgL_method3092z00_2416, 
(obj_t)(BgL_arg4158z00_2382), BgL_arg4159z00_2383, BEOA);} } } } 
}



/* node-free-set-ex-it3123 */
obj_t BGl_nodezd2freezd2setzd2exzd2it3123z00zzglobaliza7e_freeza7(obj_t BgL_envz00_2632, obj_t BgL_nodez00_2633, obj_t BgL_freez00_2634)
{ AN_OBJECT;
{ /* ./Globalize/free.scm 276 */
{ 
BgL_setzd2exzd2itz00_bglt BgL_nodez00_1567;obj_t BgL_freez00_1568;
BgL_nodez00_1567 = 
(BgL_setzd2exzd2itz00_bglt)(BgL_nodez00_2633); 
BgL_freez00_1568 = BgL_freez00_2634; 
{ /* ./Globalize/free.scm 278 */
BgL_variablez00_bglt BgL_arg4141z00_1572;
{ /* ./Globalize/free.scm 278 */
BgL_varz00_bglt BgL_arg4144z00_1573;
BgL_arg4144z00_1573 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1567))->BgL_varz00); 
BgL_arg4141z00_1572 = 
(((BgL_varz00_bglt)CREF(BgL_arg4144z00_1573))->BgL_variablez00); } 
BGl_bindzd2variablez12zc0zzglobaliza7e_freeza7(
(BgL_localz00_bglt)(BgL_arg4141z00_1572), 
(BgL_localz00_bglt)(BGl_za2integratorza2z00zzglobaliza7e_freeza7)); } 
{ /* ./Globalize/free.scm 279 */
BgL_nodez00_bglt BgL_arg4148z00_1574;
BgL_arg4148z00_1574 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1567))->BgL_bodyz00); 
{ /* ./Globalize/free.scm 279 */
obj_t BgL_method3092z00_2356;
{ /* ./Globalize/free.scm 279 */
BgL_objectz00_bglt BgL_objz00_2357;
BgL_objz00_2357 = 
(BgL_objectz00_bglt)(BgL_arg4148z00_1574); 
{ /* ./Globalize/free.scm 279 */
long BgL_objzd2classzd2numz00_2358;
BgL_objzd2classzd2numz00_2358 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2357); 
{ /* ./Globalize/free.scm 279 */
obj_t BgL_arg2017z00_2359;
{ /* ./Globalize/free.scm 279 */
int BgL_auxz00_3260;
BgL_auxz00_3260 = 
(int)(((long)1)); 
BgL_arg2017z00_2359 = 
PROCEDURE_REF(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BgL_auxz00_3260); } 
{ /* ./Globalize/free.scm 279 */
int BgL_offsetz00_2362;
BgL_offsetz00_2362 = 
(int)(BgL_objzd2classzd2numz00_2358); 
{ /* ./Globalize/free.scm 279 */
long BgL_offsetz00_2363;
{ /* ./Globalize/free.scm 279 */
long BgL_auxz00_3264;
BgL_auxz00_3264 = 
(long)(BgL_offsetz00_2362); 
BgL_offsetz00_2363 = 
(BgL_auxz00_3264-OBJECT_TYPE); } 
{ /* ./Globalize/free.scm 279 */
long BgL_modz00_2364;
{ /* ./Globalize/free.scm 279 */
int BgL_arg2028z00_2365;
BgL_arg2028z00_2365 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 279 */
long BgL_n2z00_2373;
BgL_n2z00_2373 = 
(long)(BgL_arg2028z00_2365); 
BgL_modz00_2364 = 
(BgL_offsetz00_2363/BgL_n2z00_2373); } } 
{ /* ./Globalize/free.scm 279 */
long BgL_restz00_2366;
{ /* ./Globalize/free.scm 279 */
int BgL_arg2024z00_2367;
BgL_arg2024z00_2367 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 279 */
long BgL_n2z00_2376;
BgL_n2z00_2376 = 
(long)(BgL_arg2024z00_2367); 
BgL_restz00_2366 = 
(BgL_offsetz00_2363%BgL_n2z00_2376); } } 
{ /* ./Globalize/free.scm 279 */

{ /* ./Globalize/free.scm 279 */
obj_t BgL_bucketz00_2368;
{ /* ./Globalize/free.scm 279 */
int BgL_kz00_2378;
BgL_kz00_2378 = 
(int)(BgL_modz00_2364); 
BgL_bucketz00_2368 = 
VECTOR_REF(BgL_arg2017z00_2359,BgL_kz00_2378); } 
{ /* ./Globalize/free.scm 279 */
int BgL_kz00_2380;
BgL_kz00_2380 = 
(int)(BgL_restz00_2366); 
BgL_method3092z00_2356 = 
VECTOR_REF(BgL_bucketz00_2368,BgL_kz00_2380); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3092z00_2356)(BgL_method3092z00_2356, 
(obj_t)(BgL_arg4148z00_1574), BgL_freez00_1568, BEOA);} } } } 
}



/* node-free-let-var3121 */
obj_t BGl_nodezd2freezd2letzd2var3121zd2zzglobaliza7e_freeza7(obj_t BgL_envz00_2635, obj_t BgL_nodez00_2636, obj_t BgL_freez00_2637)
{ AN_OBJECT;
{ /* ./Globalize/free.scm 262 */
{ 
BgL_letzd2varzd2_bglt BgL_nodez00_1548;obj_t BgL_freez00_1549;
BgL_nodez00_1548 = 
(BgL_letzd2varzd2_bglt)(BgL_nodez00_2636); 
BgL_freez00_1549 = BgL_freez00_2637; 
{ 
obj_t BgL_bindingsz00_1553;obj_t BgL_freez00_1554;
{ /* ./Globalize/free.scm 264 */
obj_t BgL_arg4106z00_1556;
BgL_arg4106z00_1556 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1548))->BgL_bindingsz00); 
BgL_bindingsz00_1553 = BgL_arg4106z00_1556; 
BgL_freez00_1554 = BgL_freez00_1549; 
BgL_loopz00_1555:
{ /* ./Globalize/free.scm 266 */
bool_t BgL_test4109z00_1557;
BgL_test4109z00_1557 = 
NULLP(BgL_bindingsz00_1553); 
if(BgL_test4109z00_1557)
{ /* ./Globalize/free.scm 267 */
BgL_nodez00_bglt BgL_arg4111z00_1558;
BgL_arg4111z00_1558 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1548))->BgL_bodyz00); 
{ /* ./Globalize/free.scm 267 */
obj_t BgL_method3092z00_2294;
{ /* ./Globalize/free.scm 267 */
BgL_objectz00_bglt BgL_objz00_2295;
BgL_objz00_2295 = 
(BgL_objectz00_bglt)(BgL_arg4111z00_1558); 
{ /* ./Globalize/free.scm 267 */
long BgL_objzd2classzd2numz00_2296;
BgL_objzd2classzd2numz00_2296 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2295); 
{ /* ./Globalize/free.scm 267 */
obj_t BgL_arg2017z00_2297;
{ /* ./Globalize/free.scm 267 */
int BgL_auxz00_3287;
BgL_auxz00_3287 = 
(int)(((long)1)); 
BgL_arg2017z00_2297 = 
PROCEDURE_REF(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BgL_auxz00_3287); } 
{ /* ./Globalize/free.scm 267 */
int BgL_offsetz00_2300;
BgL_offsetz00_2300 = 
(int)(BgL_objzd2classzd2numz00_2296); 
{ /* ./Globalize/free.scm 267 */
long BgL_offsetz00_2301;
{ /* ./Globalize/free.scm 267 */
long BgL_auxz00_3291;
BgL_auxz00_3291 = 
(long)(BgL_offsetz00_2300); 
BgL_offsetz00_2301 = 
(BgL_auxz00_3291-OBJECT_TYPE); } 
{ /* ./Globalize/free.scm 267 */
long BgL_modz00_2302;
{ /* ./Globalize/free.scm 267 */
int BgL_arg2028z00_2303;
BgL_arg2028z00_2303 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 267 */
long BgL_n2z00_2311;
BgL_n2z00_2311 = 
(long)(BgL_arg2028z00_2303); 
BgL_modz00_2302 = 
(BgL_offsetz00_2301/BgL_n2z00_2311); } } 
{ /* ./Globalize/free.scm 267 */
long BgL_restz00_2304;
{ /* ./Globalize/free.scm 267 */
int BgL_arg2024z00_2305;
BgL_arg2024z00_2305 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 267 */
long BgL_n2z00_2314;
BgL_n2z00_2314 = 
(long)(BgL_arg2024z00_2305); 
BgL_restz00_2304 = 
(BgL_offsetz00_2301%BgL_n2z00_2314); } } 
{ /* ./Globalize/free.scm 267 */

{ /* ./Globalize/free.scm 267 */
obj_t BgL_bucketz00_2306;
{ /* ./Globalize/free.scm 267 */
int BgL_kz00_2316;
BgL_kz00_2316 = 
(int)(BgL_modz00_2302); 
BgL_bucketz00_2306 = 
VECTOR_REF(BgL_arg2017z00_2297,BgL_kz00_2316); } 
{ /* ./Globalize/free.scm 267 */
int BgL_kz00_2318;
BgL_kz00_2318 = 
(int)(BgL_restz00_2304); 
BgL_method3092z00_2294 = 
VECTOR_REF(BgL_bucketz00_2306,BgL_kz00_2318); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3092z00_2294)(BgL_method3092z00_2294, 
(obj_t)(BgL_arg4111z00_1558), BgL_freez00_1554, BEOA);} }  else 
{ /* ./Globalize/free.scm 266 */
{ /* ./Globalize/free.scm 269 */
obj_t BgL_arg4115z00_1559;
{ /* ./Globalize/free.scm 269 */
obj_t BgL_auxz00_3307;
BgL_auxz00_3307 = 
CAR(BgL_bindingsz00_1553); 
BgL_arg4115z00_1559 = 
CAR(BgL_auxz00_3307); } 
BGl_bindzd2variablez12zc0zzglobaliza7e_freeza7(
(BgL_localz00_bglt)(BgL_arg4115z00_1559), 
(BgL_localz00_bglt)(BGl_za2integratorza2z00zzglobaliza7e_freeza7)); } 
{ /* ./Globalize/free.scm 270 */
obj_t BgL_arg4122z00_1561;obj_t BgL_arg4123z00_1562;
BgL_arg4122z00_1561 = 
CDR(BgL_bindingsz00_1553); 
{ /* ./Globalize/free.scm 271 */
obj_t BgL_arg4127z00_1563;
{ /* ./Globalize/free.scm 271 */
obj_t BgL_auxz00_3314;
BgL_auxz00_3314 = 
CAR(BgL_bindingsz00_1553); 
BgL_arg4127z00_1563 = 
CDR(BgL_auxz00_3314); } 
{ /* ./Globalize/free.scm 271 */
BgL_nodez00_bglt BgL_nodez00_2324;
BgL_nodez00_2324 = 
(BgL_nodez00_bglt)(BgL_arg4127z00_1563); 
{ /* ./Globalize/free.scm 271 */
obj_t BgL_method3092z00_2326;
{ /* ./Globalize/free.scm 271 */
BgL_objectz00_bglt BgL_objz00_2327;
BgL_objz00_2327 = 
(BgL_objectz00_bglt)(BgL_nodez00_2324); 
{ /* ./Globalize/free.scm 271 */
long BgL_objzd2classzd2numz00_2328;
BgL_objzd2classzd2numz00_2328 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2327); 
{ /* ./Globalize/free.scm 271 */
obj_t BgL_arg2017z00_2329;
{ /* ./Globalize/free.scm 271 */
int BgL_auxz00_3320;
BgL_auxz00_3320 = 
(int)(((long)1)); 
BgL_arg2017z00_2329 = 
PROCEDURE_REF(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BgL_auxz00_3320); } 
{ /* ./Globalize/free.scm 271 */
int BgL_offsetz00_2332;
BgL_offsetz00_2332 = 
(int)(BgL_objzd2classzd2numz00_2328); 
{ /* ./Globalize/free.scm 271 */
long BgL_offsetz00_2333;
{ /* ./Globalize/free.scm 271 */
long BgL_auxz00_3324;
BgL_auxz00_3324 = 
(long)(BgL_offsetz00_2332); 
BgL_offsetz00_2333 = 
(BgL_auxz00_3324-OBJECT_TYPE); } 
{ /* ./Globalize/free.scm 271 */
long BgL_modz00_2334;
{ /* ./Globalize/free.scm 271 */
int BgL_arg2028z00_2335;
BgL_arg2028z00_2335 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 271 */
long BgL_n2z00_2343;
BgL_n2z00_2343 = 
(long)(BgL_arg2028z00_2335); 
BgL_modz00_2334 = 
(BgL_offsetz00_2333/BgL_n2z00_2343); } } 
{ /* ./Globalize/free.scm 271 */
long BgL_restz00_2336;
{ /* ./Globalize/free.scm 271 */
int BgL_arg2024z00_2337;
BgL_arg2024z00_2337 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 271 */
long BgL_n2z00_2346;
BgL_n2z00_2346 = 
(long)(BgL_arg2024z00_2337); 
BgL_restz00_2336 = 
(BgL_offsetz00_2333%BgL_n2z00_2346); } } 
{ /* ./Globalize/free.scm 271 */

{ /* ./Globalize/free.scm 271 */
obj_t BgL_bucketz00_2338;
{ /* ./Globalize/free.scm 271 */
int BgL_kz00_2348;
BgL_kz00_2348 = 
(int)(BgL_modz00_2334); 
BgL_bucketz00_2338 = 
VECTOR_REF(BgL_arg2017z00_2329,BgL_kz00_2348); } 
{ /* ./Globalize/free.scm 271 */
int BgL_kz00_2350;
BgL_kz00_2350 = 
(int)(BgL_restz00_2336); 
BgL_method3092z00_2326 = 
VECTOR_REF(BgL_bucketz00_2338,BgL_kz00_2350); } } } } } } } } } } 
BgL_arg4123z00_1562 = 
PROCEDURE_ENTRY(BgL_method3092z00_2326)(BgL_method3092z00_2326, 
(obj_t)(BgL_nodez00_2324), BgL_freez00_1554, BEOA); } } } 
{ 
obj_t BgL_freez00_3341;obj_t BgL_bindingsz00_3340;
BgL_bindingsz00_3340 = BgL_arg4122z00_1561; 
BgL_freez00_3341 = BgL_arg4123z00_1562; 
BgL_freez00_1554 = BgL_freez00_3341; 
BgL_bindingsz00_1553 = BgL_bindingsz00_3340; 
goto BgL_loopz00_1555;} } } } } } } } 
}



/* node-free-let-fun3119 */
obj_t BGl_nodezd2freezd2letzd2fun3119zd2zzglobaliza7e_freeza7(obj_t BgL_envz00_2638, obj_t BgL_nodez00_2639, obj_t BgL_freez00_2640)
{ AN_OBJECT;
{ /* ./Globalize/free.scm 237 */
{ 
BgL_letzd2funzd2_bglt BgL_nodez00_1515;obj_t BgL_freez00_1516;
BgL_nodez00_1515 = 
(BgL_letzd2funzd2_bglt)(BgL_nodez00_2639); 
BgL_freez00_1516 = BgL_freez00_2640; 
{ 
obj_t BgL_l3063z00_1520;
{ /* ./Globalize/free.scm 239 */
obj_t BgL_arg4046z00_1522;
BgL_arg4046z00_1522 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1515))->BgL_localsz00); 
BgL_l3063z00_1520 = BgL_arg4046z00_1522; 
BgL_forzd2each3064zd2_1521:
{ /* ./Globalize/free.scm 239 */
bool_t BgL_test4049z00_1523;
BgL_test4049z00_1523 = 
PAIRP(BgL_l3063z00_1520); 
if(BgL_test4049z00_1523)
{ /* ./Globalize/free.scm 239 */
{ /* ./Globalize/free.scm 241 */
obj_t BgL_fz00_1524;
BgL_fz00_1524 = 
CAR(BgL_l3063z00_1520); 
BGl_bindzd2variablez12zc0zzglobaliza7e_freeza7(
(BgL_localz00_bglt)(BgL_fz00_1524), 
(BgL_localz00_bglt)(BGl_za2integratorza2z00zzglobaliza7e_freeza7)); 
{ /* ./Globalize/free.scm 243 */
bool_t BgL_test4051z00_1525;
{ /* ./Globalize/free.scm 243 */
BgL_localzf2ginfozf2_bglt BgL_obj2925z00_2221;
BgL_obj2925z00_2221 = 
(BgL_localzf2ginfozf2_bglt)(BgL_fz00_1524); 
{ 
obj_t BgL_auxz00_3351;
{ /* ./Globalize/free.scm 243 */
BgL_objectz00_bglt BgL_auxz00_3352;
BgL_auxz00_3352 = 
(BgL_objectz00_bglt)(BgL_obj2925z00_2221); 
BgL_auxz00_3351 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3352); } 
BgL_test4051z00_1525 = 
(((BgL_localzf2ginfozf2_bglt)CREF(BgL_auxz00_3351))->BgL_escapezf3zf3); } } 
if(BgL_test4051z00_1525)
{ /* ./Globalize/free.scm 244 */
obj_t BgL_arg4053z00_1526;
{ /* ./Globalize/free.scm 244 */
obj_t BgL_arg4056z00_1527;
{ /* ./Globalize/free.scm 244 */
BgL_nodez00_bglt BgL_obj1560z00_2222;
BgL_obj1560z00_2222 = 
(BgL_nodez00_bglt)(BgL_nodez00_1515); 
BgL_arg4056z00_1527 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2222))->BgL_locz00); } 
BgL_arg4053z00_1526 = 
BGl_thezd2localzd2closurez00zzglobaliza7e_freeza7(BgL_fz00_1524, BgL_arg4056z00_1527); } 
BGl_bindzd2variablez12zc0zzglobaliza7e_freeza7(
(BgL_localz00_bglt)(BgL_arg4053z00_1526), 
(BgL_localz00_bglt)(BGl_za2integratorza2z00zzglobaliza7e_freeza7)); }  else 
{ /* ./Globalize/free.scm 243 */BFALSE; } } } 
{ /* ./Globalize/free.scm 239 */
obj_t BgL_arg4062z00_1528;
BgL_arg4062z00_1528 = 
CDR(BgL_l3063z00_1520); 
{ 
obj_t BgL_l3063z00_3364;
BgL_l3063z00_3364 = BgL_arg4062z00_1528; 
BgL_l3063z00_1520 = BgL_l3063z00_3364; 
goto BgL_forzd2each3064zd2_1521;} } }  else 
{ /* ./Globalize/free.scm 239 */((bool_t)1); } } } } 
{ 
obj_t BgL_lclsz00_1529;obj_t BgL_freez00_1530;
{ /* ./Globalize/free.scm 247 */
obj_t BgL_arg4067z00_1532;
BgL_arg4067z00_1532 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1515))->BgL_localsz00); 
BgL_lclsz00_1529 = BgL_arg4067z00_1532; 
BgL_freez00_1530 = BgL_freez00_1516; 
BgL_liipz00_1531:
{ /* ./Globalize/free.scm 249 */
bool_t BgL_test4070z00_1533;
BgL_test4070z00_1533 = 
NULLP(BgL_lclsz00_1529); 
if(BgL_test4070z00_1533)
{ /* ./Globalize/free.scm 250 */
BgL_nodez00_bglt BgL_arg4072z00_1534;
BgL_arg4072z00_1534 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1515))->BgL_bodyz00); 
{ /* ./Globalize/free.scm 250 */
obj_t BgL_method3092z00_2229;
{ /* ./Globalize/free.scm 250 */
BgL_objectz00_bglt BgL_objz00_2230;
BgL_objz00_2230 = 
(BgL_objectz00_bglt)(BgL_arg4072z00_1534); 
{ /* ./Globalize/free.scm 250 */
long BgL_objzd2classzd2numz00_2231;
BgL_objzd2classzd2numz00_2231 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2230); 
{ /* ./Globalize/free.scm 250 */
obj_t BgL_arg2017z00_2232;
{ /* ./Globalize/free.scm 250 */
int BgL_auxz00_3371;
BgL_auxz00_3371 = 
(int)(((long)1)); 
BgL_arg2017z00_2232 = 
PROCEDURE_REF(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BgL_auxz00_3371); } 
{ /* ./Globalize/free.scm 250 */
int BgL_offsetz00_2235;
BgL_offsetz00_2235 = 
(int)(BgL_objzd2classzd2numz00_2231); 
{ /* ./Globalize/free.scm 250 */
long BgL_offsetz00_2236;
{ /* ./Globalize/free.scm 250 */
long BgL_auxz00_3375;
BgL_auxz00_3375 = 
(long)(BgL_offsetz00_2235); 
BgL_offsetz00_2236 = 
(BgL_auxz00_3375-OBJECT_TYPE); } 
{ /* ./Globalize/free.scm 250 */
long BgL_modz00_2237;
{ /* ./Globalize/free.scm 250 */
int BgL_arg2028z00_2238;
BgL_arg2028z00_2238 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 250 */
long BgL_n2z00_2246;
BgL_n2z00_2246 = 
(long)(BgL_arg2028z00_2238); 
BgL_modz00_2237 = 
(BgL_offsetz00_2236/BgL_n2z00_2246); } } 
{ /* ./Globalize/free.scm 250 */
long BgL_restz00_2239;
{ /* ./Globalize/free.scm 250 */
int BgL_arg2024z00_2240;
BgL_arg2024z00_2240 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 250 */
long BgL_n2z00_2249;
BgL_n2z00_2249 = 
(long)(BgL_arg2024z00_2240); 
BgL_restz00_2239 = 
(BgL_offsetz00_2236%BgL_n2z00_2249); } } 
{ /* ./Globalize/free.scm 250 */

{ /* ./Globalize/free.scm 250 */
obj_t BgL_bucketz00_2241;
{ /* ./Globalize/free.scm 250 */
int BgL_kz00_2251;
BgL_kz00_2251 = 
(int)(BgL_modz00_2237); 
BgL_bucketz00_2241 = 
VECTOR_REF(BgL_arg2017z00_2232,BgL_kz00_2251); } 
{ /* ./Globalize/free.scm 250 */
int BgL_kz00_2253;
BgL_kz00_2253 = 
(int)(BgL_restz00_2239); 
BgL_method3092z00_2229 = 
VECTOR_REF(BgL_bucketz00_2241,BgL_kz00_2253); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3092z00_2229)(BgL_method3092z00_2229, 
(obj_t)(BgL_arg4072z00_1534), BgL_freez00_1530, BEOA);} }  else 
{ /* ./Globalize/free.scm 251 */
obj_t BgL_localz00_1535;
BgL_localz00_1535 = 
CAR(BgL_lclsz00_1529); 
{ /* ./Globalize/free.scm 251 */
BgL_valuez00_bglt BgL_funz00_1536;
{ /* ./Globalize/free.scm 252 */
BgL_variablez00_bglt BgL_obj1100z00_2255;
BgL_obj1100z00_2255 = 
(BgL_variablez00_bglt)(BgL_localz00_1535); 
BgL_funz00_1536 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_2255))->BgL_valuez00); } 
{ /* ./Globalize/free.scm 252 */

{ 
obj_t BgL_l3065z00_1537;
{ /* ./Globalize/free.scm 255 */
obj_t BgL_arg4076z00_1539;
{ /* ./Globalize/free.scm 255 */
BgL_sfunz00_bglt BgL_obj1367z00_2256;
BgL_obj1367z00_2256 = 
(BgL_sfunz00_bglt)(BgL_funz00_1536); 
BgL_arg4076z00_1539 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1367z00_2256))->BgL_argsz00); } 
BgL_l3065z00_1537 = BgL_arg4076z00_1539; 
BgL_forzd2each3066zd2_1538:
{ /* ./Globalize/free.scm 253 */
bool_t BgL_test4079z00_1540;
BgL_test4079z00_1540 = 
PAIRP(BgL_l3065z00_1537); 
if(BgL_test4079z00_1540)
{ /* ./Globalize/free.scm 253 */
{ /* ./Globalize/free.scm 254 */
obj_t BgL_lz00_1541;
BgL_lz00_1541 = 
CAR(BgL_l3065z00_1537); 
BGl_bindzd2variablez12zc0zzglobaliza7e_freeza7(
(BgL_localz00_bglt)(BgL_lz00_1541), 
(BgL_localz00_bglt)(BGl_za2integratorza2z00zzglobaliza7e_freeza7)); } 
{ /* ./Globalize/free.scm 253 */
obj_t BgL_arg4083z00_1542;
BgL_arg4083z00_1542 = 
CDR(BgL_l3065z00_1537); 
{ 
obj_t BgL_l3065z00_3403;
BgL_l3065z00_3403 = BgL_arg4083z00_1542; 
BgL_l3065z00_1537 = BgL_l3065z00_3403; 
goto BgL_forzd2each3066zd2_1538;} } }  else 
{ /* ./Globalize/free.scm 253 */((bool_t)1); } } } } 
{ /* ./Globalize/free.scm 256 */
obj_t BgL_arg4088z00_1543;obj_t BgL_arg4089z00_1544;
BgL_arg4088z00_1543 = 
CDR(BgL_lclsz00_1529); 
{ /* ./Globalize/free.scm 257 */
obj_t BgL_arg4093z00_1545;
{ /* ./Globalize/free.scm 257 */
BgL_sfunz00_bglt BgL_obj1370z00_2261;
BgL_obj1370z00_2261 = 
(BgL_sfunz00_bglt)(BgL_funz00_1536); 
BgL_arg4093z00_1545 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_2261))->BgL_bodyz00); } 
{ /* ./Globalize/free.scm 257 */
BgL_nodez00_bglt BgL_nodez00_2262;
BgL_nodez00_2262 = 
(BgL_nodez00_bglt)(BgL_arg4093z00_1545); 
{ /* ./Globalize/free.scm 257 */
obj_t BgL_method3092z00_2264;
{ /* ./Globalize/free.scm 257 */
BgL_objectz00_bglt BgL_objz00_2265;
BgL_objz00_2265 = 
(BgL_objectz00_bglt)(BgL_nodez00_2262); 
{ /* ./Globalize/free.scm 257 */
long BgL_objzd2classzd2numz00_2266;
BgL_objzd2classzd2numz00_2266 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2265); 
{ /* ./Globalize/free.scm 257 */
obj_t BgL_arg2017z00_2267;
{ /* ./Globalize/free.scm 257 */
int BgL_auxz00_3410;
BgL_auxz00_3410 = 
(int)(((long)1)); 
BgL_arg2017z00_2267 = 
PROCEDURE_REF(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BgL_auxz00_3410); } 
{ /* ./Globalize/free.scm 257 */
int BgL_offsetz00_2270;
BgL_offsetz00_2270 = 
(int)(BgL_objzd2classzd2numz00_2266); 
{ /* ./Globalize/free.scm 257 */
long BgL_offsetz00_2271;
{ /* ./Globalize/free.scm 257 */
long BgL_auxz00_3414;
BgL_auxz00_3414 = 
(long)(BgL_offsetz00_2270); 
BgL_offsetz00_2271 = 
(BgL_auxz00_3414-OBJECT_TYPE); } 
{ /* ./Globalize/free.scm 257 */
long BgL_modz00_2272;
{ /* ./Globalize/free.scm 257 */
int BgL_arg2028z00_2273;
BgL_arg2028z00_2273 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 257 */
long BgL_n2z00_2281;
BgL_n2z00_2281 = 
(long)(BgL_arg2028z00_2273); 
BgL_modz00_2272 = 
(BgL_offsetz00_2271/BgL_n2z00_2281); } } 
{ /* ./Globalize/free.scm 257 */
long BgL_restz00_2274;
{ /* ./Globalize/free.scm 257 */
int BgL_arg2024z00_2275;
BgL_arg2024z00_2275 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 257 */
long BgL_n2z00_2284;
BgL_n2z00_2284 = 
(long)(BgL_arg2024z00_2275); 
BgL_restz00_2274 = 
(BgL_offsetz00_2271%BgL_n2z00_2284); } } 
{ /* ./Globalize/free.scm 257 */

{ /* ./Globalize/free.scm 257 */
obj_t BgL_bucketz00_2276;
{ /* ./Globalize/free.scm 257 */
int BgL_kz00_2286;
BgL_kz00_2286 = 
(int)(BgL_modz00_2272); 
BgL_bucketz00_2276 = 
VECTOR_REF(BgL_arg2017z00_2267,BgL_kz00_2286); } 
{ /* ./Globalize/free.scm 257 */
int BgL_kz00_2288;
BgL_kz00_2288 = 
(int)(BgL_restz00_2274); 
BgL_method3092z00_2264 = 
VECTOR_REF(BgL_bucketz00_2276,BgL_kz00_2288); } } } } } } } } } } 
BgL_arg4089z00_1544 = 
PROCEDURE_ENTRY(BgL_method3092z00_2264)(BgL_method3092z00_2264, 
(obj_t)(BgL_nodez00_2262), BgL_freez00_1530, BEOA); } } } 
{ 
obj_t BgL_freez00_3431;obj_t BgL_lclsz00_3430;
BgL_lclsz00_3430 = BgL_arg4088z00_1543; 
BgL_freez00_3431 = BgL_arg4089z00_1544; 
BgL_freez00_1530 = BgL_freez00_3431; 
BgL_lclsz00_1529 = BgL_lclsz00_3430; 
goto BgL_liipz00_1531;} } } } } } } } } } 
}



/* node-free-select3117 */
obj_t BGl_nodezd2freezd2select3117z00zzglobaliza7e_freeza7(obj_t BgL_envz00_2641, obj_t BgL_nodez00_2642, obj_t BgL_freez00_2643)
{ AN_OBJECT;
{ /* ./Globalize/free.scm 226 */
{ 
BgL_selectz00_bglt BgL_nodez00_1498;obj_t BgL_freez00_1499;
BgL_nodez00_1498 = 
(BgL_selectz00_bglt)(BgL_nodez00_2642); 
BgL_freez00_1499 = BgL_freez00_2643; 
{ 
obj_t BgL_clausesz00_1503;obj_t BgL_freez00_1504;
{ /* ./Globalize/free.scm 228 */
obj_t BgL_arg4018z00_1506;
BgL_arg4018z00_1506 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1498))->BgL_clausesz00); 
BgL_clausesz00_1503 = BgL_arg4018z00_1506; 
BgL_freez00_1504 = BgL_freez00_1499; 
BgL_loopz00_1505:
{ /* ./Globalize/free.scm 230 */
bool_t BgL_test4021z00_1507;
BgL_test4021z00_1507 = 
NULLP(BgL_clausesz00_1503); 
if(BgL_test4021z00_1507)
{ /* ./Globalize/free.scm 231 */
BgL_nodez00_bglt BgL_arg4023z00_1508;
BgL_arg4023z00_1508 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1498))->BgL_testz00); 
{ /* ./Globalize/free.scm 231 */
obj_t BgL_method3092z00_2163;
{ /* ./Globalize/free.scm 231 */
BgL_objectz00_bglt BgL_objz00_2164;
BgL_objz00_2164 = 
(BgL_objectz00_bglt)(BgL_arg4023z00_1508); 
{ /* ./Globalize/free.scm 231 */
long BgL_objzd2classzd2numz00_2165;
BgL_objzd2classzd2numz00_2165 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2164); 
{ /* ./Globalize/free.scm 231 */
obj_t BgL_arg2017z00_2166;
{ /* ./Globalize/free.scm 231 */
int BgL_auxz00_3439;
BgL_auxz00_3439 = 
(int)(((long)1)); 
BgL_arg2017z00_2166 = 
PROCEDURE_REF(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BgL_auxz00_3439); } 
{ /* ./Globalize/free.scm 231 */
int BgL_offsetz00_2169;
BgL_offsetz00_2169 = 
(int)(BgL_objzd2classzd2numz00_2165); 
{ /* ./Globalize/free.scm 231 */
long BgL_offsetz00_2170;
{ /* ./Globalize/free.scm 231 */
long BgL_auxz00_3443;
BgL_auxz00_3443 = 
(long)(BgL_offsetz00_2169); 
BgL_offsetz00_2170 = 
(BgL_auxz00_3443-OBJECT_TYPE); } 
{ /* ./Globalize/free.scm 231 */
long BgL_modz00_2171;
{ /* ./Globalize/free.scm 231 */
int BgL_arg2028z00_2172;
BgL_arg2028z00_2172 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 231 */
long BgL_n2z00_2180;
BgL_n2z00_2180 = 
(long)(BgL_arg2028z00_2172); 
BgL_modz00_2171 = 
(BgL_offsetz00_2170/BgL_n2z00_2180); } } 
{ /* ./Globalize/free.scm 231 */
long BgL_restz00_2173;
{ /* ./Globalize/free.scm 231 */
int BgL_arg2024z00_2174;
BgL_arg2024z00_2174 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 231 */
long BgL_n2z00_2183;
BgL_n2z00_2183 = 
(long)(BgL_arg2024z00_2174); 
BgL_restz00_2173 = 
(BgL_offsetz00_2170%BgL_n2z00_2183); } } 
{ /* ./Globalize/free.scm 231 */

{ /* ./Globalize/free.scm 231 */
obj_t BgL_bucketz00_2175;
{ /* ./Globalize/free.scm 231 */
int BgL_kz00_2185;
BgL_kz00_2185 = 
(int)(BgL_modz00_2171); 
BgL_bucketz00_2175 = 
VECTOR_REF(BgL_arg2017z00_2166,BgL_kz00_2185); } 
{ /* ./Globalize/free.scm 231 */
int BgL_kz00_2187;
BgL_kz00_2187 = 
(int)(BgL_restz00_2173); 
BgL_method3092z00_2163 = 
VECTOR_REF(BgL_bucketz00_2175,BgL_kz00_2187); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3092z00_2163)(BgL_method3092z00_2163, 
(obj_t)(BgL_arg4023z00_1508), BgL_freez00_1504, BEOA);} }  else 
{ /* ./Globalize/free.scm 232 */
obj_t BgL_arg4027z00_1509;obj_t BgL_arg4028z00_1510;
BgL_arg4027z00_1509 = 
CDR(BgL_clausesz00_1503); 
{ /* ./Globalize/free.scm 232 */
obj_t BgL_arg4032z00_1511;
{ /* ./Globalize/free.scm 232 */
obj_t BgL_auxz00_3460;
BgL_auxz00_3460 = 
CAR(BgL_clausesz00_1503); 
BgL_arg4032z00_1511 = 
CDR(BgL_auxz00_3460); } 
{ /* ./Globalize/free.scm 232 */
BgL_nodez00_bglt BgL_nodez00_2191;
BgL_nodez00_2191 = 
(BgL_nodez00_bglt)(BgL_arg4032z00_1511); 
{ /* ./Globalize/free.scm 232 */
obj_t BgL_method3092z00_2193;
{ /* ./Globalize/free.scm 232 */
BgL_objectz00_bglt BgL_objz00_2194;
BgL_objz00_2194 = 
(BgL_objectz00_bglt)(BgL_nodez00_2191); 
{ /* ./Globalize/free.scm 232 */
long BgL_objzd2classzd2numz00_2195;
BgL_objzd2classzd2numz00_2195 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2194); 
{ /* ./Globalize/free.scm 232 */
obj_t BgL_arg2017z00_2196;
{ /* ./Globalize/free.scm 232 */
int BgL_auxz00_3466;
BgL_auxz00_3466 = 
(int)(((long)1)); 
BgL_arg2017z00_2196 = 
PROCEDURE_REF(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BgL_auxz00_3466); } 
{ /* ./Globalize/free.scm 232 */
int BgL_offsetz00_2199;
BgL_offsetz00_2199 = 
(int)(BgL_objzd2classzd2numz00_2195); 
{ /* ./Globalize/free.scm 232 */
long BgL_offsetz00_2200;
{ /* ./Globalize/free.scm 232 */
long BgL_auxz00_3470;
BgL_auxz00_3470 = 
(long)(BgL_offsetz00_2199); 
BgL_offsetz00_2200 = 
(BgL_auxz00_3470-OBJECT_TYPE); } 
{ /* ./Globalize/free.scm 232 */
long BgL_modz00_2201;
{ /* ./Globalize/free.scm 232 */
int BgL_arg2028z00_2202;
BgL_arg2028z00_2202 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 232 */
long BgL_n2z00_2210;
BgL_n2z00_2210 = 
(long)(BgL_arg2028z00_2202); 
BgL_modz00_2201 = 
(BgL_offsetz00_2200/BgL_n2z00_2210); } } 
{ /* ./Globalize/free.scm 232 */
long BgL_restz00_2203;
{ /* ./Globalize/free.scm 232 */
int BgL_arg2024z00_2204;
BgL_arg2024z00_2204 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 232 */
long BgL_n2z00_2213;
BgL_n2z00_2213 = 
(long)(BgL_arg2024z00_2204); 
BgL_restz00_2203 = 
(BgL_offsetz00_2200%BgL_n2z00_2213); } } 
{ /* ./Globalize/free.scm 232 */

{ /* ./Globalize/free.scm 232 */
obj_t BgL_bucketz00_2205;
{ /* ./Globalize/free.scm 232 */
int BgL_kz00_2215;
BgL_kz00_2215 = 
(int)(BgL_modz00_2201); 
BgL_bucketz00_2205 = 
VECTOR_REF(BgL_arg2017z00_2196,BgL_kz00_2215); } 
{ /* ./Globalize/free.scm 232 */
int BgL_kz00_2217;
BgL_kz00_2217 = 
(int)(BgL_restz00_2203); 
BgL_method3092z00_2193 = 
VECTOR_REF(BgL_bucketz00_2205,BgL_kz00_2217); } } } } } } } } } } 
BgL_arg4028z00_1510 = 
PROCEDURE_ENTRY(BgL_method3092z00_2193)(BgL_method3092z00_2193, 
(obj_t)(BgL_nodez00_2191), BgL_freez00_1504, BEOA); } } } 
{ 
obj_t BgL_freez00_3487;obj_t BgL_clausesz00_3486;
BgL_clausesz00_3486 = BgL_arg4027z00_1509; 
BgL_freez00_3487 = BgL_arg4028z00_1510; 
BgL_freez00_1504 = BgL_freez00_3487; 
BgL_clausesz00_1503 = BgL_clausesz00_3486; 
goto BgL_loopz00_1505;} } } } } } } 
}



/* node-free-fail3115 */
obj_t BGl_nodezd2freezd2fail3115z00zzglobaliza7e_freeza7(obj_t BgL_envz00_2644, obj_t BgL_nodez00_2645, obj_t BgL_freez00_2646)
{ AN_OBJECT;
{ /* ./Globalize/free.scm 219 */
{ 
BgL_failz00_bglt BgL_nodez00_1486;obj_t BgL_freez00_1487;
BgL_nodez00_1486 = 
(BgL_failz00_bglt)(BgL_nodez00_2645); 
BgL_freez00_1487 = BgL_freez00_2646; 
{ /* ./Globalize/free.scm 221 */
BgL_nodez00_bglt BgL_arg3998z00_1491;obj_t BgL_arg3999z00_1492;
BgL_arg3998z00_1491 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1486))->BgL_procz00); 
{ /* ./Globalize/free.scm 221 */
BgL_nodez00_bglt BgL_arg4003z00_1493;obj_t BgL_arg4004z00_1494;
BgL_arg4003z00_1493 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1486))->BgL_msgz00); 
{ /* ./Globalize/free.scm 221 */
BgL_nodez00_bglt BgL_arg4008z00_1495;
BgL_arg4008z00_1495 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1486))->BgL_objz00); 
{ /* ./Globalize/free.scm 221 */
obj_t BgL_method3092z00_2079;
{ /* ./Globalize/free.scm 221 */
BgL_objectz00_bglt BgL_objz00_2080;
BgL_objz00_2080 = 
(BgL_objectz00_bglt)(BgL_arg4008z00_1495); 
{ /* ./Globalize/free.scm 221 */
long BgL_objzd2classzd2numz00_2081;
BgL_objzd2classzd2numz00_2081 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2080); 
{ /* ./Globalize/free.scm 221 */
obj_t BgL_arg2017z00_2082;
{ /* ./Globalize/free.scm 221 */
int BgL_auxz00_3494;
BgL_auxz00_3494 = 
(int)(((long)1)); 
BgL_arg2017z00_2082 = 
PROCEDURE_REF(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BgL_auxz00_3494); } 
{ /* ./Globalize/free.scm 221 */
int BgL_offsetz00_2085;
BgL_offsetz00_2085 = 
(int)(BgL_objzd2classzd2numz00_2081); 
{ /* ./Globalize/free.scm 221 */
long BgL_offsetz00_2086;
{ /* ./Globalize/free.scm 221 */
long BgL_auxz00_3498;
BgL_auxz00_3498 = 
(long)(BgL_offsetz00_2085); 
BgL_offsetz00_2086 = 
(BgL_auxz00_3498-OBJECT_TYPE); } 
{ /* ./Globalize/free.scm 221 */
long BgL_modz00_2087;
{ /* ./Globalize/free.scm 221 */
int BgL_arg2028z00_2088;
BgL_arg2028z00_2088 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 221 */
long BgL_n2z00_2096;
BgL_n2z00_2096 = 
(long)(BgL_arg2028z00_2088); 
BgL_modz00_2087 = 
(BgL_offsetz00_2086/BgL_n2z00_2096); } } 
{ /* ./Globalize/free.scm 221 */
long BgL_restz00_2089;
{ /* ./Globalize/free.scm 221 */
int BgL_arg2024z00_2090;
BgL_arg2024z00_2090 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 221 */
long BgL_n2z00_2099;
BgL_n2z00_2099 = 
(long)(BgL_arg2024z00_2090); 
BgL_restz00_2089 = 
(BgL_offsetz00_2086%BgL_n2z00_2099); } } 
{ /* ./Globalize/free.scm 221 */

{ /* ./Globalize/free.scm 221 */
obj_t BgL_bucketz00_2091;
{ /* ./Globalize/free.scm 221 */
int BgL_kz00_2101;
BgL_kz00_2101 = 
(int)(BgL_modz00_2087); 
BgL_bucketz00_2091 = 
VECTOR_REF(BgL_arg2017z00_2082,BgL_kz00_2101); } 
{ /* ./Globalize/free.scm 221 */
int BgL_kz00_2103;
BgL_kz00_2103 = 
(int)(BgL_restz00_2089); 
BgL_method3092z00_2079 = 
VECTOR_REF(BgL_bucketz00_2091,BgL_kz00_2103); } } } } } } } } } } 
BgL_arg4004z00_1494 = 
PROCEDURE_ENTRY(BgL_method3092z00_2079)(BgL_method3092z00_2079, 
(obj_t)(BgL_arg4008z00_1495), BgL_freez00_1487, BEOA); } } 
{ /* ./Globalize/free.scm 221 */
obj_t BgL_method3092z00_2106;
{ /* ./Globalize/free.scm 221 */
BgL_objectz00_bglt BgL_objz00_2107;
BgL_objz00_2107 = 
(BgL_objectz00_bglt)(BgL_arg4003z00_1493); 
{ /* ./Globalize/free.scm 221 */
long BgL_objzd2classzd2numz00_2108;
BgL_objzd2classzd2numz00_2108 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2107); 
{ /* ./Globalize/free.scm 221 */
obj_t BgL_arg2017z00_2109;
{ /* ./Globalize/free.scm 221 */
int BgL_auxz00_3516;
BgL_auxz00_3516 = 
(int)(((long)1)); 
BgL_arg2017z00_2109 = 
PROCEDURE_REF(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BgL_auxz00_3516); } 
{ /* ./Globalize/free.scm 221 */
int BgL_offsetz00_2112;
BgL_offsetz00_2112 = 
(int)(BgL_objzd2classzd2numz00_2108); 
{ /* ./Globalize/free.scm 221 */
long BgL_offsetz00_2113;
{ /* ./Globalize/free.scm 221 */
long BgL_auxz00_3520;
BgL_auxz00_3520 = 
(long)(BgL_offsetz00_2112); 
BgL_offsetz00_2113 = 
(BgL_auxz00_3520-OBJECT_TYPE); } 
{ /* ./Globalize/free.scm 221 */
long BgL_modz00_2114;
{ /* ./Globalize/free.scm 221 */
int BgL_arg2028z00_2115;
BgL_arg2028z00_2115 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 221 */
long BgL_n2z00_2123;
BgL_n2z00_2123 = 
(long)(BgL_arg2028z00_2115); 
BgL_modz00_2114 = 
(BgL_offsetz00_2113/BgL_n2z00_2123); } } 
{ /* ./Globalize/free.scm 221 */
long BgL_restz00_2116;
{ /* ./Globalize/free.scm 221 */
int BgL_arg2024z00_2117;
BgL_arg2024z00_2117 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 221 */
long BgL_n2z00_2126;
BgL_n2z00_2126 = 
(long)(BgL_arg2024z00_2117); 
BgL_restz00_2116 = 
(BgL_offsetz00_2113%BgL_n2z00_2126); } } 
{ /* ./Globalize/free.scm 221 */

{ /* ./Globalize/free.scm 221 */
obj_t BgL_bucketz00_2118;
{ /* ./Globalize/free.scm 221 */
int BgL_kz00_2128;
BgL_kz00_2128 = 
(int)(BgL_modz00_2114); 
BgL_bucketz00_2118 = 
VECTOR_REF(BgL_arg2017z00_2109,BgL_kz00_2128); } 
{ /* ./Globalize/free.scm 221 */
int BgL_kz00_2130;
BgL_kz00_2130 = 
(int)(BgL_restz00_2116); 
BgL_method3092z00_2106 = 
VECTOR_REF(BgL_bucketz00_2118,BgL_kz00_2130); } } } } } } } } } } 
BgL_arg3999z00_1492 = 
PROCEDURE_ENTRY(BgL_method3092z00_2106)(BgL_method3092z00_2106, 
(obj_t)(BgL_arg4003z00_1493), BgL_arg4004z00_1494, BEOA); } } 
{ /* ./Globalize/free.scm 221 */
obj_t BgL_method3092z00_2133;
{ /* ./Globalize/free.scm 221 */
BgL_objectz00_bglt BgL_objz00_2134;
BgL_objz00_2134 = 
(BgL_objectz00_bglt)(BgL_arg3998z00_1491); 
{ /* ./Globalize/free.scm 221 */
long BgL_objzd2classzd2numz00_2135;
BgL_objzd2classzd2numz00_2135 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2134); 
{ /* ./Globalize/free.scm 221 */
obj_t BgL_arg2017z00_2136;
{ /* ./Globalize/free.scm 221 */
int BgL_auxz00_3538;
BgL_auxz00_3538 = 
(int)(((long)1)); 
BgL_arg2017z00_2136 = 
PROCEDURE_REF(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BgL_auxz00_3538); } 
{ /* ./Globalize/free.scm 221 */
int BgL_offsetz00_2139;
BgL_offsetz00_2139 = 
(int)(BgL_objzd2classzd2numz00_2135); 
{ /* ./Globalize/free.scm 221 */
long BgL_offsetz00_2140;
{ /* ./Globalize/free.scm 221 */
long BgL_auxz00_3542;
BgL_auxz00_3542 = 
(long)(BgL_offsetz00_2139); 
BgL_offsetz00_2140 = 
(BgL_auxz00_3542-OBJECT_TYPE); } 
{ /* ./Globalize/free.scm 221 */
long BgL_modz00_2141;
{ /* ./Globalize/free.scm 221 */
int BgL_arg2028z00_2142;
BgL_arg2028z00_2142 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 221 */
long BgL_n2z00_2150;
BgL_n2z00_2150 = 
(long)(BgL_arg2028z00_2142); 
BgL_modz00_2141 = 
(BgL_offsetz00_2140/BgL_n2z00_2150); } } 
{ /* ./Globalize/free.scm 221 */
long BgL_restz00_2143;
{ /* ./Globalize/free.scm 221 */
int BgL_arg2024z00_2144;
BgL_arg2024z00_2144 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 221 */
long BgL_n2z00_2153;
BgL_n2z00_2153 = 
(long)(BgL_arg2024z00_2144); 
BgL_restz00_2143 = 
(BgL_offsetz00_2140%BgL_n2z00_2153); } } 
{ /* ./Globalize/free.scm 221 */

{ /* ./Globalize/free.scm 221 */
obj_t BgL_bucketz00_2145;
{ /* ./Globalize/free.scm 221 */
int BgL_kz00_2155;
BgL_kz00_2155 = 
(int)(BgL_modz00_2141); 
BgL_bucketz00_2145 = 
VECTOR_REF(BgL_arg2017z00_2136,BgL_kz00_2155); } 
{ /* ./Globalize/free.scm 221 */
int BgL_kz00_2157;
BgL_kz00_2157 = 
(int)(BgL_restz00_2143); 
BgL_method3092z00_2133 = 
VECTOR_REF(BgL_bucketz00_2145,BgL_kz00_2157); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3092z00_2133)(BgL_method3092z00_2133, 
(obj_t)(BgL_arg3998z00_1491), BgL_arg3999z00_1492, BEOA);} } } } 
}



/* node-free-conditional3113 */
obj_t BGl_nodezd2freezd2conditional3113z00zzglobaliza7e_freeza7(obj_t BgL_envz00_2647, obj_t BgL_nodez00_2648, obj_t BgL_freez00_2649)
{ AN_OBJECT;
{ /* ./Globalize/free.scm 212 */
{ 
BgL_conditionalz00_bglt BgL_nodez00_1474;obj_t BgL_freez00_1475;
BgL_nodez00_1474 = 
(BgL_conditionalz00_bglt)(BgL_nodez00_2648); 
BgL_freez00_1475 = BgL_freez00_2649; 
{ /* ./Globalize/free.scm 214 */
BgL_nodez00_bglt BgL_arg3978z00_1479;obj_t BgL_arg3979z00_1480;
BgL_arg3978z00_1479 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1474))->BgL_testz00); 
{ /* ./Globalize/free.scm 214 */
BgL_nodez00_bglt BgL_arg3983z00_1481;obj_t BgL_arg3984z00_1482;
BgL_arg3983z00_1481 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1474))->BgL_truez00); 
{ /* ./Globalize/free.scm 214 */
BgL_nodez00_bglt BgL_arg3988z00_1483;
BgL_arg3988z00_1483 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1474))->BgL_falsez00); 
{ /* ./Globalize/free.scm 214 */
obj_t BgL_method3092z00_1995;
{ /* ./Globalize/free.scm 214 */
BgL_objectz00_bglt BgL_objz00_1996;
BgL_objz00_1996 = 
(BgL_objectz00_bglt)(BgL_arg3988z00_1483); 
{ /* ./Globalize/free.scm 214 */
long BgL_objzd2classzd2numz00_1997;
BgL_objzd2classzd2numz00_1997 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1996); 
{ /* ./Globalize/free.scm 214 */
obj_t BgL_arg2017z00_1998;
{ /* ./Globalize/free.scm 214 */
int BgL_auxz00_3564;
BgL_auxz00_3564 = 
(int)(((long)1)); 
BgL_arg2017z00_1998 = 
PROCEDURE_REF(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BgL_auxz00_3564); } 
{ /* ./Globalize/free.scm 214 */
int BgL_offsetz00_2001;
BgL_offsetz00_2001 = 
(int)(BgL_objzd2classzd2numz00_1997); 
{ /* ./Globalize/free.scm 214 */
long BgL_offsetz00_2002;
{ /* ./Globalize/free.scm 214 */
long BgL_auxz00_3568;
BgL_auxz00_3568 = 
(long)(BgL_offsetz00_2001); 
BgL_offsetz00_2002 = 
(BgL_auxz00_3568-OBJECT_TYPE); } 
{ /* ./Globalize/free.scm 214 */
long BgL_modz00_2003;
{ /* ./Globalize/free.scm 214 */
int BgL_arg2028z00_2004;
BgL_arg2028z00_2004 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 214 */
long BgL_n2z00_2012;
BgL_n2z00_2012 = 
(long)(BgL_arg2028z00_2004); 
BgL_modz00_2003 = 
(BgL_offsetz00_2002/BgL_n2z00_2012); } } 
{ /* ./Globalize/free.scm 214 */
long BgL_restz00_2005;
{ /* ./Globalize/free.scm 214 */
int BgL_arg2024z00_2006;
BgL_arg2024z00_2006 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 214 */
long BgL_n2z00_2015;
BgL_n2z00_2015 = 
(long)(BgL_arg2024z00_2006); 
BgL_restz00_2005 = 
(BgL_offsetz00_2002%BgL_n2z00_2015); } } 
{ /* ./Globalize/free.scm 214 */

{ /* ./Globalize/free.scm 214 */
obj_t BgL_bucketz00_2007;
{ /* ./Globalize/free.scm 214 */
int BgL_kz00_2017;
BgL_kz00_2017 = 
(int)(BgL_modz00_2003); 
BgL_bucketz00_2007 = 
VECTOR_REF(BgL_arg2017z00_1998,BgL_kz00_2017); } 
{ /* ./Globalize/free.scm 214 */
int BgL_kz00_2019;
BgL_kz00_2019 = 
(int)(BgL_restz00_2005); 
BgL_method3092z00_1995 = 
VECTOR_REF(BgL_bucketz00_2007,BgL_kz00_2019); } } } } } } } } } } 
BgL_arg3984z00_1482 = 
PROCEDURE_ENTRY(BgL_method3092z00_1995)(BgL_method3092z00_1995, 
(obj_t)(BgL_arg3988z00_1483), BgL_freez00_1475, BEOA); } } 
{ /* ./Globalize/free.scm 214 */
obj_t BgL_method3092z00_2022;
{ /* ./Globalize/free.scm 214 */
BgL_objectz00_bglt BgL_objz00_2023;
BgL_objz00_2023 = 
(BgL_objectz00_bglt)(BgL_arg3983z00_1481); 
{ /* ./Globalize/free.scm 214 */
long BgL_objzd2classzd2numz00_2024;
BgL_objzd2classzd2numz00_2024 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2023); 
{ /* ./Globalize/free.scm 214 */
obj_t BgL_arg2017z00_2025;
{ /* ./Globalize/free.scm 214 */
int BgL_auxz00_3586;
BgL_auxz00_3586 = 
(int)(((long)1)); 
BgL_arg2017z00_2025 = 
PROCEDURE_REF(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BgL_auxz00_3586); } 
{ /* ./Globalize/free.scm 214 */
int BgL_offsetz00_2028;
BgL_offsetz00_2028 = 
(int)(BgL_objzd2classzd2numz00_2024); 
{ /* ./Globalize/free.scm 214 */
long BgL_offsetz00_2029;
{ /* ./Globalize/free.scm 214 */
long BgL_auxz00_3590;
BgL_auxz00_3590 = 
(long)(BgL_offsetz00_2028); 
BgL_offsetz00_2029 = 
(BgL_auxz00_3590-OBJECT_TYPE); } 
{ /* ./Globalize/free.scm 214 */
long BgL_modz00_2030;
{ /* ./Globalize/free.scm 214 */
int BgL_arg2028z00_2031;
BgL_arg2028z00_2031 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 214 */
long BgL_n2z00_2039;
BgL_n2z00_2039 = 
(long)(BgL_arg2028z00_2031); 
BgL_modz00_2030 = 
(BgL_offsetz00_2029/BgL_n2z00_2039); } } 
{ /* ./Globalize/free.scm 214 */
long BgL_restz00_2032;
{ /* ./Globalize/free.scm 214 */
int BgL_arg2024z00_2033;
BgL_arg2024z00_2033 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 214 */
long BgL_n2z00_2042;
BgL_n2z00_2042 = 
(long)(BgL_arg2024z00_2033); 
BgL_restz00_2032 = 
(BgL_offsetz00_2029%BgL_n2z00_2042); } } 
{ /* ./Globalize/free.scm 214 */

{ /* ./Globalize/free.scm 214 */
obj_t BgL_bucketz00_2034;
{ /* ./Globalize/free.scm 214 */
int BgL_kz00_2044;
BgL_kz00_2044 = 
(int)(BgL_modz00_2030); 
BgL_bucketz00_2034 = 
VECTOR_REF(BgL_arg2017z00_2025,BgL_kz00_2044); } 
{ /* ./Globalize/free.scm 214 */
int BgL_kz00_2046;
BgL_kz00_2046 = 
(int)(BgL_restz00_2032); 
BgL_method3092z00_2022 = 
VECTOR_REF(BgL_bucketz00_2034,BgL_kz00_2046); } } } } } } } } } } 
BgL_arg3979z00_1480 = 
PROCEDURE_ENTRY(BgL_method3092z00_2022)(BgL_method3092z00_2022, 
(obj_t)(BgL_arg3983z00_1481), BgL_arg3984z00_1482, BEOA); } } 
{ /* ./Globalize/free.scm 214 */
obj_t BgL_method3092z00_2049;
{ /* ./Globalize/free.scm 214 */
BgL_objectz00_bglt BgL_objz00_2050;
BgL_objz00_2050 = 
(BgL_objectz00_bglt)(BgL_arg3978z00_1479); 
{ /* ./Globalize/free.scm 214 */
long BgL_objzd2classzd2numz00_2051;
BgL_objzd2classzd2numz00_2051 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2050); 
{ /* ./Globalize/free.scm 214 */
obj_t BgL_arg2017z00_2052;
{ /* ./Globalize/free.scm 214 */
int BgL_auxz00_3608;
BgL_auxz00_3608 = 
(int)(((long)1)); 
BgL_arg2017z00_2052 = 
PROCEDURE_REF(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BgL_auxz00_3608); } 
{ /* ./Globalize/free.scm 214 */
int BgL_offsetz00_2055;
BgL_offsetz00_2055 = 
(int)(BgL_objzd2classzd2numz00_2051); 
{ /* ./Globalize/free.scm 214 */
long BgL_offsetz00_2056;
{ /* ./Globalize/free.scm 214 */
long BgL_auxz00_3612;
BgL_auxz00_3612 = 
(long)(BgL_offsetz00_2055); 
BgL_offsetz00_2056 = 
(BgL_auxz00_3612-OBJECT_TYPE); } 
{ /* ./Globalize/free.scm 214 */
long BgL_modz00_2057;
{ /* ./Globalize/free.scm 214 */
int BgL_arg2028z00_2058;
BgL_arg2028z00_2058 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 214 */
long BgL_n2z00_2066;
BgL_n2z00_2066 = 
(long)(BgL_arg2028z00_2058); 
BgL_modz00_2057 = 
(BgL_offsetz00_2056/BgL_n2z00_2066); } } 
{ /* ./Globalize/free.scm 214 */
long BgL_restz00_2059;
{ /* ./Globalize/free.scm 214 */
int BgL_arg2024z00_2060;
BgL_arg2024z00_2060 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 214 */
long BgL_n2z00_2069;
BgL_n2z00_2069 = 
(long)(BgL_arg2024z00_2060); 
BgL_restz00_2059 = 
(BgL_offsetz00_2056%BgL_n2z00_2069); } } 
{ /* ./Globalize/free.scm 214 */

{ /* ./Globalize/free.scm 214 */
obj_t BgL_bucketz00_2061;
{ /* ./Globalize/free.scm 214 */
int BgL_kz00_2071;
BgL_kz00_2071 = 
(int)(BgL_modz00_2057); 
BgL_bucketz00_2061 = 
VECTOR_REF(BgL_arg2017z00_2052,BgL_kz00_2071); } 
{ /* ./Globalize/free.scm 214 */
int BgL_kz00_2073;
BgL_kz00_2073 = 
(int)(BgL_restz00_2059); 
BgL_method3092z00_2049 = 
VECTOR_REF(BgL_bucketz00_2061,BgL_kz00_2073); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3092z00_2049)(BgL_method3092z00_2049, 
(obj_t)(BgL_arg3978z00_1479), BgL_arg3979z00_1480, BEOA);} } } } 
}



/* node-free-setq3111 */
obj_t BGl_nodezd2freezd2setq3111z00zzglobaliza7e_freeza7(obj_t BgL_envz00_2650, obj_t BgL_nodez00_2651, obj_t BgL_freez00_2652)
{ AN_OBJECT;
{ /* ./Globalize/free.scm 205 */
{ 
BgL_setqz00_bglt BgL_nodez00_1464;obj_t BgL_freez00_1465;
BgL_nodez00_1464 = 
(BgL_setqz00_bglt)(BgL_nodez00_2651); 
BgL_freez00_1465 = BgL_freez00_2652; 
{ /* ./Globalize/free.scm 206 */
BgL_varz00_bglt BgL_arg3963z00_1931;obj_t BgL_arg3964z00_1932;
BgL_arg3963z00_1931 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1464))->BgL_varz00); 
{ /* ./Globalize/free.scm 206 */
BgL_nodez00_bglt BgL_arg3968z00_1933;
BgL_arg3968z00_1933 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1464))->BgL_valuez00); 
{ /* ./Globalize/free.scm 206 */
obj_t BgL_method3092z00_1938;
{ /* ./Globalize/free.scm 206 */
BgL_objectz00_bglt BgL_objz00_1939;
BgL_objz00_1939 = 
(BgL_objectz00_bglt)(BgL_arg3968z00_1933); 
{ /* ./Globalize/free.scm 206 */
long BgL_objzd2classzd2numz00_1940;
BgL_objzd2classzd2numz00_1940 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1939); 
{ /* ./Globalize/free.scm 206 */
obj_t BgL_arg2017z00_1941;
{ /* ./Globalize/free.scm 206 */
int BgL_auxz00_3633;
BgL_auxz00_3633 = 
(int)(((long)1)); 
BgL_arg2017z00_1941 = 
PROCEDURE_REF(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BgL_auxz00_3633); } 
{ /* ./Globalize/free.scm 206 */
int BgL_offsetz00_1944;
BgL_offsetz00_1944 = 
(int)(BgL_objzd2classzd2numz00_1940); 
{ /* ./Globalize/free.scm 206 */
long BgL_offsetz00_1945;
{ /* ./Globalize/free.scm 206 */
long BgL_auxz00_3637;
BgL_auxz00_3637 = 
(long)(BgL_offsetz00_1944); 
BgL_offsetz00_1945 = 
(BgL_auxz00_3637-OBJECT_TYPE); } 
{ /* ./Globalize/free.scm 206 */
long BgL_modz00_1946;
{ /* ./Globalize/free.scm 206 */
int BgL_arg2028z00_1947;
BgL_arg2028z00_1947 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 206 */
long BgL_n2z00_1955;
BgL_n2z00_1955 = 
(long)(BgL_arg2028z00_1947); 
BgL_modz00_1946 = 
(BgL_offsetz00_1945/BgL_n2z00_1955); } } 
{ /* ./Globalize/free.scm 206 */
long BgL_restz00_1948;
{ /* ./Globalize/free.scm 206 */
int BgL_arg2024z00_1949;
BgL_arg2024z00_1949 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 206 */
long BgL_n2z00_1958;
BgL_n2z00_1958 = 
(long)(BgL_arg2024z00_1949); 
BgL_restz00_1948 = 
(BgL_offsetz00_1945%BgL_n2z00_1958); } } 
{ /* ./Globalize/free.scm 206 */

{ /* ./Globalize/free.scm 206 */
obj_t BgL_bucketz00_1950;
{ /* ./Globalize/free.scm 206 */
int BgL_kz00_1960;
BgL_kz00_1960 = 
(int)(BgL_modz00_1946); 
BgL_bucketz00_1950 = 
VECTOR_REF(BgL_arg2017z00_1941,BgL_kz00_1960); } 
{ /* ./Globalize/free.scm 206 */
int BgL_kz00_1962;
BgL_kz00_1962 = 
(int)(BgL_restz00_1948); 
BgL_method3092z00_1938 = 
VECTOR_REF(BgL_bucketz00_1950,BgL_kz00_1962); } } } } } } } } } } 
BgL_arg3964z00_1932 = 
PROCEDURE_ENTRY(BgL_method3092z00_1938)(BgL_method3092z00_1938, 
(obj_t)(BgL_arg3968z00_1933), BgL_freez00_1465, BEOA); } } 
{ /* ./Globalize/free.scm 206 */
BgL_nodez00_bglt BgL_nodez00_1963;
BgL_nodez00_1963 = 
(BgL_nodez00_bglt)(BgL_arg3963z00_1931); 
{ /* ./Globalize/free.scm 206 */
obj_t BgL_method3092z00_1965;
{ /* ./Globalize/free.scm 206 */
BgL_objectz00_bglt BgL_objz00_1966;
BgL_objz00_1966 = 
(BgL_objectz00_bglt)(BgL_nodez00_1963); 
{ /* ./Globalize/free.scm 206 */
long BgL_objzd2classzd2numz00_1967;
BgL_objzd2classzd2numz00_1967 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1966); 
{ /* ./Globalize/free.scm 206 */
obj_t BgL_arg2017z00_1968;
{ /* ./Globalize/free.scm 206 */
int BgL_auxz00_3656;
BgL_auxz00_3656 = 
(int)(((long)1)); 
BgL_arg2017z00_1968 = 
PROCEDURE_REF(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BgL_auxz00_3656); } 
{ /* ./Globalize/free.scm 206 */
int BgL_offsetz00_1971;
BgL_offsetz00_1971 = 
(int)(BgL_objzd2classzd2numz00_1967); 
{ /* ./Globalize/free.scm 206 */
long BgL_offsetz00_1972;
{ /* ./Globalize/free.scm 206 */
long BgL_auxz00_3660;
BgL_auxz00_3660 = 
(long)(BgL_offsetz00_1971); 
BgL_offsetz00_1972 = 
(BgL_auxz00_3660-OBJECT_TYPE); } 
{ /* ./Globalize/free.scm 206 */
long BgL_modz00_1973;
{ /* ./Globalize/free.scm 206 */
int BgL_arg2028z00_1974;
BgL_arg2028z00_1974 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 206 */
long BgL_n2z00_1982;
BgL_n2z00_1982 = 
(long)(BgL_arg2028z00_1974); 
BgL_modz00_1973 = 
(BgL_offsetz00_1972/BgL_n2z00_1982); } } 
{ /* ./Globalize/free.scm 206 */
long BgL_restz00_1975;
{ /* ./Globalize/free.scm 206 */
int BgL_arg2024z00_1976;
BgL_arg2024z00_1976 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 206 */
long BgL_n2z00_1985;
BgL_n2z00_1985 = 
(long)(BgL_arg2024z00_1976); 
BgL_restz00_1975 = 
(BgL_offsetz00_1972%BgL_n2z00_1985); } } 
{ /* ./Globalize/free.scm 206 */

{ /* ./Globalize/free.scm 206 */
obj_t BgL_bucketz00_1977;
{ /* ./Globalize/free.scm 206 */
int BgL_kz00_1987;
BgL_kz00_1987 = 
(int)(BgL_modz00_1973); 
BgL_bucketz00_1977 = 
VECTOR_REF(BgL_arg2017z00_1968,BgL_kz00_1987); } 
{ /* ./Globalize/free.scm 206 */
int BgL_kz00_1989;
BgL_kz00_1989 = 
(int)(BgL_restz00_1975); 
BgL_method3092z00_1965 = 
VECTOR_REF(BgL_bucketz00_1977,BgL_kz00_1989); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3092z00_1965)(BgL_method3092z00_1965, 
(obj_t)(BgL_nodez00_1963), BgL_arg3964z00_1932, BEOA);} } } } } 
}



/* node-free-cast3109 */
obj_t BGl_nodezd2freezd2cast3109z00zzglobaliza7e_freeza7(obj_t BgL_envz00_2653, obj_t BgL_nodez00_2654, obj_t BgL_freez00_2655)
{ AN_OBJECT;
{ /* ./Globalize/free.scm 198 */
{ 
BgL_castz00_bglt BgL_nodez00_1456;obj_t BgL_freez00_1457;
BgL_nodez00_1456 = 
(BgL_castz00_bglt)(BgL_nodez00_2654); 
BgL_freez00_1457 = BgL_freez00_2655; 
{ /* ./Globalize/free.scm 199 */
BgL_nodez00_bglt BgL_arg3953z00_1901;
BgL_arg3953z00_1901 = 
(((BgL_castz00_bglt)CREF(BgL_nodez00_1456))->BgL_argz00); 
{ /* ./Globalize/free.scm 199 */
obj_t BgL_method3092z00_1905;
{ /* ./Globalize/free.scm 199 */
BgL_objectz00_bglt BgL_objz00_1906;
BgL_objz00_1906 = 
(BgL_objectz00_bglt)(BgL_arg3953z00_1901); 
{ /* ./Globalize/free.scm 199 */
long BgL_objzd2classzd2numz00_1907;
BgL_objzd2classzd2numz00_1907 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1906); 
{ /* ./Globalize/free.scm 199 */
obj_t BgL_arg2017z00_1908;
{ /* ./Globalize/free.scm 199 */
int BgL_auxz00_3680;
BgL_auxz00_3680 = 
(int)(((long)1)); 
BgL_arg2017z00_1908 = 
PROCEDURE_REF(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BgL_auxz00_3680); } 
{ /* ./Globalize/free.scm 199 */
int BgL_offsetz00_1911;
BgL_offsetz00_1911 = 
(int)(BgL_objzd2classzd2numz00_1907); 
{ /* ./Globalize/free.scm 199 */
long BgL_offsetz00_1912;
{ /* ./Globalize/free.scm 199 */
long BgL_auxz00_3684;
BgL_auxz00_3684 = 
(long)(BgL_offsetz00_1911); 
BgL_offsetz00_1912 = 
(BgL_auxz00_3684-OBJECT_TYPE); } 
{ /* ./Globalize/free.scm 199 */
long BgL_modz00_1913;
{ /* ./Globalize/free.scm 199 */
int BgL_arg2028z00_1914;
BgL_arg2028z00_1914 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 199 */
long BgL_n2z00_1922;
BgL_n2z00_1922 = 
(long)(BgL_arg2028z00_1914); 
BgL_modz00_1913 = 
(BgL_offsetz00_1912/BgL_n2z00_1922); } } 
{ /* ./Globalize/free.scm 199 */
long BgL_restz00_1915;
{ /* ./Globalize/free.scm 199 */
int BgL_arg2024z00_1916;
BgL_arg2024z00_1916 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 199 */
long BgL_n2z00_1925;
BgL_n2z00_1925 = 
(long)(BgL_arg2024z00_1916); 
BgL_restz00_1915 = 
(BgL_offsetz00_1912%BgL_n2z00_1925); } } 
{ /* ./Globalize/free.scm 199 */

{ /* ./Globalize/free.scm 199 */
obj_t BgL_bucketz00_1917;
{ /* ./Globalize/free.scm 199 */
int BgL_kz00_1927;
BgL_kz00_1927 = 
(int)(BgL_modz00_1913); 
BgL_bucketz00_1917 = 
VECTOR_REF(BgL_arg2017z00_1908,BgL_kz00_1927); } 
{ /* ./Globalize/free.scm 199 */
int BgL_kz00_1929;
BgL_kz00_1929 = 
(int)(BgL_restz00_1915); 
BgL_method3092z00_1905 = 
VECTOR_REF(BgL_bucketz00_1917,BgL_kz00_1929); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3092z00_1905)(BgL_method3092z00_1905, 
(obj_t)(BgL_arg3953z00_1901), BgL_freez00_1457, BEOA);} } } } 
}



/* node-free-extern3107 */
obj_t BGl_nodezd2freezd2extern3107z00zzglobaliza7e_freeza7(obj_t BgL_envz00_2656, obj_t BgL_nodez00_2657, obj_t BgL_freez00_2658)
{ AN_OBJECT;
{ /* ./Globalize/free.scm 191 */
{ 
BgL_externz00_bglt BgL_nodez00_1448;obj_t BgL_freez00_1449;
BgL_nodez00_1448 = 
(BgL_externz00_bglt)(BgL_nodez00_2657); 
BgL_freez00_1449 = BgL_freez00_2658; 
{ /* ./Globalize/free.scm 192 */
obj_t BgL_arg3943z00_1898;
BgL_arg3943z00_1898 = 
(((BgL_externz00_bglt)CREF(BgL_nodez00_1448))->BgL_exprza2za2); 
return 
BGl_nodezd2freeza2z70zzglobaliza7e_freeza7(BgL_arg3943z00_1898, BgL_freez00_1449);} } } 
}



/* node-free-funcall3105 */
obj_t BGl_nodezd2freezd2funcall3105z00zzglobaliza7e_freeza7(obj_t BgL_envz00_2659, obj_t BgL_nodez00_2660, obj_t BgL_freez00_2661)
{ AN_OBJECT;
{ /* ./Globalize/free.scm 184 */
{ 
BgL_funcallz00_bglt BgL_nodez00_1438;obj_t BgL_freez00_1439;
BgL_nodez00_1438 = 
(BgL_funcallz00_bglt)(BgL_nodez00_2660); 
BgL_freez00_1439 = BgL_freez00_2661; 
{ /* ./Globalize/free.scm 185 */
BgL_nodez00_bglt BgL_arg3928z00_1865;obj_t BgL_arg3929z00_1866;
BgL_arg3928z00_1865 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1438))->BgL_funz00); 
{ /* ./Globalize/free.scm 185 */
obj_t BgL_arg3933z00_1867;
BgL_arg3933z00_1867 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1438))->BgL_argsz00); 
BgL_arg3929z00_1866 = 
BGl_nodezd2freeza2z70zzglobaliza7e_freeza7(BgL_arg3933z00_1867, BgL_freez00_1439); } 
{ /* ./Globalize/free.scm 185 */
obj_t BgL_method3092z00_1872;
{ /* ./Globalize/free.scm 185 */
BgL_objectz00_bglt BgL_objz00_1873;
BgL_objz00_1873 = 
(BgL_objectz00_bglt)(BgL_arg3928z00_1865); 
{ /* ./Globalize/free.scm 185 */
long BgL_objzd2classzd2numz00_1874;
BgL_objzd2classzd2numz00_1874 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1873); 
{ /* ./Globalize/free.scm 185 */
obj_t BgL_arg2017z00_1875;
{ /* ./Globalize/free.scm 185 */
int BgL_auxz00_3709;
BgL_auxz00_3709 = 
(int)(((long)1)); 
BgL_arg2017z00_1875 = 
PROCEDURE_REF(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BgL_auxz00_3709); } 
{ /* ./Globalize/free.scm 185 */
int BgL_offsetz00_1878;
BgL_offsetz00_1878 = 
(int)(BgL_objzd2classzd2numz00_1874); 
{ /* ./Globalize/free.scm 185 */
long BgL_offsetz00_1879;
{ /* ./Globalize/free.scm 185 */
long BgL_auxz00_3713;
BgL_auxz00_3713 = 
(long)(BgL_offsetz00_1878); 
BgL_offsetz00_1879 = 
(BgL_auxz00_3713-OBJECT_TYPE); } 
{ /* ./Globalize/free.scm 185 */
long BgL_modz00_1880;
{ /* ./Globalize/free.scm 185 */
int BgL_arg2028z00_1881;
BgL_arg2028z00_1881 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 185 */
long BgL_n2z00_1889;
BgL_n2z00_1889 = 
(long)(BgL_arg2028z00_1881); 
BgL_modz00_1880 = 
(BgL_offsetz00_1879/BgL_n2z00_1889); } } 
{ /* ./Globalize/free.scm 185 */
long BgL_restz00_1882;
{ /* ./Globalize/free.scm 185 */
int BgL_arg2024z00_1883;
BgL_arg2024z00_1883 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 185 */
long BgL_n2z00_1892;
BgL_n2z00_1892 = 
(long)(BgL_arg2024z00_1883); 
BgL_restz00_1882 = 
(BgL_offsetz00_1879%BgL_n2z00_1892); } } 
{ /* ./Globalize/free.scm 185 */

{ /* ./Globalize/free.scm 185 */
obj_t BgL_bucketz00_1884;
{ /* ./Globalize/free.scm 185 */
int BgL_kz00_1894;
BgL_kz00_1894 = 
(int)(BgL_modz00_1880); 
BgL_bucketz00_1884 = 
VECTOR_REF(BgL_arg2017z00_1875,BgL_kz00_1894); } 
{ /* ./Globalize/free.scm 185 */
int BgL_kz00_1896;
BgL_kz00_1896 = 
(int)(BgL_restz00_1882); 
BgL_method3092z00_1872 = 
VECTOR_REF(BgL_bucketz00_1884,BgL_kz00_1896); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3092z00_1872)(BgL_method3092z00_1872, 
(obj_t)(BgL_arg3928z00_1865), BgL_arg3929z00_1866, BEOA);} } } } 
}



/* node-free-app-ly3103 */
obj_t BGl_nodezd2freezd2appzd2ly3103zd2zzglobaliza7e_freeza7(obj_t BgL_envz00_2662, obj_t BgL_nodez00_2663, obj_t BgL_freez00_2664)
{ AN_OBJECT;
{ /* ./Globalize/free.scm 177 */
{ 
BgL_appzd2lyzd2_bglt BgL_nodez00_1428;obj_t BgL_freez00_1429;
BgL_nodez00_1428 = 
(BgL_appzd2lyzd2_bglt)(BgL_nodez00_2663); 
BgL_freez00_1429 = BgL_freez00_2664; 
{ /* ./Globalize/free.scm 178 */
BgL_nodez00_bglt BgL_arg3913z00_1805;obj_t BgL_arg3914z00_1806;
BgL_arg3913z00_1805 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1428))->BgL_funz00); 
{ /* ./Globalize/free.scm 178 */
BgL_nodez00_bglt BgL_arg3918z00_1807;
BgL_arg3918z00_1807 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1428))->BgL_argz00); 
{ /* ./Globalize/free.scm 178 */
obj_t BgL_method3092z00_1812;
{ /* ./Globalize/free.scm 178 */
BgL_objectz00_bglt BgL_objz00_1813;
BgL_objz00_1813 = 
(BgL_objectz00_bglt)(BgL_arg3918z00_1807); 
{ /* ./Globalize/free.scm 178 */
long BgL_objzd2classzd2numz00_1814;
BgL_objzd2classzd2numz00_1814 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1813); 
{ /* ./Globalize/free.scm 178 */
obj_t BgL_arg2017z00_1815;
{ /* ./Globalize/free.scm 178 */
int BgL_auxz00_3734;
BgL_auxz00_3734 = 
(int)(((long)1)); 
BgL_arg2017z00_1815 = 
PROCEDURE_REF(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BgL_auxz00_3734); } 
{ /* ./Globalize/free.scm 178 */
int BgL_offsetz00_1818;
BgL_offsetz00_1818 = 
(int)(BgL_objzd2classzd2numz00_1814); 
{ /* ./Globalize/free.scm 178 */
long BgL_offsetz00_1819;
{ /* ./Globalize/free.scm 178 */
long BgL_auxz00_3738;
BgL_auxz00_3738 = 
(long)(BgL_offsetz00_1818); 
BgL_offsetz00_1819 = 
(BgL_auxz00_3738-OBJECT_TYPE); } 
{ /* ./Globalize/free.scm 178 */
long BgL_modz00_1820;
{ /* ./Globalize/free.scm 178 */
int BgL_arg2028z00_1821;
BgL_arg2028z00_1821 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 178 */
long BgL_n2z00_1829;
BgL_n2z00_1829 = 
(long)(BgL_arg2028z00_1821); 
BgL_modz00_1820 = 
(BgL_offsetz00_1819/BgL_n2z00_1829); } } 
{ /* ./Globalize/free.scm 178 */
long BgL_restz00_1822;
{ /* ./Globalize/free.scm 178 */
int BgL_arg2024z00_1823;
BgL_arg2024z00_1823 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 178 */
long BgL_n2z00_1832;
BgL_n2z00_1832 = 
(long)(BgL_arg2024z00_1823); 
BgL_restz00_1822 = 
(BgL_offsetz00_1819%BgL_n2z00_1832); } } 
{ /* ./Globalize/free.scm 178 */

{ /* ./Globalize/free.scm 178 */
obj_t BgL_bucketz00_1824;
{ /* ./Globalize/free.scm 178 */
int BgL_kz00_1834;
BgL_kz00_1834 = 
(int)(BgL_modz00_1820); 
BgL_bucketz00_1824 = 
VECTOR_REF(BgL_arg2017z00_1815,BgL_kz00_1834); } 
{ /* ./Globalize/free.scm 178 */
int BgL_kz00_1836;
BgL_kz00_1836 = 
(int)(BgL_restz00_1822); 
BgL_method3092z00_1812 = 
VECTOR_REF(BgL_bucketz00_1824,BgL_kz00_1836); } } } } } } } } } } 
BgL_arg3914z00_1806 = 
PROCEDURE_ENTRY(BgL_method3092z00_1812)(BgL_method3092z00_1812, 
(obj_t)(BgL_arg3918z00_1807), BgL_freez00_1429, BEOA); } } 
{ /* ./Globalize/free.scm 178 */
obj_t BgL_method3092z00_1839;
{ /* ./Globalize/free.scm 178 */
BgL_objectz00_bglt BgL_objz00_1840;
BgL_objz00_1840 = 
(BgL_objectz00_bglt)(BgL_arg3913z00_1805); 
{ /* ./Globalize/free.scm 178 */
long BgL_objzd2classzd2numz00_1841;
BgL_objzd2classzd2numz00_1841 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1840); 
{ /* ./Globalize/free.scm 178 */
obj_t BgL_arg2017z00_1842;
{ /* ./Globalize/free.scm 178 */
int BgL_auxz00_3756;
BgL_auxz00_3756 = 
(int)(((long)1)); 
BgL_arg2017z00_1842 = 
PROCEDURE_REF(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BgL_auxz00_3756); } 
{ /* ./Globalize/free.scm 178 */
int BgL_offsetz00_1845;
BgL_offsetz00_1845 = 
(int)(BgL_objzd2classzd2numz00_1841); 
{ /* ./Globalize/free.scm 178 */
long BgL_offsetz00_1846;
{ /* ./Globalize/free.scm 178 */
long BgL_auxz00_3760;
BgL_auxz00_3760 = 
(long)(BgL_offsetz00_1845); 
BgL_offsetz00_1846 = 
(BgL_auxz00_3760-OBJECT_TYPE); } 
{ /* ./Globalize/free.scm 178 */
long BgL_modz00_1847;
{ /* ./Globalize/free.scm 178 */
int BgL_arg2028z00_1848;
BgL_arg2028z00_1848 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 178 */
long BgL_n2z00_1856;
BgL_n2z00_1856 = 
(long)(BgL_arg2028z00_1848); 
BgL_modz00_1847 = 
(BgL_offsetz00_1846/BgL_n2z00_1856); } } 
{ /* ./Globalize/free.scm 178 */
long BgL_restz00_1849;
{ /* ./Globalize/free.scm 178 */
int BgL_arg2024z00_1850;
BgL_arg2024z00_1850 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 178 */
long BgL_n2z00_1859;
BgL_n2z00_1859 = 
(long)(BgL_arg2024z00_1850); 
BgL_restz00_1849 = 
(BgL_offsetz00_1846%BgL_n2z00_1859); } } 
{ /* ./Globalize/free.scm 178 */

{ /* ./Globalize/free.scm 178 */
obj_t BgL_bucketz00_1851;
{ /* ./Globalize/free.scm 178 */
int BgL_kz00_1861;
BgL_kz00_1861 = 
(int)(BgL_modz00_1847); 
BgL_bucketz00_1851 = 
VECTOR_REF(BgL_arg2017z00_1842,BgL_kz00_1861); } 
{ /* ./Globalize/free.scm 178 */
int BgL_kz00_1863;
BgL_kz00_1863 = 
(int)(BgL_restz00_1849); 
BgL_method3092z00_1839 = 
VECTOR_REF(BgL_bucketz00_1851,BgL_kz00_1863); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3092z00_1839)(BgL_method3092z00_1839, 
(obj_t)(BgL_arg3913z00_1805), BgL_arg3914z00_1806, BEOA);} } } } 
}



/* node-free-app3101 */
obj_t BGl_nodezd2freezd2app3101z00zzglobaliza7e_freeza7(obj_t BgL_envz00_2665, obj_t BgL_nodez00_2666, obj_t BgL_freez00_2667)
{ AN_OBJECT;
{ /* ./Globalize/free.scm 161 */
{ 
BgL_appz00_bglt BgL_nodez00_1412;obj_t BgL_freez00_1413;
BgL_nodez00_1412 = 
(BgL_appz00_bglt)(BgL_nodez00_2666); 
BgL_freez00_1413 = BgL_freez00_2667; 
{ /* ./Globalize/free.scm 163 */
obj_t BgL_freez00_1417;
{ /* ./Globalize/free.scm 163 */
BgL_variablez00_bglt BgL_varz00_1419;
{ /* ./Globalize/free.scm 163 */
BgL_varz00_bglt BgL_arg3903z00_1425;
BgL_arg3903z00_1425 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1412))->BgL_funz00); 
BgL_varz00_1419 = 
(((BgL_varz00_bglt)CREF(BgL_arg3903z00_1425))->BgL_variablez00); } 
{ /* ./Globalize/free.scm 165 */
bool_t BgL_test3888z00_1420;
{ /* ./Globalize/free.scm 165 */
obj_t BgL_obj1240z00_1796;
BgL_obj1240z00_1796 = 
(obj_t)(BgL_varz00_1419); 
BgL_test3888z00_1420 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1240z00_1796, BGl_globalz00zzast_varz00); } 
if(BgL_test3888z00_1420)
{ /* ./Globalize/free.scm 165 */
BgL_freez00_1417 = BgL_freez00_1413; }  else 
{ /* ./Globalize/free.scm 167 */
bool_t BgL_test3889z00_1421;
{ /* ./Globalize/free.scm 167 */
bool_t BgL_test3898z00_1424;
{ /* ./Globalize/free.scm 167 */
BgL_localzf2ginfozf2_bglt BgL_obj2925z00_1797;
BgL_obj2925z00_1797 = 
(BgL_localzf2ginfozf2_bglt)(BgL_varz00_1419); 
{ 
obj_t BgL_auxz00_3783;
{ /* ./Globalize/free.scm 167 */
BgL_objectz00_bglt BgL_auxz00_3784;
BgL_auxz00_3784 = 
(BgL_objectz00_bglt)(BgL_obj2925z00_1797); 
BgL_auxz00_3783 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3784); } 
BgL_test3898z00_1424 = 
(((BgL_localzf2ginfozf2_bglt)CREF(BgL_auxz00_3783))->BgL_escapezf3zf3); } } 
if(BgL_test3898z00_1424)
{ /* ./Globalize/free.scm 167 */
obj_t BgL_auxz00_3789;
BgL_auxz00_3789 = 
BGl_freezd2variablezf3z21zzglobaliza7e_freeza7(
(obj_t)(BgL_varz00_1419)); 
BgL_test3889z00_1421 = 
CBOOL(BgL_auxz00_3789); }  else 
{ /* ./Globalize/free.scm 167 */
BgL_test3889z00_1421 = ((bool_t)0); } } 
if(BgL_test3889z00_1421)
{ /* ./Globalize/free.scm 167 */
BGl_markzd2variablez12zc0zzglobaliza7e_freeza7(
(BgL_localz00_bglt)(BgL_varz00_1419)); 
{ /* ./Globalize/free.scm 169 */
obj_t BgL_arg3892z00_1422;
{ /* ./Globalize/free.scm 169 */
obj_t BgL_arg3895z00_1423;
{ /* ./Globalize/free.scm 169 */
BgL_nodez00_bglt BgL_obj1560z00_1798;
BgL_obj1560z00_1798 = 
(BgL_nodez00_bglt)(BgL_nodez00_1412); 
BgL_arg3895z00_1423 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_1798))->BgL_locz00); } 
{ /* ./Globalize/free.scm 169 */
bool_t BgL_test3232z00_1801;
{ /* ./Globalize/free.scm 169 */
obj_t BgL_obj1240z00_1802;
BgL_obj1240z00_1802 = 
(obj_t)(BgL_varz00_1419); 
BgL_test3232z00_1801 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1240z00_1802, BGl_globalz00zzast_varz00); } 
if(BgL_test3232z00_1801)
{ /* ./Globalize/free.scm 169 */
BgL_arg3892z00_1422 = 
BGl_thezd2globalzd2closurez00zzglobaliza7e_freeza7(
(BgL_globalz00_bglt)(BgL_varz00_1419), BgL_arg3895z00_1423); }  else 
{ /* ./Globalize/free.scm 169 */
BgL_arg3892z00_1422 = 
BGl_thezd2localzd2closurez00zzglobaliza7e_freeza7(
(obj_t)(BgL_varz00_1419), BgL_arg3895z00_1423); } } } 
BgL_freez00_1417 = 
MAKE_PAIR(BgL_arg3892z00_1422, BgL_freez00_1413); } }  else 
{ /* ./Globalize/free.scm 167 */
BgL_freez00_1417 = BgL_freez00_1413; } } } } 
{ /* ./Globalize/free.scm 172 */
obj_t BgL_arg3885z00_1418;
BgL_arg3885z00_1418 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1412))->BgL_argsz00); 
return 
BGl_nodezd2freeza2z70zzglobaliza7e_freeza7(BgL_arg3885z00_1418, BgL_freez00_1417);} } } } 
}



/* node-free-sequence3099 */
obj_t BGl_nodezd2freezd2sequence3099z00zzglobaliza7e_freeza7(obj_t BgL_envz00_2668, obj_t BgL_nodez00_2669, obj_t BgL_freez00_2670)
{ AN_OBJECT;
{ /* ./Globalize/free.scm 154 */
{ 
BgL_sequencez00_bglt BgL_nodez00_1404;obj_t BgL_freez00_1405;
BgL_nodez00_1404 = 
(BgL_sequencez00_bglt)(BgL_nodez00_2669); 
BgL_freez00_1405 = BgL_freez00_2670; 
{ /* ./Globalize/free.scm 155 */
obj_t BgL_arg3875z00_1792;
BgL_arg3875z00_1792 = 
(((BgL_sequencez00_bglt)CREF(BgL_nodez00_1404))->BgL_nodesz00); 
return 
BGl_nodezd2freeza2z70zzglobaliza7e_freeza7(BgL_arg3875z00_1792, BgL_freez00_1405);} } } 
}



/* node-free-closure3096 */
obj_t BGl_nodezd2freezd2closure3096z00zzglobaliza7e_freeza7(obj_t BgL_envz00_2671, obj_t BgL_nodez00_2672, obj_t BgL_freez00_2673)
{ AN_OBJECT;
{ /* ./Globalize/free.scm 139 */
{ 
BgL_closurez00_bglt BgL_nodez00_1393;obj_t BgL_freez00_1394;
BgL_nodez00_1393 = 
(BgL_closurez00_bglt)(BgL_nodez00_2672); 
BgL_freez00_1394 = BgL_freez00_2673; 
{ /* ./Globalize/free.scm 141 */
obj_t BgL_varz00_1398;
{ /* ./Globalize/free.scm 141 */
BgL_variablez00_bglt BgL_arg3865z00_1401;
{ /* ./Globalize/free.scm 141 */
BgL_varz00_bglt BgL_obj1625z00_1785;
BgL_obj1625z00_1785 = 
(BgL_varz00_bglt)(BgL_nodez00_1393); 
BgL_arg3865z00_1401 = 
(((BgL_varz00_bglt)CREF(BgL_obj1625z00_1785))->BgL_variablez00); } 
{ /* ./Globalize/free.scm 141 */
bool_t BgL_test3232z00_1788;
{ /* ./Globalize/free.scm 141 */
obj_t BgL_obj1240z00_1789;
BgL_obj1240z00_1789 = 
(obj_t)(BgL_arg3865z00_1401); 
BgL_test3232z00_1788 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1240z00_1789, BGl_globalz00zzast_varz00); } 
if(BgL_test3232z00_1788)
{ /* ./Globalize/free.scm 141 */
BgL_varz00_1398 = 
BGl_thezd2globalzd2closurez00zzglobaliza7e_freeza7(
(BgL_globalz00_bglt)(BgL_arg3865z00_1401), BFALSE); }  else 
{ /* ./Globalize/free.scm 141 */
BgL_varz00_1398 = 
BGl_thezd2localzd2closurez00zzglobaliza7e_freeza7(
(obj_t)(BgL_arg3865z00_1401), BFALSE); } } } 
{ /* ./Globalize/free.scm 143 */
bool_t BgL_test3858z00_1399;
BgL_test3858z00_1399 = 
BGl_iszd2azf3z21zz__objectz00(BgL_varz00_1398, BGl_globalz00zzast_varz00); 
if(BgL_test3858z00_1399)
{ /* ./Globalize/free.scm 143 */
return BgL_freez00_1394;}  else 
{ /* ./Globalize/free.scm 145 */
bool_t BgL_test3859z00_1400;
{ /* ./Globalize/free.scm 145 */
obj_t BgL_auxz00_3823;
BgL_auxz00_3823 = 
BGl_freezd2variablezf3z21zzglobaliza7e_freeza7(BgL_varz00_1398); 
BgL_test3859z00_1400 = 
CBOOL(BgL_auxz00_3823); } 
if(BgL_test3859z00_1400)
{ /* ./Globalize/free.scm 145 */
BGl_markzd2variablez12zc0zzglobaliza7e_freeza7(
(BgL_localz00_bglt)(BgL_varz00_1398)); 
return 
MAKE_PAIR(BgL_varz00_1398, BgL_freez00_1394);}  else 
{ /* ./Globalize/free.scm 145 */
return BgL_freez00_1394;} } } } } } 
}



/* node-free-var3094 */
obj_t BGl_nodezd2freezd2var3094z00zzglobaliza7e_freeza7(obj_t BgL_envz00_2674, obj_t BgL_nodez00_2675, obj_t BgL_freez00_2676)
{ AN_OBJECT;
{ /* ./Globalize/free.scm 125 */
{ 
BgL_varz00_bglt BgL_nodez00_1380;obj_t BgL_freez00_1381;
BgL_nodez00_1380 = 
(BgL_varz00_bglt)(BgL_nodez00_2675); 
BgL_freez00_1381 = BgL_freez00_2676; 
{ /* ./Globalize/free.scm 128 */
bool_t BgL_test3834z00_1385;
{ /* ./Globalize/free.scm 128 */
BgL_variablez00_bglt BgL_arg3849z00_1390;
BgL_arg3849z00_1390 = 
(((BgL_varz00_bglt)CREF(BgL_nodez00_1380))->BgL_variablez00); 
{ /* ./Globalize/free.scm 128 */
obj_t BgL_obj1240z00_1781;
BgL_obj1240z00_1781 = 
(obj_t)(BgL_arg3849z00_1390); 
BgL_test3834z00_1385 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1240z00_1781, BGl_globalz00zzast_varz00); } } 
if(BgL_test3834z00_1385)
{ /* ./Globalize/free.scm 128 */
return BgL_freez00_1381;}  else 
{ /* ./Globalize/free.scm 130 */
bool_t BgL_test3835z00_1386;
{ /* ./Globalize/free.scm 130 */
BgL_variablez00_bglt BgL_arg3845z00_1389;
BgL_arg3845z00_1389 = 
(((BgL_varz00_bglt)CREF(BgL_nodez00_1380))->BgL_variablez00); 
{ /* ./Globalize/free.scm 130 */
obj_t BgL_auxz00_3836;
BgL_auxz00_3836 = 
BGl_freezd2variablezf3z21zzglobaliza7e_freeza7(
(obj_t)(BgL_arg3845z00_1389)); 
BgL_test3835z00_1386 = 
CBOOL(BgL_auxz00_3836); } } 
if(BgL_test3835z00_1386)
{ /* ./Globalize/free.scm 130 */
{ /* ./Globalize/free.scm 131 */
BgL_variablez00_bglt BgL_arg3837z00_1387;
BgL_arg3837z00_1387 = 
(((BgL_varz00_bglt)CREF(BgL_nodez00_1380))->BgL_variablez00); 
BGl_markzd2variablez12zc0zzglobaliza7e_freeza7(
(BgL_localz00_bglt)(BgL_arg3837z00_1387)); } 
{ /* ./Globalize/free.scm 132 */
BgL_variablez00_bglt BgL_arg3841z00_1388;
BgL_arg3841z00_1388 = 
(((BgL_varz00_bglt)CREF(BgL_nodez00_1380))->BgL_variablez00); 
{ /* ./Globalize/free.scm 132 */
obj_t BgL_auxz00_3845;
BgL_auxz00_3845 = 
(obj_t)(BgL_arg3841z00_1388); 
return 
MAKE_PAIR(BgL_auxz00_3845, BgL_freez00_1381);} } }  else 
{ /* ./Globalize/free.scm 130 */
return BgL_freez00_1381;} } } } } 
}



/* node-free */
obj_t BGl_nodezd2freezd2zzglobaliza7e_freeza7(BgL_nodez00_bglt BgL_nodez00_9, obj_t BgL_freez00_10)
{ AN_OBJECT;
{ /* ./Globalize/free.scm 119 */
{ /* ./Globalize/free.scm 119 */
obj_t BgL_method3092z00_2561;
{ /* ./Globalize/free.scm 119 */
BgL_objectz00_bglt BgL_objz00_2562;
BgL_objz00_2562 = 
(BgL_objectz00_bglt)(BgL_nodez00_9); 
{ /* ./Globalize/free.scm 119 */
long BgL_objzd2classzd2numz00_2563;
BgL_objzd2classzd2numz00_2563 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2562); 
{ /* ./Globalize/free.scm 119 */
obj_t BgL_arg2017z00_2564;
{ /* ./Globalize/free.scm 119 */
int BgL_auxz00_3851;
BgL_auxz00_3851 = 
(int)(((long)1)); 
BgL_arg2017z00_2564 = 
PROCEDURE_REF(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BgL_auxz00_3851); } 
{ /* ./Globalize/free.scm 119 */
int BgL_offsetz00_2567;
BgL_offsetz00_2567 = 
(int)(BgL_objzd2classzd2numz00_2563); 
{ /* ./Globalize/free.scm 119 */
long BgL_offsetz00_2568;
{ /* ./Globalize/free.scm 119 */
long BgL_auxz00_3855;
BgL_auxz00_3855 = 
(long)(BgL_offsetz00_2567); 
BgL_offsetz00_2568 = 
(BgL_auxz00_3855-OBJECT_TYPE); } 
{ /* ./Globalize/free.scm 119 */
long BgL_modz00_2569;
{ /* ./Globalize/free.scm 119 */
int BgL_arg2028z00_2570;
BgL_arg2028z00_2570 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 119 */
long BgL_n2z00_2578;
BgL_n2z00_2578 = 
(long)(BgL_arg2028z00_2570); 
BgL_modz00_2569 = 
(BgL_offsetz00_2568/BgL_n2z00_2578); } } 
{ /* ./Globalize/free.scm 119 */
long BgL_restz00_2571;
{ /* ./Globalize/free.scm 119 */
int BgL_arg2024z00_2572;
BgL_arg2024z00_2572 = 
(int)(((long)8)); 
{ /* ./Globalize/free.scm 119 */
long BgL_n2z00_2581;
BgL_n2z00_2581 = 
(long)(BgL_arg2024z00_2572); 
BgL_restz00_2571 = 
(BgL_offsetz00_2568%BgL_n2z00_2581); } } 
{ /* ./Globalize/free.scm 119 */

{ /* ./Globalize/free.scm 119 */
obj_t BgL_bucketz00_2573;
{ /* ./Globalize/free.scm 119 */
int BgL_kz00_2583;
BgL_kz00_2583 = 
(int)(BgL_modz00_2569); 
BgL_bucketz00_2573 = 
VECTOR_REF(BgL_arg2017z00_2564,BgL_kz00_2583); } 
{ /* ./Globalize/free.scm 119 */
int BgL_kz00_2585;
BgL_kz00_2585 = 
(int)(BgL_restz00_2571); 
BgL_method3092z00_2561 = 
VECTOR_REF(BgL_bucketz00_2573,BgL_kz00_2585); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3092z00_2561)(BgL_method3092z00_2561, 
(obj_t)(BgL_nodez00_9), BgL_freez00_10, BEOA);} } 
}



/* _node-free4280 */
obj_t BGl__nodezd2free4280zd2zzglobaliza7e_freeza7(obj_t BgL_envz00_2589, obj_t BgL_nodez00_2590, obj_t BgL_freez00_2591)
{ AN_OBJECT;
{ /* ./Globalize/free.scm 119 */
return 
BGl_nodezd2freezd2zzglobaliza7e_freeza7(
(BgL_nodez00_bglt)(BgL_nodez00_2590), BgL_freez00_2591);} 
}



/* _node-free-default3091 */
obj_t BGl__nodezd2freezd2default3091z00zzglobaliza7e_freeza7(obj_t BgL_envz00_2677, obj_t BgL_nodez00_2678, obj_t BgL_freez00_2679)
{ AN_OBJECT;
{ /* ./Globalize/free.scm 15 */
return BgL_freez00_2679;} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzglobaliza7e_freeza7()
{ AN_OBJECT;
{ /* ./Globalize/free.scm 15 */
BGl_modulezd2initializa7ationz75zztools_tracez00(((long)59211), "globalize_free"); 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "globalize_free"); 
BGl_modulezd2initializa7ationz75zztools_speekz00(((long)23537), "globalize_free"); 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "globalize_free"); 
BGl_modulezd2initializa7ationz75zztype_cachez00(((long)25848), "globalize_free"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "globalize_free"); 
BGl_modulezd2initializa7ationz75zzast_localz00(((long)28959), "globalize_free"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "globalize_free"); 
BGl_modulezd2initializa7ationz75zzast_sexpz00(((long)15705), "globalize_free"); 
BGl_modulezd2initializa7ationz75zzast_glozd2defzd2(((long)4795), "globalize_free"); 
BGl_modulezd2initializa7ationz75zzglobaliza7e_ginfoza7(((long)0), "globalize_free"); 
BGl_modulezd2initializa7ationz75zzglobaliza7e_nodeza7(((long)60835), "globalize_free"); 
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long)14260), "globalize_free"); 
return 
BGl_modulezd2initializa7ationz75zzglobaliza7e_globalzd2closurez75(((long)53871), "globalize_free");} 
}

