/*===========================================================================*/
/*   (Globalize/node.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/node.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_gloza2z12zb0zzglobaliza7e_nodeza7(obj_t, obj_t);
static obj_t BGl_methodzd2initzd2zzglobaliza7e_nodeza7();
BGL_IMPORT obj_t open_input_string(obj_t);
static BgL_appz00_bglt BGl_azd2procedurezd2setz12z12zzglobaliza7e_nodeza7(obj_t, obj_t, long, obj_t, BgL_variablez00_bglt);
BGL_IMPORT long BGl_classzd2numzd2zz__objectz00(obj_t);
extern obj_t BGl_letzd2funzd2zzast_nodez00;
static obj_t BGl__gloz12zd2default3121zc0zzglobaliza7e_nodeza7(obj_t, obj_t, obj_t);
static obj_t BGl_gloz12zd2jumpzd2exzd2it3161zc0zzglobaliza7e_nodeza7(obj_t, obj_t, obj_t);
extern BgL_letzd2varzd2_bglt BGl_makezd2letzd2varz00zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t, BgL_nodez00_bglt, bool_t);
extern obj_t BGl_findzd2globalzf2modulez20zzast_envz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
static obj_t BGl_gloz12zd2boxzd2ref3165z12zzglobaliza7e_nodeza7(obj_t, obj_t, obj_t);
extern BgL_atomz00_bglt BGl_makezd2atomzd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t);
static obj_t BGl_gloz12zd2boxzd2setz123167z00zzglobaliza7e_nodeza7(obj_t, obj_t, obj_t);
extern obj_t BGl_thezd2closurezd2zzglobaliza7e_freeza7(BgL_variablez00_bglt, obj_t);
BGL_IMPORT obj_t BGl_addzd2genericz12zc0zz__objectz00(obj_t, obj_t);
static obj_t BGl_gloz12zd2atom3125zc0zzglobaliza7e_nodeza7(obj_t, obj_t, obj_t);
extern obj_t BGl_letzd2varzd2zzast_nodez00;
static obj_t BGl_cellzd2formalszd2zzglobaliza7e_nodeza7(obj_t, BgL_nodez00_bglt);
extern obj_t BGl_kwotez00zzast_nodez00;
extern obj_t BGl_za2_za2z00zztype_cachez00;
extern obj_t BGl_globalz00zzast_varz00;
extern obj_t BGl_za2procedureza2z00zztype_cachez00;
static obj_t BGl__gloz124708z12zzglobaliza7e_nodeza7(obj_t, obj_t, obj_t);
static obj_t BGl_gloz12zd2conditional3149zc0zzglobaliza7e_nodeza7(obj_t, obj_t, obj_t);
static obj_t BGl_gloz12zd2select3153zc0zzglobaliza7e_nodeza7(obj_t, obj_t, obj_t);
static obj_t BGl_gloz12zd2app3137zc0zzglobaliza7e_nodeza7(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(obj_t);
static BgL_makezd2boxzd2_bglt BGl_azd2makezd2cellz00zzglobaliza7e_nodeza7(BgL_nodez00_bglt, BgL_variablez00_bglt);
extern obj_t BGl_castz00zzast_nodez00;
static obj_t BGl_gloz12zd2appzd2ly3139z12zzglobaliza7e_nodeza7(obj_t, obj_t, obj_t);
extern obj_t BGl_boxzd2refzd2zzast_nodez00;
extern obj_t BGl_varz00zzast_nodez00;
extern BgL_appz00_bglt BGl_makezd2appzd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_varz00_bglt, obj_t);
static obj_t BGl_cnstzd2initzd2zzglobaliza7e_nodeza7();
static obj_t BGl_gloz12zd2kwote3127zc0zzglobaliza7e_nodeza7(obj_t, obj_t, obj_t);
extern obj_t BGl_atomz00zzast_nodez00;
extern obj_t BGl_failz00zzast_nodez00;
extern obj_t BGl_funcallz00zzast_nodez00;
static obj_t BGl_gloz12zd2funcall3141zc0zzglobaliza7e_nodeza7(obj_t, obj_t, obj_t);
static obj_t BGl_gloz12zd2setq3147zc0zzglobaliza7e_nodeza7(obj_t, obj_t, obj_t);
static obj_t BGl_gloz12zd2closure3132zc0zzglobaliza7e_nodeza7(obj_t, obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzglobaliza7e_nodeza7();
extern obj_t BGl_makezd2boxzd2zzast_nodez00;
static obj_t BGl_gloz12zd2makezd2box3163z12zzglobaliza7e_nodeza7(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_selectz00zzast_nodez00;
static obj_t BGl_toplevelzd2initzd2zzglobaliza7e_nodeza7();
extern obj_t BGl_appzd2lyzd2zzast_nodez00;
extern BgL_sequencez00_bglt BGl_makezd2sequencezd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t);
extern obj_t BGl_boxzd2setz12zc0zzast_nodez00;
extern obj_t BGl_wideningzd2svarzf2Ginfoz20zzglobaliza7e_ginfoza7(bool_t, long, long, bool_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzglobaliza7e_nodeza7(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_tracez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_cachez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzglobaliza7e_ginfoza7(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_sexpz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_envz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_localz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzglobaliza7e_freeza7(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzglobaliza7e_localzd2ze3globalz96(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
static bool_t BGl_celledzf3zf3zzglobaliza7e_nodeza7(BgL_variablez00_bglt);
BGL_EXPORTED_DECL BgL_nodez00_bglt BGl_nodezd2globaliza7ez12z67zzglobaliza7e_nodeza7(BgL_nodez00_bglt, BgL_variablez00_bglt, obj_t);
BGL_IMPORT long bgl_list_length(obj_t);
static BgL_nodez00_bglt BGl_gloz12zd2default3121zc0zzglobaliza7e_nodeza7(BgL_nodez00_bglt, BgL_variablez00_bglt);
static BgL_appz00_bglt BGl_azd2makezd2procedurez00zzglobaliza7e_nodeza7(BgL_localz00_bglt);
static obj_t BGl_gloz12zd2cast3145zc0zzglobaliza7e_nodeza7(obj_t, obj_t, obj_t);
extern obj_t BGl_setzd2exzd2itz00zzast_nodez00;
static obj_t BGl_gloz12zd2letzd2fun3155z12zzglobaliza7e_nodeza7(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_gloz12zd2extern3143zc0zzglobaliza7e_nodeza7(obj_t, obj_t, obj_t);
static obj_t BGl_gloz12zd2setzd2exzd2it3159zc0zzglobaliza7e_nodeza7(obj_t, obj_t, obj_t);
extern obj_t BGl_jumpzd2exzd2itz00zzast_nodez00;
static obj_t BGl_globaliza7ezd2localzd2funz12zb5zzglobaliza7e_nodeza7(BgL_localz00_bglt, BgL_variablez00_bglt);
static obj_t BGl_gloz12zd2letzd2var3157z12zzglobaliza7e_nodeza7(obj_t, obj_t, obj_t);
extern obj_t BGl_externz00zzast_nodez00;
extern obj_t BGl_conditionalz00zzast_nodez00;
extern BgL_localz00_bglt BGl_makezd2localzd2svarz00zzast_localz00(obj_t, BgL_typez00_bglt);
extern BgL_boxzd2setz12zc0_bglt BGl_makezd2boxzd2setz12z12zzast_nodez00(obj_t, BgL_typez00_bglt, BgL_varz00_bglt, BgL_nodez00_bglt);
extern obj_t BGl_sequencez00zzast_nodez00;
static obj_t BGl_gloz12zd2var3130zc0zzglobaliza7e_nodeza7(obj_t, obj_t, obj_t);
static obj_t BGl_celledzd2bindingszd2zzglobaliza7e_nodeza7(obj_t);
static obj_t BGl_gloz12zd2sequence3135zc0zzglobaliza7e_nodeza7(obj_t, obj_t, obj_t);
extern obj_t BGl_appz00zzast_nodez00;
extern obj_t BGl_localz00zzast_varz00;
static obj_t BGl_makezd2setszd2zzglobaliza7e_nodeza7(obj_t, obj_t, obj_t, BgL_variablez00_bglt);
extern obj_t BGl_closurez00zzast_nodez00;
extern BgL_varz00_bglt BGl_makezd2varzd2zzast_nodez00(obj_t, BgL_typez00_bglt, BgL_variablez00_bglt);
extern BgL_makezd2boxzd2_bglt BGl_makezd2makezd2boxz00zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_nodez00_bglt);
BGL_IMPORT obj_t bgl_append2(obj_t, obj_t);
extern obj_t BGl_za2objza2z00zztype_cachez00;
static BgL_nodez00_bglt BGl_gloz12z12zzglobaliza7e_nodeza7(BgL_nodez00_bglt, BgL_variablez00_bglt);
extern BgL_globalz00_bglt BGl_thezd2globalzd2zzglobaliza7e_localzd2ze3globalz96(BgL_localz00_bglt);
extern obj_t BGl_svarzf2Ginfozf2zzglobaliza7e_ginfoza7;
static obj_t BGl_requirezd2initializa7ationz75zzglobaliza7e_nodeza7 = BUNSPEC;
static obj_t BGl__nodezd2globaliza7ez124706z67zzglobaliza7e_nodeza7(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_gloz12zd2fail3151zc0zzglobaliza7e_nodeza7(obj_t, obj_t, obj_t);
static BgL_letzd2varzd2_bglt BGl_makezd2escapingzd2bindingsz00zzglobaliza7e_nodeza7(obj_t, BgL_nodez00_bglt, BgL_variablez00_bglt);
static obj_t BGl_libraryzd2moduleszd2initz00zzglobaliza7e_nodeza7();
extern BgL_boxzd2refzd2_bglt BGl_makezd2boxzd2refz00zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_varz00_bglt);
extern obj_t BGl_setqz00zzast_nodez00;
static obj_t __cnst[ 9 ] ;


DEFINE_STATIC_PROCEDURE( BGl_proc5450z00zzglobaliza7e_nodeza7, BgL_bgl_gloza712za7d2kwote3127za7c0za7za7globaliza7a7e_nodeza7a75500za7, BGl_gloz12zd2kwote3127zc0zzglobaliza7e_nodeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc5449z00zzglobaliza7e_nodeza7, BgL_bgl_gloza712za7d2atom3125za7c0za7za7globaliza7a7e_nodeza7a75501za7, BGl_gloz12zd2atom3125zc0zzglobaliza7e_nodeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc5451z00zzglobaliza7e_nodeza7, BgL_bgl_gloza712za7d2var3130za7c0za7za7globaliza7a7e_nodeza7a75502za7, BGl_gloz12zd2var3130zc0zzglobaliza7e_nodeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc5452z00zzglobaliza7e_nodeza7, BgL_bgl_gloza712za7d2closure3132za7c0za7za7globaliza7a7e_nodeza7a75503za7, BGl_gloz12zd2closure3132zc0zzglobaliza7e_nodeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc5453z00zzglobaliza7e_nodeza7, BgL_bgl_gloza712za7d2sequence3135za7c0za7za7globaliza7a7e_nodeza7a75504za7, BGl_gloz12zd2sequence3135zc0zzglobaliza7e_nodeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc5454z00zzglobaliza7e_nodeza7, BgL_bgl_gloza712za7d2app3137za7c0za7za7globaliza7a7e_nodeza7a75505za7, BGl_gloz12zd2app3137zc0zzglobaliza7e_nodeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc5455z00zzglobaliza7e_nodeza7, BgL_bgl_gloza712za7d2appza7d2ly3139za712za7za7globaliza7a7e_nodeza7a75506z00, BGl_gloz12zd2appzd2ly3139z12zzglobaliza7e_nodeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc5456z00zzglobaliza7e_nodeza7, BgL_bgl_gloza712za7d2funcall3141za7c0za7za7globaliza7a7e_nodeza7a75507za7, BGl_gloz12zd2funcall3141zc0zzglobaliza7e_nodeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc5457z00zzglobaliza7e_nodeza7, BgL_bgl_gloza712za7d2extern3143za7c0za7za7globaliza7a7e_nodeza7a75508za7, BGl_gloz12zd2extern3143zc0zzglobaliza7e_nodeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc5458z00zzglobaliza7e_nodeza7, BgL_bgl_gloza712za7d2cast3145za7c0za7za7globaliza7a7e_nodeza7a75509za7, BGl_gloz12zd2cast3145zc0zzglobaliza7e_nodeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc5460z00zzglobaliza7e_nodeza7, BgL_bgl_gloza712za7d2conditional3149za7c0za7za7globaliza7a7e_nodeza7a75510za7, BGl_gloz12zd2conditional3149zc0zzglobaliza7e_nodeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc5459z00zzglobaliza7e_nodeza7, BgL_bgl_gloza712za7d2setq3147za7c0za7za7globaliza7a7e_nodeza7a75511za7, BGl_gloz12zd2setq3147zc0zzglobaliza7e_nodeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc5461z00zzglobaliza7e_nodeza7, BgL_bgl_gloza712za7d2fail3151za7c0za7za7globaliza7a7e_nodeza7a75512za7, BGl_gloz12zd2fail3151zc0zzglobaliza7e_nodeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc5462z00zzglobaliza7e_nodeza7, BgL_bgl_gloza712za7d2select3153za7c0za7za7globaliza7a7e_nodeza7a75513za7, BGl_gloz12zd2select3153zc0zzglobaliza7e_nodeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc5463z00zzglobaliza7e_nodeza7, BgL_bgl_gloza712za7d2letza7d2fun3155za712za7za7globaliza7a7e_nodeza7a75514z00, BGl_gloz12zd2letzd2fun3155z12zzglobaliza7e_nodeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc5464z00zzglobaliza7e_nodeza7, BgL_bgl_gloza712za7d2letza7d2var3157za712za7za7globaliza7a7e_nodeza7a75515z00, BGl_gloz12zd2letzd2var3157z12zzglobaliza7e_nodeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc5465z00zzglobaliza7e_nodeza7, BgL_bgl_gloza712za7d2setza7d2exza7d2it3159za7c0za7za7globaliza7a7e_nodeza7a75516za7, BGl_gloz12zd2setzd2exzd2it3159zc0zzglobaliza7e_nodeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc5466z00zzglobaliza7e_nodeza7, BgL_bgl_gloza712za7d2jumpza7d2exza7d2it3161za7c0za7za7globaliza7a7e_nodeza7a75517za7, BGl_gloz12zd2jumpzd2exzd2it3161zc0zzglobaliza7e_nodeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc5467z00zzglobaliza7e_nodeza7, BgL_bgl_gloza712za7d2makeza7d2box3163za712za7za7globaliza7a7e_nodeza7a75518z00, BGl_gloz12zd2makezd2box3163z12zzglobaliza7e_nodeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc5468z00zzglobaliza7e_nodeza7, BgL_bgl_gloza712za7d2boxza7d2ref3165za712za7za7globaliza7a7e_nodeza7a75519z00, BGl_gloz12zd2boxzd2ref3165z12zzglobaliza7e_nodeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc5469z00zzglobaliza7e_nodeza7, BgL_bgl_gloza712za7d2boxza7d2setza7123167za700za7za7globaliza7a7e_nodeza7a75520za7, BGl_gloz12zd2boxzd2setz123167z00zzglobaliza7e_nodeza7, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_nodezd2globaliza7ez12zd2envzb5zzglobaliza7e_nodeza7, BgL_bgl__nodeza7d2globaliza7a7eza7124706za767za7za7globaliza7a7e_nodeza7a75521z00, BGl__nodezd2globaliza7ez124706z67zzglobaliza7e_nodeza7, 0L, 3 );
DEFINE_STATIC_GENERIC( BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BgL_bgl__gloza7124708za712za7za7globaliza7a7e_nodeza7a75522z00, BGl__gloz124708z12zzglobaliza7e_nodeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_gloz12zd2default3121zd2envz12zzglobaliza7e_nodeza7, BgL_bgl__gloza712za7d2default3121za7c0za7za7globaliza7a7e_nodeza7a75523za7, BGl__gloz12zd2default3121zc0zzglobaliza7e_nodeza7, 0L, 2 );
DEFINE_STRING( BGl_string5471z00zzglobaliza7e_nodeza7, BgL_bgl_string5471za700za7za7globaliza7a7e_nodeza7a75524za7, "glo!-default3121 aux procedure-set! foreign make-va-procedure make-fx-procedure done (write cell-globalize) cell-globalize ", 123 );
DEFINE_STRING( BGl_string5470z00zzglobaliza7e_nodeza7, BgL_bgl_string5470za700za7za7globaliza7a7e_nodeza7a75525za7, "No method for this object", 25 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzglobaliza7e_nodeza7(long BgL_checksumz00_3131, char * BgL_fromz00_3132)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzglobaliza7e_nodeza7))
{ 
BGl_requirezd2initializa7ationz75zzglobaliza7e_nodeza7 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzglobaliza7e_nodeza7(); 
BGl_cnstzd2initzd2zzglobaliza7e_nodeza7(); 
BGl_importedzd2moduleszd2initz00zzglobaliza7e_nodeza7(); 
BGl_methodzd2initzd2zzglobaliza7e_nodeza7(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzglobaliza7e_nodeza7()
{ AN_OBJECT;
{ /* ./Globalize/node.scm 17 */
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "globalize_node"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "globalize_node"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "globalize_node"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzglobaliza7e_nodeza7()
{ AN_OBJECT;
{ /* ./Globalize/node.scm 17 */
{ /* ./Globalize/node.scm 17 */
obj_t BgL_cportz00_3116;
BgL_cportz00_3116 = 
open_input_string(BGl_string5471z00zzglobaliza7e_nodeza7); 
{ 
long BgL_iz00_3117;
BgL_iz00_3117 = ((long)8); 
BgL_loopz00_3118:
{ /* ./Globalize/node.scm 17 */
bool_t BgL_test5473z00_3119;
BgL_test5473z00_3119 = 
(BgL_iz00_3117==((long)-1)); 
if(BgL_test5473z00_3119)
{ /* ./Globalize/node.scm 17 */
return BUNSPEC;}  else 
{ /* ./Globalize/node.scm 17 */
{ /* ./Globalize/node.scm 17 */
obj_t BgL_arg5475z00_3120;
{ /* ./Globalize/node.scm 17 */
obj_t BgL_list5478z00_3121;
BgL_list5478z00_3121 = 
MAKE_PAIR(BgL_cportz00_3116, BNIL); 
BgL_arg5475z00_3120 = 
BGl_readz00zz__readerz00(BgL_list5478z00_3121); } 
{ /* ./Globalize/node.scm 17 */
int BgL_auxz00_3148;
BgL_auxz00_3148 = 
(int)(BgL_iz00_3117); 
CNST_TABLE_SET(BgL_auxz00_3148, BgL_arg5475z00_3120); } } 
{ /* ./Globalize/node.scm 17 */
int BgL_auxz00_3122;
{ /* ./Globalize/node.scm 17 */
long BgL_auxz00_3151;
BgL_auxz00_3151 = 
(BgL_iz00_3117-((long)1)); 
BgL_auxz00_3122 = 
(int)(BgL_auxz00_3151); } 
{ 
long BgL_iz00_3154;
BgL_iz00_3154 = 
(long)(BgL_auxz00_3122); 
BgL_iz00_3117 = BgL_iz00_3154; 
goto BgL_loopz00_3118;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzglobaliza7e_nodeza7()
{ AN_OBJECT;
{ /* ./Globalize/node.scm 17 */
return BUNSPEC;} 
}



/* node-globalize! */
BGL_EXPORTED_DEF BgL_nodez00_bglt BGl_nodezd2globaliza7ez12z67zzglobaliza7e_nodeza7(BgL_nodez00_bglt BgL_nodez00_1, BgL_variablez00_bglt BgL_integratorz00_2, obj_t BgL_whatzf2byza2z50_3)
{ AN_OBJECT;
{ /* ./Globalize/node.scm 38 */
{ /* ./Globalize/node.scm 41 */
BgL_valuez00_bglt BgL_funz00_864;
BgL_funz00_864 = 
(((BgL_variablez00_bglt)CREF(BgL_integratorz00_2))->BgL_valuez00); 
{ /* ./Globalize/node.scm 41 */
obj_t BgL_celledz00_865;
{ /* ./Globalize/node.scm 42 */
obj_t BgL_arg3201z00_882;
{ /* ./Globalize/node.scm 42 */
BgL_sfunz00_bglt BgL_obj1367z00_1816;
BgL_obj1367z00_1816 = 
(BgL_sfunz00_bglt)(BgL_funz00_864); 
BgL_arg3201z00_882 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1367z00_1816))->BgL_argsz00); } 
BgL_celledz00_865 = 
BGl_celledzd2bindingszd2zzglobaliza7e_nodeza7(BgL_arg3201z00_882); } 
{ /* ./Globalize/node.scm 42 */
obj_t BgL_whatzf2byza2z50_866;
BgL_whatzf2byza2z50_866 = 
bgl_append2(BgL_celledz00_865, BgL_whatzf2byza2z50_3); 
{ /* ./Globalize/node.scm 43 */

{ 
obj_t BgL_l3035z00_867;
BgL_l3035z00_867 = BgL_whatzf2byza2z50_866; 
BgL_forzd2each3036zd2_868:
{ /* ./Globalize/node.scm 45 */
bool_t BgL_test3169z00_869;
BgL_test3169z00_869 = 
PAIRP(BgL_l3035z00_867); 
if(BgL_test3169z00_869)
{ /* ./Globalize/node.scm 45 */
{ /* ./Globalize/node.scm 46 */
obj_t BgL_wze2bze2_870;
BgL_wze2bze2_870 = 
CAR(BgL_l3035z00_867); 
{ /* ./Globalize/node.scm 46 */
obj_t BgL_arg3171z00_871;obj_t BgL_arg3172z00_872;
BgL_arg3171z00_871 = 
CAR(BgL_wze2bze2_870); 
BgL_arg3172z00_872 = 
CDR(BgL_wze2bze2_870); 
{ /* ./Globalize/node.scm 46 */
BgL_variablez00_bglt BgL_obj1108z00_1821;obj_t BgL_val1107z00_1822;
BgL_obj1108z00_1821 = 
(BgL_variablez00_bglt)(BgL_arg3171z00_871); 
BgL_val1107z00_1822 = BgL_arg3172z00_872; 
((((BgL_variablez00_bglt)CREF(BgL_obj1108z00_1821))->BgL_fastzd2alphazd2) = ((obj_t)BgL_val1107z00_1822), BUNSPEC); } } } 
{ /* ./Globalize/node.scm 45 */
obj_t BgL_arg3178z00_873;
BgL_arg3178z00_873 = 
CDR(BgL_l3035z00_867); 
{ 
obj_t BgL_l3035z00_3169;
BgL_l3035z00_3169 = BgL_arg3178z00_873; 
BgL_l3035z00_867 = BgL_l3035z00_3169; 
goto BgL_forzd2each3036zd2_868;} } }  else 
{ /* ./Globalize/node.scm 45 */((bool_t)1); } } } 
{ /* ./Globalize/node.scm 48 */
obj_t BgL_resz00_874;
{ /* ./Globalize/node.scm 48 */
BgL_nodez00_bglt BgL_arg3195z00_881;
{ /* ./Globalize/node.scm 48 */
BgL_nodez00_bglt BgL_res4609z00_1851;
{ /* ./Globalize/node.scm 48 */
obj_t BgL_method3122z00_1826;
{ /* ./Globalize/node.scm 48 */
BgL_objectz00_bglt BgL_objz00_1827;
BgL_objz00_1827 = 
(BgL_objectz00_bglt)(BgL_nodez00_1); 
{ /* ./Globalize/node.scm 48 */
long BgL_objzd2classzd2numz00_1828;
BgL_objzd2classzd2numz00_1828 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1827); 
{ /* ./Globalize/node.scm 48 */
obj_t BgL_arg2017z00_1829;
{ /* ./Globalize/node.scm 48 */
int BgL_auxz00_3172;
BgL_auxz00_3172 = 
(int)(((long)1)); 
BgL_arg2017z00_1829 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BgL_auxz00_3172); } 
{ /* ./Globalize/node.scm 48 */
int BgL_offsetz00_1832;
BgL_offsetz00_1832 = 
(int)(BgL_objzd2classzd2numz00_1828); 
{ /* ./Globalize/node.scm 48 */
long BgL_offsetz00_1833;
{ /* ./Globalize/node.scm 48 */
long BgL_auxz00_3176;
BgL_auxz00_3176 = 
(long)(BgL_offsetz00_1832); 
BgL_offsetz00_1833 = 
(BgL_auxz00_3176-OBJECT_TYPE); } 
{ /* ./Globalize/node.scm 48 */
long BgL_modz00_1834;
{ /* ./Globalize/node.scm 48 */
int BgL_arg2028z00_1835;
BgL_arg2028z00_1835 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 48 */
long BgL_n2z00_1843;
BgL_n2z00_1843 = 
(long)(BgL_arg2028z00_1835); 
BgL_modz00_1834 = 
(BgL_offsetz00_1833/BgL_n2z00_1843); } } 
{ /* ./Globalize/node.scm 48 */
long BgL_restz00_1836;
{ /* ./Globalize/node.scm 48 */
int BgL_arg2024z00_1837;
BgL_arg2024z00_1837 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 48 */
long BgL_n2z00_1846;
BgL_n2z00_1846 = 
(long)(BgL_arg2024z00_1837); 
BgL_restz00_1836 = 
(BgL_offsetz00_1833%BgL_n2z00_1846); } } 
{ /* ./Globalize/node.scm 48 */

{ /* ./Globalize/node.scm 48 */
obj_t BgL_bucketz00_1838;
{ /* ./Globalize/node.scm 48 */
int BgL_kz00_1848;
BgL_kz00_1848 = 
(int)(BgL_modz00_1834); 
BgL_bucketz00_1838 = 
VECTOR_REF(BgL_arg2017z00_1829,BgL_kz00_1848); } 
{ /* ./Globalize/node.scm 48 */
int BgL_kz00_1850;
BgL_kz00_1850 = 
(int)(BgL_restz00_1836); 
BgL_method3122z00_1826 = 
VECTOR_REF(BgL_bucketz00_1838,BgL_kz00_1850); } } } } } } } } } } 
{ /* ./Globalize/node.scm 48 */
obj_t BgL_auxz00_3189;
BgL_auxz00_3189 = 
PROCEDURE_ENTRY(BgL_method3122z00_1826)(BgL_method3122z00_1826, 
(obj_t)(BgL_nodez00_1), 
(obj_t)(BgL_integratorz00_2), BEOA); 
BgL_res4609z00_1851 = 
(BgL_nodez00_bglt)(BgL_auxz00_3189); } } 
BgL_arg3195z00_881 = BgL_res4609z00_1851; } 
BgL_resz00_874 = 
BGl_cellzd2formalszd2zzglobaliza7e_nodeza7(BgL_celledz00_865, BgL_arg3195z00_881); } 
{ 
obj_t BgL_l3037z00_875;
BgL_l3037z00_875 = BgL_whatzf2byza2z50_866; 
BgL_forzd2each3038zd2_876:
{ /* ./Globalize/node.scm 50 */
bool_t BgL_test3183z00_877;
BgL_test3183z00_877 = 
PAIRP(BgL_l3037z00_875); 
if(BgL_test3183z00_877)
{ /* ./Globalize/node.scm 50 */
{ /* ./Globalize/node.scm 51 */
obj_t BgL_wze2bze2_878;
BgL_wze2bze2_878 = 
CAR(BgL_l3037z00_875); 
{ /* ./Globalize/node.scm 51 */
obj_t BgL_arg3185z00_879;
BgL_arg3185z00_879 = 
CAR(BgL_wze2bze2_878); 
{ /* ./Globalize/node.scm 51 */
BgL_variablez00_bglt BgL_obj1108z00_1855;obj_t BgL_val1107z00_1856;
BgL_obj1108z00_1855 = 
(BgL_variablez00_bglt)(BgL_arg3185z00_879); 
BgL_val1107z00_1856 = BUNSPEC; 
((((BgL_variablez00_bglt)CREF(BgL_obj1108z00_1855))->BgL_fastzd2alphazd2) = ((obj_t)BgL_val1107z00_1856), BUNSPEC); } } } 
{ /* ./Globalize/node.scm 50 */
obj_t BgL_arg3190z00_880;
BgL_arg3190z00_880 = 
CDR(BgL_l3037z00_875); 
{ 
obj_t BgL_l3037z00_3203;
BgL_l3037z00_3203 = BgL_arg3190z00_880; 
BgL_l3037z00_875 = BgL_l3037z00_3203; 
goto BgL_forzd2each3038zd2_876;} } }  else 
{ /* ./Globalize/node.scm 50 */((bool_t)1); } } } 
return 
(BgL_nodez00_bglt)(BgL_resz00_874);} } } } } } 
}



/* _node-globalize!4706 */
obj_t BGl__nodezd2globaliza7ez124706z67zzglobaliza7e_nodeza7(obj_t BgL_envz00_3022, obj_t BgL_nodez00_3023, obj_t BgL_integratorz00_3024, obj_t BgL_whatzf2byza2z50_3025)
{ AN_OBJECT;
{ /* ./Globalize/node.scm 38 */
{ /* ./Globalize/node.scm 41 */
BgL_nodez00_bglt BgL_auxz00_3205;
BgL_auxz00_3205 = 
BGl_nodezd2globaliza7ez12z67zzglobaliza7e_nodeza7(
(BgL_nodez00_bglt)(BgL_nodez00_3023), 
(BgL_variablez00_bglt)(BgL_integratorz00_3024), BgL_whatzf2byza2z50_3025); 
return 
(obj_t)(BgL_auxz00_3205);} } 
}



/* celled-bindings */
obj_t BGl_celledzd2bindingszd2zzglobaliza7e_nodeza7(obj_t BgL_formalsz00_4)
{ AN_OBJECT;
{ /* ./Globalize/node.scm 58 */
{ 
obj_t BgL_celledz00_883;obj_t BgL_formalsz00_884;
BgL_celledz00_883 = BNIL; 
BgL_formalsz00_884 = BgL_formalsz00_4; 
BgL_loopz00_885:
{ /* ./Globalize/node.scm 62 */
bool_t BgL_test3206z00_886;
BgL_test3206z00_886 = 
NULLP(BgL_formalsz00_884); 
if(BgL_test3206z00_886)
{ /* ./Globalize/node.scm 62 */
return BgL_celledz00_883;}  else 
{ /* ./Globalize/node.scm 64 */
bool_t BgL_test3207z00_887;
{ /* ./Globalize/node.scm 64 */
BgL_variablez00_bglt BgL_auxz00_3212;
{ /* ./Globalize/node.scm 64 */
obj_t BgL_auxz00_3213;
BgL_auxz00_3213 = 
CAR(BgL_formalsz00_884); 
BgL_auxz00_3212 = 
(BgL_variablez00_bglt)(BgL_auxz00_3213); } 
BgL_test3207z00_887 = 
BGl_celledzf3zf3zzglobaliza7e_nodeza7(BgL_auxz00_3212); } 
if(BgL_test3207z00_887)
{ /* ./Globalize/node.scm 64 */
{ /* ./Globalize/node.scm 67 */
BgL_localz00_bglt BgL_varz00_888;
{ /* ./Globalize/node.scm 67 */
obj_t BgL_arg3242z00_902;
{ /* ./Globalize/node.scm 67 */
BgL_variablez00_bglt BgL_obj1093z00_1861;
{ /* ./Globalize/node.scm 67 */
obj_t BgL_auxz00_3218;
BgL_auxz00_3218 = 
CAR(BgL_formalsz00_884); 
BgL_obj1093z00_1861 = 
(BgL_variablez00_bglt)(BgL_auxz00_3218); } 
BgL_arg3242z00_902 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1093z00_1861))->BgL_idz00); } 
BgL_varz00_888 = 
BGl_makezd2localzd2svarz00zzast_localz00(BgL_arg3242z00_902, 
(BgL_typez00_bglt)(BGl_za2objza2z00zztype_cachez00)); } 
{ /* ./Globalize/node.scm 67 */
obj_t BgL_oze2nze2_889;
{ /* ./Globalize/node.scm 68 */
obj_t BgL_arg3238z00_901;
BgL_arg3238z00_901 = 
CAR(BgL_formalsz00_884); 
{ /* ./Globalize/node.scm 68 */
obj_t BgL_auxz00_3225;
BgL_auxz00_3225 = 
(obj_t)(BgL_varz00_888); 
BgL_oze2nze2_889 = 
MAKE_PAIR(BgL_arg3238z00_901, BgL_auxz00_3225); } } 
{ /* ./Globalize/node.scm 68 */

{ /* ./Globalize/node.scm 69 */
BgL_variablez00_bglt BgL_obj1105z00_1863;obj_t BgL_val1104z00_1864;
BgL_obj1105z00_1863 = 
(BgL_variablez00_bglt)(BgL_varz00_888); 
BgL_val1104z00_1864 = 
CNST_TABLE_REF(((long)0)); 
((((BgL_variablez00_bglt)CREF(BgL_obj1105z00_1863))->BgL_accessz00) = ((obj_t)BgL_val1104z00_1864), BUNSPEC); } 
{ /* ./Globalize/node.scm 70 */
bool_t BgL_arg3210z00_890;
{ /* ./Globalize/node.scm 70 */
BgL_localz00_bglt BgL_obj1263z00_1866;
{ /* ./Globalize/node.scm 70 */
obj_t BgL_auxz00_3231;
BgL_auxz00_3231 = 
CAR(BgL_formalsz00_884); 
BgL_obj1263z00_1866 = 
(BgL_localz00_bglt)(BgL_auxz00_3231); } 
BgL_arg3210z00_890 = 
(((BgL_localz00_bglt)CREF(BgL_obj1263z00_1866))->BgL_userzf3zf3); } 
{ /* ./Globalize/node.scm 70 */
BgL_localz00_bglt BgL_obj1265z00_1867;bool_t BgL_val1264z00_1868;
BgL_obj1265z00_1867 = BgL_varz00_888; 
BgL_val1264z00_1868 = BgL_arg3210z00_890; 
((((BgL_localz00_bglt)CREF(BgL_obj1265z00_1867))->BgL_userzf3zf3) = ((bool_t)BgL_val1264z00_1868), BUNSPEC); } } 
{ /* ./Globalize/node.scm 71 */
BgL_svarz00_bglt BgL_obj3039z00_892;
{ 
BgL_svarz00_bglt BgL_auxz00_3236;
{ /* ./Globalize/node.scm 71 */
BgL_valuez00_bglt BgL_auxz00_3237;
{ /* ./Globalize/node.scm 71 */
BgL_variablez00_bglt BgL_obj1100z00_3123;
BgL_obj1100z00_3123 = 
(BgL_variablez00_bglt)(BgL_varz00_888); 
BgL_auxz00_3237 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_3123))->BgL_valuez00); } 
BgL_auxz00_3236 = 
(BgL_svarz00_bglt)(BgL_auxz00_3237); } 
BgL_obj3039z00_892 = 
((BgL_svarz00_bglt)BgL_auxz00_3236); } 
{ /* ./Globalize/node.scm 73 */
obj_t BgL_arg3217z00_893;
{ /* ./Globalize/node.scm 73 */
bool_t BgL_arg3220z00_894;bool_t BgL_arg3223z00_897;
BgL_arg3220z00_894 = ((bool_t)1); 
BgL_arg3223z00_897 = ((bool_t)1); 
BgL_arg3217z00_893 = 
BGl_wideningzd2svarzf2Ginfoz20zzglobaliza7e_ginfoza7(BgL_arg3220z00_894, ((long)-10), ((long)-10), BgL_arg3223z00_897); } 
{ /* ./Globalize/node.scm 71 */
BgL_objectz00_bglt BgL_auxz00_3243;
BgL_auxz00_3243 = 
(BgL_objectz00_bglt)(BgL_obj3039z00_892); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3243, BgL_arg3217z00_893); } } 
{ /* ./Globalize/node.scm 71 */
long BgL_arg3226z00_898;
BgL_arg3226z00_898 = 
BGl_classzd2numzd2zz__objectz00(BGl_svarzf2Ginfozf2zzglobaliza7e_ginfoza7); 
{ /* ./Globalize/node.scm 71 */
BgL_objectz00_bglt BgL_objz00_1870;
BgL_objz00_1870 = 
(BgL_objectz00_bglt)(BgL_obj3039z00_892); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1870, BgL_arg3226z00_898); } } 
{ /* ./Globalize/node.scm 71 */
obj_t BgL_objz00_1872;
BgL_objz00_1872 = 
(obj_t)(BgL_obj3039z00_892); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_1872); BUNSPEC; } BgL_obj3039z00_892; } 
{ /* ./Globalize/node.scm 74 */
obj_t BgL_arg3232z00_899;obj_t BgL_arg3233z00_900;
BgL_arg3232z00_899 = 
MAKE_PAIR(BgL_oze2nze2_889, BgL_celledz00_883); 
BgL_arg3233z00_900 = 
CDR(BgL_formalsz00_884); 
{ 
obj_t BgL_formalsz00_3254;obj_t BgL_celledz00_3253;
BgL_celledz00_3253 = BgL_arg3232z00_899; 
BgL_formalsz00_3254 = BgL_arg3233z00_900; 
BgL_formalsz00_884 = BgL_formalsz00_3254; 
BgL_celledz00_883 = BgL_celledz00_3253; 
goto BgL_loopz00_885;} } } } } }  else 
{ /* ./Globalize/node.scm 64 */
{ /* ./Globalize/node.scm 65 */
obj_t BgL_arg3249z00_904;
BgL_arg3249z00_904 = 
CDR(BgL_formalsz00_884); 
{ 
obj_t BgL_formalsz00_3256;
BgL_formalsz00_3256 = BgL_arg3249z00_904; 
BgL_formalsz00_884 = BgL_formalsz00_3256; 
goto BgL_loopz00_885;} } } } } } } 
}



