/*===========================================================================*/
/*   (Globalize/free.scm)                                                    */
/*   Bigloo (4.5b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Fri Dec 22 05:17:06 PM CET 2023     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/bigloo/bin/bigloo -ldopt -L/home/serrano/prgm/project/bigloo/bigloo/libbacktrace/home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b  -q -afile .afile -fsharing -fno-reflection -cc gcc -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -unsafev -gno-error-localization -no-hello -O2 -rm -unsafe -s -stdc -indent Globalize/free.scm) */
/* GC selection */
#define THE_GC BOEHM_GC

/* unsafe mode */
#define BIGLOO_UNSAFE 1

/* traces mode */
#define BIGLOO_TRACE 0

/* standard Bigloo include */
#include <bigloo.h>

#ifdef __cplusplus
extern "C"
{
#endif
#ifndef BGL_MODULE_TYPE_DEFINITIONS
#define BGL_MODULE_TYPE_DEFINITIONS
#ifndef BGL_GLOBALIZE_FREE_TYPE_DEFINITIONS
#define BGL_GLOBALIZE_FREE_TYPE_DEFINITIONS

/* 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;
		int BgL_occurrencez00;
	}              *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;
		long BgL_occurrencewz00;
		bool_t BgL_userzf3zf3;
	}                  *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;
		long BgL_occurrencewz00;
		bool_t BgL_userzf3zf3;
		obj_t BgL_modulez00;
		obj_t BgL_importz00;
		bool_t BgL_evaluablezf3zf3;
		bool_t BgL_evalzf3zf3;
		obj_t BgL_libraryz00;
		obj_t BgL_pragmaz00;
		obj_t BgL_srcz00;
		obj_t BgL_jvmzd2typezd2namez00;
		obj_t BgL_initz00;
		obj_t BgL_aliasz00;
	}                *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;
		long BgL_occurrencewz00;
		bool_t BgL_userzf3zf3;
		long BgL_keyz00;
		obj_t BgL_valzd2noescapezd2;
		bool_t BgL_volatilez00;
	}               *BgL_localz00_bglt;

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

	typedef struct BgL_sfunz00_bgl
	{
		header_t header;
		obj_t widening;
		long BgL_arityz00;
		obj_t BgL_sidezd2effectzd2;
		obj_t BgL_predicatezd2ofzd2;
		obj_t BgL_stackzd2allocatorzd2;
		bool_t BgL_topzf3zf3;
		obj_t BgL_thezd2closurezd2;
		obj_t BgL_effectz00;
		obj_t BgL_failsafez00;
		obj_t BgL_argszd2noescapezd2;
		obj_t BgL_argszd2retescapezd2;
		obj_t BgL_propertyz00;
		obj_t BgL_argsz00;
		obj_t BgL_argszd2namezd2;
		obj_t BgL_bodyz00;
		obj_t BgL_classz00;
		obj_t BgL_dssslzd2keywordszd2;
		obj_t BgL_locz00;
		obj_t BgL_optionalsz00;
		obj_t BgL_keysz00;
		obj_t BgL_thezd2closurezd2globalz00;
		obj_t BgL_strengthz00;
		obj_t BgL_stackablez00;
	}              *BgL_sfunz00_bglt;

	typedef struct BgL_svarz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
	}              *BgL_svarz00_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_nodez00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
	}              *BgL_nodez00_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_literalz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		obj_t BgL_valuez00;
	}                 *BgL_literalz00_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_refz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_variablez00_bgl *BgL_variablez00;
	}             *BgL_refz00_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_sequencez00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		obj_t BgL_sidezd2effectzd2;
		obj_t BgL_keyz00;
		obj_t BgL_nodesz00;
		bool_t BgL_unsafez00;
		obj_t BgL_metaz00;
	}                  *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_sidezd2effectzd2;
		obj_t BgL_keyz00;
		struct BgL_varz00_bgl *BgL_funz00;
		obj_t BgL_argsz00;
		obj_t BgL_stackablez00;
	}             *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;
		obj_t BgL_functionsz00;
	}                 *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_sidezd2effectzd2;
		obj_t BgL_keyz00;
		obj_t BgL_exprza2za2;
		obj_t BgL_effectz00;
	}                *BgL_externz00_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_sidezd2effectzd2;
		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_switchz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		obj_t BgL_sidezd2effectzd2;
		obj_t BgL_keyz00;
		struct BgL_nodez00_bgl *BgL_testz00;
		obj_t BgL_clausesz00;
		struct BgL_typez00_bgl *BgL_itemzd2typezd2;
	}                *BgL_switchz00_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_sidezd2effectzd2;
		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_sidezd2effectzd2;
		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;
		struct BgL_nodez00_bgl *BgL_onexitz00;
	}                       *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_sidezd2effectzd2;
		obj_t BgL_keyz00;
		struct BgL_nodez00_bgl *BgL_valuez00;
		struct BgL_typez00_bgl *BgL_vtypez00;
		obj_t BgL_stackablez00;
	}                    *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_sidezd2effectzd2;
		obj_t BgL_keyz00;
		struct BgL_varz00_bgl *BgL_varz00;
		struct BgL_typez00_bgl *BgL_vtypez00;
	}                   *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;
		struct BgL_typez00_bgl *BgL_vtypez00;
	}                      *BgL_boxzd2setz12zc0_bglt;

	typedef struct BgL_syncz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_nodez00_bgl *BgL_mutexz00;
		struct BgL_nodez00_bgl *BgL_prelockz00;
		struct BgL_nodez00_bgl *BgL_bodyz00;
	}              *BgL_syncz00_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_efunctionsz00;
		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;
		bool_t BgL_stackablez00;
	}                      *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;
		bool_t BgL_globaliza7edzf3z54;
	}                       *BgL_localzf2ginfozf2_bglt;


#endif													// BGL_GLOBALIZE_FREE_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	static obj_t
		BGl_z62nodezd2freezd2conditiona1327z62zzglobaliza7e_freeza7(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_setqz00zzast_nodez00;
	static obj_t BGl_requirezd2initializa7ationz75zzglobaliza7e_freeza7 = BUNSPEC;
	extern obj_t BGl_closurez00zzast_nodez00;
	extern obj_t BGl_syncz00zzast_nodez00;
	extern obj_t BGl_setzd2exzd2itz00zzast_nodez00;
	BGL_IMPORT obj_t BGl_za2classesza2z00zz__objectz00;
	static obj_t BGl_z62nodezd2freezd2letzd2fun1333zb0zzglobaliza7e_freeza7(obj_t,
		obj_t, obj_t);
	BGL_IMPORT obj_t BGl_registerzd2genericz12zc0zz__objectz00(obj_t, obj_t,
		obj_t, obj_t);
	extern obj_t BGl_sfunz00zzast_varz00;
	static obj_t BGl_toplevelzd2initzd2zzglobaliza7e_freeza7(void);
	static obj_t
		BGl_z62nodezd2freezd2boxzd2setz121345za2zzglobaliza7e_freeza7(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_sequencez00zzast_nodez00;
	static obj_t BGl_nodezd2freeza2z70zzglobaliza7e_freeza7(obj_t, obj_t);
	static obj_t
		BGl_z62nodezd2freezd2makezd2box1341zb0zzglobaliza7e_freeza7(obj_t, obj_t,
		obj_t);
	BGL_IMPORT obj_t BGl_formatz00zz__r4_output_6_10_3z00(obj_t, obj_t);
	static obj_t BGl_za2integratorza2z00zzglobaliza7e_freeza7 = BUNSPEC;
	static obj_t BGl_z62nodezd2freezb0zzglobaliza7e_freeza7(obj_t, obj_t, obj_t);
	extern obj_t BGl_letzd2varzd2zzast_nodez00;
	extern obj_t BGl_failz00zzast_nodez00;
	static obj_t BGl_genericzd2initzd2zzglobaliza7e_freeza7(void);
	BGL_IMPORT obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t);
	static obj_t BGl_objectzd2initzd2zzglobaliza7e_freeza7(void);
	extern obj_t BGl_castz00zzast_nodez00;
	extern obj_t BGl_sexitzf2Ginfozf2zzglobaliza7e_ginfoza7;
	extern obj_t BGl_shapez00zztools_shapez00(obj_t);
	BGL_IMPORT obj_t BGl_za2inheritancesza2z00zz__objectz00;
	extern obj_t BGl_boxzd2refzd2zzast_nodez00;
	BGL_EXPORTED_DECL obj_t
		BGl_getzd2freezd2varsz00zzglobaliza7e_freeza7(BgL_nodez00_bglt,
		BgL_localz00_bglt);
	static obj_t BGl_z62thezd2globalzd2closurez62zzglobaliza7e_freeza7(obj_t,
		obj_t, obj_t);
	BGL_IMPORT obj_t bstring_to_symbol(obj_t);
	static obj_t BGl_nodezd2freezd2zzglobaliza7e_freeza7(BgL_nodez00_bglt, obj_t);
	BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t, obj_t);
	extern obj_t BGl_refz00zzast_nodez00;
	extern obj_t BGl_localzf2Ginfozf2zzglobaliza7e_ginfoza7;
	BGL_IMPORT obj_t BGl_openzd2inputzd2stringz12z12zz__r4_ports_6_10_1z00(obj_t,
		obj_t, obj_t);
	extern obj_t BGl_svarzf2Ginfozf2zzglobaliza7e_ginfoza7;
	static obj_t BGl_methodzd2initzd2zzglobaliza7e_freeza7(void);
	static obj_t
		BGl_z62nodezd2freezd2jumpzd2exzd2it1339z62zzglobaliza7e_freeza7(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62freezd2fromzb0zzglobaliza7e_freeza7(obj_t, obj_t, obj_t);
	static obj_t BGl_bindzd2variablez12zc0zzglobaliza7e_freeza7(BgL_localz00_bglt,
		BgL_localz00_bglt);
	extern obj_t BGl_externz00zzast_nodez00;
	static obj_t BGl_z62nodezd2freezd2sequence1311z62zzglobaliza7e_freeza7(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62nodezd2freezd2var1307z62zzglobaliza7e_freeza7(obj_t,
		obj_t, obj_t);
	static obj_t
		BGl_markzd2variablez12zc0zzglobaliza7e_freeza7(BgL_localz00_bglt);
	extern obj_t BGl_findzd2globalzd2zzast_envz00(obj_t, obj_t);
	static obj_t BGl_z62nodezd2freezd2funcall1319z62zzglobaliza7e_freeza7(obj_t,
		obj_t, obj_t);
	BGL_IMPORT obj_t string_append(obj_t, obj_t);
	extern obj_t BGl_varz00zzast_nodez00;
	extern obj_t BGl_makezd2boxzd2zzast_nodez00;
	static obj_t BGl_thezd2localzd2closurez00zzglobaliza7e_freeza7(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_freezd2fromzd2zzglobaliza7e_freeza7(obj_t,
		BgL_localz00_bglt);
	BGL_IMPORT obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62nodezd2freezd2letzd2var1335zb0zzglobaliza7e_freeza7(obj_t,
		obj_t, obj_t);
	extern obj_t BGl_za2_za2z00zztype_cachez00;
	static long BGl_za2roundza2z00zzglobaliza7e_freeza7;
	extern obj_t BGl_za2procedureza2z00zztype_cachez00;
	extern BgL_globalz00_bglt
		BGl_defzd2globalzd2scnstz12z12zzast_glozd2defzd2(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62nodezd2freezd2closure1309z62zzglobaliza7e_freeza7(obj_t,
		obj_t, obj_t);
	static obj_t
		BGl_z62nodezd2freezd2setzd2exzd2it1337z62zzglobaliza7e_freeza7(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_boxzd2setz12zc0zzast_nodez00;
	static obj_t BGl_z62nodezd2freezd2boxzd2ref1343zb0zzglobaliza7e_freeza7(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62nodezd2freezd2app1315z62zzglobaliza7e_freeza7(obj_t,
		obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_modulezd2initializa7ationz75zzglobaliza7e_freeza7(long, char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zzglobaliza7e_globalzd2closurez75(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzglobaliza7e_nodeza7(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzglobaliza7e_ginfoza7(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_envz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_glozd2defzd2(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_sexpz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_localz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztype_cachez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztools_speekz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztools_tracez00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long,
		char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long,
		char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(long,
		char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(long,
		char *);
	BGL_IMPORT obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long,
		char *);
	BGL_IMPORT obj_t
		BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
	BGL_IMPORT obj_t
		BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__bitz00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
	extern obj_t BGl_appz00zzast_nodez00;
	static obj_t BGl_z62nodezd2freezd2appzd2ly1317zb0zzglobaliza7e_freeza7(obj_t,
		obj_t, obj_t);
	extern obj_t BGl_appzd2lyzd2zzast_nodez00;
	static obj_t BGl_freezd2variablezf3z21zzglobaliza7e_freeza7(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_thezd2closurezd2zzglobaliza7e_freeza7(BgL_variablez00_bglt, obj_t);
	static obj_t BGl_z62nodezd2free1304zb0zzglobaliza7e_freeza7(obj_t, obj_t,
		obj_t);
	extern BgL_globalz00_bglt
		BGl_makezd2globalzd2closurez00zzglobaliza7e_globalzd2closurez75
		(BgL_globalz00_bglt);
	extern obj_t BGl_nodez00zzast_nodez00;
	extern obj_t BGl_localz00zzast_varz00;
	extern obj_t BGl_jumpzd2exzd2itz00zzast_nodez00;
	static obj_t BGl_cnstzd2initzd2zzglobaliza7e_freeza7(void);
	static obj_t BGl_libraryzd2moduleszd2initz00zzglobaliza7e_freeza7(void);
	extern BgL_localz00_bglt BGl_makezd2localzd2svarz00zzast_localz00(obj_t,
		BgL_typez00_bglt);
	static obj_t
		BGl_internalzd2getzd2freezd2varsz12zc0zzglobaliza7e_freeza7
		(BgL_nodez00_bglt, BgL_localz00_bglt);
	BGL_EXPORTED_DECL obj_t
		BGl_thezd2globalzd2closurez00zzglobaliza7e_freeza7(BgL_globalz00_bglt,
		obj_t);
	static obj_t BGl_importedzd2moduleszd2initz00zzglobaliza7e_freeza7(void);
	static obj_t BGl_gczd2rootszd2initz00zzglobaliza7e_freeza7(void);
	static obj_t BGl_z62nodezd2freezd2cast1323z62zzglobaliza7e_freeza7(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62nodezd2freezd2extern1321z62zzglobaliza7e_freeza7(obj_t,
		obj_t, obj_t);
	extern BgL_nodez00_bglt BGl_sexpzd2ze3nodez31zzast_sexpz00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62nodezd2freezd2switch1331z62zzglobaliza7e_freeza7(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62nodezd2freezd2setq1325z62zzglobaliza7e_freeza7(obj_t,
		obj_t, obj_t);
	extern obj_t BGl_letzd2funzd2zzast_nodez00;
	static obj_t BGl_z62nodezd2freezd2sync1313z62zzglobaliza7e_freeza7(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62nodezd2freezd2fail1329z62zzglobaliza7e_freeza7(obj_t,
		obj_t, obj_t);
	BGL_IMPORT obj_t BGl_genericzd2addzd2methodz12z12zz__objectz00(obj_t, obj_t,
		obj_t, obj_t);
	extern obj_t BGl_literalz00zzast_nodez00;
	extern obj_t BGl_switchz00zzast_nodez00;
	static obj_t BGl_z62getzd2freezd2varsz62zzglobaliza7e_freeza7(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62thezd2closurezb0zzglobaliza7e_freeza7(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_conditionalz00zzast_nodez00;
	extern obj_t BGl_funcallz00zzast_nodez00;
	extern obj_t BGl_globalz00zzast_varz00;
	extern obj_t BGl_sfunzf2Ginfozf2zzglobaliza7e_ginfoza7;
	static obj_t __cnst[6];


	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_getzd2freezd2varszd2envzd2zzglobaliza7e_freeza7,
		BgL_bgl_za762getza7d2freeza7d22008za7,
		BGl_z62getzd2freezd2varsz62zzglobaliza7e_freeza7, 0L, BUNSPEC, 2);
	      DEFINE_STRING(BGl_string1980z00zzglobaliza7e_freeza7,
		BgL_bgl_string1980za700za7za7g2009za7, "Unknown variable type (~a)", 26);
	      DEFINE_STRING(BGl_string1981z00zzglobaliza7e_freeza7,
		BgL_bgl_string1981za700za7za7g2010za7, "free-variable?", 14);
	      DEFINE_STRING(BGl_string1983z00zzglobaliza7e_freeza7,
		BgL_bgl_string1983za700za7za7g2011za7, "node-free1304", 13);
	      DEFINE_STRING(BGl_string1985z00zzglobaliza7e_freeza7,
		BgL_bgl_string1985za700za7za7g2012za7, "node-free", 9);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc1982z00zzglobaliza7e_freeza7,
		BgL_bgl_za762nodeza7d2free132013z00,
		BGl_z62nodezd2free1304zb0zzglobaliza7e_freeza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc1984z00zzglobaliza7e_freeza7,
		BgL_bgl_za762nodeza7d2freeza7d2014za7,
		BGl_z62nodezd2freezd2var1307z62zzglobaliza7e_freeza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc1986z00zzglobaliza7e_freeza7,
		BgL_bgl_za762nodeza7d2freeza7d2015za7,
		BGl_z62nodezd2freezd2closure1309z62zzglobaliza7e_freeza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc1987z00zzglobaliza7e_freeza7,
		BgL_bgl_za762nodeza7d2freeza7d2016za7,
		BGl_z62nodezd2freezd2sequence1311z62zzglobaliza7e_freeza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc1988z00zzglobaliza7e_freeza7,
		BgL_bgl_za762nodeza7d2freeza7d2017za7,
		BGl_z62nodezd2freezd2sync1313z62zzglobaliza7e_freeza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc1989z00zzglobaliza7e_freeza7,
		BgL_bgl_za762nodeza7d2freeza7d2018za7,
		BGl_z62nodezd2freezd2app1315z62zzglobaliza7e_freeza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc1990z00zzglobaliza7e_freeza7,
		BgL_bgl_za762nodeza7d2freeza7d2019za7,
		BGl_z62nodezd2freezd2appzd2ly1317zb0zzglobaliza7e_freeza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc1991z00zzglobaliza7e_freeza7,
		BgL_bgl_za762nodeza7d2freeza7d2020za7,
		BGl_z62nodezd2freezd2funcall1319z62zzglobaliza7e_freeza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc1992z00zzglobaliza7e_freeza7,
		BgL_bgl_za762nodeza7d2freeza7d2021za7,
		BGl_z62nodezd2freezd2extern1321z62zzglobaliza7e_freeza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc1993z00zzglobaliza7e_freeza7,
		BgL_bgl_za762nodeza7d2freeza7d2022za7,
		BGl_z62nodezd2freezd2cast1323z62zzglobaliza7e_freeza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc1994z00zzglobaliza7e_freeza7,
		BgL_bgl_za762nodeza7d2freeza7d2023za7,
		BGl_z62nodezd2freezd2setq1325z62zzglobaliza7e_freeza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc1995z00zzglobaliza7e_freeza7,
		BgL_bgl_za762nodeza7d2freeza7d2024za7,
		BGl_z62nodezd2freezd2conditiona1327z62zzglobaliza7e_freeza7, 0L, BUNSPEC,
		2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc1996z00zzglobaliza7e_freeza7,
		BgL_bgl_za762nodeza7d2freeza7d2025za7,
		BGl_z62nodezd2freezd2fail1329z62zzglobaliza7e_freeza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc1997z00zzglobaliza7e_freeza7,
		BgL_bgl_za762nodeza7d2freeza7d2026za7,
		BGl_z62nodezd2freezd2switch1331z62zzglobaliza7e_freeza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc1998z00zzglobaliza7e_freeza7,
		BgL_bgl_za762nodeza7d2freeza7d2027za7,
		BGl_z62nodezd2freezd2letzd2fun1333zb0zzglobaliza7e_freeza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc1999z00zzglobaliza7e_freeza7,
		BgL_bgl_za762nodeza7d2freeza7d2028za7,
		BGl_z62nodezd2freezd2letzd2var1335zb0zzglobaliza7e_freeza7, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_thezd2globalzd2closurezd2envzd2zzglobaliza7e_freeza7,
		BgL_bgl_za762theza7d2globalza72029za7,
		BGl_z62thezd2globalzd2closurez62zzglobaliza7e_freeza7, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_freezd2fromzd2envz00zzglobaliza7e_freeza7,
		BgL_bgl_za762freeza7d2fromza7b2030za7,
		BGl_z62freezd2fromzb0zzglobaliza7e_freeza7, 0L, BUNSPEC, 2);
	      DEFINE_STRING(BGl_string2005z00zzglobaliza7e_freeza7,
		BgL_bgl_string2005za700za7za7g2031za7, "globalize_free", 14);
	      DEFINE_STRING(BGl_string2006z00zzglobaliza7e_freeza7,
		BgL_bgl_string2006za700za7za7g2032za7,
		"sfun sgfun -env::procedure value make-fx-procedure make-va-procedure ",
		69);
	      DEFINE_STATIC_BGL_GENERIC(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7,
		BgL_bgl_za762nodeza7d2freeza7b2033za7,
		BGl_z62nodezd2freezb0zzglobaliza7e_freeza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2000z00zzglobaliza7e_freeza7,
		BgL_bgl_za762nodeza7d2freeza7d2034za7,
		BGl_z62nodezd2freezd2setzd2exzd2it1337z62zzglobaliza7e_freeza7, 0L, BUNSPEC,
		2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2001z00zzglobaliza7e_freeza7,
		BgL_bgl_za762nodeza7d2freeza7d2035za7,
		BGl_z62nodezd2freezd2jumpzd2exzd2it1339z62zzglobaliza7e_freeza7, 0L,
		BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2002z00zzglobaliza7e_freeza7,
		BgL_bgl_za762nodeza7d2freeza7d2036za7,
		BGl_z62nodezd2freezd2makezd2box1341zb0zzglobaliza7e_freeza7, 0L, BUNSPEC,
		2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2003z00zzglobaliza7e_freeza7,
		BgL_bgl_za762nodeza7d2freeza7d2037za7,
		BGl_z62nodezd2freezd2boxzd2ref1343zb0zzglobaliza7e_freeza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2004z00zzglobaliza7e_freeza7,
		BgL_bgl_za762nodeza7d2freeza7d2038za7,
		BGl_z62nodezd2freezd2boxzd2setz121345za2zzglobaliza7e_freeza7, 0L, BUNSPEC,
		2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_thezd2closurezd2envz00zzglobaliza7e_freeza7,
		BgL_bgl_za762theza7d2closure2039z00,
		BGl_z62thezd2closurezb0zzglobaliza7e_freeza7, 0L, BUNSPEC, 2);

/* GC roots registration */
	static obj_t bgl_gc_roots_register()
	{
#if defined( BGL_GC_ROOTS )
#define ADD_ROOT( addr ) (addr > roots_max ? roots_max = addr : (addr < roots_min ? roots_min = addr : 0))
		void *roots_min = (void *) ULONG_MAX, *roots_max = 0;
		   
			 ADD_ROOT((void
				*) (&BGl_requirezd2initializa7ationz75zzglobaliza7e_freeza7));
		     ADD_ROOT((void *) (&BGl_za2integratorza2z00zzglobaliza7e_freeza7));
#undef ADD_ROOT
		if   (roots_max > 0)
			     GC_add_roots(roots_min, ((void **) roots_max) + 1);
#endif
		     return BUNSPEC;
	}



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

	}



