/*===========================================================================*/
/*   (Ast/shrinkify.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/shrinkify.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_shrinkifyz00();
BGL_IMPORT obj_t open_input_string(obj_t);
static obj_t BGl_shrinkzd2nodez12zd2select2720z12zzast_shrinkifyz00(obj_t, obj_t);
BGL_IMPORT long BGl_classzd2numzd2zz__objectz00(obj_t);
static obj_t BGl_shrinkzd2nodez12zd2letzd2fun2728zc0zzast_shrinkifyz00(obj_t, obj_t);
extern obj_t BGl_letzd2funzd2zzast_nodez00;
static obj_t BGl_shrinkzd2nodez12zc0zzast_shrinkifyz00(BgL_nodez00_bglt);
static obj_t BGl_shrinkzd2variablez12zc0zzast_shrinkifyz00(BgL_variablez00_bglt);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
static obj_t BGl_shrinkzd2nodez12zd2default2693z12zzast_shrinkifyz00(BgL_nodez00_bglt);
BGL_IMPORT obj_t BGl_addzd2genericz12zc0zz__objectz00(obj_t, obj_t);
static obj_t BGl_shrinkzd2nodez12zd2letzd2var2731zc0zzast_shrinkifyz00(obj_t, obj_t);
extern obj_t BGl_letzd2varzd2zzast_nodez00;
static obj_t BGl_shrinkzd2nodez12zd2sequence2702z12zzast_shrinkifyz00(obj_t, obj_t);
extern obj_t BGl_kwotez00zzast_nodez00;
static obj_t BGl_shrinkzd2nodez12zd2var2698z12zzast_shrinkifyz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_za2classesza2z00zz__objectz00;
static obj_t BGl_shrinkzd2nodez12zd2setq2714z12zzast_shrinkifyz00(obj_t, obj_t);
extern obj_t BGl_castz00zzast_nodez00;
extern obj_t BGl_boxzd2refzd2zzast_nodez00;
extern obj_t BGl_varz00zzast_nodez00;
static obj_t BGl_cnstzd2initzd2zzast_shrinkifyz00();
extern obj_t BGl_atomz00zzast_nodez00;
extern obj_t BGl_failz00zzast_nodez00;
extern obj_t BGl_funcallz00zzast_nodez00;
static obj_t BGl_importedzd2moduleszd2initz00zzast_shrinkifyz00();
BGL_EXPORTED_DECL obj_t BGl_shrinkifyz12z12zzast_shrinkifyz00(obj_t);
extern obj_t BGl_makezd2boxzd2zzast_nodez00;
static obj_t BGl_shrinkzd2nodez12zd2atom2696z12zzast_shrinkifyz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
static obj_t BGl__shrinkzd2nodez12zd2default2693z12zzast_shrinkifyz00(obj_t, obj_t);
extern obj_t BGl_selectz00zzast_nodez00;
static obj_t BGl_shrinkzd2nodez12zd2extern2710z12zzast_shrinkifyz00(obj_t, obj_t);
static obj_t BGl_toplevelzd2initzd2zzast_shrinkifyz00();
extern obj_t BGl_appzd2lyzd2zzast_nodez00;
static obj_t BGl_shrinkzd2nodez12zd2appzd2ly2706zc0zzast_shrinkifyz00(obj_t, obj_t);
extern obj_t BGl_boxzd2setz12zc0zzast_nodez00;
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzast_shrinkifyz00(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_modulezd2initializa7ationz75zzast_envz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
static obj_t BGl_shrinkzd2variablez12zd2default2691z12zzast_shrinkifyz00(BgL_variablez00_bglt);
static obj_t BGl_shrinkzd2nodez12zd2boxzd2ref2724zc0zzast_shrinkifyz00(obj_t, obj_t);
static obj_t BGl_shrinkzd2nodez12zd2makezd2box2722zc0zzast_shrinkifyz00(obj_t, obj_t);
static obj_t BGl_shrinkzd2nodez12zd2jumpzd2exzd2it2735z12zzast_shrinkifyz00(obj_t, obj_t);
extern obj_t BGl_setzd2exzd2itz00zzast_nodez00;
static obj_t BGl__shrinkzd2variablez12zc0zzast_shrinkifyz00(obj_t, obj_t);
static obj_t BGl_shrinkzd2nodez12zd2fail2718z12zzast_shrinkifyz00(obj_t, obj_t);
static obj_t BGl__shrinkifyz12z12zzast_shrinkifyz00(obj_t, obj_t);
static obj_t BGl_shrinkzd2nodez12zd2app2704z12zzast_shrinkifyz00(obj_t, obj_t);
extern obj_t BGl_forzd2eachzd2globalz12z12zzast_envz00(obj_t);
extern obj_t BGl_jumpzd2exzd2itz00zzast_nodez00;
static obj_t BGl__shrinkzd2variablez12zd2default2691z12zzast_shrinkifyz00(obj_t, obj_t);
extern obj_t BGl_externz00zzast_nodez00;
extern obj_t BGl_conditionalz00zzast_nodez00;
extern obj_t BGl_sequencez00zzast_nodez00;
extern obj_t BGl_appz00zzast_nodez00;
static obj_t BGl_shrinkzd2nodez12zd2conditional2716z12zzast_shrinkifyz00(obj_t, obj_t);
static bool_t BGl_shrinkzd2nodeza2z12z62zzast_shrinkifyz00(obj_t);
static obj_t BGl_shrinkzd2nodez12zd2kwote2700z12zzast_shrinkifyz00(obj_t, obj_t);
static obj_t BGl_shrinkzd2nodez12zd2funcall2708z12zzast_shrinkifyz00(obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzast_shrinkifyz00 = BUNSPEC;
static obj_t BGl_shrinkzd2nodez12zd2boxzd2setz122726zd2zzast_shrinkifyz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_classzd2superzd2zz__objectz00(obj_t);
static obj_t BGl_shrinkzd2nodez12zd2cast2712z12zzast_shrinkifyz00(obj_t, obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzast_shrinkifyz00();
static obj_t BGl__shrinkzd2nodez12zc0zzast_shrinkifyz00(obj_t, obj_t);
static obj_t BGl_shrinkzd2nodez12zd2setzd2exzd2it2733z12zzast_shrinkifyz00(obj_t, obj_t);
extern obj_t BGl_setqz00zzast_nodez00;
static obj_t __cnst[ 1 ] ;


DEFINE_STATIC_GENERIC( BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BgL_bgl__shrinkza7d2nodeza712za7c0za7za7ast_shrinkifyza7004228z00, BGl__shrinkzd2nodez12zc0zzast_shrinkifyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4178z00zzast_shrinkifyz00, BgL_bgl_shrinkza7d2nodeza712za7d2atom2696za712za7za7ast_shrinkifyza7004229za7, BGl_shrinkzd2nodez12zd2atom2696z12zzast_shrinkifyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4180z00zzast_shrinkifyz00, BgL_bgl_shrinkza7d2nodeza712za7d2kwote2700za712za7za7ast_shrinkifyza7004230za7, BGl_shrinkzd2nodez12zd2kwote2700z12zzast_shrinkifyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4179z00zzast_shrinkifyz00, BgL_bgl_shrinkza7d2nodeza712za7d2var2698za712za7za7ast_shrinkifyza7004231za7, BGl_shrinkzd2nodez12zd2var2698z12zzast_shrinkifyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4181z00zzast_shrinkifyz00, BgL_bgl_shrinkza7d2nodeza712za7d2sequence2702za712za7za7ast_shrinkifyza7004232za7, BGl_shrinkzd2nodez12zd2sequence2702z12zzast_shrinkifyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4182z00zzast_shrinkifyz00, BgL_bgl_shrinkza7d2nodeza712za7d2app2704za712za7za7ast_shrinkifyza7004233za7, BGl_shrinkzd2nodez12zd2app2704z12zzast_shrinkifyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4183z00zzast_shrinkifyz00, BgL_bgl_shrinkza7d2nodeza712za7d2appza7d2ly2706za7c0za7za7ast_shrinkifyza7004234z00, BGl_shrinkzd2nodez12zd2appzd2ly2706zc0zzast_shrinkifyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4184z00zzast_shrinkifyz00, BgL_bgl_shrinkza7d2nodeza712za7d2funcall2708za712za7za7ast_shrinkifyza7004235za7, BGl_shrinkzd2nodez12zd2funcall2708z12zzast_shrinkifyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4185z00zzast_shrinkifyz00, BgL_bgl_shrinkza7d2nodeza712za7d2extern2710za712za7za7ast_shrinkifyza7004236za7, BGl_shrinkzd2nodez12zd2extern2710z12zzast_shrinkifyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4186z00zzast_shrinkifyz00, BgL_bgl_shrinkza7d2nodeza712za7d2cast2712za712za7za7ast_shrinkifyza7004237za7, BGl_shrinkzd2nodez12zd2cast2712z12zzast_shrinkifyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4187z00zzast_shrinkifyz00, BgL_bgl_shrinkza7d2nodeza712za7d2setq2714za712za7za7ast_shrinkifyza7004238za7, BGl_shrinkzd2nodez12zd2setq2714z12zzast_shrinkifyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4188z00zzast_shrinkifyz00, BgL_bgl_shrinkza7d2nodeza712za7d2conditional2716za712za7za7ast_shrinkifyza7004239za7, BGl_shrinkzd2nodez12zd2conditional2716z12zzast_shrinkifyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4190z00zzast_shrinkifyz00, BgL_bgl_shrinkza7d2nodeza712za7d2select2720za712za7za7ast_shrinkifyza7004240za7, BGl_shrinkzd2nodez12zd2select2720z12zzast_shrinkifyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4189z00zzast_shrinkifyz00, BgL_bgl_shrinkza7d2nodeza712za7d2fail2718za712za7za7ast_shrinkifyza7004241za7, BGl_shrinkzd2nodez12zd2fail2718z12zzast_shrinkifyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4191z00zzast_shrinkifyz00, BgL_bgl_shrinkza7d2nodeza712za7d2makeza7d2box2722za7c0za7za7ast_shrinkifyza7004242z00, BGl_shrinkzd2nodez12zd2makezd2box2722zc0zzast_shrinkifyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4192z00zzast_shrinkifyz00, BgL_bgl_shrinkza7d2nodeza712za7d2boxza7d2ref2724za7c0za7za7ast_shrinkifyza7004243z00, BGl_shrinkzd2nodez12zd2boxzd2ref2724zc0zzast_shrinkifyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4193z00zzast_shrinkifyz00, BgL_bgl_shrinkza7d2nodeza712za7d2boxza7d2setza7122726za7d2za7za7ast_shrinkifyza7004244za7, BGl_shrinkzd2nodez12zd2boxzd2setz122726zd2zzast_shrinkifyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4194z00zzast_shrinkifyz00, BgL_bgl_shrinkza7d2nodeza712za7d2letza7d2fun2728za7c0za7za7ast_shrinkifyza7004245z00, BGl_shrinkzd2nodez12zd2letzd2fun2728zc0zzast_shrinkifyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4195z00zzast_shrinkifyz00, BgL_bgl_shrinkza7d2nodeza712za7d2letza7d2var2731za7c0za7za7ast_shrinkifyza7004246z00, BGl_shrinkzd2nodez12zd2letzd2var2731zc0zzast_shrinkifyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4196z00zzast_shrinkifyz00, BgL_bgl_shrinkza7d2nodeza712za7d2setza7d2exza7d2it2733za712za7za7ast_shrinkifyza7004247za7, BGl_shrinkzd2nodez12zd2setzd2exzd2it2733z12zzast_shrinkifyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4197z00zzast_shrinkifyz00, BgL_bgl_shrinkza7d2nodeza712za7d2jumpza7d2exza7d2it2735za712za7za7ast_shrinkifyza7004248za7, BGl_shrinkzd2nodez12zd2jumpzd2exzd2it2735z12zzast_shrinkifyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_shrinkzd2nodez12zd2default2693zd2envzc0zzast_shrinkifyz00, BgL_bgl__shrinkza7d2nodeza712za7d2default2693za712za7za7ast_shrinkifyza7004249za7, BGl__shrinkzd2nodez12zd2default2693z12zzast_shrinkifyz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_shrinkifyz12zd2envzc0zzast_shrinkifyz00, BgL_bgl__shrinkifyza712za712za7za7ast_shrinkifyza7004250za7, BGl__shrinkifyz12z12zzast_shrinkifyz00, 0L, 1 );
DEFINE_STRING( BGl_string4199z00zzast_shrinkifyz00, BgL_bgl_string4199za700za7za7ast_shrinkifyza7004251z00, "shrink-node!-default2693 ", 25 );
DEFINE_STRING( BGl_string4198z00zzast_shrinkifyz00, BgL_bgl_string4198za700za7za7ast_shrinkifyza7004252z00, "No method for this object", 25 );
DEFINE_STATIC_PROCEDURE( BGl_shrinkzd2variablez12zd2default2691zd2envzc0zzast_shrinkifyz00, BgL_bgl__shrinkza7d2variableza712za7d2default2691za712za7za7ast_shrinkifyza7004253za7, BGl__shrinkzd2variablez12zd2default2691z12zzast_shrinkifyz00, 0L, 1 );
DEFINE_STATIC_GENERIC( BGl_shrinkzd2variablez12zd2envz12zzast_shrinkifyz00, BgL_bgl__shrinkza7d2variableza712za7c0za7za7ast_shrinkifyza7004254z00, BGl__shrinkzd2variablez12zc0zzast_shrinkifyz00, 0L, 1 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzast_shrinkifyz00(long BgL_checksumz00_2476, char * BgL_fromz00_2477)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzast_shrinkifyz00))
{ 
BGl_requirezd2initializa7ationz75zzast_shrinkifyz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzast_shrinkifyz00(); 
BGl_cnstzd2initzd2zzast_shrinkifyz00(); 
BGl_importedzd2moduleszd2initz00zzast_shrinkifyz00(); 
BGl_methodzd2initzd2zzast_shrinkifyz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzast_shrinkifyz00()
{ AN_OBJECT;
{ /* ./Ast/shrinkify.scm 15 */
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "ast_shrinkify"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "ast_shrinkify"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzast_shrinkifyz00()
{ AN_OBJECT;
{ /* ./Ast/shrinkify.scm 15 */
{ /* ./Ast/shrinkify.scm 15 */
obj_t BgL_cportz00_2463;
BgL_cportz00_2463 = 
open_input_string(BGl_string4199z00zzast_shrinkifyz00); 
{ 
long BgL_iz00_2464;
BgL_iz00_2464 = ((long)0); 
BgL_loopz00_2465:
{ /* ./Ast/shrinkify.scm 15 */
bool_t BgL_test4201z00_2466;
BgL_test4201z00_2466 = 
(BgL_iz00_2464==((long)-1)); 
if(BgL_test4201z00_2466)
{ /* ./Ast/shrinkify.scm 15 */
return BUNSPEC;}  else 
{ /* ./Ast/shrinkify.scm 15 */
{ /* ./Ast/shrinkify.scm 15 */
obj_t BgL_arg4203z00_2467;
{ /* ./Ast/shrinkify.scm 15 */
obj_t BgL_list4206z00_2468;
BgL_list4206z00_2468 = 
MAKE_PAIR(BgL_cportz00_2463, BNIL); 
BgL_arg4203z00_2467 = 
BGl_readz00zz__readerz00(BgL_list4206z00_2468); } 
{ /* ./Ast/shrinkify.scm 15 */
int BgL_auxz00_2492;
BgL_auxz00_2492 = 
(int)(BgL_iz00_2464); 
CNST_TABLE_SET(BgL_auxz00_2492, BgL_arg4203z00_2467); } } 
{ /* ./Ast/shrinkify.scm 15 */
int BgL_auxz00_2469;
{ /* ./Ast/shrinkify.scm 15 */
long BgL_auxz00_2495;
BgL_auxz00_2495 = 
(BgL_iz00_2464-((long)1)); 
BgL_auxz00_2469 = 
(int)(BgL_auxz00_2495); } 
{ 
long BgL_iz00_2498;
BgL_iz00_2498 = 
(long)(BgL_auxz00_2469); 
BgL_iz00_2464 = BgL_iz00_2498; 
goto BgL_loopz00_2465;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzast_shrinkifyz00()
{ AN_OBJECT;
{ /* ./Ast/shrinkify.scm 15 */
return BUNSPEC;} 
}



/* shrinkify! */
BGL_EXPORTED_DEF obj_t BGl_shrinkifyz12z12zzast_shrinkifyz00(obj_t BgL_globalsz00_1)
{ AN_OBJECT;
{ /* ./Ast/shrinkify.scm 25 */
BGl_forzd2eachzd2globalz12z12zzast_envz00(BGl_shrinkzd2variablez12zd2envz12zzast_shrinkifyz00); 
{ 
obj_t BgL_l2662z00_684;
BgL_l2662z00_684 = BgL_globalsz00_1; 
BgL_forzd2each2663zd2_685:
{ /* ./Ast/shrinkify.scm 27 */
bool_t BgL_test2738z00_686;
BgL_test2738z00_686 = 
PAIRP(BgL_l2662z00_684); 
if(BgL_test2738z00_686)
{ /* ./Ast/shrinkify.scm 27 */
{ /* ./Ast/shrinkify.scm 28 */
obj_t BgL_globalz00_687;
BgL_globalz00_687 = 
CAR(BgL_l2662z00_684); 
{ /* ./Ast/shrinkify.scm 28 */
BgL_valuez00_bglt BgL_sfunz00_688;
{ /* ./Ast/shrinkify.scm 28 */
BgL_variablez00_bglt BgL_obj1100z00_1270;
BgL_obj1100z00_1270 = 
(BgL_variablez00_bglt)(BgL_globalz00_687); 
BgL_sfunz00_688 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1270))->BgL_valuez00); } 
{ 
obj_t BgL_l2664z00_689;
{ /* ./Ast/shrinkify.scm 29 */
obj_t BgL_arg2740z00_691;
{ /* ./Ast/shrinkify.scm 29 */
BgL_sfunz00_bglt BgL_obj1367z00_1271;
BgL_obj1367z00_1271 = 
(BgL_sfunz00_bglt)(BgL_sfunz00_688); 
BgL_arg2740z00_691 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1367z00_1271))->BgL_argsz00); } 
BgL_l2664z00_689 = BgL_arg2740z00_691; 
BgL_forzd2each2665zd2_690:
{ /* ./Ast/shrinkify.scm 29 */
bool_t BgL_test2743z00_692;
BgL_test2743z00_692 = 
PAIRP(BgL_l2664z00_689); 
if(BgL_test2743z00_692)
{ /* ./Ast/shrinkify.scm 29 */
{ /* ./Ast/shrinkify.scm 29 */
obj_t BgL_arg2745z00_693;
BgL_arg2745z00_693 = 
CAR(BgL_l2664z00_689); 
{ /* ./Ast/shrinkify.scm 29 */
BgL_variablez00_bglt BgL_variablez00_1274;
BgL_variablez00_1274 = 
(BgL_variablez00_bglt)(BgL_arg2745z00_693); 
{ /* ./Ast/shrinkify.scm 29 */
obj_t BgL_method2692z00_1275;
{ /* ./Ast/shrinkify.scm 29 */
BgL_objectz00_bglt BgL_objz00_1276;
BgL_objz00_1276 = 
(BgL_objectz00_bglt)(BgL_variablez00_1274); 
{ /* ./Ast/shrinkify.scm 29 */
long BgL_objzd2classzd2numz00_1277;
BgL_objzd2classzd2numz00_1277 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1276); 
{ /* ./Ast/shrinkify.scm 29 */
obj_t BgL_arg2017z00_1278;
{ /* ./Ast/shrinkify.scm 29 */
int BgL_auxz00_2514;
BgL_auxz00_2514 = 
(int)(((long)1)); 
BgL_arg2017z00_1278 = 
PROCEDURE_REF(BGl_shrinkzd2variablez12zd2envz12zzast_shrinkifyz00, BgL_auxz00_2514); } 
{ /* ./Ast/shrinkify.scm 29 */
int BgL_offsetz00_1281;
BgL_offsetz00_1281 = 
(int)(BgL_objzd2classzd2numz00_1277); 
{ /* ./Ast/shrinkify.scm 29 */
long BgL_offsetz00_1282;
{ /* ./Ast/shrinkify.scm 29 */
long BgL_auxz00_2518;
BgL_auxz00_2518 = 
(long)(BgL_offsetz00_1281); 
BgL_offsetz00_1282 = 
(BgL_auxz00_2518-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 29 */
long BgL_modz00_1283;
{ /* ./Ast/shrinkify.scm 29 */
int BgL_arg2028z00_1284;
BgL_arg2028z00_1284 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 29 */
long BgL_n2z00_1292;
BgL_n2z00_1292 = 
(long)(BgL_arg2028z00_1284); 
BgL_modz00_1283 = 
(BgL_offsetz00_1282/BgL_n2z00_1292); } } 
{ /* ./Ast/shrinkify.scm 29 */
long BgL_restz00_1285;
{ /* ./Ast/shrinkify.scm 29 */
int BgL_arg2024z00_1286;
BgL_arg2024z00_1286 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 29 */
long BgL_n2z00_1295;
BgL_n2z00_1295 = 
(long)(BgL_arg2024z00_1286); 
BgL_restz00_1285 = 
(BgL_offsetz00_1282%BgL_n2z00_1295); } } 
{ /* ./Ast/shrinkify.scm 29 */

{ /* ./Ast/shrinkify.scm 29 */
obj_t BgL_bucketz00_1287;
{ /* ./Ast/shrinkify.scm 29 */
int BgL_kz00_1297;
BgL_kz00_1297 = 
(int)(BgL_modz00_1283); 
BgL_bucketz00_1287 = 
VECTOR_REF(BgL_arg2017z00_1278,BgL_kz00_1297); } 
{ /* ./Ast/shrinkify.scm 29 */
int BgL_kz00_1299;
BgL_kz00_1299 = 
(int)(BgL_restz00_1285); 
BgL_method2692z00_1275 = 
VECTOR_REF(BgL_bucketz00_1287,BgL_kz00_1299); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method2692z00_1275)(BgL_method2692z00_1275, 
(obj_t)(BgL_variablez00_1274), BEOA); } } } 
{ /* ./Ast/shrinkify.scm 29 */
obj_t BgL_arg2749z00_694;
BgL_arg2749z00_694 = 
CDR(BgL_l2664z00_689); 
{ 
obj_t BgL_l2664z00_2535;
BgL_l2664z00_2535 = BgL_arg2749z00_694; 
BgL_l2664z00_689 = BgL_l2664z00_2535; 
goto BgL_forzd2each2665zd2_690;} } }  else 
{ /* ./Ast/shrinkify.scm 29 */((bool_t)1); } } } } 
{ /* ./Ast/shrinkify.scm 30 */
obj_t BgL_arg2754z00_695;
{ /* ./Ast/shrinkify.scm 30 */
BgL_sfunz00_bglt BgL_obj1370z00_1302;
{ /* ./Ast/shrinkify.scm 30 */
BgL_valuez00_bglt BgL_auxz00_2536;
{ /* ./Ast/shrinkify.scm 30 */
BgL_variablez00_bglt BgL_obj1100z00_1301;
BgL_obj1100z00_1301 = 
(BgL_variablez00_bglt)(BgL_globalz00_687); 
BgL_auxz00_2536 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1301))->BgL_valuez00); } 
BgL_obj1370z00_1302 = 
(BgL_sfunz00_bglt)(BgL_auxz00_2536); } 
BgL_arg2754z00_695 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_1302))->BgL_bodyz00); } 
{ /* ./Ast/shrinkify.scm 30 */
obj_t BgL_res3529z00_1329;
{ /* ./Ast/shrinkify.scm 30 */
BgL_nodez00_bglt BgL_nodez00_1303;
BgL_nodez00_1303 = 
(BgL_nodez00_bglt)(BgL_arg2754z00_695); 
{ /* ./Ast/shrinkify.scm 30 */
obj_t BgL_method2694z00_1304;
{ /* ./Ast/shrinkify.scm 30 */
BgL_objectz00_bglt BgL_objz00_1305;
BgL_objz00_1305 = 
(BgL_objectz00_bglt)(BgL_nodez00_1303); 
{ /* ./Ast/shrinkify.scm 30 */
long BgL_objzd2classzd2numz00_1306;
BgL_objzd2classzd2numz00_1306 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1305); 
{ /* ./Ast/shrinkify.scm 30 */
obj_t BgL_arg2017z00_1307;
{ /* ./Ast/shrinkify.scm 30 */
int BgL_auxz00_2544;
BgL_auxz00_2544 = 
(int)(((long)1)); 
BgL_arg2017z00_1307 = 
PROCEDURE_REF(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BgL_auxz00_2544); } 
{ /* ./Ast/shrinkify.scm 30 */
int BgL_offsetz00_1310;
BgL_offsetz00_1310 = 
(int)(BgL_objzd2classzd2numz00_1306); 
{ /* ./Ast/shrinkify.scm 30 */
long BgL_offsetz00_1311;
{ /* ./Ast/shrinkify.scm 30 */
long BgL_auxz00_2548;
BgL_auxz00_2548 = 
(long)(BgL_offsetz00_1310); 
BgL_offsetz00_1311 = 
(BgL_auxz00_2548-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 30 */
long BgL_modz00_1312;
{ /* ./Ast/shrinkify.scm 30 */
int BgL_arg2028z00_1313;
BgL_arg2028z00_1313 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 30 */
long BgL_n2z00_1321;
BgL_n2z00_1321 = 
(long)(BgL_arg2028z00_1313); 
BgL_modz00_1312 = 
(BgL_offsetz00_1311/BgL_n2z00_1321); } } 
{ /* ./Ast/shrinkify.scm 30 */
long BgL_restz00_1314;
{ /* ./Ast/shrinkify.scm 30 */
int BgL_arg2024z00_1315;
BgL_arg2024z00_1315 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 30 */
long BgL_n2z00_1324;
BgL_n2z00_1324 = 
(long)(BgL_arg2024z00_1315); 
BgL_restz00_1314 = 
(BgL_offsetz00_1311%BgL_n2z00_1324); } } 
{ /* ./Ast/shrinkify.scm 30 */

{ /* ./Ast/shrinkify.scm 30 */
obj_t BgL_bucketz00_1316;
{ /* ./Ast/shrinkify.scm 30 */
int BgL_kz00_1326;
BgL_kz00_1326 = 
(int)(BgL_modz00_1312); 
BgL_bucketz00_1316 = 
VECTOR_REF(BgL_arg2017z00_1307,BgL_kz00_1326); } 
{ /* ./Ast/shrinkify.scm 30 */
int BgL_kz00_1328;
BgL_kz00_1328 = 
(int)(BgL_restz00_1314); 
BgL_method2694z00_1304 = 
VECTOR_REF(BgL_bucketz00_1316,BgL_kz00_1328); } } } } } } } } } } 
{ /* ./Ast/shrinkify.scm 30 */
obj_t BgL_xz00_2434;
BgL_xz00_2434 = 
PROCEDURE_ENTRY(BgL_method2694z00_1304)(BgL_method2694z00_1304, 
(obj_t)(BgL_nodez00_1303), BEOA); 
BgL_res3529z00_1329 = BUNSPEC; } } } BgL_res3529z00_1329; } } } } 
{ /* ./Ast/shrinkify.scm 27 */
obj_t BgL_arg2763z00_697;
BgL_arg2763z00_697 = 
CDR(BgL_l2662z00_684); 
{ 
obj_t BgL_l2662z00_2565;
BgL_l2662z00_2565 = BgL_arg2763z00_697; 
BgL_l2662z00_684 = BgL_l2662z00_2565; 
goto BgL_forzd2each2663zd2_685;} } }  else 
{ /* ./Ast/shrinkify.scm 27 */((bool_t)1); } } } 
return BgL_globalsz00_1;} 
}



/* _shrinkify! */
obj_t BGl__shrinkifyz12z12zzast_shrinkifyz00(obj_t BgL_envz00_2364, obj_t BgL_globalsz00_2365)
{ AN_OBJECT;
{ /* ./Ast/shrinkify.scm 25 */
return 
BGl_shrinkifyz12z12zzast_shrinkifyz00(BgL_globalsz00_2365);} 
}



/* shrink-node*! */
bool_t BGl_shrinkzd2nodeza2z12z62zzast_shrinkifyz00(obj_t BgL_nodeza2za2_26)
{ AN_OBJECT;
{ /* ./Ast/shrinkify.scm 221 */
{ 
obj_t BgL_l2689z00_698;
BgL_l2689z00_698 = BgL_nodeza2za2_26; 
BgL_forzd2each2690zd2_699:
{ /* ./Ast/shrinkify.scm 222 */
bool_t BgL_test2768z00_700;
BgL_test2768z00_700 = 
PAIRP(BgL_l2689z00_698); 
if(BgL_test2768z00_700)
{ /* ./Ast/shrinkify.scm 222 */
{ /* ./Ast/shrinkify.scm 222 */
obj_t BgL_arg2770z00_701;
BgL_arg2770z00_701 = 
CAR(BgL_l2689z00_698); 
{ /* ./Ast/shrinkify.scm 222 */
obj_t BgL_res3532z00_1359;
{ /* ./Ast/shrinkify.scm 222 */
BgL_nodez00_bglt BgL_nodez00_1333;
BgL_nodez00_1333 = 
(BgL_nodez00_bglt)(BgL_arg2770z00_701); 
{ /* ./Ast/shrinkify.scm 222 */
obj_t BgL_method2694z00_1334;
{ /* ./Ast/shrinkify.scm 222 */
BgL_objectz00_bglt BgL_objz00_1335;
BgL_objz00_1335 = 
(BgL_objectz00_bglt)(BgL_nodez00_1333); 
{ /* ./Ast/shrinkify.scm 222 */
long BgL_objzd2classzd2numz00_1336;
BgL_objzd2classzd2numz00_1336 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1335); 
{ /* ./Ast/shrinkify.scm 222 */
obj_t BgL_arg2017z00_1337;
{ /* ./Ast/shrinkify.scm 222 */
int BgL_auxz00_2573;
BgL_auxz00_2573 = 
(int)(((long)1)); 
BgL_arg2017z00_1337 = 
PROCEDURE_REF(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BgL_auxz00_2573); } 
{ /* ./Ast/shrinkify.scm 222 */
int BgL_offsetz00_1340;
BgL_offsetz00_1340 = 
(int)(BgL_objzd2classzd2numz00_1336); 
{ /* ./Ast/shrinkify.scm 222 */
long BgL_offsetz00_1341;
{ /* ./Ast/shrinkify.scm 222 */
long BgL_auxz00_2577;
BgL_auxz00_2577 = 
(long)(BgL_offsetz00_1340); 
BgL_offsetz00_1341 = 
(BgL_auxz00_2577-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 222 */
long BgL_modz00_1342;
{ /* ./Ast/shrinkify.scm 222 */
int BgL_arg2028z00_1343;
BgL_arg2028z00_1343 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 222 */
long BgL_n2z00_1351;
BgL_n2z00_1351 = 
(long)(BgL_arg2028z00_1343); 
BgL_modz00_1342 = 
(BgL_offsetz00_1341/BgL_n2z00_1351); } } 
{ /* ./Ast/shrinkify.scm 222 */
long BgL_restz00_1344;
{ /* ./Ast/shrinkify.scm 222 */
int BgL_arg2024z00_1345;
BgL_arg2024z00_1345 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 222 */
long BgL_n2z00_1354;
BgL_n2z00_1354 = 
(long)(BgL_arg2024z00_1345); 
BgL_restz00_1344 = 
(BgL_offsetz00_1341%BgL_n2z00_1354); } } 
{ /* ./Ast/shrinkify.scm 222 */

{ /* ./Ast/shrinkify.scm 222 */
obj_t BgL_bucketz00_1346;
{ /* ./Ast/shrinkify.scm 222 */
int BgL_kz00_1356;
BgL_kz00_1356 = 
(int)(BgL_modz00_1342); 
BgL_bucketz00_1346 = 
VECTOR_REF(BgL_arg2017z00_1337,BgL_kz00_1356); } 
{ /* ./Ast/shrinkify.scm 222 */
int BgL_kz00_1358;
BgL_kz00_1358 = 
(int)(BgL_restz00_1344); 
BgL_method2694z00_1334 = 
VECTOR_REF(BgL_bucketz00_1346,BgL_kz00_1358); } } } } } } } } } } 
{ /* ./Ast/shrinkify.scm 222 */
obj_t BgL_xz00_2435;
BgL_xz00_2435 = 
PROCEDURE_ENTRY(BgL_method2694z00_1334)(BgL_method2694z00_1334, 
(obj_t)(BgL_nodez00_1333), BEOA); 
BgL_res3532z00_1359 = BUNSPEC; } } } BgL_res3532z00_1359; } } 
{ /* ./Ast/shrinkify.scm 222 */
obj_t BgL_arg2774z00_702;
BgL_arg2774z00_702 = 
CDR(BgL_l2689z00_698); 
{ 
obj_t BgL_l2689z00_2594;
BgL_l2689z00_2594 = BgL_arg2774z00_702; 
BgL_l2689z00_698 = BgL_l2689z00_2594; 
goto BgL_forzd2each2690zd2_699;} } }  else 
{ /* ./Ast/shrinkify.scm 222 */
return ((bool_t)1);} } } } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzast_shrinkifyz00()
{ AN_OBJECT;
{ /* ./Ast/shrinkify.scm 15 */
BGl_addzd2genericz12zc0zz__objectz00(BGl_shrinkzd2variablez12zd2envz12zzast_shrinkifyz00, BGl_shrinkzd2variablez12zd2default2691zd2envzc0zzast_shrinkifyz00); 
BGl_addzd2genericz12zc0zz__objectz00(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BGl_shrinkzd2nodez12zd2default2693zd2envzc0zzast_shrinkifyz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BGl_atomz00zzast_nodez00, BGl_proc4178z00zzast_shrinkifyz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BGl_varz00zzast_nodez00, BGl_proc4179z00zzast_shrinkifyz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BGl_kwotez00zzast_nodez00, BGl_proc4180z00zzast_shrinkifyz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BGl_sequencez00zzast_nodez00, BGl_proc4181z00zzast_shrinkifyz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BGl_appz00zzast_nodez00, BGl_proc4182z00zzast_shrinkifyz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BGl_appzd2lyzd2zzast_nodez00, BGl_proc4183z00zzast_shrinkifyz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BGl_funcallz00zzast_nodez00, BGl_proc4184z00zzast_shrinkifyz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BGl_externz00zzast_nodez00, BGl_proc4185z00zzast_shrinkifyz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BGl_castz00zzast_nodez00, BGl_proc4186z00zzast_shrinkifyz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BGl_setqz00zzast_nodez00, BGl_proc4187z00zzast_shrinkifyz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BGl_conditionalz00zzast_nodez00, BGl_proc4188z00zzast_shrinkifyz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BGl_failz00zzast_nodez00, BGl_proc4189z00zzast_shrinkifyz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BGl_selectz00zzast_nodez00, BGl_proc4190z00zzast_shrinkifyz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BGl_makezd2boxzd2zzast_nodez00, BGl_proc4191z00zzast_shrinkifyz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BGl_boxzd2refzd2zzast_nodez00, BGl_proc4192z00zzast_shrinkifyz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BGl_boxzd2setz12zc0zzast_nodez00, BGl_proc4193z00zzast_shrinkifyz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BGl_letzd2funzd2zzast_nodez00, BGl_proc4194z00zzast_shrinkifyz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BGl_letzd2varzd2zzast_nodez00, BGl_proc4195z00zzast_shrinkifyz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BGl_setzd2exzd2itz00zzast_nodez00, BGl_proc4196z00zzast_shrinkifyz00); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BGl_jumpzd2exzd2itz00zzast_nodez00, BGl_proc4197z00zzast_shrinkifyz00);} 
}



