/*===========================================================================*/
/*   (Ast/remove.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/remove.scm)*/
/* GC selection */
#define THE_GC BOEHM_GC

#include <bigloo.h>


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

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

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

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

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

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

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

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

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

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

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

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

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

typedef struct BgL_nodez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
} *BgL_nodez00_bglt;

typedef struct BgL_nodezf2effectzf2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
} *BgL_nodezf2effectzf2_bglt;

typedef struct BgL_atomz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_valuez00;
} *BgL_atomz00_bglt;

typedef struct BgL_varz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_variablez00_bgl * BgL_variablez00;
} *BgL_varz00_bglt;

typedef struct BgL_closurez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_variablez00_bgl * BgL_variablez00;
} *BgL_closurez00_bglt;

typedef struct BgL_kwotez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_valuez00;
} *BgL_kwotez00_bglt;

typedef struct BgL_sequencez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_nodesz00;
} *BgL_sequencez00_bglt;

typedef struct BgL_appz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_varz00_bgl * BgL_funz00;
   obj_t BgL_argsz00;
} *BgL_appz00_bglt;

typedef struct BgL_appzd2lyzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_nodez00_bgl * BgL_funz00;
   struct BgL_nodez00_bgl * BgL_argz00;
} *BgL_appzd2lyzd2_bglt;

typedef struct BgL_funcallz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_nodez00_bgl * BgL_funz00;
   obj_t BgL_argsz00;
   obj_t BgL_strengthz00;
} *BgL_funcallz00_bglt;

typedef struct BgL_externz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
} *BgL_externz00_bglt;

typedef struct BgL_pragmaz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_formatz00;
} *BgL_pragmaz00_bglt;

typedef struct BgL_getfieldz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_fnamez00;
   struct BgL_typez00_bgl * BgL_ftypez00;
   struct BgL_typez00_bgl * BgL_otypez00;
} *BgL_getfieldz00_bglt;

typedef struct BgL_setfieldz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_fnamez00;
   struct BgL_typez00_bgl * BgL_ftypez00;
   struct BgL_typez00_bgl * BgL_otypez00;
} *BgL_setfieldz00_bglt;

typedef struct BgL_newz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
} *BgL_newz00_bglt;

typedef struct BgL_vallocz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_czd2heapzd2formatz00;
   struct BgL_typez00_bgl * BgL_ftypez00;
   struct BgL_typez00_bgl * BgL_otypez00;
} *BgL_vallocz00_bglt;

typedef struct BgL_vrefz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_czd2formatzd2;
   struct BgL_typez00_bgl * BgL_ftypez00;
   struct BgL_typez00_bgl * BgL_otypez00;
   struct BgL_typez00_bgl * BgL_vtypez00;
} *BgL_vrefz00_bglt;

typedef struct BgL_vsetz12z12_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_czd2formatzd2;
   struct BgL_typez00_bgl * BgL_ftypez00;
   struct BgL_typez00_bgl * BgL_otypez00;
   struct BgL_typez00_bgl * BgL_vtypez00;
} *BgL_vsetz12z12_bglt;

typedef struct BgL_vlengthz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_czd2formatzd2;
   struct BgL_typez00_bgl * BgL_vtypez00;
} *BgL_vlengthz00_bglt;

typedef struct BgL_isaz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   struct BgL_typez00_bgl * BgL_classz00;
} *BgL_isaz00_bglt;

typedef struct BgL_castz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_nodez00_bgl * BgL_argz00;
} *BgL_castz00_bglt;

typedef struct BgL_setqz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_varz00_bgl * BgL_varz00;
   struct BgL_nodez00_bgl * BgL_valuez00;
} *BgL_setqz00_bglt;

typedef struct BgL_conditionalz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_nodez00_bgl * BgL_testz00;
   struct BgL_nodez00_bgl * BgL_truez00;
   struct BgL_nodez00_bgl * BgL_falsez00;
} *BgL_conditionalz00_bglt;

typedef struct BgL_failz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_nodez00_bgl * BgL_procz00;
   struct BgL_nodez00_bgl * BgL_msgz00;
   struct BgL_nodez00_bgl * BgL_objz00;
} *BgL_failz00_bglt;

typedef struct BgL_selectz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_nodez00_bgl * BgL_testz00;
   obj_t BgL_clausesz00;
   struct BgL_typez00_bgl * BgL_itemzd2typezd2;
} *BgL_selectz00_bglt;

typedef struct BgL_letzd2funzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_localsz00;
   struct BgL_nodez00_bgl * BgL_bodyz00;
} *BgL_letzd2funzd2_bglt;

typedef struct BgL_letzd2varzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_bindingsz00;
   struct BgL_nodez00_bgl * BgL_bodyz00;
   bool_t BgL_removablezf3zf3;
} *BgL_letzd2varzd2_bglt;

typedef struct BgL_setzd2exzd2itz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_varz00_bgl * BgL_varz00;
   struct BgL_nodez00_bgl * BgL_bodyz00;
} *BgL_setzd2exzd2itz00_bglt;

typedef struct BgL_jumpzd2exzd2itz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_nodez00_bgl * BgL_exitz00;
   struct BgL_nodez00_bgl * BgL_valuez00;
} *BgL_jumpzd2exzd2itz00_bglt;

typedef struct BgL_makezd2boxzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_nodez00_bgl * BgL_valuez00;
} *BgL_makezd2boxzd2_bglt;

typedef struct BgL_boxzd2refzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_varz00_bgl * BgL_varz00;
} *BgL_boxzd2refzd2_bglt;

typedef struct BgL_boxzd2setz12zc0_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_varz00_bgl * BgL_varz00;
   struct BgL_nodez00_bgl * BgL_valuez00;
} *BgL_boxzd2setz12zc0_bglt;