/* library-modules-init */
	obj_t BGl_libraryzd2moduleszd2initz00zzglobaliza7e_freeza7(void)
	{
		{	/* Globalize/free.scm 15 */
			BGl_modulezd2initializa7ationz75zz__objectz00(0L, "globalize_free");
			BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(0L,
				"globalize_free");
			BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(0L,
				"globalize_free");
			BGl_modulezd2initializa7ationz75zz__readerz00(0L, "globalize_free");
			BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(0L,
				"globalize_free");
			BGl_modulezd2initializa7ationz75zz__errorz00(0L, "globalize_free");
			BGl_modulezd2initializa7ationz75zz__bitz00(0L, "globalize_free");
			BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(0L,
				"globalize_free");
			BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(0L,
				"globalize_free");
			BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(0L,
				"globalize_free");
			BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(0L,
				"globalize_free");
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(0L,
				"globalize_free");
			return BUNSPEC;
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zzglobaliza7e_freeza7(void)
	{
		{	/* Globalize/free.scm 15 */
			{	/* Globalize/free.scm 15 */
				obj_t BgL_cportz00_3414;

				{	/* Globalize/free.scm 15 */
					obj_t BgL_stringz00_3421;

					BgL_stringz00_3421 = BGl_string2006z00zzglobaliza7e_freeza7;
					{	/* Globalize/free.scm 15 */
						obj_t BgL_startz00_3422;

						BgL_startz00_3422 = BINT(0L);
						{	/* Globalize/free.scm 15 */
							obj_t BgL_endz00_3423;

							BgL_endz00_3423 =
								BINT(STRING_LENGTH(((obj_t) BgL_stringz00_3421)));
							{	/* Globalize/free.scm 15 */

								BgL_cportz00_3414 =
									BGl_openzd2inputzd2stringz12z12zz__r4_ports_6_10_1z00
									(BgL_stringz00_3421, BgL_startz00_3422, BgL_endz00_3423);
				}}}}
				{
					long BgL_iz00_3415;

					BgL_iz00_3415 = 5L;
				BgL_loopz00_3416:
					if ((BgL_iz00_3415 == -1L))
						{	/* Globalize/free.scm 15 */
							return BUNSPEC;
						}
					else
						{	/* Globalize/free.scm 15 */
							{	/* Globalize/free.scm 15 */
								obj_t BgL_arg2007z00_3417;

								{	/* Globalize/free.scm 15 */

									{	/* Globalize/free.scm 15 */
										obj_t BgL_locationz00_3419;

										BgL_locationz00_3419 = BBOOL(((bool_t) 0));
										{	/* Globalize/free.scm 15 */

											BgL_arg2007z00_3417 =
												BGl_readz00zz__readerz00(BgL_cportz00_3414,
												BgL_locationz00_3419);
										}
									}
								}
								{	/* Globalize/free.scm 15 */
									int BgL_tmpz00_3593;

									BgL_tmpz00_3593 = (int) (BgL_iz00_3415);
									CNST_TABLE_SET(BgL_tmpz00_3593, BgL_arg2007z00_3417);
							}}
							{	/* Globalize/free.scm 15 */
								int BgL_auxz00_3420;

								BgL_auxz00_3420 = (int) ((BgL_iz00_3415 - 1L));
								{
									long BgL_iz00_3598;

									BgL_iz00_3598 = (long) (BgL_auxz00_3420);
									BgL_iz00_3415 = BgL_iz00_3598;
									goto BgL_loopz00_3416;
								}
							}
						}
				}
			}
		}

	}



/* gc-roots-init */
	obj_t BGl_gczd2rootszd2initz00zzglobaliza7e_freeza7(void)
	{
		{	/* Globalize/free.scm 15 */
			return bgl_gc_roots_register();
		}

	}



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

	}



/* mark-variable! */
	obj_t BGl_markzd2variablez12zc0zzglobaliza7e_freeza7(BgL_localz00_bglt
		BgL_localz00_3)
	{
		{	/* Globalize/free.scm 44 */
			{	/* Globalize/free.scm 45 */
				BgL_valuez00_bglt BgL_infoz00_1755;

				BgL_infoz00_1755 =
					(((BgL_variablez00_bglt) COBJECT(
							((BgL_variablez00_bglt) BgL_localz00_3)))->BgL_valuez00);
				{	/* Globalize/free.scm 47 */
					bool_t BgL_test2042z00_3603;

					{	/* Globalize/free.scm 47 */
						obj_t BgL_classz00_2354;

						BgL_classz00_2354 = BGl_svarzf2Ginfozf2zzglobaliza7e_ginfoza7;
						{	/* Globalize/free.scm 47 */
							BgL_objectz00_bglt BgL_arg1801z00_2356;

							{	/* Globalize/free.scm 47 */
								obj_t BgL_tmpz00_3604;

								BgL_tmpz00_3604 =
									((obj_t) ((BgL_objectz00_bglt) BgL_infoz00_1755));
								BgL_arg1801z00_2356 = (BgL_objectz00_bglt) (BgL_tmpz00_3604);
							}
							if (BGL_CONDEXPAND_ISA_ARCH64())
								{	/* Globalize/free.scm 47 */
									long BgL_idxz00_2362;

									BgL_idxz00_2362 =
										BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_2356);
									BgL_test2042z00_3603 =
										(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
											(BgL_idxz00_2362 + 3L)) == BgL_classz00_2354);
								}
							else
								{	/* Globalize/free.scm 47 */
									bool_t BgL_res1951z00_2384;

									{	/* Globalize/free.scm 47 */
										obj_t BgL_oclassz00_2370;

										{	/* Globalize/free.scm 47 */
											long BgL_arg1808z00_2376;

											{	/* Globalize/free.scm 47 */
												long BgL_arg1809z00_2377;

												BgL_arg1809z00_2377 =
													BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_2356);
												BgL_arg1808z00_2376 =
													(BgL_arg1809z00_2377 - OBJECT_TYPE);
											}
											BgL_oclassz00_2370 =
												VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
												BgL_arg1808z00_2376);
										}
										{	/* Globalize/free.scm 47 */
											bool_t BgL__ortest_1115z00_2371;

											BgL__ortest_1115z00_2371 =
												(BgL_classz00_2354 == BgL_oclassz00_2370);
											if (BgL__ortest_1115z00_2371)
												{	/* Globalize/free.scm 47 */
													BgL_res1951z00_2384 = BgL__ortest_1115z00_2371;
												}
											else
												{	/* Globalize/free.scm 47 */
													long BgL_odepthz00_2372;

													BgL_odepthz00_2372 =
														BGL_CLASS_DEPTH(BgL_oclassz00_2370);
													if ((3L < BgL_odepthz00_2372))
														{	/* Globalize/free.scm 47 */
															obj_t BgL_arg1797z00_2374;

															BgL_arg1797z00_2374 =
																BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_2370, 3L);
															BgL_res1951z00_2384 =
																(BgL_arg1797z00_2374 == BgL_classz00_2354);
														}
													else
														{	/* Globalize/free.scm 47 */
															BgL_res1951z00_2384 = ((bool_t) 0);
														}
												}
										}
									}
									BgL_test2042z00_3603 = BgL_res1951z00_2384;
								}
						}
					}
					if (BgL_test2042z00_3603)
						{	/* Globalize/free.scm 48 */
							long BgL_vz00_2386;

							BgL_vz00_2386 = BGl_za2roundza2z00zzglobaliza7e_freeza7;
							{
								BgL_svarzf2ginfozf2_bglt BgL_auxz00_3624;

								{
									obj_t BgL_auxz00_3625;

									{	/* Globalize/free.scm 48 */
										BgL_objectz00_bglt BgL_tmpz00_3626;

										BgL_tmpz00_3626 =
											((BgL_objectz00_bglt)
											((BgL_svarz00_bglt) BgL_infoz00_1755));
										BgL_auxz00_3625 = BGL_OBJECT_WIDENING(BgL_tmpz00_3626);
									}
									BgL_auxz00_3624 =
										((BgL_svarzf2ginfozf2_bglt) BgL_auxz00_3625);
								}
								return
									((((BgL_svarzf2ginfozf2_bglt) COBJECT(BgL_auxz00_3624))->
										BgL_freezd2markzd2) = ((long) BgL_vz00_2386), BUNSPEC);
						}}
					else
						{	/* Globalize/free.scm 49 */
							bool_t BgL_test2046z00_3632;

							{	/* Globalize/free.scm 49 */
								obj_t BgL_classz00_2388;

								BgL_classz00_2388 = BGl_sfunzf2Ginfozf2zzglobaliza7e_ginfoza7;
								{	/* Globalize/free.scm 49 */
									BgL_objectz00_bglt BgL_arg1801z00_2390;

									{	/* Globalize/free.scm 49 */
										obj_t BgL_tmpz00_3633;

										BgL_tmpz00_3633 =
											((obj_t) ((BgL_objectz00_bglt) BgL_infoz00_1755));
										BgL_arg1801z00_2390 =
											(BgL_objectz00_bglt) (BgL_tmpz00_3633);
									}
									if (BGL_CONDEXPAND_ISA_ARCH64())
										{	/* Globalize/free.scm 49 */
											long BgL_idxz00_2396;

											BgL_idxz00_2396 =
												BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_2390);
											BgL_test2046z00_3632 =
												(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
													(BgL_idxz00_2396 + 4L)) == BgL_classz00_2388);
										}
									else
										{	/* Globalize/free.scm 49 */
											bool_t BgL_res1952z00_2418;

											{	/* Globalize/free.scm 49 */
												obj_t BgL_oclassz00_2404;

												{	/* Globalize/free.scm 49 */
													long BgL_arg1808z00_2410;

													{	/* Globalize/free.scm 49 */
														long BgL_arg1809z00_2411;

														BgL_arg1809z00_2411 =
															BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_2390);
														BgL_arg1808z00_2410 =
															(BgL_arg1809z00_2411 - OBJECT_TYPE);
													}
													BgL_oclassz00_2404 =
														VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
														BgL_arg1808z00_2410);
												}
												{	/* Globalize/free.scm 49 */
													bool_t BgL__ortest_1115z00_2405;

													BgL__ortest_1115z00_2405 =
														(BgL_classz00_2388 == BgL_oclassz00_2404);
													if (BgL__ortest_1115z00_2405)
														{	/* Globalize/free.scm 49 */
															BgL_res1952z00_2418 = BgL__ortest_1115z00_2405;
														}
													else
														{	/* Globalize/free.scm 49 */
															long BgL_odepthz00_2406;

															BgL_odepthz00_2406 =
																BGL_CLASS_DEPTH(BgL_oclassz00_2404);
															if ((4L < BgL_odepthz00_2406))
																{	/* Globalize/free.scm 49 */
																	obj_t BgL_arg1797z00_2408;

																	BgL_arg1797z00_2408 =
																		BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_2404,
																		4L);
																	BgL_res1952z00_2418 =
																		(BgL_arg1797z00_2408 == BgL_classz00_2388);
																}
															else
																{	/* Globalize/free.scm 49 */
																	BgL_res1952z00_2418 = ((bool_t) 0);
																}
														}
												}
											}
											BgL_test2046z00_3632 = BgL_res1952z00_2418;
										}
								}
							}
							if (BgL_test2046z00_3632)
								{	/* Globalize/free.scm 50 */
									obj_t BgL_vz00_2420;

									BgL_vz00_2420 = BINT(BGl_za2roundza2z00zzglobaliza7e_freeza7);
									{
										BgL_sfunzf2ginfozf2_bglt BgL_auxz00_3654;

										{
											obj_t BgL_auxz00_3655;

											{	/* Globalize/free.scm 50 */
												BgL_objectz00_bglt BgL_tmpz00_3656;

												BgL_tmpz00_3656 =
													((BgL_objectz00_bglt)
													((BgL_sfunz00_bglt) BgL_infoz00_1755));
												BgL_auxz00_3655 = BGL_OBJECT_WIDENING(BgL_tmpz00_3656);
											}
											BgL_auxz00_3654 =
												((BgL_sfunzf2ginfozf2_bglt) BgL_auxz00_3655);
										}
										return
											((((BgL_sfunzf2ginfozf2_bglt) COBJECT(BgL_auxz00_3654))->
												BgL_freezd2markzd2) = ((obj_t) BgL_vz00_2420), BUNSPEC);
									}
								}
							else
								{	/* Globalize/free.scm 51 */
									bool_t BgL_test2050z00_3662;

									{	/* Globalize/free.scm 51 */
										obj_t BgL_classz00_2422;

										BgL_classz00_2422 =
											BGl_sexitzf2Ginfozf2zzglobaliza7e_ginfoza7;
										{	/* Globalize/free.scm 51 */
											BgL_objectz00_bglt BgL_arg1801z00_2424;

											{	/* Globalize/free.scm 51 */
												obj_t BgL_tmpz00_3663;

												BgL_tmpz00_3663 =
													((obj_t) ((BgL_objectz00_bglt) BgL_infoz00_1755));
												BgL_arg1801z00_2424 =
													(BgL_objectz00_bglt) (BgL_tmpz00_3663);
											}
											if (BGL_CONDEXPAND_ISA_ARCH64())
												{	/* Globalize/free.scm 51 */
													long BgL_idxz00_2430;

													BgL_idxz00_2430 =
														BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_2424);
													BgL_test2050z00_3662 =
														(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
															(BgL_idxz00_2430 + 3L)) == BgL_classz00_2422);
												}
											else
												{	/* Globalize/free.scm 51 */
													bool_t BgL_res1953z00_2452;

													{	/* Globalize/free.scm 51 */
														obj_t BgL_oclassz00_2438;

														{	/* Globalize/free.scm 51 */
															long BgL_arg1808z00_2444;

															{	/* Globalize/free.scm 51 */
																long BgL_arg1809z00_2445;

																BgL_arg1809z00_2445 =
																	BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_2424);
																BgL_arg1808z00_2444 =
																	(BgL_arg1809z00_2445 - OBJECT_TYPE);
															}
															BgL_oclassz00_2438 =
																VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
																BgL_arg1808z00_2444);
														}
														{	/* Globalize/free.scm 51 */
															bool_t BgL__ortest_1115z00_2439;

															BgL__ortest_1115z00_2439 =
																(BgL_classz00_2422 == BgL_oclassz00_2438);
															if (BgL__ortest_1115z00_2439)
																{	/* Globalize/free.scm 51 */
																	BgL_res1953z00_2452 =
																		BgL__ortest_1115z00_2439;
																}
															else
																{	/* Globalize/free.scm 51 */
																	long BgL_odepthz00_2440;

																	BgL_odepthz00_2440 =
																		BGL_CLASS_DEPTH(BgL_oclassz00_2438);
																	if ((3L < BgL_odepthz00_2440))
																		{	/* Globalize/free.scm 51 */
																			obj_t BgL_arg1797z00_2442;

																			BgL_arg1797z00_2442 =
																				BGL_CLASS_ANCESTORS_REF
																				(BgL_oclassz00_2438, 3L);
																			BgL_res1953z00_2452 =
																				(BgL_arg1797z00_2442 ==
																				BgL_classz00_2422);
																		}
																	else
																		{	/* Globalize/free.scm 51 */
																			BgL_res1953z00_2452 = ((bool_t) 0);
																		}
																}
														}
													}
													BgL_test2050z00_3662 = BgL_res1953z00_2452;
												}
										}
									}
									if (BgL_test2050z00_3662)
										{	/* Globalize/free.scm 52 */
											long BgL_vz00_2454;

											BgL_vz00_2454 = BGl_za2roundza2z00zzglobaliza7e_freeza7;
											{
												BgL_sexitzf2ginfozf2_bglt BgL_auxz00_3683;

												{
													obj_t BgL_auxz00_3684;

													{	/* Globalize/free.scm 52 */
														BgL_objectz00_bglt BgL_tmpz00_3685;

														BgL_tmpz00_3685 =
															((BgL_objectz00_bglt)
															((BgL_sexitz00_bglt) BgL_infoz00_1755));
														BgL_auxz00_3684 =
															BGL_OBJECT_WIDENING(BgL_tmpz00_3685);
													}
													BgL_auxz00_3683 =
														((BgL_sexitzf2ginfozf2_bglt) BgL_auxz00_3684);
												}
												return
													((((BgL_sexitzf2ginfozf2_bglt)
															COBJECT(BgL_auxz00_3683))->BgL_freezd2markzd2) =
													((long) BgL_vz00_2454), BUNSPEC);
										}}
									else
										{	/* Globalize/free.scm 51 */
											return BFALSE;
										}
								}
						}
				}
			}
		}

	}



/* bind-variable! */
	obj_t BGl_bindzd2variablez12zc0zzglobaliza7e_freeza7(BgL_localz00_bglt
		BgL_localz00_4, BgL_localz00_bglt BgL_integratorz00_5)
	{
		{	/* Globalize/free.scm 57 */
			{	/* Globalize/free.scm 58 */
				BgL_valuez00_bglt BgL_finfoz00_1759;

				BgL_finfoz00_1759 =
					(((BgL_variablez00_bglt) COBJECT(
							((BgL_variablez00_bglt) BgL_integratorz00_5)))->BgL_valuez00);
				{	/* Globalize/free.scm 59 */
					obj_t BgL_arg1361z00_1760;

					{	/* Globalize/free.scm 59 */
						obj_t BgL_arg1363z00_1761;

						{
							BgL_sfunzf2ginfozf2_bglt BgL_auxz00_3693;

							{
								obj_t BgL_auxz00_3694;

								{	/* Globalize/free.scm 59 */
									BgL_objectz00_bglt BgL_tmpz00_3695;

									BgL_tmpz00_3695 =
										((BgL_objectz00_bglt)
										((BgL_sfunz00_bglt) BgL_finfoz00_1759));
									BgL_auxz00_3694 = BGL_OBJECT_WIDENING(BgL_tmpz00_3695);
								}
								BgL_auxz00_3693 = ((BgL_sfunzf2ginfozf2_bglt) BgL_auxz00_3694);
							}
							BgL_arg1363z00_1761 =
								(((BgL_sfunzf2ginfozf2_bglt) COBJECT(BgL_auxz00_3693))->
								BgL_boundz00);
						}
						BgL_arg1361z00_1760 =
							MAKE_YOUNG_PAIR(((obj_t) BgL_localz00_4), BgL_arg1363z00_1761);
					}
					{
						BgL_sfunzf2ginfozf2_bglt BgL_auxz00_3703;

						{
							obj_t BgL_auxz00_3704;

							{	/* Globalize/free.scm 59 */
								BgL_objectz00_bglt BgL_tmpz00_3705;

								BgL_tmpz00_3705 =
									((BgL_objectz00_bglt) ((BgL_sfunz00_bglt) BgL_finfoz00_1759));
								BgL_auxz00_3704 = BGL_OBJECT_WIDENING(BgL_tmpz00_3705);
							}
							BgL_auxz00_3703 = ((BgL_sfunzf2ginfozf2_bglt) BgL_auxz00_3704);
						}
						((((BgL_sfunzf2ginfozf2_bglt) COBJECT(BgL_auxz00_3703))->
								BgL_boundz00) = ((obj_t) BgL_arg1361z00_1760), BUNSPEC);
					}
				}
				return BGl_markzd2variablez12zc0zzglobaliza7e_freeza7(BgL_localz00_4);
			}
		}

	}



