/*===========================================================================*/
/*   (Globalize/escape.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/escape.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_escapez12zd2letzd2var3135z12zzglobaliza7e_escapeza7(obj_t, obj_t, obj_t);
static obj_t BGl_escapez12zd2cast3121zc0zzglobaliza7e_escapeza7(obj_t, obj_t, obj_t);
static obj_t BGl_methodzd2initzd2zzglobaliza7e_escapeza7();
BGL_IMPORT obj_t open_input_string(obj_t);
BGL_IMPORT long BGl_classzd2numzd2zz__objectz00(obj_t);
extern obj_t BGl_letzd2funzd2zzast_nodez00;
extern obj_t BGl_wideningzd2sfunzf2Ginfoz20zzglobaliza7e_ginfoza7(bool_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, long, obj_t, obj_t, obj_t, obj_t, long, long, obj_t, obj_t);
static obj_t BGl_escapez12zd2letzd2fun3132z12zzglobaliza7e_escapeza7(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
static obj_t BGl_escapez12zd2makezd2box3141z12zzglobaliza7e_escapeza7(obj_t, obj_t, obj_t);
static obj_t BGl_escapezd2funz12zd2global3088z12zzglobaliza7e_escapeza7(obj_t, obj_t);
static obj_t BGl_escapez12zd2conditional3125zc0zzglobaliza7e_escapeza7(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_addzd2genericz12zc0zz__objectz00(obj_t, obj_t);
static obj_t BGl_escapez12z12zzglobaliza7e_escapeza7(BgL_nodez00_bglt, BgL_variablez00_bglt);
extern obj_t BGl_letzd2varzd2zzast_nodez00;
extern obj_t BGl_kwotez00zzast_nodez00;
static obj_t BGl_escapez12zd2var3107zc0zzglobaliza7e_escapeza7(obj_t, obj_t, obj_t);
static obj_t BGl__escapezd2funz12zc0zzglobaliza7e_escapeza7(obj_t, obj_t);
static obj_t BGl__escapezd2funz12zd2default3085z12zzglobaliza7e_escapeza7(obj_t, obj_t);
extern obj_t BGl_globalz00zzast_varz00;
static obj_t BGl__setzd2escapingzd2funz12z12zzglobaliza7e_escapeza7(obj_t, obj_t);
extern obj_t BGl_localzf2Ginfozf2zzglobaliza7e_ginfoza7;
extern obj_t BGl_castz00zzast_nodez00;
static obj_t BGl_escapez12zd2setq3123zc0zzglobaliza7e_escapeza7(obj_t, obj_t, obj_t);
extern obj_t BGl_boxzd2refzd2zzast_nodez00;
extern obj_t BGl_varz00zzast_nodez00;
static obj_t BGl_cnstzd2initzd2zzglobaliza7e_escapeza7();
extern obj_t BGl_sexitzf2Ginfozf2zzglobaliza7e_ginfoza7;
extern obj_t BGl_atomz00zzast_nodez00;
extern obj_t BGl_failz00zzast_nodez00;
extern obj_t BGl_funcallz00zzast_nodez00;
static obj_t BGl_escapezd2funz12zd2local3090z12zzglobaliza7e_escapeza7(obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzglobaliza7e_escapeza7();
extern obj_t BGl_makezd2boxzd2zzast_nodez00;
static obj_t BGl__setzd2escapingzd2funz12zd2default3091zc0zzglobaliza7e_escapeza7(obj_t, obj_t);
static obj_t BGl_escapez12zd2boxzd2setz123143z00zzglobaliza7e_escapeza7(obj_t, obj_t, obj_t);
static obj_t BGl_escapez12zd2kwote3105zc0zzglobaliza7e_escapeza7(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
static obj_t BGl_setzd2escapingzd2funz12z12zzglobaliza7e_escapeza7(BgL_variablez00_bglt);
extern obj_t BGl_globalzf2Ginfozf2zzglobaliza7e_ginfoza7;
static obj_t BGl_escapez12zd2atom3103zc0zzglobaliza7e_escapeza7(obj_t, obj_t, obj_t);
static bool_t BGl_escapeza2z12zb0zzglobaliza7e_escapeza7(obj_t, obj_t);
static obj_t BGl_escapez12zd2jumpzd2exzd2it3139zc0zzglobaliza7e_escapeza7(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_escapezd2funz12zc0zzglobaliza7e_escapeza7(BgL_variablez00_bglt);
extern obj_t BGl_selectz00zzast_nodez00;
static obj_t BGl_toplevelzd2initzd2zzglobaliza7e_escapeza7();
extern obj_t BGl_appzd2lyzd2zzast_nodez00;
extern obj_t BGl_sfunzf2Ginfozf2zzglobaliza7e_ginfoza7;
extern obj_t BGl_boxzd2setz12zc0zzast_nodez00;
static obj_t BGl_escapez12zd2appzd2ly3115z12zzglobaliza7e_escapeza7(obj_t, obj_t, obj_t);
extern obj_t BGl_wideningzd2svarzf2Ginfoz20zzglobaliza7e_ginfoza7(bool_t, long, long, bool_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzglobaliza7e_escapeza7(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzengine_paramz00(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 *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
static obj_t BGl_escapez12zd2sequence3111zc0zzglobaliza7e_escapeza7(obj_t, obj_t, obj_t);
static obj_t BGl_escapez12zd2extern3119zc0zzglobaliza7e_escapeza7(obj_t, obj_t, obj_t);
static obj_t BGl_escapez12zd2boxzd2ref3145z12zzglobaliza7e_escapeza7(obj_t, obj_t, obj_t);
extern obj_t BGl_setzd2exzd2itz00zzast_nodez00;
static obj_t BGl__escapez12z12zzglobaliza7e_escapeza7(obj_t, obj_t, obj_t);
extern obj_t BGl_shapez00zztools_shapez00(obj_t);
static obj_t BGl_escapezd2funz12zd2default3085z12zzglobaliza7e_escapeza7(BgL_variablez00_bglt);
static obj_t BGl_escapez12zd2app3113zc0zzglobaliza7e_escapeza7(obj_t, obj_t, obj_t);
extern obj_t BGl_jumpzd2exzd2itz00zzast_nodez00;
static obj_t BGl_escapez12zd2fail3127zc0zzglobaliza7e_escapeza7(obj_t, obj_t, obj_t);
extern obj_t BGl_externz00zzast_nodez00;
extern obj_t BGl_wideningzd2localzf2Ginfoz20zzglobaliza7e_ginfoza7(bool_t);
extern obj_t BGl_conditionalz00zzast_nodez00;
extern obj_t BGl_sequencez00zzast_nodez00;
static obj_t BGl_escapez12zd2default3100zc0zzglobaliza7e_escapeza7(BgL_nodez00_bglt, BgL_variablez00_bglt);
static obj_t BGl__escapez12zd2default3100zc0zzglobaliza7e_escapeza7(obj_t, obj_t, obj_t);
extern obj_t BGl_wideningzd2globalzf2Ginfoz20zzglobaliza7e_ginfoza7(bool_t, obj_t);
extern obj_t BGl_appz00zzast_nodez00;
extern obj_t BGl_wideningzd2sexitzf2Ginfoz20zzglobaliza7e_ginfoza7(bool_t, bool_t, long, long);
extern obj_t BGl_localz00zzast_varz00;
extern obj_t BGl_closurez00zzast_nodez00;
static obj_t BGl_setzd2escapingzd2funz12zd2default3091zc0zzglobaliza7e_escapeza7(BgL_variablez00_bglt);
static obj_t BGl_setzd2escapingzd2funz12zd2localzf2Ginfo3099z32zzglobaliza7e_escapeza7(obj_t, obj_t);
extern obj_t BGl_svarzf2Ginfozf2zzglobaliza7e_ginfoza7;
static obj_t BGl_requirezd2initializa7ationz75zzglobaliza7e_escapeza7 = BUNSPEC;
static obj_t BGl_escapez12zd2setzd2exzd2it3137zc0zzglobaliza7e_escapeza7(obj_t, obj_t, obj_t);
static obj_t BGl_escapez12zd2closure3109zc0zzglobaliza7e_escapeza7(obj_t, obj_t, obj_t);
static obj_t BGl_setzd2escapingzd2funz12zd2global3094zc0zzglobaliza7e_escapeza7(obj_t, obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzglobaliza7e_escapeza7();
static obj_t BGl_escapez12zd2funcall3117zc0zzglobaliza7e_escapeza7(obj_t, obj_t, obj_t);
static obj_t BGl_escapez12zd2select3130zc0zzglobaliza7e_escapeza7(obj_t, obj_t, obj_t);
extern obj_t BGl_setqz00zzast_nodez00;
BGL_IMPORT obj_t BGl_findzd2superzd2classzd2methodzd2zz__objectz00(BgL_objectz00_bglt, obj_t, obj_t);
static obj_t BGl_setzd2escapingzd2funz12zd2globalzf2Ginfo3096z32zzglobaliza7e_escapeza7(obj_t, obj_t);
static obj_t __cnst[ 3 ] ;


DEFINE_STATIC_PROCEDURE( BGl_setzd2escapingzd2funz12zd2default3091zd2envz12zzglobaliza7e_escapeza7, BgL_bgl__setza7d2escapingza7d2funza712za7d2default3091za7c0za7za7globaliza7a7e_escapeza7a74767za7, BGl__setzd2escapingzd2funz12zd2default3091zc0zzglobaliza7e_escapeza7, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_escapezd2funz12zd2default3085zd2envzc0zzglobaliza7e_escapeza7, BgL_bgl__escapeza7d2funza712za7d2default3085za712za7za7globaliza7a7e_escapeza7a74768z00, BGl__escapezd2funz12zd2default3085z12zzglobaliza7e_escapeza7, 0L, 1 );
DEFINE_STRING( BGl_string4738z00zzglobaliza7e_escapeza7, BgL_bgl_string4738za700za7za7globaliza7a7e_escapeza7a74769za7, "escape!-default3100 export done ", 32 );
DEFINE_STRING( BGl_string4737z00zzglobaliza7e_escapeza7, BgL_bgl_string4737za700za7za7globaliza7a7e_escapeza7a74770za7, "No method for this object", 25 );
DEFINE_STRING( BGl_string4736z00zzglobaliza7e_escapeza7, BgL_bgl_string4736za700za7za7globaliza7a7e_escapeza7a74771za7, "Illegal variable", 16 );
DEFINE_STRING( BGl_string4735z00zzglobaliza7e_escapeza7, BgL_bgl_string4735za700za7za7globaliza7a7e_escapeza7a74772za7, "set-escaping-fun!", 17 );
DEFINE_STATIC_PROCEDURE( BGl_proc4710z00zzglobaliza7e_escapeza7, BgL_bgl_escapeza7d2funza712za7d2local3090za712za7za7globaliza7a7e_escapeza7a74773z00, BGl_escapezd2funz12zd2local3090z12zzglobaliza7e_escapeza7, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4709z00zzglobaliza7e_escapeza7, BgL_bgl_escapeza7d2funza712za7d2global3088za712za7za7globaliza7a7e_escapeza7a74774z00, BGl_escapezd2funz12zd2global3088z12zzglobaliza7e_escapeza7, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4711z00zzglobaliza7e_escapeza7, BgL_bgl_setza7d2escapingza7d2funza712za7d2global3094za7c0za7za7globaliza7a7e_escapeza7a74775za7, BGl_setzd2escapingzd2funz12zd2global3094zc0zzglobaliza7e_escapeza7, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4712z00zzglobaliza7e_escapeza7, BgL_bgl_setza7d2escapingza7d2funza712za7d2globalza7f2ginfo3096za732za7za7globaliza7a7e_escapeza7a74776z00, BGl_setzd2escapingzd2funz12zd2globalzf2Ginfo3096z32zzglobaliza7e_escapeza7, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4713z00zzglobaliza7e_escapeza7, BgL_bgl_setza7d2escapingza7d2funza712za7d2localza7f2ginfo3099za732za7za7globaliza7a7e_escapeza7a74777z00, BGl_setzd2escapingzd2funz12zd2localzf2Ginfo3099z32zzglobaliza7e_escapeza7, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4714z00zzglobaliza7e_escapeza7, BgL_bgl_escapeza712za7d2atom3103za7c0za7za7globaliza7a7e_escapeza7a74778za7, BGl_escapez12zd2atom3103zc0zzglobaliza7e_escapeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4715z00zzglobaliza7e_escapeza7, BgL_bgl_escapeza712za7d2kwote3105za7c0za7za7globaliza7a7e_escapeza7a74779za7, BGl_escapez12zd2kwote3105zc0zzglobaliza7e_escapeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4716z00zzglobaliza7e_escapeza7, BgL_bgl_escapeza712za7d2var3107za7c0za7za7globaliza7a7e_escapeza7a74780za7, BGl_escapez12zd2var3107zc0zzglobaliza7e_escapeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4717z00zzglobaliza7e_escapeza7, BgL_bgl_escapeza712za7d2closure3109za7c0za7za7globaliza7a7e_escapeza7a74781za7, BGl_escapez12zd2closure3109zc0zzglobaliza7e_escapeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4718z00zzglobaliza7e_escapeza7, BgL_bgl_escapeza712za7d2sequence3111za7c0za7za7globaliza7a7e_escapeza7a74782za7, BGl_escapez12zd2sequence3111zc0zzglobaliza7e_escapeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4720z00zzglobaliza7e_escapeza7, BgL_bgl_escapeza712za7d2appza7d2ly3115za712za7za7globaliza7a7e_escapeza7a74783z00, BGl_escapez12zd2appzd2ly3115z12zzglobaliza7e_escapeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4719z00zzglobaliza7e_escapeza7, BgL_bgl_escapeza712za7d2app3113za7c0za7za7globaliza7a7e_escapeza7a74784za7, BGl_escapez12zd2app3113zc0zzglobaliza7e_escapeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4721z00zzglobaliza7e_escapeza7, BgL_bgl_escapeza712za7d2funcall3117za7c0za7za7globaliza7a7e_escapeza7a74785za7, BGl_escapez12zd2funcall3117zc0zzglobaliza7e_escapeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4722z00zzglobaliza7e_escapeza7, BgL_bgl_escapeza712za7d2extern3119za7c0za7za7globaliza7a7e_escapeza7a74786za7, BGl_escapez12zd2extern3119zc0zzglobaliza7e_escapeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4723z00zzglobaliza7e_escapeza7, BgL_bgl_escapeza712za7d2cast3121za7c0za7za7globaliza7a7e_escapeza7a74787za7, BGl_escapez12zd2cast3121zc0zzglobaliza7e_escapeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4724z00zzglobaliza7e_escapeza7, BgL_bgl_escapeza712za7d2setq3123za7c0za7za7globaliza7a7e_escapeza7a74788za7, BGl_escapez12zd2setq3123zc0zzglobaliza7e_escapeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4725z00zzglobaliza7e_escapeza7, BgL_bgl_escapeza712za7d2conditional3125za7c0za7za7globaliza7a7e_escapeza7a74789za7, BGl_escapez12zd2conditional3125zc0zzglobaliza7e_escapeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4726z00zzglobaliza7e_escapeza7, BgL_bgl_escapeza712za7d2fail3127za7c0za7za7globaliza7a7e_escapeza7a74790za7, BGl_escapez12zd2fail3127zc0zzglobaliza7e_escapeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4727z00zzglobaliza7e_escapeza7, BgL_bgl_escapeza712za7d2select3130za7c0za7za7globaliza7a7e_escapeza7a74791za7, BGl_escapez12zd2select3130zc0zzglobaliza7e_escapeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4728z00zzglobaliza7e_escapeza7, BgL_bgl_escapeza712za7d2letza7d2fun3132za712za7za7globaliza7a7e_escapeza7a74792z00, BGl_escapez12zd2letzd2fun3132z12zzglobaliza7e_escapeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4730z00zzglobaliza7e_escapeza7, BgL_bgl_escapeza712za7d2setza7d2exza7d2it3137za7c0za7za7globaliza7a7e_escapeza7a74793za7, BGl_escapez12zd2setzd2exzd2it3137zc0zzglobaliza7e_escapeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4729z00zzglobaliza7e_escapeza7, BgL_bgl_escapeza712za7d2letza7d2var3135za712za7za7globaliza7a7e_escapeza7a74794z00, BGl_escapez12zd2letzd2var3135z12zzglobaliza7e_escapeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4731z00zzglobaliza7e_escapeza7, BgL_bgl_escapeza712za7d2jumpza7d2exza7d2it3139za7c0za7za7globaliza7a7e_escapeza7a74795za7, BGl_escapez12zd2jumpzd2exzd2it3139zc0zzglobaliza7e_escapeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4732z00zzglobaliza7e_escapeza7, BgL_bgl_escapeza712za7d2makeza7d2box3141za712za7za7globaliza7a7e_escapeza7a74796z00, BGl_escapez12zd2makezd2box3141z12zzglobaliza7e_escapeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4733z00zzglobaliza7e_escapeza7, BgL_bgl_escapeza712za7d2boxza7d2setza7123143za700za7za7globaliza7a7e_escapeza7a74797za7, BGl_escapez12zd2boxzd2setz123143z00zzglobaliza7e_escapeza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4734z00zzglobaliza7e_escapeza7, BgL_bgl_escapeza712za7d2boxza7d2ref3145za712za7za7globaliza7a7e_escapeza7a74798z00, BGl_escapez12zd2boxzd2ref3145z12zzglobaliza7e_escapeza7, 0L, 2 );
DEFINE_EXPORT_GENERIC( BGl_escapezd2funz12zd2envz12zzglobaliza7e_escapeza7, BgL_bgl__escapeza7d2funza712za7c0za7za7globaliza7a7e_escapeza7a74799za7, BGl__escapezd2funz12zc0zzglobaliza7e_escapeza7, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_escapez12zd2default3100zd2envz12zzglobaliza7e_escapeza7, BgL_bgl__escapeza712za7d2default3100za7c0za7za7globaliza7a7e_escapeza7a74800za7, BGl__escapez12zd2default3100zc0zzglobaliza7e_escapeza7, 0L, 2 );
DEFINE_STATIC_GENERIC( BGl_setzd2escapingzd2funz12zd2envzc0zzglobaliza7e_escapeza7, BgL_bgl__setza7d2escapingza7d2funza712za712za7za7globaliza7a7e_escapeza7a74801z00, BGl__setzd2escapingzd2funz12z12zzglobaliza7e_escapeza7, 0L, 1 );
DEFINE_STATIC_GENERIC( BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BgL_bgl__escapeza712za712za7za7globaliza7a7e_escapeza7a74802z00, BGl__escapez12z12zzglobaliza7e_escapeza7, 0L, 2 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzglobaliza7e_escapeza7(long BgL_checksumz00_2635, char * BgL_fromz00_2636)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzglobaliza7e_escapeza7))
{ 
BGl_requirezd2initializa7ationz75zzglobaliza7e_escapeza7 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzglobaliza7e_escapeza7(); 
BGl_cnstzd2initzd2zzglobaliza7e_escapeza7(); 
BGl_importedzd2moduleszd2initz00zzglobaliza7e_escapeza7(); 
BGl_methodzd2initzd2zzglobaliza7e_escapeza7(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzglobaliza7e_escapeza7()
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 15 */
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "globalize_escape"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "globalize_escape"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzglobaliza7e_escapeza7()
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 15 */
{ /* ./Globalize/escape.scm 15 */
obj_t BgL_cportz00_2617;
BgL_cportz00_2617 = 
open_input_string(BGl_string4738z00zzglobaliza7e_escapeza7); 
{ 
long BgL_iz00_2618;
BgL_iz00_2618 = ((long)2); 
BgL_loopz00_2619:
{ /* ./Globalize/escape.scm 15 */
bool_t BgL_test4740z00_2620;
BgL_test4740z00_2620 = 
(BgL_iz00_2618==((long)-1)); 
if(BgL_test4740z00_2620)
{ /* ./Globalize/escape.scm 15 */
return BUNSPEC;}  else 
{ /* ./Globalize/escape.scm 15 */
{ /* ./Globalize/escape.scm 15 */
obj_t BgL_arg4742z00_2621;
{ /* ./Globalize/escape.scm 15 */
obj_t BgL_list4745z00_2622;
BgL_list4745z00_2622 = 
MAKE_PAIR(BgL_cportz00_2617, BNIL); 
BgL_arg4742z00_2621 = 
BGl_readz00zz__readerz00(BgL_list4745z00_2622); } 
{ /* ./Globalize/escape.scm 15 */
int BgL_auxz00_2651;
BgL_auxz00_2651 = 
(int)(BgL_iz00_2618); 
CNST_TABLE_SET(BgL_auxz00_2651, BgL_arg4742z00_2621); } } 
{ /* ./Globalize/escape.scm 15 */
int BgL_auxz00_2623;
{ /* ./Globalize/escape.scm 15 */
long BgL_auxz00_2654;
BgL_auxz00_2654 = 
(BgL_iz00_2618-((long)1)); 
BgL_auxz00_2623 = 
(int)(BgL_auxz00_2654); } 
{ 
long BgL_iz00_2657;
BgL_iz00_2657 = 
(long)(BgL_auxz00_2623); 
BgL_iz00_2618 = BgL_iz00_2657; 
goto BgL_loopz00_2619;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzglobaliza7e_escapeza7()
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 15 */
return BUNSPEC;} 
}



/* escape*! */
bool_t BGl_escapeza2z12zb0zzglobaliza7e_escapeza7(obj_t BgL_nodeza2za2_56, obj_t BgL_oz00_57)
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 260 */
{ 
obj_t BgL_l3083z00_849;
BgL_l3083z00_849 = BgL_nodeza2za2_56; 
BgL_forzd2each3084zd2_850:
{ /* ./Globalize/escape.scm 261 */
bool_t BgL_test3147z00_851;
BgL_test3147z00_851 = 
PAIRP(BgL_l3083z00_849); 
if(BgL_test3147z00_851)
{ /* ./Globalize/escape.scm 261 */
{ /* ./Globalize/escape.scm 261 */
obj_t BgL_nz00_852;
BgL_nz00_852 = 
CAR(BgL_l3083z00_849); 
{ /* ./Globalize/escape.scm 261 */
BgL_nodez00_bglt BgL_nodez00_1545;BgL_variablez00_bglt BgL_oz00_1546;
BgL_nodez00_1545 = 
(BgL_nodez00_bglt)(BgL_nz00_852); 
BgL_oz00_1546 = 
(BgL_variablez00_bglt)(BgL_oz00_57); 
{ /* ./Globalize/escape.scm 261 */
obj_t BgL_method3101z00_1547;
{ /* ./Globalize/escape.scm 261 */
BgL_objectz00_bglt BgL_objz00_1548;
BgL_objz00_1548 = 
(BgL_objectz00_bglt)(BgL_nodez00_1545); 
{ /* ./Globalize/escape.scm 261 */
long BgL_objzd2classzd2numz00_1549;
BgL_objzd2classzd2numz00_1549 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1548); 
{ /* ./Globalize/escape.scm 261 */
obj_t BgL_arg2017z00_1550;
{ /* ./Globalize/escape.scm 261 */
int BgL_auxz00_2666;
BgL_auxz00_2666 = 
(int)(((long)1)); 
BgL_arg2017z00_1550 = 
PROCEDURE_REF(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BgL_auxz00_2666); } 
{ /* ./Globalize/escape.scm 261 */
int BgL_offsetz00_1553;
BgL_offsetz00_1553 = 
(int)(BgL_objzd2classzd2numz00_1549); 
{ /* ./Globalize/escape.scm 261 */
long BgL_offsetz00_1554;
{ /* ./Globalize/escape.scm 261 */
long BgL_auxz00_2670;
BgL_auxz00_2670 = 
(long)(BgL_offsetz00_1553); 
BgL_offsetz00_1554 = 
(BgL_auxz00_2670-OBJECT_TYPE); } 
{ /* ./Globalize/escape.scm 261 */
long BgL_modz00_1555;
{ /* ./Globalize/escape.scm 261 */
int BgL_arg2028z00_1556;
BgL_arg2028z00_1556 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 261 */
long BgL_n2z00_1564;
BgL_n2z00_1564 = 
(long)(BgL_arg2028z00_1556); 
BgL_modz00_1555 = 
(BgL_offsetz00_1554/BgL_n2z00_1564); } } 
{ /* ./Globalize/escape.scm 261 */
long BgL_restz00_1557;
{ /* ./Globalize/escape.scm 261 */
int BgL_arg2024z00_1558;
BgL_arg2024z00_1558 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 261 */
long BgL_n2z00_1567;
BgL_n2z00_1567 = 
(long)(BgL_arg2024z00_1558); 
BgL_restz00_1557 = 
(BgL_offsetz00_1554%BgL_n2z00_1567); } } 
{ /* ./Globalize/escape.scm 261 */

{ /* ./Globalize/escape.scm 261 */
obj_t BgL_bucketz00_1559;
{ /* ./Globalize/escape.scm 261 */
int BgL_kz00_1569;
BgL_kz00_1569 = 
(int)(BgL_modz00_1555); 
BgL_bucketz00_1559 = 
VECTOR_REF(BgL_arg2017z00_1550,BgL_kz00_1569); } 
{ /* ./Globalize/escape.scm 261 */
int BgL_kz00_1571;
BgL_kz00_1571 = 
(int)(BgL_restz00_1557); 
BgL_method3101z00_1547 = 
VECTOR_REF(BgL_bucketz00_1559,BgL_kz00_1571); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method3101z00_1547)(BgL_method3101z00_1547, 
(obj_t)(BgL_nodez00_1545), 
(obj_t)(BgL_oz00_1546), BEOA); } } } 
{ /* ./Globalize/escape.scm 261 */
obj_t BgL_arg3151z00_853;
BgL_arg3151z00_853 = 
CDR(BgL_l3083z00_849); 
{ 
obj_t BgL_l3083z00_2688;
BgL_l3083z00_2688 = BgL_arg3151z00_853; 
BgL_l3083z00_849 = BgL_l3083z00_2688; 
goto BgL_forzd2each3084zd2_850;} } }  else 
{ /* ./Globalize/escape.scm 261 */
return ((bool_t)1);} } } } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzglobaliza7e_escapeza7()
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 15 */
BGl_addzd2genericz12zc0zz__objectz00(BGl_escapezd2funz12zd2envz12zzglobaliza7e_escapeza7, BGl_escapezd2funz12zd2default3085zd2envzc0zzglobaliza7e_escapeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_escapezd2funz12zd2envz12zzglobaliza7e_escapeza7, BGl_globalz00zzast_varz00, BGl_proc4709z00zzglobaliza7e_escapeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_escapezd2funz12zd2envz12zzglobaliza7e_escapeza7, BGl_localz00zzast_varz00, BGl_proc4710z00zzglobaliza7e_escapeza7); 
BGl_addzd2genericz12zc0zz__objectz00(BGl_setzd2escapingzd2funz12zd2envzc0zzglobaliza7e_escapeza7, BGl_setzd2escapingzd2funz12zd2default3091zd2envz12zzglobaliza7e_escapeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_setzd2escapingzd2funz12zd2envzc0zzglobaliza7e_escapeza7, BGl_globalz00zzast_varz00, BGl_proc4711z00zzglobaliza7e_escapeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_setzd2escapingzd2funz12zd2envzc0zzglobaliza7e_escapeza7, BGl_globalzf2Ginfozf2zzglobaliza7e_ginfoza7, BGl_proc4712z00zzglobaliza7e_escapeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_setzd2escapingzd2funz12zd2envzc0zzglobaliza7e_escapeza7, BGl_localzf2Ginfozf2zzglobaliza7e_ginfoza7, BGl_proc4713z00zzglobaliza7e_escapeza7); 
BGl_addzd2genericz12zc0zz__objectz00(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BGl_escapez12zd2default3100zd2envz12zzglobaliza7e_escapeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BGl_atomz00zzast_nodez00, BGl_proc4714z00zzglobaliza7e_escapeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BGl_kwotez00zzast_nodez00, BGl_proc4715z00zzglobaliza7e_escapeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BGl_varz00zzast_nodez00, BGl_proc4716z00zzglobaliza7e_escapeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BGl_closurez00zzast_nodez00, BGl_proc4717z00zzglobaliza7e_escapeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BGl_sequencez00zzast_nodez00, BGl_proc4718z00zzglobaliza7e_escapeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BGl_appz00zzast_nodez00, BGl_proc4719z00zzglobaliza7e_escapeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BGl_appzd2lyzd2zzast_nodez00, BGl_proc4720z00zzglobaliza7e_escapeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BGl_funcallz00zzast_nodez00, BGl_proc4721z00zzglobaliza7e_escapeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BGl_externz00zzast_nodez00, BGl_proc4722z00zzglobaliza7e_escapeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BGl_castz00zzast_nodez00, BGl_proc4723z00zzglobaliza7e_escapeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BGl_setqz00zzast_nodez00, BGl_proc4724z00zzglobaliza7e_escapeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BGl_conditionalz00zzast_nodez00, BGl_proc4725z00zzglobaliza7e_escapeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BGl_failz00zzast_nodez00, BGl_proc4726z00zzglobaliza7e_escapeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BGl_selectz00zzast_nodez00, BGl_proc4727z00zzglobaliza7e_escapeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BGl_letzd2funzd2zzast_nodez00, BGl_proc4728z00zzglobaliza7e_escapeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BGl_letzd2varzd2zzast_nodez00, BGl_proc4729z00zzglobaliza7e_escapeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BGl_setzd2exzd2itz00zzast_nodez00, BGl_proc4730z00zzglobaliza7e_escapeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BGl_jumpzd2exzd2itz00zzast_nodez00, BGl_proc4731z00zzglobaliza7e_escapeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BGl_makezd2boxzd2zzast_nodez00, BGl_proc4732z00zzglobaliza7e_escapeza7); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BGl_boxzd2setz12zc0zzast_nodez00, BGl_proc4733z00zzglobaliza7e_escapeza7); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BGl_boxzd2refzd2zzast_nodez00, BGl_proc4734z00zzglobaliza7e_escapeza7);} 
}



/* escape!-box-ref3145 */
obj_t BGl_escapez12zd2boxzd2ref3145z12zzglobaliza7e_escapeza7(obj_t BgL_envz00_2537, obj_t BgL_nodez00_2538, obj_t BgL_oz00_2539)
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 253 */
{ 
BgL_boxzd2refzd2_bglt BgL_nodez00_1514;obj_t BgL_oz00_1515;
BgL_nodez00_1514 = 
(BgL_boxzd2refzd2_bglt)(BgL_nodez00_2538); 
BgL_oz00_1515 = BgL_oz00_2539; 
{ /* ./Globalize/escape.scm 254 */
BgL_varz00_bglt BgL_arg4004z00_2354;
BgL_arg4004z00_2354 = 
(((BgL_boxzd2refzd2_bglt)CREF(BgL_nodez00_1514))->BgL_varz00); 
{ /* ./Globalize/escape.scm 254 */
BgL_nodez00_bglt BgL_nodez00_2356;BgL_variablez00_bglt BgL_oz00_2357;
BgL_nodez00_2356 = 
(BgL_nodez00_bglt)(BgL_arg4004z00_2354); 
BgL_oz00_2357 = 
(BgL_variablez00_bglt)(BgL_oz00_1515); 
{ /* ./Globalize/escape.scm 254 */
obj_t BgL_method3101z00_2358;
{ /* ./Globalize/escape.scm 254 */
BgL_objectz00_bglt BgL_objz00_2359;
BgL_objz00_2359 = 
(BgL_objectz00_bglt)(BgL_nodez00_2356); 
{ /* ./Globalize/escape.scm 254 */
long BgL_objzd2classzd2numz00_2360;
BgL_objzd2classzd2numz00_2360 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2359); 
{ /* ./Globalize/escape.scm 254 */
obj_t BgL_arg2017z00_2361;
{ /* ./Globalize/escape.scm 254 */
int BgL_auxz00_2723;
BgL_auxz00_2723 = 
(int)(((long)1)); 
BgL_arg2017z00_2361 = 
PROCEDURE_REF(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BgL_auxz00_2723); } 
{ /* ./Globalize/escape.scm 254 */
int BgL_offsetz00_2364;
BgL_offsetz00_2364 = 
(int)(BgL_objzd2classzd2numz00_2360); 
{ /* ./Globalize/escape.scm 254 */
long BgL_offsetz00_2365;
{ /* ./Globalize/escape.scm 254 */
long BgL_auxz00_2727;
BgL_auxz00_2727 = 
(long)(BgL_offsetz00_2364); 
BgL_offsetz00_2365 = 
(BgL_auxz00_2727-OBJECT_TYPE); } 
{ /* ./Globalize/escape.scm 254 */
long BgL_modz00_2366;
{ /* ./Globalize/escape.scm 254 */
int BgL_arg2028z00_2367;
BgL_arg2028z00_2367 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 254 */
long BgL_n2z00_2375;
BgL_n2z00_2375 = 
(long)(BgL_arg2028z00_2367); 
BgL_modz00_2366 = 
(BgL_offsetz00_2365/BgL_n2z00_2375); } } 
{ /* ./Globalize/escape.scm 254 */
long BgL_restz00_2368;
{ /* ./Globalize/escape.scm 254 */
int BgL_arg2024z00_2369;
BgL_arg2024z00_2369 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 254 */
long BgL_n2z00_2378;
BgL_n2z00_2378 = 
(long)(BgL_arg2024z00_2369); 
BgL_restz00_2368 = 
(BgL_offsetz00_2365%BgL_n2z00_2378); } } 
{ /* ./Globalize/escape.scm 254 */

{ /* ./Globalize/escape.scm 254 */
obj_t BgL_bucketz00_2370;
{ /* ./Globalize/escape.scm 254 */
int BgL_kz00_2380;
BgL_kz00_2380 = 
(int)(BgL_modz00_2366); 
BgL_bucketz00_2370 = 
VECTOR_REF(BgL_arg2017z00_2361,BgL_kz00_2380); } 
{ /* ./Globalize/escape.scm 254 */
int BgL_kz00_2382;
BgL_kz00_2382 = 
(int)(BgL_restz00_2368); 
BgL_method3101z00_2358 = 
VECTOR_REF(BgL_bucketz00_2370,BgL_kz00_2382); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3101z00_2358)(BgL_method3101z00_2358, 
(obj_t)(BgL_nodez00_2356), 
(obj_t)(BgL_oz00_2357), BEOA);} } } } } 
}



/* escape!-box-set!3143 */
obj_t BGl_escapez12zd2boxzd2setz123143z00zzglobaliza7e_escapeza7(obj_t BgL_envz00_2540, obj_t BgL_nodez00_2541, obj_t BgL_oz00_2542)
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 246 */
{ 
BgL_boxzd2setz12zc0_bglt BgL_nodez00_1506;obj_t BgL_oz00_1507;
BgL_nodez00_1506 = 
(BgL_boxzd2setz12zc0_bglt)(BgL_nodez00_2541); 
BgL_oz00_1507 = BgL_oz00_2542; 
{ /* ./Globalize/escape.scm 247 */
BgL_nodez00_bglt BgL_arg3994z00_2324;
BgL_arg3994z00_2324 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1506))->BgL_valuez00); 
{ /* ./Globalize/escape.scm 247 */
BgL_variablez00_bglt BgL_oz00_2327;
BgL_oz00_2327 = 
(BgL_variablez00_bglt)(BgL_oz00_1507); 
{ /* ./Globalize/escape.scm 247 */
obj_t BgL_method3101z00_2328;
{ /* ./Globalize/escape.scm 247 */
BgL_objectz00_bglt BgL_objz00_2329;
BgL_objz00_2329 = 
(BgL_objectz00_bglt)(BgL_arg3994z00_2324); 
{ /* ./Globalize/escape.scm 247 */
long BgL_objzd2classzd2numz00_2330;
BgL_objzd2classzd2numz00_2330 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2329); 
{ /* ./Globalize/escape.scm 247 */
obj_t BgL_arg2017z00_2331;
{ /* ./Globalize/escape.scm 247 */
int BgL_auxz00_2749;
BgL_auxz00_2749 = 
(int)(((long)1)); 
BgL_arg2017z00_2331 = 
PROCEDURE_REF(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BgL_auxz00_2749); } 
{ /* ./Globalize/escape.scm 247 */
int BgL_offsetz00_2334;
BgL_offsetz00_2334 = 
(int)(BgL_objzd2classzd2numz00_2330); 
{ /* ./Globalize/escape.scm 247 */
long BgL_offsetz00_2335;
{ /* ./Globalize/escape.scm 247 */
long BgL_auxz00_2753;
BgL_auxz00_2753 = 
(long)(BgL_offsetz00_2334); 
BgL_offsetz00_2335 = 
(BgL_auxz00_2753-OBJECT_TYPE); } 
{ /* ./Globalize/escape.scm 247 */
long BgL_modz00_2336;
{ /* ./Globalize/escape.scm 247 */
int BgL_arg2028z00_2337;
BgL_arg2028z00_2337 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 247 */
long BgL_n2z00_2345;
BgL_n2z00_2345 = 
(long)(BgL_arg2028z00_2337); 
BgL_modz00_2336 = 
(BgL_offsetz00_2335/BgL_n2z00_2345); } } 
{ /* ./Globalize/escape.scm 247 */
long BgL_restz00_2338;
{ /* ./Globalize/escape.scm 247 */
int BgL_arg2024z00_2339;
BgL_arg2024z00_2339 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 247 */
long BgL_n2z00_2348;
BgL_n2z00_2348 = 
(long)(BgL_arg2024z00_2339); 
BgL_restz00_2338 = 
(BgL_offsetz00_2335%BgL_n2z00_2348); } } 
{ /* ./Globalize/escape.scm 247 */

{ /* ./Globalize/escape.scm 247 */
obj_t BgL_bucketz00_2340;
{ /* ./Globalize/escape.scm 247 */
int BgL_kz00_2350;
BgL_kz00_2350 = 
(int)(BgL_modz00_2336); 
BgL_bucketz00_2340 = 
VECTOR_REF(BgL_arg2017z00_2331,BgL_kz00_2350); } 
{ /* ./Globalize/escape.scm 247 */
int BgL_kz00_2352;
BgL_kz00_2352 = 
(int)(BgL_restz00_2338); 
BgL_method3101z00_2328 = 
VECTOR_REF(BgL_bucketz00_2340,BgL_kz00_2352); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3101z00_2328)(BgL_method3101z00_2328, 
(obj_t)(BgL_arg3994z00_2324), 
(obj_t)(BgL_oz00_2327), BEOA);} } } } } 
}



/* escape!-make-box3141 */
obj_t BGl_escapez12zd2makezd2box3141z12zzglobaliza7e_escapeza7(obj_t BgL_envz00_2543, obj_t BgL_nodez00_2544, obj_t BgL_oz00_2545)
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 240 */
{ 
BgL_makezd2boxzd2_bglt BgL_nodez00_1499;obj_t BgL_oz00_1500;
BgL_nodez00_1499 = 
(BgL_makezd2boxzd2_bglt)(BgL_nodez00_2544); 
BgL_oz00_1500 = BgL_oz00_2545; 
{ /* ./Globalize/escape.scm 241 */
BgL_nodez00_bglt BgL_arg3984z00_2294;
BgL_arg3984z00_2294 = 
(((BgL_makezd2boxzd2_bglt)CREF(BgL_nodez00_1499))->BgL_valuez00); 
{ /* ./Globalize/escape.scm 241 */
BgL_variablez00_bglt BgL_oz00_2297;
BgL_oz00_2297 = 
(BgL_variablez00_bglt)(BgL_oz00_1500); 
{ /* ./Globalize/escape.scm 241 */
obj_t BgL_method3101z00_2298;
{ /* ./Globalize/escape.scm 241 */
BgL_objectz00_bglt BgL_objz00_2299;
BgL_objz00_2299 = 
(BgL_objectz00_bglt)(BgL_arg3984z00_2294); 
{ /* ./Globalize/escape.scm 241 */
long BgL_objzd2classzd2numz00_2300;
BgL_objzd2classzd2numz00_2300 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2299); 
{ /* ./Globalize/escape.scm 241 */
obj_t BgL_arg2017z00_2301;
{ /* ./Globalize/escape.scm 241 */
int BgL_auxz00_2775;
BgL_auxz00_2775 = 
(int)(((long)1)); 
BgL_arg2017z00_2301 = 
PROCEDURE_REF(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BgL_auxz00_2775); } 
{ /* ./Globalize/escape.scm 241 */
int BgL_offsetz00_2304;
BgL_offsetz00_2304 = 
(int)(BgL_objzd2classzd2numz00_2300); 
{ /* ./Globalize/escape.scm 241 */
long BgL_offsetz00_2305;
{ /* ./Globalize/escape.scm 241 */
long BgL_auxz00_2779;
BgL_auxz00_2779 = 
(long)(BgL_offsetz00_2304); 
BgL_offsetz00_2305 = 
(BgL_auxz00_2779-OBJECT_TYPE); } 
{ /* ./Globalize/escape.scm 241 */
long BgL_modz00_2306;
{ /* ./Globalize/escape.scm 241 */
int BgL_arg2028z00_2307;
BgL_arg2028z00_2307 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 241 */
long BgL_n2z00_2315;
BgL_n2z00_2315 = 
(long)(BgL_arg2028z00_2307); 
BgL_modz00_2306 = 
(BgL_offsetz00_2305/BgL_n2z00_2315); } } 
{ /* ./Globalize/escape.scm 241 */
long BgL_restz00_2308;
{ /* ./Globalize/escape.scm 241 */
int BgL_arg2024z00_2309;
BgL_arg2024z00_2309 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 241 */
long BgL_n2z00_2318;
BgL_n2z00_2318 = 
(long)(BgL_arg2024z00_2309); 
BgL_restz00_2308 = 
(BgL_offsetz00_2305%BgL_n2z00_2318); } } 
{ /* ./Globalize/escape.scm 241 */

{ /* ./Globalize/escape.scm 241 */
obj_t BgL_bucketz00_2310;
{ /* ./Globalize/escape.scm 241 */
int BgL_kz00_2320;
BgL_kz00_2320 = 
(int)(BgL_modz00_2306); 
BgL_bucketz00_2310 = 
VECTOR_REF(BgL_arg2017z00_2301,BgL_kz00_2320); } 
{ /* ./Globalize/escape.scm 241 */
int BgL_kz00_2322;
BgL_kz00_2322 = 
(int)(BgL_restz00_2308); 
BgL_method3101z00_2298 = 
VECTOR_REF(BgL_bucketz00_2310,BgL_kz00_2322); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3101z00_2298)(BgL_method3101z00_2298, 
(obj_t)(BgL_arg3984z00_2294), 
(obj_t)(BgL_oz00_2297), BEOA);} } } } } 
}



/* escape!-jump-ex-it3139 */
obj_t BGl_escapez12zd2jumpzd2exzd2it3139zc0zzglobaliza7e_escapeza7(obj_t BgL_envz00_2546, obj_t BgL_nodez00_2547, obj_t BgL_oz00_2548)
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 232 */
{ 
BgL_jumpzd2exzd2itz00_bglt BgL_nodez00_1490;obj_t BgL_oz00_1491;
BgL_nodez00_1490 = 
(BgL_jumpzd2exzd2itz00_bglt)(BgL_nodez00_2547); 
BgL_oz00_1491 = BgL_oz00_2548; 
{ /* ./Globalize/escape.scm 233 */
BgL_nodez00_bglt BgL_arg3970z00_2236;
BgL_arg3970z00_2236 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1490))->BgL_exitz00); 
{ /* ./Globalize/escape.scm 233 */
BgL_variablez00_bglt BgL_oz00_2240;
BgL_oz00_2240 = 
(BgL_variablez00_bglt)(BgL_oz00_1491); 
{ /* ./Globalize/escape.scm 233 */
obj_t BgL_method3101z00_2241;
{ /* ./Globalize/escape.scm 233 */
BgL_objectz00_bglt BgL_objz00_2242;
BgL_objz00_2242 = 
(BgL_objectz00_bglt)(BgL_arg3970z00_2236); 
{ /* ./Globalize/escape.scm 233 */
long BgL_objzd2classzd2numz00_2243;
BgL_objzd2classzd2numz00_2243 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2242); 
{ /* ./Globalize/escape.scm 233 */
obj_t BgL_arg2017z00_2244;
{ /* ./Globalize/escape.scm 233 */
int BgL_auxz00_2801;
BgL_auxz00_2801 = 
(int)(((long)1)); 
BgL_arg2017z00_2244 = 
PROCEDURE_REF(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BgL_auxz00_2801); } 
{ /* ./Globalize/escape.scm 233 */
int BgL_offsetz00_2247;
BgL_offsetz00_2247 = 
(int)(BgL_objzd2classzd2numz00_2243); 
{ /* ./Globalize/escape.scm 233 */
long BgL_offsetz00_2248;
{ /* ./Globalize/escape.scm 233 */
long BgL_auxz00_2805;
BgL_auxz00_2805 = 
(long)(BgL_offsetz00_2247); 
BgL_offsetz00_2248 = 
(BgL_auxz00_2805-OBJECT_TYPE); } 
{ /* ./Globalize/escape.scm 233 */
long BgL_modz00_2249;
{ /* ./Globalize/escape.scm 233 */
int BgL_arg2028z00_2250;
BgL_arg2028z00_2250 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 233 */
long BgL_n2z00_2258;
BgL_n2z00_2258 = 
(long)(BgL_arg2028z00_2250); 
BgL_modz00_2249 = 
(BgL_offsetz00_2248/BgL_n2z00_2258); } } 
{ /* ./Globalize/escape.scm 233 */
long BgL_restz00_2251;
{ /* ./Globalize/escape.scm 233 */
int BgL_arg2024z00_2252;
BgL_arg2024z00_2252 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 233 */
long BgL_n2z00_2261;
BgL_n2z00_2261 = 
(long)(BgL_arg2024z00_2252); 
BgL_restz00_2251 = 
(BgL_offsetz00_2248%BgL_n2z00_2261); } } 
{ /* ./Globalize/escape.scm 233 */

{ /* ./Globalize/escape.scm 233 */
obj_t BgL_bucketz00_2253;
{ /* ./Globalize/escape.scm 233 */
int BgL_kz00_2263;
BgL_kz00_2263 = 
(int)(BgL_modz00_2249); 
BgL_bucketz00_2253 = 
VECTOR_REF(BgL_arg2017z00_2244,BgL_kz00_2263); } 
{ /* ./Globalize/escape.scm 233 */
int BgL_kz00_2265;
BgL_kz00_2265 = 
(int)(BgL_restz00_2251); 
BgL_method3101z00_2241 = 
VECTOR_REF(BgL_bucketz00_2253,BgL_kz00_2265); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method3101z00_2241)(BgL_method3101z00_2241, 
(obj_t)(BgL_arg3970z00_2236), 
(obj_t)(BgL_oz00_2240), BEOA); } } } 
{ /* ./Globalize/escape.scm 233 */
BgL_nodez00_bglt BgL_arg3974z00_2237;
BgL_arg3974z00_2237 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1490))->BgL_valuez00); 
{ /* ./Globalize/escape.scm 233 */
BgL_variablez00_bglt BgL_oz00_2268;
BgL_oz00_2268 = 
(BgL_variablez00_bglt)(BgL_oz00_1491); 
{ /* ./Globalize/escape.scm 233 */
obj_t BgL_method3101z00_2269;
{ /* ./Globalize/escape.scm 233 */
BgL_objectz00_bglt BgL_objz00_2270;
BgL_objz00_2270 = 
(BgL_objectz00_bglt)(BgL_arg3974z00_2237); 
{ /* ./Globalize/escape.scm 233 */
long BgL_objzd2classzd2numz00_2271;
BgL_objzd2classzd2numz00_2271 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2270); 
{ /* ./Globalize/escape.scm 233 */
obj_t BgL_arg2017z00_2272;
{ /* ./Globalize/escape.scm 233 */
int BgL_auxz00_2826;
BgL_auxz00_2826 = 
(int)(((long)1)); 
BgL_arg2017z00_2272 = 
PROCEDURE_REF(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BgL_auxz00_2826); } 
{ /* ./Globalize/escape.scm 233 */
int BgL_offsetz00_2275;
BgL_offsetz00_2275 = 
(int)(BgL_objzd2classzd2numz00_2271); 
{ /* ./Globalize/escape.scm 233 */
long BgL_offsetz00_2276;
{ /* ./Globalize/escape.scm 233 */
long BgL_auxz00_2830;
BgL_auxz00_2830 = 
(long)(BgL_offsetz00_2275); 
BgL_offsetz00_2276 = 
(BgL_auxz00_2830-OBJECT_TYPE); } 
{ /* ./Globalize/escape.scm 233 */
long BgL_modz00_2277;
{ /* ./Globalize/escape.scm 233 */
int BgL_arg2028z00_2278;
BgL_arg2028z00_2278 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 233 */
long BgL_n2z00_2286;
BgL_n2z00_2286 = 
(long)(BgL_arg2028z00_2278); 
BgL_modz00_2277 = 
(BgL_offsetz00_2276/BgL_n2z00_2286); } } 
{ /* ./Globalize/escape.scm 233 */
long BgL_restz00_2279;
{ /* ./Globalize/escape.scm 233 */
int BgL_arg2024z00_2280;
BgL_arg2024z00_2280 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 233 */
long BgL_n2z00_2289;
BgL_n2z00_2289 = 
(long)(BgL_arg2024z00_2280); 
BgL_restz00_2279 = 
(BgL_offsetz00_2276%BgL_n2z00_2289); } } 
{ /* ./Globalize/escape.scm 233 */

{ /* ./Globalize/escape.scm 233 */
obj_t BgL_bucketz00_2281;
{ /* ./Globalize/escape.scm 233 */
int BgL_kz00_2291;
BgL_kz00_2291 = 
(int)(BgL_modz00_2277); 
BgL_bucketz00_2281 = 
VECTOR_REF(BgL_arg2017z00_2272,BgL_kz00_2291); } 
{ /* ./Globalize/escape.scm 233 */
int BgL_kz00_2293;
BgL_kz00_2293 = 
(int)(BgL_restz00_2279); 
BgL_method3101z00_2269 = 
VECTOR_REF(BgL_bucketz00_2281,BgL_kz00_2293); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3101z00_2269)(BgL_method3101z00_2269, 
(obj_t)(BgL_arg3974z00_2237), 
(obj_t)(BgL_oz00_2268), BEOA);} } } } } 
}



/* escape!-set-ex-it3137 */
obj_t BGl_escapez12zd2setzd2exzd2it3137zc0zzglobaliza7e_escapeza7(obj_t BgL_envz00_2549, obj_t BgL_nodez00_2550, obj_t BgL_oz00_2551)
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 224 */
{ 
BgL_setzd2exzd2itz00_bglt BgL_nodez00_1477;obj_t BgL_oz00_1478;
BgL_nodez00_1477 = 
(BgL_setzd2exzd2itz00_bglt)(BgL_nodez00_2550); 
BgL_oz00_1478 = BgL_oz00_2551; 
{ /* ./Globalize/escape.scm 226 */
BgL_sexitz00_bglt BgL_obj3076z00_1482;
{ 
BgL_sexitz00_bglt BgL_auxz00_2848;
{ /* ./Globalize/escape.scm 226 */
BgL_variablez00_bglt BgL_arg3953z00_1485;
{ /* ./Globalize/escape.scm 226 */
BgL_varz00_bglt BgL_arg3956z00_1486;
BgL_arg3956z00_1486 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1477))->BgL_varz00); 
BgL_arg3953z00_1485 = 
(((BgL_varz00_bglt)CREF(BgL_arg3956z00_1486))->BgL_variablez00); } 
{ /* ./Globalize/escape.scm 226 */
BgL_valuez00_bglt BgL_auxz00_2851;
BgL_auxz00_2851 = 
(((BgL_variablez00_bglt)CREF(BgL_arg3953z00_1485))->BgL_valuez00); 
BgL_auxz00_2848 = 
(BgL_sexitz00_bglt)(BgL_auxz00_2851); } } 
BgL_obj3076z00_1482 = 
((BgL_sexitz00_bglt)BgL_auxz00_2848); } 
{ /* ./Globalize/escape.scm 226 */
obj_t BgL_arg3944z00_1483;
BgL_arg3944z00_1483 = 
BGl_wideningzd2sexitzf2Ginfoz20zzglobaliza7e_ginfoza7(((bool_t)0), ((bool_t)0), ((long)-10), ((long)-10)); 
{ /* ./Globalize/escape.scm 226 */
BgL_objectz00_bglt BgL_auxz00_2856;
BgL_auxz00_2856 = 
(BgL_objectz00_bglt)(BgL_obj3076z00_1482); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2856, BgL_arg3944z00_1483); } } 
{ /* ./Globalize/escape.scm 226 */
long BgL_arg3948z00_1484;
BgL_arg3948z00_1484 = 
BGl_classzd2numzd2zz__objectz00(BGl_sexitzf2Ginfozf2zzglobaliza7e_ginfoza7); 
{ /* ./Globalize/escape.scm 226 */
BgL_objectz00_bglt BgL_objz00_2204;
BgL_objz00_2204 = 
(BgL_objectz00_bglt)(BgL_obj3076z00_1482); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2204, BgL_arg3948z00_1484); } } 
{ /* ./Globalize/escape.scm 226 */
obj_t BgL_objz00_2206;
BgL_objz00_2206 = 
(obj_t)(BgL_obj3076z00_1482); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2206); BUNSPEC; } BgL_obj3076z00_1482; } 
{ /* ./Globalize/escape.scm 227 */
BgL_nodez00_bglt BgL_arg3960z00_1487;
BgL_arg3960z00_1487 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1477))->BgL_bodyz00); 
{ /* ./Globalize/escape.scm 227 */
BgL_variablez00_bglt BgL_oz00_2209;
BgL_oz00_2209 = 
(BgL_variablez00_bglt)(BgL_oz00_1478); 
{ /* ./Globalize/escape.scm 227 */
obj_t BgL_method3101z00_2210;
{ /* ./Globalize/escape.scm 227 */
BgL_objectz00_bglt BgL_objz00_2211;
BgL_objz00_2211 = 
(BgL_objectz00_bglt)(BgL_arg3960z00_1487); 
{ /* ./Globalize/escape.scm 227 */
long BgL_objzd2classzd2numz00_2212;
BgL_objzd2classzd2numz00_2212 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2211); 
{ /* ./Globalize/escape.scm 227 */
obj_t BgL_arg2017z00_2213;
{ /* ./Globalize/escape.scm 227 */
int BgL_auxz00_2868;
BgL_auxz00_2868 = 
(int)(((long)1)); 
BgL_arg2017z00_2213 = 
PROCEDURE_REF(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BgL_auxz00_2868); } 
{ /* ./Globalize/escape.scm 227 */
int BgL_offsetz00_2216;
BgL_offsetz00_2216 = 
(int)(BgL_objzd2classzd2numz00_2212); 
{ /* ./Globalize/escape.scm 227 */
long BgL_offsetz00_2217;
{ /* ./Globalize/escape.scm 227 */
long BgL_auxz00_2872;
BgL_auxz00_2872 = 
(long)(BgL_offsetz00_2216); 
BgL_offsetz00_2217 = 
(BgL_auxz00_2872-OBJECT_TYPE); } 
{ /* ./Globalize/escape.scm 227 */
long BgL_modz00_2218;
{ /* ./Globalize/escape.scm 227 */
int BgL_arg2028z00_2219;
BgL_arg2028z00_2219 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 227 */
long BgL_n2z00_2227;
BgL_n2z00_2227 = 
(long)(BgL_arg2028z00_2219); 
BgL_modz00_2218 = 
(BgL_offsetz00_2217/BgL_n2z00_2227); } } 
{ /* ./Globalize/escape.scm 227 */
long BgL_restz00_2220;
{ /* ./Globalize/escape.scm 227 */
int BgL_arg2024z00_2221;
BgL_arg2024z00_2221 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 227 */
long BgL_n2z00_2230;
BgL_n2z00_2230 = 
(long)(BgL_arg2024z00_2221); 
BgL_restz00_2220 = 
(BgL_offsetz00_2217%BgL_n2z00_2230); } } 
{ /* ./Globalize/escape.scm 227 */

{ /* ./Globalize/escape.scm 227 */
obj_t BgL_bucketz00_2222;
{ /* ./Globalize/escape.scm 227 */
int BgL_kz00_2232;
BgL_kz00_2232 = 
(int)(BgL_modz00_2218); 
BgL_bucketz00_2222 = 
VECTOR_REF(BgL_arg2017z00_2213,BgL_kz00_2232); } 
{ /* ./Globalize/escape.scm 227 */
int BgL_kz00_2234;
BgL_kz00_2234 = 
(int)(BgL_restz00_2220); 
BgL_method3101z00_2210 = 
VECTOR_REF(BgL_bucketz00_2222,BgL_kz00_2234); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3101z00_2210)(BgL_method3101z00_2210, 
(obj_t)(BgL_arg3960z00_1487), 
(obj_t)(BgL_oz00_2209), BEOA);} } } } } 
}



/* escape!-let-var3135 */
obj_t BGl_escapez12zd2letzd2var3135z12zzglobaliza7e_escapeza7(obj_t BgL_envz00_2552, obj_t BgL_nodez00_2553, obj_t BgL_oz00_2554)
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 213 */
{ 
BgL_letzd2varzd2_bglt BgL_nodez00_1458;obj_t BgL_oz00_1459;
{ /* ./Globalize/escape.scm 214 */
bool_t BgL_auxz00_2890;
BgL_nodez00_1458 = 
(BgL_letzd2varzd2_bglt)(BgL_nodez00_2553); 
BgL_oz00_1459 = BgL_oz00_2554; 
{ /* ./Globalize/escape.scm 215 */
BgL_nodez00_bglt BgL_arg3906z00_1463;
BgL_arg3906z00_1463 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1458))->BgL_bodyz00); 
{ /* ./Globalize/escape.scm 215 */
BgL_variablez00_bglt BgL_oz00_2138;
BgL_oz00_2138 = 
(BgL_variablez00_bglt)(BgL_oz00_1459); 
{ /* ./Globalize/escape.scm 215 */
obj_t BgL_method3101z00_2139;
{ /* ./Globalize/escape.scm 215 */
BgL_objectz00_bglt BgL_objz00_2140;
BgL_objz00_2140 = 
(BgL_objectz00_bglt)(BgL_arg3906z00_1463); 
{ /* ./Globalize/escape.scm 215 */
long BgL_objzd2classzd2numz00_2141;
BgL_objzd2classzd2numz00_2141 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2140); 
{ /* ./Globalize/escape.scm 215 */
obj_t BgL_arg2017z00_2142;
{ /* ./Globalize/escape.scm 215 */
int BgL_auxz00_2895;
BgL_auxz00_2895 = 
(int)(((long)1)); 
BgL_arg2017z00_2142 = 
PROCEDURE_REF(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BgL_auxz00_2895); } 
{ /* ./Globalize/escape.scm 215 */
int BgL_offsetz00_2145;
BgL_offsetz00_2145 = 
(int)(BgL_objzd2classzd2numz00_2141); 
{ /* ./Globalize/escape.scm 215 */
long BgL_offsetz00_2146;
{ /* ./Globalize/escape.scm 215 */
long BgL_auxz00_2899;
BgL_auxz00_2899 = 
(long)(BgL_offsetz00_2145); 
BgL_offsetz00_2146 = 
(BgL_auxz00_2899-OBJECT_TYPE); } 
{ /* ./Globalize/escape.scm 215 */
long BgL_modz00_2147;
{ /* ./Globalize/escape.scm 215 */
int BgL_arg2028z00_2148;
BgL_arg2028z00_2148 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 215 */
long BgL_n2z00_2156;
BgL_n2z00_2156 = 
(long)(BgL_arg2028z00_2148); 
BgL_modz00_2147 = 
(BgL_offsetz00_2146/BgL_n2z00_2156); } } 
{ /* ./Globalize/escape.scm 215 */
long BgL_restz00_2149;
{ /* ./Globalize/escape.scm 215 */
int BgL_arg2024z00_2150;
BgL_arg2024z00_2150 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 215 */
long BgL_n2z00_2159;
BgL_n2z00_2159 = 
(long)(BgL_arg2024z00_2150); 
BgL_restz00_2149 = 
(BgL_offsetz00_2146%BgL_n2z00_2159); } } 
{ /* ./Globalize/escape.scm 215 */

{ /* ./Globalize/escape.scm 215 */
obj_t BgL_bucketz00_2151;
{ /* ./Globalize/escape.scm 215 */
int BgL_kz00_2161;
BgL_kz00_2161 = 
(int)(BgL_modz00_2147); 
BgL_bucketz00_2151 = 
VECTOR_REF(BgL_arg2017z00_2142,BgL_kz00_2161); } 
{ /* ./Globalize/escape.scm 215 */
int BgL_kz00_2163;
BgL_kz00_2163 = 
(int)(BgL_restz00_2149); 
BgL_method3101z00_2139 = 
VECTOR_REF(BgL_bucketz00_2151,BgL_kz00_2163); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method3101z00_2139)(BgL_method3101z00_2139, 
(obj_t)(BgL_arg3906z00_1463), 
(obj_t)(BgL_oz00_2138), BEOA); } } } 
{ 
obj_t BgL_l3071z00_1464;
{ /* ./Globalize/escape.scm 216 */
obj_t BgL_arg3910z00_1466;
BgL_arg3910z00_1466 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1458))->BgL_bindingsz00); 
BgL_l3071z00_1464 = BgL_arg3910z00_1466; 
BgL_forzd2each3072zd2_1465:
{ /* ./Globalize/escape.scm 216 */
bool_t BgL_test3913z00_1467;
BgL_test3913z00_1467 = 
PAIRP(BgL_l3071z00_1464); 
if(BgL_test3913z00_1467)
{ /* ./Globalize/escape.scm 216 */
{ /* ./Globalize/escape.scm 217 */
obj_t BgL_bindingz00_1468;
BgL_bindingz00_1468 = 
CAR(BgL_l3071z00_1464); 
{ /* ./Globalize/escape.scm 217 */
BgL_svarz00_bglt BgL_obj3073z00_1469;
{ 
BgL_svarz00_bglt BgL_auxz00_2920;
{ /* ./Globalize/escape.scm 217 */
BgL_variablez00_bglt BgL_obj1100z00_2168;
{ /* ./Globalize/escape.scm 217 */
obj_t BgL_auxz00_2921;
BgL_auxz00_2921 = 
CAR(BgL_bindingz00_1468); 
BgL_obj1100z00_2168 = 
(BgL_variablez00_bglt)(BgL_auxz00_2921); } 
{ /* ./Globalize/escape.scm 217 */
BgL_valuez00_bglt BgL_auxz00_2924;
BgL_auxz00_2924 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_2168))->BgL_valuez00); 
BgL_auxz00_2920 = 
(BgL_svarz00_bglt)(BgL_auxz00_2924); } } 
BgL_obj3073z00_1469 = 
((BgL_svarz00_bglt)BgL_auxz00_2920); } 
{ /* ./Globalize/escape.scm 217 */
obj_t BgL_arg3915z00_1470;
BgL_arg3915z00_1470 = 
BGl_wideningzd2svarzf2Ginfoz20zzglobaliza7e_ginfoza7(((bool_t)0), ((long)-10), ((long)-10), ((bool_t)0)); 
{ /* ./Globalize/escape.scm 217 */
BgL_objectz00_bglt BgL_auxz00_2929;
BgL_auxz00_2929 = 
(BgL_objectz00_bglt)(BgL_obj3073z00_1469); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2929, BgL_arg3915z00_1470); } } 
{ /* ./Globalize/escape.scm 217 */
long BgL_arg3919z00_1471;
BgL_arg3919z00_1471 = 
BGl_classzd2numzd2zz__objectz00(BGl_svarzf2Ginfozf2zzglobaliza7e_ginfoza7); 
{ /* ./Globalize/escape.scm 217 */
BgL_objectz00_bglt BgL_objz00_2169;
BgL_objz00_2169 = 
(BgL_objectz00_bglt)(BgL_obj3073z00_1469); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2169, BgL_arg3919z00_1471); } } 
{ /* ./Globalize/escape.scm 217 */
obj_t BgL_objz00_2171;
BgL_objz00_2171 = 
(obj_t)(BgL_obj3073z00_1469); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2171); BUNSPEC; } BgL_obj3073z00_1469; } 
{ /* ./Globalize/escape.scm 218 */
obj_t BgL_arg3928z00_1473;
BgL_arg3928z00_1473 = 
CDR(BgL_bindingz00_1468); 
{ /* ./Globalize/escape.scm 218 */
BgL_nodez00_bglt BgL_nodez00_2173;BgL_variablez00_bglt BgL_oz00_2174;
BgL_nodez00_2173 = 
(BgL_nodez00_bglt)(BgL_arg3928z00_1473); 
BgL_oz00_2174 = 
(BgL_variablez00_bglt)(BgL_oz00_1459); 
{ /* ./Globalize/escape.scm 218 */
obj_t BgL_method3101z00_2175;
{ /* ./Globalize/escape.scm 218 */
BgL_objectz00_bglt BgL_objz00_2176;
BgL_objz00_2176 = 
(BgL_objectz00_bglt)(BgL_nodez00_2173); 
{ /* ./Globalize/escape.scm 218 */
long BgL_objzd2classzd2numz00_2177;
BgL_objzd2classzd2numz00_2177 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2176); 
{ /* ./Globalize/escape.scm 218 */
obj_t BgL_arg2017z00_2178;
{ /* ./Globalize/escape.scm 218 */
int BgL_auxz00_2942;
BgL_auxz00_2942 = 
(int)(((long)1)); 
BgL_arg2017z00_2178 = 
PROCEDURE_REF(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BgL_auxz00_2942); } 
{ /* ./Globalize/escape.scm 218 */
int BgL_offsetz00_2181;
BgL_offsetz00_2181 = 
(int)(BgL_objzd2classzd2numz00_2177); 
{ /* ./Globalize/escape.scm 218 */
long BgL_offsetz00_2182;
{ /* ./Globalize/escape.scm 218 */
long BgL_auxz00_2946;
BgL_auxz00_2946 = 
(long)(BgL_offsetz00_2181); 
BgL_offsetz00_2182 = 
(BgL_auxz00_2946-OBJECT_TYPE); } 
{ /* ./Globalize/escape.scm 218 */
long BgL_modz00_2183;
{ /* ./Globalize/escape.scm 218 */
int BgL_arg2028z00_2184;
BgL_arg2028z00_2184 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 218 */
long BgL_n2z00_2192;
BgL_n2z00_2192 = 
(long)(BgL_arg2028z00_2184); 
BgL_modz00_2183 = 
(BgL_offsetz00_2182/BgL_n2z00_2192); } } 
{ /* ./Globalize/escape.scm 218 */
long BgL_restz00_2185;
{ /* ./Globalize/escape.scm 218 */
int BgL_arg2024z00_2186;
BgL_arg2024z00_2186 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 218 */
long BgL_n2z00_2195;
BgL_n2z00_2195 = 
(long)(BgL_arg2024z00_2186); 
BgL_restz00_2185 = 
(BgL_offsetz00_2182%BgL_n2z00_2195); } } 
{ /* ./Globalize/escape.scm 218 */

{ /* ./Globalize/escape.scm 218 */
obj_t BgL_bucketz00_2187;
{ /* ./Globalize/escape.scm 218 */
int BgL_kz00_2197;
BgL_kz00_2197 = 
(int)(BgL_modz00_2183); 
BgL_bucketz00_2187 = 
VECTOR_REF(BgL_arg2017z00_2178,BgL_kz00_2197); } 
{ /* ./Globalize/escape.scm 218 */
int BgL_kz00_2199;
BgL_kz00_2199 = 
(int)(BgL_restz00_2185); 
BgL_method3101z00_2175 = 
VECTOR_REF(BgL_bucketz00_2187,BgL_kz00_2199); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method3101z00_2175)(BgL_method3101z00_2175, 
(obj_t)(BgL_nodez00_2173), 
(obj_t)(BgL_oz00_2174), BEOA); } } } } 
{ /* ./Globalize/escape.scm 216 */
obj_t BgL_arg3933z00_1474;
BgL_arg3933z00_1474 = 
CDR(BgL_l3071z00_1464); 
{ 
obj_t BgL_l3071z00_2964;
BgL_l3071z00_2964 = BgL_arg3933z00_1474; 
BgL_l3071z00_1464 = BgL_l3071z00_2964; 
goto BgL_forzd2each3072zd2_1465;} } }  else 
{ /* ./Globalize/escape.scm 216 */
BgL_auxz00_2890 = ((bool_t)1); } } } } 
return 
BBOOL(BgL_auxz00_2890);} } } 
}



/* escape!-let-fun3132 */
obj_t BGl_escapez12zd2letzd2fun3132z12zzglobaliza7e_escapeza7(obj_t BgL_envz00_2555, obj_t BgL_nodez00_2556, obj_t BgL_oz00_2557)
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 190 */
{ 
BgL_letzd2funzd2_bglt BgL_nodez00_1408;obj_t BgL_oz00_1409;
BgL_nodez00_1408 = 
(BgL_letzd2funzd2_bglt)(BgL_nodez00_2556); 
BgL_oz00_1409 = BgL_oz00_2557; 
{ 
obj_t BgL_l3060z00_1413;
{ /* ./Globalize/escape.scm 193 */
obj_t BgL_arg3814z00_1415;
BgL_arg3814z00_1415 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1408))->BgL_localsz00); 
BgL_l3060z00_1413 = BgL_arg3814z00_1415; 
BgL_forzd2each3061zd2_1414:
{ /* ./Globalize/escape.scm 193 */
bool_t BgL_test3817z00_1416;
BgL_test3817z00_1416 = 
PAIRP(BgL_l3060z00_1413); 
if(BgL_test3817z00_1416)
{ /* ./Globalize/escape.scm 193 */
{ /* ./Globalize/escape.scm 194 */
obj_t BgL_localz00_1417;
BgL_localz00_1417 = 
CAR(BgL_l3060z00_1413); 
{ /* ./Globalize/escape.scm 194 */
BgL_localz00_bglt BgL_obj3062z00_1418;
{ 
BgL_localz00_bglt BgL_auxz00_2971;
BgL_auxz00_2971 = 
(BgL_localz00_bglt)(BgL_localz00_1417); 
BgL_obj3062z00_1418 = 
((BgL_localz00_bglt)BgL_auxz00_2971); } 
{ /* ./Globalize/escape.scm 194 */
obj_t BgL_arg3819z00_1419;
BgL_arg3819z00_1419 = 
BGl_wideningzd2localzf2Ginfoz20zzglobaliza7e_ginfoza7(((bool_t)0)); 
{ /* ./Globalize/escape.scm 194 */
BgL_objectz00_bglt BgL_auxz00_2975;
BgL_auxz00_2975 = 
(BgL_objectz00_bglt)(BgL_obj3062z00_1418); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2975, BgL_arg3819z00_1419); } } 
{ /* ./Globalize/escape.scm 194 */
long BgL_arg3823z00_1420;
BgL_arg3823z00_1420 = 
BGl_classzd2numzd2zz__objectz00(BGl_localzf2Ginfozf2zzglobaliza7e_ginfoza7); 
{ /* ./Globalize/escape.scm 194 */
BgL_objectz00_bglt BgL_objz00_2059;
BgL_objz00_2059 = 
(BgL_objectz00_bglt)(BgL_obj3062z00_1418); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2059, BgL_arg3823z00_1420); } } 
{ /* ./Globalize/escape.scm 194 */
obj_t BgL_objz00_2061;
BgL_objz00_2061 = 
(obj_t)(BgL_obj3062z00_1418); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2061); BUNSPEC; } BgL_obj3062z00_1418; } 
{ /* ./Globalize/escape.scm 195 */
BgL_valuez00_bglt BgL_funz00_1421;
{ /* ./Globalize/escape.scm 195 */
BgL_variablez00_bglt BgL_obj1100z00_2062;
BgL_obj1100z00_2062 = 
(BgL_variablez00_bglt)(BgL_localz00_1417); 
BgL_funz00_1421 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_2062))->BgL_valuez00); } 
{ /* ./Globalize/escape.scm 196 */
BgL_sfunz00_bglt BgL_obj3063z00_1422;
{ 
BgL_sfunz00_bglt BgL_auxz00_2985;
BgL_auxz00_2985 = 
(BgL_sfunz00_bglt)(BgL_funz00_1421); 
BgL_obj3063z00_1422 = 
((BgL_sfunz00_bglt)BgL_auxz00_2985); } 
{ /* ./Globalize/ginfo.scm 23 */
obj_t BgL_arg3828z00_1423;
{ /* ./Globalize/ginfo.scm 23 */
obj_t BgL_arg3836z00_1428;
BgL_arg3836z00_1428 = BgL_oz00_1409; 
BgL_arg3828z00_1423 = 
BGl_wideningzd2sfunzf2Ginfoz20zzglobaliza7e_ginfoza7(((bool_t)0), BNIL, BFALSE, BNIL, BFALSE, BNIL, BUNSPEC, 
BINT(((long)-1)), BgL_arg3836z00_1428, BNIL, BNIL, ((long)-10), BNIL, BFALSE, BFALSE, BFALSE, ((long)-10), ((long)-10), BUNSPEC, BNIL); } 
{ /* ./Globalize/escape.scm 196 */
BgL_objectz00_bglt BgL_auxz00_2990;
BgL_auxz00_2990 = 
(BgL_objectz00_bglt)(BgL_obj3063z00_1422); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2990, BgL_arg3828z00_1423); } } 
{ /* ./Globalize/escape.scm 196 */
long BgL_arg3846z00_1436;
BgL_arg3846z00_1436 = 
BGl_classzd2numzd2zz__objectz00(BGl_sfunzf2Ginfozf2zzglobaliza7e_ginfoza7); 
{ /* ./Globalize/escape.scm 196 */
BgL_objectz00_bglt BgL_objz00_2063;
BgL_objz00_2063 = 
(BgL_objectz00_bglt)(BgL_obj3063z00_1422); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2063, BgL_arg3846z00_1436); } } 
{ /* ./Globalize/escape.scm 196 */
obj_t BgL_objz00_2065;
BgL_objz00_2065 = 
(obj_t)(BgL_obj3063z00_1422); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2065); BUNSPEC; } BgL_obj3063z00_1422; } 
{ 
obj_t BgL_l3064z00_1437;
{ /* ./Globalize/escape.scm 200 */
obj_t BgL_arg3851z00_1439;
{ /* ./Globalize/escape.scm 200 */
BgL_sfunz00_bglt BgL_obj1367z00_2066;
BgL_obj1367z00_2066 = 
(BgL_sfunz00_bglt)(BgL_funz00_1421); 
BgL_arg3851z00_1439 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1367z00_2066))->BgL_argsz00); } 
BgL_l3064z00_1437 = BgL_arg3851z00_1439; 
BgL_forzd2each3065zd2_1438:
{ /* ./Globalize/escape.scm 198 */
bool_t BgL_test3854z00_1440;
BgL_test3854z00_1440 = 
PAIRP(BgL_l3064z00_1437); 
if(BgL_test3854z00_1440)
{ /* ./Globalize/escape.scm 198 */
{ /* ./Globalize/escape.scm 199 */
obj_t BgL_localz00_1441;
BgL_localz00_1441 = 
CAR(BgL_l3064z00_1437); 
{ /* ./Globalize/escape.scm 199 */
BgL_svarz00_bglt BgL_obj3066z00_1442;
{ 
BgL_svarz00_bglt BgL_auxz00_3003;
{ /* ./Globalize/escape.scm 199 */
BgL_valuez00_bglt BgL_auxz00_3004;
{ /* ./Globalize/escape.scm 199 */
BgL_variablez00_bglt BgL_obj1100z00_2624;
BgL_obj1100z00_2624 = 
(BgL_variablez00_bglt)(BgL_localz00_1441); 
BgL_auxz00_3004 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_2624))->BgL_valuez00); } 
BgL_auxz00_3003 = 
(BgL_svarz00_bglt)(BgL_auxz00_3004); } 
BgL_obj3066z00_1442 = 
((BgL_svarz00_bglt)BgL_auxz00_3003); } 
{ /* ./Globalize/escape.scm 199 */
obj_t BgL_arg3856z00_1443;
BgL_arg3856z00_1443 = 
BGl_wideningzd2svarzf2Ginfoz20zzglobaliza7e_ginfoza7(((bool_t)0), ((long)-10), ((long)-10), ((bool_t)0)); 
{ /* ./Globalize/escape.scm 199 */
BgL_objectz00_bglt BgL_auxz00_3010;
BgL_auxz00_3010 = 
(BgL_objectz00_bglt)(BgL_obj3066z00_1442); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3010, BgL_arg3856z00_1443); } } 
{ /* ./Globalize/escape.scm 199 */
long BgL_arg3860z00_1444;
BgL_arg3860z00_1444 = 
BGl_classzd2numzd2zz__objectz00(BGl_svarzf2Ginfozf2zzglobaliza7e_ginfoza7); 
{ /* ./Globalize/escape.scm 199 */
BgL_objectz00_bglt BgL_objz00_2070;
BgL_objz00_2070 = 
(BgL_objectz00_bglt)(BgL_obj3066z00_1442); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2070, BgL_arg3860z00_1444); } } 
{ /* ./Globalize/escape.scm 199 */
obj_t BgL_objz00_2072;
BgL_objz00_2072 = 
(obj_t)(BgL_obj3066z00_1442); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2072); BUNSPEC; } BgL_obj3066z00_1442; } } 
{ /* ./Globalize/escape.scm 198 */
obj_t BgL_arg3867z00_1445;
BgL_arg3867z00_1445 = 
CDR(BgL_l3064z00_1437); 
{ 
obj_t BgL_l3064z00_3019;
BgL_l3064z00_3019 = BgL_arg3867z00_1445; 
BgL_l3064z00_1437 = BgL_l3064z00_3019; 
goto BgL_forzd2each3065zd2_1438;} } }  else 
{ /* ./Globalize/escape.scm 198 */((bool_t)1); } } } } } } 
{ /* ./Globalize/escape.scm 193 */
obj_t BgL_arg3874z00_1446;
BgL_arg3874z00_1446 = 
CDR(BgL_l3060z00_1413); 
{ 
obj_t BgL_l3060z00_3021;
BgL_l3060z00_3021 = BgL_arg3874z00_1446; 
BgL_l3060z00_1413 = BgL_l3060z00_3021; 
goto BgL_forzd2each3061zd2_1414;} } }  else 
{ /* ./Globalize/escape.scm 193 */((bool_t)1); } } } } 
{ 
obj_t BgL_l3067z00_1447;
{ /* ./Globalize/escape.scm 203 */
obj_t BgL_arg3879z00_1449;
BgL_arg3879z00_1449 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1408))->BgL_localsz00); 
BgL_l3067z00_1447 = BgL_arg3879z00_1449; 
BgL_forzd2each3068zd2_1448:
{ /* ./Globalize/escape.scm 203 */
bool_t BgL_test3882z00_1450;
BgL_test3882z00_1450 = 
PAIRP(BgL_l3067z00_1447); 
if(BgL_test3882z00_1450)
{ /* ./Globalize/escape.scm 203 */
{ /* ./Globalize/escape.scm 204 */
obj_t BgL_localz00_1451;
BgL_localz00_1451 = 
CAR(BgL_l3067z00_1447); 
{ /* ./Globalize/escape.scm 204 */
BgL_valuez00_bglt BgL_funz00_1452;
{ /* ./Globalize/escape.scm 204 */
BgL_variablez00_bglt BgL_obj1100z00_2078;
BgL_obj1100z00_2078 = 
(BgL_variablez00_bglt)(BgL_localz00_1451); 
BgL_funz00_1452 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_2078))->BgL_valuez00); } 
{ /* ./Globalize/escape.scm 205 */
obj_t BgL_arg3885z00_1453;
{ /* ./Globalize/escape.scm 205 */
BgL_sfunz00_bglt BgL_obj1370z00_2079;
BgL_obj1370z00_2079 = 
(BgL_sfunz00_bglt)(BgL_funz00_1452); 
BgL_arg3885z00_1453 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_2079))->BgL_bodyz00); } 
{ /* ./Globalize/escape.scm 205 */
BgL_nodez00_bglt BgL_nodez00_2080;BgL_variablez00_bglt BgL_oz00_2081;
BgL_nodez00_2080 = 
(BgL_nodez00_bglt)(BgL_arg3885z00_1453); 
BgL_oz00_2081 = 
(BgL_variablez00_bglt)(BgL_localz00_1451); 
{ /* ./Globalize/escape.scm 205 */
obj_t BgL_method3101z00_2082;
{ /* ./Globalize/escape.scm 205 */
BgL_objectz00_bglt BgL_objz00_2083;
BgL_objz00_2083 = 
(BgL_objectz00_bglt)(BgL_nodez00_2080); 
{ /* ./Globalize/escape.scm 205 */
long BgL_objzd2classzd2numz00_2084;
BgL_objzd2classzd2numz00_2084 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2083); 
{ /* ./Globalize/escape.scm 205 */
obj_t BgL_arg2017z00_2085;
{ /* ./Globalize/escape.scm 205 */
int BgL_auxz00_3034;
BgL_auxz00_3034 = 
(int)(((long)1)); 
BgL_arg2017z00_2085 = 
PROCEDURE_REF(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BgL_auxz00_3034); } 
{ /* ./Globalize/escape.scm 205 */
int BgL_offsetz00_2088;
BgL_offsetz00_2088 = 
(int)(BgL_objzd2classzd2numz00_2084); 
{ /* ./Globalize/escape.scm 205 */
long BgL_offsetz00_2089;
{ /* ./Globalize/escape.scm 205 */
long BgL_auxz00_3038;
BgL_auxz00_3038 = 
(long)(BgL_offsetz00_2088); 
BgL_offsetz00_2089 = 
(BgL_auxz00_3038-OBJECT_TYPE); } 
{ /* ./Globalize/escape.scm 205 */
long BgL_modz00_2090;
{ /* ./Globalize/escape.scm 205 */
int BgL_arg2028z00_2091;
BgL_arg2028z00_2091 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 205 */
long BgL_n2z00_2099;
BgL_n2z00_2099 = 
(long)(BgL_arg2028z00_2091); 
BgL_modz00_2090 = 
(BgL_offsetz00_2089/BgL_n2z00_2099); } } 
{ /* ./Globalize/escape.scm 205 */
long BgL_restz00_2092;
{ /* ./Globalize/escape.scm 205 */
int BgL_arg2024z00_2093;
BgL_arg2024z00_2093 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 205 */
long BgL_n2z00_2102;
BgL_n2z00_2102 = 
(long)(BgL_arg2024z00_2093); 
BgL_restz00_2092 = 
(BgL_offsetz00_2089%BgL_n2z00_2102); } } 
{ /* ./Globalize/escape.scm 205 */

{ /* ./Globalize/escape.scm 205 */
obj_t BgL_bucketz00_2094;
{ /* ./Globalize/escape.scm 205 */
int BgL_kz00_2104;
BgL_kz00_2104 = 
(int)(BgL_modz00_2090); 
BgL_bucketz00_2094 = 
VECTOR_REF(BgL_arg2017z00_2085,BgL_kz00_2104); } 
{ /* ./Globalize/escape.scm 205 */
int BgL_kz00_2106;
BgL_kz00_2106 = 
(int)(BgL_restz00_2092); 
BgL_method3101z00_2082 = 
VECTOR_REF(BgL_bucketz00_2094,BgL_kz00_2106); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method3101z00_2082)(BgL_method3101z00_2082, 
(obj_t)(BgL_nodez00_2080), 
(obj_t)(BgL_oz00_2081), BEOA); } } } } } 
{ /* ./Globalize/escape.scm 203 */
obj_t BgL_arg3891z00_1454;
BgL_arg3891z00_1454 = 
CDR(BgL_l3067z00_1447); 
{ 
obj_t BgL_l3067z00_3056;
BgL_l3067z00_3056 = BgL_arg3891z00_1454; 
BgL_l3067z00_1447 = BgL_l3067z00_3056; 
goto BgL_forzd2each3068zd2_1448;} } }  else 
{ /* ./Globalize/escape.scm 203 */((bool_t)1); } } } } 
{ /* ./Globalize/escape.scm 208 */
BgL_nodez00_bglt BgL_arg3896z00_1455;
BgL_arg3896z00_1455 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1408))->BgL_bodyz00); 
{ /* ./Globalize/escape.scm 208 */
BgL_variablez00_bglt BgL_oz00_2110;
BgL_oz00_2110 = 
(BgL_variablez00_bglt)(BgL_oz00_1409); 
{ /* ./Globalize/escape.scm 208 */
obj_t BgL_method3101z00_2111;
{ /* ./Globalize/escape.scm 208 */
BgL_objectz00_bglt BgL_objz00_2112;
BgL_objz00_2112 = 
(BgL_objectz00_bglt)(BgL_arg3896z00_1455); 
{ /* ./Globalize/escape.scm 208 */
long BgL_objzd2classzd2numz00_2113;
BgL_objzd2classzd2numz00_2113 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2112); 
{ /* ./Globalize/escape.scm 208 */
obj_t BgL_arg2017z00_2114;
{ /* ./Globalize/escape.scm 208 */
int BgL_auxz00_3061;
BgL_auxz00_3061 = 
(int)(((long)1)); 
BgL_arg2017z00_2114 = 
PROCEDURE_REF(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BgL_auxz00_3061); } 
{ /* ./Globalize/escape.scm 208 */
int BgL_offsetz00_2117;
BgL_offsetz00_2117 = 
(int)(BgL_objzd2classzd2numz00_2113); 
{ /* ./Globalize/escape.scm 208 */
long BgL_offsetz00_2118;
{ /* ./Globalize/escape.scm 208 */
long BgL_auxz00_3065;
BgL_auxz00_3065 = 
(long)(BgL_offsetz00_2117); 
BgL_offsetz00_2118 = 
(BgL_auxz00_3065-OBJECT_TYPE); } 
{ /* ./Globalize/escape.scm 208 */
long BgL_modz00_2119;
{ /* ./Globalize/escape.scm 208 */
int BgL_arg2028z00_2120;
BgL_arg2028z00_2120 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 208 */
long BgL_n2z00_2128;
BgL_n2z00_2128 = 
(long)(BgL_arg2028z00_2120); 
BgL_modz00_2119 = 
(BgL_offsetz00_2118/BgL_n2z00_2128); } } 
{ /* ./Globalize/escape.scm 208 */
long BgL_restz00_2121;
{ /* ./Globalize/escape.scm 208 */
int BgL_arg2024z00_2122;
BgL_arg2024z00_2122 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 208 */
long BgL_n2z00_2131;
BgL_n2z00_2131 = 
(long)(BgL_arg2024z00_2122); 
BgL_restz00_2121 = 
(BgL_offsetz00_2118%BgL_n2z00_2131); } } 
{ /* ./Globalize/escape.scm 208 */

{ /* ./Globalize/escape.scm 208 */
obj_t BgL_bucketz00_2123;
{ /* ./Globalize/escape.scm 208 */
int BgL_kz00_2133;
BgL_kz00_2133 = 
(int)(BgL_modz00_2119); 
BgL_bucketz00_2123 = 
VECTOR_REF(BgL_arg2017z00_2114,BgL_kz00_2133); } 
{ /* ./Globalize/escape.scm 208 */
int BgL_kz00_2135;
BgL_kz00_2135 = 
(int)(BgL_restz00_2121); 
BgL_method3101z00_2111 = 
VECTOR_REF(BgL_bucketz00_2123,BgL_kz00_2135); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3101z00_2111)(BgL_method3101z00_2111, 
(obj_t)(BgL_arg3896z00_1455), 
(obj_t)(BgL_oz00_2110), BEOA);} } } } } 
}



/* escape!-select3130 */
obj_t BGl_escapez12zd2select3130zc0zzglobaliza7e_escapeza7(obj_t BgL_envz00_2558, obj_t BgL_nodez00_2559, obj_t BgL_oz00_2560)
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 176 */
{ 
BgL_selectz00_bglt BgL_nodez00_1393;obj_t BgL_oz00_1394;
{ /* ./Globalize/escape.scm 177 */
bool_t BgL_auxz00_3083;
BgL_nodez00_1393 = 
(BgL_selectz00_bglt)(BgL_nodez00_2559); 
BgL_oz00_1394 = BgL_oz00_2560; 
{ /* ./Globalize/escape.scm 178 */
BgL_nodez00_bglt BgL_arg3789z00_1398;
BgL_arg3789z00_1398 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1393))->BgL_testz00); 
{ /* ./Globalize/escape.scm 178 */
BgL_variablez00_bglt BgL_oz00_1998;
BgL_oz00_1998 = 
(BgL_variablez00_bglt)(BgL_oz00_1394); 
{ /* ./Globalize/escape.scm 178 */
obj_t BgL_method3101z00_1999;
{ /* ./Globalize/escape.scm 178 */
BgL_objectz00_bglt BgL_objz00_2000;
BgL_objz00_2000 = 
(BgL_objectz00_bglt)(BgL_arg3789z00_1398); 
{ /* ./Globalize/escape.scm 178 */
long BgL_objzd2classzd2numz00_2001;
BgL_objzd2classzd2numz00_2001 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2000); 
{ /* ./Globalize/escape.scm 178 */
obj_t BgL_arg2017z00_2002;
{ /* ./Globalize/escape.scm 178 */
int BgL_auxz00_3088;
BgL_auxz00_3088 = 
(int)(((long)1)); 
BgL_arg2017z00_2002 = 
PROCEDURE_REF(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BgL_auxz00_3088); } 
{ /* ./Globalize/escape.scm 178 */
int BgL_offsetz00_2005;
BgL_offsetz00_2005 = 
(int)(BgL_objzd2classzd2numz00_2001); 
{ /* ./Globalize/escape.scm 178 */
long BgL_offsetz00_2006;
{ /* ./Globalize/escape.scm 178 */
long BgL_auxz00_3092;
BgL_auxz00_3092 = 
(long)(BgL_offsetz00_2005); 
BgL_offsetz00_2006 = 
(BgL_auxz00_3092-OBJECT_TYPE); } 
{ /* ./Globalize/escape.scm 178 */
long BgL_modz00_2007;
{ /* ./Globalize/escape.scm 178 */
int BgL_arg2028z00_2008;
BgL_arg2028z00_2008 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 178 */
long BgL_n2z00_2016;
BgL_n2z00_2016 = 
(long)(BgL_arg2028z00_2008); 
BgL_modz00_2007 = 
(BgL_offsetz00_2006/BgL_n2z00_2016); } } 
{ /* ./Globalize/escape.scm 178 */
long BgL_restz00_2009;
{ /* ./Globalize/escape.scm 178 */
int BgL_arg2024z00_2010;
BgL_arg2024z00_2010 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 178 */
long BgL_n2z00_2019;
BgL_n2z00_2019 = 
(long)(BgL_arg2024z00_2010); 
BgL_restz00_2009 = 
(BgL_offsetz00_2006%BgL_n2z00_2019); } } 
{ /* ./Globalize/escape.scm 178 */

{ /* ./Globalize/escape.scm 178 */
obj_t BgL_bucketz00_2011;
{ /* ./Globalize/escape.scm 178 */
int BgL_kz00_2021;
BgL_kz00_2021 = 
(int)(BgL_modz00_2007); 
BgL_bucketz00_2011 = 
VECTOR_REF(BgL_arg2017z00_2002,BgL_kz00_2021); } 
{ /* ./Globalize/escape.scm 178 */
int BgL_kz00_2023;
BgL_kz00_2023 = 
(int)(BgL_restz00_2009); 
BgL_method3101z00_1999 = 
VECTOR_REF(BgL_bucketz00_2011,BgL_kz00_2023); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method3101z00_1999)(BgL_method3101z00_1999, 
(obj_t)(BgL_arg3789z00_1398), 
(obj_t)(BgL_oz00_1998), BEOA); } } } 
{ 
obj_t BgL_l3056z00_1399;
{ /* ./Globalize/escape.scm 179 */
obj_t BgL_arg3793z00_1401;
BgL_arg3793z00_1401 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1393))->BgL_clausesz00); 
BgL_l3056z00_1399 = BgL_arg3793z00_1401; 
BgL_forzd2each3057zd2_1400:
{ /* ./Globalize/escape.scm 179 */
bool_t BgL_test3796z00_1402;
BgL_test3796z00_1402 = 
PAIRP(BgL_l3056z00_1399); 
if(BgL_test3796z00_1402)
{ /* ./Globalize/escape.scm 179 */
{ /* ./Globalize/escape.scm 180 */
obj_t BgL_clausez00_1403;
BgL_clausez00_1403 = 
CAR(BgL_l3056z00_1399); 
{ /* ./Globalize/escape.scm 180 */
obj_t BgL_arg3798z00_1404;
BgL_arg3798z00_1404 = 
CDR(BgL_clausez00_1403); 
{ /* ./Globalize/escape.scm 180 */
BgL_nodez00_bglt BgL_nodez00_2028;BgL_variablez00_bglt BgL_oz00_2029;
BgL_nodez00_2028 = 
(BgL_nodez00_bglt)(BgL_arg3798z00_1404); 
BgL_oz00_2029 = 
(BgL_variablez00_bglt)(BgL_oz00_1394); 
{ /* ./Globalize/escape.scm 180 */
obj_t BgL_method3101z00_2030;
{ /* ./Globalize/escape.scm 180 */
BgL_objectz00_bglt BgL_objz00_2031;
BgL_objz00_2031 = 
(BgL_objectz00_bglt)(BgL_nodez00_2028); 
{ /* ./Globalize/escape.scm 180 */
long BgL_objzd2classzd2numz00_2032;
BgL_objzd2classzd2numz00_2032 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2031); 
{ /* ./Globalize/escape.scm 180 */
obj_t BgL_arg2017z00_2033;
{ /* ./Globalize/escape.scm 180 */
int BgL_auxz00_3118;
BgL_auxz00_3118 = 
(int)(((long)1)); 
BgL_arg2017z00_2033 = 
PROCEDURE_REF(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BgL_auxz00_3118); } 
{ /* ./Globalize/escape.scm 180 */
int BgL_offsetz00_2036;
BgL_offsetz00_2036 = 
(int)(BgL_objzd2classzd2numz00_2032); 
{ /* ./Globalize/escape.scm 180 */
long BgL_offsetz00_2037;
{ /* ./Globalize/escape.scm 180 */
long BgL_auxz00_3122;
BgL_auxz00_3122 = 
(long)(BgL_offsetz00_2036); 
BgL_offsetz00_2037 = 
(BgL_auxz00_3122-OBJECT_TYPE); } 
{ /* ./Globalize/escape.scm 180 */
long BgL_modz00_2038;
{ /* ./Globalize/escape.scm 180 */
int BgL_arg2028z00_2039;
BgL_arg2028z00_2039 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 180 */
long BgL_n2z00_2047;
BgL_n2z00_2047 = 
(long)(BgL_arg2028z00_2039); 
BgL_modz00_2038 = 
(BgL_offsetz00_2037/BgL_n2z00_2047); } } 
{ /* ./Globalize/escape.scm 180 */
long BgL_restz00_2040;
{ /* ./Globalize/escape.scm 180 */
int BgL_arg2024z00_2041;
BgL_arg2024z00_2041 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 180 */
long BgL_n2z00_2050;
BgL_n2z00_2050 = 
(long)(BgL_arg2024z00_2041); 
BgL_restz00_2040 = 
(BgL_offsetz00_2037%BgL_n2z00_2050); } } 
{ /* ./Globalize/escape.scm 180 */

{ /* ./Globalize/escape.scm 180 */
obj_t BgL_bucketz00_2042;
{ /* ./Globalize/escape.scm 180 */
int BgL_kz00_2052;
BgL_kz00_2052 = 
(int)(BgL_modz00_2038); 
BgL_bucketz00_2042 = 
VECTOR_REF(BgL_arg2017z00_2033,BgL_kz00_2052); } 
{ /* ./Globalize/escape.scm 180 */
int BgL_kz00_2054;
BgL_kz00_2054 = 
(int)(BgL_restz00_2040); 
BgL_method3101z00_2030 = 
VECTOR_REF(BgL_bucketz00_2042,BgL_kz00_2054); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method3101z00_2030)(BgL_method3101z00_2030, 
(obj_t)(BgL_nodez00_2028), 
(obj_t)(BgL_oz00_2029), BEOA); } } } } 
{ /* ./Globalize/escape.scm 179 */
obj_t BgL_arg3803z00_1405;
BgL_arg3803z00_1405 = 
CDR(BgL_l3056z00_1399); 
{ 
obj_t BgL_l3056z00_3140;
BgL_l3056z00_3140 = BgL_arg3803z00_1405; 
BgL_l3056z00_1399 = BgL_l3056z00_3140; 
goto BgL_forzd2each3057zd2_1400;} } }  else 
{ /* ./Globalize/escape.scm 179 */
BgL_auxz00_3083 = ((bool_t)1); } } } } 
return 
BBOOL(BgL_auxz00_3083);} } } 
}



/* escape!-fail3127 */
obj_t BGl_escapez12zd2fail3127zc0zzglobaliza7e_escapeza7(obj_t BgL_envz00_2561, obj_t BgL_nodez00_2562, obj_t BgL_oz00_2563)
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 167 */
{ 
BgL_failz00_bglt BgL_nodez00_1383;obj_t BgL_oz00_1384;
BgL_nodez00_1383 = 
(BgL_failz00_bglt)(BgL_nodez00_2562); 
BgL_oz00_1384 = BgL_oz00_2563; 
{ /* ./Globalize/escape.scm 169 */
BgL_nodez00_bglt BgL_arg3771z00_1388;
BgL_arg3771z00_1388 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1383))->BgL_procz00); 
{ /* ./Globalize/escape.scm 169 */
BgL_variablez00_bglt BgL_oz00_1914;
BgL_oz00_1914 = 
(BgL_variablez00_bglt)(BgL_oz00_1384); 
{ /* ./Globalize/escape.scm 169 */
obj_t BgL_method3101z00_1915;
{ /* ./Globalize/escape.scm 169 */
BgL_objectz00_bglt BgL_objz00_1916;
BgL_objz00_1916 = 
(BgL_objectz00_bglt)(BgL_arg3771z00_1388); 
{ /* ./Globalize/escape.scm 169 */
long BgL_objzd2classzd2numz00_1917;
BgL_objzd2classzd2numz00_1917 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1916); 
{ /* ./Globalize/escape.scm 169 */
obj_t BgL_arg2017z00_1918;
{ /* ./Globalize/escape.scm 169 */
int BgL_auxz00_3147;
BgL_auxz00_3147 = 
(int)(((long)1)); 
BgL_arg2017z00_1918 = 
PROCEDURE_REF(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BgL_auxz00_3147); } 
{ /* ./Globalize/escape.scm 169 */
int BgL_offsetz00_1921;
BgL_offsetz00_1921 = 
(int)(BgL_objzd2classzd2numz00_1917); 
{ /* ./Globalize/escape.scm 169 */
long BgL_offsetz00_1922;
{ /* ./Globalize/escape.scm 169 */
long BgL_auxz00_3151;
BgL_auxz00_3151 = 
(long)(BgL_offsetz00_1921); 
BgL_offsetz00_1922 = 
(BgL_auxz00_3151-OBJECT_TYPE); } 
{ /* ./Globalize/escape.scm 169 */
long BgL_modz00_1923;
{ /* ./Globalize/escape.scm 169 */
int BgL_arg2028z00_1924;
BgL_arg2028z00_1924 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 169 */
long BgL_n2z00_1932;
BgL_n2z00_1932 = 
(long)(BgL_arg2028z00_1924); 
BgL_modz00_1923 = 
(BgL_offsetz00_1922/BgL_n2z00_1932); } } 
{ /* ./Globalize/escape.scm 169 */
long BgL_restz00_1925;
{ /* ./Globalize/escape.scm 169 */
int BgL_arg2024z00_1926;
BgL_arg2024z00_1926 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 169 */
long BgL_n2z00_1935;
BgL_n2z00_1935 = 
(long)(BgL_arg2024z00_1926); 
BgL_restz00_1925 = 
(BgL_offsetz00_1922%BgL_n2z00_1935); } } 
{ /* ./Globalize/escape.scm 169 */

{ /* ./Globalize/escape.scm 169 */
obj_t BgL_bucketz00_1927;
{ /* ./Globalize/escape.scm 169 */
int BgL_kz00_1937;
BgL_kz00_1937 = 
(int)(BgL_modz00_1923); 
BgL_bucketz00_1927 = 
VECTOR_REF(BgL_arg2017z00_1918,BgL_kz00_1937); } 
{ /* ./Globalize/escape.scm 169 */
int BgL_kz00_1939;
BgL_kz00_1939 = 
(int)(BgL_restz00_1925); 
BgL_method3101z00_1915 = 
VECTOR_REF(BgL_bucketz00_1927,BgL_kz00_1939); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method3101z00_1915)(BgL_method3101z00_1915, 
(obj_t)(BgL_arg3771z00_1388), 
(obj_t)(BgL_oz00_1914), BEOA); } } } 
{ /* ./Globalize/escape.scm 170 */
BgL_nodez00_bglt BgL_arg3775z00_1389;
BgL_arg3775z00_1389 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1383))->BgL_msgz00); 
{ /* ./Globalize/escape.scm 170 */
BgL_variablez00_bglt BgL_oz00_1942;
BgL_oz00_1942 = 
(BgL_variablez00_bglt)(BgL_oz00_1384); 
{ /* ./Globalize/escape.scm 170 */
obj_t BgL_method3101z00_1943;
{ /* ./Globalize/escape.scm 170 */
BgL_objectz00_bglt BgL_objz00_1944;
BgL_objz00_1944 = 
(BgL_objectz00_bglt)(BgL_arg3775z00_1389); 
{ /* ./Globalize/escape.scm 170 */
long BgL_objzd2classzd2numz00_1945;
BgL_objzd2classzd2numz00_1945 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1944); 
{ /* ./Globalize/escape.scm 170 */
obj_t BgL_arg2017z00_1946;
{ /* ./Globalize/escape.scm 170 */
int BgL_auxz00_3172;
BgL_auxz00_3172 = 
(int)(((long)1)); 
BgL_arg2017z00_1946 = 
PROCEDURE_REF(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BgL_auxz00_3172); } 
{ /* ./Globalize/escape.scm 170 */
int BgL_offsetz00_1949;
BgL_offsetz00_1949 = 
(int)(BgL_objzd2classzd2numz00_1945); 
{ /* ./Globalize/escape.scm 170 */
long BgL_offsetz00_1950;
{ /* ./Globalize/escape.scm 170 */
long BgL_auxz00_3176;
BgL_auxz00_3176 = 
(long)(BgL_offsetz00_1949); 
BgL_offsetz00_1950 = 
(BgL_auxz00_3176-OBJECT_TYPE); } 
{ /* ./Globalize/escape.scm 170 */
long BgL_modz00_1951;
{ /* ./Globalize/escape.scm 170 */
int BgL_arg2028z00_1952;
BgL_arg2028z00_1952 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 170 */
long BgL_n2z00_1960;
BgL_n2z00_1960 = 
(long)(BgL_arg2028z00_1952); 
BgL_modz00_1951 = 
(BgL_offsetz00_1950/BgL_n2z00_1960); } } 
{ /* ./Globalize/escape.scm 170 */
long BgL_restz00_1953;
{ /* ./Globalize/escape.scm 170 */
int BgL_arg2024z00_1954;
BgL_arg2024z00_1954 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 170 */
long BgL_n2z00_1963;
BgL_n2z00_1963 = 
(long)(BgL_arg2024z00_1954); 
BgL_restz00_1953 = 
(BgL_offsetz00_1950%BgL_n2z00_1963); } } 
{ /* ./Globalize/escape.scm 170 */

{ /* ./Globalize/escape.scm 170 */
obj_t BgL_bucketz00_1955;
{ /* ./Globalize/escape.scm 170 */
int BgL_kz00_1965;
BgL_kz00_1965 = 
(int)(BgL_modz00_1951); 
BgL_bucketz00_1955 = 
VECTOR_REF(BgL_arg2017z00_1946,BgL_kz00_1965); } 
{ /* ./Globalize/escape.scm 170 */
int BgL_kz00_1967;
BgL_kz00_1967 = 
(int)(BgL_restz00_1953); 
BgL_method3101z00_1943 = 
VECTOR_REF(BgL_bucketz00_1955,BgL_kz00_1967); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method3101z00_1943)(BgL_method3101z00_1943, 
(obj_t)(BgL_arg3775z00_1389), 
(obj_t)(BgL_oz00_1942), BEOA); } } } 
{ /* ./Globalize/escape.scm 171 */
BgL_nodez00_bglt BgL_arg3779z00_1390;
BgL_arg3779z00_1390 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1383))->BgL_objz00); 
{ /* ./Globalize/escape.scm 171 */
BgL_variablez00_bglt BgL_oz00_1970;
BgL_oz00_1970 = 
(BgL_variablez00_bglt)(BgL_oz00_1384); 
{ /* ./Globalize/escape.scm 171 */
obj_t BgL_method3101z00_1971;
{ /* ./Globalize/escape.scm 171 */
BgL_objectz00_bglt BgL_objz00_1972;
BgL_objz00_1972 = 
(BgL_objectz00_bglt)(BgL_arg3779z00_1390); 
{ /* ./Globalize/escape.scm 171 */
long BgL_objzd2classzd2numz00_1973;
BgL_objzd2classzd2numz00_1973 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1972); 
{ /* ./Globalize/escape.scm 171 */
obj_t BgL_arg2017z00_1974;
{ /* ./Globalize/escape.scm 171 */
int BgL_auxz00_3197;
BgL_auxz00_3197 = 
(int)(((long)1)); 
BgL_arg2017z00_1974 = 
PROCEDURE_REF(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BgL_auxz00_3197); } 
{ /* ./Globalize/escape.scm 171 */
int BgL_offsetz00_1977;
BgL_offsetz00_1977 = 
(int)(BgL_objzd2classzd2numz00_1973); 
{ /* ./Globalize/escape.scm 171 */
long BgL_offsetz00_1978;
{ /* ./Globalize/escape.scm 171 */
long BgL_auxz00_3201;
BgL_auxz00_3201 = 
(long)(BgL_offsetz00_1977); 
BgL_offsetz00_1978 = 
(BgL_auxz00_3201-OBJECT_TYPE); } 
{ /* ./Globalize/escape.scm 171 */
long BgL_modz00_1979;
{ /* ./Globalize/escape.scm 171 */
int BgL_arg2028z00_1980;
BgL_arg2028z00_1980 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 171 */
long BgL_n2z00_1988;
BgL_n2z00_1988 = 
(long)(BgL_arg2028z00_1980); 
BgL_modz00_1979 = 
(BgL_offsetz00_1978/BgL_n2z00_1988); } } 
{ /* ./Globalize/escape.scm 171 */
long BgL_restz00_1981;
{ /* ./Globalize/escape.scm 171 */
int BgL_arg2024z00_1982;
BgL_arg2024z00_1982 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 171 */
long BgL_n2z00_1991;
BgL_n2z00_1991 = 
(long)(BgL_arg2024z00_1982); 
BgL_restz00_1981 = 
(BgL_offsetz00_1978%BgL_n2z00_1991); } } 
{ /* ./Globalize/escape.scm 171 */

{ /* ./Globalize/escape.scm 171 */
obj_t BgL_bucketz00_1983;
{ /* ./Globalize/escape.scm 171 */
int BgL_kz00_1993;
BgL_kz00_1993 = 
(int)(BgL_modz00_1979); 
BgL_bucketz00_1983 = 
VECTOR_REF(BgL_arg2017z00_1974,BgL_kz00_1993); } 
{ /* ./Globalize/escape.scm 171 */
int BgL_kz00_1995;
BgL_kz00_1995 = 
(int)(BgL_restz00_1981); 
BgL_method3101z00_1971 = 
VECTOR_REF(BgL_bucketz00_1983,BgL_kz00_1995); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3101z00_1971)(BgL_method3101z00_1971, 
(obj_t)(BgL_arg3779z00_1390), 
(obj_t)(BgL_oz00_1970), BEOA);} } } } } 
}



/* escape!-conditional3125 */
obj_t BGl_escapez12zd2conditional3125zc0zzglobaliza7e_escapeza7(obj_t BgL_envz00_2564, obj_t BgL_nodez00_2565, obj_t BgL_oz00_2566)
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 158 */
{ 
BgL_conditionalz00_bglt BgL_nodez00_1373;obj_t BgL_oz00_1374;
BgL_nodez00_1373 = 
(BgL_conditionalz00_bglt)(BgL_nodez00_2565); 
BgL_oz00_1374 = BgL_oz00_2566; 
{ /* ./Globalize/escape.scm 160 */
BgL_nodez00_bglt BgL_arg3753z00_1378;
BgL_arg3753z00_1378 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1373))->BgL_testz00); 
{ /* ./Globalize/escape.scm 160 */
BgL_variablez00_bglt BgL_oz00_1830;
BgL_oz00_1830 = 
(BgL_variablez00_bglt)(BgL_oz00_1374); 
{ /* ./Globalize/escape.scm 160 */
obj_t BgL_method3101z00_1831;
{ /* ./Globalize/escape.scm 160 */
BgL_objectz00_bglt BgL_objz00_1832;
BgL_objz00_1832 = 
(BgL_objectz00_bglt)(BgL_arg3753z00_1378); 
{ /* ./Globalize/escape.scm 160 */
long BgL_objzd2classzd2numz00_1833;
BgL_objzd2classzd2numz00_1833 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1832); 
{ /* ./Globalize/escape.scm 160 */
obj_t BgL_arg2017z00_1834;
{ /* ./Globalize/escape.scm 160 */
int BgL_auxz00_3223;
BgL_auxz00_3223 = 
(int)(((long)1)); 
BgL_arg2017z00_1834 = 
PROCEDURE_REF(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BgL_auxz00_3223); } 
{ /* ./Globalize/escape.scm 160 */
int BgL_offsetz00_1837;
BgL_offsetz00_1837 = 
(int)(BgL_objzd2classzd2numz00_1833); 
{ /* ./Globalize/escape.scm 160 */
long BgL_offsetz00_1838;
{ /* ./Globalize/escape.scm 160 */
long BgL_auxz00_3227;
BgL_auxz00_3227 = 
(long)(BgL_offsetz00_1837); 
BgL_offsetz00_1838 = 
(BgL_auxz00_3227-OBJECT_TYPE); } 
{ /* ./Globalize/escape.scm 160 */
long BgL_modz00_1839;
{ /* ./Globalize/escape.scm 160 */
int BgL_arg2028z00_1840;
BgL_arg2028z00_1840 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 160 */
long BgL_n2z00_1848;
BgL_n2z00_1848 = 
(long)(BgL_arg2028z00_1840); 
BgL_modz00_1839 = 
(BgL_offsetz00_1838/BgL_n2z00_1848); } } 
{ /* ./Globalize/escape.scm 160 */
long BgL_restz00_1841;
{ /* ./Globalize/escape.scm 160 */
int BgL_arg2024z00_1842;
BgL_arg2024z00_1842 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 160 */
long BgL_n2z00_1851;
BgL_n2z00_1851 = 
(long)(BgL_arg2024z00_1842); 
BgL_restz00_1841 = 
(BgL_offsetz00_1838%BgL_n2z00_1851); } } 
{ /* ./Globalize/escape.scm 160 */

{ /* ./Globalize/escape.scm 160 */
obj_t BgL_bucketz00_1843;
{ /* ./Globalize/escape.scm 160 */
int BgL_kz00_1853;
BgL_kz00_1853 = 
(int)(BgL_modz00_1839); 
BgL_bucketz00_1843 = 
VECTOR_REF(BgL_arg2017z00_1834,BgL_kz00_1853); } 
{ /* ./Globalize/escape.scm 160 */
int BgL_kz00_1855;
BgL_kz00_1855 = 
(int)(BgL_restz00_1841); 
BgL_method3101z00_1831 = 
VECTOR_REF(BgL_bucketz00_1843,BgL_kz00_1855); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method3101z00_1831)(BgL_method3101z00_1831, 
(obj_t)(BgL_arg3753z00_1378), 
(obj_t)(BgL_oz00_1830), BEOA); } } } 
{ /* ./Globalize/escape.scm 161 */
BgL_nodez00_bglt BgL_arg3757z00_1379;
BgL_arg3757z00_1379 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1373))->BgL_truez00); 
{ /* ./Globalize/escape.scm 161 */
BgL_variablez00_bglt BgL_oz00_1858;
BgL_oz00_1858 = 
(BgL_variablez00_bglt)(BgL_oz00_1374); 
{ /* ./Globalize/escape.scm 161 */
obj_t BgL_method3101z00_1859;
{ /* ./Globalize/escape.scm 161 */
BgL_objectz00_bglt BgL_objz00_1860;
BgL_objz00_1860 = 
(BgL_objectz00_bglt)(BgL_arg3757z00_1379); 
{ /* ./Globalize/escape.scm 161 */
long BgL_objzd2classzd2numz00_1861;
BgL_objzd2classzd2numz00_1861 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1860); 
{ /* ./Globalize/escape.scm 161 */
obj_t BgL_arg2017z00_1862;
{ /* ./Globalize/escape.scm 161 */
int BgL_auxz00_3248;
BgL_auxz00_3248 = 
(int)(((long)1)); 
BgL_arg2017z00_1862 = 
PROCEDURE_REF(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BgL_auxz00_3248); } 
{ /* ./Globalize/escape.scm 161 */
int BgL_offsetz00_1865;
BgL_offsetz00_1865 = 
(int)(BgL_objzd2classzd2numz00_1861); 
{ /* ./Globalize/escape.scm 161 */
long BgL_offsetz00_1866;
{ /* ./Globalize/escape.scm 161 */
long BgL_auxz00_3252;
BgL_auxz00_3252 = 
(long)(BgL_offsetz00_1865); 
BgL_offsetz00_1866 = 
(BgL_auxz00_3252-OBJECT_TYPE); } 
{ /* ./Globalize/escape.scm 161 */
long BgL_modz00_1867;
{ /* ./Globalize/escape.scm 161 */
int BgL_arg2028z00_1868;
BgL_arg2028z00_1868 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 161 */
long BgL_n2z00_1876;
BgL_n2z00_1876 = 
(long)(BgL_arg2028z00_1868); 
BgL_modz00_1867 = 
(BgL_offsetz00_1866/BgL_n2z00_1876); } } 
{ /* ./Globalize/escape.scm 161 */
long BgL_restz00_1869;
{ /* ./Globalize/escape.scm 161 */
int BgL_arg2024z00_1870;
BgL_arg2024z00_1870 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 161 */
long BgL_n2z00_1879;
BgL_n2z00_1879 = 
(long)(BgL_arg2024z00_1870); 
BgL_restz00_1869 = 
(BgL_offsetz00_1866%BgL_n2z00_1879); } } 
{ /* ./Globalize/escape.scm 161 */

{ /* ./Globalize/escape.scm 161 */
obj_t BgL_bucketz00_1871;
{ /* ./Globalize/escape.scm 161 */
int BgL_kz00_1881;
BgL_kz00_1881 = 
(int)(BgL_modz00_1867); 
BgL_bucketz00_1871 = 
VECTOR_REF(BgL_arg2017z00_1862,BgL_kz00_1881); } 
{ /* ./Globalize/escape.scm 161 */
int BgL_kz00_1883;
BgL_kz00_1883 = 
(int)(BgL_restz00_1869); 
BgL_method3101z00_1859 = 
VECTOR_REF(BgL_bucketz00_1871,BgL_kz00_1883); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method3101z00_1859)(BgL_method3101z00_1859, 
(obj_t)(BgL_arg3757z00_1379), 
(obj_t)(BgL_oz00_1858), BEOA); } } } 
{ /* ./Globalize/escape.scm 162 */
BgL_nodez00_bglt BgL_arg3761z00_1380;
BgL_arg3761z00_1380 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1373))->BgL_falsez00); 
{ /* ./Globalize/escape.scm 162 */
BgL_variablez00_bglt BgL_oz00_1886;
BgL_oz00_1886 = 
(BgL_variablez00_bglt)(BgL_oz00_1374); 
{ /* ./Globalize/escape.scm 162 */
obj_t BgL_method3101z00_1887;
{ /* ./Globalize/escape.scm 162 */
BgL_objectz00_bglt BgL_objz00_1888;
BgL_objz00_1888 = 
(BgL_objectz00_bglt)(BgL_arg3761z00_1380); 
{ /* ./Globalize/escape.scm 162 */
long BgL_objzd2classzd2numz00_1889;
BgL_objzd2classzd2numz00_1889 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1888); 
{ /* ./Globalize/escape.scm 162 */
obj_t BgL_arg2017z00_1890;
{ /* ./Globalize/escape.scm 162 */
int BgL_auxz00_3273;
BgL_auxz00_3273 = 
(int)(((long)1)); 
BgL_arg2017z00_1890 = 
PROCEDURE_REF(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BgL_auxz00_3273); } 
{ /* ./Globalize/escape.scm 162 */
int BgL_offsetz00_1893;
BgL_offsetz00_1893 = 
(int)(BgL_objzd2classzd2numz00_1889); 
{ /* ./Globalize/escape.scm 162 */
long BgL_offsetz00_1894;
{ /* ./Globalize/escape.scm 162 */
long BgL_auxz00_3277;
BgL_auxz00_3277 = 
(long)(BgL_offsetz00_1893); 
BgL_offsetz00_1894 = 
(BgL_auxz00_3277-OBJECT_TYPE); } 
{ /* ./Globalize/escape.scm 162 */
long BgL_modz00_1895;
{ /* ./Globalize/escape.scm 162 */
int BgL_arg2028z00_1896;
BgL_arg2028z00_1896 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 162 */
long BgL_n2z00_1904;
BgL_n2z00_1904 = 
(long)(BgL_arg2028z00_1896); 
BgL_modz00_1895 = 
(BgL_offsetz00_1894/BgL_n2z00_1904); } } 
{ /* ./Globalize/escape.scm 162 */
long BgL_restz00_1897;
{ /* ./Globalize/escape.scm 162 */
int BgL_arg2024z00_1898;
BgL_arg2024z00_1898 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 162 */
long BgL_n2z00_1907;
BgL_n2z00_1907 = 
(long)(BgL_arg2024z00_1898); 
BgL_restz00_1897 = 
(BgL_offsetz00_1894%BgL_n2z00_1907); } } 
{ /* ./Globalize/escape.scm 162 */

{ /* ./Globalize/escape.scm 162 */
obj_t BgL_bucketz00_1899;
{ /* ./Globalize/escape.scm 162 */
int BgL_kz00_1909;
BgL_kz00_1909 = 
(int)(BgL_modz00_1895); 
BgL_bucketz00_1899 = 
VECTOR_REF(BgL_arg2017z00_1890,BgL_kz00_1909); } 
{ /* ./Globalize/escape.scm 162 */
int BgL_kz00_1911;
BgL_kz00_1911 = 
(int)(BgL_restz00_1897); 
BgL_method3101z00_1887 = 
VECTOR_REF(BgL_bucketz00_1899,BgL_kz00_1911); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3101z00_1887)(BgL_method3101z00_1887, 
(obj_t)(BgL_arg3761z00_1380), 
(obj_t)(BgL_oz00_1886), BEOA);} } } } } 
}



/* escape!-setq3123 */
obj_t BGl_escapez12zd2setq3123zc0zzglobaliza7e_escapeza7(obj_t BgL_envz00_2567, obj_t BgL_nodez00_2568, obj_t BgL_oz00_2569)
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 151 */
{ 
BgL_setqz00_bglt BgL_nodez00_1365;obj_t BgL_oz00_1366;
BgL_nodez00_1365 = 
(BgL_setqz00_bglt)(BgL_nodez00_2568); 
BgL_oz00_1366 = BgL_oz00_2569; 
{ /* ./Globalize/escape.scm 152 */
BgL_nodez00_bglt BgL_arg3743z00_1799;
BgL_arg3743z00_1799 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1365))->BgL_valuez00); 
{ /* ./Globalize/escape.scm 152 */
BgL_variablez00_bglt BgL_oz00_1802;
BgL_oz00_1802 = 
(BgL_variablez00_bglt)(BgL_oz00_1366); 
{ /* ./Globalize/escape.scm 152 */
obj_t BgL_method3101z00_1803;
{ /* ./Globalize/escape.scm 152 */
BgL_objectz00_bglt BgL_objz00_1804;
BgL_objz00_1804 = 
(BgL_objectz00_bglt)(BgL_arg3743z00_1799); 
{ /* ./Globalize/escape.scm 152 */
long BgL_objzd2classzd2numz00_1805;
BgL_objzd2classzd2numz00_1805 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1804); 
{ /* ./Globalize/escape.scm 152 */
obj_t BgL_arg2017z00_1806;
{ /* ./Globalize/escape.scm 152 */
int BgL_auxz00_3299;
BgL_auxz00_3299 = 
(int)(((long)1)); 
BgL_arg2017z00_1806 = 
PROCEDURE_REF(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BgL_auxz00_3299); } 
{ /* ./Globalize/escape.scm 152 */
int BgL_offsetz00_1809;
BgL_offsetz00_1809 = 
(int)(BgL_objzd2classzd2numz00_1805); 
{ /* ./Globalize/escape.scm 152 */
long BgL_offsetz00_1810;
{ /* ./Globalize/escape.scm 152 */
long BgL_auxz00_3303;
BgL_auxz00_3303 = 
(long)(BgL_offsetz00_1809); 
BgL_offsetz00_1810 = 
(BgL_auxz00_3303-OBJECT_TYPE); } 
{ /* ./Globalize/escape.scm 152 */
long BgL_modz00_1811;
{ /* ./Globalize/escape.scm 152 */
int BgL_arg2028z00_1812;
BgL_arg2028z00_1812 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 152 */
long BgL_n2z00_1820;
BgL_n2z00_1820 = 
(long)(BgL_arg2028z00_1812); 
BgL_modz00_1811 = 
(BgL_offsetz00_1810/BgL_n2z00_1820); } } 
{ /* ./Globalize/escape.scm 152 */
long BgL_restz00_1813;
{ /* ./Globalize/escape.scm 152 */
int BgL_arg2024z00_1814;
BgL_arg2024z00_1814 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 152 */
long BgL_n2z00_1823;
BgL_n2z00_1823 = 
(long)(BgL_arg2024z00_1814); 
BgL_restz00_1813 = 
(BgL_offsetz00_1810%BgL_n2z00_1823); } } 
{ /* ./Globalize/escape.scm 152 */

{ /* ./Globalize/escape.scm 152 */
obj_t BgL_bucketz00_1815;
{ /* ./Globalize/escape.scm 152 */
int BgL_kz00_1825;
BgL_kz00_1825 = 
(int)(BgL_modz00_1811); 
BgL_bucketz00_1815 = 
VECTOR_REF(BgL_arg2017z00_1806,BgL_kz00_1825); } 
{ /* ./Globalize/escape.scm 152 */
int BgL_kz00_1827;
BgL_kz00_1827 = 
(int)(BgL_restz00_1813); 
BgL_method3101z00_1803 = 
VECTOR_REF(BgL_bucketz00_1815,BgL_kz00_1827); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3101z00_1803)(BgL_method3101z00_1803, 
(obj_t)(BgL_arg3743z00_1799), 
(obj_t)(BgL_oz00_1802), BEOA);} } } } } 
}



/* escape!-cast3121 */
obj_t BGl_escapez12zd2cast3121zc0zzglobaliza7e_escapeza7(obj_t BgL_envz00_2570, obj_t BgL_nodez00_2571, obj_t BgL_oz00_2572)
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 145 */
{ 
BgL_castz00_bglt BgL_nodez00_1358;obj_t BgL_oz00_1359;
BgL_nodez00_1358 = 
(BgL_castz00_bglt)(BgL_nodez00_2571); 
BgL_oz00_1359 = BgL_oz00_2572; 
{ /* ./Globalize/escape.scm 146 */
BgL_nodez00_bglt BgL_arg3733z00_1769;
BgL_arg3733z00_1769 = 
(((BgL_castz00_bglt)CREF(BgL_nodez00_1358))->BgL_argz00); 
{ /* ./Globalize/escape.scm 146 */
BgL_variablez00_bglt BgL_oz00_1772;
BgL_oz00_1772 = 
(BgL_variablez00_bglt)(BgL_oz00_1359); 
{ /* ./Globalize/escape.scm 146 */
obj_t BgL_method3101z00_1773;
{ /* ./Globalize/escape.scm 146 */
BgL_objectz00_bglt BgL_objz00_1774;
BgL_objz00_1774 = 
(BgL_objectz00_bglt)(BgL_arg3733z00_1769); 
{ /* ./Globalize/escape.scm 146 */
long BgL_objzd2classzd2numz00_1775;
BgL_objzd2classzd2numz00_1775 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1774); 
{ /* ./Globalize/escape.scm 146 */
obj_t BgL_arg2017z00_1776;
{ /* ./Globalize/escape.scm 146 */
int BgL_auxz00_3325;
BgL_auxz00_3325 = 
(int)(((long)1)); 
BgL_arg2017z00_1776 = 
PROCEDURE_REF(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BgL_auxz00_3325); } 
{ /* ./Globalize/escape.scm 146 */
int BgL_offsetz00_1779;
BgL_offsetz00_1779 = 
(int)(BgL_objzd2classzd2numz00_1775); 
{ /* ./Globalize/escape.scm 146 */
long BgL_offsetz00_1780;
{ /* ./Globalize/escape.scm 146 */
long BgL_auxz00_3329;
BgL_auxz00_3329 = 
(long)(BgL_offsetz00_1779); 
BgL_offsetz00_1780 = 
(BgL_auxz00_3329-OBJECT_TYPE); } 
{ /* ./Globalize/escape.scm 146 */
long BgL_modz00_1781;
{ /* ./Globalize/escape.scm 146 */
int BgL_arg2028z00_1782;
BgL_arg2028z00_1782 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 146 */
long BgL_n2z00_1790;
BgL_n2z00_1790 = 
(long)(BgL_arg2028z00_1782); 
BgL_modz00_1781 = 
(BgL_offsetz00_1780/BgL_n2z00_1790); } } 
{ /* ./Globalize/escape.scm 146 */
long BgL_restz00_1783;
{ /* ./Globalize/escape.scm 146 */
int BgL_arg2024z00_1784;
BgL_arg2024z00_1784 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 146 */
long BgL_n2z00_1793;
BgL_n2z00_1793 = 
(long)(BgL_arg2024z00_1784); 
BgL_restz00_1783 = 
(BgL_offsetz00_1780%BgL_n2z00_1793); } } 
{ /* ./Globalize/escape.scm 146 */

{ /* ./Globalize/escape.scm 146 */
obj_t BgL_bucketz00_1785;
{ /* ./Globalize/escape.scm 146 */
int BgL_kz00_1795;
BgL_kz00_1795 = 
(int)(BgL_modz00_1781); 
BgL_bucketz00_1785 = 
VECTOR_REF(BgL_arg2017z00_1776,BgL_kz00_1795); } 
{ /* ./Globalize/escape.scm 146 */
int BgL_kz00_1797;
BgL_kz00_1797 = 
(int)(BgL_restz00_1783); 
BgL_method3101z00_1773 = 
VECTOR_REF(BgL_bucketz00_1785,BgL_kz00_1797); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3101z00_1773)(BgL_method3101z00_1773, 
(obj_t)(BgL_arg3733z00_1769), 
(obj_t)(BgL_oz00_1772), BEOA);} } } } } 
}



/* escape!-extern3119 */
obj_t BGl_escapez12zd2extern3119zc0zzglobaliza7e_escapeza7(obj_t BgL_envz00_2573, obj_t BgL_nodez00_2574, obj_t BgL_oz00_2575)
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 139 */
{ 
BgL_externz00_bglt BgL_nodez00_1351;obj_t BgL_oz00_1352;
{ /* ./Globalize/escape.scm 140 */
bool_t BgL_auxz00_3347;
BgL_nodez00_1351 = 
(BgL_externz00_bglt)(BgL_nodez00_2574); 
BgL_oz00_1352 = BgL_oz00_2575; 
{ /* ./Globalize/escape.scm 140 */
obj_t BgL_arg3723z00_1767;
BgL_arg3723z00_1767 = 
(((BgL_externz00_bglt)CREF(BgL_nodez00_1351))->BgL_exprza2za2); 
BgL_auxz00_3347 = 
BGl_escapeza2z12zb0zzglobaliza7e_escapeza7(BgL_arg3723z00_1767, BgL_oz00_1352); } 
return 
BBOOL(BgL_auxz00_3347);} } } 
}



/* escape!-funcall3117 */
obj_t BGl_escapez12zd2funcall3117zc0zzglobaliza7e_escapeza7(obj_t BgL_envz00_2576, obj_t BgL_nodez00_2577, obj_t BgL_oz00_2578)
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 131 */
{ 
BgL_funcallz00_bglt BgL_nodez00_1342;obj_t BgL_oz00_1343;
{ /* ./Globalize/escape.scm 132 */
bool_t BgL_auxz00_3352;
BgL_nodez00_1342 = 
(BgL_funcallz00_bglt)(BgL_nodez00_2577); 
BgL_oz00_1343 = BgL_oz00_2578; 
{ /* ./Globalize/escape.scm 132 */
BgL_nodez00_bglt BgL_arg3709z00_1736;
BgL_arg3709z00_1736 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1342))->BgL_funz00); 
{ /* ./Globalize/escape.scm 132 */
BgL_variablez00_bglt BgL_oz00_1740;
BgL_oz00_1740 = 
(BgL_variablez00_bglt)(BgL_oz00_1343); 
{ /* ./Globalize/escape.scm 132 */
obj_t BgL_method3101z00_1741;
{ /* ./Globalize/escape.scm 132 */
BgL_objectz00_bglt BgL_objz00_1742;
BgL_objz00_1742 = 
(BgL_objectz00_bglt)(BgL_arg3709z00_1736); 
{ /* ./Globalize/escape.scm 132 */
long BgL_objzd2classzd2numz00_1743;
BgL_objzd2classzd2numz00_1743 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1742); 
{ /* ./Globalize/escape.scm 132 */
obj_t BgL_arg2017z00_1744;
{ /* ./Globalize/escape.scm 132 */
int BgL_auxz00_3357;
BgL_auxz00_3357 = 
(int)(((long)1)); 
BgL_arg2017z00_1744 = 
PROCEDURE_REF(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BgL_auxz00_3357); } 
{ /* ./Globalize/escape.scm 132 */
int BgL_offsetz00_1747;
BgL_offsetz00_1747 = 
(int)(BgL_objzd2classzd2numz00_1743); 
{ /* ./Globalize/escape.scm 132 */
long BgL_offsetz00_1748;
{ /* ./Globalize/escape.scm 132 */
long BgL_auxz00_3361;
BgL_auxz00_3361 = 
(long)(BgL_offsetz00_1747); 
BgL_offsetz00_1748 = 
(BgL_auxz00_3361-OBJECT_TYPE); } 
{ /* ./Globalize/escape.scm 132 */
long BgL_modz00_1749;
{ /* ./Globalize/escape.scm 132 */
int BgL_arg2028z00_1750;
BgL_arg2028z00_1750 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 132 */
long BgL_n2z00_1758;
BgL_n2z00_1758 = 
(long)(BgL_arg2028z00_1750); 
BgL_modz00_1749 = 
(BgL_offsetz00_1748/BgL_n2z00_1758); } } 
{ /* ./Globalize/escape.scm 132 */
long BgL_restz00_1751;
{ /* ./Globalize/escape.scm 132 */
int BgL_arg2024z00_1752;
BgL_arg2024z00_1752 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 132 */
long BgL_n2z00_1761;
BgL_n2z00_1761 = 
(long)(BgL_arg2024z00_1752); 
BgL_restz00_1751 = 
(BgL_offsetz00_1748%BgL_n2z00_1761); } } 
{ /* ./Globalize/escape.scm 132 */

{ /* ./Globalize/escape.scm 132 */
obj_t BgL_bucketz00_1753;
{ /* ./Globalize/escape.scm 132 */
int BgL_kz00_1763;
BgL_kz00_1763 = 
(int)(BgL_modz00_1749); 
BgL_bucketz00_1753 = 
VECTOR_REF(BgL_arg2017z00_1744,BgL_kz00_1763); } 
{ /* ./Globalize/escape.scm 132 */
int BgL_kz00_1765;
BgL_kz00_1765 = 
(int)(BgL_restz00_1751); 
BgL_method3101z00_1741 = 
VECTOR_REF(BgL_bucketz00_1753,BgL_kz00_1765); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method3101z00_1741)(BgL_method3101z00_1741, 
(obj_t)(BgL_arg3709z00_1736), 
(obj_t)(BgL_oz00_1740), BEOA); } } } 
{ /* ./Globalize/escape.scm 132 */
obj_t BgL_arg3713z00_1737;
BgL_arg3713z00_1737 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1342))->BgL_argsz00); 
BgL_auxz00_3352 = 
BGl_escapeza2z12zb0zzglobaliza7e_escapeza7(BgL_arg3713z00_1737, BgL_oz00_1343); } 
return 
BBOOL(BgL_auxz00_3352);} } } 
}



/* escape!-app-ly3115 */
obj_t BGl_escapez12zd2appzd2ly3115z12zzglobaliza7e_escapeza7(obj_t BgL_envz00_2579, obj_t BgL_nodez00_2580, obj_t BgL_oz00_2581)
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 123 */
{ 
BgL_appzd2lyzd2_bglt BgL_nodez00_1333;obj_t BgL_oz00_1334;
BgL_nodez00_1333 = 
(BgL_appzd2lyzd2_bglt)(BgL_nodez00_2580); 
BgL_oz00_1334 = BgL_oz00_2581; 
{ /* ./Globalize/escape.scm 124 */
BgL_nodez00_bglt BgL_arg3695z00_1677;
BgL_arg3695z00_1677 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1333))->BgL_funz00); 
{ /* ./Globalize/escape.scm 124 */
BgL_variablez00_bglt BgL_oz00_1681;
BgL_oz00_1681 = 
(BgL_variablez00_bglt)(BgL_oz00_1334); 
{ /* ./Globalize/escape.scm 124 */
obj_t BgL_method3101z00_1682;
{ /* ./Globalize/escape.scm 124 */
BgL_objectz00_bglt BgL_objz00_1683;
BgL_objz00_1683 = 
(BgL_objectz00_bglt)(BgL_arg3695z00_1677); 
{ /* ./Globalize/escape.scm 124 */
long BgL_objzd2classzd2numz00_1684;
BgL_objzd2classzd2numz00_1684 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1683); 
{ /* ./Globalize/escape.scm 124 */
obj_t BgL_arg2017z00_1685;
{ /* ./Globalize/escape.scm 124 */
int BgL_auxz00_3386;
BgL_auxz00_3386 = 
(int)(((long)1)); 
BgL_arg2017z00_1685 = 
PROCEDURE_REF(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BgL_auxz00_3386); } 
{ /* ./Globalize/escape.scm 124 */
int BgL_offsetz00_1688;
BgL_offsetz00_1688 = 
(int)(BgL_objzd2classzd2numz00_1684); 
{ /* ./Globalize/escape.scm 124 */
long BgL_offsetz00_1689;
{ /* ./Globalize/escape.scm 124 */
long BgL_auxz00_3390;
BgL_auxz00_3390 = 
(long)(BgL_offsetz00_1688); 
BgL_offsetz00_1689 = 
(BgL_auxz00_3390-OBJECT_TYPE); } 
{ /* ./Globalize/escape.scm 124 */
long BgL_modz00_1690;
{ /* ./Globalize/escape.scm 124 */
int BgL_arg2028z00_1691;
BgL_arg2028z00_1691 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 124 */
long BgL_n2z00_1699;
BgL_n2z00_1699 = 
(long)(BgL_arg2028z00_1691); 
BgL_modz00_1690 = 
(BgL_offsetz00_1689/BgL_n2z00_1699); } } 
{ /* ./Globalize/escape.scm 124 */
long BgL_restz00_1692;
{ /* ./Globalize/escape.scm 124 */
int BgL_arg2024z00_1693;
BgL_arg2024z00_1693 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 124 */
long BgL_n2z00_1702;
BgL_n2z00_1702 = 
(long)(BgL_arg2024z00_1693); 
BgL_restz00_1692 = 
(BgL_offsetz00_1689%BgL_n2z00_1702); } } 
{ /* ./Globalize/escape.scm 124 */

{ /* ./Globalize/escape.scm 124 */
obj_t BgL_bucketz00_1694;
{ /* ./Globalize/escape.scm 124 */
int BgL_kz00_1704;
BgL_kz00_1704 = 
(int)(BgL_modz00_1690); 
BgL_bucketz00_1694 = 
VECTOR_REF(BgL_arg2017z00_1685,BgL_kz00_1704); } 
{ /* ./Globalize/escape.scm 124 */
int BgL_kz00_1706;
BgL_kz00_1706 = 
(int)(BgL_restz00_1692); 
BgL_method3101z00_1682 = 
VECTOR_REF(BgL_bucketz00_1694,BgL_kz00_1706); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method3101z00_1682)(BgL_method3101z00_1682, 
(obj_t)(BgL_arg3695z00_1677), 
(obj_t)(BgL_oz00_1681), BEOA); } } } 
{ /* ./Globalize/escape.scm 124 */
BgL_nodez00_bglt BgL_arg3699z00_1678;
BgL_arg3699z00_1678 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1333))->BgL_argz00); 
{ /* ./Globalize/escape.scm 124 */
BgL_variablez00_bglt BgL_oz00_1709;
BgL_oz00_1709 = 
(BgL_variablez00_bglt)(BgL_oz00_1334); 
{ /* ./Globalize/escape.scm 124 */
obj_t BgL_method3101z00_1710;
{ /* ./Globalize/escape.scm 124 */
BgL_objectz00_bglt BgL_objz00_1711;
BgL_objz00_1711 = 
(BgL_objectz00_bglt)(BgL_arg3699z00_1678); 
{ /* ./Globalize/escape.scm 124 */
long BgL_objzd2classzd2numz00_1712;
BgL_objzd2classzd2numz00_1712 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1711); 
{ /* ./Globalize/escape.scm 124 */
obj_t BgL_arg2017z00_1713;
{ /* ./Globalize/escape.scm 124 */
int BgL_auxz00_3411;
BgL_auxz00_3411 = 
(int)(((long)1)); 
BgL_arg2017z00_1713 = 
PROCEDURE_REF(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BgL_auxz00_3411); } 
{ /* ./Globalize/escape.scm 124 */
int BgL_offsetz00_1716;
BgL_offsetz00_1716 = 
(int)(BgL_objzd2classzd2numz00_1712); 
{ /* ./Globalize/escape.scm 124 */
long BgL_offsetz00_1717;
{ /* ./Globalize/escape.scm 124 */
long BgL_auxz00_3415;
BgL_auxz00_3415 = 
(long)(BgL_offsetz00_1716); 
BgL_offsetz00_1717 = 
(BgL_auxz00_3415-OBJECT_TYPE); } 
{ /* ./Globalize/escape.scm 124 */
long BgL_modz00_1718;
{ /* ./Globalize/escape.scm 124 */
int BgL_arg2028z00_1719;
BgL_arg2028z00_1719 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 124 */
long BgL_n2z00_1727;
BgL_n2z00_1727 = 
(long)(BgL_arg2028z00_1719); 
BgL_modz00_1718 = 
(BgL_offsetz00_1717/BgL_n2z00_1727); } } 
{ /* ./Globalize/escape.scm 124 */
long BgL_restz00_1720;
{ /* ./Globalize/escape.scm 124 */
int BgL_arg2024z00_1721;
BgL_arg2024z00_1721 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 124 */
long BgL_n2z00_1730;
BgL_n2z00_1730 = 
(long)(BgL_arg2024z00_1721); 
BgL_restz00_1720 = 
(BgL_offsetz00_1717%BgL_n2z00_1730); } } 
{ /* ./Globalize/escape.scm 124 */

{ /* ./Globalize/escape.scm 124 */
obj_t BgL_bucketz00_1722;
{ /* ./Globalize/escape.scm 124 */
int BgL_kz00_1732;
BgL_kz00_1732 = 
(int)(BgL_modz00_1718); 
BgL_bucketz00_1722 = 
VECTOR_REF(BgL_arg2017z00_1713,BgL_kz00_1732); } 
{ /* ./Globalize/escape.scm 124 */
int BgL_kz00_1734;
BgL_kz00_1734 = 
(int)(BgL_restz00_1720); 
BgL_method3101z00_1710 = 
VECTOR_REF(BgL_bucketz00_1722,BgL_kz00_1734); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3101z00_1710)(BgL_method3101z00_1710, 
(obj_t)(BgL_arg3699z00_1678), 
(obj_t)(BgL_oz00_1709), BEOA);} } } } } 
}



/* escape!-app3113 */
obj_t BGl_escapez12zd2app3113zc0zzglobaliza7e_escapeza7(obj_t BgL_envz00_2582, obj_t BgL_nodez00_2583, obj_t BgL_oz00_2584)
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 116 */
{ 
BgL_appz00_bglt BgL_nodez00_1325;obj_t BgL_oz00_1326;
{ /* ./Globalize/escape.scm 117 */
bool_t BgL_auxz00_3433;
BgL_nodez00_1325 = 
(BgL_appz00_bglt)(BgL_nodez00_2583); 
BgL_oz00_1326 = BgL_oz00_2584; 
{ /* ./Globalize/escape.scm 117 */
obj_t BgL_arg3685z00_1674;
BgL_arg3685z00_1674 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1325))->BgL_argsz00); 
BgL_auxz00_3433 = 
BGl_escapeza2z12zb0zzglobaliza7e_escapeza7(BgL_arg3685z00_1674, BgL_oz00_1326); } 
return 
BBOOL(BgL_auxz00_3433);} } } 
}



/* escape!-sequence3111 */
obj_t BGl_escapez12zd2sequence3111zc0zzglobaliza7e_escapeza7(obj_t BgL_envz00_2585, obj_t BgL_nodez00_2586, obj_t BgL_oz00_2587)
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 110 */
{ 
BgL_sequencez00_bglt BgL_nodez00_1318;obj_t BgL_oz00_1319;
{ /* ./Globalize/escape.scm 111 */
bool_t BgL_auxz00_3438;
BgL_nodez00_1318 = 
(BgL_sequencez00_bglt)(BgL_nodez00_2586); 
BgL_oz00_1319 = BgL_oz00_2587; 
{ /* ./Globalize/escape.scm 111 */
obj_t BgL_arg3675z00_1671;
BgL_arg3675z00_1671 = 
(((BgL_sequencez00_bglt)CREF(BgL_nodez00_1318))->BgL_nodesz00); 
BgL_auxz00_3438 = 
BGl_escapeza2z12zb0zzglobaliza7e_escapeza7(BgL_arg3675z00_1671, BgL_oz00_1319); } 
return 
BBOOL(BgL_auxz00_3438);} } } 
}



/* escape!-closure3109 */
obj_t BGl_escapez12zd2closure3109zc0zzglobaliza7e_escapeza7(obj_t BgL_envz00_2588, obj_t BgL_nodez00_2589, obj_t BgL_oz00_2590)
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 104 */
{ 
BgL_closurez00_bglt BgL_nodez00_1311;obj_t BgL_oz00_1312;
BgL_nodez00_1311 = 
(BgL_closurez00_bglt)(BgL_nodez00_2589); 
BgL_oz00_1312 = BgL_oz00_2590; 
{ /* ./Globalize/escape.scm 105 */
BgL_variablez00_bglt BgL_arg3665z00_1643;
{ /* ./Globalize/escape.scm 105 */
BgL_varz00_bglt BgL_obj1625z00_1644;
BgL_obj1625z00_1644 = 
(BgL_varz00_bglt)(BgL_nodez00_1311); 
BgL_arg3665z00_1643 = 
(((BgL_varz00_bglt)CREF(BgL_obj1625z00_1644))->BgL_variablez00); } 
{ /* ./Globalize/escape.scm 105 */
obj_t BgL_method3092z00_1646;
{ /* ./Globalize/escape.scm 105 */
BgL_objectz00_bglt BgL_objz00_1647;
BgL_objz00_1647 = 
(BgL_objectz00_bglt)(BgL_arg3665z00_1643); 
{ /* ./Globalize/escape.scm 105 */
long BgL_objzd2classzd2numz00_1648;
BgL_objzd2classzd2numz00_1648 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1647); 
{ /* ./Globalize/escape.scm 105 */
obj_t BgL_arg2017z00_1649;
{ /* ./Globalize/escape.scm 105 */
int BgL_auxz00_3447;
BgL_auxz00_3447 = 
(int)(((long)1)); 
BgL_arg2017z00_1649 = 
PROCEDURE_REF(BGl_setzd2escapingzd2funz12zd2envzc0zzglobaliza7e_escapeza7, BgL_auxz00_3447); } 
{ /* ./Globalize/escape.scm 105 */
int BgL_offsetz00_1652;
BgL_offsetz00_1652 = 
(int)(BgL_objzd2classzd2numz00_1648); 
{ /* ./Globalize/escape.scm 105 */
long BgL_offsetz00_1653;
{ /* ./Globalize/escape.scm 105 */
long BgL_auxz00_3451;
BgL_auxz00_3451 = 
(long)(BgL_offsetz00_1652); 
BgL_offsetz00_1653 = 
(BgL_auxz00_3451-OBJECT_TYPE); } 
{ /* ./Globalize/escape.scm 105 */
long BgL_modz00_1654;
{ /* ./Globalize/escape.scm 105 */
int BgL_arg2028z00_1655;
BgL_arg2028z00_1655 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 105 */
long BgL_n2z00_1663;
BgL_n2z00_1663 = 
(long)(BgL_arg2028z00_1655); 
BgL_modz00_1654 = 
(BgL_offsetz00_1653/BgL_n2z00_1663); } } 
{ /* ./Globalize/escape.scm 105 */
long BgL_restz00_1656;
{ /* ./Globalize/escape.scm 105 */
int BgL_arg2024z00_1657;
BgL_arg2024z00_1657 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 105 */
long BgL_n2z00_1666;
BgL_n2z00_1666 = 
(long)(BgL_arg2024z00_1657); 
BgL_restz00_1656 = 
(BgL_offsetz00_1653%BgL_n2z00_1666); } } 
{ /* ./Globalize/escape.scm 105 */

{ /* ./Globalize/escape.scm 105 */
obj_t BgL_bucketz00_1658;
{ /* ./Globalize/escape.scm 105 */
int BgL_kz00_1668;
BgL_kz00_1668 = 
(int)(BgL_modz00_1654); 
BgL_bucketz00_1658 = 
VECTOR_REF(BgL_arg2017z00_1649,BgL_kz00_1668); } 
{ /* ./Globalize/escape.scm 105 */
int BgL_kz00_1670;
BgL_kz00_1670 = 
(int)(BgL_restz00_1656); 
BgL_method3092z00_1646 = 
VECTOR_REF(BgL_bucketz00_1658,BgL_kz00_1670); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3092z00_1646)(BgL_method3092z00_1646, 
(obj_t)(BgL_arg3665z00_1643), BEOA);} } } } 
}



/* escape!-var3107 */
obj_t BGl_escapez12zd2var3107zc0zzglobaliza7e_escapeza7(obj_t BgL_envz00_2591, obj_t BgL_nodez00_2592, obj_t BgL_oz00_2593)
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 98 */
{ /* ./Globalize/escape.scm 99 */
obj_t BgL_res4754z00_2627;
BgL_res4754z00_2627 = 
CNST_TABLE_REF(((long)0)); 
return BgL_res4754z00_2627;} } 
}



/* escape!-kwote3105 */
obj_t BGl_escapez12zd2kwote3105zc0zzglobaliza7e_escapeza7(obj_t BgL_envz00_2594, obj_t BgL_nodez00_2595, obj_t BgL_oz00_2596)
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 92 */
{ /* ./Globalize/escape.scm 93 */
obj_t BgL_res4755z00_2630;
BgL_res4755z00_2630 = 
CNST_TABLE_REF(((long)0)); 
return BgL_res4755z00_2630;} } 
}



/* escape!-atom3103 */
obj_t BGl_escapez12zd2atom3103zc0zzglobaliza7e_escapeza7(obj_t BgL_envz00_2597, obj_t BgL_nodez00_2598, obj_t BgL_oz00_2599)
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 86 */
{ /* ./Globalize/escape.scm 87 */
obj_t BgL_res4756z00_2633;
BgL_res4756z00_2633 = 
CNST_TABLE_REF(((long)0)); 
return BgL_res4756z00_2633;} } 
}



/* set-escaping-fun!-local/Ginfo3099 */
obj_t BGl_setzd2escapingzd2funz12zd2localzf2Ginfo3099z32zzglobaliza7e_escapeza7(obj_t BgL_envz00_2600, obj_t BgL_variablez00_2601)
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 75 */
{ 
BgL_localzf2ginfozf2_bglt BgL_variablez00_1288;
BgL_variablez00_1288 = 
(BgL_localzf2ginfozf2_bglt)(BgL_variablez00_2601); 
{ /* ./Globalize/escape.scm 76 */
bool_t BgL_val2926z00_1642;
BgL_val2926z00_1642 = ((bool_t)1); 
{ 
obj_t BgL_auxz00_3471;
{ /* ./Globalize/escape.scm 76 */
BgL_objectz00_bglt BgL_auxz00_3472;
BgL_auxz00_3472 = 
(BgL_objectz00_bglt)(BgL_variablez00_1288); 
BgL_auxz00_3471 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3472); } 
return 
((((BgL_localzf2ginfozf2_bglt)CREF(BgL_auxz00_3471))->BgL_escapezf3zf3) = ((bool_t)BgL_val2926z00_1642), BUNSPEC);} } } } 
}



/* set-escaping-fun!-global/Ginfo3096 */
obj_t BGl_setzd2escapingzd2funz12zd2globalzf2Ginfo3096z32zzglobaliza7e_escapeza7(obj_t BgL_envz00_2602, obj_t BgL_variablez00_2603)
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 69 */
{ 
BgL_globalzf2ginfozf2_bglt BgL_variablez00_1283;
BgL_variablez00_1283 = 
(BgL_globalzf2ginfozf2_bglt)(BgL_variablez00_2603); 
{ /* ./Globalize/escape.scm 70 */
bool_t BgL_val2981z00_1640;
BgL_val2981z00_1640 = ((bool_t)1); 
{ 
obj_t BgL_auxz00_3477;
{ /* ./Globalize/escape.scm 70 */
BgL_objectz00_bglt BgL_auxz00_3478;
BgL_auxz00_3478 = 
(BgL_objectz00_bglt)(BgL_variablez00_1283); 
BgL_auxz00_3477 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3478); } 
return 
((((BgL_globalzf2ginfozf2_bglt)CREF(BgL_auxz00_3477))->BgL_escapezf3zf3) = ((bool_t)BgL_val2981z00_1640), BUNSPEC);} } } } 
}



/* set-escaping-fun!-global3094 */
obj_t BGl_setzd2escapingzd2funz12zd2global3094zc0zzglobaliza7e_escapeza7(obj_t BgL_envz00_2604, obj_t BgL_variablez00_2605)
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 63 */
{ 
BgL_globalz00_bglt BgL_variablez00_1274;
{ /* ./Globalize/escape.scm 64 */
BgL_globalz00_bglt BgL_auxz00_3483;
BgL_variablez00_1274 = 
(BgL_globalz00_bglt)(BgL_variablez00_2605); 
{ /* ./Globalize/escape.scm 64 */
BgL_globalz00_bglt BgL_obj3041z00_1277;
BgL_obj3041z00_1277 = 
((BgL_globalz00_bglt)BgL_variablez00_1274); 
{ /* ./Globalize/escape.scm 64 */
obj_t BgL_arg3615z00_1278;
{ /* ./Globalize/escape.scm 64 */
bool_t BgL_arg3618z00_1279;
BgL_arg3618z00_1279 = ((bool_t)1); 
BgL_arg3615z00_1278 = 
BGl_wideningzd2globalzf2Ginfoz20zzglobaliza7e_ginfoza7(BgL_arg3618z00_1279, BFALSE); } 
{ /* ./Globalize/escape.scm 64 */
BgL_objectz00_bglt BgL_auxz00_3486;
BgL_auxz00_3486 = 
(BgL_objectz00_bglt)(BgL_obj3041z00_1277); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3486, BgL_arg3615z00_1278); } } 
{ /* ./Globalize/escape.scm 64 */
long BgL_arg3621z00_1280;
BgL_arg3621z00_1280 = 
BGl_classzd2numzd2zz__objectz00(BGl_globalzf2Ginfozf2zzglobaliza7e_ginfoza7); 
{ /* ./Globalize/escape.scm 64 */
BgL_objectz00_bglt BgL_objz00_1636;
BgL_objz00_1636 = 
(BgL_objectz00_bglt)(BgL_obj3041z00_1277); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1636, BgL_arg3621z00_1280); } } 
{ /* ./Globalize/escape.scm 64 */
obj_t BgL_objz00_1638;
BgL_objz00_1638 = 
(obj_t)(BgL_obj3041z00_1277); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_1638); BUNSPEC; } 
BgL_auxz00_3483 = BgL_obj3041z00_1277; } 
return 
(obj_t)(BgL_auxz00_3483);} } } 
}



/* escape-fun!-local3090 */
obj_t BGl_escapezd2funz12zd2local3090z12zzglobaliza7e_escapeza7(obj_t BgL_envz00_2606, obj_t BgL_variablez00_2607)
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 47 */
{ 
BgL_localz00_bglt BgL_variablez00_1265;
BgL_variablez00_1265 = 
(BgL_localz00_bglt)(BgL_variablez00_2607); 
{ 

{ /* ./Globalize/escape.scm 48 */
bool_t BgL_test3595z00_1268;
{ /* ./Globalize/escape.scm 48 */
obj_t BgL_obj2924z00_1605;
BgL_obj2924z00_1605 = 
(obj_t)(BgL_variablez00_1265); 
BgL_test3595z00_1268 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2924z00_1605, BGl_localzf2Ginfozf2zzglobaliza7e_ginfoza7); } 
if(BgL_test3595z00_1268)
{ /* ./Globalize/escape.scm 48 */BFALSE; }  else 
{ /* ./Globalize/escape.scm 49 */
BgL_localz00_bglt BgL_obj3040z00_1269;
BgL_obj3040z00_1269 = 
((BgL_localz00_bglt)BgL_variablez00_1265); 
{ /* ./Globalize/escape.scm 49 */
obj_t BgL_arg3597z00_1270;
BgL_arg3597z00_1270 = 
BGl_wideningzd2localzf2Ginfoz20zzglobaliza7e_ginfoza7(((bool_t)0)); 
{ /* ./Globalize/escape.scm 49 */
BgL_objectz00_bglt BgL_auxz00_3501;
BgL_auxz00_3501 = 
(BgL_objectz00_bglt)(BgL_obj3040z00_1269); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3501, BgL_arg3597z00_1270); } } 
{ /* ./Globalize/escape.scm 49 */
long BgL_arg3601z00_1271;
BgL_arg3601z00_1271 = 
BGl_classzd2numzd2zz__objectz00(BGl_localzf2Ginfozf2zzglobaliza7e_ginfoza7); 
{ /* ./Globalize/escape.scm 49 */
BgL_objectz00_bglt BgL_objz00_1606;
BgL_objz00_1606 = 
(BgL_objectz00_bglt)(BgL_obj3040z00_1269); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1606, BgL_arg3601z00_1271); } } 
{ /* ./Globalize/escape.scm 49 */
obj_t BgL_objz00_1608;
BgL_objz00_1608 = 
(obj_t)(BgL_obj3040z00_1269); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_1608); BUNSPEC; } 
(obj_t)(BgL_obj3040z00_1269); } } 
{ /* ./Globalize/escape.scm 47 */
obj_t BgL_nextzd2method3089zd2_1272;
BgL_nextzd2method3089zd2_1272 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_variablez00_1265), BGl_escapezd2funz12zd2envz12zzglobaliza7e_escapeza7, BGl_localz00zzast_varz00); 
{ /* ./Globalize/escape.scm 47 */
bool_t BgL_test3607z00_1273;
BgL_test3607z00_1273 = 
PROCEDUREP(BgL_nextzd2method3089zd2_1272); 
if(BgL_test3607z00_1273)
{ /* ./Globalize/escape.scm 47 */
return 
PROCEDURE_ENTRY(BgL_nextzd2method3089zd2_1272)(BgL_nextzd2method3089zd2_1272, 
(obj_t)(BgL_variablez00_1265), BEOA);}  else 
{ /* ./Globalize/escape.scm 47 */
{ /* ./Globalize/escape.scm 47 */
BgL_variablez00_bglt BgL_variablez00_1610;
BgL_variablez00_1610 = 
(BgL_variablez00_bglt)(BgL_variablez00_1265); 
{ /* ./Globalize/escape.scm 47 */
obj_t BgL_method3086z00_1611;
{ /* ./Globalize/escape.scm 47 */
BgL_objectz00_bglt BgL_objz00_1612;
BgL_objz00_1612 = 
(BgL_objectz00_bglt)(BgL_variablez00_1610); 
{ /* ./Globalize/escape.scm 47 */
long BgL_objzd2classzd2numz00_1613;
BgL_objzd2classzd2numz00_1613 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1612); 
{ /* ./Globalize/escape.scm 47 */
obj_t BgL_arg2017z00_1614;
{ /* ./Globalize/escape.scm 47 */
int BgL_auxz00_3520;
BgL_auxz00_3520 = 
(int)(((long)1)); 
BgL_arg2017z00_1614 = 
PROCEDURE_REF(BGl_escapezd2funz12zd2envz12zzglobaliza7e_escapeza7, BgL_auxz00_3520); } 
{ /* ./Globalize/escape.scm 47 */
int BgL_offsetz00_1617;
BgL_offsetz00_1617 = 
(int)(BgL_objzd2classzd2numz00_1613); 
{ /* ./Globalize/escape.scm 47 */
long BgL_offsetz00_1618;
{ /* ./Globalize/escape.scm 47 */
long BgL_auxz00_3524;
BgL_auxz00_3524 = 
(long)(BgL_offsetz00_1617); 
BgL_offsetz00_1618 = 
(BgL_auxz00_3524-OBJECT_TYPE); } 
{ /* ./Globalize/escape.scm 47 */
long BgL_modz00_1619;
{ /* ./Globalize/escape.scm 47 */
int BgL_arg2028z00_1620;
BgL_arg2028z00_1620 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 47 */
long BgL_n2z00_1628;
BgL_n2z00_1628 = 
(long)(BgL_arg2028z00_1620); 
BgL_modz00_1619 = 
(BgL_offsetz00_1618/BgL_n2z00_1628); } } 
{ /* ./Globalize/escape.scm 47 */
long BgL_restz00_1621;
{ /* ./Globalize/escape.scm 47 */
int BgL_arg2024z00_1622;
BgL_arg2024z00_1622 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 47 */
long BgL_n2z00_1631;
BgL_n2z00_1631 = 
(long)(BgL_arg2024z00_1622); 
BgL_restz00_1621 = 
(BgL_offsetz00_1618%BgL_n2z00_1631); } } 
{ /* ./Globalize/escape.scm 47 */

{ /* ./Globalize/escape.scm 47 */
obj_t BgL_bucketz00_1623;
{ /* ./Globalize/escape.scm 47 */
int BgL_kz00_1633;
BgL_kz00_1633 = 
(int)(BgL_modz00_1619); 
BgL_bucketz00_1623 = 
VECTOR_REF(BgL_arg2017z00_1614,BgL_kz00_1633); } 
{ /* ./Globalize/escape.scm 47 */
int BgL_kz00_1635;
BgL_kz00_1635 = 
(int)(BgL_restz00_1621); 
BgL_method3086z00_1611 = 
VECTOR_REF(BgL_bucketz00_1623,BgL_kz00_1635); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3086z00_1611)(BgL_method3086z00_1611, 
(obj_t)(BgL_variablez00_1610), BEOA);} } } } } } } } 
}



/* escape-fun!-global3088 */
obj_t BGl_escapezd2funz12zd2global3088z12zzglobaliza7e_escapeza7(obj_t BgL_envz00_2608, obj_t BgL_variablez00_2609)
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 38 */
{ 
BgL_globalz00_bglt BgL_variablez00_1253;
BgL_variablez00_1253 = 
(BgL_globalz00_bglt)(BgL_variablez00_2609); 
{ 

{ /* ./Globalize/escape.scm 39 */
bool_t BgL_test3570z00_1256;
{ /* ./Globalize/escape.scm 39 */
obj_t BgL_obj2979z00_1573;
BgL_obj2979z00_1573 = 
(obj_t)(BgL_variablez00_1253); 
BgL_test3570z00_1256 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2979z00_1573, BGl_globalzf2Ginfozf2zzglobaliza7e_ginfoza7); } 
if(BgL_test3570z00_1256)
{ /* ./Globalize/escape.scm 39 */BFALSE; }  else 
{ /* ./Globalize/escape.scm 40 */
BgL_globalz00_bglt BgL_obj3039z00_1257;
BgL_obj3039z00_1257 = 
((BgL_globalz00_bglt)BgL_variablez00_1253); 
{ /* ./Globalize/escape.scm 41 */
obj_t BgL_arg3572z00_1258;
{ /* ./Globalize/escape.scm 41 */
bool_t BgL_arg3575z00_1259;
{ /* ./Globalize/escape.scm 41 */
obj_t BgL_auxz00_3547;obj_t BgL_auxz00_3545;
BgL_auxz00_3547 = 
CNST_TABLE_REF(((long)1)); 
BgL_auxz00_3545 = 
(((BgL_globalz00_bglt)CREF(BgL_variablez00_1253))->BgL_importz00); 
BgL_arg3575z00_1259 = 
(BgL_auxz00_3545==BgL_auxz00_3547); } 
BgL_arg3572z00_1258 = 
BGl_wideningzd2globalzf2Ginfoz20zzglobaliza7e_ginfoza7(BgL_arg3575z00_1259, BFALSE); } 
{ /* ./Globalize/escape.scm 40 */
BgL_objectz00_bglt BgL_auxz00_3551;
BgL_auxz00_3551 = 
(BgL_objectz00_bglt)(BgL_obj3039z00_1257); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3551, BgL_arg3572z00_1258); } } 
{ /* ./Globalize/escape.scm 40 */
long BgL_arg3583z00_1262;
BgL_arg3583z00_1262 = 
BGl_classzd2numzd2zz__objectz00(BGl_globalzf2Ginfozf2zzglobaliza7e_ginfoza7); 
{ /* ./Globalize/escape.scm 40 */
BgL_objectz00_bglt BgL_objz00_1575;
BgL_objz00_1575 = 
(BgL_objectz00_bglt)(BgL_obj3039z00_1257); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1575, BgL_arg3583z00_1262); } } 
{ /* ./Globalize/escape.scm 40 */
obj_t BgL_objz00_1577;
BgL_objz00_1577 = 
(obj_t)(BgL_obj3039z00_1257); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_1577); BUNSPEC; } 
(obj_t)(BgL_obj3039z00_1257); } } 
{ /* ./Globalize/escape.scm 38 */
obj_t BgL_nextzd2method3087zd2_1263;
BgL_nextzd2method3087zd2_1263 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_variablez00_1253), BGl_escapezd2funz12zd2envz12zzglobaliza7e_escapeza7, BGl_globalz00zzast_varz00); 
{ /* ./Globalize/escape.scm 38 */
bool_t BgL_test3589z00_1264;
BgL_test3589z00_1264 = 
PROCEDUREP(BgL_nextzd2method3087zd2_1263); 
if(BgL_test3589z00_1264)
{ /* ./Globalize/escape.scm 38 */
return 
PROCEDURE_ENTRY(BgL_nextzd2method3087zd2_1263)(BgL_nextzd2method3087zd2_1263, 
(obj_t)(BgL_variablez00_1253), BEOA);}  else 
{ /* ./Globalize/escape.scm 38 */
{ /* ./Globalize/escape.scm 38 */
BgL_variablez00_bglt BgL_variablez00_1579;
BgL_variablez00_1579 = 
(BgL_variablez00_bglt)(BgL_variablez00_1253); 
{ /* ./Globalize/escape.scm 38 */
obj_t BgL_method3086z00_1580;
{ /* ./Globalize/escape.scm 38 */
BgL_objectz00_bglt BgL_objz00_1581;
BgL_objz00_1581 = 
(BgL_objectz00_bglt)(BgL_variablez00_1579); 
{ /* ./Globalize/escape.scm 38 */
long BgL_objzd2classzd2numz00_1582;
BgL_objzd2classzd2numz00_1582 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1581); 
{ /* ./Globalize/escape.scm 38 */
obj_t BgL_arg2017z00_1583;
{ /* ./Globalize/escape.scm 38 */
int BgL_auxz00_3570;
BgL_auxz00_3570 = 
(int)(((long)1)); 
BgL_arg2017z00_1583 = 
PROCEDURE_REF(BGl_escapezd2funz12zd2envz12zzglobaliza7e_escapeza7, BgL_auxz00_3570); } 
{ /* ./Globalize/escape.scm 38 */
int BgL_offsetz00_1586;
BgL_offsetz00_1586 = 
(int)(BgL_objzd2classzd2numz00_1582); 
{ /* ./Globalize/escape.scm 38 */
long BgL_offsetz00_1587;
{ /* ./Globalize/escape.scm 38 */
long BgL_auxz00_3574;
BgL_auxz00_3574 = 
(long)(BgL_offsetz00_1586); 
BgL_offsetz00_1587 = 
(BgL_auxz00_3574-OBJECT_TYPE); } 
{ /* ./Globalize/escape.scm 38 */
long BgL_modz00_1588;
{ /* ./Globalize/escape.scm 38 */
int BgL_arg2028z00_1589;
BgL_arg2028z00_1589 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 38 */
long BgL_n2z00_1597;
BgL_n2z00_1597 = 
(long)(BgL_arg2028z00_1589); 
BgL_modz00_1588 = 
(BgL_offsetz00_1587/BgL_n2z00_1597); } } 
{ /* ./Globalize/escape.scm 38 */
long BgL_restz00_1590;
{ /* ./Globalize/escape.scm 38 */
int BgL_arg2024z00_1591;
BgL_arg2024z00_1591 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 38 */
long BgL_n2z00_1600;
BgL_n2z00_1600 = 
(long)(BgL_arg2024z00_1591); 
BgL_restz00_1590 = 
(BgL_offsetz00_1587%BgL_n2z00_1600); } } 
{ /* ./Globalize/escape.scm 38 */

{ /* ./Globalize/escape.scm 38 */
obj_t BgL_bucketz00_1592;
{ /* ./Globalize/escape.scm 38 */
int BgL_kz00_1602;
BgL_kz00_1602 = 
(int)(BgL_modz00_1588); 
BgL_bucketz00_1592 = 
VECTOR_REF(BgL_arg2017z00_1583,BgL_kz00_1602); } 
{ /* ./Globalize/escape.scm 38 */
int BgL_kz00_1604;
BgL_kz00_1604 = 
(int)(BgL_restz00_1590); 
BgL_method3086z00_1580 = 
VECTOR_REF(BgL_bucketz00_1592,BgL_kz00_1604); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3086z00_1580)(BgL_method3086z00_1580, 
(obj_t)(BgL_variablez00_1579), BEOA);} } } } } } } } 
}



/* escape-fun! */
BGL_EXPORTED_DEF obj_t BGl_escapezd2funz12zc0zzglobaliza7e_escapeza7(BgL_variablez00_bglt BgL_variablez00_1)
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 27 */
{ /* ./Globalize/escape.scm 27 */
obj_t BgL_method3086z00_2383;
{ /* ./Globalize/escape.scm 27 */
BgL_objectz00_bglt BgL_objz00_2384;
BgL_objz00_2384 = 
(BgL_objectz00_bglt)(BgL_variablez00_1); 
{ /* ./Globalize/escape.scm 27 */
long BgL_objzd2classzd2numz00_2385;
BgL_objzd2classzd2numz00_2385 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2384); 
{ /* ./Globalize/escape.scm 27 */
obj_t BgL_arg2017z00_2386;
{ /* ./Globalize/escape.scm 27 */
int BgL_auxz00_3593;
BgL_auxz00_3593 = 
(int)(((long)1)); 
BgL_arg2017z00_2386 = 
PROCEDURE_REF(BGl_escapezd2funz12zd2envz12zzglobaliza7e_escapeza7, BgL_auxz00_3593); } 
{ /* ./Globalize/escape.scm 27 */
int BgL_offsetz00_2389;
BgL_offsetz00_2389 = 
(int)(BgL_objzd2classzd2numz00_2385); 
{ /* ./Globalize/escape.scm 27 */
long BgL_offsetz00_2390;
{ /* ./Globalize/escape.scm 27 */
long BgL_auxz00_3597;
BgL_auxz00_3597 = 
(long)(BgL_offsetz00_2389); 
BgL_offsetz00_2390 = 
(BgL_auxz00_3597-OBJECT_TYPE); } 
{ /* ./Globalize/escape.scm 27 */
long BgL_modz00_2391;
{ /* ./Globalize/escape.scm 27 */
int BgL_arg2028z00_2392;
BgL_arg2028z00_2392 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 27 */
long BgL_n2z00_2400;
BgL_n2z00_2400 = 
(long)(BgL_arg2028z00_2392); 
BgL_modz00_2391 = 
(BgL_offsetz00_2390/BgL_n2z00_2400); } } 
{ /* ./Globalize/escape.scm 27 */
long BgL_restz00_2393;
{ /* ./Globalize/escape.scm 27 */
int BgL_arg2024z00_2394;
BgL_arg2024z00_2394 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 27 */
long BgL_n2z00_2403;
BgL_n2z00_2403 = 
(long)(BgL_arg2024z00_2394); 
BgL_restz00_2393 = 
(BgL_offsetz00_2390%BgL_n2z00_2403); } } 
{ /* ./Globalize/escape.scm 27 */

{ /* ./Globalize/escape.scm 27 */
obj_t BgL_bucketz00_2395;
{ /* ./Globalize/escape.scm 27 */
int BgL_kz00_2405;
BgL_kz00_2405 = 
(int)(BgL_modz00_2391); 
BgL_bucketz00_2395 = 
VECTOR_REF(BgL_arg2017z00_2386,BgL_kz00_2405); } 
{ /* ./Globalize/escape.scm 27 */
int BgL_kz00_2407;
BgL_kz00_2407 = 
(int)(BgL_restz00_2393); 
BgL_method3086z00_2383 = 
VECTOR_REF(BgL_bucketz00_2395,BgL_kz00_2407); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3086z00_2383)(BgL_method3086z00_2383, 
(obj_t)(BgL_variablez00_1), BEOA);} } 
}



/* _escape-fun! */
obj_t BGl__escapezd2funz12zc0zzglobaliza7e_escapeza7(obj_t BgL_envz00_2534, obj_t BgL_variablez00_2535)
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 27 */
return 
BGl_escapezd2funz12zc0zzglobaliza7e_escapeza7(
(BgL_variablez00_bglt)(BgL_variablez00_2535));} 
}



/* escape-fun!-default3085 */
obj_t BGl_escapezd2funz12zd2default3085z12zzglobaliza7e_escapeza7(BgL_variablez00_bglt BgL_variablez00_2)
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 15 */
{ /* ./Globalize/escape.scm 28 */
BgL_valuez00_bglt BgL_funz00_1523;
BgL_funz00_1523 = 
(((BgL_variablez00_bglt)CREF(BgL_variablez00_2))->BgL_valuez00); 
{ 
obj_t BgL_l3035z00_1524;
{ /* ./Globalize/escape.scm 31 */
obj_t BgL_arg4015z00_1526;
{ /* ./Globalize/escape.scm 31 */
BgL_sfunz00_bglt BgL_obj1367z00_2409;
BgL_obj1367z00_2409 = 
(BgL_sfunz00_bglt)(BgL_funz00_1523); 
BgL_arg4015z00_1526 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1367z00_2409))->BgL_argsz00); } 
BgL_l3035z00_1524 = BgL_arg4015z00_1526; 
BgL_forzd2each3036zd2_1525:
{ /* ./Globalize/escape.scm 29 */
bool_t BgL_test4018z00_1527;
BgL_test4018z00_1527 = 
PAIRP(BgL_l3035z00_1524); 
if(BgL_test4018z00_1527)
{ /* ./Globalize/escape.scm 29 */
{ /* ./Globalize/escape.scm 30 */
obj_t BgL_localz00_1528;
BgL_localz00_1528 = 
CAR(BgL_l3035z00_1524); 
{ /* ./Globalize/escape.scm 30 */
BgL_svarz00_bglt BgL_obj3037z00_1529;
{ 
BgL_svarz00_bglt BgL_auxz00_3621;
{ /* ./Globalize/escape.scm 30 */
BgL_valuez00_bglt BgL_auxz00_3622;
{ /* ./Globalize/escape.scm 30 */
BgL_variablez00_bglt BgL_obj1100z00_2634;
BgL_obj1100z00_2634 = 
(BgL_variablez00_bglt)(BgL_localz00_1528); 
BgL_auxz00_3622 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_2634))->BgL_valuez00); } 
BgL_auxz00_3621 = 
(BgL_svarz00_bglt)(BgL_auxz00_3622); } 
BgL_obj3037z00_1529 = 
((BgL_svarz00_bglt)BgL_auxz00_3621); } 
{ /* ./Globalize/escape.scm 30 */
obj_t BgL_arg4020z00_1530;
BgL_arg4020z00_1530 = 
BGl_wideningzd2svarzf2Ginfoz20zzglobaliza7e_ginfoza7(((bool_t)0), ((long)-10), ((long)-10), ((bool_t)0)); 
{ /* ./Globalize/escape.scm 30 */
BgL_objectz00_bglt BgL_auxz00_3628;
BgL_auxz00_3628 = 
(BgL_objectz00_bglt)(BgL_obj3037z00_1529); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3628, BgL_arg4020z00_1530); } } 
{ /* ./Globalize/escape.scm 30 */
long BgL_arg4024z00_1531;
BgL_arg4024z00_1531 = 
BGl_classzd2numzd2zz__objectz00(BGl_svarzf2Ginfozf2zzglobaliza7e_ginfoza7); 
{ /* ./Globalize/escape.scm 30 */
BgL_objectz00_bglt BgL_objz00_2413;
BgL_objz00_2413 = 
(BgL_objectz00_bglt)(BgL_obj3037z00_1529); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2413, BgL_arg4024z00_1531); } } 
{ /* ./Globalize/escape.scm 30 */
obj_t BgL_objz00_2415;
BgL_objz00_2415 = 
(obj_t)(BgL_obj3037z00_1529); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2415); BUNSPEC; } BgL_obj3037z00_1529; } } 
{ /* ./Globalize/escape.scm 29 */
obj_t BgL_arg4031z00_1532;
BgL_arg4031z00_1532 = 
CDR(BgL_l3035z00_1524); 
{ 
obj_t BgL_l3035z00_3637;
BgL_l3035z00_3637 = BgL_arg4031z00_1532; 
BgL_l3035z00_1524 = BgL_l3035z00_3637; 
goto BgL_forzd2each3036zd2_1525;} } }  else 
{ /* ./Globalize/escape.scm 29 */((bool_t)1); } } } } 
{ /* ./Globalize/escape.scm 32 */
BgL_sfunz00_bglt BgL_obj3038z00_1533;
{ 
BgL_sfunz00_bglt BgL_auxz00_3638;
BgL_auxz00_3638 = 
(BgL_sfunz00_bglt)(BgL_funz00_1523); 
BgL_obj3038z00_1533 = 
((BgL_sfunz00_bglt)BgL_auxz00_3638); } 
{ /* ./Globalize/escape.scm 32 */
obj_t BgL_arg4036z00_1534;
BgL_arg4036z00_1534 = 
BGl_wideningzd2sfunzf2Ginfoz20zzglobaliza7e_ginfoza7(((bool_t)0), BNIL, BFALSE, BNIL, BFALSE, BNIL, BUNSPEC, 
BINT(((long)-1)), BFALSE, BNIL, BNIL, ((long)-10), BNIL, BFALSE, BFALSE, BFALSE, ((long)-10), ((long)-10), BUNSPEC, BNIL); 
{ /* ./Globalize/escape.scm 32 */
BgL_objectz00_bglt BgL_auxz00_3643;
BgL_auxz00_3643 = 
(BgL_objectz00_bglt)(BgL_obj3038z00_1533); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3643, BgL_arg4036z00_1534); } } 
{ /* ./Globalize/escape.scm 32 */
long BgL_arg4040z00_1535;
BgL_arg4040z00_1535 = 
BGl_classzd2numzd2zz__objectz00(BGl_sfunzf2Ginfozf2zzglobaliza7e_ginfoza7); 
{ /* ./Globalize/escape.scm 32 */
BgL_objectz00_bglt BgL_objz00_2417;
BgL_objz00_2417 = 
(BgL_objectz00_bglt)(BgL_obj3038z00_1533); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2417, BgL_arg4040z00_1535); } } 
{ /* ./Globalize/escape.scm 32 */
obj_t BgL_objz00_2419;
BgL_objz00_2419 = 
(obj_t)(BgL_obj3038z00_1533); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2419); BUNSPEC; } BgL_obj3038z00_1533; } 
{ /* ./Globalize/escape.scm 33 */
obj_t BgL_arg4045z00_1536;
{ /* ./Globalize/escape.scm 33 */
BgL_sfunz00_bglt BgL_obj1370z00_2420;
BgL_obj1370z00_2420 = 
(BgL_sfunz00_bglt)(BgL_funz00_1523); 
BgL_arg4045z00_1536 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_2420))->BgL_bodyz00); } 
{ /* ./Globalize/escape.scm 33 */
BgL_nodez00_bglt BgL_nodez00_2421;
BgL_nodez00_2421 = 
(BgL_nodez00_bglt)(BgL_arg4045z00_1536); 
{ /* ./Globalize/escape.scm 33 */
obj_t BgL_method3101z00_2423;
{ /* ./Globalize/escape.scm 33 */
BgL_objectz00_bglt BgL_objz00_2424;
BgL_objz00_2424 = 
(BgL_objectz00_bglt)(BgL_nodez00_2421); 
{ /* ./Globalize/escape.scm 33 */
long BgL_objzd2classzd2numz00_2425;
BgL_objzd2classzd2numz00_2425 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2424); 
{ /* ./Globalize/escape.scm 33 */
obj_t BgL_arg2017z00_2426;
{ /* ./Globalize/escape.scm 33 */
int BgL_auxz00_3656;
BgL_auxz00_3656 = 
(int)(((long)1)); 
BgL_arg2017z00_2426 = 
PROCEDURE_REF(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BgL_auxz00_3656); } 
{ /* ./Globalize/escape.scm 33 */
int BgL_offsetz00_2429;
BgL_offsetz00_2429 = 
(int)(BgL_objzd2classzd2numz00_2425); 
{ /* ./Globalize/escape.scm 33 */
long BgL_offsetz00_2430;
{ /* ./Globalize/escape.scm 33 */
long BgL_auxz00_3660;
BgL_auxz00_3660 = 
(long)(BgL_offsetz00_2429); 
BgL_offsetz00_2430 = 
(BgL_auxz00_3660-OBJECT_TYPE); } 
{ /* ./Globalize/escape.scm 33 */
long BgL_modz00_2431;
{ /* ./Globalize/escape.scm 33 */
int BgL_arg2028z00_2432;
BgL_arg2028z00_2432 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 33 */
long BgL_n2z00_2440;
BgL_n2z00_2440 = 
(long)(BgL_arg2028z00_2432); 
BgL_modz00_2431 = 
(BgL_offsetz00_2430/BgL_n2z00_2440); } } 
{ /* ./Globalize/escape.scm 33 */
long BgL_restz00_2433;
{ /* ./Globalize/escape.scm 33 */
int BgL_arg2024z00_2434;
BgL_arg2024z00_2434 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 33 */
long BgL_n2z00_2443;
BgL_n2z00_2443 = 
(long)(BgL_arg2024z00_2434); 
BgL_restz00_2433 = 
(BgL_offsetz00_2430%BgL_n2z00_2443); } } 
{ /* ./Globalize/escape.scm 33 */

{ /* ./Globalize/escape.scm 33 */
obj_t BgL_bucketz00_2435;
{ /* ./Globalize/escape.scm 33 */
int BgL_kz00_2445;
BgL_kz00_2445 = 
(int)(BgL_modz00_2431); 
BgL_bucketz00_2435 = 
VECTOR_REF(BgL_arg2017z00_2426,BgL_kz00_2445); } 
{ /* ./Globalize/escape.scm 33 */
int BgL_kz00_2447;
BgL_kz00_2447 = 
(int)(BgL_restz00_2433); 
BgL_method3101z00_2423 = 
VECTOR_REF(BgL_bucketz00_2435,BgL_kz00_2447); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3101z00_2423)(BgL_method3101z00_2423, 
(obj_t)(BgL_nodez00_2421), 
(obj_t)(BgL_variablez00_2), BEOA);} } } } } 
}



/* _escape-fun!-default3085 */
obj_t BGl__escapezd2funz12zd2default3085z12zzglobaliza7e_escapeza7(obj_t BgL_envz00_2610, obj_t BgL_variablez00_2611)
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 15 */
return 
BGl_escapezd2funz12zd2default3085z12zzglobaliza7e_escapeza7(
(BgL_variablez00_bglt)(BgL_variablez00_2611));} 
}