static obj_t BGl_methodzd2initzd2zzast_removez00();
BGL_IMPORT obj_t open_input_string(obj_t);
static obj_t BGl_nodezd2removez12zd2app2681z12zzast_removez00(obj_t, obj_t);
extern obj_t BGl_letzd2funzd2zzast_nodez00;
static obj_t BGl_nodezd2removez12zd2atom2673z12zzast_removez00(obj_t, obj_t);
static obj_t BGl_nodezd2removez12zd2letzd2fun2705zc0zzast_removez00(obj_t, obj_t);
static obj_t BGl__removezd2varzd2fromz12z12zzast_removez00(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);
BGL_IMPORT obj_t BGl_addzd2genericz12zc0zz__objectz00(obj_t, obj_t);
extern obj_t BGl_letzd2varzd2zzast_nodez00;
static obj_t BGl_nodezd2removez12zd2appzd2ly2683zc0zzast_removez00(obj_t, obj_t);
extern obj_t BGl_kwotez00zzast_nodez00;
static obj_t BGl_nodezd2removez12zd2boxzd2setz122703zd2zzast_removez00(obj_t, obj_t);
static obj_t BGl_nodezd2removez12zd2setq2691z12zzast_removez00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(obj_t);
extern obj_t BGl_castz00zzast_nodez00;
extern obj_t BGl_boxzd2refzd2zzast_nodez00;
extern obj_t BGl_varz00zzast_nodez00;
extern obj_t BGl_za2bdbzd2debugza2zd2zzengine_paramz00;
static obj_t BGl_cnstzd2initzd2zzast_removez00();
extern obj_t BGl_atomz00zzast_nodez00;
extern obj_t BGl_failz00zzast_nodez00;
extern obj_t BGl_funcallz00zzast_nodez00;
static obj_t BGl_nodezd2removez12zd2sequence2679z12zzast_removez00(obj_t, obj_t);
static obj_t BGl_nodezd2removez12zd2select2697z12zzast_removez00(obj_t, obj_t);
extern obj_t BGl_occurzd2varzd2zzast_occurz00(obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzast_removez00();
extern obj_t BGl_makezd2boxzd2zzast_nodez00;
static obj_t BGl_nodezd2removez12zd2boxzd2ref2701zc0zzast_removez00(obj_t, obj_t);
static obj_t BGl__nodezd2removez12zd2default2670z12zzast_removez00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
static obj_t BGl_nodezd2removez12zd2kwote2677z12zzast_removez00(obj_t, obj_t);
extern obj_t BGl_selectz00zzast_nodez00;
static obj_t BGl_toplevelzd2initzd2zzast_removez00();
extern obj_t BGl_appzd2lyzd2zzast_nodez00;
BGL_IMPORT obj_t string_append_3(obj_t, obj_t, obj_t);
extern obj_t BGl_boxzd2setz12zc0zzast_nodez00;
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzast_removez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_speekz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzeffect_effectz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_occurz00(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 *);
extern bool_t BGl_sidezd2effectzf3z21zzeffect_effectz00(BgL_nodez00_bglt);
extern obj_t BGl_verbosez00zztools_speekz00(obj_t, obj_t);
static obj_t BGl_nodezd2removez12zd2var2675z12zzast_removez00(obj_t, obj_t);
static obj_t BGl_nodezd2removez12zd2jumpzd2exzd2it2711z12zzast_removez00(obj_t, obj_t);
static obj_t BGl_nodezd2removez12zd2cast2689z12zzast_removez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_removezd2varzd2fromz12z12zzast_removez00(obj_t, BgL_variablez00_bglt);
static obj_t BGl__removezd2varzd2zzast_removez00(obj_t, obj_t, obj_t);
extern obj_t BGl_setzd2exzd2itz00zzast_nodez00;
static obj_t BGl_nodezd2removez12zd2conditional2693z12zzast_removez00(obj_t, obj_t);
extern obj_t BGl_shapez00zztools_shapez00(obj_t);
BGL_IMPORT obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_nodezd2removeza2z12z62zzast_removez00(obj_t);
static obj_t BGl_nodezd2removez12zd2makezd2box2699zc0zzast_removez00(obj_t, obj_t);
extern obj_t BGl_jumpzd2exzd2itz00zzast_nodez00;
extern obj_t BGl_externz00zzast_nodez00;
extern obj_t BGl_conditionalz00zzast_nodez00;
extern obj_t BGl_sequencez00zzast_nodez00;
BGL_EXPORTED_DECL obj_t BGl_removezd2varzd2zzast_removez00(obj_t, obj_t);
static BgL_nodez00_bglt BGl_nodezd2removez12zd2default2670z12zzast_removez00(BgL_nodez00_bglt);
extern obj_t BGl_internalzd2errorzd2zztools_errorz00(obj_t, obj_t, obj_t);
extern obj_t BGl_appz00zzast_nodez00;
static obj_t BGl_nodezd2removez12zd2extern2687z12zzast_removez00(obj_t, obj_t);
static obj_t BGl_nodezd2removez12zd2setzd2exzd2it2709z12zzast_removez00(obj_t, obj_t);
static BgL_nodez00_bglt BGl_nodezd2removez12zc0zzast_removez00(BgL_nodez00_bglt);
static obj_t BGl_nodezd2removez12zd2fail2695z12zzast_removez00(obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzast_removez00 = BUNSPEC;
static obj_t BGl_libraryzd2moduleszd2initz00zzast_removez00();
static obj_t BGl__nodezd2removez12zc0zzast_removez00(obj_t, obj_t);
static obj_t BGl_nodezd2removez12zd2funcall2685z12zzast_removez00(obj_t, obj_t);
static obj_t BGl_nodezd2removez12zd2letzd2var2707zc0zzast_removez00(obj_t, obj_t);
extern obj_t BGl_setqz00zzast_nodez00;
static obj_t __cnst[ 6 ] ;


DEFINE_STATIC_PROCEDURE( BGl_proc4230z00zzast_removez00, BgL_bgl_nodeza7d2removeza712za7d2var2675za712za7za7ast_removeza7004280za7, BGl_nodezd2removez12zd2var2675z12zzast_removez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4229z00zzast_removez00, BgL_bgl_nodeza7d2removeza712za7d2atom2673za712za7za7ast_removeza7004281za7, BGl_nodezd2removez12zd2atom2673z12zzast_removez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4231z00zzast_removez00, BgL_bgl_nodeza7d2removeza712za7d2kwote2677za712za7za7ast_removeza7004282za7, BGl_nodezd2removez12zd2kwote2677z12zzast_removez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4232z00zzast_removez00, BgL_bgl_nodeza7d2removeza712za7d2sequence2679za712za7za7ast_removeza7004283za7, BGl_nodezd2removez12zd2sequence2679z12zzast_removez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4233z00zzast_removez00, BgL_bgl_nodeza7d2removeza712za7d2app2681za712za7za7ast_removeza7004284za7, BGl_nodezd2removez12zd2app2681z12zzast_removez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4234z00zzast_removez00, BgL_bgl_nodeza7d2removeza712za7d2appza7d2ly2683za7c0za7za7ast_removeza7004285z00, BGl_nodezd2removez12zd2appzd2ly2683zc0zzast_removez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4235z00zzast_removez00, BgL_bgl_nodeza7d2removeza712za7d2funcall2685za712za7za7ast_removeza7004286za7, BGl_nodezd2removez12zd2funcall2685z12zzast_removez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4236z00zzast_removez00, BgL_bgl_nodeza7d2removeza712za7d2extern2687za712za7za7ast_removeza7004287za7, BGl_nodezd2removez12zd2extern2687z12zzast_removez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4237z00zzast_removez00, BgL_bgl_nodeza7d2removeza712za7d2cast2689za712za7za7ast_removeza7004288za7, BGl_nodezd2removez12zd2cast2689z12zzast_removez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4238z00zzast_removez00, BgL_bgl_nodeza7d2removeza712za7d2setq2691za712za7za7ast_removeza7004289za7, BGl_nodezd2removez12zd2setq2691z12zzast_removez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4240z00zzast_removez00, BgL_bgl_nodeza7d2removeza712za7d2fail2695za712za7za7ast_removeza7004290za7, BGl_nodezd2removez12zd2fail2695z12zzast_removez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4239z00zzast_removez00, BgL_bgl_nodeza7d2removeza712za7d2conditional2693za712za7za7ast_removeza7004291za7, BGl_nodezd2removez12zd2conditional2693z12zzast_removez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4241z00zzast_removez00, BgL_bgl_nodeza7d2removeza712za7d2select2697za712za7za7ast_removeza7004292za7, BGl_nodezd2removez12zd2select2697z12zzast_removez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4242z00zzast_removez00, BgL_bgl_nodeza7d2removeza712za7d2makeza7d2box2699za7c0za7za7ast_removeza7004293z00, BGl_nodezd2removez12zd2makezd2box2699zc0zzast_removez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4243z00zzast_removez00, BgL_bgl_nodeza7d2removeza712za7d2boxza7d2ref2701za7c0za7za7ast_removeza7004294z00, BGl_nodezd2removez12zd2boxzd2ref2701zc0zzast_removez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4244z00zzast_removez00, BgL_bgl_nodeza7d2removeza712za7d2boxza7d2setza7122703za7d2za7za7ast_removeza7004295za7, BGl_nodezd2removez12zd2boxzd2setz122703zd2zzast_removez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4245z00zzast_removez00, BgL_bgl_nodeza7d2removeza712za7d2letza7d2fun2705za7c0za7za7ast_removeza7004296z00, BGl_nodezd2removez12zd2letzd2fun2705zc0zzast_removez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4246z00zzast_removez00, BgL_bgl_nodeza7d2removeza712za7d2letza7d2var2707za7c0za7za7ast_removeza7004297z00, BGl_nodezd2removez12zd2letzd2var2707zc0zzast_removez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4247z00zzast_removez00, BgL_bgl_nodeza7d2removeza712za7d2setza7d2exza7d2it2709za712za7za7ast_removeza7004298za7, BGl_nodezd2removez12zd2setzd2exzd2it2709z12zzast_removez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4248z00zzast_removez00, BgL_bgl_nodeza7d2removeza712za7d2jumpza7d2exza7d2it2711za712za7za7ast_removeza7004299za7, BGl_nodezd2removez12zd2jumpzd2exzd2it2711z12zzast_removez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_removezd2varzd2fromz12zd2envzc0zzast_removez00, BgL_bgl__removeza7d2varza7d2fromza712za712za7za7ast_removeza7004300za7, BGl__removezd2varzd2fromz12z12zzast_removez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_removezd2varzd2envz00zzast_removez00, BgL_bgl__removeza7d2varza7d2za7za7ast_removeza7004301za7, BGl__removezd2varzd2zzast_removez00, 0L, 2 );
DEFINE_STATIC_GENERIC( BGl_nodezd2removez12zd2envz12zzast_removez00, BgL_bgl__nodeza7d2removeza712za7c0za7za7ast_removeza7004302z00, BGl__nodezd2removez12zc0zzast_removez00, 0L, 1 );
DEFINE_STRING( BGl_string4250z00zzast_removez00, BgL_bgl_string4250za700za7za7ast_removeza7004303z00, "node-remove!-default2670 done no-remove export ok now ", 54 );
DEFINE_STRING( BGl_string4249z00zzast_removez00, BgL_bgl_string4249za700za7za7ast_removeza7004304z00, "No method for this object", 25 );
DEFINE_STRING( BGl_string4228z00zzast_removez00, BgL_bgl_string4228za700za7za7ast_removeza7004305z00, "        ", 8 );
DEFINE_STRING( BGl_string4227z00zzast_removez00, BgL_bgl_string4227za700za7za7ast_removeza7004306z00, " removed", 8 );
DEFINE_STRING( BGl_string4226z00zzast_removez00, BgL_bgl_string4226za700za7za7ast_removeza7004307z00, "         removing ", 18 );
DEFINE_STRING( BGl_string4225z00zzast_removez00, BgL_bgl_string4225za700za7za7ast_removeza7004308z00, "already removable variable", 26 );
DEFINE_STRING( BGl_string4224z00zzast_removez00, BgL_bgl_string4224za700za7za7ast_removeza7004309z00, "remove-var-from!", 16 );
DEFINE_STRING( BGl_string4223z00zzast_removez00, BgL_bgl_string4223za700za7za7ast_removeza7004310z00, "/", 1 );
DEFINE_STATIC_PROCEDURE( BGl_nodezd2removez12zd2default2670zd2envzc0zzast_removez00, BgL_bgl__nodeza7d2removeza712za7d2default2670za712za7za7ast_removeza7004311za7, BGl__nodezd2removez12zd2default2670z12zzast_removez00, 0L, 1 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzast_removez00(long BgL_checksumz00_2386, char * BgL_fromz00_2387)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzast_removez00))
{ 
BGl_requirezd2initializa7ationz75zzast_removez00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzast_removez00(); 
BGl_cnstzd2initzd2zzast_removez00(); 
BGl_importedzd2moduleszd2initz00zzast_removez00(); 
BGl_methodzd2initzd2zzast_removez00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzast_removez00()
{ AN_OBJECT;
{ /* ./Ast/remove.scm 16 */
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "ast_remove"); 
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "ast_remove"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "ast_remove"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzast_removez00()
{ AN_OBJECT;
{ /* ./Ast/remove.scm 16 */
{ /* ./Ast/remove.scm 16 */
obj_t BgL_cportz00_2373;
BgL_cportz00_2373 = 
open_input_string(BGl_string4250z00zzast_removez00); 
{ 
long BgL_iz00_2374;
BgL_iz00_2374 = ((long)5); 
BgL_loopz00_2375:
{ /* ./Ast/remove.scm 16 */
bool_t BgL_test4252z00_2376;
BgL_test4252z00_2376 = 
(BgL_iz00_2374==((long)-1)); 
if(BgL_test4252z00_2376)
{ /* ./Ast/remove.scm 16 */
return BUNSPEC;}  else 
{ /* ./Ast/remove.scm 16 */
{ /* ./Ast/remove.scm 16 */
obj_t BgL_arg4254z00_2377;
{ /* ./Ast/remove.scm 16 */
obj_t BgL_list4257z00_2378;
BgL_list4257z00_2378 = 
MAKE_PAIR(BgL_cportz00_2373, BNIL); 
BgL_arg4254z00_2377 = 
BGl_readz00zz__readerz00(BgL_list4257z00_2378); } 
{ /* ./Ast/remove.scm 16 */
int BgL_auxz00_2403;
BgL_auxz00_2403 = 
(int)(BgL_iz00_2374); 
CNST_TABLE_SET(BgL_auxz00_2403, BgL_arg4254z00_2377); } } 
{ /* ./Ast/remove.scm 16 */
int BgL_auxz00_2379;
{ /* ./Ast/remove.scm 16 */
long BgL_auxz00_2406;
BgL_auxz00_2406 = 
(BgL_iz00_2374-((long)1)); 
BgL_auxz00_2379 = 
(int)(BgL_auxz00_2406); } 
{ 
long BgL_iz00_2409;
BgL_iz00_2409 = 
(long)(BgL_auxz00_2379); 
BgL_iz00_2374 = BgL_iz00_2409; 
goto BgL_loopz00_2375;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzast_removez00()
{ AN_OBJECT;
{ /* ./Ast/remove.scm 16 */
return BUNSPEC;} 
}



/* remove-var-from! */
BGL_EXPORTED_DEF obj_t BGl_removezd2varzd2fromz12z12zzast_removez00(obj_t BgL_passz00_1, BgL_variablez00_bglt BgL_varz00_2)
{ AN_OBJECT;
{ /* ./Ast/remove.scm 30 */
{ /* ./Ast/remove.scm 31 */
obj_t BgL_oldz00_685;
BgL_oldz00_685 = 
(((BgL_variablez00_bglt)CREF(BgL_varz00_2))->BgL_removablez00); 
{ /* ./Ast/remove.scm 33 */
bool_t BgL_test2712z00_686;
{ /* ./Ast/remove.scm 33 */
obj_t BgL_auxz00_2412;
BgL_auxz00_2412 = 
CNST_TABLE_REF(((long)0)); 
BgL_test2712z00_686 = 
(BgL_oldz00_685==BgL_auxz00_2412); } 
if(BgL_test2712z00_686)
{ /* ./Ast/remove.scm 33 */
{ /* ./Ast/remove.scm 35 */
BgL_variablez00_bglt BgL_obj1111z00_1322;obj_t BgL_val1110z00_1323;
BgL_obj1111z00_1322 = BgL_varz00_2; 
BgL_val1110z00_1323 = BgL_passz00_1; 
return 
((((BgL_variablez00_bglt)CREF(BgL_obj1111z00_1322))->BgL_removablez00) = ((obj_t)BgL_val1110z00_1323), BUNSPEC);} }  else 
{ /* ./Ast/remove.scm 36 */
bool_t BgL_test2714z00_687;
BgL_test2714z00_687 = 
(BgL_oldz00_685==BgL_passz00_1); 
if(BgL_test2714z00_687)
{ /* ./Ast/remove.scm 36 */
return 
CNST_TABLE_REF(((long)1));}  else 
{ /* ./Ast/remove.scm 38 */
bool_t BgL_test2715z00_688;
{ /* ./Ast/remove.scm 38 */
obj_t BgL_auxz00_2420;
BgL_auxz00_2420 = 
CNST_TABLE_REF(((long)0)); 
BgL_test2715z00_688 = 
(BgL_passz00_1==BgL_auxz00_2420); } 
if(BgL_test2715z00_688)
{ /* ./Ast/remove.scm 38 */
return 
CNST_TABLE_REF(((long)1));}  else 
{ /* ./Ast/remove.scm 38 */
{ /* ./Ast/remove.scm 41 */
obj_t BgL_arg2719z00_691;
{ /* ./Ast/remove.scm 43 */
obj_t BgL_arg2722z00_692;obj_t BgL_arg2724z00_694;
BgL_arg2722z00_692 = 
SYMBOL_TO_STRING(BgL_oldz00_685); 
BgL_arg2724z00_694 = 
SYMBOL_TO_STRING(BgL_passz00_1); 
BgL_arg2719z00_691 = 
string_append_3(BgL_arg2722z00_692, BGl_string4223z00zzast_removez00, BgL_arg2724z00_694); } 
return 
BGl_internalzd2errorzd2zztools_errorz00(BGl_string4224z00zzast_removez00, BGl_string4225z00zzast_removez00, BgL_arg2719z00_691);} } } } } } } 
}



/* _remove-var-from! */
obj_t BGl__removezd2varzd2fromz12z12zzast_removez00(obj_t BgL_envz00_2303, obj_t BgL_passz00_2304, obj_t BgL_varz00_2305)
{ AN_OBJECT;
{ /* ./Ast/remove.scm 30 */
return 
BGl_removezd2varzd2fromz12z12zzast_removez00(BgL_passz00_2304, 
(BgL_variablez00_bglt)(BgL_varz00_2305));} 
}



/* remove-var */
BGL_EXPORTED_DEF obj_t BGl_removezd2varzd2zzast_removez00(obj_t BgL_passz00_3, obj_t BgL_globalsz00_4)
{ AN_OBJECT;
{ /* ./Ast/remove.scm 50 */
BGl_occurzd2varzd2zzast_occurz00(BgL_globalsz00_4); 
{ 
obj_t BgL_globalsz00_695;obj_t BgL_resz00_696;
BgL_globalsz00_695 = BgL_globalsz00_4; 
BgL_resz00_696 = BNIL; 
BgL_loopz00_697:
{ /* ./Ast/remove.scm 56 */
bool_t BgL_test2734z00_698;
BgL_test2734z00_698 = 
NULLP(BgL_globalsz00_695); 
if(BgL_test2734z00_698)
{ /* ./Ast/remove.scm 56 */
return 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_resz00_696);}  else 
{ /* ./Ast/remove.scm 59 */
obj_t BgL_globalz00_699;
BgL_globalz00_699 = 
CAR(BgL_globalsz00_695); 
{ /* ./Ast/remove.scm 62 */
bool_t BgL_test2736z00_700;
{ /* ./Ast/remove.scm 62 */
obj_t BgL_auxz00_2439;obj_t BgL_auxz00_2436;
BgL_auxz00_2439 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./Ast/remove.scm 62 */
BgL_globalz00_bglt BgL_obj1168z00_1328;
BgL_obj1168z00_1328 = 
(BgL_globalz00_bglt)(BgL_globalz00_699); 
BgL_auxz00_2436 = 
(((BgL_globalz00_bglt)CREF(BgL_obj1168z00_1328))->BgL_importz00); } 
BgL_test2736z00_700 = 
(BgL_auxz00_2436==BgL_auxz00_2439); } 
if(BgL_test2736z00_700)
{ /* ./Ast/remove.scm 62 */
{ /* ./Ast/remove.scm 63 */
BgL_valuez00_bglt BgL_sfunz00_701;
{ /* ./Ast/remove.scm 63 */
BgL_variablez00_bglt BgL_obj1100z00_1329;
BgL_obj1100z00_1329 = 
(BgL_variablez00_bglt)(BgL_globalz00_699); 
BgL_sfunz00_701 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1329))->BgL_valuez00); } 
{ /* ./Ast/remove.scm 64 */
BgL_nodez00_bglt BgL_arg2738z00_702;
{ /* ./Ast/remove.scm 64 */
obj_t BgL_arg2741z00_703;
{ /* ./Ast/remove.scm 64 */
BgL_sfunz00_bglt BgL_obj1370z00_1330;
BgL_obj1370z00_1330 = 
(BgL_sfunz00_bglt)(BgL_sfunz00_701); 
BgL_arg2741z00_703 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_1330))->BgL_bodyz00); } 
{ /* ./Ast/remove.scm 64 */
BgL_nodez00_bglt BgL_res3624z00_1357;
{ /* ./Ast/remove.scm 64 */
BgL_nodez00_bglt BgL_nodez00_1331;
BgL_nodez00_1331 = 
(BgL_nodez00_bglt)(BgL_arg2741z00_703); 
{ /* ./Ast/remove.scm 64 */
obj_t BgL_method2671z00_1332;
{ /* ./Ast/remove.scm 64 */
BgL_objectz00_bglt BgL_objz00_1333;
BgL_objz00_1333 = 
(BgL_objectz00_bglt)(BgL_nodez00_1331); 
{ /* ./Ast/remove.scm 64 */
long BgL_objzd2classzd2numz00_1334;
BgL_objzd2classzd2numz00_1334 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1333); 
{ /* ./Ast/remove.scm 64 */
obj_t BgL_arg2017z00_1335;
{ /* ./Ast/remove.scm 64 */
int BgL_auxz00_2450;
BgL_auxz00_2450 = 
(int)(((long)1)); 
BgL_arg2017z00_1335 = 
PROCEDURE_REF(BGl_nodezd2removez12zd2envz12zzast_removez00, BgL_auxz00_2450); } 
{ /* ./Ast/remove.scm 64 */
int BgL_offsetz00_1338;
BgL_offsetz00_1338 = 
(int)(BgL_objzd2classzd2numz00_1334); 
{ /* ./Ast/remove.scm 64 */
long BgL_offsetz00_1339;
{ /* ./Ast/remove.scm 64 */
long BgL_auxz00_2454;
BgL_auxz00_2454 = 
(long)(BgL_offsetz00_1338); 
BgL_offsetz00_1339 = 
(BgL_auxz00_2454-OBJECT_TYPE); } 
{ /* ./Ast/remove.scm 64 */
long BgL_modz00_1340;
{ /* ./Ast/remove.scm 64 */
int BgL_arg2028z00_1341;
BgL_arg2028z00_1341 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 64 */
long BgL_n2z00_1349;
BgL_n2z00_1349 = 
(long)(BgL_arg2028z00_1341); 
BgL_modz00_1340 = 
(BgL_offsetz00_1339/BgL_n2z00_1349); } } 
{ /* ./Ast/remove.scm 64 */
long BgL_restz00_1342;
{ /* ./Ast/remove.scm 64 */
int BgL_arg2024z00_1343;
BgL_arg2024z00_1343 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 64 */
long BgL_n2z00_1352;
BgL_n2z00_1352 = 
(long)(BgL_arg2024z00_1343); 
BgL_restz00_1342 = 
(BgL_offsetz00_1339%BgL_n2z00_1352); } } 
{ /* ./Ast/remove.scm 64 */

{ /* ./Ast/remove.scm 64 */
obj_t BgL_bucketz00_1344;
{ /* ./Ast/remove.scm 64 */
int BgL_kz00_1354;
BgL_kz00_1354 = 
(int)(BgL_modz00_1340); 
BgL_bucketz00_1344 = 
VECTOR_REF(BgL_arg2017z00_1335,BgL_kz00_1354); } 
{ /* ./Ast/remove.scm 64 */
int BgL_kz00_1356;
BgL_kz00_1356 = 
(int)(BgL_restz00_1342); 
BgL_method2671z00_1332 = 
VECTOR_REF(BgL_bucketz00_1344,BgL_kz00_1356); } } } } } } } } } } 
{ /* ./Ast/remove.scm 64 */
obj_t BgL_auxz00_2467;
BgL_auxz00_2467 = 
PROCEDURE_ENTRY(BgL_method2671z00_1332)(BgL_method2671z00_1332, 
(obj_t)(BgL_nodez00_1331), BEOA); 
BgL_res3624z00_1357 = 
(BgL_nodez00_bglt)(BgL_auxz00_2467); } } } 
BgL_arg2738z00_702 = BgL_res3624z00_1357; } } 
{ /* ./Ast/remove.scm 64 */
BgL_sfunz00_bglt BgL_obj1373z00_1358;obj_t BgL_val1371z00_1359;
BgL_obj1373z00_1358 = 
(BgL_sfunz00_bglt)(BgL_sfunz00_701); 
BgL_val1371z00_1359 = 
(obj_t)(BgL_arg2738z00_702); 
((((BgL_sfunz00_bglt)CREF(BgL_obj1373z00_1358))->BgL_bodyz00) = ((obj_t)BgL_val1371z00_1359), BUNSPEC); } } } 
{ /* ./Ast/remove.scm 65 */
obj_t BgL_arg2746z00_704;obj_t BgL_arg2747z00_705;
BgL_arg2746z00_704 = 
CDR(BgL_globalsz00_695); 
BgL_arg2747z00_705 = 
MAKE_PAIR(BgL_globalz00_699, BgL_resz00_696); 
{ 
obj_t BgL_resz00_2478;obj_t BgL_globalsz00_2477;
BgL_globalsz00_2477 = BgL_arg2746z00_704; 
BgL_resz00_2478 = BgL_arg2747z00_705; 
BgL_resz00_696 = BgL_resz00_2478; 
BgL_globalsz00_695 = BgL_globalsz00_2477; 
goto BgL_loopz00_697;} } }  else 
{ /* ./Ast/remove.scm 68 */
bool_t BgL_test2751z00_706;
{ /* ./Ast/remove.scm 68 */
bool_t BgL_testz00_2479;
{ /* ./Ast/remove.scm 68 */
obj_t BgL_auxz00_2480;
{ /* ./Ast/remove.scm 68 */
BgL_variablez00_bglt BgL_obj1109z00_1361;
BgL_obj1109z00_1361 = 
(BgL_variablez00_bglt)(BgL_globalz00_699); 
BgL_auxz00_2480 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1109z00_1361))->BgL_removablez00); } 
BgL_testz00_2479 = 
(BgL_auxz00_2480==BgL_passz00_3); } 
if(BgL_testz00_2479)
{ /* ./Ast/remove.scm 68 */
BgL_test2751z00_706 = ((bool_t)1); }  else 
{ /* ./Ast/remove.scm 68 */
if(
PAIRP(BgL_passz00_3))
{ /* ./Ast/remove.scm 70 */
obj_t BgL_auxz00_2486;
{ /* ./Ast/remove.scm 70 */
obj_t BgL_auxz00_2487;
{ /* ./Ast/remove.scm 70 */
BgL_variablez00_bglt BgL_obj1109z00_1363;
BgL_obj1109z00_1363 = 
(BgL_variablez00_bglt)(BgL_globalz00_699); 
BgL_auxz00_2487 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1109z00_1363))->BgL_removablez00); } 
BgL_auxz00_2486 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_2487, BgL_passz00_3); } 
BgL_test2751z00_706 = 
CBOOL(BgL_auxz00_2486); }  else 
{ /* ./Ast/remove.scm 69 */
BgL_test2751z00_706 = ((bool_t)0); } } } 
if(BgL_test2751z00_706)
{ /* ./Ast/remove.scm 68 */
{ /* ./Ast/remove.scm 71 */
bool_t BgL_test2752z00_707;
{ /* ./Ast/remove.scm 71 */
long BgL_auxz00_2493;
{ /* ./Ast/remove.scm 71 */
BgL_variablez00_bglt BgL_obj1112z00_1364;
BgL_obj1112z00_1364 = 
(BgL_variablez00_bglt)(BgL_globalz00_699); 
BgL_auxz00_2493 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1112z00_1364))->BgL_occurrencez00); } 
BgL_test2752z00_707 = 
(BgL_auxz00_2493<=((long)0)); } 
if(BgL_test2752z00_707)
{ /* ./Ast/remove.scm 71 */
{ /* ./Ast/remove.scm 74 */
obj_t BgL_arg2756z00_710;
BgL_arg2756z00_710 = 
BGl_shapez00zztools_shapez00(BgL_globalz00_699); 
{ /* ./Ast/remove.scm 74 */
obj_t BgL_list2758z00_711;
{ /* ./Ast/remove.scm 74 */
obj_t BgL_arg2760z00_712;
{ /* ./Ast/remove.scm 74 */
obj_t BgL_arg2763z00_713;
{ /* ./Ast/remove.scm 74 */
obj_t BgL_auxz00_2499;
BgL_auxz00_2499 = 
BCHAR(((unsigned char)'\n')); 
BgL_arg2763z00_713 = 
MAKE_PAIR(BgL_auxz00_2499, BNIL); } 
BgL_arg2760z00_712 = 
MAKE_PAIR(BgL_arg2756z00_710, BgL_arg2763z00_713); } 
BgL_list2758z00_711 = 
MAKE_PAIR(BGl_string4226z00zzast_removez00, BgL_arg2760z00_712); } 
BGl_verbosez00zztools_speekz00(
BINT(((long)3)), BgL_list2758z00_711); } } 
{ /* ./Ast/remove.scm 76 */
obj_t BgL_arg2768z00_714;
BgL_arg2768z00_714 = 
CDR(BgL_globalsz00_695); 
{ 
obj_t BgL_globalsz00_2507;
BgL_globalsz00_2507 = BgL_arg2768z00_714; 
BgL_globalsz00_695 = BgL_globalsz00_2507; 
goto BgL_loopz00_697;} } }  else 
{ /* ./Ast/remove.scm 77 */
BgL_valuez00_bglt BgL_sfunz00_715;
{ /* ./Ast/remove.scm 77 */
BgL_variablez00_bglt BgL_obj1100z00_1368;
BgL_obj1100z00_1368 = 
(BgL_variablez00_bglt)(BgL_globalz00_699); 
BgL_sfunz00_715 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1368))->BgL_valuez00); } 
{ /* ./Ast/remove.scm 78 */
BgL_variablez00_bglt BgL_obj1111z00_1369;obj_t BgL_val1110z00_1370;
BgL_obj1111z00_1369 = 
(BgL_variablez00_bglt)(BgL_globalz00_699); 
BgL_val1110z00_1370 = 
CNST_TABLE_REF(((long)0)); 
((((BgL_variablez00_bglt)CREF(BgL_obj1111z00_1369))->BgL_removablez00) = ((obj_t)BgL_val1110z00_1370), BUNSPEC); } 
{ /* ./Ast/remove.scm 79 */
BgL_nodez00_bglt BgL_arg2773z00_716;
{ /* ./Ast/remove.scm 79 */
obj_t BgL_arg2776z00_717;
{ /* ./Ast/remove.scm 79 */
BgL_sfunz00_bglt BgL_obj1370z00_1371;
BgL_obj1370z00_1371 = 
(BgL_sfunz00_bglt)(BgL_sfunz00_715); 
BgL_arg2776z00_717 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_1371))->BgL_bodyz00); } 
{ /* ./Ast/remove.scm 79 */
BgL_nodez00_bglt BgL_res3627z00_1398;
{ /* ./Ast/remove.scm 79 */
BgL_nodez00_bglt BgL_nodez00_1372;
BgL_nodez00_1372 = 
(BgL_nodez00_bglt)(BgL_arg2776z00_717); 
{ /* ./Ast/remove.scm 79 */
obj_t BgL_method2671z00_1373;
{ /* ./Ast/remove.scm 79 */
BgL_objectz00_bglt BgL_objz00_1374;
BgL_objz00_1374 = 
(BgL_objectz00_bglt)(BgL_nodez00_1372); 
{ /* ./Ast/remove.scm 79 */
long BgL_objzd2classzd2numz00_1375;
BgL_objzd2classzd2numz00_1375 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1374); 
{ /* ./Ast/remove.scm 79 */
obj_t BgL_arg2017z00_1376;
{ /* ./Ast/remove.scm 79 */
int BgL_auxz00_2518;
BgL_auxz00_2518 = 
(int)(((long)1)); 
BgL_arg2017z00_1376 = 
PROCEDURE_REF(BGl_nodezd2removez12zd2envz12zzast_removez00, BgL_auxz00_2518); } 
{ /* ./Ast/remove.scm 79 */
int BgL_offsetz00_1379;
BgL_offsetz00_1379 = 
(int)(BgL_objzd2classzd2numz00_1375); 
{ /* ./Ast/remove.scm 79 */
long BgL_offsetz00_1380;
{ /* ./Ast/remove.scm 79 */
long BgL_auxz00_2522;
BgL_auxz00_2522 = 
(long)(BgL_offsetz00_1379); 
BgL_offsetz00_1380 = 
(BgL_auxz00_2522-OBJECT_TYPE); } 
{ /* ./Ast/remove.scm 79 */
long BgL_modz00_1381;
{ /* ./Ast/remove.scm 79 */
int BgL_arg2028z00_1382;
BgL_arg2028z00_1382 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 79 */
long BgL_n2z00_1390;
BgL_n2z00_1390 = 
(long)(BgL_arg2028z00_1382); 
BgL_modz00_1381 = 
(BgL_offsetz00_1380/BgL_n2z00_1390); } } 
{ /* ./Ast/remove.scm 79 */
long BgL_restz00_1383;
{ /* ./Ast/remove.scm 79 */
int BgL_arg2024z00_1384;
BgL_arg2024z00_1384 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 79 */
long BgL_n2z00_1393;
BgL_n2z00_1393 = 
(long)(BgL_arg2024z00_1384); 
BgL_restz00_1383 = 
(BgL_offsetz00_1380%BgL_n2z00_1393); } } 
{ /* ./Ast/remove.scm 79 */

{ /* ./Ast/remove.scm 79 */
obj_t BgL_bucketz00_1385;
{ /* ./Ast/remove.scm 79 */
int BgL_kz00_1395;
BgL_kz00_1395 = 
(int)(BgL_modz00_1381); 
BgL_bucketz00_1385 = 
VECTOR_REF(BgL_arg2017z00_1376,BgL_kz00_1395); } 
{ /* ./Ast/remove.scm 79 */
int BgL_kz00_1397;
BgL_kz00_1397 = 
(int)(BgL_restz00_1383); 
BgL_method2671z00_1373 = 
VECTOR_REF(BgL_bucketz00_1385,BgL_kz00_1397); } } } } } } } } } } 
{ /* ./Ast/remove.scm 79 */
obj_t BgL_auxz00_2535;
BgL_auxz00_2535 = 
PROCEDURE_ENTRY(BgL_method2671z00_1373)(BgL_method2671z00_1373, 
(obj_t)(BgL_nodez00_1372), BEOA); 
BgL_res3627z00_1398 = 
(BgL_nodez00_bglt)(BgL_auxz00_2535); } } } 
BgL_arg2773z00_716 = BgL_res3627z00_1398; } } 
{ /* ./Ast/remove.scm 79 */
BgL_sfunz00_bglt BgL_obj1373z00_1399;obj_t BgL_val1371z00_1400;
BgL_obj1373z00_1399 = 
(BgL_sfunz00_bglt)(BgL_sfunz00_715); 
BgL_val1371z00_1400 = 
(obj_t)(BgL_arg2773z00_716); 
((((BgL_sfunz00_bglt)CREF(BgL_obj1373z00_1399))->BgL_bodyz00) = ((obj_t)BgL_val1371z00_1400), BUNSPEC); } } 
{ /* ./Ast/remove.scm 80 */
obj_t BgL_arg2780z00_718;obj_t BgL_arg2781z00_719;
BgL_arg2780z00_718 = 
CDR(BgL_globalsz00_695); 
BgL_arg2781z00_719 = 
MAKE_PAIR(BgL_globalz00_699, BgL_resz00_696); 
{ 
obj_t BgL_resz00_2546;obj_t BgL_globalsz00_2545;
BgL_globalsz00_2545 = BgL_arg2780z00_718; 
BgL_resz00_2546 = BgL_arg2781z00_719; 
BgL_resz00_696 = BgL_resz00_2546; 
BgL_globalsz00_695 = BgL_globalsz00_2545; 
goto BgL_loopz00_697;} } } } }  else 
{ /* ./Ast/remove.scm 81 */
bool_t BgL_test2791z00_722;
{ /* ./Ast/remove.scm 81 */
bool_t BgL_testz00_2547;
{ /* ./Ast/remove.scm 81 */
long BgL_auxz00_2548;
{ /* ./Ast/remove.scm 81 */
BgL_variablez00_bglt BgL_obj1112z00_1402;
BgL_obj1112z00_1402 = 
(BgL_variablez00_bglt)(BgL_globalz00_699); 
BgL_auxz00_2548 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1112z00_1402))->BgL_occurrencez00); } 
BgL_testz00_2547 = 
(BgL_auxz00_2548<=((long)0)); } 
if(BgL_testz00_2547)
{ /* ./Ast/remove.scm 82 */
bool_t BgL_testz00_2552;
{ /* ./Ast/remove.scm 82 */
obj_t BgL_auxz00_2556;obj_t BgL_auxz00_2553;
BgL_auxz00_2556 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./Ast/remove.scm 82 */
BgL_variablez00_bglt BgL_obj1109z00_1405;
BgL_obj1109z00_1405 = 
(BgL_variablez00_bglt)(BgL_globalz00_699); 
BgL_auxz00_2553 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1109z00_1405))->BgL_removablez00); } 
BgL_testz00_2552 = 
(BgL_auxz00_2553==BgL_auxz00_2556); } 
if(BgL_testz00_2552)
{ /* ./Ast/remove.scm 83 */
bool_t BgL_testz00_2559;
{ /* ./Ast/remove.scm 83 */
obj_t BgL_auxz00_2560;
BgL_auxz00_2560 = 
CNST_TABLE_REF(((long)3)); 
BgL_testz00_2559 = 
(BgL_passz00_3==BgL_auxz00_2560); } 
if(BgL_testz00_2559)
{ /* ./Ast/remove.scm 83 */
BgL_test2791z00_722 = ((bool_t)0); }  else 
{ /* ./Ast/remove.scm 83 */
BgL_test2791z00_722 = ((bool_t)1); } }  else 
{ /* ./Ast/remove.scm 82 */
BgL_test2791z00_722 = ((bool_t)0); } }  else 
{ /* ./Ast/remove.scm 81 */
BgL_test2791z00_722 = ((bool_t)0); } } 
if(BgL_test2791z00_722)
{ /* ./Ast/remove.scm 81 */
{ /* ./Ast/remove.scm 85 */
obj_t BgL_arg2795z00_725;
BgL_arg2795z00_725 = 
BGl_shapez00zztools_shapez00(BgL_globalz00_699); 
{ /* ./Ast/remove.scm 85 */
obj_t BgL_list2798z00_727;
{ /* ./Ast/remove.scm 85 */
obj_t BgL_arg2800z00_728;
{ /* ./Ast/remove.scm 85 */
obj_t BgL_arg2803z00_729;
{ /* ./Ast/remove.scm 85 */
obj_t BgL_arg2806z00_730;
{ /* ./Ast/remove.scm 85 */
obj_t BgL_auxz00_2565;
BgL_auxz00_2565 = 
BCHAR(((unsigned char)'\n')); 
BgL_arg2806z00_730 = 
MAKE_PAIR(BgL_auxz00_2565, BNIL); } 
BgL_arg2803z00_729 = 
MAKE_PAIR(BGl_string4227z00zzast_removez00, BgL_arg2806z00_730); } 
BgL_arg2800z00_728 = 
MAKE_PAIR(BgL_arg2795z00_725, BgL_arg2803z00_729); } 
BgL_list2798z00_727 = 
MAKE_PAIR(BGl_string4228z00zzast_removez00, BgL_arg2800z00_728); } 
BGl_verbosez00zztools_speekz00(
BINT(((long)3)), BgL_list2798z00_727); } } 
{ /* ./Ast/remove.scm 86 */
obj_t BgL_arg2811z00_731;
BgL_arg2811z00_731 = 
CDR(BgL_globalsz00_695); 
{ 
obj_t BgL_globalsz00_2574;
BgL_globalsz00_2574 = BgL_arg2811z00_731; 
BgL_globalsz00_695 = BgL_globalsz00_2574; 
goto BgL_loopz00_697;} } }  else 
{ /* ./Ast/remove.scm 81 */
{ /* ./Ast/remove.scm 88 */
BgL_valuez00_bglt BgL_sfunz00_732;
{ /* ./Ast/remove.scm 88 */
BgL_variablez00_bglt BgL_obj1100z00_1407;
BgL_obj1100z00_1407 = 
(BgL_variablez00_bglt)(BgL_globalz00_699); 
BgL_sfunz00_732 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1407))->BgL_valuez00); } 
{ /* ./Ast/remove.scm 89 */
BgL_nodez00_bglt BgL_arg2815z00_733;
{ /* ./Ast/remove.scm 89 */
obj_t BgL_arg2818z00_734;
{ /* ./Ast/remove.scm 89 */
BgL_sfunz00_bglt BgL_obj1370z00_1408;
BgL_obj1370z00_1408 = 
(BgL_sfunz00_bglt)(BgL_sfunz00_732); 
BgL_arg2818z00_734 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_1408))->BgL_bodyz00); } 
{ /* ./Ast/remove.scm 89 */
BgL_nodez00_bglt BgL_res3630z00_1435;
{ /* ./Ast/remove.scm 89 */
BgL_nodez00_bglt BgL_nodez00_1409;
BgL_nodez00_1409 = 
(BgL_nodez00_bglt)(BgL_arg2818z00_734); 
{ /* ./Ast/remove.scm 89 */
obj_t BgL_method2671z00_1410;
{ /* ./Ast/remove.scm 89 */
BgL_objectz00_bglt BgL_objz00_1411;
BgL_objz00_1411 = 
(BgL_objectz00_bglt)(BgL_nodez00_1409); 
{ /* ./Ast/remove.scm 89 */
long BgL_objzd2classzd2numz00_1412;
BgL_objzd2classzd2numz00_1412 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1411); 
{ /* ./Ast/remove.scm 89 */
obj_t BgL_arg2017z00_1413;
{ /* ./Ast/remove.scm 89 */
int BgL_auxz00_2582;
BgL_auxz00_2582 = 
(int)(((long)1)); 
BgL_arg2017z00_1413 = 
PROCEDURE_REF(BGl_nodezd2removez12zd2envz12zzast_removez00, BgL_auxz00_2582); } 
{ /* ./Ast/remove.scm 89 */
int BgL_offsetz00_1416;
BgL_offsetz00_1416 = 
(int)(BgL_objzd2classzd2numz00_1412); 
{ /* ./Ast/remove.scm 89 */
long BgL_offsetz00_1417;
{ /* ./Ast/remove.scm 89 */
long BgL_auxz00_2586;
BgL_auxz00_2586 = 
(long)(BgL_offsetz00_1416); 
BgL_offsetz00_1417 = 
(BgL_auxz00_2586-OBJECT_TYPE); } 
{ /* ./Ast/remove.scm 89 */
long BgL_modz00_1418;
{ /* ./Ast/remove.scm 89 */
int BgL_arg2028z00_1419;
BgL_arg2028z00_1419 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 89 */
long BgL_n2z00_1427;
BgL_n2z00_1427 = 
(long)(BgL_arg2028z00_1419); 
BgL_modz00_1418 = 
(BgL_offsetz00_1417/BgL_n2z00_1427); } } 
{ /* ./Ast/remove.scm 89 */
long BgL_restz00_1420;
{ /* ./Ast/remove.scm 89 */
int BgL_arg2024z00_1421;
BgL_arg2024z00_1421 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 89 */
long BgL_n2z00_1430;
BgL_n2z00_1430 = 
(long)(BgL_arg2024z00_1421); 
BgL_restz00_1420 = 
(BgL_offsetz00_1417%BgL_n2z00_1430); } } 
{ /* ./Ast/remove.scm 89 */

{ /* ./Ast/remove.scm 89 */
obj_t BgL_bucketz00_1422;
{ /* ./Ast/remove.scm 89 */
int BgL_kz00_1432;
BgL_kz00_1432 = 
(int)(BgL_modz00_1418); 
BgL_bucketz00_1422 = 
VECTOR_REF(BgL_arg2017z00_1413,BgL_kz00_1432); } 
{ /* ./Ast/remove.scm 89 */
int BgL_kz00_1434;
BgL_kz00_1434 = 
(int)(BgL_restz00_1420); 
BgL_method2671z00_1410 = 
VECTOR_REF(BgL_bucketz00_1422,BgL_kz00_1434); } } } } } } } } } } 
{ /* ./Ast/remove.scm 89 */
obj_t BgL_auxz00_2599;
BgL_auxz00_2599 = 
PROCEDURE_ENTRY(BgL_method2671z00_1410)(BgL_method2671z00_1410, 
(obj_t)(BgL_nodez00_1409), BEOA); 
BgL_res3630z00_1435 = 
(BgL_nodez00_bglt)(BgL_auxz00_2599); } } } 
BgL_arg2815z00_733 = BgL_res3630z00_1435; } } 
{ /* ./Ast/remove.scm 89 */
BgL_sfunz00_bglt BgL_obj1373z00_1436;obj_t BgL_val1371z00_1437;
BgL_obj1373z00_1436 = 
(BgL_sfunz00_bglt)(BgL_sfunz00_732); 
BgL_val1371z00_1437 = 
(obj_t)(BgL_arg2815z00_733); 
((((BgL_sfunz00_bglt)CREF(BgL_obj1373z00_1436))->BgL_bodyz00) = ((obj_t)BgL_val1371z00_1437), BUNSPEC); } } 
{ /* ./Ast/remove.scm 91 */
obj_t BgL_arg2822z00_735;obj_t BgL_arg2823z00_736;
BgL_arg2822z00_735 = 
CDR(BgL_globalsz00_695); 
BgL_arg2823z00_736 = 
MAKE_PAIR(BgL_globalz00_699, BgL_resz00_696); 
{ 
obj_t BgL_resz00_2610;obj_t BgL_globalsz00_2609;
BgL_globalsz00_2609 = BgL_arg2822z00_735; 
BgL_resz00_2610 = BgL_arg2823z00_736; 
BgL_resz00_696 = BgL_resz00_2610; 
BgL_globalsz00_695 = BgL_globalsz00_2609; 
goto BgL_loopz00_697;} } } } } } } } } } } 
}