/* shrink-node!-jump-ex-it2735 */
obj_t BGl_shrinkzd2nodez12zd2jumpzd2exzd2it2735z12zzast_shrinkifyz00(obj_t BgL_envz00_2390, obj_t BgL_nodez00_2391)
{ AN_OBJECT;
{ /* ./Ast/shrinkify.scm 213 */
{ 
BgL_jumpzd2exzd2itz00_bglt BgL_nodez00_1248;
BgL_nodez00_1248 = 
(BgL_jumpzd2exzd2itz00_bglt)(BgL_nodez00_2391); 
{ /* ./Ast/shrinkify.scm 214 */
BgL_nodez00_bglt BgL_arg3473z00_1251;
BgL_arg3473z00_1251 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1248))->BgL_exitz00); 
{ /* ./Ast/shrinkify.scm 214 */
obj_t BgL_res3620z00_2254;
{ /* ./Ast/shrinkify.scm 214 */
obj_t BgL_method2694z00_2229;
{ /* ./Ast/shrinkify.scm 214 */
BgL_objectz00_bglt BgL_objz00_2230;
BgL_objz00_2230 = 
(BgL_objectz00_bglt)(BgL_arg3473z00_1251); 
{ /* ./Ast/shrinkify.scm 214 */
long BgL_objzd2classzd2numz00_2231;
BgL_objzd2classzd2numz00_2231 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2230); 
{ /* ./Ast/shrinkify.scm 214 */
obj_t BgL_arg2017z00_2232;
{ /* ./Ast/shrinkify.scm 214 */
int BgL_auxz00_2620;
BgL_auxz00_2620 = 
(int)(((long)1)); 
BgL_arg2017z00_2232 = 
PROCEDURE_REF(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BgL_auxz00_2620); } 
{ /* ./Ast/shrinkify.scm 214 */
int BgL_offsetz00_2235;
BgL_offsetz00_2235 = 
(int)(BgL_objzd2classzd2numz00_2231); 
{ /* ./Ast/shrinkify.scm 214 */
long BgL_offsetz00_2236;
{ /* ./Ast/shrinkify.scm 214 */
long BgL_auxz00_2624;
BgL_auxz00_2624 = 
(long)(BgL_offsetz00_2235); 
BgL_offsetz00_2236 = 
(BgL_auxz00_2624-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 214 */
long BgL_modz00_2237;
{ /* ./Ast/shrinkify.scm 214 */
int BgL_arg2028z00_2238;
BgL_arg2028z00_2238 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 214 */
long BgL_n2z00_2246;
BgL_n2z00_2246 = 
(long)(BgL_arg2028z00_2238); 
BgL_modz00_2237 = 
(BgL_offsetz00_2236/BgL_n2z00_2246); } } 
{ /* ./Ast/shrinkify.scm 214 */
long BgL_restz00_2239;
{ /* ./Ast/shrinkify.scm 214 */
int BgL_arg2024z00_2240;
BgL_arg2024z00_2240 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 214 */
long BgL_n2z00_2249;
BgL_n2z00_2249 = 
(long)(BgL_arg2024z00_2240); 
BgL_restz00_2239 = 
(BgL_offsetz00_2236%BgL_n2z00_2249); } } 
{ /* ./Ast/shrinkify.scm 214 */

{ /* ./Ast/shrinkify.scm 214 */
obj_t BgL_bucketz00_2241;
{ /* ./Ast/shrinkify.scm 214 */
int BgL_kz00_2251;
BgL_kz00_2251 = 
(int)(BgL_modz00_2237); 
BgL_bucketz00_2241 = 
VECTOR_REF(BgL_arg2017z00_2232,BgL_kz00_2251); } 
{ /* ./Ast/shrinkify.scm 214 */
int BgL_kz00_2253;
BgL_kz00_2253 = 
(int)(BgL_restz00_2239); 
BgL_method2694z00_2229 = 
VECTOR_REF(BgL_bucketz00_2241,BgL_kz00_2253); } } } } } } } } } } 
{ /* ./Ast/shrinkify.scm 214 */
obj_t BgL_xz00_2436;
BgL_xz00_2436 = 
PROCEDURE_ENTRY(BgL_method2694z00_2229)(BgL_method2694z00_2229, 
(obj_t)(BgL_arg3473z00_1251), BEOA); 
BgL_res3620z00_2254 = BUNSPEC; } } BgL_res3620z00_2254; } } 
{ /* ./Ast/shrinkify.scm 215 */
BgL_nodez00_bglt BgL_arg3477z00_1252;
BgL_arg3477z00_1252 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1248))->BgL_valuez00); 
{ /* ./Ast/shrinkify.scm 215 */
obj_t BgL_res3623z00_2282;
{ /* ./Ast/shrinkify.scm 215 */
obj_t BgL_method2694z00_2257;
{ /* ./Ast/shrinkify.scm 215 */
BgL_objectz00_bglt BgL_objz00_2258;
BgL_objz00_2258 = 
(BgL_objectz00_bglt)(BgL_arg3477z00_1252); 
{ /* ./Ast/shrinkify.scm 215 */
long BgL_objzd2classzd2numz00_2259;
BgL_objzd2classzd2numz00_2259 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2258); 
{ /* ./Ast/shrinkify.scm 215 */
obj_t BgL_arg2017z00_2260;
{ /* ./Ast/shrinkify.scm 215 */
int BgL_auxz00_2643;
BgL_auxz00_2643 = 
(int)(((long)1)); 
BgL_arg2017z00_2260 = 
PROCEDURE_REF(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BgL_auxz00_2643); } 
{ /* ./Ast/shrinkify.scm 215 */
int BgL_offsetz00_2263;
BgL_offsetz00_2263 = 
(int)(BgL_objzd2classzd2numz00_2259); 
{ /* ./Ast/shrinkify.scm 215 */
long BgL_offsetz00_2264;
{ /* ./Ast/shrinkify.scm 215 */
long BgL_auxz00_2647;
BgL_auxz00_2647 = 
(long)(BgL_offsetz00_2263); 
BgL_offsetz00_2264 = 
(BgL_auxz00_2647-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 215 */
long BgL_modz00_2265;
{ /* ./Ast/shrinkify.scm 215 */
int BgL_arg2028z00_2266;
BgL_arg2028z00_2266 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 215 */
long BgL_n2z00_2274;
BgL_n2z00_2274 = 
(long)(BgL_arg2028z00_2266); 
BgL_modz00_2265 = 
(BgL_offsetz00_2264/BgL_n2z00_2274); } } 
{ /* ./Ast/shrinkify.scm 215 */
long BgL_restz00_2267;
{ /* ./Ast/shrinkify.scm 215 */
int BgL_arg2024z00_2268;
BgL_arg2024z00_2268 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 215 */
long BgL_n2z00_2277;
BgL_n2z00_2277 = 
(long)(BgL_arg2024z00_2268); 
BgL_restz00_2267 = 
(BgL_offsetz00_2264%BgL_n2z00_2277); } } 
{ /* ./Ast/shrinkify.scm 215 */

{ /* ./Ast/shrinkify.scm 215 */
obj_t BgL_bucketz00_2269;
{ /* ./Ast/shrinkify.scm 215 */
int BgL_kz00_2279;
BgL_kz00_2279 = 
(int)(BgL_modz00_2265); 
BgL_bucketz00_2269 = 
VECTOR_REF(BgL_arg2017z00_2260,BgL_kz00_2279); } 
{ /* ./Ast/shrinkify.scm 215 */
int BgL_kz00_2281;
BgL_kz00_2281 = 
(int)(BgL_restz00_2267); 
BgL_method2694z00_2257 = 
VECTOR_REF(BgL_bucketz00_2269,BgL_kz00_2281); } } } } } } } } } } 
{ /* ./Ast/shrinkify.scm 215 */
obj_t BgL_xz00_2437;
BgL_xz00_2437 = 
PROCEDURE_ENTRY(BgL_method2694z00_2257)(BgL_method2694z00_2257, 
(obj_t)(BgL_arg3477z00_1252), BEOA); 
BgL_res3623z00_2282 = BUNSPEC; } } BgL_res3623z00_2282; } } 
return BUNSPEC;} } 
}



/* shrink-node!-set-ex-it2733 */
obj_t BGl_shrinkzd2nodez12zd2setzd2exzd2it2733z12zzast_shrinkifyz00(obj_t BgL_envz00_2392, obj_t BgL_nodez00_2393)
{ AN_OBJECT;
{ /* ./Ast/shrinkify.scm 204 */
{ 
BgL_setzd2exzd2itz00_bglt BgL_nodez00_1240;
BgL_nodez00_1240 = 
(BgL_setzd2exzd2itz00_bglt)(BgL_nodez00_2393); 
{ /* ./Ast/shrinkify.scm 206 */
BgL_varz00_bglt BgL_arg3459z00_1244;
BgL_arg3459z00_1244 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1240))->BgL_varz00); 
{ /* ./Ast/shrinkify.scm 206 */
obj_t BgL_res3614z00_2198;
{ /* ./Ast/shrinkify.scm 206 */
BgL_nodez00_bglt BgL_nodez00_2172;
BgL_nodez00_2172 = 
(BgL_nodez00_bglt)(BgL_arg3459z00_1244); 
{ /* ./Ast/shrinkify.scm 206 */
obj_t BgL_method2694z00_2173;
{ /* ./Ast/shrinkify.scm 206 */
BgL_objectz00_bglt BgL_objz00_2174;
BgL_objz00_2174 = 
(BgL_objectz00_bglt)(BgL_nodez00_2172); 
{ /* ./Ast/shrinkify.scm 206 */
long BgL_objzd2classzd2numz00_2175;
BgL_objzd2classzd2numz00_2175 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2174); 
{ /* ./Ast/shrinkify.scm 206 */
obj_t BgL_arg2017z00_2176;
{ /* ./Ast/shrinkify.scm 206 */
int BgL_auxz00_2668;
BgL_auxz00_2668 = 
(int)(((long)1)); 
BgL_arg2017z00_2176 = 
PROCEDURE_REF(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BgL_auxz00_2668); } 
{ /* ./Ast/shrinkify.scm 206 */
int BgL_offsetz00_2179;
BgL_offsetz00_2179 = 
(int)(BgL_objzd2classzd2numz00_2175); 
{ /* ./Ast/shrinkify.scm 206 */
long BgL_offsetz00_2180;
{ /* ./Ast/shrinkify.scm 206 */
long BgL_auxz00_2672;
BgL_auxz00_2672 = 
(long)(BgL_offsetz00_2179); 
BgL_offsetz00_2180 = 
(BgL_auxz00_2672-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 206 */
long BgL_modz00_2181;
{ /* ./Ast/shrinkify.scm 206 */
int BgL_arg2028z00_2182;
BgL_arg2028z00_2182 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 206 */
long BgL_n2z00_2190;
BgL_n2z00_2190 = 
(long)(BgL_arg2028z00_2182); 
BgL_modz00_2181 = 
(BgL_offsetz00_2180/BgL_n2z00_2190); } } 
{ /* ./Ast/shrinkify.scm 206 */
long BgL_restz00_2183;
{ /* ./Ast/shrinkify.scm 206 */
int BgL_arg2024z00_2184;
BgL_arg2024z00_2184 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 206 */
long BgL_n2z00_2193;
BgL_n2z00_2193 = 
(long)(BgL_arg2024z00_2184); 
BgL_restz00_2183 = 
(BgL_offsetz00_2180%BgL_n2z00_2193); } } 
{ /* ./Ast/shrinkify.scm 206 */

{ /* ./Ast/shrinkify.scm 206 */
obj_t BgL_bucketz00_2185;
{ /* ./Ast/shrinkify.scm 206 */
int BgL_kz00_2195;
BgL_kz00_2195 = 
(int)(BgL_modz00_2181); 
BgL_bucketz00_2185 = 
VECTOR_REF(BgL_arg2017z00_2176,BgL_kz00_2195); } 
{ /* ./Ast/shrinkify.scm 206 */
int BgL_kz00_2197;
BgL_kz00_2197 = 
(int)(BgL_restz00_2183); 
BgL_method2694z00_2173 = 
VECTOR_REF(BgL_bucketz00_2185,BgL_kz00_2197); } } } } } } } } } } 
{ /* ./Ast/shrinkify.scm 206 */
obj_t BgL_xz00_2438;
BgL_xz00_2438 = 
PROCEDURE_ENTRY(BgL_method2694z00_2173)(BgL_method2694z00_2173, 
(obj_t)(BgL_nodez00_2172), BEOA); 
BgL_res3614z00_2198 = BUNSPEC; } } } BgL_res3614z00_2198; } } 
{ /* ./Ast/shrinkify.scm 207 */
BgL_nodez00_bglt BgL_arg3463z00_1245;
BgL_arg3463z00_1245 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1240))->BgL_bodyz00); 
{ /* ./Ast/shrinkify.scm 207 */
obj_t BgL_res3617z00_2226;
{ /* ./Ast/shrinkify.scm 207 */
obj_t BgL_method2694z00_2201;
{ /* ./Ast/shrinkify.scm 207 */
BgL_objectz00_bglt BgL_objz00_2202;
BgL_objz00_2202 = 
(BgL_objectz00_bglt)(BgL_arg3463z00_1245); 
{ /* ./Ast/shrinkify.scm 207 */
long BgL_objzd2classzd2numz00_2203;
BgL_objzd2classzd2numz00_2203 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2202); 
{ /* ./Ast/shrinkify.scm 207 */
obj_t BgL_arg2017z00_2204;
{ /* ./Ast/shrinkify.scm 207 */
int BgL_auxz00_2691;
BgL_auxz00_2691 = 
(int)(((long)1)); 
BgL_arg2017z00_2204 = 
PROCEDURE_REF(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BgL_auxz00_2691); } 
{ /* ./Ast/shrinkify.scm 207 */
int BgL_offsetz00_2207;
BgL_offsetz00_2207 = 
(int)(BgL_objzd2classzd2numz00_2203); 
{ /* ./Ast/shrinkify.scm 207 */
long BgL_offsetz00_2208;
{ /* ./Ast/shrinkify.scm 207 */
long BgL_auxz00_2695;
BgL_auxz00_2695 = 
(long)(BgL_offsetz00_2207); 
BgL_offsetz00_2208 = 
(BgL_auxz00_2695-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 207 */
long BgL_modz00_2209;
{ /* ./Ast/shrinkify.scm 207 */
int BgL_arg2028z00_2210;
BgL_arg2028z00_2210 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 207 */
long BgL_n2z00_2218;
BgL_n2z00_2218 = 
(long)(BgL_arg2028z00_2210); 
BgL_modz00_2209 = 
(BgL_offsetz00_2208/BgL_n2z00_2218); } } 
{ /* ./Ast/shrinkify.scm 207 */
long BgL_restz00_2211;
{ /* ./Ast/shrinkify.scm 207 */
int BgL_arg2024z00_2212;
BgL_arg2024z00_2212 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 207 */
long BgL_n2z00_2221;
BgL_n2z00_2221 = 
(long)(BgL_arg2024z00_2212); 
BgL_restz00_2211 = 
(BgL_offsetz00_2208%BgL_n2z00_2221); } } 
{ /* ./Ast/shrinkify.scm 207 */

{ /* ./Ast/shrinkify.scm 207 */
obj_t BgL_bucketz00_2213;
{ /* ./Ast/shrinkify.scm 207 */
int BgL_kz00_2223;
BgL_kz00_2223 = 
(int)(BgL_modz00_2209); 
BgL_bucketz00_2213 = 
VECTOR_REF(BgL_arg2017z00_2204,BgL_kz00_2223); } 
{ /* ./Ast/shrinkify.scm 207 */
int BgL_kz00_2225;
BgL_kz00_2225 = 
(int)(BgL_restz00_2211); 
BgL_method2694z00_2201 = 
VECTOR_REF(BgL_bucketz00_2213,BgL_kz00_2225); } } } } } } } } } } 
{ /* ./Ast/shrinkify.scm 207 */
obj_t BgL_xz00_2439;
BgL_xz00_2439 = 
PROCEDURE_ENTRY(BgL_method2694z00_2201)(BgL_method2694z00_2201, 
(obj_t)(BgL_arg3463z00_1245), BEOA); 
BgL_res3617z00_2226 = BUNSPEC; } } BgL_res3617z00_2226; } } 
return BUNSPEC;} } 
}