/* cell-formals */
obj_t BGl_cellzd2formalszd2zzglobaliza7e_nodeza7(obj_t BgL_celledz00_5, BgL_nodez00_bglt BgL_bodyz00_6)
{ AN_OBJECT;
{ /* ./Globalize/node.scm 79 */
{ /* ./Globalize/node.scm 80 */
bool_t BgL_test3257z00_906;
BgL_test3257z00_906 = 
NULLP(BgL_celledz00_5); 
if(BgL_test3257z00_906)
{ /* ./Globalize/node.scm 80 */
return 
(obj_t)(BgL_bodyz00_6);}  else 
{ /* ./Globalize/node.scm 82 */
obj_t BgL_locz00_907;
BgL_locz00_907 = 
(((BgL_nodez00_bglt)CREF(BgL_bodyz00_6))->BgL_locz00); 
{ /* ./Globalize/node.scm 84 */
obj_t BgL_arg3259z00_908;obj_t BgL_arg3260z00_909;obj_t BgL_arg3262z00_911;BgL_nodez00_bglt BgL_arg3263z00_912;
BgL_arg3259z00_908 = BgL_locz00_907; 
BgL_arg3260z00_909 = BGl_za2_za2z00zztype_cachez00; 
if(BgL_test3257z00_906)
{ /* ./Globalize/node.scm 87 */
BgL_arg3262z00_911 = BNIL; }  else 
{ /* ./Globalize/node.scm 87 */
obj_t BgL_head3043z00_915;
BgL_head3043z00_915 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l3041z00_916;obj_t BgL_tail3044z00_917;
BgL_l3041z00_916 = BgL_celledz00_5; 
BgL_tail3044z00_917 = BgL_head3043z00_915; 
BgL_map3042z00_918:
{ /* ./Globalize/node.scm 87 */
bool_t BgL_test3267z00_919;
BgL_test3267z00_919 = 
NULLP(BgL_l3041z00_916); 
if(BgL_test3267z00_919)
{ /* ./Globalize/node.scm 87 */
BgL_arg3262z00_911 = 
CDR(BgL_head3043z00_915); }  else 
{ /* ./Globalize/node.scm 88 */
obj_t BgL_newtail3045z00_920;
{ /* ./Globalize/node.scm 88 */
obj_t BgL_arg3276z00_922;
{ /* ./Globalize/node.scm 88 */
obj_t BgL_oze2nze2_924;
BgL_oze2nze2_924 = 
CAR(BgL_l3041z00_916); 
{ /* ./Globalize/node.scm 88 */
obj_t BgL_arg3280z00_925;BgL_makezd2boxzd2_bglt BgL_arg3281z00_926;
BgL_arg3280z00_925 = 
CDR(BgL_oze2nze2_924); 
{ /* ./Globalize/node.scm 91 */
BgL_varz00_bglt BgL_arg3285z00_927;obj_t BgL_arg3286z00_928;
{ /* ./Globalize/node.scm 91 */
obj_t BgL_arg3289z00_929;obj_t BgL_arg3290z00_930;obj_t BgL_arg3291z00_931;
BgL_arg3289z00_929 = BgL_locz00_907; 
BgL_arg3290z00_930 = BGl_za2_za2z00zztype_cachez00; 
BgL_arg3291z00_931 = 
CAR(BgL_oze2nze2_924); 
BgL_arg3285z00_927 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3289z00_929, 
(BgL_typez00_bglt)(BgL_arg3290z00_930), 
(BgL_variablez00_bglt)(BgL_arg3291z00_931)); } 
BgL_arg3286z00_928 = 
CAR(BgL_oze2nze2_924); 
BgL_arg3281z00_926 = 
BGl_azd2makezd2cellz00zzglobaliza7e_nodeza7(
(BgL_nodez00_bglt)(BgL_arg3285z00_927), 
(BgL_variablez00_bglt)(BgL_arg3286z00_928)); } 
{ /* ./Globalize/node.scm 88 */
obj_t BgL_auxz00_3276;
BgL_auxz00_3276 = 
(obj_t)(BgL_arg3281z00_926); 
BgL_arg3276z00_922 = 
MAKE_PAIR(BgL_arg3280z00_925, BgL_auxz00_3276); } } } 
BgL_newtail3045z00_920 = 
MAKE_PAIR(BgL_arg3276z00_922, BNIL); } 
SET_CDR(BgL_tail3044z00_917, BgL_newtail3045z00_920); 
{ /* ./Globalize/node.scm 87 */
obj_t BgL_arg3272z00_921;
BgL_arg3272z00_921 = 
CDR(BgL_l3041z00_916); 
{ 
obj_t BgL_tail3044z00_3283;obj_t BgL_l3041z00_3282;
BgL_l3041z00_3282 = BgL_arg3272z00_921; 
BgL_tail3044z00_3283 = BgL_newtail3045z00_920; 
BgL_tail3044z00_917 = BgL_tail3044z00_3283; 
BgL_l3041z00_916 = BgL_l3041z00_3282; 
goto BgL_map3042z00_918;} } } } } } 
BgL_arg3263z00_912 = BgL_bodyz00_6; 
{ /* ./Globalize/node.scm 83 */
BgL_letzd2varzd2_bglt BgL_auxz00_3284;
BgL_auxz00_3284 = 
BGl_makezd2letzd2varz00zzast_nodez00(BgL_arg3259z00_908, 
(BgL_typez00_bglt)(BgL_arg3260z00_909), BUNSPEC, 
BINT(((long)-1)), BgL_arg3262z00_911, BgL_arg3263z00_912, ((bool_t)1)); 
return 
(obj_t)(BgL_auxz00_3284);} } } } } 
}



/* a-make-cell */
BgL_makezd2boxzd2_bglt BGl_azd2makezd2cellz00zzglobaliza7e_nodeza7(BgL_nodez00_bglt BgL_nodez00_7, BgL_variablez00_bglt BgL_variablez00_8)
{ AN_OBJECT;
{ /* ./Globalize/node.scm 99 */
{ /* ./Globalize/node.scm 101 */
BgL_variablez00_bglt BgL_obj1105z00_1891;obj_t BgL_val1104z00_1892;
BgL_obj1105z00_1891 = BgL_variablez00_8; 
BgL_val1104z00_1892 = 
CNST_TABLE_REF(((long)0)); 
((((BgL_variablez00_bglt)CREF(BgL_obj1105z00_1891))->BgL_accessz00) = ((obj_t)BgL_val1104z00_1892), BUNSPEC); } 
{ /* ./Globalize/node.scm 102 */
BgL_valuez00_bglt BgL_arg3303z00_933;
BgL_arg3303z00_933 = 
(((BgL_variablez00_bglt)CREF(BgL_variablez00_8))->BgL_valuez00); 
{ /* ./Globalize/node.scm 102 */
BgL_svarzf2ginfozf2_bglt BgL_obj2867z00_1894;bool_t BgL_val2866z00_1895;
BgL_obj2867z00_1894 = 
(BgL_svarzf2ginfozf2_bglt)(BgL_arg3303z00_933); 
BgL_val2866z00_1895 = ((bool_t)1); 
{ 
obj_t BgL_auxz00_3293;
{ /* ./Globalize/node.scm 102 */
BgL_objectz00_bglt BgL_auxz00_3294;
BgL_auxz00_3294 = 
(BgL_objectz00_bglt)(BgL_obj2867z00_1894); 
BgL_auxz00_3293 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3294); } 
((((BgL_svarzf2ginfozf2_bglt)CREF(BgL_auxz00_3293))->BgL_celledzf3zf3) = ((bool_t)BgL_val2866z00_1895), BUNSPEC); } } } 
{ /* ./Globalize/node.scm 103 */
obj_t BgL_arg3307z00_934;obj_t BgL_arg3308z00_935;BgL_nodez00_bglt BgL_arg3310z00_937;
BgL_arg3307z00_934 = 
(((BgL_nodez00_bglt)CREF(BgL_nodez00_7))->BgL_locz00); 
BgL_arg3308z00_935 = BGl_za2_za2z00zztype_cachez00; 
BgL_arg3310z00_937 = BgL_nodez00_7; 
return 
BGl_makezd2makezd2boxz00zzast_nodez00(BgL_arg3307z00_934, 
(BgL_typez00_bglt)(BgL_arg3308z00_935), BUNSPEC, 
BINT(((long)-1)), BgL_arg3310z00_937);} } 
}



/* celled? */
bool_t BGl_celledzf3zf3zzglobaliza7e_nodeza7(BgL_variablez00_bglt BgL_variablez00_9)
{ AN_OBJECT;
{ /* ./Globalize/node.scm 108 */
{ /* ./Globalize/node.scm 109 */
bool_t BgL__andtest_3050z00_938;
{ /* ./Globalize/node.scm 109 */
obj_t BgL_obj1300z00_1897;
BgL_obj1300z00_1897 = 
(obj_t)(BgL_variablez00_9); 
BgL__andtest_3050z00_938 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1300z00_1897, BGl_localz00zzast_varz00); } 
if(BgL__andtest_3050z00_938)
{ /* ./Globalize/node.scm 110 */
bool_t BgL__andtest_3051z00_939;
{ /* ./Globalize/node.scm 110 */
BgL_valuez00_bglt BgL_arg3328z00_946;
BgL_arg3328z00_946 = 
(((BgL_variablez00_bglt)CREF(BgL_variablez00_9))->BgL_valuez00); 
{ /* ./Globalize/node.scm 110 */
obj_t BgL_obj2855z00_1899;
BgL_obj2855z00_1899 = 
(obj_t)(BgL_arg3328z00_946); 
BgL__andtest_3051z00_939 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2855z00_1899, BGl_svarzf2Ginfozf2zzglobaliza7e_ginfoza7); } } 
if(BgL__andtest_3051z00_939)
{ /* ./Globalize/node.scm 111 */
bool_t BgL__ortest_3052z00_940;
{ /* ./Globalize/node.scm 111 */
BgL_svarzf2ginfozf2_bglt BgL_obj2865z00_1901;
{ /* ./Globalize/node.scm 111 */
BgL_valuez00_bglt BgL_auxz00_3309;
BgL_auxz00_3309 = 
(((BgL_variablez00_bglt)CREF(BgL_variablez00_9))->BgL_valuez00); 
BgL_obj2865z00_1901 = 
(BgL_svarzf2ginfozf2_bglt)(BgL_auxz00_3309); } 
{ 
obj_t BgL_auxz00_3312;
{ /* ./Globalize/node.scm 111 */
BgL_objectz00_bglt BgL_auxz00_3313;
BgL_auxz00_3313 = 
(BgL_objectz00_bglt)(BgL_obj2865z00_1901); 
BgL_auxz00_3312 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3313); } 
BgL__ortest_3052z00_940 = 
(((BgL_svarzf2ginfozf2_bglt)CREF(BgL_auxz00_3312))->BgL_celledzf3zf3); } } 
if(BgL__ortest_3052z00_940)
{ /* ./Globalize/node.scm 111 */
return BgL__ortest_3052z00_940;}  else 
{ /* ./Globalize/node.scm 112 */
bool_t BgL_testz00_3318;
{ /* ./Globalize/node.scm 112 */
obj_t BgL_auxz00_3319;
BgL_auxz00_3319 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
(((BgL_variablez00_bglt)CREF(BgL_variablez00_9))->BgL_accessz00), 
CNST_TABLE_REF(((long)1))); 
BgL_testz00_3318 = 
CBOOL(BgL_auxz00_3319); } 
if(BgL_testz00_3318)
{ /* ./Globalize/node.scm 113 */
BgL_svarzf2ginfozf2_bglt BgL_obj2856z00_1904;
{ /* ./Globalize/node.scm 113 */
BgL_valuez00_bglt BgL_auxz00_3324;
BgL_auxz00_3324 = 
(((BgL_variablez00_bglt)CREF(BgL_variablez00_9))->BgL_valuez00); 
BgL_obj2856z00_1904 = 
(BgL_svarzf2ginfozf2_bglt)(BgL_auxz00_3324); } 
{ 
obj_t BgL_auxz00_3327;
{ /* ./Globalize/node.scm 113 */
BgL_objectz00_bglt BgL_auxz00_3328;
BgL_auxz00_3328 = 
(BgL_objectz00_bglt)(BgL_obj2856z00_1904); 
BgL_auxz00_3327 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3328); } 
return 
(((BgL_svarzf2ginfozf2_bglt)CREF(BgL_auxz00_3327))->BgL_kapturedzf3zf3);} }  else 
{ /* ./Globalize/node.scm 112 */
return ((bool_t)0);} } }  else 
{ /* ./Globalize/node.scm 110 */
return ((bool_t)0);} }  else 
{ /* ./Globalize/node.scm 109 */
return ((bool_t)0);} } } 
}



/* glo*! */
obj_t BGl_gloza2z12zb0zzglobaliza7e_nodeza7(obj_t BgL_nodeza2za2_56, obj_t BgL_integratorz00_57)
{ AN_OBJECT;
{ /* ./Globalize/node.scm 440 */
{ 
obj_t BgL_nodeza2za2_947;
BgL_nodeza2za2_947 = BgL_nodeza2za2_56; 
BgL_loopz00_948:
{ /* ./Globalize/node.scm 442 */
bool_t BgL_test3333z00_949;
BgL_test3333z00_949 = 
NULLP(BgL_nodeza2za2_947); 
if(BgL_test3333z00_949)
{ /* ./Globalize/node.scm 442 */
return 
CNST_TABLE_REF(((long)2));}  else 
{ /* ./Globalize/node.scm 442 */
{ /* ./Globalize/node.scm 445 */
BgL_nodez00_bglt BgL_arg3335z00_950;
{ /* ./Globalize/node.scm 445 */
obj_t BgL_arg3338z00_951;
BgL_arg3338z00_951 = 
CAR(BgL_nodeza2za2_947); 
{ /* ./Globalize/node.scm 445 */
BgL_nodez00_bglt BgL_res4612z00_1934;
{ /* ./Globalize/node.scm 445 */
BgL_nodez00_bglt BgL_nodez00_1907;BgL_variablez00_bglt BgL_integratorz00_1908;
BgL_nodez00_1907 = 
(BgL_nodez00_bglt)(BgL_arg3338z00_951); 
BgL_integratorz00_1908 = 
(BgL_variablez00_bglt)(BgL_integratorz00_57); 
{ /* ./Globalize/node.scm 445 */
obj_t BgL_method3122z00_1909;
{ /* ./Globalize/node.scm 445 */
BgL_objectz00_bglt BgL_objz00_1910;
BgL_objz00_1910 = 
(BgL_objectz00_bglt)(BgL_nodez00_1907); 
{ /* ./Globalize/node.scm 445 */
long BgL_objzd2classzd2numz00_1911;
BgL_objzd2classzd2numz00_1911 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1910); 
{ /* ./Globalize/node.scm 445 */
obj_t BgL_arg2017z00_1912;
{ /* ./Globalize/node.scm 445 */
int BgL_auxz00_3340;
BgL_auxz00_3340 = 
(int)(((long)1)); 
BgL_arg2017z00_1912 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BgL_auxz00_3340); } 
{ /* ./Globalize/node.scm 445 */
int BgL_offsetz00_1915;
BgL_offsetz00_1915 = 
(int)(BgL_objzd2classzd2numz00_1911); 
{ /* ./Globalize/node.scm 445 */
long BgL_offsetz00_1916;
{ /* ./Globalize/node.scm 445 */
long BgL_auxz00_3344;
BgL_auxz00_3344 = 
(long)(BgL_offsetz00_1915); 
BgL_offsetz00_1916 = 
(BgL_auxz00_3344-OBJECT_TYPE); } 
{ /* ./Globalize/node.scm 445 */
long BgL_modz00_1917;
{ /* ./Globalize/node.scm 445 */
int BgL_arg2028z00_1918;
BgL_arg2028z00_1918 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 445 */
long BgL_n2z00_1926;
BgL_n2z00_1926 = 
(long)(BgL_arg2028z00_1918); 
BgL_modz00_1917 = 
(BgL_offsetz00_1916/BgL_n2z00_1926); } } 
{ /* ./Globalize/node.scm 445 */
long BgL_restz00_1919;
{ /* ./Globalize/node.scm 445 */
int BgL_arg2024z00_1920;
BgL_arg2024z00_1920 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 445 */
long BgL_n2z00_1929;
BgL_n2z00_1929 = 
(long)(BgL_arg2024z00_1920); 
BgL_restz00_1919 = 
(BgL_offsetz00_1916%BgL_n2z00_1929); } } 
{ /* ./Globalize/node.scm 445 */

{ /* ./Globalize/node.scm 445 */
obj_t BgL_bucketz00_1921;
{ /* ./Globalize/node.scm 445 */
int BgL_kz00_1931;
BgL_kz00_1931 = 
(int)(BgL_modz00_1917); 
BgL_bucketz00_1921 = 
VECTOR_REF(BgL_arg2017z00_1912,BgL_kz00_1931); } 
{ /* ./Globalize/node.scm 445 */
int BgL_kz00_1933;
BgL_kz00_1933 = 
(int)(BgL_restz00_1919); 
BgL_method3122z00_1909 = 
VECTOR_REF(BgL_bucketz00_1921,BgL_kz00_1933); } } } } } } } } } } 
{ /* ./Globalize/node.scm 445 */
obj_t BgL_auxz00_3357;
BgL_auxz00_3357 = 
PROCEDURE_ENTRY(BgL_method3122z00_1909)(BgL_method3122z00_1909, 
(obj_t)(BgL_nodez00_1907), 
(obj_t)(BgL_integratorz00_1908), BEOA); 
BgL_res4612z00_1934 = 
(BgL_nodez00_bglt)(BgL_auxz00_3357); } } } 
BgL_arg3335z00_950 = BgL_res4612z00_1934; } } 
{ /* ./Globalize/node.scm 445 */
obj_t BgL_objz00_1936;
BgL_objz00_1936 = 
(obj_t)(BgL_arg3335z00_950); 
SET_CAR(BgL_nodeza2za2_947, BgL_objz00_1936); } } 
{ /* ./Globalize/node.scm 446 */
obj_t BgL_arg3342z00_952;
BgL_arg3342z00_952 = 
CDR(BgL_nodeza2za2_947); 
{ 
obj_t BgL_nodeza2za2_3366;
BgL_nodeza2za2_3366 = BgL_arg3342z00_952; 
BgL_nodeza2za2_947 = BgL_nodeza2za2_3366; 
goto BgL_loopz00_948;} } } } } } 
}



/* make-escaping-bindings */
BgL_letzd2varzd2_bglt BGl_makezd2escapingzd2bindingsz00zzglobaliza7e_nodeza7(obj_t BgL_ebindingsz00_58, BgL_nodez00_bglt BgL_nodez00_59, BgL_variablez00_bglt BgL_integratorz00_60)
{ AN_OBJECT;
{ /* ./Globalize/node.scm 451 */
{ 
obj_t BgL_ebindingsz00_953;obj_t BgL_bindingsz00_954;obj_t BgL_setsz00_955;
BgL_ebindingsz00_953 = BgL_ebindingsz00_58; 
BgL_bindingsz00_954 = BNIL; 
BgL_setsz00_955 = BNIL; 
BgL_loopz00_956:
{ /* ./Globalize/node.scm 460 */
bool_t BgL_test3347z00_957;
BgL_test3347z00_957 = 
NULLP(BgL_ebindingsz00_953); 
if(BgL_test3347z00_957)
{ /* ./Globalize/node.scm 462 */
obj_t BgL_arg3349z00_958;obj_t BgL_arg3350z00_959;obj_t BgL_arg3352z00_961;obj_t BgL_arg3354z00_962;
BgL_arg3349z00_958 = 
(((BgL_nodez00_bglt)CREF(BgL_nodez00_59))->BgL_locz00); 
BgL_arg3350z00_959 = BGl_za2_za2z00zztype_cachez00; 
BgL_arg3352z00_961 = BgL_bindingsz00_954; 
{ /* ./Globalize/node.scm 465 */
bool_t BgL_test3357z00_963;
BgL_test3357z00_963 = 
NULLP(BgL_setsz00_955); 
if(BgL_test3357z00_963)
{ /* ./Globalize/node.scm 465 */
BgL_arg3354z00_962 = 
(obj_t)(BgL_nodez00_59); }  else 
{ /* ./Globalize/node.scm 468 */
obj_t BgL_arg3359z00_964;obj_t BgL_arg3360z00_965;obj_t BgL_arg3363z00_967;
BgL_arg3359z00_964 = 
(((BgL_nodez00_bglt)CREF(BgL_nodez00_59))->BgL_locz00); 
BgL_arg3360z00_965 = BGl_za2_za2z00zztype_cachez00; 
{ /* ./Globalize/node.scm 470 */
obj_t BgL_arg3367z00_968;
{ /* ./Globalize/node.scm 470 */
obj_t BgL_list3370z00_969;
{ /* ./Globalize/node.scm 470 */
obj_t BgL_auxz00_3374;
BgL_auxz00_3374 = 
(obj_t)(BgL_nodez00_59); 
BgL_list3370z00_969 = 
MAKE_PAIR(BgL_auxz00_3374, BNIL); } 
BgL_arg3367z00_968 = BgL_list3370z00_969; } 
BgL_arg3363z00_967 = 
bgl_append2(BgL_setsz00_955, BgL_arg3367z00_968); } 
{ /* ./Globalize/node.scm 467 */
BgL_sequencez00_bglt BgL_auxz00_3378;
BgL_auxz00_3378 = 
BGl_makezd2sequencezd2zzast_nodez00(BgL_arg3359z00_964, 
(BgL_typez00_bglt)(BgL_arg3360z00_965), BUNSPEC, 
BINT(((long)-1)), BgL_arg3363z00_967); 
BgL_arg3354z00_962 = 
(obj_t)(BgL_auxz00_3378); } } } 
return 
BGl_makezd2letzd2varz00zzast_nodez00(BgL_arg3349z00_958, 
(BgL_typez00_bglt)(BgL_arg3350z00_959), BUNSPEC, 
BINT(((long)-1)), BgL_arg3352z00_961, 
(BgL_nodez00_bglt)(BgL_arg3354z00_962), ((bool_t)1));}  else 
{ /* ./Globalize/node.scm 471 */
obj_t BgL_localz00_970;
BgL_localz00_970 = 
CAR(BgL_ebindingsz00_953); 
{ /* ./Globalize/node.scm 471 */
obj_t BgL_newz00_971;
{ /* ./Globalize/node.scm 472 */
obj_t BgL_arg3399z00_982;
BgL_arg3399z00_982 = 
(((BgL_nodez00_bglt)CREF(BgL_nodez00_59))->BgL_locz00); 
BgL_newz00_971 = 
BGl_thezd2closurezd2zzglobaliza7e_freeza7(
(BgL_variablez00_bglt)(BgL_localz00_970), BgL_arg3399z00_982); } 
{ /* ./Globalize/node.scm 472 */
obj_t BgL_nsetsz00_972;
{ /* ./Globalize/node.scm 474 */
obj_t BgL_arg3390z00_979;obj_t BgL_arg3391z00_980;
BgL_arg3390z00_979 = 
(((BgL_nodez00_bglt)CREF(BgL_nodez00_59))->BgL_locz00); 
{ /* ./Globalize/node.scm 475 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2784z00_1948;
{ /* ./Globalize/node.scm 475 */
BgL_valuez00_bglt BgL_auxz00_3392;
{ /* ./Globalize/node.scm 475 */
BgL_variablez00_bglt BgL_obj1100z00_1947;
BgL_obj1100z00_1947 = 
(BgL_variablez00_bglt)(BgL_localz00_970); 
BgL_auxz00_3392 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1947))->BgL_valuez00); } 
BgL_obj2784z00_1948 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_auxz00_3392); } 
{ 
obj_t BgL_auxz00_3396;
{ /* ./Globalize/node.scm 475 */
BgL_objectz00_bglt BgL_auxz00_3397;
BgL_auxz00_3397 = 
(BgL_objectz00_bglt)(BgL_obj2784z00_1948); 
BgL_auxz00_3396 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3397); } 
BgL_arg3391z00_980 = 
(((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_3396))->BgL_kapturedz00); } } 
BgL_nsetsz00_972 = 
BGl_makezd2setszd2zzglobaliza7e_nodeza7(BgL_newz00_971, BgL_arg3390z00_979, BgL_arg3391z00_980, BgL_integratorz00_60); } 
{ /* ./Globalize/node.scm 473 */

{ /* ./Globalize/node.scm 477 */
obj_t BgL_arg3374z00_973;obj_t BgL_arg3375z00_974;obj_t BgL_arg3376z00_975;
BgL_arg3374z00_973 = 
CDR(BgL_ebindingsz00_953); 
{ /* ./Globalize/node.scm 478 */
obj_t BgL_arg3380z00_976;
{ /* ./Globalize/node.scm 478 */
BgL_appz00_bglt BgL_arg3383z00_977;
BgL_arg3383z00_977 = 
BGl_azd2makezd2procedurez00zzglobaliza7e_nodeza7(
(BgL_localz00_bglt)(BgL_localz00_970)); 
{ /* ./Globalize/node.scm 478 */
obj_t BgL_auxz00_3405;
BgL_auxz00_3405 = 
(obj_t)(BgL_arg3383z00_977); 
BgL_arg3380z00_976 = 
MAKE_PAIR(BgL_newz00_971, BgL_auxz00_3405); } } 
BgL_arg3375z00_974 = 
MAKE_PAIR(BgL_arg3380z00_976, BgL_bindingsz00_954); } 
{ /* ./Globalize/node.scm 480 */
bool_t BgL_test3386z00_978;
BgL_test3386z00_978 = 
NULLP(BgL_nsetsz00_972); 
if(BgL_test3386z00_978)
{ /* ./Globalize/node.scm 480 */
BgL_arg3376z00_975 = BgL_setsz00_955; }  else 
{ /* ./Globalize/node.scm 480 */
BgL_arg3376z00_975 = 
MAKE_PAIR(BgL_nsetsz00_972, BgL_setsz00_955); } } 
{ 
obj_t BgL_setsz00_3414;obj_t BgL_bindingsz00_3413;obj_t BgL_ebindingsz00_3412;
BgL_ebindingsz00_3412 = BgL_arg3374z00_973; 
BgL_bindingsz00_3413 = BgL_arg3375z00_974; 
BgL_setsz00_3414 = BgL_arg3376z00_975; 
BgL_setsz00_955 = BgL_setsz00_3414; 
BgL_bindingsz00_954 = BgL_bindingsz00_3413; 
BgL_ebindingsz00_953 = BgL_ebindingsz00_3412; 
goto BgL_loopz00_956;} } } } } } } } } 
}



/* globalize-local-fun! */
obj_t BGl_globaliza7ezd2localzd2funz12zb5zzglobaliza7e_nodeza7(BgL_localz00_bglt BgL_localz00_61, BgL_variablez00_bglt BgL_integratorz00_62)
{ AN_OBJECT;
{ /* ./Globalize/node.scm 487 */
{ /* ./Globalize/node.scm 488 */
BgL_valuez00_bglt BgL_funz00_983;
{ /* ./Globalize/node.scm 488 */
BgL_variablez00_bglt BgL_obj1100z00_1951;
BgL_obj1100z00_1951 = 
(BgL_variablez00_bglt)(BgL_localz00_61); 
BgL_funz00_983 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1951))->BgL_valuez00); } 
{ /* ./Globalize/node.scm 488 */
obj_t BgL_obodyz00_984;
{ /* ./Globalize/node.scm 489 */
BgL_sfunz00_bglt BgL_obj1370z00_1952;
BgL_obj1370z00_1952 = 
(BgL_sfunz00_bglt)(BgL_funz00_983); 
BgL_obodyz00_984 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_1952))->BgL_bodyz00); } 
{ /* ./Globalize/node.scm 489 */

{ /* ./Globalize/node.scm 490 */
bool_t BgL_test3404z00_985;
{ /* ./Globalize/node.scm 490 */
obj_t BgL_auxz00_3421;obj_t BgL_auxz00_3419;
BgL_auxz00_3421 = 
(obj_t)(BgL_integratorz00_62); 
BgL_auxz00_3419 = 
(obj_t)(BgL_localz00_61); 
BgL_test3404z00_985 = 
(BgL_auxz00_3419==BgL_auxz00_3421); } 
if(BgL_test3404z00_985)
{ /* ./Globalize/node.scm 491 */
BgL_nodez00_bglt BgL_arg3406z00_986;
{ /* ./Globalize/node.scm 491 */
BgL_nodez00_bglt BgL_res4616z00_1980;
{ /* ./Globalize/node.scm 491 */
BgL_nodez00_bglt BgL_nodez00_1953;
BgL_nodez00_1953 = 
(BgL_nodez00_bglt)(BgL_obodyz00_984); 
{ /* ./Globalize/node.scm 491 */
obj_t BgL_method3122z00_1955;
{ /* ./Globalize/node.scm 491 */
BgL_objectz00_bglt BgL_objz00_1956;
BgL_objz00_1956 = 
(BgL_objectz00_bglt)(BgL_nodez00_1953); 
{ /* ./Globalize/node.scm 491 */
long BgL_objzd2classzd2numz00_1957;
BgL_objzd2classzd2numz00_1957 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1956); 
{ /* ./Globalize/node.scm 491 */
obj_t BgL_arg2017z00_1958;
{ /* ./Globalize/node.scm 491 */
int BgL_auxz00_3428;
BgL_auxz00_3428 = 
(int)(((long)1)); 
BgL_arg2017z00_1958 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BgL_auxz00_3428); } 
{ /* ./Globalize/node.scm 491 */
int BgL_offsetz00_1961;
BgL_offsetz00_1961 = 
(int)(BgL_objzd2classzd2numz00_1957); 
{ /* ./Globalize/node.scm 491 */
long BgL_offsetz00_1962;
{ /* ./Globalize/node.scm 491 */
long BgL_auxz00_3432;
BgL_auxz00_3432 = 
(long)(BgL_offsetz00_1961); 
BgL_offsetz00_1962 = 
(BgL_auxz00_3432-OBJECT_TYPE); } 
{ /* ./Globalize/node.scm 491 */
long BgL_modz00_1963;
{ /* ./Globalize/node.scm 491 */
int BgL_arg2028z00_1964;
BgL_arg2028z00_1964 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 491 */
long BgL_n2z00_1972;
BgL_n2z00_1972 = 
(long)(BgL_arg2028z00_1964); 
BgL_modz00_1963 = 
(BgL_offsetz00_1962/BgL_n2z00_1972); } } 
{ /* ./Globalize/node.scm 491 */
long BgL_restz00_1965;
{ /* ./Globalize/node.scm 491 */
int BgL_arg2024z00_1966;
BgL_arg2024z00_1966 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 491 */
long BgL_n2z00_1975;
BgL_n2z00_1975 = 
(long)(BgL_arg2024z00_1966); 
BgL_restz00_1965 = 
(BgL_offsetz00_1962%BgL_n2z00_1975); } } 
{ /* ./Globalize/node.scm 491 */

{ /* ./Globalize/node.scm 491 */
obj_t BgL_bucketz00_1967;
{ /* ./Globalize/node.scm 491 */
int BgL_kz00_1977;
BgL_kz00_1977 = 
(int)(BgL_modz00_1963); 
BgL_bucketz00_1967 = 
VECTOR_REF(BgL_arg2017z00_1958,BgL_kz00_1977); } 
{ /* ./Globalize/node.scm 491 */
int BgL_kz00_1979;
BgL_kz00_1979 = 
(int)(BgL_restz00_1965); 
BgL_method3122z00_1955 = 
VECTOR_REF(BgL_bucketz00_1967,BgL_kz00_1979); } } } } } } } } } } 
{ /* ./Globalize/node.scm 491 */
obj_t BgL_auxz00_3445;
BgL_auxz00_3445 = 
PROCEDURE_ENTRY(BgL_method3122z00_1955)(BgL_method3122z00_1955, 
(obj_t)(BgL_nodez00_1953), 
(obj_t)(BgL_integratorz00_62), BEOA); 
BgL_res4616z00_1980 = 
(BgL_nodez00_bglt)(BgL_auxz00_3445); } } } 
BgL_arg3406z00_986 = BgL_res4616z00_1980; } 
{ /* ./Globalize/node.scm 491 */
BgL_sfunz00_bglt BgL_obj1373z00_1981;obj_t BgL_val1371z00_1982;
BgL_obj1373z00_1981 = 
(BgL_sfunz00_bglt)(BgL_funz00_983); 
BgL_val1371z00_1982 = 
(obj_t)(BgL_arg3406z00_986); 
return 
((((BgL_sfunz00_bglt)CREF(BgL_obj1373z00_1981))->BgL_bodyz00) = ((obj_t)BgL_val1371z00_1982), BUNSPEC);} }  else 
{ /* ./Globalize/node.scm 492 */
obj_t BgL_celledz00_987;
{ /* ./Globalize/node.scm 492 */
obj_t BgL_arg3439z00_1003;
{ /* ./Globalize/node.scm 492 */
BgL_sfunz00_bglt BgL_obj1367z00_1983;
BgL_obj1367z00_1983 = 
(BgL_sfunz00_bglt)(BgL_funz00_983); 
BgL_arg3439z00_1003 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1367z00_1983))->BgL_argsz00); } 
BgL_celledz00_987 = 
BGl_celledzd2bindingszd2zzglobaliza7e_nodeza7(BgL_arg3439z00_1003); } 
{ 
obj_t BgL_l3106z00_988;
BgL_l3106z00_988 = BgL_celledz00_987; 
BgL_forzd2each3107zd2_989:
{ /* ./Globalize/node.scm 493 */
bool_t BgL_test3410z00_990;
BgL_test3410z00_990 = 
PAIRP(BgL_l3106z00_988); 
if(BgL_test3410z00_990)
{ /* ./Globalize/node.scm 493 */
{ /* ./Globalize/node.scm 494 */
obj_t BgL_wze2bze2_991;
BgL_wze2bze2_991 = 
CAR(BgL_l3106z00_988); 
{ /* ./Globalize/node.scm 494 */
obj_t BgL_arg3412z00_992;obj_t BgL_arg3413z00_993;
BgL_arg3412z00_992 = 
CAR(BgL_wze2bze2_991); 
BgL_arg3413z00_993 = 
CDR(BgL_wze2bze2_991); 
{ /* ./Globalize/node.scm 494 */
BgL_variablez00_bglt BgL_obj1108z00_1988;obj_t BgL_val1107z00_1989;
BgL_obj1108z00_1988 = 
(BgL_variablez00_bglt)(BgL_arg3412z00_992); 
BgL_val1107z00_1989 = BgL_arg3413z00_993; 
((((BgL_variablez00_bglt)CREF(BgL_obj1108z00_1988))->BgL_fastzd2alphazd2) = ((obj_t)BgL_val1107z00_1989), BUNSPEC); } } } 
{ /* ./Globalize/node.scm 493 */
obj_t BgL_arg3419z00_994;
BgL_arg3419z00_994 = 
CDR(BgL_l3106z00_988); 
{ 
obj_t BgL_l3106z00_3465;
BgL_l3106z00_3465 = BgL_arg3419z00_994; 
BgL_l3106z00_988 = BgL_l3106z00_3465; 
goto BgL_forzd2each3107zd2_989;} } }  else 
{ /* ./Globalize/node.scm 493 */((bool_t)1); } } } 
{ /* ./Globalize/node.scm 496 */
BgL_nodez00_bglt BgL_nbody1z00_995;
{ /* ./Globalize/node.scm 496 */
BgL_nodez00_bglt BgL_res4619z00_2018;
{ /* ./Globalize/node.scm 496 */
BgL_nodez00_bglt BgL_nodez00_1991;
BgL_nodez00_1991 = 
(BgL_nodez00_bglt)(BgL_obodyz00_984); 
{ /* ./Globalize/node.scm 496 */
obj_t BgL_method3122z00_1993;
{ /* ./Globalize/node.scm 496 */
BgL_objectz00_bglt BgL_objz00_1994;
BgL_objz00_1994 = 
(BgL_objectz00_bglt)(BgL_nodez00_1991); 
{ /* ./Globalize/node.scm 496 */
long BgL_objzd2classzd2numz00_1995;
BgL_objzd2classzd2numz00_1995 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1994); 
{ /* ./Globalize/node.scm 496 */
obj_t BgL_arg2017z00_1996;
{ /* ./Globalize/node.scm 496 */
int BgL_auxz00_3469;
BgL_auxz00_3469 = 
(int)(((long)1)); 
BgL_arg2017z00_1996 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BgL_auxz00_3469); } 
{ /* ./Globalize/node.scm 496 */
int BgL_offsetz00_1999;
BgL_offsetz00_1999 = 
(int)(BgL_objzd2classzd2numz00_1995); 
{ /* ./Globalize/node.scm 496 */
long BgL_offsetz00_2000;
{ /* ./Globalize/node.scm 496 */
long BgL_auxz00_3473;
BgL_auxz00_3473 = 
(long)(BgL_offsetz00_1999); 
BgL_offsetz00_2000 = 
(BgL_auxz00_3473-OBJECT_TYPE); } 
{ /* ./Globalize/node.scm 496 */
long BgL_modz00_2001;
{ /* ./Globalize/node.scm 496 */
int BgL_arg2028z00_2002;
BgL_arg2028z00_2002 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 496 */
long BgL_n2z00_2010;
BgL_n2z00_2010 = 
(long)(BgL_arg2028z00_2002); 
BgL_modz00_2001 = 
(BgL_offsetz00_2000/BgL_n2z00_2010); } } 
{ /* ./Globalize/node.scm 496 */
long BgL_restz00_2003;
{ /* ./Globalize/node.scm 496 */
int BgL_arg2024z00_2004;
BgL_arg2024z00_2004 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 496 */
long BgL_n2z00_2013;
BgL_n2z00_2013 = 
(long)(BgL_arg2024z00_2004); 
BgL_restz00_2003 = 
(BgL_offsetz00_2000%BgL_n2z00_2013); } } 
{ /* ./Globalize/node.scm 496 */

{ /* ./Globalize/node.scm 496 */
obj_t BgL_bucketz00_2005;
{ /* ./Globalize/node.scm 496 */
int BgL_kz00_2015;
BgL_kz00_2015 = 
(int)(BgL_modz00_2001); 
BgL_bucketz00_2005 = 
VECTOR_REF(BgL_arg2017z00_1996,BgL_kz00_2015); } 
{ /* ./Globalize/node.scm 496 */
int BgL_kz00_2017;
BgL_kz00_2017 = 
(int)(BgL_restz00_2003); 
BgL_method3122z00_1993 = 
VECTOR_REF(BgL_bucketz00_2005,BgL_kz00_2017); } } } } } } } } } } 
{ /* ./Globalize/node.scm 496 */
obj_t BgL_auxz00_3486;
BgL_auxz00_3486 = 
PROCEDURE_ENTRY(BgL_method3122z00_1993)(BgL_method3122z00_1993, 
(obj_t)(BgL_nodez00_1991), 
(obj_t)(BgL_integratorz00_62), BEOA); 
BgL_res4619z00_2018 = 
(BgL_nodez00_bglt)(BgL_auxz00_3486); } } } 
BgL_nbody1z00_995 = BgL_res4619z00_2018; } 
{ /* ./Globalize/node.scm 496 */
obj_t BgL_nbody2z00_996;
BgL_nbody2z00_996 = 
BGl_cellzd2formalszd2zzglobaliza7e_nodeza7(BgL_celledz00_987, BgL_nbody1z00_995); 
{ /* ./Globalize/node.scm 497 */

{ 
obj_t BgL_l3108z00_997;
BgL_l3108z00_997 = BgL_celledz00_987; 
BgL_forzd2each3109zd2_998:
{ /* ./Globalize/node.scm 498 */
bool_t BgL_test3424z00_999;
BgL_test3424z00_999 = 
PAIRP(BgL_l3108z00_997); 
if(BgL_test3424z00_999)
{ /* ./Globalize/node.scm 498 */
{ /* ./Globalize/node.scm 499 */
obj_t BgL_wze2bze2_1000;
BgL_wze2bze2_1000 = 
CAR(BgL_l3108z00_997); 
{ /* ./Globalize/node.scm 499 */
obj_t BgL_arg3426z00_1001;
BgL_arg3426z00_1001 = 
CAR(BgL_wze2bze2_1000); 
{ /* ./Globalize/node.scm 499 */
BgL_variablez00_bglt BgL_obj1108z00_2022;obj_t BgL_val1107z00_2023;
BgL_obj1108z00_2022 = 
(BgL_variablez00_bglt)(BgL_arg3426z00_1001); 
BgL_val1107z00_2023 = BUNSPEC; 
((((BgL_variablez00_bglt)CREF(BgL_obj1108z00_2022))->BgL_fastzd2alphazd2) = ((obj_t)BgL_val1107z00_2023), BUNSPEC); } } } 
{ /* ./Globalize/node.scm 498 */
obj_t BgL_arg3431z00_1002;
BgL_arg3431z00_1002 = 
CDR(BgL_l3108z00_997); 
{ 
obj_t BgL_l3108z00_3500;
BgL_l3108z00_3500 = BgL_arg3431z00_1002; 
BgL_l3108z00_997 = BgL_l3108z00_3500; 
goto BgL_forzd2each3109zd2_998;} } }  else 
{ /* ./Globalize/node.scm 498 */((bool_t)1); } } } 
{ /* ./Globalize/node.scm 501 */
BgL_sfunz00_bglt BgL_obj1373z00_2025;obj_t BgL_val1371z00_2026;
BgL_obj1373z00_2025 = 
(BgL_sfunz00_bglt)(BgL_funz00_983); 
BgL_val1371z00_2026 = BgL_nbody2z00_996; 
return 
((((BgL_sfunz00_bglt)CREF(BgL_obj1373z00_2025))->BgL_bodyz00) = ((obj_t)BgL_val1371z00_2026), BUNSPEC);} } } } } } } } } } 
}