/* _remove-var */
obj_t BGl__removezd2varzd2zzast_removez00(obj_t BgL_envz00_2306, obj_t BgL_passz00_2307, obj_t BgL_globalsz00_2308)
{ AN_OBJECT;
{ /* ./Ast/remove.scm 50 */
return 
BGl_removezd2varzd2zzast_removez00(BgL_passz00_2307, BgL_globalsz00_2308);} 
}



/* node-remove*! */
obj_t BGl_nodezd2removeza2z12z62zzast_removez00(obj_t BgL_nodeza2za2_27)
{ AN_OBJECT;
{ /* ./Ast/remove.scm 296 */
BGl_nodezd2removeza2z12z62zzast_removez00:
{ /* ./Ast/remove.scm 297 */
bool_t BgL_test2859z00_750;
BgL_test2859z00_750 = 
NULLP(BgL_nodeza2za2_27); 
if(BgL_test2859z00_750)
{ /* ./Ast/remove.scm 297 */
return 
CNST_TABLE_REF(((long)4));}  else 
{ /* ./Ast/remove.scm 297 */
{ /* ./Ast/remove.scm 300 */
BgL_nodez00_bglt BgL_arg2861z00_751;
{ /* ./Ast/remove.scm 300 */
obj_t BgL_arg2864z00_752;
BgL_arg2864z00_752 = 
CAR(BgL_nodeza2za2_27); 
{ /* ./Ast/remove.scm 300 */
BgL_nodez00_bglt BgL_res3633z00_1467;
{ /* ./Ast/remove.scm 300 */
BgL_nodez00_bglt BgL_nodez00_1441;
BgL_nodez00_1441 = 
(BgL_nodez00_bglt)(BgL_arg2864z00_752); 
{ /* ./Ast/remove.scm 300 */
obj_t BgL_method2671z00_1442;
{ /* ./Ast/remove.scm 300 */
BgL_objectz00_bglt BgL_objz00_1443;
BgL_objz00_1443 = 
(BgL_objectz00_bglt)(BgL_nodez00_1441); 
{ /* ./Ast/remove.scm 300 */
long BgL_objzd2classzd2numz00_1444;
BgL_objzd2classzd2numz00_1444 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1443); 
{ /* ./Ast/remove.scm 300 */
obj_t BgL_arg2017z00_1445;
{ /* ./Ast/remove.scm 300 */
int BgL_auxz00_2619;
BgL_auxz00_2619 = 
(int)(((long)1)); 
BgL_arg2017z00_1445 = 
PROCEDURE_REF(BGl_nodezd2removez12zd2envz12zzast_removez00, BgL_auxz00_2619); } 
{ /* ./Ast/remove.scm 300 */
int BgL_offsetz00_1448;
BgL_offsetz00_1448 = 
(int)(BgL_objzd2classzd2numz00_1444); 
{ /* ./Ast/remove.scm 300 */
long BgL_offsetz00_1449;
{ /* ./Ast/remove.scm 300 */
long BgL_auxz00_2623;
BgL_auxz00_2623 = 
(long)(BgL_offsetz00_1448); 
BgL_offsetz00_1449 = 
(BgL_auxz00_2623-OBJECT_TYPE); } 
{ /* ./Ast/remove.scm 300 */
long BgL_modz00_1450;
{ /* ./Ast/remove.scm 300 */
int BgL_arg2028z00_1451;
BgL_arg2028z00_1451 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 300 */
long BgL_n2z00_1459;
BgL_n2z00_1459 = 
(long)(BgL_arg2028z00_1451); 
BgL_modz00_1450 = 
(BgL_offsetz00_1449/BgL_n2z00_1459); } } 
{ /* ./Ast/remove.scm 300 */
long BgL_restz00_1452;
{ /* ./Ast/remove.scm 300 */
int BgL_arg2024z00_1453;
BgL_arg2024z00_1453 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 300 */
long BgL_n2z00_1462;
BgL_n2z00_1462 = 
(long)(BgL_arg2024z00_1453); 
BgL_restz00_1452 = 
(BgL_offsetz00_1449%BgL_n2z00_1462); } } 
{ /* ./Ast/remove.scm 300 */

{ /* ./Ast/remove.scm 300 */
obj_t BgL_bucketz00_1454;
{ /* ./Ast/remove.scm 300 */
int BgL_kz00_1464;
BgL_kz00_1464 = 
(int)(BgL_modz00_1450); 
BgL_bucketz00_1454 = 
VECTOR_REF(BgL_arg2017z00_1445,BgL_kz00_1464); } 
{ /* ./Ast/remove.scm 300 */
int BgL_kz00_1466;
BgL_kz00_1466 = 
(int)(BgL_restz00_1452); 
BgL_method2671z00_1442 = 
VECTOR_REF(BgL_bucketz00_1454,BgL_kz00_1466); } } } } } } } } } } 
{ /* ./Ast/remove.scm 300 */
obj_t BgL_auxz00_2636;
BgL_auxz00_2636 = 
PROCEDURE_ENTRY(BgL_method2671z00_1442)(BgL_method2671z00_1442, 
(obj_t)(BgL_nodez00_1441), BEOA); 
BgL_res3633z00_1467 = 
(BgL_nodez00_bglt)(BgL_auxz00_2636); } } } 
BgL_arg2861z00_751 = BgL_res3633z00_1467; } } 
{ /* ./Ast/remove.scm 300 */
obj_t BgL_objz00_1469;
BgL_objz00_1469 = 
(obj_t)(BgL_arg2861z00_751); 
SET_CAR(BgL_nodeza2za2_27, BgL_objz00_1469); } } 
{ /* ./Ast/remove.scm 301 */
obj_t BgL_arg2868z00_753;
BgL_arg2868z00_753 = 
CDR(BgL_nodeza2za2_27); 
{ 
obj_t BgL_nodeza2za2_2644;
BgL_nodeza2za2_2644 = BgL_arg2868z00_753; 
BgL_nodeza2za2_27 = BgL_nodeza2za2_2644; 
goto BGl_nodezd2removeza2z12z62zzast_removez00;} } } } } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzast_removez00()
{ AN_OBJECT;
{ /* ./Ast/remove.scm 16 */
BGl_addzd2genericz12zc0zz__objectz00(BGl_nodezd2removez12zd2envz12zzast_removez00, BGl_nodezd2removez12zd2default2670zd2envzc0zzast_removez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2removez12zd2envz12zzast_removez00, BGl_atomz00zzast_nodez00, BGl_proc4229z00zzast_removez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2removez12zd2envz12zzast_removez00, BGl_varz00zzast_nodez00, BGl_proc4230z00zzast_removez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2removez12zd2envz12zzast_removez00, BGl_kwotez00zzast_nodez00, BGl_proc4231z00zzast_removez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2removez12zd2envz12zzast_removez00, BGl_sequencez00zzast_nodez00, BGl_proc4232z00zzast_removez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2removez12zd2envz12zzast_removez00, BGl_appz00zzast_nodez00, BGl_proc4233z00zzast_removez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2removez12zd2envz12zzast_removez00, BGl_appzd2lyzd2zzast_nodez00, BGl_proc4234z00zzast_removez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2removez12zd2envz12zzast_removez00, BGl_funcallz00zzast_nodez00, BGl_proc4235z00zzast_removez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2removez12zd2envz12zzast_removez00, BGl_externz00zzast_nodez00, BGl_proc4236z00zzast_removez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2removez12zd2envz12zzast_removez00, BGl_castz00zzast_nodez00, BGl_proc4237z00zzast_removez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2removez12zd2envz12zzast_removez00, BGl_setqz00zzast_nodez00, BGl_proc4238z00zzast_removez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2removez12zd2envz12zzast_removez00, BGl_conditionalz00zzast_nodez00, BGl_proc4239z00zzast_removez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2removez12zd2envz12zzast_removez00, BGl_failz00zzast_nodez00, BGl_proc4240z00zzast_removez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2removez12zd2envz12zzast_removez00, BGl_selectz00zzast_nodez00, BGl_proc4241z00zzast_removez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2removez12zd2envz12zzast_removez00, BGl_makezd2boxzd2zzast_nodez00, BGl_proc4242z00zzast_removez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2removez12zd2envz12zzast_removez00, BGl_boxzd2refzd2zzast_nodez00, BGl_proc4243z00zzast_removez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2removez12zd2envz12zzast_removez00, BGl_boxzd2setz12zc0zzast_nodez00, BGl_proc4244z00zzast_removez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2removez12zd2envz12zzast_removez00, BGl_letzd2funzd2zzast_nodez00, BGl_proc4245z00zzast_removez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2removez12zd2envz12zzast_removez00, BGl_letzd2varzd2zzast_nodez00, BGl_proc4246z00zzast_removez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2removez12zd2envz12zzast_removez00, BGl_setzd2exzd2itz00zzast_nodez00, BGl_proc4247z00zzast_removez00); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2removez12zd2envz12zzast_removez00, BGl_jumpzd2exzd2itz00zzast_nodez00, BGl_proc4248z00zzast_removez00);} 
}



/* node-remove!-jump-ex-it2711 */
obj_t BGl_nodezd2removez12zd2jumpzd2exzd2it2711z12zzast_removez00(obj_t BgL_envz00_2331, obj_t BgL_nodez00_2332)
{ AN_OBJECT;
{ /* ./Ast/remove.scm 288 */
{ 
BgL_jumpzd2exzd2itz00_bglt BgL_nodez00_1311;
{ /* ./Ast/remove.scm 289 */
BgL_jumpzd2exzd2itz00_bglt BgL_auxz00_2666;
BgL_nodez00_1311 = 
(BgL_jumpzd2exzd2itz00_bglt)(BgL_nodez00_2332); 
{ /* ./Ast/remove.scm 289 */
BgL_nodez00_bglt BgL_arg3592z00_1314;
{ /* ./Ast/remove.scm 289 */
BgL_nodez00_bglt BgL_arg3595z00_1315;
BgL_arg3595z00_1315 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1311))->BgL_exitz00); 
{ /* ./Ast/remove.scm 289 */
BgL_nodez00_bglt BgL_res3705z00_2242;
{ /* ./Ast/remove.scm 289 */
obj_t BgL_method2671z00_2217;
{ /* ./Ast/remove.scm 289 */
BgL_objectz00_bglt BgL_objz00_2218;
BgL_objz00_2218 = 
(BgL_objectz00_bglt)(BgL_arg3595z00_1315); 
{ /* ./Ast/remove.scm 289 */
long BgL_objzd2classzd2numz00_2219;
BgL_objzd2classzd2numz00_2219 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2218); 
{ /* ./Ast/remove.scm 289 */
obj_t BgL_arg2017z00_2220;
{ /* ./Ast/remove.scm 289 */
int BgL_auxz00_2670;
BgL_auxz00_2670 = 
(int)(((long)1)); 
BgL_arg2017z00_2220 = 
PROCEDURE_REF(BGl_nodezd2removez12zd2envz12zzast_removez00, BgL_auxz00_2670); } 
{ /* ./Ast/remove.scm 289 */
int BgL_offsetz00_2223;
BgL_offsetz00_2223 = 
(int)(BgL_objzd2classzd2numz00_2219); 
{ /* ./Ast/remove.scm 289 */
long BgL_offsetz00_2224;
{ /* ./Ast/remove.scm 289 */
long BgL_auxz00_2674;
BgL_auxz00_2674 = 
(long)(BgL_offsetz00_2223); 
BgL_offsetz00_2224 = 
(BgL_auxz00_2674-OBJECT_TYPE); } 
{ /* ./Ast/remove.scm 289 */
long BgL_modz00_2225;
{ /* ./Ast/remove.scm 289 */
int BgL_arg2028z00_2226;
BgL_arg2028z00_2226 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 289 */
long BgL_n2z00_2234;
BgL_n2z00_2234 = 
(long)(BgL_arg2028z00_2226); 
BgL_modz00_2225 = 
(BgL_offsetz00_2224/BgL_n2z00_2234); } } 
{ /* ./Ast/remove.scm 289 */
long BgL_restz00_2227;
{ /* ./Ast/remove.scm 289 */
int BgL_arg2024z00_2228;
BgL_arg2024z00_2228 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 289 */
long BgL_n2z00_2237;
BgL_n2z00_2237 = 
(long)(BgL_arg2024z00_2228); 
BgL_restz00_2227 = 
(BgL_offsetz00_2224%BgL_n2z00_2237); } } 
{ /* ./Ast/remove.scm 289 */

{ /* ./Ast/remove.scm 289 */
obj_t BgL_bucketz00_2229;
{ /* ./Ast/remove.scm 289 */
int BgL_kz00_2239;
BgL_kz00_2239 = 
(int)(BgL_modz00_2225); 
BgL_bucketz00_2229 = 
VECTOR_REF(BgL_arg2017z00_2220,BgL_kz00_2239); } 
{ /* ./Ast/remove.scm 289 */
int BgL_kz00_2241;
BgL_kz00_2241 = 
(int)(BgL_restz00_2227); 
BgL_method2671z00_2217 = 
VECTOR_REF(BgL_bucketz00_2229,BgL_kz00_2241); } } } } } } } } } } 
{ /* ./Ast/remove.scm 289 */
obj_t BgL_auxz00_2687;
BgL_auxz00_2687 = 
PROCEDURE_ENTRY(BgL_method2671z00_2217)(BgL_method2671z00_2217, 
(obj_t)(BgL_arg3595z00_1315), BEOA); 
BgL_res3705z00_2242 = 
(BgL_nodez00_bglt)(BgL_auxz00_2687); } } 
BgL_arg3592z00_1314 = BgL_res3705z00_2242; } } 
{ /* ./Ast/remove.scm 289 */
BgL_jumpzd2exzd2itz00_bglt BgL_obj2552z00_2243;BgL_nodez00_bglt BgL_val2551z00_2244;
BgL_obj2552z00_2243 = BgL_nodez00_1311; 
BgL_val2551z00_2244 = BgL_arg3592z00_1314; 
((((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_obj2552z00_2243))->BgL_exitz00) = ((BgL_nodez00_bglt)BgL_val2551z00_2244), BUNSPEC); } } 
{ /* ./Ast/remove.scm 290 */
BgL_nodez00_bglt BgL_arg3599z00_1316;
{ /* ./Ast/remove.scm 290 */
BgL_nodez00_bglt BgL_arg3602z00_1317;
BgL_arg3602z00_1317 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1311))->BgL_valuez00); 
{ /* ./Ast/remove.scm 290 */
BgL_nodez00_bglt BgL_res3708z00_2272;
{ /* ./Ast/remove.scm 290 */
obj_t BgL_method2671z00_2247;
{ /* ./Ast/remove.scm 290 */
BgL_objectz00_bglt BgL_objz00_2248;
BgL_objz00_2248 = 
(BgL_objectz00_bglt)(BgL_arg3602z00_1317); 
{ /* ./Ast/remove.scm 290 */
long BgL_objzd2classzd2numz00_2249;
BgL_objzd2classzd2numz00_2249 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2248); 
{ /* ./Ast/remove.scm 290 */
obj_t BgL_arg2017z00_2250;
{ /* ./Ast/remove.scm 290 */
int BgL_auxz00_2696;
BgL_auxz00_2696 = 
(int)(((long)1)); 
BgL_arg2017z00_2250 = 
PROCEDURE_REF(BGl_nodezd2removez12zd2envz12zzast_removez00, BgL_auxz00_2696); } 
{ /* ./Ast/remove.scm 290 */
int BgL_offsetz00_2253;
BgL_offsetz00_2253 = 
(int)(BgL_objzd2classzd2numz00_2249); 
{ /* ./Ast/remove.scm 290 */
long BgL_offsetz00_2254;
{ /* ./Ast/remove.scm 290 */
long BgL_auxz00_2700;
BgL_auxz00_2700 = 
(long)(BgL_offsetz00_2253); 
BgL_offsetz00_2254 = 
(BgL_auxz00_2700-OBJECT_TYPE); } 
{ /* ./Ast/remove.scm 290 */
long BgL_modz00_2255;
{ /* ./Ast/remove.scm 290 */
int BgL_arg2028z00_2256;
BgL_arg2028z00_2256 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 290 */
long BgL_n2z00_2264;
BgL_n2z00_2264 = 
(long)(BgL_arg2028z00_2256); 
BgL_modz00_2255 = 
(BgL_offsetz00_2254/BgL_n2z00_2264); } } 
{ /* ./Ast/remove.scm 290 */
long BgL_restz00_2257;
{ /* ./Ast/remove.scm 290 */
int BgL_arg2024z00_2258;
BgL_arg2024z00_2258 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 290 */
long BgL_n2z00_2267;
BgL_n2z00_2267 = 
(long)(BgL_arg2024z00_2258); 
BgL_restz00_2257 = 
(BgL_offsetz00_2254%BgL_n2z00_2267); } } 
{ /* ./Ast/remove.scm 290 */

{ /* ./Ast/remove.scm 290 */
obj_t BgL_bucketz00_2259;
{ /* ./Ast/remove.scm 290 */
int BgL_kz00_2269;
BgL_kz00_2269 = 
(int)(BgL_modz00_2255); 
BgL_bucketz00_2259 = 
VECTOR_REF(BgL_arg2017z00_2250,BgL_kz00_2269); } 
{ /* ./Ast/remove.scm 290 */
int BgL_kz00_2271;
BgL_kz00_2271 = 
(int)(BgL_restz00_2257); 
BgL_method2671z00_2247 = 
VECTOR_REF(BgL_bucketz00_2259,BgL_kz00_2271); } } } } } } } } } } 
{ /* ./Ast/remove.scm 290 */
obj_t BgL_auxz00_2713;
BgL_auxz00_2713 = 
PROCEDURE_ENTRY(BgL_method2671z00_2247)(BgL_method2671z00_2247, 
(obj_t)(BgL_arg3602z00_1317), BEOA); 
BgL_res3708z00_2272 = 
(BgL_nodez00_bglt)(BgL_auxz00_2713); } } 
BgL_arg3599z00_1316 = BgL_res3708z00_2272; } } 
{ /* ./Ast/remove.scm 290 */
BgL_jumpzd2exzd2itz00_bglt BgL_obj2555z00_2273;BgL_nodez00_bglt BgL_val2554z00_2274;
BgL_obj2555z00_2273 = BgL_nodez00_1311; 
BgL_val2554z00_2274 = BgL_arg3599z00_1316; 
((((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_obj2555z00_2273))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2554z00_2274), BUNSPEC); } } 
BgL_auxz00_2666 = BgL_nodez00_1311; 
return 
(obj_t)(BgL_auxz00_2666);} } } 
}



/* node-remove!-set-ex-it2709 */
obj_t BGl_nodezd2removez12zd2setzd2exzd2it2709z12zzast_removez00(obj_t BgL_envz00_2333, obj_t BgL_nodez00_2334)
{ AN_OBJECT;
{ /* ./Ast/remove.scm 279 */
{ 
BgL_setzd2exzd2itz00_bglt BgL_nodez00_1299;
BgL_nodez00_1299 = 
(BgL_setzd2exzd2itz00_bglt)(BgL_nodez00_2334); 
{ /* ./Ast/remove.scm 280 */
BgL_nodez00_bglt BgL_arg3566z00_1302;
{ /* ./Ast/remove.scm 280 */
BgL_nodez00_bglt BgL_arg3569z00_1303;
BgL_arg3569z00_1303 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1299))->BgL_bodyz00); 
{ /* ./Ast/remove.scm 280 */
BgL_nodez00_bglt BgL_res3702z00_2206;
{ /* ./Ast/remove.scm 280 */
obj_t BgL_method2671z00_2181;
{ /* ./Ast/remove.scm 280 */
BgL_objectz00_bglt BgL_objz00_2182;
BgL_objz00_2182 = 
(BgL_objectz00_bglt)(BgL_arg3569z00_1303); 
{ /* ./Ast/remove.scm 280 */
long BgL_objzd2classzd2numz00_2183;
BgL_objzd2classzd2numz00_2183 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2182); 
{ /* ./Ast/remove.scm 280 */
obj_t BgL_arg2017z00_2184;
{ /* ./Ast/remove.scm 280 */
int BgL_auxz00_2724;
BgL_auxz00_2724 = 
(int)(((long)1)); 
BgL_arg2017z00_2184 = 
PROCEDURE_REF(BGl_nodezd2removez12zd2envz12zzast_removez00, BgL_auxz00_2724); } 
{ /* ./Ast/remove.scm 280 */
int BgL_offsetz00_2187;
BgL_offsetz00_2187 = 
(int)(BgL_objzd2classzd2numz00_2183); 
{ /* ./Ast/remove.scm 280 */
long BgL_offsetz00_2188;
{ /* ./Ast/remove.scm 280 */
long BgL_auxz00_2728;
BgL_auxz00_2728 = 
(long)(BgL_offsetz00_2187); 
BgL_offsetz00_2188 = 
(BgL_auxz00_2728-OBJECT_TYPE); } 
{ /* ./Ast/remove.scm 280 */
long BgL_modz00_2189;
{ /* ./Ast/remove.scm 280 */
int BgL_arg2028z00_2190;
BgL_arg2028z00_2190 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 280 */
long BgL_n2z00_2198;
BgL_n2z00_2198 = 
(long)(BgL_arg2028z00_2190); 
BgL_modz00_2189 = 
(BgL_offsetz00_2188/BgL_n2z00_2198); } } 
{ /* ./Ast/remove.scm 280 */
long BgL_restz00_2191;
{ /* ./Ast/remove.scm 280 */
int BgL_arg2024z00_2192;
BgL_arg2024z00_2192 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 280 */
long BgL_n2z00_2201;
BgL_n2z00_2201 = 
(long)(BgL_arg2024z00_2192); 
BgL_restz00_2191 = 
(BgL_offsetz00_2188%BgL_n2z00_2201); } } 
{ /* ./Ast/remove.scm 280 */

{ /* ./Ast/remove.scm 280 */
obj_t BgL_bucketz00_2193;
{ /* ./Ast/remove.scm 280 */
int BgL_kz00_2203;
BgL_kz00_2203 = 
(int)(BgL_modz00_2189); 
BgL_bucketz00_2193 = 
VECTOR_REF(BgL_arg2017z00_2184,BgL_kz00_2203); } 
{ /* ./Ast/remove.scm 280 */
int BgL_kz00_2205;
BgL_kz00_2205 = 
(int)(BgL_restz00_2191); 
BgL_method2671z00_2181 = 
VECTOR_REF(BgL_bucketz00_2193,BgL_kz00_2205); } } } } } } } } } } 
{ /* ./Ast/remove.scm 280 */
obj_t BgL_auxz00_2741;
BgL_auxz00_2741 = 
PROCEDURE_ENTRY(BgL_method2671z00_2181)(BgL_method2671z00_2181, 
(obj_t)(BgL_arg3569z00_1303), BEOA); 
BgL_res3702z00_2206 = 
(BgL_nodez00_bglt)(BgL_auxz00_2741); } } 
BgL_arg3566z00_1302 = BgL_res3702z00_2206; } } 
{ /* ./Ast/remove.scm 280 */
BgL_setzd2exzd2itz00_bglt BgL_obj2529z00_2207;BgL_nodez00_bglt BgL_val2528z00_2208;
BgL_obj2529z00_2207 = BgL_nodez00_1299; 
BgL_val2528z00_2208 = BgL_arg3566z00_1302; 
((((BgL_setzd2exzd2itz00_bglt)CREF(BgL_obj2529z00_2207))->BgL_bodyz00) = ((BgL_nodez00_bglt)BgL_val2528z00_2208), BUNSPEC); } } 
{ /* ./Ast/remove.scm 281 */
bool_t BgL_testz00_2747;
{ /* ./Ast/remove.scm 281 */
long BgL_auxz00_2748;
{ /* ./Ast/remove.scm 281 */
BgL_variablez00_bglt BgL_arg3579z00_1307;
{ /* ./Ast/remove.scm 281 */
BgL_varz00_bglt BgL_arg3582z00_1308;
BgL_arg3582z00_1308 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1299))->BgL_varz00); 
BgL_arg3579z00_1307 = 
(((BgL_varz00_bglt)CREF(BgL_arg3582z00_1308))->BgL_variablez00); } 
BgL_auxz00_2748 = 
(((BgL_variablez00_bglt)CREF(BgL_arg3579z00_1307))->BgL_occurrencez00); } 
BgL_testz00_2747 = 
(BgL_auxz00_2748<=((long)0)); } 
if(BgL_testz00_2747)
{ /* ./Ast/remove.scm 282 */
BgL_nodez00_bglt BgL_auxz00_2753;
BgL_auxz00_2753 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1299))->BgL_bodyz00); 
return 
(obj_t)(BgL_auxz00_2753);}  else 
{ /* ./Ast/remove.scm 281 */
return 
(obj_t)(BgL_nodez00_1299);} } } } 
}