/* free-variable? */
	obj_t BGl_freezd2variablezf3z21zzglobaliza7e_freeza7(obj_t BgL_localz00_6)
	{
		{	/* Globalize/free.scm 65 */
			{	/* Globalize/free.scm 66 */
				bool_t BgL_test2054z00_3712;

				{	/* Globalize/free.scm 66 */
					obj_t BgL_classz00_2461;

					BgL_classz00_2461 = BGl_localz00zzast_varz00;
					if (BGL_OBJECTP(BgL_localz00_6))
						{	/* Globalize/free.scm 66 */
							BgL_objectz00_bglt BgL_arg1801z00_2463;

							BgL_arg1801z00_2463 = (BgL_objectz00_bglt) (BgL_localz00_6);
							if (BGL_CONDEXPAND_ISA_ARCH64())
								{	/* Globalize/free.scm 66 */
									long BgL_idxz00_2469;

									BgL_idxz00_2469 =
										BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_2463);
									BgL_test2054z00_3712 =
										(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
											(BgL_idxz00_2469 + 2L)) == BgL_classz00_2461);
								}
							else
								{	/* Globalize/free.scm 66 */
									bool_t BgL_res1954z00_2491;

									{	/* Globalize/free.scm 66 */
										obj_t BgL_oclassz00_2477;

										{	/* Globalize/free.scm 66 */
											long BgL_arg1808z00_2483;

											{	/* Globalize/free.scm 66 */
												long BgL_arg1809z00_2484;

												BgL_arg1809z00_2484 =
													BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_2463);
												BgL_arg1808z00_2483 =
													(BgL_arg1809z00_2484 - OBJECT_TYPE);
											}
											BgL_oclassz00_2477 =
												VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
												BgL_arg1808z00_2483);
										}
										{	/* Globalize/free.scm 66 */
											bool_t BgL__ortest_1115z00_2478;

											BgL__ortest_1115z00_2478 =
												(BgL_classz00_2461 == BgL_oclassz00_2477);
											if (BgL__ortest_1115z00_2478)
												{	/* Globalize/free.scm 66 */
													BgL_res1954z00_2491 = BgL__ortest_1115z00_2478;
												}
											else
												{	/* Globalize/free.scm 66 */
													long BgL_odepthz00_2479;

													BgL_odepthz00_2479 =
														BGL_CLASS_DEPTH(BgL_oclassz00_2477);
													if ((2L < BgL_odepthz00_2479))
														{	/* Globalize/free.scm 66 */
															obj_t BgL_arg1797z00_2481;

															BgL_arg1797z00_2481 =
																BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_2477, 2L);
															BgL_res1954z00_2491 =
																(BgL_arg1797z00_2481 == BgL_classz00_2461);
														}
													else
														{	/* Globalize/free.scm 66 */
															BgL_res1954z00_2491 = ((bool_t) 0);
														}
												}
										}
									}
									BgL_test2054z00_3712 = BgL_res1954z00_2491;
								}
						}
					else
						{	/* Globalize/free.scm 66 */
							BgL_test2054z00_3712 = ((bool_t) 0);
						}
				}
				if (BgL_test2054z00_3712)
					{	/* Globalize/free.scm 67 */
						BgL_valuez00_bglt BgL_infoz00_1763;

						BgL_infoz00_1763 =
							(((BgL_variablez00_bglt) COBJECT(
									((BgL_variablez00_bglt)
										((BgL_localz00_bglt) BgL_localz00_6))))->BgL_valuez00);
						{	/* Globalize/free.scm 69 */
							bool_t BgL_test2059z00_3735;

							{	/* Globalize/free.scm 69 */
								obj_t BgL_classz00_2493;

								BgL_classz00_2493 = BGl_svarzf2Ginfozf2zzglobaliza7e_ginfoza7;
								{	/* Globalize/free.scm 69 */
									BgL_objectz00_bglt BgL_arg1801z00_2495;

									{	/* Globalize/free.scm 69 */
										obj_t BgL_tmpz00_3736;

										BgL_tmpz00_3736 =
											((obj_t) ((BgL_objectz00_bglt) BgL_infoz00_1763));
										BgL_arg1801z00_2495 =
											(BgL_objectz00_bglt) (BgL_tmpz00_3736);
									}
									if (BGL_CONDEXPAND_ISA_ARCH64())
										{	/* Globalize/free.scm 69 */
											long BgL_idxz00_2501;

											BgL_idxz00_2501 =
												BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_2495);
											BgL_test2059z00_3735 =
												(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
													(BgL_idxz00_2501 + 3L)) == BgL_classz00_2493);
										}
									else
										{	/* Globalize/free.scm 69 */
											bool_t BgL_res1955z00_2523;

											{	/* Globalize/free.scm 69 */
												obj_t BgL_oclassz00_2509;

												{	/* Globalize/free.scm 69 */
													long BgL_arg1808z00_2515;

													{	/* Globalize/free.scm 69 */
														long BgL_arg1809z00_2516;

														BgL_arg1809z00_2516 =
															BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_2495);
														BgL_arg1808z00_2515 =
															(BgL_arg1809z00_2516 - OBJECT_TYPE);
													}
													BgL_oclassz00_2509 =
														VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
														BgL_arg1808z00_2515);
												}
												{	/* Globalize/free.scm 69 */
													bool_t BgL__ortest_1115z00_2510;

													BgL__ortest_1115z00_2510 =
														(BgL_classz00_2493 == BgL_oclassz00_2509);
													if (BgL__ortest_1115z00_2510)
														{	/* Globalize/free.scm 69 */
															BgL_res1955z00_2523 = BgL__ortest_1115z00_2510;
														}
													else
														{	/* Globalize/free.scm 69 */
															long BgL_odepthz00_2511;

															BgL_odepthz00_2511 =
																BGL_CLASS_DEPTH(BgL_oclassz00_2509);
															if ((3L < BgL_odepthz00_2511))
																{	/* Globalize/free.scm 69 */
																	obj_t BgL_arg1797z00_2513;

																	BgL_arg1797z00_2513 =
																		BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_2509,
																		3L);
																	BgL_res1955z00_2523 =
																		(BgL_arg1797z00_2513 == BgL_classz00_2493);
																}
															else
																{	/* Globalize/free.scm 69 */
																	BgL_res1955z00_2523 = ((bool_t) 0);
																}
														}
												}
											}
											BgL_test2059z00_3735 = BgL_res1955z00_2523;
										}
								}
							}
							if (BgL_test2059z00_3735)
								{	/* Globalize/free.scm 70 */
									bool_t BgL_test2063z00_3756;

									{	/* Globalize/free.scm 70 */
										long BgL_arg1369z00_1767;

										{
											BgL_svarzf2ginfozf2_bglt BgL_auxz00_3757;

											{
												obj_t BgL_auxz00_3758;

												{	/* Globalize/free.scm 70 */
													BgL_objectz00_bglt BgL_tmpz00_3759;

													BgL_tmpz00_3759 =
														((BgL_objectz00_bglt)
														((BgL_svarz00_bglt) BgL_infoz00_1763));
													BgL_auxz00_3758 =
														BGL_OBJECT_WIDENING(BgL_tmpz00_3759);
												}
												BgL_auxz00_3757 =
													((BgL_svarzf2ginfozf2_bglt) BgL_auxz00_3758);
											}
											BgL_arg1369z00_1767 =
												(((BgL_svarzf2ginfozf2_bglt) COBJECT(BgL_auxz00_3757))->
												BgL_freezd2markzd2);
										}
										BgL_test2063z00_3756 =
											(BgL_arg1369z00_1767 ==
											BGl_za2roundza2z00zzglobaliza7e_freeza7);
									}
									if (BgL_test2063z00_3756)
										{	/* Globalize/free.scm 70 */
											return BFALSE;
										}
									else
										{	/* Globalize/free.scm 70 */
											return BTRUE;
										}
								}
							else
								{	/* Globalize/free.scm 71 */
									bool_t BgL_test2064z00_3766;

									{	/* Globalize/free.scm 71 */
										obj_t BgL_classz00_2526;

										BgL_classz00_2526 =
											BGl_sfunzf2Ginfozf2zzglobaliza7e_ginfoza7;
										{	/* Globalize/free.scm 71 */
											BgL_objectz00_bglt BgL_arg1801z00_2528;

											{	/* Globalize/free.scm 71 */
												obj_t BgL_tmpz00_3767;

												BgL_tmpz00_3767 =
													((obj_t) ((BgL_objectz00_bglt) BgL_infoz00_1763));
												BgL_arg1801z00_2528 =
													(BgL_objectz00_bglt) (BgL_tmpz00_3767);
											}
											if (BGL_CONDEXPAND_ISA_ARCH64())
												{	/* Globalize/free.scm 71 */
													long BgL_idxz00_2534;

													BgL_idxz00_2534 =
														BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_2528);
													BgL_test2064z00_3766 =
														(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
															(BgL_idxz00_2534 + 4L)) == BgL_classz00_2526);
												}
											else
												{	/* Globalize/free.scm 71 */
													bool_t BgL_res1956z00_2556;

													{	/* Globalize/free.scm 71 */
														obj_t BgL_oclassz00_2542;

														{	/* Globalize/free.scm 71 */
															long BgL_arg1808z00_2548;

															{	/* Globalize/free.scm 71 */
																long BgL_arg1809z00_2549;

																BgL_arg1809z00_2549 =
																	BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_2528);
																BgL_arg1808z00_2548 =
																	(BgL_arg1809z00_2549 - OBJECT_TYPE);
															}
															BgL_oclassz00_2542 =
																VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
																BgL_arg1808z00_2548);
														}
														{	/* Globalize/free.scm 71 */
															bool_t BgL__ortest_1115z00_2543;

															BgL__ortest_1115z00_2543 =
																(BgL_classz00_2526 == BgL_oclassz00_2542);
															if (BgL__ortest_1115z00_2543)
																{	/* Globalize/free.scm 71 */
																	BgL_res1956z00_2556 =
																		BgL__ortest_1115z00_2543;
																}
															else
																{	/* Globalize/free.scm 71 */
																	long BgL_odepthz00_2544;

																	BgL_odepthz00_2544 =
																		BGL_CLASS_DEPTH(BgL_oclassz00_2542);
																	if ((4L < BgL_odepthz00_2544))
																		{	/* Globalize/free.scm 71 */
																			obj_t BgL_arg1797z00_2546;

																			BgL_arg1797z00_2546 =
																				BGL_CLASS_ANCESTORS_REF
																				(BgL_oclassz00_2542, 4L);
																			BgL_res1956z00_2556 =
																				(BgL_arg1797z00_2546 ==
																				BgL_classz00_2526);
																		}
																	else
																		{	/* Globalize/free.scm 71 */
																			BgL_res1956z00_2556 = ((bool_t) 0);
																		}
																}
														}
													}
													BgL_test2064z00_3766 = BgL_res1956z00_2556;
												}
										}
									}
									if (BgL_test2064z00_3766)
										{	/* Globalize/free.scm 72 */
											bool_t BgL_test2068z00_3787;

											{	/* Globalize/free.scm 72 */
												obj_t BgL_arg1397z00_1771;

												{
													BgL_sfunzf2ginfozf2_bglt BgL_auxz00_3788;

													{
														obj_t BgL_auxz00_3789;

														{	/* Globalize/free.scm 72 */
															BgL_objectz00_bglt BgL_tmpz00_3790;

															BgL_tmpz00_3790 =
																((BgL_objectz00_bglt)
																((BgL_sfunz00_bglt) BgL_infoz00_1763));
															BgL_auxz00_3789 =
																BGL_OBJECT_WIDENING(BgL_tmpz00_3790);
														}
														BgL_auxz00_3788 =
															((BgL_sfunzf2ginfozf2_bglt) BgL_auxz00_3789);
													}
													BgL_arg1397z00_1771 =
														(((BgL_sfunzf2ginfozf2_bglt)
															COBJECT(BgL_auxz00_3788))->BgL_freezd2markzd2);
												}
												BgL_test2068z00_3787 =
													(BgL_arg1397z00_1771 ==
													BINT(BGl_za2roundza2z00zzglobaliza7e_freeza7));
											}
											if (BgL_test2068z00_3787)
												{	/* Globalize/free.scm 72 */
													return BFALSE;
												}
											else
												{	/* Globalize/free.scm 72 */
													return BTRUE;
												}
										}
									else
										{	/* Globalize/free.scm 73 */
											bool_t BgL_test2069z00_3798;

											{	/* Globalize/free.scm 73 */
												obj_t BgL_classz00_2559;

												BgL_classz00_2559 =
													BGl_sexitzf2Ginfozf2zzglobaliza7e_ginfoza7;
												{	/* Globalize/free.scm 73 */
													BgL_objectz00_bglt BgL_arg1801z00_2561;

													{	/* Globalize/free.scm 73 */
														obj_t BgL_tmpz00_3799;

														BgL_tmpz00_3799 =
															((obj_t) ((BgL_objectz00_bglt) BgL_infoz00_1763));
														BgL_arg1801z00_2561 =
															(BgL_objectz00_bglt) (BgL_tmpz00_3799);
													}
													if (BGL_CONDEXPAND_ISA_ARCH64())
														{	/* Globalize/free.scm 73 */
															long BgL_idxz00_2567;

															BgL_idxz00_2567 =
																BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_2561);
															BgL_test2069z00_3798 =
																(VECTOR_REF
																(BGl_za2inheritancesza2z00zz__objectz00,
																	(BgL_idxz00_2567 + 3L)) == BgL_classz00_2559);
														}
													else
														{	/* Globalize/free.scm 73 */
															bool_t BgL_res1957z00_2589;

															{	/* Globalize/free.scm 73 */
																obj_t BgL_oclassz00_2575;

																{	/* Globalize/free.scm 73 */
																	long BgL_arg1808z00_2581;

																	{	/* Globalize/free.scm 73 */
																		long BgL_arg1809z00_2582;

																		BgL_arg1809z00_2582 =
																			BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_2561);
																		BgL_arg1808z00_2581 =
																			(BgL_arg1809z00_2582 - OBJECT_TYPE);
																	}
																	BgL_oclassz00_2575 =
																		VECTOR_REF
																		(BGl_za2classesza2z00zz__objectz00,
																		BgL_arg1808z00_2581);
																}
																{	/* Globalize/free.scm 73 */
																	bool_t BgL__ortest_1115z00_2576;

																	BgL__ortest_1115z00_2576 =
																		(BgL_classz00_2559 == BgL_oclassz00_2575);
																	if (BgL__ortest_1115z00_2576)
																		{	/* Globalize/free.scm 73 */
																			BgL_res1957z00_2589 =
																				BgL__ortest_1115z00_2576;
																		}
																	else
																		{	/* Globalize/free.scm 73 */
																			long BgL_odepthz00_2577;

																			BgL_odepthz00_2577 =
																				BGL_CLASS_DEPTH(BgL_oclassz00_2575);
																			if ((3L < BgL_odepthz00_2577))
																				{	/* Globalize/free.scm 73 */
																					obj_t BgL_arg1797z00_2579;

																					BgL_arg1797z00_2579 =
																						BGL_CLASS_ANCESTORS_REF
																						(BgL_oclassz00_2575, 3L);
																					BgL_res1957z00_2589 =
																						(BgL_arg1797z00_2579 ==
																						BgL_classz00_2559);
																				}
																			else
																				{	/* Globalize/free.scm 73 */
																					BgL_res1957z00_2589 = ((bool_t) 0);
																				}
																		}
																}
															}
															BgL_test2069z00_3798 = BgL_res1957z00_2589;
														}
												}
											}
											if (BgL_test2069z00_3798)
												{	/* Globalize/free.scm 74 */
													bool_t BgL_test2073z00_3819;

													{	/* Globalize/free.scm 74 */
														long BgL_arg1420z00_1775;

														{
															BgL_sexitzf2ginfozf2_bglt BgL_auxz00_3820;

															{
																obj_t BgL_auxz00_3821;

																{	/* Globalize/free.scm 74 */
																	BgL_objectz00_bglt BgL_tmpz00_3822;

																	BgL_tmpz00_3822 =
																		((BgL_objectz00_bglt)
																		((BgL_sexitz00_bglt) BgL_infoz00_1763));
																	BgL_auxz00_3821 =
																		BGL_OBJECT_WIDENING(BgL_tmpz00_3822);
																}
																BgL_auxz00_3820 =
																	((BgL_sexitzf2ginfozf2_bglt) BgL_auxz00_3821);
															}
															BgL_arg1420z00_1775 =
																(((BgL_sexitzf2ginfozf2_bglt)
																	COBJECT(BgL_auxz00_3820))->
																BgL_freezd2markzd2);
														}
														BgL_test2073z00_3819 =
															(BgL_arg1420z00_1775 ==
															BGl_za2roundza2z00zzglobaliza7e_freeza7);
													}
													if (BgL_test2073z00_3819)
														{	/* Globalize/free.scm 74 */
															return BFALSE;
														}
													else
														{	/* Globalize/free.scm 74 */
															return BTRUE;
														}
												}
											else
												{	/* Globalize/free.scm 77 */
													obj_t BgL_arg1431z00_1776;

													{	/* Globalize/free.scm 77 */
														obj_t BgL_arg1436z00_1777;

														BgL_arg1436z00_1777 =
															BGl_shapez00zztools_shapez00(BgL_localz00_6);
														{	/* Globalize/free.scm 77 */
															obj_t BgL_list1437z00_1778;

															BgL_list1437z00_1778 =
																MAKE_YOUNG_PAIR(BgL_arg1436z00_1777, BNIL);
															BgL_arg1431z00_1776 =
																BGl_formatz00zz__r4_output_6_10_3z00
																(BGl_string1980z00zzglobaliza7e_freeza7,
																BgL_list1437z00_1778);
														}
													}
													return
														BGl_errorz00zz__errorz00
														(BGl_string1981z00zzglobaliza7e_freeza7,
														BgL_arg1431z00_1776, BgL_localz00_6);
												}
										}
								}
						}
					}
				else
					{	/* Globalize/free.scm 66 */
						return BFALSE;
					}
			}
		}

	}



/* get-free-vars */
	BGL_EXPORTED_DEF obj_t
		BGl_getzd2freezd2varsz00zzglobaliza7e_freeza7(BgL_nodez00_bglt
		BgL_nodez00_7, BgL_localz00_bglt BgL_integratorz00_8)
	{
		{	/* Globalize/free.scm 86 */
			{	/* Globalize/free.scm 89 */
				obj_t BgL_freez00_1779;

				{	/* Globalize/free.scm 89 */
					BgL_sfunz00_bglt BgL_oz00_2593;

					BgL_oz00_2593 =
						((BgL_sfunz00_bglt)
						(((BgL_variablez00_bglt) COBJECT(
									((BgL_variablez00_bglt) BgL_integratorz00_8)))->
							BgL_valuez00));
					{
						BgL_sfunzf2ginfozf2_bglt BgL_auxz00_3836;

						{
							obj_t BgL_auxz00_3837;

							{	/* Globalize/free.scm 89 */
								BgL_objectz00_bglt BgL_tmpz00_3838;

								BgL_tmpz00_3838 = ((BgL_objectz00_bglt) BgL_oz00_2593);
								BgL_auxz00_3837 = BGL_OBJECT_WIDENING(BgL_tmpz00_3838);
							}
							BgL_auxz00_3836 = ((BgL_sfunzf2ginfozf2_bglt) BgL_auxz00_3837);
						}
						BgL_freez00_1779 =
							(((BgL_sfunzf2ginfozf2_bglt) COBJECT(BgL_auxz00_3836))->
							BgL_freez00);
					}
				}
				{	/* Globalize/free.scm 90 */
					bool_t BgL_test2074z00_3843;

					if (NULLP(BgL_freez00_1779))
						{	/* Globalize/free.scm 90 */
							BgL_test2074z00_3843 = ((bool_t) 1);
						}
					else
						{	/* Globalize/free.scm 90 */
							BgL_test2074z00_3843 = PAIRP(BgL_freez00_1779);
						}
					if (BgL_test2074z00_3843)
						{	/* Globalize/free.scm 90 */
							return BgL_freez00_1779;
						}
					else
						{	/* Globalize/free.scm 92 */
							obj_t BgL_freez00_1782;

							BgL_freez00_1782 =
								BGl_internalzd2getzd2freezd2varsz12zc0zzglobaliza7e_freeza7
								(BgL_nodez00_7, BgL_integratorz00_8);
							{	/* Globalize/free.scm 93 */
								BgL_valuez00_bglt BgL_arg1450z00_1783;

								BgL_arg1450z00_1783 =
									(((BgL_variablez00_bglt) COBJECT(
											((BgL_variablez00_bglt) BgL_integratorz00_8)))->
									BgL_valuez00);
								{
									BgL_sfunzf2ginfozf2_bglt BgL_auxz00_3850;

									{
										obj_t BgL_auxz00_3851;

										{	/* Globalize/free.scm 93 */
											BgL_objectz00_bglt BgL_tmpz00_3852;

											BgL_tmpz00_3852 =
												((BgL_objectz00_bglt)
												((BgL_sfunz00_bglt) BgL_arg1450z00_1783));
											BgL_auxz00_3851 = BGL_OBJECT_WIDENING(BgL_tmpz00_3852);
										}
										BgL_auxz00_3850 =
											((BgL_sfunzf2ginfozf2_bglt) BgL_auxz00_3851);
									}
									((((BgL_sfunzf2ginfozf2_bglt) COBJECT(BgL_auxz00_3850))->
											BgL_freez00) = ((obj_t) BgL_freez00_1782), BUNSPEC);
								}
							}
							return BgL_freez00_1782;
						}
				}
			}
		}

	}



/* &get-free-vars */
	obj_t BGl_z62getzd2freezd2varsz62zzglobaliza7e_freeza7(obj_t BgL_envz00_3315,
		obj_t BgL_nodez00_3316, obj_t BgL_integratorz00_3317)
	{
		{	/* Globalize/free.scm 86 */
			return
				BGl_getzd2freezd2varsz00zzglobaliza7e_freeza7(
				((BgL_nodez00_bglt) BgL_nodez00_3316),
				((BgL_localz00_bglt) BgL_integratorz00_3317));
		}

	}



/* internal-get-free-vars! */
	obj_t
		BGl_internalzd2getzd2freezd2varsz12zc0zzglobaliza7e_freeza7(BgL_nodez00_bglt
		BgL_nodez00_9, BgL_localz00_bglt BgL_integratorz00_10)
	{
		{	/* Globalize/free.scm 107 */
			BGl_za2roundza2z00zzglobaliza7e_freeza7 =
				(BGl_za2roundza2z00zzglobaliza7e_freeza7 + 1L);
			BGl_za2integratorza2z00zzglobaliza7e_freeza7 =
				((obj_t) BgL_integratorz00_10);
			BGl_bindzd2variablez12zc0zzglobaliza7e_freeza7(BgL_integratorz00_10,
				BgL_integratorz00_10);
			{	/* Globalize/free.scm 114 */
				obj_t BgL_arg1452z00_1786;

				{	/* Globalize/free.scm 338 */
					bool_t BgL_test2076z00_3864;

					{	/* Globalize/free.scm 338 */
						obj_t BgL_classz00_2601;

						BgL_classz00_2601 = BGl_globalz00zzast_varz00;
						{	/* Globalize/free.scm 338 */
							BgL_objectz00_bglt BgL_arg1801z00_2603;

							{	/* Globalize/free.scm 338 */
								obj_t BgL_tmpz00_3865;

								BgL_tmpz00_3865 =
									((obj_t) ((BgL_variablez00_bglt) BgL_integratorz00_10));
								BgL_arg1801z00_2603 = (BgL_objectz00_bglt) (BgL_tmpz00_3865);
							}
							if (BGL_CONDEXPAND_ISA_ARCH64())
								{	/* Globalize/free.scm 338 */
									long BgL_idxz00_2609;

									BgL_idxz00_2609 =
										BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_2603);
									BgL_test2076z00_3864 =
										(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
											(BgL_idxz00_2609 + 2L)) == BgL_classz00_2601);
								}
							else
								{	/* Globalize/free.scm 338 */
									bool_t BgL_res1958z00_2631;

									{	/* Globalize/free.scm 338 */
										obj_t BgL_oclassz00_2617;

										{	/* Globalize/free.scm 338 */
											long BgL_arg1808z00_2623;

											{	/* Globalize/free.scm 338 */
												long BgL_arg1809z00_2624;

												BgL_arg1809z00_2624 =
													BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_2603);
												BgL_arg1808z00_2623 =
													(BgL_arg1809z00_2624 - OBJECT_TYPE);
											}
											BgL_oclassz00_2617 =
												VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
												BgL_arg1808z00_2623);
										}
										{	/* Globalize/free.scm 338 */
											bool_t BgL__ortest_1115z00_2618;

											BgL__ortest_1115z00_2618 =
												(BgL_classz00_2601 == BgL_oclassz00_2617);
											if (BgL__ortest_1115z00_2618)
												{	/* Globalize/free.scm 338 */
													BgL_res1958z00_2631 = BgL__ortest_1115z00_2618;
												}
											else
												{	/* Globalize/free.scm 338 */
													long BgL_odepthz00_2619;

													BgL_odepthz00_2619 =
														BGL_CLASS_DEPTH(BgL_oclassz00_2617);
													if ((2L < BgL_odepthz00_2619))
														{	/* Globalize/free.scm 338 */
															obj_t BgL_arg1797z00_2621;

															BgL_arg1797z00_2621 =
																BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_2617, 2L);
															BgL_res1958z00_2631 =
																(BgL_arg1797z00_2621 == BgL_classz00_2601);
														}
													else
														{	/* Globalize/free.scm 338 */
															BgL_res1958z00_2631 = ((bool_t) 0);
														}
												}
										}
									}
									BgL_test2076z00_3864 = BgL_res1958z00_2631;
								}
						}
					}
					if (BgL_test2076z00_3864)
						{	/* Globalize/free.scm 338 */
							BgL_arg1452z00_1786 =
								BGl_thezd2globalzd2closurez00zzglobaliza7e_freeza7(
								((BgL_globalz00_bglt)
									((BgL_variablez00_bglt) BgL_integratorz00_10)), BFALSE);
						}
					else
						{	/* Globalize/free.scm 338 */
							BgL_arg1452z00_1786 =
								BGl_thezd2localzd2closurez00zzglobaliza7e_freeza7(
								((obj_t)
									((BgL_variablez00_bglt) BgL_integratorz00_10)), BFALSE);
						}
				}
				BGl_bindzd2variablez12zc0zzglobaliza7e_freeza7(
					((BgL_localz00_bglt) BgL_arg1452z00_1786), BgL_integratorz00_10);
			}
			{	/* Globalize/free.scm 115 */
				obj_t BgL_g1288z00_1787;

				BgL_g1288z00_1787 =
					(((BgL_sfunz00_bglt) COBJECT(
							((BgL_sfunz00_bglt)
								(((BgL_variablez00_bglt) COBJECT(
											((BgL_variablez00_bglt) BgL_integratorz00_10)))->
									BgL_valuez00))))->BgL_argsz00);
				{
					obj_t BgL_l1286z00_1789;

					BgL_l1286z00_1789 = BgL_g1288z00_1787;
				BgL_zc3z04anonymousza31453ze3z87_1790:
					if (PAIRP(BgL_l1286z00_1789))
						{	/* Globalize/free.scm 116 */
							{	/* Globalize/free.scm 115 */
								obj_t BgL_lz00_1792;

								BgL_lz00_1792 = CAR(BgL_l1286z00_1789);
								BGl_bindzd2variablez12zc0zzglobaliza7e_freeza7(
									((BgL_localz00_bglt) BgL_lz00_1792), BgL_integratorz00_10);
							}
							{
								obj_t BgL_l1286z00_3902;

								BgL_l1286z00_3902 = CDR(BgL_l1286z00_1789);
								BgL_l1286z00_1789 = BgL_l1286z00_3902;
								goto BgL_zc3z04anonymousza31453ze3z87_1790;
							}
						}
					else
						{	/* Globalize/free.scm 116 */
							((bool_t) 1);
						}
				}
			}
			return BGl_nodezd2freezd2zzglobaliza7e_freeza7(BgL_nodez00_9, BNIL);
		}

	}