/* a-make-procedure */
BgL_appz00_bglt BGl_azd2makezd2procedurez00zzglobaliza7e_nodeza7(BgL_localz00_bglt BgL_localz00_63)
{ AN_OBJECT;
{ /* ./Globalize/node.scm 506 */
{ /* ./Globalize/node.scm 507 */
BgL_valuez00_bglt BgL_funz00_1004;
{ /* ./Globalize/node.scm 507 */
BgL_variablez00_bglt BgL_obj1100z00_2027;
BgL_obj1100z00_2027 = 
(BgL_variablez00_bglt)(BgL_localz00_63); 
BgL_funz00_1004 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_2027))->BgL_valuez00); } 
{ /* ./Globalize/node.scm 507 */
long BgL_arityz00_1005;
{ /* ./Globalize/node.scm 508 */
BgL_funz00_bglt BgL_obj1301z00_2028;
BgL_obj1301z00_2028 = 
(BgL_funz00_bglt)(BgL_funz00_1004); 
BgL_arityz00_1005 = 
(((BgL_funz00_bglt)CREF(BgL_obj1301z00_2028))->BgL_arityz00); } 
{ /* ./Globalize/node.scm 508 */
obj_t BgL_kapturedz00_1006;
{ /* ./Globalize/node.scm 509 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2784z00_2030;
BgL_obj2784z00_2030 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_funz00_1004); 
{ 
obj_t BgL_auxz00_3508;
{ /* ./Globalize/node.scm 509 */
BgL_objectz00_bglt BgL_auxz00_3509;
BgL_auxz00_3509 = 
(BgL_objectz00_bglt)(BgL_obj2784z00_2030); 
BgL_auxz00_3508 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3509); } 
BgL_kapturedz00_1006 = 
(((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_3508))->BgL_kapturedz00); } } 
{ /* ./Globalize/node.scm 511 */
obj_t BgL_makezd2pzd2_1008;
if(
(BgL_arityz00_1005>=((long)0)))
{ /* ./Globalize/node.scm 513 */
BgL_makezd2pzd2_1008 = 
CNST_TABLE_REF(((long)3)); }  else 
{ /* ./Globalize/node.scm 513 */
BgL_makezd2pzd2_1008 = 
CNST_TABLE_REF(((long)4)); } 
{ /* ./Globalize/node.scm 513 */

{ /* ./Globalize/node.scm 515 */
obj_t BgL_arg3446z00_1009;obj_t BgL_arg3447z00_1010;BgL_varz00_bglt BgL_arg3449z00_1012;obj_t BgL_arg3450z00_1013;
BgL_arg3446z00_1009 = BUNSPEC; 
BgL_arg3447z00_1010 = BGl_za2_za2z00zztype_cachez00; 
{ /* ./Globalize/node.scm 518 */
obj_t BgL_arg3453z00_1014;obj_t BgL_arg3454z00_1015;obj_t BgL_arg3455z00_1016;
BgL_arg3453z00_1014 = BUNSPEC; 
BgL_arg3454z00_1015 = BGl_za2_za2z00zztype_cachez00; 
BgL_arg3455z00_1016 = 
BGl_findzd2globalzf2modulez20zzast_envz00(BgL_makezd2pzd2_1008, 
CNST_TABLE_REF(((long)5))); 
BgL_arg3449z00_1012 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3453z00_1014, 
(BgL_typez00_bglt)(BgL_arg3454z00_1015), 
(BgL_variablez00_bglt)(BgL_arg3455z00_1016)); } 
{ /* ./Globalize/node.scm 522 */
BgL_varz00_bglt BgL_arg3459z00_1017;BgL_atomz00_bglt BgL_arg3460z00_1018;BgL_atomz00_bglt BgL_arg3461z00_1019;
{ /* ./Globalize/node.scm 522 */
obj_t BgL_arg3472z00_1023;obj_t BgL_arg3473z00_1024;BgL_globalz00_bglt BgL_arg3474z00_1025;
BgL_arg3472z00_1023 = BUNSPEC; 
BgL_arg3473z00_1024 = BGl_za2_za2z00zztype_cachez00; 
BgL_arg3474z00_1025 = 
BGl_thezd2globalzd2zzglobaliza7e_localzd2ze3globalz96(BgL_localz00_63); 
BgL_arg3459z00_1017 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3472z00_1023, 
(BgL_typez00_bglt)(BgL_arg3473z00_1024), 
(BgL_variablez00_bglt)(BgL_arg3474z00_1025)); } 
{ /* ./Globalize/node.scm 526 */
obj_t BgL_arg3478z00_1026;obj_t BgL_arg3479z00_1027;long BgL_arg3480z00_1028;
BgL_arg3478z00_1026 = BUNSPEC; 
BgL_arg3479z00_1027 = BGl_za2_za2z00zztype_cachez00; 
BgL_arg3480z00_1028 = BgL_arityz00_1005; 
BgL_arg3460z00_1018 = 
BGl_makezd2atomzd2zzast_nodez00(BgL_arg3478z00_1026, 
(BgL_typez00_bglt)(BgL_arg3479z00_1027), 
BINT(BgL_arg3480z00_1028)); } 
{ /* ./Globalize/node.scm 530 */
obj_t BgL_arg3483z00_1029;obj_t BgL_arg3484z00_1030;long BgL_arg3485z00_1031;
BgL_arg3483z00_1029 = BUNSPEC; 
BgL_arg3484z00_1030 = BGl_za2_za2z00zztype_cachez00; 
BgL_arg3485z00_1031 = 
bgl_list_length(BgL_kapturedz00_1006); 
BgL_arg3461z00_1019 = 
BGl_makezd2atomzd2zzast_nodez00(BgL_arg3483z00_1029, 
(BgL_typez00_bglt)(BgL_arg3484z00_1030), 
BINT(BgL_arg3485z00_1031)); } 
{ /* ./Globalize/node.scm 521 */
obj_t BgL_list3463z00_1020;
{ /* ./Globalize/node.scm 521 */
obj_t BgL_arg3465z00_1021;
{ /* ./Globalize/node.scm 521 */
obj_t BgL_arg3468z00_1022;
{ /* ./Globalize/node.scm 521 */
obj_t BgL_auxz00_3533;
BgL_auxz00_3533 = 
(obj_t)(BgL_arg3461z00_1019); 
BgL_arg3468z00_1022 = 
MAKE_PAIR(BgL_auxz00_3533, BNIL); } 
{ /* ./Globalize/node.scm 521 */
obj_t BgL_auxz00_3536;
BgL_auxz00_3536 = 
(obj_t)(BgL_arg3460z00_1018); 
BgL_arg3465z00_1021 = 
MAKE_PAIR(BgL_auxz00_3536, BgL_arg3468z00_1022); } } 
{ /* ./Globalize/node.scm 521 */
obj_t BgL_auxz00_3539;
BgL_auxz00_3539 = 
(obj_t)(BgL_arg3459z00_1017); 
BgL_list3463z00_1020 = 
MAKE_PAIR(BgL_auxz00_3539, BgL_arg3465z00_1021); } } 
BgL_arg3450z00_1013 = BgL_list3463z00_1020; } } 
return 
BGl_makezd2appzd2zzast_nodez00(BgL_arg3446z00_1009, 
(BgL_typez00_bglt)(BgL_arg3447z00_1010), BUNSPEC, 
BINT(((long)-1)), BgL_arg3449z00_1012, BgL_arg3450z00_1013);} } } } } } } 
}



/* make-sets */
obj_t BGl_makezd2setszd2zzglobaliza7e_nodeza7(obj_t BgL_newz00_64, obj_t BgL_locz00_65, obj_t BgL_kapturedz00_66, BgL_variablez00_bglt BgL_integratorz00_67)
{ AN_OBJECT;
{ /* ./Globalize/node.scm 537 */
{ /* ./Globalize/node.scm 538 */
bool_t BgL_test3496z00_1034;
BgL_test3496z00_1034 = 
NULLP(BgL_kapturedz00_66); 
if(BgL_test3496z00_1034)
{ /* ./Globalize/node.scm 538 */
return BNIL;}  else 
{ /* ./Globalize/node.scm 541 */
obj_t BgL_arg3498z00_1035;obj_t BgL_arg3499z00_1036;obj_t BgL_arg3501z00_1038;
BgL_arg3498z00_1035 = BgL_locz00_65; 
BgL_arg3499z00_1036 = BGl_za2_za2z00zztype_cachez00; 
{ 
obj_t BgL_kapturedz00_1039;long BgL_indicez00_1040;obj_t BgL_setsz00_1041;
BgL_kapturedz00_1039 = BgL_kapturedz00_66; 
BgL_indicez00_1040 = ((long)0); 
BgL_setsz00_1041 = BNIL; 
BgL_loopz00_1042:
{ /* ./Globalize/node.scm 546 */
bool_t BgL_test3504z00_1043;
BgL_test3504z00_1043 = 
NULLP(BgL_kapturedz00_1039); 
if(BgL_test3504z00_1043)
{ /* ./Globalize/node.scm 546 */
BgL_arg3501z00_1038 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_setsz00_1041); }  else 
{ /* ./Globalize/node.scm 548 */
obj_t BgL_arg3507z00_1044;long BgL_arg3508z00_1045;obj_t BgL_arg3509z00_1046;
BgL_arg3507z00_1044 = 
CDR(BgL_kapturedz00_1039); 
BgL_arg3508z00_1045 = 
(BgL_indicez00_1040+((long)1)); 
{ /* ./Globalize/node.scm 553 */
BgL_appz00_bglt BgL_arg3514z00_1047;
{ /* ./Globalize/node.scm 553 */
obj_t BgL_arg3517z00_1048;
BgL_arg3517z00_1048 = 
CAR(BgL_kapturedz00_1039); 
BgL_arg3514z00_1047 = 
BGl_azd2procedurezd2setz12z12zzglobaliza7e_nodeza7(BgL_locz00_65, BgL_newz00_64, BgL_indicez00_1040, BgL_arg3517z00_1048, BgL_integratorz00_67); } 
{ /* ./Globalize/node.scm 550 */
obj_t BgL_auxz00_3554;
BgL_auxz00_3554 = 
(obj_t)(BgL_arg3514z00_1047); 
BgL_arg3509z00_1046 = 
MAKE_PAIR(BgL_auxz00_3554, BgL_setsz00_1041); } } 
{ 
obj_t BgL_setsz00_3559;long BgL_indicez00_3558;obj_t BgL_kapturedz00_3557;
BgL_kapturedz00_3557 = BgL_arg3507z00_1044; 
BgL_indicez00_3558 = BgL_arg3508z00_1045; 
BgL_setsz00_3559 = BgL_arg3509z00_1046; 
BgL_setsz00_1041 = BgL_setsz00_3559; 
BgL_indicez00_1040 = BgL_indicez00_3558; 
BgL_kapturedz00_1039 = BgL_kapturedz00_3557; 
goto BgL_loopz00_1042;} } } } 
{ /* ./Globalize/node.scm 540 */
BgL_sequencez00_bglt BgL_auxz00_3560;
BgL_auxz00_3560 = 
BGl_makezd2sequencezd2zzast_nodez00(BgL_arg3498z00_1035, 
(BgL_typez00_bglt)(BgL_arg3499z00_1036), BUNSPEC, 
BINT(((long)-1)), BgL_arg3501z00_1038); 
return 
(obj_t)(BgL_auxz00_3560);} } } } 
}



/* a-procedure-set! */
BgL_appz00_bglt BGl_azd2procedurezd2setz12z12zzglobaliza7e_nodeza7(obj_t BgL_locz00_68, obj_t BgL_newz00_69, long BgL_indicez00_70, obj_t BgL_kapturedz00_71, BgL_variablez00_bglt BgL_integratorz00_72)
{ AN_OBJECT;
{ /* ./Globalize/node.scm 560 */
{ 
obj_t BgL_varz00_1073;
{ /* ./Globalize/node.scm 567 */
obj_t BgL_arg3523z00_1050;obj_t BgL_arg3524z00_1051;BgL_varz00_bglt BgL_arg3526z00_1053;obj_t BgL_arg3527z00_1054;
BgL_arg3523z00_1050 = BgL_locz00_68; 
BgL_arg3524z00_1051 = BGl_za2_za2z00zztype_cachez00; 
{ /* ./Globalize/node.scm 570 */
obj_t BgL_arg3530z00_1055;obj_t BgL_arg3531z00_1056;obj_t BgL_arg3532z00_1057;
BgL_arg3530z00_1055 = BgL_locz00_68; 
BgL_arg3531z00_1056 = BGl_za2_za2z00zztype_cachez00; 
BgL_arg3532z00_1057 = 
BGl_findzd2globalzf2modulez20zzast_envz00(
CNST_TABLE_REF(((long)6)), 
CNST_TABLE_REF(((long)5))); 
BgL_arg3526z00_1053 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3530z00_1055, 
(BgL_typez00_bglt)(BgL_arg3531z00_1056), 
(BgL_variablez00_bglt)(BgL_arg3532z00_1057)); } 
{ /* ./Globalize/node.scm 574 */
BgL_varz00_bglt BgL_arg3536z00_1058;BgL_atomz00_bglt BgL_arg3537z00_1059;BgL_varz00_bglt BgL_arg3538z00_1060;
{ /* ./Globalize/node.scm 574 */
obj_t BgL_arg3549z00_1064;obj_t BgL_arg3550z00_1065;obj_t BgL_arg3552z00_1066;
BgL_arg3549z00_1064 = BgL_locz00_68; 
BgL_arg3550z00_1065 = BGl_za2_za2z00zztype_cachez00; 
BgL_arg3552z00_1066 = BgL_newz00_69; 
BgL_arg3536z00_1058 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3549z00_1064, 
(BgL_typez00_bglt)(BgL_arg3550z00_1065), 
(BgL_variablez00_bglt)(BgL_arg3552z00_1066)); } 
{ /* ./Globalize/node.scm 578 */
obj_t BgL_arg3556z00_1067;obj_t BgL_arg3557z00_1068;long BgL_arg3558z00_1069;
BgL_arg3556z00_1067 = BgL_locz00_68; 
BgL_arg3557z00_1068 = BGl_za2_za2z00zztype_cachez00; 
BgL_arg3558z00_1069 = BgL_indicez00_70; 
BgL_arg3537z00_1059 = 
BGl_makezd2atomzd2zzast_nodez00(BgL_arg3556z00_1067, 
(BgL_typez00_bglt)(BgL_arg3557z00_1068), 
BINT(BgL_arg3558z00_1069)); } 
{ /* ./Globalize/node.scm 582 */
obj_t BgL_arg3561z00_1070;obj_t BgL_arg3562z00_1071;obj_t BgL_arg3563z00_1072;
BgL_arg3561z00_1070 = BgL_locz00_68; 
BgL_arg3562z00_1071 = BGl_za2_za2z00zztype_cachez00; 
BgL_varz00_1073 = BgL_kapturedz00_71; 
BgL_zc3anonymousza33566ze3z83_1074:
{ /* ./Globalize/node.scm 562 */
obj_t BgL_alphaz00_1075;
{ /* ./Globalize/node.scm 562 */
BgL_variablez00_bglt BgL_obj1106z00_2043;
BgL_obj1106z00_2043 = 
(BgL_variablez00_bglt)(BgL_varz00_1073); 
BgL_alphaz00_1075 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1106z00_2043))->BgL_fastzd2alphazd2); } 
{ /* ./Globalize/node.scm 563 */
bool_t BgL_test3567z00_1076;
BgL_test3567z00_1076 = 
BGl_iszd2azf3z21zz__objectz00(BgL_alphaz00_1075, BGl_localz00zzast_varz00); 
if(BgL_test3567z00_1076)
{ 
obj_t BgL_varz00_3581;
BgL_varz00_3581 = BgL_alphaz00_1075; 
BgL_varz00_1073 = BgL_varz00_3581; 
goto BgL_zc3anonymousza33566ze3z83_1074;}  else 
{ /* ./Globalize/node.scm 563 */
BgL_arg3563z00_1072 = BgL_varz00_1073; } } } 
BgL_arg3538z00_1060 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3561z00_1070, 
(BgL_typez00_bglt)(BgL_arg3562z00_1071), 
(BgL_variablez00_bglt)(BgL_arg3563z00_1072)); } 
{ /* ./Globalize/node.scm 573 */
obj_t BgL_list3540z00_1061;
{ /* ./Globalize/node.scm 573 */
obj_t BgL_arg3542z00_1062;
{ /* ./Globalize/node.scm 573 */
obj_t BgL_arg3545z00_1063;
{ /* ./Globalize/node.scm 573 */
obj_t BgL_auxz00_3585;
BgL_auxz00_3585 = 
(obj_t)(BgL_arg3538z00_1060); 
BgL_arg3545z00_1063 = 
MAKE_PAIR(BgL_auxz00_3585, BNIL); } 
{ /* ./Globalize/node.scm 573 */
obj_t BgL_auxz00_3588;
BgL_auxz00_3588 = 
(obj_t)(BgL_arg3537z00_1059); 
BgL_arg3542z00_1062 = 
MAKE_PAIR(BgL_auxz00_3588, BgL_arg3545z00_1063); } } 
{ /* ./Globalize/node.scm 573 */
obj_t BgL_auxz00_3591;
BgL_auxz00_3591 = 
(obj_t)(BgL_arg3536z00_1058); 
BgL_list3540z00_1061 = 
MAKE_PAIR(BgL_auxz00_3591, BgL_arg3542z00_1062); } } 
BgL_arg3527z00_1054 = BgL_list3540z00_1061; } } 
return 
BGl_makezd2appzd2zzast_nodez00(BgL_arg3523z00_1050, 
(BgL_typez00_bglt)(BgL_arg3524z00_1051), BUNSPEC, 
BINT(((long)-1)), BgL_arg3526z00_1053, BgL_arg3527z00_1054);} } } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzglobaliza7e_nodeza7()
{ AN_OBJECT;
{ /* ./Globalize/node.scm 17 */
BGl_addzd2genericz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BGl_gloz12zd2default3121zd2envz12zzglobaliza7e_nodeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BGl_atomz00zzast_nodez00, BGl_proc5449z00zzglobaliza7e_nodeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BGl_kwotez00zzast_nodez00, BGl_proc5450z00zzglobaliza7e_nodeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BGl_varz00zzast_nodez00, BGl_proc5451z00zzglobaliza7e_nodeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BGl_closurez00zzast_nodez00, BGl_proc5452z00zzglobaliza7e_nodeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BGl_sequencez00zzast_nodez00, BGl_proc5453z00zzglobaliza7e_nodeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BGl_appz00zzast_nodez00, BGl_proc5454z00zzglobaliza7e_nodeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BGl_appzd2lyzd2zzast_nodez00, BGl_proc5455z00zzglobaliza7e_nodeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BGl_funcallz00zzast_nodez00, BGl_proc5456z00zzglobaliza7e_nodeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BGl_externz00zzast_nodez00, BGl_proc5457z00zzglobaliza7e_nodeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BGl_castz00zzast_nodez00, BGl_proc5458z00zzglobaliza7e_nodeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BGl_setqz00zzast_nodez00, BGl_proc5459z00zzglobaliza7e_nodeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BGl_conditionalz00zzast_nodez00, BGl_proc5460z00zzglobaliza7e_nodeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BGl_failz00zzast_nodez00, BGl_proc5461z00zzglobaliza7e_nodeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BGl_selectz00zzast_nodez00, BGl_proc5462z00zzglobaliza7e_nodeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BGl_letzd2funzd2zzast_nodez00, BGl_proc5463z00zzglobaliza7e_nodeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BGl_letzd2varzd2zzast_nodez00, BGl_proc5464z00zzglobaliza7e_nodeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BGl_setzd2exzd2itz00zzast_nodez00, BGl_proc5465z00zzglobaliza7e_nodeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BGl_jumpzd2exzd2itz00zzast_nodez00, BGl_proc5466z00zzglobaliza7e_nodeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BGl_makezd2boxzd2zzast_nodez00, BGl_proc5467z00zzglobaliza7e_nodeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BGl_boxzd2refzd2zzast_nodez00, BGl_proc5468z00zzglobaliza7e_nodeza7); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BGl_boxzd2setz12zc0zzast_nodez00, BGl_proc5469z00zzglobaliza7e_nodeza7);} 
}



/* glo!-box-set!3167 */
obj_t BGl_gloz12zd2boxzd2setz123167z00zzglobaliza7e_nodeza7(obj_t BgL_envz00_3050, obj_t BgL_nodez00_3051, obj_t BgL_integratorz00_3052)
{ AN_OBJECT;
{ /* ./Globalize/node.scm 431 */
{ 
BgL_boxzd2setz12zc0_bglt BgL_nodez00_1803;obj_t BgL_integratorz00_1804;
{ /* ./Globalize/node.scm 432 */
BgL_boxzd2setz12zc0_bglt BgL_auxz00_3619;
BgL_nodez00_1803 = 
(BgL_boxzd2setz12zc0_bglt)(BgL_nodez00_3051); 
BgL_integratorz00_1804 = BgL_integratorz00_3052; 
{ /* ./Globalize/node.scm 433 */
BgL_nodez00_bglt BgL_arg4574z00_1808;
{ /* ./Globalize/node.scm 433 */
BgL_varz00_bglt BgL_arg4577z00_1809;
BgL_arg4577z00_1809 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1803))->BgL_varz00); 
{ /* ./Globalize/node.scm 433 */
BgL_nodez00_bglt BgL_res4700z00_2960;
{ /* ./Globalize/node.scm 433 */
BgL_nodez00_bglt BgL_nodez00_2933;BgL_variablez00_bglt BgL_integratorz00_2934;
BgL_nodez00_2933 = 
(BgL_nodez00_bglt)(BgL_arg4577z00_1809); 
BgL_integratorz00_2934 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1804); 
{ /* ./Globalize/node.scm 433 */
obj_t BgL_method3122z00_2935;
{ /* ./Globalize/node.scm 433 */
BgL_objectz00_bglt BgL_objz00_2936;
BgL_objz00_2936 = 
(BgL_objectz00_bglt)(BgL_nodez00_2933); 
{ /* ./Globalize/node.scm 433 */
long BgL_objzd2classzd2numz00_2937;
BgL_objzd2classzd2numz00_2937 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2936); 
{ /* ./Globalize/node.scm 433 */
obj_t BgL_arg2017z00_2938;
{ /* ./Globalize/node.scm 433 */
int BgL_auxz00_3625;
BgL_auxz00_3625 = 
(int)(((long)1)); 
BgL_arg2017z00_2938 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BgL_auxz00_3625); } 
{ /* ./Globalize/node.scm 433 */
int BgL_offsetz00_2941;
BgL_offsetz00_2941 = 
(int)(BgL_objzd2classzd2numz00_2937); 
{ /* ./Globalize/node.scm 433 */
long BgL_offsetz00_2942;
{ /* ./Globalize/node.scm 433 */
long BgL_auxz00_3629;
BgL_auxz00_3629 = 
(long)(BgL_offsetz00_2941); 
BgL_offsetz00_2942 = 
(BgL_auxz00_3629-OBJECT_TYPE); } 
{ /* ./Globalize/node.scm 433 */
long BgL_modz00_2943;
{ /* ./Globalize/node.scm 433 */
int BgL_arg2028z00_2944;
BgL_arg2028z00_2944 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 433 */
long BgL_n2z00_2952;
BgL_n2z00_2952 = 
(long)(BgL_arg2028z00_2944); 
BgL_modz00_2943 = 
(BgL_offsetz00_2942/BgL_n2z00_2952); } } 
{ /* ./Globalize/node.scm 433 */
long BgL_restz00_2945;
{ /* ./Globalize/node.scm 433 */
int BgL_arg2024z00_2946;
BgL_arg2024z00_2946 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 433 */
long BgL_n2z00_2955;
BgL_n2z00_2955 = 
(long)(BgL_arg2024z00_2946); 
BgL_restz00_2945 = 
(BgL_offsetz00_2942%BgL_n2z00_2955); } } 
{ /* ./Globalize/node.scm 433 */

{ /* ./Globalize/node.scm 433 */
obj_t BgL_bucketz00_2947;
{ /* ./Globalize/node.scm 433 */
int BgL_kz00_2957;
BgL_kz00_2957 = 
(int)(BgL_modz00_2943); 
BgL_bucketz00_2947 = 
VECTOR_REF(BgL_arg2017z00_2938,BgL_kz00_2957); } 
{ /* ./Globalize/node.scm 433 */
int BgL_kz00_2959;
BgL_kz00_2959 = 
(int)(BgL_restz00_2945); 
BgL_method3122z00_2935 = 
VECTOR_REF(BgL_bucketz00_2947,BgL_kz00_2959); } } } } } } } } } } 
{ /* ./Globalize/node.scm 433 */
obj_t BgL_auxz00_3642;
BgL_auxz00_3642 = 
PROCEDURE_ENTRY(BgL_method3122z00_2935)(BgL_method3122z00_2935, 
(obj_t)(BgL_nodez00_2933), 
(obj_t)(BgL_integratorz00_2934), BEOA); 
BgL_res4700z00_2960 = 
(BgL_nodez00_bglt)(BgL_auxz00_3642); } } } 
BgL_arg4574z00_1808 = BgL_res4700z00_2960; } } 
{ /* ./Globalize/node.scm 433 */
BgL_boxzd2setz12zc0_bglt BgL_obj2642z00_2961;BgL_varz00_bglt BgL_val2641z00_2962;
BgL_obj2642z00_2961 = BgL_nodez00_1803; 
BgL_val2641z00_2962 = 
(BgL_varz00_bglt)(BgL_arg4574z00_1808); 
((((BgL_boxzd2setz12zc0_bglt)CREF(BgL_obj2642z00_2961))->BgL_varz00) = ((BgL_varz00_bglt)BgL_val2641z00_2962), BUNSPEC); } } 
{ /* ./Globalize/node.scm 434 */
BgL_nodez00_bglt BgL_arg4581z00_1810;
{ /* ./Globalize/node.scm 434 */
BgL_nodez00_bglt BgL_arg4584z00_1811;
BgL_arg4584z00_1811 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1803))->BgL_valuez00); 
{ /* ./Globalize/node.scm 434 */
BgL_nodez00_bglt BgL_res4703z00_2991;
{ /* ./Globalize/node.scm 434 */
BgL_variablez00_bglt BgL_integratorz00_2965;
BgL_integratorz00_2965 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1804); 
{ /* ./Globalize/node.scm 434 */
obj_t BgL_method3122z00_2966;
{ /* ./Globalize/node.scm 434 */
BgL_objectz00_bglt BgL_objz00_2967;
BgL_objz00_2967 = 
(BgL_objectz00_bglt)(BgL_arg4584z00_1811); 
{ /* ./Globalize/node.scm 434 */
long BgL_objzd2classzd2numz00_2968;
BgL_objzd2classzd2numz00_2968 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2967); 
{ /* ./Globalize/node.scm 434 */
obj_t BgL_arg2017z00_2969;
{ /* ./Globalize/node.scm 434 */
int BgL_auxz00_3654;
BgL_auxz00_3654 = 
(int)(((long)1)); 
BgL_arg2017z00_2969 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BgL_auxz00_3654); } 
{ /* ./Globalize/node.scm 434 */
int BgL_offsetz00_2972;
BgL_offsetz00_2972 = 
(int)(BgL_objzd2classzd2numz00_2968); 
{ /* ./Globalize/node.scm 434 */
long BgL_offsetz00_2973;
{ /* ./Globalize/node.scm 434 */
long BgL_auxz00_3658;
BgL_auxz00_3658 = 
(long)(BgL_offsetz00_2972); 
BgL_offsetz00_2973 = 
(BgL_auxz00_3658-OBJECT_TYPE); } 
{ /* ./Globalize/node.scm 434 */
long BgL_modz00_2974;
{ /* ./Globalize/node.scm 434 */
int BgL_arg2028z00_2975;
BgL_arg2028z00_2975 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 434 */
long BgL_n2z00_2983;
BgL_n2z00_2983 = 
(long)(BgL_arg2028z00_2975); 
BgL_modz00_2974 = 
(BgL_offsetz00_2973/BgL_n2z00_2983); } } 
{ /* ./Globalize/node.scm 434 */
long BgL_restz00_2976;
{ /* ./Globalize/node.scm 434 */
int BgL_arg2024z00_2977;
BgL_arg2024z00_2977 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 434 */
long BgL_n2z00_2986;
BgL_n2z00_2986 = 
(long)(BgL_arg2024z00_2977); 
BgL_restz00_2976 = 
(BgL_offsetz00_2973%BgL_n2z00_2986); } } 
{ /* ./Globalize/node.scm 434 */

{ /* ./Globalize/node.scm 434 */
obj_t BgL_bucketz00_2978;
{ /* ./Globalize/node.scm 434 */
int BgL_kz00_2988;
BgL_kz00_2988 = 
(int)(BgL_modz00_2974); 
BgL_bucketz00_2978 = 
VECTOR_REF(BgL_arg2017z00_2969,BgL_kz00_2988); } 
{ /* ./Globalize/node.scm 434 */
int BgL_kz00_2990;
BgL_kz00_2990 = 
(int)(BgL_restz00_2976); 
BgL_method3122z00_2966 = 
VECTOR_REF(BgL_bucketz00_2978,BgL_kz00_2990); } } } } } } } } } } 
{ /* ./Globalize/node.scm 434 */
obj_t BgL_auxz00_3671;
BgL_auxz00_3671 = 
PROCEDURE_ENTRY(BgL_method3122z00_2966)(BgL_method3122z00_2966, 
(obj_t)(BgL_arg4584z00_1811), 
(obj_t)(BgL_integratorz00_2965), BEOA); 
BgL_res4703z00_2991 = 
(BgL_nodez00_bglt)(BgL_auxz00_3671); } } } 
BgL_arg4581z00_1810 = BgL_res4703z00_2991; } } 
{ /* ./Globalize/node.scm 434 */
BgL_boxzd2setz12zc0_bglt BgL_obj2645z00_2992;BgL_nodez00_bglt BgL_val2644z00_2993;
BgL_obj2645z00_2992 = BgL_nodez00_1803; 
BgL_val2644z00_2993 = BgL_arg4581z00_1810; 
((((BgL_boxzd2setz12zc0_bglt)CREF(BgL_obj2645z00_2992))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2644z00_2993), BUNSPEC); } } 
BgL_auxz00_3619 = BgL_nodez00_1803; 
return 
(obj_t)(BgL_auxz00_3619);} } } 
}