/* node-remove!-let-var2707 */
obj_t BGl_nodezd2removez12zd2letzd2var2707zc0zzast_removez00(obj_t BgL_envz00_2335, obj_t BgL_nodez00_2336)
{ AN_OBJECT;
{ /* ./Ast/remove.scm 242 */
{ 
BgL_letzd2varzd2_bglt BgL_nodez00_1263;
BgL_nodez00_1263 = 
(BgL_letzd2varzd2_bglt)(BgL_nodez00_2336); 
{ /* ./Ast/remove.scm 244 */
BgL_nodez00_bglt BgL_arg3496z00_1267;
{ /* ./Ast/remove.scm 244 */
BgL_nodez00_bglt BgL_arg3499z00_1268;
BgL_arg3499z00_1268 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1263))->BgL_bodyz00); 
{ /* ./Ast/remove.scm 244 */
BgL_nodez00_bglt BgL_res3696z00_2120;
{ /* ./Ast/remove.scm 244 */
obj_t BgL_method2671z00_2095;
{ /* ./Ast/remove.scm 244 */
BgL_objectz00_bglt BgL_objz00_2096;
BgL_objz00_2096 = 
(BgL_objectz00_bglt)(BgL_arg3499z00_1268); 
{ /* ./Ast/remove.scm 244 */
long BgL_objzd2classzd2numz00_2097;
BgL_objzd2classzd2numz00_2097 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2096); 
{ /* ./Ast/remove.scm 244 */
obj_t BgL_arg2017z00_2098;
{ /* ./Ast/remove.scm 244 */
int BgL_auxz00_2761;
BgL_auxz00_2761 = 
(int)(((long)1)); 
BgL_arg2017z00_2098 = 
PROCEDURE_REF(BGl_nodezd2removez12zd2envz12zzast_removez00, BgL_auxz00_2761); } 
{ /* ./Ast/remove.scm 244 */
int BgL_offsetz00_2101;
BgL_offsetz00_2101 = 
(int)(BgL_objzd2classzd2numz00_2097); 
{ /* ./Ast/remove.scm 244 */
long BgL_offsetz00_2102;
{ /* ./Ast/remove.scm 244 */
long BgL_auxz00_2765;
BgL_auxz00_2765 = 
(long)(BgL_offsetz00_2101); 
BgL_offsetz00_2102 = 
(BgL_auxz00_2765-OBJECT_TYPE); } 
{ /* ./Ast/remove.scm 244 */
long BgL_modz00_2103;
{ /* ./Ast/remove.scm 244 */
int BgL_arg2028z00_2104;
BgL_arg2028z00_2104 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 244 */
long BgL_n2z00_2112;
BgL_n2z00_2112 = 
(long)(BgL_arg2028z00_2104); 
BgL_modz00_2103 = 
(BgL_offsetz00_2102/BgL_n2z00_2112); } } 
{ /* ./Ast/remove.scm 244 */
long BgL_restz00_2105;
{ /* ./Ast/remove.scm 244 */
int BgL_arg2024z00_2106;
BgL_arg2024z00_2106 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 244 */
long BgL_n2z00_2115;
BgL_n2z00_2115 = 
(long)(BgL_arg2024z00_2106); 
BgL_restz00_2105 = 
(BgL_offsetz00_2102%BgL_n2z00_2115); } } 
{ /* ./Ast/remove.scm 244 */

{ /* ./Ast/remove.scm 244 */
obj_t BgL_bucketz00_2107;
{ /* ./Ast/remove.scm 244 */
int BgL_kz00_2117;
BgL_kz00_2117 = 
(int)(BgL_modz00_2103); 
BgL_bucketz00_2107 = 
VECTOR_REF(BgL_arg2017z00_2098,BgL_kz00_2117); } 
{ /* ./Ast/remove.scm 244 */
int BgL_kz00_2119;
BgL_kz00_2119 = 
(int)(BgL_restz00_2105); 
BgL_method2671z00_2095 = 
VECTOR_REF(BgL_bucketz00_2107,BgL_kz00_2119); } } } } } } } } } } 
{ /* ./Ast/remove.scm 244 */
obj_t BgL_auxz00_2778;
BgL_auxz00_2778 = 
PROCEDURE_ENTRY(BgL_method2671z00_2095)(BgL_method2671z00_2095, 
(obj_t)(BgL_arg3499z00_1268), BEOA); 
BgL_res3696z00_2120 = 
(BgL_nodez00_bglt)(BgL_auxz00_2778); } } 
BgL_arg3496z00_1267 = BgL_res3696z00_2120; } } 
{ /* ./Ast/remove.scm 244 */
BgL_letzd2varzd2_bglt BgL_obj2491z00_2121;BgL_nodez00_bglt BgL_val2490z00_2122;
BgL_obj2491z00_2121 = BgL_nodez00_1263; 
BgL_val2490z00_2122 = BgL_arg3496z00_1267; 
((((BgL_letzd2varzd2_bglt)CREF(BgL_obj2491z00_2121))->BgL_bodyz00) = ((BgL_nodez00_bglt)BgL_val2490z00_2122), BUNSPEC); } } 
{ 
obj_t BgL_oldzd2bindingszd2_1269;obj_t BgL_newzd2bindingszd2_1270;
{ /* ./Ast/remove.scm 245 */
obj_t BgL_arg3503z00_1272;
BgL_arg3503z00_1272 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1263))->BgL_bindingsz00); 
BgL_oldzd2bindingszd2_1269 = BgL_arg3503z00_1272; 
BgL_newzd2bindingszd2_1270 = BNIL; 
BgL_loopz00_1271:
{ /* ./Ast/remove.scm 247 */
bool_t BgL_test3507z00_1274;
BgL_test3507z00_1274 = 
NULLP(BgL_oldzd2bindingszd2_1269); 
if(BgL_test3507z00_1274)
{ /* ./Ast/remove.scm 248 */
bool_t BgL_test3508z00_1275;
BgL_test3508z00_1275 = 
NULLP(BgL_newzd2bindingszd2_1270); 
if(BgL_test3508z00_1275)
{ /* ./Ast/remove.scm 249 */
bool_t BgL_test3509z00_1276;
BgL_test3509z00_1276 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1263))->BgL_removablezf3zf3); 
if(BgL_test3509z00_1276)
{ /* ./Ast/remove.scm 250 */
BgL_nodez00_bglt BgL_auxz00_2791;
BgL_auxz00_2791 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1263))->BgL_bodyz00); 
return 
(obj_t)(BgL_auxz00_2791);}  else 
{ /* ./Ast/remove.scm 249 */
{ /* ./Ast/remove.scm 252 */
BgL_letzd2varzd2_bglt BgL_obj2488z00_2128;obj_t BgL_val2487z00_2129;
BgL_obj2488z00_2128 = BgL_nodez00_1263; 
BgL_val2487z00_2129 = BNIL; 
((((BgL_letzd2varzd2_bglt)CREF(BgL_obj2488z00_2128))->BgL_bindingsz00) = ((obj_t)BgL_val2487z00_2129), BUNSPEC); } 
return 
(obj_t)(BgL_nodez00_1263);} }  else 
{ /* ./Ast/remove.scm 248 */
{ /* ./Ast/remove.scm 255 */
obj_t BgL_arg3514z00_1277;
BgL_arg3514z00_1277 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_newzd2bindingszd2_1270); 
{ /* ./Ast/remove.scm 255 */
BgL_letzd2varzd2_bglt BgL_obj2488z00_2130;obj_t BgL_val2487z00_2131;
BgL_obj2488z00_2130 = BgL_nodez00_1263; 
BgL_val2487z00_2131 = BgL_arg3514z00_1277; 
((((BgL_letzd2varzd2_bglt)CREF(BgL_obj2488z00_2130))->BgL_bindingsz00) = ((obj_t)BgL_val2487z00_2131), BUNSPEC); } } 
return 
(obj_t)(BgL_nodez00_1263);} }  else 
{ /* ./Ast/remove.scm 257 */
obj_t BgL_bindingz00_1278;
BgL_bindingz00_1278 = 
CAR(BgL_oldzd2bindingszd2_1269); 
{ /* ./Ast/remove.scm 257 */
obj_t BgL_varz00_1279;
BgL_varz00_1279 = 
CAR(BgL_bindingz00_1278); 
{ /* ./Ast/remove.scm 258 */
BgL_nodez00_bglt BgL_valz00_1280;
{ /* ./Ast/remove.scm 259 */
obj_t BgL_arg3553z00_1296;
BgL_arg3553z00_1296 = 
CDR(BgL_bindingz00_1278); 
{ /* ./Ast/remove.scm 259 */
BgL_nodez00_bglt BgL_res3699z00_2161;
{ /* ./Ast/remove.scm 259 */
BgL_nodez00_bglt BgL_nodez00_2135;
BgL_nodez00_2135 = 
(BgL_nodez00_bglt)(BgL_arg3553z00_1296); 
{ /* ./Ast/remove.scm 259 */
obj_t BgL_method2671z00_2136;
{ /* ./Ast/remove.scm 259 */
BgL_objectz00_bglt BgL_objz00_2137;
BgL_objz00_2137 = 
(BgL_objectz00_bglt)(BgL_nodez00_2135); 
{ /* ./Ast/remove.scm 259 */
long BgL_objzd2classzd2numz00_2138;
BgL_objzd2classzd2numz00_2138 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2137); 
{ /* ./Ast/remove.scm 259 */
obj_t BgL_arg2017z00_2139;
{ /* ./Ast/remove.scm 259 */
int BgL_auxz00_2805;
BgL_auxz00_2805 = 
(int)(((long)1)); 
BgL_arg2017z00_2139 = 
PROCEDURE_REF(BGl_nodezd2removez12zd2envz12zzast_removez00, BgL_auxz00_2805); } 
{ /* ./Ast/remove.scm 259 */
int BgL_offsetz00_2142;
BgL_offsetz00_2142 = 
(int)(BgL_objzd2classzd2numz00_2138); 
{ /* ./Ast/remove.scm 259 */
long BgL_offsetz00_2143;
{ /* ./Ast/remove.scm 259 */
long BgL_auxz00_2809;
BgL_auxz00_2809 = 
(long)(BgL_offsetz00_2142); 
BgL_offsetz00_2143 = 
(BgL_auxz00_2809-OBJECT_TYPE); } 
{ /* ./Ast/remove.scm 259 */
long BgL_modz00_2144;
{ /* ./Ast/remove.scm 259 */
int BgL_arg2028z00_2145;
BgL_arg2028z00_2145 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 259 */
long BgL_n2z00_2153;
BgL_n2z00_2153 = 
(long)(BgL_arg2028z00_2145); 
BgL_modz00_2144 = 
(BgL_offsetz00_2143/BgL_n2z00_2153); } } 
{ /* ./Ast/remove.scm 259 */
long BgL_restz00_2146;
{ /* ./Ast/remove.scm 259 */
int BgL_arg2024z00_2147;
BgL_arg2024z00_2147 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 259 */
long BgL_n2z00_2156;
BgL_n2z00_2156 = 
(long)(BgL_arg2024z00_2147); 
BgL_restz00_2146 = 
(BgL_offsetz00_2143%BgL_n2z00_2156); } } 
{ /* ./Ast/remove.scm 259 */

{ /* ./Ast/remove.scm 259 */
obj_t BgL_bucketz00_2148;
{ /* ./Ast/remove.scm 259 */
int BgL_kz00_2158;
BgL_kz00_2158 = 
(int)(BgL_modz00_2144); 
BgL_bucketz00_2148 = 
VECTOR_REF(BgL_arg2017z00_2139,BgL_kz00_2158); } 
{ /* ./Ast/remove.scm 259 */
int BgL_kz00_2160;
BgL_kz00_2160 = 
(int)(BgL_restz00_2146); 
BgL_method2671z00_2136 = 
VECTOR_REF(BgL_bucketz00_2148,BgL_kz00_2160); } } } } } } } } } } 
{ /* ./Ast/remove.scm 259 */
obj_t BgL_auxz00_2822;
BgL_auxz00_2822 = 
PROCEDURE_ENTRY(BgL_method2671z00_2136)(BgL_method2671z00_2136, 
(obj_t)(BgL_nodez00_2135), BEOA); 
BgL_res3699z00_2161 = 
(BgL_nodez00_bglt)(BgL_auxz00_2822); } } } 
BgL_valz00_1280 = BgL_res3699z00_2161; } } 
{ /* ./Ast/remove.scm 259 */

{ /* ./Ast/remove.scm 260 */
bool_t BgL_test3518z00_1281;
{ /* ./Ast/remove.scm 260 */
bool_t BgL_test3541z00_1290;
{ /* ./Ast/remove.scm 260 */
long BgL_auxz00_2827;
{ /* ./Ast/remove.scm 260 */
BgL_variablez00_bglt BgL_obj1112z00_2162;
BgL_obj1112z00_2162 = 
(BgL_variablez00_bglt)(BgL_varz00_1279); 
BgL_auxz00_2827 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1112z00_2162))->BgL_occurrencez00); } 
BgL_test3541z00_1290 = 
(BgL_auxz00_2827<=((long)0)); } 
if(BgL_test3541z00_1290)
{ /* ./Ast/remove.scm 261 */
bool_t BgL_test3542z00_1291;
BgL_test3542z00_1291 = 
BGl_sidezd2effectzf3z21zzeffect_effectz00(BgL_valz00_1280); 
if(BgL_test3542z00_1291)
{ /* ./Ast/remove.scm 261 */
BgL_test3518z00_1281 = ((bool_t)0); }  else 
{ /* ./Ast/remove.scm 262 */
bool_t BgL__ortest_2669z00_1292;
{ /* ./Ast/remove.scm 262 */
bool_t BgL_testz00_2834;
{ /* ./Ast/remove.scm 262 */
BgL_localz00_bglt BgL_obj1263z00_2165;
BgL_obj1263z00_2165 = 
(BgL_localz00_bglt)(BgL_varz00_1279); 
BgL_testz00_2834 = 
(((BgL_localz00_bglt)CREF(BgL_obj1263z00_2165))->BgL_userzf3zf3); } 
if(BgL_testz00_2834)
{ /* ./Ast/remove.scm 262 */
BgL__ortest_2669z00_1292 = ((bool_t)0); }  else 
{ /* ./Ast/remove.scm 262 */
BgL__ortest_2669z00_1292 = ((bool_t)1); } } 
if(BgL__ortest_2669z00_1292)
{ /* ./Ast/remove.scm 262 */
BgL_test3518z00_1281 = BgL__ortest_2669z00_1292; }  else 
{ /* ./Ast/remove.scm 263 */
long BgL_n1z00_2166;
BgL_n1z00_2166 = 
(long)CINT(BGl_za2bdbzd2debugza2zd2zzengine_paramz00); 
BgL_test3518z00_1281 = 
(BgL_n1z00_2166==((long)0)); } } }  else 
{ /* ./Ast/remove.scm 260 */
BgL_test3518z00_1281 = ((bool_t)0); } } 
if(BgL_test3518z00_1281)
{ /* ./Ast/remove.scm 260 */
{ /* ./Ast/remove.scm 265 */
bool_t BgL_test3519z00_1282;
{ /* ./Ast/remove.scm 265 */
obj_t BgL_obj1640z00_2168;
BgL_obj1640z00_2168 = 
(obj_t)(BgL_valz00_1280); 
BgL_test3519z00_1282 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1640z00_2168, BGl_varz00zzast_nodez00); } 
if(BgL_test3519z00_1282)
{ /* ./Ast/remove.scm 266 */
BgL_variablez00_bglt BgL_vz00_1283;
{ /* ./Ast/remove.scm 266 */
BgL_varz00_bglt BgL_obj1625z00_2169;
BgL_obj1625z00_2169 = 
(BgL_varz00_bglt)(BgL_valz00_1280); 
BgL_vz00_1283 = 
(((BgL_varz00_bglt)CREF(BgL_obj1625z00_2169))->BgL_variablez00); } 
{ /* ./Ast/remove.scm 269 */
long BgL_arg3521z00_1284;
{ /* ./Ast/remove.scm 269 */
long BgL_auxz00_2846;
BgL_auxz00_2846 = 
(((BgL_variablez00_bglt)CREF(BgL_vz00_1283))->BgL_occurrencez00); 
BgL_arg3521z00_1284 = 
(BgL_auxz00_2846-((long)1)); } 
{ /* ./Ast/remove.scm 267 */
BgL_variablez00_bglt BgL_obj1114z00_2173;long BgL_val1113z00_2174;
BgL_obj1114z00_2173 = BgL_vz00_1283; 
BgL_val1113z00_2174 = BgL_arg3521z00_1284; 
((((BgL_variablez00_bglt)CREF(BgL_obj1114z00_2173))->BgL_occurrencez00) = ((long)BgL_val1113z00_2174), BUNSPEC); } } }  else 
{ /* ./Ast/remove.scm 265 */BFALSE; } } 
{ /* ./Ast/remove.scm 270 */
obj_t BgL_arg3531z00_1287;
BgL_arg3531z00_1287 = 
CDR(BgL_oldzd2bindingszd2_1269); 
{ 
obj_t BgL_oldzd2bindingszd2_2851;
BgL_oldzd2bindingszd2_2851 = BgL_arg3531z00_1287; 
BgL_oldzd2bindingszd2_1269 = BgL_oldzd2bindingszd2_2851; 
goto BgL_loopz00_1271;} } }  else 
{ /* ./Ast/remove.scm 260 */
{ /* ./Ast/remove.scm 272 */
obj_t BgL_objz00_2177;
BgL_objz00_2177 = 
(obj_t)(BgL_valz00_1280); 
SET_CDR(BgL_bindingz00_1278, BgL_objz00_2177); } 
{ /* ./Ast/remove.scm 273 */
obj_t BgL_arg3536z00_1288;obj_t BgL_arg3537z00_1289;
BgL_arg3536z00_1288 = 
CDR(BgL_oldzd2bindingszd2_1269); 
BgL_arg3537z00_1289 = 
MAKE_PAIR(BgL_bindingz00_1278, BgL_newzd2bindingszd2_1270); 
{ 
obj_t BgL_newzd2bindingszd2_2857;obj_t BgL_oldzd2bindingszd2_2856;
BgL_oldzd2bindingszd2_2856 = BgL_arg3536z00_1288; 
BgL_newzd2bindingszd2_2857 = BgL_arg3537z00_1289; 
BgL_newzd2bindingszd2_1270 = BgL_newzd2bindingszd2_2857; 
BgL_oldzd2bindingszd2_1269 = BgL_oldzd2bindingszd2_2856; 
goto BgL_loopz00_1271;} } } } } } } } } } } } } 
}



/* node-remove!-let-fun2705 */
obj_t BGl_nodezd2removez12zd2letzd2fun2705zc0zzast_removez00(obj_t BgL_envz00_2337, obj_t BgL_nodez00_2338)
{ AN_OBJECT;
{ /* ./Ast/remove.scm 221 */
{ 
BgL_letzd2funzd2_bglt BgL_nodez00_1237;
BgL_nodez00_1237 = 
(BgL_letzd2funzd2_bglt)(BgL_nodez00_2338); 
{ /* ./Ast/remove.scm 223 */
BgL_nodez00_bglt BgL_arg3442z00_1241;
{ /* ./Ast/remove.scm 223 */
BgL_nodez00_bglt BgL_arg3446z00_1242;
BgL_arg3446z00_1242 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1237))->BgL_bodyz00); 
{ /* ./Ast/remove.scm 223 */
BgL_nodez00_bglt BgL_res3690z00_2047;
{ /* ./Ast/remove.scm 223 */
obj_t BgL_method2671z00_2022;
{ /* ./Ast/remove.scm 223 */
BgL_objectz00_bglt BgL_objz00_2023;
BgL_objz00_2023 = 
(BgL_objectz00_bglt)(BgL_arg3446z00_1242); 
{ /* ./Ast/remove.scm 223 */
long BgL_objzd2classzd2numz00_2024;
BgL_objzd2classzd2numz00_2024 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2023); 
{ /* ./Ast/remove.scm 223 */
obj_t BgL_arg2017z00_2025;
{ /* ./Ast/remove.scm 223 */
int BgL_auxz00_2862;
BgL_auxz00_2862 = 
(int)(((long)1)); 
BgL_arg2017z00_2025 = 
PROCEDURE_REF(BGl_nodezd2removez12zd2envz12zzast_removez00, BgL_auxz00_2862); } 
{ /* ./Ast/remove.scm 223 */
int BgL_offsetz00_2028;
BgL_offsetz00_2028 = 
(int)(BgL_objzd2classzd2numz00_2024); 
{ /* ./Ast/remove.scm 223 */
long BgL_offsetz00_2029;
{ /* ./Ast/remove.scm 223 */
long BgL_auxz00_2866;
BgL_auxz00_2866 = 
(long)(BgL_offsetz00_2028); 
BgL_offsetz00_2029 = 
(BgL_auxz00_2866-OBJECT_TYPE); } 
{ /* ./Ast/remove.scm 223 */
long BgL_modz00_2030;
{ /* ./Ast/remove.scm 223 */
int BgL_arg2028z00_2031;
BgL_arg2028z00_2031 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 223 */
long BgL_n2z00_2039;
BgL_n2z00_2039 = 
(long)(BgL_arg2028z00_2031); 
BgL_modz00_2030 = 
(BgL_offsetz00_2029/BgL_n2z00_2039); } } 
{ /* ./Ast/remove.scm 223 */
long BgL_restz00_2032;
{ /* ./Ast/remove.scm 223 */
int BgL_arg2024z00_2033;
BgL_arg2024z00_2033 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 223 */
long BgL_n2z00_2042;
BgL_n2z00_2042 = 
(long)(BgL_arg2024z00_2033); 
BgL_restz00_2032 = 
(BgL_offsetz00_2029%BgL_n2z00_2042); } } 
{ /* ./Ast/remove.scm 223 */

{ /* ./Ast/remove.scm 223 */
obj_t BgL_bucketz00_2034;
{ /* ./Ast/remove.scm 223 */
int BgL_kz00_2044;
BgL_kz00_2044 = 
(int)(BgL_modz00_2030); 
BgL_bucketz00_2034 = 
VECTOR_REF(BgL_arg2017z00_2025,BgL_kz00_2044); } 
{ /* ./Ast/remove.scm 223 */
int BgL_kz00_2046;
BgL_kz00_2046 = 
(int)(BgL_restz00_2032); 
BgL_method2671z00_2022 = 
VECTOR_REF(BgL_bucketz00_2034,BgL_kz00_2046); } } } } } } } } } } 
{ /* ./Ast/remove.scm 223 */
obj_t BgL_auxz00_2879;
BgL_auxz00_2879 = 
PROCEDURE_ENTRY(BgL_method2671z00_2022)(BgL_method2671z00_2022, 
(obj_t)(BgL_arg3446z00_1242), BEOA); 
BgL_res3690z00_2047 = 
(BgL_nodez00_bglt)(BgL_auxz00_2879); } } 
BgL_arg3442z00_1241 = BgL_res3690z00_2047; } } 
{ /* ./Ast/remove.scm 223 */
BgL_letzd2funzd2_bglt BgL_obj2453z00_2048;BgL_nodez00_bglt BgL_val2452z00_2049;
BgL_obj2453z00_2048 = BgL_nodez00_1237; 
BgL_val2452z00_2049 = BgL_arg3442z00_1241; 
((((BgL_letzd2funzd2_bglt)CREF(BgL_obj2453z00_2048))->BgL_bodyz00) = ((BgL_nodez00_bglt)BgL_val2452z00_2049), BUNSPEC); } } 
{ 
obj_t BgL_oldzd2localszd2_1243;obj_t BgL_newzd2localszd2_1244;
{ /* ./Ast/remove.scm 224 */
obj_t BgL_arg3450z00_1246;
BgL_arg3450z00_1246 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1237))->BgL_localsz00); 
BgL_oldzd2localszd2_1243 = BgL_arg3450z00_1246; 
BgL_newzd2localszd2_1244 = BNIL; 
BgL_loopz00_1245:
{ /* ./Ast/remove.scm 226 */
bool_t BgL_test3454z00_1248;
BgL_test3454z00_1248 = 
NULLP(BgL_oldzd2localszd2_1243); 
if(BgL_test3454z00_1248)
{ /* ./Ast/remove.scm 227 */
bool_t BgL_test3455z00_1249;
BgL_test3455z00_1249 = 
NULLP(BgL_newzd2localszd2_1244); 
if(BgL_test3455z00_1249)
{ /* ./Ast/remove.scm 228 */
BgL_nodez00_bglt BgL_auxz00_2890;
BgL_auxz00_2890 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1237))->BgL_bodyz00); 
return 
(obj_t)(BgL_auxz00_2890);}  else 
{ /* ./Ast/remove.scm 227 */
{ /* ./Ast/remove.scm 230 */
obj_t BgL_arg3458z00_1250;
BgL_arg3458z00_1250 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_newzd2localszd2_1244); 
{ /* ./Ast/remove.scm 230 */
BgL_letzd2funzd2_bglt BgL_obj2450z00_2054;obj_t BgL_val2449z00_2055;
BgL_obj2450z00_2054 = BgL_nodez00_1237; 
BgL_val2449z00_2055 = BgL_arg3458z00_1250; 
((((BgL_letzd2funzd2_bglt)CREF(BgL_obj2450z00_2054))->BgL_localsz00) = ((obj_t)BgL_val2449z00_2055), BUNSPEC); } } 
return 
(obj_t)(BgL_nodez00_1237);} }  else 
{ /* ./Ast/remove.scm 232 */
obj_t BgL_localz00_1251;
BgL_localz00_1251 = 
CAR(BgL_oldzd2localszd2_1243); 
{ /* ./Ast/remove.scm 233 */
bool_t BgL_test3462z00_1252;
{ /* ./Ast/remove.scm 233 */
long BgL_auxz00_2897;
{ /* ./Ast/remove.scm 233 */
BgL_variablez00_bglt BgL_obj1112z00_2057;
BgL_obj1112z00_2057 = 
(BgL_variablez00_bglt)(BgL_localz00_1251); 
BgL_auxz00_2897 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1112z00_2057))->BgL_occurrencez00); } 
BgL_test3462z00_1252 = 
(BgL_auxz00_2897<=((long)0)); } 
if(BgL_test3462z00_1252)
{ /* ./Ast/remove.scm 234 */
obj_t BgL_arg3465z00_1253;
BgL_arg3465z00_1253 = 
CDR(BgL_oldzd2localszd2_1243); 
{ 
obj_t BgL_oldzd2localszd2_2903;
BgL_oldzd2localszd2_2903 = BgL_arg3465z00_1253; 
BgL_oldzd2localszd2_1243 = BgL_oldzd2localszd2_2903; 
goto BgL_loopz00_1245;} }  else 
{ /* ./Ast/remove.scm 235 */
BgL_valuez00_bglt BgL_sfunz00_1254;
{ /* ./Ast/remove.scm 235 */
BgL_variablez00_bglt BgL_obj1100z00_2061;
BgL_obj1100z00_2061 = 
(BgL_variablez00_bglt)(BgL_localz00_1251); 
BgL_sfunz00_1254 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_2061))->BgL_valuez00); } 
{ /* ./Ast/remove.scm 236 */
BgL_nodez00_bglt BgL_arg3469z00_1255;
{ /* ./Ast/remove.scm 236 */
obj_t BgL_arg3472z00_1256;
{ /* ./Ast/remove.scm 236 */
BgL_sfunz00_bglt BgL_obj1370z00_2062;
BgL_obj1370z00_2062 = 
(BgL_sfunz00_bglt)(BgL_sfunz00_1254); 
BgL_arg3472z00_1256 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_2062))->BgL_bodyz00); } 
{ /* ./Ast/remove.scm 236 */
BgL_nodez00_bglt BgL_res3693z00_2089;
{ /* ./Ast/remove.scm 236 */
BgL_nodez00_bglt BgL_nodez00_2063;
BgL_nodez00_2063 = 
(BgL_nodez00_bglt)(BgL_arg3472z00_1256); 
{ /* ./Ast/remove.scm 236 */
obj_t BgL_method2671z00_2064;
{ /* ./Ast/remove.scm 236 */
BgL_objectz00_bglt BgL_objz00_2065;
BgL_objz00_2065 = 
(BgL_objectz00_bglt)(BgL_nodez00_2063); 
{ /* ./Ast/remove.scm 236 */
long BgL_objzd2classzd2numz00_2066;
BgL_objzd2classzd2numz00_2066 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2065); 
{ /* ./Ast/remove.scm 236 */
obj_t BgL_arg2017z00_2067;
{ /* ./Ast/remove.scm 236 */
int BgL_auxz00_2911;
BgL_auxz00_2911 = 
(int)(((long)1)); 
BgL_arg2017z00_2067 = 
PROCEDURE_REF(BGl_nodezd2removez12zd2envz12zzast_removez00, BgL_auxz00_2911); } 
{ /* ./Ast/remove.scm 236 */
int BgL_offsetz00_2070;
BgL_offsetz00_2070 = 
(int)(BgL_objzd2classzd2numz00_2066); 
{ /* ./Ast/remove.scm 236 */
long BgL_offsetz00_2071;
{ /* ./Ast/remove.scm 236 */
long BgL_auxz00_2915;
BgL_auxz00_2915 = 
(long)(BgL_offsetz00_2070); 
BgL_offsetz00_2071 = 
(BgL_auxz00_2915-OBJECT_TYPE); } 
{ /* ./Ast/remove.scm 236 */
long BgL_modz00_2072;
{ /* ./Ast/remove.scm 236 */
int BgL_arg2028z00_2073;
BgL_arg2028z00_2073 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 236 */
long BgL_n2z00_2081;
BgL_n2z00_2081 = 
(long)(BgL_arg2028z00_2073); 
BgL_modz00_2072 = 
(BgL_offsetz00_2071/BgL_n2z00_2081); } } 
{ /* ./Ast/remove.scm 236 */
long BgL_restz00_2074;
{ /* ./Ast/remove.scm 236 */
int BgL_arg2024z00_2075;
BgL_arg2024z00_2075 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 236 */
long BgL_n2z00_2084;
BgL_n2z00_2084 = 
(long)(BgL_arg2024z00_2075); 
BgL_restz00_2074 = 
(BgL_offsetz00_2071%BgL_n2z00_2084); } } 
{ /* ./Ast/remove.scm 236 */

{ /* ./Ast/remove.scm 236 */
obj_t BgL_bucketz00_2076;
{ /* ./Ast/remove.scm 236 */
int BgL_kz00_2086;
BgL_kz00_2086 = 
(int)(BgL_modz00_2072); 
BgL_bucketz00_2076 = 
VECTOR_REF(BgL_arg2017z00_2067,BgL_kz00_2086); } 
{ /* ./Ast/remove.scm 236 */
int BgL_kz00_2088;
BgL_kz00_2088 = 
(int)(BgL_restz00_2074); 
BgL_method2671z00_2064 = 
VECTOR_REF(BgL_bucketz00_2076,BgL_kz00_2088); } } } } } } } } } } 
{ /* ./Ast/remove.scm 236 */
obj_t BgL_auxz00_2928;
BgL_auxz00_2928 = 
PROCEDURE_ENTRY(BgL_method2671z00_2064)(BgL_method2671z00_2064, 
(obj_t)(BgL_nodez00_2063), BEOA); 
BgL_res3693z00_2089 = 
(BgL_nodez00_bglt)(BgL_auxz00_2928); } } } 
BgL_arg3469z00_1255 = BgL_res3693z00_2089; } } 
{ /* ./Ast/remove.scm 236 */
BgL_sfunz00_bglt BgL_obj1373z00_2090;obj_t BgL_val1371z00_2091;
BgL_obj1373z00_2090 = 
(BgL_sfunz00_bglt)(BgL_sfunz00_1254); 
BgL_val1371z00_2091 = 
(obj_t)(BgL_arg3469z00_1255); 
((((BgL_sfunz00_bglt)CREF(BgL_obj1373z00_2090))->BgL_bodyz00) = ((obj_t)BgL_val1371z00_2091), BUNSPEC); } } 
{ /* ./Ast/remove.scm 237 */
obj_t BgL_arg3476z00_1257;obj_t BgL_arg3477z00_1258;
BgL_arg3476z00_1257 = 
CDR(BgL_oldzd2localszd2_1243); 
BgL_arg3477z00_1258 = 
MAKE_PAIR(BgL_localz00_1251, BgL_newzd2localszd2_1244); 
{ 
obj_t BgL_newzd2localszd2_2939;obj_t BgL_oldzd2localszd2_2938;
BgL_oldzd2localszd2_2938 = BgL_arg3476z00_1257; 
BgL_newzd2localszd2_2939 = BgL_arg3477z00_1258; 
BgL_newzd2localszd2_1244 = BgL_newzd2localszd2_2939; 
BgL_oldzd2localszd2_1243 = BgL_oldzd2localszd2_2938; 
goto BgL_loopz00_1245;} } } } } } } } } } 
}