/* node-free* */
	obj_t BGl_nodezd2freeza2z70zzglobaliza7e_freeza7(obj_t BgL_nodeza2za2_53,
		obj_t BgL_freez00_54)
	{
		{	/* Globalize/free.scm 326 */
			{
				obj_t BgL_nodeza2za2_1797;
				obj_t BgL_freez00_1798;

				BgL_nodeza2za2_1797 = BgL_nodeza2za2_53;
				BgL_freez00_1798 = BgL_freez00_54;
			BgL_zc3z04anonymousza31492ze3z87_1799:
				if (NULLP(BgL_nodeza2za2_1797))
					{	/* Globalize/free.scm 329 */
						return BgL_freez00_1798;
					}
				else
					{	/* Globalize/free.scm 331 */
						obj_t BgL_arg1494z00_1801;
						obj_t BgL_arg1496z00_1802;

						BgL_arg1494z00_1801 = CDR(((obj_t) BgL_nodeza2za2_1797));
						{	/* Globalize/free.scm 332 */
							obj_t BgL_arg1497z00_1803;

							BgL_arg1497z00_1803 = CAR(((obj_t) BgL_nodeza2za2_1797));
							BgL_arg1496z00_1802 =
								BGl_nodezd2freezd2zzglobaliza7e_freeza7(
								((BgL_nodez00_bglt) BgL_arg1497z00_1803), BgL_freez00_1798);
						}
						{
							obj_t BgL_freez00_3914;
							obj_t BgL_nodeza2za2_3913;

							BgL_nodeza2za2_3913 = BgL_arg1494z00_1801;
							BgL_freez00_3914 = BgL_arg1496z00_1802;
							BgL_freez00_1798 = BgL_freez00_3914;
							BgL_nodeza2za2_1797 = BgL_nodeza2za2_3913;
							goto BgL_zc3z04anonymousza31492ze3z87_1799;
						}
					}
			}
		}

	}



/* the-closure */
	BGL_EXPORTED_DEF obj_t
		BGl_thezd2closurezd2zzglobaliza7e_freeza7(BgL_variablez00_bglt
		BgL_variablez00_55, obj_t BgL_locz00_56)
	{
		{	/* Globalize/free.scm 337 */
			{	/* Globalize/free.scm 338 */
				bool_t BgL_test2082z00_3915;

				{	/* Globalize/free.scm 338 */
					obj_t BgL_classz00_2639;

					BgL_classz00_2639 = BGl_globalz00zzast_varz00;
					{	/* Globalize/free.scm 338 */
						BgL_objectz00_bglt BgL_arg1801z00_2641;

						{	/* Globalize/free.scm 338 */
							obj_t BgL_tmpz00_3916;

							BgL_tmpz00_3916 = ((obj_t) BgL_variablez00_55);
							BgL_arg1801z00_2641 = (BgL_objectz00_bglt) (BgL_tmpz00_3916);
						}
						if (BGL_CONDEXPAND_ISA_ARCH64())
							{	/* Globalize/free.scm 338 */
								long BgL_idxz00_2647;

								BgL_idxz00_2647 =
									BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_2641);
								BgL_test2082z00_3915 =
									(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
										(BgL_idxz00_2647 + 2L)) == BgL_classz00_2639);
							}
						else
							{	/* Globalize/free.scm 338 */
								bool_t BgL_res1959z00_2669;

								{	/* Globalize/free.scm 338 */
									obj_t BgL_oclassz00_2655;

									{	/* Globalize/free.scm 338 */
										long BgL_arg1808z00_2661;

										{	/* Globalize/free.scm 338 */
											long BgL_arg1809z00_2662;

											BgL_arg1809z00_2662 =
												BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_2641);
											BgL_arg1808z00_2661 = (BgL_arg1809z00_2662 - OBJECT_TYPE);
										}
										BgL_oclassz00_2655 =
											VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
											BgL_arg1808z00_2661);
									}
									{	/* Globalize/free.scm 338 */
										bool_t BgL__ortest_1115z00_2656;

										BgL__ortest_1115z00_2656 =
											(BgL_classz00_2639 == BgL_oclassz00_2655);
										if (BgL__ortest_1115z00_2656)
											{	/* Globalize/free.scm 338 */
												BgL_res1959z00_2669 = BgL__ortest_1115z00_2656;
											}
										else
											{	/* Globalize/free.scm 338 */
												long BgL_odepthz00_2657;

												BgL_odepthz00_2657 =
													BGL_CLASS_DEPTH(BgL_oclassz00_2655);
												if ((2L < BgL_odepthz00_2657))
													{	/* Globalize/free.scm 338 */
														obj_t BgL_arg1797z00_2659;

														BgL_arg1797z00_2659 =
															BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_2655, 2L);
														BgL_res1959z00_2669 =
															(BgL_arg1797z00_2659 == BgL_classz00_2639);
													}
												else
													{	/* Globalize/free.scm 338 */
														BgL_res1959z00_2669 = ((bool_t) 0);
													}
											}
									}
								}
								BgL_test2082z00_3915 = BgL_res1959z00_2669;
							}
					}
				}
				if (BgL_test2082z00_3915)
					{	/* Globalize/free.scm 338 */
						return
							BGl_thezd2globalzd2closurez00zzglobaliza7e_freeza7(
							((BgL_globalz00_bglt) BgL_variablez00_55), BgL_locz00_56);
					}
				else
					{	/* Globalize/free.scm 338 */
						return
							BGl_thezd2localzd2closurez00zzglobaliza7e_freeza7(
							((obj_t) BgL_variablez00_55), BgL_locz00_56);
					}
			}
		}

	}



/* &the-closure */
	obj_t BGl_z62thezd2closurezb0zzglobaliza7e_freeza7(obj_t BgL_envz00_3318,
		obj_t BgL_variablez00_3319, obj_t BgL_locz00_3320)
	{
		{	/* Globalize/free.scm 337 */
			return
				BGl_thezd2closurezd2zzglobaliza7e_freeza7(
				((BgL_variablez00_bglt) BgL_variablez00_3319), BgL_locz00_3320);
		}

	}



/* the-global-closure */
	BGL_EXPORTED_DEF obj_t
		BGl_thezd2globalzd2closurez00zzglobaliza7e_freeza7(BgL_globalz00_bglt
		BgL_globalz00_57, obj_t BgL_locz00_58)
	{
		{	/* Globalize/free.scm 345 */
			{
				BgL_globalz00_bglt BgL_gz00_1855;

				{	/* Globalize/free.scm 354 */
					obj_t BgL_closurez00_1807;

					BgL_closurez00_1807 =
						(((BgL_funz00_bglt) COBJECT(
								((BgL_funz00_bglt)
									(((BgL_variablez00_bglt) COBJECT(
												((BgL_variablez00_bglt) BgL_globalz00_57)))->
										BgL_valuez00))))->BgL_thezd2closurezd2);
					{	/* Globalize/free.scm 356 */
						bool_t BgL_test2086z00_3945;

						{	/* Globalize/free.scm 356 */
							obj_t BgL_classz00_2703;

							BgL_classz00_2703 = BGl_globalz00zzast_varz00;
							if (BGL_OBJECTP(BgL_closurez00_1807))
								{	/* Globalize/free.scm 356 */
									BgL_objectz00_bglt BgL_arg1801z00_2705;

									BgL_arg1801z00_2705 =
										(BgL_objectz00_bglt) (BgL_closurez00_1807);
									if (BGL_CONDEXPAND_ISA_ARCH64())
										{	/* Globalize/free.scm 356 */
											long BgL_idxz00_2711;

											BgL_idxz00_2711 =
												BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_2705);
											BgL_test2086z00_3945 =
												(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
													(BgL_idxz00_2711 + 2L)) == BgL_classz00_2703);
										}
									else
										{	/* Globalize/free.scm 356 */
											bool_t BgL_res1961z00_2733;

											{	/* Globalize/free.scm 356 */
												obj_t BgL_oclassz00_2719;

												{	/* Globalize/free.scm 356 */
													long BgL_arg1808z00_2725;

													{	/* Globalize/free.scm 356 */
														long BgL_arg1809z00_2726;

														BgL_arg1809z00_2726 =
															BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_2705);
														BgL_arg1808z00_2725 =
															(BgL_arg1809z00_2726 - OBJECT_TYPE);
													}
													BgL_oclassz00_2719 =
														VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
														BgL_arg1808z00_2725);
												}
												{	/* Globalize/free.scm 356 */
													bool_t BgL__ortest_1115z00_2720;

													BgL__ortest_1115z00_2720 =
														(BgL_classz00_2703 == BgL_oclassz00_2719);
													if (BgL__ortest_1115z00_2720)
														{	/* Globalize/free.scm 356 */
															BgL_res1961z00_2733 = BgL__ortest_1115z00_2720;
														}
													else
														{	/* Globalize/free.scm 356 */
															long BgL_odepthz00_2721;

															BgL_odepthz00_2721 =
																BGL_CLASS_DEPTH(BgL_oclassz00_2719);
															if ((2L < BgL_odepthz00_2721))
																{	/* Globalize/free.scm 356 */
																	obj_t BgL_arg1797z00_2723;

																	BgL_arg1797z00_2723 =
																		BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_2719,
																		2L);
																	BgL_res1961z00_2733 =
																		(BgL_arg1797z00_2723 == BgL_classz00_2703);
																}
															else
																{	/* Globalize/free.scm 356 */
																	BgL_res1961z00_2733 = ((bool_t) 0);
																}
														}
												}
											}
											BgL_test2086z00_3945 = BgL_res1961z00_2733;
										}
								}
							else
								{	/* Globalize/free.scm 356 */
									BgL_test2086z00_3945 = ((bool_t) 0);
								}
						}
						if (BgL_test2086z00_3945)
							{	/* Globalize/free.scm 356 */
								return BgL_closurez00_1807;
							}
						else
							{	/* Globalize/free.scm 358 */
								obj_t BgL_g1132z00_1809;

								BgL_gz00_1855 = BgL_globalz00_57;
								if (CBOOL(
										(((BgL_globalz00_bglt) COBJECT(BgL_gz00_1855))->
											BgL_aliasz00)))
									{	/* Globalize/free.scm 350 */
										obj_t BgL_agz00_1859;

										{	/* Globalize/free.scm 350 */
											obj_t BgL_arg1613z00_1861;
											obj_t BgL_arg1614z00_1862;

											BgL_arg1613z00_1861 =
												(((BgL_globalz00_bglt) COBJECT(BgL_gz00_1855))->
												BgL_aliasz00);
											BgL_arg1614z00_1862 =
												(((BgL_globalz00_bglt) COBJECT(BgL_gz00_1855))->
												BgL_modulez00);
											{	/* Globalize/free.scm 350 */
												obj_t BgL_list1615z00_1863;

												BgL_list1615z00_1863 =
													MAKE_YOUNG_PAIR(BgL_arg1614z00_1862, BNIL);
												BgL_agz00_1859 =
													BGl_findzd2globalzd2zzast_envz00(BgL_arg1613z00_1861,
													BgL_list1615z00_1863);
											}
										}
										{	/* Globalize/free.scm 351 */
											bool_t BgL_test2092z00_3972;

											{	/* Globalize/free.scm 351 */
												obj_t BgL_classz00_2670;

												BgL_classz00_2670 = BGl_globalz00zzast_varz00;
												if (BGL_OBJECTP(BgL_agz00_1859))
													{	/* Globalize/free.scm 351 */
														BgL_objectz00_bglt BgL_arg1801z00_2672;

														BgL_arg1801z00_2672 =
															(BgL_objectz00_bglt) (BgL_agz00_1859);
														if (BGL_CONDEXPAND_ISA_ARCH64())
															{	/* Globalize/free.scm 351 */
																long BgL_idxz00_2678;

																BgL_idxz00_2678 =
																	BGL_OBJECT_INHERITANCE_NUM
																	(BgL_arg1801z00_2672);
																BgL_test2092z00_3972 =
																	(VECTOR_REF
																	(BGl_za2inheritancesza2z00zz__objectz00,
																		(BgL_idxz00_2678 + 2L)) ==
																	BgL_classz00_2670);
															}
														else
															{	/* Globalize/free.scm 351 */
																bool_t BgL_res1960z00_2700;

																{	/* Globalize/free.scm 351 */
																	obj_t BgL_oclassz00_2686;

																	{	/* Globalize/free.scm 351 */
																		long BgL_arg1808z00_2692;

																		{	/* Globalize/free.scm 351 */
																			long BgL_arg1809z00_2693;

																			BgL_arg1809z00_2693 =
																				BGL_OBJECT_CLASS_NUM
																				(BgL_arg1801z00_2672);
																			BgL_arg1808z00_2692 =
																				(BgL_arg1809z00_2693 - OBJECT_TYPE);
																		}
																		BgL_oclassz00_2686 =
																			VECTOR_REF
																			(BGl_za2classesza2z00zz__objectz00,
																			BgL_arg1808z00_2692);
																	}
																	{	/* Globalize/free.scm 351 */
																		bool_t BgL__ortest_1115z00_2687;

																		BgL__ortest_1115z00_2687 =
																			(BgL_classz00_2670 == BgL_oclassz00_2686);
																		if (BgL__ortest_1115z00_2687)
																			{	/* Globalize/free.scm 351 */
																				BgL_res1960z00_2700 =
																					BgL__ortest_1115z00_2687;
																			}
																		else
																			{	/* Globalize/free.scm 351 */
																				long BgL_odepthz00_2688;

																				BgL_odepthz00_2688 =
																					BGL_CLASS_DEPTH(BgL_oclassz00_2686);
																				if ((2L < BgL_odepthz00_2688))
																					{	/* Globalize/free.scm 351 */
																						obj_t BgL_arg1797z00_2690;

																						BgL_arg1797z00_2690 =
																							BGL_CLASS_ANCESTORS_REF
																							(BgL_oclassz00_2686, 2L);
																						BgL_res1960z00_2700 =
																							(BgL_arg1797z00_2690 ==
																							BgL_classz00_2670);
																					}
																				else
																					{	/* Globalize/free.scm 351 */
																						BgL_res1960z00_2700 = ((bool_t) 0);
																					}
																			}
																	}
																}
																BgL_test2092z00_3972 = BgL_res1960z00_2700;
															}
													}
												else
													{	/* Globalize/free.scm 351 */
														BgL_test2092z00_3972 = ((bool_t) 0);
													}
											}
											if (BgL_test2092z00_3972)
												{	/* Globalize/free.scm 351 */
													BgL_g1132z00_1809 =
														BGl_thezd2globalzd2closurez00zzglobaliza7e_freeza7(
														((BgL_globalz00_bglt) BgL_agz00_1859),
														BgL_locz00_58);
												}
											else
												{	/* Globalize/free.scm 351 */
													BgL_g1132z00_1809 = BFALSE;
												}
										}
									}
								else
									{	/* Globalize/free.scm 349 */
										BgL_g1132z00_1809 = BFALSE;
									}
								if (CBOOL(BgL_g1132z00_1809))
									{	/* Globalize/free.scm 358 */
										{	/* Globalize/free.scm 361 */
											BgL_valuez00_bglt BgL_arg1519z00_1812;

											BgL_arg1519z00_1812 =
												(((BgL_variablez00_bglt) COBJECT(
														((BgL_variablez00_bglt) BgL_globalz00_57)))->
												BgL_valuez00);
											((((BgL_funz00_bglt) COBJECT(((BgL_funz00_bglt)
																BgL_arg1519z00_1812)))->BgL_thezd2closurezd2) =
												((obj_t) BgL_g1132z00_1809), BUNSPEC);
										}
										return BgL_g1132z00_1809;
									}
								else
									{	/* Globalize/free.scm 364 */
										BgL_globalz00_bglt BgL_glocloz00_1813;

										BgL_glocloz00_1813 =
											BGl_makezd2globalzd2closurez00zzglobaliza7e_globalzd2closurez75
											(BgL_globalz00_57);
										{	/* Globalize/free.scm 364 */
											long BgL_arityz00_1814;

											BgL_arityz00_1814 =
												(((BgL_funz00_bglt) COBJECT(
														((BgL_funz00_bglt)
															(((BgL_variablez00_bglt) COBJECT(
																		((BgL_variablez00_bglt)
																			BgL_globalz00_57)))->BgL_valuez00))))->
												BgL_arityz00);
											{	/* Globalize/free.scm 365 */
												obj_t BgL_makezd2clozd2_1815;

												if ((BgL_arityz00_1814 < 0L))
													{	/* Globalize/free.scm 366 */
														BgL_makezd2clozd2_1815 = CNST_TABLE_REF(0L);
													}
												else
													{	/* Globalize/free.scm 366 */
														BgL_makezd2clozd2_1815 = CNST_TABLE_REF(1L);
													}
												{	/* Globalize/free.scm 366 */
													BgL_nodez00_bglt BgL_nodez00_1816;

													{	/* Globalize/free.scm 370 */
														obj_t BgL_arg1578z00_1836;

														{	/* Globalize/free.scm 370 */
															obj_t BgL_arg1579z00_1837;

															{	/* Globalize/free.scm 370 */
																BgL_refz00_bglt BgL_arg1581z00_1838;
																obj_t BgL_arg1586z00_1839;

																{	/* Globalize/free.scm 370 */
																	BgL_refz00_bglt BgL_new1136z00_1840;

																	{	/* Globalize/free.scm 373 */
																		BgL_refz00_bglt BgL_new1135z00_1841;

																		BgL_new1135z00_1841 =
																			((BgL_refz00_bglt)
																			BOBJECT(GC_MALLOC(sizeof(struct
																						BgL_refz00_bgl))));
																		{	/* Globalize/free.scm 373 */
																			long BgL_arg1590z00_1842;

																			BgL_arg1590z00_1842 =
																				BGL_CLASS_NUM(BGl_refz00zzast_nodez00);
																			BGL_OBJECT_CLASS_NUM_SET(
																				((BgL_objectz00_bglt)
																					BgL_new1135z00_1841),
																				BgL_arg1590z00_1842);
																		}
																		{	/* Globalize/free.scm 373 */
																			BgL_objectz00_bglt BgL_tmpz00_4013;

																			BgL_tmpz00_4013 =
																				((BgL_objectz00_bglt)
																				BgL_new1135z00_1841);
																			BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4013,
																				BFALSE);
																		}
																		((BgL_objectz00_bglt) BgL_new1135z00_1841);
																		BgL_new1136z00_1840 = BgL_new1135z00_1841;
																	}
																	((((BgL_nodez00_bglt) COBJECT(
																					((BgL_nodez00_bglt)
																						BgL_new1136z00_1840)))->
																			BgL_locz00) =
																		((obj_t) BgL_locz00_58), BUNSPEC);
																	((((BgL_nodez00_bglt)
																				COBJECT(((BgL_nodez00_bglt)
																						BgL_new1136z00_1840)))->
																			BgL_typez00) =
																		((BgL_typez00_bglt) ((BgL_typez00_bglt)
																				BGl_za2_za2z00zztype_cachez00)),
																		BUNSPEC);
																	((((BgL_varz00_bglt)
																				COBJECT(((BgL_varz00_bglt)
																						BgL_new1136z00_1840)))->
																			BgL_variablez00) =
																		((BgL_variablez00_bglt) (
																				(BgL_variablez00_bglt)
																				BgL_glocloz00_1813)), BUNSPEC);
																	BgL_arg1581z00_1838 = BgL_new1136z00_1840;
																}
																{	/* Globalize/free.scm 374 */
																	BgL_literalz00_bglt BgL_arg1592z00_1843;
																	obj_t BgL_arg1595z00_1844;

																	{	/* Globalize/free.scm 374 */
																		BgL_literalz00_bglt BgL_new1138z00_1845;

																		{	/* Globalize/free.scm 377 */
																			BgL_literalz00_bglt BgL_new1137z00_1846;

																			BgL_new1137z00_1846 =
																				((BgL_literalz00_bglt)
																				BOBJECT(GC_MALLOC(sizeof(struct
																							BgL_literalz00_bgl))));
																			{	/* Globalize/free.scm 377 */
																				long BgL_arg1597z00_1847;

																				BgL_arg1597z00_1847 =
																					BGL_CLASS_NUM
																					(BGl_literalz00zzast_nodez00);
																				BGL_OBJECT_CLASS_NUM_SET((
																						(BgL_objectz00_bglt)
																						BgL_new1137z00_1846),
																					BgL_arg1597z00_1847);
																			}
																			{	/* Globalize/free.scm 377 */
																				BgL_objectz00_bglt BgL_tmpz00_4029;

																				BgL_tmpz00_4029 =
																					((BgL_objectz00_bglt)
																					BgL_new1137z00_1846);
																				BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4029,
																					BFALSE);
																			}
																			((BgL_objectz00_bglt)
																				BgL_new1137z00_1846);
																			BgL_new1138z00_1845 = BgL_new1137z00_1846;
																		}
																		((((BgL_nodez00_bglt) COBJECT(
																						((BgL_nodez00_bglt)
																							BgL_new1138z00_1845)))->
																				BgL_locz00) =
																			((obj_t) BgL_locz00_58), BUNSPEC);
																		((((BgL_nodez00_bglt)
																					COBJECT(((BgL_nodez00_bglt)
																							BgL_new1138z00_1845)))->
																				BgL_typez00) =
																			((BgL_typez00_bglt) ((BgL_typez00_bglt)
																					BGl_za2_za2z00zztype_cachez00)),
																			BUNSPEC);
																		((((BgL_atomz00_bglt)
																					COBJECT(((BgL_atomz00_bglt)
																							BgL_new1138z00_1845)))->
																				BgL_valuez00) =
																			((obj_t) BINT(BgL_arityz00_1814)),
																			BUNSPEC);
																		BgL_arg1592z00_1843 = BgL_new1138z00_1845;
																	}
																	{	/* Globalize/free.scm 378 */
																		BgL_literalz00_bglt BgL_arg1598z00_1848;

																		{	/* Globalize/free.scm 378 */
																			BgL_literalz00_bglt BgL_new1140z00_1849;

																			{	/* Globalize/free.scm 381 */
																				BgL_literalz00_bglt BgL_new1139z00_1850;

																				BgL_new1139z00_1850 =
																					((BgL_literalz00_bglt)
																					BOBJECT(GC_MALLOC(sizeof(struct
																								BgL_literalz00_bgl))));
																				{	/* Globalize/free.scm 381 */
																					long BgL_arg1606z00_1851;

																					BgL_arg1606z00_1851 =
																						BGL_CLASS_NUM
																						(BGl_literalz00zzast_nodez00);
																					BGL_OBJECT_CLASS_NUM_SET((
																							(BgL_objectz00_bglt)
																							BgL_new1139z00_1850),
																						BgL_arg1606z00_1851);
																				}
																				{	/* Globalize/free.scm 381 */
																					BgL_objectz00_bglt BgL_tmpz00_4045;

																					BgL_tmpz00_4045 =
																						((BgL_objectz00_bglt)
																						BgL_new1139z00_1850);
																					BGL_OBJECT_WIDENING_SET
																						(BgL_tmpz00_4045, BFALSE);
																				}
																				((BgL_objectz00_bglt)
																					BgL_new1139z00_1850);
																				BgL_new1140z00_1849 =
																					BgL_new1139z00_1850;
																			}
																			((((BgL_nodez00_bglt) COBJECT(
																							((BgL_nodez00_bglt)
																								BgL_new1140z00_1849)))->
																					BgL_locz00) =
																				((obj_t) BgL_locz00_58), BUNSPEC);
																			((((BgL_nodez00_bglt)
																						COBJECT(((BgL_nodez00_bglt)
																								BgL_new1140z00_1849)))->
																					BgL_typez00) =
																				((BgL_typez00_bglt) ((BgL_typez00_bglt)
																						BGl_za2_za2z00zztype_cachez00)),
																				BUNSPEC);
																			((((BgL_atomz00_bglt)
																						COBJECT(((BgL_atomz00_bglt)
																								BgL_new1140z00_1849)))->
																					BgL_valuez00) =
																				((obj_t) BINT(0L)), BUNSPEC);
																			BgL_arg1598z00_1848 = BgL_new1140z00_1849;
																		}
																		BgL_arg1595z00_1844 =
																			MAKE_YOUNG_PAIR(
																			((obj_t) BgL_arg1598z00_1848), BNIL);
																	}
																	BgL_arg1586z00_1839 =
																		MAKE_YOUNG_PAIR(
																		((obj_t) BgL_arg1592z00_1843),
																		BgL_arg1595z00_1844);
																}
																BgL_arg1579z00_1837 =
																	MAKE_YOUNG_PAIR(
																	((obj_t) BgL_arg1581z00_1838),
																	BgL_arg1586z00_1839);
															}
															BgL_arg1578z00_1836 =
																MAKE_YOUNG_PAIR(BgL_makezd2clozd2_1815,
																BgL_arg1579z00_1837);
														}
														BgL_nodez00_1816 =
															BGl_sexpzd2ze3nodez31zzast_sexpz00
															(BgL_arg1578z00_1836, BNIL, BgL_locz00_58,
															CNST_TABLE_REF(2L));
													}
													{	/* Globalize/free.scm 369 */
														BgL_globalz00_bglt BgL_closurez00_1817;

														{	/* Globalize/free.scm 386 */
															obj_t BgL_arg1545z00_1822;
															obj_t BgL_arg1546z00_1823;
															obj_t BgL_arg1547z00_1824;

															{	/* Globalize/free.scm 386 */
																obj_t BgL_arg1550z00_1825;

																{	/* Globalize/free.scm 386 */
																	obj_t BgL_arg1554z00_1826;
																	obj_t BgL_arg1555z00_1827;

																	{	/* Globalize/free.scm 386 */
																		obj_t BgL_arg1560z00_1828;

																		if (CBOOL(
																				(((BgL_globalz00_bglt)
																						COBJECT(BgL_globalz00_57))->
																					BgL_aliasz00)))
																			{	/* Globalize/free.scm 386 */
																				BgL_arg1560z00_1828 =
																					(((BgL_globalz00_bglt)
																						COBJECT(BgL_globalz00_57))->
																					BgL_aliasz00);
																			}
																		else
																			{	/* Globalize/free.scm 386 */
																				BgL_arg1560z00_1828 =
																					(((BgL_variablez00_bglt) COBJECT(
																							((BgL_variablez00_bglt)
																								BgL_globalz00_57)))->BgL_idz00);
																			}
																		{	/* Globalize/free.scm 385 */
																			obj_t BgL_arg1454z00_2755;

																			BgL_arg1454z00_2755 =
																				SYMBOL_TO_STRING(
																				((obj_t) BgL_arg1560z00_1828));
																			BgL_arg1554z00_1826 =
																				BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																				(BgL_arg1454z00_2755);
																		}
																	}
																	{	/* Globalize/free.scm 385 */
																		obj_t BgL_symbolz00_2756;

																		BgL_symbolz00_2756 = CNST_TABLE_REF(3L);
																		{	/* Globalize/free.scm 385 */
																			obj_t BgL_arg1454z00_2757;

																			BgL_arg1454z00_2757 =
																				SYMBOL_TO_STRING(BgL_symbolz00_2756);
																			BgL_arg1555z00_1827 =
																				BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																				(BgL_arg1454z00_2757);
																		}
																	}
																	BgL_arg1550z00_1825 =
																		string_append(BgL_arg1554z00_1826,
																		BgL_arg1555z00_1827);
																}
																BgL_arg1545z00_1822 =
																	bstring_to_symbol(BgL_arg1550z00_1825);
															}
															BgL_arg1546z00_1823 =
																(((BgL_globalz00_bglt)
																	COBJECT(BgL_globalz00_57))->BgL_modulez00);
															{	/* Globalize/free.scm 392 */
																bool_t BgL_test2100z00_4081;

																{	/* Globalize/free.scm 392 */
																	BgL_valuez00_bglt BgL_arg1576z00_1835;

																	BgL_arg1576z00_1835 =
																		(((BgL_variablez00_bglt) COBJECT(
																				((BgL_variablez00_bglt)
																					BgL_globalz00_57)))->BgL_valuez00);
																	{	/* Globalize/free.scm 392 */
																		obj_t BgL_classz00_2761;

																		BgL_classz00_2761 = BGl_sfunz00zzast_varz00;
																		{	/* Globalize/free.scm 392 */
																			BgL_objectz00_bglt BgL_arg1801z00_2763;

																			{	/* Globalize/free.scm 392 */
																				obj_t BgL_tmpz00_4084;

																				BgL_tmpz00_4084 =
																					((obj_t)
																					((BgL_objectz00_bglt)
																						BgL_arg1576z00_1835));
																				BgL_arg1801z00_2763 =
																					(BgL_objectz00_bglt)
																					(BgL_tmpz00_4084);
																			}
																			if (BGL_CONDEXPAND_ISA_ARCH64())
																				{	/* Globalize/free.scm 392 */
																					long BgL_idxz00_2769;

																					BgL_idxz00_2769 =
																						BGL_OBJECT_INHERITANCE_NUM
																						(BgL_arg1801z00_2763);
																					BgL_test2100z00_4081 =
																						(VECTOR_REF
																						(BGl_za2inheritancesza2z00zz__objectz00,
																							(BgL_idxz00_2769 + 3L)) ==
																						BgL_classz00_2761);
																				}
																			else
																				{	/* Globalize/free.scm 392 */
																					bool_t BgL_res1962z00_2791;

																					{	/* Globalize/free.scm 392 */
																						obj_t BgL_oclassz00_2777;

																						{	/* Globalize/free.scm 392 */
																							long BgL_arg1808z00_2783;

																							{	/* Globalize/free.scm 392 */
																								long BgL_arg1809z00_2784;

																								BgL_arg1809z00_2784 =
																									BGL_OBJECT_CLASS_NUM
																									(BgL_arg1801z00_2763);
																								BgL_arg1808z00_2783 =
																									(BgL_arg1809z00_2784 -
																									OBJECT_TYPE);
																							}
																							BgL_oclassz00_2777 =
																								VECTOR_REF
																								(BGl_za2classesza2z00zz__objectz00,
																								BgL_arg1808z00_2783);
																						}
																						{	/* Globalize/free.scm 392 */
																							bool_t BgL__ortest_1115z00_2778;

																							BgL__ortest_1115z00_2778 =
																								(BgL_classz00_2761 ==
																								BgL_oclassz00_2777);
																							if (BgL__ortest_1115z00_2778)
																								{	/* Globalize/free.scm 392 */
																									BgL_res1962z00_2791 =
																										BgL__ortest_1115z00_2778;
																								}
																							else
																								{	/* Globalize/free.scm 392 */
																									long BgL_odepthz00_2779;

																									BgL_odepthz00_2779 =
																										BGL_CLASS_DEPTH
																										(BgL_oclassz00_2777);
																									if ((3L < BgL_odepthz00_2779))
																										{	/* Globalize/free.scm 392 */
																											obj_t BgL_arg1797z00_2781;

																											BgL_arg1797z00_2781 =
																												BGL_CLASS_ANCESTORS_REF
																												(BgL_oclassz00_2777,
																												3L);
																											BgL_res1962z00_2791 =
																												(BgL_arg1797z00_2781 ==
																												BgL_classz00_2761);
																										}
																									else
																										{	/* Globalize/free.scm 392 */
																											BgL_res1962z00_2791 =
																												((bool_t) 0);
																										}
																								}
																						}
																					}
																					BgL_test2100z00_4081 =
																						BgL_res1962z00_2791;
																				}
																		}
																	}
																}
																if (BgL_test2100z00_4081)
																	{	/* Globalize/free.scm 392 */
																		if (
																			((((BgL_sfunz00_bglt) COBJECT(
																							((BgL_sfunz00_bglt)
																								(((BgL_variablez00_bglt)
																										COBJECT((
																												(BgL_variablez00_bglt)
																												BgL_globalz00_57)))->
																									BgL_valuez00))))->
																					BgL_classz00) == CNST_TABLE_REF(4L)))
																			{	/* Globalize/free.scm 393 */
																				BgL_arg1547z00_1824 =
																					CNST_TABLE_REF(4L);
																			}
																		else
																			{	/* Globalize/free.scm 393 */
																				BgL_arg1547z00_1824 =
																					CNST_TABLE_REF(5L);
																			}
																	}
																else
																	{	/* Globalize/free.scm 392 */
																		BgL_arg1547z00_1824 = CNST_TABLE_REF(5L);
																	}
															}
															BgL_closurez00_1817 =
																BGl_defzd2globalzd2scnstz12z12zzast_glozd2defzd2
																(BgL_arg1545z00_1822, BgL_arg1546z00_1823,
																((obj_t) BgL_nodez00_1816), BgL_arg1547z00_1824,
																BgL_locz00_58);
														}
														{	/* Globalize/free.scm 385 */

															((((BgL_globalz00_bglt)
																		COBJECT(BgL_closurez00_1817))->
																	BgL_libraryz00) =
																((obj_t) (((BgL_globalz00_bglt)
																			COBJECT(BgL_globalz00_57))->
																		BgL_libraryz00)), BUNSPEC);
															((((BgL_globalz00_bglt)
																		COBJECT(BgL_closurez00_1817))->
																	BgL_importz00) =
																((obj_t) (((BgL_globalz00_bglt)
																			COBJECT(BgL_globalz00_57))->
																		BgL_importz00)), BUNSPEC);
															{	/* Globalize/free.scm 402 */
																BgL_valuez00_bglt BgL_arg1534z00_1820;

																BgL_arg1534z00_1820 =
																	(((BgL_variablez00_bglt) COBJECT(
																			((BgL_variablez00_bglt)
																				BgL_globalz00_57)))->BgL_valuez00);
																((((BgL_funz00_bglt) COBJECT(((BgL_funz00_bglt)
																					BgL_arg1534z00_1820)))->
																		BgL_thezd2closurezd2) =
																	((obj_t) ((obj_t) BgL_closurez00_1817)),
																	BUNSPEC);
															}
															{	/* Globalize/free.scm 406 */
																BgL_valuez00_bglt BgL_arg1541z00_1821;

																BgL_arg1541z00_1821 =
																	(((BgL_variablez00_bglt) COBJECT(
																			((BgL_variablez00_bglt)
																				BgL_glocloz00_1813)))->BgL_valuez00);
																((((BgL_funz00_bglt) COBJECT(((BgL_funz00_bglt)
																					BgL_arg1541z00_1821)))->
																		BgL_thezd2closurezd2) =
																	((obj_t) ((obj_t) BgL_closurez00_1817)),
																	BUNSPEC);
															}
															return ((obj_t) BgL_closurez00_1817);
														}
													}
												}
											}
										}
									}
							}
					}
				}
			}
		}

	}