/* glo!-box-ref3165 */
obj_t BGl_gloz12zd2boxzd2ref3165z12zzglobaliza7e_nodeza7(obj_t BgL_envz00_3053, obj_t BgL_nodez00_3054, obj_t BgL_integratorz00_3055)
{ AN_OBJECT;
{ /* ./Globalize/node.scm 423 */
{ 
BgL_boxzd2refzd2_bglt BgL_nodez00_1794;obj_t BgL_integratorz00_1795;
{ /* ./Globalize/node.scm 424 */
BgL_boxzd2refzd2_bglt BgL_auxz00_3680;
BgL_nodez00_1794 = 
(BgL_boxzd2refzd2_bglt)(BgL_nodez00_3054); 
BgL_integratorz00_1795 = BgL_integratorz00_3055; 
{ /* ./Globalize/node.scm 424 */
BgL_nodez00_bglt BgL_arg4561z00_2899;
{ /* ./Globalize/node.scm 424 */
BgL_varz00_bglt BgL_arg4564z00_2900;
BgL_arg4564z00_2900 = 
(((BgL_boxzd2refzd2_bglt)CREF(BgL_nodez00_1794))->BgL_varz00); 
{ /* ./Globalize/node.scm 424 */
BgL_nodez00_bglt BgL_res4697z00_2929;
{ /* ./Globalize/node.scm 424 */
BgL_nodez00_bglt BgL_nodez00_2902;BgL_variablez00_bglt BgL_integratorz00_2903;
BgL_nodez00_2902 = 
(BgL_nodez00_bglt)(BgL_arg4564z00_2900); 
BgL_integratorz00_2903 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1795); 
{ /* ./Globalize/node.scm 424 */
obj_t BgL_method3122z00_2904;
{ /* ./Globalize/node.scm 424 */
BgL_objectz00_bglt BgL_objz00_2905;
BgL_objz00_2905 = 
(BgL_objectz00_bglt)(BgL_nodez00_2902); 
{ /* ./Globalize/node.scm 424 */
long BgL_objzd2classzd2numz00_2906;
BgL_objzd2classzd2numz00_2906 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2905); 
{ /* ./Globalize/node.scm 424 */
obj_t BgL_arg2017z00_2907;
{ /* ./Globalize/node.scm 424 */
int BgL_auxz00_3686;
BgL_auxz00_3686 = 
(int)(((long)1)); 
BgL_arg2017z00_2907 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BgL_auxz00_3686); } 
{ /* ./Globalize/node.scm 424 */
int BgL_offsetz00_2910;
BgL_offsetz00_2910 = 
(int)(BgL_objzd2classzd2numz00_2906); 
{ /* ./Globalize/node.scm 424 */
long BgL_offsetz00_2911;
{ /* ./Globalize/node.scm 424 */
long BgL_auxz00_3690;
BgL_auxz00_3690 = 
(long)(BgL_offsetz00_2910); 
BgL_offsetz00_2911 = 
(BgL_auxz00_3690-OBJECT_TYPE); } 
{ /* ./Globalize/node.scm 424 */
long BgL_modz00_2912;
{ /* ./Globalize/node.scm 424 */
int BgL_arg2028z00_2913;
BgL_arg2028z00_2913 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 424 */
long BgL_n2z00_2921;
BgL_n2z00_2921 = 
(long)(BgL_arg2028z00_2913); 
BgL_modz00_2912 = 
(BgL_offsetz00_2911/BgL_n2z00_2921); } } 
{ /* ./Globalize/node.scm 424 */
long BgL_restz00_2914;
{ /* ./Globalize/node.scm 424 */
int BgL_arg2024z00_2915;
BgL_arg2024z00_2915 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 424 */
long BgL_n2z00_2924;
BgL_n2z00_2924 = 
(long)(BgL_arg2024z00_2915); 
BgL_restz00_2914 = 
(BgL_offsetz00_2911%BgL_n2z00_2924); } } 
{ /* ./Globalize/node.scm 424 */

{ /* ./Globalize/node.scm 424 */
obj_t BgL_bucketz00_2916;
{ /* ./Globalize/node.scm 424 */
int BgL_kz00_2926;
BgL_kz00_2926 = 
(int)(BgL_modz00_2912); 
BgL_bucketz00_2916 = 
VECTOR_REF(BgL_arg2017z00_2907,BgL_kz00_2926); } 
{ /* ./Globalize/node.scm 424 */
int BgL_kz00_2928;
BgL_kz00_2928 = 
(int)(BgL_restz00_2914); 
BgL_method3122z00_2904 = 
VECTOR_REF(BgL_bucketz00_2916,BgL_kz00_2928); } } } } } } } } } } 
{ /* ./Globalize/node.scm 424 */
obj_t BgL_auxz00_3703;
BgL_auxz00_3703 = 
PROCEDURE_ENTRY(BgL_method3122z00_2904)(BgL_method3122z00_2904, 
(obj_t)(BgL_nodez00_2902), 
(obj_t)(BgL_integratorz00_2903), BEOA); 
BgL_res4697z00_2929 = 
(BgL_nodez00_bglt)(BgL_auxz00_3703); } } } 
BgL_arg4561z00_2899 = BgL_res4697z00_2929; } } 
{ /* ./Globalize/node.scm 424 */
BgL_boxzd2refzd2_bglt BgL_obj2616z00_2930;BgL_varz00_bglt BgL_val2615z00_2931;
BgL_obj2616z00_2930 = BgL_nodez00_1794; 
BgL_val2615z00_2931 = 
(BgL_varz00_bglt)(BgL_arg4561z00_2899); 
((((BgL_boxzd2refzd2_bglt)CREF(BgL_obj2616z00_2930))->BgL_varz00) = ((BgL_varz00_bglt)BgL_val2615z00_2931), BUNSPEC); } } 
BgL_auxz00_3680 = BgL_nodez00_1794; 
return 
(obj_t)(BgL_auxz00_3680);} } } 
}



/* glo!-make-box3163 */
obj_t BGl_gloz12zd2makezd2box3163z12zzglobaliza7e_nodeza7(obj_t BgL_envz00_3056, obj_t BgL_nodez00_3057, obj_t BgL_integratorz00_3058)
{ AN_OBJECT;
{ /* ./Globalize/node.scm 415 */
{ 
BgL_makezd2boxzd2_bglt BgL_nodez00_1785;obj_t BgL_integratorz00_1786;
{ /* ./Globalize/node.scm 416 */
BgL_makezd2boxzd2_bglt BgL_auxz00_3713;
BgL_nodez00_1785 = 
(BgL_makezd2boxzd2_bglt)(BgL_nodez00_3057); 
BgL_integratorz00_1786 = BgL_integratorz00_3058; 
{ /* ./Globalize/node.scm 416 */
BgL_nodez00_bglt BgL_arg4548z00_2865;
{ /* ./Globalize/node.scm 416 */
BgL_nodez00_bglt BgL_arg4551z00_2866;
BgL_arg4551z00_2866 = 
(((BgL_makezd2boxzd2_bglt)CREF(BgL_nodez00_1785))->BgL_valuez00); 
{ /* ./Globalize/node.scm 416 */
BgL_nodez00_bglt BgL_res4694z00_2895;
{ /* ./Globalize/node.scm 416 */
BgL_variablez00_bglt BgL_integratorz00_2869;
BgL_integratorz00_2869 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1786); 
{ /* ./Globalize/node.scm 416 */
obj_t BgL_method3122z00_2870;
{ /* ./Globalize/node.scm 416 */
BgL_objectz00_bglt BgL_objz00_2871;
BgL_objz00_2871 = 
(BgL_objectz00_bglt)(BgL_arg4551z00_2866); 
{ /* ./Globalize/node.scm 416 */
long BgL_objzd2classzd2numz00_2872;
BgL_objzd2classzd2numz00_2872 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2871); 
{ /* ./Globalize/node.scm 416 */
obj_t BgL_arg2017z00_2873;
{ /* ./Globalize/node.scm 416 */
int BgL_auxz00_3718;
BgL_auxz00_3718 = 
(int)(((long)1)); 
BgL_arg2017z00_2873 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BgL_auxz00_3718); } 
{ /* ./Globalize/node.scm 416 */
int BgL_offsetz00_2876;
BgL_offsetz00_2876 = 
(int)(BgL_objzd2classzd2numz00_2872); 
{ /* ./Globalize/node.scm 416 */
long BgL_offsetz00_2877;
{ /* ./Globalize/node.scm 416 */
long BgL_auxz00_3722;
BgL_auxz00_3722 = 
(long)(BgL_offsetz00_2876); 
BgL_offsetz00_2877 = 
(BgL_auxz00_3722-OBJECT_TYPE); } 
{ /* ./Globalize/node.scm 416 */
long BgL_modz00_2878;
{ /* ./Globalize/node.scm 416 */
int BgL_arg2028z00_2879;
BgL_arg2028z00_2879 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 416 */
long BgL_n2z00_2887;
BgL_n2z00_2887 = 
(long)(BgL_arg2028z00_2879); 
BgL_modz00_2878 = 
(BgL_offsetz00_2877/BgL_n2z00_2887); } } 
{ /* ./Globalize/node.scm 416 */
long BgL_restz00_2880;
{ /* ./Globalize/node.scm 416 */
int BgL_arg2024z00_2881;
BgL_arg2024z00_2881 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 416 */
long BgL_n2z00_2890;
BgL_n2z00_2890 = 
(long)(BgL_arg2024z00_2881); 
BgL_restz00_2880 = 
(BgL_offsetz00_2877%BgL_n2z00_2890); } } 
{ /* ./Globalize/node.scm 416 */

{ /* ./Globalize/node.scm 416 */
obj_t BgL_bucketz00_2882;
{ /* ./Globalize/node.scm 416 */
int BgL_kz00_2892;
BgL_kz00_2892 = 
(int)(BgL_modz00_2878); 
BgL_bucketz00_2882 = 
VECTOR_REF(BgL_arg2017z00_2873,BgL_kz00_2892); } 
{ /* ./Globalize/node.scm 416 */
int BgL_kz00_2894;
BgL_kz00_2894 = 
(int)(BgL_restz00_2880); 
BgL_method3122z00_2870 = 
VECTOR_REF(BgL_bucketz00_2882,BgL_kz00_2894); } } } } } } } } } } 
{ /* ./Globalize/node.scm 416 */
obj_t BgL_auxz00_3735;
BgL_auxz00_3735 = 
PROCEDURE_ENTRY(BgL_method3122z00_2870)(BgL_method3122z00_2870, 
(obj_t)(BgL_arg4551z00_2866), 
(obj_t)(BgL_integratorz00_2869), BEOA); 
BgL_res4694z00_2895 = 
(BgL_nodez00_bglt)(BgL_auxz00_3735); } } } 
BgL_arg4548z00_2865 = BgL_res4694z00_2895; } } 
{ /* ./Globalize/node.scm 416 */
BgL_makezd2boxzd2_bglt BgL_obj2584z00_2896;BgL_nodez00_bglt BgL_val2583z00_2897;
BgL_obj2584z00_2896 = BgL_nodez00_1785; 
BgL_val2583z00_2897 = BgL_arg4548z00_2865; 
((((BgL_makezd2boxzd2_bglt)CREF(BgL_obj2584z00_2896))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2583z00_2897), BUNSPEC); } } 
BgL_auxz00_3713 = BgL_nodez00_1785; 
return 
(obj_t)(BgL_auxz00_3713);} } } 
}



/* glo!-jump-ex-it3161 */
obj_t BGl_gloz12zd2jumpzd2exzd2it3161zc0zzglobaliza7e_nodeza7(obj_t BgL_envz00_3059, obj_t BgL_nodez00_3060, obj_t BgL_integratorz00_3061)
{ AN_OBJECT;
{ /* ./Globalize/node.scm 406 */
{ 
BgL_jumpzd2exzd2itz00_bglt BgL_nodez00_1774;obj_t BgL_integratorz00_1775;
{ /* ./Globalize/node.scm 407 */
BgL_jumpzd2exzd2itz00_bglt BgL_auxz00_3744;
BgL_nodez00_1774 = 
(BgL_jumpzd2exzd2itz00_bglt)(BgL_nodez00_3060); 
BgL_integratorz00_1775 = BgL_integratorz00_3061; 
{ /* ./Globalize/node.scm 408 */
BgL_nodez00_bglt BgL_arg4528z00_1779;
{ /* ./Globalize/node.scm 408 */
BgL_nodez00_bglt BgL_arg4531z00_1780;
BgL_arg4531z00_1780 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1774))->BgL_exitz00); 
{ /* ./Globalize/node.scm 408 */
BgL_nodez00_bglt BgL_res4688z00_2830;
{ /* ./Globalize/node.scm 408 */
BgL_variablez00_bglt BgL_integratorz00_2804;
BgL_integratorz00_2804 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1775); 
{ /* ./Globalize/node.scm 408 */
obj_t BgL_method3122z00_2805;
{ /* ./Globalize/node.scm 408 */
BgL_objectz00_bglt BgL_objz00_2806;
BgL_objz00_2806 = 
(BgL_objectz00_bglt)(BgL_arg4531z00_1780); 
{ /* ./Globalize/node.scm 408 */
long BgL_objzd2classzd2numz00_2807;
BgL_objzd2classzd2numz00_2807 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2806); 
{ /* ./Globalize/node.scm 408 */
obj_t BgL_arg2017z00_2808;
{ /* ./Globalize/node.scm 408 */
int BgL_auxz00_3749;
BgL_auxz00_3749 = 
(int)(((long)1)); 
BgL_arg2017z00_2808 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BgL_auxz00_3749); } 
{ /* ./Globalize/node.scm 408 */
int BgL_offsetz00_2811;
BgL_offsetz00_2811 = 
(int)(BgL_objzd2classzd2numz00_2807); 
{ /* ./Globalize/node.scm 408 */
long BgL_offsetz00_2812;
{ /* ./Globalize/node.scm 408 */
long BgL_auxz00_3753;
BgL_auxz00_3753 = 
(long)(BgL_offsetz00_2811); 
BgL_offsetz00_2812 = 
(BgL_auxz00_3753-OBJECT_TYPE); } 
{ /* ./Globalize/node.scm 408 */
long BgL_modz00_2813;
{ /* ./Globalize/node.scm 408 */
int BgL_arg2028z00_2814;
BgL_arg2028z00_2814 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 408 */
long BgL_n2z00_2822;
BgL_n2z00_2822 = 
(long)(BgL_arg2028z00_2814); 
BgL_modz00_2813 = 
(BgL_offsetz00_2812/BgL_n2z00_2822); } } 
{ /* ./Globalize/node.scm 408 */
long BgL_restz00_2815;
{ /* ./Globalize/node.scm 408 */
int BgL_arg2024z00_2816;
BgL_arg2024z00_2816 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 408 */
long BgL_n2z00_2825;
BgL_n2z00_2825 = 
(long)(BgL_arg2024z00_2816); 
BgL_restz00_2815 = 
(BgL_offsetz00_2812%BgL_n2z00_2825); } } 
{ /* ./Globalize/node.scm 408 */

{ /* ./Globalize/node.scm 408 */
obj_t BgL_bucketz00_2817;
{ /* ./Globalize/node.scm 408 */
int BgL_kz00_2827;
BgL_kz00_2827 = 
(int)(BgL_modz00_2813); 
BgL_bucketz00_2817 = 
VECTOR_REF(BgL_arg2017z00_2808,BgL_kz00_2827); } 
{ /* ./Globalize/node.scm 408 */
int BgL_kz00_2829;
BgL_kz00_2829 = 
(int)(BgL_restz00_2815); 
BgL_method3122z00_2805 = 
VECTOR_REF(BgL_bucketz00_2817,BgL_kz00_2829); } } } } } } } } } } 
{ /* ./Globalize/node.scm 408 */
obj_t BgL_auxz00_3766;
BgL_auxz00_3766 = 
PROCEDURE_ENTRY(BgL_method3122z00_2805)(BgL_method3122z00_2805, 
(obj_t)(BgL_arg4531z00_1780), 
(obj_t)(BgL_integratorz00_2804), BEOA); 
BgL_res4688z00_2830 = 
(BgL_nodez00_bglt)(BgL_auxz00_3766); } } } 
BgL_arg4528z00_1779 = BgL_res4688z00_2830; } } 
{ /* ./Globalize/node.scm 408 */
BgL_jumpzd2exzd2itz00_bglt BgL_obj2552z00_2831;BgL_nodez00_bglt BgL_val2551z00_2832;
BgL_obj2552z00_2831 = BgL_nodez00_1774; 
BgL_val2551z00_2832 = BgL_arg4528z00_1779; 
((((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_obj2552z00_2831))->BgL_exitz00) = ((BgL_nodez00_bglt)BgL_val2551z00_2832), BUNSPEC); } } 
{ /* ./Globalize/node.scm 409 */
BgL_nodez00_bglt BgL_arg4535z00_1781;
{ /* ./Globalize/node.scm 409 */
BgL_nodez00_bglt BgL_arg4538z00_1782;
BgL_arg4538z00_1782 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1774))->BgL_valuez00); 
{ /* ./Globalize/node.scm 409 */
BgL_nodez00_bglt BgL_res4691z00_2861;
{ /* ./Globalize/node.scm 409 */
BgL_variablez00_bglt BgL_integratorz00_2835;
BgL_integratorz00_2835 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1775); 
{ /* ./Globalize/node.scm 409 */
obj_t BgL_method3122z00_2836;
{ /* ./Globalize/node.scm 409 */
BgL_objectz00_bglt BgL_objz00_2837;
BgL_objz00_2837 = 
(BgL_objectz00_bglt)(BgL_arg4538z00_1782); 
{ /* ./Globalize/node.scm 409 */
long BgL_objzd2classzd2numz00_2838;
BgL_objzd2classzd2numz00_2838 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2837); 
{ /* ./Globalize/node.scm 409 */
obj_t BgL_arg2017z00_2839;
{ /* ./Globalize/node.scm 409 */
int BgL_auxz00_3777;
BgL_auxz00_3777 = 
(int)(((long)1)); 
BgL_arg2017z00_2839 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BgL_auxz00_3777); } 
{ /* ./Globalize/node.scm 409 */
int BgL_offsetz00_2842;
BgL_offsetz00_2842 = 
(int)(BgL_objzd2classzd2numz00_2838); 
{ /* ./Globalize/node.scm 409 */
long BgL_offsetz00_2843;
{ /* ./Globalize/node.scm 409 */
long BgL_auxz00_3781;
BgL_auxz00_3781 = 
(long)(BgL_offsetz00_2842); 
BgL_offsetz00_2843 = 
(BgL_auxz00_3781-OBJECT_TYPE); } 
{ /* ./Globalize/node.scm 409 */
long BgL_modz00_2844;
{ /* ./Globalize/node.scm 409 */
int BgL_arg2028z00_2845;
BgL_arg2028z00_2845 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 409 */
long BgL_n2z00_2853;
BgL_n2z00_2853 = 
(long)(BgL_arg2028z00_2845); 
BgL_modz00_2844 = 
(BgL_offsetz00_2843/BgL_n2z00_2853); } } 
{ /* ./Globalize/node.scm 409 */
long BgL_restz00_2846;
{ /* ./Globalize/node.scm 409 */
int BgL_arg2024z00_2847;
BgL_arg2024z00_2847 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 409 */
long BgL_n2z00_2856;
BgL_n2z00_2856 = 
(long)(BgL_arg2024z00_2847); 
BgL_restz00_2846 = 
(BgL_offsetz00_2843%BgL_n2z00_2856); } } 
{ /* ./Globalize/node.scm 409 */

{ /* ./Globalize/node.scm 409 */
obj_t BgL_bucketz00_2848;
{ /* ./Globalize/node.scm 409 */
int BgL_kz00_2858;
BgL_kz00_2858 = 
(int)(BgL_modz00_2844); 
BgL_bucketz00_2848 = 
VECTOR_REF(BgL_arg2017z00_2839,BgL_kz00_2858); } 
{ /* ./Globalize/node.scm 409 */
int BgL_kz00_2860;
BgL_kz00_2860 = 
(int)(BgL_restz00_2846); 
BgL_method3122z00_2836 = 
VECTOR_REF(BgL_bucketz00_2848,BgL_kz00_2860); } } } } } } } } } } 
{ /* ./Globalize/node.scm 409 */
obj_t BgL_auxz00_3794;
BgL_auxz00_3794 = 
PROCEDURE_ENTRY(BgL_method3122z00_2836)(BgL_method3122z00_2836, 
(obj_t)(BgL_arg4538z00_1782), 
(obj_t)(BgL_integratorz00_2835), BEOA); 
BgL_res4691z00_2861 = 
(BgL_nodez00_bglt)(BgL_auxz00_3794); } } } 
BgL_arg4535z00_1781 = BgL_res4691z00_2861; } } 
{ /* ./Globalize/node.scm 409 */
BgL_jumpzd2exzd2itz00_bglt BgL_obj2555z00_2862;BgL_nodez00_bglt BgL_val2554z00_2863;
BgL_obj2555z00_2862 = BgL_nodez00_1774; 
BgL_val2554z00_2863 = BgL_arg4535z00_1781; 
((((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_obj2555z00_2862))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2554z00_2863), BUNSPEC); } } 
BgL_auxz00_3744 = BgL_nodez00_1774; 
return 
(obj_t)(BgL_auxz00_3744);} } } 
}



/* glo!-set-ex-it3159 */
obj_t BGl_gloz12zd2setzd2exzd2it3159zc0zzglobaliza7e_nodeza7(obj_t BgL_envz00_3062, obj_t BgL_nodez00_3063, obj_t BgL_integratorz00_3064)
{ AN_OBJECT;
{ /* ./Globalize/node.scm 391 */
{ 
BgL_setzd2exzd2itz00_bglt BgL_nodez00_1756;obj_t BgL_integratorz00_1757;
{ /* ./Globalize/node.scm 392 */
BgL_setzd2exzd2itz00_bglt BgL_auxz00_3803;
BgL_nodez00_1756 = 
(BgL_setzd2exzd2itz00_bglt)(BgL_nodez00_3063); 
BgL_integratorz00_1757 = BgL_integratorz00_3064; 
{ /* ./Globalize/node.scm 393 */
obj_t BgL_hdlgz00_1761;
{ /* ./Globalize/node.scm 393 */
BgL_sexitz00_bglt BgL_obj1528z00_2763;
{ /* ./Globalize/node.scm 393 */
BgL_valuez00_bglt BgL_auxz00_3804;
{ /* ./Globalize/node.scm 393 */
BgL_variablez00_bglt BgL_arg4514z00_1770;
{ /* ./Globalize/node.scm 393 */
BgL_varz00_bglt BgL_arg4517z00_1771;
BgL_arg4517z00_1771 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1756))->BgL_varz00); 
BgL_arg4514z00_1770 = 
(((BgL_varz00_bglt)CREF(BgL_arg4517z00_1771))->BgL_variablez00); } 
BgL_auxz00_3804 = 
(((BgL_variablez00_bglt)CREF(BgL_arg4514z00_1770))->BgL_valuez00); } 
BgL_obj1528z00_2763 = 
(BgL_sexitz00_bglt)(BgL_auxz00_3804); } 
BgL_hdlgz00_1761 = 
(((BgL_sexitz00_bglt)CREF(BgL_obj1528z00_2763))->BgL_handlerz00); } 
{ /* ./Globalize/node.scm 398 */
bool_t BgL_test4488z00_1762;
{ /* ./Globalize/node.scm 398 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2740z00_2765;
{ /* ./Globalize/node.scm 398 */
BgL_valuez00_bglt BgL_auxz00_3810;
{ /* ./Globalize/node.scm 398 */
BgL_variablez00_bglt BgL_obj1100z00_2764;
BgL_obj1100z00_2764 = 
(BgL_variablez00_bglt)(BgL_hdlgz00_1761); 
BgL_auxz00_3810 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_2764))->BgL_valuez00); } 
BgL_obj2740z00_2765 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_auxz00_3810); } 
{ 
obj_t BgL_auxz00_3814;
{ /* ./Globalize/node.scm 398 */
BgL_objectz00_bglt BgL_auxz00_3815;
BgL_auxz00_3815 = 
(BgL_objectz00_bglt)(BgL_obj2740z00_2765); 
BgL_auxz00_3814 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3815); } 
BgL_test4488z00_1762 = 
(((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_3814))->BgL_gzf3zf3); } } 
if(BgL_test4488z00_1762)
{ /* ./Globalize/node.scm 399 */
BgL_valuez00_bglt BgL_arg4490z00_1763;
{ /* ./Globalize/node.scm 399 */
BgL_variablez00_bglt BgL_arg4493z00_1764;
{ /* ./Globalize/node.scm 399 */
BgL_varz00_bglt BgL_arg4496z00_1765;
BgL_arg4496z00_1765 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1756))->BgL_varz00); 
BgL_arg4493z00_1764 = 
(((BgL_varz00_bglt)CREF(BgL_arg4496z00_1765))->BgL_variablez00); } 
BgL_arg4490z00_1763 = 
(((BgL_variablez00_bglt)CREF(BgL_arg4493z00_1764))->BgL_valuez00); } 
{ /* ./Globalize/node.scm 399 */
BgL_sexitz00_bglt BgL_obj1533z00_2769;bool_t BgL_val1532z00_2770;
BgL_obj1533z00_2769 = 
(BgL_sexitz00_bglt)(BgL_arg4490z00_1763); 
BgL_val1532z00_2770 = ((bool_t)1); 
((((BgL_sexitz00_bglt)CREF(BgL_obj1533z00_2769))->BgL_detachedzf3zf3) = ((bool_t)BgL_val1532z00_2770), BUNSPEC); } }  else 
{ /* ./Globalize/node.scm 398 */BFALSE; } } 
{ /* ./Globalize/node.scm 400 */
BgL_nodez00_bglt BgL_arg4504z00_1767;
{ /* ./Globalize/node.scm 400 */
BgL_nodez00_bglt BgL_arg4507z00_1768;
BgL_arg4507z00_1768 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1756))->BgL_bodyz00); 
{ /* ./Globalize/node.scm 400 */
BgL_nodez00_bglt BgL_res4685z00_2799;
{ /* ./Globalize/node.scm 400 */
BgL_variablez00_bglt BgL_integratorz00_2773;
BgL_integratorz00_2773 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1757); 
{ /* ./Globalize/node.scm 400 */
obj_t BgL_method3122z00_2774;
{ /* ./Globalize/node.scm 400 */
BgL_objectz00_bglt BgL_objz00_2775;
BgL_objz00_2775 = 
(BgL_objectz00_bglt)(BgL_arg4507z00_1768); 
{ /* ./Globalize/node.scm 400 */
long BgL_objzd2classzd2numz00_2776;
BgL_objzd2classzd2numz00_2776 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2775); 
{ /* ./Globalize/node.scm 400 */
obj_t BgL_arg2017z00_2777;
{ /* ./Globalize/node.scm 400 */
int BgL_auxz00_3829;
BgL_auxz00_3829 = 
(int)(((long)1)); 
BgL_arg2017z00_2777 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BgL_auxz00_3829); } 
{ /* ./Globalize/node.scm 400 */
int BgL_offsetz00_2780;
BgL_offsetz00_2780 = 
(int)(BgL_objzd2classzd2numz00_2776); 
{ /* ./Globalize/node.scm 400 */
long BgL_offsetz00_2781;
{ /* ./Globalize/node.scm 400 */
long BgL_auxz00_3833;
BgL_auxz00_3833 = 
(long)(BgL_offsetz00_2780); 
BgL_offsetz00_2781 = 
(BgL_auxz00_3833-OBJECT_TYPE); } 
{ /* ./Globalize/node.scm 400 */
long BgL_modz00_2782;
{ /* ./Globalize/node.scm 400 */
int BgL_arg2028z00_2783;
BgL_arg2028z00_2783 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 400 */
long BgL_n2z00_2791;
BgL_n2z00_2791 = 
(long)(BgL_arg2028z00_2783); 
BgL_modz00_2782 = 
(BgL_offsetz00_2781/BgL_n2z00_2791); } } 
{ /* ./Globalize/node.scm 400 */
long BgL_restz00_2784;
{ /* ./Globalize/node.scm 400 */
int BgL_arg2024z00_2785;
BgL_arg2024z00_2785 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 400 */
long BgL_n2z00_2794;
BgL_n2z00_2794 = 
(long)(BgL_arg2024z00_2785); 
BgL_restz00_2784 = 
(BgL_offsetz00_2781%BgL_n2z00_2794); } } 
{ /* ./Globalize/node.scm 400 */

{ /* ./Globalize/node.scm 400 */
obj_t BgL_bucketz00_2786;
{ /* ./Globalize/node.scm 400 */
int BgL_kz00_2796;
BgL_kz00_2796 = 
(int)(BgL_modz00_2782); 
BgL_bucketz00_2786 = 
VECTOR_REF(BgL_arg2017z00_2777,BgL_kz00_2796); } 
{ /* ./Globalize/node.scm 400 */
int BgL_kz00_2798;
BgL_kz00_2798 = 
(int)(BgL_restz00_2784); 
BgL_method3122z00_2774 = 
VECTOR_REF(BgL_bucketz00_2786,BgL_kz00_2798); } } } } } } } } } } 
{ /* ./Globalize/node.scm 400 */
obj_t BgL_auxz00_3846;
BgL_auxz00_3846 = 
PROCEDURE_ENTRY(BgL_method3122z00_2774)(BgL_method3122z00_2774, 
(obj_t)(BgL_arg4507z00_1768), 
(obj_t)(BgL_integratorz00_2773), BEOA); 
BgL_res4685z00_2799 = 
(BgL_nodez00_bglt)(BgL_auxz00_3846); } } } 
BgL_arg4504z00_1767 = BgL_res4685z00_2799; } } 
{ /* ./Globalize/node.scm 400 */
BgL_setzd2exzd2itz00_bglt BgL_obj2529z00_2800;BgL_nodez00_bglt BgL_val2528z00_2801;
BgL_obj2529z00_2800 = BgL_nodez00_1756; 
BgL_val2528z00_2801 = BgL_arg4504z00_1767; 
((((BgL_setzd2exzd2itz00_bglt)CREF(BgL_obj2529z00_2800))->BgL_bodyz00) = ((BgL_nodez00_bglt)BgL_val2528z00_2801), BUNSPEC); } } 
BgL_auxz00_3803 = BgL_nodez00_1756; } 
return 
(obj_t)(BgL_auxz00_3803);} } } 
}



/* glo!-let-var3157 */
obj_t BGl_gloz12zd2letzd2var3157z12zzglobaliza7e_nodeza7(obj_t BgL_envz00_3065, obj_t BgL_nodez00_3066, obj_t BgL_integratorz00_3067)
{ AN_OBJECT;
{ /* ./Globalize/node.scm 373 */
{ 
BgL_letzd2varzd2_bglt BgL_nodez00_1735;obj_t BgL_integratorz00_1736;
{ /* ./Globalize/node.scm 374 */
BgL_letzd2varzd2_bglt BgL_auxz00_3855;
BgL_nodez00_1735 = 
(BgL_letzd2varzd2_bglt)(BgL_nodez00_3066); 
BgL_integratorz00_1736 = BgL_integratorz00_3067; 
{ 
obj_t BgL_l3092z00_1740;
{ /* ./Globalize/node.scm 375 */
obj_t BgL_arg4448z00_1742;
BgL_arg4448z00_1742 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1735))->BgL_bindingsz00); 
BgL_l3092z00_1740 = BgL_arg4448z00_1742; 
BgL_forzd2each3093zd2_1741:
{ /* ./Globalize/node.scm 375 */
bool_t BgL_test4451z00_1743;
BgL_test4451z00_1743 = 
PAIRP(BgL_l3092z00_1740); 
if(BgL_test4451z00_1743)
{ /* ./Globalize/node.scm 375 */
{ /* ./Globalize/node.scm 376 */
obj_t BgL_bindingz00_1744;
BgL_bindingz00_1744 = 
CAR(BgL_l3092z00_1740); 
{ /* ./Globalize/node.scm 376 */
obj_t BgL_varz00_1745;obj_t BgL_valz00_1746;
BgL_varz00_1745 = 
CAR(BgL_bindingz00_1744); 
BgL_valz00_1746 = 
CDR(BgL_bindingz00_1744); 
{ /* ./Globalize/node.scm 378 */
BgL_nodez00_bglt BgL_arg4453z00_1747;
{ /* ./Globalize/node.scm 378 */
BgL_nodez00_bglt BgL_res4679z00_2720;
{ /* ./Globalize/node.scm 378 */
BgL_nodez00_bglt BgL_nodez00_2693;BgL_variablez00_bglt BgL_integratorz00_2694;
BgL_nodez00_2693 = 
(BgL_nodez00_bglt)(BgL_valz00_1746); 
BgL_integratorz00_2694 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1736); 
{ /* ./Globalize/node.scm 378 */
obj_t BgL_method3122z00_2695;
{ /* ./Globalize/node.scm 378 */
BgL_objectz00_bglt BgL_objz00_2696;
BgL_objz00_2696 = 
(BgL_objectz00_bglt)(BgL_nodez00_2693); 
{ /* ./Globalize/node.scm 378 */
long BgL_objzd2classzd2numz00_2697;
BgL_objzd2classzd2numz00_2697 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2696); 
{ /* ./Globalize/node.scm 378 */
obj_t BgL_arg2017z00_2698;
{ /* ./Globalize/node.scm 378 */
int BgL_auxz00_3866;
BgL_auxz00_3866 = 
(int)(((long)1)); 
BgL_arg2017z00_2698 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BgL_auxz00_3866); } 
{ /* ./Globalize/node.scm 378 */
int BgL_offsetz00_2701;
BgL_offsetz00_2701 = 
(int)(BgL_objzd2classzd2numz00_2697); 
{ /* ./Globalize/node.scm 378 */
long BgL_offsetz00_2702;
{ /* ./Globalize/node.scm 378 */
long BgL_auxz00_3870;
BgL_auxz00_3870 = 
(long)(BgL_offsetz00_2701); 
BgL_offsetz00_2702 = 
(BgL_auxz00_3870-OBJECT_TYPE); } 
{ /* ./Globalize/node.scm 378 */
long BgL_modz00_2703;
{ /* ./Globalize/node.scm 378 */
int BgL_arg2028z00_2704;
BgL_arg2028z00_2704 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 378 */
long BgL_n2z00_2712;
BgL_n2z00_2712 = 
(long)(BgL_arg2028z00_2704); 
BgL_modz00_2703 = 
(BgL_offsetz00_2702/BgL_n2z00_2712); } } 
{ /* ./Globalize/node.scm 378 */
long BgL_restz00_2705;
{ /* ./Globalize/node.scm 378 */
int BgL_arg2024z00_2706;
BgL_arg2024z00_2706 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 378 */
long BgL_n2z00_2715;
BgL_n2z00_2715 = 
(long)(BgL_arg2024z00_2706); 
BgL_restz00_2705 = 
(BgL_offsetz00_2702%BgL_n2z00_2715); } } 
{ /* ./Globalize/node.scm 378 */

{ /* ./Globalize/node.scm 378 */
obj_t BgL_bucketz00_2707;
{ /* ./Globalize/node.scm 378 */
int BgL_kz00_2717;
BgL_kz00_2717 = 
(int)(BgL_modz00_2703); 
BgL_bucketz00_2707 = 
VECTOR_REF(BgL_arg2017z00_2698,BgL_kz00_2717); } 
{ /* ./Globalize/node.scm 378 */
int BgL_kz00_2719;
BgL_kz00_2719 = 
(int)(BgL_restz00_2705); 
BgL_method3122z00_2695 = 
VECTOR_REF(BgL_bucketz00_2707,BgL_kz00_2719); } } } } } } } } } } 
{ /* ./Globalize/node.scm 378 */
obj_t BgL_auxz00_3883;
BgL_auxz00_3883 = 
PROCEDURE_ENTRY(BgL_method3122z00_2695)(BgL_method3122z00_2695, 
(obj_t)(BgL_nodez00_2693), 
(obj_t)(BgL_integratorz00_2694), BEOA); 
BgL_res4679z00_2720 = 
(BgL_nodez00_bglt)(BgL_auxz00_3883); } } } 
BgL_arg4453z00_1747 = BgL_res4679z00_2720; } 
{ /* ./Globalize/node.scm 378 */
obj_t BgL_objz00_2722;
BgL_objz00_2722 = 
(obj_t)(BgL_arg4453z00_1747); 
SET_CDR(BgL_bindingz00_1744, BgL_objz00_2722); } } 
{ /* ./Globalize/node.scm 379 */
bool_t BgL_test4456z00_1748;
BgL_test4456z00_1748 = 
BGl_celledzf3zf3zzglobaliza7e_nodeza7(
(BgL_variablez00_bglt)(BgL_varz00_1745)); 
if(BgL_test4456z00_1748)
{ /* ./Globalize/node.scm 379 */
{ /* ./Globalize/node.scm 381 */
BgL_variablez00_bglt BgL_obj1099z00_2723;BgL_typez00_bglt BgL_val1098z00_2724;
BgL_obj1099z00_2723 = 
(BgL_variablez00_bglt)(BgL_varz00_1745); 
BgL_val1098z00_2724 = 
(BgL_typez00_bglt)(BGl_za2objza2z00zztype_cachez00); 
((((BgL_variablez00_bglt)CREF(BgL_obj1099z00_2723))->BgL_typez00) = ((BgL_typez00_bglt)BgL_val1098z00_2724), BUNSPEC); } 
{ /* ./Globalize/node.scm 382 */
BgL_makezd2boxzd2_bglt BgL_arg4459z00_1749;
{ /* ./Globalize/node.scm 382 */
obj_t BgL_arg4462z00_1750;
BgL_arg4462z00_1750 = 
CDR(BgL_bindingz00_1744); 
BgL_arg4459z00_1749 = 
BGl_azd2makezd2cellz00zzglobaliza7e_nodeza7(
(BgL_nodez00_bglt)(BgL_arg4462z00_1750), 
(BgL_variablez00_bglt)(BgL_varz00_1745)); } 
{ /* ./Globalize/node.scm 382 */
obj_t BgL_objz00_2727;
BgL_objz00_2727 = 
(obj_t)(BgL_arg4459z00_1749); 
SET_CDR(BgL_bindingz00_1744, BgL_objz00_2727); } } }  else 
{ /* ./Globalize/node.scm 379 */BFALSE; } } } } 
{ /* ./Globalize/node.scm 375 */
obj_t BgL_arg4471z00_1751;
BgL_arg4471z00_1751 = 
CDR(BgL_l3092z00_1740); 
{ 
obj_t BgL_l3092z00_3904;
BgL_l3092z00_3904 = BgL_arg4471z00_1751; 
BgL_l3092z00_1740 = BgL_l3092z00_3904; 
goto BgL_forzd2each3093zd2_1741;} } }  else 
{ /* ./Globalize/node.scm 375 */((bool_t)1); } } } } 
{ /* ./Globalize/node.scm 385 */
BgL_nodez00_bglt BgL_arg4476z00_1752;
{ /* ./Globalize/node.scm 385 */
BgL_nodez00_bglt BgL_arg4479z00_1753;
BgL_arg4479z00_1753 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1735))->BgL_bodyz00); 
{ /* ./Globalize/node.scm 385 */
BgL_nodez00_bglt BgL_res4682z00_2757;
{ /* ./Globalize/node.scm 385 */
BgL_variablez00_bglt BgL_integratorz00_2731;
BgL_integratorz00_2731 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1736); 
{ /* ./Globalize/node.scm 385 */
obj_t BgL_method3122z00_2732;
{ /* ./Globalize/node.scm 385 */
BgL_objectz00_bglt BgL_objz00_2733;
BgL_objz00_2733 = 
(BgL_objectz00_bglt)(BgL_arg4479z00_1753); 
{ /* ./Globalize/node.scm 385 */
long BgL_objzd2classzd2numz00_2734;
BgL_objzd2classzd2numz00_2734 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2733); 
{ /* ./Globalize/node.scm 385 */
obj_t BgL_arg2017z00_2735;
{ /* ./Globalize/node.scm 385 */
int BgL_auxz00_3909;
BgL_auxz00_3909 = 
(int)(((long)1)); 
BgL_arg2017z00_2735 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BgL_auxz00_3909); } 
{ /* ./Globalize/node.scm 385 */
int BgL_offsetz00_2738;
BgL_offsetz00_2738 = 
(int)(BgL_objzd2classzd2numz00_2734); 
{ /* ./Globalize/node.scm 385 */
long BgL_offsetz00_2739;
{ /* ./Globalize/node.scm 385 */
long BgL_auxz00_3913;
BgL_auxz00_3913 = 
(long)(BgL_offsetz00_2738); 
BgL_offsetz00_2739 = 
(BgL_auxz00_3913-OBJECT_TYPE); } 
{ /* ./Globalize/node.scm 385 */
long BgL_modz00_2740;
{ /* ./Globalize/node.scm 385 */
int BgL_arg2028z00_2741;
BgL_arg2028z00_2741 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 385 */
long BgL_n2z00_2749;
BgL_n2z00_2749 = 
(long)(BgL_arg2028z00_2741); 
BgL_modz00_2740 = 
(BgL_offsetz00_2739/BgL_n2z00_2749); } } 
{ /* ./Globalize/node.scm 385 */
long BgL_restz00_2742;
{ /* ./Globalize/node.scm 385 */
int BgL_arg2024z00_2743;
BgL_arg2024z00_2743 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 385 */
long BgL_n2z00_2752;
BgL_n2z00_2752 = 
(long)(BgL_arg2024z00_2743); 
BgL_restz00_2742 = 
(BgL_offsetz00_2739%BgL_n2z00_2752); } } 
{ /* ./Globalize/node.scm 385 */

{ /* ./Globalize/node.scm 385 */
obj_t BgL_bucketz00_2744;
{ /* ./Globalize/node.scm 385 */
int BgL_kz00_2754;
BgL_kz00_2754 = 
(int)(BgL_modz00_2740); 
BgL_bucketz00_2744 = 
VECTOR_REF(BgL_arg2017z00_2735,BgL_kz00_2754); } 
{ /* ./Globalize/node.scm 385 */
int BgL_kz00_2756;
BgL_kz00_2756 = 
(int)(BgL_restz00_2742); 
BgL_method3122z00_2732 = 
VECTOR_REF(BgL_bucketz00_2744,BgL_kz00_2756); } } } } } } } } } } 
{ /* ./Globalize/node.scm 385 */
obj_t BgL_auxz00_3926;
BgL_auxz00_3926 = 
PROCEDURE_ENTRY(BgL_method3122z00_2732)(BgL_method3122z00_2732, 
(obj_t)(BgL_arg4479z00_1753), 
(obj_t)(BgL_integratorz00_2731), BEOA); 
BgL_res4682z00_2757 = 
(BgL_nodez00_bglt)(BgL_auxz00_3926); } } } 
BgL_arg4476z00_1752 = BgL_res4682z00_2757; } } 
{ /* ./Globalize/node.scm 385 */
BgL_letzd2varzd2_bglt BgL_obj2491z00_2758;BgL_nodez00_bglt BgL_val2490z00_2759;
BgL_obj2491z00_2758 = BgL_nodez00_1735; 
BgL_val2490z00_2759 = BgL_arg4476z00_1752; 
((((BgL_letzd2varzd2_bglt)CREF(BgL_obj2491z00_2758))->BgL_bodyz00) = ((BgL_nodez00_bglt)BgL_val2490z00_2759), BUNSPEC); } } 
BgL_auxz00_3855 = BgL_nodez00_1735; 
return 
(obj_t)(BgL_auxz00_3855);} } } 
}