/* node-remove!-box-set!2703 */
obj_t BGl_nodezd2removez12zd2boxzd2setz122703zd2zzast_removez00(obj_t BgL_envz00_2339, obj_t BgL_nodez00_2340)
{ AN_OBJECT;
{ /* ./Ast/remove.scm 213 */
{ 
BgL_boxzd2setz12zc0_bglt BgL_nodez00_1228;
{ /* ./Ast/remove.scm 214 */
BgL_boxzd2setz12zc0_bglt BgL_auxz00_2941;
BgL_nodez00_1228 = 
(BgL_boxzd2setz12zc0_bglt)(BgL_nodez00_2340); 
{ /* ./Ast/remove.scm 214 */
BgL_nodez00_bglt BgL_arg3422z00_1231;
{ /* ./Ast/remove.scm 214 */
BgL_varz00_bglt BgL_arg3425z00_1232;
BgL_arg3425z00_1232 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1228))->BgL_varz00); 
{ /* ./Ast/remove.scm 214 */
BgL_nodez00_bglt BgL_res3684z00_1987;
{ /* ./Ast/remove.scm 214 */
BgL_nodez00_bglt BgL_nodez00_1961;
BgL_nodez00_1961 = 
(BgL_nodez00_bglt)(BgL_arg3425z00_1232); 
{ /* ./Ast/remove.scm 214 */
obj_t BgL_method2671z00_1962;
{ /* ./Ast/remove.scm 214 */
BgL_objectz00_bglt BgL_objz00_1963;
BgL_objz00_1963 = 
(BgL_objectz00_bglt)(BgL_nodez00_1961); 
{ /* ./Ast/remove.scm 214 */
long BgL_objzd2classzd2numz00_1964;
BgL_objzd2classzd2numz00_1964 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1963); 
{ /* ./Ast/remove.scm 214 */
obj_t BgL_arg2017z00_1965;
{ /* ./Ast/remove.scm 214 */
int BgL_auxz00_2946;
BgL_auxz00_2946 = 
(int)(((long)1)); 
BgL_arg2017z00_1965 = 
PROCEDURE_REF(BGl_nodezd2removez12zd2envz12zzast_removez00, BgL_auxz00_2946); } 
{ /* ./Ast/remove.scm 214 */
int BgL_offsetz00_1968;
BgL_offsetz00_1968 = 
(int)(BgL_objzd2classzd2numz00_1964); 
{ /* ./Ast/remove.scm 214 */
long BgL_offsetz00_1969;
{ /* ./Ast/remove.scm 214 */
long BgL_auxz00_2950;
BgL_auxz00_2950 = 
(long)(BgL_offsetz00_1968); 
BgL_offsetz00_1969 = 
(BgL_auxz00_2950-OBJECT_TYPE); } 
{ /* ./Ast/remove.scm 214 */
long BgL_modz00_1970;
{ /* ./Ast/remove.scm 214 */
int BgL_arg2028z00_1971;
BgL_arg2028z00_1971 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 214 */
long BgL_n2z00_1979;
BgL_n2z00_1979 = 
(long)(BgL_arg2028z00_1971); 
BgL_modz00_1970 = 
(BgL_offsetz00_1969/BgL_n2z00_1979); } } 
{ /* ./Ast/remove.scm 214 */
long BgL_restz00_1972;
{ /* ./Ast/remove.scm 214 */
int BgL_arg2024z00_1973;
BgL_arg2024z00_1973 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 214 */
long BgL_n2z00_1982;
BgL_n2z00_1982 = 
(long)(BgL_arg2024z00_1973); 
BgL_restz00_1972 = 
(BgL_offsetz00_1969%BgL_n2z00_1982); } } 
{ /* ./Ast/remove.scm 214 */

{ /* ./Ast/remove.scm 214 */
obj_t BgL_bucketz00_1974;
{ /* ./Ast/remove.scm 214 */
int BgL_kz00_1984;
BgL_kz00_1984 = 
(int)(BgL_modz00_1970); 
BgL_bucketz00_1974 = 
VECTOR_REF(BgL_arg2017z00_1965,BgL_kz00_1984); } 
{ /* ./Ast/remove.scm 214 */
int BgL_kz00_1986;
BgL_kz00_1986 = 
(int)(BgL_restz00_1972); 
BgL_method2671z00_1962 = 
VECTOR_REF(BgL_bucketz00_1974,BgL_kz00_1986); } } } } } } } } } } 
{ /* ./Ast/remove.scm 214 */
obj_t BgL_auxz00_2963;
BgL_auxz00_2963 = 
PROCEDURE_ENTRY(BgL_method2671z00_1962)(BgL_method2671z00_1962, 
(obj_t)(BgL_nodez00_1961), BEOA); 
BgL_res3684z00_1987 = 
(BgL_nodez00_bglt)(BgL_auxz00_2963); } } } 
BgL_arg3422z00_1231 = BgL_res3684z00_1987; } } 
{ /* ./Ast/remove.scm 214 */
BgL_boxzd2setz12zc0_bglt BgL_obj2642z00_1988;BgL_varz00_bglt BgL_val2641z00_1989;
BgL_obj2642z00_1988 = BgL_nodez00_1228; 
BgL_val2641z00_1989 = 
(BgL_varz00_bglt)(BgL_arg3422z00_1231); 
((((BgL_boxzd2setz12zc0_bglt)CREF(BgL_obj2642z00_1988))->BgL_varz00) = ((BgL_varz00_bglt)BgL_val2641z00_1989), BUNSPEC); } } 
{ /* ./Ast/remove.scm 215 */
BgL_nodez00_bglt BgL_arg3429z00_1233;
{ /* ./Ast/remove.scm 215 */
BgL_nodez00_bglt BgL_arg3432z00_1234;
BgL_arg3432z00_1234 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1228))->BgL_valuez00); 
{ /* ./Ast/remove.scm 215 */
BgL_nodez00_bglt BgL_res3687z00_2017;
{ /* ./Ast/remove.scm 215 */
obj_t BgL_method2671z00_1992;
{ /* ./Ast/remove.scm 215 */
BgL_objectz00_bglt BgL_objz00_1993;
BgL_objz00_1993 = 
(BgL_objectz00_bglt)(BgL_arg3432z00_1234); 
{ /* ./Ast/remove.scm 215 */
long BgL_objzd2classzd2numz00_1994;
BgL_objzd2classzd2numz00_1994 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1993); 
{ /* ./Ast/remove.scm 215 */
obj_t BgL_arg2017z00_1995;
{ /* ./Ast/remove.scm 215 */
int BgL_auxz00_2973;
BgL_auxz00_2973 = 
(int)(((long)1)); 
BgL_arg2017z00_1995 = 
PROCEDURE_REF(BGl_nodezd2removez12zd2envz12zzast_removez00, BgL_auxz00_2973); } 
{ /* ./Ast/remove.scm 215 */
int BgL_offsetz00_1998;
BgL_offsetz00_1998 = 
(int)(BgL_objzd2classzd2numz00_1994); 
{ /* ./Ast/remove.scm 215 */
long BgL_offsetz00_1999;
{ /* ./Ast/remove.scm 215 */
long BgL_auxz00_2977;
BgL_auxz00_2977 = 
(long)(BgL_offsetz00_1998); 
BgL_offsetz00_1999 = 
(BgL_auxz00_2977-OBJECT_TYPE); } 
{ /* ./Ast/remove.scm 215 */
long BgL_modz00_2000;
{ /* ./Ast/remove.scm 215 */
int BgL_arg2028z00_2001;
BgL_arg2028z00_2001 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 215 */
long BgL_n2z00_2009;
BgL_n2z00_2009 = 
(long)(BgL_arg2028z00_2001); 
BgL_modz00_2000 = 
(BgL_offsetz00_1999/BgL_n2z00_2009); } } 
{ /* ./Ast/remove.scm 215 */
long BgL_restz00_2002;
{ /* ./Ast/remove.scm 215 */
int BgL_arg2024z00_2003;
BgL_arg2024z00_2003 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 215 */
long BgL_n2z00_2012;
BgL_n2z00_2012 = 
(long)(BgL_arg2024z00_2003); 
BgL_restz00_2002 = 
(BgL_offsetz00_1999%BgL_n2z00_2012); } } 
{ /* ./Ast/remove.scm 215 */

{ /* ./Ast/remove.scm 215 */
obj_t BgL_bucketz00_2004;
{ /* ./Ast/remove.scm 215 */
int BgL_kz00_2014;
BgL_kz00_2014 = 
(int)(BgL_modz00_2000); 
BgL_bucketz00_2004 = 
VECTOR_REF(BgL_arg2017z00_1995,BgL_kz00_2014); } 
{ /* ./Ast/remove.scm 215 */
int BgL_kz00_2016;
BgL_kz00_2016 = 
(int)(BgL_restz00_2002); 
BgL_method2671z00_1992 = 
VECTOR_REF(BgL_bucketz00_2004,BgL_kz00_2016); } } } } } } } } } } 
{ /* ./Ast/remove.scm 215 */
obj_t BgL_auxz00_2990;
BgL_auxz00_2990 = 
PROCEDURE_ENTRY(BgL_method2671z00_1992)(BgL_method2671z00_1992, 
(obj_t)(BgL_arg3432z00_1234), BEOA); 
BgL_res3687z00_2017 = 
(BgL_nodez00_bglt)(BgL_auxz00_2990); } } 
BgL_arg3429z00_1233 = BgL_res3687z00_2017; } } 
{ /* ./Ast/remove.scm 215 */
BgL_boxzd2setz12zc0_bglt BgL_obj2645z00_2018;BgL_nodez00_bglt BgL_val2644z00_2019;
BgL_obj2645z00_2018 = BgL_nodez00_1228; 
BgL_val2644z00_2019 = BgL_arg3429z00_1233; 
((((BgL_boxzd2setz12zc0_bglt)CREF(BgL_obj2645z00_2018))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2644z00_2019), BUNSPEC); } } 
BgL_auxz00_2941 = BgL_nodez00_1228; 
return 
(obj_t)(BgL_auxz00_2941);} } } 
}



/* node-remove!-box-ref2701 */
obj_t BGl_nodezd2removez12zd2boxzd2ref2701zc0zzast_removez00(obj_t BgL_envz00_2341, obj_t BgL_nodez00_2342)
{ AN_OBJECT;
{ /* ./Ast/remove.scm 206 */
{ 
BgL_boxzd2refzd2_bglt BgL_nodez00_1221;
{ /* ./Ast/remove.scm 207 */
BgL_boxzd2refzd2_bglt BgL_auxz00_2998;
BgL_nodez00_1221 = 
(BgL_boxzd2refzd2_bglt)(BgL_nodez00_2342); 
{ /* ./Ast/remove.scm 207 */
BgL_nodez00_bglt BgL_arg3408z00_1224;
{ /* ./Ast/remove.scm 207 */
BgL_varz00_bglt BgL_arg3411z00_1225;
BgL_arg3411z00_1225 = 
(((BgL_boxzd2refzd2_bglt)CREF(BgL_nodez00_1221))->BgL_varz00); 
{ /* ./Ast/remove.scm 207 */
BgL_nodez00_bglt BgL_res3681z00_1957;
{ /* ./Ast/remove.scm 207 */
BgL_nodez00_bglt BgL_nodez00_1931;
BgL_nodez00_1931 = 
(BgL_nodez00_bglt)(BgL_arg3411z00_1225); 
{ /* ./Ast/remove.scm 207 */
obj_t BgL_method2671z00_1932;
{ /* ./Ast/remove.scm 207 */
BgL_objectz00_bglt BgL_objz00_1933;
BgL_objz00_1933 = 
(BgL_objectz00_bglt)(BgL_nodez00_1931); 
{ /* ./Ast/remove.scm 207 */
long BgL_objzd2classzd2numz00_1934;
BgL_objzd2classzd2numz00_1934 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1933); 
{ /* ./Ast/remove.scm 207 */
obj_t BgL_arg2017z00_1935;
{ /* ./Ast/remove.scm 207 */
int BgL_auxz00_3003;
BgL_auxz00_3003 = 
(int)(((long)1)); 
BgL_arg2017z00_1935 = 
PROCEDURE_REF(BGl_nodezd2removez12zd2envz12zzast_removez00, BgL_auxz00_3003); } 
{ /* ./Ast/remove.scm 207 */
int BgL_offsetz00_1938;
BgL_offsetz00_1938 = 
(int)(BgL_objzd2classzd2numz00_1934); 
{ /* ./Ast/remove.scm 207 */
long BgL_offsetz00_1939;
{ /* ./Ast/remove.scm 207 */
long BgL_auxz00_3007;
BgL_auxz00_3007 = 
(long)(BgL_offsetz00_1938); 
BgL_offsetz00_1939 = 
(BgL_auxz00_3007-OBJECT_TYPE); } 
{ /* ./Ast/remove.scm 207 */
long BgL_modz00_1940;
{ /* ./Ast/remove.scm 207 */
int BgL_arg2028z00_1941;
BgL_arg2028z00_1941 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 207 */
long BgL_n2z00_1949;
BgL_n2z00_1949 = 
(long)(BgL_arg2028z00_1941); 
BgL_modz00_1940 = 
(BgL_offsetz00_1939/BgL_n2z00_1949); } } 
{ /* ./Ast/remove.scm 207 */
long BgL_restz00_1942;
{ /* ./Ast/remove.scm 207 */
int BgL_arg2024z00_1943;
BgL_arg2024z00_1943 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 207 */
long BgL_n2z00_1952;
BgL_n2z00_1952 = 
(long)(BgL_arg2024z00_1943); 
BgL_restz00_1942 = 
(BgL_offsetz00_1939%BgL_n2z00_1952); } } 
{ /* ./Ast/remove.scm 207 */

{ /* ./Ast/remove.scm 207 */
obj_t BgL_bucketz00_1944;
{ /* ./Ast/remove.scm 207 */
int BgL_kz00_1954;
BgL_kz00_1954 = 
(int)(BgL_modz00_1940); 
BgL_bucketz00_1944 = 
VECTOR_REF(BgL_arg2017z00_1935,BgL_kz00_1954); } 
{ /* ./Ast/remove.scm 207 */
int BgL_kz00_1956;
BgL_kz00_1956 = 
(int)(BgL_restz00_1942); 
BgL_method2671z00_1932 = 
VECTOR_REF(BgL_bucketz00_1944,BgL_kz00_1956); } } } } } } } } } } 
{ /* ./Ast/remove.scm 207 */
obj_t BgL_auxz00_3020;
BgL_auxz00_3020 = 
PROCEDURE_ENTRY(BgL_method2671z00_1932)(BgL_method2671z00_1932, 
(obj_t)(BgL_nodez00_1931), BEOA); 
BgL_res3681z00_1957 = 
(BgL_nodez00_bglt)(BgL_auxz00_3020); } } } 
BgL_arg3408z00_1224 = BgL_res3681z00_1957; } } 
{ /* ./Ast/remove.scm 207 */
BgL_boxzd2refzd2_bglt BgL_obj2616z00_1958;BgL_varz00_bglt BgL_val2615z00_1959;
BgL_obj2616z00_1958 = BgL_nodez00_1221; 
BgL_val2615z00_1959 = 
(BgL_varz00_bglt)(BgL_arg3408z00_1224); 
((((BgL_boxzd2refzd2_bglt)CREF(BgL_obj2616z00_1958))->BgL_varz00) = ((BgL_varz00_bglt)BgL_val2615z00_1959), BUNSPEC); } } 
BgL_auxz00_2998 = BgL_nodez00_1221; 
return 
(obj_t)(BgL_auxz00_2998);} } } 
}



/* node-remove!-make-box2699 */
obj_t BGl_nodezd2removez12zd2makezd2box2699zc0zzast_removez00(obj_t BgL_envz00_2343, obj_t BgL_nodez00_2344)
{ AN_OBJECT;
{ /* ./Ast/remove.scm 199 */
{ 
BgL_makezd2boxzd2_bglt BgL_nodez00_1214;
{ /* ./Ast/remove.scm 200 */
BgL_makezd2boxzd2_bglt BgL_auxz00_3029;
BgL_nodez00_1214 = 
(BgL_makezd2boxzd2_bglt)(BgL_nodez00_2344); 
{ /* ./Ast/remove.scm 200 */
BgL_nodez00_bglt BgL_arg3395z00_1217;
{ /* ./Ast/remove.scm 200 */
BgL_nodez00_bglt BgL_arg3398z00_1218;
BgL_arg3398z00_1218 = 
(((BgL_makezd2boxzd2_bglt)CREF(BgL_nodez00_1214))->BgL_valuez00); 
{ /* ./Ast/remove.scm 200 */
BgL_nodez00_bglt BgL_res3678z00_1927;
{ /* ./Ast/remove.scm 200 */
obj_t BgL_method2671z00_1902;
{ /* ./Ast/remove.scm 200 */
BgL_objectz00_bglt BgL_objz00_1903;
BgL_objz00_1903 = 
(BgL_objectz00_bglt)(BgL_arg3398z00_1218); 
{ /* ./Ast/remove.scm 200 */
long BgL_objzd2classzd2numz00_1904;
BgL_objzd2classzd2numz00_1904 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1903); 
{ /* ./Ast/remove.scm 200 */
obj_t BgL_arg2017z00_1905;
{ /* ./Ast/remove.scm 200 */
int BgL_auxz00_3033;
BgL_auxz00_3033 = 
(int)(((long)1)); 
BgL_arg2017z00_1905 = 
PROCEDURE_REF(BGl_nodezd2removez12zd2envz12zzast_removez00, BgL_auxz00_3033); } 
{ /* ./Ast/remove.scm 200 */
int BgL_offsetz00_1908;
BgL_offsetz00_1908 = 
(int)(BgL_objzd2classzd2numz00_1904); 
{ /* ./Ast/remove.scm 200 */
long BgL_offsetz00_1909;
{ /* ./Ast/remove.scm 200 */
long BgL_auxz00_3037;
BgL_auxz00_3037 = 
(long)(BgL_offsetz00_1908); 
BgL_offsetz00_1909 = 
(BgL_auxz00_3037-OBJECT_TYPE); } 
{ /* ./Ast/remove.scm 200 */
long BgL_modz00_1910;
{ /* ./Ast/remove.scm 200 */
int BgL_arg2028z00_1911;
BgL_arg2028z00_1911 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 200 */
long BgL_n2z00_1919;
BgL_n2z00_1919 = 
(long)(BgL_arg2028z00_1911); 
BgL_modz00_1910 = 
(BgL_offsetz00_1909/BgL_n2z00_1919); } } 
{ /* ./Ast/remove.scm 200 */
long BgL_restz00_1912;
{ /* ./Ast/remove.scm 200 */
int BgL_arg2024z00_1913;
BgL_arg2024z00_1913 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 200 */
long BgL_n2z00_1922;
BgL_n2z00_1922 = 
(long)(BgL_arg2024z00_1913); 
BgL_restz00_1912 = 
(BgL_offsetz00_1909%BgL_n2z00_1922); } } 
{ /* ./Ast/remove.scm 200 */

{ /* ./Ast/remove.scm 200 */
obj_t BgL_bucketz00_1914;
{ /* ./Ast/remove.scm 200 */
int BgL_kz00_1924;
BgL_kz00_1924 = 
(int)(BgL_modz00_1910); 
BgL_bucketz00_1914 = 
VECTOR_REF(BgL_arg2017z00_1905,BgL_kz00_1924); } 
{ /* ./Ast/remove.scm 200 */
int BgL_kz00_1926;
BgL_kz00_1926 = 
(int)(BgL_restz00_1912); 
BgL_method2671z00_1902 = 
VECTOR_REF(BgL_bucketz00_1914,BgL_kz00_1926); } } } } } } } } } } 
{ /* ./Ast/remove.scm 200 */
obj_t BgL_auxz00_3050;
BgL_auxz00_3050 = 
PROCEDURE_ENTRY(BgL_method2671z00_1902)(BgL_method2671z00_1902, 
(obj_t)(BgL_arg3398z00_1218), BEOA); 
BgL_res3678z00_1927 = 
(BgL_nodez00_bglt)(BgL_auxz00_3050); } } 
BgL_arg3395z00_1217 = BgL_res3678z00_1927; } } 
{ /* ./Ast/remove.scm 200 */
BgL_makezd2boxzd2_bglt BgL_obj2584z00_1928;BgL_nodez00_bglt BgL_val2583z00_1929;
BgL_obj2584z00_1928 = BgL_nodez00_1214; 
BgL_val2583z00_1929 = BgL_arg3395z00_1217; 
((((BgL_makezd2boxzd2_bglt)CREF(BgL_obj2584z00_1928))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2583z00_1929), BUNSPEC); } } 
BgL_auxz00_3029 = BgL_nodez00_1214; 
return 
(obj_t)(BgL_auxz00_3029);} } } 
}