/* &the-global-closure */
	obj_t BGl_z62thezd2globalzd2closurez62zzglobaliza7e_freeza7(obj_t
		BgL_envz00_3321, obj_t BgL_globalz00_3322, obj_t BgL_locz00_3323)
	{
		{	/* Globalize/free.scm 345 */
			return
				BGl_thezd2globalzd2closurez00zzglobaliza7e_freeza7(
				((BgL_globalz00_bglt) BgL_globalz00_3322), BgL_locz00_3323);
		}

	}



/* the-local-closure */
	obj_t BGl_thezd2localzd2closurez00zzglobaliza7e_freeza7(obj_t BgL_localz00_59,
		obj_t BgL_locz00_60)
	{
		{	/* Globalize/free.scm 416 */
			{	/* Globalize/free.scm 417 */
				BgL_valuez00_bglt BgL_infoz00_1865;

				BgL_infoz00_1865 =
					(((BgL_variablez00_bglt) COBJECT(
							((BgL_variablez00_bglt)
								((BgL_localz00_bglt) BgL_localz00_59))))->BgL_valuez00);
				{	/* Globalize/free.scm 418 */
					bool_t BgL_test2105z00_4136;

					{	/* Globalize/free.scm 418 */
						obj_t BgL_arg1630z00_1881;

						BgL_arg1630z00_1881 =
							(((BgL_funz00_bglt) COBJECT(
									((BgL_funz00_bglt)
										((BgL_sfunz00_bglt) BgL_infoz00_1865))))->
							BgL_thezd2closurezd2);
						{	/* Globalize/free.scm 418 */
							obj_t BgL_classz00_2805;

							BgL_classz00_2805 = BGl_localz00zzast_varz00;
							if (BGL_OBJECTP(BgL_arg1630z00_1881))
								{	/* Globalize/free.scm 418 */
									BgL_objectz00_bglt BgL_arg1801z00_2807;

									BgL_arg1801z00_2807 =
										(BgL_objectz00_bglt) (BgL_arg1630z00_1881);
									if (BGL_CONDEXPAND_ISA_ARCH64())
										{	/* Globalize/free.scm 418 */
											long BgL_idxz00_2813;

											BgL_idxz00_2813 =
												BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_2807);
											BgL_test2105z00_4136 =
												(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
													(BgL_idxz00_2813 + 2L)) == BgL_classz00_2805);
										}
									else
										{	/* Globalize/free.scm 418 */
											bool_t BgL_res1963z00_2835;

											{	/* Globalize/free.scm 418 */
												obj_t BgL_oclassz00_2821;

												{	/* Globalize/free.scm 418 */
													long BgL_arg1808z00_2827;

													{	/* Globalize/free.scm 418 */
														long BgL_arg1809z00_2828;

														BgL_arg1809z00_2828 =
															BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_2807);
														BgL_arg1808z00_2827 =
															(BgL_arg1809z00_2828 - OBJECT_TYPE);
													}
													BgL_oclassz00_2821 =
														VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
														BgL_arg1808z00_2827);
												}
												{	/* Globalize/free.scm 418 */
													bool_t BgL__ortest_1115z00_2822;

													BgL__ortest_1115z00_2822 =
														(BgL_classz00_2805 == BgL_oclassz00_2821);
													if (BgL__ortest_1115z00_2822)
														{	/* Globalize/free.scm 418 */
															BgL_res1963z00_2835 = BgL__ortest_1115z00_2822;
														}
													else
														{	/* Globalize/free.scm 418 */
															long BgL_odepthz00_2823;

															BgL_odepthz00_2823 =
																BGL_CLASS_DEPTH(BgL_oclassz00_2821);
															if ((2L < BgL_odepthz00_2823))
																{	/* Globalize/free.scm 418 */
																	obj_t BgL_arg1797z00_2825;

																	BgL_arg1797z00_2825 =
																		BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_2821,
																		2L);
																	BgL_res1963z00_2835 =
																		(BgL_arg1797z00_2825 == BgL_classz00_2805);
																}
															else
																{	/* Globalize/free.scm 418 */
																	BgL_res1963z00_2835 = ((bool_t) 0);
																}
														}
												}
											}
											BgL_test2105z00_4136 = BgL_res1963z00_2835;
										}
								}
							else
								{	/* Globalize/free.scm 418 */
									BgL_test2105z00_4136 = ((bool_t) 0);
								}
						}
					}
					if (BgL_test2105z00_4136)
						{	/* Globalize/free.scm 418 */
							return
								(((BgL_funz00_bglt) COBJECT(
										((BgL_funz00_bglt)
											((BgL_sfunz00_bglt) BgL_infoz00_1865))))->
								BgL_thezd2closurezd2);
						}
					else
						{	/* Globalize/free.scm 420 */
							BgL_localz00_bglt BgL_closurez00_1868;

							{	/* Globalize/free.scm 420 */
								obj_t BgL_arg1629z00_1880;

								BgL_arg1629z00_1880 =
									(((BgL_variablez00_bglt) COBJECT(
											((BgL_variablez00_bglt)
												((BgL_localz00_bglt) BgL_localz00_59))))->BgL_idz00);
								BgL_closurez00_1868 =
									BGl_makezd2localzd2svarz00zzast_localz00(BgL_arg1629z00_1880,
									((BgL_typez00_bglt) BGl_za2procedureza2z00zztype_cachez00));
							}
							{	/* Globalize/free.scm 421 */
								bool_t BgL_arg1620z00_1869;

								BgL_arg1620z00_1869 =
									(((BgL_variablez00_bglt) COBJECT(
											((BgL_variablez00_bglt)
												((BgL_localz00_bglt) BgL_localz00_59))))->
									BgL_userzf3zf3);
								((((BgL_variablez00_bglt) COBJECT(((BgL_variablez00_bglt)
													BgL_closurez00_1868)))->BgL_userzf3zf3) =
									((bool_t) BgL_arg1620z00_1869), BUNSPEC);
							}
							{	/* Globalize/free.scm 422 */
								BgL_svarz00_bglt BgL_tmp1141z00_1870;

								BgL_tmp1141z00_1870 =
									((BgL_svarz00_bglt)
									(((BgL_variablez00_bglt) COBJECT(
												((BgL_variablez00_bglt) BgL_closurez00_1868)))->
										BgL_valuez00));
								{	/* Globalize/free.scm 422 */
									BgL_svarzf2ginfozf2_bglt BgL_wide1143z00_1872;

									BgL_wide1143z00_1872 =
										((BgL_svarzf2ginfozf2_bglt) BOBJECT(GC_MALLOC(sizeof(struct
													BgL_svarzf2ginfozf2_bgl))));
									{	/* Globalize/free.scm 422 */
										obj_t BgL_auxz00_4179;
										BgL_objectz00_bglt BgL_tmpz00_4176;

										BgL_auxz00_4179 = ((obj_t) BgL_wide1143z00_1872);
										BgL_tmpz00_4176 =
											((BgL_objectz00_bglt)
											((BgL_svarz00_bglt) BgL_tmp1141z00_1870));
										BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4176, BgL_auxz00_4179);
									}
									((BgL_objectz00_bglt)
										((BgL_svarz00_bglt) BgL_tmp1141z00_1870));
									{	/* Globalize/free.scm 422 */
										long BgL_arg1621z00_1873;

										BgL_arg1621z00_1873 =
											BGL_CLASS_NUM(BGl_svarzf2Ginfozf2zzglobaliza7e_ginfoza7);
										BGL_OBJECT_CLASS_NUM_SET(
											((BgL_objectz00_bglt)
												((BgL_svarz00_bglt) BgL_tmp1141z00_1870)),
											BgL_arg1621z00_1873);
									}
									((BgL_svarz00_bglt) ((BgL_svarz00_bglt) BgL_tmp1141z00_1870));
								}
								{
									BgL_svarzf2ginfozf2_bglt BgL_auxz00_4190;

									{
										obj_t BgL_auxz00_4191;

										{	/* Globalize/free.scm 422 */
											BgL_objectz00_bglt BgL_tmpz00_4192;

											BgL_tmpz00_4192 =
												((BgL_objectz00_bglt)
												((BgL_svarz00_bglt) BgL_tmp1141z00_1870));
											BgL_auxz00_4191 = BGL_OBJECT_WIDENING(BgL_tmpz00_4192);
										}
										BgL_auxz00_4190 =
											((BgL_svarzf2ginfozf2_bglt) BgL_auxz00_4191);
									}
									((((BgL_svarzf2ginfozf2_bglt) COBJECT(BgL_auxz00_4190))->
											BgL_kapturedzf3zf3) = ((bool_t) ((bool_t) 0)), BUNSPEC);
								}
								{
									BgL_svarzf2ginfozf2_bglt BgL_auxz00_4198;

									{
										obj_t BgL_auxz00_4199;

										{	/* Globalize/free.scm 422 */
											BgL_objectz00_bglt BgL_tmpz00_4200;

											BgL_tmpz00_4200 =
												((BgL_objectz00_bglt)
												((BgL_svarz00_bglt) BgL_tmp1141z00_1870));
											BgL_auxz00_4199 = BGL_OBJECT_WIDENING(BgL_tmpz00_4200);
										}
										BgL_auxz00_4198 =
											((BgL_svarzf2ginfozf2_bglt) BgL_auxz00_4199);
									}
									((((BgL_svarzf2ginfozf2_bglt) COBJECT(BgL_auxz00_4198))->
											BgL_freezd2markzd2) = ((long) -10L), BUNSPEC);
								}
								{
									BgL_svarzf2ginfozf2_bglt BgL_auxz00_4206;

									{
										obj_t BgL_auxz00_4207;

										{	/* Globalize/free.scm 422 */
											BgL_objectz00_bglt BgL_tmpz00_4208;

											BgL_tmpz00_4208 =
												((BgL_objectz00_bglt)
												((BgL_svarz00_bglt) BgL_tmp1141z00_1870));
											BgL_auxz00_4207 = BGL_OBJECT_WIDENING(BgL_tmpz00_4208);
										}
										BgL_auxz00_4206 =
											((BgL_svarzf2ginfozf2_bglt) BgL_auxz00_4207);
									}
									((((BgL_svarzf2ginfozf2_bglt) COBJECT(BgL_auxz00_4206))->
											BgL_markz00) = ((long) -10L), BUNSPEC);
								}
								{
									BgL_svarzf2ginfozf2_bglt BgL_auxz00_4214;

									{
										obj_t BgL_auxz00_4215;

										{	/* Globalize/free.scm 422 */
											BgL_objectz00_bglt BgL_tmpz00_4216;

											BgL_tmpz00_4216 =
												((BgL_objectz00_bglt)
												((BgL_svarz00_bglt) BgL_tmp1141z00_1870));
											BgL_auxz00_4215 = BGL_OBJECT_WIDENING(BgL_tmpz00_4216);
										}
										BgL_auxz00_4214 =
											((BgL_svarzf2ginfozf2_bglt) BgL_auxz00_4215);
									}
									((((BgL_svarzf2ginfozf2_bglt) COBJECT(BgL_auxz00_4214))->
											BgL_celledzf3zf3) = ((bool_t) ((bool_t) 0)), BUNSPEC);
								}
								{
									BgL_svarzf2ginfozf2_bglt BgL_auxz00_4222;

									{
										obj_t BgL_auxz00_4223;

										{	/* Globalize/free.scm 422 */
											BgL_objectz00_bglt BgL_tmpz00_4224;

											BgL_tmpz00_4224 =
												((BgL_objectz00_bglt)
												((BgL_svarz00_bglt) BgL_tmp1141z00_1870));
											BgL_auxz00_4223 = BGL_OBJECT_WIDENING(BgL_tmpz00_4224);
										}
										BgL_auxz00_4222 =
											((BgL_svarzf2ginfozf2_bglt) BgL_auxz00_4223);
									}
									((((BgL_svarzf2ginfozf2_bglt) COBJECT(BgL_auxz00_4222))->
											BgL_stackablez00) = ((bool_t) ((bool_t) 1)), BUNSPEC);
								}
								((BgL_svarz00_bglt) BgL_tmp1141z00_1870);
							}
							{	/* Globalize/free.scm 423 */
								BgL_localzf2ginfozf2_bglt BgL_wide1147z00_1877;

								BgL_wide1147z00_1877 =
									((BgL_localzf2ginfozf2_bglt) BOBJECT(GC_MALLOC(sizeof(struct
												BgL_localzf2ginfozf2_bgl))));
								{	/* Globalize/free.scm 423 */
									obj_t BgL_auxz00_4235;
									BgL_objectz00_bglt BgL_tmpz00_4232;

									BgL_auxz00_4235 = ((obj_t) BgL_wide1147z00_1877);
									BgL_tmpz00_4232 =
										((BgL_objectz00_bglt)
										((BgL_localz00_bglt) BgL_closurez00_1868));
									BGL_OBJECT_WIDENING_SET(BgL_tmpz00_4232, BgL_auxz00_4235);
								}
								((BgL_objectz00_bglt)
									((BgL_localz00_bglt) BgL_closurez00_1868));
								{	/* Globalize/free.scm 423 */
									long BgL_arg1628z00_1878;

									BgL_arg1628z00_1878 =
										BGL_CLASS_NUM(BGl_localzf2Ginfozf2zzglobaliza7e_ginfoza7);
									BGL_OBJECT_CLASS_NUM_SET(
										((BgL_objectz00_bglt)
											((BgL_localz00_bglt) BgL_closurez00_1868)),
										BgL_arg1628z00_1878);
								}
								((BgL_localz00_bglt) ((BgL_localz00_bglt) BgL_closurez00_1868));
							}
							{
								BgL_localzf2ginfozf2_bglt BgL_auxz00_4246;

								{
									obj_t BgL_auxz00_4247;

									{	/* Globalize/free.scm 423 */
										BgL_objectz00_bglt BgL_tmpz00_4248;

										BgL_tmpz00_4248 =
											((BgL_objectz00_bglt)
											((BgL_localz00_bglt) BgL_closurez00_1868));
										BgL_auxz00_4247 = BGL_OBJECT_WIDENING(BgL_tmpz00_4248);
									}
									BgL_auxz00_4246 =
										((BgL_localzf2ginfozf2_bglt) BgL_auxz00_4247);
								}
								((((BgL_localzf2ginfozf2_bglt) COBJECT(BgL_auxz00_4246))->
										BgL_escapezf3zf3) = ((bool_t) ((bool_t) 0)), BUNSPEC);
							}
							{
								BgL_localzf2ginfozf2_bglt BgL_auxz00_4254;

								{
									obj_t BgL_auxz00_4255;

									{	/* Globalize/free.scm 423 */
										BgL_objectz00_bglt BgL_tmpz00_4256;

										BgL_tmpz00_4256 =
											((BgL_objectz00_bglt)
											((BgL_localz00_bglt) BgL_closurez00_1868));
										BgL_auxz00_4255 = BGL_OBJECT_WIDENING(BgL_tmpz00_4256);
									}
									BgL_auxz00_4254 =
										((BgL_localzf2ginfozf2_bglt) BgL_auxz00_4255);
								}
								((((BgL_localzf2ginfozf2_bglt) COBJECT(BgL_auxz00_4254))->
										BgL_globaliza7edzf3z54) = ((bool_t) ((bool_t) 0)), BUNSPEC);
							}
							((BgL_localz00_bglt) BgL_closurez00_1868);
							((((BgL_funz00_bglt) COBJECT(
											((BgL_funz00_bglt)
												((BgL_sfunz00_bglt) BgL_infoz00_1865))))->
									BgL_thezd2closurezd2) =
								((obj_t) ((obj_t) BgL_closurez00_1868)), BUNSPEC);
							return ((obj_t) BgL_closurez00_1868);
						}
				}
			}
		}

	}