/* shrink-node!-let-var2731 */
obj_t BGl_shrinkzd2nodez12zd2letzd2var2731zc0zzast_shrinkifyz00(obj_t BgL_envz00_2394, obj_t BgL_nodez00_2395)
{ AN_OBJECT;
{ /* ./Ast/shrinkify.scm 192 */
{ 
BgL_letzd2varzd2_bglt BgL_nodez00_1225;
BgL_nodez00_1225 = 
(BgL_letzd2varzd2_bglt)(BgL_nodez00_2395); 
{ /* ./Ast/shrinkify.scm 194 */
BgL_nodez00_bglt BgL_arg3430z00_1229;
BgL_arg3430z00_1229 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1225))->BgL_bodyz00); 
{ /* ./Ast/shrinkify.scm 194 */
obj_t BgL_res3606z00_2111;
{ /* ./Ast/shrinkify.scm 194 */
obj_t BgL_method2694z00_2086;
{ /* ./Ast/shrinkify.scm 194 */
BgL_objectz00_bglt BgL_objz00_2087;
BgL_objz00_2087 = 
(BgL_objectz00_bglt)(BgL_arg3430z00_1229); 
{ /* ./Ast/shrinkify.scm 194 */
long BgL_objzd2classzd2numz00_2088;
BgL_objzd2classzd2numz00_2088 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2087); 
{ /* ./Ast/shrinkify.scm 194 */
obj_t BgL_arg2017z00_2089;
{ /* ./Ast/shrinkify.scm 194 */
int BgL_auxz00_2715;
BgL_auxz00_2715 = 
(int)(((long)1)); 
BgL_arg2017z00_2089 = 
PROCEDURE_REF(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BgL_auxz00_2715); } 
{ /* ./Ast/shrinkify.scm 194 */
int BgL_offsetz00_2092;
BgL_offsetz00_2092 = 
(int)(BgL_objzd2classzd2numz00_2088); 
{ /* ./Ast/shrinkify.scm 194 */
long BgL_offsetz00_2093;
{ /* ./Ast/shrinkify.scm 194 */
long BgL_auxz00_2719;
BgL_auxz00_2719 = 
(long)(BgL_offsetz00_2092); 
BgL_offsetz00_2093 = 
(BgL_auxz00_2719-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 194 */
long BgL_modz00_2094;
{ /* ./Ast/shrinkify.scm 194 */
int BgL_arg2028z00_2095;
BgL_arg2028z00_2095 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 194 */
long BgL_n2z00_2103;
BgL_n2z00_2103 = 
(long)(BgL_arg2028z00_2095); 
BgL_modz00_2094 = 
(BgL_offsetz00_2093/BgL_n2z00_2103); } } 
{ /* ./Ast/shrinkify.scm 194 */
long BgL_restz00_2096;
{ /* ./Ast/shrinkify.scm 194 */
int BgL_arg2024z00_2097;
BgL_arg2024z00_2097 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 194 */
long BgL_n2z00_2106;
BgL_n2z00_2106 = 
(long)(BgL_arg2024z00_2097); 
BgL_restz00_2096 = 
(BgL_offsetz00_2093%BgL_n2z00_2106); } } 
{ /* ./Ast/shrinkify.scm 194 */

{ /* ./Ast/shrinkify.scm 194 */
obj_t BgL_bucketz00_2098;
{ /* ./Ast/shrinkify.scm 194 */
int BgL_kz00_2108;
BgL_kz00_2108 = 
(int)(BgL_modz00_2094); 
BgL_bucketz00_2098 = 
VECTOR_REF(BgL_arg2017z00_2089,BgL_kz00_2108); } 
{ /* ./Ast/shrinkify.scm 194 */
int BgL_kz00_2110;
BgL_kz00_2110 = 
(int)(BgL_restz00_2096); 
BgL_method2694z00_2086 = 
VECTOR_REF(BgL_bucketz00_2098,BgL_kz00_2110); } } } } } } } } } } 
{ /* ./Ast/shrinkify.scm 194 */
obj_t BgL_xz00_2440;
BgL_xz00_2440 = 
PROCEDURE_ENTRY(BgL_method2694z00_2086)(BgL_method2694z00_2086, 
(obj_t)(BgL_arg3430z00_1229), BEOA); 
BgL_res3606z00_2111 = BUNSPEC; } } BgL_res3606z00_2111; } } 
{ 
obj_t BgL_l2685z00_1230;
{ /* ./Ast/shrinkify.scm 195 */
obj_t BgL_arg3434z00_1232;
BgL_arg3434z00_1232 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1225))->BgL_bindingsz00); 
BgL_l2685z00_1230 = BgL_arg3434z00_1232; 
BgL_forzd2each2686zd2_1231:
{ /* ./Ast/shrinkify.scm 195 */
bool_t BgL_test3437z00_1233;
BgL_test3437z00_1233 = 
PAIRP(BgL_l2685z00_1230); 
if(BgL_test3437z00_1233)
{ /* ./Ast/shrinkify.scm 195 */
{ /* ./Ast/shrinkify.scm 196 */
obj_t BgL_bindingz00_1234;
BgL_bindingz00_1234 = 
CAR(BgL_l2685z00_1230); 
{ /* ./Ast/shrinkify.scm 196 */
obj_t BgL_arg3439z00_1235;
BgL_arg3439z00_1235 = 
CAR(BgL_bindingz00_1234); 
{ /* ./Ast/shrinkify.scm 196 */
BgL_variablez00_bglt BgL_variablez00_2116;
BgL_variablez00_2116 = 
(BgL_variablez00_bglt)(BgL_arg3439z00_1235); 
{ /* ./Ast/shrinkify.scm 196 */
obj_t BgL_method2692z00_2117;
{ /* ./Ast/shrinkify.scm 196 */
BgL_objectz00_bglt BgL_objz00_2118;
BgL_objz00_2118 = 
(BgL_objectz00_bglt)(BgL_variablez00_2116); 
{ /* ./Ast/shrinkify.scm 196 */
long BgL_objzd2classzd2numz00_2119;
BgL_objzd2classzd2numz00_2119 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2118); 
{ /* ./Ast/shrinkify.scm 196 */
obj_t BgL_arg2017z00_2120;
{ /* ./Ast/shrinkify.scm 196 */
int BgL_auxz00_2743;
BgL_auxz00_2743 = 
(int)(((long)1)); 
BgL_arg2017z00_2120 = 
PROCEDURE_REF(BGl_shrinkzd2variablez12zd2envz12zzast_shrinkifyz00, BgL_auxz00_2743); } 
{ /* ./Ast/shrinkify.scm 196 */
int BgL_offsetz00_2123;
BgL_offsetz00_2123 = 
(int)(BgL_objzd2classzd2numz00_2119); 
{ /* ./Ast/shrinkify.scm 196 */
long BgL_offsetz00_2124;
{ /* ./Ast/shrinkify.scm 196 */
long BgL_auxz00_2747;
BgL_auxz00_2747 = 
(long)(BgL_offsetz00_2123); 
BgL_offsetz00_2124 = 
(BgL_auxz00_2747-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 196 */
long BgL_modz00_2125;
{ /* ./Ast/shrinkify.scm 196 */
int BgL_arg2028z00_2126;
BgL_arg2028z00_2126 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 196 */
long BgL_n2z00_2134;
BgL_n2z00_2134 = 
(long)(BgL_arg2028z00_2126); 
BgL_modz00_2125 = 
(BgL_offsetz00_2124/BgL_n2z00_2134); } } 
{ /* ./Ast/shrinkify.scm 196 */
long BgL_restz00_2127;
{ /* ./Ast/shrinkify.scm 196 */
int BgL_arg2024z00_2128;
BgL_arg2024z00_2128 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 196 */
long BgL_n2z00_2137;
BgL_n2z00_2137 = 
(long)(BgL_arg2024z00_2128); 
BgL_restz00_2127 = 
(BgL_offsetz00_2124%BgL_n2z00_2137); } } 
{ /* ./Ast/shrinkify.scm 196 */

{ /* ./Ast/shrinkify.scm 196 */
obj_t BgL_bucketz00_2129;
{ /* ./Ast/shrinkify.scm 196 */
int BgL_kz00_2139;
BgL_kz00_2139 = 
(int)(BgL_modz00_2125); 
BgL_bucketz00_2129 = 
VECTOR_REF(BgL_arg2017z00_2120,BgL_kz00_2139); } 
{ /* ./Ast/shrinkify.scm 196 */
int BgL_kz00_2141;
BgL_kz00_2141 = 
(int)(BgL_restz00_2127); 
BgL_method2692z00_2117 = 
VECTOR_REF(BgL_bucketz00_2129,BgL_kz00_2141); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method2692z00_2117)(BgL_method2692z00_2117, 
(obj_t)(BgL_variablez00_2116), BEOA); } } } 
{ /* ./Ast/shrinkify.scm 197 */
obj_t BgL_arg3443z00_1236;
BgL_arg3443z00_1236 = 
CDR(BgL_bindingz00_1234); 
{ /* ./Ast/shrinkify.scm 197 */
obj_t BgL_res3611z00_2169;
{ /* ./Ast/shrinkify.scm 197 */
BgL_nodez00_bglt BgL_nodez00_2143;
BgL_nodez00_2143 = 
(BgL_nodez00_bglt)(BgL_arg3443z00_1236); 
{ /* ./Ast/shrinkify.scm 197 */
obj_t BgL_method2694z00_2144;
{ /* ./Ast/shrinkify.scm 197 */
BgL_objectz00_bglt BgL_objz00_2145;
BgL_objz00_2145 = 
(BgL_objectz00_bglt)(BgL_nodez00_2143); 
{ /* ./Ast/shrinkify.scm 197 */
long BgL_objzd2classzd2numz00_2146;
BgL_objzd2classzd2numz00_2146 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2145); 
{ /* ./Ast/shrinkify.scm 197 */
obj_t BgL_arg2017z00_2147;
{ /* ./Ast/shrinkify.scm 197 */
int BgL_auxz00_2767;
BgL_auxz00_2767 = 
(int)(((long)1)); 
BgL_arg2017z00_2147 = 
PROCEDURE_REF(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BgL_auxz00_2767); } 
{ /* ./Ast/shrinkify.scm 197 */
int BgL_offsetz00_2150;
BgL_offsetz00_2150 = 
(int)(BgL_objzd2classzd2numz00_2146); 
{ /* ./Ast/shrinkify.scm 197 */
long BgL_offsetz00_2151;
{ /* ./Ast/shrinkify.scm 197 */
long BgL_auxz00_2771;
BgL_auxz00_2771 = 
(long)(BgL_offsetz00_2150); 
BgL_offsetz00_2151 = 
(BgL_auxz00_2771-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 197 */
long BgL_modz00_2152;
{ /* ./Ast/shrinkify.scm 197 */
int BgL_arg2028z00_2153;
BgL_arg2028z00_2153 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 197 */
long BgL_n2z00_2161;
BgL_n2z00_2161 = 
(long)(BgL_arg2028z00_2153); 
BgL_modz00_2152 = 
(BgL_offsetz00_2151/BgL_n2z00_2161); } } 
{ /* ./Ast/shrinkify.scm 197 */
long BgL_restz00_2154;
{ /* ./Ast/shrinkify.scm 197 */
int BgL_arg2024z00_2155;
BgL_arg2024z00_2155 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 197 */
long BgL_n2z00_2164;
BgL_n2z00_2164 = 
(long)(BgL_arg2024z00_2155); 
BgL_restz00_2154 = 
(BgL_offsetz00_2151%BgL_n2z00_2164); } } 
{ /* ./Ast/shrinkify.scm 197 */

{ /* ./Ast/shrinkify.scm 197 */
obj_t BgL_bucketz00_2156;
{ /* ./Ast/shrinkify.scm 197 */
int BgL_kz00_2166;
BgL_kz00_2166 = 
(int)(BgL_modz00_2152); 
BgL_bucketz00_2156 = 
VECTOR_REF(BgL_arg2017z00_2147,BgL_kz00_2166); } 
{ /* ./Ast/shrinkify.scm 197 */
int BgL_kz00_2168;
BgL_kz00_2168 = 
(int)(BgL_restz00_2154); 
BgL_method2694z00_2144 = 
VECTOR_REF(BgL_bucketz00_2156,BgL_kz00_2168); } } } } } } } } } } 
{ /* ./Ast/shrinkify.scm 197 */
obj_t BgL_xz00_2441;
BgL_xz00_2441 = 
PROCEDURE_ENTRY(BgL_method2694z00_2144)(BgL_method2694z00_2144, 
(obj_t)(BgL_nodez00_2143), BEOA); 
BgL_res3611z00_2169 = BUNSPEC; } } } BgL_res3611z00_2169; } } } 
{ /* ./Ast/shrinkify.scm 195 */
obj_t BgL_arg3448z00_1237;
BgL_arg3448z00_1237 = 
CDR(BgL_l2685z00_1230); 
{ 
obj_t BgL_l2685z00_2788;
BgL_l2685z00_2788 = BgL_arg3448z00_1237; 
BgL_l2685z00_1230 = BgL_l2685z00_2788; 
goto BgL_forzd2each2686zd2_1231;} } }  else 
{ /* ./Ast/shrinkify.scm 195 */((bool_t)1); } } } } 
return BUNSPEC;} } 
}



/* shrink-node!-let-fun2728 */
obj_t BGl_shrinkzd2nodez12zd2letzd2fun2728zc0zzast_shrinkifyz00(obj_t BgL_envz00_2396, obj_t BgL_nodez00_2397)
{ AN_OBJECT;
{ /* ./Ast/shrinkify.scm 178 */
{ 
BgL_letzd2funzd2_bglt BgL_nodez00_1204;
BgL_nodez00_1204 = 
(BgL_letzd2funzd2_bglt)(BgL_nodez00_2397); 
{ /* ./Ast/shrinkify.scm 180 */
BgL_nodez00_bglt BgL_arg3389z00_1208;
BgL_arg3389z00_1208 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1204))->BgL_bodyz00); 
{ /* ./Ast/shrinkify.scm 180 */
obj_t BgL_res3596z00_1994;
{ /* ./Ast/shrinkify.scm 180 */
obj_t BgL_method2694z00_1969;
{ /* ./Ast/shrinkify.scm 180 */
BgL_objectz00_bglt BgL_objz00_1970;
BgL_objz00_1970 = 
(BgL_objectz00_bglt)(BgL_arg3389z00_1208); 
{ /* ./Ast/shrinkify.scm 180 */
long BgL_objzd2classzd2numz00_1971;
BgL_objzd2classzd2numz00_1971 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1970); 
{ /* ./Ast/shrinkify.scm 180 */
obj_t BgL_arg2017z00_1972;
{ /* ./Ast/shrinkify.scm 180 */
int BgL_auxz00_2793;
BgL_auxz00_2793 = 
(int)(((long)1)); 
BgL_arg2017z00_1972 = 
PROCEDURE_REF(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BgL_auxz00_2793); } 
{ /* ./Ast/shrinkify.scm 180 */
int BgL_offsetz00_1975;
BgL_offsetz00_1975 = 
(int)(BgL_objzd2classzd2numz00_1971); 
{ /* ./Ast/shrinkify.scm 180 */
long BgL_offsetz00_1976;
{ /* ./Ast/shrinkify.scm 180 */
long BgL_auxz00_2797;
BgL_auxz00_2797 = 
(long)(BgL_offsetz00_1975); 
BgL_offsetz00_1976 = 
(BgL_auxz00_2797-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 180 */
long BgL_modz00_1977;
{ /* ./Ast/shrinkify.scm 180 */
int BgL_arg2028z00_1978;
BgL_arg2028z00_1978 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 180 */
long BgL_n2z00_1986;
BgL_n2z00_1986 = 
(long)(BgL_arg2028z00_1978); 
BgL_modz00_1977 = 
(BgL_offsetz00_1976/BgL_n2z00_1986); } } 
{ /* ./Ast/shrinkify.scm 180 */
long BgL_restz00_1979;
{ /* ./Ast/shrinkify.scm 180 */
int BgL_arg2024z00_1980;
BgL_arg2024z00_1980 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 180 */
long BgL_n2z00_1989;
BgL_n2z00_1989 = 
(long)(BgL_arg2024z00_1980); 
BgL_restz00_1979 = 
(BgL_offsetz00_1976%BgL_n2z00_1989); } } 
{ /* ./Ast/shrinkify.scm 180 */

{ /* ./Ast/shrinkify.scm 180 */
obj_t BgL_bucketz00_1981;
{ /* ./Ast/shrinkify.scm 180 */
int BgL_kz00_1991;
BgL_kz00_1991 = 
(int)(BgL_modz00_1977); 
BgL_bucketz00_1981 = 
VECTOR_REF(BgL_arg2017z00_1972,BgL_kz00_1991); } 
{ /* ./Ast/shrinkify.scm 180 */
int BgL_kz00_1993;
BgL_kz00_1993 = 
(int)(BgL_restz00_1979); 
BgL_method2694z00_1969 = 
VECTOR_REF(BgL_bucketz00_1981,BgL_kz00_1993); } } } } } } } } } } 
{ /* ./Ast/shrinkify.scm 180 */
obj_t BgL_xz00_2442;
BgL_xz00_2442 = 
PROCEDURE_ENTRY(BgL_method2694z00_1969)(BgL_method2694z00_1969, 
(obj_t)(BgL_arg3389z00_1208), BEOA); 
BgL_res3596z00_1994 = BUNSPEC; } } BgL_res3596z00_1994; } } 
{ 
obj_t BgL_l2679z00_1209;
{ /* ./Ast/shrinkify.scm 181 */
obj_t BgL_arg3393z00_1211;
BgL_arg3393z00_1211 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1204))->BgL_localsz00); 
BgL_l2679z00_1209 = BgL_arg3393z00_1211; 
BgL_forzd2each2680zd2_1210:
{ /* ./Ast/shrinkify.scm 181 */
bool_t BgL_test3396z00_1212;
BgL_test3396z00_1212 = 
PAIRP(BgL_l2679z00_1209); 
if(BgL_test3396z00_1212)
{ /* ./Ast/shrinkify.scm 181 */
{ /* ./Ast/shrinkify.scm 182 */
obj_t BgL_localz00_1213;
BgL_localz00_1213 = 
CAR(BgL_l2679z00_1209); 
{ /* ./Ast/shrinkify.scm 182 */
BgL_valuez00_bglt BgL_sfunz00_1214;
{ /* ./Ast/shrinkify.scm 182 */
BgL_variablez00_bglt BgL_obj1100z00_1998;
BgL_obj1100z00_1998 = 
(BgL_variablez00_bglt)(BgL_localz00_1213); 
BgL_sfunz00_1214 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1998))->BgL_valuez00); } 
{ /* ./Ast/shrinkify.scm 183 */
BgL_variablez00_bglt BgL_variablez00_1999;
BgL_variablez00_1999 = 
(BgL_variablez00_bglt)(BgL_localz00_1213); 
{ /* ./Ast/shrinkify.scm 183 */
obj_t BgL_method2692z00_2000;
{ /* ./Ast/shrinkify.scm 183 */
BgL_objectz00_bglt BgL_objz00_2001;
BgL_objz00_2001 = 
(BgL_objectz00_bglt)(BgL_variablez00_1999); 
{ /* ./Ast/shrinkify.scm 183 */
long BgL_objzd2classzd2numz00_2002;
BgL_objzd2classzd2numz00_2002 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2001); 
{ /* ./Ast/shrinkify.scm 183 */
obj_t BgL_arg2017z00_2003;
{ /* ./Ast/shrinkify.scm 183 */
int BgL_auxz00_2822;
BgL_auxz00_2822 = 
(int)(((long)1)); 
BgL_arg2017z00_2003 = 
PROCEDURE_REF(BGl_shrinkzd2variablez12zd2envz12zzast_shrinkifyz00, BgL_auxz00_2822); } 
{ /* ./Ast/shrinkify.scm 183 */
int BgL_offsetz00_2006;
BgL_offsetz00_2006 = 
(int)(BgL_objzd2classzd2numz00_2002); 
{ /* ./Ast/shrinkify.scm 183 */
long BgL_offsetz00_2007;
{ /* ./Ast/shrinkify.scm 183 */
long BgL_auxz00_2826;
BgL_auxz00_2826 = 
(long)(BgL_offsetz00_2006); 
BgL_offsetz00_2007 = 
(BgL_auxz00_2826-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 183 */
long BgL_modz00_2008;
{ /* ./Ast/shrinkify.scm 183 */
int BgL_arg2028z00_2009;
BgL_arg2028z00_2009 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 183 */
long BgL_n2z00_2017;
BgL_n2z00_2017 = 
(long)(BgL_arg2028z00_2009); 
BgL_modz00_2008 = 
(BgL_offsetz00_2007/BgL_n2z00_2017); } } 
{ /* ./Ast/shrinkify.scm 183 */
long BgL_restz00_2010;
{ /* ./Ast/shrinkify.scm 183 */
int BgL_arg2024z00_2011;
BgL_arg2024z00_2011 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 183 */
long BgL_n2z00_2020;
BgL_n2z00_2020 = 
(long)(BgL_arg2024z00_2011); 
BgL_restz00_2010 = 
(BgL_offsetz00_2007%BgL_n2z00_2020); } } 
{ /* ./Ast/shrinkify.scm 183 */

{ /* ./Ast/shrinkify.scm 183 */
obj_t BgL_bucketz00_2012;
{ /* ./Ast/shrinkify.scm 183 */
int BgL_kz00_2022;
BgL_kz00_2022 = 
(int)(BgL_modz00_2008); 
BgL_bucketz00_2012 = 
VECTOR_REF(BgL_arg2017z00_2003,BgL_kz00_2022); } 
{ /* ./Ast/shrinkify.scm 183 */
int BgL_kz00_2024;
BgL_kz00_2024 = 
(int)(BgL_restz00_2010); 
BgL_method2692z00_2000 = 
VECTOR_REF(BgL_bucketz00_2012,BgL_kz00_2024); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method2692z00_2000)(BgL_method2692z00_2000, 
(obj_t)(BgL_variablez00_1999), BEOA); } } 
{ 
obj_t BgL_l2681z00_1215;
{ /* ./Ast/shrinkify.scm 184 */
obj_t BgL_arg3399z00_1217;
{ /* ./Ast/shrinkify.scm 184 */
BgL_sfunz00_bglt BgL_obj1367z00_2025;
BgL_obj1367z00_2025 = 
(BgL_sfunz00_bglt)(BgL_sfunz00_1214); 
BgL_arg3399z00_1217 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1367z00_2025))->BgL_argsz00); } 
BgL_l2681z00_1215 = BgL_arg3399z00_1217; 
BgL_forzd2each2682zd2_1216:
{ /* ./Ast/shrinkify.scm 184 */
bool_t BgL_test3402z00_1218;
BgL_test3402z00_1218 = 
PAIRP(BgL_l2681z00_1215); 
if(BgL_test3402z00_1218)
{ /* ./Ast/shrinkify.scm 184 */
{ /* ./Ast/shrinkify.scm 184 */
obj_t BgL_arg3404z00_1219;
BgL_arg3404z00_1219 = 
CAR(BgL_l2681z00_1215); 
{ /* ./Ast/shrinkify.scm 184 */
BgL_variablez00_bglt BgL_variablez00_2028;
BgL_variablez00_2028 = 
(BgL_variablez00_bglt)(BgL_arg3404z00_1219); 
{ /* ./Ast/shrinkify.scm 184 */
obj_t BgL_method2692z00_2029;
{ /* ./Ast/shrinkify.scm 184 */
BgL_objectz00_bglt BgL_objz00_2030;
BgL_objz00_2030 = 
(BgL_objectz00_bglt)(BgL_variablez00_2028); 
{ /* ./Ast/shrinkify.scm 184 */
long BgL_objzd2classzd2numz00_2031;
BgL_objzd2classzd2numz00_2031 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2030); 
{ /* ./Ast/shrinkify.scm 184 */
obj_t BgL_arg2017z00_2032;
{ /* ./Ast/shrinkify.scm 184 */
int BgL_auxz00_2850;
BgL_auxz00_2850 = 
(int)(((long)1)); 
BgL_arg2017z00_2032 = 
PROCEDURE_REF(BGl_shrinkzd2variablez12zd2envz12zzast_shrinkifyz00, BgL_auxz00_2850); } 
{ /* ./Ast/shrinkify.scm 184 */
int BgL_offsetz00_2035;
BgL_offsetz00_2035 = 
(int)(BgL_objzd2classzd2numz00_2031); 
{ /* ./Ast/shrinkify.scm 184 */
long BgL_offsetz00_2036;
{ /* ./Ast/shrinkify.scm 184 */
long BgL_auxz00_2854;
BgL_auxz00_2854 = 
(long)(BgL_offsetz00_2035); 
BgL_offsetz00_2036 = 
(BgL_auxz00_2854-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 184 */
long BgL_modz00_2037;
{ /* ./Ast/shrinkify.scm 184 */
int BgL_arg2028z00_2038;
BgL_arg2028z00_2038 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 184 */
long BgL_n2z00_2046;
BgL_n2z00_2046 = 
(long)(BgL_arg2028z00_2038); 
BgL_modz00_2037 = 
(BgL_offsetz00_2036/BgL_n2z00_2046); } } 
{ /* ./Ast/shrinkify.scm 184 */
long BgL_restz00_2039;
{ /* ./Ast/shrinkify.scm 184 */
int BgL_arg2024z00_2040;
BgL_arg2024z00_2040 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 184 */
long BgL_n2z00_2049;
BgL_n2z00_2049 = 
(long)(BgL_arg2024z00_2040); 
BgL_restz00_2039 = 
(BgL_offsetz00_2036%BgL_n2z00_2049); } } 
{ /* ./Ast/shrinkify.scm 184 */

{ /* ./Ast/shrinkify.scm 184 */
obj_t BgL_bucketz00_2041;
{ /* ./Ast/shrinkify.scm 184 */
int BgL_kz00_2051;
BgL_kz00_2051 = 
(int)(BgL_modz00_2037); 
BgL_bucketz00_2041 = 
VECTOR_REF(BgL_arg2017z00_2032,BgL_kz00_2051); } 
{ /* ./Ast/shrinkify.scm 184 */
int BgL_kz00_2053;
BgL_kz00_2053 = 
(int)(BgL_restz00_2039); 
BgL_method2692z00_2029 = 
VECTOR_REF(BgL_bucketz00_2041,BgL_kz00_2053); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method2692z00_2029)(BgL_method2692z00_2029, 
(obj_t)(BgL_variablez00_2028), BEOA); } } } 
{ /* ./Ast/shrinkify.scm 184 */
obj_t BgL_arg3408z00_1220;
BgL_arg3408z00_1220 = 
CDR(BgL_l2681z00_1215); 
{ 
obj_t BgL_l2681z00_2871;
BgL_l2681z00_2871 = BgL_arg3408z00_1220; 
BgL_l2681z00_1215 = BgL_l2681z00_2871; 
goto BgL_forzd2each2682zd2_1216;} } }  else 
{ /* ./Ast/shrinkify.scm 184 */((bool_t)1); } } } } 
{ /* ./Ast/shrinkify.scm 185 */
obj_t BgL_arg3413z00_1221;
{ /* ./Ast/shrinkify.scm 185 */
BgL_sfunz00_bglt BgL_obj1370z00_2055;
BgL_obj1370z00_2055 = 
(BgL_sfunz00_bglt)(BgL_sfunz00_1214); 
BgL_arg3413z00_1221 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_2055))->BgL_bodyz00); } 
{ /* ./Ast/shrinkify.scm 185 */
obj_t BgL_res3603z00_2082;
{ /* ./Ast/shrinkify.scm 185 */
BgL_nodez00_bglt BgL_nodez00_2056;
BgL_nodez00_2056 = 
(BgL_nodez00_bglt)(BgL_arg3413z00_1221); 
{ /* ./Ast/shrinkify.scm 185 */
obj_t BgL_method2694z00_2057;
{ /* ./Ast/shrinkify.scm 185 */
BgL_objectz00_bglt BgL_objz00_2058;
BgL_objz00_2058 = 
(BgL_objectz00_bglt)(BgL_nodez00_2056); 
{ /* ./Ast/shrinkify.scm 185 */
long BgL_objzd2classzd2numz00_2059;
BgL_objzd2classzd2numz00_2059 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2058); 
{ /* ./Ast/shrinkify.scm 185 */
obj_t BgL_arg2017z00_2060;
{ /* ./Ast/shrinkify.scm 185 */
int BgL_auxz00_2877;
BgL_auxz00_2877 = 
(int)(((long)1)); 
BgL_arg2017z00_2060 = 
PROCEDURE_REF(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BgL_auxz00_2877); } 
{ /* ./Ast/shrinkify.scm 185 */
int BgL_offsetz00_2063;
BgL_offsetz00_2063 = 
(int)(BgL_objzd2classzd2numz00_2059); 
{ /* ./Ast/shrinkify.scm 185 */
long BgL_offsetz00_2064;
{ /* ./Ast/shrinkify.scm 185 */
long BgL_auxz00_2881;
BgL_auxz00_2881 = 
(long)(BgL_offsetz00_2063); 
BgL_offsetz00_2064 = 
(BgL_auxz00_2881-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 185 */
long BgL_modz00_2065;
{ /* ./Ast/shrinkify.scm 185 */
int BgL_arg2028z00_2066;
BgL_arg2028z00_2066 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 185 */
long BgL_n2z00_2074;
BgL_n2z00_2074 = 
(long)(BgL_arg2028z00_2066); 
BgL_modz00_2065 = 
(BgL_offsetz00_2064/BgL_n2z00_2074); } } 
{ /* ./Ast/shrinkify.scm 185 */
long BgL_restz00_2067;
{ /* ./Ast/shrinkify.scm 185 */
int BgL_arg2024z00_2068;
BgL_arg2024z00_2068 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 185 */
long BgL_n2z00_2077;
BgL_n2z00_2077 = 
(long)(BgL_arg2024z00_2068); 
BgL_restz00_2067 = 
(BgL_offsetz00_2064%BgL_n2z00_2077); } } 
{ /* ./Ast/shrinkify.scm 185 */

{ /* ./Ast/shrinkify.scm 185 */
obj_t BgL_bucketz00_2069;
{ /* ./Ast/shrinkify.scm 185 */
int BgL_kz00_2079;
BgL_kz00_2079 = 
(int)(BgL_modz00_2065); 
BgL_bucketz00_2069 = 
VECTOR_REF(BgL_arg2017z00_2060,BgL_kz00_2079); } 
{ /* ./Ast/shrinkify.scm 185 */
int BgL_kz00_2081;
BgL_kz00_2081 = 
(int)(BgL_restz00_2067); 
BgL_method2694z00_2057 = 
VECTOR_REF(BgL_bucketz00_2069,BgL_kz00_2081); } } } } } } } } } } 
{ /* ./Ast/shrinkify.scm 185 */
obj_t BgL_xz00_2443;
BgL_xz00_2443 = 
PROCEDURE_ENTRY(BgL_method2694z00_2057)(BgL_method2694z00_2057, 
(obj_t)(BgL_nodez00_2056), BEOA); 
BgL_res3603z00_2082 = BUNSPEC; } } } BgL_res3603z00_2082; } } } } 
{ /* ./Ast/shrinkify.scm 181 */
obj_t BgL_arg3419z00_1222;
BgL_arg3419z00_1222 = 
CDR(BgL_l2679z00_1209); 
{ 
obj_t BgL_l2679z00_2898;
BgL_l2679z00_2898 = BgL_arg3419z00_1222; 
BgL_l2679z00_1209 = BgL_l2679z00_2898; 
goto BgL_forzd2each2680zd2_1210;} } }  else 
{ /* ./Ast/shrinkify.scm 181 */((bool_t)1); } } } } 
return BUNSPEC;} } 
}