/* glo!-let-fun3155 */
obj_t BGl_gloz12zd2letzd2fun3155z12zzglobaliza7e_nodeza7(obj_t BgL_envz00_3068, obj_t BgL_nodez00_3069, obj_t BgL_integratorz00_3070)
{ AN_OBJECT;
{ /* ./Globalize/node.scm 340 */
{ 
BgL_letzd2funzd2_bglt BgL_nodez00_1706;obj_t BgL_integratorz00_1707;
BgL_nodez00_1706 = 
(BgL_letzd2funzd2_bglt)(BgL_nodez00_3069); 
BgL_integratorz00_1707 = BgL_integratorz00_3070; 
{ /* ./Globalize/node.scm 342 */
BgL_nodez00_bglt BgL_arg4394z00_1711;
{ /* ./Globalize/node.scm 342 */
BgL_nodez00_bglt BgL_arg4397z00_1712;
BgL_arg4397z00_1712 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1706))->BgL_bodyz00); 
{ /* ./Globalize/node.scm 342 */
BgL_nodez00_bglt BgL_res4676z00_2672;
{ /* ./Globalize/node.scm 342 */
BgL_variablez00_bglt BgL_integratorz00_2646;
BgL_integratorz00_2646 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1707); 
{ /* ./Globalize/node.scm 342 */
obj_t BgL_method3122z00_2647;
{ /* ./Globalize/node.scm 342 */
BgL_objectz00_bglt BgL_objz00_2648;
BgL_objz00_2648 = 
(BgL_objectz00_bglt)(BgL_arg4397z00_1712); 
{ /* ./Globalize/node.scm 342 */
long BgL_objzd2classzd2numz00_2649;
BgL_objzd2classzd2numz00_2649 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2648); 
{ /* ./Globalize/node.scm 342 */
obj_t BgL_arg2017z00_2650;
{ /* ./Globalize/node.scm 342 */
int BgL_auxz00_3939;
BgL_auxz00_3939 = 
(int)(((long)1)); 
BgL_arg2017z00_2650 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BgL_auxz00_3939); } 
{ /* ./Globalize/node.scm 342 */
int BgL_offsetz00_2653;
BgL_offsetz00_2653 = 
(int)(BgL_objzd2classzd2numz00_2649); 
{ /* ./Globalize/node.scm 342 */
long BgL_offsetz00_2654;
{ /* ./Globalize/node.scm 342 */
long BgL_auxz00_3943;
BgL_auxz00_3943 = 
(long)(BgL_offsetz00_2653); 
BgL_offsetz00_2654 = 
(BgL_auxz00_3943-OBJECT_TYPE); } 
{ /* ./Globalize/node.scm 342 */
long BgL_modz00_2655;
{ /* ./Globalize/node.scm 342 */
int BgL_arg2028z00_2656;
BgL_arg2028z00_2656 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 342 */
long BgL_n2z00_2664;
BgL_n2z00_2664 = 
(long)(BgL_arg2028z00_2656); 
BgL_modz00_2655 = 
(BgL_offsetz00_2654/BgL_n2z00_2664); } } 
{ /* ./Globalize/node.scm 342 */
long BgL_restz00_2657;
{ /* ./Globalize/node.scm 342 */
int BgL_arg2024z00_2658;
BgL_arg2024z00_2658 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 342 */
long BgL_n2z00_2667;
BgL_n2z00_2667 = 
(long)(BgL_arg2024z00_2658); 
BgL_restz00_2657 = 
(BgL_offsetz00_2654%BgL_n2z00_2667); } } 
{ /* ./Globalize/node.scm 342 */

{ /* ./Globalize/node.scm 342 */
obj_t BgL_bucketz00_2659;
{ /* ./Globalize/node.scm 342 */
int BgL_kz00_2669;
BgL_kz00_2669 = 
(int)(BgL_modz00_2655); 
BgL_bucketz00_2659 = 
VECTOR_REF(BgL_arg2017z00_2650,BgL_kz00_2669); } 
{ /* ./Globalize/node.scm 342 */
int BgL_kz00_2671;
BgL_kz00_2671 = 
(int)(BgL_restz00_2657); 
BgL_method3122z00_2647 = 
VECTOR_REF(BgL_bucketz00_2659,BgL_kz00_2671); } } } } } } } } } } 
{ /* ./Globalize/node.scm 342 */
obj_t BgL_auxz00_3956;
BgL_auxz00_3956 = 
PROCEDURE_ENTRY(BgL_method3122z00_2647)(BgL_method3122z00_2647, 
(obj_t)(BgL_arg4397z00_1712), 
(obj_t)(BgL_integratorz00_2646), BEOA); 
BgL_res4676z00_2672 = 
(BgL_nodez00_bglt)(BgL_auxz00_3956); } } } 
BgL_arg4394z00_1711 = BgL_res4676z00_2672; } } 
{ /* ./Globalize/node.scm 342 */
BgL_letzd2funzd2_bglt BgL_obj2453z00_2673;BgL_nodez00_bglt BgL_val2452z00_2674;
BgL_obj2453z00_2673 = BgL_nodez00_1706; 
BgL_val2452z00_2674 = BgL_arg4394z00_1711; 
((((BgL_letzd2funzd2_bglt)CREF(BgL_obj2453z00_2673))->BgL_bodyz00) = ((BgL_nodez00_bglt)BgL_val2452z00_2674), BUNSPEC); } } 
{ 
obj_t BgL_obindingsz00_1713;obj_t BgL_nbindingsz00_1714;obj_t BgL_ebindingsz00_1715;
{ /* ./Globalize/node.scm 343 */
obj_t BgL_arg4401z00_1717;
BgL_arg4401z00_1717 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1706))->BgL_localsz00); 
BgL_obindingsz00_1713 = BgL_arg4401z00_1717; 
BgL_nbindingsz00_1714 = BNIL; 
BgL_ebindingsz00_1715 = BNIL; 
BgL_liipz00_1716:
{ /* ./Globalize/node.scm 353 */
bool_t BgL_test4408z00_1721;
BgL_test4408z00_1721 = 
NULLP(BgL_obindingsz00_1713); 
if(BgL_test4408z00_1721)
{ /* ./Globalize/node.scm 353 */
{ /* ./Globalize/node.scm 354 */
BgL_letzd2funzd2_bglt BgL_obj2450z00_2678;obj_t BgL_val2449z00_2679;
BgL_obj2450z00_2678 = BgL_nodez00_1706; 
BgL_val2449z00_2679 = BgL_nbindingsz00_1714; 
((((BgL_letzd2funzd2_bglt)CREF(BgL_obj2450z00_2678))->BgL_localsz00) = ((obj_t)BgL_val2449z00_2679), BUNSPEC); } 
{ /* ./Globalize/node.scm 355 */
bool_t BgL_test4410z00_1722;
BgL_test4410z00_1722 = 
NULLP(BgL_ebindingsz00_1715); 
if(BgL_test4410z00_1722)
{ /* ./Globalize/node.scm 355 */
return 
(obj_t)(BgL_nodez00_1706);}  else 
{ /* ./Globalize/node.scm 357 */
BgL_letzd2varzd2_bglt BgL_auxz00_3970;
BgL_auxz00_3970 = 
BGl_makezd2escapingzd2bindingsz00zzglobaliza7e_nodeza7(BgL_ebindingsz00_1715, 
(BgL_nodez00_bglt)(BgL_nodez00_1706), 
(BgL_variablez00_bglt)(BgL_integratorz00_1707)); 
return 
(obj_t)(BgL_auxz00_3970);} } }  else 
{ /* ./Globalize/node.scm 358 */
bool_t BgL_test4413z00_1723;
{ /* ./Globalize/node.scm 358 */
bool_t BgL_testz00_3975;
{ /* ./Globalize/node.scm 358 */
obj_t BgL_auxz00_3976;
BgL_auxz00_3976 = 
CAR(BgL_obindingsz00_1713); 
BgL_testz00_3975 = 
(BgL_auxz00_3976==BgL_integratorz00_1707); } 
if(BgL_testz00_3975)
{ /* ./Globalize/node.scm 358 */
BgL_test4413z00_1723 = ((bool_t)0); }  else 
{ /* ./Globalize/node.scm 359 */
BgL_localzf2ginfozf2_bglt BgL_obj2925z00_2683;
{ /* ./Globalize/node.scm 359 */
obj_t BgL_auxz00_3979;
BgL_auxz00_3979 = 
CAR(BgL_obindingsz00_1713); 
BgL_obj2925z00_2683 = 
(BgL_localzf2ginfozf2_bglt)(BgL_auxz00_3979); } 
{ 
obj_t BgL_auxz00_3982;
{ /* ./Globalize/node.scm 359 */
BgL_objectz00_bglt BgL_auxz00_3983;
BgL_auxz00_3983 = 
(BgL_objectz00_bglt)(BgL_obj2925z00_2683); 
BgL_auxz00_3982 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3983); } 
BgL_test4413z00_1723 = 
(((BgL_localzf2ginfozf2_bglt)CREF(BgL_auxz00_3982))->BgL_escapezf3zf3); } } } 
if(BgL_test4413z00_1723)
{ /* ./Globalize/node.scm 358 */
{ /* ./Globalize/node.scm 360 */
obj_t BgL_arg4415z00_1724;obj_t BgL_arg4416z00_1725;
BgL_arg4415z00_1724 = 
CDR(BgL_obindingsz00_1713); 
{ /* ./Globalize/node.scm 362 */
obj_t BgL_arg4420z00_1726;
BgL_arg4420z00_1726 = 
CAR(BgL_obindingsz00_1713); 
BgL_arg4416z00_1725 = 
MAKE_PAIR(BgL_arg4420z00_1726, BgL_ebindingsz00_1715); } 
{ 
obj_t BgL_ebindingsz00_3992;obj_t BgL_obindingsz00_3991;
BgL_obindingsz00_3991 = BgL_arg4415z00_1724; 
BgL_ebindingsz00_3992 = BgL_arg4416z00_1725; 
BgL_ebindingsz00_1715 = BgL_ebindingsz00_3992; 
BgL_obindingsz00_1713 = BgL_obindingsz00_3991; 
goto BgL_liipz00_1716;} } }  else 
{ /* ./Globalize/node.scm 358 */
{ /* ./Globalize/node.scm 364 */
obj_t BgL_localz00_1727;
BgL_localz00_1727 = 
CAR(BgL_obindingsz00_1713); 
BGl_globaliza7ezd2localzd2funz12zb5zzglobaliza7e_nodeza7(
(BgL_localz00_bglt)(BgL_localz00_1727), 
(BgL_variablez00_bglt)(BgL_integratorz00_1707)); 
{ /* ./Globalize/node.scm 366 */
obj_t BgL_arg4425z00_1728;obj_t BgL_arg4426z00_1729;
BgL_arg4425z00_1728 = 
CDR(BgL_obindingsz00_1713); 
BgL_arg4426z00_1729 = 
MAKE_PAIR(BgL_localz00_1727, BgL_nbindingsz00_1714); 
{ 
obj_t BgL_nbindingsz00_4000;obj_t BgL_obindingsz00_3999;
BgL_obindingsz00_3999 = BgL_arg4425z00_1728; 
BgL_nbindingsz00_4000 = BgL_arg4426z00_1729; 
BgL_nbindingsz00_1714 = BgL_nbindingsz00_4000; 
BgL_obindingsz00_1713 = BgL_obindingsz00_3999; 
goto BgL_liipz00_1716;} } } } } } } } } } 
}



/* glo!-select3153 */
obj_t BGl_gloz12zd2select3153zc0zzglobaliza7e_nodeza7(obj_t BgL_envz00_3071, obj_t BgL_nodez00_3072, obj_t BgL_integratorz00_3073)
{ AN_OBJECT;
{ /* ./Globalize/node.scm 329 */
{ 
BgL_selectz00_bglt BgL_nodez00_1689;obj_t BgL_integratorz00_1690;
{ /* ./Globalize/node.scm 330 */
BgL_selectz00_bglt BgL_auxz00_4002;
BgL_nodez00_1689 = 
(BgL_selectz00_bglt)(BgL_nodez00_3072); 
BgL_integratorz00_1690 = BgL_integratorz00_3073; 
{ /* ./Globalize/node.scm 331 */
BgL_nodez00_bglt BgL_arg4363z00_1694;
{ /* ./Globalize/node.scm 331 */
BgL_nodez00_bglt BgL_arg4366z00_1695;
BgL_arg4366z00_1695 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1689))->BgL_testz00); 
{ /* ./Globalize/node.scm 331 */
BgL_nodez00_bglt BgL_res4670z00_2606;
{ /* ./Globalize/node.scm 331 */
BgL_variablez00_bglt BgL_integratorz00_2580;
BgL_integratorz00_2580 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1690); 
{ /* ./Globalize/node.scm 331 */
obj_t BgL_method3122z00_2581;
{ /* ./Globalize/node.scm 331 */
BgL_objectz00_bglt BgL_objz00_2582;
BgL_objz00_2582 = 
(BgL_objectz00_bglt)(BgL_arg4366z00_1695); 
{ /* ./Globalize/node.scm 331 */
long BgL_objzd2classzd2numz00_2583;
BgL_objzd2classzd2numz00_2583 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2582); 
{ /* ./Globalize/node.scm 331 */
obj_t BgL_arg2017z00_2584;
{ /* ./Globalize/node.scm 331 */
int BgL_auxz00_4007;
BgL_auxz00_4007 = 
(int)(((long)1)); 
BgL_arg2017z00_2584 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BgL_auxz00_4007); } 
{ /* ./Globalize/node.scm 331 */
int BgL_offsetz00_2587;
BgL_offsetz00_2587 = 
(int)(BgL_objzd2classzd2numz00_2583); 
{ /* ./Globalize/node.scm 331 */
long BgL_offsetz00_2588;
{ /* ./Globalize/node.scm 331 */
long BgL_auxz00_4011;
BgL_auxz00_4011 = 
(long)(BgL_offsetz00_2587); 
BgL_offsetz00_2588 = 
(BgL_auxz00_4011-OBJECT_TYPE); } 
{ /* ./Globalize/node.scm 331 */
long BgL_modz00_2589;
{ /* ./Globalize/node.scm 331 */
int BgL_arg2028z00_2590;
BgL_arg2028z00_2590 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 331 */
long BgL_n2z00_2598;
BgL_n2z00_2598 = 
(long)(BgL_arg2028z00_2590); 
BgL_modz00_2589 = 
(BgL_offsetz00_2588/BgL_n2z00_2598); } } 
{ /* ./Globalize/node.scm 331 */
long BgL_restz00_2591;
{ /* ./Globalize/node.scm 331 */
int BgL_arg2024z00_2592;
BgL_arg2024z00_2592 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 331 */
long BgL_n2z00_2601;
BgL_n2z00_2601 = 
(long)(BgL_arg2024z00_2592); 
BgL_restz00_2591 = 
(BgL_offsetz00_2588%BgL_n2z00_2601); } } 
{ /* ./Globalize/node.scm 331 */

{ /* ./Globalize/node.scm 331 */
obj_t BgL_bucketz00_2593;
{ /* ./Globalize/node.scm 331 */
int BgL_kz00_2603;
BgL_kz00_2603 = 
(int)(BgL_modz00_2589); 
BgL_bucketz00_2593 = 
VECTOR_REF(BgL_arg2017z00_2584,BgL_kz00_2603); } 
{ /* ./Globalize/node.scm 331 */
int BgL_kz00_2605;
BgL_kz00_2605 = 
(int)(BgL_restz00_2591); 
BgL_method3122z00_2581 = 
VECTOR_REF(BgL_bucketz00_2593,BgL_kz00_2605); } } } } } } } } } } 
{ /* ./Globalize/node.scm 331 */
obj_t BgL_auxz00_4024;
BgL_auxz00_4024 = 
PROCEDURE_ENTRY(BgL_method3122z00_2581)(BgL_method3122z00_2581, 
(obj_t)(BgL_arg4366z00_1695), 
(obj_t)(BgL_integratorz00_2580), BEOA); 
BgL_res4670z00_2606 = 
(BgL_nodez00_bglt)(BgL_auxz00_4024); } } } 
BgL_arg4363z00_1694 = BgL_res4670z00_2606; } } 
{ /* ./Globalize/node.scm 331 */
BgL_selectz00_bglt BgL_obj2410z00_2607;BgL_nodez00_bglt BgL_val2409z00_2608;
BgL_obj2410z00_2607 = BgL_nodez00_1689; 
BgL_val2409z00_2608 = BgL_arg4363z00_1694; 
((((BgL_selectz00_bglt)CREF(BgL_obj2410z00_2607))->BgL_testz00) = ((BgL_nodez00_bglt)BgL_val2409z00_2608), BUNSPEC); } } 
{ 
obj_t BgL_l3086z00_1696;
{ /* ./Globalize/node.scm 332 */
obj_t BgL_arg4370z00_1698;
BgL_arg4370z00_1698 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1689))->BgL_clausesz00); 
BgL_l3086z00_1696 = BgL_arg4370z00_1698; 
BgL_forzd2each3087zd2_1697:
{ /* ./Globalize/node.scm 332 */
bool_t BgL_test4373z00_1699;
BgL_test4373z00_1699 = 
PAIRP(BgL_l3086z00_1696); 
if(BgL_test4373z00_1699)
{ /* ./Globalize/node.scm 332 */
{ /* ./Globalize/node.scm 333 */
obj_t BgL_clausez00_1700;
BgL_clausez00_1700 = 
CAR(BgL_l3086z00_1696); 
{ /* ./Globalize/node.scm 333 */
BgL_nodez00_bglt BgL_arg4375z00_1701;
{ /* ./Globalize/node.scm 333 */
obj_t BgL_arg4378z00_1702;
BgL_arg4378z00_1702 = 
CDR(BgL_clausez00_1700); 
{ /* ./Globalize/node.scm 333 */
BgL_nodez00_bglt BgL_res4673z00_2640;
{ /* ./Globalize/node.scm 333 */
BgL_nodez00_bglt BgL_nodez00_2613;BgL_variablez00_bglt BgL_integratorz00_2614;
BgL_nodez00_2613 = 
(BgL_nodez00_bglt)(BgL_arg4378z00_1702); 
BgL_integratorz00_2614 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1690); 
{ /* ./Globalize/node.scm 333 */
obj_t BgL_method3122z00_2615;
{ /* ./Globalize/node.scm 333 */
BgL_objectz00_bglt BgL_objz00_2616;
BgL_objz00_2616 = 
(BgL_objectz00_bglt)(BgL_nodez00_2613); 
{ /* ./Globalize/node.scm 333 */
long BgL_objzd2classzd2numz00_2617;
BgL_objzd2classzd2numz00_2617 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2616); 
{ /* ./Globalize/node.scm 333 */
obj_t BgL_arg2017z00_2618;
{ /* ./Globalize/node.scm 333 */
int BgL_auxz00_4040;
BgL_auxz00_4040 = 
(int)(((long)1)); 
BgL_arg2017z00_2618 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BgL_auxz00_4040); } 
{ /* ./Globalize/node.scm 333 */
int BgL_offsetz00_2621;
BgL_offsetz00_2621 = 
(int)(BgL_objzd2classzd2numz00_2617); 
{ /* ./Globalize/node.scm 333 */
long BgL_offsetz00_2622;
{ /* ./Globalize/node.scm 333 */
long BgL_auxz00_4044;
BgL_auxz00_4044 = 
(long)(BgL_offsetz00_2621); 
BgL_offsetz00_2622 = 
(BgL_auxz00_4044-OBJECT_TYPE); } 
{ /* ./Globalize/node.scm 333 */
long BgL_modz00_2623;
{ /* ./Globalize/node.scm 333 */
int BgL_arg2028z00_2624;
BgL_arg2028z00_2624 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 333 */
long BgL_n2z00_2632;
BgL_n2z00_2632 = 
(long)(BgL_arg2028z00_2624); 
BgL_modz00_2623 = 
(BgL_offsetz00_2622/BgL_n2z00_2632); } } 
{ /* ./Globalize/node.scm 333 */
long BgL_restz00_2625;
{ /* ./Globalize/node.scm 333 */
int BgL_arg2024z00_2626;
BgL_arg2024z00_2626 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 333 */
long BgL_n2z00_2635;
BgL_n2z00_2635 = 
(long)(BgL_arg2024z00_2626); 
BgL_restz00_2625 = 
(BgL_offsetz00_2622%BgL_n2z00_2635); } } 
{ /* ./Globalize/node.scm 333 */

{ /* ./Globalize/node.scm 333 */
obj_t BgL_bucketz00_2627;
{ /* ./Globalize/node.scm 333 */
int BgL_kz00_2637;
BgL_kz00_2637 = 
(int)(BgL_modz00_2623); 
BgL_bucketz00_2627 = 
VECTOR_REF(BgL_arg2017z00_2618,BgL_kz00_2637); } 
{ /* ./Globalize/node.scm 333 */
int BgL_kz00_2639;
BgL_kz00_2639 = 
(int)(BgL_restz00_2625); 
BgL_method3122z00_2615 = 
VECTOR_REF(BgL_bucketz00_2627,BgL_kz00_2639); } } } } } } } } } } 
{ /* ./Globalize/node.scm 333 */
obj_t BgL_auxz00_4057;
BgL_auxz00_4057 = 
PROCEDURE_ENTRY(BgL_method3122z00_2615)(BgL_method3122z00_2615, 
(obj_t)(BgL_nodez00_2613), 
(obj_t)(BgL_integratorz00_2614), BEOA); 
BgL_res4673z00_2640 = 
(BgL_nodez00_bglt)(BgL_auxz00_4057); } } } 
BgL_arg4375z00_1701 = BgL_res4673z00_2640; } } 
{ /* ./Globalize/node.scm 333 */
obj_t BgL_objz00_2642;
BgL_objz00_2642 = 
(obj_t)(BgL_arg4375z00_1701); 
SET_CDR(BgL_clausez00_1700, BgL_objz00_2642); } } } 
{ /* ./Globalize/node.scm 332 */
obj_t BgL_arg4383z00_1703;
BgL_arg4383z00_1703 = 
CDR(BgL_l3086z00_1696); 
{ 
obj_t BgL_l3086z00_4066;
BgL_l3086z00_4066 = BgL_arg4383z00_1703; 
BgL_l3086z00_1696 = BgL_l3086z00_4066; 
goto BgL_forzd2each3087zd2_1697;} } }  else 
{ /* ./Globalize/node.scm 332 */((bool_t)1); } } } } 
BgL_auxz00_4002 = BgL_nodez00_1689; 
return 
(obj_t)(BgL_auxz00_4002);} } } 
}



/* glo!-fail3151 */
obj_t BGl_gloz12zd2fail3151zc0zzglobaliza7e_nodeza7(obj_t BgL_envz00_3074, obj_t BgL_nodez00_3075, obj_t BgL_integratorz00_3076)
{ AN_OBJECT;
{ /* ./Globalize/node.scm 319 */
{ 
BgL_failz00_bglt BgL_nodez00_1676;obj_t BgL_integratorz00_1677;
{ /* ./Globalize/node.scm 320 */
BgL_failz00_bglt BgL_auxz00_4069;
BgL_nodez00_1676 = 
(BgL_failz00_bglt)(BgL_nodez00_3075); 
BgL_integratorz00_1677 = BgL_integratorz00_3076; 
{ /* ./Globalize/node.scm 321 */
BgL_nodez00_bglt BgL_arg4336z00_1681;
{ /* ./Globalize/node.scm 321 */
BgL_nodez00_bglt BgL_arg4339z00_1682;
BgL_arg4339z00_1682 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1676))->BgL_procz00); 
{ /* ./Globalize/node.scm 321 */
BgL_nodez00_bglt BgL_res4661z00_2513;
{ /* ./Globalize/node.scm 321 */
BgL_variablez00_bglt BgL_integratorz00_2487;
BgL_integratorz00_2487 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1677); 
{ /* ./Globalize/node.scm 321 */
obj_t BgL_method3122z00_2488;
{ /* ./Globalize/node.scm 321 */
BgL_objectz00_bglt BgL_objz00_2489;
BgL_objz00_2489 = 
(BgL_objectz00_bglt)(BgL_arg4339z00_1682); 
{ /* ./Globalize/node.scm 321 */
long BgL_objzd2classzd2numz00_2490;
BgL_objzd2classzd2numz00_2490 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2489); 
{ /* ./Globalize/node.scm 321 */
obj_t BgL_arg2017z00_2491;
{ /* ./Globalize/node.scm 321 */
int BgL_auxz00_4074;
BgL_auxz00_4074 = 
(int)(((long)1)); 
BgL_arg2017z00_2491 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BgL_auxz00_4074); } 
{ /* ./Globalize/node.scm 321 */
int BgL_offsetz00_2494;
BgL_offsetz00_2494 = 
(int)(BgL_objzd2classzd2numz00_2490); 
{ /* ./Globalize/node.scm 321 */
long BgL_offsetz00_2495;
{ /* ./Globalize/node.scm 321 */
long BgL_auxz00_4078;
BgL_auxz00_4078 = 
(long)(BgL_offsetz00_2494); 
BgL_offsetz00_2495 = 
(BgL_auxz00_4078-OBJECT_TYPE); } 
{ /* ./Globalize/node.scm 321 */
long BgL_modz00_2496;
{ /* ./Globalize/node.scm 321 */
int BgL_arg2028z00_2497;
BgL_arg2028z00_2497 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 321 */
long BgL_n2z00_2505;
BgL_n2z00_2505 = 
(long)(BgL_arg2028z00_2497); 
BgL_modz00_2496 = 
(BgL_offsetz00_2495/BgL_n2z00_2505); } } 
{ /* ./Globalize/node.scm 321 */
long BgL_restz00_2498;
{ /* ./Globalize/node.scm 321 */
int BgL_arg2024z00_2499;
BgL_arg2024z00_2499 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 321 */
long BgL_n2z00_2508;
BgL_n2z00_2508 = 
(long)(BgL_arg2024z00_2499); 
BgL_restz00_2498 = 
(BgL_offsetz00_2495%BgL_n2z00_2508); } } 
{ /* ./Globalize/node.scm 321 */

{ /* ./Globalize/node.scm 321 */
obj_t BgL_bucketz00_2500;
{ /* ./Globalize/node.scm 321 */
int BgL_kz00_2510;
BgL_kz00_2510 = 
(int)(BgL_modz00_2496); 
BgL_bucketz00_2500 = 
VECTOR_REF(BgL_arg2017z00_2491,BgL_kz00_2510); } 
{ /* ./Globalize/node.scm 321 */
int BgL_kz00_2512;
BgL_kz00_2512 = 
(int)(BgL_restz00_2498); 
BgL_method3122z00_2488 = 
VECTOR_REF(BgL_bucketz00_2500,BgL_kz00_2512); } } } } } } } } } } 
{ /* ./Globalize/node.scm 321 */
obj_t BgL_auxz00_4091;
BgL_auxz00_4091 = 
PROCEDURE_ENTRY(BgL_method3122z00_2488)(BgL_method3122z00_2488, 
(obj_t)(BgL_arg4339z00_1682), 
(obj_t)(BgL_integratorz00_2487), BEOA); 
BgL_res4661z00_2513 = 
(BgL_nodez00_bglt)(BgL_auxz00_4091); } } } 
BgL_arg4336z00_1681 = BgL_res4661z00_2513; } } 
{ /* ./Globalize/node.scm 321 */
BgL_failz00_bglt BgL_obj2372z00_2514;BgL_nodez00_bglt BgL_val2371z00_2515;
BgL_obj2372z00_2514 = BgL_nodez00_1676; 
BgL_val2371z00_2515 = BgL_arg4336z00_1681; 
((((BgL_failz00_bglt)CREF(BgL_obj2372z00_2514))->BgL_procz00) = ((BgL_nodez00_bglt)BgL_val2371z00_2515), BUNSPEC); } } 
{ /* ./Globalize/node.scm 322 */
BgL_nodez00_bglt BgL_arg4343z00_1683;
{ /* ./Globalize/node.scm 322 */
BgL_nodez00_bglt BgL_arg4346z00_1684;
BgL_arg4346z00_1684 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1676))->BgL_msgz00); 
{ /* ./Globalize/node.scm 322 */
BgL_nodez00_bglt BgL_res4664z00_2544;
{ /* ./Globalize/node.scm 322 */
BgL_variablez00_bglt BgL_integratorz00_2518;
BgL_integratorz00_2518 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1677); 
{ /* ./Globalize/node.scm 322 */
obj_t BgL_method3122z00_2519;
{ /* ./Globalize/node.scm 322 */
BgL_objectz00_bglt BgL_objz00_2520;
BgL_objz00_2520 = 
(BgL_objectz00_bglt)(BgL_arg4346z00_1684); 
{ /* ./Globalize/node.scm 322 */
long BgL_objzd2classzd2numz00_2521;
BgL_objzd2classzd2numz00_2521 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2520); 
{ /* ./Globalize/node.scm 322 */
obj_t BgL_arg2017z00_2522;
{ /* ./Globalize/node.scm 322 */
int BgL_auxz00_4102;
BgL_auxz00_4102 = 
(int)(((long)1)); 
BgL_arg2017z00_2522 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BgL_auxz00_4102); } 
{ /* ./Globalize/node.scm 322 */
int BgL_offsetz00_2525;
BgL_offsetz00_2525 = 
(int)(BgL_objzd2classzd2numz00_2521); 
{ /* ./Globalize/node.scm 322 */
long BgL_offsetz00_2526;
{ /* ./Globalize/node.scm 322 */
long BgL_auxz00_4106;
BgL_auxz00_4106 = 
(long)(BgL_offsetz00_2525); 
BgL_offsetz00_2526 = 
(BgL_auxz00_4106-OBJECT_TYPE); } 
{ /* ./Globalize/node.scm 322 */
long BgL_modz00_2527;
{ /* ./Globalize/node.scm 322 */
int BgL_arg2028z00_2528;
BgL_arg2028z00_2528 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 322 */
long BgL_n2z00_2536;
BgL_n2z00_2536 = 
(long)(BgL_arg2028z00_2528); 
BgL_modz00_2527 = 
(BgL_offsetz00_2526/BgL_n2z00_2536); } } 
{ /* ./Globalize/node.scm 322 */
long BgL_restz00_2529;
{ /* ./Globalize/node.scm 322 */
int BgL_arg2024z00_2530;
BgL_arg2024z00_2530 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 322 */
long BgL_n2z00_2539;
BgL_n2z00_2539 = 
(long)(BgL_arg2024z00_2530); 
BgL_restz00_2529 = 
(BgL_offsetz00_2526%BgL_n2z00_2539); } } 
{ /* ./Globalize/node.scm 322 */

{ /* ./Globalize/node.scm 322 */
obj_t BgL_bucketz00_2531;
{ /* ./Globalize/node.scm 322 */
int BgL_kz00_2541;
BgL_kz00_2541 = 
(int)(BgL_modz00_2527); 
BgL_bucketz00_2531 = 
VECTOR_REF(BgL_arg2017z00_2522,BgL_kz00_2541); } 
{ /* ./Globalize/node.scm 322 */
int BgL_kz00_2543;
BgL_kz00_2543 = 
(int)(BgL_restz00_2529); 
BgL_method3122z00_2519 = 
VECTOR_REF(BgL_bucketz00_2531,BgL_kz00_2543); } } } } } } } } } } 
{ /* ./Globalize/node.scm 322 */
obj_t BgL_auxz00_4119;
BgL_auxz00_4119 = 
PROCEDURE_ENTRY(BgL_method3122z00_2519)(BgL_method3122z00_2519, 
(obj_t)(BgL_arg4346z00_1684), 
(obj_t)(BgL_integratorz00_2518), BEOA); 
BgL_res4664z00_2544 = 
(BgL_nodez00_bglt)(BgL_auxz00_4119); } } } 
BgL_arg4343z00_1683 = BgL_res4664z00_2544; } } 
{ /* ./Globalize/node.scm 322 */
BgL_failz00_bglt BgL_obj2375z00_2545;BgL_nodez00_bglt BgL_val2374z00_2546;
BgL_obj2375z00_2545 = BgL_nodez00_1676; 
BgL_val2374z00_2546 = BgL_arg4343z00_1683; 
((((BgL_failz00_bglt)CREF(BgL_obj2375z00_2545))->BgL_msgz00) = ((BgL_nodez00_bglt)BgL_val2374z00_2546), BUNSPEC); } } 
{ /* ./Globalize/node.scm 323 */
BgL_nodez00_bglt BgL_arg4350z00_1685;
{ /* ./Globalize/node.scm 323 */
BgL_nodez00_bglt BgL_arg4353z00_1686;
BgL_arg4353z00_1686 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1676))->BgL_objz00); 
{ /* ./Globalize/node.scm 323 */
BgL_nodez00_bglt BgL_res4667z00_2575;
{ /* ./Globalize/node.scm 323 */
BgL_variablez00_bglt BgL_integratorz00_2549;
BgL_integratorz00_2549 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1677); 
{ /* ./Globalize/node.scm 323 */
obj_t BgL_method3122z00_2550;
{ /* ./Globalize/node.scm 323 */
BgL_objectz00_bglt BgL_objz00_2551;
BgL_objz00_2551 = 
(BgL_objectz00_bglt)(BgL_arg4353z00_1686); 
{ /* ./Globalize/node.scm 323 */
long BgL_objzd2classzd2numz00_2552;
BgL_objzd2classzd2numz00_2552 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2551); 
{ /* ./Globalize/node.scm 323 */
obj_t BgL_arg2017z00_2553;
{ /* ./Globalize/node.scm 323 */
int BgL_auxz00_4130;
BgL_auxz00_4130 = 
(int)(((long)1)); 
BgL_arg2017z00_2553 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BgL_auxz00_4130); } 
{ /* ./Globalize/node.scm 323 */
int BgL_offsetz00_2556;
BgL_offsetz00_2556 = 
(int)(BgL_objzd2classzd2numz00_2552); 
{ /* ./Globalize/node.scm 323 */
long BgL_offsetz00_2557;
{ /* ./Globalize/node.scm 323 */
long BgL_auxz00_4134;
BgL_auxz00_4134 = 
(long)(BgL_offsetz00_2556); 
BgL_offsetz00_2557 = 
(BgL_auxz00_4134-OBJECT_TYPE); } 
{ /* ./Globalize/node.scm 323 */
long BgL_modz00_2558;
{ /* ./Globalize/node.scm 323 */
int BgL_arg2028z00_2559;
BgL_arg2028z00_2559 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 323 */
long BgL_n2z00_2567;
BgL_n2z00_2567 = 
(long)(BgL_arg2028z00_2559); 
BgL_modz00_2558 = 
(BgL_offsetz00_2557/BgL_n2z00_2567); } } 
{ /* ./Globalize/node.scm 323 */
long BgL_restz00_2560;
{ /* ./Globalize/node.scm 323 */
int BgL_arg2024z00_2561;
BgL_arg2024z00_2561 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 323 */
long BgL_n2z00_2570;
BgL_n2z00_2570 = 
(long)(BgL_arg2024z00_2561); 
BgL_restz00_2560 = 
(BgL_offsetz00_2557%BgL_n2z00_2570); } } 
{ /* ./Globalize/node.scm 323 */

{ /* ./Globalize/node.scm 323 */
obj_t BgL_bucketz00_2562;
{ /* ./Globalize/node.scm 323 */
int BgL_kz00_2572;
BgL_kz00_2572 = 
(int)(BgL_modz00_2558); 
BgL_bucketz00_2562 = 
VECTOR_REF(BgL_arg2017z00_2553,BgL_kz00_2572); } 
{ /* ./Globalize/node.scm 323 */
int BgL_kz00_2574;
BgL_kz00_2574 = 
(int)(BgL_restz00_2560); 
BgL_method3122z00_2550 = 
VECTOR_REF(BgL_bucketz00_2562,BgL_kz00_2574); } } } } } } } } } } 
{ /* ./Globalize/node.scm 323 */
obj_t BgL_auxz00_4147;
BgL_auxz00_4147 = 
PROCEDURE_ENTRY(BgL_method3122z00_2550)(BgL_method3122z00_2550, 
(obj_t)(BgL_arg4353z00_1686), 
(obj_t)(BgL_integratorz00_2549), BEOA); 
BgL_res4667z00_2575 = 
(BgL_nodez00_bglt)(BgL_auxz00_4147); } } } 
BgL_arg4350z00_1685 = BgL_res4667z00_2575; } } 
{ /* ./Globalize/node.scm 323 */
BgL_failz00_bglt BgL_obj2378z00_2576;BgL_nodez00_bglt BgL_val2377z00_2577;
BgL_obj2378z00_2576 = BgL_nodez00_1676; 
BgL_val2377z00_2577 = BgL_arg4350z00_1685; 
((((BgL_failz00_bglt)CREF(BgL_obj2378z00_2576))->BgL_objz00) = ((BgL_nodez00_bglt)BgL_val2377z00_2577), BUNSPEC); } } 
BgL_auxz00_4069 = BgL_nodez00_1676; 
return 
(obj_t)(BgL_auxz00_4069);} } } 
}