/* free-from */
	BGL_EXPORTED_DEF obj_t BGl_freezd2fromzd2zzglobaliza7e_freeza7(obj_t
		BgL_setsz00_61, BgL_localz00_bglt BgL_integratorz00_62)
	{
		{	/* Globalize/free.scm 430 */
			BGl_za2roundza2z00zzglobaliza7e_freeza7 =
				(BGl_za2roundza2z00zzglobaliza7e_freeza7 + 1L);
			{	/* Globalize/free.scm 433 */
				BgL_valuez00_bglt BgL_finfoz00_1882;

				BgL_finfoz00_1882 =
					(((BgL_variablez00_bglt) COBJECT(
							((BgL_variablez00_bglt) BgL_integratorz00_62)))->BgL_valuez00);
				{	/* Globalize/free.scm 440 */
					obj_t BgL_g1298z00_1883;

					{
						BgL_sfunzf2ginfozf2_bglt BgL_auxz00_4271;

						{
							obj_t BgL_auxz00_4272;

							{	/* Globalize/free.scm 440 */
								BgL_objectz00_bglt BgL_tmpz00_4273;

								BgL_tmpz00_4273 =
									((BgL_objectz00_bglt) ((BgL_sfunz00_bglt) BgL_finfoz00_1882));
								BgL_auxz00_4272 = BGL_OBJECT_WIDENING(BgL_tmpz00_4273);
							}
							BgL_auxz00_4271 = ((BgL_sfunzf2ginfozf2_bglt) BgL_auxz00_4272);
						}
						BgL_g1298z00_1883 =
							(((BgL_sfunzf2ginfozf2_bglt) COBJECT(BgL_auxz00_4271))->
							BgL_boundz00);
					}
					{
						obj_t BgL_l1295z00_1885;

						BgL_l1295z00_1885 = BgL_g1298z00_1883;
					BgL_zc3z04anonymousza31631ze3z87_1886:
						if (PAIRP(BgL_l1295z00_1885))
							{	/* Globalize/free.scm 440 */
								{	/* Globalize/free.scm 440 */
									obj_t BgL_arg1639z00_1888;

									BgL_arg1639z00_1888 = CAR(BgL_l1295z00_1885);
									BGl_markzd2variablez12zc0zzglobaliza7e_freeza7(
										((BgL_localz00_bglt) BgL_arg1639z00_1888));
								}
								{
									obj_t BgL_l1295z00_4284;

									BgL_l1295z00_4284 = CDR(BgL_l1295z00_1885);
									BgL_l1295z00_1885 = BgL_l1295z00_4284;
									goto BgL_zc3z04anonymousza31631ze3z87_1886;
								}
							}
						else
							{	/* Globalize/free.scm 440 */
								((bool_t) 1);
							}
					}
				}
			}
			if (NULLP(BgL_setsz00_61))
				{	/* Globalize/free.scm 442 */
					return BNIL;
				}
			else
				{	/* Globalize/free.scm 442 */
					obj_t BgL_head1301z00_1893;

					BgL_head1301z00_1893 = MAKE_YOUNG_PAIR(BNIL, BNIL);
					{
						obj_t BgL_l1299z00_1895;
						obj_t BgL_tail1302z00_1896;

						BgL_l1299z00_1895 = BgL_setsz00_61;
						BgL_tail1302z00_1896 = BgL_head1301z00_1893;
					BgL_zc3z04anonymousza31651ze3z87_1897:
						if (NULLP(BgL_l1299z00_1895))
							{	/* Globalize/free.scm 442 */
								return CDR(BgL_head1301z00_1893);
							}
						else
							{	/* Globalize/free.scm 442 */
								obj_t BgL_newtail1303z00_1899;

								{	/* Globalize/free.scm 442 */
									obj_t BgL_arg1661z00_1901;

									{	/* Globalize/free.scm 442 */
										obj_t BgL_setz00_1902;

										BgL_setz00_1902 = CAR(((obj_t) BgL_l1299z00_1895));
										{
											obj_t BgL_setz00_1905;
											obj_t BgL_resz00_1906;

											BgL_setz00_1905 = BgL_setz00_1902;
											BgL_resz00_1906 = BNIL;
										BgL_zc3z04anonymousza31662ze3z87_1907:
											if (NULLP(BgL_setz00_1905))
												{	/* Globalize/free.scm 446 */
													BgL_arg1661z00_1901 = BgL_resz00_1906;
												}
											else
												{	/* Globalize/free.scm 448 */
													bool_t BgL_test2114z00_4296;

													{	/* Globalize/free.scm 448 */
														obj_t BgL_arg1684z00_1915;

														BgL_arg1684z00_1915 =
															CAR(((obj_t) BgL_setz00_1905));
														BgL_test2114z00_4296 =
															CBOOL
															(BGl_freezd2variablezf3z21zzglobaliza7e_freeza7
															(BgL_arg1684z00_1915));
													}
													if (BgL_test2114z00_4296)
														{	/* Globalize/free.scm 449 */
															obj_t BgL_arg1673z00_1911;
															obj_t BgL_arg1675z00_1912;

															BgL_arg1673z00_1911 =
																CDR(((obj_t) BgL_setz00_1905));
															{	/* Globalize/free.scm 449 */
																obj_t BgL_arg1678z00_1913;

																BgL_arg1678z00_1913 =
																	CAR(((obj_t) BgL_setz00_1905));
																BgL_arg1675z00_1912 =
																	MAKE_YOUNG_PAIR(BgL_arg1678z00_1913,
																	BgL_resz00_1906);
															}
															{
																obj_t BgL_resz00_4307;
																obj_t BgL_setz00_4306;

																BgL_setz00_4306 = BgL_arg1673z00_1911;
																BgL_resz00_4307 = BgL_arg1675z00_1912;
																BgL_resz00_1906 = BgL_resz00_4307;
																BgL_setz00_1905 = BgL_setz00_4306;
																goto BgL_zc3z04anonymousza31662ze3z87_1907;
															}
														}
													else
														{	/* Globalize/free.scm 451 */
															obj_t BgL_arg1681z00_1914;

															BgL_arg1681z00_1914 =
																CDR(((obj_t) BgL_setz00_1905));
															{
																obj_t BgL_setz00_4310;

																BgL_setz00_4310 = BgL_arg1681z00_1914;
																BgL_setz00_1905 = BgL_setz00_4310;
																goto BgL_zc3z04anonymousza31662ze3z87_1907;
															}
														}
												}
										}
									}
									BgL_newtail1303z00_1899 =
										MAKE_YOUNG_PAIR(BgL_arg1661z00_1901, BNIL);
								}
								SET_CDR(BgL_tail1302z00_1896, BgL_newtail1303z00_1899);
								{	/* Globalize/free.scm 442 */
									obj_t BgL_arg1658z00_1900;

									BgL_arg1658z00_1900 = CDR(((obj_t) BgL_l1299z00_1895));
									{
										obj_t BgL_tail1302z00_4316;
										obj_t BgL_l1299z00_4315;

										BgL_l1299z00_4315 = BgL_arg1658z00_1900;
										BgL_tail1302z00_4316 = BgL_newtail1303z00_1899;
										BgL_tail1302z00_1896 = BgL_tail1302z00_4316;
										BgL_l1299z00_1895 = BgL_l1299z00_4315;
										goto BgL_zc3z04anonymousza31651ze3z87_1897;
									}
								}
							}
					}
				}
		}

	}



/* &free-from */
	obj_t BGl_z62freezd2fromzb0zzglobaliza7e_freeza7(obj_t BgL_envz00_3324,
		obj_t BgL_setsz00_3325, obj_t BgL_integratorz00_3326)
	{
		{	/* Globalize/free.scm 430 */
			return
				BGl_freezd2fromzd2zzglobaliza7e_freeza7(BgL_setsz00_3325,
				((BgL_localz00_bglt) BgL_integratorz00_3326));
		}

	}



/* object-init */
	obj_t BGl_objectzd2initzd2zzglobaliza7e_freeza7(void)
	{
		{	/* Globalize/free.scm 15 */
			return BUNSPEC;
		}

	}



/* generic-init */
	obj_t BGl_genericzd2initzd2zzglobaliza7e_freeza7(void)
	{
		{	/* Globalize/free.scm 15 */
			return
				BGl_registerzd2genericz12zc0zz__objectz00
				(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7,
				BGl_proc1982z00zzglobaliza7e_freeza7, BGl_nodez00zzast_nodez00,
				BGl_string1983z00zzglobaliza7e_freeza7);
		}

	}



/* &node-free1304 */
	obj_t BGl_z62nodezd2free1304zb0zzglobaliza7e_freeza7(obj_t BgL_envz00_3328,
		obj_t BgL_nodez00_3329, obj_t BgL_freez00_3330)
	{
		{	/* Globalize/free.scm 123 */
			return BgL_freez00_3330;
		}

	}



/* node-free */
	obj_t BGl_nodezd2freezd2zzglobaliza7e_freeza7(BgL_nodez00_bglt BgL_nodez00_11,
		obj_t BgL_freez00_12)
	{
		{	/* Globalize/free.scm 123 */
			{	/* Globalize/free.scm 123 */
				obj_t BgL_method1305z00_1923;

				{	/* Globalize/free.scm 123 */
					obj_t BgL_res1968z00_2902;

					{	/* Globalize/free.scm 123 */
						long BgL_objzd2classzd2numz00_2873;

						BgL_objzd2classzd2numz00_2873 =
							BGL_OBJECT_CLASS_NUM(((BgL_objectz00_bglt) BgL_nodez00_11));
						{	/* Globalize/free.scm 123 */
							obj_t BgL_arg1805z00_2874;

							BgL_arg1805z00_2874 =
								PROCEDURE_REF(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7,
								(int) (1L));
							{	/* Globalize/free.scm 123 */
								int BgL_offsetz00_2877;

								BgL_offsetz00_2877 = (int) (BgL_objzd2classzd2numz00_2873);
								{	/* Globalize/free.scm 123 */
									long BgL_offsetz00_2878;

									BgL_offsetz00_2878 =
										((long) (BgL_offsetz00_2877) - OBJECT_TYPE);
									{	/* Globalize/free.scm 123 */
										long BgL_modz00_2879;

										BgL_modz00_2879 =
											(BgL_offsetz00_2878 >> (int) ((long) ((int) (4L))));
										{	/* Globalize/free.scm 123 */
											long BgL_restz00_2881;

											BgL_restz00_2881 =
												(BgL_offsetz00_2878 &
												(long) (
													(int) (
														((long) (
																(int) (
																	(1L <<
																		(int) ((long) ((int) (4L)))))) - 1L))));
											{	/* Globalize/free.scm 123 */

												{	/* Globalize/free.scm 123 */
													obj_t BgL_bucketz00_2883;

													BgL_bucketz00_2883 =
														VECTOR_REF(
														((obj_t) BgL_arg1805z00_2874), BgL_modz00_2879);
													BgL_res1968z00_2902 =
														VECTOR_REF(
														((obj_t) BgL_bucketz00_2883), BgL_restz00_2881);
					}}}}}}}}
					BgL_method1305z00_1923 = BgL_res1968z00_2902;
				}
				return
					(VA_PROCEDUREP(BgL_method1305z00_1923) ? ((obj_t(*)(obj_t,
								...))
						PROCEDURE_ENTRY(BgL_method1305z00_1923)) (BgL_method1305z00_1923,
						((obj_t) BgL_nodez00_11), BgL_freez00_12, BEOA) : ((obj_t(*)(obj_t,
								obj_t,
								obj_t))
						PROCEDURE_ENTRY(BgL_method1305z00_1923)) (BgL_method1305z00_1923,
						((obj_t) BgL_nodez00_11), BgL_freez00_12));
			}
		}

	}



/* &node-free */
	obj_t BGl_z62nodezd2freezb0zzglobaliza7e_freeza7(obj_t BgL_envz00_3331,
		obj_t BgL_nodez00_3332, obj_t BgL_freez00_3333)
	{
		{	/* Globalize/free.scm 123 */
			return
				BGl_nodezd2freezd2zzglobaliza7e_freeza7(
				((BgL_nodez00_bglt) BgL_nodez00_3332), BgL_freez00_3333);
		}

	}



/* method-init */
	obj_t BGl_methodzd2initzd2zzglobaliza7e_freeza7(void)
	{
		{	/* Globalize/free.scm 15 */
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BGl_varz00zzast_nodez00,
				BGl_proc1984z00zzglobaliza7e_freeza7,
				BGl_string1985z00zzglobaliza7e_freeza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7,
				BGl_closurez00zzast_nodez00, BGl_proc1986z00zzglobaliza7e_freeza7,
				BGl_string1985z00zzglobaliza7e_freeza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7,
				BGl_sequencez00zzast_nodez00, BGl_proc1987z00zzglobaliza7e_freeza7,
				BGl_string1985z00zzglobaliza7e_freeza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7,
				BGl_syncz00zzast_nodez00, BGl_proc1988z00zzglobaliza7e_freeza7,
				BGl_string1985z00zzglobaliza7e_freeza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7, BGl_appz00zzast_nodez00,
				BGl_proc1989z00zzglobaliza7e_freeza7,
				BGl_string1985z00zzglobaliza7e_freeza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7,
				BGl_appzd2lyzd2zzast_nodez00, BGl_proc1990z00zzglobaliza7e_freeza7,
				BGl_string1985z00zzglobaliza7e_freeza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7,
				BGl_funcallz00zzast_nodez00, BGl_proc1991z00zzglobaliza7e_freeza7,
				BGl_string1985z00zzglobaliza7e_freeza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7,
				BGl_externz00zzast_nodez00, BGl_proc1992z00zzglobaliza7e_freeza7,
				BGl_string1985z00zzglobaliza7e_freeza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7,
				BGl_castz00zzast_nodez00, BGl_proc1993z00zzglobaliza7e_freeza7,
				BGl_string1985z00zzglobaliza7e_freeza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7,
				BGl_setqz00zzast_nodez00, BGl_proc1994z00zzglobaliza7e_freeza7,
				BGl_string1985z00zzglobaliza7e_freeza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7,
				BGl_conditionalz00zzast_nodez00, BGl_proc1995z00zzglobaliza7e_freeza7,
				BGl_string1985z00zzglobaliza7e_freeza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7,
				BGl_failz00zzast_nodez00, BGl_proc1996z00zzglobaliza7e_freeza7,
				BGl_string1985z00zzglobaliza7e_freeza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7,
				BGl_switchz00zzast_nodez00, BGl_proc1997z00zzglobaliza7e_freeza7,
				BGl_string1985z00zzglobaliza7e_freeza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7,
				BGl_letzd2funzd2zzast_nodez00, BGl_proc1998z00zzglobaliza7e_freeza7,
				BGl_string1985z00zzglobaliza7e_freeza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7,
				BGl_letzd2varzd2zzast_nodez00, BGl_proc1999z00zzglobaliza7e_freeza7,
				BGl_string1985z00zzglobaliza7e_freeza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7,
				BGl_setzd2exzd2itz00zzast_nodez00, BGl_proc2000z00zzglobaliza7e_freeza7,
				BGl_string1985z00zzglobaliza7e_freeza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7,
				BGl_jumpzd2exzd2itz00zzast_nodez00,
				BGl_proc2001z00zzglobaliza7e_freeza7,
				BGl_string1985z00zzglobaliza7e_freeza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7,
				BGl_makezd2boxzd2zzast_nodez00, BGl_proc2002z00zzglobaliza7e_freeza7,
				BGl_string1985z00zzglobaliza7e_freeza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7,
				BGl_boxzd2refzd2zzast_nodez00, BGl_proc2003z00zzglobaliza7e_freeza7,
				BGl_string1985z00zzglobaliza7e_freeza7);
			return
				BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2freezd2envz00zzglobaliza7e_freeza7,
				BGl_boxzd2setz12zc0zzast_nodez00, BGl_proc2004z00zzglobaliza7e_freeza7,
				BGl_string1985z00zzglobaliza7e_freeza7);
		}

	}



/* &node-free-box-set!1345 */
	obj_t BGl_z62nodezd2freezd2boxzd2setz121345za2zzglobaliza7e_freeza7(obj_t
		BgL_envz00_3354, obj_t BgL_nodez00_3355, obj_t BgL_freez00_3356)
	{
		{	/* Globalize/free.scm 319 */
			{	/* Globalize/free.scm 321 */
				BgL_varz00_bglt BgL_arg1870z00_3431;
				obj_t BgL_arg1872z00_3432;

				BgL_arg1870z00_3431 =
					(((BgL_boxzd2setz12zc0_bglt) COBJECT(
							((BgL_boxzd2setz12zc0_bglt) BgL_nodez00_3355)))->BgL_varz00);
				BgL_arg1872z00_3432 =
					BGl_nodezd2freezd2zzglobaliza7e_freeza7(
					(((BgL_boxzd2setz12zc0_bglt) COBJECT(
								((BgL_boxzd2setz12zc0_bglt) BgL_nodez00_3355)))->BgL_valuez00),
					BgL_freez00_3356);
				return BGl_nodezd2freezd2zzglobaliza7e_freeza7(((BgL_nodez00_bglt)
						BgL_arg1870z00_3431), BgL_arg1872z00_3432);
			}
		}

	}



/* &node-free-box-ref1343 */
	obj_t BGl_z62nodezd2freezd2boxzd2ref1343zb0zzglobaliza7e_freeza7(obj_t
		BgL_envz00_3357, obj_t BgL_nodez00_3358, obj_t BgL_freez00_3359)
	{
		{	/* Globalize/free.scm 312 */
			{	/* Globalize/free.scm 314 */
				BgL_varz00_bglt BgL_arg1868z00_3434;

				BgL_arg1868z00_3434 =
					(((BgL_boxzd2refzd2_bglt) COBJECT(
							((BgL_boxzd2refzd2_bglt) BgL_nodez00_3358)))->BgL_varz00);
				return
					BGl_nodezd2freezd2zzglobaliza7e_freeza7(
					((BgL_nodez00_bglt) BgL_arg1868z00_3434), BgL_freez00_3359);
			}
		}

	}



/* &node-free-make-box1341 */
	obj_t BGl_z62nodezd2freezd2makezd2box1341zb0zzglobaliza7e_freeza7(obj_t
		BgL_envz00_3360, obj_t BgL_nodez00_3361, obj_t BgL_freez00_3362)
	{
		{	/* Globalize/free.scm 305 */
			return
				BGl_nodezd2freezd2zzglobaliza7e_freeza7(
				(((BgL_makezd2boxzd2_bglt) COBJECT(
							((BgL_makezd2boxzd2_bglt) BgL_nodez00_3361)))->BgL_valuez00),
				BgL_freez00_3362);
		}

	}



/* &node-free-jump-ex-it1339 */
	obj_t BGl_z62nodezd2freezd2jumpzd2exzd2it1339z62zzglobaliza7e_freeza7(obj_t
		BgL_envz00_3363, obj_t BgL_nodez00_3364, obj_t BgL_freez00_3365)
	{
		{	/* Globalize/free.scm 298 */
			return
				BGl_nodezd2freezd2zzglobaliza7e_freeza7(
				(((BgL_jumpzd2exzd2itz00_bglt) COBJECT(
							((BgL_jumpzd2exzd2itz00_bglt) BgL_nodez00_3364)))->BgL_exitz00),
				BGl_nodezd2freezd2zzglobaliza7e_freeza7(
					(((BgL_jumpzd2exzd2itz00_bglt) COBJECT(
								((BgL_jumpzd2exzd2itz00_bglt) BgL_nodez00_3364)))->
						BgL_valuez00), BgL_freez00_3365));
		}

	}



/* &node-free-set-ex-it1337 */
	obj_t BGl_z62nodezd2freezd2setzd2exzd2it1337z62zzglobaliza7e_freeza7(obj_t
		BgL_envz00_3366, obj_t BgL_nodez00_3367, obj_t BgL_freez00_3368)
	{
		{	/* Globalize/free.scm 290 */
			{	/* Globalize/free.scm 292 */
				BgL_variablez00_bglt BgL_arg1854z00_3438;

				BgL_arg1854z00_3438 =
					(((BgL_varz00_bglt) COBJECT(
							(((BgL_setzd2exzd2itz00_bglt) COBJECT(
										((BgL_setzd2exzd2itz00_bglt) BgL_nodez00_3367)))->
								BgL_varz00)))->BgL_variablez00);
				BGl_bindzd2variablez12zc0zzglobaliza7e_freeza7(((BgL_localz00_bglt)
						BgL_arg1854z00_3438),
					((BgL_localz00_bglt) BGl_za2integratorza2z00zzglobaliza7e_freeza7));
			}
			return
				BGl_nodezd2freezd2zzglobaliza7e_freeza7(
				(((BgL_setzd2exzd2itz00_bglt) COBJECT(
							((BgL_setzd2exzd2itz00_bglt) BgL_nodez00_3367)))->BgL_bodyz00),
				BGl_nodezd2freezd2zzglobaliza7e_freeza7(
					(((BgL_setzd2exzd2itz00_bglt) COBJECT(
								((BgL_setzd2exzd2itz00_bglt) BgL_nodez00_3367)))->
						BgL_onexitz00), BgL_freez00_3368));
		}

	}