/* shrink-node!-box-set!2726 */
obj_t BGl_shrinkzd2nodez12zd2boxzd2setz122726zd2zzast_shrinkifyz00(obj_t BgL_envz00_2398, obj_t BgL_nodez00_2399)
{ AN_OBJECT;
{ /* ./Ast/shrinkify.scm 169 */
{ 
BgL_boxzd2setz12zc0_bglt BgL_nodez00_1192;
BgL_nodez00_1192 = 
(BgL_boxzd2setz12zc0_bglt)(BgL_nodez00_2399); 
{ /* ./Ast/shrinkify.scm 170 */
bool_t BgL_test3361z00_1195;
{ /* ./Ast/shrinkify.scm 170 */
bool_t BgL_testz00_2900;
{ /* ./Ast/shrinkify.scm 170 */
obj_t BgL_auxz00_2901;
{ /* ./Ast/shrinkify.scm 170 */
BgL_objectz00_bglt BgL_auxz00_2902;
BgL_auxz00_2902 = 
(BgL_objectz00_bglt)(BgL_nodez00_1192); 
BgL_auxz00_2901 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2902); } 
BgL_testz00_2900 = 
CBOOL(BgL_auxz00_2901); } 
if(BgL_testz00_2900)
{ /* ./Ast/shrinkify.scm 170 */
BgL_test3361z00_1195 = ((bool_t)1); }  else 
{ /* ./Ast/shrinkify.scm 170 */
BgL_test3361z00_1195 = ((bool_t)0); } } 
if(BgL_test3361z00_1195)
{ /* ./Ast/shrinkify.scm 170 */
{ /* ./Ast/shrinkify.scm 170 */
long BgL_arg3363z00_1197;
{ /* ./Ast/shrinkify.scm 170 */
obj_t BgL_arg3366z00_1198;
{ /* ./Ast/shrinkify.scm 170 */
obj_t BgL_arg3369z00_1199;
{ /* ./Ast/shrinkify.scm 170 */
BgL_objectz00_bglt BgL_objectz00_1901;
BgL_objectz00_1901 = 
(BgL_objectz00_bglt)(BgL_nodez00_1192); 
{ /* ./Ast/shrinkify.scm 170 */
long BgL_arg2036z00_1902;
{ /* ./Ast/shrinkify.scm 170 */
long BgL_arg2039z00_1903;
BgL_arg2039z00_1903 = 
BGL_OBJECT_CLASS_NUM(BgL_objectz00_1901); 
BgL_arg2036z00_1902 = 
(BgL_arg2039z00_1903-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 170 */
obj_t BgL_vectorz00_1907;int BgL_kz00_1908;
BgL_vectorz00_1907 = BGl_za2classesza2z00zz__objectz00; 
BgL_kz00_1908 = 
(int)(BgL_arg2036z00_1902); 
BgL_arg3369z00_1199 = 
VECTOR_REF(BgL_vectorz00_1907,BgL_kz00_1908); } } } 
BgL_arg3366z00_1198 = 
BGl_classzd2superzd2zz__objectz00(BgL_arg3369z00_1199); } 
BgL_arg3363z00_1197 = 
BGl_classzd2numzd2zz__objectz00(BgL_arg3366z00_1198); } 
{ /* ./Ast/shrinkify.scm 170 */
BgL_objectz00_bglt BgL_objz00_1909;
BgL_objz00_1909 = 
(BgL_objectz00_bglt)(BgL_nodez00_1192); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1909, BgL_arg3363z00_1197); } } 
{ /* ./Ast/shrinkify.scm 170 */
BgL_objectz00_bglt BgL_auxz00_2916;
BgL_auxz00_2916 = 
(BgL_objectz00_bglt)(BgL_nodez00_1192); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2916, BFALSE); } 
(obj_t)(BgL_nodez00_1192); }  else 
{ /* ./Ast/shrinkify.scm 170 */BFALSE; } } 
{ /* ./Ast/shrinkify.scm 171 */
BgL_varz00_bglt BgL_arg3375z00_1200;
BgL_arg3375z00_1200 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1192))->BgL_varz00); 
{ /* ./Ast/shrinkify.scm 171 */
obj_t BgL_res3590z00_1938;
{ /* ./Ast/shrinkify.scm 171 */
BgL_nodez00_bglt BgL_nodez00_1912;
BgL_nodez00_1912 = 
(BgL_nodez00_bglt)(BgL_arg3375z00_1200); 
{ /* ./Ast/shrinkify.scm 171 */
obj_t BgL_method2694z00_1913;
{ /* ./Ast/shrinkify.scm 171 */
BgL_objectz00_bglt BgL_objz00_1914;
BgL_objz00_1914 = 
(BgL_objectz00_bglt)(BgL_nodez00_1912); 
{ /* ./Ast/shrinkify.scm 171 */
long BgL_objzd2classzd2numz00_1915;
BgL_objzd2classzd2numz00_1915 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1914); 
{ /* ./Ast/shrinkify.scm 171 */
obj_t BgL_arg2017z00_1916;
{ /* ./Ast/shrinkify.scm 171 */
int BgL_auxz00_2924;
BgL_auxz00_2924 = 
(int)(((long)1)); 
BgL_arg2017z00_1916 = 
PROCEDURE_REF(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BgL_auxz00_2924); } 
{ /* ./Ast/shrinkify.scm 171 */
int BgL_offsetz00_1919;
BgL_offsetz00_1919 = 
(int)(BgL_objzd2classzd2numz00_1915); 
{ /* ./Ast/shrinkify.scm 171 */
long BgL_offsetz00_1920;
{ /* ./Ast/shrinkify.scm 171 */
long BgL_auxz00_2928;
BgL_auxz00_2928 = 
(long)(BgL_offsetz00_1919); 
BgL_offsetz00_1920 = 
(BgL_auxz00_2928-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 171 */
long BgL_modz00_1921;
{ /* ./Ast/shrinkify.scm 171 */
int BgL_arg2028z00_1922;
BgL_arg2028z00_1922 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 171 */
long BgL_n2z00_1930;
BgL_n2z00_1930 = 
(long)(BgL_arg2028z00_1922); 
BgL_modz00_1921 = 
(BgL_offsetz00_1920/BgL_n2z00_1930); } } 
{ /* ./Ast/shrinkify.scm 171 */
long BgL_restz00_1923;
{ /* ./Ast/shrinkify.scm 171 */
int BgL_arg2024z00_1924;
BgL_arg2024z00_1924 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 171 */
long BgL_n2z00_1933;
BgL_n2z00_1933 = 
(long)(BgL_arg2024z00_1924); 
BgL_restz00_1923 = 
(BgL_offsetz00_1920%BgL_n2z00_1933); } } 
{ /* ./Ast/shrinkify.scm 171 */

{ /* ./Ast/shrinkify.scm 171 */
obj_t BgL_bucketz00_1925;
{ /* ./Ast/shrinkify.scm 171 */
int BgL_kz00_1935;
BgL_kz00_1935 = 
(int)(BgL_modz00_1921); 
BgL_bucketz00_1925 = 
VECTOR_REF(BgL_arg2017z00_1916,BgL_kz00_1935); } 
{ /* ./Ast/shrinkify.scm 171 */
int BgL_kz00_1937;
BgL_kz00_1937 = 
(int)(BgL_restz00_1923); 
BgL_method2694z00_1913 = 
VECTOR_REF(BgL_bucketz00_1925,BgL_kz00_1937); } } } } } } } } } } 
{ /* ./Ast/shrinkify.scm 171 */
obj_t BgL_xz00_2444;
BgL_xz00_2444 = 
PROCEDURE_ENTRY(BgL_method2694z00_1913)(BgL_method2694z00_1913, 
(obj_t)(BgL_nodez00_1912), BEOA); 
BgL_res3590z00_1938 = BUNSPEC; } } } BgL_res3590z00_1938; } } 
{ /* ./Ast/shrinkify.scm 172 */
BgL_nodez00_bglt BgL_arg3379z00_1201;
BgL_arg3379z00_1201 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1192))->BgL_valuez00); 
{ /* ./Ast/shrinkify.scm 172 */
obj_t BgL_res3593z00_1966;
{ /* ./Ast/shrinkify.scm 172 */
obj_t BgL_method2694z00_1941;
{ /* ./Ast/shrinkify.scm 172 */
BgL_objectz00_bglt BgL_objz00_1942;
BgL_objz00_1942 = 
(BgL_objectz00_bglt)(BgL_arg3379z00_1201); 
{ /* ./Ast/shrinkify.scm 172 */
long BgL_objzd2classzd2numz00_1943;
BgL_objzd2classzd2numz00_1943 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1942); 
{ /* ./Ast/shrinkify.scm 172 */
obj_t BgL_arg2017z00_1944;
{ /* ./Ast/shrinkify.scm 172 */
int BgL_auxz00_2947;
BgL_auxz00_2947 = 
(int)(((long)1)); 
BgL_arg2017z00_1944 = 
PROCEDURE_REF(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BgL_auxz00_2947); } 
{ /* ./Ast/shrinkify.scm 172 */
int BgL_offsetz00_1947;
BgL_offsetz00_1947 = 
(int)(BgL_objzd2classzd2numz00_1943); 
{ /* ./Ast/shrinkify.scm 172 */
long BgL_offsetz00_1948;
{ /* ./Ast/shrinkify.scm 172 */
long BgL_auxz00_2951;
BgL_auxz00_2951 = 
(long)(BgL_offsetz00_1947); 
BgL_offsetz00_1948 = 
(BgL_auxz00_2951-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 172 */
long BgL_modz00_1949;
{ /* ./Ast/shrinkify.scm 172 */
int BgL_arg2028z00_1950;
BgL_arg2028z00_1950 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 172 */
long BgL_n2z00_1958;
BgL_n2z00_1958 = 
(long)(BgL_arg2028z00_1950); 
BgL_modz00_1949 = 
(BgL_offsetz00_1948/BgL_n2z00_1958); } } 
{ /* ./Ast/shrinkify.scm 172 */
long BgL_restz00_1951;
{ /* ./Ast/shrinkify.scm 172 */
int BgL_arg2024z00_1952;
BgL_arg2024z00_1952 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 172 */
long BgL_n2z00_1961;
BgL_n2z00_1961 = 
(long)(BgL_arg2024z00_1952); 
BgL_restz00_1951 = 
(BgL_offsetz00_1948%BgL_n2z00_1961); } } 
{ /* ./Ast/shrinkify.scm 172 */

{ /* ./Ast/shrinkify.scm 172 */
obj_t BgL_bucketz00_1953;
{ /* ./Ast/shrinkify.scm 172 */
int BgL_kz00_1963;
BgL_kz00_1963 = 
(int)(BgL_modz00_1949); 
BgL_bucketz00_1953 = 
VECTOR_REF(BgL_arg2017z00_1944,BgL_kz00_1963); } 
{ /* ./Ast/shrinkify.scm 172 */
int BgL_kz00_1965;
BgL_kz00_1965 = 
(int)(BgL_restz00_1951); 
BgL_method2694z00_1941 = 
VECTOR_REF(BgL_bucketz00_1953,BgL_kz00_1965); } } } } } } } } } } 
{ /* ./Ast/shrinkify.scm 172 */
obj_t BgL_xz00_2445;
BgL_xz00_2445 = 
PROCEDURE_ENTRY(BgL_method2694z00_1941)(BgL_method2694z00_1941, 
(obj_t)(BgL_arg3379z00_1201), BEOA); 
BgL_res3593z00_1966 = BUNSPEC; } } BgL_res3593z00_1966; } } 
return BUNSPEC;} } 
}



/* shrink-node!-box-ref2724 */
obj_t BGl_shrinkzd2nodez12zd2boxzd2ref2724zc0zzast_shrinkifyz00(obj_t BgL_envz00_2400, obj_t BgL_nodez00_2401)
{ AN_OBJECT;
{ /* ./Ast/shrinkify.scm 161 */
{ 
BgL_boxzd2refzd2_bglt BgL_nodez00_1181;
BgL_nodez00_1181 = 
(BgL_boxzd2refzd2_bglt)(BgL_nodez00_2401); 
{ /* ./Ast/shrinkify.scm 162 */
bool_t BgL_test3337z00_1184;
{ /* ./Ast/shrinkify.scm 162 */
bool_t BgL_testz00_2968;
{ /* ./Ast/shrinkify.scm 162 */
obj_t BgL_auxz00_2969;
{ /* ./Ast/shrinkify.scm 162 */
BgL_objectz00_bglt BgL_auxz00_2970;
BgL_auxz00_2970 = 
(BgL_objectz00_bglt)(BgL_nodez00_1181); 
BgL_auxz00_2969 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2970); } 
BgL_testz00_2968 = 
CBOOL(BgL_auxz00_2969); } 
if(BgL_testz00_2968)
{ /* ./Ast/shrinkify.scm 162 */
BgL_test3337z00_1184 = ((bool_t)1); }  else 
{ /* ./Ast/shrinkify.scm 162 */
BgL_test3337z00_1184 = ((bool_t)0); } } 
if(BgL_test3337z00_1184)
{ /* ./Ast/shrinkify.scm 162 */
{ /* ./Ast/shrinkify.scm 162 */
long BgL_arg3340z00_1186;
{ /* ./Ast/shrinkify.scm 162 */
obj_t BgL_arg3343z00_1187;
{ /* ./Ast/shrinkify.scm 162 */
obj_t BgL_arg3346z00_1188;
{ /* ./Ast/shrinkify.scm 162 */
BgL_objectz00_bglt BgL_objectz00_1860;
BgL_objectz00_1860 = 
(BgL_objectz00_bglt)(BgL_nodez00_1181); 
{ /* ./Ast/shrinkify.scm 162 */
long BgL_arg2036z00_1861;
{ /* ./Ast/shrinkify.scm 162 */
long BgL_arg2039z00_1862;
BgL_arg2039z00_1862 = 
BGL_OBJECT_CLASS_NUM(BgL_objectz00_1860); 
BgL_arg2036z00_1861 = 
(BgL_arg2039z00_1862-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 162 */
obj_t BgL_vectorz00_1866;int BgL_kz00_1867;
BgL_vectorz00_1866 = BGl_za2classesza2z00zz__objectz00; 
BgL_kz00_1867 = 
(int)(BgL_arg2036z00_1861); 
BgL_arg3346z00_1188 = 
VECTOR_REF(BgL_vectorz00_1866,BgL_kz00_1867); } } } 
BgL_arg3343z00_1187 = 
BGl_classzd2superzd2zz__objectz00(BgL_arg3346z00_1188); } 
BgL_arg3340z00_1186 = 
BGl_classzd2numzd2zz__objectz00(BgL_arg3343z00_1187); } 
{ /* ./Ast/shrinkify.scm 162 */
BgL_objectz00_bglt BgL_objz00_1868;
BgL_objz00_1868 = 
(BgL_objectz00_bglt)(BgL_nodez00_1181); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1868, BgL_arg3340z00_1186); } } 
{ /* ./Ast/shrinkify.scm 162 */
BgL_objectz00_bglt BgL_auxz00_2984;
BgL_auxz00_2984 = 
(BgL_objectz00_bglt)(BgL_nodez00_1181); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2984, BFALSE); } 
(obj_t)(BgL_nodez00_1181); }  else 
{ /* ./Ast/shrinkify.scm 162 */BFALSE; } } 
{ /* ./Ast/shrinkify.scm 163 */
BgL_varz00_bglt BgL_arg3352z00_1189;
BgL_arg3352z00_1189 = 
(((BgL_boxzd2refzd2_bglt)CREF(BgL_nodez00_1181))->BgL_varz00); 
{ /* ./Ast/shrinkify.scm 163 */
obj_t BgL_res3586z00_1897;
{ /* ./Ast/shrinkify.scm 163 */
BgL_nodez00_bglt BgL_nodez00_1871;
BgL_nodez00_1871 = 
(BgL_nodez00_bglt)(BgL_arg3352z00_1189); 
{ /* ./Ast/shrinkify.scm 163 */
obj_t BgL_method2694z00_1872;
{ /* ./Ast/shrinkify.scm 163 */
BgL_objectz00_bglt BgL_objz00_1873;
BgL_objz00_1873 = 
(BgL_objectz00_bglt)(BgL_nodez00_1871); 
{ /* ./Ast/shrinkify.scm 163 */
long BgL_objzd2classzd2numz00_1874;
BgL_objzd2classzd2numz00_1874 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1873); 
{ /* ./Ast/shrinkify.scm 163 */
obj_t BgL_arg2017z00_1875;
{ /* ./Ast/shrinkify.scm 163 */
int BgL_auxz00_2992;
BgL_auxz00_2992 = 
(int)(((long)1)); 
BgL_arg2017z00_1875 = 
PROCEDURE_REF(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BgL_auxz00_2992); } 
{ /* ./Ast/shrinkify.scm 163 */
int BgL_offsetz00_1878;
BgL_offsetz00_1878 = 
(int)(BgL_objzd2classzd2numz00_1874); 
{ /* ./Ast/shrinkify.scm 163 */
long BgL_offsetz00_1879;
{ /* ./Ast/shrinkify.scm 163 */
long BgL_auxz00_2996;
BgL_auxz00_2996 = 
(long)(BgL_offsetz00_1878); 
BgL_offsetz00_1879 = 
(BgL_auxz00_2996-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 163 */
long BgL_modz00_1880;
{ /* ./Ast/shrinkify.scm 163 */
int BgL_arg2028z00_1881;
BgL_arg2028z00_1881 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 163 */
long BgL_n2z00_1889;
BgL_n2z00_1889 = 
(long)(BgL_arg2028z00_1881); 
BgL_modz00_1880 = 
(BgL_offsetz00_1879/BgL_n2z00_1889); } } 
{ /* ./Ast/shrinkify.scm 163 */
long BgL_restz00_1882;
{ /* ./Ast/shrinkify.scm 163 */
int BgL_arg2024z00_1883;
BgL_arg2024z00_1883 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 163 */
long BgL_n2z00_1892;
BgL_n2z00_1892 = 
(long)(BgL_arg2024z00_1883); 
BgL_restz00_1882 = 
(BgL_offsetz00_1879%BgL_n2z00_1892); } } 
{ /* ./Ast/shrinkify.scm 163 */

{ /* ./Ast/shrinkify.scm 163 */
obj_t BgL_bucketz00_1884;
{ /* ./Ast/shrinkify.scm 163 */
int BgL_kz00_1894;
BgL_kz00_1894 = 
(int)(BgL_modz00_1880); 
BgL_bucketz00_1884 = 
VECTOR_REF(BgL_arg2017z00_1875,BgL_kz00_1894); } 
{ /* ./Ast/shrinkify.scm 163 */
int BgL_kz00_1896;
BgL_kz00_1896 = 
(int)(BgL_restz00_1882); 
BgL_method2694z00_1872 = 
VECTOR_REF(BgL_bucketz00_1884,BgL_kz00_1896); } } } } } } } } } } 
{ /* ./Ast/shrinkify.scm 163 */
obj_t BgL_xz00_2446;
BgL_xz00_2446 = 
PROCEDURE_ENTRY(BgL_method2694z00_1872)(BgL_method2694z00_1872, 
(obj_t)(BgL_nodez00_1871), BEOA); 
BgL_res3586z00_1897 = BUNSPEC; } } } BgL_res3586z00_1897; } } 
return BUNSPEC;} } 
}