/* glo!-conditional3149 */
obj_t BGl_gloz12zd2conditional3149zc0zzglobaliza7e_nodeza7(obj_t BgL_envz00_3077, obj_t BgL_nodez00_3078, obj_t BgL_integratorz00_3079)
{ AN_OBJECT;
{ /* ./Globalize/node.scm 309 */
{ 
BgL_conditionalz00_bglt BgL_nodez00_1663;obj_t BgL_integratorz00_1664;
{ /* ./Globalize/node.scm 310 */
BgL_conditionalz00_bglt BgL_auxz00_4156;
BgL_nodez00_1663 = 
(BgL_conditionalz00_bglt)(BgL_nodez00_3078); 
BgL_integratorz00_1664 = BgL_integratorz00_3079; 
{ /* ./Globalize/node.scm 311 */
BgL_nodez00_bglt BgL_arg4309z00_1668;
{ /* ./Globalize/node.scm 311 */
BgL_nodez00_bglt BgL_arg4312z00_1669;
BgL_arg4312z00_1669 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1663))->BgL_testz00); 
{ /* ./Globalize/node.scm 311 */
BgL_nodez00_bglt BgL_res4652z00_2420;
{ /* ./Globalize/node.scm 311 */
BgL_variablez00_bglt BgL_integratorz00_2394;
BgL_integratorz00_2394 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1664); 
{ /* ./Globalize/node.scm 311 */
obj_t BgL_method3122z00_2395;
{ /* ./Globalize/node.scm 311 */
BgL_objectz00_bglt BgL_objz00_2396;
BgL_objz00_2396 = 
(BgL_objectz00_bglt)(BgL_arg4312z00_1669); 
{ /* ./Globalize/node.scm 311 */
long BgL_objzd2classzd2numz00_2397;
BgL_objzd2classzd2numz00_2397 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2396); 
{ /* ./Globalize/node.scm 311 */
obj_t BgL_arg2017z00_2398;
{ /* ./Globalize/node.scm 311 */
int BgL_auxz00_4161;
BgL_auxz00_4161 = 
(int)(((long)1)); 
BgL_arg2017z00_2398 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BgL_auxz00_4161); } 
{ /* ./Globalize/node.scm 311 */
int BgL_offsetz00_2401;
BgL_offsetz00_2401 = 
(int)(BgL_objzd2classzd2numz00_2397); 
{ /* ./Globalize/node.scm 311 */
long BgL_offsetz00_2402;
{ /* ./Globalize/node.scm 311 */
long BgL_auxz00_4165;
BgL_auxz00_4165 = 
(long)(BgL_offsetz00_2401); 
BgL_offsetz00_2402 = 
(BgL_auxz00_4165-OBJECT_TYPE); } 
{ /* ./Globalize/node.scm 311 */
long BgL_modz00_2403;
{ /* ./Globalize/node.scm 311 */
int BgL_arg2028z00_2404;
BgL_arg2028z00_2404 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 311 */
long BgL_n2z00_2412;
BgL_n2z00_2412 = 
(long)(BgL_arg2028z00_2404); 
BgL_modz00_2403 = 
(BgL_offsetz00_2402/BgL_n2z00_2412); } } 
{ /* ./Globalize/node.scm 311 */
long BgL_restz00_2405;
{ /* ./Globalize/node.scm 311 */
int BgL_arg2024z00_2406;
BgL_arg2024z00_2406 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 311 */
long BgL_n2z00_2415;
BgL_n2z00_2415 = 
(long)(BgL_arg2024z00_2406); 
BgL_restz00_2405 = 
(BgL_offsetz00_2402%BgL_n2z00_2415); } } 
{ /* ./Globalize/node.scm 311 */

{ /* ./Globalize/node.scm 311 */
obj_t BgL_bucketz00_2407;
{ /* ./Globalize/node.scm 311 */
int BgL_kz00_2417;
BgL_kz00_2417 = 
(int)(BgL_modz00_2403); 
BgL_bucketz00_2407 = 
VECTOR_REF(BgL_arg2017z00_2398,BgL_kz00_2417); } 
{ /* ./Globalize/node.scm 311 */
int BgL_kz00_2419;
BgL_kz00_2419 = 
(int)(BgL_restz00_2405); 
BgL_method3122z00_2395 = 
VECTOR_REF(BgL_bucketz00_2407,BgL_kz00_2419); } } } } } } } } } } 
{ /* ./Globalize/node.scm 311 */
obj_t BgL_auxz00_4178;
BgL_auxz00_4178 = 
PROCEDURE_ENTRY(BgL_method3122z00_2395)(BgL_method3122z00_2395, 
(obj_t)(BgL_arg4312z00_1669), 
(obj_t)(BgL_integratorz00_2394), BEOA); 
BgL_res4652z00_2420 = 
(BgL_nodez00_bglt)(BgL_auxz00_4178); } } } 
BgL_arg4309z00_1668 = BgL_res4652z00_2420; } } 
{ /* ./Globalize/node.scm 311 */
BgL_conditionalz00_bglt BgL_obj2334z00_2421;BgL_nodez00_bglt BgL_val2333z00_2422;
BgL_obj2334z00_2421 = BgL_nodez00_1663; 
BgL_val2333z00_2422 = BgL_arg4309z00_1668; 
((((BgL_conditionalz00_bglt)CREF(BgL_obj2334z00_2421))->BgL_testz00) = ((BgL_nodez00_bglt)BgL_val2333z00_2422), BUNSPEC); } } 
{ /* ./Globalize/node.scm 312 */
BgL_nodez00_bglt BgL_arg4316z00_1670;
{ /* ./Globalize/node.scm 312 */
BgL_nodez00_bglt BgL_arg4319z00_1671;
BgL_arg4319z00_1671 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1663))->BgL_truez00); 
{ /* ./Globalize/node.scm 312 */
BgL_nodez00_bglt BgL_res4655z00_2451;
{ /* ./Globalize/node.scm 312 */
BgL_variablez00_bglt BgL_integratorz00_2425;
BgL_integratorz00_2425 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1664); 
{ /* ./Globalize/node.scm 312 */
obj_t BgL_method3122z00_2426;
{ /* ./Globalize/node.scm 312 */
BgL_objectz00_bglt BgL_objz00_2427;
BgL_objz00_2427 = 
(BgL_objectz00_bglt)(BgL_arg4319z00_1671); 
{ /* ./Globalize/node.scm 312 */
long BgL_objzd2classzd2numz00_2428;
BgL_objzd2classzd2numz00_2428 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2427); 
{ /* ./Globalize/node.scm 312 */
obj_t BgL_arg2017z00_2429;
{ /* ./Globalize/node.scm 312 */
int BgL_auxz00_4189;
BgL_auxz00_4189 = 
(int)(((long)1)); 
BgL_arg2017z00_2429 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BgL_auxz00_4189); } 
{ /* ./Globalize/node.scm 312 */
int BgL_offsetz00_2432;
BgL_offsetz00_2432 = 
(int)(BgL_objzd2classzd2numz00_2428); 
{ /* ./Globalize/node.scm 312 */
long BgL_offsetz00_2433;
{ /* ./Globalize/node.scm 312 */
long BgL_auxz00_4193;
BgL_auxz00_4193 = 
(long)(BgL_offsetz00_2432); 
BgL_offsetz00_2433 = 
(BgL_auxz00_4193-OBJECT_TYPE); } 
{ /* ./Globalize/node.scm 312 */
long BgL_modz00_2434;
{ /* ./Globalize/node.scm 312 */
int BgL_arg2028z00_2435;
BgL_arg2028z00_2435 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 312 */
long BgL_n2z00_2443;
BgL_n2z00_2443 = 
(long)(BgL_arg2028z00_2435); 
BgL_modz00_2434 = 
(BgL_offsetz00_2433/BgL_n2z00_2443); } } 
{ /* ./Globalize/node.scm 312 */
long BgL_restz00_2436;
{ /* ./Globalize/node.scm 312 */
int BgL_arg2024z00_2437;
BgL_arg2024z00_2437 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 312 */
long BgL_n2z00_2446;
BgL_n2z00_2446 = 
(long)(BgL_arg2024z00_2437); 
BgL_restz00_2436 = 
(BgL_offsetz00_2433%BgL_n2z00_2446); } } 
{ /* ./Globalize/node.scm 312 */

{ /* ./Globalize/node.scm 312 */
obj_t BgL_bucketz00_2438;
{ /* ./Globalize/node.scm 312 */
int BgL_kz00_2448;
BgL_kz00_2448 = 
(int)(BgL_modz00_2434); 
BgL_bucketz00_2438 = 
VECTOR_REF(BgL_arg2017z00_2429,BgL_kz00_2448); } 
{ /* ./Globalize/node.scm 312 */
int BgL_kz00_2450;
BgL_kz00_2450 = 
(int)(BgL_restz00_2436); 
BgL_method3122z00_2426 = 
VECTOR_REF(BgL_bucketz00_2438,BgL_kz00_2450); } } } } } } } } } } 
{ /* ./Globalize/node.scm 312 */
obj_t BgL_auxz00_4206;
BgL_auxz00_4206 = 
PROCEDURE_ENTRY(BgL_method3122z00_2426)(BgL_method3122z00_2426, 
(obj_t)(BgL_arg4319z00_1671), 
(obj_t)(BgL_integratorz00_2425), BEOA); 
BgL_res4655z00_2451 = 
(BgL_nodez00_bglt)(BgL_auxz00_4206); } } } 
BgL_arg4316z00_1670 = BgL_res4655z00_2451; } } 
{ /* ./Globalize/node.scm 312 */
BgL_conditionalz00_bglt BgL_obj2337z00_2452;BgL_nodez00_bglt BgL_val2336z00_2453;
BgL_obj2337z00_2452 = BgL_nodez00_1663; 
BgL_val2336z00_2453 = BgL_arg4316z00_1670; 
((((BgL_conditionalz00_bglt)CREF(BgL_obj2337z00_2452))->BgL_truez00) = ((BgL_nodez00_bglt)BgL_val2336z00_2453), BUNSPEC); } } 
{ /* ./Globalize/node.scm 313 */
BgL_nodez00_bglt BgL_arg4323z00_1672;
{ /* ./Globalize/node.scm 313 */
BgL_nodez00_bglt BgL_arg4326z00_1673;
BgL_arg4326z00_1673 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1663))->BgL_falsez00); 
{ /* ./Globalize/node.scm 313 */
BgL_nodez00_bglt BgL_res4658z00_2482;
{ /* ./Globalize/node.scm 313 */
BgL_variablez00_bglt BgL_integratorz00_2456;
BgL_integratorz00_2456 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1664); 
{ /* ./Globalize/node.scm 313 */
obj_t BgL_method3122z00_2457;
{ /* ./Globalize/node.scm 313 */
BgL_objectz00_bglt BgL_objz00_2458;
BgL_objz00_2458 = 
(BgL_objectz00_bglt)(BgL_arg4326z00_1673); 
{ /* ./Globalize/node.scm 313 */
long BgL_objzd2classzd2numz00_2459;
BgL_objzd2classzd2numz00_2459 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2458); 
{ /* ./Globalize/node.scm 313 */
obj_t BgL_arg2017z00_2460;
{ /* ./Globalize/node.scm 313 */
int BgL_auxz00_4217;
BgL_auxz00_4217 = 
(int)(((long)1)); 
BgL_arg2017z00_2460 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BgL_auxz00_4217); } 
{ /* ./Globalize/node.scm 313 */
int BgL_offsetz00_2463;
BgL_offsetz00_2463 = 
(int)(BgL_objzd2classzd2numz00_2459); 
{ /* ./Globalize/node.scm 313 */
long BgL_offsetz00_2464;
{ /* ./Globalize/node.scm 313 */
long BgL_auxz00_4221;
BgL_auxz00_4221 = 
(long)(BgL_offsetz00_2463); 
BgL_offsetz00_2464 = 
(BgL_auxz00_4221-OBJECT_TYPE); } 
{ /* ./Globalize/node.scm 313 */
long BgL_modz00_2465;
{ /* ./Globalize/node.scm 313 */
int BgL_arg2028z00_2466;
BgL_arg2028z00_2466 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 313 */
long BgL_n2z00_2474;
BgL_n2z00_2474 = 
(long)(BgL_arg2028z00_2466); 
BgL_modz00_2465 = 
(BgL_offsetz00_2464/BgL_n2z00_2474); } } 
{ /* ./Globalize/node.scm 313 */
long BgL_restz00_2467;
{ /* ./Globalize/node.scm 313 */
int BgL_arg2024z00_2468;
BgL_arg2024z00_2468 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 313 */
long BgL_n2z00_2477;
BgL_n2z00_2477 = 
(long)(BgL_arg2024z00_2468); 
BgL_restz00_2467 = 
(BgL_offsetz00_2464%BgL_n2z00_2477); } } 
{ /* ./Globalize/node.scm 313 */

{ /* ./Globalize/node.scm 313 */
obj_t BgL_bucketz00_2469;
{ /* ./Globalize/node.scm 313 */
int BgL_kz00_2479;
BgL_kz00_2479 = 
(int)(BgL_modz00_2465); 
BgL_bucketz00_2469 = 
VECTOR_REF(BgL_arg2017z00_2460,BgL_kz00_2479); } 
{ /* ./Globalize/node.scm 313 */
int BgL_kz00_2481;
BgL_kz00_2481 = 
(int)(BgL_restz00_2467); 
BgL_method3122z00_2457 = 
VECTOR_REF(BgL_bucketz00_2469,BgL_kz00_2481); } } } } } } } } } } 
{ /* ./Globalize/node.scm 313 */
obj_t BgL_auxz00_4234;
BgL_auxz00_4234 = 
PROCEDURE_ENTRY(BgL_method3122z00_2457)(BgL_method3122z00_2457, 
(obj_t)(BgL_arg4326z00_1673), 
(obj_t)(BgL_integratorz00_2456), BEOA); 
BgL_res4658z00_2482 = 
(BgL_nodez00_bglt)(BgL_auxz00_4234); } } } 
BgL_arg4323z00_1672 = BgL_res4658z00_2482; } } 
{ /* ./Globalize/node.scm 313 */
BgL_conditionalz00_bglt BgL_obj2340z00_2483;BgL_nodez00_bglt BgL_val2339z00_2484;
BgL_obj2340z00_2483 = BgL_nodez00_1663; 
BgL_val2339z00_2484 = BgL_arg4323z00_1672; 
((((BgL_conditionalz00_bglt)CREF(BgL_obj2340z00_2483))->BgL_falsez00) = ((BgL_nodez00_bglt)BgL_val2339z00_2484), BUNSPEC); } } 
BgL_auxz00_4156 = BgL_nodez00_1663; 
return 
(obj_t)(BgL_auxz00_4156);} } } 
}



/* glo!-setq3147 */
obj_t BGl_gloz12zd2setq3147zc0zzglobaliza7e_nodeza7(obj_t BgL_envz00_3080, obj_t BgL_nodez00_3081, obj_t BgL_integratorz00_3082)
{ AN_OBJECT;
{ /* ./Globalize/node.scm 274 */
{ 
BgL_setqz00_bglt BgL_nodez00_1617;obj_t BgL_integratorz00_1618;
BgL_nodez00_1617 = 
(BgL_setqz00_bglt)(BgL_nodez00_3081); 
BgL_integratorz00_1618 = BgL_integratorz00_3082; 
{ /* ./Globalize/node.scm 276 */
BgL_nodez00_bglt BgL_arg4220z00_1622;
{ /* ./Globalize/node.scm 276 */
BgL_nodez00_bglt BgL_arg4223z00_1623;
BgL_arg4223z00_1623 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1617))->BgL_valuez00); 
{ /* ./Globalize/node.scm 276 */
BgL_nodez00_bglt BgL_res4648z00_2364;
{ /* ./Globalize/node.scm 276 */
BgL_variablez00_bglt BgL_integratorz00_2338;
BgL_integratorz00_2338 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1618); 
{ /* ./Globalize/node.scm 276 */
obj_t BgL_method3122z00_2339;
{ /* ./Globalize/node.scm 276 */
BgL_objectz00_bglt BgL_objz00_2340;
BgL_objz00_2340 = 
(BgL_objectz00_bglt)(BgL_arg4223z00_1623); 
{ /* ./Globalize/node.scm 276 */
long BgL_objzd2classzd2numz00_2341;
BgL_objzd2classzd2numz00_2341 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2340); 
{ /* ./Globalize/node.scm 276 */
obj_t BgL_arg2017z00_2342;
{ /* ./Globalize/node.scm 276 */
int BgL_auxz00_4247;
BgL_auxz00_4247 = 
(int)(((long)1)); 
BgL_arg2017z00_2342 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BgL_auxz00_4247); } 
{ /* ./Globalize/node.scm 276 */
int BgL_offsetz00_2345;
BgL_offsetz00_2345 = 
(int)(BgL_objzd2classzd2numz00_2341); 
{ /* ./Globalize/node.scm 276 */
long BgL_offsetz00_2346;
{ /* ./Globalize/node.scm 276 */
long BgL_auxz00_4251;
BgL_auxz00_4251 = 
(long)(BgL_offsetz00_2345); 
BgL_offsetz00_2346 = 
(BgL_auxz00_4251-OBJECT_TYPE); } 
{ /* ./Globalize/node.scm 276 */
long BgL_modz00_2347;
{ /* ./Globalize/node.scm 276 */
int BgL_arg2028z00_2348;
BgL_arg2028z00_2348 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 276 */
long BgL_n2z00_2356;
BgL_n2z00_2356 = 
(long)(BgL_arg2028z00_2348); 
BgL_modz00_2347 = 
(BgL_offsetz00_2346/BgL_n2z00_2356); } } 
{ /* ./Globalize/node.scm 276 */
long BgL_restz00_2349;
{ /* ./Globalize/node.scm 276 */
int BgL_arg2024z00_2350;
BgL_arg2024z00_2350 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 276 */
long BgL_n2z00_2359;
BgL_n2z00_2359 = 
(long)(BgL_arg2024z00_2350); 
BgL_restz00_2349 = 
(BgL_offsetz00_2346%BgL_n2z00_2359); } } 
{ /* ./Globalize/node.scm 276 */

{ /* ./Globalize/node.scm 276 */
obj_t BgL_bucketz00_2351;
{ /* ./Globalize/node.scm 276 */
int BgL_kz00_2361;
BgL_kz00_2361 = 
(int)(BgL_modz00_2347); 
BgL_bucketz00_2351 = 
VECTOR_REF(BgL_arg2017z00_2342,BgL_kz00_2361); } 
{ /* ./Globalize/node.scm 276 */
int BgL_kz00_2363;
BgL_kz00_2363 = 
(int)(BgL_restz00_2349); 
BgL_method3122z00_2339 = 
VECTOR_REF(BgL_bucketz00_2351,BgL_kz00_2363); } } } } } } } } } } 
{ /* ./Globalize/node.scm 276 */
obj_t BgL_auxz00_4264;
BgL_auxz00_4264 = 
PROCEDURE_ENTRY(BgL_method3122z00_2339)(BgL_method3122z00_2339, 
(obj_t)(BgL_arg4223z00_1623), 
(obj_t)(BgL_integratorz00_2338), BEOA); 
BgL_res4648z00_2364 = 
(BgL_nodez00_bglt)(BgL_auxz00_4264); } } } 
BgL_arg4220z00_1622 = BgL_res4648z00_2364; } } 
{ /* ./Globalize/node.scm 276 */
BgL_setqz00_bglt BgL_obj2305z00_2365;BgL_nodez00_bglt BgL_val2304z00_2366;
BgL_obj2305z00_2365 = BgL_nodez00_1617; 
BgL_val2304z00_2366 = BgL_arg4220z00_1622; 
((((BgL_setqz00_bglt)CREF(BgL_obj2305z00_2365))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2304z00_2366), BUNSPEC); } } 
{ /* ./Globalize/node.scm 277 */
BgL_variablez00_bglt BgL_varz00_1624;
{ /* ./Globalize/node.scm 277 */
BgL_varz00_bglt BgL_arg4298z00_1660;
BgL_arg4298z00_1660 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1617))->BgL_varz00); 
BgL_varz00_1624 = 
(((BgL_varz00_bglt)CREF(BgL_arg4298z00_1660))->BgL_variablez00); } 
{ 
obj_t BgL_varz00_1625;obj_t BgL_alphaz00_1626;
{ /* ./Globalize/node.scm 279 */
obj_t BgL_arg4227z00_1628;
BgL_arg4227z00_1628 = 
(((BgL_variablez00_bglt)CREF(BgL_varz00_1624))->BgL_fastzd2alphazd2); 
BgL_varz00_1625 = 
(obj_t)(BgL_varz00_1624); 
BgL_alphaz00_1626 = BgL_arg4227z00_1628; 
BgL_loopz00_1627:
{ /* ./Globalize/node.scm 280 */
bool_t BgL_test4230z00_1629;
BgL_test4230z00_1629 = 
BGl_iszd2azf3z21zz__objectz00(BgL_alphaz00_1626, BGl_localz00zzast_varz00); 
if(BgL_test4230z00_1629)
{ /* ./Globalize/node.scm 280 */
{ /* ./Globalize/node.scm 282 */
BgL_varz00_bglt BgL_arg4232z00_1630;
BgL_arg4232z00_1630 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1617))->BgL_varz00); 
{ /* ./Globalize/node.scm 282 */
BgL_varz00_bglt BgL_obj1627z00_2372;BgL_variablez00_bglt BgL_val1626z00_2373;
BgL_obj1627z00_2372 = BgL_arg4232z00_1630; 
BgL_val1626z00_2373 = 
(BgL_variablez00_bglt)(BgL_alphaz00_1626); 
((((BgL_varz00_bglt)CREF(BgL_obj1627z00_2372))->BgL_variablez00) = ((BgL_variablez00_bglt)BgL_val1626z00_2373), BUNSPEC); } } 
{ /* ./Globalize/node.scm 283 */
obj_t BgL_arg4236z00_1631;
{ /* ./Globalize/node.scm 283 */
BgL_variablez00_bglt BgL_obj1106z00_2374;
BgL_obj1106z00_2374 = 
(BgL_variablez00_bglt)(BgL_alphaz00_1626); 
BgL_arg4236z00_1631 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1106z00_2374))->BgL_fastzd2alphazd2); } 
{ 
obj_t BgL_alphaz00_4282;obj_t BgL_varz00_4281;
BgL_varz00_4281 = BgL_alphaz00_1626; 
BgL_alphaz00_4282 = BgL_arg4236z00_1631; 
BgL_alphaz00_1626 = BgL_alphaz00_4282; 
BgL_varz00_1625 = BgL_varz00_4281; 
goto BgL_loopz00_1627;} } }  else 
{ /* ./Globalize/node.scm 284 */
BgL_variablez00_bglt BgL_varz00_1632;
{ /* ./Globalize/node.scm 284 */
BgL_varz00_bglt BgL_arg4293z00_1659;
BgL_arg4293z00_1659 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1617))->BgL_varz00); 
BgL_varz00_1632 = 
(((BgL_varz00_bglt)CREF(BgL_arg4293z00_1659))->BgL_variablez00); } 
{ /* ./Globalize/node.scm 285 */
bool_t BgL_test4239z00_1633;
{ /* ./Globalize/node.scm 285 */
bool_t BgL_test4289z00_1658;
{ /* ./Globalize/node.scm 285 */
obj_t BgL_obj1300z00_2377;
BgL_obj1300z00_2377 = 
(obj_t)(BgL_varz00_1632); 
BgL_test4289z00_1658 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1300z00_2377, BGl_localz00zzast_varz00); } 
if(BgL_test4289z00_1658)
{ /* ./Globalize/node.scm 285 */
BgL_test4239z00_1633 = 
BGl_celledzf3zf3zzglobaliza7e_nodeza7(BgL_varz00_1632); }  else 
{ /* ./Globalize/node.scm 285 */
BgL_test4239z00_1633 = ((bool_t)0); } } 
if(BgL_test4239z00_1633)
{ /* ./Globalize/node.scm 286 */
BgL_localz00_bglt BgL_azd2varzd2_1634;obj_t BgL_locz00_1635;
BgL_azd2varzd2_1634 = 
BGl_makezd2localzd2svarz00zzast_localz00(
CNST_TABLE_REF(((long)7)), 
(BgL_typez00_bglt)(BGl_za2objza2z00zztype_cachez00)); 
{ /* ./Globalize/node.scm 287 */
BgL_nodez00_bglt BgL_obj1560z00_2378;
BgL_obj1560z00_2378 = 
(BgL_nodez00_bglt)(BgL_nodez00_1617); 
BgL_locz00_1635 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2378))->BgL_locz00); } 
{ /* ./Globalize/node.scm 288 */
BgL_variablez00_bglt BgL_obj1105z00_2379;obj_t BgL_val1104z00_2380;
BgL_obj1105z00_2379 = BgL_varz00_1632; 
BgL_val1104z00_2380 = 
CNST_TABLE_REF(((long)0)); 
((((BgL_variablez00_bglt)CREF(BgL_obj1105z00_2379))->BgL_accessz00) = ((obj_t)BgL_val1104z00_2380), BUNSPEC); } 
{ /* ./Globalize/node.scm 289 */
bool_t BgL_arg4242z00_1636;
{ /* ./Globalize/node.scm 289 */
BgL_localz00_bglt BgL_obj1263z00_2381;
BgL_obj1263z00_2381 = 
(BgL_localz00_bglt)(BgL_varz00_1632); 
BgL_arg4242z00_1636 = 
(((BgL_localz00_bglt)CREF(BgL_obj1263z00_2381))->BgL_userzf3zf3); } 
{ /* ./Globalize/node.scm 289 */
BgL_localz00_bglt BgL_obj1265z00_2382;bool_t BgL_val1264z00_2383;
BgL_obj1265z00_2382 = BgL_azd2varzd2_1634; 
BgL_val1264z00_2383 = BgL_arg4242z00_1636; 
((((BgL_localz00_bglt)CREF(BgL_obj1265z00_2382))->BgL_userzf3zf3) = ((bool_t)BgL_val1264z00_2383), BUNSPEC); } } 
{ /* ./Globalize/node.scm 290 */
BgL_svarz00_bglt BgL_obj3076z00_1637;
{ 
BgL_svarz00_bglt BgL_auxz00_4300;
{ /* ./Globalize/node.scm 290 */
BgL_valuez00_bglt BgL_auxz00_4301;
{ /* ./Globalize/node.scm 290 */
BgL_variablez00_bglt BgL_obj1100z00_3124;
BgL_obj1100z00_3124 = 
(BgL_variablez00_bglt)(BgL_azd2varzd2_1634); 
BgL_auxz00_4301 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_3124))->BgL_valuez00); } 
BgL_auxz00_4300 = 
(BgL_svarz00_bglt)(BgL_auxz00_4301); } 
BgL_obj3076z00_1637 = 
((BgL_svarz00_bglt)BgL_auxz00_4300); } 
{ /* ./Globalize/node.scm 291 */
obj_t BgL_arg4246z00_1638;
{ /* ./Globalize/node.scm 291 */
bool_t BgL_arg4249z00_1639;
BgL_arg4249z00_1639 = ((bool_t)0); 
BgL_arg4246z00_1638 = 
BGl_wideningzd2svarzf2Ginfoz20zzglobaliza7e_ginfoza7(BgL_arg4249z00_1639, ((long)-10), ((long)-10), ((bool_t)0)); } 
{ /* ./Globalize/node.scm 290 */
BgL_objectz00_bglt BgL_auxz00_4307;
BgL_auxz00_4307 = 
(BgL_objectz00_bglt)(BgL_obj3076z00_1637); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4307, BgL_arg4246z00_1638); } } 
{ /* ./Globalize/node.scm 290 */
long BgL_arg4254z00_1642;
BgL_arg4254z00_1642 = 
BGl_classzd2numzd2zz__objectz00(BGl_svarzf2Ginfozf2zzglobaliza7e_ginfoza7); 
{ /* ./Globalize/node.scm 290 */
BgL_objectz00_bglt BgL_objz00_2385;
BgL_objz00_2385 = 
(BgL_objectz00_bglt)(BgL_obj3076z00_1637); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2385, BgL_arg4254z00_1642); } } 
{ /* ./Globalize/node.scm 290 */
obj_t BgL_objz00_2387;
BgL_objz00_2387 = 
(obj_t)(BgL_obj3076z00_1637); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2387); BUNSPEC; } BgL_obj3076z00_1637; } 
{ /* ./Globalize/node.scm 293 */
obj_t BgL_arg4260z00_1643;obj_t BgL_arg4261z00_1644;obj_t BgL_arg4263z00_1646;BgL_boxzd2setz12zc0_bglt BgL_arg4264z00_1647;
BgL_arg4260z00_1643 = BgL_locz00_1635; 
BgL_arg4261z00_1644 = BGl_za2_za2z00zztype_cachez00; 
{ /* ./Globalize/node.scm 295 */
obj_t BgL_arg4267z00_1648;
{ /* ./Globalize/node.scm 295 */
BgL_nodez00_bglt BgL_arg4272z00_1650;
BgL_arg4272z00_1650 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1617))->BgL_valuez00); 
{ /* ./Globalize/node.scm 295 */
obj_t BgL_auxz00_4318;obj_t BgL_auxz00_4316;
BgL_auxz00_4318 = 
(obj_t)(BgL_arg4272z00_1650); 
BgL_auxz00_4316 = 
(obj_t)(BgL_azd2varzd2_1634); 
BgL_arg4267z00_1648 = 
MAKE_PAIR(BgL_auxz00_4316, BgL_auxz00_4318); } } 
{ /* ./Globalize/node.scm 295 */
obj_t BgL_list4269z00_1649;
BgL_list4269z00_1649 = 
MAKE_PAIR(BgL_arg4267z00_1648, BNIL); 
BgL_arg4263z00_1646 = BgL_list4269z00_1649; } } 
{ /* ./Globalize/node.scm 297 */
obj_t BgL_arg4276z00_1651;obj_t BgL_arg4277z00_1652;BgL_varz00_bglt BgL_arg4278z00_1653;BgL_varz00_bglt BgL_arg4279z00_1654;
BgL_arg4276z00_1651 = BgL_locz00_1635; 
BgL_arg4277z00_1652 = BGl_za2_za2z00zztype_cachez00; 
BgL_arg4278z00_1653 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1617))->BgL_varz00); 
{ /* ./Globalize/node.scm 301 */
obj_t BgL_arg4283z00_1655;obj_t BgL_arg4284z00_1656;BgL_localz00_bglt BgL_arg4285z00_1657;
BgL_arg4283z00_1655 = BgL_locz00_1635; 
BgL_arg4284z00_1656 = BGl_za2_za2z00zztype_cachez00; 
BgL_arg4285z00_1657 = BgL_azd2varzd2_1634; 
BgL_arg4279z00_1654 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg4283z00_1655, 
(BgL_typez00_bglt)(BgL_arg4284z00_1656), 
(BgL_variablez00_bglt)(BgL_arg4285z00_1657)); } 
BgL_arg4264z00_1647 = 
BGl_makezd2boxzd2setz12z12zzast_nodez00(BgL_arg4276z00_1651, 
(BgL_typez00_bglt)(BgL_arg4277z00_1652), BgL_arg4278z00_1653, 
(BgL_nodez00_bglt)(BgL_arg4279z00_1654)); } 
{ /* ./Globalize/node.scm 292 */
BgL_letzd2varzd2_bglt BgL_auxz00_4329;
BgL_auxz00_4329 = 
BGl_makezd2letzd2varz00zzast_nodez00(BgL_arg4260z00_1643, 
(BgL_typez00_bglt)(BgL_arg4261z00_1644), BUNSPEC, 
BINT(((long)-1)), BgL_arg4263z00_1646, 
(BgL_nodez00_bglt)(BgL_arg4264z00_1647), ((bool_t)1)); 
return 
(obj_t)(BgL_auxz00_4329);} } }  else 
{ /* ./Globalize/node.scm 285 */
return 
(obj_t)(BgL_nodez00_1617);} } } } } } } } } 
}