/* &node-free-let-var1335 */
	obj_t BGl_z62nodezd2freezd2letzd2var1335zb0zzglobaliza7e_freeza7(obj_t
		BgL_envz00_3369, obj_t BgL_nodez00_3370, obj_t BgL_freez00_3371)
	{
		{	/* Globalize/free.scm 276 */
			{
				obj_t BgL_bindingsz00_3441;
				obj_t BgL_freez00_3442;

				BgL_bindingsz00_3441 =
					(((BgL_letzd2varzd2_bglt) COBJECT(
							((BgL_letzd2varzd2_bglt) BgL_nodez00_3370)))->BgL_bindingsz00);
				BgL_freez00_3442 = BgL_freez00_3371;
			BgL_loopz00_3440:
				if (NULLP(BgL_bindingsz00_3441))
					{	/* Globalize/free.scm 280 */
						return
							BGl_nodezd2freezd2zzglobaliza7e_freeza7(
							(((BgL_letzd2varzd2_bglt) COBJECT(
										((BgL_letzd2varzd2_bglt) BgL_nodez00_3370)))->BgL_bodyz00),
							BgL_freez00_3442);
					}
				else
					{	/* Globalize/free.scm 280 */
						{	/* Globalize/free.scm 283 */
							obj_t BgL_arg1846z00_3443;

							{	/* Globalize/free.scm 283 */
								obj_t BgL_pairz00_3444;

								BgL_pairz00_3444 = CAR(((obj_t) BgL_bindingsz00_3441));
								BgL_arg1846z00_3443 = CAR(BgL_pairz00_3444);
							}
							BGl_bindzd2variablez12zc0zzglobaliza7e_freeza7(
								((BgL_localz00_bglt) BgL_arg1846z00_3443),
								((BgL_localz00_bglt)
									BGl_za2integratorza2z00zzglobaliza7e_freeza7));
						}
						{	/* Globalize/free.scm 284 */
							obj_t BgL_arg1850z00_3445;
							obj_t BgL_arg1851z00_3446;

							BgL_arg1850z00_3445 = CDR(((obj_t) BgL_bindingsz00_3441));
							{	/* Globalize/free.scm 285 */
								obj_t BgL_arg1852z00_3447;

								{	/* Globalize/free.scm 285 */
									obj_t BgL_pairz00_3448;

									BgL_pairz00_3448 = CAR(((obj_t) BgL_bindingsz00_3441));
									BgL_arg1852z00_3447 = CDR(BgL_pairz00_3448);
								}
								BgL_arg1851z00_3446 =
									BGl_nodezd2freezd2zzglobaliza7e_freeza7(
									((BgL_nodez00_bglt) BgL_arg1852z00_3447), BgL_freez00_3442);
							}
							{
								obj_t BgL_freez00_4424;
								obj_t BgL_bindingsz00_4423;

								BgL_bindingsz00_4423 = BgL_arg1850z00_3445;
								BgL_freez00_4424 = BgL_arg1851z00_3446;
								BgL_freez00_3442 = BgL_freez00_4424;
								BgL_bindingsz00_3441 = BgL_bindingsz00_4423;
								goto BgL_loopz00_3440;
							}
						}
					}
			}
		}

	}



/* &node-free-let-fun1333 */
	obj_t BGl_z62nodezd2freezd2letzd2fun1333zb0zzglobaliza7e_freeza7(obj_t
		BgL_envz00_3372, obj_t BgL_nodez00_3373, obj_t BgL_freez00_3374)
	{
		{	/* Globalize/free.scm 251 */
			{	/* Globalize/free.scm 253 */
				obj_t BgL_g1291z00_3450;

				BgL_g1291z00_3450 =
					(((BgL_letzd2funzd2_bglt) COBJECT(
							((BgL_letzd2funzd2_bglt) BgL_nodez00_3373)))->BgL_localsz00);
				{
					obj_t BgL_l1289z00_3452;

					BgL_l1289z00_3452 = BgL_g1291z00_3450;
				BgL_zc3z04anonymousza31826ze3z87_3451:
					if (PAIRP(BgL_l1289z00_3452))
						{	/* Globalize/free.scm 253 */
							{	/* Globalize/free.scm 255 */
								obj_t BgL_fz00_3453;

								BgL_fz00_3453 = CAR(BgL_l1289z00_3452);
								BGl_bindzd2variablez12zc0zzglobaliza7e_freeza7(
									((BgL_localz00_bglt) BgL_fz00_3453),
									((BgL_localz00_bglt)
										BGl_za2integratorza2z00zzglobaliza7e_freeza7));
								{	/* Globalize/free.scm 257 */
									bool_t BgL_test2117z00_4435;

									{
										BgL_localzf2ginfozf2_bglt BgL_auxz00_4436;

										{
											obj_t BgL_auxz00_4437;

											{	/* Globalize/free.scm 257 */
												BgL_objectz00_bglt BgL_tmpz00_4438;

												BgL_tmpz00_4438 =
													((BgL_objectz00_bglt)
													((BgL_localz00_bglt) BgL_fz00_3453));
												BgL_auxz00_4437 = BGL_OBJECT_WIDENING(BgL_tmpz00_4438);
											}
											BgL_auxz00_4436 =
												((BgL_localzf2ginfozf2_bglt) BgL_auxz00_4437);
										}
										BgL_test2117z00_4435 =
											(((BgL_localzf2ginfozf2_bglt) COBJECT(BgL_auxz00_4436))->
											BgL_escapezf3zf3);
									}
									if (BgL_test2117z00_4435)
										{	/* Globalize/free.scm 258 */
											obj_t BgL_arg1829z00_3454;

											{	/* Globalize/free.scm 258 */
												obj_t BgL_arg1830z00_3455;

												BgL_arg1830z00_3455 =
													(((BgL_nodez00_bglt) COBJECT(
															((BgL_nodez00_bglt)
																((BgL_letzd2funzd2_bglt) BgL_nodez00_3373))))->
													BgL_locz00);
												BgL_arg1829z00_3454 =
													BGl_thezd2localzd2closurez00zzglobaliza7e_freeza7
													(BgL_fz00_3453, BgL_arg1830z00_3455);
											}
											BGl_bindzd2variablez12zc0zzglobaliza7e_freeza7(
												((BgL_localz00_bglt) BgL_arg1829z00_3454),
												((BgL_localz00_bglt)
													BGl_za2integratorza2z00zzglobaliza7e_freeza7));
										}
									else
										{	/* Globalize/free.scm 257 */
											BFALSE;
										}
								}
							}
							{
								obj_t BgL_l1289z00_4451;

								BgL_l1289z00_4451 = CDR(BgL_l1289z00_3452);
								BgL_l1289z00_3452 = BgL_l1289z00_4451;
								goto BgL_zc3z04anonymousza31826ze3z87_3451;
							}
						}
					else
						{	/* Globalize/free.scm 253 */
							((bool_t) 1);
						}
				}
			}
			{
				obj_t BgL_lclsz00_3457;
				obj_t BgL_freez00_3458;

				BgL_lclsz00_3457 =
					(((BgL_letzd2funzd2_bglt) COBJECT(
							((BgL_letzd2funzd2_bglt) BgL_nodez00_3373)))->BgL_localsz00);
				BgL_freez00_3458 = BgL_freez00_3374;
			BgL_liipz00_3456:
				if (NULLP(BgL_lclsz00_3457))
					{	/* Globalize/free.scm 263 */
						return
							BGl_nodezd2freezd2zzglobaliza7e_freeza7(
							(((BgL_letzd2funzd2_bglt) COBJECT(
										((BgL_letzd2funzd2_bglt) BgL_nodez00_3373)))->BgL_bodyz00),
							BgL_freez00_3458);
					}
				else
					{	/* Globalize/free.scm 265 */
						obj_t BgL_localz00_3459;

						BgL_localz00_3459 = CAR(((obj_t) BgL_lclsz00_3457));
						{	/* Globalize/free.scm 265 */
							BgL_valuez00_bglt BgL_funz00_3460;

							BgL_funz00_3460 =
								(((BgL_variablez00_bglt) COBJECT(
										((BgL_variablez00_bglt)
											((BgL_localz00_bglt) BgL_localz00_3459))))->BgL_valuez00);
							{	/* Globalize/free.scm 266 */

								{	/* Globalize/free.scm 267 */
									obj_t BgL_g1294z00_3461;

									BgL_g1294z00_3461 =
										(((BgL_sfunz00_bglt) COBJECT(
												((BgL_sfunz00_bglt) BgL_funz00_3460)))->BgL_argsz00);
									{
										obj_t BgL_l1292z00_3463;

										BgL_l1292z00_3463 = BgL_g1294z00_3461;
									BgL_zc3z04anonymousza31836ze3z87_3462:
										if (PAIRP(BgL_l1292z00_3463))
											{	/* Globalize/free.scm 269 */
												{	/* Globalize/free.scm 268 */
													obj_t BgL_lz00_3464;

													BgL_lz00_3464 = CAR(BgL_l1292z00_3463);
													BGl_bindzd2variablez12zc0zzglobaliza7e_freeza7(
														((BgL_localz00_bglt) BgL_lz00_3464),
														((BgL_localz00_bglt)
															BGl_za2integratorza2z00zzglobaliza7e_freeza7));
												}
												{
													obj_t BgL_l1292z00_4471;

													BgL_l1292z00_4471 = CDR(BgL_l1292z00_3463);
													BgL_l1292z00_3463 = BgL_l1292z00_4471;
													goto BgL_zc3z04anonymousza31836ze3z87_3462;
												}
											}
										else
											{	/* Globalize/free.scm 269 */
												((bool_t) 1);
											}
									}
								}
								{	/* Globalize/free.scm 270 */
									obj_t BgL_arg1839z00_3465;
									obj_t BgL_arg1840z00_3466;

									BgL_arg1839z00_3465 = CDR(((obj_t) BgL_lclsz00_3457));
									{	/* Globalize/free.scm 271 */
										obj_t BgL_arg1841z00_3467;

										BgL_arg1841z00_3467 =
											(((BgL_sfunz00_bglt) COBJECT(
													((BgL_sfunz00_bglt) BgL_funz00_3460)))->BgL_bodyz00);
										BgL_arg1840z00_3466 =
											BGl_nodezd2freezd2zzglobaliza7e_freeza7(
											((BgL_nodez00_bglt) BgL_arg1841z00_3467),
											BgL_freez00_3458);
									}
									{
										obj_t BgL_freez00_4480;
										obj_t BgL_lclsz00_4479;

										BgL_lclsz00_4479 = BgL_arg1839z00_3465;
										BgL_freez00_4480 = BgL_arg1840z00_3466;
										BgL_freez00_3458 = BgL_freez00_4480;
										BgL_lclsz00_3457 = BgL_lclsz00_4479;
										goto BgL_liipz00_3456;
									}
								}
							}
						}
					}
			}
		}

	}



/* &node-free-switch1331 */
	obj_t BGl_z62nodezd2freezd2switch1331z62zzglobaliza7e_freeza7(obj_t
		BgL_envz00_3375, obj_t BgL_nodez00_3376, obj_t BgL_freez00_3377)
	{
		{	/* Globalize/free.scm 240 */
			{
				obj_t BgL_clausesz00_3470;
				obj_t BgL_freez00_3471;

				BgL_clausesz00_3470 =
					(((BgL_switchz00_bglt) COBJECT(
							((BgL_switchz00_bglt) BgL_nodez00_3376)))->BgL_clausesz00);
				BgL_freez00_3471 = BgL_freez00_3377;
			BgL_loopz00_3469:
				if (NULLP(BgL_clausesz00_3470))
					{	/* Globalize/free.scm 244 */
						return
							BGl_nodezd2freezd2zzglobaliza7e_freeza7(
							(((BgL_switchz00_bglt) COBJECT(
										((BgL_switchz00_bglt) BgL_nodez00_3376)))->BgL_testz00),
							BgL_freez00_3471);
					}
				else
					{	/* Globalize/free.scm 246 */
						obj_t BgL_arg1822z00_3472;
						obj_t BgL_arg1823z00_3473;

						BgL_arg1822z00_3472 = CDR(((obj_t) BgL_clausesz00_3470));
						{	/* Globalize/free.scm 246 */
							obj_t BgL_arg1824z00_3474;

							{	/* Globalize/free.scm 246 */
								obj_t BgL_pairz00_3475;

								BgL_pairz00_3475 = CAR(((obj_t) BgL_clausesz00_3470));
								BgL_arg1824z00_3474 = CDR(BgL_pairz00_3475);
							}
							BgL_arg1823z00_3473 =
								BGl_nodezd2freezd2zzglobaliza7e_freeza7(
								((BgL_nodez00_bglt) BgL_arg1824z00_3474), BgL_freez00_3471);
						}
						{
							obj_t BgL_freez00_4496;
							obj_t BgL_clausesz00_4495;

							BgL_clausesz00_4495 = BgL_arg1822z00_3472;
							BgL_freez00_4496 = BgL_arg1823z00_3473;
							BgL_freez00_3471 = BgL_freez00_4496;
							BgL_clausesz00_3470 = BgL_clausesz00_4495;
							goto BgL_loopz00_3469;
						}
					}
			}
		}

	}



/* &node-free-fail1329 */
	obj_t BGl_z62nodezd2freezd2fail1329z62zzglobaliza7e_freeza7(obj_t
		BgL_envz00_3378, obj_t BgL_nodez00_3379, obj_t BgL_freez00_3380)
	{
		{	/* Globalize/free.scm 233 */
			return
				BGl_nodezd2freezd2zzglobaliza7e_freeza7(
				(((BgL_failz00_bglt) COBJECT(
							((BgL_failz00_bglt) BgL_nodez00_3379)))->BgL_procz00),
				BGl_nodezd2freezd2zzglobaliza7e_freeza7(
					(((BgL_failz00_bglt) COBJECT(
								((BgL_failz00_bglt) BgL_nodez00_3379)))->BgL_msgz00),
					BGl_nodezd2freezd2zzglobaliza7e_freeza7(
						(((BgL_failz00_bglt) COBJECT(
									((BgL_failz00_bglt) BgL_nodez00_3379)))->BgL_objz00),
						BgL_freez00_3380)));
		}

	}



/* &node-free-conditiona1327 */
	obj_t BGl_z62nodezd2freezd2conditiona1327z62zzglobaliza7e_freeza7(obj_t
		BgL_envz00_3381, obj_t BgL_nodez00_3382, obj_t BgL_freez00_3383)
	{
		{	/* Globalize/free.scm 226 */
			return
				BGl_nodezd2freezd2zzglobaliza7e_freeza7(
				(((BgL_conditionalz00_bglt) COBJECT(
							((BgL_conditionalz00_bglt) BgL_nodez00_3382)))->BgL_testz00),
				BGl_nodezd2freezd2zzglobaliza7e_freeza7(
					(((BgL_conditionalz00_bglt) COBJECT(
								((BgL_conditionalz00_bglt) BgL_nodez00_3382)))->BgL_truez00),
					BGl_nodezd2freezd2zzglobaliza7e_freeza7(
						(((BgL_conditionalz00_bglt) COBJECT(
									((BgL_conditionalz00_bglt) BgL_nodez00_3382)))->BgL_falsez00),
						BgL_freez00_3383)));
		}

	}



/* &node-free-setq1325 */
	obj_t BGl_z62nodezd2freezd2setq1325z62zzglobaliza7e_freeza7(obj_t
		BgL_envz00_3384, obj_t BgL_nodez00_3385, obj_t BgL_freez00_3386)
	{
		{	/* Globalize/free.scm 219 */
			{	/* Globalize/free.scm 221 */
				BgL_varz00_bglt BgL_arg1752z00_3479;
				obj_t BgL_arg1753z00_3480;

				BgL_arg1752z00_3479 =
					(((BgL_setqz00_bglt) COBJECT(
							((BgL_setqz00_bglt) BgL_nodez00_3385)))->BgL_varz00);
				BgL_arg1753z00_3480 =
					BGl_nodezd2freezd2zzglobaliza7e_freeza7(
					(((BgL_setqz00_bglt) COBJECT(
								((BgL_setqz00_bglt) BgL_nodez00_3385)))->BgL_valuez00),
					BgL_freez00_3386);
				return BGl_nodezd2freezd2zzglobaliza7e_freeza7(((BgL_nodez00_bglt)
						BgL_arg1752z00_3479), BgL_arg1753z00_3480);
			}
		}

	}



/* &node-free-cast1323 */
	obj_t BGl_z62nodezd2freezd2cast1323z62zzglobaliza7e_freeza7(obj_t
		BgL_envz00_3387, obj_t BgL_nodez00_3388, obj_t BgL_freez00_3389)
	{
		{	/* Globalize/free.scm 212 */
			return
				BGl_nodezd2freezd2zzglobaliza7e_freeza7(
				(((BgL_castz00_bglt) COBJECT(
							((BgL_castz00_bglt) BgL_nodez00_3388)))->BgL_argz00),
				BgL_freez00_3389);
		}

	}



/* &node-free-extern1321 */
	obj_t BGl_z62nodezd2freezd2extern1321z62zzglobaliza7e_freeza7(obj_t
		BgL_envz00_3390, obj_t BgL_nodez00_3391, obj_t BgL_freez00_3392)
	{
		{	/* Globalize/free.scm 205 */
			return
				BGl_nodezd2freeza2z70zzglobaliza7e_freeza7(
				(((BgL_externz00_bglt) COBJECT(
							((BgL_externz00_bglt) BgL_nodez00_3391)))->BgL_exprza2za2),
				BgL_freez00_3392);
		}

	}



/* &node-free-funcall1319 */
	obj_t BGl_z62nodezd2freezd2funcall1319z62zzglobaliza7e_freeza7(obj_t
		BgL_envz00_3393, obj_t BgL_nodez00_3394, obj_t BgL_freez00_3395)
	{
		{	/* Globalize/free.scm 198 */
			return
				BGl_nodezd2freezd2zzglobaliza7e_freeza7(
				(((BgL_funcallz00_bglt) COBJECT(
							((BgL_funcallz00_bglt) BgL_nodez00_3394)))->BgL_funz00),
				BGl_nodezd2freeza2z70zzglobaliza7e_freeza7(
					(((BgL_funcallz00_bglt) COBJECT(
								((BgL_funcallz00_bglt) BgL_nodez00_3394)))->BgL_argsz00),
					BgL_freez00_3395));
		}

	}



/* &node-free-app-ly1317 */
	obj_t BGl_z62nodezd2freezd2appzd2ly1317zb0zzglobaliza7e_freeza7(obj_t
		BgL_envz00_3396, obj_t BgL_nodez00_3397, obj_t BgL_freez00_3398)
	{
		{	/* Globalize/free.scm 191 */
			return
				BGl_nodezd2freezd2zzglobaliza7e_freeza7(
				(((BgL_appzd2lyzd2_bglt) COBJECT(
							((BgL_appzd2lyzd2_bglt) BgL_nodez00_3397)))->BgL_funz00),
				BGl_nodezd2freezd2zzglobaliza7e_freeza7(
					(((BgL_appzd2lyzd2_bglt) COBJECT(
								((BgL_appzd2lyzd2_bglt) BgL_nodez00_3397)))->BgL_argz00),
					BgL_freez00_3398));
		}

	}