/* shrink-node!-make-box2722 */
obj_t BGl_shrinkzd2nodez12zd2makezd2box2722zc0zzast_shrinkifyz00(obj_t BgL_envz00_2402, obj_t BgL_nodez00_2403)
{ AN_OBJECT;
{ /* ./Ast/shrinkify.scm 153 */
{ 
BgL_makezd2boxzd2_bglt BgL_nodez00_1170;
BgL_nodez00_1170 = 
(BgL_makezd2boxzd2_bglt)(BgL_nodez00_2403); 
{ /* ./Ast/shrinkify.scm 154 */
bool_t BgL_test3314z00_1173;
{ /* ./Ast/shrinkify.scm 154 */
bool_t BgL_testz00_3013;
{ /* ./Ast/shrinkify.scm 154 */
obj_t BgL_auxz00_3014;
{ /* ./Ast/shrinkify.scm 154 */
BgL_objectz00_bglt BgL_auxz00_3015;
BgL_auxz00_3015 = 
(BgL_objectz00_bglt)(BgL_nodez00_1170); 
BgL_auxz00_3014 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3015); } 
BgL_testz00_3013 = 
CBOOL(BgL_auxz00_3014); } 
if(BgL_testz00_3013)
{ /* ./Ast/shrinkify.scm 154 */
BgL_test3314z00_1173 = ((bool_t)1); }  else 
{ /* ./Ast/shrinkify.scm 154 */
BgL_test3314z00_1173 = ((bool_t)0); } } 
if(BgL_test3314z00_1173)
{ /* ./Ast/shrinkify.scm 154 */
{ /* ./Ast/shrinkify.scm 154 */
long BgL_arg3316z00_1175;
{ /* ./Ast/shrinkify.scm 154 */
obj_t BgL_arg3319z00_1176;
{ /* ./Ast/shrinkify.scm 154 */
obj_t BgL_arg3322z00_1177;
{ /* ./Ast/shrinkify.scm 154 */
BgL_objectz00_bglt BgL_objectz00_1819;
BgL_objectz00_1819 = 
(BgL_objectz00_bglt)(BgL_nodez00_1170); 
{ /* ./Ast/shrinkify.scm 154 */
long BgL_arg2036z00_1820;
{ /* ./Ast/shrinkify.scm 154 */
long BgL_arg2039z00_1821;
BgL_arg2039z00_1821 = 
BGL_OBJECT_CLASS_NUM(BgL_objectz00_1819); 
BgL_arg2036z00_1820 = 
(BgL_arg2039z00_1821-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 154 */
obj_t BgL_vectorz00_1825;int BgL_kz00_1826;
BgL_vectorz00_1825 = BGl_za2classesza2z00zz__objectz00; 
BgL_kz00_1826 = 
(int)(BgL_arg2036z00_1820); 
BgL_arg3322z00_1177 = 
VECTOR_REF(BgL_vectorz00_1825,BgL_kz00_1826); } } } 
BgL_arg3319z00_1176 = 
BGl_classzd2superzd2zz__objectz00(BgL_arg3322z00_1177); } 
BgL_arg3316z00_1175 = 
BGl_classzd2numzd2zz__objectz00(BgL_arg3319z00_1176); } 
{ /* ./Ast/shrinkify.scm 154 */
BgL_objectz00_bglt BgL_objz00_1827;
BgL_objz00_1827 = 
(BgL_objectz00_bglt)(BgL_nodez00_1170); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1827, BgL_arg3316z00_1175); } } 
{ /* ./Ast/shrinkify.scm 154 */
BgL_objectz00_bglt BgL_auxz00_3029;
BgL_auxz00_3029 = 
(BgL_objectz00_bglt)(BgL_nodez00_1170); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3029, BFALSE); } 
(obj_t)(BgL_nodez00_1170); }  else 
{ /* ./Ast/shrinkify.scm 154 */BFALSE; } } 
{ /* ./Ast/shrinkify.scm 155 */
BgL_nodez00_bglt BgL_arg3328z00_1178;
BgL_arg3328z00_1178 = 
(((BgL_makezd2boxzd2_bglt)CREF(BgL_nodez00_1170))->BgL_valuez00); 
{ /* ./Ast/shrinkify.scm 155 */
obj_t BgL_res3582z00_1856;
{ /* ./Ast/shrinkify.scm 155 */
obj_t BgL_method2694z00_1831;
{ /* ./Ast/shrinkify.scm 155 */
BgL_objectz00_bglt BgL_objz00_1832;
BgL_objz00_1832 = 
(BgL_objectz00_bglt)(BgL_arg3328z00_1178); 
{ /* ./Ast/shrinkify.scm 155 */
long BgL_objzd2classzd2numz00_1833;
BgL_objzd2classzd2numz00_1833 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1832); 
{ /* ./Ast/shrinkify.scm 155 */
obj_t BgL_arg2017z00_1834;
{ /* ./Ast/shrinkify.scm 155 */
int BgL_auxz00_3036;
BgL_auxz00_3036 = 
(int)(((long)1)); 
BgL_arg2017z00_1834 = 
PROCEDURE_REF(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BgL_auxz00_3036); } 
{ /* ./Ast/shrinkify.scm 155 */
int BgL_offsetz00_1837;
BgL_offsetz00_1837 = 
(int)(BgL_objzd2classzd2numz00_1833); 
{ /* ./Ast/shrinkify.scm 155 */
long BgL_offsetz00_1838;
{ /* ./Ast/shrinkify.scm 155 */
long BgL_auxz00_3040;
BgL_auxz00_3040 = 
(long)(BgL_offsetz00_1837); 
BgL_offsetz00_1838 = 
(BgL_auxz00_3040-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 155 */
long BgL_modz00_1839;
{ /* ./Ast/shrinkify.scm 155 */
int BgL_arg2028z00_1840;
BgL_arg2028z00_1840 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 155 */
long BgL_n2z00_1848;
BgL_n2z00_1848 = 
(long)(BgL_arg2028z00_1840); 
BgL_modz00_1839 = 
(BgL_offsetz00_1838/BgL_n2z00_1848); } } 
{ /* ./Ast/shrinkify.scm 155 */
long BgL_restz00_1841;
{ /* ./Ast/shrinkify.scm 155 */
int BgL_arg2024z00_1842;
BgL_arg2024z00_1842 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 155 */
long BgL_n2z00_1851;
BgL_n2z00_1851 = 
(long)(BgL_arg2024z00_1842); 
BgL_restz00_1841 = 
(BgL_offsetz00_1838%BgL_n2z00_1851); } } 
{ /* ./Ast/shrinkify.scm 155 */

{ /* ./Ast/shrinkify.scm 155 */
obj_t BgL_bucketz00_1843;
{ /* ./Ast/shrinkify.scm 155 */
int BgL_kz00_1853;
BgL_kz00_1853 = 
(int)(BgL_modz00_1839); 
BgL_bucketz00_1843 = 
VECTOR_REF(BgL_arg2017z00_1834,BgL_kz00_1853); } 
{ /* ./Ast/shrinkify.scm 155 */
int BgL_kz00_1855;
BgL_kz00_1855 = 
(int)(BgL_restz00_1841); 
BgL_method2694z00_1831 = 
VECTOR_REF(BgL_bucketz00_1843,BgL_kz00_1855); } } } } } } } } } } 
{ /* ./Ast/shrinkify.scm 155 */
obj_t BgL_xz00_2447;
BgL_xz00_2447 = 
PROCEDURE_ENTRY(BgL_method2694z00_1831)(BgL_method2694z00_1831, 
(obj_t)(BgL_arg3328z00_1178), BEOA); 
BgL_res3582z00_1856 = BUNSPEC; } } BgL_res3582z00_1856; } } 
return BUNSPEC;} } 
}



/* shrink-node!-select2720 */
obj_t BGl_shrinkzd2nodez12zd2select2720z12zzast_shrinkifyz00(obj_t BgL_envz00_2404, obj_t BgL_nodez00_2405)
{ AN_OBJECT;
{ /* ./Ast/shrinkify.scm 143 */
{ 
BgL_selectz00_bglt BgL_nodez00_1157;
BgL_nodez00_1157 = 
(BgL_selectz00_bglt)(BgL_nodez00_2405); 
{ /* ./Ast/shrinkify.scm 144 */
BgL_nodez00_bglt BgL_arg3290z00_1160;
BgL_arg3290z00_1160 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1157))->BgL_testz00); 
{ /* ./Ast/shrinkify.scm 144 */
obj_t BgL_res3575z00_1783;
{ /* ./Ast/shrinkify.scm 144 */
obj_t BgL_method2694z00_1758;
{ /* ./Ast/shrinkify.scm 144 */
BgL_objectz00_bglt BgL_objz00_1759;
BgL_objz00_1759 = 
(BgL_objectz00_bglt)(BgL_arg3290z00_1160); 
{ /* ./Ast/shrinkify.scm 144 */
long BgL_objzd2classzd2numz00_1760;
BgL_objzd2classzd2numz00_1760 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1759); 
{ /* ./Ast/shrinkify.scm 144 */
obj_t BgL_arg2017z00_1761;
{ /* ./Ast/shrinkify.scm 144 */
int BgL_auxz00_3060;
BgL_auxz00_3060 = 
(int)(((long)1)); 
BgL_arg2017z00_1761 = 
PROCEDURE_REF(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BgL_auxz00_3060); } 
{ /* ./Ast/shrinkify.scm 144 */
int BgL_offsetz00_1764;
BgL_offsetz00_1764 = 
(int)(BgL_objzd2classzd2numz00_1760); 
{ /* ./Ast/shrinkify.scm 144 */
long BgL_offsetz00_1765;
{ /* ./Ast/shrinkify.scm 144 */
long BgL_auxz00_3064;
BgL_auxz00_3064 = 
(long)(BgL_offsetz00_1764); 
BgL_offsetz00_1765 = 
(BgL_auxz00_3064-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 144 */
long BgL_modz00_1766;
{ /* ./Ast/shrinkify.scm 144 */
int BgL_arg2028z00_1767;
BgL_arg2028z00_1767 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 144 */
long BgL_n2z00_1775;
BgL_n2z00_1775 = 
(long)(BgL_arg2028z00_1767); 
BgL_modz00_1766 = 
(BgL_offsetz00_1765/BgL_n2z00_1775); } } 
{ /* ./Ast/shrinkify.scm 144 */
long BgL_restz00_1768;
{ /* ./Ast/shrinkify.scm 144 */
int BgL_arg2024z00_1769;
BgL_arg2024z00_1769 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 144 */
long BgL_n2z00_1778;
BgL_n2z00_1778 = 
(long)(BgL_arg2024z00_1769); 
BgL_restz00_1768 = 
(BgL_offsetz00_1765%BgL_n2z00_1778); } } 
{ /* ./Ast/shrinkify.scm 144 */

{ /* ./Ast/shrinkify.scm 144 */
obj_t BgL_bucketz00_1770;
{ /* ./Ast/shrinkify.scm 144 */
int BgL_kz00_1780;
BgL_kz00_1780 = 
(int)(BgL_modz00_1766); 
BgL_bucketz00_1770 = 
VECTOR_REF(BgL_arg2017z00_1761,BgL_kz00_1780); } 
{ /* ./Ast/shrinkify.scm 144 */
int BgL_kz00_1782;
BgL_kz00_1782 = 
(int)(BgL_restz00_1768); 
BgL_method2694z00_1758 = 
VECTOR_REF(BgL_bucketz00_1770,BgL_kz00_1782); } } } } } } } } } } 
{ /* ./Ast/shrinkify.scm 144 */
obj_t BgL_xz00_2448;
BgL_xz00_2448 = 
PROCEDURE_ENTRY(BgL_method2694z00_1758)(BgL_method2694z00_1758, 
(obj_t)(BgL_arg3290z00_1160), BEOA); 
BgL_res3575z00_1783 = BUNSPEC; } } BgL_res3575z00_1783; } } 
{ 
obj_t BgL_l2672z00_1161;
{ /* ./Ast/shrinkify.scm 147 */
obj_t BgL_arg3294z00_1163;
BgL_arg3294z00_1163 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1157))->BgL_clausesz00); 
BgL_l2672z00_1161 = BgL_arg3294z00_1163; 
BgL_forzd2each2673zd2_1162:
{ /* ./Ast/shrinkify.scm 145 */
bool_t BgL_test3297z00_1164;
BgL_test3297z00_1164 = 
PAIRP(BgL_l2672z00_1161); 
if(BgL_test3297z00_1164)
{ /* ./Ast/shrinkify.scm 145 */
{ /* ./Ast/shrinkify.scm 146 */
obj_t BgL_clausez00_1165;
BgL_clausez00_1165 = 
CAR(BgL_l2672z00_1161); 
{ /* ./Ast/shrinkify.scm 146 */
obj_t BgL_arg3299z00_1166;
BgL_arg3299z00_1166 = 
CDR(BgL_clausez00_1165); 
{ /* ./Ast/shrinkify.scm 146 */
obj_t BgL_res3578z00_1814;
{ /* ./Ast/shrinkify.scm 146 */
BgL_nodez00_bglt BgL_nodez00_1788;
BgL_nodez00_1788 = 
(BgL_nodez00_bglt)(BgL_arg3299z00_1166); 
{ /* ./Ast/shrinkify.scm 146 */
obj_t BgL_method2694z00_1789;
{ /* ./Ast/shrinkify.scm 146 */
BgL_objectz00_bglt BgL_objz00_1790;
BgL_objz00_1790 = 
(BgL_objectz00_bglt)(BgL_nodez00_1788); 
{ /* ./Ast/shrinkify.scm 146 */
long BgL_objzd2classzd2numz00_1791;
BgL_objzd2classzd2numz00_1791 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1790); 
{ /* ./Ast/shrinkify.scm 146 */
obj_t BgL_arg2017z00_1792;
{ /* ./Ast/shrinkify.scm 146 */
int BgL_auxz00_3088;
BgL_auxz00_3088 = 
(int)(((long)1)); 
BgL_arg2017z00_1792 = 
PROCEDURE_REF(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BgL_auxz00_3088); } 
{ /* ./Ast/shrinkify.scm 146 */
int BgL_offsetz00_1795;
BgL_offsetz00_1795 = 
(int)(BgL_objzd2classzd2numz00_1791); 
{ /* ./Ast/shrinkify.scm 146 */
long BgL_offsetz00_1796;
{ /* ./Ast/shrinkify.scm 146 */
long BgL_auxz00_3092;
BgL_auxz00_3092 = 
(long)(BgL_offsetz00_1795); 
BgL_offsetz00_1796 = 
(BgL_auxz00_3092-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 146 */
long BgL_modz00_1797;
{ /* ./Ast/shrinkify.scm 146 */
int BgL_arg2028z00_1798;
BgL_arg2028z00_1798 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 146 */
long BgL_n2z00_1806;
BgL_n2z00_1806 = 
(long)(BgL_arg2028z00_1798); 
BgL_modz00_1797 = 
(BgL_offsetz00_1796/BgL_n2z00_1806); } } 
{ /* ./Ast/shrinkify.scm 146 */
long BgL_restz00_1799;
{ /* ./Ast/shrinkify.scm 146 */
int BgL_arg2024z00_1800;
BgL_arg2024z00_1800 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 146 */
long BgL_n2z00_1809;
BgL_n2z00_1809 = 
(long)(BgL_arg2024z00_1800); 
BgL_restz00_1799 = 
(BgL_offsetz00_1796%BgL_n2z00_1809); } } 
{ /* ./Ast/shrinkify.scm 146 */

{ /* ./Ast/shrinkify.scm 146 */
obj_t BgL_bucketz00_1801;
{ /* ./Ast/shrinkify.scm 146 */
int BgL_kz00_1811;
BgL_kz00_1811 = 
(int)(BgL_modz00_1797); 
BgL_bucketz00_1801 = 
VECTOR_REF(BgL_arg2017z00_1792,BgL_kz00_1811); } 
{ /* ./Ast/shrinkify.scm 146 */
int BgL_kz00_1813;
BgL_kz00_1813 = 
(int)(BgL_restz00_1799); 
BgL_method2694z00_1789 = 
VECTOR_REF(BgL_bucketz00_1801,BgL_kz00_1813); } } } } } } } } } } 
{ /* ./Ast/shrinkify.scm 146 */
obj_t BgL_xz00_2449;
BgL_xz00_2449 = 
PROCEDURE_ENTRY(BgL_method2694z00_1789)(BgL_method2694z00_1789, 
(obj_t)(BgL_nodez00_1788), BEOA); 
BgL_res3578z00_1814 = BUNSPEC; } } } BgL_res3578z00_1814; } } } 
{ /* ./Ast/shrinkify.scm 145 */
obj_t BgL_arg3304z00_1167;
BgL_arg3304z00_1167 = 
CDR(BgL_l2672z00_1161); 
{ 
obj_t BgL_l2672z00_3109;
BgL_l2672z00_3109 = BgL_arg3304z00_1167; 
BgL_l2672z00_1161 = BgL_l2672z00_3109; 
goto BgL_forzd2each2673zd2_1162;} } }  else 
{ /* ./Ast/shrinkify.scm 145 */((bool_t)1); } } } } 
return BUNSPEC;} } 
}



/* shrink-node!-fail2718 */
obj_t BGl_shrinkzd2nodez12zd2fail2718z12zzast_shrinkifyz00(obj_t BgL_envz00_2406, obj_t BgL_nodez00_2407)
{ AN_OBJECT;
{ /* ./Ast/shrinkify.scm 134 */
{ 
BgL_failz00_bglt BgL_nodez00_1149;
BgL_nodez00_1149 = 
(BgL_failz00_bglt)(BgL_nodez00_2407); 
{ /* ./Ast/shrinkify.scm 135 */
BgL_nodez00_bglt BgL_arg3272z00_1152;
BgL_arg3272z00_1152 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1149))->BgL_procz00); 
{ /* ./Ast/shrinkify.scm 135 */
obj_t BgL_res3566z00_1699;
{ /* ./Ast/shrinkify.scm 135 */
obj_t BgL_method2694z00_1674;
{ /* ./Ast/shrinkify.scm 135 */
BgL_objectz00_bglt BgL_objz00_1675;
BgL_objz00_1675 = 
(BgL_objectz00_bglt)(BgL_arg3272z00_1152); 
{ /* ./Ast/shrinkify.scm 135 */
long BgL_objzd2classzd2numz00_1676;
BgL_objzd2classzd2numz00_1676 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1675); 
{ /* ./Ast/shrinkify.scm 135 */
obj_t BgL_arg2017z00_1677;
{ /* ./Ast/shrinkify.scm 135 */
int BgL_auxz00_3114;
BgL_auxz00_3114 = 
(int)(((long)1)); 
BgL_arg2017z00_1677 = 
PROCEDURE_REF(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BgL_auxz00_3114); } 
{ /* ./Ast/shrinkify.scm 135 */
int BgL_offsetz00_1680;
BgL_offsetz00_1680 = 
(int)(BgL_objzd2classzd2numz00_1676); 
{ /* ./Ast/shrinkify.scm 135 */
long BgL_offsetz00_1681;
{ /* ./Ast/shrinkify.scm 135 */
long BgL_auxz00_3118;
BgL_auxz00_3118 = 
(long)(BgL_offsetz00_1680); 
BgL_offsetz00_1681 = 
(BgL_auxz00_3118-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 135 */
long BgL_modz00_1682;
{ /* ./Ast/shrinkify.scm 135 */
int BgL_arg2028z00_1683;
BgL_arg2028z00_1683 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 135 */
long BgL_n2z00_1691;
BgL_n2z00_1691 = 
(long)(BgL_arg2028z00_1683); 
BgL_modz00_1682 = 
(BgL_offsetz00_1681/BgL_n2z00_1691); } } 
{ /* ./Ast/shrinkify.scm 135 */
long BgL_restz00_1684;
{ /* ./Ast/shrinkify.scm 135 */
int BgL_arg2024z00_1685;
BgL_arg2024z00_1685 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 135 */
long BgL_n2z00_1694;
BgL_n2z00_1694 = 
(long)(BgL_arg2024z00_1685); 
BgL_restz00_1684 = 
(BgL_offsetz00_1681%BgL_n2z00_1694); } } 
{ /* ./Ast/shrinkify.scm 135 */

{ /* ./Ast/shrinkify.scm 135 */
obj_t BgL_bucketz00_1686;
{ /* ./Ast/shrinkify.scm 135 */
int BgL_kz00_1696;
BgL_kz00_1696 = 
(int)(BgL_modz00_1682); 
BgL_bucketz00_1686 = 
VECTOR_REF(BgL_arg2017z00_1677,BgL_kz00_1696); } 
{ /* ./Ast/shrinkify.scm 135 */
int BgL_kz00_1698;
BgL_kz00_1698 = 
(int)(BgL_restz00_1684); 
BgL_method2694z00_1674 = 
VECTOR_REF(BgL_bucketz00_1686,BgL_kz00_1698); } } } } } } } } } } 
{ /* ./Ast/shrinkify.scm 135 */
obj_t BgL_xz00_2450;
BgL_xz00_2450 = 
PROCEDURE_ENTRY(BgL_method2694z00_1674)(BgL_method2694z00_1674, 
(obj_t)(BgL_arg3272z00_1152), BEOA); 
BgL_res3566z00_1699 = BUNSPEC; } } BgL_res3566z00_1699; } } 
{ /* ./Ast/shrinkify.scm 136 */
BgL_nodez00_bglt BgL_arg3276z00_1153;
BgL_arg3276z00_1153 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1149))->BgL_msgz00); 
{ /* ./Ast/shrinkify.scm 136 */
obj_t BgL_res3569z00_1727;
{ /* ./Ast/shrinkify.scm 136 */
obj_t BgL_method2694z00_1702;
{ /* ./Ast/shrinkify.scm 136 */
BgL_objectz00_bglt BgL_objz00_1703;
BgL_objz00_1703 = 
(BgL_objectz00_bglt)(BgL_arg3276z00_1153); 
{ /* ./Ast/shrinkify.scm 136 */
long BgL_objzd2classzd2numz00_1704;
BgL_objzd2classzd2numz00_1704 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1703); 
{ /* ./Ast/shrinkify.scm 136 */
obj_t BgL_arg2017z00_1705;
{ /* ./Ast/shrinkify.scm 136 */
int BgL_auxz00_3137;
BgL_auxz00_3137 = 
(int)(((long)1)); 
BgL_arg2017z00_1705 = 
PROCEDURE_REF(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BgL_auxz00_3137); } 
{ /* ./Ast/shrinkify.scm 136 */
int BgL_offsetz00_1708;
BgL_offsetz00_1708 = 
(int)(BgL_objzd2classzd2numz00_1704); 
{ /* ./Ast/shrinkify.scm 136 */
long BgL_offsetz00_1709;
{ /* ./Ast/shrinkify.scm 136 */
long BgL_auxz00_3141;
BgL_auxz00_3141 = 
(long)(BgL_offsetz00_1708); 
BgL_offsetz00_1709 = 
(BgL_auxz00_3141-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 136 */
long BgL_modz00_1710;
{ /* ./Ast/shrinkify.scm 136 */
int BgL_arg2028z00_1711;
BgL_arg2028z00_1711 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 136 */
long BgL_n2z00_1719;
BgL_n2z00_1719 = 
(long)(BgL_arg2028z00_1711); 
BgL_modz00_1710 = 
(BgL_offsetz00_1709/BgL_n2z00_1719); } } 
{ /* ./Ast/shrinkify.scm 136 */
long BgL_restz00_1712;
{ /* ./Ast/shrinkify.scm 136 */
int BgL_arg2024z00_1713;
BgL_arg2024z00_1713 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 136 */
long BgL_n2z00_1722;
BgL_n2z00_1722 = 
(long)(BgL_arg2024z00_1713); 
BgL_restz00_1712 = 
(BgL_offsetz00_1709%BgL_n2z00_1722); } } 
{ /* ./Ast/shrinkify.scm 136 */

{ /* ./Ast/shrinkify.scm 136 */
obj_t BgL_bucketz00_1714;
{ /* ./Ast/shrinkify.scm 136 */
int BgL_kz00_1724;
BgL_kz00_1724 = 
(int)(BgL_modz00_1710); 
BgL_bucketz00_1714 = 
VECTOR_REF(BgL_arg2017z00_1705,BgL_kz00_1724); } 
{ /* ./Ast/shrinkify.scm 136 */
int BgL_kz00_1726;
BgL_kz00_1726 = 
(int)(BgL_restz00_1712); 
BgL_method2694z00_1702 = 
VECTOR_REF(BgL_bucketz00_1714,BgL_kz00_1726); } } } } } } } } } } 
{ /* ./Ast/shrinkify.scm 136 */
obj_t BgL_xz00_2451;
BgL_xz00_2451 = 
PROCEDURE_ENTRY(BgL_method2694z00_1702)(BgL_method2694z00_1702, 
(obj_t)(BgL_arg3276z00_1153), BEOA); 
BgL_res3569z00_1727 = BUNSPEC; } } BgL_res3569z00_1727; } } 
{ /* ./Ast/shrinkify.scm 137 */
BgL_nodez00_bglt BgL_arg3280z00_1154;
BgL_arg3280z00_1154 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1149))->BgL_objz00); 
{ /* ./Ast/shrinkify.scm 137 */
obj_t BgL_res3572z00_1755;
{ /* ./Ast/shrinkify.scm 137 */
obj_t BgL_method2694z00_1730;
{ /* ./Ast/shrinkify.scm 137 */
BgL_objectz00_bglt BgL_objz00_1731;
BgL_objz00_1731 = 
(BgL_objectz00_bglt)(BgL_arg3280z00_1154); 
{ /* ./Ast/shrinkify.scm 137 */
long BgL_objzd2classzd2numz00_1732;
BgL_objzd2classzd2numz00_1732 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1731); 
{ /* ./Ast/shrinkify.scm 137 */
obj_t BgL_arg2017z00_1733;
{ /* ./Ast/shrinkify.scm 137 */
int BgL_auxz00_3160;
BgL_auxz00_3160 = 
(int)(((long)1)); 
BgL_arg2017z00_1733 = 
PROCEDURE_REF(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BgL_auxz00_3160); } 
{ /* ./Ast/shrinkify.scm 137 */
int BgL_offsetz00_1736;
BgL_offsetz00_1736 = 
(int)(BgL_objzd2classzd2numz00_1732); 
{ /* ./Ast/shrinkify.scm 137 */
long BgL_offsetz00_1737;
{ /* ./Ast/shrinkify.scm 137 */
long BgL_auxz00_3164;
BgL_auxz00_3164 = 
(long)(BgL_offsetz00_1736); 
BgL_offsetz00_1737 = 
(BgL_auxz00_3164-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 137 */
long BgL_modz00_1738;
{ /* ./Ast/shrinkify.scm 137 */
int BgL_arg2028z00_1739;
BgL_arg2028z00_1739 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 137 */
long BgL_n2z00_1747;
BgL_n2z00_1747 = 
(long)(BgL_arg2028z00_1739); 
BgL_modz00_1738 = 
(BgL_offsetz00_1737/BgL_n2z00_1747); } } 
{ /* ./Ast/shrinkify.scm 137 */
long BgL_restz00_1740;
{ /* ./Ast/shrinkify.scm 137 */
int BgL_arg2024z00_1741;
BgL_arg2024z00_1741 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 137 */
long BgL_n2z00_1750;
BgL_n2z00_1750 = 
(long)(BgL_arg2024z00_1741); 
BgL_restz00_1740 = 
(BgL_offsetz00_1737%BgL_n2z00_1750); } } 
{ /* ./Ast/shrinkify.scm 137 */

{ /* ./Ast/shrinkify.scm 137 */
obj_t BgL_bucketz00_1742;
{ /* ./Ast/shrinkify.scm 137 */
int BgL_kz00_1752;
BgL_kz00_1752 = 
(int)(BgL_modz00_1738); 
BgL_bucketz00_1742 = 
VECTOR_REF(BgL_arg2017z00_1733,BgL_kz00_1752); } 
{ /* ./Ast/shrinkify.scm 137 */
int BgL_kz00_1754;
BgL_kz00_1754 = 
(int)(BgL_restz00_1740); 
BgL_method2694z00_1730 = 
VECTOR_REF(BgL_bucketz00_1742,BgL_kz00_1754); } } } } } } } } } } 
{ /* ./Ast/shrinkify.scm 137 */
obj_t BgL_xz00_2452;
BgL_xz00_2452 = 
PROCEDURE_ENTRY(BgL_method2694z00_1730)(BgL_method2694z00_1730, 
(obj_t)(BgL_arg3280z00_1154), BEOA); 
BgL_res3572z00_1755 = BUNSPEC; } } BgL_res3572z00_1755; } } 
return BUNSPEC;} } 
}