/* glo!-cast3145 */
obj_t BGl_gloz12zd2cast3145zc0zzglobaliza7e_nodeza7(obj_t BgL_envz00_3083, obj_t BgL_nodez00_3084, obj_t BgL_integratorz00_3085)
{ AN_OBJECT;
{ /* ./Globalize/node.scm 266 */
{ 
BgL_castz00_bglt BgL_nodez00_1609;obj_t BgL_integratorz00_1610;
{ /* ./Globalize/node.scm 267 */
BgL_castz00_bglt BgL_auxz00_4338;
BgL_nodez00_1609 = 
(BgL_castz00_bglt)(BgL_nodez00_3084); 
BgL_integratorz00_1610 = BgL_integratorz00_3085; 
{ /* ./Globalize/node.scm 267 */
BgL_nodez00_bglt BgL_arg4210z00_2306;
BgL_arg4210z00_2306 = 
(((BgL_castz00_bglt)CREF(BgL_nodez00_1609))->BgL_argz00); 
{ /* ./Globalize/node.scm 267 */
BgL_nodez00_bglt BgL_res4645z00_2335;
{ /* ./Globalize/node.scm 267 */
BgL_variablez00_bglt BgL_integratorz00_2309;
BgL_integratorz00_2309 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1610); 
{ /* ./Globalize/node.scm 267 */
obj_t BgL_method3122z00_2310;
{ /* ./Globalize/node.scm 267 */
BgL_objectz00_bglt BgL_objz00_2311;
BgL_objz00_2311 = 
(BgL_objectz00_bglt)(BgL_arg4210z00_2306); 
{ /* ./Globalize/node.scm 267 */
long BgL_objzd2classzd2numz00_2312;
BgL_objzd2classzd2numz00_2312 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2311); 
{ /* ./Globalize/node.scm 267 */
obj_t BgL_arg2017z00_2313;
{ /* ./Globalize/node.scm 267 */
int BgL_auxz00_4343;
BgL_auxz00_4343 = 
(int)(((long)1)); 
BgL_arg2017z00_2313 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BgL_auxz00_4343); } 
{ /* ./Globalize/node.scm 267 */
int BgL_offsetz00_2316;
BgL_offsetz00_2316 = 
(int)(BgL_objzd2classzd2numz00_2312); 
{ /* ./Globalize/node.scm 267 */
long BgL_offsetz00_2317;
{ /* ./Globalize/node.scm 267 */
long BgL_auxz00_4347;
BgL_auxz00_4347 = 
(long)(BgL_offsetz00_2316); 
BgL_offsetz00_2317 = 
(BgL_auxz00_4347-OBJECT_TYPE); } 
{ /* ./Globalize/node.scm 267 */
long BgL_modz00_2318;
{ /* ./Globalize/node.scm 267 */
int BgL_arg2028z00_2319;
BgL_arg2028z00_2319 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 267 */
long BgL_n2z00_2327;
BgL_n2z00_2327 = 
(long)(BgL_arg2028z00_2319); 
BgL_modz00_2318 = 
(BgL_offsetz00_2317/BgL_n2z00_2327); } } 
{ /* ./Globalize/node.scm 267 */
long BgL_restz00_2320;
{ /* ./Globalize/node.scm 267 */
int BgL_arg2024z00_2321;
BgL_arg2024z00_2321 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 267 */
long BgL_n2z00_2330;
BgL_n2z00_2330 = 
(long)(BgL_arg2024z00_2321); 
BgL_restz00_2320 = 
(BgL_offsetz00_2317%BgL_n2z00_2330); } } 
{ /* ./Globalize/node.scm 267 */

{ /* ./Globalize/node.scm 267 */
obj_t BgL_bucketz00_2322;
{ /* ./Globalize/node.scm 267 */
int BgL_kz00_2332;
BgL_kz00_2332 = 
(int)(BgL_modz00_2318); 
BgL_bucketz00_2322 = 
VECTOR_REF(BgL_arg2017z00_2313,BgL_kz00_2332); } 
{ /* ./Globalize/node.scm 267 */
int BgL_kz00_2334;
BgL_kz00_2334 = 
(int)(BgL_restz00_2320); 
BgL_method3122z00_2310 = 
VECTOR_REF(BgL_bucketz00_2322,BgL_kz00_2334); } } } } } } } } } } 
{ /* ./Globalize/node.scm 267 */
obj_t BgL_auxz00_4360;
BgL_auxz00_4360 = 
PROCEDURE_ENTRY(BgL_method3122z00_2310)(BgL_method3122z00_2310, 
(obj_t)(BgL_arg4210z00_2306), 
(obj_t)(BgL_integratorz00_2309), BEOA); 
BgL_res4645z00_2335 = 
(BgL_nodez00_bglt)(BgL_auxz00_4360); } } } BgL_res4645z00_2335; } } 
BgL_auxz00_4338 = BgL_nodez00_1609; 
return 
(obj_t)(BgL_auxz00_4338);} } } 
}



/* glo!-extern3143 */
obj_t BGl_gloz12zd2extern3143zc0zzglobaliza7e_nodeza7(obj_t BgL_envz00_3086, obj_t BgL_nodez00_3087, obj_t BgL_integratorz00_3088)
{ AN_OBJECT;
{ /* ./Globalize/node.scm 258 */
{ 
BgL_externz00_bglt BgL_nodez00_1601;obj_t BgL_integratorz00_1602;
{ /* ./Globalize/node.scm 259 */
BgL_externz00_bglt BgL_auxz00_4368;
BgL_nodez00_1601 = 
(BgL_externz00_bglt)(BgL_nodez00_3087); 
BgL_integratorz00_1602 = BgL_integratorz00_3088; 
{ /* ./Globalize/node.scm 259 */
obj_t BgL_arg4200z00_2303;
BgL_arg4200z00_2303 = 
(((BgL_externz00_bglt)CREF(BgL_nodez00_1601))->BgL_exprza2za2); 
BGl_gloza2z12zb0zzglobaliza7e_nodeza7(BgL_arg4200z00_2303, BgL_integratorz00_1602); } 
BgL_auxz00_4368 = BgL_nodez00_1601; 
return 
(obj_t)(BgL_auxz00_4368);} } } 
}



/* glo!-funcall3141 */
obj_t BGl_gloz12zd2funcall3141zc0zzglobaliza7e_nodeza7(obj_t BgL_envz00_3089, obj_t BgL_nodez00_3090, obj_t BgL_integratorz00_3091)
{ AN_OBJECT;
{ /* ./Globalize/node.scm 249 */
{ 
BgL_funcallz00_bglt BgL_nodez00_1591;obj_t BgL_integratorz00_1592;
{ /* ./Globalize/node.scm 250 */
BgL_funcallz00_bglt BgL_auxz00_4373;
BgL_nodez00_1591 = 
(BgL_funcallz00_bglt)(BgL_nodez00_3090); 
BgL_integratorz00_1592 = BgL_integratorz00_3091; 
{ /* ./Globalize/node.scm 251 */
BgL_nodez00_bglt BgL_arg4183z00_1596;
{ /* ./Globalize/node.scm 251 */
BgL_nodez00_bglt BgL_arg4186z00_1597;
BgL_arg4186z00_1597 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1591))->BgL_funz00); 
{ /* ./Globalize/node.scm 251 */
BgL_nodez00_bglt BgL_res4642z00_2298;
{ /* ./Globalize/node.scm 251 */
BgL_variablez00_bglt BgL_integratorz00_2272;
BgL_integratorz00_2272 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1592); 
{ /* ./Globalize/node.scm 251 */
obj_t BgL_method3122z00_2273;
{ /* ./Globalize/node.scm 251 */
BgL_objectz00_bglt BgL_objz00_2274;
BgL_objz00_2274 = 
(BgL_objectz00_bglt)(BgL_arg4186z00_1597); 
{ /* ./Globalize/node.scm 251 */
long BgL_objzd2classzd2numz00_2275;
BgL_objzd2classzd2numz00_2275 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2274); 
{ /* ./Globalize/node.scm 251 */
obj_t BgL_arg2017z00_2276;
{ /* ./Globalize/node.scm 251 */
int BgL_auxz00_4378;
BgL_auxz00_4378 = 
(int)(((long)1)); 
BgL_arg2017z00_2276 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BgL_auxz00_4378); } 
{ /* ./Globalize/node.scm 251 */
int BgL_offsetz00_2279;
BgL_offsetz00_2279 = 
(int)(BgL_objzd2classzd2numz00_2275); 
{ /* ./Globalize/node.scm 251 */
long BgL_offsetz00_2280;
{ /* ./Globalize/node.scm 251 */
long BgL_auxz00_4382;
BgL_auxz00_4382 = 
(long)(BgL_offsetz00_2279); 
BgL_offsetz00_2280 = 
(BgL_auxz00_4382-OBJECT_TYPE); } 
{ /* ./Globalize/node.scm 251 */
long BgL_modz00_2281;
{ /* ./Globalize/node.scm 251 */
int BgL_arg2028z00_2282;
BgL_arg2028z00_2282 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 251 */
long BgL_n2z00_2290;
BgL_n2z00_2290 = 
(long)(BgL_arg2028z00_2282); 
BgL_modz00_2281 = 
(BgL_offsetz00_2280/BgL_n2z00_2290); } } 
{ /* ./Globalize/node.scm 251 */
long BgL_restz00_2283;
{ /* ./Globalize/node.scm 251 */
int BgL_arg2024z00_2284;
BgL_arg2024z00_2284 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 251 */
long BgL_n2z00_2293;
BgL_n2z00_2293 = 
(long)(BgL_arg2024z00_2284); 
BgL_restz00_2283 = 
(BgL_offsetz00_2280%BgL_n2z00_2293); } } 
{ /* ./Globalize/node.scm 251 */

{ /* ./Globalize/node.scm 251 */
obj_t BgL_bucketz00_2285;
{ /* ./Globalize/node.scm 251 */
int BgL_kz00_2295;
BgL_kz00_2295 = 
(int)(BgL_modz00_2281); 
BgL_bucketz00_2285 = 
VECTOR_REF(BgL_arg2017z00_2276,BgL_kz00_2295); } 
{ /* ./Globalize/node.scm 251 */
int BgL_kz00_2297;
BgL_kz00_2297 = 
(int)(BgL_restz00_2283); 
BgL_method3122z00_2273 = 
VECTOR_REF(BgL_bucketz00_2285,BgL_kz00_2297); } } } } } } } } } } 
{ /* ./Globalize/node.scm 251 */
obj_t BgL_auxz00_4395;
BgL_auxz00_4395 = 
PROCEDURE_ENTRY(BgL_method3122z00_2273)(BgL_method3122z00_2273, 
(obj_t)(BgL_arg4186z00_1597), 
(obj_t)(BgL_integratorz00_2272), BEOA); 
BgL_res4642z00_2298 = 
(BgL_nodez00_bglt)(BgL_auxz00_4395); } } } 
BgL_arg4183z00_1596 = BgL_res4642z00_2298; } } 
{ /* ./Globalize/node.scm 251 */
BgL_funcallz00_bglt BgL_obj1781z00_2299;BgL_nodez00_bglt BgL_val1780z00_2300;
BgL_obj1781z00_2299 = BgL_nodez00_1591; 
BgL_val1780z00_2300 = BgL_arg4183z00_1596; 
((((BgL_funcallz00_bglt)CREF(BgL_obj1781z00_2299))->BgL_funz00) = ((BgL_nodez00_bglt)BgL_val1780z00_2300), BUNSPEC); } } 
{ /* ./Globalize/node.scm 252 */
obj_t BgL_arg4190z00_1598;
BgL_arg4190z00_1598 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1591))->BgL_argsz00); 
BGl_gloza2z12zb0zzglobaliza7e_nodeza7(BgL_arg4190z00_1598, BgL_integratorz00_1592); } 
BgL_auxz00_4373 = BgL_nodez00_1591; 
return 
(obj_t)(BgL_auxz00_4373);} } } 
}



/* glo!-app-ly3139 */
obj_t BGl_gloz12zd2appzd2ly3139z12zzglobaliza7e_nodeza7(obj_t BgL_envz00_3092, obj_t BgL_nodez00_3093, obj_t BgL_integratorz00_3094)
{ AN_OBJECT;
{ /* ./Globalize/node.scm 240 */
{ 
BgL_appzd2lyzd2_bglt BgL_nodez00_1580;obj_t BgL_integratorz00_1581;
{ /* ./Globalize/node.scm 241 */
BgL_appzd2lyzd2_bglt BgL_auxz00_4406;
BgL_nodez00_1580 = 
(BgL_appzd2lyzd2_bglt)(BgL_nodez00_3093); 
BgL_integratorz00_1581 = BgL_integratorz00_3094; 
{ /* ./Globalize/node.scm 242 */
BgL_nodez00_bglt BgL_arg4163z00_1585;
{ /* ./Globalize/node.scm 242 */
BgL_nodez00_bglt BgL_arg4166z00_1586;
BgL_arg4166z00_1586 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1580))->BgL_funz00); 
{ /* ./Globalize/node.scm 242 */
BgL_nodez00_bglt BgL_res4636z00_2236;
{ /* ./Globalize/node.scm 242 */
BgL_variablez00_bglt BgL_integratorz00_2210;
BgL_integratorz00_2210 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1581); 
{ /* ./Globalize/node.scm 242 */
obj_t BgL_method3122z00_2211;
{ /* ./Globalize/node.scm 242 */
BgL_objectz00_bglt BgL_objz00_2212;
BgL_objz00_2212 = 
(BgL_objectz00_bglt)(BgL_arg4166z00_1586); 
{ /* ./Globalize/node.scm 242 */
long BgL_objzd2classzd2numz00_2213;
BgL_objzd2classzd2numz00_2213 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2212); 
{ /* ./Globalize/node.scm 242 */
obj_t BgL_arg2017z00_2214;
{ /* ./Globalize/node.scm 242 */
int BgL_auxz00_4411;
BgL_auxz00_4411 = 
(int)(((long)1)); 
BgL_arg2017z00_2214 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BgL_auxz00_4411); } 
{ /* ./Globalize/node.scm 242 */
int BgL_offsetz00_2217;
BgL_offsetz00_2217 = 
(int)(BgL_objzd2classzd2numz00_2213); 
{ /* ./Globalize/node.scm 242 */
long BgL_offsetz00_2218;
{ /* ./Globalize/node.scm 242 */
long BgL_auxz00_4415;
BgL_auxz00_4415 = 
(long)(BgL_offsetz00_2217); 
BgL_offsetz00_2218 = 
(BgL_auxz00_4415-OBJECT_TYPE); } 
{ /* ./Globalize/node.scm 242 */
long BgL_modz00_2219;
{ /* ./Globalize/node.scm 242 */
int BgL_arg2028z00_2220;
BgL_arg2028z00_2220 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 242 */
long BgL_n2z00_2228;
BgL_n2z00_2228 = 
(long)(BgL_arg2028z00_2220); 
BgL_modz00_2219 = 
(BgL_offsetz00_2218/BgL_n2z00_2228); } } 
{ /* ./Globalize/node.scm 242 */
long BgL_restz00_2221;
{ /* ./Globalize/node.scm 242 */
int BgL_arg2024z00_2222;
BgL_arg2024z00_2222 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 242 */
long BgL_n2z00_2231;
BgL_n2z00_2231 = 
(long)(BgL_arg2024z00_2222); 
BgL_restz00_2221 = 
(BgL_offsetz00_2218%BgL_n2z00_2231); } } 
{ /* ./Globalize/node.scm 242 */

{ /* ./Globalize/node.scm 242 */
obj_t BgL_bucketz00_2223;
{ /* ./Globalize/node.scm 242 */
int BgL_kz00_2233;
BgL_kz00_2233 = 
(int)(BgL_modz00_2219); 
BgL_bucketz00_2223 = 
VECTOR_REF(BgL_arg2017z00_2214,BgL_kz00_2233); } 
{ /* ./Globalize/node.scm 242 */
int BgL_kz00_2235;
BgL_kz00_2235 = 
(int)(BgL_restz00_2221); 
BgL_method3122z00_2211 = 
VECTOR_REF(BgL_bucketz00_2223,BgL_kz00_2235); } } } } } } } } } } 
{ /* ./Globalize/node.scm 242 */
obj_t BgL_auxz00_4428;
BgL_auxz00_4428 = 
PROCEDURE_ENTRY(BgL_method3122z00_2211)(BgL_method3122z00_2211, 
(obj_t)(BgL_arg4166z00_1586), 
(obj_t)(BgL_integratorz00_2210), BEOA); 
BgL_res4636z00_2236 = 
(BgL_nodez00_bglt)(BgL_auxz00_4428); } } } 
BgL_arg4163z00_1585 = BgL_res4636z00_2236; } } 
{ /* ./Globalize/node.scm 242 */
BgL_appzd2lyzd2_bglt BgL_obj1753z00_2237;BgL_nodez00_bglt BgL_val1752z00_2238;
BgL_obj1753z00_2237 = BgL_nodez00_1580; 
BgL_val1752z00_2238 = BgL_arg4163z00_1585; 
((((BgL_appzd2lyzd2_bglt)CREF(BgL_obj1753z00_2237))->BgL_funz00) = ((BgL_nodez00_bglt)BgL_val1752z00_2238), BUNSPEC); } } 
{ /* ./Globalize/node.scm 243 */
BgL_nodez00_bglt BgL_arg4170z00_1587;
{ /* ./Globalize/node.scm 243 */
BgL_nodez00_bglt BgL_arg4173z00_1588;
BgL_arg4173z00_1588 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1580))->BgL_argz00); 
{ /* ./Globalize/node.scm 243 */
BgL_nodez00_bglt BgL_res4639z00_2267;
{ /* ./Globalize/node.scm 243 */
BgL_variablez00_bglt BgL_integratorz00_2241;
BgL_integratorz00_2241 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1581); 
{ /* ./Globalize/node.scm 243 */
obj_t BgL_method3122z00_2242;
{ /* ./Globalize/node.scm 243 */
BgL_objectz00_bglt BgL_objz00_2243;
BgL_objz00_2243 = 
(BgL_objectz00_bglt)(BgL_arg4173z00_1588); 
{ /* ./Globalize/node.scm 243 */
long BgL_objzd2classzd2numz00_2244;
BgL_objzd2classzd2numz00_2244 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2243); 
{ /* ./Globalize/node.scm 243 */
obj_t BgL_arg2017z00_2245;
{ /* ./Globalize/node.scm 243 */
int BgL_auxz00_4439;
BgL_auxz00_4439 = 
(int)(((long)1)); 
BgL_arg2017z00_2245 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BgL_auxz00_4439); } 
{ /* ./Globalize/node.scm 243 */
int BgL_offsetz00_2248;
BgL_offsetz00_2248 = 
(int)(BgL_objzd2classzd2numz00_2244); 
{ /* ./Globalize/node.scm 243 */
long BgL_offsetz00_2249;
{ /* ./Globalize/node.scm 243 */
long BgL_auxz00_4443;
BgL_auxz00_4443 = 
(long)(BgL_offsetz00_2248); 
BgL_offsetz00_2249 = 
(BgL_auxz00_4443-OBJECT_TYPE); } 
{ /* ./Globalize/node.scm 243 */
long BgL_modz00_2250;
{ /* ./Globalize/node.scm 243 */
int BgL_arg2028z00_2251;
BgL_arg2028z00_2251 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 243 */
long BgL_n2z00_2259;
BgL_n2z00_2259 = 
(long)(BgL_arg2028z00_2251); 
BgL_modz00_2250 = 
(BgL_offsetz00_2249/BgL_n2z00_2259); } } 
{ /* ./Globalize/node.scm 243 */
long BgL_restz00_2252;
{ /* ./Globalize/node.scm 243 */
int BgL_arg2024z00_2253;
BgL_arg2024z00_2253 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 243 */
long BgL_n2z00_2262;
BgL_n2z00_2262 = 
(long)(BgL_arg2024z00_2253); 
BgL_restz00_2252 = 
(BgL_offsetz00_2249%BgL_n2z00_2262); } } 
{ /* ./Globalize/node.scm 243 */

{ /* ./Globalize/node.scm 243 */
obj_t BgL_bucketz00_2254;
{ /* ./Globalize/node.scm 243 */
int BgL_kz00_2264;
BgL_kz00_2264 = 
(int)(BgL_modz00_2250); 
BgL_bucketz00_2254 = 
VECTOR_REF(BgL_arg2017z00_2245,BgL_kz00_2264); } 
{ /* ./Globalize/node.scm 243 */
int BgL_kz00_2266;
BgL_kz00_2266 = 
(int)(BgL_restz00_2252); 
BgL_method3122z00_2242 = 
VECTOR_REF(BgL_bucketz00_2254,BgL_kz00_2266); } } } } } } } } } } 
{ /* ./Globalize/node.scm 243 */
obj_t BgL_auxz00_4456;
BgL_auxz00_4456 = 
PROCEDURE_ENTRY(BgL_method3122z00_2242)(BgL_method3122z00_2242, 
(obj_t)(BgL_arg4173z00_1588), 
(obj_t)(BgL_integratorz00_2241), BEOA); 
BgL_res4639z00_2267 = 
(BgL_nodez00_bglt)(BgL_auxz00_4456); } } } 
BgL_arg4170z00_1587 = BgL_res4639z00_2267; } } 
{ /* ./Globalize/node.scm 243 */
BgL_appzd2lyzd2_bglt BgL_obj1756z00_2268;BgL_nodez00_bglt BgL_val1755z00_2269;
BgL_obj1756z00_2268 = BgL_nodez00_1580; 
BgL_val1755z00_2269 = BgL_arg4170z00_1587; 
((((BgL_appzd2lyzd2_bglt)CREF(BgL_obj1756z00_2268))->BgL_argz00) = ((BgL_nodez00_bglt)BgL_val1755z00_2269), BUNSPEC); } } 
BgL_auxz00_4406 = BgL_nodez00_1580; 
return 
(obj_t)(BgL_auxz00_4406);} } } 
}



/* glo!-app3137 */
obj_t BGl_gloz12zd2app3137zc0zzglobaliza7e_nodeza7(obj_t BgL_envz00_3095, obj_t BgL_nodez00_3096, obj_t BgL_integratorz00_3097)
{ AN_OBJECT;
{ /* ./Globalize/node.scm 175 */
{ 
BgL_appz00_bglt BgL_nodez00_1525;obj_t BgL_integratorz00_1526;
{ /* ./Globalize/node.scm 176 */
BgL_appz00_bglt BgL_auxz00_4465;
BgL_nodez00_1525 = 
(BgL_appz00_bglt)(BgL_nodez00_3096); 
BgL_integratorz00_1526 = BgL_integratorz00_3097; 
{ /* ./Globalize/node.scm 177 */
BgL_variablez00_bglt BgL_funz00_1530;
{ /* ./Globalize/node.scm 177 */
BgL_varz00_bglt BgL_arg4153z00_1577;
BgL_arg4153z00_1577 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1525))->BgL_funz00); 
BgL_funz00_1530 = 
(((BgL_varz00_bglt)CREF(BgL_arg4153z00_1577))->BgL_variablez00); } 
{ /* ./Globalize/node.scm 177 */
BgL_valuez00_bglt BgL_infoz00_1531;
BgL_infoz00_1531 = 
(((BgL_variablez00_bglt)CREF(BgL_funz00_1530))->BgL_valuez00); 
{ /* ./Globalize/node.scm 178 */

{ /* ./Globalize/node.scm 187 */
bool_t BgL_test4056z00_1532;
{ /* ./Globalize/node.scm 187 */
bool_t BgL_test4068z00_1537;
{ /* ./Globalize/node.scm 187 */
obj_t BgL_obj1300z00_2120;
BgL_obj1300z00_2120 = 
(obj_t)(BgL_funz00_1530); 
BgL_test4068z00_1537 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1300z00_2120, BGl_localz00zzast_varz00); } 
if(BgL_test4068z00_1537)
{ /* ./Globalize/node.scm 188 */
bool_t BgL_testz00_4472;
{ /* ./Globalize/node.scm 188 */
bool_t BgL_testz00_4473;
{ /* ./Globalize/node.scm 188 */
obj_t BgL_auxz00_4474;
BgL_auxz00_4474 = 
(obj_t)(BgL_funz00_1530); 
BgL_testz00_4473 = 
(BgL_auxz00_4474==BgL_integratorz00_1526); } 
if(BgL_testz00_4473)
{ /* ./Globalize/node.scm 189 */
bool_t BgL_testz00_4477;
{ /* ./Globalize/node.scm 189 */
BgL_localzf2ginfozf2_bglt BgL_obj2925z00_2121;
BgL_obj2925z00_2121 = 
(BgL_localzf2ginfozf2_bglt)(BgL_funz00_1530); 
{ 
obj_t BgL_auxz00_4479;
{ /* ./Globalize/node.scm 189 */
BgL_objectz00_bglt BgL_auxz00_4480;
BgL_auxz00_4480 = 
(BgL_objectz00_bglt)(BgL_obj2925z00_2121); 
BgL_auxz00_4479 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4480); } 
BgL_testz00_4477 = 
(((BgL_localzf2ginfozf2_bglt)CREF(BgL_auxz00_4479))->BgL_escapezf3zf3); } } 
if(BgL_testz00_4477)
{ /* ./Globalize/node.scm 189 */
BgL_testz00_4472 = ((bool_t)0)
; }  else 
{ /* ./Globalize/node.scm 189 */
BgL_testz00_4472 = ((bool_t)1)
; } }  else 
{ /* ./Globalize/node.scm 188 */
BgL_testz00_4472 = ((bool_t)1)
; } } 
if(BgL_testz00_4472)
{ /* ./Globalize/node.scm 189 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2740z00_2122;
BgL_obj2740z00_2122 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_infoz00_1531); 
{ 
obj_t BgL_auxz00_4485;
{ /* ./Globalize/node.scm 189 */
BgL_objectz00_bglt BgL_auxz00_4486;
BgL_auxz00_4486 = 
(BgL_objectz00_bglt)(BgL_obj2740z00_2122); 
BgL_auxz00_4485 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4486); } 
BgL_test4056z00_1532 = 
(((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_4485))->BgL_gzf3zf3); } }  else 
{ /* ./Globalize/node.scm 188 */
BgL_test4056z00_1532 = ((bool_t)0); } }  else 
{ /* ./Globalize/node.scm 187 */
BgL_test4056z00_1532 = ((bool_t)0); } } 
if(BgL_test4056z00_1532)
{ /* ./Globalize/node.scm 193 */
BgL_varz00_bglt BgL_arg4058z00_1533;
{ /* ./Globalize/node.scm 193 */
obj_t BgL_arg4061z00_1534;BgL_typez00_bglt BgL_arg4062z00_1535;BgL_globalz00_bglt BgL_arg4063z00_1536;
{ /* ./Globalize/node.scm 193 */
BgL_nodez00_bglt BgL_obj1560z00_2123;
BgL_obj1560z00_2123 = 
(BgL_nodez00_bglt)(BgL_nodez00_1525); 
BgL_arg4061z00_1534 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2123))->BgL_locz00); } 
{ /* ./Globalize/node.scm 194 */
BgL_nodez00_bglt BgL_obj1561z00_2124;
BgL_obj1561z00_2124 = 
(BgL_nodez00_bglt)(BgL_nodez00_1525); 
BgL_arg4062z00_1535 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_2124))->BgL_typez00); } 
BgL_arg4063z00_1536 = 
BGl_thezd2globalzd2zzglobaliza7e_localzd2ze3globalz96(
(BgL_localz00_bglt)(BgL_funz00_1530)); 
BgL_arg4058z00_1533 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg4061z00_1534, BgL_arg4062z00_1535, 
(BgL_variablez00_bglt)(BgL_arg4063z00_1536)); } 
{ /* ./Globalize/node.scm 191 */
BgL_appz00_bglt BgL_obj1721z00_2125;BgL_varz00_bglt BgL_val1720z00_2126;
BgL_obj1721z00_2125 = BgL_nodez00_1525; 
BgL_val1720z00_2126 = BgL_arg4058z00_1533; 
((((BgL_appz00_bglt)CREF(BgL_obj1721z00_2125))->BgL_funz00) = ((BgL_varz00_bglt)BgL_val1720z00_2126), BUNSPEC); } }  else 
{ /* ./Globalize/node.scm 187 */BFALSE; } } 
{ 
obj_t BgL_nodesz00_1541;
{ /* ./Globalize/node.scm 198 */
obj_t BgL_arg4077z00_1543;
BgL_arg4077z00_1543 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1525))->BgL_argsz00); 
BgL_nodesz00_1541 = BgL_arg4077z00_1543; 
BgL_liipz00_1542:
{ /* ./Globalize/node.scm 199 */
bool_t BgL_test4080z00_1544;
BgL_test4080z00_1544 = 
NULLP(BgL_nodesz00_1541); 
if(BgL_test4080z00_1544)
{ /* ./Globalize/node.scm 199 */
CNST_TABLE_REF(((long)2)); }  else 
{ /* ./Globalize/node.scm 199 */
{ /* ./Globalize/node.scm 202 */
BgL_nodez00_bglt BgL_arg4082z00_1545;
{ /* ./Globalize/node.scm 202 */
obj_t BgL_arg4085z00_1546;
BgL_arg4085z00_1546 = 
CAR(BgL_nodesz00_1541); 
{ /* ./Globalize/node.scm 202 */
BgL_nodez00_bglt BgL_res4630z00_2157;
{ /* ./Globalize/node.scm 202 */
BgL_nodez00_bglt BgL_nodez00_2130;BgL_variablez00_bglt BgL_integratorz00_2131;
BgL_nodez00_2130 = 
(BgL_nodez00_bglt)(BgL_arg4085z00_1546); 
BgL_integratorz00_2131 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1526); 
{ /* ./Globalize/node.scm 202 */
obj_t BgL_method3122z00_2132;
{ /* ./Globalize/node.scm 202 */
BgL_objectz00_bglt BgL_objz00_2133;
BgL_objz00_2133 = 
(BgL_objectz00_bglt)(BgL_nodez00_2130); 
{ /* ./Globalize/node.scm 202 */
long BgL_objzd2classzd2numz00_2134;
BgL_objzd2classzd2numz00_2134 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2133); 
{ /* ./Globalize/node.scm 202 */
obj_t BgL_arg2017z00_2135;
{ /* ./Globalize/node.scm 202 */
int BgL_auxz00_4509;
BgL_auxz00_4509 = 
(int)(((long)1)); 
BgL_arg2017z00_2135 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BgL_auxz00_4509); } 
{ /* ./Globalize/node.scm 202 */
int BgL_offsetz00_2138;
BgL_offsetz00_2138 = 
(int)(BgL_objzd2classzd2numz00_2134); 
{ /* ./Globalize/node.scm 202 */
long BgL_offsetz00_2139;
{ /* ./Globalize/node.scm 202 */
long BgL_auxz00_4513;
BgL_auxz00_4513 = 
(long)(BgL_offsetz00_2138); 
BgL_offsetz00_2139 = 
(BgL_auxz00_4513-OBJECT_TYPE); } 
{ /* ./Globalize/node.scm 202 */
long BgL_modz00_2140;
{ /* ./Globalize/node.scm 202 */
int BgL_arg2028z00_2141;
BgL_arg2028z00_2141 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 202 */
long BgL_n2z00_2149;
BgL_n2z00_2149 = 
(long)(BgL_arg2028z00_2141); 
BgL_modz00_2140 = 
(BgL_offsetz00_2139/BgL_n2z00_2149); } } 
{ /* ./Globalize/node.scm 202 */
long BgL_restz00_2142;
{ /* ./Globalize/node.scm 202 */
int BgL_arg2024z00_2143;
BgL_arg2024z00_2143 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 202 */
long BgL_n2z00_2152;
BgL_n2z00_2152 = 
(long)(BgL_arg2024z00_2143); 
BgL_restz00_2142 = 
(BgL_offsetz00_2139%BgL_n2z00_2152); } } 
{ /* ./Globalize/node.scm 202 */

{ /* ./Globalize/node.scm 202 */
obj_t BgL_bucketz00_2144;
{ /* ./Globalize/node.scm 202 */
int BgL_kz00_2154;
BgL_kz00_2154 = 
(int)(BgL_modz00_2140); 
BgL_bucketz00_2144 = 
VECTOR_REF(BgL_arg2017z00_2135,BgL_kz00_2154); } 
{ /* ./Globalize/node.scm 202 */
int BgL_kz00_2156;
BgL_kz00_2156 = 
(int)(BgL_restz00_2142); 
BgL_method3122z00_2132 = 
VECTOR_REF(BgL_bucketz00_2144,BgL_kz00_2156); } } } } } } } } } } 
{ /* ./Globalize/node.scm 202 */
obj_t BgL_auxz00_4526;
BgL_auxz00_4526 = 
PROCEDURE_ENTRY(BgL_method3122z00_2132)(BgL_method3122z00_2132, 
(obj_t)(BgL_nodez00_2130), 
(obj_t)(BgL_integratorz00_2131), BEOA); 
BgL_res4630z00_2157 = 
(BgL_nodez00_bglt)(BgL_auxz00_4526); } } } 
BgL_arg4082z00_1545 = BgL_res4630z00_2157; } } 
{ /* ./Globalize/node.scm 202 */
obj_t BgL_objz00_2159;
BgL_objz00_2159 = 
(obj_t)(BgL_arg4082z00_1545); 
SET_CAR(BgL_nodesz00_1541, BgL_objz00_2159); } } 
{ /* ./Globalize/node.scm 203 */
obj_t BgL_arg4089z00_1547;
BgL_arg4089z00_1547 = 
CDR(BgL_nodesz00_1541); 
{ 
obj_t BgL_nodesz00_4535;
BgL_nodesz00_4535 = BgL_arg4089z00_1547; 
BgL_nodesz00_1541 = BgL_nodesz00_4535; 
goto BgL_liipz00_1542;} } } } } } 
{ /* ./Globalize/node.scm 205 */
bool_t BgL_test4093z00_1548;
{ /* ./Globalize/node.scm 205 */
bool_t BgL_test4145z00_1574;
{ /* ./Globalize/node.scm 205 */
obj_t BgL_obj1240z00_2161;
BgL_obj1240z00_2161 = 
(obj_t)(BgL_funz00_1530); 
BgL_test4145z00_1574 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1240z00_2161, BGl_globalz00zzast_varz00); } 
if(BgL_test4145z00_1574)
{ /* ./Globalize/node.scm 205 */
BgL_test4093z00_1548 = ((bool_t)1); }  else 
{ /* ./Globalize/node.scm 206 */
bool_t BgL_testz00_4539;
{ /* ./Globalize/node.scm 206 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2740z00_2162;
BgL_obj2740z00_2162 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_infoz00_1531); 
{ 
obj_t BgL_auxz00_4541;
{ /* ./Globalize/node.scm 206 */
BgL_objectz00_bglt BgL_auxz00_4542;
BgL_auxz00_4542 = 
(BgL_objectz00_bglt)(BgL_obj2740z00_2162); 
BgL_auxz00_4541 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4542); } 
BgL_testz00_4539 = 
(((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_4541))->BgL_gzf3zf3); } } 
if(BgL_testz00_4539)
{ /* ./Globalize/node.scm 207 */
bool_t BgL_testz00_4546;
{ /* ./Globalize/node.scm 207 */
obj_t BgL_auxz00_4547;
BgL_auxz00_4547 = 
(obj_t)(BgL_funz00_1530); 
BgL_testz00_4546 = 
(BgL_auxz00_4547==BgL_integratorz00_1526); } 
if(BgL_testz00_4546)
{ /* ./Globalize/node.scm 208 */
BgL_localzf2ginfozf2_bglt BgL_obj2925z00_2163;
BgL_obj2925z00_2163 = 
(BgL_localzf2ginfozf2_bglt)(BgL_funz00_1530); 
{ 
obj_t BgL_auxz00_4551;
{ /* ./Globalize/node.scm 208 */
BgL_objectz00_bglt BgL_auxz00_4552;
BgL_auxz00_4552 = 
(BgL_objectz00_bglt)(BgL_obj2925z00_2163); 
BgL_auxz00_4551 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4552); } 
BgL_test4093z00_1548 = 
(((BgL_localzf2ginfozf2_bglt)CREF(BgL_auxz00_4551))->BgL_escapezf3zf3); } }  else 
{ /* ./Globalize/node.scm 207 */
BgL_test4093z00_1548 = ((bool_t)0); } }  else 
{ /* ./Globalize/node.scm 206 */
BgL_test4093z00_1548 = ((bool_t)1); } } } 
if(BgL_test4093z00_1548)
{ /* ./Globalize/node.scm 205 */
CNST_TABLE_REF(((long)2)); }  else 
{ /* ./Globalize/node.scm 210 */
bool_t BgL_test4094z00_1549;
{ /* ./Globalize/node.scm 210 */
BgL_localzf2ginfozf2_bglt BgL_obj2925z00_2164;
BgL_obj2925z00_2164 = 
(BgL_localzf2ginfozf2_bglt)(BgL_funz00_1530); 
{ 
obj_t BgL_auxz00_4559;
{ /* ./Globalize/node.scm 210 */
BgL_objectz00_bglt BgL_auxz00_4560;
BgL_auxz00_4560 = 
(BgL_objectz00_bglt)(BgL_obj2925z00_2164); 
BgL_auxz00_4559 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4560); } 
BgL_test4094z00_1549 = 
(((BgL_localzf2ginfozf2_bglt)CREF(BgL_auxz00_4559))->BgL_escapezf3zf3); } } 
if(BgL_test4094z00_1549)
{ /* ./Globalize/node.scm 210 */
{ /* ./Globalize/node.scm 214 */
obj_t BgL_arg4096z00_1550;
{ /* ./Globalize/node.scm 214 */
BgL_nodez00_bglt BgL_arg4099z00_1551;obj_t BgL_arg4100z00_1552;
{ /* ./Globalize/node.scm 214 */
BgL_varz00_bglt BgL_arg4103z00_1553;
{ /* ./Globalize/node.scm 214 */
obj_t BgL_arg4106z00_1554;obj_t BgL_arg4107z00_1555;obj_t BgL_arg4108z00_1556;
{ /* ./Globalize/node.scm 214 */
BgL_nodez00_bglt BgL_obj1560z00_2165;
BgL_obj1560z00_2165 = 
(BgL_nodez00_bglt)(BgL_nodez00_1525); 
BgL_arg4106z00_1554 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2165))->BgL_locz00); } 
BgL_arg4107z00_1555 = BGl_za2_za2z00zztype_cachez00; 
{ /* ./Globalize/node.scm 216 */
obj_t BgL_arg4112z00_1557;
{ /* ./Globalize/node.scm 216 */
BgL_nodez00_bglt BgL_obj1560z00_2166;
BgL_obj1560z00_2166 = 
(BgL_nodez00_bglt)(BgL_nodez00_1525); 
BgL_arg4112z00_1557 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2166))->BgL_locz00); } 
BgL_arg4108z00_1556 = 
BGl_thezd2closurezd2zzglobaliza7e_freeza7(BgL_funz00_1530, BgL_arg4112z00_1557); } 
BgL_arg4103z00_1553 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg4106z00_1554, 
(BgL_typez00_bglt)(BgL_arg4107z00_1555), 
(BgL_variablez00_bglt)(BgL_arg4108z00_1556)); } 
{ /* ./Globalize/node.scm 213 */
BgL_nodez00_bglt BgL_res4633z00_2194;
{ /* ./Globalize/node.scm 213 */
BgL_nodez00_bglt BgL_nodez00_2167;BgL_variablez00_bglt BgL_integratorz00_2168;
BgL_nodez00_2167 = 
(BgL_nodez00_bglt)(BgL_arg4103z00_1553); 
BgL_integratorz00_2168 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1526); 
{ /* ./Globalize/node.scm 213 */
obj_t BgL_method3122z00_2169;
{ /* ./Globalize/node.scm 213 */
BgL_objectz00_bglt BgL_objz00_2170;
BgL_objz00_2170 = 
(BgL_objectz00_bglt)(BgL_nodez00_2167); 
{ /* ./Globalize/node.scm 213 */
long BgL_objzd2classzd2numz00_2171;
BgL_objzd2classzd2numz00_2171 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2170); 
{ /* ./Globalize/node.scm 213 */
obj_t BgL_arg2017z00_2172;
{ /* ./Globalize/node.scm 213 */
int BgL_auxz00_4577;
BgL_auxz00_4577 = 
(int)(((long)1)); 
BgL_arg2017z00_2172 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BgL_auxz00_4577); } 
{ /* ./Globalize/node.scm 213 */
int BgL_offsetz00_2175;
BgL_offsetz00_2175 = 
(int)(BgL_objzd2classzd2numz00_2171); 
{ /* ./Globalize/node.scm 213 */
long BgL_offsetz00_2176;
{ /* ./Globalize/node.scm 213 */
long BgL_auxz00_4581;
BgL_auxz00_4581 = 
(long)(BgL_offsetz00_2175); 
BgL_offsetz00_2176 = 
(BgL_auxz00_4581-OBJECT_TYPE); } 
{ /* ./Globalize/node.scm 213 */
long BgL_modz00_2177;
{ /* ./Globalize/node.scm 213 */
int BgL_arg2028z00_2178;
BgL_arg2028z00_2178 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 213 */
long BgL_n2z00_2186;
BgL_n2z00_2186 = 
(long)(BgL_arg2028z00_2178); 
BgL_modz00_2177 = 
(BgL_offsetz00_2176/BgL_n2z00_2186); } } 
{ /* ./Globalize/node.scm 213 */
long BgL_restz00_2179;
{ /* ./Globalize/node.scm 213 */
int BgL_arg2024z00_2180;
BgL_arg2024z00_2180 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 213 */
long BgL_n2z00_2189;
BgL_n2z00_2189 = 
(long)(BgL_arg2024z00_2180); 
BgL_restz00_2179 = 
(BgL_offsetz00_2176%BgL_n2z00_2189); } } 
{ /* ./Globalize/node.scm 213 */

{ /* ./Globalize/node.scm 213 */
obj_t BgL_bucketz00_2181;
{ /* ./Globalize/node.scm 213 */
int BgL_kz00_2191;
BgL_kz00_2191 = 
(int)(BgL_modz00_2177); 
BgL_bucketz00_2181 = 
VECTOR_REF(BgL_arg2017z00_2172,BgL_kz00_2191); } 
{ /* ./Globalize/node.scm 213 */
int BgL_kz00_2193;
BgL_kz00_2193 = 
(int)(BgL_restz00_2179); 
BgL_method3122z00_2169 = 
VECTOR_REF(BgL_bucketz00_2181,BgL_kz00_2193); } } } } } } } } } } 
{ /* ./Globalize/node.scm 213 */
obj_t BgL_auxz00_4594;
BgL_auxz00_4594 = 
PROCEDURE_ENTRY(BgL_method3122z00_2169)(BgL_method3122z00_2169, 
(obj_t)(BgL_nodez00_2167), 
(obj_t)(BgL_integratorz00_2168), BEOA); 
BgL_res4633z00_2194 = 
(BgL_nodez00_bglt)(BgL_auxz00_4594); } } } 
BgL_arg4099z00_1551 = BgL_res4633z00_2194; } } 
BgL_arg4100z00_1552 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1525))->BgL_argsz00); 
{ /* ./Globalize/node.scm 213 */
obj_t BgL_auxz00_4601;
BgL_auxz00_4601 = 
(obj_t)(BgL_arg4099z00_1551); 
BgL_arg4096z00_1550 = 
MAKE_PAIR(BgL_auxz00_4601, BgL_arg4100z00_1552); } } 
{ /* ./Globalize/node.scm 213 */
BgL_appz00_bglt BgL_obj1724z00_2196;obj_t BgL_val1723z00_2197;
BgL_obj1724z00_2196 = BgL_nodez00_1525; 
BgL_val1723z00_2197 = BgL_arg4096z00_1550; 
((((BgL_appz00_bglt)CREF(BgL_obj1724z00_2196))->BgL_argsz00) = ((obj_t)BgL_val1723z00_2197), BUNSPEC); } } }  else 
{ /* ./Globalize/node.scm 210 */
{ 
obj_t BgL_newzd2actualszd2_1558;obj_t BgL_kapturedz00_1559;
{ /* ./Globalize/node.scm 222 */
obj_t BgL_arg4118z00_1561;obj_t BgL_arg4119z00_1562;
BgL_arg4118z00_1561 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1525))->BgL_argsz00); 
{ /* ./Globalize/node.scm 223 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2784z00_2199;
BgL_obj2784z00_2199 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_infoz00_1531); 
{ 
obj_t BgL_auxz00_4607;
{ /* ./Globalize/node.scm 223 */
BgL_objectz00_bglt BgL_auxz00_4608;
BgL_auxz00_4608 = 
(BgL_objectz00_bglt)(BgL_obj2784z00_2199); 
BgL_auxz00_4607 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4608); } 
BgL_arg4119z00_1562 = 
(((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_4607))->BgL_kapturedz00); } } 
BgL_newzd2actualszd2_1558 = BgL_arg4118z00_1561; 
BgL_kapturedz00_1559 = BgL_arg4119z00_1562; 
BgL_loopz00_1560:
{ /* ./Globalize/node.scm 224 */
bool_t BgL_test4123z00_1563;
BgL_test4123z00_1563 = 
NULLP(BgL_kapturedz00_1559); 
if(BgL_test4123z00_1563)
{ /* ./Globalize/node.scm 225 */
BgL_appz00_bglt BgL_obj1724z00_2201;obj_t BgL_val1723z00_2202;
BgL_obj1724z00_2201 = BgL_nodez00_1525; 
BgL_val1723z00_2202 = BgL_newzd2actualszd2_1558; 
((((BgL_appz00_bglt)CREF(BgL_obj1724z00_2201))->BgL_argsz00) = ((obj_t)BgL_val1723z00_2202), BUNSPEC); }  else 
{ /* ./Globalize/node.scm 226 */
obj_t BgL_kapz00_1564;
BgL_kapz00_1564 = 
CAR(BgL_kapturedz00_1559); 
{ /* ./Globalize/node.scm 226 */
obj_t BgL_alphaz00_1565;
{ /* ./Globalize/node.scm 227 */
BgL_variablez00_bglt BgL_obj1106z00_2204;
BgL_obj1106z00_2204 = 
(BgL_variablez00_bglt)(BgL_kapz00_1564); 
BgL_alphaz00_1565 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1106z00_2204))->BgL_fastzd2alphazd2); } 
{ /* ./Globalize/node.scm 227 */
obj_t BgL_varz00_1566;
{ /* ./Globalize/node.scm 228 */
bool_t BgL_test4139z00_1573;
BgL_test4139z00_1573 = 
BGl_iszd2azf3z21zz__objectz00(BgL_alphaz00_1565, BGl_localz00zzast_varz00); 
if(BgL_test4139z00_1573)
{ /* ./Globalize/node.scm 228 */
BgL_varz00_1566 = BgL_alphaz00_1565; }  else 
{ /* ./Globalize/node.scm 228 */
BgL_varz00_1566 = BgL_kapz00_1564; } } 
{ /* ./Globalize/node.scm 228 */

{ /* ./Globalize/node.scm 230 */
obj_t BgL_arg4126z00_1567;obj_t BgL_arg4127z00_1568;
{ /* ./Globalize/node.scm 230 */
BgL_varz00_bglt BgL_arg4130z00_1569;
{ /* ./Globalize/node.scm 230 */
obj_t BgL_arg4133z00_1570;obj_t BgL_arg4134z00_1571;obj_t BgL_arg4135z00_1572;
{ /* ./Globalize/node.scm 230 */
BgL_nodez00_bglt BgL_obj1560z00_2206;
BgL_obj1560z00_2206 = 
(BgL_nodez00_bglt)(BgL_nodez00_1525); 
BgL_arg4133z00_1570 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2206))->BgL_locz00); } 
BgL_arg4134z00_1571 = BGl_za2_za2z00zztype_cachez00; 
BgL_arg4135z00_1572 = BgL_varz00_1566; 
BgL_arg4130z00_1569 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg4133z00_1570, 
(BgL_typez00_bglt)(BgL_arg4134z00_1571), 
(BgL_variablez00_bglt)(BgL_arg4135z00_1572)); } 
{ /* ./Globalize/node.scm 229 */
obj_t BgL_auxz00_4625;
BgL_auxz00_4625 = 
(obj_t)(BgL_arg4130z00_1569); 
BgL_arg4126z00_1567 = 
MAKE_PAIR(BgL_auxz00_4625, BgL_newzd2actualszd2_1558); } } 
BgL_arg4127z00_1568 = 
CDR(BgL_kapturedz00_1559); 
{ 
obj_t BgL_kapturedz00_4630;obj_t BgL_newzd2actualszd2_4629;
BgL_newzd2actualszd2_4629 = BgL_arg4126z00_1567; 
BgL_kapturedz00_4630 = BgL_arg4127z00_1568; 
BgL_kapturedz00_1559 = BgL_kapturedz00_4630; 
BgL_newzd2actualszd2_1558 = BgL_newzd2actualszd2_4629; 
goto BgL_loopz00_1560;} } } } } } } } } } } } 
BgL_auxz00_4465 = BgL_nodez00_1525; } } } 
return 
(obj_t)(BgL_auxz00_4465);} } } 
}



