/*===========================================================================*/
/*   (Ast/var.scm)                                                           */
/*   Bigloo (2.6b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Mon Dec 15 12:14:36 CET 2003        */
/*===========================================================================*/
/* COMPILATION: (/users/serrano/prgm/project/bigloo/bin/bigloo -q -afile .afile -fsharing -fno-reflection -cc gcc-2.95 -lib-dir /users/serrano/prgm/project/bigloo/lib/2.6b -unsafev -no-hello -O2 -rm -unsafe -s -indent Ast/var.scm)*/
/* GC selection */
#define THE_GC BOEHM_GC

#include <bigloo.h>


/* Object type definitions */
typedef struct BgL_typez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_namez00;
   obj_t BgL_siza7eza7;
   obj_t BgL_classz00;
   obj_t BgL_coercezd2tozd2;
   obj_t BgL_parentsz00;
   bool_t BgL_initzf3zf3;
   bool_t BgL_magiczf3zf3;
   obj_t BgL_z42z42;
   obj_t BgL_aliasz00;
   obj_t BgL_pointedzd2tozd2byz00;
   obj_t BgL_tvectorz00;
   obj_t BgL_locationz00;
   obj_t BgL_importzd2locationzd2;
} *BgL_typez00_bglt;

typedef struct BgL_valuez00_bgl {
   header_t header;
   obj_t widening;
} *BgL_valuez00_bglt;

typedef struct BgL_variablez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_namez00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_valuez00_bgl * BgL_valuez00;
   obj_t BgL_accessz00;
   obj_t BgL_fastzd2alphazd2;
   obj_t BgL_removablez00;
   long BgL_occurrencez00;
} *BgL_variablez00_bglt;

typedef struct BgL_globalz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_namez00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_valuez00_bgl * BgL_valuez00;
   obj_t BgL_accessz00;
   obj_t BgL_fastzd2alphazd2;
   obj_t BgL_removablez00;
   long BgL_occurrencez00;
   obj_t BgL_modulez00;
   obj_t BgL_importz00;
   bool_t BgL_evaluablezf3zf3;
   bool_t BgL_libraryzf3zf3;
   bool_t BgL_userzf3zf3;
   obj_t BgL_pragmaz00;
   obj_t BgL_srcz00;
   obj_t BgL_jvmzd2typezd2namez00;
} *BgL_globalz00_bglt;

typedef struct BgL_localz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_namez00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_valuez00_bgl * BgL_valuez00;
   obj_t BgL_accessz00;
   obj_t BgL_fastzd2alphazd2;
   obj_t BgL_removablez00;
   long BgL_occurrencez00;
   bool_t BgL_userzf3zf3;
   long BgL_keyz00;
} *BgL_localz00_bglt;

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

typedef struct BgL_sfunz00_bgl {
   header_t header;
   obj_t widening;
   long BgL_arityz00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_predicatezd2ofzd2;
   obj_t BgL_stackzd2allocatorzd2;
   bool_t BgL_topzf3zf3;
   obj_t BgL_thezd2closurezd2;
   obj_t BgL_effectz00;
   obj_t BgL_propertyz00;
   obj_t BgL_argsz00;
   obj_t BgL_bodyz00;
   obj_t BgL_classz00;
   obj_t BgL_dssslzd2keywordszd2;
   obj_t BgL_locz00;
} *BgL_sfunz00_bglt;

typedef struct BgL_cfunz00_bgl {
   header_t header;
   obj_t widening;
   long BgL_arityz00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_predicatezd2ofzd2;
   obj_t BgL_stackzd2allocatorzd2;
   bool_t BgL_topzf3zf3;
   obj_t BgL_thezd2closurezd2;
   obj_t BgL_effectz00;
   obj_t BgL_argszd2typezd2;
   bool_t BgL_macrozf3zf3;
   bool_t BgL_infixzf3zf3;
   obj_t BgL_methodz00;
} *BgL_cfunz00_bglt;

typedef struct BgL_svarz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
} *BgL_svarz00_bglt;

typedef struct BgL_scnstz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_nodez00;
   obj_t BgL_classz00;
   obj_t BgL_locz00;
} *BgL_scnstz00_bglt;

typedef struct BgL_cvarz00_bgl {
   header_t header;
   obj_t widening;
   bool_t BgL_macrozf3zf3;
} *BgL_cvarz00_bglt;

typedef struct BgL_sexitz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_handlerz00;
   bool_t BgL_detachedzf3zf3;
} *BgL_sexitz00_bglt;

typedef struct BgL_feffectz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_readz00;
   obj_t BgL_writez00;
} *BgL_feffectz00_bglt;


static obj_t BGl__allocatezd2cfunzd2zzast_varz00(obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2local1962z51zzast_varz00(obj_t, obj_t, obj_t);
static obj_t BGl_methodzd2initzd2zzast_varz00();
static obj_t BGl_structzb2objectzd2ze3objectzd2fun1958z51zzast_varz00(obj_t, obj_t, obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2cvar1938z51zzast_varz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_sexitz00_bglt BGl_fillzd2sexitz12zc0zzast_varz00(BgL_sexitz00_bglt, obj_t, bool_t);
static obj_t BGl__sexitzf3zf3zzast_varz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_variablez00_bglt BGl_allocatezd2variablezd2zzast_varz00();
static obj_t BGl__allocatezd2scnstzd2zzast_varz00(obj_t);
BGL_IMPORT obj_t open_input_string(obj_t);
BGL_IMPORT long BGl_classzd2numzd2zz__objectz00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_cvarzf3zf3zzast_varz00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_globalzd2readzd2onlyzf3zf3zzast_varz00(BgL_globalz00_bglt);
BGL_EXPORTED_DECL bool_t BGl_valuezf3zf3zzast_varz00(obj_t);
BGL_EXPORTED_DEF obj_t BGl_sfunz00zzast_varz00 = BUNSPEC;
static obj_t BGl__makezd2global2997zd2zzast_varz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
static obj_t BGl__makezd2scnstzd2zzast_varz00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_globalzd2argszd2safezf3zf3zzast_varz00(BgL_globalz00_bglt);
static obj_t BGl__fillzd2localz122994zc0zzast_varz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_variablezf3zf3zzast_varz00(obj_t);
static obj_t BGl_objectzd2ze3structzd2sexit1932ze3zzast_varz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_cfunz00_bglt BGl_allocatezd2cfunzd2zzast_varz00();
BGL_EXPORTED_DEF obj_t BGl_scnstz00zzast_varz00 = BUNSPEC;
BGL_EXPORTED_DECL BgL_scnstz00_bglt BGl_allocatezd2scnstzd2zzast_varz00();
BGL_IMPORT obj_t BGl_objectz00zz__objectz00;
BGL_EXPORTED_DEF obj_t BGl_svarz00zzast_varz00 = BUNSPEC;
BGL_IMPORT obj_t BGl_registerzd2classz12zc0zz__objectz00(obj_t, obj_t, obj_t, obj_t, long, obj_t, obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2value1972ze3zzast_varz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_localzf3zf3zzast_varz00(obj_t);
static obj_t BGl_objectzd2ze3structzd2scnst1940ze3zzast_varz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_feffectz00_bglt BGl_fillzd2feffectz12zc0zzast_varz00(BgL_feffectz00_bglt, obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_funz00zzast_varz00 = BUNSPEC;
BGL_EXPORTED_DEF obj_t BGl_globalz00zzast_varz00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_cfunzf3zf3zzast_varz00(obj_t);
BGL_EXPORTED_DECL BgL_cvarz00_bglt BGl_allocatezd2cvarzd2zzast_varz00();
static obj_t BGl__globalzd2readzd2onlyzf32939zf3zzast_varz00(obj_t, obj_t);
static obj_t BGl__makezd2sexitzd2zzast_varz00(obj_t, obj_t, obj_t);
static obj_t BGl__cvarzf3zf3zzast_varz00(obj_t, obj_t);
static obj_t BGl__makezd2sfun2982zd2zzast_varz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_feffectzf3zf3zzast_varz00(obj_t);
BGL_EXPORTED_DEF obj_t BGl_sexitz00zzast_varz00 = BUNSPEC;
static obj_t BGl_objectzd2ze3structzd2sfun1952ze3zzast_varz00(obj_t, obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2variable1970z51zzast_varz00(obj_t, obj_t, obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2sexit1934z51zzast_varz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_scnstzf3zf3zzast_varz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_globalzd2setzd2readzd2onlyz12zc0zzast_varz00(BgL_globalz00_bglt);
BGL_EXPORTED_DECL BgL_sexitz00_bglt BGl_allocatezd2sexitzd2zzast_varz00();
static obj_t BGl_cnstzd2initzd2zzast_varz00();
BGL_EXPORTED_DECL BgL_cvarz00_bglt BGl_fillzd2cvarz12zc0zzast_varz00(BgL_cvarz00_bglt, bool_t);
static obj_t BGl__allocatezd2feffectzd2zzast_varz00(obj_t);
static obj_t BGl__fillzd2feffectz12zc0zzast_varz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2value1974z51zzast_varz00(obj_t, obj_t, obj_t);
static obj_t BGl__makezd2cfun2977zd2zzast_varz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2scnst1942z51zzast_varz00(obj_t, obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2svar1944ze3zzast_varz00(obj_t, obj_t);
static obj_t BGl__variablezf3zf3zzast_varz00(obj_t, obj_t);
static obj_t BGl__fillzd2sexitz122962zc0zzast_varz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzast_varz00();
static obj_t BGl_objectzd2ze3structzd2cfun1948ze3zzast_varz00(obj_t, obj_t);
BGL_IMPORT obj_t make_struct(obj_t, int, obj_t);
static obj_t BGl__allocatezd2localzd2zzast_varz00(obj_t);
static obj_t BGl__cfunzf3zf3zzast_varz00(obj_t, obj_t);
static obj_t BGl__allocatezd2globalzd2zzast_varz00(obj_t);
static obj_t BGl__allocatezd2valuezd2zzast_varz00(obj_t);
static obj_t BGl_objectzd2ze3structzd2fun1956ze3zzast_varz00(obj_t, obj_t);
static obj_t BGl__fillzd2sfunz122984zc0zzast_varz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__fillzd2cvarz122966zc0zzast_varz00(obj_t, obj_t, obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2feffect1930z51zzast_varz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_sexitzf3zf3zzast_varz00(obj_t);
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
static obj_t BGl__globalzf3zf3zzast_varz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_feffectz00_bglt BGl_makezd2feffectzd2zzast_varz00(obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_variablez00zzast_varz00 = BUNSPEC;
static obj_t BGl_objectzd2ze3structzd2cvar1936ze3zzast_varz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_sexitz00_bglt BGl_makezd2sexitzd2zzast_varz00(obj_t, bool_t);
static obj_t BGl__fillzd2funz122989zc0zzast_varz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_cfunz00_bglt BGl_fillzd2cfunz12zc0zzast_varz00(BgL_cfunz00_bglt, long, obj_t, obj_t, obj_t, bool_t, obj_t, obj_t, obj_t, bool_t, bool_t, obj_t);
static obj_t BGl__fillzd2globalz122999zc0zzast_varz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_cfunz00_bglt BGl_makezd2cfunzd2zzast_varz00(long, obj_t, obj_t, obj_t, bool_t, obj_t, obj_t, obj_t, bool_t, bool_t, obj_t);
static obj_t BGl__makezd2svarzd2zzast_varz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
static obj_t BGl_objectzd2ze3structzd2global1964ze3zzast_varz00(obj_t, obj_t);
static obj_t BGl__allocatezd2svarzd2zzast_varz00(obj_t);
BGL_EXPORTED_DECL BgL_sfunz00_bglt BGl_allocatezd2sfunzd2zzast_varz00();
static obj_t BGl__feffectzf3zf3zzast_varz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_globalz00_bglt BGl_allocatezd2globalzd2zzast_varz00();
BGL_EXPORTED_DECL BgL_funz00_bglt BGl_fillzd2funz12zc0zzast_varz00(BgL_funz00_bglt, long, obj_t, obj_t, obj_t, bool_t, obj_t, obj_t);
static obj_t BGl__fillzd2svarz122974zc0zzast_varz00(obj_t, obj_t, obj_t);
static obj_t BGl__makezd2feffectzd2zzast_varz00(obj_t, obj_t, obj_t);
static obj_t BGl__allocatezd2funzd2zzast_varz00(obj_t);
static obj_t BGl__fillzd2cfunz122979zc0zzast_varz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_svarzf3zf3zzast_varz00(obj_t);
static obj_t BGl__funzf3zf3zzast_varz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_cvarz00_bglt BGl_makezd2cvarzd2zzast_varz00(bool_t);
static obj_t BGl_objectzd2ze3structzd2feffect1928ze3zzast_varz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_scnstz00_bglt BGl_makezd2scnstzd2zzast_varz00(obj_t, obj_t, obj_t);
static obj_t BGl__makezd2fun2987zd2zzast_varz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__allocatezd2sfunzd2zzast_varz00(obj_t);
BGL_EXPORTED_DECL BgL_svarz00_bglt BGl_allocatezd2svarzd2zzast_varz00();
BGL_EXPORTED_DECL BgL_globalz00_bglt BGl_makezd2globalzd2zzast_varz00(obj_t, obj_t, BgL_typez00_bglt, BgL_valuez00_bglt, obj_t, obj_t, obj_t, long, obj_t, obj_t, bool_t, bool_t, bool_t, obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__makezd2variable3002zd2zzast_varz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_globalz00_bglt BGl_fillzd2globalz12zc0zzast_varz00(BgL_globalz00_bglt, obj_t, obj_t, BgL_typez00_bglt, BgL_valuez00_bglt, obj_t, obj_t, obj_t, long, obj_t, obj_t, bool_t, bool_t, bool_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_valuez00_bglt BGl_fillzd2valuez12zc0zzast_varz00(BgL_valuez00_bglt);
static obj_t BGl__valuezf3zf3zzast_varz00(obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_cfunz00zzast_varz00 = BUNSPEC;
static obj_t BGl__makezd2local2992zd2zzast_varz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_funz00_bglt BGl_allocatezd2funzd2zzast_varz00();
BGL_EXPORTED_DECL bool_t BGl_sfunzf3zf3zzast_varz00(obj_t);
static obj_t BGl__fillzd2valuez123008zc0zzast_varz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_variablez00_bglt BGl_fillzd2variablez12zc0zzast_varz00(BgL_variablez00_bglt, obj_t, obj_t, BgL_typez00_bglt, BgL_valuez00_bglt, obj_t, obj_t, obj_t, long);
BGL_EXPORTED_DECL BgL_funz00_bglt BGl_makezd2funzd2zzast_varz00(long, obj_t, obj_t, obj_t, bool_t, obj_t, obj_t);
static obj_t BGl__globalzd2argszd2safezf32943zf3zzast_varz00(obj_t, obj_t);
static obj_t BGl__makezd2valuezd2zzast_varz00(obj_t);
static obj_t BGl__svarzf3zf3zzast_varz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_variablez00_bglt BGl_makezd2variablezd2zzast_varz00(obj_t, obj_t, BgL_typez00_bglt, BgL_valuez00_bglt, obj_t, obj_t, obj_t, long);
BGL_EXPORTED_DEF obj_t BGl_cvarz00zzast_varz00 = BUNSPEC;
BGL_EXPORTED_DEF obj_t BGl_valuez00zzast_varz00 = BUNSPEC;
BGL_EXPORTED_DEF obj_t BGl_localz00zzast_varz00 = BUNSPEC;
BGL_EXPORTED_DECL BgL_localz00_bglt BGl_fillzd2localz12zc0zzast_varz00(BgL_localz00_bglt, obj_t, obj_t, BgL_typez00_bglt, BgL_valuez00_bglt, obj_t, obj_t, obj_t, long, bool_t, long);
static obj_t BGl__localzf3zf3zzast_varz00(obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_feffectz00zzast_varz00 = BUNSPEC;
static obj_t BGl__fillzd2variablez123004zc0zzast_varz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_valuez00_bglt BGl_allocatezd2valuezd2zzast_varz00();
static obj_t BGl__fillzd2scnstz122970zc0zzast_varz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_localz00_bglt BGl_allocatezd2localzd2zzast_varz00();
static obj_t BGl__allocatezd2variablezd2zzast_varz00(obj_t);
BGL_EXPORTED_DECL BgL_svarz00_bglt BGl_fillzd2svarz12zc0zzast_varz00(BgL_svarz00_bglt, obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2sfun1954z51zzast_varz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_feffectz00_bglt BGl_allocatezd2feffectzd2zzast_varz00();
static obj_t BGl_structzb2objectzd2ze3objectzd2global1966z51zzast_varz00(obj_t, obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2local1960ze3zzast_varz00(obj_t, obj_t);
static obj_t BGl_objectzd2initzd2zzast_varz00();
BGL_EXPORTED_DECL BgL_sfunz00_bglt BGl_makezd2sfunzd2zzast_varz00(long, obj_t, obj_t, obj_t, bool_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__makezd2cvarzd2zzast_varz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_scnstz00_bglt BGl_fillzd2scnstz12zc0zzast_varz00(BgL_scnstz00_bglt, obj_t, obj_t, obj_t);
static obj_t BGl__scnstzf3zf3zzast_varz00(obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzast_varz00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_funzf3zf3zzast_varz00(obj_t);
static obj_t BGl_objectzd2ze3structzd2variable1968ze3zzast_varz00(obj_t, obj_t);
static obj_t BGl__allocatezd2cvarzd2zzast_varz00(obj_t);
static obj_t BGl__sfunzf3zf3zzast_varz00(obj_t, obj_t);
static obj_t BGl__allocatezd2sexitzd2zzast_varz00(obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2svar1946z51zzast_varz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_localz00_bglt BGl_makezd2localzd2zzast_varz00(obj_t, obj_t, BgL_typez00_bglt, BgL_valuez00_bglt, obj_t, obj_t, obj_t, long, bool_t, long);
static obj_t BGl_structzb2objectzd2ze3objectzd2cfun1950z51zzast_varz00(obj_t, obj_t, obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzast_varz00();
BGL_EXPORTED_DECL BgL_valuez00_bglt BGl_makezd2valuezd2zzast_varz00();
BGL_EXPORTED_DECL bool_t BGl_globalzf3zf3zzast_varz00(obj_t);
BGL_EXPORTED_DECL BgL_svarz00_bglt BGl_makezd2svarzd2zzast_varz00(obj_t);
static obj_t BGl__globalzd2setzd2readzd2onlyz122941zc0zzast_varz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_sfunz00_bglt BGl_fillzd2sfunz12zc0zzast_varz00(BgL_sfunz00_bglt, long, obj_t, obj_t, obj_t, bool_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t __cnst[ 14 ] ;


DEFINE_EXPORT_PROCEDURE( BGl_makezd2variablezd2envz00zzast_varz00, BgL_bgl__makeza7d2variable3002za7d2za7za7ast_varza7003709za7, BGl__makezd2variable3002zd2zzast_varz00, 0L, 8 );
DEFINE_EXPORT_PROCEDURE( BGl_variablezf3zd2envz21zzast_varz00, BgL_bgl__variableza7f3za7f3za7za7ast_varza7003710za7, BGl__variablezf3zf3zzast_varz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2funzd2envz00zzast_varz00, BgL_bgl__makeza7d2fun2987za7d2za7za7ast_varza7003711za7, BGl__makezd2fun2987zd2zzast_varz00, 0L, 7 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2localzd2envz00zzast_varz00, BgL_bgl__allocateza7d2localza7d2za7za7ast_varza7003712za7, BGl__allocatezd2localzd2zzast_varz00, 0L, 0 );
DEFINE_STRING( BGl_string3659z00zzast_varz00, BgL_bgl_string3659za700za7za7ast_varza7003713z00, "feffect sexit cvar scnst svar cfun sfun fun local global variable value args-safe read-only ", 92 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2cfunzd2envz00zzast_varz00, BgL_bgl__makeza7d2cfun2977za7d2za7za7ast_varza7003714za7, BGl__makezd2cfun2977zd2zzast_varz00, 0L, 11 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2svarzd2envz00zzast_varz00, BgL_bgl__makeza7d2svarza7d2za7za7ast_varza7003715za7, BGl__makezd2svarzd2zzast_varz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2valuez12zd2envz12zzast_varz00, BgL_bgl__fillza7d2valueza7123008za7c0za7za7ast_varza7003716z00, BGl__fillzd2valuez123008zc0zzast_varz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_cvarzf3zd2envz21zzast_varz00, BgL_bgl__cvarza7f3za7f3za7za7ast_varza7003717za7, BGl__cvarzf3zf3zzast_varz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_svarzf3zd2envz21zzast_varz00, BgL_bgl__svarza7f3za7f3za7za7ast_varza7003718za7, BGl__svarzf3zf3zzast_varz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2variablez12zd2envz12zzast_varz00, BgL_bgl__fillza7d2variableza7123004za7c0za7za7ast_varza7003719z00, BGl__fillzd2variablez123004zc0zzast_varz00, 0L, 9 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2sfunzd2envz00zzast_varz00, BgL_bgl__makeza7d2sfun2982za7d2za7za7ast_varza7003720za7, BGl__makezd2sfun2982zd2zzast_varz00, 0L, 13 );
BGL_IMPORT obj_t BGl_objectzd2ze3structzd2envze3zz__objectz00;
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2variablezd2envz00zzast_varz00, BgL_bgl__allocateza7d2variableza7d2za7za7ast_varza7003721za7, BGl__allocatezd2variablezd2zzast_varz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_valuezf3zd2envz21zzast_varz00, BgL_bgl__valueza7f3za7f3za7za7ast_varza7003722za7, BGl__valuezf3zf3zzast_varz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2cvarzd2envz00zzast_varz00, BgL_bgl__allocateza7d2cvarza7d2za7za7ast_varza7003723za7, BGl__allocatezd2cvarzd2zzast_varz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2funzd2envz00zzast_varz00, BgL_bgl__allocateza7d2funza7d2za7za7ast_varza7003724za7, BGl__allocatezd2funzd2zzast_varz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_cfunzf3zd2envz21zzast_varz00, BgL_bgl__cfunza7f3za7f3za7za7ast_varza7003725za7, BGl__cfunzf3zf3zzast_varz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2scnstzd2envz00zzast_varz00, BgL_bgl__makeza7d2scnstza7d2za7za7ast_varza7003726za7, BGl__makezd2scnstzd2zzast_varz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_sfunzf3zd2envz21zzast_varz00, BgL_bgl__sfunza7f3za7f3za7za7ast_varza7003727za7, BGl__sfunzf3zf3zzast_varz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_globalzd2argszd2safezf3zd2envz21zzast_varz00, BgL_bgl__globalza7d2argsza7d2safeza7f32943za7f3za7za7ast_varza7003728za7, BGl__globalzd2argszd2safezf32943zf3zzast_varz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2cfunzd2envz00zzast_varz00, BgL_bgl__allocateza7d2cfunza7d2za7za7ast_varza7003729za7, BGl__allocatezd2cfunzd2zzast_varz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2svarzd2envz00zzast_varz00, BgL_bgl__allocateza7d2svarza7d2za7za7ast_varza7003730za7, BGl__allocatezd2svarzd2zzast_varz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_sexitzf3zd2envz21zzast_varz00, BgL_bgl__sexitza7f3za7f3za7za7ast_varza7003731za7, BGl__sexitzf3zf3zzast_varz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2valuezd2envz00zzast_varz00, BgL_bgl__makeza7d2valueza7d2za7za7ast_varza7003732za7, BGl__makezd2valuezd2zzast_varz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2localzd2envz00zzast_varz00, BgL_bgl__makeza7d2local2992za7d2za7za7ast_varza7003733za7, BGl__makezd2local2992zd2zzast_varz00, 0L, 10 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2sexitzd2envz00zzast_varz00, BgL_bgl__makeza7d2sexitza7d2za7za7ast_varza7003734za7, BGl__makezd2sexitzd2zzast_varz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2feffectzd2envz00zzast_varz00, BgL_bgl__makeza7d2feffectza7d2za7za7ast_varza7003735za7, BGl__makezd2feffectzd2zzast_varz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2sfunzd2envz00zzast_varz00, BgL_bgl__allocateza7d2sfunza7d2za7za7ast_varza7003736za7, BGl__allocatezd2sfunzd2zzast_varz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2globalz12zd2envz12zzast_varz00, BgL_bgl__fillza7d2globalza7122999za7c0za7za7ast_varza7003737z00, BGl__fillzd2globalz122999zc0zzast_varz00, 0L, 17 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2scnstz12zd2envz12zzast_varz00, BgL_bgl__fillza7d2scnstza7122970za7c0za7za7ast_varza7003738z00, BGl__fillzd2scnstz122970zc0zzast_varz00, 0L, 4 );
DEFINE_EXPORT_PROCEDURE( BGl_feffectzf3zd2envz21zzast_varz00, BgL_bgl__feffectza7f3za7f3za7za7ast_varza7003739za7, BGl__feffectzf3zf3zzast_varz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2localz12zd2envz12zzast_varz00, BgL_bgl__fillza7d2localza7122994za7c0za7za7ast_varza7003740z00, BGl__fillzd2localz122994zc0zzast_varz00, 0L, 11 );
DEFINE_EXPORT_PROCEDURE( BGl_globalzd2setzd2readzd2onlyz12zd2envz12zzast_varz00, BgL_bgl__globalza7d2setza7d2readza7d2onlyza7122941za7c0za7za7ast_varza7003741z00, BGl__globalzd2setzd2readzd2onlyz122941zc0zzast_varz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2globalzd2envz00zzast_varz00, BgL_bgl__makeza7d2global2997za7d2za7za7ast_varza7003742za7, BGl__makezd2global2997zd2zzast_varz00, 0L, 16 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2feffectz12zd2envz12zzast_varz00, BgL_bgl__fillza7d2feffectza712za7c0za7za7ast_varza7003743z00, BGl__fillzd2feffectz12zc0zzast_varz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2scnstzd2envz00zzast_varz00, BgL_bgl__allocateza7d2scnstza7d2za7za7ast_varza7003744za7, BGl__allocatezd2scnstzd2zzast_varz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2sfunz12zd2envz12zzast_varz00, BgL_bgl__fillza7d2sfunza7122984za7c0za7za7ast_varza7003745z00, BGl__fillzd2sfunz122984zc0zzast_varz00, 0L, 14 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2valuezd2envz00zzast_varz00, BgL_bgl__allocateza7d2valueza7d2za7za7ast_varza7003746za7, BGl__allocatezd2valuezd2zzast_varz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2feffectzd2envz00zzast_varz00, BgL_bgl__allocateza7d2feffectza7d2za7za7ast_varza7003747za7, BGl__allocatezd2feffectzd2zzast_varz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_funzf3zd2envz21zzast_varz00, BgL_bgl__funza7f3za7f3za7za7ast_varza7003748za7, BGl__funzf3zf3zzast_varz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2cfunz12zd2envz12zzast_varz00, BgL_bgl__fillza7d2cfunza7122979za7c0za7za7ast_varza7003749z00, BGl__fillzd2cfunz122979zc0zzast_varz00, 0L, 12 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2sexitzd2envz00zzast_varz00, BgL_bgl__allocateza7d2sexitza7d2za7za7ast_varza7003750za7, BGl__allocatezd2sexitzd2zzast_varz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2globalzd2envz00zzast_varz00, BgL_bgl__allocateza7d2globalza7d2za7za7ast_varza7003751za7, BGl__allocatezd2globalzd2zzast_varz00, 0L, 0 );
DEFINE_STATIC_PROCEDURE( BGl_proc3635z00zzast_varz00, BgL_bgl_objectza7d2za7e3structza7d2feffect1928za7e3za7za7ast_varza7003752za7, BGl_objectzd2ze3structzd2feffect1928ze3zzast_varz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3636z00zzast_varz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2feffect1930za751za7za7ast_varza7003753z00, BGl_structzb2objectzd2ze3objectzd2feffect1930z51zzast_varz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3637z00zzast_varz00, BgL_bgl_objectza7d2za7e3structza7d2sexit1932za7e3za7za7ast_varza7003754za7, BGl_objectzd2ze3structzd2sexit1932ze3zzast_varz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3638z00zzast_varz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2sexit1934za751za7za7ast_varza7003755z00, BGl_structzb2objectzd2ze3objectzd2sexit1934z51zzast_varz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3640z00zzast_varz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2cvar1938za751za7za7ast_varza7003756z00, BGl_structzb2objectzd2ze3objectzd2cvar1938z51zzast_varz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3639z00zzast_varz00, BgL_bgl_objectza7d2za7e3structza7d2cvar1936za7e3za7za7ast_varza7003757za7, BGl_objectzd2ze3structzd2cvar1936ze3zzast_varz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3641z00zzast_varz00, BgL_bgl_objectza7d2za7e3structza7d2scnst1940za7e3za7za7ast_varza7003758za7, BGl_objectzd2ze3structzd2scnst1940ze3zzast_varz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3642z00zzast_varz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2scnst1942za751za7za7ast_varza7003759z00, BGl_structzb2objectzd2ze3objectzd2scnst1942z51zzast_varz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3643z00zzast_varz00, BgL_bgl_objectza7d2za7e3structza7d2svar1944za7e3za7za7ast_varza7003760za7, BGl_objectzd2ze3structzd2svar1944ze3zzast_varz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3644z00zzast_varz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2svar1946za751za7za7ast_varza7003761z00, BGl_structzb2objectzd2ze3objectzd2svar1946z51zzast_varz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3645z00zzast_varz00, BgL_bgl_objectza7d2za7e3structza7d2cfun1948za7e3za7za7ast_varza7003762za7, BGl_objectzd2ze3structzd2cfun1948ze3zzast_varz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3646z00zzast_varz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2cfun1950za751za7za7ast_varza7003763z00, BGl_structzb2objectzd2ze3objectzd2cfun1950z51zzast_varz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3647z00zzast_varz00, BgL_bgl_objectza7d2za7e3structza7d2sfun1952za7e3za7za7ast_varza7003764za7, BGl_objectzd2ze3structzd2sfun1952ze3zzast_varz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3648z00zzast_varz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2sfun1954za751za7za7ast_varza7003765z00, BGl_structzb2objectzd2ze3objectzd2sfun1954z51zzast_varz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3650z00zzast_varz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2fun1958za751za7za7ast_varza7003766z00, BGl_structzb2objectzd2ze3objectzd2fun1958z51zzast_varz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3649z00zzast_varz00, BgL_bgl_objectza7d2za7e3structza7d2fun1956za7e3za7za7ast_varza7003767za7, BGl_objectzd2ze3structzd2fun1956ze3zzast_varz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3651z00zzast_varz00, BgL_bgl_objectza7d2za7e3structza7d2local1960za7e3za7za7ast_varza7003768za7, BGl_objectzd2ze3structzd2local1960ze3zzast_varz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3652z00zzast_varz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2local1962za751za7za7ast_varza7003769z00, BGl_structzb2objectzd2ze3objectzd2local1962z51zzast_varz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3653z00zzast_varz00, BgL_bgl_objectza7d2za7e3structza7d2global1964za7e3za7za7ast_varza7003770za7, BGl_objectzd2ze3structzd2global1964ze3zzast_varz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3654z00zzast_varz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2global1966za751za7za7ast_varza7003771z00, BGl_structzb2objectzd2ze3objectzd2global1966z51zzast_varz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_scnstzf3zd2envz21zzast_varz00, BgL_bgl__scnstza7f3za7f3za7za7ast_varza7003772za7, BGl__scnstzf3zf3zzast_varz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3655z00zzast_varz00, BgL_bgl_objectza7d2za7e3structza7d2variable1968za7e3za7za7ast_varza7003773za7, BGl_objectzd2ze3structzd2variable1968ze3zzast_varz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3656z00zzast_varz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2variable1970za751za7za7ast_varza7003774z00, BGl_structzb2objectzd2ze3objectzd2variable1970z51zzast_varz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3657z00zzast_varz00, BgL_bgl_objectza7d2za7e3structza7d2value1972za7e3za7za7ast_varza7003775za7, BGl_objectzd2ze3structzd2value1972ze3zzast_varz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3658z00zzast_varz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2value1974za751za7za7ast_varza7003776z00, BGl_structzb2objectzd2ze3objectzd2value1974z51zzast_varz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_globalzd2readzd2onlyzf3zd2envz21zzast_varz00, BgL_bgl__globalza7d2readza7d2onlyza7f32939za7f3za7za7ast_varza7003777za7, BGl__globalzd2readzd2onlyzf32939zf3zzast_varz00, 0L, 1 );
BGL_IMPORT obj_t BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00;
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2funz12zd2envz12zzast_varz00, BgL_bgl__fillza7d2funza7122989za7c0za7za7ast_varza7003778z00, BGl__fillzd2funz122989zc0zzast_varz00, 0L, 8 );
DEFINE_EXPORT_PROCEDURE( BGl_localzf3zd2envz21zzast_varz00, BgL_bgl__localza7f3za7f3za7za7ast_varza7003779za7, BGl__localzf3zf3zzast_varz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2svarz12zd2envz12zzast_varz00, BgL_bgl__fillza7d2svarza7122974za7c0za7za7ast_varza7003780z00, BGl__fillzd2svarz122974zc0zzast_varz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2cvarz12zd2envz12zzast_varz00, BgL_bgl__fillza7d2cvarza7122966za7c0za7za7ast_varza7003781z00, BGl__fillzd2cvarz122966zc0zzast_varz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_globalzf3zd2envz21zzast_varz00, BgL_bgl__globalza7f3za7f3za7za7ast_varza7003782za7, BGl__globalzf3zf3zzast_varz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2sexitz12zd2envz12zzast_varz00, BgL_bgl__fillza7d2sexitza7122962za7c0za7za7ast_varza7003783z00, BGl__fillzd2sexitz122962zc0zzast_varz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2cvarzd2envz00zzast_varz00, BgL_bgl__makeza7d2cvarza7d2za7za7ast_varza7003784za7, BGl__makezd2cvarzd2zzast_varz00, 0L, 1 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long BgL_checksumz00_2617, char * BgL_fromz00_2618)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzast_varz00))
{ 
BGl_requirezd2initializa7ationz75zzast_varz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzast_varz00(); 
BGl_cnstzd2initzd2zzast_varz00(); 
BGl_importedzd2moduleszd2initz00zzast_varz00(); 
BGl_objectzd2initzd2zzast_varz00(); 
BGl_methodzd2initzd2zzast_varz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzast_varz00()
{ AN_OBJECT;
{ /* ./Ast/var.scm 14 */
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "ast_var"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "ast_var"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "ast_var"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzast_varz00()
{ AN_OBJECT;
{ /* ./Ast/var.scm 14 */
{ /* ./Ast/var.scm 14 */
obj_t BgL_cportz00_2245;
BgL_cportz00_2245 = 
open_input_string(BGl_string3659z00zzast_varz00); 
{ 
long BgL_iz00_2246;
BgL_iz00_2246 = ((long)13); 
BgL_loopz00_2247:
{ /* ./Ast/var.scm 14 */
bool_t BgL_test3661z00_2248;
BgL_test3661z00_2248 = 
(BgL_iz00_2246==((long)-1)); 
if(BgL_test3661z00_2248)
{ /* ./Ast/var.scm 14 */
return BUNSPEC;}  else 
{ /* ./Ast/var.scm 14 */
{ /* ./Ast/var.scm 14 */
obj_t BgL_arg3663z00_2249;
{ /* ./Ast/var.scm 14 */
obj_t BgL_list3666z00_2250;
BgL_list3666z00_2250 = 
MAKE_PAIR(BgL_cportz00_2245, BNIL); 
BgL_arg3663z00_2249 = 
BGl_readz00zz__readerz00(BgL_list3666z00_2250); } 
{ /* ./Ast/var.scm 14 */
int BgL_auxz00_2635;
BgL_auxz00_2635 = 
(int)(BgL_iz00_2246); 
CNST_TABLE_SET(BgL_auxz00_2635, BgL_arg3663z00_2249); } } 
{ /* ./Ast/var.scm 14 */
int BgL_auxz00_2251;
{ /* ./Ast/var.scm 14 */
long BgL_auxz00_2638;
BgL_auxz00_2638 = 
(BgL_iz00_2246-((long)1)); 
BgL_auxz00_2251 = 
(int)(BgL_auxz00_2638); } 
{ 
long BgL_iz00_2641;
BgL_iz00_2641 = 
(long)(BgL_auxz00_2251); 
BgL_iz00_2246 = BgL_iz00_2641; 
goto BgL_loopz00_2247;} } } } } } } 
}



/* global-read-only? */
BGL_EXPORTED_DEF bool_t BGl_globalzd2readzd2onlyzf3zf3zzast_varz00(BgL_globalz00_bglt BgL_globalz00_1)
{ AN_OBJECT;
{ /* ./Ast/var.scm 149 */
{ /* ./Ast/var.scm 151 */
obj_t BgL_auxz00_2643;
BgL_auxz00_2643 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
CNST_TABLE_REF(((long)0)), 
(((BgL_globalz00_bglt)CREF(BgL_globalz00_1))->BgL_pragmaz00)); 
return 
PAIRP(BgL_auxz00_2643);} } 
}



/* _global-read-only?2939 */
obj_t BGl__globalzd2readzd2onlyzf32939zf3zzast_varz00(obj_t BgL_envz00_1930, obj_t BgL_globalz00_1931)
{ AN_OBJECT;
{ /* ./Ast/var.scm 149 */
{ /* ./Ast/var.scm 150 */
bool_t BgL_auxz00_2648;
BgL_auxz00_2648 = 
BGl_globalzd2readzd2onlyzf3zf3zzast_varz00(
(BgL_globalz00_bglt)(BgL_globalz00_1931)); 
return 
BBOOL(BgL_auxz00_2648);} } 
}



/* global-set-read-only! */
BGL_EXPORTED_DEF obj_t BGl_globalzd2setzd2readzd2onlyz12zc0zzast_varz00(BgL_globalz00_bglt BgL_globalz00_2)
{ AN_OBJECT;
{ /* ./Ast/var.scm 156 */
{ /* ./Ast/var.scm 158 */
obj_t BgL_arg1987z00_391;
{ /* ./Ast/var.scm 158 */
obj_t BgL_arg1990z00_392;obj_t BgL_arg1993z00_393;
BgL_arg1990z00_392 = 
CNST_TABLE_REF(((long)0)); 
BgL_arg1993z00_393 = 
(((BgL_globalz00_bglt)CREF(BgL_globalz00_2))->BgL_pragmaz00); 
BgL_arg1987z00_391 = 
MAKE_PAIR(BgL_arg1990z00_392, BgL_arg1993z00_393); } 
{ /* ./Ast/var.scm 158 */
BgL_globalz00_bglt BgL_obj1223z00_994;obj_t BgL_val1222z00_995;
BgL_obj1223z00_994 = BgL_globalz00_2; 
BgL_val1222z00_995 = BgL_arg1987z00_391; 
return 
((((BgL_globalz00_bglt)CREF(BgL_obj1223z00_994))->BgL_pragmaz00) = ((obj_t)BgL_val1222z00_995), BUNSPEC);} } } 
}



/* _global-set-read-only!2941 */
obj_t BGl__globalzd2setzd2readzd2onlyz122941zc0zzast_varz00(obj_t BgL_envz00_1932, obj_t BgL_globalz00_1933)
{ AN_OBJECT;
{ /* ./Ast/var.scm 156 */
return 
BGl_globalzd2setzd2readzd2onlyz12zc0zzast_varz00(
(BgL_globalz00_bglt)(BgL_globalz00_1933));} 
}



/* global-args-safe? */
BGL_EXPORTED_DEF bool_t BGl_globalzd2argszd2safezf3zf3zzast_varz00(BgL_globalz00_bglt BgL_globalz00_3)
{ AN_OBJECT;
{ /* ./Ast/var.scm 163 */
{ /* ./Ast/var.scm 165 */
bool_t BgL__ortest_1913z00_395;
{ /* ./Ast/var.scm 165 */
bool_t BgL_test2009z00_401;
{ /* ./Ast/var.scm 165 */
BgL_valuez00_bglt BgL_arg2011z00_402;
{ /* ./Ast/var.scm 165 */
BgL_variablez00_bglt BgL_obj1104z00_996;
BgL_obj1104z00_996 = 
(BgL_variablez00_bglt)(BgL_globalz00_3); 
BgL_arg2011z00_402 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1104z00_996))->BgL_valuez00); } 
{ /* ./Ast/var.scm 165 */
obj_t BgL_obj1780z00_997;
BgL_obj1780z00_997 = 
(obj_t)(BgL_arg2011z00_402); 
BgL_test2009z00_401 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1780z00_997, BGl_cfunz00zzast_varz00); } } 
if(BgL_test2009z00_401)
{ /* ./Ast/var.scm 165 */
BgL__ortest_1913z00_395 = ((bool_t)0); }  else 
{ /* ./Ast/var.scm 165 */
BgL__ortest_1913z00_395 = ((bool_t)1); } } 
if(BgL__ortest_1913z00_395)
{ /* ./Ast/var.scm 165 */
return BgL__ortest_1913z00_395;}  else 
{ /* ./Ast/var.scm 166 */
bool_t BgL__ortest_1914z00_396;
{ /* ./Ast/var.scm 166 */
bool_t BgL_testz00_2664;
{ /* ./Ast/var.scm 166 */
BgL_cfunz00_bglt BgL_obj1689z00_999;
{ /* ./Ast/var.scm 166 */
BgL_valuez00_bglt BgL_auxz00_2665;
{ /* ./Ast/var.scm 166 */
BgL_variablez00_bglt BgL_obj1104z00_998;
BgL_obj1104z00_998 = 
(BgL_variablez00_bglt)(BgL_globalz00_3); 
BgL_auxz00_2665 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1104z00_998))->BgL_valuez00); } 
BgL_obj1689z00_999 = 
(BgL_cfunz00_bglt)(BgL_auxz00_2665); } 
BgL_testz00_2664 = 
(((BgL_cfunz00_bglt)CREF(BgL_obj1689z00_999))->BgL_macrozf3zf3); } 
if(BgL_testz00_2664)
{ /* ./Ast/var.scm 166 */
BgL__ortest_1914z00_396 = ((bool_t)0); }  else 
{ /* ./Ast/var.scm 166 */
BgL__ortest_1914z00_396 = ((bool_t)1); } } 
if(BgL__ortest_1914z00_396)
{ /* ./Ast/var.scm 166 */
return BgL__ortest_1914z00_396;}  else 
{ /* ./Ast/var.scm 167 */
obj_t BgL_auxz00_2671;
BgL_auxz00_2671 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
CNST_TABLE_REF(((long)1)), 
(((BgL_globalz00_bglt)CREF(BgL_globalz00_3))->BgL_pragmaz00)); 
return 
CBOOL(BgL_auxz00_2671);} } } } 
}



/* _global-args-safe?2943 */
obj_t BGl__globalzd2argszd2safezf32943zf3zzast_varz00(obj_t BgL_envz00_1934, obj_t BgL_globalz00_1935)
{ AN_OBJECT;
{ /* ./Ast/var.scm 163 */
{ /* ./Ast/var.scm 164 */
bool_t BgL_auxz00_2676;
BgL_auxz00_2676 = 
BGl_globalzd2argszd2safezf3zf3zzast_varz00(
(BgL_globalz00_bglt)(BgL_globalz00_1935)); 
return 
BBOOL(BgL_auxz00_2676);} } 
}



/* object-init */
obj_t BGl_objectzd2initzd2zzast_varz00()
{ AN_OBJECT;
{ /* ./Ast/var.scm 14 */
{ /* ./Ast/var.scm 19 */
obj_t BgL_arg2015z00_403;obj_t BgL_arg2016z00_404;obj_t BgL_arg2022z00_408;
BgL_arg2015z00_403 = 
CNST_TABLE_REF(((long)2)); 
BgL_arg2016z00_404 = BGl_objectz00zz__objectz00; 
{ /* ./Ast/var.scm 19 */
obj_t BgL_v1915z00_409;
{ 
int BgL_auxz00_2681;
BgL_auxz00_2681 = 
(int)(((long)0)); 
BgL_v1915z00_409 = 
create_vector(BgL_auxz00_2681); } 
BgL_arg2022z00_408 = BgL_v1915z00_409; } 
BGl_valuez00zzast_varz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg2015z00_403, BgL_arg2016z00_404, BFALSE, BGl_allocatezd2valuezd2envz00zzast_varz00, ((long)2845), BNIL, BFALSE, BgL_arg2022z00_408); } 
{ /* ./Ast/var.scm 21 */
obj_t BgL_arg2026z00_410;obj_t BgL_arg2027z00_411;obj_t BgL_arg2033z00_415;
BgL_arg2026z00_410 = 
CNST_TABLE_REF(((long)3)); 
BgL_arg2027z00_411 = BGl_objectz00zz__objectz00; 
{ /* ./Ast/var.scm 21 */
obj_t BgL_v1916z00_416;
{ 
int BgL_auxz00_2686;
BgL_auxz00_2686 = 
(int)(((long)0)); 
BgL_v1916z00_416 = 
create_vector(BgL_auxz00_2686); } 
BgL_arg2033z00_415 = BgL_v1916z00_416; } 
BGl_variablez00zzast_varz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg2026z00_410, BgL_arg2027z00_411, BFALSE, BGl_allocatezd2variablezd2envz00zzast_varz00, ((long)11853), BNIL, BFALSE, BgL_arg2033z00_415); } 
{ /* ./Ast/var.scm 40 */
obj_t BgL_arg2037z00_417;obj_t BgL_arg2038z00_418;obj_t BgL_arg2043z00_422;
BgL_arg2037z00_417 = 
CNST_TABLE_REF(((long)4)); 
BgL_arg2038z00_418 = BGl_variablez00zzast_varz00; 
{ /* ./Ast/var.scm 40 */
obj_t BgL_v1917z00_423;
{ 
int BgL_auxz00_2691;
BgL_auxz00_2691 = 
(int)(((long)0)); 
BgL_v1917z00_423 = 
create_vector(BgL_auxz00_2691); } 
BgL_arg2043z00_422 = BgL_v1917z00_423; } 
BGl_globalz00zzast_varz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg2037z00_417, BgL_arg2038z00_418, BFALSE, BGl_allocatezd2globalzd2envz00zzast_varz00, ((long)52319), BNIL, BFALSE, BgL_arg2043z00_422); } 
{ /* ./Ast/var.scm 67 */
obj_t BgL_arg2047z00_424;obj_t BgL_arg2048z00_425;obj_t BgL_arg2052z00_429;
BgL_arg2047z00_424 = 
CNST_TABLE_REF(((long)5)); 
BgL_arg2048z00_425 = BGl_variablez00zzast_varz00; 
{ /* ./Ast/var.scm 67 */
obj_t BgL_v1918z00_430;
{ 
int BgL_auxz00_2696;
BgL_auxz00_2696 = 
(int)(((long)0)); 
BgL_v1918z00_430 = 
create_vector(BgL_auxz00_2696); } 
BgL_arg2052z00_429 = BgL_v1918z00_430; } 
BGl_localz00zzast_varz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg2047z00_424, BgL_arg2048z00_425, BFALSE, BGl_allocatezd2localzd2envz00zzast_varz00, ((long)5504), BNIL, BFALSE, BgL_arg2052z00_429); } 
{ /* ./Ast/var.scm 73 */
obj_t BgL_arg2056z00_431;obj_t BgL_arg2057z00_432;obj_t BgL_arg2062z00_436;
BgL_arg2056z00_431 = 
CNST_TABLE_REF(((long)6)); 
BgL_arg2057z00_432 = BGl_valuez00zzast_varz00; 
{ /* ./Ast/var.scm 73 */
obj_t BgL_v1919z00_437;
{ 
int BgL_auxz00_2701;
BgL_auxz00_2701 = 
(int)(((long)0)); 
BgL_v1919z00_437 = 
create_vector(BgL_auxz00_2701); } 
BgL_arg2062z00_436 = BgL_v1919z00_437; } 
BGl_funz00zzast_varz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg2056z00_431, BgL_arg2057z00_432, BFALSE, BGl_allocatezd2funzd2envz00zzast_varz00, ((long)57729), BNIL, BFALSE, BgL_arg2062z00_436); } 
{ /* ./Ast/var.scm 89 */
obj_t BgL_arg2066z00_438;obj_t BgL_arg2067z00_439;obj_t BgL_arg2071z00_443;
BgL_arg2066z00_438 = 
CNST_TABLE_REF(((long)7)); 
BgL_arg2067z00_439 = BGl_funz00zzast_varz00; 
{ /* ./Ast/var.scm 89 */
obj_t BgL_v1920z00_444;
{ 
int BgL_auxz00_2706;
BgL_auxz00_2706 = 
(int)(((long)0)); 
BgL_v1920z00_444 = 
create_vector(BgL_auxz00_2706); } 
BgL_arg2071z00_443 = BgL_v1920z00_444; } 
BGl_sfunz00zzast_varz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg2066z00_438, BgL_arg2067z00_439, BFALSE, BGl_allocatezd2sfunzd2envz00zzast_varz00, ((long)5125), BNIL, BFALSE, BgL_arg2071z00_443); } 
{ /* ./Ast/var.scm 106 */
obj_t BgL_arg2075z00_445;obj_t BgL_arg2076z00_446;obj_t BgL_arg2081z00_450;
BgL_arg2075z00_445 = 
CNST_TABLE_REF(((long)8)); 
BgL_arg2076z00_446 = BGl_funz00zzast_varz00; 
{ /* ./Ast/var.scm 106 */
obj_t BgL_v1921z00_451;
{ 
int BgL_auxz00_2711;
BgL_auxz00_2711 = 
(int)(((long)0)); 
BgL_v1921z00_451 = 
create_vector(BgL_auxz00_2711); } 
BgL_arg2081z00_450 = BgL_v1921z00_451; } 
BGl_cfunz00zzast_varz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg2075z00_445, BgL_arg2076z00_446, BFALSE, BGl_allocatezd2cfunzd2envz00zzast_varz00, ((long)6013), BNIL, BFALSE, BgL_arg2081z00_450); } 
{ /* ./Ast/var.scm 116 */
obj_t BgL_arg2085z00_452;obj_t BgL_arg2086z00_453;obj_t BgL_arg2090z00_457;
BgL_arg2085z00_452 = 
CNST_TABLE_REF(((long)9)); 
BgL_arg2086z00_453 = BGl_valuez00zzast_varz00; 
{ /* ./Ast/var.scm 116 */
obj_t BgL_v1922z00_458;
{ 
int BgL_auxz00_2716;
BgL_auxz00_2716 = 
(int)(((long)0)); 
BgL_v1922z00_458 = 
create_vector(BgL_auxz00_2716); } 
BgL_arg2090z00_457 = BgL_v1922z00_458; } 
BGl_svarz00zzast_varz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg2085z00_452, BgL_arg2086z00_453, BFALSE, BGl_allocatezd2svarzd2envz00zzast_varz00, ((long)22234), BNIL, BFALSE, BgL_arg2090z00_457); } 
{ /* ./Ast/var.scm 120 */
obj_t BgL_arg2094z00_459;obj_t BgL_arg2095z00_460;obj_t BgL_arg2099z00_464;
BgL_arg2094z00_459 = 
CNST_TABLE_REF(((long)10)); 
BgL_arg2095z00_460 = BGl_valuez00zzast_varz00; 
{ /* ./Ast/var.scm 120 */
obj_t BgL_v1923z00_465;
{ 
int BgL_auxz00_2721;
BgL_auxz00_2721 = 
(int)(((long)0)); 
BgL_v1923z00_465 = 
create_vector(BgL_auxz00_2721); } 
BgL_arg2099z00_464 = BgL_v1923z00_465; } 
BGl_scnstz00zzast_varz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg2094z00_459, BgL_arg2095z00_460, BFALSE, BGl_allocatezd2scnstzd2envz00zzast_varz00, ((long)48453), BNIL, BFALSE, BgL_arg2099z00_464); } 
{ /* ./Ast/var.scm 128 */
obj_t BgL_arg2103z00_466;obj_t BgL_arg2105z00_467;obj_t BgL_arg2109z00_471;
BgL_arg2103z00_466 = 
CNST_TABLE_REF(((long)11)); 
BgL_arg2105z00_467 = BGl_valuez00zzast_varz00; 
{ /* ./Ast/var.scm 128 */
obj_t BgL_v1924z00_472;
{ 
int BgL_auxz00_2726;
BgL_auxz00_2726 = 
(int)(((long)0)); 
BgL_v1924z00_472 = 
create_vector(BgL_auxz00_2726); } 
BgL_arg2109z00_471 = BgL_v1924z00_472; } 
BGl_cvarz00zzast_varz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg2103z00_466, BgL_arg2105z00_467, BFALSE, BGl_allocatezd2cvarzd2envz00zzast_varz00, ((long)5325), BNIL, BFALSE, BgL_arg2109z00_471); } 
{ /* ./Ast/var.scm 132 */
obj_t BgL_arg2113z00_473;obj_t BgL_arg2115z00_474;obj_t BgL_arg2120z00_478;
BgL_arg2113z00_473 = 
CNST_TABLE_REF(((long)12)); 
BgL_arg2115z00_474 = BGl_valuez00zzast_varz00; 
{ /* ./Ast/var.scm 132 */
obj_t BgL_v1925z00_479;
{ 
int BgL_auxz00_2731;
BgL_auxz00_2731 = 
(int)(((long)0)); 
BgL_v1925z00_479 = 
create_vector(BgL_auxz00_2731); } 
BgL_arg2120z00_478 = BgL_v1925z00_479; } 
BGl_sexitz00zzast_varz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg2113z00_473, BgL_arg2115z00_474, BFALSE, BGl_allocatezd2sexitzd2envz00zzast_varz00, ((long)4969), BNIL, BFALSE, BgL_arg2120z00_478); } 
{ /* ./Ast/var.scm 138 */
obj_t BgL_arg2124z00_480;obj_t BgL_arg2125z00_481;obj_t BgL_arg2129z00_485;
BgL_arg2124z00_480 = 
CNST_TABLE_REF(((long)13)); 
BgL_arg2125z00_481 = BGl_objectz00zz__objectz00; 
{ /* ./Ast/var.scm 138 */
obj_t BgL_v1926z00_486;
{ 
int BgL_auxz00_2736;
BgL_auxz00_2736 = 
(int)(((long)0)); 
BgL_v1926z00_486 = 
create_vector(BgL_auxz00_2736); } 
BgL_arg2129z00_485 = BgL_v1926z00_486; } 
BGl_feffectz00zzast_varz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg2124z00_480, BgL_arg2125z00_481, BFALSE, BGl_allocatezd2feffectzd2envz00zzast_varz00, ((long)41852), BNIL, BFALSE, BgL_arg2129z00_485); } 
return BUNSPEC;} 
}



/* feffect? */
BGL_EXPORTED_DEF bool_t BGl_feffectzf3zf3zzast_varz00(obj_t BgL_obj1906z00_4)
{ AN_OBJECT;
{ /* ./Ast/var.scm 138 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1906z00_4, BGl_feffectz00zzast_varz00);} 
}



/* _feffect? */
obj_t BGl__feffectzf3zf3zzast_varz00(obj_t BgL_envz00_1948, obj_t BgL_obj1906z00_1949)
{ AN_OBJECT;
{ /* ./Ast/var.scm 138 */
{ /* ./Ast/var.scm 138 */
bool_t BgL_auxz00_2741;
BgL_auxz00_2741 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1906z00_1949, BGl_feffectz00zzast_varz00); 
return 
BBOOL(BgL_auxz00_2741);} } 
}



/* make-feffect */
BGL_EXPORTED_DEF BgL_feffectz00_bglt BGl_makezd2feffectzd2zzast_varz00(obj_t BgL_read1885z00_8, obj_t BgL_write1886z00_9)
{ AN_OBJECT;
{ /* ./Ast/var.scm 138 */
{ /* ./Ast/var.scm 138 */
BgL_feffectz00_bglt BgL_new1887z00_1001;
{ /* ./Ast/var.scm 138 */
BgL_feffectz00_bglt BgL_res2916z00_1007;
{ /* ./Ast/var.scm 138 */
BgL_feffectz00_bglt BgL_new1895z00_1002;
BgL_new1895z00_1002 = 
((BgL_feffectz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_feffectz00_bgl) ))); 
{ /* ./Ast/var.scm 138 */
long BgL_arg2136z00_1003;
BgL_arg2136z00_1003 = 
BGl_classzd2numzd2zz__objectz00(BGl_feffectz00zzast_varz00); 
{ /* ./Ast/var.scm 138 */
BgL_objectz00_bglt BgL_objz00_1004;
BgL_objz00_1004 = 
(BgL_objectz00_bglt)(BgL_new1895z00_1002); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1004, BgL_arg2136z00_1003); } } 
{ /* ./Ast/var.scm 138 */
BgL_objectz00_bglt BgL_auxz00_2748;
BgL_auxz00_2748 = 
(BgL_objectz00_bglt)(BgL_new1895z00_1002); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2748, BFALSE); } 
{ /* ./Ast/var.scm 138 */
obj_t BgL_objz00_1006;
BgL_objz00_1006 = 
(obj_t)(BgL_new1895z00_1002); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_1006); BUNSPEC; } 
BgL_res2916z00_1007 = BgL_new1895z00_1002; } 
BgL_new1887z00_1001 = BgL_res2916z00_1007; } 
{ /* ./Ast/var.scm 138 */
BgL_feffectz00_bglt BgL_res2917z00_1013;
{ /* ./Ast/var.scm 138 */
BgL_feffectz00_bglt BgL_new1891z00_1008;
BgL_new1891z00_1008 = BgL_new1887z00_1001; 
{ /* ./Ast/var.scm 138 */
obj_t BgL_read1889z00_1011;obj_t BgL_write1890z00_1012;
BgL_read1889z00_1011 = BgL_read1885z00_8; 
BgL_write1890z00_1012 = BgL_write1886z00_9; 
((((BgL_feffectz00_bglt)CREF(BgL_new1891z00_1008))->BgL_readz00) = ((obj_t)BgL_read1889z00_1011), BUNSPEC); 
((((BgL_feffectz00_bglt)CREF(BgL_new1891z00_1008))->BgL_writez00) = ((obj_t)BgL_write1890z00_1012), BUNSPEC); 
BgL_res2917z00_1013 = BgL_new1891z00_1008; } } BgL_res2917z00_1013; } 
return BgL_new1887z00_1001;} } 
}



/* _make-feffect */
obj_t BGl__makezd2feffectzd2zzast_varz00(obj_t BgL_envz00_1950, obj_t BgL_read1885z00_1951, obj_t BgL_write1886z00_1952)
{ AN_OBJECT;
{ /* ./Ast/var.scm 138 */
{ /* ./Ast/var.scm 138 */
BgL_feffectz00_bglt BgL_auxz00_2755;
BgL_auxz00_2755 = 
BGl_makezd2feffectzd2zzast_varz00(BgL_read1885z00_1951, BgL_write1886z00_1952); 
return 
(obj_t)(BgL_auxz00_2755);} } 
}



/* fill-feffect! */
BGL_EXPORTED_DEF BgL_feffectz00_bglt BGl_fillzd2feffectz12zc0zzast_varz00(BgL_feffectz00_bglt BgL_new1891z00_10, obj_t BgL_read1889z00_11, obj_t BgL_write1890z00_12)
{ AN_OBJECT;
{ /* ./Ast/var.scm 138 */
{ /* ./Ast/var.scm 138 */
obj_t BgL_read1889z00_2253;obj_t BgL_write1890z00_2254;
BgL_read1889z00_2253 = BgL_read1889z00_11; 
BgL_write1890z00_2254 = BgL_write1890z00_12; 
((((BgL_feffectz00_bglt)CREF(BgL_new1891z00_10))->BgL_readz00) = ((obj_t)BgL_read1889z00_2253), BUNSPEC); 
((((BgL_feffectz00_bglt)CREF(BgL_new1891z00_10))->BgL_writez00) = ((obj_t)BgL_write1890z00_2254), BUNSPEC); 
return BgL_new1891z00_10;} } 
}



/* _fill-feffect! */
obj_t BGl__fillzd2feffectz12zc0zzast_varz00(obj_t BgL_envz00_1953, obj_t BgL_new1891z00_1954, obj_t BgL_read1889z00_1955, obj_t BgL_write1890z00_1956)
{ AN_OBJECT;
{ /* ./Ast/var.scm 138 */
{ /* ./Ast/var.scm 138 */
BgL_feffectz00_bglt BgL_auxz00_2760;
{ /* ./Ast/var.scm 138 */
BgL_feffectz00_bglt BgL_res3675z00_2260;
{ /* ./Ast/var.scm 138 */
BgL_feffectz00_bglt BgL_new1891z00_2255;
BgL_new1891z00_2255 = 
(BgL_feffectz00_bglt)(BgL_new1891z00_1954); 
{ /* ./Ast/var.scm 138 */
obj_t BgL_read1889z00_2258;obj_t BgL_write1890z00_2259;
BgL_read1889z00_2258 = BgL_read1889z00_1955; 
BgL_write1890z00_2259 = BgL_write1890z00_1956; 
((((BgL_feffectz00_bglt)CREF(BgL_new1891z00_2255))->BgL_readz00) = ((obj_t)BgL_read1889z00_2258), BUNSPEC); 
((((BgL_feffectz00_bglt)CREF(BgL_new1891z00_2255))->BgL_writez00) = ((obj_t)BgL_write1890z00_2259), BUNSPEC); 
BgL_res3675z00_2260 = BgL_new1891z00_2255; } } 
BgL_auxz00_2760 = BgL_res3675z00_2260; } 
return 
(obj_t)(BgL_auxz00_2760);} } 
}



/* allocate-feffect */
BGL_EXPORTED_DEF BgL_feffectz00_bglt BGl_allocatezd2feffectzd2zzast_varz00()
{ AN_OBJECT;
{ /* ./Ast/var.scm 138 */
{ /* ./Ast/var.scm 138 */
BgL_feffectz00_bglt BgL_new1895z00_2261;
BgL_new1895z00_2261 = 
((BgL_feffectz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_feffectz00_bgl) ))); 
{ /* ./Ast/var.scm 138 */
long BgL_arg2136z00_2262;
BgL_arg2136z00_2262 = 
BGl_classzd2numzd2zz__objectz00(BGl_feffectz00zzast_varz00); 
{ /* ./Ast/var.scm 138 */
BgL_objectz00_bglt BgL_objz00_2263;
BgL_objz00_2263 = 
(BgL_objectz00_bglt)(BgL_new1895z00_2261); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2263, BgL_arg2136z00_2262); } } 
{ /* ./Ast/var.scm 138 */
BgL_objectz00_bglt BgL_auxz00_2769;
BgL_auxz00_2769 = 
(BgL_objectz00_bglt)(BgL_new1895z00_2261); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2769, BFALSE); } 
{ /* ./Ast/var.scm 138 */
obj_t BgL_objz00_2264;
BgL_objz00_2264 = 
(obj_t)(BgL_new1895z00_2261); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2264); BUNSPEC; } 
return BgL_new1895z00_2261;} } 
}



/* _allocate-feffect */
obj_t BGl__allocatezd2feffectzd2zzast_varz00(obj_t BgL_envz00_1947)
{ AN_OBJECT;
{ /* ./Ast/var.scm 138 */
{ /* ./Ast/var.scm 138 */
BgL_feffectz00_bglt BgL_auxz00_2774;
{ /* ./Ast/var.scm 138 */
BgL_feffectz00_bglt BgL_res3676z00_2269;
{ /* ./Ast/var.scm 138 */
BgL_feffectz00_bglt BgL_new1895z00_2265;
BgL_new1895z00_2265 = 
((BgL_feffectz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_feffectz00_bgl) ))); 
{ /* ./Ast/var.scm 138 */
long BgL_arg2136z00_2266;
BgL_arg2136z00_2266 = 
BGl_classzd2numzd2zz__objectz00(BGl_feffectz00zzast_varz00); 
{ /* ./Ast/var.scm 138 */
BgL_objectz00_bglt BgL_objz00_2267;
BgL_objz00_2267 = 
(BgL_objectz00_bglt)(BgL_new1895z00_2265); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2267, BgL_arg2136z00_2266); } } 
{ /* ./Ast/var.scm 138 */
BgL_objectz00_bglt BgL_auxz00_2779;
BgL_auxz00_2779 = 
(BgL_objectz00_bglt)(BgL_new1895z00_2265); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2779, BFALSE); } 
{ /* ./Ast/var.scm 138 */
obj_t BgL_objz00_2268;
BgL_objz00_2268 = 
(obj_t)(BgL_new1895z00_2265); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2268); BUNSPEC; } 
BgL_res3676z00_2269 = BgL_new1895z00_2265; } 
BgL_auxz00_2774 = BgL_res3676z00_2269; } 
return 
(obj_t)(BgL_auxz00_2774);} } 
}



/* sexit? */
BGL_EXPORTED_DEF bool_t BGl_sexitzf3zf3zzast_varz00(obj_t BgL_obj1878z00_19)
{ AN_OBJECT;
{ /* ./Ast/var.scm 132 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1878z00_19, BGl_sexitz00zzast_varz00);} 
}



/* _sexit? */
obj_t BGl__sexitzf3zf3zzast_varz00(obj_t BgL_envz00_1957, obj_t BgL_obj1878z00_1958)
{ AN_OBJECT;
{ /* ./Ast/var.scm 132 */
{ /* ./Ast/var.scm 132 */
bool_t BgL_auxz00_2786;
BgL_auxz00_2786 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1878z00_1958, BGl_sexitz00zzast_varz00); 
return 
BBOOL(BgL_auxz00_2786);} } 
}



/* make-sexit */
BGL_EXPORTED_DEF BgL_sexitz00_bglt BGl_makezd2sexitzd2zzast_varz00(obj_t BgL_handler1857z00_23, bool_t BgL_detachedzf31858zf3_24)
{ AN_OBJECT;
{ /* ./Ast/var.scm 132 */
{ /* ./Ast/var.scm 132 */
BgL_sexitz00_bglt BgL_new1859z00_1021;
{ /* ./Ast/var.scm 132 */
BgL_sexitz00_bglt BgL_res2918z00_1027;
{ /* ./Ast/var.scm 132 */
BgL_sexitz00_bglt BgL_new1867z00_1022;
BgL_new1867z00_1022 = 
((BgL_sexitz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_sexitz00_bgl) ))); 
{ /* ./Ast/var.scm 132 */
long BgL_arg2145z00_1023;
BgL_arg2145z00_1023 = 
BGl_classzd2numzd2zz__objectz00(BGl_sexitz00zzast_varz00); 
{ /* ./Ast/var.scm 132 */
BgL_objectz00_bglt BgL_objz00_1024;
BgL_objz00_1024 = 
(BgL_objectz00_bglt)(BgL_new1867z00_1022); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1024, BgL_arg2145z00_1023); } } 
{ /* ./Ast/var.scm 132 */
BgL_objectz00_bglt BgL_auxz00_2793;
BgL_auxz00_2793 = 
(BgL_objectz00_bglt)(BgL_new1867z00_1022); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2793, BFALSE); } 
{ /* ./Ast/var.scm 132 */
obj_t BgL_objz00_1026;
BgL_objz00_1026 = 
(obj_t)(BgL_new1867z00_1022); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_1026); BUNSPEC; } 
BgL_res2918z00_1027 = BgL_new1867z00_1022; } 
BgL_new1859z00_1021 = BgL_res2918z00_1027; } 
{ /* ./Ast/var.scm 132 */
BgL_sexitz00_bglt BgL_res2919z00_1033;
{ /* ./Ast/var.scm 132 */
BgL_sexitz00_bglt BgL_new1863z00_1028;
BgL_new1863z00_1028 = BgL_new1859z00_1021; 
{ /* ./Ast/var.scm 132 */
obj_t BgL_handler1861z00_1031;bool_t BgL_detachedzf31862zf3_1032;
BgL_handler1861z00_1031 = BgL_handler1857z00_23; 
BgL_detachedzf31862zf3_1032 = BgL_detachedzf31858zf3_24; 
((((BgL_sexitz00_bglt)CREF(BgL_new1863z00_1028))->BgL_handlerz00) = ((obj_t)BgL_handler1861z00_1031), BUNSPEC); 
((((BgL_sexitz00_bglt)CREF(BgL_new1863z00_1028))->BgL_detachedzf3zf3) = ((bool_t)BgL_detachedzf31862zf3_1032), BUNSPEC); 
BgL_res2919z00_1033 = BgL_new1863z00_1028; } } BgL_res2919z00_1033; } 
return BgL_new1859z00_1021;} } 
}



/* _make-sexit */
obj_t BGl__makezd2sexitzd2zzast_varz00(obj_t BgL_envz00_1959, obj_t BgL_handler1857z00_1960, obj_t BgL_detachedzf31858zf3_1961)
{ AN_OBJECT;
{ /* ./Ast/var.scm 132 */
{ /* ./Ast/var.scm 132 */
BgL_sexitz00_bglt BgL_auxz00_2800;
BgL_auxz00_2800 = 
BGl_makezd2sexitzd2zzast_varz00(BgL_handler1857z00_1960, 
CBOOL(BgL_detachedzf31858zf3_1961)); 
return 
(obj_t)(BgL_auxz00_2800);} } 
}



/* fill-sexit! */
BGL_EXPORTED_DEF BgL_sexitz00_bglt BGl_fillzd2sexitz12zc0zzast_varz00(BgL_sexitz00_bglt BgL_new1863z00_25, obj_t BgL_handler1861z00_26, bool_t BgL_detachedzf31862zf3_27)
{ AN_OBJECT;
{ /* ./Ast/var.scm 132 */
{ /* ./Ast/var.scm 132 */
obj_t BgL_handler1861z00_2271;bool_t BgL_detachedzf31862zf3_2272;
BgL_handler1861z00_2271 = BgL_handler1861z00_26; 
BgL_detachedzf31862zf3_2272 = BgL_detachedzf31862zf3_27; 
((((BgL_sexitz00_bglt)CREF(BgL_new1863z00_25))->BgL_handlerz00) = ((obj_t)BgL_handler1861z00_2271), BUNSPEC); 
((((BgL_sexitz00_bglt)CREF(BgL_new1863z00_25))->BgL_detachedzf3zf3) = ((bool_t)BgL_detachedzf31862zf3_2272), BUNSPEC); 
return BgL_new1863z00_25;} } 
}



/* _fill-sexit!2962 */
obj_t BGl__fillzd2sexitz122962zc0zzast_varz00(obj_t BgL_envz00_1962, obj_t BgL_new1863z00_1963, obj_t BgL_handler1861z00_1964, obj_t BgL_detachedzf31862zf3_1965)
{ AN_OBJECT;
{ /* ./Ast/var.scm 132 */
{ /* ./Ast/var.scm 132 */
BgL_sexitz00_bglt BgL_auxz00_2806;
{ /* ./Ast/var.scm 132 */
BgL_sexitz00_bglt BgL_res3677z00_2278;
{ /* ./Ast/var.scm 132 */
BgL_sexitz00_bglt BgL_new1863z00_2273;bool_t BgL_detachedzf31862zf3_2275;
BgL_new1863z00_2273 = 
(BgL_sexitz00_bglt)(BgL_new1863z00_1963); 
BgL_detachedzf31862zf3_2275 = 
CBOOL(BgL_detachedzf31862zf3_1965); 
{ /* ./Ast/var.scm 132 */
obj_t BgL_handler1861z00_2276;bool_t BgL_detachedzf31862zf3_2277;
BgL_handler1861z00_2276 = BgL_handler1861z00_1964; 
BgL_detachedzf31862zf3_2277 = BgL_detachedzf31862zf3_2275; 
((((BgL_sexitz00_bglt)CREF(BgL_new1863z00_2273))->BgL_handlerz00) = ((obj_t)BgL_handler1861z00_2276), BUNSPEC); 
((((BgL_sexitz00_bglt)CREF(BgL_new1863z00_2273))->BgL_detachedzf3zf3) = ((bool_t)BgL_detachedzf31862zf3_2277), BUNSPEC); 
BgL_res3677z00_2278 = BgL_new1863z00_2273; } } 
BgL_auxz00_2806 = BgL_res3677z00_2278; } 
return 
(obj_t)(BgL_auxz00_2806);} } 
}



/* allocate-sexit */
BGL_EXPORTED_DEF BgL_sexitz00_bglt BGl_allocatezd2sexitzd2zzast_varz00()
{ AN_OBJECT;
{ /* ./Ast/var.scm 132 */
{ /* ./Ast/var.scm 132 */
BgL_sexitz00_bglt BgL_new1867z00_2279;
BgL_new1867z00_2279 = 
((BgL_sexitz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_sexitz00_bgl) ))); 
{ /* ./Ast/var.scm 132 */
long BgL_arg2145z00_2280;
BgL_arg2145z00_2280 = 
BGl_classzd2numzd2zz__objectz00(BGl_sexitz00zzast_varz00); 
{ /* ./Ast/var.scm 132 */
BgL_objectz00_bglt BgL_objz00_2281;
BgL_objz00_2281 = 
(BgL_objectz00_bglt)(BgL_new1867z00_2279); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2281, BgL_arg2145z00_2280); } } 
{ /* ./Ast/var.scm 132 */
BgL_objectz00_bglt BgL_auxz00_2816;
BgL_auxz00_2816 = 
(BgL_objectz00_bglt)(BgL_new1867z00_2279); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2816, BFALSE); } 
{ /* ./Ast/var.scm 132 */
obj_t BgL_objz00_2282;
BgL_objz00_2282 = 
(obj_t)(BgL_new1867z00_2279); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2282); BUNSPEC; } 
return BgL_new1867z00_2279;} } 
}



/* _allocate-sexit */
obj_t BGl__allocatezd2sexitzd2zzast_varz00(obj_t BgL_envz00_1946)
{ AN_OBJECT;
{ /* ./Ast/var.scm 132 */
{ /* ./Ast/var.scm 132 */
BgL_sexitz00_bglt BgL_auxz00_2821;
{ /* ./Ast/var.scm 132 */
BgL_sexitz00_bglt BgL_res3678z00_2287;
{ /* ./Ast/var.scm 132 */
BgL_sexitz00_bglt BgL_new1867z00_2283;
BgL_new1867z00_2283 = 
((BgL_sexitz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_sexitz00_bgl) ))); 
{ /* ./Ast/var.scm 132 */
long BgL_arg2145z00_2284;
BgL_arg2145z00_2284 = 
BGl_classzd2numzd2zz__objectz00(BGl_sexitz00zzast_varz00); 
{ /* ./Ast/var.scm 132 */
BgL_objectz00_bglt BgL_objz00_2285;
BgL_objz00_2285 = 
(BgL_objectz00_bglt)(BgL_new1867z00_2283); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2285, BgL_arg2145z00_2284); } } 
{ /* ./Ast/var.scm 132 */
BgL_objectz00_bglt BgL_auxz00_2826;
BgL_auxz00_2826 = 
(BgL_objectz00_bglt)(BgL_new1867z00_2283); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2826, BFALSE); } 
{ /* ./Ast/var.scm 132 */
obj_t BgL_objz00_2286;
BgL_objz00_2286 = 
(obj_t)(BgL_new1867z00_2283); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2286); BUNSPEC; } 
BgL_res3678z00_2287 = BgL_new1867z00_2283; } 
BgL_auxz00_2821 = BgL_res3678z00_2287; } 
return 
(obj_t)(BgL_auxz00_2821);} } 
}



/* cvar? */
BGL_EXPORTED_DEF bool_t BGl_cvarzf3zf3zzast_varz00(obj_t BgL_obj1850z00_34)
{ AN_OBJECT;
{ /* ./Ast/var.scm 128 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1850z00_34, BGl_cvarz00zzast_varz00);} 
}



/* _cvar? */
obj_t BGl__cvarzf3zf3zzast_varz00(obj_t BgL_envz00_1966, obj_t BgL_obj1850z00_1967)
{ AN_OBJECT;
{ /* ./Ast/var.scm 128 */
{ /* ./Ast/var.scm 128 */
bool_t BgL_auxz00_2833;
BgL_auxz00_2833 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1850z00_1967, BGl_cvarz00zzast_varz00); 
return 
BBOOL(BgL_auxz00_2833);} } 
}



/* make-cvar */
BGL_EXPORTED_DEF BgL_cvarz00_bglt BGl_makezd2cvarzd2zzast_varz00(bool_t BgL_macrozf31836zf3_38)
{ AN_OBJECT;
{ /* ./Ast/var.scm 128 */
{ /* ./Ast/var.scm 128 */
BgL_cvarz00_bglt BgL_new1837z00_1041;
{ /* ./Ast/var.scm 128 */
BgL_cvarz00_bglt BgL_res2920z00_1047;
{ /* ./Ast/var.scm 128 */
BgL_cvarz00_bglt BgL_new1843z00_1042;
BgL_new1843z00_1042 = 
((BgL_cvarz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cvarz00_bgl) ))); 
{ /* ./Ast/var.scm 128 */
long BgL_arg2154z00_1043;
BgL_arg2154z00_1043 = 
BGl_classzd2numzd2zz__objectz00(BGl_cvarz00zzast_varz00); 
{ /* ./Ast/var.scm 128 */
BgL_objectz00_bglt BgL_objz00_1044;
BgL_objz00_1044 = 
(BgL_objectz00_bglt)(BgL_new1843z00_1042); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1044, BgL_arg2154z00_1043); } } 
{ /* ./Ast/var.scm 128 */
BgL_objectz00_bglt BgL_auxz00_2840;
BgL_auxz00_2840 = 
(BgL_objectz00_bglt)(BgL_new1843z00_1042); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2840, BFALSE); } 
{ /* ./Ast/var.scm 128 */
obj_t BgL_objz00_1046;
BgL_objz00_1046 = 
(obj_t)(BgL_new1843z00_1042); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_1046); BUNSPEC; } 
BgL_res2920z00_1047 = BgL_new1843z00_1042; } 
BgL_new1837z00_1041 = BgL_res2920z00_1047; } 
{ /* ./Ast/var.scm 128 */
BgL_cvarz00_bglt BgL_res2921z00_1051;
{ /* ./Ast/var.scm 128 */
BgL_cvarz00_bglt BgL_new1840z00_1048;
BgL_new1840z00_1048 = BgL_new1837z00_1041; 
{ /* ./Ast/var.scm 128 */
bool_t BgL_macrozf31839zf3_1050;
BgL_macrozf31839zf3_1050 = BgL_macrozf31836zf3_38; 
((((BgL_cvarz00_bglt)CREF(BgL_new1840z00_1048))->BgL_macrozf3zf3) = ((bool_t)BgL_macrozf31839zf3_1050), BUNSPEC); 
BgL_res2921z00_1051 = BgL_new1840z00_1048; } } BgL_res2921z00_1051; } 
return BgL_new1837z00_1041;} } 
}



/* _make-cvar */
obj_t BGl__makezd2cvarzd2zzast_varz00(obj_t BgL_envz00_1968, obj_t BgL_macrozf31836zf3_1969)
{ AN_OBJECT;
{ /* ./Ast/var.scm 128 */
{ /* ./Ast/var.scm 128 */
BgL_cvarz00_bglt BgL_auxz00_2846;
BgL_auxz00_2846 = 
BGl_makezd2cvarzd2zzast_varz00(
CBOOL(BgL_macrozf31836zf3_1969)); 
return 
(obj_t)(BgL_auxz00_2846);} } 
}



/* fill-cvar! */
BGL_EXPORTED_DEF BgL_cvarz00_bglt BGl_fillzd2cvarz12zc0zzast_varz00(BgL_cvarz00_bglt BgL_new1840z00_39, bool_t BgL_macrozf31839zf3_40)
{ AN_OBJECT;
{ /* ./Ast/var.scm 128 */
{ /* ./Ast/var.scm 128 */
bool_t BgL_macrozf31839zf3_2289;
BgL_macrozf31839zf3_2289 = BgL_macrozf31839zf3_40; 
((((BgL_cvarz00_bglt)CREF(BgL_new1840z00_39))->BgL_macrozf3zf3) = ((bool_t)BgL_macrozf31839zf3_2289), BUNSPEC); 
return BgL_new1840z00_39;} } 
}



/* _fill-cvar!2966 */
obj_t BGl__fillzd2cvarz122966zc0zzast_varz00(obj_t BgL_envz00_1970, obj_t BgL_new1840z00_1971, obj_t BgL_macrozf31839zf3_1972)
{ AN_OBJECT;
{ /* ./Ast/var.scm 128 */
{ /* ./Ast/var.scm 128 */
BgL_cvarz00_bglt BgL_auxz00_2851;
{ /* ./Ast/var.scm 128 */
BgL_cvarz00_bglt BgL_res3679z00_2293;
{ /* ./Ast/var.scm 128 */
BgL_cvarz00_bglt BgL_new1840z00_2290;bool_t BgL_macrozf31839zf3_2291;
BgL_new1840z00_2290 = 
(BgL_cvarz00_bglt)(BgL_new1840z00_1971); 
BgL_macrozf31839zf3_2291 = 
CBOOL(BgL_macrozf31839zf3_1972); 
{ /* ./Ast/var.scm 128 */
bool_t BgL_macrozf31839zf3_2292;
BgL_macrozf31839zf3_2292 = BgL_macrozf31839zf3_2291; 
((((BgL_cvarz00_bglt)CREF(BgL_new1840z00_2290))->BgL_macrozf3zf3) = ((bool_t)BgL_macrozf31839zf3_2292), BUNSPEC); 
BgL_res3679z00_2293 = BgL_new1840z00_2290; } } 
BgL_auxz00_2851 = BgL_res3679z00_2293; } 
return 
(obj_t)(BgL_auxz00_2851);} } 
}



/* allocate-cvar */
BGL_EXPORTED_DEF BgL_cvarz00_bglt BGl_allocatezd2cvarzd2zzast_varz00()
{ AN_OBJECT;
{ /* ./Ast/var.scm 128 */
{ /* ./Ast/var.scm 128 */
BgL_cvarz00_bglt BgL_new1843z00_2294;
BgL_new1843z00_2294 = 
((BgL_cvarz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cvarz00_bgl) ))); 
{ /* ./Ast/var.scm 128 */
long BgL_arg2154z00_2295;
BgL_arg2154z00_2295 = 
BGl_classzd2numzd2zz__objectz00(BGl_cvarz00zzast_varz00); 
{ /* ./Ast/var.scm 128 */
BgL_objectz00_bglt BgL_objz00_2296;
BgL_objz00_2296 = 
(BgL_objectz00_bglt)(BgL_new1843z00_2294); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2296, BgL_arg2154z00_2295); } } 
{ /* ./Ast/var.scm 128 */
BgL_objectz00_bglt BgL_auxz00_2860;
BgL_auxz00_2860 = 
(BgL_objectz00_bglt)(BgL_new1843z00_2294); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2860, BFALSE); } 
{ /* ./Ast/var.scm 128 */
obj_t BgL_objz00_2297;
BgL_objz00_2297 = 
(obj_t)(BgL_new1843z00_2294); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2297); BUNSPEC; } 
return BgL_new1843z00_2294;} } 
}



/* _allocate-cvar */
obj_t BGl__allocatezd2cvarzd2zzast_varz00(obj_t BgL_envz00_1945)
{ AN_OBJECT;
{ /* ./Ast/var.scm 128 */
{ /* ./Ast/var.scm 128 */
BgL_cvarz00_bglt BgL_auxz00_2865;
{ /* ./Ast/var.scm 128 */
BgL_cvarz00_bglt BgL_res3680z00_2302;
{ /* ./Ast/var.scm 128 */
BgL_cvarz00_bglt BgL_new1843z00_2298;
BgL_new1843z00_2298 = 
((BgL_cvarz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cvarz00_bgl) ))); 
{ /* ./Ast/var.scm 128 */
long BgL_arg2154z00_2299;
BgL_arg2154z00_2299 = 
BGl_classzd2numzd2zz__objectz00(BGl_cvarz00zzast_varz00); 
{ /* ./Ast/var.scm 128 */
BgL_objectz00_bglt BgL_objz00_2300;
BgL_objz00_2300 = 
(BgL_objectz00_bglt)(BgL_new1843z00_2298); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2300, BgL_arg2154z00_2299); } } 
{ /* ./Ast/var.scm 128 */
BgL_objectz00_bglt BgL_auxz00_2870;
BgL_auxz00_2870 = 
(BgL_objectz00_bglt)(BgL_new1843z00_2298); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2870, BFALSE); } 
{ /* ./Ast/var.scm 128 */
obj_t BgL_objz00_2301;
BgL_objz00_2301 = 
(obj_t)(BgL_new1843z00_2298); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2301); BUNSPEC; } 
BgL_res3680z00_2302 = BgL_new1843z00_2298; } 
BgL_auxz00_2865 = BgL_res3680z00_2302; } 
return 
(obj_t)(BgL_auxz00_2865);} } 
}



/* scnst? */
BGL_EXPORTED_DEF bool_t BGl_scnstzf3zf3zzast_varz00(obj_t BgL_obj1834z00_42)
{ AN_OBJECT;
{ /* ./Ast/var.scm 120 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1834z00_42, BGl_scnstz00zzast_varz00);} 
}



/* _scnst? */
obj_t BGl__scnstzf3zf3zzast_varz00(obj_t BgL_envz00_1973, obj_t BgL_obj1834z00_1974)
{ AN_OBJECT;
{ /* ./Ast/var.scm 120 */
{ /* ./Ast/var.scm 120 */
bool_t BgL_auxz00_2877;
BgL_auxz00_2877 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1834z00_1974, BGl_scnstz00zzast_varz00); 
return 
BBOOL(BgL_auxz00_2877);} } 
}



/* make-scnst */
BGL_EXPORTED_DEF BgL_scnstz00_bglt BGl_makezd2scnstzd2zzast_varz00(obj_t BgL_node1806z00_46, obj_t BgL_class1807z00_47, obj_t BgL_loc1808z00_48)
{ AN_OBJECT;
{ /* ./Ast/var.scm 120 */
{ /* ./Ast/var.scm 120 */
BgL_scnstz00_bglt BgL_new1809z00_1058;
{ /* ./Ast/var.scm 120 */
BgL_scnstz00_bglt BgL_res2922z00_1064;
{ /* ./Ast/var.scm 120 */
BgL_scnstz00_bglt BgL_new1819z00_1059;
BgL_new1819z00_1059 = 
((BgL_scnstz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_scnstz00_bgl) ))); 
{ /* ./Ast/var.scm 120 */
long BgL_arg2163z00_1060;
BgL_arg2163z00_1060 = 
BGl_classzd2numzd2zz__objectz00(BGl_scnstz00zzast_varz00); 
{ /* ./Ast/var.scm 120 */
BgL_objectz00_bglt BgL_objz00_1061;
BgL_objz00_1061 = 
(BgL_objectz00_bglt)(BgL_new1819z00_1059); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1061, BgL_arg2163z00_1060); } } 
{ /* ./Ast/var.scm 120 */
BgL_objectz00_bglt BgL_auxz00_2884;
BgL_auxz00_2884 = 
(BgL_objectz00_bglt)(BgL_new1819z00_1059); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2884, BFALSE); } 
{ /* ./Ast/var.scm 120 */
obj_t BgL_objz00_1063;
BgL_objz00_1063 = 
(obj_t)(BgL_new1819z00_1059); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_1063); BUNSPEC; } 
BgL_res2922z00_1064 = BgL_new1819z00_1059; } 
BgL_new1809z00_1058 = BgL_res2922z00_1064; } 
{ /* ./Ast/var.scm 120 */
BgL_scnstz00_bglt BgL_res2923z00_1072;
{ /* ./Ast/var.scm 120 */
BgL_scnstz00_bglt BgL_new1814z00_1065;
BgL_new1814z00_1065 = BgL_new1809z00_1058; 
{ /* ./Ast/var.scm 120 */
obj_t BgL_node1811z00_1069;obj_t BgL_class1812z00_1070;obj_t BgL_loc1813z00_1071;
BgL_node1811z00_1069 = BgL_node1806z00_46; 
BgL_class1812z00_1070 = BgL_class1807z00_47; 
BgL_loc1813z00_1071 = BgL_loc1808z00_48; 
((((BgL_scnstz00_bglt)CREF(BgL_new1814z00_1065))->BgL_nodez00) = ((obj_t)BgL_node1811z00_1069), BUNSPEC); 
((((BgL_scnstz00_bglt)CREF(BgL_new1814z00_1065))->BgL_classz00) = ((obj_t)BgL_class1812z00_1070), BUNSPEC); 
((((BgL_scnstz00_bglt)CREF(BgL_new1814z00_1065))->BgL_locz00) = ((obj_t)BgL_loc1813z00_1071), BUNSPEC); 
BgL_res2923z00_1072 = BgL_new1814z00_1065; } } BgL_res2923z00_1072; } 
return BgL_new1809z00_1058;} } 
}



/* _make-scnst */
obj_t BGl__makezd2scnstzd2zzast_varz00(obj_t BgL_envz00_1975, obj_t BgL_node1806z00_1976, obj_t BgL_class1807z00_1977, obj_t BgL_loc1808z00_1978)
{ AN_OBJECT;
{ /* ./Ast/var.scm 120 */
{ /* ./Ast/var.scm 120 */
BgL_scnstz00_bglt BgL_auxz00_2892;
BgL_auxz00_2892 = 
BGl_makezd2scnstzd2zzast_varz00(BgL_node1806z00_1976, BgL_class1807z00_1977, BgL_loc1808z00_1978); 
return 
(obj_t)(BgL_auxz00_2892);} } 
}



/* fill-scnst! */
BGL_EXPORTED_DEF BgL_scnstz00_bglt BGl_fillzd2scnstz12zc0zzast_varz00(BgL_scnstz00_bglt BgL_new1814z00_49, obj_t BgL_node1811z00_50, obj_t BgL_class1812z00_51, obj_t BgL_loc1813z00_52)
{ AN_OBJECT;
{ /* ./Ast/var.scm 120 */
{ /* ./Ast/var.scm 120 */
obj_t BgL_node1811z00_2304;obj_t BgL_class1812z00_2305;obj_t BgL_loc1813z00_2306;
BgL_node1811z00_2304 = BgL_node1811z00_50; 
BgL_class1812z00_2305 = BgL_class1812z00_51; 
BgL_loc1813z00_2306 = BgL_loc1813z00_52; 
((((BgL_scnstz00_bglt)CREF(BgL_new1814z00_49))->BgL_nodez00) = ((obj_t)BgL_node1811z00_2304), BUNSPEC); 
((((BgL_scnstz00_bglt)CREF(BgL_new1814z00_49))->BgL_classz00) = ((obj_t)BgL_class1812z00_2305), BUNSPEC); 
((((BgL_scnstz00_bglt)CREF(BgL_new1814z00_49))->BgL_locz00) = ((obj_t)BgL_loc1813z00_2306), BUNSPEC); 
return BgL_new1814z00_49;} } 
}



/* _fill-scnst!2970 */
obj_t BGl__fillzd2scnstz122970zc0zzast_varz00(obj_t BgL_envz00_1979, obj_t BgL_new1814z00_1980, obj_t BgL_node1811z00_1981, obj_t BgL_class1812z00_1982, obj_t BgL_loc1813z00_1983)
{ AN_OBJECT;
{ /* ./Ast/var.scm 120 */
{ /* ./Ast/var.scm 120 */
BgL_scnstz00_bglt BgL_auxz00_2898;
{ /* ./Ast/var.scm 120 */
BgL_scnstz00_bglt BgL_res3681z00_2314;
{ /* ./Ast/var.scm 120 */
BgL_scnstz00_bglt BgL_new1814z00_2307;
BgL_new1814z00_2307 = 
(BgL_scnstz00_bglt)(BgL_new1814z00_1980); 
{ /* ./Ast/var.scm 120 */
obj_t BgL_node1811z00_2311;obj_t BgL_class1812z00_2312;obj_t BgL_loc1813z00_2313;
BgL_node1811z00_2311 = BgL_node1811z00_1981; 
BgL_class1812z00_2312 = BgL_class1812z00_1982; 
BgL_loc1813z00_2313 = BgL_loc1813z00_1983; 
((((BgL_scnstz00_bglt)CREF(BgL_new1814z00_2307))->BgL_nodez00) = ((obj_t)BgL_node1811z00_2311), BUNSPEC); 
((((BgL_scnstz00_bglt)CREF(BgL_new1814z00_2307))->BgL_classz00) = ((obj_t)BgL_class1812z00_2312), BUNSPEC); 
((((BgL_scnstz00_bglt)CREF(BgL_new1814z00_2307))->BgL_locz00) = ((obj_t)BgL_loc1813z00_2313), BUNSPEC); 
BgL_res3681z00_2314 = BgL_new1814z00_2307; } } 
BgL_auxz00_2898 = BgL_res3681z00_2314; } 
return 
(obj_t)(BgL_auxz00_2898);} } 
}



/* allocate-scnst */
BGL_EXPORTED_DEF BgL_scnstz00_bglt BGl_allocatezd2scnstzd2zzast_varz00()
{ AN_OBJECT;
{ /* ./Ast/var.scm 120 */
{ /* ./Ast/var.scm 120 */
BgL_scnstz00_bglt BgL_new1819z00_2315;
BgL_new1819z00_2315 = 
((BgL_scnstz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_scnstz00_bgl) ))); 
{ /* ./Ast/var.scm 120 */
long BgL_arg2163z00_2316;
BgL_arg2163z00_2316 = 
BGl_classzd2numzd2zz__objectz00(BGl_scnstz00zzast_varz00); 
{ /* ./Ast/var.scm 120 */
BgL_objectz00_bglt BgL_objz00_2317;
BgL_objz00_2317 = 
(BgL_objectz00_bglt)(BgL_new1819z00_2315); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2317, BgL_arg2163z00_2316); } } 
{ /* ./Ast/var.scm 120 */
BgL_objectz00_bglt BgL_auxz00_2908;
BgL_auxz00_2908 = 
(BgL_objectz00_bglt)(BgL_new1819z00_2315); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2908, BFALSE); } 
{ /* ./Ast/var.scm 120 */
obj_t BgL_objz00_2318;
BgL_objz00_2318 = 
(obj_t)(BgL_new1819z00_2315); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2318); BUNSPEC; } 
return BgL_new1819z00_2315;} } 
}



/* _allocate-scnst */
obj_t BGl__allocatezd2scnstzd2zzast_varz00(obj_t BgL_envz00_1944)
{ AN_OBJECT;
{ /* ./Ast/var.scm 120 */
{ /* ./Ast/var.scm 120 */
BgL_scnstz00_bglt BgL_auxz00_2913;
{ /* ./Ast/var.scm 120 */
BgL_scnstz00_bglt BgL_res3682z00_2323;
{ /* ./Ast/var.scm 120 */
BgL_scnstz00_bglt BgL_new1819z00_2319;
BgL_new1819z00_2319 = 
((BgL_scnstz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_scnstz00_bgl) ))); 
{ /* ./Ast/var.scm 120 */
long BgL_arg2163z00_2320;
BgL_arg2163z00_2320 = 
BGl_classzd2numzd2zz__objectz00(BGl_scnstz00zzast_varz00); 
{ /* ./Ast/var.scm 120 */
BgL_objectz00_bglt BgL_objz00_2321;
BgL_objz00_2321 = 
(BgL_objectz00_bglt)(BgL_new1819z00_2319); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2321, BgL_arg2163z00_2320); } } 
{ /* ./Ast/var.scm 120 */
BgL_objectz00_bglt BgL_auxz00_2918;
BgL_auxz00_2918 = 
(BgL_objectz00_bglt)(BgL_new1819z00_2319); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2918, BFALSE); } 
{ /* ./Ast/var.scm 120 */
obj_t BgL_objz00_2322;
BgL_objz00_2322 = 
(obj_t)(BgL_new1819z00_2319); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2322); BUNSPEC; } 
BgL_res3682z00_2323 = BgL_new1819z00_2319; } 
BgL_auxz00_2913 = BgL_res3682z00_2323; } 
return 
(obj_t)(BgL_auxz00_2913);} } 
}



/* svar? */
BGL_EXPORTED_DEF bool_t BGl_svarzf3zf3zzast_varz00(obj_t BgL_obj1798z00_60)
{ AN_OBJECT;
{ /* ./Ast/var.scm 116 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1798z00_60, BGl_svarz00zzast_varz00);} 
}



/* _svar? */
obj_t BGl__svarzf3zf3zzast_varz00(obj_t BgL_envz00_1984, obj_t BgL_obj1798z00_1985)
{ AN_OBJECT;
{ /* ./Ast/var.scm 116 */
{ /* ./Ast/var.scm 116 */
bool_t BgL_auxz00_2925;
BgL_auxz00_2925 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1798z00_1985, BGl_svarz00zzast_varz00); 
return 
BBOOL(BgL_auxz00_2925);} } 
}



/* make-svar */
BGL_EXPORTED_DEF BgL_svarz00_bglt BGl_makezd2svarzd2zzast_varz00(obj_t BgL_loc1784z00_64)
{ AN_OBJECT;
{ /* ./Ast/var.scm 116 */
{ /* ./Ast/var.scm 116 */
BgL_svarz00_bglt BgL_new1785z00_1081;
{ /* ./Ast/var.scm 116 */
BgL_svarz00_bglt BgL_res2924z00_1087;
{ /* ./Ast/var.scm 116 */
BgL_svarz00_bglt BgL_new1791z00_1082;
BgL_new1791z00_1082 = 
((BgL_svarz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_svarz00_bgl) ))); 
{ /* ./Ast/var.scm 116 */
long BgL_arg2172z00_1083;
BgL_arg2172z00_1083 = 
BGl_classzd2numzd2zz__objectz00(BGl_svarz00zzast_varz00); 
{ /* ./Ast/var.scm 116 */
BgL_objectz00_bglt BgL_objz00_1084;
BgL_objz00_1084 = 
(BgL_objectz00_bglt)(BgL_new1791z00_1082); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1084, BgL_arg2172z00_1083); } } 
{ /* ./Ast/var.scm 116 */
BgL_objectz00_bglt BgL_auxz00_2932;
BgL_auxz00_2932 = 
(BgL_objectz00_bglt)(BgL_new1791z00_1082); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2932, BFALSE); } 
{ /* ./Ast/var.scm 116 */
obj_t BgL_objz00_1086;
BgL_objz00_1086 = 
(obj_t)(BgL_new1791z00_1082); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_1086); BUNSPEC; } 
BgL_res2924z00_1087 = BgL_new1791z00_1082; } 
BgL_new1785z00_1081 = BgL_res2924z00_1087; } 
{ /* ./Ast/var.scm 116 */
BgL_svarz00_bglt BgL_res2925z00_1091;
{ /* ./Ast/var.scm 116 */
BgL_svarz00_bglt BgL_new1788z00_1088;
BgL_new1788z00_1088 = BgL_new1785z00_1081; 
{ /* ./Ast/var.scm 116 */
obj_t BgL_loc1787z00_1090;
BgL_loc1787z00_1090 = BgL_loc1784z00_64; 
((((BgL_svarz00_bglt)CREF(BgL_new1788z00_1088))->BgL_locz00) = ((obj_t)BgL_loc1787z00_1090), BUNSPEC); 
BgL_res2925z00_1091 = BgL_new1788z00_1088; } } BgL_res2925z00_1091; } 
return BgL_new1785z00_1081;} } 
}



/* _make-svar */
obj_t BGl__makezd2svarzd2zzast_varz00(obj_t BgL_envz00_1986, obj_t BgL_loc1784z00_1987)
{ AN_OBJECT;
{ /* ./Ast/var.scm 116 */
{ /* ./Ast/var.scm 116 */
BgL_svarz00_bglt BgL_auxz00_2938;
BgL_auxz00_2938 = 
BGl_makezd2svarzd2zzast_varz00(BgL_loc1784z00_1987); 
return 
(obj_t)(BgL_auxz00_2938);} } 
}



/* fill-svar! */
BGL_EXPORTED_DEF BgL_svarz00_bglt BGl_fillzd2svarz12zc0zzast_varz00(BgL_svarz00_bglt BgL_new1788z00_65, obj_t BgL_loc1787z00_66)
{ AN_OBJECT;
{ /* ./Ast/var.scm 116 */
{ /* ./Ast/var.scm 116 */
obj_t BgL_loc1787z00_2325;
BgL_loc1787z00_2325 = BgL_loc1787z00_66; 
((((BgL_svarz00_bglt)CREF(BgL_new1788z00_65))->BgL_locz00) = ((obj_t)BgL_loc1787z00_2325), BUNSPEC); 
return BgL_new1788z00_65;} } 
}



/* _fill-svar!2974 */
obj_t BGl__fillzd2svarz122974zc0zzast_varz00(obj_t BgL_envz00_1988, obj_t BgL_new1788z00_1989, obj_t BgL_loc1787z00_1990)
{ AN_OBJECT;
{ /* ./Ast/var.scm 116 */
{ /* ./Ast/var.scm 116 */
BgL_svarz00_bglt BgL_auxz00_2942;
{ /* ./Ast/var.scm 116 */
BgL_svarz00_bglt BgL_res3683z00_2329;
{ /* ./Ast/var.scm 116 */
BgL_svarz00_bglt BgL_new1788z00_2326;
BgL_new1788z00_2326 = 
(BgL_svarz00_bglt)(BgL_new1788z00_1989); 
{ /* ./Ast/var.scm 116 */
obj_t BgL_loc1787z00_2328;
BgL_loc1787z00_2328 = BgL_loc1787z00_1990; 
((((BgL_svarz00_bglt)CREF(BgL_new1788z00_2326))->BgL_locz00) = ((obj_t)BgL_loc1787z00_2328), BUNSPEC); 
BgL_res3683z00_2329 = BgL_new1788z00_2326; } } 
BgL_auxz00_2942 = BgL_res3683z00_2329; } 
return 
(obj_t)(BgL_auxz00_2942);} } 
}



/* allocate-svar */
BGL_EXPORTED_DEF BgL_svarz00_bglt BGl_allocatezd2svarzd2zzast_varz00()
{ AN_OBJECT;
{ /* ./Ast/var.scm 116 */
{ /* ./Ast/var.scm 116 */
BgL_svarz00_bglt BgL_new1791z00_2330;
BgL_new1791z00_2330 = 
((BgL_svarz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_svarz00_bgl) ))); 
{ /* ./Ast/var.scm 116 */
long BgL_arg2172z00_2331;
BgL_arg2172z00_2331 = 
BGl_classzd2numzd2zz__objectz00(BGl_svarz00zzast_varz00); 
{ /* ./Ast/var.scm 116 */
BgL_objectz00_bglt BgL_objz00_2332;
BgL_objz00_2332 = 
(BgL_objectz00_bglt)(BgL_new1791z00_2330); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2332, BgL_arg2172z00_2331); } } 
{ /* ./Ast/var.scm 116 */
BgL_objectz00_bglt BgL_auxz00_2950;
BgL_auxz00_2950 = 
(BgL_objectz00_bglt)(BgL_new1791z00_2330); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2950, BFALSE); } 
{ /* ./Ast/var.scm 116 */
obj_t BgL_objz00_2333;
BgL_objz00_2333 = 
(obj_t)(BgL_new1791z00_2330); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2333); BUNSPEC; } 
return BgL_new1791z00_2330;} } 
}



/* _allocate-svar */
obj_t BGl__allocatezd2svarzd2zzast_varz00(obj_t BgL_envz00_1943)
{ AN_OBJECT;
{ /* ./Ast/var.scm 116 */
{ /* ./Ast/var.scm 116 */
BgL_svarz00_bglt BgL_auxz00_2955;
{ /* ./Ast/var.scm 116 */
BgL_svarz00_bglt BgL_res3684z00_2338;
{ /* ./Ast/var.scm 116 */
BgL_svarz00_bglt BgL_new1791z00_2334;
BgL_new1791z00_2334 = 
((BgL_svarz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_svarz00_bgl) ))); 
{ /* ./Ast/var.scm 116 */
long BgL_arg2172z00_2335;
BgL_arg2172z00_2335 = 
BGl_classzd2numzd2zz__objectz00(BGl_svarz00zzast_varz00); 
{ /* ./Ast/var.scm 116 */
BgL_objectz00_bglt BgL_objz00_2336;
BgL_objz00_2336 = 
(BgL_objectz00_bglt)(BgL_new1791z00_2334); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2336, BgL_arg2172z00_2335); } } 
{ /* ./Ast/var.scm 116 */
BgL_objectz00_bglt BgL_auxz00_2960;
BgL_auxz00_2960 = 
(BgL_objectz00_bglt)(BgL_new1791z00_2334); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2960, BFALSE); } 
{ /* ./Ast/var.scm 116 */
obj_t BgL_objz00_2337;
BgL_objz00_2337 = 
(obj_t)(BgL_new1791z00_2334); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2337); BUNSPEC; } 
BgL_res3684z00_2338 = BgL_new1791z00_2334; } 
BgL_auxz00_2955 = BgL_res3684z00_2338; } 
return 
(obj_t)(BgL_auxz00_2955);} } 
}



/* cfun? */
BGL_EXPORTED_DEF bool_t BGl_cfunzf3zf3zzast_varz00(obj_t BgL_obj1780z00_70)
{ AN_OBJECT;
{ /* ./Ast/var.scm 106 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1780z00_70, BGl_cfunz00zzast_varz00);} 
}



/* _cfun? */
obj_t BGl__cfunzf3zf3zzast_varz00(obj_t BgL_envz00_1991, obj_t BgL_obj1780z00_1992)
{ AN_OBJECT;
{ /* ./Ast/var.scm 106 */
{ /* ./Ast/var.scm 106 */
bool_t BgL_auxz00_2967;
BgL_auxz00_2967 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1780z00_1992, BGl_cfunz00zzast_varz00); 
return 
BBOOL(BgL_auxz00_2967);} } 
}



/* make-cfun */
BGL_EXPORTED_DEF BgL_cfunz00_bglt BGl_makezd2cfunzd2zzast_varz00(long BgL_arity1696z00_74, obj_t BgL_sidezd2effectzf31697z21_75, obj_t BgL_predicatezd2of1698zd2_76, obj_t BgL_stackzd2allocator1699zd2_77, bool_t BgL_topzf31700zf3_78, obj_t BgL_thezd2closure1701zd2_79, obj_t BgL_effect1702z00_80, obj_t BgL_argszd2type1703zd2_81, bool_t BgL_macrozf31704zf3_82, bool_t BgL_infixzf31705zf3_83, obj_t BgL_method1706z00_84)
{ AN_OBJECT;
{ /* ./Ast/var.scm 106 */
{ /* ./Ast/var.scm 106 */
BgL_cfunz00_bglt BgL_new1707z00_1098;
{ /* ./Ast/var.scm 106 */
BgL_cfunz00_bglt BgL_res2926z00_1104;
{ /* ./Ast/var.scm 106 */
BgL_cfunz00_bglt BgL_new1733z00_1099;
BgL_new1733z00_1099 = 
((BgL_cfunz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cfunz00_bgl) ))); 
{ /* ./Ast/var.scm 106 */
long BgL_arg2181z00_1100;
BgL_arg2181z00_1100 = 
BGl_classzd2numzd2zz__objectz00(BGl_cfunz00zzast_varz00); 
{ /* ./Ast/var.scm 106 */
BgL_objectz00_bglt BgL_objz00_1101;
BgL_objz00_1101 = 
(BgL_objectz00_bglt)(BgL_new1733z00_1099); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1101, BgL_arg2181z00_1100); } } 
{ /* ./Ast/var.scm 106 */
BgL_objectz00_bglt BgL_auxz00_2974;
BgL_auxz00_2974 = 
(BgL_objectz00_bglt)(BgL_new1733z00_1099); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2974, BFALSE); } 
{ /* ./Ast/var.scm 106 */
obj_t BgL_objz00_1103;
BgL_objz00_1103 = 
(obj_t)(BgL_new1733z00_1099); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_1103); BUNSPEC; } 
BgL_res2926z00_1104 = BgL_new1733z00_1099; } 
BgL_new1707z00_1098 = BgL_res2926z00_1104; } 
{ /* ./Ast/var.scm 106 */
BgL_cfunz00_bglt BgL_res2927z00_1128;
{ /* ./Ast/var.scm 106 */
BgL_cfunz00_bglt BgL_new1720z00_1105;
BgL_new1720z00_1105 = BgL_new1707z00_1098; 
{ /* ./Ast/var.scm 106 */
long BgL_arity1709z00_1117;obj_t BgL_sidezd2effectzf31710z21_1118;obj_t BgL_predicatezd2of1711zd2_1119;obj_t BgL_stackzd2allocator1712zd2_1120;bool_t BgL_topzf31713zf3_1121;obj_t BgL_thezd2closure1714zd2_1122;obj_t BgL_effect1715z00_1123;obj_t BgL_argszd2type1716zd2_1124;bool_t BgL_macrozf31717zf3_1125;bool_t BgL_infixzf31718zf3_1126;obj_t BgL_method1719z00_1127;
BgL_arity1709z00_1117 = BgL_arity1696z00_74; 
BgL_sidezd2effectzf31710z21_1118 = BgL_sidezd2effectzf31697z21_75; 
BgL_predicatezd2of1711zd2_1119 = BgL_predicatezd2of1698zd2_76; 
BgL_stackzd2allocator1712zd2_1120 = BgL_stackzd2allocator1699zd2_77; 
BgL_topzf31713zf3_1121 = BgL_topzf31700zf3_78; 
BgL_thezd2closure1714zd2_1122 = BgL_thezd2closure1701zd2_79; 
BgL_effect1715z00_1123 = BgL_effect1702z00_80; 
BgL_argszd2type1716zd2_1124 = BgL_argszd2type1703zd2_81; 
BgL_macrozf31717zf3_1125 = BgL_macrozf31704zf3_82; 
BgL_infixzf31718zf3_1126 = BgL_infixzf31705zf3_83; 
BgL_method1719z00_1127 = BgL_method1706z00_84; 
((((BgL_cfunz00_bglt)CREF(BgL_new1720z00_1105))->BgL_arityz00) = ((long)BgL_arity1709z00_1117), BUNSPEC); 
((((BgL_cfunz00_bglt)CREF(BgL_new1720z00_1105))->BgL_sidezd2effectzf3z21) = ((obj_t)BgL_sidezd2effectzf31710z21_1118), BUNSPEC); 
((((BgL_cfunz00_bglt)CREF(BgL_new1720z00_1105))->BgL_predicatezd2ofzd2) = ((obj_t)BgL_predicatezd2of1711zd2_1119), BUNSPEC); 
((((BgL_cfunz00_bglt)CREF(BgL_new1720z00_1105))->BgL_stackzd2allocatorzd2) = ((obj_t)BgL_stackzd2allocator1712zd2_1120), BUNSPEC); 
((((BgL_cfunz00_bglt)CREF(BgL_new1720z00_1105))->BgL_topzf3zf3) = ((bool_t)BgL_topzf31713zf3_1121), BUNSPEC); 
((((BgL_cfunz00_bglt)CREF(BgL_new1720z00_1105))->BgL_thezd2closurezd2) = ((obj_t)BgL_thezd2closure1714zd2_1122), BUNSPEC); 
((((BgL_cfunz00_bglt)CREF(BgL_new1720z00_1105))->BgL_effectz00) = ((obj_t)BgL_effect1715z00_1123), BUNSPEC); 
((((BgL_cfunz00_bglt)CREF(BgL_new1720z00_1105))->BgL_argszd2typezd2) = ((obj_t)BgL_argszd2type1716zd2_1124), BUNSPEC); 
((((BgL_cfunz00_bglt)CREF(BgL_new1720z00_1105))->BgL_macrozf3zf3) = ((bool_t)BgL_macrozf31717zf3_1125), BUNSPEC); 
((((BgL_cfunz00_bglt)CREF(BgL_new1720z00_1105))->BgL_infixzf3zf3) = ((bool_t)BgL_infixzf31718zf3_1126), BUNSPEC); 
((((BgL_cfunz00_bglt)CREF(BgL_new1720z00_1105))->BgL_methodz00) = ((obj_t)BgL_method1719z00_1127), BUNSPEC); 
BgL_res2927z00_1128 = BgL_new1720z00_1105; } } BgL_res2927z00_1128; } 
return BgL_new1707z00_1098;} } 
}



/* _make-cfun2977 */
obj_t BGl__makezd2cfun2977zd2zzast_varz00(obj_t BgL_envz00_1993, obj_t BgL_arity1696z00_1994, obj_t BgL_sidezd2effectzf31697z21_1995, obj_t BgL_predicatezd2of1698zd2_1996, obj_t BgL_stackzd2allocator1699zd2_1997, obj_t BgL_topzf31700zf3_1998, obj_t BgL_thezd2closure1701zd2_1999, obj_t BgL_effect1702z00_2000, obj_t BgL_argszd2type1703zd2_2001, obj_t BgL_macrozf31704zf3_2002, obj_t BgL_infixzf31705zf3_2003, obj_t BgL_method1706z00_2004)
{ AN_OBJECT;
{ /* ./Ast/var.scm 106 */
{ /* ./Ast/var.scm 106 */
BgL_cfunz00_bglt BgL_auxz00_2990;
BgL_auxz00_2990 = 
BGl_makezd2cfunzd2zzast_varz00(
(long)CINT(BgL_arity1696z00_1994), BgL_sidezd2effectzf31697z21_1995, BgL_predicatezd2of1698zd2_1996, BgL_stackzd2allocator1699zd2_1997, 
CBOOL(BgL_topzf31700zf3_1998), BgL_thezd2closure1701zd2_1999, BgL_effect1702z00_2000, BgL_argszd2type1703zd2_2001, 
CBOOL(BgL_macrozf31704zf3_2002), 
CBOOL(BgL_infixzf31705zf3_2003), BgL_method1706z00_2004); 
return 
(obj_t)(BgL_auxz00_2990);} } 
}



/* fill-cfun! */
BGL_EXPORTED_DEF BgL_cfunz00_bglt BGl_fillzd2cfunz12zc0zzast_varz00(BgL_cfunz00_bglt BgL_new1720z00_85, long BgL_arity1709z00_86, obj_t BgL_sidezd2effectzf31710z21_87, obj_t BgL_predicatezd2of1711zd2_88, obj_t BgL_stackzd2allocator1712zd2_89, bool_t BgL_topzf31713zf3_90, obj_t BgL_thezd2closure1714zd2_91, obj_t BgL_effect1715z00_92, obj_t BgL_argszd2type1716zd2_93, bool_t BgL_macrozf31717zf3_94, bool_t BgL_infixzf31718zf3_95, obj_t BgL_method1719z00_96)
{ AN_OBJECT;
{ /* ./Ast/var.scm 106 */
{ /* ./Ast/var.scm 106 */
long BgL_arity1709z00_2340;obj_t BgL_sidezd2effectzf31710z21_2341;obj_t BgL_predicatezd2of1711zd2_2342;obj_t BgL_stackzd2allocator1712zd2_2343;bool_t BgL_topzf31713zf3_2344;obj_t BgL_thezd2closure1714zd2_2345;obj_t BgL_effect1715z00_2346;obj_t BgL_argszd2type1716zd2_2347;bool_t BgL_macrozf31717zf3_2348;bool_t BgL_infixzf31718zf3_2349;obj_t BgL_method1719z00_2350;
BgL_arity1709z00_2340 = BgL_arity1709z00_86; 
BgL_sidezd2effectzf31710z21_2341 = BgL_sidezd2effectzf31710z21_87; 
BgL_predicatezd2of1711zd2_2342 = BgL_predicatezd2of1711zd2_88; 
BgL_stackzd2allocator1712zd2_2343 = BgL_stackzd2allocator1712zd2_89; 
BgL_topzf31713zf3_2344 = BgL_topzf31713zf3_90; 
BgL_thezd2closure1714zd2_2345 = BgL_thezd2closure1714zd2_91; 
BgL_effect1715z00_2346 = BgL_effect1715z00_92; 
BgL_argszd2type1716zd2_2347 = BgL_argszd2type1716zd2_93; 
BgL_macrozf31717zf3_2348 = BgL_macrozf31717zf3_94; 
BgL_infixzf31718zf3_2349 = BgL_infixzf31718zf3_95; 
BgL_method1719z00_2350 = BgL_method1719z00_96; 
((((BgL_cfunz00_bglt)CREF(BgL_new1720z00_85))->BgL_arityz00) = ((long)BgL_arity1709z00_2340), BUNSPEC); 
((((BgL_cfunz00_bglt)CREF(BgL_new1720z00_85))->BgL_sidezd2effectzf3z21) = ((obj_t)BgL_sidezd2effectzf31710z21_2341), BUNSPEC); 
((((BgL_cfunz00_bglt)CREF(BgL_new1720z00_85))->BgL_predicatezd2ofzd2) = ((obj_t)BgL_predicatezd2of1711zd2_2342), BUNSPEC); 
((((BgL_cfunz00_bglt)CREF(BgL_new1720z00_85))->BgL_stackzd2allocatorzd2) = ((obj_t)BgL_stackzd2allocator1712zd2_2343), BUNSPEC); 
((((BgL_cfunz00_bglt)CREF(BgL_new1720z00_85))->BgL_topzf3zf3) = ((bool_t)BgL_topzf31713zf3_2344), BUNSPEC); 
((((BgL_cfunz00_bglt)CREF(BgL_new1720z00_85))->BgL_thezd2closurezd2) = ((obj_t)BgL_thezd2closure1714zd2_2345), BUNSPEC); 
((((BgL_cfunz00_bglt)CREF(BgL_new1720z00_85))->BgL_effectz00) = ((obj_t)BgL_effect1715z00_2346), BUNSPEC); 
((((BgL_cfunz00_bglt)CREF(BgL_new1720z00_85))->BgL_argszd2typezd2) = ((obj_t)BgL_argszd2type1716zd2_2347), BUNSPEC); 
((((BgL_cfunz00_bglt)CREF(BgL_new1720z00_85))->BgL_macrozf3zf3) = ((bool_t)BgL_macrozf31717zf3_2348), BUNSPEC); 
((((BgL_cfunz00_bglt)CREF(BgL_new1720z00_85))->BgL_infixzf3zf3) = ((bool_t)BgL_infixzf31718zf3_2349), BUNSPEC); 
((((BgL_cfunz00_bglt)CREF(BgL_new1720z00_85))->BgL_methodz00) = ((obj_t)BgL_method1719z00_2350), BUNSPEC); 
return BgL_new1720z00_85;} } 
}



/* _fill-cfun!2979 */
obj_t BGl__fillzd2cfunz122979zc0zzast_varz00(obj_t BgL_envz00_2005, obj_t BgL_new1720z00_2006, obj_t BgL_arity1709z00_2007, obj_t BgL_sidezd2effectzf31710z21_2008, obj_t BgL_predicatezd2of1711zd2_2009, obj_t BgL_stackzd2allocator1712zd2_2010, obj_t BgL_topzf31713zf3_2011, obj_t BgL_thezd2closure1714zd2_2012, obj_t BgL_effect1715z00_2013, obj_t BgL_argszd2type1716zd2_2014, obj_t BgL_macrozf31717zf3_2015, obj_t BgL_infixzf31718zf3_2016, obj_t BgL_method1719z00_2017)
{ AN_OBJECT;
{ /* ./Ast/var.scm 106 */
{ /* ./Ast/var.scm 106 */
BgL_cfunz00_bglt BgL_auxz00_3008;
{ /* ./Ast/var.scm 106 */
BgL_cfunz00_bglt BgL_res3685z00_2374;
{ /* ./Ast/var.scm 106 */
BgL_cfunz00_bglt BgL_new1720z00_2351;long BgL_arity1709z00_2352;bool_t BgL_topzf31713zf3_2356;bool_t BgL_macrozf31717zf3_2360;bool_t BgL_infixzf31718zf3_2361;
BgL_new1720z00_2351 = 
(BgL_cfunz00_bglt)(BgL_new1720z00_2006); 
BgL_arity1709z00_2352 = 
(long)CINT(BgL_arity1709z00_2007); 
BgL_topzf31713zf3_2356 = 
CBOOL(BgL_topzf31713zf3_2011); 
BgL_macrozf31717zf3_2360 = 
CBOOL(BgL_macrozf31717zf3_2015); 
BgL_infixzf31718zf3_2361 = 
CBOOL(BgL_infixzf31718zf3_2016); 
{ /* ./Ast/var.scm 106 */
long BgL_arity1709z00_2363;obj_t BgL_sidezd2effectzf31710z21_2364;obj_t BgL_predicatezd2of1711zd2_2365;obj_t BgL_stackzd2allocator1712zd2_2366;bool_t BgL_topzf31713zf3_2367;obj_t BgL_thezd2closure1714zd2_2368;obj_t BgL_effect1715z00_2369;obj_t BgL_argszd2type1716zd2_2370;bool_t BgL_macrozf31717zf3_2371;bool_t BgL_infixzf31718zf3_2372;obj_t BgL_method1719z00_2373;
BgL_arity1709z00_2363 = BgL_arity1709z00_2352; 
BgL_sidezd2effectzf31710z21_2364 = BgL_sidezd2effectzf31710z21_2008; 
BgL_predicatezd2of1711zd2_2365 = BgL_predicatezd2of1711zd2_2009; 
BgL_stackzd2allocator1712zd2_2366 = BgL_stackzd2allocator1712zd2_2010; 
BgL_topzf31713zf3_2367 = BgL_topzf31713zf3_2356; 
BgL_thezd2closure1714zd2_2368 = BgL_thezd2closure1714zd2_2012; 
BgL_effect1715z00_2369 = BgL_effect1715z00_2013; 
BgL_argszd2type1716zd2_2370 = BgL_argszd2type1716zd2_2014; 
BgL_macrozf31717zf3_2371 = BgL_macrozf31717zf3_2360; 
BgL_infixzf31718zf3_2372 = BgL_infixzf31718zf3_2361; 
BgL_method1719z00_2373 = BgL_method1719z00_2017; 
((((BgL_cfunz00_bglt)CREF(BgL_new1720z00_2351))->BgL_arityz00) = ((long)BgL_arity1709z00_2363), BUNSPEC); 
((((BgL_cfunz00_bglt)CREF(BgL_new1720z00_2351))->BgL_sidezd2effectzf3z21) = ((obj_t)BgL_sidezd2effectzf31710z21_2364), BUNSPEC); 
((((BgL_cfunz00_bglt)CREF(BgL_new1720z00_2351))->BgL_predicatezd2ofzd2) = ((obj_t)BgL_predicatezd2of1711zd2_2365), BUNSPEC); 
((((BgL_cfunz00_bglt)CREF(BgL_new1720z00_2351))->BgL_stackzd2allocatorzd2) = ((obj_t)BgL_stackzd2allocator1712zd2_2366), BUNSPEC); 
((((BgL_cfunz00_bglt)CREF(BgL_new1720z00_2351))->BgL_topzf3zf3) = ((bool_t)BgL_topzf31713zf3_2367), BUNSPEC); 
((((BgL_cfunz00_bglt)CREF(BgL_new1720z00_2351))->BgL_thezd2closurezd2) = ((obj_t)BgL_thezd2closure1714zd2_2368), BUNSPEC); 
((((BgL_cfunz00_bglt)CREF(BgL_new1720z00_2351))->BgL_effectz00) = ((obj_t)BgL_effect1715z00_2369), BUNSPEC); 
((((BgL_cfunz00_bglt)CREF(BgL_new1720z00_2351))->BgL_argszd2typezd2) = ((obj_t)BgL_argszd2type1716zd2_2370), BUNSPEC); 
((((BgL_cfunz00_bglt)CREF(BgL_new1720z00_2351))->BgL_macrozf3zf3) = ((bool_t)BgL_macrozf31717zf3_2371), BUNSPEC); 
((((BgL_cfunz00_bglt)CREF(BgL_new1720z00_2351))->BgL_infixzf3zf3) = ((bool_t)BgL_infixzf31718zf3_2372), BUNSPEC); 
((((BgL_cfunz00_bglt)CREF(BgL_new1720z00_2351))->BgL_methodz00) = ((obj_t)BgL_method1719z00_2373), BUNSPEC); 
BgL_res3685z00_2374 = BgL_new1720z00_2351; } } 
BgL_auxz00_3008 = BgL_res3685z00_2374; } 
return 
(obj_t)(BgL_auxz00_3008);} } 
}



/* allocate-cfun */
BGL_EXPORTED_DEF BgL_cfunz00_bglt BGl_allocatezd2cfunzd2zzast_varz00()
{ AN_OBJECT;
{ /* ./Ast/var.scm 106 */
{ /* ./Ast/var.scm 106 */
BgL_cfunz00_bglt BgL_new1733z00_2375;
BgL_new1733z00_2375 = 
((BgL_cfunz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cfunz00_bgl) ))); 
{ /* ./Ast/var.scm 106 */
long BgL_arg2181z00_2376;
BgL_arg2181z00_2376 = 
BGl_classzd2numzd2zz__objectz00(BGl_cfunz00zzast_varz00); 
{ /* ./Ast/var.scm 106 */
BgL_objectz00_bglt BgL_objz00_2377;
BgL_objz00_2377 = 
(BgL_objectz00_bglt)(BgL_new1733z00_2375); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2377, BgL_arg2181z00_2376); } } 
{ /* ./Ast/var.scm 106 */
BgL_objectz00_bglt BgL_auxz00_3030;
BgL_auxz00_3030 = 
(BgL_objectz00_bglt)(BgL_new1733z00_2375); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3030, BFALSE); } 
{ /* ./Ast/var.scm 106 */
obj_t BgL_objz00_2378;
BgL_objz00_2378 = 
(obj_t)(BgL_new1733z00_2375); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2378); BUNSPEC; } 
return BgL_new1733z00_2375;} } 
}



/* _allocate-cfun */
obj_t BGl__allocatezd2cfunzd2zzast_varz00(obj_t BgL_envz00_1942)
{ AN_OBJECT;
{ /* ./Ast/var.scm 106 */
{ /* ./Ast/var.scm 106 */
BgL_cfunz00_bglt BgL_auxz00_3035;
{ /* ./Ast/var.scm 106 */
BgL_cfunz00_bglt BgL_res3686z00_2383;
{ /* ./Ast/var.scm 106 */
BgL_cfunz00_bglt BgL_new1733z00_2379;
BgL_new1733z00_2379 = 
((BgL_cfunz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cfunz00_bgl) ))); 
{ /* ./Ast/var.scm 106 */
long BgL_arg2181z00_2380;
BgL_arg2181z00_2380 = 
BGl_classzd2numzd2zz__objectz00(BGl_cfunz00zzast_varz00); 
{ /* ./Ast/var.scm 106 */
BgL_objectz00_bglt BgL_objz00_2381;
BgL_objz00_2381 = 
(BgL_objectz00_bglt)(BgL_new1733z00_2379); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2381, BgL_arg2181z00_2380); } } 
{ /* ./Ast/var.scm 106 */
BgL_objectz00_bglt BgL_auxz00_3040;
BgL_auxz00_3040 = 
(BgL_objectz00_bglt)(BgL_new1733z00_2379); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3040, BFALSE); } 
{ /* ./Ast/var.scm 106 */
obj_t BgL_objz00_2382;
BgL_objz00_2382 = 
(obj_t)(BgL_new1733z00_2379); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2382); BUNSPEC; } 
BgL_res3686z00_2383 = BgL_new1733z00_2379; } 
BgL_auxz00_3035 = BgL_res3686z00_2383; } 
return 
(obj_t)(BgL_auxz00_3035);} } 
}



/* sfun? */
BGL_EXPORTED_DEF bool_t BGl_sfunzf3zf3zzast_varz00(obj_t BgL_obj1668z00_105)
{ AN_OBJECT;
{ /* ./Ast/var.scm 89 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1668z00_105, BGl_sfunz00zzast_varz00);} 
}



/* _sfun? */
obj_t BGl__sfunzf3zf3zzast_varz00(obj_t BgL_envz00_2018, obj_t BgL_obj1668z00_2019)
{ AN_OBJECT;
{ /* ./Ast/var.scm 89 */
{ /* ./Ast/var.scm 89 */
bool_t BgL_auxz00_3047;
BgL_auxz00_3047 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1668z00_2019, BGl_sfunz00zzast_varz00); 
return 
BBOOL(BgL_auxz00_3047);} } 
}



/* make-sfun */
BGL_EXPORTED_DEF BgL_sfunz00_bglt BGl_makezd2sfunzd2zzast_varz00(long BgL_arity1570z00_109, obj_t BgL_sidezd2effectzf31571z21_110, obj_t BgL_predicatezd2of1572zd2_111, obj_t BgL_stackzd2allocator1573zd2_112, bool_t BgL_topzf31574zf3_113, obj_t BgL_thezd2closure1575zd2_114, obj_t BgL_effect1576z00_115, obj_t BgL_property1577z00_116, obj_t BgL_args1578z00_117, obj_t BgL_body1579z00_118, obj_t BgL_class1580z00_119, obj_t BgL_dssslzd2keywords1581zd2_120, obj_t BgL_loc1582z00_121)
{ AN_OBJECT;
{ /* ./Ast/var.scm 89 */
{ /* ./Ast/var.scm 89 */
BgL_sfunz00_bglt BgL_new1583z00_1145;
{ /* ./Ast/var.scm 89 */
BgL_sfunz00_bglt BgL_res2928z00_1151;
{ /* ./Ast/var.scm 89 */
BgL_sfunz00_bglt BgL_new1613z00_1146;
BgL_new1613z00_1146 = 
((BgL_sfunz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_sfunz00_bgl) ))); 
{ /* ./Ast/var.scm 89 */
long BgL_arg2190z00_1147;
BgL_arg2190z00_1147 = 
BGl_classzd2numzd2zz__objectz00(BGl_sfunz00zzast_varz00); 
{ /* ./Ast/var.scm 89 */
BgL_objectz00_bglt BgL_objz00_1148;
BgL_objz00_1148 = 
(BgL_objectz00_bglt)(BgL_new1613z00_1146); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1148, BgL_arg2190z00_1147); } } 
{ /* ./Ast/var.scm 89 */
BgL_objectz00_bglt BgL_auxz00_3054;
BgL_auxz00_3054 = 
(BgL_objectz00_bglt)(BgL_new1613z00_1146); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3054, BFALSE); } 
{ /* ./Ast/var.scm 89 */
obj_t BgL_objz00_1150;
BgL_objz00_1150 = 
(obj_t)(BgL_new1613z00_1146); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_1150); BUNSPEC; } 
BgL_res2928z00_1151 = BgL_new1613z00_1146; } 
BgL_new1583z00_1145 = BgL_res2928z00_1151; } 
{ /* ./Ast/var.scm 89 */
BgL_sfunz00_bglt BgL_res2929z00_1179;
{ /* ./Ast/var.scm 89 */
BgL_sfunz00_bglt BgL_new1598z00_1152;
BgL_new1598z00_1152 = BgL_new1583z00_1145; 
{ /* ./Ast/var.scm 89 */
long BgL_arity1585z00_1166;obj_t BgL_sidezd2effectzf31586z21_1167;obj_t BgL_predicatezd2of1587zd2_1168;obj_t BgL_stackzd2allocator1588zd2_1169;bool_t BgL_topzf31589zf3_1170;obj_t BgL_thezd2closure1590zd2_1171;obj_t BgL_effect1591z00_1172;obj_t BgL_property1592z00_1173;obj_t BgL_args1593z00_1174;obj_t BgL_body1594z00_1175;obj_t BgL_class1595z00_1176;obj_t BgL_dssslzd2keywords1596zd2_1177;obj_t BgL_loc1597z00_1178;
BgL_arity1585z00_1166 = BgL_arity1570z00_109; 
BgL_sidezd2effectzf31586z21_1167 = BgL_sidezd2effectzf31571z21_110; 
BgL_predicatezd2of1587zd2_1168 = BgL_predicatezd2of1572zd2_111; 
BgL_stackzd2allocator1588zd2_1169 = BgL_stackzd2allocator1573zd2_112; 
BgL_topzf31589zf3_1170 = BgL_topzf31574zf3_113; 
BgL_thezd2closure1590zd2_1171 = BgL_thezd2closure1575zd2_114; 
BgL_effect1591z00_1172 = BgL_effect1576z00_115; 
BgL_property1592z00_1173 = BgL_property1577z00_116; 
BgL_args1593z00_1174 = BgL_args1578z00_117; 
BgL_body1594z00_1175 = BgL_body1579z00_118; 
BgL_class1595z00_1176 = BgL_class1580z00_119; 
BgL_dssslzd2keywords1596zd2_1177 = BgL_dssslzd2keywords1581zd2_120; 
BgL_loc1597z00_1178 = BgL_loc1582z00_121; 
((((BgL_sfunz00_bglt)CREF(BgL_new1598z00_1152))->BgL_arityz00) = ((long)BgL_arity1585z00_1166), BUNSPEC); 
((((BgL_sfunz00_bglt)CREF(BgL_new1598z00_1152))->BgL_sidezd2effectzf3z21) = ((obj_t)BgL_sidezd2effectzf31586z21_1167), BUNSPEC); 
((((BgL_sfunz00_bglt)CREF(BgL_new1598z00_1152))->BgL_predicatezd2ofzd2) = ((obj_t)BgL_predicatezd2of1587zd2_1168), BUNSPEC); 
((((BgL_sfunz00_bglt)CREF(BgL_new1598z00_1152))->BgL_stackzd2allocatorzd2) = ((obj_t)BgL_stackzd2allocator1588zd2_1169), BUNSPEC); 
((((BgL_sfunz00_bglt)CREF(BgL_new1598z00_1152))->BgL_topzf3zf3) = ((bool_t)BgL_topzf31589zf3_1170), BUNSPEC); 
((((BgL_sfunz00_bglt)CREF(BgL_new1598z00_1152))->BgL_thezd2closurezd2) = ((obj_t)BgL_thezd2closure1590zd2_1171), BUNSPEC); 
((((BgL_sfunz00_bglt)CREF(BgL_new1598z00_1152))->BgL_effectz00) = ((obj_t)BgL_effect1591z00_1172), BUNSPEC); 
((((BgL_sfunz00_bglt)CREF(BgL_new1598z00_1152))->BgL_propertyz00) = ((obj_t)BgL_property1592z00_1173), BUNSPEC); 
((((BgL_sfunz00_bglt)CREF(BgL_new1598z00_1152))->BgL_argsz00) = ((obj_t)BgL_args1593z00_1174), BUNSPEC); 
((((BgL_sfunz00_bglt)CREF(BgL_new1598z00_1152))->BgL_bodyz00) = ((obj_t)BgL_body1594z00_1175), BUNSPEC); 
((((BgL_sfunz00_bglt)CREF(BgL_new1598z00_1152))->BgL_classz00) = ((obj_t)BgL_class1595z00_1176), BUNSPEC); 
((((BgL_sfunz00_bglt)CREF(BgL_new1598z00_1152))->BgL_dssslzd2keywordszd2) = ((obj_t)BgL_dssslzd2keywords1596zd2_1177), BUNSPEC); 
((((BgL_sfunz00_bglt)CREF(BgL_new1598z00_1152))->BgL_locz00) = ((obj_t)BgL_loc1597z00_1178), BUNSPEC); 
BgL_res2929z00_1179 = BgL_new1598z00_1152; } } BgL_res2929z00_1179; } 
return BgL_new1583z00_1145;} } 
}



/* _make-sfun2982 */
obj_t BGl__makezd2sfun2982zd2zzast_varz00(obj_t BgL_envz00_2020, obj_t BgL_arity1570z00_2021, obj_t BgL_sidezd2effectzf31571z21_2022, obj_t BgL_predicatezd2of1572zd2_2023, obj_t BgL_stackzd2allocator1573zd2_2024, obj_t BgL_topzf31574zf3_2025, obj_t BgL_thezd2closure1575zd2_2026, obj_t BgL_effect1576z00_2027, obj_t BgL_property1577z00_2028, obj_t BgL_args1578z00_2029, obj_t BgL_body1579z00_2030, obj_t BgL_class1580z00_2031, obj_t BgL_dssslzd2keywords1581zd2_2032, obj_t BgL_loc1582z00_2033)
{ AN_OBJECT;
{ /* ./Ast/var.scm 89 */
{ /* ./Ast/var.scm 89 */
BgL_sfunz00_bglt BgL_auxz00_3072;
BgL_auxz00_3072 = 
BGl_makezd2sfunzd2zzast_varz00(
(long)CINT(BgL_arity1570z00_2021), BgL_sidezd2effectzf31571z21_2022, BgL_predicatezd2of1572zd2_2023, BgL_stackzd2allocator1573zd2_2024, 
CBOOL(BgL_topzf31574zf3_2025), BgL_thezd2closure1575zd2_2026, BgL_effect1576z00_2027, BgL_property1577z00_2028, BgL_args1578z00_2029, BgL_body1579z00_2030, BgL_class1580z00_2031, BgL_dssslzd2keywords1581zd2_2032, BgL_loc1582z00_2033); 
return 
(obj_t)(BgL_auxz00_3072);} } 
}



/* fill-sfun! */
BGL_EXPORTED_DEF BgL_sfunz00_bglt BGl_fillzd2sfunz12zc0zzast_varz00(BgL_sfunz00_bglt BgL_new1598z00_122, long BgL_arity1585z00_123, obj_t BgL_sidezd2effectzf31586z21_124, obj_t BgL_predicatezd2of1587zd2_125, obj_t BgL_stackzd2allocator1588zd2_126, bool_t BgL_topzf31589zf3_127, obj_t BgL_thezd2closure1590zd2_128, obj_t BgL_effect1591z00_129, obj_t BgL_property1592z00_130, obj_t BgL_args1593z00_131, obj_t BgL_body1594z00_132, obj_t BgL_class1595z00_133, obj_t BgL_dssslzd2keywords1596zd2_134, obj_t BgL_loc1597z00_135)
{ AN_OBJECT;
{ /* ./Ast/var.scm 89 */
{ /* ./Ast/var.scm 89 */
long BgL_arity1585z00_2385;obj_t BgL_sidezd2effectzf31586z21_2386;obj_t BgL_predicatezd2of1587zd2_2387;obj_t BgL_stackzd2allocator1588zd2_2388;bool_t BgL_topzf31589zf3_2389;obj_t BgL_thezd2closure1590zd2_2390;obj_t BgL_effect1591z00_2391;obj_t BgL_property1592z00_2392;obj_t BgL_args1593z00_2393;obj_t BgL_body1594z00_2394;obj_t BgL_class1595z00_2395;obj_t BgL_dssslzd2keywords1596zd2_2396;obj_t BgL_loc1597z00_2397;
BgL_arity1585z00_2385 = BgL_arity1585z00_123; 
BgL_sidezd2effectzf31586z21_2386 = BgL_sidezd2effectzf31586z21_124; 
BgL_predicatezd2of1587zd2_2387 = BgL_predicatezd2of1587zd2_125; 
BgL_stackzd2allocator1588zd2_2388 = BgL_stackzd2allocator1588zd2_126; 
BgL_topzf31589zf3_2389 = BgL_topzf31589zf3_127; 
BgL_thezd2closure1590zd2_2390 = BgL_thezd2closure1590zd2_128; 
BgL_effect1591z00_2391 = BgL_effect1591z00_129; 
BgL_property1592z00_2392 = BgL_property1592z00_130; 
BgL_args1593z00_2393 = BgL_args1593z00_131; 
BgL_body1594z00_2394 = BgL_body1594z00_132; 
BgL_class1595z00_2395 = BgL_class1595z00_133; 
BgL_dssslzd2keywords1596zd2_2396 = BgL_dssslzd2keywords1596zd2_134; 
BgL_loc1597z00_2397 = BgL_loc1597z00_135; 
((((BgL_sfunz00_bglt)CREF(BgL_new1598z00_122))->BgL_arityz00) = ((long)BgL_arity1585z00_2385), BUNSPEC); 
((((BgL_sfunz00_bglt)CREF(BgL_new1598z00_122))->BgL_sidezd2effectzf3z21) = ((obj_t)BgL_sidezd2effectzf31586z21_2386), BUNSPEC); 
((((BgL_sfunz00_bglt)CREF(BgL_new1598z00_122))->BgL_predicatezd2ofzd2) = ((obj_t)BgL_predicatezd2of1587zd2_2387), BUNSPEC); 
((((BgL_sfunz00_bglt)CREF(BgL_new1598z00_122))->BgL_stackzd2allocatorzd2) = ((obj_t)BgL_stackzd2allocator1588zd2_2388), BUNSPEC); 
((((BgL_sfunz00_bglt)CREF(BgL_new1598z00_122))->BgL_topzf3zf3) = ((bool_t)BgL_topzf31589zf3_2389), BUNSPEC); 
((((BgL_sfunz00_bglt)CREF(BgL_new1598z00_122))->BgL_thezd2closurezd2) = ((obj_t)BgL_thezd2closure1590zd2_2390), BUNSPEC); 
((((BgL_sfunz00_bglt)CREF(BgL_new1598z00_122))->BgL_effectz00) = ((obj_t)BgL_effect1591z00_2391), BUNSPEC); 
((((BgL_sfunz00_bglt)CREF(BgL_new1598z00_122))->BgL_propertyz00) = ((obj_t)BgL_property1592z00_2392), BUNSPEC); 
((((BgL_sfunz00_bglt)CREF(BgL_new1598z00_122))->BgL_argsz00) = ((obj_t)BgL_args1593z00_2393), BUNSPEC); 
((((BgL_sfunz00_bglt)CREF(BgL_new1598z00_122))->BgL_bodyz00) = ((obj_t)BgL_body1594z00_2394), BUNSPEC); 
((((BgL_sfunz00_bglt)CREF(BgL_new1598z00_122))->BgL_classz00) = ((obj_t)BgL_class1595z00_2395), BUNSPEC); 
((((BgL_sfunz00_bglt)CREF(BgL_new1598z00_122))->BgL_dssslzd2keywordszd2) = ((obj_t)BgL_dssslzd2keywords1596zd2_2396), BUNSPEC); 
((((BgL_sfunz00_bglt)CREF(BgL_new1598z00_122))->BgL_locz00) = ((obj_t)BgL_loc1597z00_2397), BUNSPEC); 
return BgL_new1598z00_122;} } 
}



/* _fill-sfun!2984 */
obj_t BGl__fillzd2sfunz122984zc0zzast_varz00(obj_t BgL_envz00_2034, obj_t BgL_new1598z00_2035, obj_t BgL_arity1585z00_2036, obj_t BgL_sidezd2effectzf31586z21_2037, obj_t BgL_predicatezd2of1587zd2_2038, obj_t BgL_stackzd2allocator1588zd2_2039, obj_t BgL_topzf31589zf3_2040, obj_t BgL_thezd2closure1590zd2_2041, obj_t BgL_effect1591z00_2042, obj_t BgL_property1592z00_2043, obj_t BgL_args1593z00_2044, obj_t BgL_body1594z00_2045, obj_t BgL_class1595z00_2046, obj_t BgL_dssslzd2keywords1596zd2_2047, obj_t BgL_loc1597z00_2048)
{ AN_OBJECT;
{ /* ./Ast/var.scm 89 */
{ /* ./Ast/var.scm 89 */
BgL_sfunz00_bglt BgL_auxz00_3090;
{ /* ./Ast/var.scm 89 */
BgL_sfunz00_bglt BgL_res3687z00_2425;
{ /* ./Ast/var.scm 89 */
BgL_sfunz00_bglt BgL_new1598z00_2398;long BgL_arity1585z00_2399;bool_t BgL_topzf31589zf3_2403;
BgL_new1598z00_2398 = 
(BgL_sfunz00_bglt)(BgL_new1598z00_2035); 
BgL_arity1585z00_2399 = 
(long)CINT(BgL_arity1585z00_2036); 
BgL_topzf31589zf3_2403 = 
CBOOL(BgL_topzf31589zf3_2040); 
{ /* ./Ast/var.scm 89 */
long BgL_arity1585z00_2412;obj_t BgL_sidezd2effectzf31586z21_2413;obj_t BgL_predicatezd2of1587zd2_2414;obj_t BgL_stackzd2allocator1588zd2_2415;bool_t BgL_topzf31589zf3_2416;obj_t BgL_thezd2closure1590zd2_2417;obj_t BgL_effect1591z00_2418;obj_t BgL_property1592z00_2419;obj_t BgL_args1593z00_2420;obj_t BgL_body1594z00_2421;obj_t BgL_class1595z00_2422;obj_t BgL_dssslzd2keywords1596zd2_2423;obj_t BgL_loc1597z00_2424;
BgL_arity1585z00_2412 = BgL_arity1585z00_2399; 
BgL_sidezd2effectzf31586z21_2413 = BgL_sidezd2effectzf31586z21_2037; 
BgL_predicatezd2of1587zd2_2414 = BgL_predicatezd2of1587zd2_2038; 
BgL_stackzd2allocator1588zd2_2415 = BgL_stackzd2allocator1588zd2_2039; 
BgL_topzf31589zf3_2416 = BgL_topzf31589zf3_2403; 
BgL_thezd2closure1590zd2_2417 = BgL_thezd2closure1590zd2_2041; 
BgL_effect1591z00_2418 = BgL_effect1591z00_2042; 
BgL_property1592z00_2419 = BgL_property1592z00_2043; 
BgL_args1593z00_2420 = BgL_args1593z00_2044; 
BgL_body1594z00_2421 = BgL_body1594z00_2045; 
BgL_class1595z00_2422 = BgL_class1595z00_2046; 
BgL_dssslzd2keywords1596zd2_2423 = BgL_dssslzd2keywords1596zd2_2047; 
BgL_loc1597z00_2424 = BgL_loc1597z00_2048; 
((((BgL_sfunz00_bglt)CREF(BgL_new1598z00_2398))->BgL_arityz00) = ((long)BgL_arity1585z00_2412), BUNSPEC); 
((((BgL_sfunz00_bglt)CREF(BgL_new1598z00_2398))->BgL_sidezd2effectzf3z21) = ((obj_t)BgL_sidezd2effectzf31586z21_2413), BUNSPEC); 
((((BgL_sfunz00_bglt)CREF(BgL_new1598z00_2398))->BgL_predicatezd2ofzd2) = ((obj_t)BgL_predicatezd2of1587zd2_2414), BUNSPEC); 
((((BgL_sfunz00_bglt)CREF(BgL_new1598z00_2398))->BgL_stackzd2allocatorzd2) = ((obj_t)BgL_stackzd2allocator1588zd2_2415), BUNSPEC); 
((((BgL_sfunz00_bglt)CREF(BgL_new1598z00_2398))->BgL_topzf3zf3) = ((bool_t)BgL_topzf31589zf3_2416), BUNSPEC); 
((((BgL_sfunz00_bglt)CREF(BgL_new1598z00_2398))->BgL_thezd2closurezd2) = ((obj_t)BgL_thezd2closure1590zd2_2417), BUNSPEC); 
((((BgL_sfunz00_bglt)CREF(BgL_new1598z00_2398))->BgL_effectz00) = ((obj_t)BgL_effect1591z00_2418), BUNSPEC); 
((((BgL_sfunz00_bglt)CREF(BgL_new1598z00_2398))->BgL_propertyz00) = ((obj_t)BgL_property1592z00_2419), BUNSPEC); 
((((BgL_sfunz00_bglt)CREF(BgL_new1598z00_2398))->BgL_argsz00) = ((obj_t)BgL_args1593z00_2420), BUNSPEC); 
((((BgL_sfunz00_bglt)CREF(BgL_new1598z00_2398))->BgL_bodyz00) = ((obj_t)BgL_body1594z00_2421), BUNSPEC); 
((((BgL_sfunz00_bglt)CREF(BgL_new1598z00_2398))->BgL_classz00) = ((obj_t)BgL_class1595z00_2422), BUNSPEC); 
((((BgL_sfunz00_bglt)CREF(BgL_new1598z00_2398))->BgL_dssslzd2keywordszd2) = ((obj_t)BgL_dssslzd2keywords1596zd2_2423), BUNSPEC); 
((((BgL_sfunz00_bglt)CREF(BgL_new1598z00_2398))->BgL_locz00) = ((obj_t)BgL_loc1597z00_2424), BUNSPEC); 
BgL_res3687z00_2425 = BgL_new1598z00_2398; } } 
BgL_auxz00_3090 = BgL_res3687z00_2425; } 
return 
(obj_t)(BgL_auxz00_3090);} } 
}



/* allocate-sfun */
BGL_EXPORTED_DEF BgL_sfunz00_bglt BGl_allocatezd2sfunzd2zzast_varz00()
{ AN_OBJECT;
{ /* ./Ast/var.scm 89 */
{ /* ./Ast/var.scm 89 */
BgL_sfunz00_bglt BgL_new1613z00_2426;
BgL_new1613z00_2426 = 
((BgL_sfunz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_sfunz00_bgl) ))); 
{ /* ./Ast/var.scm 89 */
long BgL_arg2190z00_2427;
BgL_arg2190z00_2427 = 
BGl_classzd2numzd2zz__objectz00(BGl_sfunz00zzast_varz00); 
{ /* ./Ast/var.scm 89 */
BgL_objectz00_bglt BgL_objz00_2428;
BgL_objz00_2428 = 
(BgL_objectz00_bglt)(BgL_new1613z00_2426); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2428, BgL_arg2190z00_2427); } } 
{ /* ./Ast/var.scm 89 */
BgL_objectz00_bglt BgL_auxz00_3112;
BgL_auxz00_3112 = 
(BgL_objectz00_bglt)(BgL_new1613z00_2426); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3112, BFALSE); } 
{ /* ./Ast/var.scm 89 */
obj_t BgL_objz00_2429;
BgL_objz00_2429 = 
(obj_t)(BgL_new1613z00_2426); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2429); BUNSPEC; } 
return BgL_new1613z00_2426;} } 
}



/* _allocate-sfun */
obj_t BGl__allocatezd2sfunzd2zzast_varz00(obj_t BgL_envz00_1941)
{ AN_OBJECT;
{ /* ./Ast/var.scm 89 */
{ /* ./Ast/var.scm 89 */
BgL_sfunz00_bglt BgL_auxz00_3117;
{ /* ./Ast/var.scm 89 */
BgL_sfunz00_bglt BgL_res3688z00_2434;
{ /* ./Ast/var.scm 89 */
BgL_sfunz00_bglt BgL_new1613z00_2430;
BgL_new1613z00_2430 = 
((BgL_sfunz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_sfunz00_bgl) ))); 
{ /* ./Ast/var.scm 89 */
long BgL_arg2190z00_2431;
BgL_arg2190z00_2431 = 
BGl_classzd2numzd2zz__objectz00(BGl_sfunz00zzast_varz00); 
{ /* ./Ast/var.scm 89 */
BgL_objectz00_bglt BgL_objz00_2432;
BgL_objz00_2432 = 
(BgL_objectz00_bglt)(BgL_new1613z00_2430); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2432, BgL_arg2190z00_2431); } } 
{ /* ./Ast/var.scm 89 */
BgL_objectz00_bglt BgL_auxz00_3122;
BgL_auxz00_3122 = 
(BgL_objectz00_bglt)(BgL_new1613z00_2430); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3122, BFALSE); } 
{ /* ./Ast/var.scm 89 */
obj_t BgL_objz00_2433;
BgL_objz00_2433 = 
(obj_t)(BgL_new1613z00_2430); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2433); BUNSPEC; } 
BgL_res3688z00_2434 = BgL_new1613z00_2430; } 
BgL_auxz00_3117 = BgL_res3688z00_2434; } 
return 
(obj_t)(BgL_auxz00_3117);} } 
}



/* fun? */
BGL_EXPORTED_DEF bool_t BGl_funzf3zf3zzast_varz00(obj_t BgL_obj1531z00_154)
{ AN_OBJECT;
{ /* ./Ast/var.scm 73 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1531z00_154, BGl_funz00zzast_varz00);} 
}



/* _fun? */
obj_t BGl__funzf3zf3zzast_varz00(obj_t BgL_envz00_2049, obj_t BgL_obj1531z00_2050)
{ AN_OBJECT;
{ /* ./Ast/var.scm 73 */
{ /* ./Ast/var.scm 73 */
bool_t BgL_auxz00_3129;
BgL_auxz00_3129 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1531z00_2050, BGl_funz00zzast_varz00); 
return 
BBOOL(BgL_auxz00_3129);} } 
}



/* make-fun */
BGL_EXPORTED_DEF BgL_funz00_bglt BGl_makezd2funzd2zzast_varz00(long BgL_arity1475z00_158, obj_t BgL_sidezd2effectzf31476z21_159, obj_t BgL_predicatezd2of1477zd2_160, obj_t BgL_stackzd2allocator1478zd2_161, bool_t BgL_topzf31479zf3_162, obj_t BgL_thezd2closure1480zd2_163, obj_t BgL_effect1481z00_164)
{ AN_OBJECT;
{ /* ./Ast/var.scm 73 */
{ /* ./Ast/var.scm 73 */
BgL_funz00_bglt BgL_new1482z00_1198;
{ /* ./Ast/var.scm 73 */
BgL_funz00_bglt BgL_res2930z00_1204;
{ /* ./Ast/var.scm 73 */
BgL_funz00_bglt BgL_new1500z00_1199;
BgL_new1500z00_1199 = 
((BgL_funz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_funz00_bgl) ))); 
{ /* ./Ast/var.scm 73 */
long BgL_arg2199z00_1200;
BgL_arg2199z00_1200 = 
BGl_classzd2numzd2zz__objectz00(BGl_funz00zzast_varz00); 
{ /* ./Ast/var.scm 73 */
BgL_objectz00_bglt BgL_objz00_1201;
BgL_objz00_1201 = 
(BgL_objectz00_bglt)(BgL_new1500z00_1199); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1201, BgL_arg2199z00_1200); } } 
{ /* ./Ast/var.scm 73 */
BgL_objectz00_bglt BgL_auxz00_3136;
BgL_auxz00_3136 = 
(BgL_objectz00_bglt)(BgL_new1500z00_1199); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3136, BFALSE); } 
{ /* ./Ast/var.scm 73 */
obj_t BgL_objz00_1203;
BgL_objz00_1203 = 
(obj_t)(BgL_new1500z00_1199); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_1203); BUNSPEC; } 
BgL_res2930z00_1204 = BgL_new1500z00_1199; } 
BgL_new1482z00_1198 = BgL_res2930z00_1204; } 
{ /* ./Ast/var.scm 73 */
BgL_funz00_bglt BgL_res2931z00_1220;
{ /* ./Ast/var.scm 73 */
BgL_funz00_bglt BgL_new1491z00_1205;
BgL_new1491z00_1205 = BgL_new1482z00_1198; 
{ /* ./Ast/var.scm 73 */
long BgL_arity1484z00_1213;obj_t BgL_sidezd2effectzf31485z21_1214;obj_t BgL_predicatezd2of1486zd2_1215;obj_t BgL_stackzd2allocator1487zd2_1216;bool_t BgL_topzf31488zf3_1217;obj_t BgL_thezd2closure1489zd2_1218;obj_t BgL_effect1490z00_1219;
BgL_arity1484z00_1213 = BgL_arity1475z00_158; 
BgL_sidezd2effectzf31485z21_1214 = BgL_sidezd2effectzf31476z21_159; 
BgL_predicatezd2of1486zd2_1215 = BgL_predicatezd2of1477zd2_160; 
BgL_stackzd2allocator1487zd2_1216 = BgL_stackzd2allocator1478zd2_161; 
BgL_topzf31488zf3_1217 = BgL_topzf31479zf3_162; 
BgL_thezd2closure1489zd2_1218 = BgL_thezd2closure1480zd2_163; 
BgL_effect1490z00_1219 = BgL_effect1481z00_164; 
((((BgL_funz00_bglt)CREF(BgL_new1491z00_1205))->BgL_arityz00) = ((long)BgL_arity1484z00_1213), BUNSPEC); 
((((BgL_funz00_bglt)CREF(BgL_new1491z00_1205))->BgL_sidezd2effectzf3z21) = ((obj_t)BgL_sidezd2effectzf31485z21_1214), BUNSPEC); 
((((BgL_funz00_bglt)CREF(BgL_new1491z00_1205))->BgL_predicatezd2ofzd2) = ((obj_t)BgL_predicatezd2of1486zd2_1215), BUNSPEC); 
((((BgL_funz00_bglt)CREF(BgL_new1491z00_1205))->BgL_stackzd2allocatorzd2) = ((obj_t)BgL_stackzd2allocator1487zd2_1216), BUNSPEC); 
((((BgL_funz00_bglt)CREF(BgL_new1491z00_1205))->BgL_topzf3zf3) = ((bool_t)BgL_topzf31488zf3_1217), BUNSPEC); 
((((BgL_funz00_bglt)CREF(BgL_new1491z00_1205))->BgL_thezd2closurezd2) = ((obj_t)BgL_thezd2closure1489zd2_1218), BUNSPEC); 
((((BgL_funz00_bglt)CREF(BgL_new1491z00_1205))->BgL_effectz00) = ((obj_t)BgL_effect1490z00_1219), BUNSPEC); 
BgL_res2931z00_1220 = BgL_new1491z00_1205; } } BgL_res2931z00_1220; } 
return BgL_new1482z00_1198;} } 
}



/* _make-fun2987 */
obj_t BGl__makezd2fun2987zd2zzast_varz00(obj_t BgL_envz00_2051, obj_t BgL_arity1475z00_2052, obj_t BgL_sidezd2effectzf31476z21_2053, obj_t BgL_predicatezd2of1477zd2_2054, obj_t BgL_stackzd2allocator1478zd2_2055, obj_t BgL_topzf31479zf3_2056, obj_t BgL_thezd2closure1480zd2_2057, obj_t BgL_effect1481z00_2058)
{ AN_OBJECT;
{ /* ./Ast/var.scm 73 */
{ /* ./Ast/var.scm 73 */
BgL_funz00_bglt BgL_auxz00_3148;
BgL_auxz00_3148 = 
BGl_makezd2funzd2zzast_varz00(
(long)CINT(BgL_arity1475z00_2052), BgL_sidezd2effectzf31476z21_2053, BgL_predicatezd2of1477zd2_2054, BgL_stackzd2allocator1478zd2_2055, 
CBOOL(BgL_topzf31479zf3_2056), BgL_thezd2closure1480zd2_2057, BgL_effect1481z00_2058); 
return 
(obj_t)(BgL_auxz00_3148);} } 
}



/* fill-fun! */
BGL_EXPORTED_DEF BgL_funz00_bglt BGl_fillzd2funz12zc0zzast_varz00(BgL_funz00_bglt BgL_new1491z00_165, long BgL_arity1484z00_166, obj_t BgL_sidezd2effectzf31485z21_167, obj_t BgL_predicatezd2of1486zd2_168, obj_t BgL_stackzd2allocator1487zd2_169, bool_t BgL_topzf31488zf3_170, obj_t BgL_thezd2closure1489zd2_171, obj_t BgL_effect1490z00_172)
{ AN_OBJECT;
{ /* ./Ast/var.scm 73 */
{ /* ./Ast/var.scm 73 */
long BgL_arity1484z00_2436;obj_t BgL_sidezd2effectzf31485z21_2437;obj_t BgL_predicatezd2of1486zd2_2438;obj_t BgL_stackzd2allocator1487zd2_2439;bool_t BgL_topzf31488zf3_2440;obj_t BgL_thezd2closure1489zd2_2441;obj_t BgL_effect1490z00_2442;
BgL_arity1484z00_2436 = BgL_arity1484z00_166; 
BgL_sidezd2effectzf31485z21_2437 = BgL_sidezd2effectzf31485z21_167; 
BgL_predicatezd2of1486zd2_2438 = BgL_predicatezd2of1486zd2_168; 
BgL_stackzd2allocator1487zd2_2439 = BgL_stackzd2allocator1487zd2_169; 
BgL_topzf31488zf3_2440 = BgL_topzf31488zf3_170; 
BgL_thezd2closure1489zd2_2441 = BgL_thezd2closure1489zd2_171; 
BgL_effect1490z00_2442 = BgL_effect1490z00_172; 
((((BgL_funz00_bglt)CREF(BgL_new1491z00_165))->BgL_arityz00) = ((long)BgL_arity1484z00_2436), BUNSPEC); 
((((BgL_funz00_bglt)CREF(BgL_new1491z00_165))->BgL_sidezd2effectzf3z21) = ((obj_t)BgL_sidezd2effectzf31485z21_2437), BUNSPEC); 
((((BgL_funz00_bglt)CREF(BgL_new1491z00_165))->BgL_predicatezd2ofzd2) = ((obj_t)BgL_predicatezd2of1486zd2_2438), BUNSPEC); 
((((BgL_funz00_bglt)CREF(BgL_new1491z00_165))->BgL_stackzd2allocatorzd2) = ((obj_t)BgL_stackzd2allocator1487zd2_2439), BUNSPEC); 
((((BgL_funz00_bglt)CREF(BgL_new1491z00_165))->BgL_topzf3zf3) = ((bool_t)BgL_topzf31488zf3_2440), BUNSPEC); 
((((BgL_funz00_bglt)CREF(BgL_new1491z00_165))->BgL_thezd2closurezd2) = ((obj_t)BgL_thezd2closure1489zd2_2441), BUNSPEC); 
((((BgL_funz00_bglt)CREF(BgL_new1491z00_165))->BgL_effectz00) = ((obj_t)BgL_effect1490z00_2442), BUNSPEC); 
return BgL_new1491z00_165;} } 
}



/* _fill-fun!2989 */
obj_t BGl__fillzd2funz122989zc0zzast_varz00(obj_t BgL_envz00_2059, obj_t BgL_new1491z00_2060, obj_t BgL_arity1484z00_2061, obj_t BgL_sidezd2effectzf31485z21_2062, obj_t BgL_predicatezd2of1486zd2_2063, obj_t BgL_stackzd2allocator1487zd2_2064, obj_t BgL_topzf31488zf3_2065, obj_t BgL_thezd2closure1489zd2_2066, obj_t BgL_effect1490z00_2067)
{ AN_OBJECT;
{ /* ./Ast/var.scm 73 */
{ /* ./Ast/var.scm 73 */
BgL_funz00_bglt BgL_auxz00_3160;
{ /* ./Ast/var.scm 73 */
BgL_funz00_bglt BgL_res3689z00_2458;
{ /* ./Ast/var.scm 73 */
BgL_funz00_bglt BgL_new1491z00_2443;long BgL_arity1484z00_2444;bool_t BgL_topzf31488zf3_2448;
BgL_new1491z00_2443 = 
(BgL_funz00_bglt)(BgL_new1491z00_2060); 
BgL_arity1484z00_2444 = 
(long)CINT(BgL_arity1484z00_2061); 
BgL_topzf31488zf3_2448 = 
CBOOL(BgL_topzf31488zf3_2065); 
{ /* ./Ast/var.scm 73 */
long BgL_arity1484z00_2451;obj_t BgL_sidezd2effectzf31485z21_2452;obj_t BgL_predicatezd2of1486zd2_2453;obj_t BgL_stackzd2allocator1487zd2_2454;bool_t BgL_topzf31488zf3_2455;obj_t BgL_thezd2closure1489zd2_2456;obj_t BgL_effect1490z00_2457;
BgL_arity1484z00_2451 = BgL_arity1484z00_2444; 
BgL_sidezd2effectzf31485z21_2452 = BgL_sidezd2effectzf31485z21_2062; 
BgL_predicatezd2of1486zd2_2453 = BgL_predicatezd2of1486zd2_2063; 
BgL_stackzd2allocator1487zd2_2454 = BgL_stackzd2allocator1487zd2_2064; 
BgL_topzf31488zf3_2455 = BgL_topzf31488zf3_2448; 
BgL_thezd2closure1489zd2_2456 = BgL_thezd2closure1489zd2_2066; 
BgL_effect1490z00_2457 = BgL_effect1490z00_2067; 
((((BgL_funz00_bglt)CREF(BgL_new1491z00_2443))->BgL_arityz00) = ((long)BgL_arity1484z00_2451), BUNSPEC); 
((((BgL_funz00_bglt)CREF(BgL_new1491z00_2443))->BgL_sidezd2effectzf3z21) = ((obj_t)BgL_sidezd2effectzf31485z21_2452), BUNSPEC); 
((((BgL_funz00_bglt)CREF(BgL_new1491z00_2443))->BgL_predicatezd2ofzd2) = ((obj_t)BgL_predicatezd2of1486zd2_2453), BUNSPEC); 
((((BgL_funz00_bglt)CREF(BgL_new1491z00_2443))->BgL_stackzd2allocatorzd2) = ((obj_t)BgL_stackzd2allocator1487zd2_2454), BUNSPEC); 
((((BgL_funz00_bglt)CREF(BgL_new1491z00_2443))->BgL_topzf3zf3) = ((bool_t)BgL_topzf31488zf3_2455), BUNSPEC); 
((((BgL_funz00_bglt)CREF(BgL_new1491z00_2443))->BgL_thezd2closurezd2) = ((obj_t)BgL_thezd2closure1489zd2_2456), BUNSPEC); 
((((BgL_funz00_bglt)CREF(BgL_new1491z00_2443))->BgL_effectz00) = ((obj_t)BgL_effect1490z00_2457), BUNSPEC); 
BgL_res3689z00_2458 = BgL_new1491z00_2443; } } 
BgL_auxz00_3160 = BgL_res3689z00_2458; } 
return 
(obj_t)(BgL_auxz00_3160);} } 
}



/* allocate-fun */
BGL_EXPORTED_DEF BgL_funz00_bglt BGl_allocatezd2funzd2zzast_varz00()
{ AN_OBJECT;
{ /* ./Ast/var.scm 73 */
{ /* ./Ast/var.scm 73 */
BgL_funz00_bglt BgL_new1500z00_2459;
BgL_new1500z00_2459 = 
((BgL_funz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_funz00_bgl) ))); 
{ /* ./Ast/var.scm 73 */
long BgL_arg2199z00_2460;
BgL_arg2199z00_2460 = 
BGl_classzd2numzd2zz__objectz00(BGl_funz00zzast_varz00); 
{ /* ./Ast/var.scm 73 */
BgL_objectz00_bglt BgL_objz00_2461;
BgL_objz00_2461 = 
(BgL_objectz00_bglt)(BgL_new1500z00_2459); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2461, BgL_arg2199z00_2460); } } 
{ /* ./Ast/var.scm 73 */
BgL_objectz00_bglt BgL_auxz00_3176;
BgL_auxz00_3176 = 
(BgL_objectz00_bglt)(BgL_new1500z00_2459); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3176, BFALSE); } 
{ /* ./Ast/var.scm 73 */
obj_t BgL_objz00_2462;
BgL_objz00_2462 = 
(obj_t)(BgL_new1500z00_2459); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2462); BUNSPEC; } 
return BgL_new1500z00_2459;} } 
}



/* _allocate-fun */
obj_t BGl__allocatezd2funzd2zzast_varz00(obj_t BgL_envz00_1940)
{ AN_OBJECT;
{ /* ./Ast/var.scm 73 */
{ /* ./Ast/var.scm 73 */
BgL_funz00_bglt BgL_auxz00_3181;
{ /* ./Ast/var.scm 73 */
BgL_funz00_bglt BgL_res3690z00_2467;
{ /* ./Ast/var.scm 73 */
BgL_funz00_bglt BgL_new1500z00_2463;
BgL_new1500z00_2463 = 
((BgL_funz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_funz00_bgl) ))); 
{ /* ./Ast/var.scm 73 */
long BgL_arg2199z00_2464;
BgL_arg2199z00_2464 = 
BGl_classzd2numzd2zz__objectz00(BGl_funz00zzast_varz00); 
{ /* ./Ast/var.scm 73 */
BgL_objectz00_bglt BgL_objz00_2465;
BgL_objz00_2465 = 
(BgL_objectz00_bglt)(BgL_new1500z00_2463); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2465, BgL_arg2199z00_2464); } } 
{ /* ./Ast/var.scm 73 */
BgL_objectz00_bglt BgL_auxz00_3186;
BgL_auxz00_3186 = 
(BgL_objectz00_bglt)(BgL_new1500z00_2463); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3186, BFALSE); } 
{ /* ./Ast/var.scm 73 */
obj_t BgL_objz00_2466;
BgL_objz00_2466 = 
(obj_t)(BgL_new1500z00_2463); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2466); BUNSPEC; } 
BgL_res3690z00_2467 = BgL_new1500z00_2463; } 
BgL_auxz00_3181 = BgL_res3690z00_2467; } 
return 
(obj_t)(BgL_auxz00_3181);} } 
}



/* local? */
BGL_EXPORTED_DEF bool_t BGl_localzf3zf3zzast_varz00(obj_t BgL_obj1454z00_192)
{ AN_OBJECT;
{ /* ./Ast/var.scm 67 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1454z00_192, BGl_localz00zzast_varz00);} 
}



/* _local? */
obj_t BGl__localzf3zf3zzast_varz00(obj_t BgL_envz00_2068, obj_t BgL_obj1454z00_2069)
{ AN_OBJECT;
{ /* ./Ast/var.scm 67 */
{ /* ./Ast/var.scm 67 */
bool_t BgL_auxz00_3193;
BgL_auxz00_3193 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1454z00_2069, BGl_localz00zzast_varz00); 
return 
BBOOL(BgL_auxz00_3193);} } 
}



/* make-local */
BGL_EXPORTED_DEF BgL_localz00_bglt BGl_makezd2localzd2zzast_varz00(obj_t BgL_id1377z00_196, obj_t BgL_name1378z00_197, BgL_typez00_bglt BgL_type1379z00_198, BgL_valuez00_bglt BgL_value1380z00_199, obj_t BgL_access1381z00_200, obj_t BgL_fastzd2alpha1382zd2_201, obj_t BgL_removable1383z00_202, long BgL_occurrence1384z00_203, bool_t BgL_userzf31385zf3_204, long BgL_key1386z00_205)
{ AN_OBJECT;
{ /* ./Ast/var.scm 67 */
{ /* ./Ast/var.scm 67 */
BgL_localz00_bglt BgL_new1387z00_1233;
{ /* ./Ast/var.scm 67 */
BgL_localz00_bglt BgL_res2932z00_1239;
{ /* ./Ast/var.scm 67 */
BgL_localz00_bglt BgL_new1411z00_1234;
BgL_new1411z00_1234 = 
((BgL_localz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_localz00_bgl) ))); 
{ /* ./Ast/var.scm 67 */
long BgL_arg2209z00_1235;
BgL_arg2209z00_1235 = 
BGl_classzd2numzd2zz__objectz00(BGl_localz00zzast_varz00); 
{ /* ./Ast/var.scm 67 */
BgL_objectz00_bglt BgL_objz00_1236;
BgL_objz00_1236 = 
(BgL_objectz00_bglt)(BgL_new1411z00_1234); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1236, BgL_arg2209z00_1235); } } 
{ /* ./Ast/var.scm 67 */
BgL_objectz00_bglt BgL_auxz00_3200;
BgL_auxz00_3200 = 
(BgL_objectz00_bglt)(BgL_new1411z00_1234); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3200, BFALSE); } 
{ /* ./Ast/var.scm 67 */
obj_t BgL_objz00_1238;
BgL_objz00_1238 = 
(obj_t)(BgL_new1411z00_1234); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_1238); BUNSPEC; } 
BgL_res2932z00_1239 = BgL_new1411z00_1234; } 
BgL_new1387z00_1233 = BgL_res2932z00_1239; } 
{ /* ./Ast/var.scm 67 */
BgL_localz00_bglt BgL_res2933z00_1261;
{ /* ./Ast/var.scm 67 */
BgL_localz00_bglt BgL_new1399z00_1240;
BgL_new1399z00_1240 = BgL_new1387z00_1233; 
{ /* ./Ast/var.scm 67 */
obj_t BgL_id1389z00_1251;obj_t BgL_name1390z00_1252;BgL_typez00_bglt BgL_type1391z00_1253;BgL_valuez00_bglt BgL_value1392z00_1254;obj_t BgL_access1393z00_1255;obj_t BgL_fastzd2alpha1394zd2_1256;obj_t BgL_removable1395z00_1257;long BgL_occurrence1396z00_1258;bool_t BgL_userzf31397zf3_1259;long BgL_key1398z00_1260;
BgL_id1389z00_1251 = BgL_id1377z00_196; 
BgL_name1390z00_1252 = BgL_name1378z00_197; 
BgL_type1391z00_1253 = BgL_type1379z00_198; 
BgL_value1392z00_1254 = BgL_value1380z00_199; 
BgL_access1393z00_1255 = BgL_access1381z00_200; 
BgL_fastzd2alpha1394zd2_1256 = BgL_fastzd2alpha1382zd2_201; 
BgL_removable1395z00_1257 = BgL_removable1383z00_202; 
BgL_occurrence1396z00_1258 = BgL_occurrence1384z00_203; 
BgL_userzf31397zf3_1259 = BgL_userzf31385zf3_204; 
BgL_key1398z00_1260 = BgL_key1386z00_205; 
((((BgL_localz00_bglt)CREF(BgL_new1399z00_1240))->BgL_idz00) = ((obj_t)BgL_id1389z00_1251), BUNSPEC); 
((((BgL_localz00_bglt)CREF(BgL_new1399z00_1240))->BgL_namez00) = ((obj_t)BgL_name1390z00_1252), BUNSPEC); 
((((BgL_localz00_bglt)CREF(BgL_new1399z00_1240))->BgL_typez00) = ((BgL_typez00_bglt)BgL_type1391z00_1253), BUNSPEC); 
((((BgL_localz00_bglt)CREF(BgL_new1399z00_1240))->BgL_valuez00) = ((BgL_valuez00_bglt)BgL_value1392z00_1254), BUNSPEC); 
((((BgL_localz00_bglt)CREF(BgL_new1399z00_1240))->BgL_accessz00) = ((obj_t)BgL_access1393z00_1255), BUNSPEC); 
((((BgL_localz00_bglt)CREF(BgL_new1399z00_1240))->BgL_fastzd2alphazd2) = ((obj_t)BgL_fastzd2alpha1394zd2_1256), BUNSPEC); 
((((BgL_localz00_bglt)CREF(BgL_new1399z00_1240))->BgL_removablez00) = ((obj_t)BgL_removable1395z00_1257), BUNSPEC); 
((((BgL_localz00_bglt)CREF(BgL_new1399z00_1240))->BgL_occurrencez00) = ((long)BgL_occurrence1396z00_1258), BUNSPEC); 
((((BgL_localz00_bglt)CREF(BgL_new1399z00_1240))->BgL_userzf3zf3) = ((bool_t)BgL_userzf31397zf3_1259), BUNSPEC); 
((((BgL_localz00_bglt)CREF(BgL_new1399z00_1240))->BgL_keyz00) = ((long)BgL_key1398z00_1260), BUNSPEC); 
BgL_res2933z00_1261 = BgL_new1399z00_1240; } } BgL_res2933z00_1261; } 
return BgL_new1387z00_1233;} } 
}



/* _make-local2992 */
obj_t BGl__makezd2local2992zd2zzast_varz00(obj_t BgL_envz00_2070, obj_t BgL_id1377z00_2071, obj_t BgL_name1378z00_2072, obj_t BgL_type1379z00_2073, obj_t BgL_value1380z00_2074, obj_t BgL_access1381z00_2075, obj_t BgL_fastzd2alpha1382zd2_2076, obj_t BgL_removable1383z00_2077, obj_t BgL_occurrence1384z00_2078, obj_t BgL_userzf31385zf3_2079, obj_t BgL_key1386z00_2080)
{ AN_OBJECT;
{ /* ./Ast/var.scm 67 */
{ /* ./Ast/var.scm 67 */
BgL_localz00_bglt BgL_auxz00_3215;
BgL_auxz00_3215 = 
BGl_makezd2localzd2zzast_varz00(BgL_id1377z00_2071, BgL_name1378z00_2072, 
(BgL_typez00_bglt)(BgL_type1379z00_2073), 
(BgL_valuez00_bglt)(BgL_value1380z00_2074), BgL_access1381z00_2075, BgL_fastzd2alpha1382zd2_2076, BgL_removable1383z00_2077, 
(long)CINT(BgL_occurrence1384z00_2078), 
CBOOL(BgL_userzf31385zf3_2079), 
(long)CINT(BgL_key1386z00_2080)); 
return 
(obj_t)(BgL_auxz00_3215);} } 
}



/* fill-local! */
BGL_EXPORTED_DEF BgL_localz00_bglt BGl_fillzd2localz12zc0zzast_varz00(BgL_localz00_bglt BgL_new1399z00_206, obj_t BgL_id1389z00_207, obj_t BgL_name1390z00_208, BgL_typez00_bglt BgL_type1391z00_209, BgL_valuez00_bglt BgL_value1392z00_210, obj_t BgL_access1393z00_211, obj_t BgL_fastzd2alpha1394zd2_212, obj_t BgL_removable1395z00_213, long BgL_occurrence1396z00_214, bool_t BgL_userzf31397zf3_215, long BgL_key1398z00_216)
{ AN_OBJECT;
{ /* ./Ast/var.scm 67 */
{ /* ./Ast/var.scm 67 */
obj_t BgL_id1389z00_2469;obj_t BgL_name1390z00_2470;BgL_typez00_bglt BgL_type1391z00_2471;BgL_valuez00_bglt BgL_value1392z00_2472;obj_t BgL_access1393z00_2473;obj_t BgL_fastzd2alpha1394zd2_2474;obj_t BgL_removable1395z00_2475;long BgL_occurrence1396z00_2476;bool_t BgL_userzf31397zf3_2477;long BgL_key1398z00_2478;
BgL_id1389z00_2469 = BgL_id1389z00_207; 
BgL_name1390z00_2470 = BgL_name1390z00_208; 
BgL_type1391z00_2471 = BgL_type1391z00_209; 
BgL_value1392z00_2472 = BgL_value1392z00_210; 
BgL_access1393z00_2473 = BgL_access1393z00_211; 
BgL_fastzd2alpha1394zd2_2474 = BgL_fastzd2alpha1394zd2_212; 
BgL_removable1395z00_2475 = BgL_removable1395z00_213; 
BgL_occurrence1396z00_2476 = BgL_occurrence1396z00_214; 
BgL_userzf31397zf3_2477 = BgL_userzf31397zf3_215; 
BgL_key1398z00_2478 = BgL_key1398z00_216; 
((((BgL_localz00_bglt)CREF(BgL_new1399z00_206))->BgL_idz00) = ((obj_t)BgL_id1389z00_2469), BUNSPEC); 
((((BgL_localz00_bglt)CREF(BgL_new1399z00_206))->BgL_namez00) = ((obj_t)BgL_name1390z00_2470), BUNSPEC); 
((((BgL_localz00_bglt)CREF(BgL_new1399z00_206))->BgL_typez00) = ((BgL_typez00_bglt)BgL_type1391z00_2471), BUNSPEC); 
((((BgL_localz00_bglt)CREF(BgL_new1399z00_206))->BgL_valuez00) = ((BgL_valuez00_bglt)BgL_value1392z00_2472), BUNSPEC); 
((((BgL_localz00_bglt)CREF(BgL_new1399z00_206))->BgL_accessz00) = ((obj_t)BgL_access1393z00_2473), BUNSPEC); 
((((BgL_localz00_bglt)CREF(BgL_new1399z00_206))->BgL_fastzd2alphazd2) = ((obj_t)BgL_fastzd2alpha1394zd2_2474), BUNSPEC); 
((((BgL_localz00_bglt)CREF(BgL_new1399z00_206))->BgL_removablez00) = ((obj_t)BgL_removable1395z00_2475), BUNSPEC); 
((((BgL_localz00_bglt)CREF(BgL_new1399z00_206))->BgL_occurrencez00) = ((long)BgL_occurrence1396z00_2476), BUNSPEC); 
((((BgL_localz00_bglt)CREF(BgL_new1399z00_206))->BgL_userzf3zf3) = ((bool_t)BgL_userzf31397zf3_2477), BUNSPEC); 
((((BgL_localz00_bglt)CREF(BgL_new1399z00_206))->BgL_keyz00) = ((long)BgL_key1398z00_2478), BUNSPEC); 
return BgL_new1399z00_206;} } 
}



/* _fill-local!2994 */
obj_t BGl__fillzd2localz122994zc0zzast_varz00(obj_t BgL_envz00_2081, obj_t BgL_new1399z00_2082, obj_t BgL_id1389z00_2083, obj_t BgL_name1390z00_2084, obj_t BgL_type1391z00_2085, obj_t BgL_value1392z00_2086, obj_t BgL_access1393z00_2087, obj_t BgL_fastzd2alpha1394zd2_2088, obj_t BgL_removable1395z00_2089, obj_t BgL_occurrence1396z00_2090, obj_t BgL_userzf31397zf3_2091, obj_t BgL_key1398z00_2092)
{ AN_OBJECT;
{ /* ./Ast/var.scm 67 */
{ /* ./Ast/var.scm 67 */
BgL_localz00_bglt BgL_auxz00_3233;
{ /* ./Ast/var.scm 67 */
BgL_localz00_bglt BgL_res3691z00_2500;
{ /* ./Ast/var.scm 67 */
BgL_localz00_bglt BgL_new1399z00_2479;BgL_typez00_bglt BgL_type1391z00_2482;BgL_valuez00_bglt BgL_value1392z00_2483;long BgL_occurrence1396z00_2487;bool_t BgL_userzf31397zf3_2488;long BgL_key1398z00_2489;
BgL_new1399z00_2479 = 
(BgL_localz00_bglt)(BgL_new1399z00_2082); 
BgL_type1391z00_2482 = 
(BgL_typez00_bglt)(BgL_type1391z00_2085); 
BgL_value1392z00_2483 = 
(BgL_valuez00_bglt)(BgL_value1392z00_2086); 
BgL_occurrence1396z00_2487 = 
(long)CINT(BgL_occurrence1396z00_2090); 
BgL_userzf31397zf3_2488 = 
CBOOL(BgL_userzf31397zf3_2091); 
BgL_key1398z00_2489 = 
(long)CINT(BgL_key1398z00_2092); 
{ /* ./Ast/var.scm 67 */
obj_t BgL_id1389z00_2490;obj_t BgL_name1390z00_2491;BgL_typez00_bglt BgL_type1391z00_2492;BgL_valuez00_bglt BgL_value1392z00_2493;obj_t BgL_access1393z00_2494;obj_t BgL_fastzd2alpha1394zd2_2495;obj_t BgL_removable1395z00_2496;long BgL_occurrence1396z00_2497;bool_t BgL_userzf31397zf3_2498;long BgL_key1398z00_2499;
BgL_id1389z00_2490 = BgL_id1389z00_2083; 
BgL_name1390z00_2491 = BgL_name1390z00_2084; 
BgL_type1391z00_2492 = BgL_type1391z00_2482; 
BgL_value1392z00_2493 = BgL_value1392z00_2483; 
BgL_access1393z00_2494 = BgL_access1393z00_2087; 
BgL_fastzd2alpha1394zd2_2495 = BgL_fastzd2alpha1394zd2_2088; 
BgL_removable1395z00_2496 = BgL_removable1395z00_2089; 
BgL_occurrence1396z00_2497 = BgL_occurrence1396z00_2487; 
BgL_userzf31397zf3_2498 = BgL_userzf31397zf3_2488; 
BgL_key1398z00_2499 = BgL_key1398z00_2489; 
((((BgL_localz00_bglt)CREF(BgL_new1399z00_2479))->BgL_idz00) = ((obj_t)BgL_id1389z00_2490), BUNSPEC); 
((((BgL_localz00_bglt)CREF(BgL_new1399z00_2479))->BgL_namez00) = ((obj_t)BgL_name1390z00_2491), BUNSPEC); 
((((BgL_localz00_bglt)CREF(BgL_new1399z00_2479))->BgL_typez00) = ((BgL_typez00_bglt)BgL_type1391z00_2492), BUNSPEC); 
((((BgL_localz00_bglt)CREF(BgL_new1399z00_2479))->BgL_valuez00) = ((BgL_valuez00_bglt)BgL_value1392z00_2493), BUNSPEC); 
((((BgL_localz00_bglt)CREF(BgL_new1399z00_2479))->BgL_accessz00) = ((obj_t)BgL_access1393z00_2494), BUNSPEC); 
((((BgL_localz00_bglt)CREF(BgL_new1399z00_2479))->BgL_fastzd2alphazd2) = ((obj_t)BgL_fastzd2alpha1394zd2_2495), BUNSPEC); 
((((BgL_localz00_bglt)CREF(BgL_new1399z00_2479))->BgL_removablez00) = ((obj_t)BgL_removable1395z00_2496), BUNSPEC); 
((((BgL_localz00_bglt)CREF(BgL_new1399z00_2479))->BgL_occurrencez00) = ((long)BgL_occurrence1396z00_2497), BUNSPEC); 
((((BgL_localz00_bglt)CREF(BgL_new1399z00_2479))->BgL_userzf3zf3) = ((bool_t)BgL_userzf31397zf3_2498), BUNSPEC); 
((((BgL_localz00_bglt)CREF(BgL_new1399z00_2479))->BgL_keyz00) = ((long)BgL_key1398z00_2499), BUNSPEC); 
BgL_res3691z00_2500 = BgL_new1399z00_2479; } } 
BgL_auxz00_3233 = BgL_res3691z00_2500; } 
return 
(obj_t)(BgL_auxz00_3233);} } 
}



/* allocate-local */
BGL_EXPORTED_DEF BgL_localz00_bglt BGl_allocatezd2localzd2zzast_varz00()
{ AN_OBJECT;
{ /* ./Ast/var.scm 67 */
{ /* ./Ast/var.scm 67 */
BgL_localz00_bglt BgL_new1411z00_2501;
BgL_new1411z00_2501 = 
((BgL_localz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_localz00_bgl) ))); 
{ /* ./Ast/var.scm 67 */
long BgL_arg2209z00_2502;
BgL_arg2209z00_2502 = 
BGl_classzd2numzd2zz__objectz00(BGl_localz00zzast_varz00); 
{ /* ./Ast/var.scm 67 */
BgL_objectz00_bglt BgL_objz00_2503;
BgL_objz00_2503 = 
(BgL_objectz00_bglt)(BgL_new1411z00_2501); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2503, BgL_arg2209z00_2502); } } 
{ /* ./Ast/var.scm 67 */
BgL_objectz00_bglt BgL_auxz00_3255;
BgL_auxz00_3255 = 
(BgL_objectz00_bglt)(BgL_new1411z00_2501); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3255, BFALSE); } 
{ /* ./Ast/var.scm 67 */
obj_t BgL_objz00_2504;
BgL_objz00_2504 = 
(obj_t)(BgL_new1411z00_2501); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2504); BUNSPEC; } 
return BgL_new1411z00_2501;} } 
}



/* _allocate-local */
obj_t BGl__allocatezd2localzd2zzast_varz00(obj_t BgL_envz00_1939)
{ AN_OBJECT;
{ /* ./Ast/var.scm 67 */
{ /* ./Ast/var.scm 67 */
BgL_localz00_bglt BgL_auxz00_3260;
{ /* ./Ast/var.scm 67 */
BgL_localz00_bglt BgL_res3692z00_2509;
{ /* ./Ast/var.scm 67 */
BgL_localz00_bglt BgL_new1411z00_2505;
BgL_new1411z00_2505 = 
((BgL_localz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_localz00_bgl) ))); 
{ /* ./Ast/var.scm 67 */
long BgL_arg2209z00_2506;
BgL_arg2209z00_2506 = 
BGl_classzd2numzd2zz__objectz00(BGl_localz00zzast_varz00); 
{ /* ./Ast/var.scm 67 */
BgL_objectz00_bglt BgL_objz00_2507;
BgL_objz00_2507 = 
(BgL_objectz00_bglt)(BgL_new1411z00_2505); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2507, BgL_arg2209z00_2506); } } 
{ /* ./Ast/var.scm 67 */
BgL_objectz00_bglt BgL_auxz00_3265;
BgL_auxz00_3265 = 
(BgL_objectz00_bglt)(BgL_new1411z00_2505); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3265, BFALSE); } 
{ /* ./Ast/var.scm 67 */
obj_t BgL_objz00_2508;
BgL_objz00_2508 = 
(obj_t)(BgL_new1411z00_2505); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2508); BUNSPEC; } 
BgL_res3692z00_2509 = BgL_new1411z00_2505; } 
BgL_auxz00_3260 = BgL_res3692z00_2509; } 
return 
(obj_t)(BgL_auxz00_3260);} } 
}



/* global? */
BGL_EXPORTED_DEF bool_t BGl_globalzf3zf3zzast_varz00(obj_t BgL_obj1349z00_221)
{ AN_OBJECT;
{ /* ./Ast/var.scm 40 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1349z00_221, BGl_globalz00zzast_varz00);} 
}



/* _global? */
obj_t BGl__globalzf3zf3zzast_varz00(obj_t BgL_envz00_2093, obj_t BgL_obj1349z00_2094)
{ AN_OBJECT;
{ /* ./Ast/var.scm 40 */
{ /* ./Ast/var.scm 40 */
bool_t BgL_auxz00_3272;
BgL_auxz00_3272 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1349z00_2094, BGl_globalz00zzast_varz00); 
return 
BBOOL(BgL_auxz00_3272);} } 
}



/* make-global */
BGL_EXPORTED_DEF BgL_globalz00_bglt BGl_makezd2globalzd2zzast_varz00(obj_t BgL_id1230z00_225, obj_t BgL_name1231z00_226, BgL_typez00_bglt BgL_type1232z00_227, BgL_valuez00_bglt BgL_value1233z00_228, obj_t BgL_access1234z00_229, obj_t BgL_fastzd2alpha1235zd2_230, obj_t BgL_removable1236z00_231, long BgL_occurrence1237z00_232, obj_t BgL_module1238z00_233, obj_t BgL_import1239z00_234, bool_t BgL_evaluablezf31240zf3_235, bool_t BgL_libraryzf31241zf3_236, bool_t BgL_userzf31242zf3_237, obj_t BgL_pragma1243z00_238, obj_t BgL_src1244z00_239, obj_t BgL_jvmzd2typezd2name1245z00_240)
{ AN_OBJECT;
{ /* ./Ast/var.scm 40 */
{ /* ./Ast/var.scm 40 */
BgL_globalz00_bglt BgL_new1246z00_1277;
{ /* ./Ast/var.scm 40 */
BgL_globalz00_bglt BgL_res2934z00_1283;
{ /* ./Ast/var.scm 40 */
BgL_globalz00_bglt BgL_new1282z00_1278;
BgL_new1282z00_1278 = 
((BgL_globalz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_globalz00_bgl) ))); 
{ /* ./Ast/var.scm 40 */
long BgL_arg2218z00_1279;
BgL_arg2218z00_1279 = 
BGl_classzd2numzd2zz__objectz00(BGl_globalz00zzast_varz00); 
{ /* ./Ast/var.scm 40 */
BgL_objectz00_bglt BgL_objz00_1280;
BgL_objz00_1280 = 
(BgL_objectz00_bglt)(BgL_new1282z00_1278); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1280, BgL_arg2218z00_1279); } } 
{ /* ./Ast/var.scm 40 */
BgL_objectz00_bglt BgL_auxz00_3279;
BgL_auxz00_3279 = 
(BgL_objectz00_bglt)(BgL_new1282z00_1278); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3279, BFALSE); } 
{ /* ./Ast/var.scm 40 */
obj_t BgL_objz00_1282;
BgL_objz00_1282 = 
(obj_t)(BgL_new1282z00_1278); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_1282); BUNSPEC; } 
BgL_res2934z00_1283 = BgL_new1282z00_1278; } 
BgL_new1246z00_1277 = BgL_res2934z00_1283; } 
{ /* ./Ast/var.scm 40 */
BgL_globalz00_bglt BgL_res2935z00_1317;
{ /* ./Ast/var.scm 40 */
BgL_globalz00_bglt BgL_new1264z00_1284;
BgL_new1264z00_1284 = BgL_new1246z00_1277; 
{ /* ./Ast/var.scm 40 */
obj_t BgL_id1248z00_1301;obj_t BgL_name1249z00_1302;BgL_typez00_bglt BgL_type1250z00_1303;BgL_valuez00_bglt BgL_value1251z00_1304;obj_t BgL_access1252z00_1305;obj_t BgL_fastzd2alpha1253zd2_1306;obj_t BgL_removable1254z00_1307;long BgL_occurrence1255z00_1308;obj_t BgL_module1256z00_1309;obj_t BgL_import1257z00_1310;bool_t BgL_evaluablezf31258zf3_1311;bool_t BgL_libraryzf31259zf3_1312;bool_t BgL_userzf31260zf3_1313;obj_t BgL_pragma1261z00_1314;obj_t BgL_src1262z00_1315;obj_t BgL_jvmzd2typezd2name1263z00_1316;
BgL_id1248z00_1301 = BgL_id1230z00_225; 
BgL_name1249z00_1302 = BgL_name1231z00_226; 
BgL_type1250z00_1303 = BgL_type1232z00_227; 
BgL_value1251z00_1304 = BgL_value1233z00_228; 
BgL_access1252z00_1305 = BgL_access1234z00_229; 
BgL_fastzd2alpha1253zd2_1306 = BgL_fastzd2alpha1235zd2_230; 
BgL_removable1254z00_1307 = BgL_removable1236z00_231; 
BgL_occurrence1255z00_1308 = BgL_occurrence1237z00_232; 
BgL_module1256z00_1309 = BgL_module1238z00_233; 
BgL_import1257z00_1310 = BgL_import1239z00_234; 
BgL_evaluablezf31258zf3_1311 = BgL_evaluablezf31240zf3_235; 
BgL_libraryzf31259zf3_1312 = BgL_libraryzf31241zf3_236; 
BgL_userzf31260zf3_1313 = BgL_userzf31242zf3_237; 
BgL_pragma1261z00_1314 = BgL_pragma1243z00_238; 
BgL_src1262z00_1315 = BgL_src1244z00_239; 
BgL_jvmzd2typezd2name1263z00_1316 = BgL_jvmzd2typezd2name1245z00_240; 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_1284))->BgL_idz00) = ((obj_t)BgL_id1248z00_1301), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_1284))->BgL_namez00) = ((obj_t)BgL_name1249z00_1302), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_1284))->BgL_typez00) = ((BgL_typez00_bglt)BgL_type1250z00_1303), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_1284))->BgL_valuez00) = ((BgL_valuez00_bglt)BgL_value1251z00_1304), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_1284))->BgL_accessz00) = ((obj_t)BgL_access1252z00_1305), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_1284))->BgL_fastzd2alphazd2) = ((obj_t)BgL_fastzd2alpha1253zd2_1306), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_1284))->BgL_removablez00) = ((obj_t)BgL_removable1254z00_1307), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_1284))->BgL_occurrencez00) = ((long)BgL_occurrence1255z00_1308), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_1284))->BgL_modulez00) = ((obj_t)BgL_module1256z00_1309), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_1284))->BgL_importz00) = ((obj_t)BgL_import1257z00_1310), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_1284))->BgL_evaluablezf3zf3) = ((bool_t)BgL_evaluablezf31258zf3_1311), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_1284))->BgL_libraryzf3zf3) = ((bool_t)BgL_libraryzf31259zf3_1312), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_1284))->BgL_userzf3zf3) = ((bool_t)BgL_userzf31260zf3_1313), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_1284))->BgL_pragmaz00) = ((obj_t)BgL_pragma1261z00_1314), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_1284))->BgL_srcz00) = ((obj_t)BgL_src1262z00_1315), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_1284))->BgL_jvmzd2typezd2namez00) = ((obj_t)BgL_jvmzd2typezd2name1263z00_1316), BUNSPEC); 
BgL_res2935z00_1317 = BgL_new1264z00_1284; } } BgL_res2935z00_1317; } 
return BgL_new1246z00_1277;} } 
}



/* _make-global2997 */
obj_t BGl__makezd2global2997zd2zzast_varz00(obj_t BgL_envz00_2095, obj_t BgL_id1230z00_2096, obj_t BgL_name1231z00_2097, obj_t BgL_type1232z00_2098, obj_t BgL_value1233z00_2099, obj_t BgL_access1234z00_2100, obj_t BgL_fastzd2alpha1235zd2_2101, obj_t BgL_removable1236z00_2102, obj_t BgL_occurrence1237z00_2103, obj_t BgL_module1238z00_2104, obj_t BgL_import1239z00_2105, obj_t BgL_evaluablezf31240zf3_2106, obj_t BgL_libraryzf31241zf3_2107, obj_t BgL_userzf31242zf3_2108, obj_t BgL_pragma1243z00_2109, obj_t BgL_src1244z00_2110, obj_t BgL_jvmzd2typezd2name1245z00_2111)
{ AN_OBJECT;
{ /* ./Ast/var.scm 40 */
{ /* ./Ast/var.scm 40 */
BgL_globalz00_bglt BgL_auxz00_3300;
BgL_auxz00_3300 = 
BGl_makezd2globalzd2zzast_varz00(BgL_id1230z00_2096, BgL_name1231z00_2097, 
(BgL_typez00_bglt)(BgL_type1232z00_2098), 
(BgL_valuez00_bglt)(BgL_value1233z00_2099), BgL_access1234z00_2100, BgL_fastzd2alpha1235zd2_2101, BgL_removable1236z00_2102, 
(long)CINT(BgL_occurrence1237z00_2103), BgL_module1238z00_2104, BgL_import1239z00_2105, 
CBOOL(BgL_evaluablezf31240zf3_2106), 
CBOOL(BgL_libraryzf31241zf3_2107), 
CBOOL(BgL_userzf31242zf3_2108), BgL_pragma1243z00_2109, BgL_src1244z00_2110, BgL_jvmzd2typezd2name1245z00_2111); 
return 
(obj_t)(BgL_auxz00_3300);} } 
}



/* fill-global! */
BGL_EXPORTED_DEF BgL_globalz00_bglt BGl_fillzd2globalz12zc0zzast_varz00(BgL_globalz00_bglt BgL_new1264z00_241, obj_t BgL_id1248z00_242, obj_t BgL_name1249z00_243, BgL_typez00_bglt BgL_type1250z00_244, BgL_valuez00_bglt BgL_value1251z00_245, obj_t BgL_access1252z00_246, obj_t BgL_fastzd2alpha1253zd2_247, obj_t BgL_removable1254z00_248, long BgL_occurrence1255z00_249, obj_t BgL_module1256z00_250, obj_t BgL_import1257z00_251, bool_t BgL_evaluablezf31258zf3_252, bool_t BgL_libraryzf31259zf3_253, bool_t BgL_userzf31260zf3_254, obj_t BgL_pragma1261z00_255, obj_t BgL_src1262z00_256, obj_t BgL_jvmzd2typezd2name1263z00_257)
{ AN_OBJECT;
{ /* ./Ast/var.scm 40 */
{ /* ./Ast/var.scm 40 */
obj_t BgL_id1248z00_2511;obj_t BgL_name1249z00_2512;BgL_typez00_bglt BgL_type1250z00_2513;BgL_valuez00_bglt BgL_value1251z00_2514;obj_t BgL_access1252z00_2515;obj_t BgL_fastzd2alpha1253zd2_2516;obj_t BgL_removable1254z00_2517;long BgL_occurrence1255z00_2518;obj_t BgL_module1256z00_2519;obj_t BgL_import1257z00_2520;bool_t BgL_evaluablezf31258zf3_2521;bool_t BgL_libraryzf31259zf3_2522;bool_t BgL_userzf31260zf3_2523;obj_t BgL_pragma1261z00_2524;obj_t BgL_src1262z00_2525;obj_t BgL_jvmzd2typezd2name1263z00_2526;
BgL_id1248z00_2511 = BgL_id1248z00_242; 
BgL_name1249z00_2512 = BgL_name1249z00_243; 
BgL_type1250z00_2513 = BgL_type1250z00_244; 
BgL_value1251z00_2514 = BgL_value1251z00_245; 
BgL_access1252z00_2515 = BgL_access1252z00_246; 
BgL_fastzd2alpha1253zd2_2516 = BgL_fastzd2alpha1253zd2_247; 
BgL_removable1254z00_2517 = BgL_removable1254z00_248; 
BgL_occurrence1255z00_2518 = BgL_occurrence1255z00_249; 
BgL_module1256z00_2519 = BgL_module1256z00_250; 
BgL_import1257z00_2520 = BgL_import1257z00_251; 
BgL_evaluablezf31258zf3_2521 = BgL_evaluablezf31258zf3_252; 
BgL_libraryzf31259zf3_2522 = BgL_libraryzf31259zf3_253; 
BgL_userzf31260zf3_2523 = BgL_userzf31260zf3_254; 
BgL_pragma1261z00_2524 = BgL_pragma1261z00_255; 
BgL_src1262z00_2525 = BgL_src1262z00_256; 
BgL_jvmzd2typezd2name1263z00_2526 = BgL_jvmzd2typezd2name1263z00_257; 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_241))->BgL_idz00) = ((obj_t)BgL_id1248z00_2511), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_241))->BgL_namez00) = ((obj_t)BgL_name1249z00_2512), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_241))->BgL_typez00) = ((BgL_typez00_bglt)BgL_type1250z00_2513), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_241))->BgL_valuez00) = ((BgL_valuez00_bglt)BgL_value1251z00_2514), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_241))->BgL_accessz00) = ((obj_t)BgL_access1252z00_2515), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_241))->BgL_fastzd2alphazd2) = ((obj_t)BgL_fastzd2alpha1253zd2_2516), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_241))->BgL_removablez00) = ((obj_t)BgL_removable1254z00_2517), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_241))->BgL_occurrencez00) = ((long)BgL_occurrence1255z00_2518), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_241))->BgL_modulez00) = ((obj_t)BgL_module1256z00_2519), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_241))->BgL_importz00) = ((obj_t)BgL_import1257z00_2520), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_241))->BgL_evaluablezf3zf3) = ((bool_t)BgL_evaluablezf31258zf3_2521), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_241))->BgL_libraryzf3zf3) = ((bool_t)BgL_libraryzf31259zf3_2522), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_241))->BgL_userzf3zf3) = ((bool_t)BgL_userzf31260zf3_2523), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_241))->BgL_pragmaz00) = ((obj_t)BgL_pragma1261z00_2524), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_241))->BgL_srcz00) = ((obj_t)BgL_src1262z00_2525), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_241))->BgL_jvmzd2typezd2namez00) = ((obj_t)BgL_jvmzd2typezd2name1263z00_2526), BUNSPEC); 
return BgL_new1264z00_241;} } 
}



/* _fill-global!2999 */
obj_t BGl__fillzd2globalz122999zc0zzast_varz00(obj_t BgL_envz00_2112, obj_t BgL_new1264z00_2113, obj_t BgL_id1248z00_2114, obj_t BgL_name1249z00_2115, obj_t BgL_type1250z00_2116, obj_t BgL_value1251z00_2117, obj_t BgL_access1252z00_2118, obj_t BgL_fastzd2alpha1253zd2_2119, obj_t BgL_removable1254z00_2120, obj_t BgL_occurrence1255z00_2121, obj_t BgL_module1256z00_2122, obj_t BgL_import1257z00_2123, obj_t BgL_evaluablezf31258zf3_2124, obj_t BgL_libraryzf31259zf3_2125, obj_t BgL_userzf31260zf3_2126, obj_t BgL_pragma1261z00_2127, obj_t BgL_src1262z00_2128, obj_t BgL_jvmzd2typezd2name1263z00_2129)
{ AN_OBJECT;
{ /* ./Ast/var.scm 40 */
{ /* ./Ast/var.scm 40 */
BgL_globalz00_bglt BgL_auxz00_3325;
{ /* ./Ast/var.scm 40 */
BgL_globalz00_bglt BgL_res3693z00_2560;
{ /* ./Ast/var.scm 40 */
BgL_globalz00_bglt BgL_new1264z00_2527;BgL_typez00_bglt BgL_type1250z00_2530;BgL_valuez00_bglt BgL_value1251z00_2531;long BgL_occurrence1255z00_2535;bool_t BgL_evaluablezf31258zf3_2538;bool_t BgL_libraryzf31259zf3_2539;bool_t BgL_userzf31260zf3_2540;
BgL_new1264z00_2527 = 
(BgL_globalz00_bglt)(BgL_new1264z00_2113); 
BgL_type1250z00_2530 = 
(BgL_typez00_bglt)(BgL_type1250z00_2116); 
BgL_value1251z00_2531 = 
(BgL_valuez00_bglt)(BgL_value1251z00_2117); 
BgL_occurrence1255z00_2535 = 
(long)CINT(BgL_occurrence1255z00_2121); 
BgL_evaluablezf31258zf3_2538 = 
CBOOL(BgL_evaluablezf31258zf3_2124); 
BgL_libraryzf31259zf3_2539 = 
CBOOL(BgL_libraryzf31259zf3_2125); 
BgL_userzf31260zf3_2540 = 
CBOOL(BgL_userzf31260zf3_2126); 
{ /* ./Ast/var.scm 40 */
obj_t BgL_id1248z00_2544;obj_t BgL_name1249z00_2545;BgL_typez00_bglt BgL_type1250z00_2546;BgL_valuez00_bglt BgL_value1251z00_2547;obj_t BgL_access1252z00_2548;obj_t BgL_fastzd2alpha1253zd2_2549;obj_t BgL_removable1254z00_2550;long BgL_occurrence1255z00_2551;obj_t BgL_module1256z00_2552;obj_t BgL_import1257z00_2553;bool_t BgL_evaluablezf31258zf3_2554;bool_t BgL_libraryzf31259zf3_2555;bool_t BgL_userzf31260zf3_2556;obj_t BgL_pragma1261z00_2557;obj_t BgL_src1262z00_2558;obj_t BgL_jvmzd2typezd2name1263z00_2559;
BgL_id1248z00_2544 = BgL_id1248z00_2114; 
BgL_name1249z00_2545 = BgL_name1249z00_2115; 
BgL_type1250z00_2546 = BgL_type1250z00_2530; 
BgL_value1251z00_2547 = BgL_value1251z00_2531; 
BgL_access1252z00_2548 = BgL_access1252z00_2118; 
BgL_fastzd2alpha1253zd2_2549 = BgL_fastzd2alpha1253zd2_2119; 
BgL_removable1254z00_2550 = BgL_removable1254z00_2120; 
BgL_occurrence1255z00_2551 = BgL_occurrence1255z00_2535; 
BgL_module1256z00_2552 = BgL_module1256z00_2122; 
BgL_import1257z00_2553 = BgL_import1257z00_2123; 
BgL_evaluablezf31258zf3_2554 = BgL_evaluablezf31258zf3_2538; 
BgL_libraryzf31259zf3_2555 = BgL_libraryzf31259zf3_2539; 
BgL_userzf31260zf3_2556 = BgL_userzf31260zf3_2540; 
BgL_pragma1261z00_2557 = BgL_pragma1261z00_2127; 
BgL_src1262z00_2558 = BgL_src1262z00_2128; 
BgL_jvmzd2typezd2name1263z00_2559 = BgL_jvmzd2typezd2name1263z00_2129; 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_2527))->BgL_idz00) = ((obj_t)BgL_id1248z00_2544), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_2527))->BgL_namez00) = ((obj_t)BgL_name1249z00_2545), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_2527))->BgL_typez00) = ((BgL_typez00_bglt)BgL_type1250z00_2546), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_2527))->BgL_valuez00) = ((BgL_valuez00_bglt)BgL_value1251z00_2547), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_2527))->BgL_accessz00) = ((obj_t)BgL_access1252z00_2548), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_2527))->BgL_fastzd2alphazd2) = ((obj_t)BgL_fastzd2alpha1253zd2_2549), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_2527))->BgL_removablez00) = ((obj_t)BgL_removable1254z00_2550), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_2527))->BgL_occurrencez00) = ((long)BgL_occurrence1255z00_2551), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_2527))->BgL_modulez00) = ((obj_t)BgL_module1256z00_2552), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_2527))->BgL_importz00) = ((obj_t)BgL_import1257z00_2553), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_2527))->BgL_evaluablezf3zf3) = ((bool_t)BgL_evaluablezf31258zf3_2554), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_2527))->BgL_libraryzf3zf3) = ((bool_t)BgL_libraryzf31259zf3_2555), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_2527))->BgL_userzf3zf3) = ((bool_t)BgL_userzf31260zf3_2556), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_2527))->BgL_pragmaz00) = ((obj_t)BgL_pragma1261z00_2557), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_2527))->BgL_srcz00) = ((obj_t)BgL_src1262z00_2558), BUNSPEC); 
((((BgL_globalz00_bglt)CREF(BgL_new1264z00_2527))->BgL_jvmzd2typezd2namez00) = ((obj_t)BgL_jvmzd2typezd2name1263z00_2559), BUNSPEC); 
BgL_res3693z00_2560 = BgL_new1264z00_2527; } } 
BgL_auxz00_3325 = BgL_res3693z00_2560; } 
return 
(obj_t)(BgL_auxz00_3325);} } 
}



/* allocate-global */
BGL_EXPORTED_DEF BgL_globalz00_bglt BGl_allocatezd2globalzd2zzast_varz00()
{ AN_OBJECT;
{ /* ./Ast/var.scm 40 */
{ /* ./Ast/var.scm 40 */
BgL_globalz00_bglt BgL_new1282z00_2561;
BgL_new1282z00_2561 = 
((BgL_globalz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_globalz00_bgl) ))); 
{ /* ./Ast/var.scm 40 */
long BgL_arg2218z00_2562;
BgL_arg2218z00_2562 = 
BGl_classzd2numzd2zz__objectz00(BGl_globalz00zzast_varz00); 
{ /* ./Ast/var.scm 40 */
BgL_objectz00_bglt BgL_objz00_2563;
BgL_objz00_2563 = 
(BgL_objectz00_bglt)(BgL_new1282z00_2561); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2563, BgL_arg2218z00_2562); } } 
{ /* ./Ast/var.scm 40 */
BgL_objectz00_bglt BgL_auxz00_3354;
BgL_auxz00_3354 = 
(BgL_objectz00_bglt)(BgL_new1282z00_2561); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3354, BFALSE); } 
{ /* ./Ast/var.scm 40 */
obj_t BgL_objz00_2564;
BgL_objz00_2564 = 
(obj_t)(BgL_new1282z00_2561); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2564); BUNSPEC; } 
return BgL_new1282z00_2561;} } 
}



/* _allocate-global */
obj_t BGl__allocatezd2globalzd2zzast_varz00(obj_t BgL_envz00_1938)
{ AN_OBJECT;
{ /* ./Ast/var.scm 40 */
{ /* ./Ast/var.scm 40 */
BgL_globalz00_bglt BgL_auxz00_3359;
{ /* ./Ast/var.scm 40 */
BgL_globalz00_bglt BgL_res3694z00_2569;
{ /* ./Ast/var.scm 40 */
BgL_globalz00_bglt BgL_new1282z00_2565;
BgL_new1282z00_2565 = 
((BgL_globalz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_globalz00_bgl) ))); 
{ /* ./Ast/var.scm 40 */
long BgL_arg2218z00_2566;
BgL_arg2218z00_2566 = 
BGl_classzd2numzd2zz__objectz00(BGl_globalz00zzast_varz00); 
{ /* ./Ast/var.scm 40 */
BgL_objectz00_bglt BgL_objz00_2567;
BgL_objz00_2567 = 
(BgL_objectz00_bglt)(BgL_new1282z00_2565); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2567, BgL_arg2218z00_2566); } } 
{ /* ./Ast/var.scm 40 */
BgL_objectz00_bglt BgL_auxz00_3364;
BgL_auxz00_3364 = 
(BgL_objectz00_bglt)(BgL_new1282z00_2565); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3364, BFALSE); } 
{ /* ./Ast/var.scm 40 */
obj_t BgL_objz00_2568;
BgL_objz00_2568 = 
(obj_t)(BgL_new1282z00_2565); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2568); BUNSPEC; } 
BgL_res3694z00_2569 = BgL_new1282z00_2565; } 
BgL_auxz00_3359 = BgL_res3694z00_2569; } 
return 
(obj_t)(BgL_auxz00_3359);} } 
}



/* variable? */
BGL_EXPORTED_DEF bool_t BGl_variablezf3zf3zzast_varz00(obj_t BgL_obj1182z00_282)
{ AN_OBJECT;
{ /* ./Ast/var.scm 21 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1182z00_282, BGl_variablez00zzast_varz00);} 
}



/* _variable? */
obj_t BGl__variablezf3zf3zzast_varz00(obj_t BgL_envz00_2130, obj_t BgL_obj1182z00_2131)
{ AN_OBJECT;
{ /* ./Ast/var.scm 21 */
{ /* ./Ast/var.scm 21 */
bool_t BgL_auxz00_3371;
BgL_auxz00_3371 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1182z00_2131, BGl_variablez00zzast_varz00); 
return 
BBOOL(BgL_auxz00_3371);} } 
}



/* make-variable */
BGL_EXPORTED_DEF BgL_variablez00_bglt BGl_makezd2variablezd2zzast_varz00(obj_t BgL_id1119z00_286, obj_t BgL_name1120z00_287, BgL_typez00_bglt BgL_type1121z00_288, BgL_valuez00_bglt BgL_value1122z00_289, obj_t BgL_access1123z00_290, obj_t BgL_fastzd2alpha1124zd2_291, obj_t BgL_removable1125z00_292, long BgL_occurrence1126z00_293)
{ AN_OBJECT;
{ /* ./Ast/var.scm 21 */
{ /* ./Ast/var.scm 21 */
BgL_variablez00_bglt BgL_new1127z00_1339;
{ /* ./Ast/var.scm 21 */
BgL_variablez00_bglt BgL_res2936z00_1345;
{ /* ./Ast/var.scm 21 */
BgL_variablez00_bglt BgL_new1147z00_1340;
BgL_new1147z00_1340 = 
((BgL_variablez00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_variablez00_bgl) ))); 
{ /* ./Ast/var.scm 21 */
long BgL_arg2227z00_1341;
BgL_arg2227z00_1341 = 
BGl_classzd2numzd2zz__objectz00(BGl_variablez00zzast_varz00); 
{ /* ./Ast/var.scm 21 */
BgL_objectz00_bglt BgL_objz00_1342;
BgL_objz00_1342 = 
(BgL_objectz00_bglt)(BgL_new1147z00_1340); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1342, BgL_arg2227z00_1341); } } 
{ /* ./Ast/var.scm 21 */
BgL_objectz00_bglt BgL_auxz00_3378;
BgL_auxz00_3378 = 
(BgL_objectz00_bglt)(BgL_new1147z00_1340); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3378, BFALSE); } 
{ /* ./Ast/var.scm 21 */
obj_t BgL_objz00_1344;
BgL_objz00_1344 = 
(obj_t)(BgL_new1147z00_1340); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_1344); BUNSPEC; } 
BgL_res2936z00_1345 = BgL_new1147z00_1340; } 
BgL_new1127z00_1339 = BgL_res2936z00_1345; } 
{ /* ./Ast/var.scm 21 */
BgL_variablez00_bglt BgL_res2937z00_1363;
{ /* ./Ast/var.scm 21 */
BgL_variablez00_bglt BgL_new1137z00_1346;
BgL_new1137z00_1346 = BgL_new1127z00_1339; 
{ /* ./Ast/var.scm 21 */
obj_t BgL_id1129z00_1355;obj_t BgL_name1130z00_1356;BgL_typez00_bglt BgL_type1131z00_1357;BgL_valuez00_bglt BgL_value1132z00_1358;obj_t BgL_access1133z00_1359;obj_t BgL_fastzd2alpha1134zd2_1360;obj_t BgL_removable1135z00_1361;long BgL_occurrence1136z00_1362;
BgL_id1129z00_1355 = BgL_id1119z00_286; 
BgL_name1130z00_1356 = BgL_name1120z00_287; 
BgL_type1131z00_1357 = BgL_type1121z00_288; 
BgL_value1132z00_1358 = BgL_value1122z00_289; 
BgL_access1133z00_1359 = BgL_access1123z00_290; 
BgL_fastzd2alpha1134zd2_1360 = BgL_fastzd2alpha1124zd2_291; 
BgL_removable1135z00_1361 = BgL_removable1125z00_292; 
BgL_occurrence1136z00_1362 = BgL_occurrence1126z00_293; 
((((BgL_variablez00_bglt)CREF(BgL_new1137z00_1346))->BgL_idz00) = ((obj_t)BgL_id1129z00_1355), BUNSPEC); 
((((BgL_variablez00_bglt)CREF(BgL_new1137z00_1346))->BgL_namez00) = ((obj_t)BgL_name1130z00_1356), BUNSPEC); 
((((BgL_variablez00_bglt)CREF(BgL_new1137z00_1346))->BgL_typez00) = ((BgL_typez00_bglt)BgL_type1131z00_1357), BUNSPEC); 
((((BgL_variablez00_bglt)CREF(BgL_new1137z00_1346))->BgL_valuez00) = ((BgL_valuez00_bglt)BgL_value1132z00_1358), BUNSPEC); 
((((BgL_variablez00_bglt)CREF(BgL_new1137z00_1346))->BgL_accessz00) = ((obj_t)BgL_access1133z00_1359), BUNSPEC); 
((((BgL_variablez00_bglt)CREF(BgL_new1137z00_1346))->BgL_fastzd2alphazd2) = ((obj_t)BgL_fastzd2alpha1134zd2_1360), BUNSPEC); 
((((BgL_variablez00_bglt)CREF(BgL_new1137z00_1346))->BgL_removablez00) = ((obj_t)BgL_removable1135z00_1361), BUNSPEC); 
((((BgL_variablez00_bglt)CREF(BgL_new1137z00_1346))->BgL_occurrencez00) = ((long)BgL_occurrence1136z00_1362), BUNSPEC); 
BgL_res2937z00_1363 = BgL_new1137z00_1346; } } BgL_res2937z00_1363; } 
return BgL_new1127z00_1339;} } 
}



/* _make-variable3002 */
obj_t BGl__makezd2variable3002zd2zzast_varz00(obj_t BgL_envz00_2132, obj_t BgL_id1119z00_2133, obj_t BgL_name1120z00_2134, obj_t BgL_type1121z00_2135, obj_t BgL_value1122z00_2136, obj_t BgL_access1123z00_2137, obj_t BgL_fastzd2alpha1124zd2_2138, obj_t BgL_removable1125z00_2139, obj_t BgL_occurrence1126z00_2140)
{ AN_OBJECT;
{ /* ./Ast/var.scm 21 */
{ /* ./Ast/var.scm 21 */
BgL_variablez00_bglt BgL_auxz00_3391;
BgL_auxz00_3391 = 
BGl_makezd2variablezd2zzast_varz00(BgL_id1119z00_2133, BgL_name1120z00_2134, 
(BgL_typez00_bglt)(BgL_type1121z00_2135), 
(BgL_valuez00_bglt)(BgL_value1122z00_2136), BgL_access1123z00_2137, BgL_fastzd2alpha1124zd2_2138, BgL_removable1125z00_2139, 
(long)CINT(BgL_occurrence1126z00_2140)); 
return 
(obj_t)(BgL_auxz00_3391);} } 
}



/* fill-variable! */
BGL_EXPORTED_DEF BgL_variablez00_bglt BGl_fillzd2variablez12zc0zzast_varz00(BgL_variablez00_bglt BgL_new1137z00_294, obj_t BgL_id1129z00_295, obj_t BgL_name1130z00_296, BgL_typez00_bglt BgL_type1131z00_297, BgL_valuez00_bglt BgL_value1132z00_298, obj_t BgL_access1133z00_299, obj_t BgL_fastzd2alpha1134zd2_300, obj_t BgL_removable1135z00_301, long BgL_occurrence1136z00_302)
{ AN_OBJECT;
{ /* ./Ast/var.scm 21 */
{ /* ./Ast/var.scm 21 */
obj_t BgL_id1129z00_2571;obj_t BgL_name1130z00_2572;BgL_typez00_bglt BgL_type1131z00_2573;BgL_valuez00_bglt BgL_value1132z00_2574;obj_t BgL_access1133z00_2575;obj_t BgL_fastzd2alpha1134zd2_2576;obj_t BgL_removable1135z00_2577;long BgL_occurrence1136z00_2578;
BgL_id1129z00_2571 = BgL_id1129z00_295; 
BgL_name1130z00_2572 = BgL_name1130z00_296; 
BgL_type1131z00_2573 = BgL_type1131z00_297; 
BgL_value1132z00_2574 = BgL_value1132z00_298; 
BgL_access1133z00_2575 = BgL_access1133z00_299; 
BgL_fastzd2alpha1134zd2_2576 = BgL_fastzd2alpha1134zd2_300; 
BgL_removable1135z00_2577 = BgL_removable1135z00_301; 
BgL_occurrence1136z00_2578 = BgL_occurrence1136z00_302; 
((((BgL_variablez00_bglt)CREF(BgL_new1137z00_294))->BgL_idz00) = ((obj_t)BgL_id1129z00_2571), BUNSPEC); 
((((BgL_variablez00_bglt)CREF(BgL_new1137z00_294))->BgL_namez00) = ((obj_t)BgL_name1130z00_2572), BUNSPEC); 
((((BgL_variablez00_bglt)CREF(BgL_new1137z00_294))->BgL_typez00) = ((BgL_typez00_bglt)BgL_type1131z00_2573), BUNSPEC); 
((((BgL_variablez00_bglt)CREF(BgL_new1137z00_294))->BgL_valuez00) = ((BgL_valuez00_bglt)BgL_value1132z00_2574), BUNSPEC); 
((((BgL_variablez00_bglt)CREF(BgL_new1137z00_294))->BgL_accessz00) = ((obj_t)BgL_access1133z00_2575), BUNSPEC); 
((((BgL_variablez00_bglt)CREF(BgL_new1137z00_294))->BgL_fastzd2alphazd2) = ((obj_t)BgL_fastzd2alpha1134zd2_2576), BUNSPEC); 
((((BgL_variablez00_bglt)CREF(BgL_new1137z00_294))->BgL_removablez00) = ((obj_t)BgL_removable1135z00_2577), BUNSPEC); 
((((BgL_variablez00_bglt)CREF(BgL_new1137z00_294))->BgL_occurrencez00) = ((long)BgL_occurrence1136z00_2578), BUNSPEC); 
return BgL_new1137z00_294;} } 
}



/* _fill-variable!3004 */
obj_t BGl__fillzd2variablez123004zc0zzast_varz00(obj_t BgL_envz00_2141, obj_t BgL_new1137z00_2142, obj_t BgL_id1129z00_2143, obj_t BgL_name1130z00_2144, obj_t BgL_type1131z00_2145, obj_t BgL_value1132z00_2146, obj_t BgL_access1133z00_2147, obj_t BgL_fastzd2alpha1134zd2_2148, obj_t BgL_removable1135z00_2149, obj_t BgL_occurrence1136z00_2150)
{ AN_OBJECT;
{ /* ./Ast/var.scm 21 */
{ /* ./Ast/var.scm 21 */
BgL_variablez00_bglt BgL_auxz00_3405;
{ /* ./Ast/var.scm 21 */
BgL_variablez00_bglt BgL_res3695z00_2596;
{ /* ./Ast/var.scm 21 */
BgL_variablez00_bglt BgL_new1137z00_2579;BgL_typez00_bglt BgL_type1131z00_2582;BgL_valuez00_bglt BgL_value1132z00_2583;long BgL_occurrence1136z00_2587;
BgL_new1137z00_2579 = 
(BgL_variablez00_bglt)(BgL_new1137z00_2142); 
BgL_type1131z00_2582 = 
(BgL_typez00_bglt)(BgL_type1131z00_2145); 
BgL_value1132z00_2583 = 
(BgL_valuez00_bglt)(BgL_value1132z00_2146); 
BgL_occurrence1136z00_2587 = 
(long)CINT(BgL_occurrence1136z00_2150); 
{ /* ./Ast/var.scm 21 */
obj_t BgL_id1129z00_2588;obj_t BgL_name1130z00_2589;BgL_typez00_bglt BgL_type1131z00_2590;BgL_valuez00_bglt BgL_value1132z00_2591;obj_t BgL_access1133z00_2592;obj_t BgL_fastzd2alpha1134zd2_2593;obj_t BgL_removable1135z00_2594;long BgL_occurrence1136z00_2595;
BgL_id1129z00_2588 = BgL_id1129z00_2143; 
BgL_name1130z00_2589 = BgL_name1130z00_2144; 
BgL_type1131z00_2590 = BgL_type1131z00_2582; 
BgL_value1132z00_2591 = BgL_value1132z00_2583; 
BgL_access1133z00_2592 = BgL_access1133z00_2147; 
BgL_fastzd2alpha1134zd2_2593 = BgL_fastzd2alpha1134zd2_2148; 
BgL_removable1135z00_2594 = BgL_removable1135z00_2149; 
BgL_occurrence1136z00_2595 = BgL_occurrence1136z00_2587; 
((((BgL_variablez00_bglt)CREF(BgL_new1137z00_2579))->BgL_idz00) = ((obj_t)BgL_id1129z00_2588), BUNSPEC); 
((((BgL_variablez00_bglt)CREF(BgL_new1137z00_2579))->BgL_namez00) = ((obj_t)BgL_name1130z00_2589), BUNSPEC); 
((((BgL_variablez00_bglt)CREF(BgL_new1137z00_2579))->BgL_typez00) = ((BgL_typez00_bglt)BgL_type1131z00_2590), BUNSPEC); 
((((BgL_variablez00_bglt)CREF(BgL_new1137z00_2579))->BgL_valuez00) = ((BgL_valuez00_bglt)BgL_value1132z00_2591), BUNSPEC); 
((((BgL_variablez00_bglt)CREF(BgL_new1137z00_2579))->BgL_accessz00) = ((obj_t)BgL_access1133z00_2592), BUNSPEC); 
((((BgL_variablez00_bglt)CREF(BgL_new1137z00_2579))->BgL_fastzd2alphazd2) = ((obj_t)BgL_fastzd2alpha1134zd2_2593), BUNSPEC); 
((((BgL_variablez00_bglt)CREF(BgL_new1137z00_2579))->BgL_removablez00) = ((obj_t)BgL_removable1135z00_2594), BUNSPEC); 
((((BgL_variablez00_bglt)CREF(BgL_new1137z00_2579))->BgL_occurrencez00) = ((long)BgL_occurrence1136z00_2595), BUNSPEC); 
BgL_res3695z00_2596 = BgL_new1137z00_2579; } } 
BgL_auxz00_3405 = BgL_res3695z00_2596; } 
return 
(obj_t)(BgL_auxz00_3405);} } 
}



/* allocate-variable */
BGL_EXPORTED_DEF BgL_variablez00_bglt BGl_allocatezd2variablezd2zzast_varz00()
{ AN_OBJECT;
{ /* ./Ast/var.scm 21 */
{ /* ./Ast/var.scm 21 */
BgL_variablez00_bglt BgL_new1147z00_2597;
BgL_new1147z00_2597 = 
((BgL_variablez00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_variablez00_bgl) ))); 
{ /* ./Ast/var.scm 21 */
long BgL_arg2227z00_2598;
BgL_arg2227z00_2598 = 
BGl_classzd2numzd2zz__objectz00(BGl_variablez00zzast_varz00); 
{ /* ./Ast/var.scm 21 */
BgL_objectz00_bglt BgL_objz00_2599;
BgL_objz00_2599 = 
(BgL_objectz00_bglt)(BgL_new1147z00_2597); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2599, BgL_arg2227z00_2598); } } 
{ /* ./Ast/var.scm 21 */
BgL_objectz00_bglt BgL_auxz00_3423;
BgL_auxz00_3423 = 
(BgL_objectz00_bglt)(BgL_new1147z00_2597); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3423, BFALSE); } 
{ /* ./Ast/var.scm 21 */
obj_t BgL_objz00_2600;
BgL_objz00_2600 = 
(obj_t)(BgL_new1147z00_2597); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2600); BUNSPEC; } 
return BgL_new1147z00_2597;} } 
}



/* _allocate-variable */
obj_t BGl__allocatezd2variablezd2zzast_varz00(obj_t BgL_envz00_1937)
{ AN_OBJECT;
{ /* ./Ast/var.scm 21 */
{ /* ./Ast/var.scm 21 */
BgL_variablez00_bglt BgL_auxz00_3428;
{ /* ./Ast/var.scm 21 */
BgL_variablez00_bglt BgL_res3696z00_2605;
{ /* ./Ast/var.scm 21 */
BgL_variablez00_bglt BgL_new1147z00_2601;
BgL_new1147z00_2601 = 
((BgL_variablez00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_variablez00_bgl) ))); 
{ /* ./Ast/var.scm 21 */
long BgL_arg2227z00_2602;
BgL_arg2227z00_2602 = 
BGl_classzd2numzd2zz__objectz00(BGl_variablez00zzast_varz00); 
{ /* ./Ast/var.scm 21 */
BgL_objectz00_bglt BgL_objz00_2603;
BgL_objz00_2603 = 
(BgL_objectz00_bglt)(BgL_new1147z00_2601); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2603, BgL_arg2227z00_2602); } } 
{ /* ./Ast/var.scm 21 */
BgL_objectz00_bglt BgL_auxz00_3433;
BgL_auxz00_3433 = 
(BgL_objectz00_bglt)(BgL_new1147z00_2601); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3433, BFALSE); } 
{ /* ./Ast/var.scm 21 */
obj_t BgL_objz00_2604;
BgL_objz00_2604 = 
(obj_t)(BgL_new1147z00_2601); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2604); BUNSPEC; } 
BgL_res3696z00_2605 = BgL_new1147z00_2601; } 
BgL_auxz00_3428 = BgL_res3696z00_2605; } 
return 
(obj_t)(BgL_auxz00_3428);} } 
}



/* value? */
BGL_EXPORTED_DEF bool_t BGl_valuezf3zf3zzast_varz00(obj_t BgL_obj1096z00_325)
{ AN_OBJECT;
{ /* ./Ast/var.scm 19 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1096z00_325, BGl_valuez00zzast_varz00);} 
}



/* _value? */
obj_t BGl__valuezf3zf3zzast_varz00(obj_t BgL_envz00_2151, obj_t BgL_obj1096z00_2152)
{ AN_OBJECT;
{ /* ./Ast/var.scm 19 */
{ /* ./Ast/var.scm 19 */
bool_t BgL_auxz00_3440;
BgL_auxz00_3440 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1096z00_2152, BGl_valuez00zzast_varz00); 
return 
BBOOL(BgL_auxz00_3440);} } 
}



/* make-value */
BGL_EXPORTED_DEF BgL_valuez00_bglt BGl_makezd2valuezd2zzast_varz00()
{ AN_OBJECT;
{ /* ./Ast/var.scm 19 */
{ /* ./Ast/var.scm 19 */
BgL_valuez00_bglt BgL_new1089z00_594;
{ /* ./Ast/var.scm 19 */
BgL_valuez00_bglt BgL_res2938z00_1382;
{ /* ./Ast/var.scm 19 */
BgL_valuez00_bglt BgL_new1093z00_1377;
BgL_new1093z00_1377 = 
((BgL_valuez00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_valuez00_bgl) ))); 
{ /* ./Ast/var.scm 19 */
long BgL_arg2236z00_1378;
BgL_arg2236z00_1378 = 
BGl_classzd2numzd2zz__objectz00(BGl_valuez00zzast_varz00); 
{ /* ./Ast/var.scm 19 */
BgL_objectz00_bglt BgL_objz00_1379;
BgL_objz00_1379 = 
(BgL_objectz00_bglt)(BgL_new1093z00_1377); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1379, BgL_arg2236z00_1378); } } 
{ /* ./Ast/var.scm 19 */
BgL_objectz00_bglt BgL_auxz00_3447;
BgL_auxz00_3447 = 
(BgL_objectz00_bglt)(BgL_new1093z00_1377); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3447, BFALSE); } 
{ /* ./Ast/var.scm 19 */
obj_t BgL_objz00_1381;
BgL_objz00_1381 = 
(obj_t)(BgL_new1093z00_1377); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_1381); BUNSPEC; } 
BgL_res2938z00_1382 = BgL_new1093z00_1377; } 
BgL_new1089z00_594 = BgL_res2938z00_1382; } 
return BgL_new1089z00_594;} } 
}



/* _make-value */
obj_t BGl__makezd2valuezd2zzast_varz00(obj_t BgL_envz00_2153)
{ AN_OBJECT;
{ /* ./Ast/var.scm 19 */
{ /* ./Ast/var.scm 19 */
BgL_valuez00_bglt BgL_auxz00_3452;
BgL_auxz00_3452 = 
BGl_makezd2valuezd2zzast_varz00(); 
return 
(obj_t)(BgL_auxz00_3452);} } 
}



/* fill-value! */
BGL_EXPORTED_DEF BgL_valuez00_bglt BGl_fillzd2valuez12zc0zzast_varz00(BgL_valuez00_bglt BgL_new1091z00_329)
{ AN_OBJECT;
{ /* ./Ast/var.scm 19 */
{ /* ./Ast/var.scm 19 */

return BgL_new1091z00_329;} } 
}



/* _fill-value!3008 */
obj_t BGl__fillzd2valuez123008zc0zzast_varz00(obj_t BgL_envz00_2154, obj_t BgL_new1091z00_2155)
{ AN_OBJECT;
{ /* ./Ast/var.scm 19 */
{ /* ./Ast/var.scm 19 */
BgL_valuez00_bglt BgL_auxz00_3455;
{ /* ./Ast/var.scm 19 */

BgL_auxz00_3455 = 
(BgL_valuez00_bglt)(BgL_new1091z00_2155); } 
return 
(obj_t)(BgL_auxz00_3455);} } 
}



/* allocate-value */
BGL_EXPORTED_DEF BgL_valuez00_bglt BGl_allocatezd2valuezd2zzast_varz00()
{ AN_OBJECT;
{ /* ./Ast/var.scm 19 */
{ /* ./Ast/var.scm 19 */
BgL_valuez00_bglt BgL_new1093z00_2608;
BgL_new1093z00_2608 = 
((BgL_valuez00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_valuez00_bgl) ))); 
{ /* ./Ast/var.scm 19 */
long BgL_arg2236z00_2609;
BgL_arg2236z00_2609 = 
BGl_classzd2numzd2zz__objectz00(BGl_valuez00zzast_varz00); 
{ /* ./Ast/var.scm 19 */
BgL_objectz00_bglt BgL_objz00_2610;
BgL_objz00_2610 = 
(BgL_objectz00_bglt)(BgL_new1093z00_2608); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2610, BgL_arg2236z00_2609); } } 
{ /* ./Ast/var.scm 19 */
BgL_objectz00_bglt BgL_auxz00_3462;
BgL_auxz00_3462 = 
(BgL_objectz00_bglt)(BgL_new1093z00_2608); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3462, BFALSE); } 
{ /* ./Ast/var.scm 19 */
obj_t BgL_objz00_2611;
BgL_objz00_2611 = 
(obj_t)(BgL_new1093z00_2608); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2611); BUNSPEC; } 
return BgL_new1093z00_2608;} } 
}



/* _allocate-value */
obj_t BGl__allocatezd2valuezd2zzast_varz00(obj_t BgL_envz00_1936)
{ AN_OBJECT;
{ /* ./Ast/var.scm 19 */
{ /* ./Ast/var.scm 19 */
BgL_valuez00_bglt BgL_auxz00_3467;
{ /* ./Ast/var.scm 19 */
BgL_valuez00_bglt BgL_res3697z00_2616;
{ /* ./Ast/var.scm 19 */
BgL_valuez00_bglt BgL_new1093z00_2612;
BgL_new1093z00_2612 = 
((BgL_valuez00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_valuez00_bgl) ))); 
{ /* ./Ast/var.scm 19 */
long BgL_arg2236z00_2613;
BgL_arg2236z00_2613 = 
BGl_classzd2numzd2zz__objectz00(BGl_valuez00zzast_varz00); 
{ /* ./Ast/var.scm 19 */
BgL_objectz00_bglt BgL_objz00_2614;
BgL_objz00_2614 = 
(BgL_objectz00_bglt)(BgL_new1093z00_2612); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2614, BgL_arg2236z00_2613); } } 
{ /* ./Ast/var.scm 19 */
BgL_objectz00_bglt BgL_auxz00_3472;
BgL_auxz00_3472 = 
(BgL_objectz00_bglt)(BgL_new1093z00_2612); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3472, BFALSE); } 
{ /* ./Ast/var.scm 19 */
obj_t BgL_objz00_2615;
BgL_objz00_2615 = 
(obj_t)(BgL_new1093z00_2612); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2615); BUNSPEC; } 
BgL_res3697z00_2616 = BgL_new1093z00_2612; } 
BgL_auxz00_3467 = BgL_res3697z00_2616; } 
return 
(obj_t)(BgL_auxz00_3467);} } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzast_varz00()
{ AN_OBJECT;
{ /* ./Ast/var.scm 14 */
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_feffectz00zzast_varz00, BGl_proc3635z00zzast_varz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_feffectz00zzast_varz00, BGl_proc3636z00zzast_varz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_sexitz00zzast_varz00, BGl_proc3637z00zzast_varz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_sexitz00zzast_varz00, BGl_proc3638z00zzast_varz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_cvarz00zzast_varz00, BGl_proc3639z00zzast_varz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_cvarz00zzast_varz00, BGl_proc3640z00zzast_varz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_scnstz00zzast_varz00, BGl_proc3641z00zzast_varz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_scnstz00zzast_varz00, BGl_proc3642z00zzast_varz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_svarz00zzast_varz00, BGl_proc3643z00zzast_varz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_svarz00zzast_varz00, BGl_proc3644z00zzast_varz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_cfunz00zzast_varz00, BGl_proc3645z00zzast_varz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_cfunz00zzast_varz00, BGl_proc3646z00zzast_varz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_sfunz00zzast_varz00, BGl_proc3647z00zzast_varz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_sfunz00zzast_varz00, BGl_proc3648z00zzast_varz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_funz00zzast_varz00, BGl_proc3649z00zzast_varz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_funz00zzast_varz00, BGl_proc3650z00zzast_varz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_localz00zzast_varz00, BGl_proc3651z00zzast_varz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_localz00zzast_varz00, BGl_proc3652z00zzast_varz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_globalz00zzast_varz00, BGl_proc3653z00zzast_varz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_globalz00zzast_varz00, BGl_proc3654z00zzast_varz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_variablez00zzast_varz00, BGl_proc3655z00zzast_varz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_variablez00zzast_varz00, BGl_proc3656z00zzast_varz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_valuez00zzast_varz00, BGl_proc3657z00zzast_varz00); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_valuez00zzast_varz00, BGl_proc3658z00zzast_varz00);} 
}



/* struct+object->object-value1974 */
obj_t BGl_structzb2objectzd2ze3objectzd2value1974z51zzast_varz00(obj_t BgL_envz00_2180, obj_t BgL_oz00_2181, obj_t BgL_sz00_2182)
{ AN_OBJECT;
{ /* ./Ast/var.scm 19 */
{ 
BgL_valuez00_bglt BgL_oz00_984;obj_t BgL_sz00_985;
{ /* ./Ast/var.scm 19 */
BgL_valuez00_bglt BgL_auxz00_3502;
BgL_oz00_984 = 
(BgL_valuez00_bglt)(BgL_oz00_2181); 
BgL_sz00_985 = BgL_sz00_2182; 
{ /* ./Ast/var.scm 19 */
obj_t BgL_arg2906z00_1927;
{ /* ./Ast/var.scm 19 */
int BgL_auxz00_3503;
BgL_auxz00_3503 = 
(int)(((long)0)); 
BgL_arg2906z00_1927 = 
STRUCT_REF(BgL_sz00_985, BgL_auxz00_3503); } 
{ /* ./Ast/var.scm 19 */
BgL_objectz00_bglt BgL_auxz00_3506;
BgL_auxz00_3506 = 
(BgL_objectz00_bglt)(BgL_oz00_984); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3506, BgL_arg2906z00_1927); } } 
BgL_auxz00_3502 = BgL_oz00_984; 
return 
(obj_t)(BgL_auxz00_3502);} } } 
}



/* object->struct-value1972 */
obj_t BGl_objectzd2ze3structzd2value1972ze3zzast_varz00(obj_t BgL_envz00_2183, obj_t BgL_obj1094z00_2184)
{ AN_OBJECT;
{ /* ./Ast/var.scm 19 */
{ 
BgL_valuez00_bglt BgL_obj1094z00_978;
BgL_obj1094z00_978 = 
(BgL_valuez00_bglt)(BgL_obj1094z00_2184); 
{ /* ./Ast/var.scm 19 */
obj_t BgL_res1095z00_981;
{ /* ./Ast/var.scm 19 */
obj_t BgL_keyz00_1921;int BgL_lenz00_1922;
BgL_keyz00_1921 = 
CNST_TABLE_REF(((long)2)); 
BgL_lenz00_1922 = 
(int)(((long)1)); 
BgL_res1095z00_981 = 
make_struct(BgL_keyz00_1921, BgL_lenz00_1922, BUNSPEC); } 
{ /* ./Ast/var.scm 19 */
int BgL_kz00_1925;
BgL_kz00_1925 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res1095z00_981, BgL_kz00_1925, BFALSE); } 
return BgL_res1095z00_981;} } } 
}



/* struct+object->object-variable1970 */
obj_t BGl_structzb2objectzd2ze3objectzd2variable1970z51zzast_varz00(obj_t BgL_envz00_2185, obj_t BgL_oz00_2186, obj_t BgL_sz00_2187)
{ AN_OBJECT;
{ /* ./Ast/var.scm 21 */
{ 
BgL_variablez00_bglt BgL_oz00_963;obj_t BgL_sz00_964;
{ /* ./Ast/var.scm 21 */
BgL_variablez00_bglt BgL_auxz00_3517;
BgL_oz00_963 = 
(BgL_variablez00_bglt)(BgL_oz00_2186); 
BgL_sz00_964 = BgL_sz00_2187; 
{ /* ./Ast/var.scm 21 */
obj_t BgL_arg2880z00_967;
{ /* ./Ast/var.scm 21 */
int BgL_auxz00_3518;
BgL_auxz00_3518 = 
(int)(((long)0)); 
BgL_arg2880z00_967 = 
STRUCT_REF(BgL_sz00_964, BgL_auxz00_3518); } 
{ /* ./Ast/var.scm 21 */
BgL_objectz00_bglt BgL_auxz00_3521;
BgL_auxz00_3521 = 
(BgL_objectz00_bglt)(BgL_oz00_963); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3521, BgL_arg2880z00_967); } } 
{ /* ./Ast/var.scm 21 */
obj_t BgL_v1152z00_968;
{ /* ./Ast/var.scm 21 */
int BgL_auxz00_3524;
BgL_auxz00_3524 = 
(int)(((long)1)); 
BgL_v1152z00_968 = 
STRUCT_REF(BgL_sz00_964, BgL_auxz00_3524); } 
((((BgL_variablez00_bglt)CREF(BgL_oz00_963))->BgL_idz00) = ((obj_t)BgL_v1152z00_968), BUNSPEC); } 
{ /* ./Ast/var.scm 21 */
obj_t BgL_v1156z00_969;
{ /* ./Ast/var.scm 21 */
int BgL_auxz00_3528;
BgL_auxz00_3528 = 
(int)(((long)2)); 
BgL_v1156z00_969 = 
STRUCT_REF(BgL_sz00_964, BgL_auxz00_3528); } 
((((BgL_variablez00_bglt)CREF(BgL_oz00_963))->BgL_namez00) = ((obj_t)BgL_v1156z00_969), BUNSPEC); } 
{ /* ./Ast/var.scm 21 */
BgL_typez00_bglt BgL_v1160z00_970;
{ /* ./Ast/var.scm 21 */
obj_t BgL_auxz00_3532;
{ /* ./Ast/var.scm 21 */
int BgL_auxz00_3533;
BgL_auxz00_3533 = 
(int)(((long)3)); 
BgL_auxz00_3532 = 
STRUCT_REF(BgL_sz00_964, BgL_auxz00_3533); } 
BgL_v1160z00_970 = 
(BgL_typez00_bglt)(BgL_auxz00_3532); } 
((((BgL_variablez00_bglt)CREF(BgL_oz00_963))->BgL_typez00) = ((BgL_typez00_bglt)BgL_v1160z00_970), BUNSPEC); } 
{ /* ./Ast/var.scm 21 */
BgL_valuez00_bglt BgL_v1164z00_971;
{ /* ./Ast/var.scm 21 */
obj_t BgL_auxz00_3538;
{ /* ./Ast/var.scm 21 */
int BgL_auxz00_3539;
BgL_auxz00_3539 = 
(int)(((long)4)); 
BgL_auxz00_3538 = 
STRUCT_REF(BgL_sz00_964, BgL_auxz00_3539); } 
BgL_v1164z00_971 = 
(BgL_valuez00_bglt)(BgL_auxz00_3538); } 
((((BgL_variablez00_bglt)CREF(BgL_oz00_963))->BgL_valuez00) = ((BgL_valuez00_bglt)BgL_v1164z00_971), BUNSPEC); } 
{ /* ./Ast/var.scm 21 */
obj_t BgL_v1168z00_972;
{ /* ./Ast/var.scm 21 */
int BgL_auxz00_3544;
BgL_auxz00_3544 = 
(int)(((long)5)); 
BgL_v1168z00_972 = 
STRUCT_REF(BgL_sz00_964, BgL_auxz00_3544); } 
((((BgL_variablez00_bglt)CREF(BgL_oz00_963))->BgL_accessz00) = ((obj_t)BgL_v1168z00_972), BUNSPEC); } 
{ /* ./Ast/var.scm 21 */
obj_t BgL_v1172z00_973;
{ /* ./Ast/var.scm 21 */
int BgL_auxz00_3548;
BgL_auxz00_3548 = 
(int)(((long)6)); 
BgL_v1172z00_973 = 
STRUCT_REF(BgL_sz00_964, BgL_auxz00_3548); } 
((((BgL_variablez00_bglt)CREF(BgL_oz00_963))->BgL_fastzd2alphazd2) = ((obj_t)BgL_v1172z00_973), BUNSPEC); } 
{ /* ./Ast/var.scm 21 */
obj_t BgL_v1176z00_974;
{ /* ./Ast/var.scm 21 */
int BgL_auxz00_3552;
BgL_auxz00_3552 = 
(int)(((long)7)); 
BgL_v1176z00_974 = 
STRUCT_REF(BgL_sz00_964, BgL_auxz00_3552); } 
((((BgL_variablez00_bglt)CREF(BgL_oz00_963))->BgL_removablez00) = ((obj_t)BgL_v1176z00_974), BUNSPEC); } 
{ /* ./Ast/var.scm 21 */
long BgL_v1180z00_975;
{ /* ./Ast/var.scm 21 */
obj_t BgL_auxz00_3556;
{ /* ./Ast/var.scm 21 */
int BgL_auxz00_3557;
BgL_auxz00_3557 = 
(int)(((long)8)); 
BgL_auxz00_3556 = 
STRUCT_REF(BgL_sz00_964, BgL_auxz00_3557); } 
BgL_v1180z00_975 = 
(long)CINT(BgL_auxz00_3556); } 
((((BgL_variablez00_bglt)CREF(BgL_oz00_963))->BgL_occurrencez00) = ((long)BgL_v1180z00_975), BUNSPEC); } 
BgL_auxz00_3517 = BgL_oz00_963; 
return 
(obj_t)(BgL_auxz00_3517);} } } 
}



/* object->struct-variable1968 */
obj_t BGl_objectzd2ze3structzd2variable1968ze3zzast_varz00(obj_t BgL_envz00_2188, obj_t BgL_obj1148z00_2189)
{ AN_OBJECT;
{ /* ./Ast/var.scm 21 */
{ 
BgL_variablez00_bglt BgL_obj1148z00_941;
BgL_obj1148z00_941 = 
(BgL_variablez00_bglt)(BgL_obj1148z00_2189); 
{ /* ./Ast/var.scm 21 */
obj_t BgL_res1149z00_944;
{ /* ./Ast/var.scm 21 */
obj_t BgL_keyz00_1865;int BgL_lenz00_1866;
BgL_keyz00_1865 = 
CNST_TABLE_REF(((long)3)); 
BgL_lenz00_1866 = 
(int)(((long)9)); 
BgL_res1149z00_944 = 
make_struct(BgL_keyz00_1865, BgL_lenz00_1866, BUNSPEC); } 
{ /* ./Ast/var.scm 21 */
int BgL_kz00_1869;
BgL_kz00_1869 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res1149z00_944, BgL_kz00_1869, BFALSE); } 
{ /* ./Ast/var.scm 21 */
obj_t BgL_arg2834z00_946;
BgL_arg2834z00_946 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1148z00_941))->BgL_idz00); 
{ /* ./Ast/var.scm 21 */
int BgL_kz00_1873;
BgL_kz00_1873 = 
(int)(((long)1)); 
STRUCT_SET(BgL_res1149z00_944, BgL_kz00_1873, BgL_arg2834z00_946); } } 
{ /* ./Ast/var.scm 21 */
obj_t BgL_arg2839z00_948;
BgL_arg2839z00_948 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1148z00_941))->BgL_namez00); 
{ /* ./Ast/var.scm 21 */
int BgL_kz00_1877;
BgL_kz00_1877 = 
(int)(((long)2)); 
STRUCT_SET(BgL_res1149z00_944, BgL_kz00_1877, BgL_arg2839z00_948); } } 
{ /* ./Ast/var.scm 21 */
BgL_typez00_bglt BgL_arg2844z00_950;
BgL_arg2844z00_950 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1148z00_941))->BgL_typez00); 
{ /* ./Ast/var.scm 21 */
int BgL_kz00_1881;obj_t BgL_oz00_1882;
BgL_kz00_1881 = 
(int)(((long)3)); 
BgL_oz00_1882 = 
(obj_t)(BgL_arg2844z00_950); 
STRUCT_SET(BgL_res1149z00_944, BgL_kz00_1881, BgL_oz00_1882); } } 
{ /* ./Ast/var.scm 21 */
BgL_valuez00_bglt BgL_arg2849z00_952;
BgL_arg2849z00_952 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1148z00_941))->BgL_valuez00); 
{ /* ./Ast/var.scm 21 */
int BgL_kz00_1885;obj_t BgL_oz00_1886;
BgL_kz00_1885 = 
(int)(((long)4)); 
BgL_oz00_1886 = 
(obj_t)(BgL_arg2849z00_952); 
STRUCT_SET(BgL_res1149z00_944, BgL_kz00_1885, BgL_oz00_1886); } } 
{ /* ./Ast/var.scm 21 */
obj_t BgL_arg2854z00_954;
BgL_arg2854z00_954 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1148z00_941))->BgL_accessz00); 
{ /* ./Ast/var.scm 21 */
int BgL_kz00_1889;
BgL_kz00_1889 = 
(int)(((long)5)); 
STRUCT_SET(BgL_res1149z00_944, BgL_kz00_1889, BgL_arg2854z00_954); } } 
{ /* ./Ast/var.scm 21 */
obj_t BgL_arg2859z00_956;
BgL_arg2859z00_956 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1148z00_941))->BgL_fastzd2alphazd2); 
{ /* ./Ast/var.scm 21 */
int BgL_kz00_1893;
BgL_kz00_1893 = 
(int)(((long)6)); 
STRUCT_SET(BgL_res1149z00_944, BgL_kz00_1893, BgL_arg2859z00_956); } } 
{ /* ./Ast/var.scm 21 */
obj_t BgL_arg2864z00_958;
BgL_arg2864z00_958 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1148z00_941))->BgL_removablez00); 
{ /* ./Ast/var.scm 21 */
int BgL_kz00_1897;
BgL_kz00_1897 = 
(int)(((long)7)); 
STRUCT_SET(BgL_res1149z00_944, BgL_kz00_1897, BgL_arg2864z00_958); } } 
{ /* ./Ast/var.scm 21 */
long BgL_arg2869z00_960;
BgL_arg2869z00_960 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1148z00_941))->BgL_occurrencez00); 
{ /* ./Ast/var.scm 21 */
int BgL_kz00_1901;obj_t BgL_oz00_1902;
BgL_kz00_1901 = 
(int)(((long)8)); 
BgL_oz00_1902 = 
BINT(BgL_arg2869z00_960); 
STRUCT_SET(BgL_res1149z00_944, BgL_kz00_1901, BgL_oz00_1902); } } 
return BgL_res1149z00_944;} } } 
}



/* struct+object->object-global1966 */
obj_t BGl_structzb2objectzd2ze3objectzd2global1966z51zzast_varz00(obj_t BgL_envz00_2190, obj_t BgL_oz00_2191, obj_t BgL_sz00_2192)
{ AN_OBJECT;
{ /* ./Ast/var.scm 40 */
{ 
BgL_globalz00_bglt BgL_oz00_918;obj_t BgL_sz00_919;
{ /* ./Ast/var.scm 40 */
BgL_globalz00_bglt BgL_auxz00_3597;
BgL_oz00_918 = 
(BgL_globalz00_bglt)(BgL_oz00_2191); 
BgL_sz00_919 = BgL_sz00_2192; 
{ /* ./Ast/var.scm 40 */
obj_t BgL_arg2806z00_922;
{ /* ./Ast/var.scm 40 */
int BgL_auxz00_3598;
BgL_auxz00_3598 = 
(int)(((long)0)); 
BgL_arg2806z00_922 = 
STRUCT_REF(BgL_sz00_919, BgL_auxz00_3598); } 
{ /* ./Ast/var.scm 40 */
BgL_objectz00_bglt BgL_auxz00_3601;
BgL_auxz00_3601 = 
(BgL_objectz00_bglt)(BgL_oz00_918); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3601, BgL_arg2806z00_922); } } 
{ /* ./Ast/var.scm 40 */
obj_t BgL_v1287z00_923;
{ /* ./Ast/var.scm 40 */
int BgL_auxz00_3604;
BgL_auxz00_3604 = 
(int)(((long)1)); 
BgL_v1287z00_923 = 
STRUCT_REF(BgL_sz00_919, BgL_auxz00_3604); } 
((((BgL_globalz00_bglt)CREF(BgL_oz00_918))->BgL_idz00) = ((obj_t)BgL_v1287z00_923), BUNSPEC); } 
{ /* ./Ast/var.scm 40 */
obj_t BgL_v1291z00_924;
{ /* ./Ast/var.scm 40 */
int BgL_auxz00_3608;
BgL_auxz00_3608 = 
(int)(((long)2)); 
BgL_v1291z00_924 = 
STRUCT_REF(BgL_sz00_919, BgL_auxz00_3608); } 
((((BgL_globalz00_bglt)CREF(BgL_oz00_918))->BgL_namez00) = ((obj_t)BgL_v1291z00_924), BUNSPEC); } 
{ /* ./Ast/var.scm 40 */
BgL_typez00_bglt BgL_v1295z00_925;
{ /* ./Ast/var.scm 40 */
obj_t BgL_auxz00_3612;
{ /* ./Ast/var.scm 40 */
int BgL_auxz00_3613;
BgL_auxz00_3613 = 
(int)(((long)3)); 
BgL_auxz00_3612 = 
STRUCT_REF(BgL_sz00_919, BgL_auxz00_3613); } 
BgL_v1295z00_925 = 
(BgL_typez00_bglt)(BgL_auxz00_3612); } 
((((BgL_globalz00_bglt)CREF(BgL_oz00_918))->BgL_typez00) = ((BgL_typez00_bglt)BgL_v1295z00_925), BUNSPEC); } 
{ /* ./Ast/var.scm 40 */
BgL_valuez00_bglt BgL_v1299z00_926;
{ /* ./Ast/var.scm 40 */
obj_t BgL_auxz00_3618;
{ /* ./Ast/var.scm 40 */
int BgL_auxz00_3619;
BgL_auxz00_3619 = 
(int)(((long)4)); 
BgL_auxz00_3618 = 
STRUCT_REF(BgL_sz00_919, BgL_auxz00_3619); } 
BgL_v1299z00_926 = 
(BgL_valuez00_bglt)(BgL_auxz00_3618); } 
((((BgL_globalz00_bglt)CREF(BgL_oz00_918))->BgL_valuez00) = ((BgL_valuez00_bglt)BgL_v1299z00_926), BUNSPEC); } 
{ /* ./Ast/var.scm 40 */
obj_t BgL_v1303z00_927;
{ /* ./Ast/var.scm 40 */
int BgL_auxz00_3624;
BgL_auxz00_3624 = 
(int)(((long)5)); 
BgL_v1303z00_927 = 
STRUCT_REF(BgL_sz00_919, BgL_auxz00_3624); } 
((((BgL_globalz00_bglt)CREF(BgL_oz00_918))->BgL_accessz00) = ((obj_t)BgL_v1303z00_927), BUNSPEC); } 
{ /* ./Ast/var.scm 40 */
obj_t BgL_v1307z00_928;
{ /* ./Ast/var.scm 40 */
int BgL_auxz00_3628;
BgL_auxz00_3628 = 
(int)(((long)6)); 
BgL_v1307z00_928 = 
STRUCT_REF(BgL_sz00_919, BgL_auxz00_3628); } 
((((BgL_globalz00_bglt)CREF(BgL_oz00_918))->BgL_fastzd2alphazd2) = ((obj_t)BgL_v1307z00_928), BUNSPEC); } 
{ /* ./Ast/var.scm 40 */
obj_t BgL_v1311z00_929;
{ /* ./Ast/var.scm 40 */
int BgL_auxz00_3632;
BgL_auxz00_3632 = 
(int)(((long)7)); 
BgL_v1311z00_929 = 
STRUCT_REF(BgL_sz00_919, BgL_auxz00_3632); } 
((((BgL_globalz00_bglt)CREF(BgL_oz00_918))->BgL_removablez00) = ((obj_t)BgL_v1311z00_929), BUNSPEC); } 
{ /* ./Ast/var.scm 40 */
long BgL_v1315z00_930;
{ /* ./Ast/var.scm 40 */
obj_t BgL_auxz00_3636;
{ /* ./Ast/var.scm 40 */
int BgL_auxz00_3637;
BgL_auxz00_3637 = 
(int)(((long)8)); 
BgL_auxz00_3636 = 
STRUCT_REF(BgL_sz00_919, BgL_auxz00_3637); } 
BgL_v1315z00_930 = 
(long)CINT(BgL_auxz00_3636); } 
((((BgL_globalz00_bglt)CREF(BgL_oz00_918))->BgL_occurrencez00) = ((long)BgL_v1315z00_930), BUNSPEC); } 
{ /* ./Ast/var.scm 40 */
obj_t BgL_v1319z00_931;
{ /* ./Ast/var.scm 40 */
int BgL_auxz00_3642;
BgL_auxz00_3642 = 
(int)(((long)9)); 
BgL_v1319z00_931 = 
STRUCT_REF(BgL_sz00_919, BgL_auxz00_3642); } 
((((BgL_globalz00_bglt)CREF(BgL_oz00_918))->BgL_modulez00) = ((obj_t)BgL_v1319z00_931), BUNSPEC); } 
{ /* ./Ast/var.scm 40 */
obj_t BgL_v1323z00_932;
{ /* ./Ast/var.scm 40 */
int BgL_auxz00_3646;
BgL_auxz00_3646 = 
(int)(((long)10)); 
BgL_v1323z00_932 = 
STRUCT_REF(BgL_sz00_919, BgL_auxz00_3646); } 
((((BgL_globalz00_bglt)CREF(BgL_oz00_918))->BgL_importz00) = ((obj_t)BgL_v1323z00_932), BUNSPEC); } 
{ /* ./Ast/var.scm 40 */
bool_t BgL_v1327z00_933;
{ /* ./Ast/var.scm 40 */
obj_t BgL_auxz00_3650;
{ /* ./Ast/var.scm 40 */
int BgL_auxz00_3651;
BgL_auxz00_3651 = 
(int)(((long)11)); 
BgL_auxz00_3650 = 
STRUCT_REF(BgL_sz00_919, BgL_auxz00_3651); } 
BgL_v1327z00_933 = 
CBOOL(BgL_auxz00_3650); } 
((((BgL_globalz00_bglt)CREF(BgL_oz00_918))->BgL_evaluablezf3zf3) = ((bool_t)BgL_v1327z00_933), BUNSPEC); } 
{ /* ./Ast/var.scm 40 */
bool_t BgL_v1331z00_934;
{ /* ./Ast/var.scm 40 */
obj_t BgL_auxz00_3656;
{ /* ./Ast/var.scm 40 */
int BgL_auxz00_3657;
BgL_auxz00_3657 = 
(int)(((long)12)); 
BgL_auxz00_3656 = 
STRUCT_REF(BgL_sz00_919, BgL_auxz00_3657); } 
BgL_v1331z00_934 = 
CBOOL(BgL_auxz00_3656); } 
((((BgL_globalz00_bglt)CREF(BgL_oz00_918))->BgL_libraryzf3zf3) = ((bool_t)BgL_v1331z00_934), BUNSPEC); } 
{ /* ./Ast/var.scm 40 */
bool_t BgL_v1335z00_935;
{ /* ./Ast/var.scm 40 */
obj_t BgL_auxz00_3662;
{ /* ./Ast/var.scm 40 */
int BgL_auxz00_3663;
BgL_auxz00_3663 = 
(int)(((long)13)); 
BgL_auxz00_3662 = 
STRUCT_REF(BgL_sz00_919, BgL_auxz00_3663); } 
BgL_v1335z00_935 = 
CBOOL(BgL_auxz00_3662); } 
((((BgL_globalz00_bglt)CREF(BgL_oz00_918))->BgL_userzf3zf3) = ((bool_t)BgL_v1335z00_935), BUNSPEC); } 
{ /* ./Ast/var.scm 40 */
obj_t BgL_v1339z00_936;
{ /* ./Ast/var.scm 40 */
int BgL_auxz00_3668;
BgL_auxz00_3668 = 
(int)(((long)14)); 
BgL_v1339z00_936 = 
STRUCT_REF(BgL_sz00_919, BgL_auxz00_3668); } 
((((BgL_globalz00_bglt)CREF(BgL_oz00_918))->BgL_pragmaz00) = ((obj_t)BgL_v1339z00_936), BUNSPEC); } 
{ /* ./Ast/var.scm 40 */
obj_t BgL_v1343z00_937;
{ /* ./Ast/var.scm 40 */
int BgL_auxz00_3672;
BgL_auxz00_3672 = 
(int)(((long)15)); 
BgL_v1343z00_937 = 
STRUCT_REF(BgL_sz00_919, BgL_auxz00_3672); } 
((((BgL_globalz00_bglt)CREF(BgL_oz00_918))->BgL_srcz00) = ((obj_t)BgL_v1343z00_937), BUNSPEC); } 
{ /* ./Ast/var.scm 40 */
obj_t BgL_v1347z00_938;
{ /* ./Ast/var.scm 40 */
int BgL_auxz00_3676;
BgL_auxz00_3676 = 
(int)(((long)16)); 
BgL_v1347z00_938 = 
STRUCT_REF(BgL_sz00_919, BgL_auxz00_3676); } 
((((BgL_globalz00_bglt)CREF(BgL_oz00_918))->BgL_jvmzd2typezd2namez00) = ((obj_t)BgL_v1347z00_938), BUNSPEC); } 
BgL_auxz00_3597 = BgL_oz00_918; 
return 
(obj_t)(BgL_auxz00_3597);} } } 
}



/* object->struct-global1964 */
obj_t BGl_objectzd2ze3structzd2global1964ze3zzast_varz00(obj_t BgL_envz00_2193, obj_t BgL_obj1283z00_2194)
{ AN_OBJECT;
{ /* ./Ast/var.scm 40 */
{ 
BgL_globalz00_bglt BgL_obj1283z00_880;
BgL_obj1283z00_880 = 
(BgL_globalz00_bglt)(BgL_obj1283z00_2194); 
{ /* ./Ast/var.scm 40 */
obj_t BgL_res1284z00_883;
{ /* ./Ast/var.scm 40 */
obj_t BgL_keyz00_1761;int BgL_lenz00_1762;
BgL_keyz00_1761 = 
CNST_TABLE_REF(((long)4)); 
BgL_lenz00_1762 = 
(int)(((long)17)); 
BgL_res1284z00_883 = 
make_struct(BgL_keyz00_1761, BgL_lenz00_1762, BUNSPEC); } 
{ /* ./Ast/var.scm 40 */
int BgL_kz00_1765;
BgL_kz00_1765 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res1284z00_883, BgL_kz00_1765, BFALSE); } 
{ /* ./Ast/var.scm 40 */
obj_t BgL_arg2720z00_885;
{ /* ./Ast/var.scm 40 */
BgL_variablez00_bglt BgL_obj1097z00_1767;
BgL_obj1097z00_1767 = 
(BgL_variablez00_bglt)(BgL_obj1283z00_880); 
BgL_arg2720z00_885 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1097z00_1767))->BgL_idz00); } 
{ /* ./Ast/var.scm 40 */
int BgL_kz00_1769;
BgL_kz00_1769 = 
(int)(((long)1)); 
STRUCT_SET(BgL_res1284z00_883, BgL_kz00_1769, BgL_arg2720z00_885); } } 
{ /* ./Ast/var.scm 40 */
obj_t BgL_arg2725z00_887;
{ /* ./Ast/var.scm 40 */
BgL_variablez00_bglt BgL_obj1098z00_1771;
BgL_obj1098z00_1771 = 
(BgL_variablez00_bglt)(BgL_obj1283z00_880); 
BgL_arg2725z00_887 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1098z00_1771))->BgL_namez00); } 
{ /* ./Ast/var.scm 40 */
int BgL_kz00_1773;
BgL_kz00_1773 = 
(int)(((long)2)); 
STRUCT_SET(BgL_res1284z00_883, BgL_kz00_1773, BgL_arg2725z00_887); } } 
{ /* ./Ast/var.scm 40 */
BgL_typez00_bglt BgL_arg2730z00_889;
{ /* ./Ast/var.scm 40 */
BgL_variablez00_bglt BgL_obj1101z00_1775;
BgL_obj1101z00_1775 = 
(BgL_variablez00_bglt)(BgL_obj1283z00_880); 
BgL_arg2730z00_889 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1101z00_1775))->BgL_typez00); } 
{ /* ./Ast/var.scm 40 */
int BgL_kz00_1777;obj_t BgL_oz00_1778;
BgL_kz00_1777 = 
(int)(((long)3)); 
BgL_oz00_1778 = 
(obj_t)(BgL_arg2730z00_889); 
STRUCT_SET(BgL_res1284z00_883, BgL_kz00_1777, BgL_oz00_1778); } } 
{ /* ./Ast/var.scm 40 */
BgL_valuez00_bglt BgL_arg2735z00_891;
{ /* ./Ast/var.scm 40 */
BgL_variablez00_bglt BgL_obj1104z00_1779;
BgL_obj1104z00_1779 = 
(BgL_variablez00_bglt)(BgL_obj1283z00_880); 
BgL_arg2735z00_891 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1104z00_1779))->BgL_valuez00); } 
{ /* ./Ast/var.scm 40 */
int BgL_kz00_1781;obj_t BgL_oz00_1782;
BgL_kz00_1781 = 
(int)(((long)4)); 
BgL_oz00_1782 = 
(obj_t)(BgL_arg2735z00_891); 
STRUCT_SET(BgL_res1284z00_883, BgL_kz00_1781, BgL_oz00_1782); } } 
{ /* ./Ast/var.scm 40 */
obj_t BgL_arg2740z00_893;
{ /* ./Ast/var.scm 40 */
BgL_variablez00_bglt BgL_obj1107z00_1783;
BgL_obj1107z00_1783 = 
(BgL_variablez00_bglt)(BgL_obj1283z00_880); 
BgL_arg2740z00_893 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1107z00_1783))->BgL_accessz00); } 
{ /* ./Ast/var.scm 40 */
int BgL_kz00_1785;
BgL_kz00_1785 = 
(int)(((long)5)); 
STRUCT_SET(BgL_res1284z00_883, BgL_kz00_1785, BgL_arg2740z00_893); } } 
{ /* ./Ast/var.scm 40 */
obj_t BgL_arg2745z00_895;
{ /* ./Ast/var.scm 40 */
BgL_variablez00_bglt BgL_obj1110z00_1787;
BgL_obj1110z00_1787 = 
(BgL_variablez00_bglt)(BgL_obj1283z00_880); 
BgL_arg2745z00_895 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1110z00_1787))->BgL_fastzd2alphazd2); } 
{ /* ./Ast/var.scm 40 */
int BgL_kz00_1789;
BgL_kz00_1789 = 
(int)(((long)6)); 
STRUCT_SET(BgL_res1284z00_883, BgL_kz00_1789, BgL_arg2745z00_895); } } 
{ /* ./Ast/var.scm 40 */
obj_t BgL_arg2750z00_897;
{ /* ./Ast/var.scm 40 */
BgL_variablez00_bglt BgL_obj1113z00_1791;
BgL_obj1113z00_1791 = 
(BgL_variablez00_bglt)(BgL_obj1283z00_880); 
BgL_arg2750z00_897 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1113z00_1791))->BgL_removablez00); } 
{ /* ./Ast/var.scm 40 */
int BgL_kz00_1793;
BgL_kz00_1793 = 
(int)(((long)7)); 
STRUCT_SET(BgL_res1284z00_883, BgL_kz00_1793, BgL_arg2750z00_897); } } 
{ /* ./Ast/var.scm 40 */
long BgL_arg2755z00_899;
{ /* ./Ast/var.scm 40 */
BgL_variablez00_bglt BgL_obj1116z00_1795;
BgL_obj1116z00_1795 = 
(BgL_variablez00_bglt)(BgL_obj1283z00_880); 
BgL_arg2755z00_899 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1116z00_1795))->BgL_occurrencez00); } 
{ /* ./Ast/var.scm 40 */
int BgL_kz00_1797;obj_t BgL_oz00_1798;
BgL_kz00_1797 = 
(int)(((long)8)); 
BgL_oz00_1798 = 
BINT(BgL_arg2755z00_899); 
STRUCT_SET(BgL_res1284z00_883, BgL_kz00_1797, BgL_oz00_1798); } } 
{ /* ./Ast/var.scm 40 */
obj_t BgL_arg2760z00_901;
BgL_arg2760z00_901 = 
(((BgL_globalz00_bglt)CREF(BgL_obj1283z00_880))->BgL_modulez00); 
{ /* ./Ast/var.scm 40 */
int BgL_kz00_1801;
BgL_kz00_1801 = 
(int)(((long)9)); 
STRUCT_SET(BgL_res1284z00_883, BgL_kz00_1801, BgL_arg2760z00_901); } } 
{ /* ./Ast/var.scm 40 */
obj_t BgL_arg2765z00_903;
BgL_arg2765z00_903 = 
(((BgL_globalz00_bglt)CREF(BgL_obj1283z00_880))->BgL_importz00); 
{ /* ./Ast/var.scm 40 */
int BgL_kz00_1805;
BgL_kz00_1805 = 
(int)(((long)10)); 
STRUCT_SET(BgL_res1284z00_883, BgL_kz00_1805, BgL_arg2765z00_903); } } 
{ /* ./Ast/var.scm 40 */
bool_t BgL_arg2770z00_905;
BgL_arg2770z00_905 = 
(((BgL_globalz00_bglt)CREF(BgL_obj1283z00_880))->BgL_evaluablezf3zf3); 
{ /* ./Ast/var.scm 40 */
int BgL_kz00_1809;obj_t BgL_oz00_1810;
BgL_kz00_1809 = 
(int)(((long)11)); 
BgL_oz00_1810 = 
BBOOL(BgL_arg2770z00_905); 
STRUCT_SET(BgL_res1284z00_883, BgL_kz00_1809, BgL_oz00_1810); } } 
{ /* ./Ast/var.scm 40 */
bool_t BgL_arg2775z00_907;
BgL_arg2775z00_907 = 
(((BgL_globalz00_bglt)CREF(BgL_obj1283z00_880))->BgL_libraryzf3zf3); 
{ /* ./Ast/var.scm 40 */
int BgL_kz00_1813;obj_t BgL_oz00_1814;
BgL_kz00_1813 = 
(int)(((long)12)); 
BgL_oz00_1814 = 
BBOOL(BgL_arg2775z00_907); 
STRUCT_SET(BgL_res1284z00_883, BgL_kz00_1813, BgL_oz00_1814); } } 
{ /* ./Ast/var.scm 40 */
bool_t BgL_arg2780z00_909;
BgL_arg2780z00_909 = 
(((BgL_globalz00_bglt)CREF(BgL_obj1283z00_880))->BgL_userzf3zf3); 
{ /* ./Ast/var.scm 40 */
int BgL_kz00_1817;obj_t BgL_oz00_1818;
BgL_kz00_1817 = 
(int)(((long)13)); 
BgL_oz00_1818 = 
BBOOL(BgL_arg2780z00_909); 
STRUCT_SET(BgL_res1284z00_883, BgL_kz00_1817, BgL_oz00_1818); } } 
{ /* ./Ast/var.scm 40 */
obj_t BgL_arg2785z00_911;
BgL_arg2785z00_911 = 
(((BgL_globalz00_bglt)CREF(BgL_obj1283z00_880))->BgL_pragmaz00); 
{ /* ./Ast/var.scm 40 */
int BgL_kz00_1821;
BgL_kz00_1821 = 
(int)(((long)14)); 
STRUCT_SET(BgL_res1284z00_883, BgL_kz00_1821, BgL_arg2785z00_911); } } 
{ /* ./Ast/var.scm 40 */
obj_t BgL_arg2790z00_913;
BgL_arg2790z00_913 = 
(((BgL_globalz00_bglt)CREF(BgL_obj1283z00_880))->BgL_srcz00); 
{ /* ./Ast/var.scm 40 */
int BgL_kz00_1825;
BgL_kz00_1825 = 
(int)(((long)15)); 
STRUCT_SET(BgL_res1284z00_883, BgL_kz00_1825, BgL_arg2790z00_913); } } 
{ /* ./Ast/var.scm 40 */
obj_t BgL_arg2795z00_915;
BgL_arg2795z00_915 = 
(((BgL_globalz00_bglt)CREF(BgL_obj1283z00_880))->BgL_jvmzd2typezd2namez00); 
{ /* ./Ast/var.scm 40 */
int BgL_kz00_1829;
BgL_kz00_1829 = 
(int)(((long)16)); 
STRUCT_SET(BgL_res1284z00_883, BgL_kz00_1829, BgL_arg2795z00_915); } } 
return BgL_res1284z00_883;} } } 
}



/* struct+object->object-local1962 */
obj_t BGl_structzb2objectzd2ze3objectzd2local1962z51zzast_varz00(obj_t BgL_envz00_2195, obj_t BgL_oz00_2196, obj_t BgL_sz00_2197)
{ AN_OBJECT;
{ /* ./Ast/var.scm 67 */
{ 
BgL_localz00_bglt BgL_oz00_863;obj_t BgL_sz00_864;
{ /* ./Ast/var.scm 67 */
BgL_localz00_bglt BgL_auxz00_3750;
BgL_oz00_863 = 
(BgL_localz00_bglt)(BgL_oz00_2196); 
BgL_sz00_864 = BgL_sz00_2197; 
{ /* ./Ast/var.scm 67 */
obj_t BgL_arg2698z00_867;
{ /* ./Ast/var.scm 67 */
int BgL_auxz00_3751;
BgL_auxz00_3751 = 
(int)(((long)0)); 
BgL_arg2698z00_867 = 
STRUCT_REF(BgL_sz00_864, BgL_auxz00_3751); } 
{ /* ./Ast/var.scm 67 */
BgL_objectz00_bglt BgL_auxz00_3754;
BgL_auxz00_3754 = 
(BgL_objectz00_bglt)(BgL_oz00_863); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3754, BgL_arg2698z00_867); } } 
{ /* ./Ast/var.scm 67 */
obj_t BgL_v1416z00_868;
{ /* ./Ast/var.scm 67 */
int BgL_auxz00_3757;
BgL_auxz00_3757 = 
(int)(((long)1)); 
BgL_v1416z00_868 = 
STRUCT_REF(BgL_sz00_864, BgL_auxz00_3757); } 
((((BgL_localz00_bglt)CREF(BgL_oz00_863))->BgL_idz00) = ((obj_t)BgL_v1416z00_868), BUNSPEC); } 
{ /* ./Ast/var.scm 67 */
obj_t BgL_v1420z00_869;
{ /* ./Ast/var.scm 67 */
int BgL_auxz00_3761;
BgL_auxz00_3761 = 
(int)(((long)2)); 
BgL_v1420z00_869 = 
STRUCT_REF(BgL_sz00_864, BgL_auxz00_3761); } 
((((BgL_localz00_bglt)CREF(BgL_oz00_863))->BgL_namez00) = ((obj_t)BgL_v1420z00_869), BUNSPEC); } 
{ /* ./Ast/var.scm 67 */
BgL_typez00_bglt BgL_v1424z00_870;
{ /* ./Ast/var.scm 67 */
obj_t BgL_auxz00_3765;
{ /* ./Ast/var.scm 67 */
int BgL_auxz00_3766;
BgL_auxz00_3766 = 
(int)(((long)3)); 
BgL_auxz00_3765 = 
STRUCT_REF(BgL_sz00_864, BgL_auxz00_3766); } 
BgL_v1424z00_870 = 
(BgL_typez00_bglt)(BgL_auxz00_3765); } 
((((BgL_localz00_bglt)CREF(BgL_oz00_863))->BgL_typez00) = ((BgL_typez00_bglt)BgL_v1424z00_870), BUNSPEC); } 
{ /* ./Ast/var.scm 67 */
BgL_valuez00_bglt BgL_v1428z00_871;
{ /* ./Ast/var.scm 67 */
obj_t BgL_auxz00_3771;
{ /* ./Ast/var.scm 67 */
int BgL_auxz00_3772;
BgL_auxz00_3772 = 
(int)(((long)4)); 
BgL_auxz00_3771 = 
STRUCT_REF(BgL_sz00_864, BgL_auxz00_3772); } 
BgL_v1428z00_871 = 
(BgL_valuez00_bglt)(BgL_auxz00_3771); } 
((((BgL_localz00_bglt)CREF(BgL_oz00_863))->BgL_valuez00) = ((BgL_valuez00_bglt)BgL_v1428z00_871), BUNSPEC); } 
{ /* ./Ast/var.scm 67 */
obj_t BgL_v1432z00_872;
{ /* ./Ast/var.scm 67 */
int BgL_auxz00_3777;
BgL_auxz00_3777 = 
(int)(((long)5)); 
BgL_v1432z00_872 = 
STRUCT_REF(BgL_sz00_864, BgL_auxz00_3777); } 
((((BgL_localz00_bglt)CREF(BgL_oz00_863))->BgL_accessz00) = ((obj_t)BgL_v1432z00_872), BUNSPEC); } 
{ /* ./Ast/var.scm 67 */
obj_t BgL_v1436z00_873;
{ /* ./Ast/var.scm 67 */
int BgL_auxz00_3781;
BgL_auxz00_3781 = 
(int)(((long)6)); 
BgL_v1436z00_873 = 
STRUCT_REF(BgL_sz00_864, BgL_auxz00_3781); } 
((((BgL_localz00_bglt)CREF(BgL_oz00_863))->BgL_fastzd2alphazd2) = ((obj_t)BgL_v1436z00_873), BUNSPEC); } 
{ /* ./Ast/var.scm 67 */
obj_t BgL_v1440z00_874;
{ /* ./Ast/var.scm 67 */
int BgL_auxz00_3785;
BgL_auxz00_3785 = 
(int)(((long)7)); 
BgL_v1440z00_874 = 
STRUCT_REF(BgL_sz00_864, BgL_auxz00_3785); } 
((((BgL_localz00_bglt)CREF(BgL_oz00_863))->BgL_removablez00) = ((obj_t)BgL_v1440z00_874), BUNSPEC); } 
{ /* ./Ast/var.scm 67 */
long BgL_v1444z00_875;
{ /* ./Ast/var.scm 67 */
obj_t BgL_auxz00_3789;
{ /* ./Ast/var.scm 67 */
int BgL_auxz00_3790;
BgL_auxz00_3790 = 
(int)(((long)8)); 
BgL_auxz00_3789 = 
STRUCT_REF(BgL_sz00_864, BgL_auxz00_3790); } 
BgL_v1444z00_875 = 
(long)CINT(BgL_auxz00_3789); } 
((((BgL_localz00_bglt)CREF(BgL_oz00_863))->BgL_occurrencez00) = ((long)BgL_v1444z00_875), BUNSPEC); } 
{ /* ./Ast/var.scm 67 */
bool_t BgL_v1448z00_876;
{ /* ./Ast/var.scm 67 */
obj_t BgL_auxz00_3795;
{ /* ./Ast/var.scm 67 */
int BgL_auxz00_3796;
BgL_auxz00_3796 = 
(int)(((long)9)); 
BgL_auxz00_3795 = 
STRUCT_REF(BgL_sz00_864, BgL_auxz00_3796); } 
BgL_v1448z00_876 = 
CBOOL(BgL_auxz00_3795); } 
((((BgL_localz00_bglt)CREF(BgL_oz00_863))->BgL_userzf3zf3) = ((bool_t)BgL_v1448z00_876), BUNSPEC); } 
{ /* ./Ast/var.scm 67 */
long BgL_v1452z00_877;
{ /* ./Ast/var.scm 67 */
obj_t BgL_auxz00_3801;
{ /* ./Ast/var.scm 67 */
int BgL_auxz00_3802;
BgL_auxz00_3802 = 
(int)(((long)10)); 
BgL_auxz00_3801 = 
STRUCT_REF(BgL_sz00_864, BgL_auxz00_3802); } 
BgL_v1452z00_877 = 
(long)CINT(BgL_auxz00_3801); } 
((((BgL_localz00_bglt)CREF(BgL_oz00_863))->BgL_keyz00) = ((long)BgL_v1452z00_877), BUNSPEC); } 
BgL_auxz00_3750 = BgL_oz00_863; 
return 
(obj_t)(BgL_auxz00_3750);} } } 
}



/* object->struct-local1960 */
obj_t BGl_objectzd2ze3structzd2local1960ze3zzast_varz00(obj_t BgL_envz00_2198, obj_t BgL_obj1412z00_2199)
{ AN_OBJECT;
{ /* ./Ast/var.scm 67 */
{ 
BgL_localz00_bglt BgL_obj1412z00_837;
BgL_obj1412z00_837 = 
(BgL_localz00_bglt)(BgL_obj1412z00_2199); 
{ /* ./Ast/var.scm 67 */
obj_t BgL_res1413z00_840;
{ /* ./Ast/var.scm 67 */
obj_t BgL_keyz00_1693;int BgL_lenz00_1694;
BgL_keyz00_1693 = 
CNST_TABLE_REF(((long)5)); 
BgL_lenz00_1694 = 
(int)(((long)11)); 
BgL_res1413z00_840 = 
make_struct(BgL_keyz00_1693, BgL_lenz00_1694, BUNSPEC); } 
{ /* ./Ast/var.scm 67 */
int BgL_kz00_1697;
BgL_kz00_1697 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res1413z00_840, BgL_kz00_1697, BFALSE); } 
{ /* ./Ast/var.scm 67 */
obj_t BgL_arg2641z00_842;
{ /* ./Ast/var.scm 67 */
BgL_variablez00_bglt BgL_obj1097z00_1699;
BgL_obj1097z00_1699 = 
(BgL_variablez00_bglt)(BgL_obj1412z00_837); 
BgL_arg2641z00_842 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1097z00_1699))->BgL_idz00); } 
{ /* ./Ast/var.scm 67 */
int BgL_kz00_1701;
BgL_kz00_1701 = 
(int)(((long)1)); 
STRUCT_SET(BgL_res1413z00_840, BgL_kz00_1701, BgL_arg2641z00_842); } } 
{ /* ./Ast/var.scm 67 */
obj_t BgL_arg2647z00_844;
{ /* ./Ast/var.scm 67 */
BgL_variablez00_bglt BgL_obj1098z00_1703;
BgL_obj1098z00_1703 = 
(BgL_variablez00_bglt)(BgL_obj1412z00_837); 
BgL_arg2647z00_844 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1098z00_1703))->BgL_namez00); } 
{ /* ./Ast/var.scm 67 */
int BgL_kz00_1705;
BgL_kz00_1705 = 
(int)(((long)2)); 
STRUCT_SET(BgL_res1413z00_840, BgL_kz00_1705, BgL_arg2647z00_844); } } 
{ /* ./Ast/var.scm 67 */
BgL_typez00_bglt BgL_arg2652z00_846;
{ /* ./Ast/var.scm 67 */
BgL_variablez00_bglt BgL_obj1101z00_1707;
BgL_obj1101z00_1707 = 
(BgL_variablez00_bglt)(BgL_obj1412z00_837); 
BgL_arg2652z00_846 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1101z00_1707))->BgL_typez00); } 
{ /* ./Ast/var.scm 67 */
int BgL_kz00_1709;obj_t BgL_oz00_1710;
BgL_kz00_1709 = 
(int)(((long)3)); 
BgL_oz00_1710 = 
(obj_t)(BgL_arg2652z00_846); 
STRUCT_SET(BgL_res1413z00_840, BgL_kz00_1709, BgL_oz00_1710); } } 
{ /* ./Ast/var.scm 67 */
BgL_valuez00_bglt BgL_arg2657z00_848;
{ /* ./Ast/var.scm 67 */
BgL_variablez00_bglt BgL_obj1104z00_1711;
BgL_obj1104z00_1711 = 
(BgL_variablez00_bglt)(BgL_obj1412z00_837); 
BgL_arg2657z00_848 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1104z00_1711))->BgL_valuez00); } 
{ /* ./Ast/var.scm 67 */
int BgL_kz00_1713;obj_t BgL_oz00_1714;
BgL_kz00_1713 = 
(int)(((long)4)); 
BgL_oz00_1714 = 
(obj_t)(BgL_arg2657z00_848); 
STRUCT_SET(BgL_res1413z00_840, BgL_kz00_1713, BgL_oz00_1714); } } 
{ /* ./Ast/var.scm 67 */
obj_t BgL_arg2662z00_850;
{ /* ./Ast/var.scm 67 */
BgL_variablez00_bglt BgL_obj1107z00_1715;
BgL_obj1107z00_1715 = 
(BgL_variablez00_bglt)(BgL_obj1412z00_837); 
BgL_arg2662z00_850 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1107z00_1715))->BgL_accessz00); } 
{ /* ./Ast/var.scm 67 */
int BgL_kz00_1717;
BgL_kz00_1717 = 
(int)(((long)5)); 
STRUCT_SET(BgL_res1413z00_840, BgL_kz00_1717, BgL_arg2662z00_850); } } 
{ /* ./Ast/var.scm 67 */
obj_t BgL_arg2667z00_852;
{ /* ./Ast/var.scm 67 */
BgL_variablez00_bglt BgL_obj1110z00_1719;
BgL_obj1110z00_1719 = 
(BgL_variablez00_bglt)(BgL_obj1412z00_837); 
BgL_arg2667z00_852 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1110z00_1719))->BgL_fastzd2alphazd2); } 
{ /* ./Ast/var.scm 67 */
int BgL_kz00_1721;
BgL_kz00_1721 = 
(int)(((long)6)); 
STRUCT_SET(BgL_res1413z00_840, BgL_kz00_1721, BgL_arg2667z00_852); } } 
{ /* ./Ast/var.scm 67 */
obj_t BgL_arg2672z00_854;
{ /* ./Ast/var.scm 67 */
BgL_variablez00_bglt BgL_obj1113z00_1723;
BgL_obj1113z00_1723 = 
(BgL_variablez00_bglt)(BgL_obj1412z00_837); 
BgL_arg2672z00_854 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1113z00_1723))->BgL_removablez00); } 
{ /* ./Ast/var.scm 67 */
int BgL_kz00_1725;
BgL_kz00_1725 = 
(int)(((long)7)); 
STRUCT_SET(BgL_res1413z00_840, BgL_kz00_1725, BgL_arg2672z00_854); } } 
{ /* ./Ast/var.scm 67 */
long BgL_arg2677z00_856;
{ /* ./Ast/var.scm 67 */
BgL_variablez00_bglt BgL_obj1116z00_1727;
BgL_obj1116z00_1727 = 
(BgL_variablez00_bglt)(BgL_obj1412z00_837); 
BgL_arg2677z00_856 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1116z00_1727))->BgL_occurrencez00); } 
{ /* ./Ast/var.scm 67 */
int BgL_kz00_1729;obj_t BgL_oz00_1730;
BgL_kz00_1729 = 
(int)(((long)8)); 
BgL_oz00_1730 = 
BINT(BgL_arg2677z00_856); 
STRUCT_SET(BgL_res1413z00_840, BgL_kz00_1729, BgL_oz00_1730); } } 
{ /* ./Ast/var.scm 67 */
bool_t BgL_arg2682z00_858;
BgL_arg2682z00_858 = 
(((BgL_localz00_bglt)CREF(BgL_obj1412z00_837))->BgL_userzf3zf3); 
{ /* ./Ast/var.scm 67 */
int BgL_kz00_1733;obj_t BgL_oz00_1734;
BgL_kz00_1733 = 
(int)(((long)9)); 
BgL_oz00_1734 = 
BBOOL(BgL_arg2682z00_858); 
STRUCT_SET(BgL_res1413z00_840, BgL_kz00_1733, BgL_oz00_1734); } } 
{ /* ./Ast/var.scm 67 */
long BgL_arg2687z00_860;
BgL_arg2687z00_860 = 
(((BgL_localz00_bglt)CREF(BgL_obj1412z00_837))->BgL_keyz00); 
{ /* ./Ast/var.scm 67 */
int BgL_kz00_1737;obj_t BgL_oz00_1738;
BgL_kz00_1737 = 
(int)(((long)10)); 
BgL_oz00_1738 = 
BINT(BgL_arg2687z00_860); 
STRUCT_SET(BgL_res1413z00_840, BgL_kz00_1737, BgL_oz00_1738); } } 
return BgL_res1413z00_840;} } } 
}



/* struct+object->object-fun1958 */
obj_t BGl_structzb2objectzd2ze3objectzd2fun1958z51zzast_varz00(obj_t BgL_envz00_2200, obj_t BgL_oz00_2201, obj_t BgL_sz00_2202)
{ AN_OBJECT;
{ /* ./Ast/var.scm 73 */
{ 
BgL_funz00_bglt BgL_oz00_823;obj_t BgL_sz00_824;
{ /* ./Ast/var.scm 73 */
BgL_funz00_bglt BgL_auxz00_3858;
BgL_oz00_823 = 
(BgL_funz00_bglt)(BgL_oz00_2201); 
BgL_sz00_824 = BgL_sz00_2202; 
{ /* ./Ast/var.scm 73 */
obj_t BgL_arg2622z00_827;
{ /* ./Ast/var.scm 73 */
int BgL_auxz00_3859;
BgL_auxz00_3859 = 
(int)(((long)0)); 
BgL_arg2622z00_827 = 
STRUCT_REF(BgL_sz00_824, BgL_auxz00_3859); } 
{ /* ./Ast/var.scm 73 */
BgL_objectz00_bglt BgL_auxz00_3862;
BgL_auxz00_3862 = 
(BgL_objectz00_bglt)(BgL_oz00_823); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3862, BgL_arg2622z00_827); } } 
{ /* ./Ast/var.scm 73 */
long BgL_v1505z00_828;
{ /* ./Ast/var.scm 73 */
obj_t BgL_auxz00_3865;
{ /* ./Ast/var.scm 73 */
int BgL_auxz00_3866;
BgL_auxz00_3866 = 
(int)(((long)1)); 
BgL_auxz00_3865 = 
STRUCT_REF(BgL_sz00_824, BgL_auxz00_3866); } 
BgL_v1505z00_828 = 
(long)CINT(BgL_auxz00_3865); } 
((((BgL_funz00_bglt)CREF(BgL_oz00_823))->BgL_arityz00) = ((long)BgL_v1505z00_828), BUNSPEC); } 
{ /* ./Ast/var.scm 73 */
obj_t BgL_v1509z00_829;
{ /* ./Ast/var.scm 73 */
int BgL_auxz00_3871;
BgL_auxz00_3871 = 
(int)(((long)2)); 
BgL_v1509z00_829 = 
STRUCT_REF(BgL_sz00_824, BgL_auxz00_3871); } 
((((BgL_funz00_bglt)CREF(BgL_oz00_823))->BgL_sidezd2effectzf3z21) = ((obj_t)BgL_v1509z00_829), BUNSPEC); } 
{ /* ./Ast/var.scm 73 */
obj_t BgL_v1513z00_830;
{ /* ./Ast/var.scm 73 */
int BgL_auxz00_3875;
BgL_auxz00_3875 = 
(int)(((long)3)); 
BgL_v1513z00_830 = 
STRUCT_REF(BgL_sz00_824, BgL_auxz00_3875); } 
((((BgL_funz00_bglt)CREF(BgL_oz00_823))->BgL_predicatezd2ofzd2) = ((obj_t)BgL_v1513z00_830), BUNSPEC); } 
{ /* ./Ast/var.scm 73 */
obj_t BgL_v1517z00_831;
{ /* ./Ast/var.scm 73 */
int BgL_auxz00_3879;
BgL_auxz00_3879 = 
(int)(((long)4)); 
BgL_v1517z00_831 = 
STRUCT_REF(BgL_sz00_824, BgL_auxz00_3879); } 
((((BgL_funz00_bglt)CREF(BgL_oz00_823))->BgL_stackzd2allocatorzd2) = ((obj_t)BgL_v1517z00_831), BUNSPEC); } 
{ /* ./Ast/var.scm 73 */
bool_t BgL_v1521z00_832;
{ /* ./Ast/var.scm 73 */
obj_t BgL_auxz00_3883;
{ /* ./Ast/var.scm 73 */
int BgL_auxz00_3884;
BgL_auxz00_3884 = 
(int)(((long)5)); 
BgL_auxz00_3883 = 
STRUCT_REF(BgL_sz00_824, BgL_auxz00_3884); } 
BgL_v1521z00_832 = 
CBOOL(BgL_auxz00_3883); } 
((((BgL_funz00_bglt)CREF(BgL_oz00_823))->BgL_topzf3zf3) = ((bool_t)BgL_v1521z00_832), BUNSPEC); } 
{ /* ./Ast/var.scm 73 */
obj_t BgL_v1525z00_833;
{ /* ./Ast/var.scm 73 */
int BgL_auxz00_3889;
BgL_auxz00_3889 = 
(int)(((long)6)); 
BgL_v1525z00_833 = 
STRUCT_REF(BgL_sz00_824, BgL_auxz00_3889); } 
((((BgL_funz00_bglt)CREF(BgL_oz00_823))->BgL_thezd2closurezd2) = ((obj_t)BgL_v1525z00_833), BUNSPEC); } 
{ /* ./Ast/var.scm 73 */
obj_t BgL_v1529z00_834;
{ /* ./Ast/var.scm 73 */
int BgL_auxz00_3893;
BgL_auxz00_3893 = 
(int)(((long)7)); 
BgL_v1529z00_834 = 
STRUCT_REF(BgL_sz00_824, BgL_auxz00_3893); } 
((((BgL_funz00_bglt)CREF(BgL_oz00_823))->BgL_effectz00) = ((obj_t)BgL_v1529z00_834), BUNSPEC); } 
BgL_auxz00_3858 = BgL_oz00_823; 
return 
(obj_t)(BgL_auxz00_3858);} } } 
}



/* object->struct-fun1956 */
obj_t BGl_objectzd2ze3structzd2fun1956ze3zzast_varz00(obj_t BgL_envz00_2203, obj_t BgL_obj1501z00_2204)
{ AN_OBJECT;
{ /* ./Ast/var.scm 73 */
{ 
BgL_funz00_bglt BgL_obj1501z00_803;
BgL_obj1501z00_803 = 
(BgL_funz00_bglt)(BgL_obj1501z00_2204); 
{ /* ./Ast/var.scm 73 */
obj_t BgL_res1502z00_806;
{ /* ./Ast/var.scm 73 */
obj_t BgL_keyz00_1643;int BgL_lenz00_1644;
BgL_keyz00_1643 = 
CNST_TABLE_REF(((long)6)); 
BgL_lenz00_1644 = 
(int)(((long)8)); 
BgL_res1502z00_806 = 
make_struct(BgL_keyz00_1643, BgL_lenz00_1644, BUNSPEC); } 
{ /* ./Ast/var.scm 73 */
int BgL_kz00_1647;
BgL_kz00_1647 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res1502z00_806, BgL_kz00_1647, BFALSE); } 
{ /* ./Ast/var.scm 73 */
long BgL_arg2581z00_808;
BgL_arg2581z00_808 = 
(((BgL_funz00_bglt)CREF(BgL_obj1501z00_803))->BgL_arityz00); 
{ /* ./Ast/var.scm 73 */
int BgL_kz00_1651;obj_t BgL_oz00_1652;
BgL_kz00_1651 = 
(int)(((long)1)); 
BgL_oz00_1652 = 
BINT(BgL_arg2581z00_808); 
STRUCT_SET(BgL_res1502z00_806, BgL_kz00_1651, BgL_oz00_1652); } } 
{ /* ./Ast/var.scm 73 */
obj_t BgL_arg2586z00_810;
BgL_arg2586z00_810 = 
(((BgL_funz00_bglt)CREF(BgL_obj1501z00_803))->BgL_sidezd2effectzf3z21); 
{ /* ./Ast/var.scm 73 */
int BgL_kz00_1655;
BgL_kz00_1655 = 
(int)(((long)2)); 
STRUCT_SET(BgL_res1502z00_806, BgL_kz00_1655, BgL_arg2586z00_810); } } 
{ /* ./Ast/var.scm 73 */
obj_t BgL_arg2591z00_812;
BgL_arg2591z00_812 = 
(((BgL_funz00_bglt)CREF(BgL_obj1501z00_803))->BgL_predicatezd2ofzd2); 
{ /* ./Ast/var.scm 73 */
int BgL_kz00_1659;
BgL_kz00_1659 = 
(int)(((long)3)); 
STRUCT_SET(BgL_res1502z00_806, BgL_kz00_1659, BgL_arg2591z00_812); } } 
{ /* ./Ast/var.scm 73 */
obj_t BgL_arg2596z00_814;
BgL_arg2596z00_814 = 
(((BgL_funz00_bglt)CREF(BgL_obj1501z00_803))->BgL_stackzd2allocatorzd2); 
{ /* ./Ast/var.scm 73 */
int BgL_kz00_1663;
BgL_kz00_1663 = 
(int)(((long)4)); 
STRUCT_SET(BgL_res1502z00_806, BgL_kz00_1663, BgL_arg2596z00_814); } } 
{ /* ./Ast/var.scm 73 */
bool_t BgL_arg2601z00_816;
BgL_arg2601z00_816 = 
(((BgL_funz00_bglt)CREF(BgL_obj1501z00_803))->BgL_topzf3zf3); 
{ /* ./Ast/var.scm 73 */
int BgL_kz00_1667;obj_t BgL_oz00_1668;
BgL_kz00_1667 = 
(int)(((long)5)); 
BgL_oz00_1668 = 
BBOOL(BgL_arg2601z00_816); 
STRUCT_SET(BgL_res1502z00_806, BgL_kz00_1667, BgL_oz00_1668); } } 
{ /* ./Ast/var.scm 73 */
obj_t BgL_arg2606z00_818;
BgL_arg2606z00_818 = 
(((BgL_funz00_bglt)CREF(BgL_obj1501z00_803))->BgL_thezd2closurezd2); 
{ /* ./Ast/var.scm 73 */
int BgL_kz00_1671;
BgL_kz00_1671 = 
(int)(((long)6)); 
STRUCT_SET(BgL_res1502z00_806, BgL_kz00_1671, BgL_arg2606z00_818); } } 
{ /* ./Ast/var.scm 73 */
obj_t BgL_arg2611z00_820;
BgL_arg2611z00_820 = 
(((BgL_funz00_bglt)CREF(BgL_obj1501z00_803))->BgL_effectz00); 
{ /* ./Ast/var.scm 73 */
int BgL_kz00_1675;
BgL_kz00_1675 = 
(int)(((long)7)); 
STRUCT_SET(BgL_res1502z00_806, BgL_kz00_1675, BgL_arg2611z00_820); } } 
return BgL_res1502z00_806;} } } 
}



/* struct+object->object-sfun1954 */
obj_t BGl_structzb2objectzd2ze3objectzd2sfun1954z51zzast_varz00(obj_t BgL_envz00_2205, obj_t BgL_oz00_2206, obj_t BgL_sz00_2207)
{ AN_OBJECT;
{ /* ./Ast/var.scm 89 */
{ 
BgL_sfunz00_bglt BgL_oz00_783;obj_t BgL_sz00_784;
{ /* ./Ast/var.scm 89 */
BgL_sfunz00_bglt BgL_auxz00_3928;
BgL_oz00_783 = 
(BgL_sfunz00_bglt)(BgL_oz00_2206); 
BgL_sz00_784 = BgL_sz00_2207; 
{ /* ./Ast/var.scm 89 */
obj_t BgL_arg2556z00_787;
{ /* ./Ast/var.scm 89 */
int BgL_auxz00_3929;
BgL_auxz00_3929 = 
(int)(((long)0)); 
BgL_arg2556z00_787 = 
STRUCT_REF(BgL_sz00_784, BgL_auxz00_3929); } 
{ /* ./Ast/var.scm 89 */
BgL_objectz00_bglt BgL_auxz00_3932;
BgL_auxz00_3932 = 
(BgL_objectz00_bglt)(BgL_oz00_783); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3932, BgL_arg2556z00_787); } } 
{ /* ./Ast/var.scm 89 */
long BgL_v1618z00_788;
{ /* ./Ast/var.scm 89 */
obj_t BgL_auxz00_3935;
{ /* ./Ast/var.scm 89 */
int BgL_auxz00_3936;
BgL_auxz00_3936 = 
(int)(((long)1)); 
BgL_auxz00_3935 = 
STRUCT_REF(BgL_sz00_784, BgL_auxz00_3936); } 
BgL_v1618z00_788 = 
(long)CINT(BgL_auxz00_3935); } 
((((BgL_sfunz00_bglt)CREF(BgL_oz00_783))->BgL_arityz00) = ((long)BgL_v1618z00_788), BUNSPEC); } 
{ /* ./Ast/var.scm 89 */
obj_t BgL_v1622z00_789;
{ /* ./Ast/var.scm 89 */
int BgL_auxz00_3941;
BgL_auxz00_3941 = 
(int)(((long)2)); 
BgL_v1622z00_789 = 
STRUCT_REF(BgL_sz00_784, BgL_auxz00_3941); } 
((((BgL_sfunz00_bglt)CREF(BgL_oz00_783))->BgL_sidezd2effectzf3z21) = ((obj_t)BgL_v1622z00_789), BUNSPEC); } 
{ /* ./Ast/var.scm 89 */
obj_t BgL_v1626z00_790;
{ /* ./Ast/var.scm 89 */
int BgL_auxz00_3945;
BgL_auxz00_3945 = 
(int)(((long)3)); 
BgL_v1626z00_790 = 
STRUCT_REF(BgL_sz00_784, BgL_auxz00_3945); } 
((((BgL_sfunz00_bglt)CREF(BgL_oz00_783))->BgL_predicatezd2ofzd2) = ((obj_t)BgL_v1626z00_790), BUNSPEC); } 
{ /* ./Ast/var.scm 89 */
obj_t BgL_v1630z00_791;
{ /* ./Ast/var.scm 89 */
int BgL_auxz00_3949;
BgL_auxz00_3949 = 
(int)(((long)4)); 
BgL_v1630z00_791 = 
STRUCT_REF(BgL_sz00_784, BgL_auxz00_3949); } 
((((BgL_sfunz00_bglt)CREF(BgL_oz00_783))->BgL_stackzd2allocatorzd2) = ((obj_t)BgL_v1630z00_791), BUNSPEC); } 
{ /* ./Ast/var.scm 89 */
bool_t BgL_v1634z00_792;
{ /* ./Ast/var.scm 89 */
obj_t BgL_auxz00_3953;
{ /* ./Ast/var.scm 89 */
int BgL_auxz00_3954;
BgL_auxz00_3954 = 
(int)(((long)5)); 
BgL_auxz00_3953 = 
STRUCT_REF(BgL_sz00_784, BgL_auxz00_3954); } 
BgL_v1634z00_792 = 
CBOOL(BgL_auxz00_3953); } 
((((BgL_sfunz00_bglt)CREF(BgL_oz00_783))->BgL_topzf3zf3) = ((bool_t)BgL_v1634z00_792), BUNSPEC); } 
{ /* ./Ast/var.scm 89 */
obj_t BgL_v1638z00_793;
{ /* ./Ast/var.scm 89 */
int BgL_auxz00_3959;
BgL_auxz00_3959 = 
(int)(((long)6)); 
BgL_v1638z00_793 = 
STRUCT_REF(BgL_sz00_784, BgL_auxz00_3959); } 
((((BgL_sfunz00_bglt)CREF(BgL_oz00_783))->BgL_thezd2closurezd2) = ((obj_t)BgL_v1638z00_793), BUNSPEC); } 
{ /* ./Ast/var.scm 89 */
obj_t BgL_v1642z00_794;
{ /* ./Ast/var.scm 89 */
int BgL_auxz00_3963;
BgL_auxz00_3963 = 
(int)(((long)7)); 
BgL_v1642z00_794 = 
STRUCT_REF(BgL_sz00_784, BgL_auxz00_3963); } 
((((BgL_sfunz00_bglt)CREF(BgL_oz00_783))->BgL_effectz00) = ((obj_t)BgL_v1642z00_794), BUNSPEC); } 
{ /* ./Ast/var.scm 89 */
obj_t BgL_v1646z00_795;
{ /* ./Ast/var.scm 89 */
int BgL_auxz00_3967;
BgL_auxz00_3967 = 
(int)(((long)8)); 
BgL_v1646z00_795 = 
STRUCT_REF(BgL_sz00_784, BgL_auxz00_3967); } 
((((BgL_sfunz00_bglt)CREF(BgL_oz00_783))->BgL_propertyz00) = ((obj_t)BgL_v1646z00_795), BUNSPEC); } 
{ /* ./Ast/var.scm 89 */
obj_t BgL_v1650z00_796;
{ /* ./Ast/var.scm 89 */
int BgL_auxz00_3971;
BgL_auxz00_3971 = 
(int)(((long)9)); 
BgL_v1650z00_796 = 
STRUCT_REF(BgL_sz00_784, BgL_auxz00_3971); } 
((((BgL_sfunz00_bglt)CREF(BgL_oz00_783))->BgL_argsz00) = ((obj_t)BgL_v1650z00_796), BUNSPEC); } 
{ /* ./Ast/var.scm 89 */
obj_t BgL_v1654z00_797;
{ /* ./Ast/var.scm 89 */
int BgL_auxz00_3975;
BgL_auxz00_3975 = 
(int)(((long)10)); 
BgL_v1654z00_797 = 
STRUCT_REF(BgL_sz00_784, BgL_auxz00_3975); } 
((((BgL_sfunz00_bglt)CREF(BgL_oz00_783))->BgL_bodyz00) = ((obj_t)BgL_v1654z00_797), BUNSPEC); } 
{ /* ./Ast/var.scm 89 */
obj_t BgL_v1658z00_798;
{ /* ./Ast/var.scm 89 */
int BgL_auxz00_3979;
BgL_auxz00_3979 = 
(int)(((long)11)); 
BgL_v1658z00_798 = 
STRUCT_REF(BgL_sz00_784, BgL_auxz00_3979); } 
((((BgL_sfunz00_bglt)CREF(BgL_oz00_783))->BgL_classz00) = ((obj_t)BgL_v1658z00_798), BUNSPEC); } 
{ /* ./Ast/var.scm 89 */
obj_t BgL_v1662z00_799;
{ /* ./Ast/var.scm 89 */
int BgL_auxz00_3983;
BgL_auxz00_3983 = 
(int)(((long)12)); 
BgL_v1662z00_799 = 
STRUCT_REF(BgL_sz00_784, BgL_auxz00_3983); } 
((((BgL_sfunz00_bglt)CREF(BgL_oz00_783))->BgL_dssslzd2keywordszd2) = ((obj_t)BgL_v1662z00_799), BUNSPEC); } 
{ /* ./Ast/var.scm 89 */
obj_t BgL_v1666z00_800;
{ /* ./Ast/var.scm 89 */
int BgL_auxz00_3987;
BgL_auxz00_3987 = 
(int)(((long)13)); 
BgL_v1666z00_800 = 
STRUCT_REF(BgL_sz00_784, BgL_auxz00_3987); } 
((((BgL_sfunz00_bglt)CREF(BgL_oz00_783))->BgL_locz00) = ((obj_t)BgL_v1666z00_800), BUNSPEC); } 
BgL_auxz00_3928 = BgL_oz00_783; 
return 
(obj_t)(BgL_auxz00_3928);} } } 
}



/* object->struct-sfun1952 */
obj_t BGl_objectzd2ze3structzd2sfun1952ze3zzast_varz00(obj_t BgL_envz00_2208, obj_t BgL_obj1614z00_2209)
{ AN_OBJECT;
{ /* ./Ast/var.scm 89 */
{ 
BgL_sfunz00_bglt BgL_obj1614z00_751;
BgL_obj1614z00_751 = 
(BgL_sfunz00_bglt)(BgL_obj1614z00_2209); 
{ /* ./Ast/var.scm 89 */
obj_t BgL_res1615z00_754;
{ /* ./Ast/var.scm 89 */
obj_t BgL_keyz00_1557;int BgL_lenz00_1558;
BgL_keyz00_1557 = 
CNST_TABLE_REF(((long)7)); 
BgL_lenz00_1558 = 
(int)(((long)14)); 
BgL_res1615z00_754 = 
make_struct(BgL_keyz00_1557, BgL_lenz00_1558, BUNSPEC); } 
{ /* ./Ast/var.scm 89 */
int BgL_kz00_1561;
BgL_kz00_1561 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res1615z00_754, BgL_kz00_1561, BFALSE); } 
{ /* ./Ast/var.scm 89 */
long BgL_arg2484z00_756;
{ /* ./Ast/var.scm 89 */
BgL_funz00_bglt BgL_obj1455z00_1563;
BgL_obj1455z00_1563 = 
(BgL_funz00_bglt)(BgL_obj1614z00_751); 
BgL_arg2484z00_756 = 
(((BgL_funz00_bglt)CREF(BgL_obj1455z00_1563))->BgL_arityz00); } 
{ /* ./Ast/var.scm 89 */
int BgL_kz00_1565;obj_t BgL_oz00_1566;
BgL_kz00_1565 = 
(int)(((long)1)); 
BgL_oz00_1566 = 
BINT(BgL_arg2484z00_756); 
STRUCT_SET(BgL_res1615z00_754, BgL_kz00_1565, BgL_oz00_1566); } } 
{ /* ./Ast/var.scm 89 */
obj_t BgL_arg2489z00_758;
{ /* ./Ast/var.scm 89 */
BgL_funz00_bglt BgL_obj1457z00_1567;
BgL_obj1457z00_1567 = 
(BgL_funz00_bglt)(BgL_obj1614z00_751); 
BgL_arg2489z00_758 = 
(((BgL_funz00_bglt)CREF(BgL_obj1457z00_1567))->BgL_sidezd2effectzf3z21); } 
{ /* ./Ast/var.scm 89 */
int BgL_kz00_1569;
BgL_kz00_1569 = 
(int)(((long)2)); 
STRUCT_SET(BgL_res1615z00_754, BgL_kz00_1569, BgL_arg2489z00_758); } } 
{ /* ./Ast/var.scm 89 */
obj_t BgL_arg2494z00_760;
{ /* ./Ast/var.scm 89 */
BgL_funz00_bglt BgL_obj1460z00_1571;
BgL_obj1460z00_1571 = 
(BgL_funz00_bglt)(BgL_obj1614z00_751); 
BgL_arg2494z00_760 = 
(((BgL_funz00_bglt)CREF(BgL_obj1460z00_1571))->BgL_predicatezd2ofzd2); } 
{ /* ./Ast/var.scm 89 */
int BgL_kz00_1573;
BgL_kz00_1573 = 
(int)(((long)3)); 
STRUCT_SET(BgL_res1615z00_754, BgL_kz00_1573, BgL_arg2494z00_760); } } 
{ /* ./Ast/var.scm 89 */
obj_t BgL_arg2499z00_762;
{ /* ./Ast/var.scm 89 */
BgL_funz00_bglt BgL_obj1463z00_1575;
BgL_obj1463z00_1575 = 
(BgL_funz00_bglt)(BgL_obj1614z00_751); 
BgL_arg2499z00_762 = 
(((BgL_funz00_bglt)CREF(BgL_obj1463z00_1575))->BgL_stackzd2allocatorzd2); } 
{ /* ./Ast/var.scm 89 */
int BgL_kz00_1577;
BgL_kz00_1577 = 
(int)(((long)4)); 
STRUCT_SET(BgL_res1615z00_754, BgL_kz00_1577, BgL_arg2499z00_762); } } 
{ /* ./Ast/var.scm 89 */
bool_t BgL_arg2504z00_764;
{ /* ./Ast/var.scm 89 */
BgL_funz00_bglt BgL_obj1466z00_1579;
BgL_obj1466z00_1579 = 
(BgL_funz00_bglt)(BgL_obj1614z00_751); 
BgL_arg2504z00_764 = 
(((BgL_funz00_bglt)CREF(BgL_obj1466z00_1579))->BgL_topzf3zf3); } 
{ /* ./Ast/var.scm 89 */
int BgL_kz00_1581;obj_t BgL_oz00_1582;
BgL_kz00_1581 = 
(int)(((long)5)); 
BgL_oz00_1582 = 
BBOOL(BgL_arg2504z00_764); 
STRUCT_SET(BgL_res1615z00_754, BgL_kz00_1581, BgL_oz00_1582); } } 
{ /* ./Ast/var.scm 89 */
obj_t BgL_arg2509z00_766;
{ /* ./Ast/var.scm 89 */
BgL_funz00_bglt BgL_obj1469z00_1583;
BgL_obj1469z00_1583 = 
(BgL_funz00_bglt)(BgL_obj1614z00_751); 
BgL_arg2509z00_766 = 
(((BgL_funz00_bglt)CREF(BgL_obj1469z00_1583))->BgL_thezd2closurezd2); } 
{ /* ./Ast/var.scm 89 */
int BgL_kz00_1585;
BgL_kz00_1585 = 
(int)(((long)6)); 
STRUCT_SET(BgL_res1615z00_754, BgL_kz00_1585, BgL_arg2509z00_766); } } 
{ /* ./Ast/var.scm 89 */
obj_t BgL_arg2514z00_768;
{ /* ./Ast/var.scm 89 */
BgL_funz00_bglt BgL_obj1472z00_1587;
BgL_obj1472z00_1587 = 
(BgL_funz00_bglt)(BgL_obj1614z00_751); 
BgL_arg2514z00_768 = 
(((BgL_funz00_bglt)CREF(BgL_obj1472z00_1587))->BgL_effectz00); } 
{ /* ./Ast/var.scm 89 */
int BgL_kz00_1589;
BgL_kz00_1589 = 
(int)(((long)7)); 
STRUCT_SET(BgL_res1615z00_754, BgL_kz00_1589, BgL_arg2514z00_768); } } 
{ /* ./Ast/var.scm 89 */
obj_t BgL_arg2519z00_770;
BgL_arg2519z00_770 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1614z00_751))->BgL_propertyz00); 
{ /* ./Ast/var.scm 89 */
int BgL_kz00_1593;
BgL_kz00_1593 = 
(int)(((long)8)); 
STRUCT_SET(BgL_res1615z00_754, BgL_kz00_1593, BgL_arg2519z00_770); } } 
{ /* ./Ast/var.scm 89 */
obj_t BgL_arg2524z00_772;
BgL_arg2524z00_772 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1614z00_751))->BgL_argsz00); 
{ /* ./Ast/var.scm 89 */
int BgL_kz00_1597;
BgL_kz00_1597 = 
(int)(((long)9)); 
STRUCT_SET(BgL_res1615z00_754, BgL_kz00_1597, BgL_arg2524z00_772); } } 
{ /* ./Ast/var.scm 89 */
obj_t BgL_arg2530z00_774;
BgL_arg2530z00_774 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1614z00_751))->BgL_bodyz00); 
{ /* ./Ast/var.scm 89 */
int BgL_kz00_1601;
BgL_kz00_1601 = 
(int)(((long)10)); 
STRUCT_SET(BgL_res1615z00_754, BgL_kz00_1601, BgL_arg2530z00_774); } } 
{ /* ./Ast/var.scm 89 */
obj_t BgL_arg2535z00_776;
BgL_arg2535z00_776 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1614z00_751))->BgL_classz00); 
{ /* ./Ast/var.scm 89 */
int BgL_kz00_1605;
BgL_kz00_1605 = 
(int)(((long)11)); 
STRUCT_SET(BgL_res1615z00_754, BgL_kz00_1605, BgL_arg2535z00_776); } } 
{ /* ./Ast/var.scm 89 */
obj_t BgL_arg2540z00_778;
BgL_arg2540z00_778 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1614z00_751))->BgL_dssslzd2keywordszd2); 
{ /* ./Ast/var.scm 89 */
int BgL_kz00_1609;
BgL_kz00_1609 = 
(int)(((long)12)); 
STRUCT_SET(BgL_res1615z00_754, BgL_kz00_1609, BgL_arg2540z00_778); } } 
{ /* ./Ast/var.scm 89 */
obj_t BgL_arg2545z00_780;
BgL_arg2545z00_780 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1614z00_751))->BgL_locz00); 
{ /* ./Ast/var.scm 89 */
int BgL_kz00_1613;
BgL_kz00_1613 = 
(int)(((long)13)); 
STRUCT_SET(BgL_res1615z00_754, BgL_kz00_1613, BgL_arg2545z00_780); } } 
return BgL_res1615z00_754;} } } 
}



/* struct+object->object-cfun1950 */
obj_t BGl_structzb2objectzd2ze3objectzd2cfun1950z51zzast_varz00(obj_t BgL_envz00_2210, obj_t BgL_oz00_2211, obj_t BgL_sz00_2212)
{ AN_OBJECT;
{ /* ./Ast/var.scm 106 */
{ 
BgL_cfunz00_bglt BgL_oz00_733;obj_t BgL_sz00_734;
{ /* ./Ast/var.scm 106 */
BgL_cfunz00_bglt BgL_auxz00_4047;
BgL_oz00_733 = 
(BgL_cfunz00_bglt)(BgL_oz00_2211); 
BgL_sz00_734 = BgL_sz00_2212; 
{ /* ./Ast/var.scm 106 */
obj_t BgL_arg2461z00_737;
{ /* ./Ast/var.scm 106 */
int BgL_auxz00_4048;
BgL_auxz00_4048 = 
(int)(((long)0)); 
BgL_arg2461z00_737 = 
STRUCT_REF(BgL_sz00_734, BgL_auxz00_4048); } 
{ /* ./Ast/var.scm 106 */
BgL_objectz00_bglt BgL_auxz00_4051;
BgL_auxz00_4051 = 
(BgL_objectz00_bglt)(BgL_oz00_733); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4051, BgL_arg2461z00_737); } } 
{ /* ./Ast/var.scm 106 */
long BgL_v1738z00_738;
{ /* ./Ast/var.scm 106 */
obj_t BgL_auxz00_4054;
{ /* ./Ast/var.scm 106 */
int BgL_auxz00_4055;
BgL_auxz00_4055 = 
(int)(((long)1)); 
BgL_auxz00_4054 = 
STRUCT_REF(BgL_sz00_734, BgL_auxz00_4055); } 
BgL_v1738z00_738 = 
(long)CINT(BgL_auxz00_4054); } 
((((BgL_cfunz00_bglt)CREF(BgL_oz00_733))->BgL_arityz00) = ((long)BgL_v1738z00_738), BUNSPEC); } 
{ /* ./Ast/var.scm 106 */
obj_t BgL_v1742z00_739;
{ /* ./Ast/var.scm 106 */
int BgL_auxz00_4060;
BgL_auxz00_4060 = 
(int)(((long)2)); 
BgL_v1742z00_739 = 
STRUCT_REF(BgL_sz00_734, BgL_auxz00_4060); } 
((((BgL_cfunz00_bglt)CREF(BgL_oz00_733))->BgL_sidezd2effectzf3z21) = ((obj_t)BgL_v1742z00_739), BUNSPEC); } 
{ /* ./Ast/var.scm 106 */
obj_t BgL_v1746z00_740;
{ /* ./Ast/var.scm 106 */
int BgL_auxz00_4064;
BgL_auxz00_4064 = 
(int)(((long)3)); 
BgL_v1746z00_740 = 
STRUCT_REF(BgL_sz00_734, BgL_auxz00_4064); } 
((((BgL_cfunz00_bglt)CREF(BgL_oz00_733))->BgL_predicatezd2ofzd2) = ((obj_t)BgL_v1746z00_740), BUNSPEC); } 
{ /* ./Ast/var.scm 106 */
obj_t BgL_v1750z00_741;
{ /* ./Ast/var.scm 106 */
int BgL_auxz00_4068;
BgL_auxz00_4068 = 
(int)(((long)4)); 
BgL_v1750z00_741 = 
STRUCT_REF(BgL_sz00_734, BgL_auxz00_4068); } 
((((BgL_cfunz00_bglt)CREF(BgL_oz00_733))->BgL_stackzd2allocatorzd2) = ((obj_t)BgL_v1750z00_741), BUNSPEC); } 
{ /* ./Ast/var.scm 106 */
bool_t BgL_v1754z00_742;
{ /* ./Ast/var.scm 106 */
obj_t BgL_auxz00_4072;
{ /* ./Ast/var.scm 106 */
int BgL_auxz00_4073;
BgL_auxz00_4073 = 
(int)(((long)5)); 
BgL_auxz00_4072 = 
STRUCT_REF(BgL_sz00_734, BgL_auxz00_4073); } 
BgL_v1754z00_742 = 
CBOOL(BgL_auxz00_4072); } 
((((BgL_cfunz00_bglt)CREF(BgL_oz00_733))->BgL_topzf3zf3) = ((bool_t)BgL_v1754z00_742), BUNSPEC); } 
{ /* ./Ast/var.scm 106 */
obj_t BgL_v1758z00_743;
{ /* ./Ast/var.scm 106 */
int BgL_auxz00_4078;
BgL_auxz00_4078 = 
(int)(((long)6)); 
BgL_v1758z00_743 = 
STRUCT_REF(BgL_sz00_734, BgL_auxz00_4078); } 
((((BgL_cfunz00_bglt)CREF(BgL_oz00_733))->BgL_thezd2closurezd2) = ((obj_t)BgL_v1758z00_743), BUNSPEC); } 
{ /* ./Ast/var.scm 106 */
obj_t BgL_v1762z00_744;
{ /* ./Ast/var.scm 106 */
int BgL_auxz00_4082;
BgL_auxz00_4082 = 
(int)(((long)7)); 
BgL_v1762z00_744 = 
STRUCT_REF(BgL_sz00_734, BgL_auxz00_4082); } 
((((BgL_cfunz00_bglt)CREF(BgL_oz00_733))->BgL_effectz00) = ((obj_t)BgL_v1762z00_744), BUNSPEC); } 
{ /* ./Ast/var.scm 106 */
obj_t BgL_v1766z00_745;
{ /* ./Ast/var.scm 106 */
int BgL_auxz00_4086;
BgL_auxz00_4086 = 
(int)(((long)8)); 
BgL_v1766z00_745 = 
STRUCT_REF(BgL_sz00_734, BgL_auxz00_4086); } 
((((BgL_cfunz00_bglt)CREF(BgL_oz00_733))->BgL_argszd2typezd2) = ((obj_t)BgL_v1766z00_745), BUNSPEC); } 
{ /* ./Ast/var.scm 106 */
bool_t BgL_v1770z00_746;
{ /* ./Ast/var.scm 106 */
obj_t BgL_auxz00_4090;
{ /* ./Ast/var.scm 106 */
int BgL_auxz00_4091;
BgL_auxz00_4091 = 
(int)(((long)9)); 
BgL_auxz00_4090 = 
STRUCT_REF(BgL_sz00_734, BgL_auxz00_4091); } 
BgL_v1770z00_746 = 
CBOOL(BgL_auxz00_4090); } 
((((BgL_cfunz00_bglt)CREF(BgL_oz00_733))->BgL_macrozf3zf3) = ((bool_t)BgL_v1770z00_746), BUNSPEC); } 
{ /* ./Ast/var.scm 106 */
bool_t BgL_v1774z00_747;
{ /* ./Ast/var.scm 106 */
obj_t BgL_auxz00_4096;
{ /* ./Ast/var.scm 106 */
int BgL_auxz00_4097;
BgL_auxz00_4097 = 
(int)(((long)10)); 
BgL_auxz00_4096 = 
STRUCT_REF(BgL_sz00_734, BgL_auxz00_4097); } 
BgL_v1774z00_747 = 
CBOOL(BgL_auxz00_4096); } 
((((BgL_cfunz00_bglt)CREF(BgL_oz00_733))->BgL_infixzf3zf3) = ((bool_t)BgL_v1774z00_747), BUNSPEC); } 
{ /* ./Ast/var.scm 106 */
obj_t BgL_v1778z00_748;
{ /* ./Ast/var.scm 106 */
int BgL_auxz00_4102;
BgL_auxz00_4102 = 
(int)(((long)11)); 
BgL_v1778z00_748 = 
STRUCT_REF(BgL_sz00_734, BgL_auxz00_4102); } 
((((BgL_cfunz00_bglt)CREF(BgL_oz00_733))->BgL_methodz00) = ((obj_t)BgL_v1778z00_748), BUNSPEC); } 
BgL_auxz00_4047 = BgL_oz00_733; 
return 
(obj_t)(BgL_auxz00_4047);} } } 
}



/* object->struct-cfun1948 */
obj_t BGl_objectzd2ze3structzd2cfun1948ze3zzast_varz00(obj_t BgL_envz00_2213, obj_t BgL_obj1734z00_2214)
{ AN_OBJECT;
{ /* ./Ast/var.scm 106 */
{ 
BgL_cfunz00_bglt BgL_obj1734z00_705;
BgL_obj1734z00_705 = 
(BgL_cfunz00_bglt)(BgL_obj1734z00_2214); 
{ /* ./Ast/var.scm 106 */
obj_t BgL_res1735z00_708;
{ /* ./Ast/var.scm 106 */
obj_t BgL_keyz00_1483;int BgL_lenz00_1484;
BgL_keyz00_1483 = 
CNST_TABLE_REF(((long)8)); 
BgL_lenz00_1484 = 
(int)(((long)12)); 
BgL_res1735z00_708 = 
make_struct(BgL_keyz00_1483, BgL_lenz00_1484, BUNSPEC); } 
{ /* ./Ast/var.scm 106 */
int BgL_kz00_1487;
BgL_kz00_1487 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res1735z00_708, BgL_kz00_1487, BFALSE); } 
{ /* ./Ast/var.scm 106 */
long BgL_arg2400z00_710;
{ /* ./Ast/var.scm 106 */
BgL_funz00_bglt BgL_obj1455z00_1489;
BgL_obj1455z00_1489 = 
(BgL_funz00_bglt)(BgL_obj1734z00_705); 
BgL_arg2400z00_710 = 
(((BgL_funz00_bglt)CREF(BgL_obj1455z00_1489))->BgL_arityz00); } 
{ /* ./Ast/var.scm 106 */
int BgL_kz00_1491;obj_t BgL_oz00_1492;
BgL_kz00_1491 = 
(int)(((long)1)); 
BgL_oz00_1492 = 
BINT(BgL_arg2400z00_710); 
STRUCT_SET(BgL_res1735z00_708, BgL_kz00_1491, BgL_oz00_1492); } } 
{ /* ./Ast/var.scm 106 */
obj_t BgL_arg2405z00_712;
{ /* ./Ast/var.scm 106 */
BgL_funz00_bglt BgL_obj1457z00_1493;
BgL_obj1457z00_1493 = 
(BgL_funz00_bglt)(BgL_obj1734z00_705); 
BgL_arg2405z00_712 = 
(((BgL_funz00_bglt)CREF(BgL_obj1457z00_1493))->BgL_sidezd2effectzf3z21); } 
{ /* ./Ast/var.scm 106 */
int BgL_kz00_1495;
BgL_kz00_1495 = 
(int)(((long)2)); 
STRUCT_SET(BgL_res1735z00_708, BgL_kz00_1495, BgL_arg2405z00_712); } } 
{ /* ./Ast/var.scm 106 */
obj_t BgL_arg2410z00_714;
{ /* ./Ast/var.scm 106 */
BgL_funz00_bglt BgL_obj1460z00_1497;
BgL_obj1460z00_1497 = 
(BgL_funz00_bglt)(BgL_obj1734z00_705); 
BgL_arg2410z00_714 = 
(((BgL_funz00_bglt)CREF(BgL_obj1460z00_1497))->BgL_predicatezd2ofzd2); } 
{ /* ./Ast/var.scm 106 */
int BgL_kz00_1499;
BgL_kz00_1499 = 
(int)(((long)3)); 
STRUCT_SET(BgL_res1735z00_708, BgL_kz00_1499, BgL_arg2410z00_714); } } 
{ /* ./Ast/var.scm 106 */
obj_t BgL_arg2415z00_716;
{ /* ./Ast/var.scm 106 */
BgL_funz00_bglt BgL_obj1463z00_1501;
BgL_obj1463z00_1501 = 
(BgL_funz00_bglt)(BgL_obj1734z00_705); 
BgL_arg2415z00_716 = 
(((BgL_funz00_bglt)CREF(BgL_obj1463z00_1501))->BgL_stackzd2allocatorzd2); } 
{ /* ./Ast/var.scm 106 */
int BgL_kz00_1503;
BgL_kz00_1503 = 
(int)(((long)4)); 
STRUCT_SET(BgL_res1735z00_708, BgL_kz00_1503, BgL_arg2415z00_716); } } 
{ /* ./Ast/var.scm 106 */
bool_t BgL_arg2420z00_718;
{ /* ./Ast/var.scm 106 */
BgL_funz00_bglt BgL_obj1466z00_1505;
BgL_obj1466z00_1505 = 
(BgL_funz00_bglt)(BgL_obj1734z00_705); 
BgL_arg2420z00_718 = 
(((BgL_funz00_bglt)CREF(BgL_obj1466z00_1505))->BgL_topzf3zf3); } 
{ /* ./Ast/var.scm 106 */
int BgL_kz00_1507;obj_t BgL_oz00_1508;
BgL_kz00_1507 = 
(int)(((long)5)); 
BgL_oz00_1508 = 
BBOOL(BgL_arg2420z00_718); 
STRUCT_SET(BgL_res1735z00_708, BgL_kz00_1507, BgL_oz00_1508); } } 
{ /* ./Ast/var.scm 106 */
obj_t BgL_arg2425z00_720;
{ /* ./Ast/var.scm 106 */
BgL_funz00_bglt BgL_obj1469z00_1509;
BgL_obj1469z00_1509 = 
(BgL_funz00_bglt)(BgL_obj1734z00_705); 
BgL_arg2425z00_720 = 
(((BgL_funz00_bglt)CREF(BgL_obj1469z00_1509))->BgL_thezd2closurezd2); } 
{ /* ./Ast/var.scm 106 */
int BgL_kz00_1511;
BgL_kz00_1511 = 
(int)(((long)6)); 
STRUCT_SET(BgL_res1735z00_708, BgL_kz00_1511, BgL_arg2425z00_720); } } 
{ /* ./Ast/var.scm 106 */
obj_t BgL_arg2430z00_722;
{ /* ./Ast/var.scm 106 */
BgL_funz00_bglt BgL_obj1472z00_1513;
BgL_obj1472z00_1513 = 
(BgL_funz00_bglt)(BgL_obj1734z00_705); 
BgL_arg2430z00_722 = 
(((BgL_funz00_bglt)CREF(BgL_obj1472z00_1513))->BgL_effectz00); } 
{ /* ./Ast/var.scm 106 */
int BgL_kz00_1515;
BgL_kz00_1515 = 
(int)(((long)7)); 
STRUCT_SET(BgL_res1735z00_708, BgL_kz00_1515, BgL_arg2430z00_722); } } 
{ /* ./Ast/var.scm 106 */
obj_t BgL_arg2435z00_724;
BgL_arg2435z00_724 = 
(((BgL_cfunz00_bglt)CREF(BgL_obj1734z00_705))->BgL_argszd2typezd2); 
{ /* ./Ast/var.scm 106 */
int BgL_kz00_1519;
BgL_kz00_1519 = 
(int)(((long)8)); 
STRUCT_SET(BgL_res1735z00_708, BgL_kz00_1519, BgL_arg2435z00_724); } } 
{ /* ./Ast/var.scm 106 */
bool_t BgL_arg2440z00_726;
BgL_arg2440z00_726 = 
(((BgL_cfunz00_bglt)CREF(BgL_obj1734z00_705))->BgL_macrozf3zf3); 
{ /* ./Ast/var.scm 106 */
int BgL_kz00_1523;obj_t BgL_oz00_1524;
BgL_kz00_1523 = 
(int)(((long)9)); 
BgL_oz00_1524 = 
BBOOL(BgL_arg2440z00_726); 
STRUCT_SET(BgL_res1735z00_708, BgL_kz00_1523, BgL_oz00_1524); } } 
{ /* ./Ast/var.scm 106 */
bool_t BgL_arg2445z00_728;
BgL_arg2445z00_728 = 
(((BgL_cfunz00_bglt)CREF(BgL_obj1734z00_705))->BgL_infixzf3zf3); 
{ /* ./Ast/var.scm 106 */
int BgL_kz00_1527;obj_t BgL_oz00_1528;
BgL_kz00_1527 = 
(int)(((long)10)); 
BgL_oz00_1528 = 
BBOOL(BgL_arg2445z00_728); 
STRUCT_SET(BgL_res1735z00_708, BgL_kz00_1527, BgL_oz00_1528); } } 
{ /* ./Ast/var.scm 106 */
obj_t BgL_arg2450z00_730;
BgL_arg2450z00_730 = 
(((BgL_cfunz00_bglt)CREF(BgL_obj1734z00_705))->BgL_methodz00); 
{ /* ./Ast/var.scm 106 */
int BgL_kz00_1531;
BgL_kz00_1531 = 
(int)(((long)11)); 
STRUCT_SET(BgL_res1735z00_708, BgL_kz00_1531, BgL_arg2450z00_730); } } 
return BgL_res1735z00_708;} } } 
}



/* struct+object->object-svar1946 */
obj_t BGl_structzb2objectzd2ze3objectzd2svar1946z51zzast_varz00(obj_t BgL_envz00_2215, obj_t BgL_oz00_2216, obj_t BgL_sz00_2217)
{ AN_OBJECT;
{ /* ./Ast/var.scm 116 */
{ 
BgL_svarz00_bglt BgL_oz00_697;obj_t BgL_sz00_698;
{ /* ./Ast/var.scm 116 */
BgL_svarz00_bglt BgL_auxz00_4158;
BgL_oz00_697 = 
(BgL_svarz00_bglt)(BgL_oz00_2216); 
BgL_sz00_698 = BgL_sz00_2217; 
{ /* ./Ast/var.scm 116 */
obj_t BgL_arg2387z00_701;
{ /* ./Ast/var.scm 116 */
int BgL_auxz00_4159;
BgL_auxz00_4159 = 
(int)(((long)0)); 
BgL_arg2387z00_701 = 
STRUCT_REF(BgL_sz00_698, BgL_auxz00_4159); } 
{ /* ./Ast/var.scm 116 */
BgL_objectz00_bglt BgL_auxz00_4162;
BgL_auxz00_4162 = 
(BgL_objectz00_bglt)(BgL_oz00_697); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4162, BgL_arg2387z00_701); } } 
{ /* ./Ast/var.scm 116 */
obj_t BgL_v1796z00_702;
{ /* ./Ast/var.scm 116 */
int BgL_auxz00_4165;
BgL_auxz00_4165 = 
(int)(((long)1)); 
BgL_v1796z00_702 = 
STRUCT_REF(BgL_sz00_698, BgL_auxz00_4165); } 
((((BgL_svarz00_bglt)CREF(BgL_oz00_697))->BgL_locz00) = ((obj_t)BgL_v1796z00_702), BUNSPEC); } 
BgL_auxz00_4158 = BgL_oz00_697; 
return 
(obj_t)(BgL_auxz00_4158);} } } 
}



/* object->struct-svar1944 */
obj_t BGl_objectzd2ze3structzd2svar1944ze3zzast_varz00(obj_t BgL_envz00_2218, obj_t BgL_obj1792z00_2219)
{ AN_OBJECT;
{ /* ./Ast/var.scm 116 */
{ 
BgL_svarz00_bglt BgL_obj1792z00_689;
BgL_obj1792z00_689 = 
(BgL_svarz00_bglt)(BgL_obj1792z00_2219); 
{ /* ./Ast/var.scm 116 */
obj_t BgL_res1793z00_692;
{ /* ./Ast/var.scm 116 */
obj_t BgL_keyz00_1469;int BgL_lenz00_1470;
BgL_keyz00_1469 = 
CNST_TABLE_REF(((long)9)); 
BgL_lenz00_1470 = 
(int)(((long)2)); 
BgL_res1793z00_692 = 
make_struct(BgL_keyz00_1469, BgL_lenz00_1470, BUNSPEC); } 
{ /* ./Ast/var.scm 116 */
int BgL_kz00_1473;
BgL_kz00_1473 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res1793z00_692, BgL_kz00_1473, BFALSE); } 
{ /* ./Ast/var.scm 116 */
obj_t BgL_arg2376z00_694;
BgL_arg2376z00_694 = 
(((BgL_svarz00_bglt)CREF(BgL_obj1792z00_689))->BgL_locz00); 
{ /* ./Ast/var.scm 116 */
int BgL_kz00_1477;
BgL_kz00_1477 = 
(int)(((long)1)); 
STRUCT_SET(BgL_res1793z00_692, BgL_kz00_1477, BgL_arg2376z00_694); } } 
return BgL_res1793z00_692;} } } 
}



/* struct+object->object-scnst1942 */
obj_t BGl_structzb2objectzd2ze3objectzd2scnst1942z51zzast_varz00(obj_t BgL_envz00_2220, obj_t BgL_oz00_2221, obj_t BgL_sz00_2222)
{ AN_OBJECT;
{ /* ./Ast/var.scm 120 */
{ 
BgL_scnstz00_bglt BgL_oz00_679;obj_t BgL_sz00_680;
{ /* ./Ast/var.scm 120 */
BgL_scnstz00_bglt BgL_auxz00_4180;
BgL_oz00_679 = 
(BgL_scnstz00_bglt)(BgL_oz00_2221); 
BgL_sz00_680 = BgL_sz00_2222; 
{ /* ./Ast/var.scm 120 */
obj_t BgL_arg2360z00_683;
{ /* ./Ast/var.scm 120 */
int BgL_auxz00_4181;
BgL_auxz00_4181 = 
(int)(((long)0)); 
BgL_arg2360z00_683 = 
STRUCT_REF(BgL_sz00_680, BgL_auxz00_4181); } 
{ /* ./Ast/var.scm 120 */
BgL_objectz00_bglt BgL_auxz00_4184;
BgL_auxz00_4184 = 
(BgL_objectz00_bglt)(BgL_oz00_679); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4184, BgL_arg2360z00_683); } } 
{ /* ./Ast/var.scm 120 */
obj_t BgL_v1824z00_684;
{ /* ./Ast/var.scm 120 */
int BgL_auxz00_4187;
BgL_auxz00_4187 = 
(int)(((long)1)); 
BgL_v1824z00_684 = 
STRUCT_REF(BgL_sz00_680, BgL_auxz00_4187); } 
((((BgL_scnstz00_bglt)CREF(BgL_oz00_679))->BgL_nodez00) = ((obj_t)BgL_v1824z00_684), BUNSPEC); } 
{ /* ./Ast/var.scm 120 */
obj_t BgL_v1828z00_685;
{ /* ./Ast/var.scm 120 */
int BgL_auxz00_4191;
BgL_auxz00_4191 = 
(int)(((long)2)); 
BgL_v1828z00_685 = 
STRUCT_REF(BgL_sz00_680, BgL_auxz00_4191); } 
((((BgL_scnstz00_bglt)CREF(BgL_oz00_679))->BgL_classz00) = ((obj_t)BgL_v1828z00_685), BUNSPEC); } 
{ /* ./Ast/var.scm 120 */
obj_t BgL_v1832z00_686;
{ /* ./Ast/var.scm 120 */
int BgL_auxz00_4195;
BgL_auxz00_4195 = 
(int)(((long)3)); 
BgL_v1832z00_686 = 
STRUCT_REF(BgL_sz00_680, BgL_auxz00_4195); } 
((((BgL_scnstz00_bglt)CREF(BgL_oz00_679))->BgL_locz00) = ((obj_t)BgL_v1832z00_686), BUNSPEC); } 
BgL_auxz00_4180 = BgL_oz00_679; 
return 
(obj_t)(BgL_auxz00_4180);} } } 
}



/* object->struct-scnst1940 */
obj_t BGl_objectzd2ze3structzd2scnst1940ze3zzast_varz00(obj_t BgL_envz00_2223, obj_t BgL_obj1820z00_2224)
{ AN_OBJECT;
{ /* ./Ast/var.scm 120 */
{ 
BgL_scnstz00_bglt BgL_obj1820z00_667;
BgL_obj1820z00_667 = 
(BgL_scnstz00_bglt)(BgL_obj1820z00_2224); 
{ /* ./Ast/var.scm 120 */
obj_t BgL_res1821z00_670;
{ /* ./Ast/var.scm 120 */
obj_t BgL_keyz00_1443;int BgL_lenz00_1444;
BgL_keyz00_1443 = 
CNST_TABLE_REF(((long)10)); 
BgL_lenz00_1444 = 
(int)(((long)4)); 
BgL_res1821z00_670 = 
make_struct(BgL_keyz00_1443, BgL_lenz00_1444, BUNSPEC); } 
{ /* ./Ast/var.scm 120 */
int BgL_kz00_1447;
BgL_kz00_1447 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res1821z00_670, BgL_kz00_1447, BFALSE); } 
{ /* ./Ast/var.scm 120 */
obj_t BgL_arg2336z00_672;
BgL_arg2336z00_672 = 
(((BgL_scnstz00_bglt)CREF(BgL_obj1820z00_667))->BgL_nodez00); 
{ /* ./Ast/var.scm 120 */
int BgL_kz00_1451;
BgL_kz00_1451 = 
(int)(((long)1)); 
STRUCT_SET(BgL_res1821z00_670, BgL_kz00_1451, BgL_arg2336z00_672); } } 
{ /* ./Ast/var.scm 120 */
obj_t BgL_arg2342z00_674;
BgL_arg2342z00_674 = 
(((BgL_scnstz00_bglt)CREF(BgL_obj1820z00_667))->BgL_classz00); 
{ /* ./Ast/var.scm 120 */
int BgL_kz00_1455;
BgL_kz00_1455 = 
(int)(((long)2)); 
STRUCT_SET(BgL_res1821z00_670, BgL_kz00_1455, BgL_arg2342z00_674); } } 
{ /* ./Ast/var.scm 120 */
obj_t BgL_arg2348z00_676;
BgL_arg2348z00_676 = 
(((BgL_scnstz00_bglt)CREF(BgL_obj1820z00_667))->BgL_locz00); 
{ /* ./Ast/var.scm 120 */
int BgL_kz00_1459;
BgL_kz00_1459 = 
(int)(((long)3)); 
STRUCT_SET(BgL_res1821z00_670, BgL_kz00_1459, BgL_arg2348z00_676); } } 
return BgL_res1821z00_670;} } } 
}



/* struct+object->object-cvar1938 */
obj_t BGl_structzb2objectzd2ze3objectzd2cvar1938z51zzast_varz00(obj_t BgL_envz00_2225, obj_t BgL_oz00_2226, obj_t BgL_sz00_2227)
{ AN_OBJECT;
{ /* ./Ast/var.scm 128 */
{ 
BgL_cvarz00_bglt BgL_oz00_659;obj_t BgL_sz00_660;
{ /* ./Ast/var.scm 128 */
BgL_cvarz00_bglt BgL_auxz00_4216;
BgL_oz00_659 = 
(BgL_cvarz00_bglt)(BgL_oz00_2226); 
BgL_sz00_660 = BgL_sz00_2227; 
{ /* ./Ast/var.scm 128 */
obj_t BgL_arg2323z00_663;
{ /* ./Ast/var.scm 128 */
int BgL_auxz00_4217;
BgL_auxz00_4217 = 
(int)(((long)0)); 
BgL_arg2323z00_663 = 
STRUCT_REF(BgL_sz00_660, BgL_auxz00_4217); } 
{ /* ./Ast/var.scm 128 */
BgL_objectz00_bglt BgL_auxz00_4220;
BgL_auxz00_4220 = 
(BgL_objectz00_bglt)(BgL_oz00_659); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4220, BgL_arg2323z00_663); } } 
{ /* ./Ast/var.scm 128 */
bool_t BgL_v1848z00_664;
{ /* ./Ast/var.scm 128 */
obj_t BgL_auxz00_4223;
{ /* ./Ast/var.scm 128 */
int BgL_auxz00_4224;
BgL_auxz00_4224 = 
(int)(((long)1)); 
BgL_auxz00_4223 = 
STRUCT_REF(BgL_sz00_660, BgL_auxz00_4224); } 
BgL_v1848z00_664 = 
CBOOL(BgL_auxz00_4223); } 
((((BgL_cvarz00_bglt)CREF(BgL_oz00_659))->BgL_macrozf3zf3) = ((bool_t)BgL_v1848z00_664), BUNSPEC); } 
BgL_auxz00_4216 = BgL_oz00_659; 
return 
(obj_t)(BgL_auxz00_4216);} } } 
}



/* object->struct-cvar1936 */
obj_t BGl_objectzd2ze3structzd2cvar1936ze3zzast_varz00(obj_t BgL_envz00_2228, obj_t BgL_obj1844z00_2229)
{ AN_OBJECT;
{ /* ./Ast/var.scm 128 */
{ 
BgL_cvarz00_bglt BgL_obj1844z00_651;
BgL_obj1844z00_651 = 
(BgL_cvarz00_bglt)(BgL_obj1844z00_2229); 
{ /* ./Ast/var.scm 128 */
obj_t BgL_res1845z00_654;
{ /* ./Ast/var.scm 128 */
obj_t BgL_keyz00_1429;int BgL_lenz00_1430;
BgL_keyz00_1429 = 
CNST_TABLE_REF(((long)11)); 
BgL_lenz00_1430 = 
(int)(((long)2)); 
BgL_res1845z00_654 = 
make_struct(BgL_keyz00_1429, BgL_lenz00_1430, BUNSPEC); } 
{ /* ./Ast/var.scm 128 */
int BgL_kz00_1433;
BgL_kz00_1433 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res1845z00_654, BgL_kz00_1433, BFALSE); } 
{ /* ./Ast/var.scm 128 */
bool_t BgL_arg2312z00_656;
BgL_arg2312z00_656 = 
(((BgL_cvarz00_bglt)CREF(BgL_obj1844z00_651))->BgL_macrozf3zf3); 
{ /* ./Ast/var.scm 128 */
int BgL_kz00_1437;obj_t BgL_oz00_1438;
BgL_kz00_1437 = 
(int)(((long)1)); 
BgL_oz00_1438 = 
BBOOL(BgL_arg2312z00_656); 
STRUCT_SET(BgL_res1845z00_654, BgL_kz00_1437, BgL_oz00_1438); } } 
return BgL_res1845z00_654;} } } 
}



/* struct+object->object-sexit1934 */
obj_t BGl_structzb2objectzd2ze3objectzd2sexit1934z51zzast_varz00(obj_t BgL_envz00_2230, obj_t BgL_oz00_2231, obj_t BgL_sz00_2232)
{ AN_OBJECT;
{ /* ./Ast/var.scm 132 */
{ 
BgL_sexitz00_bglt BgL_oz00_642;obj_t BgL_sz00_643;
{ /* ./Ast/var.scm 132 */
BgL_sexitz00_bglt BgL_auxz00_4241;
BgL_oz00_642 = 
(BgL_sexitz00_bglt)(BgL_oz00_2231); 
BgL_sz00_643 = BgL_sz00_2232; 
{ /* ./Ast/var.scm 132 */
obj_t BgL_arg2298z00_646;
{ /* ./Ast/var.scm 132 */
int BgL_auxz00_4242;
BgL_auxz00_4242 = 
(int)(((long)0)); 
BgL_arg2298z00_646 = 
STRUCT_REF(BgL_sz00_643, BgL_auxz00_4242); } 
{ /* ./Ast/var.scm 132 */
BgL_objectz00_bglt BgL_auxz00_4245;
BgL_auxz00_4245 = 
(BgL_objectz00_bglt)(BgL_oz00_642); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4245, BgL_arg2298z00_646); } } 
{ /* ./Ast/var.scm 132 */
obj_t BgL_v1872z00_647;
{ /* ./Ast/var.scm 132 */
int BgL_auxz00_4248;
BgL_auxz00_4248 = 
(int)(((long)1)); 
BgL_v1872z00_647 = 
STRUCT_REF(BgL_sz00_643, BgL_auxz00_4248); } 
((((BgL_sexitz00_bglt)CREF(BgL_oz00_642))->BgL_handlerz00) = ((obj_t)BgL_v1872z00_647), BUNSPEC); } 
{ /* ./Ast/var.scm 132 */
bool_t BgL_v1876z00_648;
{ /* ./Ast/var.scm 132 */
obj_t BgL_auxz00_4252;
{ /* ./Ast/var.scm 132 */
int BgL_auxz00_4253;
BgL_auxz00_4253 = 
(int)(((long)2)); 
BgL_auxz00_4252 = 
STRUCT_REF(BgL_sz00_643, BgL_auxz00_4253); } 
BgL_v1876z00_648 = 
CBOOL(BgL_auxz00_4252); } 
((((BgL_sexitz00_bglt)CREF(BgL_oz00_642))->BgL_detachedzf3zf3) = ((bool_t)BgL_v1876z00_648), BUNSPEC); } 
BgL_auxz00_4241 = BgL_oz00_642; 
return 
(obj_t)(BgL_auxz00_4241);} } } 
}



/* object->struct-sexit1932 */
obj_t BGl_objectzd2ze3structzd2sexit1932ze3zzast_varz00(obj_t BgL_envz00_2233, obj_t BgL_obj1868z00_2234)
{ AN_OBJECT;
{ /* ./Ast/var.scm 132 */
{ 
BgL_sexitz00_bglt BgL_obj1868z00_632;
BgL_obj1868z00_632 = 
(BgL_sexitz00_bglt)(BgL_obj1868z00_2234); 
{ /* ./Ast/var.scm 132 */
obj_t BgL_res1869z00_635;
{ /* ./Ast/var.scm 132 */
obj_t BgL_keyz00_1409;int BgL_lenz00_1410;
BgL_keyz00_1409 = 
CNST_TABLE_REF(((long)12)); 
BgL_lenz00_1410 = 
(int)(((long)3)); 
BgL_res1869z00_635 = 
make_struct(BgL_keyz00_1409, BgL_lenz00_1410, BUNSPEC); } 
{ /* ./Ast/var.scm 132 */
int BgL_kz00_1413;
BgL_kz00_1413 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res1869z00_635, BgL_kz00_1413, BFALSE); } 
{ /* ./Ast/var.scm 132 */
obj_t BgL_arg2282z00_637;
BgL_arg2282z00_637 = 
(((BgL_sexitz00_bglt)CREF(BgL_obj1868z00_632))->BgL_handlerz00); 
{ /* ./Ast/var.scm 132 */
int BgL_kz00_1417;
BgL_kz00_1417 = 
(int)(((long)1)); 
STRUCT_SET(BgL_res1869z00_635, BgL_kz00_1417, BgL_arg2282z00_637); } } 
{ /* ./Ast/var.scm 132 */
bool_t BgL_arg2287z00_639;
BgL_arg2287z00_639 = 
(((BgL_sexitz00_bglt)CREF(BgL_obj1868z00_632))->BgL_detachedzf3zf3); 
{ /* ./Ast/var.scm 132 */
int BgL_kz00_1421;obj_t BgL_oz00_1422;
BgL_kz00_1421 = 
(int)(((long)2)); 
BgL_oz00_1422 = 
BBOOL(BgL_arg2287z00_639); 
STRUCT_SET(BgL_res1869z00_635, BgL_kz00_1421, BgL_oz00_1422); } } 
return BgL_res1869z00_635;} } } 
}



/* struct+object->object-feffect1930 */
obj_t BGl_structzb2objectzd2ze3objectzd2feffect1930z51zzast_varz00(obj_t BgL_envz00_2235, obj_t BgL_oz00_2236, obj_t BgL_sz00_2237)
{ AN_OBJECT;
{ /* ./Ast/var.scm 138 */
{ 
BgL_feffectz00_bglt BgL_oz00_623;obj_t BgL_sz00_624;
{ /* ./Ast/var.scm 138 */
BgL_feffectz00_bglt BgL_auxz00_4273;
BgL_oz00_623 = 
(BgL_feffectz00_bglt)(BgL_oz00_2236); 
BgL_sz00_624 = BgL_sz00_2237; 
{ /* ./Ast/var.scm 138 */
obj_t BgL_arg2268z00_627;
{ /* ./Ast/var.scm 138 */
int BgL_auxz00_4274;
BgL_auxz00_4274 = 
(int)(((long)0)); 
BgL_arg2268z00_627 = 
STRUCT_REF(BgL_sz00_624, BgL_auxz00_4274); } 
{ /* ./Ast/var.scm 138 */
BgL_objectz00_bglt BgL_auxz00_4277;
BgL_auxz00_4277 = 
(BgL_objectz00_bglt)(BgL_oz00_623); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4277, BgL_arg2268z00_627); } } 
{ /* ./Ast/var.scm 138 */
obj_t BgL_v1900z00_628;
{ /* ./Ast/var.scm 138 */
int BgL_auxz00_4280;
BgL_auxz00_4280 = 
(int)(((long)1)); 
BgL_v1900z00_628 = 
STRUCT_REF(BgL_sz00_624, BgL_auxz00_4280); } 
((((BgL_feffectz00_bglt)CREF(BgL_oz00_623))->BgL_readz00) = ((obj_t)BgL_v1900z00_628), BUNSPEC); } 
{ /* ./Ast/var.scm 138 */
obj_t BgL_v1904z00_629;
{ /* ./Ast/var.scm 138 */
int BgL_auxz00_4284;
BgL_auxz00_4284 = 
(int)(((long)2)); 
BgL_v1904z00_629 = 
STRUCT_REF(BgL_sz00_624, BgL_auxz00_4284); } 
((((BgL_feffectz00_bglt)CREF(BgL_oz00_623))->BgL_writez00) = ((obj_t)BgL_v1904z00_629), BUNSPEC); } 
BgL_auxz00_4273 = BgL_oz00_623; 
return 
(obj_t)(BgL_auxz00_4273);} } } 
}



/* object->struct-feffect1928 */
obj_t BGl_objectzd2ze3structzd2feffect1928ze3zzast_varz00(obj_t BgL_envz00_2238, obj_t BgL_obj1896z00_2239)
{ AN_OBJECT;
{ /* ./Ast/var.scm 138 */
{ 
BgL_feffectz00_bglt BgL_obj1896z00_613;
BgL_obj1896z00_613 = 
(BgL_feffectz00_bglt)(BgL_obj1896z00_2239); 
{ /* ./Ast/var.scm 138 */
obj_t BgL_res1897z00_616;
{ /* ./Ast/var.scm 138 */
obj_t BgL_keyz00_1389;int BgL_lenz00_1390;
BgL_keyz00_1389 = 
CNST_TABLE_REF(((long)13)); 
BgL_lenz00_1390 = 
(int)(((long)3)); 
BgL_res1897z00_616 = 
make_struct(BgL_keyz00_1389, BgL_lenz00_1390, BUNSPEC); } 
{ /* ./Ast/var.scm 138 */
int BgL_kz00_1393;
BgL_kz00_1393 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res1897z00_616, BgL_kz00_1393, BFALSE); } 
{ /* ./Ast/var.scm 138 */
obj_t BgL_arg2252z00_618;
BgL_arg2252z00_618 = 
(((BgL_feffectz00_bglt)CREF(BgL_obj1896z00_613))->BgL_readz00); 
{ /* ./Ast/var.scm 138 */
int BgL_kz00_1397;
BgL_kz00_1397 = 
(int)(((long)1)); 
STRUCT_SET(BgL_res1897z00_616, BgL_kz00_1397, BgL_arg2252z00_618); } } 
{ /* ./Ast/var.scm 138 */
obj_t BgL_arg2257z00_620;
BgL_arg2257z00_620 = 
(((BgL_feffectz00_bglt)CREF(BgL_obj1896z00_613))->BgL_writez00); 
{ /* ./Ast/var.scm 138 */
int BgL_kz00_1401;
BgL_kz00_1401 = 
(int)(((long)2)); 
STRUCT_SET(BgL_res1897z00_616, BgL_kz00_1401, BgL_arg2257z00_620); } } 
return BgL_res1897z00_616;} } } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzast_varz00()
{ AN_OBJECT;
{ /* ./Ast/var.scm 14 */
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long)14260), "ast_var"); 
return 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "ast_var");} 
}