/* shrink-node!-conditional2716 */
obj_t BGl_shrinkzd2nodez12zd2conditional2716z12zzast_shrinkifyz00(obj_t BgL_envz00_2408, obj_t BgL_nodez00_2409)
{ AN_OBJECT;
{ /* ./Ast/shrinkify.scm 125 */
{ 
BgL_conditionalz00_bglt BgL_nodez00_1141;
BgL_nodez00_1141 = 
(BgL_conditionalz00_bglt)(BgL_nodez00_2409); 
{ /* ./Ast/shrinkify.scm 126 */
BgL_nodez00_bglt BgL_arg3252z00_1144;
BgL_arg3252z00_1144 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1141))->BgL_testz00); 
{ /* ./Ast/shrinkify.scm 126 */
obj_t BgL_res3557z00_1615;
{ /* ./Ast/shrinkify.scm 126 */
obj_t BgL_method2694z00_1590;
{ /* ./Ast/shrinkify.scm 126 */
BgL_objectz00_bglt BgL_objz00_1591;
BgL_objz00_1591 = 
(BgL_objectz00_bglt)(BgL_arg3252z00_1144); 
{ /* ./Ast/shrinkify.scm 126 */
long BgL_objzd2classzd2numz00_1592;
BgL_objzd2classzd2numz00_1592 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1591); 
{ /* ./Ast/shrinkify.scm 126 */
obj_t BgL_arg2017z00_1593;
{ /* ./Ast/shrinkify.scm 126 */
int BgL_auxz00_3184;
BgL_auxz00_3184 = 
(int)(((long)1)); 
BgL_arg2017z00_1593 = 
PROCEDURE_REF(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BgL_auxz00_3184); } 
{ /* ./Ast/shrinkify.scm 126 */
int BgL_offsetz00_1596;
BgL_offsetz00_1596 = 
(int)(BgL_objzd2classzd2numz00_1592); 
{ /* ./Ast/shrinkify.scm 126 */
long BgL_offsetz00_1597;
{ /* ./Ast/shrinkify.scm 126 */
long BgL_auxz00_3188;
BgL_auxz00_3188 = 
(long)(BgL_offsetz00_1596); 
BgL_offsetz00_1597 = 
(BgL_auxz00_3188-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 126 */
long BgL_modz00_1598;
{ /* ./Ast/shrinkify.scm 126 */
int BgL_arg2028z00_1599;
BgL_arg2028z00_1599 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 126 */
long BgL_n2z00_1607;
BgL_n2z00_1607 = 
(long)(BgL_arg2028z00_1599); 
BgL_modz00_1598 = 
(BgL_offsetz00_1597/BgL_n2z00_1607); } } 
{ /* ./Ast/shrinkify.scm 126 */
long BgL_restz00_1600;
{ /* ./Ast/shrinkify.scm 126 */
int BgL_arg2024z00_1601;
BgL_arg2024z00_1601 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 126 */
long BgL_n2z00_1610;
BgL_n2z00_1610 = 
(long)(BgL_arg2024z00_1601); 
BgL_restz00_1600 = 
(BgL_offsetz00_1597%BgL_n2z00_1610); } } 
{ /* ./Ast/shrinkify.scm 126 */

{ /* ./Ast/shrinkify.scm 126 */
obj_t BgL_bucketz00_1602;
{ /* ./Ast/shrinkify.scm 126 */
int BgL_kz00_1612;
BgL_kz00_1612 = 
(int)(BgL_modz00_1598); 
BgL_bucketz00_1602 = 
VECTOR_REF(BgL_arg2017z00_1593,BgL_kz00_1612); } 
{ /* ./Ast/shrinkify.scm 126 */
int BgL_kz00_1614;
BgL_kz00_1614 = 
(int)(BgL_restz00_1600); 
BgL_method2694z00_1590 = 
VECTOR_REF(BgL_bucketz00_1602,BgL_kz00_1614); } } } } } } } } } } 
{ /* ./Ast/shrinkify.scm 126 */
obj_t BgL_xz00_2453;
BgL_xz00_2453 = 
PROCEDURE_ENTRY(BgL_method2694z00_1590)(BgL_method2694z00_1590, 
(obj_t)(BgL_arg3252z00_1144), BEOA); 
BgL_res3557z00_1615 = BUNSPEC; } } BgL_res3557z00_1615; } } 
{ /* ./Ast/shrinkify.scm 127 */
BgL_nodez00_bglt BgL_arg3257z00_1145;
BgL_arg3257z00_1145 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1141))->BgL_truez00); 
{ /* ./Ast/shrinkify.scm 127 */
obj_t BgL_res3560z00_1643;
{ /* ./Ast/shrinkify.scm 127 */
obj_t BgL_method2694z00_1618;
{ /* ./Ast/shrinkify.scm 127 */
BgL_objectz00_bglt BgL_objz00_1619;
BgL_objz00_1619 = 
(BgL_objectz00_bglt)(BgL_arg3257z00_1145); 
{ /* ./Ast/shrinkify.scm 127 */
long BgL_objzd2classzd2numz00_1620;
BgL_objzd2classzd2numz00_1620 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1619); 
{ /* ./Ast/shrinkify.scm 127 */
obj_t BgL_arg2017z00_1621;
{ /* ./Ast/shrinkify.scm 127 */
int BgL_auxz00_3207;
BgL_auxz00_3207 = 
(int)(((long)1)); 
BgL_arg2017z00_1621 = 
PROCEDURE_REF(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BgL_auxz00_3207); } 
{ /* ./Ast/shrinkify.scm 127 */
int BgL_offsetz00_1624;
BgL_offsetz00_1624 = 
(int)(BgL_objzd2classzd2numz00_1620); 
{ /* ./Ast/shrinkify.scm 127 */
long BgL_offsetz00_1625;
{ /* ./Ast/shrinkify.scm 127 */
long BgL_auxz00_3211;
BgL_auxz00_3211 = 
(long)(BgL_offsetz00_1624); 
BgL_offsetz00_1625 = 
(BgL_auxz00_3211-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 127 */
long BgL_modz00_1626;
{ /* ./Ast/shrinkify.scm 127 */
int BgL_arg2028z00_1627;
BgL_arg2028z00_1627 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 127 */
long BgL_n2z00_1635;
BgL_n2z00_1635 = 
(long)(BgL_arg2028z00_1627); 
BgL_modz00_1626 = 
(BgL_offsetz00_1625/BgL_n2z00_1635); } } 
{ /* ./Ast/shrinkify.scm 127 */
long BgL_restz00_1628;
{ /* ./Ast/shrinkify.scm 127 */
int BgL_arg2024z00_1629;
BgL_arg2024z00_1629 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 127 */
long BgL_n2z00_1638;
BgL_n2z00_1638 = 
(long)(BgL_arg2024z00_1629); 
BgL_restz00_1628 = 
(BgL_offsetz00_1625%BgL_n2z00_1638); } } 
{ /* ./Ast/shrinkify.scm 127 */

{ /* ./Ast/shrinkify.scm 127 */
obj_t BgL_bucketz00_1630;
{ /* ./Ast/shrinkify.scm 127 */
int BgL_kz00_1640;
BgL_kz00_1640 = 
(int)(BgL_modz00_1626); 
BgL_bucketz00_1630 = 
VECTOR_REF(BgL_arg2017z00_1621,BgL_kz00_1640); } 
{ /* ./Ast/shrinkify.scm 127 */
int BgL_kz00_1642;
BgL_kz00_1642 = 
(int)(BgL_restz00_1628); 
BgL_method2694z00_1618 = 
VECTOR_REF(BgL_bucketz00_1630,BgL_kz00_1642); } } } } } } } } } } 
{ /* ./Ast/shrinkify.scm 127 */
obj_t BgL_xz00_2454;
BgL_xz00_2454 = 
PROCEDURE_ENTRY(BgL_method2694z00_1618)(BgL_method2694z00_1618, 
(obj_t)(BgL_arg3257z00_1145), BEOA); 
BgL_res3560z00_1643 = BUNSPEC; } } BgL_res3560z00_1643; } } 
{ /* ./Ast/shrinkify.scm 128 */
BgL_nodez00_bglt BgL_arg3261z00_1146;
BgL_arg3261z00_1146 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1141))->BgL_falsez00); 
{ /* ./Ast/shrinkify.scm 128 */
obj_t BgL_res3563z00_1671;
{ /* ./Ast/shrinkify.scm 128 */
obj_t BgL_method2694z00_1646;
{ /* ./Ast/shrinkify.scm 128 */
BgL_objectz00_bglt BgL_objz00_1647;
BgL_objz00_1647 = 
(BgL_objectz00_bglt)(BgL_arg3261z00_1146); 
{ /* ./Ast/shrinkify.scm 128 */
long BgL_objzd2classzd2numz00_1648;
BgL_objzd2classzd2numz00_1648 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1647); 
{ /* ./Ast/shrinkify.scm 128 */
obj_t BgL_arg2017z00_1649;
{ /* ./Ast/shrinkify.scm 128 */
int BgL_auxz00_3230;
BgL_auxz00_3230 = 
(int)(((long)1)); 
BgL_arg2017z00_1649 = 
PROCEDURE_REF(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BgL_auxz00_3230); } 
{ /* ./Ast/shrinkify.scm 128 */
int BgL_offsetz00_1652;
BgL_offsetz00_1652 = 
(int)(BgL_objzd2classzd2numz00_1648); 
{ /* ./Ast/shrinkify.scm 128 */
long BgL_offsetz00_1653;
{ /* ./Ast/shrinkify.scm 128 */
long BgL_auxz00_3234;
BgL_auxz00_3234 = 
(long)(BgL_offsetz00_1652); 
BgL_offsetz00_1653 = 
(BgL_auxz00_3234-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 128 */
long BgL_modz00_1654;
{ /* ./Ast/shrinkify.scm 128 */
int BgL_arg2028z00_1655;
BgL_arg2028z00_1655 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 128 */
long BgL_n2z00_1663;
BgL_n2z00_1663 = 
(long)(BgL_arg2028z00_1655); 
BgL_modz00_1654 = 
(BgL_offsetz00_1653/BgL_n2z00_1663); } } 
{ /* ./Ast/shrinkify.scm 128 */
long BgL_restz00_1656;
{ /* ./Ast/shrinkify.scm 128 */
int BgL_arg2024z00_1657;
BgL_arg2024z00_1657 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 128 */
long BgL_n2z00_1666;
BgL_n2z00_1666 = 
(long)(BgL_arg2024z00_1657); 
BgL_restz00_1656 = 
(BgL_offsetz00_1653%BgL_n2z00_1666); } } 
{ /* ./Ast/shrinkify.scm 128 */

{ /* ./Ast/shrinkify.scm 128 */
obj_t BgL_bucketz00_1658;
{ /* ./Ast/shrinkify.scm 128 */
int BgL_kz00_1668;
BgL_kz00_1668 = 
(int)(BgL_modz00_1654); 
BgL_bucketz00_1658 = 
VECTOR_REF(BgL_arg2017z00_1649,BgL_kz00_1668); } 
{ /* ./Ast/shrinkify.scm 128 */
int BgL_kz00_1670;
BgL_kz00_1670 = 
(int)(BgL_restz00_1656); 
BgL_method2694z00_1646 = 
VECTOR_REF(BgL_bucketz00_1658,BgL_kz00_1670); } } } } } } } } } } 
{ /* ./Ast/shrinkify.scm 128 */
obj_t BgL_xz00_2455;
BgL_xz00_2455 = 
PROCEDURE_ENTRY(BgL_method2694z00_1646)(BgL_method2694z00_1646, 
(obj_t)(BgL_arg3261z00_1146), BEOA); 
BgL_res3563z00_1671 = BUNSPEC; } } BgL_res3563z00_1671; } } 
return BUNSPEC;} } 
}



/* shrink-node!-setq2714 */
obj_t BGl_shrinkzd2nodez12zd2setq2714z12zzast_shrinkifyz00(obj_t BgL_envz00_2410, obj_t BgL_nodez00_2411)
{ AN_OBJECT;
{ /* ./Ast/shrinkify.scm 118 */
{ 
BgL_setqz00_bglt BgL_nodez00_1135;
BgL_nodez00_1135 = 
(BgL_setqz00_bglt)(BgL_nodez00_2411); 
{ /* ./Ast/shrinkify.scm 119 */
BgL_nodez00_bglt BgL_arg3242z00_1559;
BgL_arg3242z00_1559 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1135))->BgL_valuez00); 
{ /* ./Ast/shrinkify.scm 119 */
obj_t BgL_res3554z00_1587;
{ /* ./Ast/shrinkify.scm 119 */
obj_t BgL_method2694z00_1562;
{ /* ./Ast/shrinkify.scm 119 */
BgL_objectz00_bglt BgL_objz00_1563;
BgL_objz00_1563 = 
(BgL_objectz00_bglt)(BgL_arg3242z00_1559); 
{ /* ./Ast/shrinkify.scm 119 */
long BgL_objzd2classzd2numz00_1564;
BgL_objzd2classzd2numz00_1564 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1563); 
{ /* ./Ast/shrinkify.scm 119 */
obj_t BgL_arg2017z00_1565;
{ /* ./Ast/shrinkify.scm 119 */
int BgL_auxz00_3254;
BgL_auxz00_3254 = 
(int)(((long)1)); 
BgL_arg2017z00_1565 = 
PROCEDURE_REF(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BgL_auxz00_3254); } 
{ /* ./Ast/shrinkify.scm 119 */
int BgL_offsetz00_1568;
BgL_offsetz00_1568 = 
(int)(BgL_objzd2classzd2numz00_1564); 
{ /* ./Ast/shrinkify.scm 119 */
long BgL_offsetz00_1569;
{ /* ./Ast/shrinkify.scm 119 */
long BgL_auxz00_3258;
BgL_auxz00_3258 = 
(long)(BgL_offsetz00_1568); 
BgL_offsetz00_1569 = 
(BgL_auxz00_3258-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 119 */
long BgL_modz00_1570;
{ /* ./Ast/shrinkify.scm 119 */
int BgL_arg2028z00_1571;
BgL_arg2028z00_1571 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 119 */
long BgL_n2z00_1579;
BgL_n2z00_1579 = 
(long)(BgL_arg2028z00_1571); 
BgL_modz00_1570 = 
(BgL_offsetz00_1569/BgL_n2z00_1579); } } 
{ /* ./Ast/shrinkify.scm 119 */
long BgL_restz00_1572;
{ /* ./Ast/shrinkify.scm 119 */
int BgL_arg2024z00_1573;
BgL_arg2024z00_1573 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 119 */
long BgL_n2z00_1582;
BgL_n2z00_1582 = 
(long)(BgL_arg2024z00_1573); 
BgL_restz00_1572 = 
(BgL_offsetz00_1569%BgL_n2z00_1582); } } 
{ /* ./Ast/shrinkify.scm 119 */

{ /* ./Ast/shrinkify.scm 119 */
obj_t BgL_bucketz00_1574;
{ /* ./Ast/shrinkify.scm 119 */
int BgL_kz00_1584;
BgL_kz00_1584 = 
(int)(BgL_modz00_1570); 
BgL_bucketz00_1574 = 
VECTOR_REF(BgL_arg2017z00_1565,BgL_kz00_1584); } 
{ /* ./Ast/shrinkify.scm 119 */
int BgL_kz00_1586;
BgL_kz00_1586 = 
(int)(BgL_restz00_1572); 
BgL_method2694z00_1562 = 
VECTOR_REF(BgL_bucketz00_1574,BgL_kz00_1586); } } } } } } } } } } 
{ /* ./Ast/shrinkify.scm 119 */
obj_t BgL_xz00_2456;
BgL_xz00_2456 = 
PROCEDURE_ENTRY(BgL_method2694z00_1562)(BgL_method2694z00_1562, 
(obj_t)(BgL_arg3242z00_1559), BEOA); 
BgL_res3554z00_1587 = BUNSPEC; } } BgL_res3554z00_1587; } } 
return BUNSPEC;} } 
}



/* shrink-node!-cast2712 */
obj_t BGl_shrinkzd2nodez12zd2cast2712z12zzast_shrinkifyz00(obj_t BgL_envz00_2412, obj_t BgL_nodez00_2413)
{ AN_OBJECT;
{ /* ./Ast/shrinkify.scm 111 */
{ 
BgL_castz00_bglt BgL_nodez00_1129;
{ /* ./Ast/shrinkify.scm 112 */
BgL_castz00_bglt BgL_auxz00_3275;
BgL_nodez00_1129 = 
(BgL_castz00_bglt)(BgL_nodez00_2413); 
{ /* ./Ast/shrinkify.scm 112 */
BgL_nodez00_bglt BgL_arg3232z00_1530;
BgL_arg3232z00_1530 = 
(((BgL_castz00_bglt)CREF(BgL_nodez00_1129))->BgL_argz00); 
{ /* ./Ast/shrinkify.scm 112 */
obj_t BgL_res3551z00_1558;
{ /* ./Ast/shrinkify.scm 112 */
obj_t BgL_method2694z00_1533;
{ /* ./Ast/shrinkify.scm 112 */
BgL_objectz00_bglt BgL_objz00_1534;
BgL_objz00_1534 = 
(BgL_objectz00_bglt)(BgL_arg3232z00_1530); 
{ /* ./Ast/shrinkify.scm 112 */
long BgL_objzd2classzd2numz00_1535;
BgL_objzd2classzd2numz00_1535 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1534); 
{ /* ./Ast/shrinkify.scm 112 */
obj_t BgL_arg2017z00_1536;
{ /* ./Ast/shrinkify.scm 112 */
int BgL_auxz00_3279;
BgL_auxz00_3279 = 
(int)(((long)1)); 
BgL_arg2017z00_1536 = 
PROCEDURE_REF(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BgL_auxz00_3279); } 
{ /* ./Ast/shrinkify.scm 112 */
int BgL_offsetz00_1539;
BgL_offsetz00_1539 = 
(int)(BgL_objzd2classzd2numz00_1535); 
{ /* ./Ast/shrinkify.scm 112 */
long BgL_offsetz00_1540;
{ /* ./Ast/shrinkify.scm 112 */
long BgL_auxz00_3283;
BgL_auxz00_3283 = 
(long)(BgL_offsetz00_1539); 
BgL_offsetz00_1540 = 
(BgL_auxz00_3283-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 112 */
long BgL_modz00_1541;
{ /* ./Ast/shrinkify.scm 112 */
int BgL_arg2028z00_1542;
BgL_arg2028z00_1542 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 112 */
long BgL_n2z00_1550;
BgL_n2z00_1550 = 
(long)(BgL_arg2028z00_1542); 
BgL_modz00_1541 = 
(BgL_offsetz00_1540/BgL_n2z00_1550); } } 
{ /* ./Ast/shrinkify.scm 112 */
long BgL_restz00_1543;
{ /* ./Ast/shrinkify.scm 112 */
int BgL_arg2024z00_1544;
BgL_arg2024z00_1544 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 112 */
long BgL_n2z00_1553;
BgL_n2z00_1553 = 
(long)(BgL_arg2024z00_1544); 
BgL_restz00_1543 = 
(BgL_offsetz00_1540%BgL_n2z00_1553); } } 
{ /* ./Ast/shrinkify.scm 112 */

{ /* ./Ast/shrinkify.scm 112 */
obj_t BgL_bucketz00_1545;
{ /* ./Ast/shrinkify.scm 112 */
int BgL_kz00_1555;
BgL_kz00_1555 = 
(int)(BgL_modz00_1541); 
BgL_bucketz00_1545 = 
VECTOR_REF(BgL_arg2017z00_1536,BgL_kz00_1555); } 
{ /* ./Ast/shrinkify.scm 112 */
int BgL_kz00_1557;
BgL_kz00_1557 = 
(int)(BgL_restz00_1543); 
BgL_method2694z00_1533 = 
VECTOR_REF(BgL_bucketz00_1545,BgL_kz00_1557); } } } } } } } } } } 
{ /* ./Ast/shrinkify.scm 112 */
obj_t BgL_xz00_2457;
BgL_xz00_2457 = 
PROCEDURE_ENTRY(BgL_method2694z00_1533)(BgL_method2694z00_1533, 
(obj_t)(BgL_arg3232z00_1530), BEOA); 
BgL_res3551z00_1558 = BUNSPEC; } } BgL_res3551z00_1558; } } 
BgL_auxz00_3275 = BgL_nodez00_1129; 
return 
(obj_t)(BgL_auxz00_3275);} } } 
}