/* node-remove!-select2697 */
obj_t BGl_nodezd2removez12zd2select2697z12zzast_removez00(obj_t BgL_envz00_2345, obj_t BgL_nodez00_2346)
{ AN_OBJECT;
{ /* ./Ast/remove.scm 189 */
{ 
BgL_selectz00_bglt BgL_nodez00_1199;
{ /* ./Ast/remove.scm 190 */
BgL_selectz00_bglt BgL_auxz00_3058;
BgL_nodez00_1199 = 
(BgL_selectz00_bglt)(BgL_nodez00_2346); 
{ /* ./Ast/remove.scm 190 */
BgL_nodez00_bglt BgL_arg3364z00_1202;
{ /* ./Ast/remove.scm 190 */
BgL_nodez00_bglt BgL_arg3367z00_1203;
BgL_arg3367z00_1203 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1199))->BgL_testz00); 
{ /* ./Ast/remove.scm 190 */
BgL_nodez00_bglt BgL_res3672z00_1863;
{ /* ./Ast/remove.scm 190 */
obj_t BgL_method2671z00_1838;
{ /* ./Ast/remove.scm 190 */
BgL_objectz00_bglt BgL_objz00_1839;
BgL_objz00_1839 = 
(BgL_objectz00_bglt)(BgL_arg3367z00_1203); 
{ /* ./Ast/remove.scm 190 */
long BgL_objzd2classzd2numz00_1840;
BgL_objzd2classzd2numz00_1840 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1839); 
{ /* ./Ast/remove.scm 190 */
obj_t BgL_arg2017z00_1841;
{ /* ./Ast/remove.scm 190 */
int BgL_auxz00_3062;
BgL_auxz00_3062 = 
(int)(((long)1)); 
BgL_arg2017z00_1841 = 
PROCEDURE_REF(BGl_nodezd2removez12zd2envz12zzast_removez00, BgL_auxz00_3062); } 
{ /* ./Ast/remove.scm 190 */
int BgL_offsetz00_1844;
BgL_offsetz00_1844 = 
(int)(BgL_objzd2classzd2numz00_1840); 
{ /* ./Ast/remove.scm 190 */
long BgL_offsetz00_1845;
{ /* ./Ast/remove.scm 190 */
long BgL_auxz00_3066;
BgL_auxz00_3066 = 
(long)(BgL_offsetz00_1844); 
BgL_offsetz00_1845 = 
(BgL_auxz00_3066-OBJECT_TYPE); } 
{ /* ./Ast/remove.scm 190 */
long BgL_modz00_1846;
{ /* ./Ast/remove.scm 190 */
int BgL_arg2028z00_1847;
BgL_arg2028z00_1847 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 190 */
long BgL_n2z00_1855;
BgL_n2z00_1855 = 
(long)(BgL_arg2028z00_1847); 
BgL_modz00_1846 = 
(BgL_offsetz00_1845/BgL_n2z00_1855); } } 
{ /* ./Ast/remove.scm 190 */
long BgL_restz00_1848;
{ /* ./Ast/remove.scm 190 */
int BgL_arg2024z00_1849;
BgL_arg2024z00_1849 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 190 */
long BgL_n2z00_1858;
BgL_n2z00_1858 = 
(long)(BgL_arg2024z00_1849); 
BgL_restz00_1848 = 
(BgL_offsetz00_1845%BgL_n2z00_1858); } } 
{ /* ./Ast/remove.scm 190 */

{ /* ./Ast/remove.scm 190 */
obj_t BgL_bucketz00_1850;
{ /* ./Ast/remove.scm 190 */
int BgL_kz00_1860;
BgL_kz00_1860 = 
(int)(BgL_modz00_1846); 
BgL_bucketz00_1850 = 
VECTOR_REF(BgL_arg2017z00_1841,BgL_kz00_1860); } 
{ /* ./Ast/remove.scm 190 */
int BgL_kz00_1862;
BgL_kz00_1862 = 
(int)(BgL_restz00_1848); 
BgL_method2671z00_1838 = 
VECTOR_REF(BgL_bucketz00_1850,BgL_kz00_1862); } } } } } } } } } } 
{ /* ./Ast/remove.scm 190 */
obj_t BgL_auxz00_3079;
BgL_auxz00_3079 = 
PROCEDURE_ENTRY(BgL_method2671z00_1838)(BgL_method2671z00_1838, 
(obj_t)(BgL_arg3367z00_1203), BEOA); 
BgL_res3672z00_1863 = 
(BgL_nodez00_bglt)(BgL_auxz00_3079); } } 
BgL_arg3364z00_1202 = BgL_res3672z00_1863; } } 
{ /* ./Ast/remove.scm 190 */
BgL_selectz00_bglt BgL_obj2410z00_1864;BgL_nodez00_bglt BgL_val2409z00_1865;
BgL_obj2410z00_1864 = BgL_nodez00_1199; 
BgL_val2409z00_1865 = BgL_arg3364z00_1202; 
((((BgL_selectz00_bglt)CREF(BgL_obj2410z00_1864))->BgL_testz00) = ((BgL_nodez00_bglt)BgL_val2409z00_1865), BUNSPEC); } } 
{ 
obj_t BgL_l2663z00_1204;
{ /* ./Ast/remove.scm 193 */
obj_t BgL_arg3371z00_1206;
BgL_arg3371z00_1206 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1199))->BgL_clausesz00); 
BgL_l2663z00_1204 = BgL_arg3371z00_1206; 
BgL_forzd2each2664zd2_1205:
{ /* ./Ast/remove.scm 191 */
bool_t BgL_test3374z00_1207;
BgL_test3374z00_1207 = 
PAIRP(BgL_l2663z00_1204); 
if(BgL_test3374z00_1207)
{ /* ./Ast/remove.scm 191 */
{ /* ./Ast/remove.scm 192 */
obj_t BgL_clausez00_1208;
BgL_clausez00_1208 = 
CAR(BgL_l2663z00_1204); 
{ /* ./Ast/remove.scm 192 */
BgL_nodez00_bglt BgL_arg3376z00_1209;
{ /* ./Ast/remove.scm 192 */
obj_t BgL_arg3379z00_1210;
BgL_arg3379z00_1210 = 
CDR(BgL_clausez00_1208); 
{ /* ./Ast/remove.scm 192 */
BgL_nodez00_bglt BgL_res3675z00_1896;
{ /* ./Ast/remove.scm 192 */
BgL_nodez00_bglt BgL_nodez00_1870;
BgL_nodez00_1870 = 
(BgL_nodez00_bglt)(BgL_arg3379z00_1210); 
{ /* ./Ast/remove.scm 192 */
obj_t BgL_method2671z00_1871;
{ /* ./Ast/remove.scm 192 */
BgL_objectz00_bglt BgL_objz00_1872;
BgL_objz00_1872 = 
(BgL_objectz00_bglt)(BgL_nodez00_1870); 
{ /* ./Ast/remove.scm 192 */
long BgL_objzd2classzd2numz00_1873;
BgL_objzd2classzd2numz00_1873 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1872); 
{ /* ./Ast/remove.scm 192 */
obj_t BgL_arg2017z00_1874;
{ /* ./Ast/remove.scm 192 */
int BgL_auxz00_3093;
BgL_auxz00_3093 = 
(int)(((long)1)); 
BgL_arg2017z00_1874 = 
PROCEDURE_REF(BGl_nodezd2removez12zd2envz12zzast_removez00, BgL_auxz00_3093); } 
{ /* ./Ast/remove.scm 192 */
int BgL_offsetz00_1877;
BgL_offsetz00_1877 = 
(int)(BgL_objzd2classzd2numz00_1873); 
{ /* ./Ast/remove.scm 192 */
long BgL_offsetz00_1878;
{ /* ./Ast/remove.scm 192 */
long BgL_auxz00_3097;
BgL_auxz00_3097 = 
(long)(BgL_offsetz00_1877); 
BgL_offsetz00_1878 = 
(BgL_auxz00_3097-OBJECT_TYPE); } 
{ /* ./Ast/remove.scm 192 */
long BgL_modz00_1879;
{ /* ./Ast/remove.scm 192 */
int BgL_arg2028z00_1880;
BgL_arg2028z00_1880 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 192 */
long BgL_n2z00_1888;
BgL_n2z00_1888 = 
(long)(BgL_arg2028z00_1880); 
BgL_modz00_1879 = 
(BgL_offsetz00_1878/BgL_n2z00_1888); } } 
{ /* ./Ast/remove.scm 192 */
long BgL_restz00_1881;
{ /* ./Ast/remove.scm 192 */
int BgL_arg2024z00_1882;
BgL_arg2024z00_1882 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 192 */
long BgL_n2z00_1891;
BgL_n2z00_1891 = 
(long)(BgL_arg2024z00_1882); 
BgL_restz00_1881 = 
(BgL_offsetz00_1878%BgL_n2z00_1891); } } 
{ /* ./Ast/remove.scm 192 */

{ /* ./Ast/remove.scm 192 */
obj_t BgL_bucketz00_1883;
{ /* ./Ast/remove.scm 192 */
int BgL_kz00_1893;
BgL_kz00_1893 = 
(int)(BgL_modz00_1879); 
BgL_bucketz00_1883 = 
VECTOR_REF(BgL_arg2017z00_1874,BgL_kz00_1893); } 
{ /* ./Ast/remove.scm 192 */
int BgL_kz00_1895;
BgL_kz00_1895 = 
(int)(BgL_restz00_1881); 
BgL_method2671z00_1871 = 
VECTOR_REF(BgL_bucketz00_1883,BgL_kz00_1895); } } } } } } } } } } 
{ /* ./Ast/remove.scm 192 */
obj_t BgL_auxz00_3110;
BgL_auxz00_3110 = 
PROCEDURE_ENTRY(BgL_method2671z00_1871)(BgL_method2671z00_1871, 
(obj_t)(BgL_nodez00_1870), BEOA); 
BgL_res3675z00_1896 = 
(BgL_nodez00_bglt)(BgL_auxz00_3110); } } } 
BgL_arg3376z00_1209 = BgL_res3675z00_1896; } } 
{ /* ./Ast/remove.scm 192 */
obj_t BgL_objz00_1898;
BgL_objz00_1898 = 
(obj_t)(BgL_arg3376z00_1209); 
SET_CDR(BgL_clausez00_1208, BgL_objz00_1898); } } } 
{ /* ./Ast/remove.scm 191 */
obj_t BgL_arg3384z00_1211;
BgL_arg3384z00_1211 = 
CDR(BgL_l2663z00_1204); 
{ 
obj_t BgL_l2663z00_3118;
BgL_l2663z00_3118 = BgL_arg3384z00_1211; 
BgL_l2663z00_1204 = BgL_l2663z00_3118; 
goto BgL_forzd2each2664zd2_1205;} } }  else 
{ /* ./Ast/remove.scm 191 */((bool_t)1); } } } } 
BgL_auxz00_3058 = BgL_nodez00_1199; 
return 
(obj_t)(BgL_auxz00_3058);} } } 
}



/* node-remove!-fail2695 */
obj_t BGl_nodezd2removez12zd2fail2695z12zzast_removez00(obj_t BgL_envz00_2347, obj_t BgL_nodez00_2348)
{ AN_OBJECT;
{ /* ./Ast/remove.scm 180 */
{ 
BgL_failz00_bglt BgL_nodez00_1188;
{ /* ./Ast/remove.scm 181 */
BgL_failz00_bglt BgL_auxz00_3121;
BgL_nodez00_1188 = 
(BgL_failz00_bglt)(BgL_nodez00_2348); 
{ /* ./Ast/remove.scm 181 */
BgL_nodez00_bglt BgL_arg3336z00_1191;
{ /* ./Ast/remove.scm 181 */
BgL_nodez00_bglt BgL_arg3340z00_1192;
BgL_arg3340z00_1192 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1188))->BgL_procz00); 
{ /* ./Ast/remove.scm 181 */
BgL_nodez00_bglt BgL_res3663z00_1773;
{ /* ./Ast/remove.scm 181 */
obj_t BgL_method2671z00_1748;
{ /* ./Ast/remove.scm 181 */
BgL_objectz00_bglt BgL_objz00_1749;
BgL_objz00_1749 = 
(BgL_objectz00_bglt)(BgL_arg3340z00_1192); 
{ /* ./Ast/remove.scm 181 */
long BgL_objzd2classzd2numz00_1750;
BgL_objzd2classzd2numz00_1750 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1749); 
{ /* ./Ast/remove.scm 181 */
obj_t BgL_arg2017z00_1751;
{ /* ./Ast/remove.scm 181 */
int BgL_auxz00_3125;
BgL_auxz00_3125 = 
(int)(((long)1)); 
BgL_arg2017z00_1751 = 
PROCEDURE_REF(BGl_nodezd2removez12zd2envz12zzast_removez00, BgL_auxz00_3125); } 
{ /* ./Ast/remove.scm 181 */
int BgL_offsetz00_1754;
BgL_offsetz00_1754 = 
(int)(BgL_objzd2classzd2numz00_1750); 
{ /* ./Ast/remove.scm 181 */
long BgL_offsetz00_1755;
{ /* ./Ast/remove.scm 181 */
long BgL_auxz00_3129;
BgL_auxz00_3129 = 
(long)(BgL_offsetz00_1754); 
BgL_offsetz00_1755 = 
(BgL_auxz00_3129-OBJECT_TYPE); } 
{ /* ./Ast/remove.scm 181 */
long BgL_modz00_1756;
{ /* ./Ast/remove.scm 181 */
int BgL_arg2028z00_1757;
BgL_arg2028z00_1757 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 181 */
long BgL_n2z00_1765;
BgL_n2z00_1765 = 
(long)(BgL_arg2028z00_1757); 
BgL_modz00_1756 = 
(BgL_offsetz00_1755/BgL_n2z00_1765); } } 
{ /* ./Ast/remove.scm 181 */
long BgL_restz00_1758;
{ /* ./Ast/remove.scm 181 */
int BgL_arg2024z00_1759;
BgL_arg2024z00_1759 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 181 */
long BgL_n2z00_1768;
BgL_n2z00_1768 = 
(long)(BgL_arg2024z00_1759); 
BgL_restz00_1758 = 
(BgL_offsetz00_1755%BgL_n2z00_1768); } } 
{ /* ./Ast/remove.scm 181 */

{ /* ./Ast/remove.scm 181 */
obj_t BgL_bucketz00_1760;
{ /* ./Ast/remove.scm 181 */
int BgL_kz00_1770;
BgL_kz00_1770 = 
(int)(BgL_modz00_1756); 
BgL_bucketz00_1760 = 
VECTOR_REF(BgL_arg2017z00_1751,BgL_kz00_1770); } 
{ /* ./Ast/remove.scm 181 */
int BgL_kz00_1772;
BgL_kz00_1772 = 
(int)(BgL_restz00_1758); 
BgL_method2671z00_1748 = 
VECTOR_REF(BgL_bucketz00_1760,BgL_kz00_1772); } } } } } } } } } } 
{ /* ./Ast/remove.scm 181 */
obj_t BgL_auxz00_3142;
BgL_auxz00_3142 = 
PROCEDURE_ENTRY(BgL_method2671z00_1748)(BgL_method2671z00_1748, 
(obj_t)(BgL_arg3340z00_1192), BEOA); 
BgL_res3663z00_1773 = 
(BgL_nodez00_bglt)(BgL_auxz00_3142); } } 
BgL_arg3336z00_1191 = BgL_res3663z00_1773; } } 
{ /* ./Ast/remove.scm 181 */
BgL_failz00_bglt BgL_obj2372z00_1774;BgL_nodez00_bglt BgL_val2371z00_1775;
BgL_obj2372z00_1774 = BgL_nodez00_1188; 
BgL_val2371z00_1775 = BgL_arg3336z00_1191; 
((((BgL_failz00_bglt)CREF(BgL_obj2372z00_1774))->BgL_procz00) = ((BgL_nodez00_bglt)BgL_val2371z00_1775), BUNSPEC); } } 
{ /* ./Ast/remove.scm 182 */
BgL_nodez00_bglt BgL_arg3344z00_1193;
{ /* ./Ast/remove.scm 182 */
BgL_nodez00_bglt BgL_arg3347z00_1194;
BgL_arg3347z00_1194 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1188))->BgL_msgz00); 
{ /* ./Ast/remove.scm 182 */
BgL_nodez00_bglt BgL_res3666z00_1803;
{ /* ./Ast/remove.scm 182 */
obj_t BgL_method2671z00_1778;
{ /* ./Ast/remove.scm 182 */
BgL_objectz00_bglt BgL_objz00_1779;
BgL_objz00_1779 = 
(BgL_objectz00_bglt)(BgL_arg3347z00_1194); 
{ /* ./Ast/remove.scm 182 */
long BgL_objzd2classzd2numz00_1780;
BgL_objzd2classzd2numz00_1780 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1779); 
{ /* ./Ast/remove.scm 182 */
obj_t BgL_arg2017z00_1781;
{ /* ./Ast/remove.scm 182 */
int BgL_auxz00_3151;
BgL_auxz00_3151 = 
(int)(((long)1)); 
BgL_arg2017z00_1781 = 
PROCEDURE_REF(BGl_nodezd2removez12zd2envz12zzast_removez00, BgL_auxz00_3151); } 
{ /* ./Ast/remove.scm 182 */
int BgL_offsetz00_1784;
BgL_offsetz00_1784 = 
(int)(BgL_objzd2classzd2numz00_1780); 
{ /* ./Ast/remove.scm 182 */
long BgL_offsetz00_1785;
{ /* ./Ast/remove.scm 182 */
long BgL_auxz00_3155;
BgL_auxz00_3155 = 
(long)(BgL_offsetz00_1784); 
BgL_offsetz00_1785 = 
(BgL_auxz00_3155-OBJECT_TYPE); } 
{ /* ./Ast/remove.scm 182 */
long BgL_modz00_1786;
{ /* ./Ast/remove.scm 182 */
int BgL_arg2028z00_1787;
BgL_arg2028z00_1787 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 182 */
long BgL_n2z00_1795;
BgL_n2z00_1795 = 
(long)(BgL_arg2028z00_1787); 
BgL_modz00_1786 = 
(BgL_offsetz00_1785/BgL_n2z00_1795); } } 
{ /* ./Ast/remove.scm 182 */
long BgL_restz00_1788;
{ /* ./Ast/remove.scm 182 */
int BgL_arg2024z00_1789;
BgL_arg2024z00_1789 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 182 */
long BgL_n2z00_1798;
BgL_n2z00_1798 = 
(long)(BgL_arg2024z00_1789); 
BgL_restz00_1788 = 
(BgL_offsetz00_1785%BgL_n2z00_1798); } } 
{ /* ./Ast/remove.scm 182 */

{ /* ./Ast/remove.scm 182 */
obj_t BgL_bucketz00_1790;
{ /* ./Ast/remove.scm 182 */
int BgL_kz00_1800;
BgL_kz00_1800 = 
(int)(BgL_modz00_1786); 
BgL_bucketz00_1790 = 
VECTOR_REF(BgL_arg2017z00_1781,BgL_kz00_1800); } 
{ /* ./Ast/remove.scm 182 */
int BgL_kz00_1802;
BgL_kz00_1802 = 
(int)(BgL_restz00_1788); 
BgL_method2671z00_1778 = 
VECTOR_REF(BgL_bucketz00_1790,BgL_kz00_1802); } } } } } } } } } } 
{ /* ./Ast/remove.scm 182 */
obj_t BgL_auxz00_3168;
BgL_auxz00_3168 = 
PROCEDURE_ENTRY(BgL_method2671z00_1778)(BgL_method2671z00_1778, 
(obj_t)(BgL_arg3347z00_1194), BEOA); 
BgL_res3666z00_1803 = 
(BgL_nodez00_bglt)(BgL_auxz00_3168); } } 
BgL_arg3344z00_1193 = BgL_res3666z00_1803; } } 
{ /* ./Ast/remove.scm 182 */
BgL_failz00_bglt BgL_obj2375z00_1804;BgL_nodez00_bglt BgL_val2374z00_1805;
BgL_obj2375z00_1804 = BgL_nodez00_1188; 
BgL_val2374z00_1805 = BgL_arg3344z00_1193; 
((((BgL_failz00_bglt)CREF(BgL_obj2375z00_1804))->BgL_msgz00) = ((BgL_nodez00_bglt)BgL_val2374z00_1805), BUNSPEC); } } 
{ /* ./Ast/remove.scm 183 */
BgL_nodez00_bglt BgL_arg3351z00_1195;
{ /* ./Ast/remove.scm 183 */
BgL_nodez00_bglt BgL_arg3354z00_1196;
BgL_arg3354z00_1196 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1188))->BgL_objz00); 
{ /* ./Ast/remove.scm 183 */
BgL_nodez00_bglt BgL_res3669z00_1833;
{ /* ./Ast/remove.scm 183 */
obj_t BgL_method2671z00_1808;
{ /* ./Ast/remove.scm 183 */
BgL_objectz00_bglt BgL_objz00_1809;
BgL_objz00_1809 = 
(BgL_objectz00_bglt)(BgL_arg3354z00_1196); 
{ /* ./Ast/remove.scm 183 */
long BgL_objzd2classzd2numz00_1810;
BgL_objzd2classzd2numz00_1810 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1809); 
{ /* ./Ast/remove.scm 183 */
obj_t BgL_arg2017z00_1811;
{ /* ./Ast/remove.scm 183 */
int BgL_auxz00_3177;
BgL_auxz00_3177 = 
(int)(((long)1)); 
BgL_arg2017z00_1811 = 
PROCEDURE_REF(BGl_nodezd2removez12zd2envz12zzast_removez00, BgL_auxz00_3177); } 
{ /* ./Ast/remove.scm 183 */
int BgL_offsetz00_1814;
BgL_offsetz00_1814 = 
(int)(BgL_objzd2classzd2numz00_1810); 
{ /* ./Ast/remove.scm 183 */
long BgL_offsetz00_1815;
{ /* ./Ast/remove.scm 183 */
long BgL_auxz00_3181;
BgL_auxz00_3181 = 
(long)(BgL_offsetz00_1814); 
BgL_offsetz00_1815 = 
(BgL_auxz00_3181-OBJECT_TYPE); } 
{ /* ./Ast/remove.scm 183 */
long BgL_modz00_1816;
{ /* ./Ast/remove.scm 183 */
int BgL_arg2028z00_1817;
BgL_arg2028z00_1817 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 183 */
long BgL_n2z00_1825;
BgL_n2z00_1825 = 
(long)(BgL_arg2028z00_1817); 
BgL_modz00_1816 = 
(BgL_offsetz00_1815/BgL_n2z00_1825); } } 
{ /* ./Ast/remove.scm 183 */
long BgL_restz00_1818;
{ /* ./Ast/remove.scm 183 */
int BgL_arg2024z00_1819;
BgL_arg2024z00_1819 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 183 */
long BgL_n2z00_1828;
BgL_n2z00_1828 = 
(long)(BgL_arg2024z00_1819); 
BgL_restz00_1818 = 
(BgL_offsetz00_1815%BgL_n2z00_1828); } } 
{ /* ./Ast/remove.scm 183 */

{ /* ./Ast/remove.scm 183 */
obj_t BgL_bucketz00_1820;
{ /* ./Ast/remove.scm 183 */
int BgL_kz00_1830;
BgL_kz00_1830 = 
(int)(BgL_modz00_1816); 
BgL_bucketz00_1820 = 
VECTOR_REF(BgL_arg2017z00_1811,BgL_kz00_1830); } 
{ /* ./Ast/remove.scm 183 */
int BgL_kz00_1832;
BgL_kz00_1832 = 
(int)(BgL_restz00_1818); 
BgL_method2671z00_1808 = 
VECTOR_REF(BgL_bucketz00_1820,BgL_kz00_1832); } } } } } } } } } } 
{ /* ./Ast/remove.scm 183 */
obj_t BgL_auxz00_3194;
BgL_auxz00_3194 = 
PROCEDURE_ENTRY(BgL_method2671z00_1808)(BgL_method2671z00_1808, 
(obj_t)(BgL_arg3354z00_1196), BEOA); 
BgL_res3669z00_1833 = 
(BgL_nodez00_bglt)(BgL_auxz00_3194); } } 
BgL_arg3351z00_1195 = BgL_res3669z00_1833; } } 
{ /* ./Ast/remove.scm 183 */
BgL_failz00_bglt BgL_obj2378z00_1834;BgL_nodez00_bglt BgL_val2377z00_1835;
BgL_obj2378z00_1834 = BgL_nodez00_1188; 
BgL_val2377z00_1835 = BgL_arg3351z00_1195; 
((((BgL_failz00_bglt)CREF(BgL_obj2378z00_1834))->BgL_objz00) = ((BgL_nodez00_bglt)BgL_val2377z00_1835), BUNSPEC); } } 
BgL_auxz00_3121 = BgL_nodez00_1188; 
return 
(obj_t)(BgL_auxz00_3121);} } } 
}