/* set-escaping-fun! */
obj_t BGl_setzd2escapingzd2funz12z12zzglobaliza7e_escapeza7(BgL_variablez00_bglt BgL_variablez00_5)
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 55 */
{ /* ./Globalize/escape.scm 55 */
obj_t BgL_method3092z00_2448;
{ /* ./Globalize/escape.scm 55 */
BgL_objectz00_bglt BgL_objz00_2449;
BgL_objz00_2449 = 
(BgL_objectz00_bglt)(BgL_variablez00_5); 
{ /* ./Globalize/escape.scm 55 */
long BgL_objzd2classzd2numz00_2450;
BgL_objzd2classzd2numz00_2450 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2449); 
{ /* ./Globalize/escape.scm 55 */
obj_t BgL_arg2017z00_2451;
{ /* ./Globalize/escape.scm 55 */
int BgL_auxz00_3681;
BgL_auxz00_3681 = 
(int)(((long)1)); 
BgL_arg2017z00_2451 = 
PROCEDURE_REF(BGl_setzd2escapingzd2funz12zd2envzc0zzglobaliza7e_escapeza7, BgL_auxz00_3681); } 
{ /* ./Globalize/escape.scm 55 */
int BgL_offsetz00_2454;
BgL_offsetz00_2454 = 
(int)(BgL_objzd2classzd2numz00_2450); 
{ /* ./Globalize/escape.scm 55 */
long BgL_offsetz00_2455;
{ /* ./Globalize/escape.scm 55 */
long BgL_auxz00_3685;
BgL_auxz00_3685 = 
(long)(BgL_offsetz00_2454); 
BgL_offsetz00_2455 = 
(BgL_auxz00_3685-OBJECT_TYPE); } 
{ /* ./Globalize/escape.scm 55 */
long BgL_modz00_2456;
{ /* ./Globalize/escape.scm 55 */
int BgL_arg2028z00_2457;
BgL_arg2028z00_2457 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 55 */
long BgL_n2z00_2465;
BgL_n2z00_2465 = 
(long)(BgL_arg2028z00_2457); 
BgL_modz00_2456 = 
(BgL_offsetz00_2455/BgL_n2z00_2465); } } 
{ /* ./Globalize/escape.scm 55 */
long BgL_restz00_2458;
{ /* ./Globalize/escape.scm 55 */
int BgL_arg2024z00_2459;
BgL_arg2024z00_2459 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 55 */
long BgL_n2z00_2468;
BgL_n2z00_2468 = 
(long)(BgL_arg2024z00_2459); 
BgL_restz00_2458 = 
(BgL_offsetz00_2455%BgL_n2z00_2468); } } 
{ /* ./Globalize/escape.scm 55 */

{ /* ./Globalize/escape.scm 55 */
obj_t BgL_bucketz00_2460;
{ /* ./Globalize/escape.scm 55 */
int BgL_kz00_2470;
BgL_kz00_2470 = 
(int)(BgL_modz00_2456); 
BgL_bucketz00_2460 = 
VECTOR_REF(BgL_arg2017z00_2451,BgL_kz00_2470); } 
{ /* ./Globalize/escape.scm 55 */
int BgL_kz00_2472;
BgL_kz00_2472 = 
(int)(BgL_restz00_2458); 
BgL_method3092z00_2448 = 
VECTOR_REF(BgL_bucketz00_2460,BgL_kz00_2472); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3092z00_2448)(BgL_method3092z00_2448, 
(obj_t)(BgL_variablez00_5), BEOA);} } 
}



/* _set-escaping-fun! */
obj_t BGl__setzd2escapingzd2funz12z12zzglobaliza7e_escapeza7(obj_t BgL_envz00_2525, obj_t BgL_variablez00_2526)
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 55 */
return 
BGl_setzd2escapingzd2funz12z12zzglobaliza7e_escapeza7(
(BgL_variablez00_bglt)(BgL_variablez00_2526));} 
}



/* set-escaping-fun!-default3091 */
obj_t BGl_setzd2escapingzd2funz12zd2default3091zc0zzglobaliza7e_escapeza7(BgL_variablez00_bglt BgL_variablez00_6)
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 15 */
{ /* ./Globalize/escape.scm 56 */
obj_t BgL_arg4054z00_1540;
{ /* ./Globalize/escape.scm 58 */
obj_t BgL_arg4057z00_1541;
BgL_arg4057z00_1541 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_variablez00_6)); 
{ /* ./Globalize/escape.scm 58 */
obj_t BgL_auxz00_3705;
BgL_auxz00_3705 = 
(obj_t)(BgL_variablez00_6); 
BgL_arg4054z00_1540 = 
MAKE_PAIR(BgL_auxz00_3705, BgL_arg4057z00_1541); } } 
FAILURE(BGl_string4735z00zzglobaliza7e_escapeza7,BGl_string4736z00zzglobaliza7e_escapeza7,BgL_arg4054z00_1540);} } 
}