/* shrink-node!-extern2710 */
obj_t BGl_shrinkzd2nodez12zd2extern2710z12zzast_shrinkifyz00(obj_t BgL_envz00_2414, obj_t BgL_nodez00_2415)
{ AN_OBJECT;
{ /* ./Ast/shrinkify.scm 103 */
{ 
BgL_externz00_bglt BgL_nodez00_1118;
{ /* ./Ast/shrinkify.scm 104 */
BgL_externz00_bglt BgL_auxz00_3301;
BgL_nodez00_1118 = 
(BgL_externz00_bglt)(BgL_nodez00_2415); 
{ /* ./Ast/shrinkify.scm 104 */
bool_t BgL_test3208z00_1121;
{ /* ./Ast/shrinkify.scm 104 */
bool_t BgL_testz00_3302;
{ /* ./Ast/shrinkify.scm 104 */
obj_t BgL_auxz00_3303;
{ /* ./Ast/shrinkify.scm 104 */
BgL_objectz00_bglt BgL_auxz00_3304;
BgL_auxz00_3304 = 
(BgL_objectz00_bglt)(BgL_nodez00_1118); 
BgL_auxz00_3303 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3304); } 
BgL_testz00_3302 = 
CBOOL(BgL_auxz00_3303); } 
if(BgL_testz00_3302)
{ /* ./Ast/shrinkify.scm 104 */
BgL_test3208z00_1121 = ((bool_t)1); }  else 
{ /* ./Ast/shrinkify.scm 104 */
BgL_test3208z00_1121 = ((bool_t)0); } } 
if(BgL_test3208z00_1121)
{ /* ./Ast/shrinkify.scm 104 */
{ /* ./Ast/shrinkify.scm 104 */
long BgL_arg3210z00_1123;
{ /* ./Ast/shrinkify.scm 104 */
obj_t BgL_arg3213z00_1124;
{ /* ./Ast/shrinkify.scm 104 */
obj_t BgL_arg3216z00_1125;
{ /* ./Ast/shrinkify.scm 104 */
BgL_objectz00_bglt BgL_objectz00_1519;
BgL_objectz00_1519 = 
(BgL_objectz00_bglt)(BgL_nodez00_1118); 
{ /* ./Ast/shrinkify.scm 104 */
long BgL_arg2036z00_1520;
{ /* ./Ast/shrinkify.scm 104 */
long BgL_arg2039z00_1521;
BgL_arg2039z00_1521 = 
BGL_OBJECT_CLASS_NUM(BgL_objectz00_1519); 
BgL_arg2036z00_1520 = 
(BgL_arg2039z00_1521-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 104 */
obj_t BgL_vectorz00_1525;int BgL_kz00_1526;
BgL_vectorz00_1525 = BGl_za2classesza2z00zz__objectz00; 
BgL_kz00_1526 = 
(int)(BgL_arg2036z00_1520); 
BgL_arg3216z00_1125 = 
VECTOR_REF(BgL_vectorz00_1525,BgL_kz00_1526); } } } 
BgL_arg3213z00_1124 = 
BGl_classzd2superzd2zz__objectz00(BgL_arg3216z00_1125); } 
BgL_arg3210z00_1123 = 
BGl_classzd2numzd2zz__objectz00(BgL_arg3213z00_1124); } 
{ /* ./Ast/shrinkify.scm 104 */
BgL_objectz00_bglt BgL_objz00_1527;
BgL_objz00_1527 = 
(BgL_objectz00_bglt)(BgL_nodez00_1118); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1527, BgL_arg3210z00_1123); } } 
{ /* ./Ast/shrinkify.scm 104 */
BgL_objectz00_bglt BgL_auxz00_3318;
BgL_auxz00_3318 = 
(BgL_objectz00_bglt)(BgL_nodez00_1118); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3318, BFALSE); } 
(obj_t)(BgL_nodez00_1118); }  else 
{ /* ./Ast/shrinkify.scm 104 */BFALSE; } } 
{ /* ./Ast/shrinkify.scm 105 */
obj_t BgL_arg3222z00_1126;
BgL_arg3222z00_1126 = 
(((BgL_externz00_bglt)CREF(BgL_nodez00_1118))->BgL_exprza2za2); 
BGl_shrinkzd2nodeza2z12z62zzast_shrinkifyz00(BgL_arg3222z00_1126); } 
BgL_auxz00_3301 = BgL_nodez00_1118; 
return 
(obj_t)(BgL_auxz00_3301);} } } 
}



/* shrink-node!-funcall2708 */
obj_t BGl_shrinkzd2nodez12zd2funcall2708z12zzast_shrinkifyz00(obj_t BgL_envz00_2416, obj_t BgL_nodez00_2417)
{ AN_OBJECT;
{ /* ./Ast/shrinkify.scm 94 */
{ 
BgL_funcallz00_bglt BgL_nodez00_1106;
BgL_nodez00_1106 = 
(BgL_funcallz00_bglt)(BgL_nodez00_2417); 
{ /* ./Ast/shrinkify.scm 95 */
bool_t BgL_test3181z00_1109;
{ /* ./Ast/shrinkify.scm 95 */
bool_t BgL_testz00_3326;
{ /* ./Ast/shrinkify.scm 95 */
obj_t BgL_auxz00_3327;
{ /* ./Ast/shrinkify.scm 95 */
BgL_objectz00_bglt BgL_auxz00_3328;
BgL_auxz00_3328 = 
(BgL_objectz00_bglt)(BgL_nodez00_1106); 
BgL_auxz00_3327 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3328); } 
BgL_testz00_3326 = 
CBOOL(BgL_auxz00_3327); } 
if(BgL_testz00_3326)
{ /* ./Ast/shrinkify.scm 95 */
BgL_test3181z00_1109 = ((bool_t)1); }  else 
{ /* ./Ast/shrinkify.scm 95 */
BgL_test3181z00_1109 = ((bool_t)0); } } 
if(BgL_test3181z00_1109)
{ /* ./Ast/shrinkify.scm 95 */
{ /* ./Ast/shrinkify.scm 95 */
long BgL_arg3183z00_1111;
{ /* ./Ast/shrinkify.scm 95 */
obj_t BgL_arg3186z00_1112;
{ /* ./Ast/shrinkify.scm 95 */
obj_t BgL_arg3189z00_1113;
{ /* ./Ast/shrinkify.scm 95 */
BgL_objectz00_bglt BgL_objectz00_1477;
BgL_objectz00_1477 = 
(BgL_objectz00_bglt)(BgL_nodez00_1106); 
{ /* ./Ast/shrinkify.scm 95 */
long BgL_arg2036z00_1478;
{ /* ./Ast/shrinkify.scm 95 */
long BgL_arg2039z00_1479;
BgL_arg2039z00_1479 = 
BGL_OBJECT_CLASS_NUM(BgL_objectz00_1477); 
BgL_arg2036z00_1478 = 
(BgL_arg2039z00_1479-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 95 */
obj_t BgL_vectorz00_1483;int BgL_kz00_1484;
BgL_vectorz00_1483 = BGl_za2classesza2z00zz__objectz00; 
BgL_kz00_1484 = 
(int)(BgL_arg2036z00_1478); 
BgL_arg3189z00_1113 = 
VECTOR_REF(BgL_vectorz00_1483,BgL_kz00_1484); } } } 
BgL_arg3186z00_1112 = 
BGl_classzd2superzd2zz__objectz00(BgL_arg3189z00_1113); } 
BgL_arg3183z00_1111 = 
BGl_classzd2numzd2zz__objectz00(BgL_arg3186z00_1112); } 
{ /* ./Ast/shrinkify.scm 95 */
BgL_objectz00_bglt BgL_objz00_1485;
BgL_objz00_1485 = 
(BgL_objectz00_bglt)(BgL_nodez00_1106); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1485, BgL_arg3183z00_1111); } } 
{ /* ./Ast/shrinkify.scm 95 */
BgL_objectz00_bglt BgL_auxz00_3342;
BgL_auxz00_3342 = 
(BgL_objectz00_bglt)(BgL_nodez00_1106); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3342, BFALSE); } 
(obj_t)(BgL_nodez00_1106); }  else 
{ /* ./Ast/shrinkify.scm 95 */BFALSE; } } 
{ /* ./Ast/shrinkify.scm 96 */
BgL_nodez00_bglt BgL_arg3195z00_1114;
BgL_arg3195z00_1114 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1106))->BgL_funz00); 
{ /* ./Ast/shrinkify.scm 96 */
obj_t BgL_res3547z00_1514;
{ /* ./Ast/shrinkify.scm 96 */
obj_t BgL_method2694z00_1489;
{ /* ./Ast/shrinkify.scm 96 */
BgL_objectz00_bglt BgL_objz00_1490;
BgL_objz00_1490 = 
(BgL_objectz00_bglt)(BgL_arg3195z00_1114); 
{ /* ./Ast/shrinkify.scm 96 */
long BgL_objzd2classzd2numz00_1491;
BgL_objzd2classzd2numz00_1491 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1490); 
{ /* ./Ast/shrinkify.scm 96 */
obj_t BgL_arg2017z00_1492;
{ /* ./Ast/shrinkify.scm 96 */
int BgL_auxz00_3349;
BgL_auxz00_3349 = 
(int)(((long)1)); 
BgL_arg2017z00_1492 = 
PROCEDURE_REF(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BgL_auxz00_3349); } 
{ /* ./Ast/shrinkify.scm 96 */
int BgL_offsetz00_1495;
BgL_offsetz00_1495 = 
(int)(BgL_objzd2classzd2numz00_1491); 
{ /* ./Ast/shrinkify.scm 96 */
long BgL_offsetz00_1496;
{ /* ./Ast/shrinkify.scm 96 */
long BgL_auxz00_3353;
BgL_auxz00_3353 = 
(long)(BgL_offsetz00_1495); 
BgL_offsetz00_1496 = 
(BgL_auxz00_3353-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 96 */
long BgL_modz00_1497;
{ /* ./Ast/shrinkify.scm 96 */
int BgL_arg2028z00_1498;
BgL_arg2028z00_1498 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 96 */
long BgL_n2z00_1506;
BgL_n2z00_1506 = 
(long)(BgL_arg2028z00_1498); 
BgL_modz00_1497 = 
(BgL_offsetz00_1496/BgL_n2z00_1506); } } 
{ /* ./Ast/shrinkify.scm 96 */
long BgL_restz00_1499;
{ /* ./Ast/shrinkify.scm 96 */
int BgL_arg2024z00_1500;
BgL_arg2024z00_1500 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 96 */
long BgL_n2z00_1509;
BgL_n2z00_1509 = 
(long)(BgL_arg2024z00_1500); 
BgL_restz00_1499 = 
(BgL_offsetz00_1496%BgL_n2z00_1509); } } 
{ /* ./Ast/shrinkify.scm 96 */

{ /* ./Ast/shrinkify.scm 96 */
obj_t BgL_bucketz00_1501;
{ /* ./Ast/shrinkify.scm 96 */
int BgL_kz00_1511;
BgL_kz00_1511 = 
(int)(BgL_modz00_1497); 
BgL_bucketz00_1501 = 
VECTOR_REF(BgL_arg2017z00_1492,BgL_kz00_1511); } 
{ /* ./Ast/shrinkify.scm 96 */
int BgL_kz00_1513;
BgL_kz00_1513 = 
(int)(BgL_restz00_1499); 
BgL_method2694z00_1489 = 
VECTOR_REF(BgL_bucketz00_1501,BgL_kz00_1513); } } } } } } } } } } 
{ /* ./Ast/shrinkify.scm 96 */
obj_t BgL_xz00_2458;
BgL_xz00_2458 = 
PROCEDURE_ENTRY(BgL_method2694z00_1489)(BgL_method2694z00_1489, 
(obj_t)(BgL_arg3195z00_1114), BEOA); 
BgL_res3547z00_1514 = BUNSPEC; } } BgL_res3547z00_1514; } } 
{ /* ./Ast/shrinkify.scm 97 */
obj_t BgL_arg3199z00_1115;
BgL_arg3199z00_1115 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1106))->BgL_argsz00); 
BGl_shrinkzd2nodeza2z12z62zzast_shrinkifyz00(BgL_arg3199z00_1115); } 
return BUNSPEC;} } 
}



/* shrink-node!-app-ly2706 */
obj_t BGl_shrinkzd2nodez12zd2appzd2ly2706zc0zzast_shrinkifyz00(obj_t BgL_envz00_2418, obj_t BgL_nodez00_2419)
{ AN_OBJECT;
{ /* ./Ast/shrinkify.scm 85 */
{ 
BgL_appzd2lyzd2_bglt BgL_nodez00_1094;
BgL_nodez00_1094 = 
(BgL_appzd2lyzd2_bglt)(BgL_nodez00_2419); 
{ /* ./Ast/shrinkify.scm 86 */
bool_t BgL_test3153z00_1097;
{ /* ./Ast/shrinkify.scm 86 */
bool_t BgL_testz00_3372;
{ /* ./Ast/shrinkify.scm 86 */
obj_t BgL_auxz00_3373;
{ /* ./Ast/shrinkify.scm 86 */
BgL_objectz00_bglt BgL_auxz00_3374;
BgL_auxz00_3374 = 
(BgL_objectz00_bglt)(BgL_nodez00_1094); 
BgL_auxz00_3373 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3374); } 
BgL_testz00_3372 = 
CBOOL(BgL_auxz00_3373); } 
if(BgL_testz00_3372)
{ /* ./Ast/shrinkify.scm 86 */
BgL_test3153z00_1097 = ((bool_t)1); }  else 
{ /* ./Ast/shrinkify.scm 86 */
BgL_test3153z00_1097 = ((bool_t)0); } } 
if(BgL_test3153z00_1097)
{ /* ./Ast/shrinkify.scm 86 */
{ /* ./Ast/shrinkify.scm 86 */
long BgL_arg3156z00_1099;
{ /* ./Ast/shrinkify.scm 86 */
obj_t BgL_arg3159z00_1100;
{ /* ./Ast/shrinkify.scm 86 */
obj_t BgL_arg3162z00_1101;
{ /* ./Ast/shrinkify.scm 86 */
BgL_objectz00_bglt BgL_objectz00_1408;
BgL_objectz00_1408 = 
(BgL_objectz00_bglt)(BgL_nodez00_1094); 
{ /* ./Ast/shrinkify.scm 86 */
long BgL_arg2036z00_1409;
{ /* ./Ast/shrinkify.scm 86 */
long BgL_arg2039z00_1410;
BgL_arg2039z00_1410 = 
BGL_OBJECT_CLASS_NUM(BgL_objectz00_1408); 
BgL_arg2036z00_1409 = 
(BgL_arg2039z00_1410-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 86 */
obj_t BgL_vectorz00_1414;int BgL_kz00_1415;
BgL_vectorz00_1414 = BGl_za2classesza2z00zz__objectz00; 
BgL_kz00_1415 = 
(int)(BgL_arg2036z00_1409); 
BgL_arg3162z00_1101 = 
VECTOR_REF(BgL_vectorz00_1414,BgL_kz00_1415); } } } 
BgL_arg3159z00_1100 = 
BGl_classzd2superzd2zz__objectz00(BgL_arg3162z00_1101); } 
BgL_arg3156z00_1099 = 
BGl_classzd2numzd2zz__objectz00(BgL_arg3159z00_1100); } 
{ /* ./Ast/shrinkify.scm 86 */
BgL_objectz00_bglt BgL_objz00_1416;
BgL_objz00_1416 = 
(BgL_objectz00_bglt)(BgL_nodez00_1094); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1416, BgL_arg3156z00_1099); } } 
{ /* ./Ast/shrinkify.scm 86 */
BgL_objectz00_bglt BgL_auxz00_3388;
BgL_auxz00_3388 = 
(BgL_objectz00_bglt)(BgL_nodez00_1094); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3388, BFALSE); } 
(obj_t)(BgL_nodez00_1094); }  else 
{ /* ./Ast/shrinkify.scm 86 */BFALSE; } } 
{ /* ./Ast/shrinkify.scm 87 */
BgL_nodez00_bglt BgL_arg3168z00_1102;
BgL_arg3168z00_1102 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1094))->BgL_funz00); 
{ /* ./Ast/shrinkify.scm 87 */
obj_t BgL_res3540z00_1445;
{ /* ./Ast/shrinkify.scm 87 */
obj_t BgL_method2694z00_1420;
{ /* ./Ast/shrinkify.scm 87 */
BgL_objectz00_bglt BgL_objz00_1421;
BgL_objz00_1421 = 
(BgL_objectz00_bglt)(BgL_arg3168z00_1102); 
{ /* ./Ast/shrinkify.scm 87 */
long BgL_objzd2classzd2numz00_1422;
BgL_objzd2classzd2numz00_1422 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1421); 
{ /* ./Ast/shrinkify.scm 87 */
obj_t BgL_arg2017z00_1423;
{ /* ./Ast/shrinkify.scm 87 */
int BgL_auxz00_3395;
BgL_auxz00_3395 = 
(int)(((long)1)); 
BgL_arg2017z00_1423 = 
PROCEDURE_REF(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BgL_auxz00_3395); } 
{ /* ./Ast/shrinkify.scm 87 */
int BgL_offsetz00_1426;
BgL_offsetz00_1426 = 
(int)(BgL_objzd2classzd2numz00_1422); 
{ /* ./Ast/shrinkify.scm 87 */
long BgL_offsetz00_1427;
{ /* ./Ast/shrinkify.scm 87 */
long BgL_auxz00_3399;
BgL_auxz00_3399 = 
(long)(BgL_offsetz00_1426); 
BgL_offsetz00_1427 = 
(BgL_auxz00_3399-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 87 */
long BgL_modz00_1428;
{ /* ./Ast/shrinkify.scm 87 */
int BgL_arg2028z00_1429;
BgL_arg2028z00_1429 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 87 */
long BgL_n2z00_1437;
BgL_n2z00_1437 = 
(long)(BgL_arg2028z00_1429); 
BgL_modz00_1428 = 
(BgL_offsetz00_1427/BgL_n2z00_1437); } } 
{ /* ./Ast/shrinkify.scm 87 */
long BgL_restz00_1430;
{ /* ./Ast/shrinkify.scm 87 */
int BgL_arg2024z00_1431;
BgL_arg2024z00_1431 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 87 */
long BgL_n2z00_1440;
BgL_n2z00_1440 = 
(long)(BgL_arg2024z00_1431); 
BgL_restz00_1430 = 
(BgL_offsetz00_1427%BgL_n2z00_1440); } } 
{ /* ./Ast/shrinkify.scm 87 */

{ /* ./Ast/shrinkify.scm 87 */
obj_t BgL_bucketz00_1432;
{ /* ./Ast/shrinkify.scm 87 */
int BgL_kz00_1442;
BgL_kz00_1442 = 
(int)(BgL_modz00_1428); 
BgL_bucketz00_1432 = 
VECTOR_REF(BgL_arg2017z00_1423,BgL_kz00_1442); } 
{ /* ./Ast/shrinkify.scm 87 */
int BgL_kz00_1444;
BgL_kz00_1444 = 
(int)(BgL_restz00_1430); 
BgL_method2694z00_1420 = 
VECTOR_REF(BgL_bucketz00_1432,BgL_kz00_1444); } } } } } } } } } } 
{ /* ./Ast/shrinkify.scm 87 */
obj_t BgL_xz00_2459;
BgL_xz00_2459 = 
PROCEDURE_ENTRY(BgL_method2694z00_1420)(BgL_method2694z00_1420, 
(obj_t)(BgL_arg3168z00_1102), BEOA); 
BgL_res3540z00_1445 = BUNSPEC; } } BgL_res3540z00_1445; } } 
{ /* ./Ast/shrinkify.scm 88 */
BgL_nodez00_bglt BgL_arg3172z00_1103;
BgL_arg3172z00_1103 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1094))->BgL_argz00); 
{ /* ./Ast/shrinkify.scm 88 */
obj_t BgL_res3543z00_1473;
{ /* ./Ast/shrinkify.scm 88 */
obj_t BgL_method2694z00_1448;
{ /* ./Ast/shrinkify.scm 88 */
BgL_objectz00_bglt BgL_objz00_1449;
BgL_objz00_1449 = 
(BgL_objectz00_bglt)(BgL_arg3172z00_1103); 
{ /* ./Ast/shrinkify.scm 88 */
long BgL_objzd2classzd2numz00_1450;
BgL_objzd2classzd2numz00_1450 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1449); 
{ /* ./Ast/shrinkify.scm 88 */
obj_t BgL_arg2017z00_1451;
{ /* ./Ast/shrinkify.scm 88 */
int BgL_auxz00_3418;
BgL_auxz00_3418 = 
(int)(((long)1)); 
BgL_arg2017z00_1451 = 
PROCEDURE_REF(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BgL_auxz00_3418); } 
{ /* ./Ast/shrinkify.scm 88 */
int BgL_offsetz00_1454;
BgL_offsetz00_1454 = 
(int)(BgL_objzd2classzd2numz00_1450); 
{ /* ./Ast/shrinkify.scm 88 */
long BgL_offsetz00_1455;
{ /* ./Ast/shrinkify.scm 88 */
long BgL_auxz00_3422;
BgL_auxz00_3422 = 
(long)(BgL_offsetz00_1454); 
BgL_offsetz00_1455 = 
(BgL_auxz00_3422-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 88 */
long BgL_modz00_1456;
{ /* ./Ast/shrinkify.scm 88 */
int BgL_arg2028z00_1457;
BgL_arg2028z00_1457 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 88 */
long BgL_n2z00_1465;
BgL_n2z00_1465 = 
(long)(BgL_arg2028z00_1457); 
BgL_modz00_1456 = 
(BgL_offsetz00_1455/BgL_n2z00_1465); } } 
{ /* ./Ast/shrinkify.scm 88 */
long BgL_restz00_1458;
{ /* ./Ast/shrinkify.scm 88 */
int BgL_arg2024z00_1459;
BgL_arg2024z00_1459 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 88 */
long BgL_n2z00_1468;
BgL_n2z00_1468 = 
(long)(BgL_arg2024z00_1459); 
BgL_restz00_1458 = 
(BgL_offsetz00_1455%BgL_n2z00_1468); } } 
{ /* ./Ast/shrinkify.scm 88 */

{ /* ./Ast/shrinkify.scm 88 */
obj_t BgL_bucketz00_1460;
{ /* ./Ast/shrinkify.scm 88 */
int BgL_kz00_1470;
BgL_kz00_1470 = 
(int)(BgL_modz00_1456); 
BgL_bucketz00_1460 = 
VECTOR_REF(BgL_arg2017z00_1451,BgL_kz00_1470); } 
{ /* ./Ast/shrinkify.scm 88 */
int BgL_kz00_1472;
BgL_kz00_1472 = 
(int)(BgL_restz00_1458); 
BgL_method2694z00_1448 = 
VECTOR_REF(BgL_bucketz00_1460,BgL_kz00_1472); } } } } } } } } } } 
{ /* ./Ast/shrinkify.scm 88 */
obj_t BgL_xz00_2460;
BgL_xz00_2460 = 
PROCEDURE_ENTRY(BgL_method2694z00_1448)(BgL_method2694z00_1448, 
(obj_t)(BgL_arg3172z00_1103), BEOA); 
BgL_res3543z00_1473 = BUNSPEC; } } BgL_res3543z00_1473; } } 
return BUNSPEC;} } 
}