/* glo!-sequence3135 */
obj_t BGl_gloz12zd2sequence3135zc0zzglobaliza7e_nodeza7(obj_t BgL_envz00_3098, obj_t BgL_nodez00_3099, obj_t BgL_integratorz00_3100)
{ AN_OBJECT;
{ /* ./Globalize/node.scm 167 */
{ 
BgL_sequencez00_bglt BgL_nodez00_1517;obj_t BgL_integratorz00_1518;
{ /* ./Globalize/node.scm 168 */
BgL_sequencez00_bglt BgL_auxz00_4633;
BgL_nodez00_1517 = 
(BgL_sequencez00_bglt)(BgL_nodez00_3099); 
BgL_integratorz00_1518 = BgL_integratorz00_3100; 
{ /* ./Globalize/node.scm 168 */
obj_t BgL_arg4047z00_2115;
BgL_arg4047z00_2115 = 
(((BgL_sequencez00_bglt)CREF(BgL_nodez00_1517))->BgL_nodesz00); 
BGl_gloza2z12zb0zzglobaliza7e_nodeza7(BgL_arg4047z00_2115, BgL_integratorz00_1518); } 
BgL_auxz00_4633 = BgL_nodez00_1517; 
return 
(obj_t)(BgL_auxz00_4633);} } } 
}



/* glo!-closure3132 */
obj_t BGl_gloz12zd2closure3132zc0zzglobaliza7e_nodeza7(obj_t BgL_envz00_3101, obj_t BgL_nodez00_3102, obj_t BgL_integratorz00_3103)
{ AN_OBJECT;
{ /* ./Globalize/node.scm 156 */
{ 
BgL_closurez00_bglt BgL_nodez00_1504;obj_t BgL_integratorz00_1505;
{ /* ./Globalize/node.scm 157 */
BgL_nodez00_bglt BgL_auxz00_4638;
BgL_nodez00_1504 = 
(BgL_closurez00_bglt)(BgL_nodez00_3102); 
BgL_integratorz00_1505 = BgL_integratorz00_3103; 
{ /* ./Globalize/node.scm 159 */
BgL_varz00_bglt BgL_arg4026z00_1509;
{ /* ./Globalize/node.scm 159 */
obj_t BgL_arg4029z00_1510;obj_t BgL_arg4030z00_1511;obj_t BgL_arg4031z00_1512;
{ /* ./Globalize/node.scm 159 */
BgL_nodez00_bglt BgL_obj1560z00_2083;
BgL_obj1560z00_2083 = 
(BgL_nodez00_bglt)(BgL_nodez00_1504); 
BgL_arg4029z00_1510 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2083))->BgL_locz00); } 
BgL_arg4030z00_1511 = BGl_za2procedureza2z00zztype_cachez00; 
{ /* ./Globalize/node.scm 161 */
BgL_variablez00_bglt BgL_arg4035z00_1513;obj_t BgL_arg4036z00_1514;
{ /* ./Globalize/node.scm 161 */
BgL_varz00_bglt BgL_obj1625z00_2084;
BgL_obj1625z00_2084 = 
(BgL_varz00_bglt)(BgL_nodez00_1504); 
BgL_arg4035z00_1513 = 
(((BgL_varz00_bglt)CREF(BgL_obj1625z00_2084))->BgL_variablez00); } 
{ /* ./Globalize/node.scm 161 */
BgL_nodez00_bglt BgL_obj1560z00_2085;
BgL_obj1560z00_2085 = 
(BgL_nodez00_bglt)(BgL_nodez00_1504); 
BgL_arg4036z00_1514 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2085))->BgL_locz00); } 
BgL_arg4031z00_1512 = 
BGl_thezd2closurezd2zzglobaliza7e_freeza7(BgL_arg4035z00_1513, BgL_arg4036z00_1514); } 
BgL_arg4026z00_1509 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg4029z00_1510, 
(BgL_typez00_bglt)(BgL_arg4030z00_1511), 
(BgL_variablez00_bglt)(BgL_arg4031z00_1512)); } 
{ /* ./Globalize/node.scm 158 */
BgL_nodez00_bglt BgL_res4627z00_2113;
{ /* ./Globalize/node.scm 158 */
BgL_nodez00_bglt BgL_nodez00_2086;BgL_variablez00_bglt BgL_integratorz00_2087;
BgL_nodez00_2086 = 
(BgL_nodez00_bglt)(BgL_arg4026z00_1509); 
BgL_integratorz00_2087 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1505); 
{ /* ./Globalize/node.scm 158 */
obj_t BgL_method3122z00_2088;
{ /* ./Globalize/node.scm 158 */
BgL_objectz00_bglt BgL_objz00_2089;
BgL_objz00_2089 = 
(BgL_objectz00_bglt)(BgL_nodez00_2086); 
{ /* ./Globalize/node.scm 158 */
long BgL_objzd2classzd2numz00_2090;
BgL_objzd2classzd2numz00_2090 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2089); 
{ /* ./Globalize/node.scm 158 */
obj_t BgL_arg2017z00_2091;
{ /* ./Globalize/node.scm 158 */
int BgL_auxz00_4653;
BgL_auxz00_4653 = 
(int)(((long)1)); 
BgL_arg2017z00_2091 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BgL_auxz00_4653); } 
{ /* ./Globalize/node.scm 158 */
int BgL_offsetz00_2094;
BgL_offsetz00_2094 = 
(int)(BgL_objzd2classzd2numz00_2090); 
{ /* ./Globalize/node.scm 158 */
long BgL_offsetz00_2095;
{ /* ./Globalize/node.scm 158 */
long BgL_auxz00_4657;
BgL_auxz00_4657 = 
(long)(BgL_offsetz00_2094); 
BgL_offsetz00_2095 = 
(BgL_auxz00_4657-OBJECT_TYPE); } 
{ /* ./Globalize/node.scm 158 */
long BgL_modz00_2096;
{ /* ./Globalize/node.scm 158 */
int BgL_arg2028z00_2097;
BgL_arg2028z00_2097 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 158 */
long BgL_n2z00_2105;
BgL_n2z00_2105 = 
(long)(BgL_arg2028z00_2097); 
BgL_modz00_2096 = 
(BgL_offsetz00_2095/BgL_n2z00_2105); } } 
{ /* ./Globalize/node.scm 158 */
long BgL_restz00_2098;
{ /* ./Globalize/node.scm 158 */
int BgL_arg2024z00_2099;
BgL_arg2024z00_2099 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 158 */
long BgL_n2z00_2108;
BgL_n2z00_2108 = 
(long)(BgL_arg2024z00_2099); 
BgL_restz00_2098 = 
(BgL_offsetz00_2095%BgL_n2z00_2108); } } 
{ /* ./Globalize/node.scm 158 */

{ /* ./Globalize/node.scm 158 */
obj_t BgL_bucketz00_2100;
{ /* ./Globalize/node.scm 158 */
int BgL_kz00_2110;
BgL_kz00_2110 = 
(int)(BgL_modz00_2096); 
BgL_bucketz00_2100 = 
VECTOR_REF(BgL_arg2017z00_2091,BgL_kz00_2110); } 
{ /* ./Globalize/node.scm 158 */
int BgL_kz00_2112;
BgL_kz00_2112 = 
(int)(BgL_restz00_2098); 
BgL_method3122z00_2088 = 
VECTOR_REF(BgL_bucketz00_2100,BgL_kz00_2112); } } } } } } } } } } 
{ /* ./Globalize/node.scm 158 */
obj_t BgL_auxz00_4670;
BgL_auxz00_4670 = 
PROCEDURE_ENTRY(BgL_method3122z00_2088)(BgL_method3122z00_2088, 
(obj_t)(BgL_nodez00_2086), 
(obj_t)(BgL_integratorz00_2087), BEOA); 
BgL_res4627z00_2113 = 
(BgL_nodez00_bglt)(BgL_auxz00_4670); } } } 
BgL_auxz00_4638 = BgL_res4627z00_2113; } } 
return 
(obj_t)(BgL_auxz00_4638);} } } 
}



/* glo!-var3130 */
obj_t BGl_gloz12zd2var3130zc0zzglobaliza7e_nodeza7(obj_t BgL_envz00_3104, obj_t BgL_nodez00_3105, obj_t BgL_integratorz00_3106)
{ AN_OBJECT;
{ /* ./Globalize/node.scm 135 */
{ 
BgL_varz00_bglt BgL_nodez00_1489;obj_t BgL_integratorz00_1490;
BgL_nodez00_1489 = 
(BgL_varz00_bglt)(BgL_nodez00_3105); 
BgL_integratorz00_1490 = BgL_integratorz00_3106; 
{ /* ./Globalize/node.scm 136 */
BgL_variablez00_bglt BgL_varz00_1493;
BgL_varz00_1493 = 
(((BgL_varz00_bglt)CREF(BgL_nodez00_1489))->BgL_variablez00); 
{ /* ./Globalize/node.scm 136 */
obj_t BgL_alphaz00_1494;
BgL_alphaz00_1494 = 
(((BgL_variablez00_bglt)CREF(BgL_varz00_1493))->BgL_fastzd2alphazd2); 
{ /* ./Globalize/node.scm 137 */

{ /* ./Globalize/node.scm 139 */
bool_t BgL_test4000z00_1495;
BgL_test4000z00_1495 = 
BGl_iszd2azf3z21zz__objectz00(BgL_alphaz00_1494, BGl_localz00zzast_varz00); 
if(BgL_test4000z00_1495)
{ /* ./Globalize/node.scm 139 */
{ /* ./Globalize/node.scm 140 */
BgL_varz00_bglt BgL_obj1627z00_2048;BgL_variablez00_bglt BgL_val1626z00_2049;
BgL_obj1627z00_2048 = BgL_nodez00_1489; 
BgL_val1626z00_2049 = 
(BgL_variablez00_bglt)(BgL_alphaz00_1494); 
((((BgL_varz00_bglt)CREF(BgL_obj1627z00_2048))->BgL_variablez00) = ((BgL_variablez00_bglt)BgL_val1626z00_2049), BUNSPEC); } 
{ /* ./Globalize/node.scm 141 */
BgL_nodez00_bglt BgL_res4624z00_2077;
{ /* ./Globalize/node.scm 141 */
BgL_nodez00_bglt BgL_nodez00_2050;BgL_variablez00_bglt BgL_integratorz00_2051;
BgL_nodez00_2050 = 
(BgL_nodez00_bglt)(BgL_nodez00_1489); 
BgL_integratorz00_2051 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1490); 
{ /* ./Globalize/node.scm 141 */
obj_t BgL_method3122z00_2052;
{ /* ./Globalize/node.scm 141 */
BgL_objectz00_bglt BgL_objz00_2053;
BgL_objz00_2053 = 
(BgL_objectz00_bglt)(BgL_nodez00_2050); 
{ /* ./Globalize/node.scm 141 */
long BgL_objzd2classzd2numz00_2054;
BgL_objzd2classzd2numz00_2054 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2053); 
{ /* ./Globalize/node.scm 141 */
obj_t BgL_arg2017z00_2055;
{ /* ./Globalize/node.scm 141 */
int BgL_auxz00_4688;
BgL_auxz00_4688 = 
(int)(((long)1)); 
BgL_arg2017z00_2055 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BgL_auxz00_4688); } 
{ /* ./Globalize/node.scm 141 */
int BgL_offsetz00_2058;
BgL_offsetz00_2058 = 
(int)(BgL_objzd2classzd2numz00_2054); 
{ /* ./Globalize/node.scm 141 */
long BgL_offsetz00_2059;
{ /* ./Globalize/node.scm 141 */
long BgL_auxz00_4692;
BgL_auxz00_4692 = 
(long)(BgL_offsetz00_2058); 
BgL_offsetz00_2059 = 
(BgL_auxz00_4692-OBJECT_TYPE); } 
{ /* ./Globalize/node.scm 141 */
long BgL_modz00_2060;
{ /* ./Globalize/node.scm 141 */
int BgL_arg2028z00_2061;
BgL_arg2028z00_2061 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 141 */
long BgL_n2z00_2069;
BgL_n2z00_2069 = 
(long)(BgL_arg2028z00_2061); 
BgL_modz00_2060 = 
(BgL_offsetz00_2059/BgL_n2z00_2069); } } 
{ /* ./Globalize/node.scm 141 */
long BgL_restz00_2062;
{ /* ./Globalize/node.scm 141 */
int BgL_arg2024z00_2063;
BgL_arg2024z00_2063 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 141 */
long BgL_n2z00_2072;
BgL_n2z00_2072 = 
(long)(BgL_arg2024z00_2063); 
BgL_restz00_2062 = 
(BgL_offsetz00_2059%BgL_n2z00_2072); } } 
{ /* ./Globalize/node.scm 141 */

{ /* ./Globalize/node.scm 141 */
obj_t BgL_bucketz00_2064;
{ /* ./Globalize/node.scm 141 */
int BgL_kz00_2074;
BgL_kz00_2074 = 
(int)(BgL_modz00_2060); 
BgL_bucketz00_2064 = 
VECTOR_REF(BgL_arg2017z00_2055,BgL_kz00_2074); } 
{ /* ./Globalize/node.scm 141 */
int BgL_kz00_2076;
BgL_kz00_2076 = 
(int)(BgL_restz00_2062); 
BgL_method3122z00_2052 = 
VECTOR_REF(BgL_bucketz00_2064,BgL_kz00_2076); } } } } } } } } } } 
{ /* ./Globalize/node.scm 141 */
obj_t BgL_auxz00_4705;
BgL_auxz00_4705 = 
PROCEDURE_ENTRY(BgL_method3122z00_2052)(BgL_method3122z00_2052, 
(obj_t)(BgL_nodez00_2050), 
(obj_t)(BgL_integratorz00_2051), BEOA); 
BgL_res4624z00_2077 = 
(BgL_nodez00_bglt)(BgL_auxz00_4705); } } } 
return 
(obj_t)(BgL_res4624z00_2077);} }  else 
{ /* ./Globalize/node.scm 142 */
bool_t BgL_test4003z00_1496;
{ /* ./Globalize/node.scm 142 */
obj_t BgL_obj1240z00_2078;
BgL_obj1240z00_2078 = 
(obj_t)(BgL_varz00_1493); 
BgL_test4003z00_1496 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1240z00_2078, BGl_globalz00zzast_varz00); } 
if(BgL_test4003z00_1496)
{ /* ./Globalize/node.scm 142 */
return 
(obj_t)(BgL_nodez00_1489);}  else 
{ /* ./Globalize/node.scm 144 */
bool_t BgL_test4004z00_1497;
BgL_test4004z00_1497 = 
BGl_celledzf3zf3zzglobaliza7e_nodeza7(BgL_varz00_1493); 
if(BgL_test4004z00_1497)
{ /* ./Globalize/node.scm 144 */
{ /* ./Globalize/node.scm 145 */
BgL_variablez00_bglt BgL_obj1105z00_2079;obj_t BgL_val1104z00_2080;
BgL_obj1105z00_2079 = BgL_varz00_1493; 
BgL_val1104z00_2080 = 
CNST_TABLE_REF(((long)0)); 
((((BgL_variablez00_bglt)CREF(BgL_obj1105z00_2079))->BgL_accessz00) = ((obj_t)BgL_val1104z00_2080), BUNSPEC); } 
{ /* ./Globalize/node.scm 147 */
obj_t BgL_arg4007z00_1498;BgL_typez00_bglt BgL_arg4008z00_1499;BgL_varz00_bglt BgL_arg4010z00_1501;
{ /* ./Globalize/node.scm 147 */
BgL_nodez00_bglt BgL_obj1560z00_2081;
BgL_obj1560z00_2081 = 
(BgL_nodez00_bglt)(BgL_nodez00_1489); 
BgL_arg4007z00_1498 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2081))->BgL_locz00); } 
{ /* ./Globalize/node.scm 148 */
BgL_nodez00_bglt BgL_obj1561z00_2082;
BgL_obj1561z00_2082 = 
(BgL_nodez00_bglt)(BgL_nodez00_1489); 
BgL_arg4008z00_1499 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_2082))->BgL_typez00); } 
BgL_arg4010z00_1501 = BgL_nodez00_1489; 
{ /* ./Globalize/node.scm 146 */
BgL_boxzd2refzd2_bglt BgL_auxz00_4724;
BgL_auxz00_4724 = 
BGl_makezd2boxzd2refz00zzast_nodez00(BgL_arg4007z00_1498, BgL_arg4008z00_1499, BUNSPEC, 
BINT(((long)-1)), BgL_arg4010z00_1501); 
return 
(obj_t)(BgL_auxz00_4724);} } }  else 
{ /* ./Globalize/node.scm 144 */
return 
(obj_t)(BgL_nodez00_1489);} } } } } } } } } 
}



/* glo!-kwote3127 */
obj_t BGl_gloz12zd2kwote3127zc0zzglobaliza7e_nodeza7(obj_t BgL_envz00_3107, obj_t BgL_nodez00_3108, obj_t BgL_integratorz00_3109)
{ AN_OBJECT;
{ /* ./Globalize/node.scm 129 */
{ /* ./Globalize/node.scm 130 */
BgL_kwotez00_bglt BgL_auxz00_4730;
BgL_auxz00_4730 = 
(BgL_kwotez00_bglt)(BgL_nodez00_3108); 
return 
(obj_t)(BgL_auxz00_4730);} } 
}



/* glo!-atom3125 */
obj_t BGl_gloz12zd2atom3125zc0zzglobaliza7e_nodeza7(obj_t BgL_envz00_3110, obj_t BgL_nodez00_3111, obj_t BgL_integratorz00_3112)
{ AN_OBJECT;
{ /* ./Globalize/node.scm 123 */
{ /* ./Globalize/node.scm 124 */
BgL_atomz00_bglt BgL_auxz00_4733;
BgL_auxz00_4733 = 
(BgL_atomz00_bglt)(BgL_nodez00_3111); 
return 
(obj_t)(BgL_auxz00_4733);} } 
}



/* glo! */
BgL_nodez00_bglt BGl_gloz12z12zzglobaliza7e_nodeza7(BgL_nodez00_bglt BgL_nodez00_10, BgL_variablez00_bglt BgL_integratorz00_11)
{ AN_OBJECT;
{ /* ./Globalize/node.scm 118 */
{ /* ./Globalize/node.scm 118 */
obj_t BgL_method3122z00_2994;
{ /* ./Globalize/node.scm 118 */
BgL_objectz00_bglt BgL_objz00_2995;
BgL_objz00_2995 = 
(BgL_objectz00_bglt)(BgL_nodez00_10); 
{ /* ./Globalize/node.scm 118 */
long BgL_objzd2classzd2numz00_2996;
BgL_objzd2classzd2numz00_2996 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2995); 
{ /* ./Globalize/node.scm 118 */
obj_t BgL_arg2017z00_2997;
{ /* ./Globalize/node.scm 118 */
int BgL_auxz00_4738;
BgL_auxz00_4738 = 
(int)(((long)1)); 
BgL_arg2017z00_2997 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzglobaliza7e_nodeza7, BgL_auxz00_4738); } 
{ /* ./Globalize/node.scm 118 */
int BgL_offsetz00_3000;
BgL_offsetz00_3000 = 
(int)(BgL_objzd2classzd2numz00_2996); 
{ /* ./Globalize/node.scm 118 */
long BgL_offsetz00_3001;
{ /* ./Globalize/node.scm 118 */
long BgL_auxz00_4742;
BgL_auxz00_4742 = 
(long)(BgL_offsetz00_3000); 
BgL_offsetz00_3001 = 
(BgL_auxz00_4742-OBJECT_TYPE); } 
{ /* ./Globalize/node.scm 118 */
long BgL_modz00_3002;
{ /* ./Globalize/node.scm 118 */
int BgL_arg2028z00_3003;
BgL_arg2028z00_3003 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 118 */
long BgL_n2z00_3011;
BgL_n2z00_3011 = 
(long)(BgL_arg2028z00_3003); 
BgL_modz00_3002 = 
(BgL_offsetz00_3001/BgL_n2z00_3011); } } 
{ /* ./Globalize/node.scm 118 */
long BgL_restz00_3004;
{ /* ./Globalize/node.scm 118 */
int BgL_arg2024z00_3005;
BgL_arg2024z00_3005 = 
(int)(((long)8)); 
{ /* ./Globalize/node.scm 118 */
long BgL_n2z00_3014;
BgL_n2z00_3014 = 
(long)(BgL_arg2024z00_3005); 
BgL_restz00_3004 = 
(BgL_offsetz00_3001%BgL_n2z00_3014); } } 
{ /* ./Globalize/node.scm 118 */

{ /* ./Globalize/node.scm 118 */
obj_t BgL_bucketz00_3006;
{ /* ./Globalize/node.scm 118 */
int BgL_kz00_3016;
BgL_kz00_3016 = 
(int)(BgL_modz00_3002); 
BgL_bucketz00_3006 = 
VECTOR_REF(BgL_arg2017z00_2997,BgL_kz00_3016); } 
{ /* ./Globalize/node.scm 118 */
int BgL_kz00_3018;
BgL_kz00_3018 = 
(int)(BgL_restz00_3004); 
BgL_method3122z00_2994 = 
VECTOR_REF(BgL_bucketz00_3006,BgL_kz00_3018); } } } } } } } } } } 
{ /* ./Globalize/node.scm 118 */
obj_t BgL_auxz00_4755;
BgL_auxz00_4755 = 
PROCEDURE_ENTRY(BgL_method3122z00_2994)(BgL_method3122z00_2994, 
(obj_t)(BgL_nodez00_10), 
(obj_t)(BgL_integratorz00_11), BEOA); 
return 
(BgL_nodez00_bglt)(BgL_auxz00_4755);} } } 
}



/* _glo!4708 */
obj_t BGl__gloz124708z12zzglobaliza7e_nodeza7(obj_t BgL_envz00_3026, obj_t BgL_nodez00_3027, obj_t BgL_integratorz00_3028)
{ AN_OBJECT;
{ /* ./Globalize/node.scm 118 */
{ /* ./Globalize/node.scm 118 */
BgL_nodez00_bglt BgL_auxz00_4761;
BgL_auxz00_4761 = 
BGl_gloz12z12zzglobaliza7e_nodeza7(
(BgL_nodez00_bglt)(BgL_nodez00_3027), 
(BgL_variablez00_bglt)(BgL_integratorz00_3028)); 
return 
(obj_t)(BgL_auxz00_4761);} } 
}



/* glo!-default3121 */
BgL_nodez00_bglt BGl_gloz12zd2default3121zc0zzglobaliza7e_nodeza7(BgL_nodez00_bglt BgL_nodez00_12, BgL_variablez00_bglt BgL_integratorz00_13)
{ AN_OBJECT;
{ /* ./Globalize/node.scm 17 */
{ /* ./Globalize/node.scm 17 */
obj_t BgL_procz00_3019;obj_t BgL_objectz00_3021;
BgL_procz00_3019 = 
CNST_TABLE_REF(((long)8)); 
BgL_objectz00_3021 = 
(obj_t)(BgL_nodez00_12); 
FAILURE(BgL_procz00_3019,BGl_string5470z00zzglobaliza7e_nodeza7,BgL_objectz00_3021);} } 
}



/* _glo!-default3121 */
obj_t BGl__gloz12zd2default3121zc0zzglobaliza7e_nodeza7(obj_t BgL_envz00_3113, obj_t BgL_nodez00_3114, obj_t BgL_integratorz00_3115)
{ AN_OBJECT;
{ /* ./Globalize/node.scm 17 */
{ /* ./Globalize/node.scm 17 */
BgL_nodez00_bglt BgL_auxz00_4769;
BgL_auxz00_4769 = 
BGl_gloz12zd2default3121zc0zzglobaliza7e_nodeza7(
(BgL_nodez00_bglt)(BgL_nodez00_3114), 
(BgL_variablez00_bglt)(BgL_integratorz00_3115)); 
return 
(obj_t)(BgL_auxz00_4769);} } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzglobaliza7e_nodeza7()
{ AN_OBJECT;
{ /* ./Globalize/node.scm 17 */
BGl_modulezd2initializa7ationz75zztools_tracez00(((long)59211), "globalize_node"); 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "globalize_node"); 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "globalize_node"); 
BGl_modulezd2initializa7ationz75zztype_cachez00(((long)25848), "globalize_node"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "globalize_node"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "globalize_node"); 
BGl_modulezd2initializa7ationz75zzglobaliza7e_ginfoza7(((long)0), "globalize_node"); 
BGl_modulezd2initializa7ationz75zzast_sexpz00(((long)15705), "globalize_node"); 
BGl_modulezd2initializa7ationz75zzast_envz00(((long)62031), "globalize_node"); 
BGl_modulezd2initializa7ationz75zzast_localz00(((long)28959), "globalize_node"); 
BGl_modulezd2initializa7ationz75zzglobaliza7e_freeza7(((long)30276), "globalize_node"); 
return 
BGl_modulezd2initializa7ationz75zzglobaliza7e_localzd2ze3globalz96(((long)42216), "globalize_node");} 
}