/* node-remove!-conditional2693 */
obj_t BGl_nodezd2removez12zd2conditional2693z12zzast_removez00(obj_t BgL_envz00_2349, obj_t BgL_nodez00_2350)
{ AN_OBJECT;
{ /* ./Ast/remove.scm 171 */
{ 
BgL_conditionalz00_bglt BgL_nodez00_1177;
{ /* ./Ast/remove.scm 172 */
BgL_conditionalz00_bglt BgL_auxz00_3202;
BgL_nodez00_1177 = 
(BgL_conditionalz00_bglt)(BgL_nodez00_2350); 
{ /* ./Ast/remove.scm 172 */
BgL_nodez00_bglt BgL_arg3309z00_1180;
{ /* ./Ast/remove.scm 172 */
BgL_nodez00_bglt BgL_arg3312z00_1181;
BgL_arg3312z00_1181 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1177))->BgL_testz00); 
{ /* ./Ast/remove.scm 172 */
BgL_nodez00_bglt BgL_res3654z00_1683;
{ /* ./Ast/remove.scm 172 */
obj_t BgL_method2671z00_1658;
{ /* ./Ast/remove.scm 172 */
BgL_objectz00_bglt BgL_objz00_1659;
BgL_objz00_1659 = 
(BgL_objectz00_bglt)(BgL_arg3312z00_1181); 
{ /* ./Ast/remove.scm 172 */
long BgL_objzd2classzd2numz00_1660;
BgL_objzd2classzd2numz00_1660 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1659); 
{ /* ./Ast/remove.scm 172 */
obj_t BgL_arg2017z00_1661;
{ /* ./Ast/remove.scm 172 */
int BgL_auxz00_3206;
BgL_auxz00_3206 = 
(int)(((long)1)); 
BgL_arg2017z00_1661 = 
PROCEDURE_REF(BGl_nodezd2removez12zd2envz12zzast_removez00, BgL_auxz00_3206); } 
{ /* ./Ast/remove.scm 172 */
int BgL_offsetz00_1664;
BgL_offsetz00_1664 = 
(int)(BgL_objzd2classzd2numz00_1660); 
{ /* ./Ast/remove.scm 172 */
long BgL_offsetz00_1665;
{ /* ./Ast/remove.scm 172 */
long BgL_auxz00_3210;
BgL_auxz00_3210 = 
(long)(BgL_offsetz00_1664); 
BgL_offsetz00_1665 = 
(BgL_auxz00_3210-OBJECT_TYPE); } 
{ /* ./Ast/remove.scm 172 */
long BgL_modz00_1666;
{ /* ./Ast/remove.scm 172 */
int BgL_arg2028z00_1667;
BgL_arg2028z00_1667 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 172 */
long BgL_n2z00_1675;
BgL_n2z00_1675 = 
(long)(BgL_arg2028z00_1667); 
BgL_modz00_1666 = 
(BgL_offsetz00_1665/BgL_n2z00_1675); } } 
{ /* ./Ast/remove.scm 172 */
long BgL_restz00_1668;
{ /* ./Ast/remove.scm 172 */
int BgL_arg2024z00_1669;
BgL_arg2024z00_1669 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 172 */
long BgL_n2z00_1678;
BgL_n2z00_1678 = 
(long)(BgL_arg2024z00_1669); 
BgL_restz00_1668 = 
(BgL_offsetz00_1665%BgL_n2z00_1678); } } 
{ /* ./Ast/remove.scm 172 */

{ /* ./Ast/remove.scm 172 */
obj_t BgL_bucketz00_1670;
{ /* ./Ast/remove.scm 172 */
int BgL_kz00_1680;
BgL_kz00_1680 = 
(int)(BgL_modz00_1666); 
BgL_bucketz00_1670 = 
VECTOR_REF(BgL_arg2017z00_1661,BgL_kz00_1680); } 
{ /* ./Ast/remove.scm 172 */
int BgL_kz00_1682;
BgL_kz00_1682 = 
(int)(BgL_restz00_1668); 
BgL_method2671z00_1658 = 
VECTOR_REF(BgL_bucketz00_1670,BgL_kz00_1682); } } } } } } } } } } 
{ /* ./Ast/remove.scm 172 */
obj_t BgL_auxz00_3223;
BgL_auxz00_3223 = 
PROCEDURE_ENTRY(BgL_method2671z00_1658)(BgL_method2671z00_1658, 
(obj_t)(BgL_arg3312z00_1181), BEOA); 
BgL_res3654z00_1683 = 
(BgL_nodez00_bglt)(BgL_auxz00_3223); } } 
BgL_arg3309z00_1180 = BgL_res3654z00_1683; } } 
{ /* ./Ast/remove.scm 172 */
BgL_conditionalz00_bglt BgL_obj2334z00_1684;BgL_nodez00_bglt BgL_val2333z00_1685;
BgL_obj2334z00_1684 = BgL_nodez00_1177; 
BgL_val2333z00_1685 = BgL_arg3309z00_1180; 
((((BgL_conditionalz00_bglt)CREF(BgL_obj2334z00_1684))->BgL_testz00) = ((BgL_nodez00_bglt)BgL_val2333z00_1685), BUNSPEC); } } 
{ /* ./Ast/remove.scm 173 */
BgL_nodez00_bglt BgL_arg3316z00_1182;
{ /* ./Ast/remove.scm 173 */
BgL_nodez00_bglt BgL_arg3319z00_1183;
BgL_arg3319z00_1183 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1177))->BgL_truez00); 
{ /* ./Ast/remove.scm 173 */
BgL_nodez00_bglt BgL_res3657z00_1713;
{ /* ./Ast/remove.scm 173 */
obj_t BgL_method2671z00_1688;
{ /* ./Ast/remove.scm 173 */
BgL_objectz00_bglt BgL_objz00_1689;
BgL_objz00_1689 = 
(BgL_objectz00_bglt)(BgL_arg3319z00_1183); 
{ /* ./Ast/remove.scm 173 */
long BgL_objzd2classzd2numz00_1690;
BgL_objzd2classzd2numz00_1690 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1689); 
{ /* ./Ast/remove.scm 173 */
obj_t BgL_arg2017z00_1691;
{ /* ./Ast/remove.scm 173 */
int BgL_auxz00_3232;
BgL_auxz00_3232 = 
(int)(((long)1)); 
BgL_arg2017z00_1691 = 
PROCEDURE_REF(BGl_nodezd2removez12zd2envz12zzast_removez00, BgL_auxz00_3232); } 
{ /* ./Ast/remove.scm 173 */
int BgL_offsetz00_1694;
BgL_offsetz00_1694 = 
(int)(BgL_objzd2classzd2numz00_1690); 
{ /* ./Ast/remove.scm 173 */
long BgL_offsetz00_1695;
{ /* ./Ast/remove.scm 173 */
long BgL_auxz00_3236;
BgL_auxz00_3236 = 
(long)(BgL_offsetz00_1694); 
BgL_offsetz00_1695 = 
(BgL_auxz00_3236-OBJECT_TYPE); } 
{ /* ./Ast/remove.scm 173 */
long BgL_modz00_1696;
{ /* ./Ast/remove.scm 173 */
int BgL_arg2028z00_1697;
BgL_arg2028z00_1697 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 173 */
long BgL_n2z00_1705;
BgL_n2z00_1705 = 
(long)(BgL_arg2028z00_1697); 
BgL_modz00_1696 = 
(BgL_offsetz00_1695/BgL_n2z00_1705); } } 
{ /* ./Ast/remove.scm 173 */
long BgL_restz00_1698;
{ /* ./Ast/remove.scm 173 */
int BgL_arg2024z00_1699;
BgL_arg2024z00_1699 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 173 */
long BgL_n2z00_1708;
BgL_n2z00_1708 = 
(long)(BgL_arg2024z00_1699); 
BgL_restz00_1698 = 
(BgL_offsetz00_1695%BgL_n2z00_1708); } } 
{ /* ./Ast/remove.scm 173 */

{ /* ./Ast/remove.scm 173 */
obj_t BgL_bucketz00_1700;
{ /* ./Ast/remove.scm 173 */
int BgL_kz00_1710;
BgL_kz00_1710 = 
(int)(BgL_modz00_1696); 
BgL_bucketz00_1700 = 
VECTOR_REF(BgL_arg2017z00_1691,BgL_kz00_1710); } 
{ /* ./Ast/remove.scm 173 */
int BgL_kz00_1712;
BgL_kz00_1712 = 
(int)(BgL_restz00_1698); 
BgL_method2671z00_1688 = 
VECTOR_REF(BgL_bucketz00_1700,BgL_kz00_1712); } } } } } } } } } } 
{ /* ./Ast/remove.scm 173 */
obj_t BgL_auxz00_3249;
BgL_auxz00_3249 = 
PROCEDURE_ENTRY(BgL_method2671z00_1688)(BgL_method2671z00_1688, 
(obj_t)(BgL_arg3319z00_1183), BEOA); 
BgL_res3657z00_1713 = 
(BgL_nodez00_bglt)(BgL_auxz00_3249); } } 
BgL_arg3316z00_1182 = BgL_res3657z00_1713; } } 
{ /* ./Ast/remove.scm 173 */
BgL_conditionalz00_bglt BgL_obj2337z00_1714;BgL_nodez00_bglt BgL_val2336z00_1715;
BgL_obj2337z00_1714 = BgL_nodez00_1177; 
BgL_val2336z00_1715 = BgL_arg3316z00_1182; 
((((BgL_conditionalz00_bglt)CREF(BgL_obj2337z00_1714))->BgL_truez00) = ((BgL_nodez00_bglt)BgL_val2336z00_1715), BUNSPEC); } } 
{ /* ./Ast/remove.scm 174 */
BgL_nodez00_bglt BgL_arg3323z00_1184;
{ /* ./Ast/remove.scm 174 */
BgL_nodez00_bglt BgL_arg3326z00_1185;
BgL_arg3326z00_1185 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1177))->BgL_falsez00); 
{ /* ./Ast/remove.scm 174 */
BgL_nodez00_bglt BgL_res3660z00_1743;
{ /* ./Ast/remove.scm 174 */
obj_t BgL_method2671z00_1718;
{ /* ./Ast/remove.scm 174 */
BgL_objectz00_bglt BgL_objz00_1719;
BgL_objz00_1719 = 
(BgL_objectz00_bglt)(BgL_arg3326z00_1185); 
{ /* ./Ast/remove.scm 174 */
long BgL_objzd2classzd2numz00_1720;
BgL_objzd2classzd2numz00_1720 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1719); 
{ /* ./Ast/remove.scm 174 */
obj_t BgL_arg2017z00_1721;
{ /* ./Ast/remove.scm 174 */
int BgL_auxz00_3258;
BgL_auxz00_3258 = 
(int)(((long)1)); 
BgL_arg2017z00_1721 = 
PROCEDURE_REF(BGl_nodezd2removez12zd2envz12zzast_removez00, BgL_auxz00_3258); } 
{ /* ./Ast/remove.scm 174 */
int BgL_offsetz00_1724;
BgL_offsetz00_1724 = 
(int)(BgL_objzd2classzd2numz00_1720); 
{ /* ./Ast/remove.scm 174 */
long BgL_offsetz00_1725;
{ /* ./Ast/remove.scm 174 */
long BgL_auxz00_3262;
BgL_auxz00_3262 = 
(long)(BgL_offsetz00_1724); 
BgL_offsetz00_1725 = 
(BgL_auxz00_3262-OBJECT_TYPE); } 
{ /* ./Ast/remove.scm 174 */
long BgL_modz00_1726;
{ /* ./Ast/remove.scm 174 */
int BgL_arg2028z00_1727;
BgL_arg2028z00_1727 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 174 */
long BgL_n2z00_1735;
BgL_n2z00_1735 = 
(long)(BgL_arg2028z00_1727); 
BgL_modz00_1726 = 
(BgL_offsetz00_1725/BgL_n2z00_1735); } } 
{ /* ./Ast/remove.scm 174 */
long BgL_restz00_1728;
{ /* ./Ast/remove.scm 174 */
int BgL_arg2024z00_1729;
BgL_arg2024z00_1729 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 174 */
long BgL_n2z00_1738;
BgL_n2z00_1738 = 
(long)(BgL_arg2024z00_1729); 
BgL_restz00_1728 = 
(BgL_offsetz00_1725%BgL_n2z00_1738); } } 
{ /* ./Ast/remove.scm 174 */

{ /* ./Ast/remove.scm 174 */
obj_t BgL_bucketz00_1730;
{ /* ./Ast/remove.scm 174 */
int BgL_kz00_1740;
BgL_kz00_1740 = 
(int)(BgL_modz00_1726); 
BgL_bucketz00_1730 = 
VECTOR_REF(BgL_arg2017z00_1721,BgL_kz00_1740); } 
{ /* ./Ast/remove.scm 174 */
int BgL_kz00_1742;
BgL_kz00_1742 = 
(int)(BgL_restz00_1728); 
BgL_method2671z00_1718 = 
VECTOR_REF(BgL_bucketz00_1730,BgL_kz00_1742); } } } } } } } } } } 
{ /* ./Ast/remove.scm 174 */
obj_t BgL_auxz00_3275;
BgL_auxz00_3275 = 
PROCEDURE_ENTRY(BgL_method2671z00_1718)(BgL_method2671z00_1718, 
(obj_t)(BgL_arg3326z00_1185), BEOA); 
BgL_res3660z00_1743 = 
(BgL_nodez00_bglt)(BgL_auxz00_3275); } } 
BgL_arg3323z00_1184 = BgL_res3660z00_1743; } } 
{ /* ./Ast/remove.scm 174 */
BgL_conditionalz00_bglt BgL_obj2340z00_1744;BgL_nodez00_bglt BgL_val2339z00_1745;
BgL_obj2340z00_1744 = BgL_nodez00_1177; 
BgL_val2339z00_1745 = BgL_arg3323z00_1184; 
((((BgL_conditionalz00_bglt)CREF(BgL_obj2340z00_1744))->BgL_falsez00) = ((BgL_nodez00_bglt)BgL_val2339z00_1745), BUNSPEC); } } 
BgL_auxz00_3202 = BgL_nodez00_1177; 
return 
(obj_t)(BgL_auxz00_3202);} } } 
}



/* node-remove!-setq2691 */
obj_t BGl_nodezd2removez12zd2setq2691z12zzast_removez00(obj_t BgL_envz00_2351, obj_t BgL_nodez00_2352)
{ AN_OBJECT;
{ /* ./Ast/remove.scm 164 */
{ 
BgL_setqz00_bglt BgL_nodez00_1170;
{ /* ./Ast/remove.scm 165 */
BgL_setqz00_bglt BgL_auxz00_3283;
BgL_nodez00_1170 = 
(BgL_setqz00_bglt)(BgL_nodez00_2352); 
{ /* ./Ast/remove.scm 165 */
BgL_nodez00_bglt BgL_arg3296z00_1173;
{ /* ./Ast/remove.scm 165 */
BgL_nodez00_bglt BgL_arg3299z00_1174;
BgL_arg3299z00_1174 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1170))->BgL_valuez00); 
{ /* ./Ast/remove.scm 165 */
BgL_nodez00_bglt BgL_res3651z00_1653;
{ /* ./Ast/remove.scm 165 */
obj_t BgL_method2671z00_1628;
{ /* ./Ast/remove.scm 165 */
BgL_objectz00_bglt BgL_objz00_1629;
BgL_objz00_1629 = 
(BgL_objectz00_bglt)(BgL_arg3299z00_1174); 
{ /* ./Ast/remove.scm 165 */
long BgL_objzd2classzd2numz00_1630;
BgL_objzd2classzd2numz00_1630 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1629); 
{ /* ./Ast/remove.scm 165 */
obj_t BgL_arg2017z00_1631;
{ /* ./Ast/remove.scm 165 */
int BgL_auxz00_3287;
BgL_auxz00_3287 = 
(int)(((long)1)); 
BgL_arg2017z00_1631 = 
PROCEDURE_REF(BGl_nodezd2removez12zd2envz12zzast_removez00, BgL_auxz00_3287); } 
{ /* ./Ast/remove.scm 165 */
int BgL_offsetz00_1634;
BgL_offsetz00_1634 = 
(int)(BgL_objzd2classzd2numz00_1630); 
{ /* ./Ast/remove.scm 165 */
long BgL_offsetz00_1635;
{ /* ./Ast/remove.scm 165 */
long BgL_auxz00_3291;
BgL_auxz00_3291 = 
(long)(BgL_offsetz00_1634); 
BgL_offsetz00_1635 = 
(BgL_auxz00_3291-OBJECT_TYPE); } 
{ /* ./Ast/remove.scm 165 */
long BgL_modz00_1636;
{ /* ./Ast/remove.scm 165 */
int BgL_arg2028z00_1637;
BgL_arg2028z00_1637 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 165 */
long BgL_n2z00_1645;
BgL_n2z00_1645 = 
(long)(BgL_arg2028z00_1637); 
BgL_modz00_1636 = 
(BgL_offsetz00_1635/BgL_n2z00_1645); } } 
{ /* ./Ast/remove.scm 165 */
long BgL_restz00_1638;
{ /* ./Ast/remove.scm 165 */
int BgL_arg2024z00_1639;
BgL_arg2024z00_1639 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 165 */
long BgL_n2z00_1648;
BgL_n2z00_1648 = 
(long)(BgL_arg2024z00_1639); 
BgL_restz00_1638 = 
(BgL_offsetz00_1635%BgL_n2z00_1648); } } 
{ /* ./Ast/remove.scm 165 */

{ /* ./Ast/remove.scm 165 */
obj_t BgL_bucketz00_1640;
{ /* ./Ast/remove.scm 165 */
int BgL_kz00_1650;
BgL_kz00_1650 = 
(int)(BgL_modz00_1636); 
BgL_bucketz00_1640 = 
VECTOR_REF(BgL_arg2017z00_1631,BgL_kz00_1650); } 
{ /* ./Ast/remove.scm 165 */
int BgL_kz00_1652;
BgL_kz00_1652 = 
(int)(BgL_restz00_1638); 
BgL_method2671z00_1628 = 
VECTOR_REF(BgL_bucketz00_1640,BgL_kz00_1652); } } } } } } } } } } 
{ /* ./Ast/remove.scm 165 */
obj_t BgL_auxz00_3304;
BgL_auxz00_3304 = 
PROCEDURE_ENTRY(BgL_method2671z00_1628)(BgL_method2671z00_1628, 
(obj_t)(BgL_arg3299z00_1174), BEOA); 
BgL_res3651z00_1653 = 
(BgL_nodez00_bglt)(BgL_auxz00_3304); } } 
BgL_arg3296z00_1173 = BgL_res3651z00_1653; } } 
{ /* ./Ast/remove.scm 165 */
BgL_setqz00_bglt BgL_obj2305z00_1654;BgL_nodez00_bglt BgL_val2304z00_1655;
BgL_obj2305z00_1654 = BgL_nodez00_1170; 
BgL_val2304z00_1655 = BgL_arg3296z00_1173; 
((((BgL_setqz00_bglt)CREF(BgL_obj2305z00_1654))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2304z00_1655), BUNSPEC); } } 
BgL_auxz00_3283 = BgL_nodez00_1170; 
return 
(obj_t)(BgL_auxz00_3283);} } } 
}



/* node-remove!-cast2689 */
obj_t BGl_nodezd2removez12zd2cast2689z12zzast_removez00(obj_t BgL_envz00_2353, obj_t BgL_nodez00_2354)
{ AN_OBJECT;
{ /* ./Ast/remove.scm 157 */
{ 
BgL_castz00_bglt BgL_nodez00_1164;
{ /* ./Ast/remove.scm 158 */
BgL_castz00_bglt BgL_auxz00_3312;
BgL_nodez00_1164 = 
(BgL_castz00_bglt)(BgL_nodez00_2354); 
{ /* ./Ast/remove.scm 158 */
BgL_nodez00_bglt BgL_arg3286z00_1597;
BgL_arg3286z00_1597 = 
(((BgL_castz00_bglt)CREF(BgL_nodez00_1164))->BgL_argz00); 
{ /* ./Ast/remove.scm 158 */
BgL_nodez00_bglt BgL_res3648z00_1625;
{ /* ./Ast/remove.scm 158 */
obj_t BgL_method2671z00_1600;
{ /* ./Ast/remove.scm 158 */
BgL_objectz00_bglt BgL_objz00_1601;
BgL_objz00_1601 = 
(BgL_objectz00_bglt)(BgL_arg3286z00_1597); 
{ /* ./Ast/remove.scm 158 */
long BgL_objzd2classzd2numz00_1602;
BgL_objzd2classzd2numz00_1602 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1601); 
{ /* ./Ast/remove.scm 158 */
obj_t BgL_arg2017z00_1603;
{ /* ./Ast/remove.scm 158 */
int BgL_auxz00_3316;
BgL_auxz00_3316 = 
(int)(((long)1)); 
BgL_arg2017z00_1603 = 
PROCEDURE_REF(BGl_nodezd2removez12zd2envz12zzast_removez00, BgL_auxz00_3316); } 
{ /* ./Ast/remove.scm 158 */
int BgL_offsetz00_1606;
BgL_offsetz00_1606 = 
(int)(BgL_objzd2classzd2numz00_1602); 
{ /* ./Ast/remove.scm 158 */
long BgL_offsetz00_1607;
{ /* ./Ast/remove.scm 158 */
long BgL_auxz00_3320;
BgL_auxz00_3320 = 
(long)(BgL_offsetz00_1606); 
BgL_offsetz00_1607 = 
(BgL_auxz00_3320-OBJECT_TYPE); } 
{ /* ./Ast/remove.scm 158 */
long BgL_modz00_1608;
{ /* ./Ast/remove.scm 158 */
int BgL_arg2028z00_1609;
BgL_arg2028z00_1609 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 158 */
long BgL_n2z00_1617;
BgL_n2z00_1617 = 
(long)(BgL_arg2028z00_1609); 
BgL_modz00_1608 = 
(BgL_offsetz00_1607/BgL_n2z00_1617); } } 
{ /* ./Ast/remove.scm 158 */
long BgL_restz00_1610;
{ /* ./Ast/remove.scm 158 */
int BgL_arg2024z00_1611;
BgL_arg2024z00_1611 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 158 */
long BgL_n2z00_1620;
BgL_n2z00_1620 = 
(long)(BgL_arg2024z00_1611); 
BgL_restz00_1610 = 
(BgL_offsetz00_1607%BgL_n2z00_1620); } } 
{ /* ./Ast/remove.scm 158 */

{ /* ./Ast/remove.scm 158 */
obj_t BgL_bucketz00_1612;
{ /* ./Ast/remove.scm 158 */
int BgL_kz00_1622;
BgL_kz00_1622 = 
(int)(BgL_modz00_1608); 
BgL_bucketz00_1612 = 
VECTOR_REF(BgL_arg2017z00_1603,BgL_kz00_1622); } 
{ /* ./Ast/remove.scm 158 */
int BgL_kz00_1624;
BgL_kz00_1624 = 
(int)(BgL_restz00_1610); 
BgL_method2671z00_1600 = 
VECTOR_REF(BgL_bucketz00_1612,BgL_kz00_1624); } } } } } } } } } } 
{ /* ./Ast/remove.scm 158 */
obj_t BgL_auxz00_3333;
BgL_auxz00_3333 = 
PROCEDURE_ENTRY(BgL_method2671z00_1600)(BgL_method2671z00_1600, 
(obj_t)(BgL_arg3286z00_1597), BEOA); 
BgL_res3648z00_1625 = 
(BgL_nodez00_bglt)(BgL_auxz00_3333); } } BgL_res3648z00_1625; } } 
BgL_auxz00_3312 = BgL_nodez00_1164; 
return 
(obj_t)(BgL_auxz00_3312);} } } 
}



/* node-remove!-extern2687 */
obj_t BGl_nodezd2removez12zd2extern2687z12zzast_removez00(obj_t BgL_envz00_2355, obj_t BgL_nodez00_2356)
{ AN_OBJECT;
{ /* ./Ast/remove.scm 150 */
{ 
BgL_externz00_bglt BgL_nodez00_1158;
{ /* ./Ast/remove.scm 151 */
BgL_externz00_bglt BgL_auxz00_3340;
BgL_nodez00_1158 = 
(BgL_externz00_bglt)(BgL_nodez00_2356); 
{ /* ./Ast/remove.scm 151 */
obj_t BgL_arg3276z00_1595;
BgL_arg3276z00_1595 = 
(((BgL_externz00_bglt)CREF(BgL_nodez00_1158))->BgL_exprza2za2); 
BGl_nodezd2removeza2z12z62zzast_removez00(BgL_arg3276z00_1595); } 
BgL_auxz00_3340 = BgL_nodez00_1158; 
return 
(obj_t)(BgL_auxz00_3340);} } } 
}



/* node-remove!-funcall2685 */
obj_t BGl_nodezd2removez12zd2funcall2685z12zzast_removez00(obj_t BgL_envz00_2357, obj_t BgL_nodez00_2358)
{ AN_OBJECT;
{ /* ./Ast/remove.scm 142 */
{ 
BgL_funcallz00_bglt BgL_nodez00_1150;
{ /* ./Ast/remove.scm 143 */
BgL_funcallz00_bglt BgL_auxz00_3345;
BgL_nodez00_1150 = 
(BgL_funcallz00_bglt)(BgL_nodez00_2358); 
{ /* ./Ast/remove.scm 143 */
BgL_nodez00_bglt BgL_arg3259z00_1153;
{ /* ./Ast/remove.scm 143 */
BgL_nodez00_bglt BgL_arg3262z00_1154;
BgL_arg3262z00_1154 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1150))->BgL_funz00); 
{ /* ./Ast/remove.scm 143 */
BgL_nodez00_bglt BgL_res3645z00_1591;
{ /* ./Ast/remove.scm 143 */
obj_t BgL_method2671z00_1566;
{ /* ./Ast/remove.scm 143 */
BgL_objectz00_bglt BgL_objz00_1567;
BgL_objz00_1567 = 
(BgL_objectz00_bglt)(BgL_arg3262z00_1154); 
{ /* ./Ast/remove.scm 143 */
long BgL_objzd2classzd2numz00_1568;
BgL_objzd2classzd2numz00_1568 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1567); 
{ /* ./Ast/remove.scm 143 */
obj_t BgL_arg2017z00_1569;
{ /* ./Ast/remove.scm 143 */
int BgL_auxz00_3349;
BgL_auxz00_3349 = 
(int)(((long)1)); 
BgL_arg2017z00_1569 = 
PROCEDURE_REF(BGl_nodezd2removez12zd2envz12zzast_removez00, BgL_auxz00_3349); } 
{ /* ./Ast/remove.scm 143 */
int BgL_offsetz00_1572;
BgL_offsetz00_1572 = 
(int)(BgL_objzd2classzd2numz00_1568); 
{ /* ./Ast/remove.scm 143 */
long BgL_offsetz00_1573;
{ /* ./Ast/remove.scm 143 */
long BgL_auxz00_3353;
BgL_auxz00_3353 = 
(long)(BgL_offsetz00_1572); 
BgL_offsetz00_1573 = 
(BgL_auxz00_3353-OBJECT_TYPE); } 
{ /* ./Ast/remove.scm 143 */
long BgL_modz00_1574;
{ /* ./Ast/remove.scm 143 */
int BgL_arg2028z00_1575;
BgL_arg2028z00_1575 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 143 */
long BgL_n2z00_1583;
BgL_n2z00_1583 = 
(long)(BgL_arg2028z00_1575); 
BgL_modz00_1574 = 
(BgL_offsetz00_1573/BgL_n2z00_1583); } } 
{ /* ./Ast/remove.scm 143 */
long BgL_restz00_1576;
{ /* ./Ast/remove.scm 143 */
int BgL_arg2024z00_1577;
BgL_arg2024z00_1577 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 143 */
long BgL_n2z00_1586;
BgL_n2z00_1586 = 
(long)(BgL_arg2024z00_1577); 
BgL_restz00_1576 = 
(BgL_offsetz00_1573%BgL_n2z00_1586); } } 
{ /* ./Ast/remove.scm 143 */

{ /* ./Ast/remove.scm 143 */
obj_t BgL_bucketz00_1578;
{ /* ./Ast/remove.scm 143 */
int BgL_kz00_1588;
BgL_kz00_1588 = 
(int)(BgL_modz00_1574); 
BgL_bucketz00_1578 = 
VECTOR_REF(BgL_arg2017z00_1569,BgL_kz00_1588); } 
{ /* ./Ast/remove.scm 143 */
int BgL_kz00_1590;
BgL_kz00_1590 = 
(int)(BgL_restz00_1576); 
BgL_method2671z00_1566 = 
VECTOR_REF(BgL_bucketz00_1578,BgL_kz00_1590); } } } } } } } } } } 
{ /* ./Ast/remove.scm 143 */
obj_t BgL_auxz00_3366;
BgL_auxz00_3366 = 
PROCEDURE_ENTRY(BgL_method2671z00_1566)(BgL_method2671z00_1566, 
(obj_t)(BgL_arg3262z00_1154), BEOA); 
BgL_res3645z00_1591 = 
(BgL_nodez00_bglt)(BgL_auxz00_3366); } } 
BgL_arg3259z00_1153 = BgL_res3645z00_1591; } } 
{ /* ./Ast/remove.scm 143 */
BgL_funcallz00_bglt BgL_obj1781z00_1592;BgL_nodez00_bglt BgL_val1780z00_1593;
BgL_obj1781z00_1592 = BgL_nodez00_1150; 
BgL_val1780z00_1593 = BgL_arg3259z00_1153; 
((((BgL_funcallz00_bglt)CREF(BgL_obj1781z00_1592))->BgL_funz00) = ((BgL_nodez00_bglt)BgL_val1780z00_1593), BUNSPEC); } } 
{ /* ./Ast/remove.scm 144 */
obj_t BgL_arg3266z00_1155;
BgL_arg3266z00_1155 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1150))->BgL_argsz00); 
BGl_nodezd2removeza2z12z62zzast_removez00(BgL_arg3266z00_1155); } 
BgL_auxz00_3345 = BgL_nodez00_1150; 
return 
(obj_t)(BgL_auxz00_3345);} } } 
}