/* shrink-node!-app2704 */
obj_t BGl_shrinkzd2nodez12zd2app2704z12zzast_shrinkifyz00(obj_t BgL_envz00_2420, obj_t BgL_nodez00_2421)
{ AN_OBJECT;
{ /* ./Ast/shrinkify.scm 76 */
{ 
BgL_appz00_bglt BgL_nodez00_1082;
BgL_nodez00_1082 = 
(BgL_appz00_bglt)(BgL_nodez00_2421); 
{ /* ./Ast/shrinkify.scm 77 */
bool_t BgL_test3125z00_1085;
{ /* ./Ast/shrinkify.scm 77 */
bool_t BgL_testz00_3439;
{ /* ./Ast/shrinkify.scm 77 */
obj_t BgL_auxz00_3440;
{ /* ./Ast/shrinkify.scm 77 */
BgL_objectz00_bglt BgL_auxz00_3441;
BgL_auxz00_3441 = 
(BgL_objectz00_bglt)(BgL_nodez00_1082); 
BgL_auxz00_3440 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3441); } 
BgL_testz00_3439 = 
CBOOL(BgL_auxz00_3440); } 
if(BgL_testz00_3439)
{ /* ./Ast/shrinkify.scm 77 */
BgL_test3125z00_1085 = ((bool_t)1); }  else 
{ /* ./Ast/shrinkify.scm 77 */
BgL_test3125z00_1085 = ((bool_t)0); } } 
if(BgL_test3125z00_1085)
{ /* ./Ast/shrinkify.scm 77 */
{ /* ./Ast/shrinkify.scm 77 */
long BgL_arg3128z00_1087;
{ /* ./Ast/shrinkify.scm 77 */
obj_t BgL_arg3131z00_1088;
{ /* ./Ast/shrinkify.scm 77 */
obj_t BgL_arg3134z00_1089;
{ /* ./Ast/shrinkify.scm 77 */
BgL_objectz00_bglt BgL_objectz00_1366;
BgL_objectz00_1366 = 
(BgL_objectz00_bglt)(BgL_nodez00_1082); 
{ /* ./Ast/shrinkify.scm 77 */
long BgL_arg2036z00_1367;
{ /* ./Ast/shrinkify.scm 77 */
long BgL_arg2039z00_1368;
BgL_arg2039z00_1368 = 
BGL_OBJECT_CLASS_NUM(BgL_objectz00_1366); 
BgL_arg2036z00_1367 = 
(BgL_arg2039z00_1368-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 77 */
obj_t BgL_vectorz00_1372;int BgL_kz00_1373;
BgL_vectorz00_1372 = BGl_za2classesza2z00zz__objectz00; 
BgL_kz00_1373 = 
(int)(BgL_arg2036z00_1367); 
BgL_arg3134z00_1089 = 
VECTOR_REF(BgL_vectorz00_1372,BgL_kz00_1373); } } } 
BgL_arg3131z00_1088 = 
BGl_classzd2superzd2zz__objectz00(BgL_arg3134z00_1089); } 
BgL_arg3128z00_1087 = 
BGl_classzd2numzd2zz__objectz00(BgL_arg3131z00_1088); } 
{ /* ./Ast/shrinkify.scm 77 */
BgL_objectz00_bglt BgL_objz00_1374;
BgL_objz00_1374 = 
(BgL_objectz00_bglt)(BgL_nodez00_1082); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1374, BgL_arg3128z00_1087); } } 
{ /* ./Ast/shrinkify.scm 77 */
BgL_objectz00_bglt BgL_auxz00_3455;
BgL_auxz00_3455 = 
(BgL_objectz00_bglt)(BgL_nodez00_1082); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3455, BFALSE); } 
(obj_t)(BgL_nodez00_1082); }  else 
{ /* ./Ast/shrinkify.scm 77 */BFALSE; } } 
{ /* ./Ast/shrinkify.scm 78 */
BgL_varz00_bglt BgL_arg3140z00_1090;
BgL_arg3140z00_1090 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1082))->BgL_funz00); 
{ /* ./Ast/shrinkify.scm 78 */
obj_t BgL_res3536z00_1403;
{ /* ./Ast/shrinkify.scm 78 */
BgL_nodez00_bglt BgL_nodez00_1377;
BgL_nodez00_1377 = 
(BgL_nodez00_bglt)(BgL_arg3140z00_1090); 
{ /* ./Ast/shrinkify.scm 78 */
obj_t BgL_method2694z00_1378;
{ /* ./Ast/shrinkify.scm 78 */
BgL_objectz00_bglt BgL_objz00_1379;
BgL_objz00_1379 = 
(BgL_objectz00_bglt)(BgL_nodez00_1377); 
{ /* ./Ast/shrinkify.scm 78 */
long BgL_objzd2classzd2numz00_1380;
BgL_objzd2classzd2numz00_1380 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1379); 
{ /* ./Ast/shrinkify.scm 78 */
obj_t BgL_arg2017z00_1381;
{ /* ./Ast/shrinkify.scm 78 */
int BgL_auxz00_3463;
BgL_auxz00_3463 = 
(int)(((long)1)); 
BgL_arg2017z00_1381 = 
PROCEDURE_REF(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BgL_auxz00_3463); } 
{ /* ./Ast/shrinkify.scm 78 */
int BgL_offsetz00_1384;
BgL_offsetz00_1384 = 
(int)(BgL_objzd2classzd2numz00_1380); 
{ /* ./Ast/shrinkify.scm 78 */
long BgL_offsetz00_1385;
{ /* ./Ast/shrinkify.scm 78 */
long BgL_auxz00_3467;
BgL_auxz00_3467 = 
(long)(BgL_offsetz00_1384); 
BgL_offsetz00_1385 = 
(BgL_auxz00_3467-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 78 */
long BgL_modz00_1386;
{ /* ./Ast/shrinkify.scm 78 */
int BgL_arg2028z00_1387;
BgL_arg2028z00_1387 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 78 */
long BgL_n2z00_1395;
BgL_n2z00_1395 = 
(long)(BgL_arg2028z00_1387); 
BgL_modz00_1386 = 
(BgL_offsetz00_1385/BgL_n2z00_1395); } } 
{ /* ./Ast/shrinkify.scm 78 */
long BgL_restz00_1388;
{ /* ./Ast/shrinkify.scm 78 */
int BgL_arg2024z00_1389;
BgL_arg2024z00_1389 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 78 */
long BgL_n2z00_1398;
BgL_n2z00_1398 = 
(long)(BgL_arg2024z00_1389); 
BgL_restz00_1388 = 
(BgL_offsetz00_1385%BgL_n2z00_1398); } } 
{ /* ./Ast/shrinkify.scm 78 */

{ /* ./Ast/shrinkify.scm 78 */
obj_t BgL_bucketz00_1390;
{ /* ./Ast/shrinkify.scm 78 */
int BgL_kz00_1400;
BgL_kz00_1400 = 
(int)(BgL_modz00_1386); 
BgL_bucketz00_1390 = 
VECTOR_REF(BgL_arg2017z00_1381,BgL_kz00_1400); } 
{ /* ./Ast/shrinkify.scm 78 */
int BgL_kz00_1402;
BgL_kz00_1402 = 
(int)(BgL_restz00_1388); 
BgL_method2694z00_1378 = 
VECTOR_REF(BgL_bucketz00_1390,BgL_kz00_1402); } } } } } } } } } } 
{ /* ./Ast/shrinkify.scm 78 */
obj_t BgL_xz00_2461;
BgL_xz00_2461 = 
PROCEDURE_ENTRY(BgL_method2694z00_1378)(BgL_method2694z00_1378, 
(obj_t)(BgL_nodez00_1377), BEOA); 
BgL_res3536z00_1403 = BUNSPEC; } } } BgL_res3536z00_1403; } } 
{ /* ./Ast/shrinkify.scm 79 */
obj_t BgL_arg3144z00_1091;
BgL_arg3144z00_1091 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1082))->BgL_argsz00); 
BGl_shrinkzd2nodeza2z12z62zzast_shrinkifyz00(BgL_arg3144z00_1091); } 
return BUNSPEC;} } 
}



/* shrink-node!-sequence2702 */
obj_t BGl_shrinkzd2nodez12zd2sequence2702z12zzast_shrinkifyz00(obj_t BgL_envz00_2422, obj_t BgL_nodez00_2423)
{ AN_OBJECT;
{ /* ./Ast/shrinkify.scm 69 */
{ 
BgL_sequencez00_bglt BgL_nodez00_1076;
BgL_nodez00_1076 = 
(BgL_sequencez00_bglt)(BgL_nodez00_2423); 
{ /* ./Ast/shrinkify.scm 70 */
obj_t BgL_arg3116z00_1361;
BgL_arg3116z00_1361 = 
(((BgL_sequencez00_bglt)CREF(BgL_nodez00_1076))->BgL_nodesz00); 
BGl_shrinkzd2nodeza2z12z62zzast_shrinkifyz00(BgL_arg3116z00_1361); } 
return BUNSPEC;} } 
}



/* shrink-node!-kwote2700 */
obj_t BGl_shrinkzd2nodez12zd2kwote2700z12zzast_shrinkifyz00(obj_t BgL_envz00_2424, obj_t BgL_nodez00_2425)
{ AN_OBJECT;
{ /* ./Ast/shrinkify.scm 63 */
return BUNSPEC;} 
}



/* shrink-node!-var2698 */
obj_t BGl_shrinkzd2nodez12zd2var2698z12zzast_shrinkifyz00(obj_t BgL_envz00_2426, obj_t BgL_nodez00_2427)
{ AN_OBJECT;
{ /* ./Ast/shrinkify.scm 57 */
return BUNSPEC;} 
}



/* shrink-node!-atom2696 */
obj_t BGl_shrinkzd2nodez12zd2atom2696z12zzast_shrinkifyz00(obj_t BgL_envz00_2428, obj_t BgL_nodez00_2429)
{ AN_OBJECT;
{ /* ./Ast/shrinkify.scm 51 */
return BUNSPEC;} 
}



/* shrink-variable! */
obj_t BGl_shrinkzd2variablez12zc0zzast_shrinkifyz00(BgL_variablez00_bglt BgL_variablez00_2)
{ AN_OBJECT;
{ /* ./Ast/shrinkify.scm 37 */
{ /* ./Ast/shrinkify.scm 37 */
obj_t BgL_method2692z00_2283;
{ /* ./Ast/shrinkify.scm 37 */
BgL_objectz00_bglt BgL_objz00_2284;
BgL_objz00_2284 = 
(BgL_objectz00_bglt)(BgL_variablez00_2); 
{ /* ./Ast/shrinkify.scm 37 */
long BgL_objzd2classzd2numz00_2285;
BgL_objzd2classzd2numz00_2285 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2284); 
{ /* ./Ast/shrinkify.scm 37 */
obj_t BgL_arg2017z00_2286;
{ /* ./Ast/shrinkify.scm 37 */
int BgL_auxz00_3491;
BgL_auxz00_3491 = 
(int)(((long)1)); 
BgL_arg2017z00_2286 = 
PROCEDURE_REF(BGl_shrinkzd2variablez12zd2envz12zzast_shrinkifyz00, BgL_auxz00_3491); } 
{ /* ./Ast/shrinkify.scm 37 */
int BgL_offsetz00_2289;
BgL_offsetz00_2289 = 
(int)(BgL_objzd2classzd2numz00_2285); 
{ /* ./Ast/shrinkify.scm 37 */
long BgL_offsetz00_2290;
{ /* ./Ast/shrinkify.scm 37 */
long BgL_auxz00_3495;
BgL_auxz00_3495 = 
(long)(BgL_offsetz00_2289); 
BgL_offsetz00_2290 = 
(BgL_auxz00_3495-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 37 */
long BgL_modz00_2291;
{ /* ./Ast/shrinkify.scm 37 */
int BgL_arg2028z00_2292;
BgL_arg2028z00_2292 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 37 */
long BgL_n2z00_2300;
BgL_n2z00_2300 = 
(long)(BgL_arg2028z00_2292); 
BgL_modz00_2291 = 
(BgL_offsetz00_2290/BgL_n2z00_2300); } } 
{ /* ./Ast/shrinkify.scm 37 */
long BgL_restz00_2293;
{ /* ./Ast/shrinkify.scm 37 */
int BgL_arg2024z00_2294;
BgL_arg2024z00_2294 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 37 */
long BgL_n2z00_2303;
BgL_n2z00_2303 = 
(long)(BgL_arg2024z00_2294); 
BgL_restz00_2293 = 
(BgL_offsetz00_2290%BgL_n2z00_2303); } } 
{ /* ./Ast/shrinkify.scm 37 */

{ /* ./Ast/shrinkify.scm 37 */
obj_t BgL_bucketz00_2295;
{ /* ./Ast/shrinkify.scm 37 */
int BgL_kz00_2305;
BgL_kz00_2305 = 
(int)(BgL_modz00_2291); 
BgL_bucketz00_2295 = 
VECTOR_REF(BgL_arg2017z00_2286,BgL_kz00_2305); } 
{ /* ./Ast/shrinkify.scm 37 */
int BgL_kz00_2307;
BgL_kz00_2307 = 
(int)(BgL_restz00_2293); 
BgL_method2692z00_2283 = 
VECTOR_REF(BgL_bucketz00_2295,BgL_kz00_2307); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2692z00_2283)(BgL_method2692z00_2283, 
(obj_t)(BgL_variablez00_2), BEOA);} } 
}



/* _shrink-variable! */
obj_t BGl__shrinkzd2variablez12zc0zzast_shrinkifyz00(obj_t BgL_envz00_2366, obj_t BgL_variablez00_2367)
{ AN_OBJECT;
{ /* ./Ast/shrinkify.scm 37 */
return 
BGl_shrinkzd2variablez12zc0zzast_shrinkifyz00(
(BgL_variablez00_bglt)(BgL_variablez00_2367));} 
}



/* shrink-variable!-default2691 */
obj_t BGl_shrinkzd2variablez12zd2default2691z12zzast_shrinkifyz00(BgL_variablez00_bglt BgL_variablez00_3)
{ AN_OBJECT;
{ /* ./Ast/shrinkify.scm 15 */
{ /* ./Ast/shrinkify.scm 38 */
bool_t BgL_test3487z00_1256;
{ /* ./Ast/shrinkify.scm 38 */
bool_t BgL_testz00_3513;
{ /* ./Ast/shrinkify.scm 38 */
obj_t BgL_auxz00_3514;
{ /* ./Ast/shrinkify.scm 38 */
BgL_objectz00_bglt BgL_auxz00_3515;
BgL_auxz00_3515 = 
(BgL_objectz00_bglt)(BgL_variablez00_3); 
BgL_auxz00_3514 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3515); } 
BgL_testz00_3513 = 
CBOOL(BgL_auxz00_3514); } 
if(BgL_testz00_3513)
{ /* ./Ast/shrinkify.scm 38 */
BgL_test3487z00_1256 = ((bool_t)1); }  else 
{ /* ./Ast/shrinkify.scm 38 */
BgL_test3487z00_1256 = ((bool_t)0); } } 
if(BgL_test3487z00_1256)
{ /* ./Ast/shrinkify.scm 38 */
{ /* ./Ast/shrinkify.scm 39 */
long BgL_arg3489z00_1258;
{ /* ./Ast/shrinkify.scm 39 */
obj_t BgL_arg3492z00_1259;
{ /* ./Ast/shrinkify.scm 39 */
obj_t BgL_arg3495z00_1260;
{ /* ./Ast/shrinkify.scm 39 */
BgL_objectz00_bglt BgL_objectz00_2311;
BgL_objectz00_2311 = 
(BgL_objectz00_bglt)(BgL_variablez00_3); 
{ /* ./Ast/shrinkify.scm 39 */
long BgL_arg2036z00_2312;
{ /* ./Ast/shrinkify.scm 39 */
long BgL_arg2039z00_2313;
BgL_arg2039z00_2313 = 
BGL_OBJECT_CLASS_NUM(BgL_objectz00_2311); 
BgL_arg2036z00_2312 = 
(BgL_arg2039z00_2313-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 39 */
obj_t BgL_vectorz00_2317;int BgL_kz00_2318;
BgL_vectorz00_2317 = BGl_za2classesza2z00zz__objectz00; 
BgL_kz00_2318 = 
(int)(BgL_arg2036z00_2312); 
BgL_arg3495z00_1260 = 
VECTOR_REF(BgL_vectorz00_2317,BgL_kz00_2318); } } } 
BgL_arg3492z00_1259 = 
BGl_classzd2superzd2zz__objectz00(BgL_arg3495z00_1260); } 
BgL_arg3489z00_1258 = 
BGl_classzd2numzd2zz__objectz00(BgL_arg3492z00_1259); } 
{ /* ./Ast/shrinkify.scm 39 */
BgL_objectz00_bglt BgL_objz00_2319;
BgL_objz00_2319 = 
(BgL_objectz00_bglt)(BgL_variablez00_3); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2319, BgL_arg3489z00_1258); } } 
{ /* ./Ast/shrinkify.scm 39 */
BgL_objectz00_bglt BgL_auxz00_3529;
BgL_auxz00_3529 = 
(BgL_objectz00_bglt)(BgL_variablez00_3); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3529, BFALSE); } 
(obj_t)(BgL_variablez00_3); }  else 
{ /* ./Ast/shrinkify.scm 38 */BFALSE; } } 
{ /* ./Ast/shrinkify.scm 40 */
bool_t BgL_test3500z00_1261;
{ /* ./Ast/shrinkify.scm 40 */
bool_t BgL_testz00_3533;
{ /* ./Ast/shrinkify.scm 40 */
obj_t BgL_auxz00_3534;
{ /* ./Ast/shrinkify.scm 40 */
BgL_objectz00_bglt BgL_auxz00_3535;
{ /* ./Ast/shrinkify.scm 40 */
BgL_valuez00_bglt BgL_auxz00_3536;
BgL_auxz00_3536 = 
(((BgL_variablez00_bglt)CREF(BgL_variablez00_3))->BgL_valuez00); 
BgL_auxz00_3535 = 
(BgL_objectz00_bglt)(BgL_auxz00_3536); } 
BgL_auxz00_3534 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3535); } 
BgL_testz00_3533 = 
CBOOL(BgL_auxz00_3534); } 
if(BgL_testz00_3533)
{ /* ./Ast/shrinkify.scm 40 */
BgL_test3500z00_1261 = ((bool_t)1); }  else 
{ /* ./Ast/shrinkify.scm 40 */
BgL_test3500z00_1261 = ((bool_t)0); } } 
if(BgL_test3500z00_1261)
{ /* ./Ast/shrinkify.scm 41 */
BgL_valuez00_bglt BgL_o2667z00_1262;
BgL_o2667z00_1262 = 
(((BgL_variablez00_bglt)CREF(BgL_variablez00_3))->BgL_valuez00); 
{ /* ./Ast/shrinkify.scm 41 */
long BgL_arg3502z00_1263;
{ /* ./Ast/shrinkify.scm 41 */
obj_t BgL_arg3506z00_1264;
{ /* ./Ast/shrinkify.scm 41 */
obj_t BgL_arg3509z00_1265;
{ /* ./Ast/shrinkify.scm 41 */
BgL_objectz00_bglt BgL_objectz00_2326;
BgL_objectz00_2326 = 
(BgL_objectz00_bglt)(BgL_o2667z00_1262); 
{ /* ./Ast/shrinkify.scm 41 */
long BgL_arg2036z00_2327;
{ /* ./Ast/shrinkify.scm 41 */
long BgL_arg2039z00_2328;
BgL_arg2039z00_2328 = 
BGL_OBJECT_CLASS_NUM(BgL_objectz00_2326); 
BgL_arg2036z00_2327 = 
(BgL_arg2039z00_2328-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 41 */
obj_t BgL_vectorz00_2332;int BgL_kz00_2333;
BgL_vectorz00_2332 = BGl_za2classesza2z00zz__objectz00; 
BgL_kz00_2333 = 
(int)(BgL_arg2036z00_2327); 
BgL_arg3509z00_1265 = 
VECTOR_REF(BgL_vectorz00_2332,BgL_kz00_2333); } } } 
BgL_arg3506z00_1264 = 
BGl_classzd2superzd2zz__objectz00(BgL_arg3509z00_1265); } 
BgL_arg3502z00_1263 = 
BGl_classzd2numzd2zz__objectz00(BgL_arg3506z00_1264); } 
{ /* ./Ast/shrinkify.scm 41 */
BgL_objectz00_bglt BgL_objz00_2334;
BgL_objz00_2334 = 
(BgL_objectz00_bglt)(BgL_o2667z00_1262); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2334, BgL_arg3502z00_1263); } } 
{ /* ./Ast/shrinkify.scm 41 */
BgL_objectz00_bglt BgL_auxz00_3552;
BgL_auxz00_3552 = 
(BgL_objectz00_bglt)(BgL_o2667z00_1262); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3552, BFALSE); } 
return 
(obj_t)(BgL_o2667z00_1262);}  else 
{ /* ./Ast/shrinkify.scm 40 */
return BFALSE;} } } 
}



/* _shrink-variable!-default2691 */
obj_t BGl__shrinkzd2variablez12zd2default2691z12zzast_shrinkifyz00(obj_t BgL_envz00_2430, obj_t BgL_variablez00_2431)
{ AN_OBJECT;
{ /* ./Ast/shrinkify.scm 15 */
return 
BGl_shrinkzd2variablez12zd2default2691z12zzast_shrinkifyz00(
(BgL_variablez00_bglt)(BgL_variablez00_2431));} 
}



/* shrink-node! */
obj_t BGl_shrinkzd2nodez12zc0zzast_shrinkifyz00(BgL_nodez00_bglt BgL_nodez00_4)
{ AN_OBJECT;
{ /* ./Ast/shrinkify.scm 46 */
{ /* ./Ast/shrinkify.scm 46 */
obj_t BgL_method2694z00_2336;
{ /* ./Ast/shrinkify.scm 46 */
BgL_objectz00_bglt BgL_objz00_2337;
BgL_objz00_2337 = 
(BgL_objectz00_bglt)(BgL_nodez00_4); 
{ /* ./Ast/shrinkify.scm 46 */
long BgL_objzd2classzd2numz00_2338;
BgL_objzd2classzd2numz00_2338 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2337); 
{ /* ./Ast/shrinkify.scm 46 */
obj_t BgL_arg2017z00_2339;
{ /* ./Ast/shrinkify.scm 46 */
int BgL_auxz00_3560;
BgL_auxz00_3560 = 
(int)(((long)1)); 
BgL_arg2017z00_2339 = 
PROCEDURE_REF(BGl_shrinkzd2nodez12zd2envz12zzast_shrinkifyz00, BgL_auxz00_3560); } 
{ /* ./Ast/shrinkify.scm 46 */
int BgL_offsetz00_2342;
BgL_offsetz00_2342 = 
(int)(BgL_objzd2classzd2numz00_2338); 
{ /* ./Ast/shrinkify.scm 46 */
long BgL_offsetz00_2343;
{ /* ./Ast/shrinkify.scm 46 */
long BgL_auxz00_3564;
BgL_auxz00_3564 = 
(long)(BgL_offsetz00_2342); 
BgL_offsetz00_2343 = 
(BgL_auxz00_3564-OBJECT_TYPE); } 
{ /* ./Ast/shrinkify.scm 46 */
long BgL_modz00_2344;
{ /* ./Ast/shrinkify.scm 46 */
int BgL_arg2028z00_2345;
BgL_arg2028z00_2345 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 46 */
long BgL_n2z00_2353;
BgL_n2z00_2353 = 
(long)(BgL_arg2028z00_2345); 
BgL_modz00_2344 = 
(BgL_offsetz00_2343/BgL_n2z00_2353); } } 
{ /* ./Ast/shrinkify.scm 46 */
long BgL_restz00_2346;
{ /* ./Ast/shrinkify.scm 46 */
int BgL_arg2024z00_2347;
BgL_arg2024z00_2347 = 
(int)(((long)8)); 
{ /* ./Ast/shrinkify.scm 46 */
long BgL_n2z00_2356;
BgL_n2z00_2356 = 
(long)(BgL_arg2024z00_2347); 
BgL_restz00_2346 = 
(BgL_offsetz00_2343%BgL_n2z00_2356); } } 
{ /* ./Ast/shrinkify.scm 46 */

{ /* ./Ast/shrinkify.scm 46 */
obj_t BgL_bucketz00_2348;
{ /* ./Ast/shrinkify.scm 46 */
int BgL_kz00_2358;
BgL_kz00_2358 = 
(int)(BgL_modz00_2344); 
BgL_bucketz00_2348 = 
VECTOR_REF(BgL_arg2017z00_2339,BgL_kz00_2358); } 
{ /* ./Ast/shrinkify.scm 46 */
int BgL_kz00_2360;
BgL_kz00_2360 = 
(int)(BgL_restz00_2346); 
BgL_method2694z00_2336 = 
VECTOR_REF(BgL_bucketz00_2348,BgL_kz00_2360); } } } } } } } } } } 
{ /* ./Ast/shrinkify.scm 46 */
obj_t BgL_xz00_2462;
BgL_xz00_2462 = 
PROCEDURE_ENTRY(BgL_method2694z00_2336)(BgL_method2694z00_2336, 
(obj_t)(BgL_nodez00_4), BEOA); 
return BUNSPEC;} } } 
}



/* _shrink-node! */
obj_t BGl__shrinkzd2nodez12zc0zzast_shrinkifyz00(obj_t BgL_envz00_2368, obj_t BgL_nodez00_2369)
{ AN_OBJECT;
{ /* ./Ast/shrinkify.scm 46 */
return 
BGl_shrinkzd2nodez12zc0zzast_shrinkifyz00(
(BgL_nodez00_bglt)(BgL_nodez00_2369));} 
}



/* shrink-node!-default2693 */
obj_t BGl_shrinkzd2nodez12zd2default2693z12zzast_shrinkifyz00(BgL_nodez00_bglt BgL_nodez00_5)
{ AN_OBJECT;
{ /* ./Ast/shrinkify.scm 15 */
{ /* ./Ast/shrinkify.scm 15 */
obj_t BgL_procz00_2361;obj_t BgL_objectz00_2363;
BgL_procz00_2361 = 
CNST_TABLE_REF(((long)0)); 
BgL_objectz00_2363 = 
(obj_t)(BgL_nodez00_5); 
FAILURE(BgL_procz00_2361,BGl_string4198z00zzast_shrinkifyz00,BgL_objectz00_2363);} } 
}



/* _shrink-node!-default2693 */
obj_t BGl__shrinkzd2nodez12zd2default2693z12zzast_shrinkifyz00(obj_t BgL_envz00_2432, obj_t BgL_nodez00_2433)
{ AN_OBJECT;
{ /* ./Ast/shrinkify.scm 15 */
return 
BGl_shrinkzd2nodez12zd2default2693z12zzast_shrinkifyz00(
(BgL_nodez00_bglt)(BgL_nodez00_2433));} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzast_shrinkifyz00()
{ AN_OBJECT;
{ /* ./Ast/shrinkify.scm 15 */
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "ast_shrinkify"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "ast_shrinkify"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "ast_shrinkify"); 
return 
BGl_modulezd2initializa7ationz75zzast_envz00(((long)62031), "ast_shrinkify");} 
}