/* _set-escaping-fun!-default3091 */
obj_t BGl__setzd2escapingzd2funz12zd2default3091zc0zzglobaliza7e_escapeza7(obj_t BgL_envz00_2612, obj_t BgL_variablez00_2613)
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 15 */
return 
BGl_setzd2escapingzd2funz12zd2default3091zc0zzglobaliza7e_escapeza7(
(BgL_variablez00_bglt)(BgL_variablez00_2613));} 
}



/* escape! */
obj_t BGl_escapez12z12zzglobaliza7e_escapeza7(BgL_nodez00_bglt BgL_nodez00_10, BgL_variablez00_bglt BgL_oz00_11)
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 81 */
{ /* ./Globalize/escape.scm 81 */
obj_t BgL_method3101z00_2476;
{ /* ./Globalize/escape.scm 81 */
BgL_objectz00_bglt BgL_objz00_2477;
BgL_objz00_2477 = 
(BgL_objectz00_bglt)(BgL_nodez00_10); 
{ /* ./Globalize/escape.scm 81 */
long BgL_objzd2classzd2numz00_2478;
BgL_objzd2classzd2numz00_2478 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2477); 
{ /* ./Globalize/escape.scm 81 */
obj_t BgL_arg2017z00_2479;
{ /* ./Globalize/escape.scm 81 */
int BgL_auxz00_3713;
BgL_auxz00_3713 = 
(int)(((long)1)); 
BgL_arg2017z00_2479 = 
PROCEDURE_REF(BGl_escapez12zd2envzc0zzglobaliza7e_escapeza7, BgL_auxz00_3713); } 
{ /* ./Globalize/escape.scm 81 */
int BgL_offsetz00_2482;
BgL_offsetz00_2482 = 
(int)(BgL_objzd2classzd2numz00_2478); 
{ /* ./Globalize/escape.scm 81 */
long BgL_offsetz00_2483;
{ /* ./Globalize/escape.scm 81 */
long BgL_auxz00_3717;
BgL_auxz00_3717 = 
(long)(BgL_offsetz00_2482); 
BgL_offsetz00_2483 = 
(BgL_auxz00_3717-OBJECT_TYPE); } 
{ /* ./Globalize/escape.scm 81 */
long BgL_modz00_2484;
{ /* ./Globalize/escape.scm 81 */
int BgL_arg2028z00_2485;
BgL_arg2028z00_2485 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 81 */
long BgL_n2z00_2493;
BgL_n2z00_2493 = 
(long)(BgL_arg2028z00_2485); 
BgL_modz00_2484 = 
(BgL_offsetz00_2483/BgL_n2z00_2493); } } 
{ /* ./Globalize/escape.scm 81 */
long BgL_restz00_2486;
{ /* ./Globalize/escape.scm 81 */
int BgL_arg2024z00_2487;
BgL_arg2024z00_2487 = 
(int)(((long)8)); 
{ /* ./Globalize/escape.scm 81 */
long BgL_n2z00_2496;
BgL_n2z00_2496 = 
(long)(BgL_arg2024z00_2487); 
BgL_restz00_2486 = 
(BgL_offsetz00_2483%BgL_n2z00_2496); } } 
{ /* ./Globalize/escape.scm 81 */

{ /* ./Globalize/escape.scm 81 */
obj_t BgL_bucketz00_2488;
{ /* ./Globalize/escape.scm 81 */
int BgL_kz00_2498;
BgL_kz00_2498 = 
(int)(BgL_modz00_2484); 
BgL_bucketz00_2488 = 
VECTOR_REF(BgL_arg2017z00_2479,BgL_kz00_2498); } 
{ /* ./Globalize/escape.scm 81 */
int BgL_kz00_2500;
BgL_kz00_2500 = 
(int)(BgL_restz00_2486); 
BgL_method3101z00_2476 = 
VECTOR_REF(BgL_bucketz00_2488,BgL_kz00_2500); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3101z00_2476)(BgL_method3101z00_2476, 
(obj_t)(BgL_nodez00_10), 
(obj_t)(BgL_oz00_11), BEOA);} } 
}



/* _escape! */
obj_t BGl__escapez12z12zzglobaliza7e_escapeza7(obj_t BgL_envz00_2504, obj_t BgL_nodez00_2505, obj_t BgL_oz00_2506)
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 81 */
return 
BGl_escapez12z12zzglobaliza7e_escapeza7(
(BgL_nodez00_bglt)(BgL_nodez00_2505), 
(BgL_variablez00_bglt)(BgL_oz00_2506));} 
}



/* escape!-default3100 */
obj_t BGl_escapez12zd2default3100zc0zzglobaliza7e_escapeza7(BgL_nodez00_bglt BgL_nodez00_12, BgL_variablez00_bglt BgL_oz00_13)
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 15 */
{ /* ./Globalize/escape.scm 15 */
obj_t BgL_procz00_2501;obj_t BgL_objectz00_2503;
BgL_procz00_2501 = 
CNST_TABLE_REF(((long)2)); 
BgL_objectz00_2503 = 
(obj_t)(BgL_nodez00_12); 
FAILURE(BgL_procz00_2501,BGl_string4737z00zzglobaliza7e_escapeza7,BgL_objectz00_2503);} } 
}



/* _escape!-default3100 */
obj_t BGl__escapez12zd2default3100zc0zzglobaliza7e_escapeza7(obj_t BgL_envz00_2614, obj_t BgL_nodez00_2615, obj_t BgL_oz00_2616)
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 15 */
return 
BGl_escapez12zd2default3100zc0zzglobaliza7e_escapeza7(
(BgL_nodez00_bglt)(BgL_nodez00_2615), 
(BgL_variablez00_bglt)(BgL_oz00_2616));} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzglobaliza7e_escapeza7()
{ AN_OBJECT;
{ /* ./Globalize/escape.scm 15 */
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "globalize_escape"); 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "globalize_escape"); 
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long)14260), "globalize_escape"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "globalize_escape"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "globalize_escape"); 
return 
BGl_modulezd2initializa7ationz75zzglobaliza7e_ginfoza7(((long)0), "globalize_escape");} 
}