/* &node-free-app1315 */
	obj_t BGl_z62nodezd2freezd2app1315z62zzglobaliza7e_freeza7(obj_t
		BgL_envz00_3399, obj_t BgL_nodez00_3400, obj_t BgL_freez00_3401)
	{
		{	/* Globalize/free.scm 175 */
			{	/* Globalize/free.scm 177 */
				obj_t BgL_freez00_3486;

				{	/* Globalize/free.scm 177 */
					BgL_variablez00_bglt BgL_varz00_3487;

					BgL_varz00_3487 =
						(((BgL_varz00_bglt) COBJECT(
								(((BgL_appz00_bglt) COBJECT(
											((BgL_appz00_bglt) BgL_nodez00_3400)))->BgL_funz00)))->
						BgL_variablez00);
					{	/* Globalize/free.scm 179 */
						bool_t BgL_test2121z00_4545;

						{	/* Globalize/free.scm 179 */
							obj_t BgL_classz00_3488;

							BgL_classz00_3488 = BGl_globalz00zzast_varz00;
							{	/* Globalize/free.scm 179 */
								BgL_objectz00_bglt BgL_arg1801z00_3489;

								{	/* Globalize/free.scm 179 */
									obj_t BgL_tmpz00_4546;

									BgL_tmpz00_4546 =
										((obj_t) ((BgL_objectz00_bglt) BgL_varz00_3487));
									BgL_arg1801z00_3489 = (BgL_objectz00_bglt) (BgL_tmpz00_4546);
								}
								if (BGL_CONDEXPAND_ISA_ARCH64())
									{	/* Globalize/free.scm 179 */
										long BgL_idxz00_3490;

										BgL_idxz00_3490 =
											BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_3489);
										BgL_test2121z00_4545 =
											(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
												(BgL_idxz00_3490 + 2L)) == BgL_classz00_3488);
									}
								else
									{	/* Globalize/free.scm 179 */
										bool_t BgL_res1972z00_3493;

										{	/* Globalize/free.scm 179 */
											obj_t BgL_oclassz00_3494;

											{	/* Globalize/free.scm 179 */
												long BgL_arg1808z00_3495;

												{	/* Globalize/free.scm 179 */
													long BgL_arg1809z00_3496;

													BgL_arg1809z00_3496 =
														BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_3489);
													BgL_arg1808z00_3495 =
														(BgL_arg1809z00_3496 - OBJECT_TYPE);
												}
												BgL_oclassz00_3494 =
													VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
													BgL_arg1808z00_3495);
											}
											{	/* Globalize/free.scm 179 */
												bool_t BgL__ortest_1115z00_3497;

												BgL__ortest_1115z00_3497 =
													(BgL_classz00_3488 == BgL_oclassz00_3494);
												if (BgL__ortest_1115z00_3497)
													{	/* Globalize/free.scm 179 */
														BgL_res1972z00_3493 = BgL__ortest_1115z00_3497;
													}
												else
													{	/* Globalize/free.scm 179 */
														long BgL_odepthz00_3498;

														BgL_odepthz00_3498 =
															BGL_CLASS_DEPTH(BgL_oclassz00_3494);
														if ((2L < BgL_odepthz00_3498))
															{	/* Globalize/free.scm 179 */
																obj_t BgL_arg1797z00_3499;

																BgL_arg1797z00_3499 =
																	BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_3494,
																	2L);
																BgL_res1972z00_3493 =
																	(BgL_arg1797z00_3499 == BgL_classz00_3488);
															}
														else
															{	/* Globalize/free.scm 179 */
																BgL_res1972z00_3493 = ((bool_t) 0);
															}
													}
											}
										}
										BgL_test2121z00_4545 = BgL_res1972z00_3493;
									}
							}
						}
						if (BgL_test2121z00_4545)
							{	/* Globalize/free.scm 179 */
								BgL_freez00_3486 = BgL_freez00_3401;
							}
						else
							{	/* Globalize/free.scm 181 */
								bool_t BgL_test2125z00_4566;

								{	/* Globalize/free.scm 181 */
									bool_t BgL_test2126z00_4567;

									{
										BgL_localzf2ginfozf2_bglt BgL_auxz00_4568;

										{
											obj_t BgL_auxz00_4569;

											{	/* Globalize/free.scm 181 */
												BgL_objectz00_bglt BgL_tmpz00_4570;

												BgL_tmpz00_4570 =
													((BgL_objectz00_bglt)
													((BgL_localz00_bglt) BgL_varz00_3487));
												BgL_auxz00_4569 = BGL_OBJECT_WIDENING(BgL_tmpz00_4570);
											}
											BgL_auxz00_4568 =
												((BgL_localzf2ginfozf2_bglt) BgL_auxz00_4569);
										}
										BgL_test2126z00_4567 =
											(((BgL_localzf2ginfozf2_bglt) COBJECT(BgL_auxz00_4568))->
											BgL_escapezf3zf3);
									}
									if (BgL_test2126z00_4567)
										{	/* Globalize/free.scm 181 */
											BgL_test2125z00_4566 =
												CBOOL(BGl_freezd2variablezf3z21zzglobaliza7e_freeza7(
													((obj_t) BgL_varz00_3487)));
										}
									else
										{	/* Globalize/free.scm 181 */
											BgL_test2125z00_4566 = ((bool_t) 0);
										}
								}
								if (BgL_test2125z00_4566)
									{	/* Globalize/free.scm 181 */
										BGl_markzd2variablez12zc0zzglobaliza7e_freeza7(
											((BgL_localz00_bglt) BgL_varz00_3487));
										{	/* Globalize/free.scm 183 */
											obj_t BgL_arg1735z00_3500;

											{	/* Globalize/free.scm 183 */
												obj_t BgL_arg1736z00_3501;

												BgL_arg1736z00_3501 =
													(((BgL_nodez00_bglt) COBJECT(
															((BgL_nodez00_bglt)
																((BgL_appz00_bglt) BgL_nodez00_3400))))->
													BgL_locz00);
												{	/* Globalize/free.scm 338 */
													bool_t BgL_test2127z00_4584;

													{	/* Globalize/free.scm 338 */
														obj_t BgL_classz00_3502;

														BgL_classz00_3502 = BGl_globalz00zzast_varz00;
														{	/* Globalize/free.scm 338 */
															BgL_objectz00_bglt BgL_arg1801z00_3503;

															{	/* Globalize/free.scm 338 */
																obj_t BgL_tmpz00_4585;

																BgL_tmpz00_4585 = ((obj_t) BgL_varz00_3487);
																BgL_arg1801z00_3503 =
																	(BgL_objectz00_bglt) (BgL_tmpz00_4585);
															}
															if (BGL_CONDEXPAND_ISA_ARCH64())
																{	/* Globalize/free.scm 338 */
																	long BgL_idxz00_3504;

																	BgL_idxz00_3504 =
																		BGL_OBJECT_INHERITANCE_NUM
																		(BgL_arg1801z00_3503);
																	BgL_test2127z00_4584 =
																		(VECTOR_REF
																		(BGl_za2inheritancesza2z00zz__objectz00,
																			(BgL_idxz00_3504 + 2L)) ==
																		BgL_classz00_3502);
																}
															else
																{	/* Globalize/free.scm 338 */
																	bool_t BgL_res1973z00_3507;

																	{	/* Globalize/free.scm 338 */
																		obj_t BgL_oclassz00_3508;

																		{	/* Globalize/free.scm 338 */
																			long BgL_arg1808z00_3509;

																			{	/* Globalize/free.scm 338 */
																				long BgL_arg1809z00_3510;

																				BgL_arg1809z00_3510 =
																					BGL_OBJECT_CLASS_NUM
																					(BgL_arg1801z00_3503);
																				BgL_arg1808z00_3509 =
																					(BgL_arg1809z00_3510 - OBJECT_TYPE);
																			}
																			BgL_oclassz00_3508 =
																				VECTOR_REF
																				(BGl_za2classesza2z00zz__objectz00,
																				BgL_arg1808z00_3509);
																		}
																		{	/* Globalize/free.scm 338 */
																			bool_t BgL__ortest_1115z00_3511;

																			BgL__ortest_1115z00_3511 =
																				(BgL_classz00_3502 ==
																				BgL_oclassz00_3508);
																			if (BgL__ortest_1115z00_3511)
																				{	/* Globalize/free.scm 338 */
																					BgL_res1973z00_3507 =
																						BgL__ortest_1115z00_3511;
																				}
																			else
																				{	/* Globalize/free.scm 338 */
																					long BgL_odepthz00_3512;

																					BgL_odepthz00_3512 =
																						BGL_CLASS_DEPTH(BgL_oclassz00_3508);
																					if ((2L < BgL_odepthz00_3512))
																						{	/* Globalize/free.scm 338 */
																							obj_t BgL_arg1797z00_3513;

																							BgL_arg1797z00_3513 =
																								BGL_CLASS_ANCESTORS_REF
																								(BgL_oclassz00_3508, 2L);
																							BgL_res1973z00_3507 =
																								(BgL_arg1797z00_3513 ==
																								BgL_classz00_3502);
																						}
																					else
																						{	/* Globalize/free.scm 338 */
																							BgL_res1973z00_3507 =
																								((bool_t) 0);
																						}
																				}
																		}
																	}
																	BgL_test2127z00_4584 = BgL_res1973z00_3507;
																}
														}
													}
													if (BgL_test2127z00_4584)
														{	/* Globalize/free.scm 338 */
															BgL_arg1735z00_3500 =
																BGl_thezd2globalzd2closurez00zzglobaliza7e_freeza7
																(((BgL_globalz00_bglt) BgL_varz00_3487),
																BgL_arg1736z00_3501);
														}
													else
														{	/* Globalize/free.scm 338 */
															BgL_arg1735z00_3500 =
																BGl_thezd2localzd2closurez00zzglobaliza7e_freeza7
																(((obj_t) BgL_varz00_3487),
																BgL_arg1736z00_3501);
														}
												}
											}
											BgL_freez00_3486 =
												MAKE_YOUNG_PAIR(BgL_arg1735z00_3500, BgL_freez00_3401);
										}
									}
								else
									{	/* Globalize/free.scm 181 */
										BgL_freez00_3486 = BgL_freez00_3401;
									}
							}
					}
				}
				return
					BGl_nodezd2freeza2z70zzglobaliza7e_freeza7(
					(((BgL_appz00_bglt) COBJECT(
								((BgL_appz00_bglt) BgL_nodez00_3400)))->BgL_argsz00),
					BgL_freez00_3486);
			}
		}

	}



/* &node-free-sync1313 */
	obj_t BGl_z62nodezd2freezd2sync1313z62zzglobaliza7e_freeza7(obj_t
		BgL_envz00_3402, obj_t BgL_nodez00_3403, obj_t BgL_freez00_3404)
	{
		{	/* Globalize/free.scm 168 */
			return
				BGl_nodezd2freezd2zzglobaliza7e_freeza7(
				(((BgL_syncz00_bglt) COBJECT(
							((BgL_syncz00_bglt) BgL_nodez00_3403)))->BgL_bodyz00),
				BGl_nodezd2freezd2zzglobaliza7e_freeza7(
					(((BgL_syncz00_bglt) COBJECT(
								((BgL_syncz00_bglt) BgL_nodez00_3403)))->BgL_prelockz00),
					BGl_nodezd2freezd2zzglobaliza7e_freeza7(
						(((BgL_syncz00_bglt) COBJECT(
									((BgL_syncz00_bglt) BgL_nodez00_3403)))->BgL_mutexz00),
						BgL_freez00_3404)));
		}

	}



/* &node-free-sequence1311 */
	obj_t BGl_z62nodezd2freezd2sequence1311z62zzglobaliza7e_freeza7(obj_t
		BgL_envz00_3405, obj_t BgL_nodez00_3406, obj_t BgL_freez00_3407)
	{
		{	/* Globalize/free.scm 161 */
			return
				BGl_nodezd2freeza2z70zzglobaliza7e_freeza7(
				(((BgL_sequencez00_bglt) COBJECT(
							((BgL_sequencez00_bglt) BgL_nodez00_3406)))->BgL_nodesz00),
				BgL_freez00_3407);
		}

	}



/* &node-free-closure1309 */
	obj_t BGl_z62nodezd2freezd2closure1309z62zzglobaliza7e_freeza7(obj_t
		BgL_envz00_3408, obj_t BgL_nodez00_3409, obj_t BgL_freez00_3410)
	{
		{	/* Globalize/free.scm 146 */
			{	/* Globalize/free.scm 148 */
				obj_t BgL_varz00_3517;

				{	/* Globalize/free.scm 148 */
					BgL_variablez00_bglt BgL_arg1712z00_3518;

					BgL_arg1712z00_3518 =
						(((BgL_varz00_bglt) COBJECT(
								((BgL_varz00_bglt)
									((BgL_closurez00_bglt) BgL_nodez00_3409))))->BgL_variablez00);
					{	/* Globalize/free.scm 338 */
						bool_t BgL_test2131z00_4627;

						{	/* Globalize/free.scm 338 */
							obj_t BgL_classz00_3519;

							BgL_classz00_3519 = BGl_globalz00zzast_varz00;
							{	/* Globalize/free.scm 338 */
								BgL_objectz00_bglt BgL_arg1801z00_3520;

								{	/* Globalize/free.scm 338 */
									obj_t BgL_tmpz00_4628;

									BgL_tmpz00_4628 = ((obj_t) BgL_arg1712z00_3518);
									BgL_arg1801z00_3520 = (BgL_objectz00_bglt) (BgL_tmpz00_4628);
								}
								if (BGL_CONDEXPAND_ISA_ARCH64())
									{	/* Globalize/free.scm 338 */
										long BgL_idxz00_3521;

										BgL_idxz00_3521 =
											BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_3520);
										BgL_test2131z00_4627 =
											(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
												(BgL_idxz00_3521 + 2L)) == BgL_classz00_3519);
									}
								else
									{	/* Globalize/free.scm 338 */
										bool_t BgL_res1970z00_3524;

										{	/* Globalize/free.scm 338 */
											obj_t BgL_oclassz00_3525;

											{	/* Globalize/free.scm 338 */
												long BgL_arg1808z00_3526;

												{	/* Globalize/free.scm 338 */
													long BgL_arg1809z00_3527;

													BgL_arg1809z00_3527 =
														BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_3520);
													BgL_arg1808z00_3526 =
														(BgL_arg1809z00_3527 - OBJECT_TYPE);
												}
												BgL_oclassz00_3525 =
													VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
													BgL_arg1808z00_3526);
											}
											{	/* Globalize/free.scm 338 */
												bool_t BgL__ortest_1115z00_3528;

												BgL__ortest_1115z00_3528 =
													(BgL_classz00_3519 == BgL_oclassz00_3525);
												if (BgL__ortest_1115z00_3528)
													{	/* Globalize/free.scm 338 */
														BgL_res1970z00_3524 = BgL__ortest_1115z00_3528;
													}
												else
													{	/* Globalize/free.scm 338 */
														long BgL_odepthz00_3529;

														BgL_odepthz00_3529 =
															BGL_CLASS_DEPTH(BgL_oclassz00_3525);
														if ((2L < BgL_odepthz00_3529))
															{	/* Globalize/free.scm 338 */
																obj_t BgL_arg1797z00_3530;

																BgL_arg1797z00_3530 =
																	BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_3525,
																	2L);
																BgL_res1970z00_3524 =
																	(BgL_arg1797z00_3530 == BgL_classz00_3519);
															}
														else
															{	/* Globalize/free.scm 338 */
																BgL_res1970z00_3524 = ((bool_t) 0);
															}
													}
											}
										}
										BgL_test2131z00_4627 = BgL_res1970z00_3524;
									}
							}
						}
						if (BgL_test2131z00_4627)
							{	/* Globalize/free.scm 338 */
								BgL_varz00_3517 =
									BGl_thezd2globalzd2closurez00zzglobaliza7e_freeza7(
									((BgL_globalz00_bglt) BgL_arg1712z00_3518), BFALSE);
							}
						else
							{	/* Globalize/free.scm 338 */
								BgL_varz00_3517 =
									BGl_thezd2localzd2closurez00zzglobaliza7e_freeza7(
									((obj_t) BgL_arg1712z00_3518), BFALSE);
							}
					}
				}
				{	/* Globalize/free.scm 150 */
					bool_t BgL_test2135z00_4651;

					{	/* Globalize/free.scm 150 */
						obj_t BgL_classz00_3531;

						BgL_classz00_3531 = BGl_globalz00zzast_varz00;
						if (BGL_OBJECTP(BgL_varz00_3517))
							{	/* Globalize/free.scm 150 */
								BgL_objectz00_bglt BgL_arg1801z00_3532;

								BgL_arg1801z00_3532 = (BgL_objectz00_bglt) (BgL_varz00_3517);
								if (BGL_CONDEXPAND_ISA_ARCH64())
									{	/* Globalize/free.scm 150 */
										long BgL_idxz00_3533;

										BgL_idxz00_3533 =
											BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_3532);
										BgL_test2135z00_4651 =
											(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
												(BgL_idxz00_3533 + 2L)) == BgL_classz00_3531);
									}
								else
									{	/* Globalize/free.scm 150 */
										bool_t BgL_res1971z00_3536;

										{	/* Globalize/free.scm 150 */
											obj_t BgL_oclassz00_3537;

											{	/* Globalize/free.scm 150 */
												long BgL_arg1808z00_3538;

												{	/* Globalize/free.scm 150 */
													long BgL_arg1809z00_3539;

													BgL_arg1809z00_3539 =
														BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_3532);
													BgL_arg1808z00_3538 =
														(BgL_arg1809z00_3539 - OBJECT_TYPE);
												}
												BgL_oclassz00_3537 =
													VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
													BgL_arg1808z00_3538);
											}
											{	/* Globalize/free.scm 150 */
												bool_t BgL__ortest_1115z00_3540;

												BgL__ortest_1115z00_3540 =
													(BgL_classz00_3531 == BgL_oclassz00_3537);
												if (BgL__ortest_1115z00_3540)
													{	/* Globalize/free.scm 150 */
														BgL_res1971z00_3536 = BgL__ortest_1115z00_3540;
													}
												else
													{	/* Globalize/free.scm 150 */
														long BgL_odepthz00_3541;

														BgL_odepthz00_3541 =
															BGL_CLASS_DEPTH(BgL_oclassz00_3537);
														if ((2L < BgL_odepthz00_3541))
															{	/* Globalize/free.scm 150 */
																obj_t BgL_arg1797z00_3542;

																BgL_arg1797z00_3542 =
																	BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_3537,
																	2L);
																BgL_res1971z00_3536 =
																	(BgL_arg1797z00_3542 == BgL_classz00_3531);
															}
														else
															{	/* Globalize/free.scm 150 */
																BgL_res1971z00_3536 = ((bool_t) 0);
															}
													}
											}
										}
										BgL_test2135z00_4651 = BgL_res1971z00_3536;
									}
							}
						else
							{	/* Globalize/free.scm 150 */
								BgL_test2135z00_4651 = ((bool_t) 0);
							}
					}
					if (BgL_test2135z00_4651)
						{	/* Globalize/free.scm 150 */
							return BgL_freez00_3410;
						}
					else
						{	/* Globalize/free.scm 150 */
							if (CBOOL(BGl_freezd2variablezf3z21zzglobaliza7e_freeza7
									(BgL_varz00_3517)))
								{	/* Globalize/free.scm 152 */
									BGl_markzd2variablez12zc0zzglobaliza7e_freeza7(
										((BgL_localz00_bglt) BgL_varz00_3517));
									return MAKE_YOUNG_PAIR(BgL_varz00_3517, BgL_freez00_3410);
								}
							else
								{	/* Globalize/free.scm 152 */
									return BgL_freez00_3410;
								}
						}
				}
			}
		}

	}



/* &node-free-var1307 */
	obj_t BGl_z62nodezd2freezd2var1307z62zzglobaliza7e_freeza7(obj_t
		BgL_envz00_3411, obj_t BgL_nodez00_3412, obj_t BgL_freez00_3413)
	{
		{	/* Globalize/free.scm 129 */
			{	/* Globalize/free.scm 135 */
				bool_t BgL_test2141z00_4677;

				{	/* Globalize/free.scm 135 */
					BgL_variablez00_bglt BgL_arg1706z00_3544;

					BgL_arg1706z00_3544 =
						(((BgL_varz00_bglt) COBJECT(
								((BgL_varz00_bglt) BgL_nodez00_3412)))->BgL_variablez00);
					{	/* Globalize/free.scm 135 */
						obj_t BgL_classz00_3545;

						BgL_classz00_3545 = BGl_globalz00zzast_varz00;
						{	/* Globalize/free.scm 135 */
							BgL_objectz00_bglt BgL_arg1801z00_3546;

							{	/* Globalize/free.scm 135 */
								obj_t BgL_tmpz00_4680;

								BgL_tmpz00_4680 =
									((obj_t) ((BgL_objectz00_bglt) BgL_arg1706z00_3544));
								BgL_arg1801z00_3546 = (BgL_objectz00_bglt) (BgL_tmpz00_4680);
							}
							if (BGL_CONDEXPAND_ISA_ARCH64())
								{	/* Globalize/free.scm 135 */
									long BgL_idxz00_3547;

									BgL_idxz00_3547 =
										BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_3546);
									BgL_test2141z00_4677 =
										(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
											(BgL_idxz00_3547 + 2L)) == BgL_classz00_3545);
								}
							else
								{	/* Globalize/free.scm 135 */
									bool_t BgL_res1969z00_3550;

									{	/* Globalize/free.scm 135 */
										obj_t BgL_oclassz00_3551;

										{	/* Globalize/free.scm 135 */
											long BgL_arg1808z00_3552;

											{	/* Globalize/free.scm 135 */
												long BgL_arg1809z00_3553;

												BgL_arg1809z00_3553 =
													BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_3546);
												BgL_arg1808z00_3552 =
													(BgL_arg1809z00_3553 - OBJECT_TYPE);
											}
											BgL_oclassz00_3551 =
												VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
												BgL_arg1808z00_3552);
										}
										{	/* Globalize/free.scm 135 */
											bool_t BgL__ortest_1115z00_3554;

											BgL__ortest_1115z00_3554 =
												(BgL_classz00_3545 == BgL_oclassz00_3551);
											if (BgL__ortest_1115z00_3554)
												{	/* Globalize/free.scm 135 */
													BgL_res1969z00_3550 = BgL__ortest_1115z00_3554;
												}
											else
												{	/* Globalize/free.scm 135 */
													long BgL_odepthz00_3555;

													BgL_odepthz00_3555 =
														BGL_CLASS_DEPTH(BgL_oclassz00_3551);
													if ((2L < BgL_odepthz00_3555))
														{	/* Globalize/free.scm 135 */
															obj_t BgL_arg1797z00_3556;

															BgL_arg1797z00_3556 =
																BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_3551, 2L);
															BgL_res1969z00_3550 =
																(BgL_arg1797z00_3556 == BgL_classz00_3545);
														}
													else
														{	/* Globalize/free.scm 135 */
															BgL_res1969z00_3550 = ((bool_t) 0);
														}
												}
										}
									}
									BgL_test2141z00_4677 = BgL_res1969z00_3550;
								}
						}
					}
				}
				if (BgL_test2141z00_4677)
					{	/* Globalize/free.scm 135 */
						return BgL_freez00_3413;
					}
				else
					{	/* Globalize/free.scm 137 */
						bool_t BgL_test2145z00_4700;

						{	/* Globalize/free.scm 137 */
							BgL_variablez00_bglt BgL_arg1698z00_3557;

							BgL_arg1698z00_3557 =
								(((BgL_varz00_bglt) COBJECT(
										((BgL_varz00_bglt) BgL_nodez00_3412)))->BgL_variablez00);
							BgL_test2145z00_4700 =
								CBOOL(BGl_freezd2variablezf3z21zzglobaliza7e_freeza7(
									((obj_t) BgL_arg1698z00_3557)));
						}
						if (BgL_test2145z00_4700)
							{	/* Globalize/free.scm 137 */
								{	/* Globalize/free.scm 138 */
									BgL_variablez00_bglt BgL_arg1695z00_3558;

									BgL_arg1695z00_3558 =
										(((BgL_varz00_bglt) COBJECT(
												((BgL_varz00_bglt) BgL_nodez00_3412)))->
										BgL_variablez00);
									BGl_markzd2variablez12zc0zzglobaliza7e_freeza7((
											(BgL_localz00_bglt) BgL_arg1695z00_3558));
								}
								{	/* Globalize/free.scm 139 */
									BgL_variablez00_bglt BgL_arg1696z00_3559;

									BgL_arg1696z00_3559 =
										(((BgL_varz00_bglt) COBJECT(
												((BgL_varz00_bglt) BgL_nodez00_3412)))->
										BgL_variablez00);
									return MAKE_YOUNG_PAIR(((obj_t) BgL_arg1696z00_3559),
										BgL_freez00_3413);
								}
							}
						else
							{	/* Globalize/free.scm 137 */
								return BgL_freez00_3413;
							}
					}
			}
		}

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zzglobaliza7e_freeza7(void)
	{
		{	/* Globalize/free.scm 15 */
			BGl_modulezd2initializa7ationz75zztools_tracez00(54713316L,
				BSTRING_TO_STRING(BGl_string2005z00zzglobaliza7e_freeza7));
			BGl_modulezd2initializa7ationz75zztools_shapez00(365925558L,
				BSTRING_TO_STRING(BGl_string2005z00zzglobaliza7e_freeza7));
			BGl_modulezd2initializa7ationz75zztools_speekz00(61247943L,
				BSTRING_TO_STRING(BGl_string2005z00zzglobaliza7e_freeza7));
			BGl_modulezd2initializa7ationz75zztype_typez00(515343395L,
				BSTRING_TO_STRING(BGl_string2005z00zzglobaliza7e_freeza7));
			BGl_modulezd2initializa7ationz75zztype_cachez00(346491734L,
				BSTRING_TO_STRING(BGl_string2005z00zzglobaliza7e_freeza7));
			BGl_modulezd2initializa7ationz75zzast_varz00(90839984L,
				BSTRING_TO_STRING(BGl_string2005z00zzglobaliza7e_freeza7));
			BGl_modulezd2initializa7ationz75zzast_localz00(315247917L,
				BSTRING_TO_STRING(BGl_string2005z00zzglobaliza7e_freeza7));
			BGl_modulezd2initializa7ationz75zzast_nodez00(469732712L,
				BSTRING_TO_STRING(BGl_string2005z00zzglobaliza7e_freeza7));
			BGl_modulezd2initializa7ationz75zzast_sexpz00(163122759L,
				BSTRING_TO_STRING(BGl_string2005z00zzglobaliza7e_freeza7));
			BGl_modulezd2initializa7ationz75zzast_glozd2defzd2(44601789L,
				BSTRING_TO_STRING(BGl_string2005z00zzglobaliza7e_freeza7));
			BGl_modulezd2initializa7ationz75zzast_envz00(146730773L,
				BSTRING_TO_STRING(BGl_string2005z00zzglobaliza7e_freeza7));
			BGl_modulezd2initializa7ationz75zzglobaliza7e_ginfoza7(0L,
				BSTRING_TO_STRING(BGl_string2005z00zzglobaliza7e_freeza7));
			BGl_modulezd2initializa7ationz75zzglobaliza7e_nodeza7(2706117L,
				BSTRING_TO_STRING(BGl_string2005z00zzglobaliza7e_freeza7));
			BGl_modulezd2initializa7ationz75zzengine_paramz00(517137079L,
				BSTRING_TO_STRING(BGl_string2005z00zzglobaliza7e_freeza7));
			return
				BGl_modulezd2initializa7ationz75zzglobaliza7e_globalzd2closurez75
				(62221965L, BSTRING_TO_STRING(BGl_string2005z00zzglobaliza7e_freeza7));
		}

	}

#ifdef __cplusplus
}
#endif