/* node-remove!-app-ly2683 */
obj_t BGl_nodezd2removez12zd2appzd2ly2683zc0zzast_removez00(obj_t BgL_envz00_2359, obj_t BgL_nodez00_2360)
{ AN_OBJECT;
{ /* ./Ast/remove.scm 134 */
{ 
BgL_appzd2lyzd2_bglt BgL_nodez00_1141;
{ /* ./Ast/remove.scm 135 */
BgL_appzd2lyzd2_bglt BgL_auxz00_3376;
BgL_nodez00_1141 = 
(BgL_appzd2lyzd2_bglt)(BgL_nodez00_2360); 
{ /* ./Ast/remove.scm 135 */
BgL_nodez00_bglt BgL_arg3238z00_1144;
{ /* ./Ast/remove.scm 135 */
BgL_nodez00_bglt BgL_arg3241z00_1145;
BgL_arg3241z00_1145 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1141))->BgL_funz00); 
{ /* ./Ast/remove.scm 135 */
BgL_nodez00_bglt BgL_res3639z00_1531;
{ /* ./Ast/remove.scm 135 */
obj_t BgL_method2671z00_1506;
{ /* ./Ast/remove.scm 135 */
BgL_objectz00_bglt BgL_objz00_1507;
BgL_objz00_1507 = 
(BgL_objectz00_bglt)(BgL_arg3241z00_1145); 
{ /* ./Ast/remove.scm 135 */
long BgL_objzd2classzd2numz00_1508;
BgL_objzd2classzd2numz00_1508 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1507); 
{ /* ./Ast/remove.scm 135 */
obj_t BgL_arg2017z00_1509;
{ /* ./Ast/remove.scm 135 */
int BgL_auxz00_3380;
BgL_auxz00_3380 = 
(int)(((long)1)); 
BgL_arg2017z00_1509 = 
PROCEDURE_REF(BGl_nodezd2removez12zd2envz12zzast_removez00, BgL_auxz00_3380); } 
{ /* ./Ast/remove.scm 135 */
int BgL_offsetz00_1512;
BgL_offsetz00_1512 = 
(int)(BgL_objzd2classzd2numz00_1508); 
{ /* ./Ast/remove.scm 135 */
long BgL_offsetz00_1513;
{ /* ./Ast/remove.scm 135 */
long BgL_auxz00_3384;
BgL_auxz00_3384 = 
(long)(BgL_offsetz00_1512); 
BgL_offsetz00_1513 = 
(BgL_auxz00_3384-OBJECT_TYPE); } 
{ /* ./Ast/remove.scm 135 */
long BgL_modz00_1514;
{ /* ./Ast/remove.scm 135 */
int BgL_arg2028z00_1515;
BgL_arg2028z00_1515 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 135 */
long BgL_n2z00_1523;
BgL_n2z00_1523 = 
(long)(BgL_arg2028z00_1515); 
BgL_modz00_1514 = 
(BgL_offsetz00_1513/BgL_n2z00_1523); } } 
{ /* ./Ast/remove.scm 135 */
long BgL_restz00_1516;
{ /* ./Ast/remove.scm 135 */
int BgL_arg2024z00_1517;
BgL_arg2024z00_1517 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 135 */
long BgL_n2z00_1526;
BgL_n2z00_1526 = 
(long)(BgL_arg2024z00_1517); 
BgL_restz00_1516 = 
(BgL_offsetz00_1513%BgL_n2z00_1526); } } 
{ /* ./Ast/remove.scm 135 */

{ /* ./Ast/remove.scm 135 */
obj_t BgL_bucketz00_1518;
{ /* ./Ast/remove.scm 135 */
int BgL_kz00_1528;
BgL_kz00_1528 = 
(int)(BgL_modz00_1514); 
BgL_bucketz00_1518 = 
VECTOR_REF(BgL_arg2017z00_1509,BgL_kz00_1528); } 
{ /* ./Ast/remove.scm 135 */
int BgL_kz00_1530;
BgL_kz00_1530 = 
(int)(BgL_restz00_1516); 
BgL_method2671z00_1506 = 
VECTOR_REF(BgL_bucketz00_1518,BgL_kz00_1530); } } } } } } } } } } 
{ /* ./Ast/remove.scm 135 */
obj_t BgL_auxz00_3397;
BgL_auxz00_3397 = 
PROCEDURE_ENTRY(BgL_method2671z00_1506)(BgL_method2671z00_1506, 
(obj_t)(BgL_arg3241z00_1145), BEOA); 
BgL_res3639z00_1531 = 
(BgL_nodez00_bglt)(BgL_auxz00_3397); } } 
BgL_arg3238z00_1144 = BgL_res3639z00_1531; } } 
{ /* ./Ast/remove.scm 135 */
BgL_appzd2lyzd2_bglt BgL_obj1753z00_1532;BgL_nodez00_bglt BgL_val1752z00_1533;
BgL_obj1753z00_1532 = BgL_nodez00_1141; 
BgL_val1752z00_1533 = BgL_arg3238z00_1144; 
((((BgL_appzd2lyzd2_bglt)CREF(BgL_obj1753z00_1532))->BgL_funz00) = ((BgL_nodez00_bglt)BgL_val1752z00_1533), BUNSPEC); } } 
{ /* ./Ast/remove.scm 136 */
BgL_nodez00_bglt BgL_arg3245z00_1146;
{ /* ./Ast/remove.scm 136 */
BgL_nodez00_bglt BgL_arg3248z00_1147;
BgL_arg3248z00_1147 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1141))->BgL_argz00); 
{ /* ./Ast/remove.scm 136 */
BgL_nodez00_bglt BgL_res3642z00_1561;
{ /* ./Ast/remove.scm 136 */
obj_t BgL_method2671z00_1536;
{ /* ./Ast/remove.scm 136 */
BgL_objectz00_bglt BgL_objz00_1537;
BgL_objz00_1537 = 
(BgL_objectz00_bglt)(BgL_arg3248z00_1147); 
{ /* ./Ast/remove.scm 136 */
long BgL_objzd2classzd2numz00_1538;
BgL_objzd2classzd2numz00_1538 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1537); 
{ /* ./Ast/remove.scm 136 */
obj_t BgL_arg2017z00_1539;
{ /* ./Ast/remove.scm 136 */
int BgL_auxz00_3406;
BgL_auxz00_3406 = 
(int)(((long)1)); 
BgL_arg2017z00_1539 = 
PROCEDURE_REF(BGl_nodezd2removez12zd2envz12zzast_removez00, BgL_auxz00_3406); } 
{ /* ./Ast/remove.scm 136 */
int BgL_offsetz00_1542;
BgL_offsetz00_1542 = 
(int)(BgL_objzd2classzd2numz00_1538); 
{ /* ./Ast/remove.scm 136 */
long BgL_offsetz00_1543;
{ /* ./Ast/remove.scm 136 */
long BgL_auxz00_3410;
BgL_auxz00_3410 = 
(long)(BgL_offsetz00_1542); 
BgL_offsetz00_1543 = 
(BgL_auxz00_3410-OBJECT_TYPE); } 
{ /* ./Ast/remove.scm 136 */
long BgL_modz00_1544;
{ /* ./Ast/remove.scm 136 */
int BgL_arg2028z00_1545;
BgL_arg2028z00_1545 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 136 */
long BgL_n2z00_1553;
BgL_n2z00_1553 = 
(long)(BgL_arg2028z00_1545); 
BgL_modz00_1544 = 
(BgL_offsetz00_1543/BgL_n2z00_1553); } } 
{ /* ./Ast/remove.scm 136 */
long BgL_restz00_1546;
{ /* ./Ast/remove.scm 136 */
int BgL_arg2024z00_1547;
BgL_arg2024z00_1547 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 136 */
long BgL_n2z00_1556;
BgL_n2z00_1556 = 
(long)(BgL_arg2024z00_1547); 
BgL_restz00_1546 = 
(BgL_offsetz00_1543%BgL_n2z00_1556); } } 
{ /* ./Ast/remove.scm 136 */

{ /* ./Ast/remove.scm 136 */
obj_t BgL_bucketz00_1548;
{ /* ./Ast/remove.scm 136 */
int BgL_kz00_1558;
BgL_kz00_1558 = 
(int)(BgL_modz00_1544); 
BgL_bucketz00_1548 = 
VECTOR_REF(BgL_arg2017z00_1539,BgL_kz00_1558); } 
{ /* ./Ast/remove.scm 136 */
int BgL_kz00_1560;
BgL_kz00_1560 = 
(int)(BgL_restz00_1546); 
BgL_method2671z00_1536 = 
VECTOR_REF(BgL_bucketz00_1548,BgL_kz00_1560); } } } } } } } } } } 
{ /* ./Ast/remove.scm 136 */
obj_t BgL_auxz00_3423;
BgL_auxz00_3423 = 
PROCEDURE_ENTRY(BgL_method2671z00_1536)(BgL_method2671z00_1536, 
(obj_t)(BgL_arg3248z00_1147), BEOA); 
BgL_res3642z00_1561 = 
(BgL_nodez00_bglt)(BgL_auxz00_3423); } } 
BgL_arg3245z00_1146 = BgL_res3642z00_1561; } } 
{ /* ./Ast/remove.scm 136 */
BgL_appzd2lyzd2_bglt BgL_obj1756z00_1562;BgL_nodez00_bglt BgL_val1755z00_1563;
BgL_obj1756z00_1562 = BgL_nodez00_1141; 
BgL_val1755z00_1563 = BgL_arg3245z00_1146; 
((((BgL_appzd2lyzd2_bglt)CREF(BgL_obj1756z00_1562))->BgL_argz00) = ((BgL_nodez00_bglt)BgL_val1755z00_1563), BUNSPEC); } } 
BgL_auxz00_3376 = BgL_nodez00_1141; 
return 
(obj_t)(BgL_auxz00_3376);} } } 
}



/* node-remove!-app2681 */
obj_t BGl_nodezd2removez12zd2app2681z12zzast_removez00(obj_t BgL_envz00_2361, obj_t BgL_nodez00_2362)
{ AN_OBJECT;
{ /* ./Ast/remove.scm 126 */
{ 
BgL_appz00_bglt BgL_nodez00_1133;
{ /* ./Ast/remove.scm 127 */
BgL_appz00_bglt BgL_auxz00_3431;
BgL_nodez00_1133 = 
(BgL_appz00_bglt)(BgL_nodez00_2362); 
{ /* ./Ast/remove.scm 127 */
BgL_nodez00_bglt BgL_arg3221z00_1136;
{ /* ./Ast/remove.scm 127 */
BgL_varz00_bglt BgL_arg3224z00_1137;
BgL_arg3224z00_1137 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1133))->BgL_funz00); 
{ /* ./Ast/remove.scm 127 */
BgL_nodez00_bglt BgL_res3636z00_1500;
{ /* ./Ast/remove.scm 127 */
BgL_nodez00_bglt BgL_nodez00_1474;
BgL_nodez00_1474 = 
(BgL_nodez00_bglt)(BgL_arg3224z00_1137); 
{ /* ./Ast/remove.scm 127 */
obj_t BgL_method2671z00_1475;
{ /* ./Ast/remove.scm 127 */
BgL_objectz00_bglt BgL_objz00_1476;
BgL_objz00_1476 = 
(BgL_objectz00_bglt)(BgL_nodez00_1474); 
{ /* ./Ast/remove.scm 127 */
long BgL_objzd2classzd2numz00_1477;
BgL_objzd2classzd2numz00_1477 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1476); 
{ /* ./Ast/remove.scm 127 */
obj_t BgL_arg2017z00_1478;
{ /* ./Ast/remove.scm 127 */
int BgL_auxz00_3436;
BgL_auxz00_3436 = 
(int)(((long)1)); 
BgL_arg2017z00_1478 = 
PROCEDURE_REF(BGl_nodezd2removez12zd2envz12zzast_removez00, BgL_auxz00_3436); } 
{ /* ./Ast/remove.scm 127 */
int BgL_offsetz00_1481;
BgL_offsetz00_1481 = 
(int)(BgL_objzd2classzd2numz00_1477); 
{ /* ./Ast/remove.scm 127 */
long BgL_offsetz00_1482;
{ /* ./Ast/remove.scm 127 */
long BgL_auxz00_3440;
BgL_auxz00_3440 = 
(long)(BgL_offsetz00_1481); 
BgL_offsetz00_1482 = 
(BgL_auxz00_3440-OBJECT_TYPE); } 
{ /* ./Ast/remove.scm 127 */
long BgL_modz00_1483;
{ /* ./Ast/remove.scm 127 */
int BgL_arg2028z00_1484;
BgL_arg2028z00_1484 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 127 */
long BgL_n2z00_1492;
BgL_n2z00_1492 = 
(long)(BgL_arg2028z00_1484); 
BgL_modz00_1483 = 
(BgL_offsetz00_1482/BgL_n2z00_1492); } } 
{ /* ./Ast/remove.scm 127 */
long BgL_restz00_1485;
{ /* ./Ast/remove.scm 127 */
int BgL_arg2024z00_1486;
BgL_arg2024z00_1486 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 127 */
long BgL_n2z00_1495;
BgL_n2z00_1495 = 
(long)(BgL_arg2024z00_1486); 
BgL_restz00_1485 = 
(BgL_offsetz00_1482%BgL_n2z00_1495); } } 
{ /* ./Ast/remove.scm 127 */

{ /* ./Ast/remove.scm 127 */
obj_t BgL_bucketz00_1487;
{ /* ./Ast/remove.scm 127 */
int BgL_kz00_1497;
BgL_kz00_1497 = 
(int)(BgL_modz00_1483); 
BgL_bucketz00_1487 = 
VECTOR_REF(BgL_arg2017z00_1478,BgL_kz00_1497); } 
{ /* ./Ast/remove.scm 127 */
int BgL_kz00_1499;
BgL_kz00_1499 = 
(int)(BgL_restz00_1485); 
BgL_method2671z00_1475 = 
VECTOR_REF(BgL_bucketz00_1487,BgL_kz00_1499); } } } } } } } } } } 
{ /* ./Ast/remove.scm 127 */
obj_t BgL_auxz00_3453;
BgL_auxz00_3453 = 
PROCEDURE_ENTRY(BgL_method2671z00_1475)(BgL_method2671z00_1475, 
(obj_t)(BgL_nodez00_1474), BEOA); 
BgL_res3636z00_1500 = 
(BgL_nodez00_bglt)(BgL_auxz00_3453); } } } 
BgL_arg3221z00_1136 = BgL_res3636z00_1500; } } 
{ /* ./Ast/remove.scm 127 */
BgL_appz00_bglt BgL_obj1721z00_1501;BgL_varz00_bglt BgL_val1720z00_1502;
BgL_obj1721z00_1501 = BgL_nodez00_1133; 
BgL_val1720z00_1502 = 
(BgL_varz00_bglt)(BgL_arg3221z00_1136); 
((((BgL_appz00_bglt)CREF(BgL_obj1721z00_1501))->BgL_funz00) = ((BgL_varz00_bglt)BgL_val1720z00_1502), BUNSPEC); } } 
{ /* ./Ast/remove.scm 128 */
obj_t BgL_arg3228z00_1138;
BgL_arg3228z00_1138 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1133))->BgL_argsz00); 
BGl_nodezd2removeza2z12z62zzast_removez00(BgL_arg3228z00_1138); } 
BgL_auxz00_3431 = BgL_nodez00_1133; 
return 
(obj_t)(BgL_auxz00_3431);} } } 
}



/* node-remove!-sequence2679 */
obj_t BGl_nodezd2removez12zd2sequence2679z12zzast_removez00(obj_t BgL_envz00_2363, obj_t BgL_nodez00_2364)
{ AN_OBJECT;
{ /* ./Ast/remove.scm 119 */
{ 
BgL_sequencez00_bglt BgL_nodez00_1127;
{ /* ./Ast/remove.scm 120 */
BgL_sequencez00_bglt BgL_auxz00_3464;
BgL_nodez00_1127 = 
(BgL_sequencez00_bglt)(BgL_nodez00_2364); 
{ /* ./Ast/remove.scm 120 */
obj_t BgL_arg3211z00_1471;
BgL_arg3211z00_1471 = 
(((BgL_sequencez00_bglt)CREF(BgL_nodez00_1127))->BgL_nodesz00); 
BGl_nodezd2removeza2z12z62zzast_removez00(BgL_arg3211z00_1471); } 
BgL_auxz00_3464 = BgL_nodez00_1127; 
return 
(obj_t)(BgL_auxz00_3464);} } } 
}



/* node-remove!-kwote2677 */
obj_t BGl_nodezd2removez12zd2kwote2677z12zzast_removez00(obj_t BgL_envz00_2365, obj_t BgL_nodez00_2366)
{ AN_OBJECT;
{ /* ./Ast/remove.scm 113 */
{ /* ./Ast/remove.scm 114 */
BgL_kwotez00_bglt BgL_auxz00_3469;
BgL_auxz00_3469 = 
(BgL_kwotez00_bglt)(BgL_nodez00_2366); 
return 
(obj_t)(BgL_auxz00_3469);} } 
}



/* node-remove!-var2675 */
obj_t BGl_nodezd2removez12zd2var2675z12zzast_removez00(obj_t BgL_envz00_2367, obj_t BgL_nodez00_2368)
{ AN_OBJECT;
{ /* ./Ast/remove.scm 107 */
{ /* ./Ast/remove.scm 108 */
BgL_varz00_bglt BgL_auxz00_3472;
BgL_auxz00_3472 = 
(BgL_varz00_bglt)(BgL_nodez00_2368); 
return 
(obj_t)(BgL_auxz00_3472);} } 
}



/* node-remove!-atom2673 */
obj_t BGl_nodezd2removez12zd2atom2673z12zzast_removez00(obj_t BgL_envz00_2369, obj_t BgL_nodez00_2370)
{ AN_OBJECT;
{ /* ./Ast/remove.scm 101 */
{ /* ./Ast/remove.scm 102 */
BgL_atomz00_bglt BgL_auxz00_3475;
BgL_auxz00_3475 = 
(BgL_atomz00_bglt)(BgL_nodez00_2370); 
return 
(obj_t)(BgL_auxz00_3475);} } 
}



/* node-remove! */
BgL_nodez00_bglt BGl_nodezd2removez12zc0zzast_removez00(BgL_nodez00_bglt BgL_nodez00_5)
{ AN_OBJECT;
{ /* ./Ast/remove.scm 96 */
{ /* ./Ast/remove.scm 96 */
obj_t BgL_method2671z00_2275;
{ /* ./Ast/remove.scm 96 */
BgL_objectz00_bglt BgL_objz00_2276;
BgL_objz00_2276 = 
(BgL_objectz00_bglt)(BgL_nodez00_5); 
{ /* ./Ast/remove.scm 96 */
long BgL_objzd2classzd2numz00_2277;
BgL_objzd2classzd2numz00_2277 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2276); 
{ /* ./Ast/remove.scm 96 */
obj_t BgL_arg2017z00_2278;
{ /* ./Ast/remove.scm 96 */
int BgL_auxz00_3480;
BgL_auxz00_3480 = 
(int)(((long)1)); 
BgL_arg2017z00_2278 = 
PROCEDURE_REF(BGl_nodezd2removez12zd2envz12zzast_removez00, BgL_auxz00_3480); } 
{ /* ./Ast/remove.scm 96 */
int BgL_offsetz00_2281;
BgL_offsetz00_2281 = 
(int)(BgL_objzd2classzd2numz00_2277); 
{ /* ./Ast/remove.scm 96 */
long BgL_offsetz00_2282;
{ /* ./Ast/remove.scm 96 */
long BgL_auxz00_3484;
BgL_auxz00_3484 = 
(long)(BgL_offsetz00_2281); 
BgL_offsetz00_2282 = 
(BgL_auxz00_3484-OBJECT_TYPE); } 
{ /* ./Ast/remove.scm 96 */
long BgL_modz00_2283;
{ /* ./Ast/remove.scm 96 */
int BgL_arg2028z00_2284;
BgL_arg2028z00_2284 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 96 */
long BgL_n2z00_2292;
BgL_n2z00_2292 = 
(long)(BgL_arg2028z00_2284); 
BgL_modz00_2283 = 
(BgL_offsetz00_2282/BgL_n2z00_2292); } } 
{ /* ./Ast/remove.scm 96 */
long BgL_restz00_2285;
{ /* ./Ast/remove.scm 96 */
int BgL_arg2024z00_2286;
BgL_arg2024z00_2286 = 
(int)(((long)8)); 
{ /* ./Ast/remove.scm 96 */
long BgL_n2z00_2295;
BgL_n2z00_2295 = 
(long)(BgL_arg2024z00_2286); 
BgL_restz00_2285 = 
(BgL_offsetz00_2282%BgL_n2z00_2295); } } 
{ /* ./Ast/remove.scm 96 */

{ /* ./Ast/remove.scm 96 */
obj_t BgL_bucketz00_2287;
{ /* ./Ast/remove.scm 96 */
int BgL_kz00_2297;
BgL_kz00_2297 = 
(int)(BgL_modz00_2283); 
BgL_bucketz00_2287 = 
VECTOR_REF(BgL_arg2017z00_2278,BgL_kz00_2297); } 
{ /* ./Ast/remove.scm 96 */
int BgL_kz00_2299;
BgL_kz00_2299 = 
(int)(BgL_restz00_2285); 
BgL_method2671z00_2275 = 
VECTOR_REF(BgL_bucketz00_2287,BgL_kz00_2299); } } } } } } } } } } 
{ /* ./Ast/remove.scm 96 */
obj_t BgL_auxz00_3497;
BgL_auxz00_3497 = 
PROCEDURE_ENTRY(BgL_method2671z00_2275)(BgL_method2671z00_2275, 
(obj_t)(BgL_nodez00_5), BEOA); 
return 
(BgL_nodez00_bglt)(BgL_auxz00_3497);} } } 
}



/* _node-remove! */
obj_t BGl__nodezd2removez12zc0zzast_removez00(obj_t BgL_envz00_2309, obj_t BgL_nodez00_2310)
{ AN_OBJECT;
{ /* ./Ast/remove.scm 96 */
{ /* ./Ast/remove.scm 96 */
BgL_nodez00_bglt BgL_auxz00_3502;
BgL_auxz00_3502 = 
BGl_nodezd2removez12zc0zzast_removez00(
(BgL_nodez00_bglt)(BgL_nodez00_2310)); 
return 
(obj_t)(BgL_auxz00_3502);} } 
}



/* node-remove!-default2670 */
BgL_nodez00_bglt BGl_nodezd2removez12zd2default2670z12zzast_removez00(BgL_nodez00_bglt BgL_nodez00_6)
{ AN_OBJECT;
{ /* ./Ast/remove.scm 16 */
{ /* ./Ast/remove.scm 16 */
obj_t BgL_procz00_2300;obj_t BgL_objectz00_2302;
BgL_procz00_2300 = 
CNST_TABLE_REF(((long)5)); 
BgL_objectz00_2302 = 
(obj_t)(BgL_nodez00_6); 
FAILURE(BgL_procz00_2300,BGl_string4249z00zzast_removez00,BgL_objectz00_2302);} } 
}



/* _node-remove!-default2670 */
obj_t BGl__nodezd2removez12zd2default2670z12zzast_removez00(obj_t BgL_envz00_2371, obj_t BgL_nodez00_2372)
{ AN_OBJECT;
{ /* ./Ast/remove.scm 16 */
{ /* ./Ast/remove.scm 16 */
BgL_nodez00_bglt BgL_auxz00_3509;
BgL_auxz00_3509 = 
BGl_nodezd2removez12zd2default2670z12zzast_removez00(
(BgL_nodez00_bglt)(BgL_nodez00_2372)); 
return 
(obj_t)(BgL_auxz00_3509);} } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzast_removez00()
{ AN_OBJECT;
{ /* ./Ast/remove.scm 16 */
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "ast_remove"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "ast_remove"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "ast_remove"); 
BGl_modulezd2initializa7ationz75zztools_errorz00(((long)25566), "ast_remove"); 
BGl_modulezd2initializa7ationz75zztools_speekz00(((long)23537), "ast_remove"); 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "ast_remove"); 
BGl_modulezd2initializa7ationz75zzeffect_effectz00(((long)14017), "ast_remove"); 
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long)14260), "ast_remove"); 
return 
BGl_modulezd2initializa7ationz75zzast_occurz00(((long)28605), "ast_remove");} 
}

